PolyPascal-80 v3.10 (UK) (128K) (Face C) (1985) (2. Training Files) [UTILITAIRE].dsk
HexaDumpAscii only
000000: 45 58 54 45 4E 44 45 44 20 43 50 43 20 44 53 4B EXTENDED CPC DSK
000010: 20 46 69 6C 65 0D 0A 44 69 73 6B 2D 49 6E 66 6F File..Disk-Info
000020: 0D 0A 53 41 4D 64 69 73 6B 31 35 30 37 30 38 00 ..SAMdisk150708.
000030: 28 01 00 13 13 13 13 13 13 13 13 13 13 13 13 13 (...............
000040: 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 ................
000050: 13 13 13 13 13 13 13 13 13 13 13 13 00 00 00 00 ................
000060: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000070: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000080: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000090: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000100: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
000110: 00 00 01 00 02 09 52 E5 00 00 41 02 00 00 00 02 ......R...A.....
000120: 00 00 46 02 00 00 00 02 00 00 42 02 00 00 00 02 ..F.......B.....
000130: 00 00 47 02 00 00 00 02 00 00 43 02 00 00 00 02 ..G.......C.....
000140: 00 00 48 02 00 00 00 02 00 00 44 02 00 00 00 02 ..H.......D.....
000150: 00 00 49 02 00 00 00 02 00 00 45 02 00 00 00 02 ..I.......E.....
000160: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000170: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000180: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000190: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000200: 11 00 03 21 00 00 06 04 CD 01 02 30 34 10 F9 CD ...!.......04...
000210: C5 01 20 64 11 00 0C 06 10 7E B7 28 1A E5 C5 6F .. d.....~.(...o
000220: 26 00 CD FC 01 30 1A C1 E1 23 10 ED 21 2A 02 34 &....0...#..!*.4
000230: D5 CD C5 01 D1 28 E0 21 00 0C 0E FF CD 9B BE 16 .....(.!........
000240: BD 21 46 01 18 6B 0D 0A 44 69 73 63 65 74 74 65 .!F..k..Discette
000250: 20 72 65 61 64 20 66 61 69 6C 75 72 65 0D 0A 50 read failure..P
000260: 72 65 73 73 20 61 6E 79 20 6B 65 79 20 74 6F 20 ress any key to
000270: 72 65 73 74 61 72 74 FF 21 7D 01 18 34 0D 0A 43 restart.!}..4..C
000280: 61 6E 6E 6F 74 20 66 69 6E 64 20 22 2E 45 4D 53 annot find ".EMS
000290: 22 20 66 69 6C 65 0D 0A 50 72 65 73 73 20 61 6E " file..Press an
0002A0: 79 20 6B 65 79 20 74 6F 20 72 65 73 74 61 72 74 y key to restart
0002B0: FF 7E 23 FE FF C4 5A BB 20 F7 CD 1B BB 38 FB CD .~#...Z. ....8..
0002C0: 18 BB CF 00 00 21 00 03 06 40 7E E6 F0 20 22 C5 .....!...@~.. ".
0002D0: E5 11 0D 00 19 11 2B 02 01 FF 0C 1B 1A 2B AE A1 ......+......+..
0002E0: 28 09 1A FE 3F 20 08 7E A1 12 AF 0E 7F 10 EC E1 (...? .~........
0002F0: C1 11 10 00 19 C8 19 10 D1 F6 FF C9 29 CD 01 02 ............)...
000300: D0 C5 E5 01 F7 FF 3E 01 3C 09 38 FC 67 7D C6 4A ......>.<.8.g}.J
000310: 4F 2E 00 EB CD 89 BE EB E1 C1 D0 14 14 23 C9 3F O............#.?
000320: 3F 3F 3F 3F 3F 3F 3F 45 4D 53 00 CF CF CF CF CF ???????EMS......
000330: CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF ................
000340: CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF ................
000350: CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF ................
000360: CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF ................
000370: CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF ................
000380: CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF ................
000390: CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF ................
0003A0: CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF ................
0003B0: CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF ................
0003C0: CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF ................
0003D0: CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF ................
0003E0: CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF ................
0003F0: CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF ................
000400: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000410: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000420: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000430: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000440: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000450: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000460: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000470: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000480: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000490: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0004A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0004B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0004C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0004D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0004E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0004F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000500: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000510: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000520: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000530: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000540: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000550: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000560: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000570: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000580: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000590: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0005A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0005B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0005C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0005D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0005E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0005F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000600: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000610: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000620: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000630: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000640: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000650: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000660: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000670: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000680: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000690: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0006A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0006B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0006C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0006D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0006E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0006F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000700: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000710: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000720: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000730: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000740: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000750: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000760: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000770: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000780: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000790: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0007A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0007B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0007C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0007D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0007E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0007F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000800: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000810: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000820: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000830: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000840: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000850: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000860: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000870: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000880: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000890: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0008A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0008B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0008C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0008D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0008E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0008F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000900: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000910: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000920: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000930: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000940: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000950: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000960: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000970: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000980: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000990: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0009A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0009B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0009C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0009D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0009E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0009F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000A00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000A10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000A20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000A30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000A40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000A50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000A60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000A70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000A80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000A90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000AA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000AB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000AC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000AD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000AE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000AF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000B00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000B10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000B20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000B30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000B40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000B50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000B60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000B70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000B80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000B90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000BA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000BB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000BC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000BD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000BE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000BF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000C00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000C10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000C20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000C30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000C40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000C50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000C60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000C70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000C80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000C90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000CA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000CB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000CC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000CD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000CE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000CF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000D00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000D10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000D20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000D30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000D40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000D50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000D60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000D70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000D80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000D90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000DA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000DB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000DC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000DD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000DE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000DF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000E00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000E10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000E20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000E30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000E40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000E50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000E60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000E70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000E80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000E90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000EA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000EB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000EC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000ED0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000EE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000EF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000F00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000F10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000F20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000F30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000F40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000F50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000F60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000F70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000F80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000F90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000FA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000FB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000FC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000FD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000FE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000FF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0010A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0010B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0010C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0010D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0010E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0010F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0011A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0011B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0011C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0011D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0011E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0011F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001200: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001210: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001220: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001230: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001240: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001250: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001260: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001270: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001280: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001290: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0012A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0012B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0012C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0012D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0012E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0012F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001300: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001310: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001320: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001330: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001340: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001350: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001360: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001370: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001380: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001390: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0013A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0013B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0013C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0013D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0013E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0013F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001400: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
001410: 01 00 01 00 02 09 52 E5 01 00 41 02 00 00 00 02 ......R...A.....
001420: 01 00 46 02 00 00 00 02 01 00 42 02 00 00 00 02 ..F.......B.....
001430: 01 00 47 02 00 00 00 02 01 00 43 02 00 00 00 02 ..G.......C.....
001440: 01 00 48 02 00 00 00 02 01 00 44 02 00 00 00 02 ..H.......D.....
001450: 01 00 49 02 00 00 00 02 01 00 45 02 00 00 00 02 ..I.......E.....
001460: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001470: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001480: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001490: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0014A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0014B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0014C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0014D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0014E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0014F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001500: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001510: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001520: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001530: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001540: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001550: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001560: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001570: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001580: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001590: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0015A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0015B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0015C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0015D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0015E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0015F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001600: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001610: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001620: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001630: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001640: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001650: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001660: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001670: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001680: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001690: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0016A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0016B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0016C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0016D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0016E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0016F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001700: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001710: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001720: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001730: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001740: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001750: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001760: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001770: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001780: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001790: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0017A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0017B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0017C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0017D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0017E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0017F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001800: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001810: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001820: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001830: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001840: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001850: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001860: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001870: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001880: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001890: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0018A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0018B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0018C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0018D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0018E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0018F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001900: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001910: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001920: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001930: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001940: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001950: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001960: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001970: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001980: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001990: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0019A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0019B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0019C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0019D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0019E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0019F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001A00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001A10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001A20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001A30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001A40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001A50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001A60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001A70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001A80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001A90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001AA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001AB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001AC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001AD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001AE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001AF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001B00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001B10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001B20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001B30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001B40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001B50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001B60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001B70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001B80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001B90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001BA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001BB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001BC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001BD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001BE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001BF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001C00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001C10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001C20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001C30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001C40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001C50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001C60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001C70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001C80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001C90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001CA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001CB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001CC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001CD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001CE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001CF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001D00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001D10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001D20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001D30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001D40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001D50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001D60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001D70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001D80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001D90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001DA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001DB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001DC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001DD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001DE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001DF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001E00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001E10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001E20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001E30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001E40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001E50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001E60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001E70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001E80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001E90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001EA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001EB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001EC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001ED0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001EE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001EF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001F00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001F10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001F20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001F30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001F40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001F50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001F60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001F70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001F80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001F90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001FA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001FB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001FC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001FD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001FE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001FF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0020A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0020B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0020C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0020D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0020E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0020F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0021A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0021B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0021C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0021D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0021E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0021F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002200: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002210: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002220: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002230: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002240: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002250: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002260: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002270: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002280: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002290: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0022A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0022B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0022C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0022D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0022E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0022F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002300: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002310: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002320: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002330: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002340: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002350: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002360: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002370: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002380: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002390: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0023A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0023B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0023C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0023D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0023E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0023F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002400: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002410: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002420: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002430: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002440: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002450: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002460: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002470: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002480: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002490: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0024A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0024B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0024C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0024D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0024E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0024F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002500: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002510: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002520: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002530: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002540: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002550: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002560: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002570: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002580: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002590: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0025A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0025B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0025C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0025D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0025E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0025F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002600: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002610: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002620: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002630: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002640: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002650: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002660: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002670: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002680: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002690: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0026A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0026B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0026C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0026D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0026E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0026F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002700: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
002710: 02 00 01 00 02 09 52 E5 02 00 41 02 00 00 00 02 ......R...A.....
002720: 02 00 46 02 00 00 00 02 02 00 42 02 00 00 00 02 ..F.......B.....
002730: 02 00 47 02 00 00 00 02 02 00 43 02 00 00 00 02 ..G.......C.....
002740: 02 00 48 02 00 00 00 02 02 00 44 02 00 00 00 02 ..H.......D.....
002750: 02 00 49 02 00 00 00 02 02 00 45 02 00 00 00 02 ..I.......E.....
002760: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002770: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002780: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002790: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0027A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0027B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0027C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0027D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0027E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0027F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002800: 00 43 50 52 4E 55 4D 52 45 50 41 53 00 00 00 08 .CPRNUMREPAS....
002810: 02 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002820: 00 43 52 41 50 53 32 20 20 50 41 53 00 00 00 10 .CRAPS2 PAS....
002830: 03 04 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002840: 00 44 45 4D 4F 4C 45 4E 20 50 41 53 00 00 00 08 .DEMOLEN PAS....
002850: 05 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002860: 00 44 45 4D 4F 5F 53 54 52 50 41 53 00 00 00 08 .DEMO_STRPAS....
002870: 06 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002880: 00 44 49 56 49 53 49 4F 4E 50 41 53 00 00 00 20 .DIVISIONPAS...
002890: 07 08 09 0A 00 00 00 00 00 00 00 00 00 00 00 00 ................
0028A0: 00 44 49 56 49 53 4F 52 20 50 41 53 00 00 00 08 .DIVISOR PAS....
0028B0: 0B 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0028C0: 00 44 49 56 49 53 4F 52 32 50 41 53 00 00 00 08 .DIVISOR2PAS....
0028D0: 0C 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0028E0: 00 44 4F 42 42 45 4C 54 20 50 41 53 00 00 00 40 .DOBBELT PAS...@
0028F0: 0D 0E 0F 10 11 12 13 14 00 00 00 00 00 00 00 00 ................
002900: 00 45 4E 47 53 54 49 4C 20 50 41 53 00 00 00 08 .ENGSTIL PAS....
002910: 15 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002920: 00 45 52 41 54 4F 53 54 48 50 41 53 00 00 00 10 .ERATOSTHPAS....
002930: 16 17 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002940: 00 46 41 48 52 45 4E 48 45 50 41 53 00 00 00 08 .FAHRENHEPAS....
002950: 18 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002960: 00 46 41 4B 54 55 52 41 20 50 41 53 00 00 00 18 .FAKTURA PAS....
002970: 19 1A 1B 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002980: 00 46 49 42 4F 20 20 20 20 50 41 53 00 00 00 08 .FIBO PAS....
002990: 1C 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0029A0: 00 46 49 42 4F 46 4F 52 48 50 41 53 00 00 00 08 .FIBOFORHPAS....
0029B0: 1D 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0029C0: 00 46 49 42 4F 4E 41 43 31 50 41 53 00 00 00 08 .FIBONAC1PAS....
0029D0: 1E 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0029E0: 00 46 49 42 4F 4E 41 43 32 50 41 53 00 00 00 08 .FIBONAC2PAS....
0029F0: 1F 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002A00: 20 46 4F 52 20 68 20 3A 3D 20 30 20 54 4F 20 39 FOR h := 0 TO 9
002A10: 20 44 4F 0D 0A 20 20 20 20 20 20 20 20 20 20 42 DO.. B
002A20: 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 EGIN..
002A30: 20 20 68 73 75 6D 20 3A 3D 20 67 73 75 6D 20 2B hsum := gsum +
002A40: 20 68 20 2A 20 33 3B 0D 0A 20 20 20 20 20 20 20 h * 3;..
002A50: 20 20 20 20 20 46 4F 52 20 69 20 3A 3D 20 30 20 FOR i := 0
002A60: 54 4F 20 39 20 44 4F 0D 0A 20 20 20 20 20 20 20 TO 9 DO..
002A70: 20 20 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 BEGIN..
002A80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 73 is
002A90: 75 6D 20 3A 3D 20 68 73 75 6D 20 2B 20 69 20 2A um := hsum + i *
002AA0: 20 32 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 2;..
002AB0: 20 20 20 20 20 46 4F 52 20 63 68 65 63 6B 20 3A FOR check :
002AC0: 3D 20 30 20 54 4F 20 39 20 44 4F 0D 0A 20 20 20 = 0 TO 9 DO..
002AD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 I
002AE0: 46 20 28 69 73 75 6D 20 2B 20 63 68 65 63 6B 29 F (isum + check)
002AF0: 20 4D 4F 44 20 31 31 20 3D 20 30 0D 0A 20 20 20 MOD 11 = 0..
002B00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
002B10: 20 54 48 45 4E 20 57 52 49 54 45 28 61 2C 20 62 THEN WRITE(a, b
002B20: 2C 20 63 2C 20 64 2C 20 65 2C 20 66 2C 20 27 2D , c, d, e, f, '-
002B30: 27 2C 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 ',..
002B40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
002B50: 20 20 20 67 2C 20 68 2C 20 69 2C 20 63 68 65 63 g, h, i, chec
002B60: 6B 2C 20 27 20 20 20 20 20 27 29 3B 0D 0A 20 20 k, ' ');..
002B70: 20 20 20 20 20 20 20 20 20 20 20 20 45 4E 44 3B END;
002B80: 0D 0A 20 20 20 20 20 20 20 20 20 20 45 4E 44 3B .. END;
002B90: 0D 0A 20 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20 .. END;..
002BA0: 45 4E 44 2E 0D 0A 1A 20 65 2C 20 66 2C 20 27 2D END.... e, f, '-
002BB0: 27 2C 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 ',..
002BC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
002BD0: 20 20 20 67 2C 20 68 2C 20 69 2C 20 63 68 65 63 g, h, i, chec
002BE0: 6B 2C 20 27 20 20 20 20 20 27 29 3B 0D 0A 20 20 k, ' ');..
002BF0: 20 20 20 20 20 20 20 20 20 20 20 20 45 4E 44 3B END;
002C00: 00 46 49 4C 4B 4F 50 49 20 50 41 53 00 00 00 08 .FILKOPI PAS....
002C10: 20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ...............
002C20: 00 46 4C 41 44 45 20 20 20 50 41 53 00 00 00 08 .FLADE PAS....
002C30: 21 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 !...............
002C40: 00 46 4C 45 54 4E 49 4E 47 50 41 53 00 00 00 28 .FLETNINGPAS...(
002C50: 22 23 24 25 26 00 00 00 00 00 00 00 00 00 00 00 "#$%&...........
002C60: 00 46 4F 52 4B 4F 52 54 20 50 41 53 00 00 00 08 .FORKORT PAS....
002C70: 27 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 '...............
002C80: 00 47 41 45 54 54 45 47 4E 50 41 53 00 00 00 10 .GAETTEGNPAS....
002C90: 28 29 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ()..............
002CA0: 00 47 52 55 4E 44 54 41 4C 50 41 53 00 00 00 18 .GRUNDTALPAS....
002CB0: 2A 2B 2C 00 00 00 00 00 00 00 00 00 00 00 00 00 *+,.............
002CC0: 00 48 41 52 4D 4F 4E 49 43 50 41 53 00 00 00 08 .HARMONICPAS....
002CD0: 2D 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -...............
002CE0: 00 48 41 53 48 54 41 42 20 50 41 53 00 00 00 20 .HASHTAB PAS...
002CF0: 2E 2F 30 31 00 00 00 00 00 00 00 00 00 00 00 00 ./01............
002D00: 00 48 45 4E 54 50 4F 53 54 50 41 53 00 00 00 10 .HENTPOSTPAS....
002D10: 32 33 00 00 00 00 00 00 00 00 00 00 00 00 00 00 23..............
002D20: 00 49 42 4D 20 20 20 20 20 50 41 53 00 00 00 08 .IBM PAS....
002D30: 34 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 4...............
002D40: 00 49 44 45 41 4C 20 20 20 50 41 53 00 00 00 28 .IDEAL PAS...(
002D50: 35 36 37 38 39 00 00 00 00 00 00 00 00 00 00 00 56789...........
002D60: 00 49 44 45 4E 54 49 46 49 50 41 53 00 00 00 20 .IDENTIFIPAS...
002D70: 3A 3B 3C 3D 00 00 00 00 00 00 00 00 00 00 00 00 :;<=............
002D80: 00 49 4E 54 45 52 48 59 50 50 41 53 00 00 00 10 .INTERHYPPAS....
002D90: 3E 3F 00 00 00 00 00 00 00 00 00 00 00 00 00 00 >?..............
002DA0: 00 49 4E 56 45 52 53 20 20 50 41 53 00 00 00 10 .INVERS PAS....
002DB0: 40 41 00 00 00 00 00 00 00 00 00 00 00 00 00 00 @A..............
002DC0: 00 4A 4F 55 52 4E 41 4C 20 50 41 53 00 00 00 08 .JOURNAL PAS....
002DD0: 42 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 B...............
002DE0: 00 4B 41 45 44 45 32 20 20 50 41 53 00 00 00 28 .KAEDE2 PAS...(
002DF0: 43 44 45 46 47 00 00 00 00 00 00 00 00 00 00 00 CDEFG...........
002E00: 20 20 20 20 20 20 20 20 50 52 4F 47 52 41 4D 20 PROGRAM
002E10: 63 72 61 70 73 32 3B 0D 0A 20 20 20 20 20 20 20 craps2;..
002E20: 20 0D 0A 20 20 20 20 20 20 20 20 56 41 52 0D 0A .. VAR..
002E30: 20 20 20 20 20 20 20 20 20 20 61 6E 74 61 6C 2C antal,
002E40: 20 76 75 6E 64 65 74 2C 20 69 2C 20 6B 61 73 74 vundet, i, kast
002E50: 31 2C 20 6B 61 73 74 32 2C 20 70 6F 69 6E 74 73 1, kast2, points
002E60: 2C 20 73 75 6D 20 3A 20 49 4E 54 45 47 45 52 3B , sum : INTEGER;
002E70: 0D 0A 20 20 20 20 20 20 20 20 20 20 64 65 6C 73 .. dels
002E80: 65 6A 72 2C 20 61 66 67 6A 6F 72 74 20 3A 20 42 ejr, afgjort : B
002E90: 4F 4F 4C 45 41 4E 3B 0D 0A 20 20 20 20 20 20 20 OOLEAN;..
002EA0: 20 0D 0A 20 20 20 20 20 20 20 20 42 45 47 49 4E .. BEGIN
002EB0: 0D 0A 20 20 20 20 20 20 20 20 20 20 52 41 4E 44 .. RAND
002EC0: 4F 4D 49 5A 45 3B 0D 0A 20 20 20 20 20 20 20 20 OMIZE;..
002ED0: 20 20 57 52 49 54 45 28 43 4C 52 48 4F 4D 29 3B WRITE(CLRHOM);
002EE0: 0D 0A 20 20 20 20 20 20 20 20 20 20 76 75 6E 64 .. vund
002EF0: 65 74 20 3A 3D 20 30 3B 0D 0A 20 20 20 20 20 20 et := 0;..
002F00: 20 20 20 20 57 52 49 54 45 28 27 54 61 73 74 20 WRITE('Tast
002F10: 61 6E 74 61 6C 20 73 70 69 6C 3A 20 27 29 3B 20 antal spil: ');
002F20: 52 45 41 44 4C 4E 28 61 6E 74 61 6C 29 3B 0D 0A READLN(antal);..
002F30: 20 20 20 20 20 20 20 20 20 20 0D 0A 20 20 20 20 ..
002F40: 20 20 20 20 20 20 46 4F 52 20 69 20 3A 3D 20 31 FOR i := 1
002F50: 20 54 4F 20 61 6E 74 61 6C 20 44 4F 0D 0A 20 20 TO antal DO..
002F60: 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4E 0D BEGIN.
002F70: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 . d
002F80: 65 6C 73 65 6A 72 20 3A 3D 20 46 41 4C 53 45 3B elsejr := FALSE;
002F90: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
002FA0: 6B 61 73 74 31 20 3A 3D 20 52 41 4E 44 4F 4D 28 kast1 := RANDOM(
002FB0: 36 29 20 2B 20 31 3B 0D 0A 20 20 20 20 20 20 20 6) + 1;..
002FC0: 20 20 20 20 20 20 20 6B 61 73 74 32 20 3A 3D 20 kast2 :=
002FD0: 52 41 4E 44 4F 4D 28 36 29 20 2B 20 31 3B 0D 0A RANDOM(6) + 1;..
002FE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 6F po
002FF0: 69 6E 74 73 20 3A 3D 20 6B 61 73 74 31 20 2B 20 ints := kast1 +
003000: 00 4B 41 45 44 45 33 20 20 50 41 53 00 00 00 28 .KAEDE3 PAS...(
003010: 48 49 4A 4B 4C 00 00 00 00 00 00 00 00 00 00 00 HIJKL...........
003020: 00 4B 41 45 44 45 34 20 20 50 41 53 00 00 00 30 .KAEDE4 PAS...0
003030: 4D 4E 4F 50 51 52 00 00 00 00 00 00 00 00 00 00 MNOPQR..........
003040: 00 4B 41 4C 4B 55 20 20 20 50 41 53 00 00 00 30 .KALKU PAS...0
003050: 53 54 55 56 57 58 00 00 00 00 00 00 00 00 00 00 STUVWX..........
003060: 00 4B 41 4E 4E 49 42 41 4C 50 41 53 00 00 00 28 .KANNIBALPAS...(
003070: 59 5A 5B 5C 5D 00 00 00 00 00 00 00 00 00 00 00 YZ[\]...........
003080: 00 4B 4F 4E 54 52 4F 4C 20 50 41 53 00 00 00 08 .KONTROL PAS....
003090: 5E 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ^...............
0030A0: 00 4C 49 46 45 20 20 20 20 50 41 53 00 00 00 30 .LIFE PAS...0
0030B0: 5F 60 61 62 63 64 00 00 00 00 00 00 00 00 00 00 _`abcd..........
0030C0: 00 4C 49 4E 49 45 20 20 20 50 41 53 00 00 00 10 .LINIE PAS....
0030D0: 65 66 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ef..............
0030E0: 00 4C 4F 4E 47 41 44 44 20 50 41 53 00 00 00 18 .LONGADD PAS....
0030F0: 67 68 69 00 00 00 00 00 00 00 00 00 00 00 00 00 ghi.............
003100: 00 4C 4F 4E 47 4D 55 4C 54 50 41 53 00 00 00 10 .LONGMULTPAS....
003110: 6A 6B 00 00 00 00 00 00 00 00 00 00 00 00 00 00 jk..............
003120: 00 4D 41 41 4E 45 44 32 20 50 41 53 00 00 00 08 .MAANED2 PAS....
003130: 6C 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 l...............
003140: 00 4D 41 58 49 4D 55 4D 32 50 41 53 00 00 00 10 .MAXIMUM2PAS....
003150: 6D 6E 00 00 00 00 00 00 00 00 00 00 00 00 00 00 mn..............
003160: 00 4D 41 58 50 55 4E 4B 54 50 41 53 00 00 00 10 .MAXPUNKTPAS....
003170: 6F 70 00 00 00 00 00 00 00 00 00 00 00 00 00 00 op..............
003180: 00 4D 45 4E 55 46 49 4C 20 50 41 53 00 00 00 40 .MENUFIL PAS...@
003190: 71 72 73 74 75 76 77 78 00 00 00 00 00 00 00 00 qrstuvwx........
0031A0: 00 4D 4F 52 53 45 31 20 20 50 41 53 00 00 00 10 .MORSE1 PAS....
0031B0: 79 7A 00 00 00 00 00 00 00 00 00 00 00 00 00 00 yz..............
0031C0: 00 4D 4F 52 53 45 32 20 20 50 41 53 00 00 00 20 .MORSE2 PAS...
0031D0: 7B 7C 7D 7E 00 00 00 00 00 00 00 00 00 00 00 00 {|}~............
0031E0: 00 4E 41 56 4E 53 4F 45 47 50 41 53 00 00 00 18 .NAVNSOEGPAS....
0031F0: 7F 80 81 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003200: 6B 61 73 74 32 3B 0D 0A 20 20 20 20 20 20 20 20 kast2;..
003210: 20 20 20 20 20 20 43 41 53 45 20 70 6F 69 6E 74 CASE point
003220: 73 20 4F 46 0D 0A 20 20 20 20 20 20 20 20 20 20 s OF..
003230: 20 20 20 20 20 20 37 2C 20 31 31 20 20 20 20 3A 7, 11 :
003240: 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 BEGIN..
003250: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
003260: 20 20 20 20 20 76 75 6E 64 65 74 20 3A 3D 20 76 vundet := v
003270: 75 6E 64 65 74 20 2B 31 3B 0D 0A 20 20 20 20 20 undet +1;..
003280: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
003290: 20 20 20 20 20 20 20 20 64 65 6C 73 65 6A 72 20 delsejr
0032A0: 3A 3D 20 54 52 55 45 3B 0D 0A 20 20 20 20 20 20 := TRUE;..
0032B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0032C0: 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 END;..
0032D0: 20 20 20 20 20 20 20 20 20 20 20 32 2C 20 33 2C 2, 3,
0032E0: 20 31 32 20 3A 20 28 2A 20 69 6E 74 65 74 20 2A 12 : (* intet *
0032F0: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 );..
003300: 20 20 4F 54 48 45 52 57 49 53 45 0D 0A 20 20 20 OTHERWISE..
003310: 20 20 20 20 20 20 20 20 20 20 20 20 20 61 66 67 afg
003320: 6A 6F 72 74 20 3A 3D 20 46 41 4C 53 45 3B 0D 0A jort := FALSE;..
003330: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
003340: 52 45 50 45 41 54 0D 0A 20 20 20 20 20 20 20 20 REPEAT..
003350: 20 20 20 20 20 20 20 20 20 20 6B 61 73 74 31 20 kast1
003360: 3A 3D 20 52 41 4E 44 4F 4D 28 36 29 20 2B 20 31 := RANDOM(6) + 1
003370: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ;..
003380: 20 20 20 20 20 6B 61 73 74 32 20 3A 3D 20 52 41 kast2 := RA
003390: 4E 44 4F 4D 28 36 29 20 2B 20 31 3B 0D 0A 20 20 NDOM(6) + 1;..
0033A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0033B0: 73 75 6D 20 3A 3D 20 6B 61 73 74 31 20 2B 20 6B sum := kast1 + k
0033C0: 61 73 74 32 3B 0D 0A 20 20 20 20 20 20 20 20 20 ast2;..
0033D0: 20 20 20 20 20 20 20 20 20 49 46 20 73 75 6D 20 IF sum
0033E0: 3D 20 70 6F 69 6E 74 73 20 0D 0A 20 20 20 20 20 = points ..
0033F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 T
003400: 00 4E 41 56 4E 53 4F 52 54 50 41 53 00 00 00 10 .NAVNSORTPAS....
003410: 82 83 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003420: 00 4E 59 47 41 41 52 44 20 50 41 53 00 00 00 10 .NYGAARD PAS....
003430: 84 85 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003440: 00 4F 52 44 48 59 50 20 20 50 41 53 00 00 00 28 .ORDHYP PAS...(
003450: 86 87 88 89 8A 00 00 00 00 00 00 00 00 00 00 00 ................
003460: 00 4F 56 45 52 46 5F 31 20 50 41 53 00 00 00 20 .OVERF_1 PAS...
003470: 8B 8C 8D 8E 00 00 00 00 00 00 00 00 00 00 00 00 ................
003480: 00 4F 56 45 52 46 5F 32 20 50 41 53 00 00 00 20 .OVERF_2 PAS...
003490: 8F 90 91 92 00 00 00 00 00 00 00 00 00 00 00 00 ................
0034A0: 00 50 41 4B 4B 45 50 53 54 50 41 53 00 00 00 10 .PAKKEPSTPAS....
0034B0: 93 94 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0034C0: 00 50 41 4C 49 4E 44 52 20 50 41 53 00 00 00 08 .PALINDR PAS....
0034D0: 95 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0034E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0034F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003500: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003510: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003520: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003530: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003540: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003550: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003560: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003570: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003580: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003590: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0035A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0035B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0035C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0035D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0035E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0035F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003600: 48 45 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 HEN..
003610: 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4E BEGIN
003620: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
003630: 20 20 20 20 20 20 20 20 20 20 76 75 6E 64 65 74 vundet
003640: 20 3A 3D 20 76 75 6E 64 65 74 20 2B 31 3B 0D 0A := vundet +1;..
003650: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
003660: 20 20 20 20 20 20 20 20 64 65 6C 73 65 6A 72 20 delsejr
003670: 3A 3D 20 54 52 55 45 3B 0D 0A 20 20 20 20 20 20 := TRUE;..
003680: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
003690: 20 20 61 66 67 6A 6F 72 74 20 3A 3D 20 54 52 55 afgjort := TRU
0036A0: 45 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 E;..
0036B0: 20 20 20 20 20 20 20 20 20 20 45 4E 44 3B 0D 0A END;..
0036C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0036D0: 20 20 49 46 20 73 75 6D 20 3D 20 37 20 0D 0A 20 IF sum = 7 ..
0036E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0036F0: 20 20 20 54 48 45 4E 20 61 66 67 6A 6F 72 74 20 THEN afgjort
003700: 3A 3D 20 54 52 55 45 3B 0D 0A 20 20 20 20 20 20 := TRUE;..
003710: 20 20 20 20 20 20 20 20 20 20 55 4E 54 49 4C 20 UNTIL
003720: 61 66 67 6A 6F 72 74 3B 0D 0A 20 20 20 20 20 20 afgjort;..
003730: 20 20 20 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20 END;..
003740: 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 64 IF d
003750: 65 6C 73 65 6A 72 0D 0A 20 20 20 20 20 20 20 20 elsejr..
003760: 20 20 20 20 20 20 20 20 54 48 45 4E 20 57 52 49 THEN WRI
003770: 54 45 28 27 53 65 6A 72 20 20 27 29 0D 0A 20 20 TE('Sejr ')..
003780: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4C EL
003790: 53 45 20 57 52 49 54 45 28 27 54 61 62 20 20 20 SE WRITE('Tab
0037A0: 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 ');..
0037B0: 20 20 20 20 20 57 52 49 54 45 4C 4E 28 27 56 75 WRITELN('Vu
0037C0: 6E 64 65 74 3A 20 27 2C 20 76 75 6E 64 65 74 2C ndet: ', vundet,
0037D0: 20 27 20 20 20 54 61 62 74 3A 20 27 2C 20 69 20 ' Tabt: ', i
0037E0: 2D 20 76 75 6E 64 65 74 29 3B 0D 0A 20 20 20 20 - vundet);..
0037F0: 20 20 20 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20 END;..
003800: 50 52 4F 47 52 41 4D 20 63 70 72 6E 75 6D 72 65 PROGRAM cprnumre
003810: 3B 0D 0A 0D 0A 20 20 56 41 52 0D 0A 20 20 20 20 ;.... VAR..
003820: 61 2C 20 62 2C 20 63 2C 20 64 2C 20 65 2C 20 66 a, b, c, d, e, f
003830: 2C 20 67 2C 20 68 2C 20 69 2C 20 64 61 74 6F 73 , g, h, i, datos
003840: 75 6D 2C 20 67 73 75 6D 2C 20 68 73 75 6D 2C 20 um, gsum, hsum,
003850: 69 73 75 6D 2C 20 63 68 65 63 6B 20 3A 20 49 4E isum, check : IN
003860: 54 45 47 45 52 3B 0D 0A 20 20 0D 0A 20 20 42 45 TEGER;.. .. BE
003870: 47 49 4E 0D 0A 20 20 20 20 57 52 49 54 45 28 43 GIN.. WRITE(C
003880: 4C 52 48 4F 4D 29 3B 0D 0A 20 20 20 20 57 52 49 LRHOM);.. WRI
003890: 54 45 4C 4E 28 27 44 65 20 36 20 66 7C 72 73 74 TELN('De 6 f|rst
0038A0: 65 20 63 69 66 72 65 20 69 20 63 70 72 2D 6E 75 e cifre i cpr-nu
0038B0: 6D 6D 65 72 65 74 20 53 4B 41 4C 20 74 61 73 74 mmeret SKAL tast
0038C0: 65 73 20 69 6E 64 20 6D 65 64 20 6D 65 6C 6C 65 es ind med melle
0038D0: 6D 72 75 6D 27 29 3B 20 20 20 20 20 0D 0A 20 20 mrum'); ..
0038E0: 20 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 WRITELN;..
0038F0: 57 52 49 54 45 4C 4E 28 27 49 6E 64 74 61 73 74 WRITELN('Indtast
003900: 20 65 6E 20 64 61 74 6F 20 73 7D 6C 65 64 65 73 en dato s}ledes
003910: 3A 20 44 20 44 20 4D 20 4D 20 5D 20 5D 27 29 3B : D D M M ] ]');
003920: 0D 0A 20 20 20 20 57 52 49 54 45 28 27 20 20 20 .. WRITE('
003930: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
003940: 20 20 20 20 20 20 27 29 3B 20 52 45 41 44 4C 4E '); READLN
003950: 28 61 2C 20 62 2C 20 63 2C 20 64 2C 20 65 2C 20 (a, b, c, d, e,
003960: 66 29 3B 0D 0A 20 20 20 20 64 61 74 6F 73 75 6D f);.. datosum
003970: 20 3A 3D 20 61 20 2A 20 34 20 2B 20 62 20 2A 20 := a * 4 + b *
003980: 33 20 2B 20 63 20 2A 20 32 20 2B 20 64 20 2A 20 3 + c * 2 + d *
003990: 37 20 2B 20 65 20 2A 20 36 20 2B 20 66 20 2A 20 7 + e * 6 + f *
0039A0: 35 3B 0D 0A 20 20 20 20 57 52 49 54 45 4C 4E 3B 5;.. WRITELN;
0039B0: 0D 0A 20 20 20 20 46 4F 52 20 67 20 3A 3D 20 30 .. FOR g := 0
0039C0: 20 54 4F 20 39 20 44 4F 0D 0A 20 20 20 20 20 20 TO 9 DO..
0039D0: 42 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 67 BEGIN.. g
0039E0: 73 75 6D 20 3A 3D 20 64 61 74 6F 73 75 6D 20 2B sum := datosum +
0039F0: 20 67 20 2A 20 34 3B 0D 0A 20 20 20 20 20 20 20 g * 4;..
003A00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
003A10: 03 00 01 00 02 09 52 E5 03 00 41 02 00 00 00 02 ......R...A.....
003A20: 03 00 46 02 00 00 00 02 03 00 42 02 00 00 00 02 ..F.......B.....
003A30: 03 00 47 02 00 00 00 02 03 00 43 02 00 00 00 02 ..G.......C.....
003A40: 03 00 48 02 00 00 00 02 03 00 44 02 00 00 00 02 ..H.......D.....
003A50: 03 00 49 02 00 00 00 02 03 00 45 02 00 00 00 02 ..I.......E.....
003A60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003A70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003A80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003A90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003AA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003AB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003AC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003AD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003AE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003AF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003B00: 20 20 20 20 20 20 20 20 20 20 0D 0A 20 20 20 20 ..
003B10: 20 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E 3B WRITELN;
003B20: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 57 52 .. WR
003B30: 49 54 45 4C 4E 28 27 55 64 20 61 66 20 27 2C 20 ITELN('Ud af ',
003B40: 61 6E 74 61 6C 20 3A 20 35 2C 20 27 20 73 70 69 antal : 5, ' spi
003B50: 6C 20 62 6C 65 76 20 64 65 20 27 2C 20 76 75 6E l blev de ', vun
003B60: 64 65 74 20 3A 20 35 2C 0D 0A 20 20 20 20 20 20 det : 5,..
003B70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 20 '
003B80: 73 70 69 6C 20 76 75 6E 64 65 74 27 29 3B 0D 0A spil vundet');..
003B90: 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 WRIT
003BA0: 45 4C 4E 28 27 46 72 65 6B 76 65 6E 73 65 6E 20 ELN('Frekvensen
003BB0: 61 66 20 76 75 6E 64 6E 65 20 73 70 69 6C 3A 20 af vundne spil:
003BC0: 27 2C 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 ',..
003BD0: 20 20 20 20 20 20 20 20 76 75 6E 64 65 74 20 2F vundet /
003BE0: 20 61 6E 74 61 6C 20 2A 20 31 30 30 20 3A 20 35 antal * 100 : 5
003BF0: 20 3A 20 32 2C 20 27 20 25 27 29 3B 0D 0A 20 20 : 2, ' %');..
003C00: 20 20 20 20 20 20 45 4E 44 2E 0D 0A 1A 3B 0D 0A END....;..
003C10: 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 WRIT
003C20: 45 4C 4E 28 27 46 72 65 6B 76 65 6E 73 65 6E 20 ELN('Frekvensen
003C30: 61 66 20 76 75 6E 64 6E 65 20 73 70 69 6C 3A 20 af vundne spil:
003C40: 27 2C 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 ',..
003C50: 20 20 20 20 20 20 20 20 76 75 6E 64 65 74 20 2F vundet /
003C60: 20 61 6E 74 61 6C 20 2A 20 31 30 30 20 3A 20 35 antal * 100 : 5
003C70: 20 3A 20 32 2C 20 27 20 25 27 29 3B 0D 0A 20 20 : 2, ' %');..
003C80: 76 FD 52 55 4D 46 5F 31 2E 50 41 53 5B 32 38 2F v.RUMF_1.PAS[28/
003C90: 30 31 2F 31 39 39 31 5D 00 11 10 00 05 ED 77 3B 01/1991]......w;
003CA0: 3D 1C 3E 5F 5F 55 FC FF FD FE 1E 9D DF 17 2F 94 =.>__U......../.
003CB0: BE 8B 01 58 F0 60 58 8C 03 59 AB F3 EF FC CF E5 ...X.`X..Y......
003CC0: A4 CF 50 A5 CF 57 A5 CF A0 A5 CF 18 A6 CF 07 A6 ..P..W..........
003CD0: CF 03 A6 CF FE A4 CF 7F A5 CF 99 A5 CF C6 A5 CF ................
003CE0: 53 A6 CF 92 A6 30 CD 07 9C 8D 24 00 03 07 00 AA S....0....$.....
003CF0: 00 3F 00 C0 00 10 00 02 00 41 09 2A 52 E5 02 04 .?.......A.*R...
003D00: 50 52 4F 47 52 41 4D 20 64 69 76 69 73 69 6F 6E PROGRAM division
003D10: 3B 0D 0A 0D 0A 20 20 56 41 52 0D 0A 20 20 20 20 ;.... VAR..
003D20: 6E 61 76 6E 20 3A 20 53 54 52 49 4E 47 28 2E 33 navn : STRING(.3
003D30: 30 2E 29 3B 0D 0A 20 20 20 20 63 68 20 3A 20 43 0.);.. ch : C
003D40: 48 41 52 3B 0D 0A 20 20 20 20 64 69 76 69 73 6F HAR;.. diviso
003D50: 72 2C 20 64 69 76 69 73 6F 72 31 2C 20 64 69 76 r, divisor1, div
003D60: 69 73 6F 72 32 2C 20 64 69 76 69 64 65 6E 64 2C isor2, dividend,
003D70: 0D 0A 20 20 20 20 64 69 76 69 64 65 6E 64 31 2C .. dividend1,
003D80: 20 64 69 76 69 64 65 6E 64 32 2C 20 67 72 61 64 dividend2, grad
003D90: 2C 20 61 6E 74 61 6C 2C 0D 0A 20 20 20 20 72 69 , antal,.. ri
003DA0: 67 74 69 67 65 2C 20 66 6F 72 73 6F 65 67 2C 20 gtige, forsoeg,
003DB0: 74 61 65 6C 6C 65 72 2C 20 6E 61 65 76 6E 65 72 taeller, naevner
003DC0: 20 3A 20 49 4E 54 45 47 45 52 3B 0D 0A 20 20 20 : INTEGER;..
003DD0: 20 66 65 6A 6C 20 3A 20 42 4F 4F 4C 45 41 4E 3B fejl : BOOLEAN;
003DE0: 0D 0A 20 20 0D 0A 20 20 46 55 4E 43 54 49 4F 4E .. .. FUNCTION
003DF0: 20 73 66 64 28 6E 2C 20 6D 20 3A 20 49 4E 54 45 sfd(n, m : INTE
003E00: 47 45 52 29 20 3A 20 49 4E 54 45 47 45 52 3B 0D GER) : INTEGER;.
003E10: 0A 20 20 20 20 0D 0A 20 20 20 20 56 41 52 0D 0A . .. VAR..
003E20: 20 20 20 20 20 20 72 65 73 74 20 3A 20 49 4E 54 rest : INT
003E30: 45 47 45 52 3B 0D 0A 20 20 20 20 0D 0A 20 20 20 EGER;.. ..
003E40: 20 42 45 47 49 4E 20 28 2A 20 73 66 64 20 2A 29 BEGIN (* sfd *)
003E50: 0D 0A 20 20 20 20 20 20 57 48 49 4C 45 20 6D 20 .. WHILE m
003E60: 3E 20 30 20 44 4F 0D 0A 20 20 20 20 20 20 20 20 > 0 DO..
003E70: 42 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 BEGIN..
003E80: 20 72 65 73 74 20 3A 3D 20 6E 20 4D 4F 44 20 6D rest := n MOD m
003E90: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 6E 20 3A ;.. n :
003EA0: 3D 20 6D 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 = m;..
003EB0: 6D 20 3A 3D 20 72 65 73 74 3B 0D 0A 20 20 20 20 m := rest;..
003EC0: 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 END;..
003ED0: 73 66 64 20 3A 3D 20 6E 3B 0D 0A 20 20 20 20 45 sfd := n;.. E
003EE0: 4E 44 3B 20 28 2A 20 73 66 64 20 2A 29 0D 0A 20 ND; (* sfd *)..
003EF0: 20 20 20 0D 0A 20 20 50 52 4F 43 45 44 55 52 45 .. PROCEDURE
003F00: 0D 0A 20 20 20 20 20 20 20 20 50 52 4F 47 52 41 .. PROGRA
003F10: 4D 20 64 65 6D 6F 6C 65 6E 3B 0D 0A 20 20 20 20 M demolen;..
003F20: 20 20 20 20 0D 0A 20 20 20 20 20 20 20 20 54 59 .. TY
003F30: 50 45 0D 0A 20 20 20 20 20 20 20 20 20 20 73 74 PE.. st
003F40: 72 65 6E 67 74 79 70 65 20 3D 20 53 54 52 49 4E rengtype = STRIN
003F50: 47 28 2E 31 35 2E 29 3B 0D 0A 20 20 20 20 20 20 G(.15.);..
003F60: 20 20 0D 0A 20 20 20 20 20 20 20 20 56 41 52 0D .. VAR.
003F70: 0A 20 20 20 20 20 20 20 20 20 20 73 74 72 65 6E . stren
003F80: 67 20 3A 20 73 74 72 65 6E 67 74 79 70 65 3B 0D g : strengtype;.
003F90: 0A 20 20 20 20 20 20 20 20 20 20 69 20 3A 20 49 . i : I
003FA0: 4E 54 45 47 45 52 3B 0D 0A 20 20 20 20 20 20 20 NTEGER;..
003FB0: 20 0D 0A 20 20 20 20 20 20 20 20 42 45 47 49 4E .. BEGIN
003FC0: 0D 0A 20 20 20 20 20 20 20 20 20 20 73 74 72 65 .. stre
003FD0: 6E 67 20 3A 3D 20 27 27 3B 0D 0A 20 20 20 20 20 ng := '';..
003FE0: 20 20 20 20 20 46 4F 52 20 69 20 3A 3D 20 31 20 FOR i := 1
003FF0: 54 4F 20 35 20 44 4F 0D 0A 20 20 20 20 20 20 20 TO 5 DO..
004000: 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 BEGIN..
004010: 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4C WRITEL
004020: 4E 28 73 74 72 65 6E 67 3A 31 32 2C 20 4C 45 4E N(streng:12, LEN
004030: 28 73 74 72 65 6E 67 29 3A 33 29 3B 0D 0A 20 20 (streng):3);..
004040: 20 20 20 20 20 20 20 20 20 20 20 20 73 74 72 65 stre
004050: 6E 67 20 3A 3D 20 73 74 72 65 6E 67 20 2B 27 41 ng := streng +'A
004060: 27 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 ';..
004070: 45 4E 44 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 END;..
004080: 57 52 49 54 45 4C 4E 28 73 74 72 65 6E 67 3A 31 WRITELN(streng:1
004090: 32 2C 20 4C 45 4E 28 73 74 72 65 6E 67 29 3A 33 2, LEN(streng):3
0040A0: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 73 74 );.. st
0040B0: 72 65 6E 67 20 3A 3D 20 73 74 72 65 6E 67 20 2B reng := streng +
0040C0: 20 73 74 72 65 6E 67 20 3B 0D 0A 20 20 20 20 20 streng ;..
0040D0: 20 20 20 20 20 57 52 49 54 45 4C 4E 28 73 74 72 WRITELN(str
0040E0: 65 6E 67 3A 31 32 2C 20 4C 45 4E 28 73 74 72 65 eng:12, LEN(stre
0040F0: 6E 67 29 3A 33 29 3B 0D 0A 20 20 20 20 20 20 20 ng):3);..
004100: 20 66 6F 72 6B 6F 72 74 28 56 41 52 20 74 61 65 forkort(VAR tae
004110: 6C 6C 65 72 2C 20 6E 61 65 76 6E 65 72 20 3A 20 ller, naevner :
004120: 49 4E 54 45 47 45 52 29 3B 0D 0A 20 20 0D 0A 20 INTEGER);.. ..
004130: 20 20 20 56 41 52 0D 0A 20 20 20 20 20 20 66 61 VAR.. fa
004140: 6B 74 6F 72 20 3A 20 49 4E 54 45 47 45 52 3B 0D ktor : INTEGER;.
004150: 0A 20 20 20 20 0D 0A 20 20 20 20 42 45 47 49 4E . .. BEGIN
004160: 20 28 2A 20 66 6F 72 6B 6F 72 74 20 2A 29 0D 0A (* forkort *)..
004170: 20 20 20 20 20 20 66 61 6B 74 6F 72 20 3A 3D 20 faktor :=
004180: 73 66 64 28 74 61 65 6C 6C 65 72 2C 20 6E 61 65 sfd(taeller, nae
004190: 76 6E 65 72 29 3B 0D 0A 20 20 20 20 20 20 74 61 vner);.. ta
0041A0: 65 6C 6C 65 72 20 3A 3D 20 74 61 65 6C 6C 65 72 eller := taeller
0041B0: 20 44 49 56 20 66 61 6B 74 6F 72 3B 0D 0A 20 20 DIV faktor;..
0041C0: 20 20 20 20 6E 61 65 76 6E 65 72 20 3A 3D 20 6E naevner := n
0041D0: 61 65 76 6E 65 72 20 44 49 56 20 66 61 6B 74 6F aevner DIV fakto
0041E0: 72 3B 0D 0A 20 20 20 20 45 4E 44 3B 20 28 2A 20 r;.. END; (*
0041F0: 66 6F 72 6B 6F 72 74 20 2A 29 0D 0A 20 20 0D 0A forkort *).. ..
004200: 20 20 42 45 47 49 4E 20 28 2A 20 64 69 76 69 73 BEGIN (* divis
004210: 69 6F 6E 20 2A 29 0D 0A 20 20 20 20 57 52 49 54 ion *).. WRIT
004220: 45 28 43 4C 52 48 4F 4D 29 3B 0D 0A 20 20 20 20 E(CLRHOM);..
004230: 52 41 4E 44 4F 4D 49 5A 45 3B 0D 0A 20 20 20 20 RANDOMIZE;..
004240: 57 52 49 54 45 28 27 48 76 61 64 20 68 65 64 64 WRITE('Hvad hedd
004250: 65 72 20 64 75 3A 20 27 29 3B 20 52 45 41 44 4C er du: '); READL
004260: 4E 28 6E 61 76 6E 29 3B 0D 0A 20 20 20 20 52 45 N(navn);.. RE
004270: 50 45 41 54 0D 0A 20 20 20 20 20 20 57 52 49 54 PEAT.. WRIT
004280: 45 28 27 48 76 69 6C 6B 65 6E 20 73 76 7B 72 68 E('Hvilken sv{rh
004290: 65 64 73 67 72 61 64 20 7C 6E 73 6B 65 72 20 64 edsgrad |nsker d
0042A0: 75 20 28 31 20 2D 20 31 30 29 3A 20 27 29 3B 0D u (1 - 10): ');.
0042B0: 0A 20 20 20 20 20 20 52 45 41 44 4C 4E 28 67 72 . READLN(gr
0042C0: 61 64 29 3B 0D 0A 20 20 20 20 55 4E 54 49 4C 20 ad);.. UNTIL
0042D0: 28 31 20 3C 3D 20 67 72 61 64 29 20 41 4E 44 20 (1 <= grad) AND
0042E0: 28 67 72 61 64 20 3C 3D 20 31 30 29 3B 0D 0A 20 (grad <= 10);..
0042F0: 20 20 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 WRITELN;..
004300: 20 45 4E 44 2E 0D 0A 0D 0A 20 20 20 20 20 20 20 END.....
004310: 20 0D 0A 1A 45 4E 28 73 74 72 65 6E 67 29 3A 33 ...EN(streng):3
004320: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 73 74 );.. st
004330: 72 65 6E 67 20 3A 3D 20 73 74 72 65 6E 67 20 2B reng := streng +
004340: 20 73 74 72 65 6E 67 20 3B 0D 0A 20 20 20 20 20 streng ;..
004350: 20 20 20 20 20 57 52 49 54 45 4C 4E 28 73 74 72 WRITELN(str
004360: 65 6E 67 3A 31 32 2C 20 4C 45 4E 28 73 74 72 65 eng:12, LEN(stre
004370: 6E 67 29 3A 33 29 3B 0D 0A 20 20 20 20 20 20 20 ng):3);..
004380: 03 00 CA BE 04 00 B9 A1 05 00 DF F7 A0 C9 00 00 ................
004390: 49 F9 05 0C C0 08 DF 01 A1 C9 F6 C1 05 DF 0A A1 I...............
0043A0: C3 96 E4 E3 D2 05 00 00 00 00 00 00 00 00 00 00 ................
0043B0: 00 00 00 00 00 00 00 00 00 00 FC 00 01 00 01 00 ................
0043C0: 01 52 55 4E 22 44 49 53 43 0D C5 89 68 B4 D6 2E .RUN"DISC...h...
0043D0: 24 3C CC 23 0A 5B 81 28 8F 37 DE 4E F2 95 17 D4 $<.#.[.(.7.N....
0043E0: 1E C4 1E FB AE B5 4F F0 BB F1 4A B9 49 62 34 75 ......O...J.Ib4u
0043F0: EC EE 35 5B 9F 5B 6F 2F 4C 12 C1 60 C1 BE 10 7B ..5[.[o/L..`...{
004400: E8 74 CB 23 00 00 E3 F5 7C FE C0 38 0C 3A 00 C0 .t.#....|..8.:..
004410: FE 80 20 05 F1 E3 CF 97 83 F1 E3 F3 D9 21 6C A1 .. ..........!l.
004420: 5E 77 F6 C0 ED 79 7B D9 FB C9 00 00 00 00 00 00 ^w...y{.........
004430: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004440: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004450: 00 00 BD A2 06 00 DF D9 A1 00 00 00 C9 DF DC A1 ................
004460: 00 00 00 C9 DF DF A1 00 00 00 C9 DF E2 A1 00 00 ................
004470: 00 C9 16 DF 06 49 DF 06 9E DE 06 B6 DE 06 00 00 .....I..........
004480: A0 00 00 DE 1E E5 AA 3B F9 34 BB 5E 54 07 DB 4F .......;.4.^T..O
004490: B1 A6 76 9A 58 33 4B 40 95 69 71 EF 55 B7 F1 34 ..v.X3K@.iq.U..4
0044A0: B0 9C E8 97 B9 F3 E7 DA 4E D0 7C D2 AB 18 71 8D ........N.|...q.
0044B0: A7 B2 83 A8 EB 77 55 39 EB 71 64 14 A5 92 E0 D4 .....wU9.qd.....
0044C0: FD 0E B2 85 7D D2 13 CD 44 92 1C 2B 4E 9B CE 38 ....}...D..+N..8
0044D0: C4 7C 45 52 41 2C 22 2A 2E 42 41 4B 22 0D 31 2C .|ERA,"*.BAK".1,
0044E0: 30 3A 42 4F 52 44 45 52 20 31 30 0D 1C 7C E2 D5 0:BORDER 10..|..
0044F0: 55 8E 52 C6 0D 38 4C 53 64 F9 A5 91 63 4C B3 95 U.R..8LSd...cL..
004500: 20 57 52 49 54 45 4C 4E 28 27 56 65 6C 6B 6F 6D WRITELN('Velkom
004510: 6D 65 6E 2C 20 27 2C 20 6E 61 76 6E 2C 20 27 2E men, ', navn, '.
004520: 20 44 75 20 66 7D 72 20 6E 75 20 73 74 69 6C 6C Du f}r nu still
004530: 65 74 20 35 20 64 69 76 69 73 69 6F 6E 73 6F 70 et 5 divisionsop
004540: 67 61 76 65 72 27 29 3B 0D 0A 20 20 20 20 57 52 gaver');.. WR
004550: 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 61 6E 74 61 ITELN;.. anta
004560: 6C 20 3A 3D 20 30 3B 0D 0A 20 20 20 20 72 69 67 l := 0;.. rig
004570: 74 69 67 65 20 3A 3D 20 30 3B 0D 0A 20 20 20 20 tige := 0;..
004580: 66 65 6A 6C 20 3A 3D 20 46 41 4C 53 45 3B 0D 0A fejl := FALSE;..
004590: 20 20 20 20 52 45 50 45 41 54 0D 0A 20 20 20 20 REPEAT..
0045A0: 20 20 61 6E 74 61 6C 20 3A 3D 20 61 6E 74 61 6C antal := antal
0045B0: 20 2B 20 31 3B 0D 0A 20 20 20 20 20 20 64 69 76 + 1;.. div
0045C0: 69 64 65 6E 64 31 20 3A 3D 20 52 41 4E 44 4F 4D idend1 := RANDOM
0045D0: 28 67 72 61 64 20 2B 20 31 29 3B 0D 0A 20 20 20 (grad + 1);..
0045E0: 20 20 20 64 69 76 69 64 65 6E 64 32 20 3A 3D 20 dividend2 :=
0045F0: 52 41 4E 44 4F 4D 28 67 72 61 64 20 2B 20 31 29 RANDOM(grad + 1)
004600: 3B 0D 0A 20 20 20 20 20 20 64 69 76 69 73 6F 72 ;.. divisor
004610: 31 20 3A 3D 20 52 41 4E 44 4F 4D 28 67 72 61 64 1 := RANDOM(grad
004620: 29 20 2B 31 20 3B 0D 0A 20 20 20 20 20 20 64 69 ) +1 ;.. di
004630: 76 69 73 6F 72 32 20 3A 3D 20 52 41 4E 44 4F 4D visor2 := RANDOM
004640: 28 67 72 61 64 29 20 2B 20 31 3B 0D 0A 20 20 20 (grad) + 1;..
004650: 20 20 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 WRITELN;..
004660: 20 20 20 57 52 49 54 45 4C 4E 28 64 69 76 69 64 WRITELN(divid
004670: 65 6E 64 31 2C 20 27 2F 27 2C 20 64 69 76 69 73 end1, '/', divis
004680: 6F 72 31 2C 20 0D 0A 20 20 20 20 20 20 20 20 20 or1, ..
004690: 20 20 20 20 20 27 20 2B 20 27 2C 20 64 69 76 69 ' + ', divi
0046A0: 64 65 6E 64 32 2C 20 27 2F 27 2C 20 64 69 76 69 dend2, '/', divi
0046B0: 73 6F 72 32 2C 20 27 20 3D 20 3F 27 29 3B 0D 0A sor2, ' = ?');..
0046C0: 20 20 20 20 20 20 57 52 49 54 45 4C 4E 3B 0D 0A WRITELN;..
0046D0: 20 20 20 20 20 20 64 69 76 69 64 65 6E 64 20 3A dividend :
0046E0: 3D 20 64 69 76 69 64 65 6E 64 31 20 2A 20 64 69 = dividend1 * di
0046F0: 76 69 73 6F 72 32 20 2B 20 64 69 76 69 64 65 6E visor2 + dividen
004700: 20 20 20 20 20 20 20 20 50 52 4F 47 52 41 4D 20 PROGRAM
004710: 64 65 6D 6F 5F 73 74 72 3B 0D 0A 20 20 20 20 20 demo_str;..
004720: 20 20 20 0D 0A 20 20 20 20 20 20 20 20 20 20 54 .. T
004730: 59 50 45 0D 0A 20 20 20 20 20 20 20 20 20 20 20 YPE..
004740: 20 73 74 72 65 6E 67 20 3D 20 53 54 52 49 4E 47 streng = STRING
004750: 28 2E 33 30 2E 29 3B 0D 0A 20 20 20 20 20 20 20 (.30.);..
004760: 20 20 20 0D 0A 20 20 20 20 20 20 20 20 20 20 56 .. V
004770: 41 52 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 AR..
004780: 74 61 6C 31 20 3A 20 52 45 41 4C 3B 0D 0A 20 20 tal1 : REAL;..
004790: 20 20 20 20 20 20 20 20 20 20 74 61 6C 32 20 3A tal2 :
0047A0: 20 49 4E 54 45 47 45 52 3B 0D 0A 20 20 20 20 20 INTEGER;..
0047B0: 20 20 20 20 20 20 20 73 74 72 65 6E 67 31 2C 20 streng1,
0047C0: 73 74 72 65 6E 67 32 20 3A 20 73 74 72 65 6E 67 streng2 : streng
0047D0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 0D 0A 20 ;.. ..
0047E0: 20 20 20 20 20 20 20 20 20 42 45 47 49 4E 0D 0A BEGIN..
0047F0: 20 20 20 20 20 20 20 20 20 20 20 20 74 61 6C 31 tal1
004800: 20 3A 3D 20 50 49 3B 0D 0A 20 20 20 20 20 20 20 := PI;..
004810: 20 20 20 20 20 74 61 6C 32 20 3A 3D 20 54 52 55 tal2 := TRU
004820: 4E 43 28 32 33 20 2F 20 33 29 3B 0D 0A 20 20 20 NC(23 / 3);..
004830: 20 20 20 20 20 20 20 20 20 53 54 52 28 74 61 6C STR(tal
004840: 31 3A 36 3A 34 2C 20 73 74 72 65 6E 67 31 29 3B 1:6:4, streng1);
004850: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 53 54 .. ST
004860: 52 28 74 61 6C 32 3A 34 2C 20 73 74 72 65 6E 67 R(tal2:4, streng
004870: 32 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 2);..
004880: 20 57 52 49 54 45 4C 4E 28 73 74 72 65 6E 67 31 WRITELN(streng1
004890: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 );..
0048A0: 57 52 49 54 45 4C 4E 28 73 74 72 65 6E 67 32 29 WRITELN(streng2)
0048B0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 45 4E 44 ;.. END
0048C0: 2E 0D 0A 1A 34 2C 20 73 74 72 65 6E 67 31 29 3B ....4, streng1);
0048D0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 53 54 .. ST
0048E0: 52 28 74 61 6C 32 3A 34 2C 20 73 74 72 65 6E 67 R(tal2:4, streng
0048F0: 32 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 2);..
004900: 64 32 20 2A 20 64 69 76 69 73 6F 72 31 3B 0D 0A d2 * divisor1;..
004910: 20 20 20 20 20 20 64 69 76 69 73 6F 72 20 3A 3D divisor :=
004920: 20 64 69 76 69 73 6F 72 31 20 2A 20 64 69 76 69 divisor1 * divi
004930: 73 6F 72 32 3B 0D 0A 20 20 20 20 20 20 66 6F 72 sor2;.. for
004940: 6B 6F 72 74 28 64 69 76 69 64 65 6E 64 2C 20 64 kort(dividend, d
004950: 69 76 69 73 6F 72 29 3B 0D 0A 20 20 20 20 20 20 ivisor);..
004960: 66 6F 72 73 6F 65 67 20 3A 3D 20 30 3B 0D 0A 20 forsoeg := 0;..
004970: 20 20 20 20 20 52 45 50 45 41 54 0D 0A 20 20 20 REPEAT..
004980: 20 20 20 20 20 66 6F 72 73 6F 65 67 20 3A 3D 20 forsoeg :=
004990: 66 6F 72 73 6F 65 67 20 2B 20 31 3B 0D 0A 20 20 forsoeg + 1;..
0049A0: 20 20 20 20 20 20 57 52 49 54 45 28 27 49 6E 64 WRITE('Ind
0049B0: 74 61 73 74 20 74 7B 6C 6C 65 72 3A 20 27 29 3B tast t{ller: ');
0049C0: 20 52 45 41 44 4C 4E 28 74 61 65 6C 6C 65 72 29 READLN(taeller)
0049D0: 3B 0D 0A 20 20 20 20 20 20 20 20 57 52 49 54 45 ;.. WRITE
0049E0: 28 27 49 6E 64 74 61 73 74 20 6E 7B 76 6E 65 72 ('Indtast n{vner
0049F0: 3A 20 27 29 3B 20 52 45 41 44 4C 4E 28 6E 61 65 : '); READLN(nae
004A00: 76 6E 65 72 29 3B 0D 0A 20 20 20 20 20 20 20 20 vner);..
004A10: 49 46 20 28 64 69 76 69 64 65 6E 64 20 3D 20 74 IF (dividend = t
004A20: 61 65 6C 6C 65 72 29 20 41 4E 44 20 28 64 69 76 aeller) AND (div
004A30: 69 73 6F 72 20 3D 20 6E 61 65 76 6E 65 72 29 0D isor = naevner).
004A40: 0A 20 20 20 20 20 20 20 20 20 20 54 48 45 4E 0D . THEN.
004A50: 0A 20 20 20 20 20 20 20 20 20 20 20 20 42 45 47 . BEG
004A60: 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 IN..
004A70: 20 20 57 52 49 54 45 4C 4E 28 27 53 76 61 72 65 WRITELN('Svare
004A80: 74 20 65 72 20 6B 6F 72 72 65 6B 74 27 29 3B 0D t er korrekt');.
004A90: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 . r
004AA0: 69 67 74 69 67 65 20 3A 3D 20 72 69 67 74 69 67 igtige := rigtig
004AB0: 65 20 2B 20 31 3B 0D 0A 20 20 20 20 20 20 20 20 e + 1;..
004AC0: 20 20 20 20 45 4E 44 0D 0A 20 20 20 20 20 20 20 END..
004AD0: 20 20 20 45 4C 53 45 0D 0A 20 20 20 20 20 20 20 ELSE..
004AE0: 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 BEGIN..
004AF0: 20 20 20 20 20 20 20 20 20 20 66 65 6A 6C 20 3A fejl :
004B00: F4 08 79 C8 D7 94 1F 9A C7 D1 B8 66 B0 F5 6C C2 ..y........f..l.
004B10: 64 18 90 2E 98 83 54 6A DC AE 68 06 80 69 0C 26 d.....Tj..h..i.&
004B20: A6 48 41 D6 D2 48 98 92 89 8C 1D 7E AC 50 26 27 .HA..H.....~.P&'
004B30: EB B2 40 4E 9D 31 F1 6F 69 B4 19 A2 8A 4E 56 DA ..@N.1.oi....NV.
004B40: 1D 6C 02 AB 57 12 B4 F6 88 A7 E9 C0 83 0E 82 11 .l..W...........
004B50: DE EB E6 93 4C F8 9B 61 A3 49 76 A2 F5 16 76 20 ....L..a£Iv...v
004B60: 66 47 3F 57 86 BF E5 D5 C7 BD 54 91 84 4B A9 58 fG?W......T..K.X
004B70: 50 D8 75 F5 D3 47 E6 DE 18 14 63 43 D2 33 A8 C9 P.u..G....cC.3..
004B80: BC DF 36 F9 D0 92 92 6B 78 C3 8E 05 58 74 F8 55 ..6....kx...Xt.U
004B90: AD DD 52 4C 16 AF 54 8B 54 68 5A 5D C8 15 7E F1 ..RL..T.ThZ]..~.
004BA0: 0A 39 92 00 66 6E 5A ED 57 F5 24 82 EF 0F 1A 46 .9..fnZ.W.$....F
004BB0: 70 6A CD DD 13 AA 9E 9D F7 30 B7 F6 DA E9 38 46 pj.......0....8F
004BC0: 55 F3 CF C7 44 1D 07 9E ED 61 97 82 FD 3F 30 2A U...D....a...?0*
004BD0: 78 6A 21 44 7A 8E 05 22 35 B8 60 22 C7 91 8E A7 xj!Dz.."5.`"....
004BE0: CC C5 62 8B 80 A9 D6 3F 14 ED CA 43 C8 B1 7E 67 ..b....?...C..~g
004BF0: 2C B5 C2 EB 90 D9 66 8F 74 4D 2A 03 68 D1 7E E7 ,.....f.tM*.h.~.
004C00: 0C A5 A2 4B 00 49 56 5F 54 CD 5A 23 78 F1 1E 47 ...K.IV_T.Z#x..G
004C10: AC 15 62 6B 10 39 36 4F 64 8D 6A 43 38 71 0E 27 ..bk.96Od.jC8q.'
004C20: 5C A5 22 4B 50 89 06 9F 74 ED 6A C3 28 11 0E E7 \."KP...t.j.(...
004C30: 6C 55 12 CB 40 D9 C6 AF 64 ED 3A E3 88 B1 6E 27 lU..@...d.:...n'
004C40: F3 11 ED 45 ED 53 38 00 31 F8 BF 01 C4 7F ED 49 ...E.S8.1......I
004C50: 21 00 C0 11 00 40 01 A0 0F ED B0 CD 00 40 01 C0 !....@.......@..
004C60: 7F ED 49 0E 8C ED 49 21 42 03 11 E0 92 01 3A 2C ..I...I!B.....:,
004C70: ED B0 CD B4 7E CD D3 7E CD 56 8B CD 44 7F FB C3 ....~..~.V..D...
004C80: E0 79 CC CC EC CC CC CC EC CC CC CC EC CC CC CC .y..............
004C90: EC CC CC CC EC CC CC CC EC CC CC CC EC CC CC CC ................
004CA0: EC CC CC CC EC CC CC CC EC CC CC CC CC CC CC CC ................
004CB0: EC CC CC CC CC EC CC CC CC EC CC CC CC EC CC CC ................
004CC0: CC EC CC CC CC EC CC CC CC EC CC CC CC EC CC CC ................
004CD0: CC EC CC CC CC EC CC CC CC EC CC CC FF BB 33 39 ..............39
004CE0: CC EC CC CC CC CC EC CC CC CC EC CC CC CC EC CC ................
004CF0: CC CC EC CC CC CC EC CC CC CC EC CC CC CC EC CC ................
004D00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
004D10: 04 00 01 00 02 09 52 E5 04 00 41 02 00 00 00 02 ......R...A.....
004D20: 04 00 46 02 00 00 00 02 04 00 42 02 00 00 00 02 ..F.......B.....
004D30: 04 00 47 02 00 00 00 02 04 00 43 02 00 00 00 02 ..G.......C.....
004D40: 04 00 48 02 00 00 00 02 04 00 44 02 00 00 00 02 ..H.......D.....
004D50: 04 00 49 02 00 00 00 02 04 00 45 02 00 00 00 02 ..I.......E.....
004D60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004D70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004D80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004D90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004DA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004DB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004DC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004DD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004DE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004DF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004E00: 3D 20 54 52 55 45 3B 0D 0A 20 20 20 20 20 20 20 = TRUE;..
004E10: 20 20 20 20 20 20 20 49 46 20 66 6F 72 73 6F 65 IF forsoe
004E20: 67 20 3C 20 33 0D 0A 20 20 20 20 20 20 20 20 20 g < 3..
004E30: 20 20 20 20 20 20 20 54 48 45 4E 20 57 52 49 54 THEN WRIT
004E40: 45 4C 4E 28 27 53 76 61 72 65 74 20 65 72 20 69 ELN('Svaret er i
004E50: 6B 6B 65 20 6B 6F 72 72 65 6B 74 20 2D 20 50 72 kke korrekt - Pr
004E60: 7C 76 20 69 67 65 6E 3A 27 29 0D 0A 20 20 20 20 |v igen:')..
004E70: 20 20 20 20 20 20 20 20 20 20 20 20 45 4C 53 45 ELSE
004E80: 20 57 52 49 54 45 4C 4E 28 27 4E 65 6A 2C 20 64 WRITELN('Nej, d
004E90: 65 74 20 6B 6F 72 72 65 6B 74 65 20 73 76 61 72 et korrekte svar
004EA0: 20 65 72 20 27 2C 0D 0A 20 20 20 20 20 20 20 20 er ',..
004EB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
004EC0: 20 20 20 20 20 64 69 76 69 64 65 6E 64 2C 20 27 dividend, '
004ED0: 2F 27 2C 20 64 69 76 69 73 6F 72 29 3B 0D 0A 20 /', divisor);..
004EE0: 20 20 20 20 20 20 20 20 20 20 20 45 4E 44 3B 0D END;.
004EF0: 0A 20 20 20 20 20 20 55 4E 54 49 4C 20 28 66 6F . UNTIL (fo
004F00: 72 73 6F 65 67 20 3D 20 33 29 20 4F 52 0D 0A 20 rsoeg = 3) OR..
004F10: 20 20 20 20 20 20 20 20 20 20 20 28 28 64 69 76 ((div
004F20: 69 64 65 6E 64 20 3D 20 74 61 65 6C 6C 65 72 29 idend = taeller)
004F30: 20 41 4E 44 20 28 64 69 76 69 73 6F 72 20 3D 20 AND (divisor =
004F40: 6E 61 65 76 6E 65 72 29 29 3B 0D 0A 20 20 20 20 naevner));..
004F50: 20 20 57 52 49 54 45 28 27 54 61 73 74 20 3C 52 WRITE('Tast <R
004F60: 45 54 55 52 4E 3E 3A 20 27 29 3B 20 52 45 41 44 ETURN>: '); READ
004F70: 4C 4E 28 63 68 29 3B 0D 0A 20 20 20 20 55 4E 54 LN(ch);.. UNT
004F80: 49 4C 20 61 6E 74 61 6C 20 3D 20 35 3B 0D 0A 20 IL antal = 5;..
004F90: 20 20 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 WRITELN;..
004FA0: 20 43 41 53 45 20 72 69 67 74 69 67 65 20 4F 46 CASE rigtige OF
004FB0: 0D 0A 20 20 20 20 20 20 30 20 3A 20 57 52 49 54 .. 0 : WRIT
004FC0: 45 4C 4E 28 27 49 6B 6B 65 20 65 74 20 65 6E 65 ELN('Ikke et ene
004FD0: 73 74 65 20 72 69 67 74 69 67 74 20 73 76 61 72 ste rigtigt svar
004FE0: 21 20 4A 61 6D 65 6E 20 27 2C 20 6E 61 76 6E 2C ! Jamen ', navn,
004FF0: 20 27 20 64 6F 67 21 27 29 3B 0D 0A 20 20 20 20 ' dog!');..
005000: 73 6F 72 20 2B 20 31 3B 0D 0A 20 20 20 20 55 4E sor + 1;.. UN
005010: 54 49 4C 20 64 69 76 69 73 6F 72 20 3E 20 53 51 TIL divisor > SQ
005020: 52 54 28 68 65 6C 74 61 6C 29 3B 0D 0A 20 20 20 RT(heltal);..
005030: 20 57 52 49 54 45 4C 4E 28 68 65 6C 74 61 6C 20 WRITELN(heltal
005040: 3A 20 36 29 3B 0D 0A 20 20 45 4E 44 2E 0D 0A 1A : 6);.. END....
005050: 73 6F 72 20 3A 20 36 29 3B 0D 0A 20 20 20 20 20 sor : 6);..
005060: 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 END;..
005070: 20 64 69 76 69 73 6F 72 20 3A 3D 20 64 69 76 69 divisor := divi
005080: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005090: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0050A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0050B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0050C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0050D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0050E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0050F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005100: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005110: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005120: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005130: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005140: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005150: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005160: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005170: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005180: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005190: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0051A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0051B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0051C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0051D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0051E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0051F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005200: 20 20 31 20 3A 20 57 52 49 54 45 4C 4E 28 27 4B 1 : WRITELN('K
005210: 75 6E 20 31 20 72 69 67 74 69 67 74 20 73 76 61 un 1 rigtigt sva
005220: 72 20 2D 20 65 6C 65 6E 64 69 67 74 20 27 2C 20 r - elendigt ',
005230: 6E 61 76 6E 29 3B 0D 0A 20 20 20 20 20 20 32 20 navn);.. 2
005240: 3A 20 57 52 49 54 45 4C 4E 28 27 32 20 72 69 67 : WRITELN('2 rig
005250: 74 69 67 65 20 73 76 61 72 20 2D 20 64 65 74 20 tige svar - det
005260: 65 72 20 69 6B 6B 65 20 73 74 72 7D 6C 65 6E 64 er ikke str}lend
005270: 65 20 27 2C 20 6E 61 76 6E 29 3B 0D 0A 20 20 20 e ', navn);..
005280: 20 20 20 33 20 3A 20 57 52 49 54 45 4C 4E 28 27 3 : WRITELN('
005290: 33 20 72 69 67 74 69 67 65 20 73 76 61 72 20 2D 3 rigtige svar -
0052A0: 20 64 65 74 20 6B 75 6E 6E 65 20 76 7B 72 65 20 det kunne v{re
0052B0: 62 65 64 72 65 20 27 2C 20 6E 61 76 6E 29 3B 0D bedre ', navn);.
0052C0: 0A 20 20 20 20 20 20 34 20 3A 20 57 52 49 54 45 . 4 : WRITE
0052D0: 4C 4E 28 27 4B 75 6E 20 65 74 20 66 6F 72 6B 65 LN('Kun et forke
0052E0: 72 74 20 73 76 61 72 20 2D 20 69 6B 6B 65 20 76 rt svar - ikke v
0052F0: 7B 72 73 74 20 27 2C 20 6E 61 76 6E 29 3B 0D 0A {rst ', navn);..
005300: 20 20 20 20 20 20 35 20 3A 20 42 45 47 49 4E 0D 5 : BEGIN.
005310: 0A 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 . IF
005320: 66 65 6A 6C 0D 0A 20 20 20 20 20 20 20 20 20 20 fejl..
005330: 20 20 20 20 54 48 45 4E 20 57 52 49 54 45 4C 4E THEN WRITELN
005340: 28 27 47 6F 64 74 20 27 2C 20 6E 61 76 6E 2C 20 ('Godt ', navn,
005350: 27 20 35 20 72 69 67 74 69 67 65 20 73 76 61 72 ' 5 rigtige svar
005360: 20 2D 20 6F 6D 65 6E 64 20 27 2C 0D 0A 20 20 20 - omend ',..
005370: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
005380: 20 20 20 20 20 20 20 20 27 69 6B 6B 65 20 61 6C 'ikke al
005390: 6C 65 20 69 20 66 7C 72 73 74 65 20 66 6F 72 73 le i f|rste fors
0053A0: 7C 67 27 29 0D 0A 20 20 20 20 20 20 20 20 20 20 |g')..
0053B0: 20 20 20 20 45 4C 53 45 20 57 52 49 54 45 4C 4E ELSE WRITELN
0053C0: 28 27 50 65 72 66 65 6B 74 20 27 2C 20 6E 61 76 ('Perfekt ', nav
0053D0: 6E 2C 20 27 20 2D 20 64 65 74 20 6B 75 6E 6E 65 n, ' - det kunne
0053E0: 20 69 6B 6B 65 20 76 7B 72 65 20 62 65 64 72 65 ikke v{re bedre
0053F0: 21 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 !');..
005400: 20 20 20 20 20 20 20 20 50 52 4F 47 52 41 4D 20 PROGRAM
005410: 64 69 76 69 73 6F 72 32 3B 0D 0A 20 20 20 20 20 divisor2;..
005420: 20 20 20 0D 0A 20 20 20 20 20 20 20 20 56 41 52 .. VAR
005430: 0D 0A 20 20 20 20 20 20 20 20 20 20 74 61 6C 2C .. tal,
005440: 20 67 6C 74 61 6C 2C 20 66 61 6B 74 6F 72 2C 20 gltal, faktor,
005450: 64 69 76 69 73 6F 72 20 3A 20 49 4E 54 45 47 45 divisor : INTEGE
005460: 52 3B 0D 0A 20 20 20 20 20 20 20 20 0D 0A 20 20 R;.. ..
005470: 20 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 BEGIN..
005480: 20 20 20 20 20 20 20 57 52 49 54 45 28 43 48 52 WRITE(CHR
005490: 28 31 32 29 2C 20 27 49 6E 64 74 61 73 74 20 65 (12), 'Indtast e
0054A0: 74 20 68 65 6C 74 20 74 61 6C 3A 20 27 29 3B 20 t helt tal: ');
0054B0: 52 45 41 44 4C 4E 28 74 61 6C 29 3B 0D 0A 20 20 READLN(tal);..
0054C0: 20 20 20 20 20 20 20 20 57 52 49 54 45 28 27 49 WRITE('I
0054D0: 6E 64 74 61 73 74 20 64 69 76 69 73 6F 72 3A 20 ndtast divisor:
0054E0: 27 29 3B 20 52 45 41 44 4C 4E 28 64 69 76 69 73 '); READLN(divis
0054F0: 6F 72 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 or);..
005500: 66 61 6B 74 6F 72 20 3A 3D 20 30 3B 0D 0A 20 20 faktor := 0;..
005510: 20 20 20 20 20 20 20 20 67 6C 74 61 6C 20 3A 3D gltal :=
005520: 20 74 61 6C 3B 0D 0A 20 20 20 20 20 20 20 20 20 tal;..
005530: 20 57 48 49 4C 45 20 74 61 6C 20 4D 4F 44 20 64 WHILE tal MOD d
005540: 69 76 69 73 6F 72 20 3D 20 30 20 44 4F 0D 0A 20 ivisor = 0 DO..
005550: 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4E BEGIN
005560: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
005570: 66 61 6B 74 6F 72 20 3A 3D 20 66 61 6B 74 6F 72 faktor := faktor
005580: 20 2B 31 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 +1;..
005590: 20 20 20 20 74 61 6C 20 3A 3D 20 74 61 6C 20 44 tal := tal D
0055A0: 49 56 20 64 69 76 69 73 6F 72 3B 0D 0A 20 20 20 IV divisor;..
0055B0: 20 20 20 20 20 20 20 20 20 45 4E 44 3B 0D 0A 20 END;..
0055C0: 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E WRITELN
0055D0: 28 67 6C 74 61 6C 2C 20 27 20 69 6E 64 65 68 6F (gltal, ' indeho
0055E0: 6C 64 65 72 20 66 61 6B 74 6F 72 65 6E 20 27 2C lder faktoren ',
0055F0: 20 64 69 76 69 73 6F 72 2C 20 27 20 27 2C 0D 0A divisor, ' ',..
005600: 45 4E 44 3B 0D 0A 20 20 20 20 45 4E 44 3B 0D 0A END;.. END;..
005610: 20 20 45 4E 44 2E 20 28 2A 64 69 76 69 73 69 6F END. (*divisio
005620: 6E 20 2A 29 0D 0A 1A 20 20 20 20 20 20 20 20 20 n *)...
005630: 20 20 20 20 45 4C 53 45 20 57 52 49 54 45 4C 4E ELSE WRITELN
005640: 28 27 50 65 72 66 65 6B 74 20 27 2C 20 6E 61 76 ('Perfekt ', nav
005650: 6E 2C 20 27 20 2D 20 64 65 74 20 6B 75 6E 6E 65 n, ' - det kunne
005660: 20 69 6B 6B 65 20 76 7B 72 65 20 62 65 64 72 65 ikke v{re bedre
005670: 21 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 !');..
005680: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005690: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0056A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0056B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0056C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0056D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0056E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0056F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005700: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005710: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005720: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005730: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005740: 00 00 00 18 3C 7E FF 18 18 18 18 18 18 18 18 FF ....<~..........
005750: 7E 3C 18 10 30 70 FF FF 70 30 10 08 0C 0E FF FF ~<..0p..p0......
005760: 0E 0C 08 00 00 18 3C 7E FF FF 00 00 00 FF FF 7E ......<~.......~
005770: 3C 18 00 80 E0 F8 FE F8 E0 80 00 02 0E 3E FE 3E <............>.>
005780: 0E 02 00 38 38 92 7C 10 28 28 28 38 38 10 FE 10 ...88.|.(((88...
005790: 28 44 82 38 38 12 7C 90 28 24 22 38 38 90 7C 12 (D.88.|.($"88.|.
0057A0: 28 48 88 00 3C 18 3C 3C 3C 18 00 3C FF FF 18 0C (H..<.<<<..<....
0057B0: 18 30 18 18 3C 7E 18 18 7E 3C 18 00 24 66 FF 66 .0..<~..~<..$f.f
0057C0: 24 00 00 E5 A0 01 00 00 FC 1A 0B 16 F6 41 BC 70 $............A.p
0057D0: 7B ED EB 8F 57 F1 F7 4D DB 53 EC BD 86 62 B8 0F {...W..M.S...b..
0057E0: F2 AD 8B E9 04 0F 1C 8E 9C 8D 33 68 38 72 2C DE ..........3h8r,.
0057F0: F5 C5 3A 1C AD 4F CD 0F B9 79 32 15 AD C1 F1 ED ..:..O...y2.....
005800: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
005810: 20 20 66 61 6B 74 6F 72 2C 20 27 20 67 61 6E 67 faktor, ' gang
005820: 65 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 45 4E e');.. EN
005830: 44 2E 0D 0A 1A 20 20 20 20 45 4E 44 3B 0D 0A 20 D.... END;..
005840: 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E WRITELN
005850: 28 67 6C 74 61 6C 2C 20 27 20 69 6E 64 65 68 6F (gltal, ' indeho
005860: 6C 64 65 72 20 66 61 6B 74 6F 72 65 6E 20 27 2C lder faktoren ',
005870: 20 64 69 76 69 73 6F 72 2C 20 27 20 27 2C 0D 0A divisor, ' ',..
005880: 24 00 03 07 00 AA 00 3F 00 C0 00 10 00 02 00 02 $......?........
005890: 03 00 28 09 41 00 02 2A 52 60 43 50 43 20 43 50 ..(.A..*R`CPC CP
0058A0: 2F 4D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 /M
0058B0: 24 00 03 07 00 B3 00 3F 00 C0 00 10 00 00 00 02 $......?........
0058C0: 03 00 28 09 C1 00 02 2A 52 60 43 50 43 20 44 41 ..(....*R`CPC DA
0058D0: 54 41 20 20 20 20 20 20 20 20 20 20 20 20 20 20 TA
0058E0: 20 00 03 07 00 9B 00 3F 00 C0 00 10 00 01 00 02 ......?........
0058F0: 03 00 28 08 01 00 02 2A 50 60 43 50 43 20 49 42 ..(....*P`CPC IB
005900: 4D 20 20 20 20 20 20 20 20 20 20 20 20 20 30 A2 M 0.
005910: 03 00 00 0F 01 D1 00 7F 00 C0 00 20 00 00 00 02 ........... ....
005920: 03 01 2A 0A 21 00 02 18 28 60 44 72 61 67 6F 6E ..*.!...(`Dragon
005930: 42 72 65 65 64 20 34 32 30 4B DE F5 C5 3A 1C AD Breed 420K...:..
005940: 4F CD 0F B9 79 32 15 AD C1 F1 ED B0 F5 C5 0E 00 O...y2..........
005950: CD 0F B9 C1 F1 C9 02 2A 00 60 56 6F 72 74 FF 78 .......*.`Vort.x
005960: 20 20 20 20 20 20 01 00 20 20 20 20 20 20 20 20 ..
005970: 24 00 05 1F 03 B0 00 7F 00 80 00 20 00 02 00 02 $.......... ....
005980: 03 01 50 09 41 00 02 2A 52 60 58 44 44 4F 53 20 ..P.A..*R`XDDOS
005990: 43 50 2F 4D 20 20 20 20 20 20 20 20 20 20 20 20 CP/M
0059A0: 24 00 05 1F 03 B3 00 7F 00 80 00 20 00 00 00 02 $.......... ....
0059B0: 03 01 50 09 C1 00 02 2A 52 60 58 44 44 4F 53 20 ..P....*R`XDDOS
0059C0: 44 41 54 41 20 20 20 20 20 34 A4 04 00 5E 34 A3 DATA 4...^4£
0059D0: 00 01 C9 00 00 C9 00 00 C3 BB F2 C9 00 00 C3 72 ...............r
0059E0: 9E C3 85 9E C3 7E 9E C9 00 00 C9 00 00 00 00 00 .....~..........
0059F0: 00 00 FC 00 01 00 01 00 01 52 55 4E 22 44 49 53 .........RUN"DIS
005A00: FF FF FF BA BB FD FF FB F3 3C 3C 3C 28 00 00 00 .........<<<(...
005A10: 00 00 DC 38 30 33 33 FF FF FF FF FF FF BB FD FF ...8033.........
005A20: CF 3C 00 00 00 00 00 00 00 00 44 39 33 33 FF FF .<........D933..
005A30: FE FC 3C 3C 6D DD BB FC EF 8A 00 00 00 00 00 00 ..<<m...........
005A40: 00 00 00 44 FC FC FC FC FC 28 00 00 00 00 DF 27 ...D.....(.....'
005A50: 0F FD 3C 00 00 00 00 00 00 00 00 00 00 00 00 00 ..<.............
005A60: 00 00 00 00 00 00 00 DF 0E 0C 5B FF 3C 00 00 00 ..........[.<...
005A70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 14 ................
005A80: AF 0C 0C 0D F9 FF BC 00 00 00 00 00 00 00 00 00 ................
005A90: 00 00 00 00 00 00 00 00 7D 07 0C 0C 0D FC FF 32 ........}......2
005AA0: 28 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 (...............
005AB0: 01 75 07 0C 0C 0D 3C 3C FF 74 00 00 00 00 00 00 .u....<<.t......
005AC0: 00 00 00 00 00 00 00 00 00 B8 AB 07 0C 0C 0D A8 ................
005AD0: 00 3C 3C 00 00 00 00 00 00 00 00 00 00 00 00 00 .<<.............
005AE0: 00 54 FF BC 7C 0E 0C 4E A2 00 00 00 00 00 00 00 .T..|..N........
005AF0: 00 00 00 00 00 00 00 00 00 00 A9 16 00 00 8D 0F ................
005B00: 44 88 00 00 00 00 00 00 00 00 00 00 00 00 00 00 D...............
005B10: 00 00 00 00 00 00 44 00 00 00 00 00 00 00 00 00 ......D.........
005B20: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005B30: 3F 3F 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ??..............
005B40: 00 00 00 00 00 00 00 00 15 31 F9 2A 00 00 00 00 .........1.*....
005B50: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005B60: 00 3A 33 F9 B7 00 00 00 00 00 00 00 00 00 00 00 .:3.............
005B70: 00 00 00 00 00 00 00 00 00 00 3B B3 F9 B7 00 00 ..........;.....
005B80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005B90: 00 00 14 7B B3 F9 B7 28 00 00 00 00 00 00 00 00 ...{...(........
005BA0: 00 00 00 00 00 00 00 00 00 00 00 38 7B B3 F9 B7 ...........8{...
005BB0: BE 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005BC0: 00 00 00 FC B9 35 B3 F9 3F FE FC A8 00 00 00 00 .....5..?.......
005BD0: 00 00 00 00 00 00 00 00 00 00 FC FC 33 76 32 3B ............3v2;
005BE0: BD B6 BC 79 F6 FC A8 00 00 00 00 00 00 00 44 00 ...y..........D.
005BF0: 00 FC FC 32 30 30 33 12 31 FD B6 BC F3 FF FF FC ...2003.1.......
005C00: 20 20 20 20 20 20 20 20 50 52 4F 47 52 41 4D 20 PROGRAM
005C10: 64 6F 62 62 65 6C 74 3B 0D 0A 20 20 20 20 20 20 dobbelt;..
005C20: 20 20 0D 0A 20 20 20 20 20 20 20 20 20 20 54 59 .. TY
005C30: 50 45 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 PE..
005C40: 73 74 72 34 30 20 3D 20 53 54 52 49 4E 47 28 2E str40 = STRING(.
005C50: 34 30 2E 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 40.);..
005C60: 20 20 20 6C 69 6E 6B 20 3D 20 5E 20 70 6F 73 74 link = ^ post
005C70: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 70 ;.. p
005C80: 6F 73 74 20 3D 20 52 45 43 4F 52 44 0D 0A 20 20 ost = RECORD..
005C90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
005CA0: 20 20 20 66 72 65 6D 2C 20 74 69 6C 62 61 67 65 frem, tilbage
005CB0: 20 3A 20 6C 69 6E 6B 3B 0D 0A 20 20 20 20 20 20 : link;..
005CC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6E n
005CD0: 61 76 6E 20 3A 20 73 74 72 34 30 3B 0D 0A 20 20 avn : str40;..
005CE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
005CF0: 20 20 20 61 64 72 65 73 73 65 20 3A 20 73 74 72 adresse : str
005D00: 34 30 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 40;..
005D10: 20 20 20 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20 END;..
005D20: 20 20 20 20 20 20 20 20 0D 0A 20 20 20 20 20 20 ..
005D30: 20 20 20 20 56 41 52 0D 0A 20 20 20 20 20 20 20 VAR..
005D40: 20 20 20 20 20 75 64 2C 20 74 6F 70 2C 20 62 75 ud, top, bu
005D50: 6E 64 2C 20 70 70 20 3A 20 6C 69 6E 6B 3B 0D 0A nd, pp : link;..
005D60: 20 20 20 20 20 20 20 20 20 20 20 20 63 68 20 3A ch :
005D70: 20 43 48 41 52 3B 0D 0A 20 20 20 20 20 20 20 20 CHAR;..
005D80: 20 20 0D 0A 20 20 20 20 20 20 20 20 20 20 50 52 .. PR
005D90: 4F 43 45 44 55 52 45 20 72 65 74 75 72 6E 3B 0D OCEDURE return;.
005DA0: 0A 20 20 20 20 20 20 20 20 20 20 0D 0A 20 20 20 . ..
005DB0: 20 20 20 20 20 20 20 20 20 56 41 52 0D 0A 20 20 VAR..
005DC0: 20 20 20 20 20 20 20 20 20 20 20 20 63 68 20 3A ch :
005DD0: 20 43 48 41 52 3B 0D 0A 20 20 20 20 20 20 20 20 CHAR;..
005DE0: 20 20 0D 0A 20 20 20 20 20 20 20 20 20 20 42 45 .. BE
005DF0: 47 49 4E 20 28 2A 20 72 65 74 75 72 6E 20 2A 29 GIN (* return *)
005E00: 50 52 4F 47 52 41 4D 20 64 69 76 69 73 6F 72 3B PROGRAM divisor;
005E10: 0D 0A 0D 0A 28 2A 20 50 72 6F 67 72 61 6D 6D 65 ....(* Programme
005E20: 74 20 66 69 6E 64 65 72 20 64 69 76 69 73 6F 72 t finder divisor
005E30: 65 72 6E 65 20 69 20 65 74 20 68 65 6C 74 61 6C erne i et heltal
005E40: 20 2A 29 0D 0A 0D 0A 20 20 56 41 52 0D 0A 20 20 *).... VAR..
005E50: 20 20 68 65 6C 74 61 6C 2C 20 64 69 76 69 73 6F heltal, diviso
005E60: 72 20 3A 20 49 4E 54 45 47 45 52 3B 0D 0A 20 20 r : INTEGER;..
005E70: 0D 0A 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 57 .. BEGIN.. W
005E80: 52 49 54 45 28 43 4C 52 48 4F 4D 29 3B 0D 0A 20 RITE(CLRHOM);..
005E90: 20 20 20 57 52 49 54 45 28 27 49 6E 64 74 61 73 WRITE('Indtas
005EA0: 74 20 65 74 20 68 65 6C 74 61 6C 3A 20 27 29 3B t et heltal: ');
005EB0: 20 52 45 41 44 4C 4E 28 68 65 6C 74 61 6C 29 3B READLN(heltal);
005EC0: 0D 0A 20 20 20 20 57 52 49 54 45 4C 4E 28 68 65 .. WRITELN(he
005ED0: 6C 74 61 6C 2C 20 27 20 68 61 72 20 66 7C 6C 67 ltal, ' har f|lg
005EE0: 65 6E 64 65 20 64 69 76 69 73 6F 72 65 72 3A 27 ende divisorer:'
005EF0: 29 3B 0D 0A 20 20 20 20 64 69 76 69 73 6F 72 20 );.. divisor
005F00: 3A 3D 20 32 3B 0D 0A 20 20 20 20 52 45 50 45 41 := 2;.. REPEA
005F10: 54 0D 0A 20 20 20 20 20 20 49 46 20 28 68 65 6C T.. IF (hel
005F20: 74 61 6C 20 4D 4F 44 20 64 69 76 69 73 6F 72 29 tal MOD divisor)
005F30: 20 3D 20 30 0D 0A 20 20 20 20 20 20 20 20 54 48 = 0.. TH
005F40: 45 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 42 45 EN.. BE
005F50: 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 GIN..
005F60: 20 57 52 49 54 45 28 64 69 76 69 73 6F 72 20 3A WRITE(divisor :
005F70: 20 36 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 6);..
005F80: 20 20 49 46 20 64 69 76 69 73 6F 72 20 3C 3E 20 IF divisor <>
005F90: 28 68 65 6C 74 61 6C 20 44 49 56 20 64 69 76 69 (heltal DIV divi
005FA0: 73 6F 72 29 0D 0A 20 20 20 20 20 20 20 20 20 20 sor)..
005FB0: 20 20 20 20 54 48 45 4E 20 57 52 49 54 45 4C 4E THEN WRITELN
005FC0: 28 68 65 6C 74 61 6C 20 44 49 56 20 64 69 76 69 (heltal DIV divi
005FD0: 73 6F 72 20 3A 20 36 29 3B 0D 0A 20 20 20 20 20 sor : 6);..
005FE0: 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 END;..
005FF0: 20 64 69 76 69 73 6F 72 20 3A 3D 20 64 69 76 69 divisor := divi
006000: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
006010: 05 00 01 00 02 09 52 E5 05 00 41 02 00 00 00 02 ......R...A.....
006020: 05 00 46 02 00 00 00 02 05 00 42 02 00 00 00 02 ..F.......B.....
006030: 05 00 47 02 00 00 00 02 05 00 43 02 00 00 00 02 ..G.......C.....
006040: 05 00 48 02 00 00 00 02 05 00 44 02 00 00 00 02 ..H.......D.....
006050: 05 00 49 02 00 00 00 02 05 00 45 02 00 00 00 02 ..I.......E.....
006060: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
006070: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
006080: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
006090: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0060A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0060B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0060C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0060D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0060E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0060F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
006100: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 57 52 .. WR
006110: 49 54 45 28 27 54 61 73 74 20 3C 52 45 54 55 52 ITE('Tast <RETUR
006120: 4E 3E 3A 20 27 29 3B 0D 0A 20 20 20 20 20 20 20 N>: ');..
006130: 20 20 20 20 20 52 45 50 45 41 54 0D 0A 20 20 20 REPEAT..
006140: 20 20 20 20 20 20 20 20 20 20 20 52 45 41 44 28 READ(
006150: 4B 42 44 2C 20 63 68 29 3B 0D 0A 20 20 20 20 20 KBD, ch);..
006160: 20 20 20 20 20 20 20 55 4E 54 49 4C 20 63 68 20 UNTIL ch
006170: 3D 20 43 48 52 28 31 33 29 3B 0D 0A 20 20 20 20 = CHR(13);..
006180: 20 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E 3B WRITELN;
006190: 0D 0A 20 20 20 20 20 20 20 20 20 20 45 4E 44 3B .. END;
0061A0: 20 28 2A 20 72 65 74 75 72 6E 20 2A 29 0D 0A 20 (* return *)..
0061B0: 20 20 20 20 20 20 20 20 20 0D 0A 20 20 20 20 20 ..
0061C0: 20 20 20 20 20 50 52 4F 43 45 44 55 52 45 20 69 PROCEDURE i
0061D0: 6E 64 73 61 65 74 28 56 41 52 20 66 6F 65 72 73 ndsaet(VAR foers
0061E0: 74 65 2C 20 73 69 64 73 74 65 20 3A 20 6C 69 6E te, sidste : lin
0061F0: 6B 3B 20 6E 79 70 6F 73 74 20 3A 20 6C 69 6E 6B k; nypost : link
006200: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 );..
006210: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 56 41 .. VA
006220: 52 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 R..
006230: 20 66 6F 72 61 6E 2C 20 6B 61 6E 64 69 64 61 74 foran, kandidat
006240: 20 3A 20 6C 69 6E 6B 3B 0D 0A 20 20 20 20 20 20 : link;..
006250: 20 20 20 20 20 20 20 20 66 75 6E 64 65 74 20 3A fundet :
006260: 20 42 4F 4F 4C 45 41 4E 3B 0D 0A 20 20 20 20 20 BOOLEAN;..
006270: 20 20 20 20 20 20 20 0D 0A 20 20 20 20 20 20 20 ..
006280: 20 20 20 20 20 42 45 47 49 4E 20 28 2A 20 69 6E BEGIN (* in
006290: 64 73 61 65 74 20 2A 29 0D 0A 20 20 20 20 20 20 dsaet *)..
0062A0: 20 20 20 20 20 20 20 20 49 46 20 66 6F 65 72 73 IF foers
0062B0: 74 65 20 3D 20 4E 49 4C 20 28 2A 20 6B 7B 64 65 te = NIL (* k{de
0062C0: 6E 20 65 72 20 74 6F 6D 20 2A 29 0D 0A 20 20 20 n er tom *)..
0062D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 THE
0062E0: 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 N..
0062F0: 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 BEGIN..
006300: 20 20 20 20 20 20 20 20 20 20 49 46 20 66 6F 65 IF foe
006310: 72 73 74 65 5E 2E 66 72 65 6D 20 3D 20 4E 49 4C rste^.frem = NIL
006320: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
006330: 20 20 20 20 20 20 54 48 45 4E 0D 0A 20 20 20 20 THEN..
006340: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006350: 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 BEGIN..
006360: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006370: 20 66 6F 65 72 73 74 65 20 3A 3D 20 4E 49 4C 3B foerste := NIL;
006380: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
006390: 20 20 20 20 20 20 20 20 20 20 73 69 64 73 74 65 sidste
0063A0: 20 3A 3D 20 4E 49 4C 3B 0D 0A 20 20 20 20 20 20 := NIL;..
0063B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0063C0: 20 20 66 75 6E 64 65 74 20 3A 3D 20 54 52 55 45 fundet := TRUE
0063D0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ;..
0063E0: 20 20 20 20 20 20 20 20 20 45 4E 44 0D 0A 20 20 END..
0063F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006400: 20 20 45 4C 53 45 0D 0A 20 20 20 20 20 20 20 20 ELSE..
006410: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 45 BE
006420: 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 GIN..
006430: 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6F 65 foe
006440: 72 73 74 65 5E 2E 66 72 65 6D 5E 2E 74 69 6C 62 rste^.frem^.tilb
006450: 61 67 65 20 3A 3D 20 4E 49 4C 3B 0D 0A 20 20 20 age := NIL;..
006460: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006470: 20 20 20 20 20 66 6F 65 72 73 74 65 20 3A 3D 20 foerste :=
006480: 66 6F 65 72 73 74 65 5E 2E 66 72 65 6D 3B 0D 0A foerste^.frem;..
006490: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0064A0: 20 20 20 20 20 20 20 20 66 75 6E 64 65 74 20 3A fundet :
0064B0: 3D 20 54 52 55 45 3B 0D 0A 20 20 20 20 20 20 20 = TRUE;..
0064C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 E
0064D0: 4E 44 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 ND..
0064E0: 20 20 45 4C 53 45 20 28 2A 20 53 7C 67 20 65 66 ELSE (* S|g ef
0064F0: 74 65 72 20 6E 61 76 6E 65 74 20 2A 29 0D 0A 20 ter navnet *)..
006500: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006510: 66 6F 65 72 73 74 65 20 3A 3D 20 6E 79 70 6F 73 foerste := nypos
006520: 74 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 t;..
006530: 20 20 20 20 20 20 20 20 73 69 64 73 74 65 20 3A sidste :
006540: 3D 20 6E 79 70 6F 73 74 3B 0D 0A 20 20 20 20 20 = nypost;..
006550: 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4E 44 END
006560: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
006570: 45 4C 53 45 20 49 46 20 6E 79 70 6F 73 74 5E 2E ELSE IF nypost^.
006580: 6E 61 76 6E 20 3C 20 66 6F 65 72 73 74 65 5E 2E navn < foerste^.
006590: 6E 61 76 6E 20 28 2A 20 66 7C 72 20 66 7C 72 73 navn (* f|r f|rs
0065A0: 74 65 20 70 6F 73 74 20 2A 29 0D 0A 20 20 20 20 te post *)..
0065B0: 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4E THEN
0065C0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
0065D0: 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 BEGIN..
0065E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6E n
0065F0: 79 70 6F 73 74 5E 2E 66 72 65 6D 20 3A 3D 66 6F ypost^.frem :=fo
006600: 65 72 73 74 65 3B 0D 0A 20 20 20 20 20 20 20 20 erste;..
006610: 20 20 20 20 20 20 20 20 20 20 20 20 66 6F 65 72 foer
006620: 73 74 65 5E 2E 74 69 6C 62 61 67 65 20 3A 3D 20 ste^.tilbage :=
006630: 6E 79 70 6F 73 74 3B 0D 0A 20 20 20 20 20 20 20 nypost;..
006640: 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6F 65 foe
006650: 72 73 74 65 20 3A 3D 6E 79 70 6F 73 74 3B 0D 0A rste :=nypost;..
006660: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006670: 20 20 45 4E 44 0D 0A 20 20 20 20 20 20 20 20 20 END..
006680: 20 20 20 20 20 45 4C 53 45 20 28 2A 20 66 69 6E ELSE (* fin
006690: 64 20 72 69 67 74 69 67 20 70 6C 61 64 73 20 74 d rigtig plads t
0066A0: 69 6C 20 6E 79 70 6F 73 74 20 2A 29 0D 0A 20 20 il nypost *)..
0066B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 45 BE
0066C0: 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 GIN..
0066D0: 20 20 20 20 20 20 20 66 75 6E 64 65 74 20 3A 3D fundet :=
0066E0: 46 41 4C 53 45 3B 0D 0A 20 20 20 20 20 20 20 20 FALSE;..
0066F0: 20 20 20 20 20 20 20 20 20 20 66 6F 72 61 6E 20 foran
006700: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 B
006710: 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 EGIN..
006720: 20 20 20 20 20 20 20 20 66 75 6E 64 65 74 20 3A fundet :
006730: 3D 20 46 41 4C 53 45 3B 0D 0A 20 20 20 20 20 20 = FALSE;..
006740: 20 20 20 20 20 20 20 20 20 20 20 20 66 6F 72 61 fora
006750: 6E 20 3A 3D 20 66 6F 65 72 73 74 65 3B 0D 0A 20 n := foerste;..
006760: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006770: 20 6B 61 6E 64 69 64 61 74 20 3A 3D 20 66 6F 65 kandidat := foe
006780: 72 73 74 65 5E 2E 66 72 65 6D 3B 0D 0A 20 20 20 rste^.frem;..
006790: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 W
0067A0: 48 49 4C 45 20 28 6B 61 6E 64 69 64 61 74 20 3C HILE (kandidat <
0067B0: 3E 20 4E 49 4C 29 20 41 4E 44 20 4E 4F 54 20 66 > NIL) AND NOT f
0067C0: 75 6E 64 65 74 20 44 4F 0D 0A 20 20 20 20 20 20 undet DO..
0067D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 IF
0067E0: 20 67 6C 70 6F 73 74 5E 2E 6E 61 76 6E 20 3D 20 glpost^.navn =
0067F0: 6B 61 6E 64 69 64 61 74 5E 2E 6E 61 76 6E 0D 0A kandidat^.navn..
006800: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006810: 20 20 20 20 20 20 54 48 45 4E 0D 0A 20 20 20 20 THEN..
006820: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006830: 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 BEGIN..
006840: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006850: 20 20 20 20 20 49 46 20 6B 61 6E 64 69 64 61 74 IF kandidat
006860: 20 3C 3E 20 73 69 64 73 74 65 0D 0A 20 20 20 20 <> sidste..
006870: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006880: 20 20 20 20 20 20 20 20 54 48 45 4E 0D 0A 20 20 THEN..
006890: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0068A0: 20 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 BEGI
0068B0: 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 N..
0068C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0068D0: 20 20 20 66 6F 72 61 6E 5E 2E 66 72 65 6D 20 3A foran^.frem :
0068E0: 3D 20 6B 61 6E 64 69 64 61 74 5E 2E 66 72 65 6D = kandidat^.frem
0068F0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ;..
006900: 3A 3D 20 66 6F 65 72 73 74 65 3B 0D 0A 20 20 20 := foerste;..
006910: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6B k
006920: 61 6E 64 69 64 61 74 20 3A 3D 66 6F 65 72 73 74 andidat :=foerst
006930: 65 5E 2E 66 72 65 6D 3B 0D 0A 20 20 20 20 20 20 e^.frem;..
006940: 20 20 20 20 20 20 20 20 20 20 20 20 57 48 49 4C WHIL
006950: 45 20 28 6B 61 6E 64 69 64 61 74 20 3C 3E 20 4E E (kandidat <> N
006960: 49 4C 29 20 41 4E 44 20 4E 4F 54 20 66 75 6E 64 IL) AND NOT fund
006970: 65 74 20 44 4F 0D 0A 20 20 20 20 20 20 20 20 20 et DO..
006980: 20 20 20 20 20 20 20 20 20 20 20 49 46 20 6E 79 IF ny
006990: 70 6F 73 74 5E 2E 6E 61 76 6E 20 3C 20 6B 61 6E post^.navn < kan
0069A0: 64 69 64 61 74 5E 2E 6E 61 76 6E 0D 0A 20 20 20 didat^.navn..
0069B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0069C0: 20 20 20 54 48 45 4E 20 66 75 6E 64 65 74 20 3A THEN fundet :
0069D0: 3D 20 54 52 55 45 0D 0A 20 20 20 20 20 20 20 20 = TRUE..
0069E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4C EL
0069F0: 53 45 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 SE..
006A00: 20 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 BEGI
006A10: 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 N..
006A20: 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6F 72 for
006A30: 61 6E 20 3A 3D 20 6B 61 6E 64 69 64 61 74 3B 0D an := kandidat;.
006A40: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
006A50: 20 20 20 20 20 20 20 20 20 20 20 6B 61 6E 64 69 kandi
006A60: 64 61 74 20 3A 3D 20 6B 61 6E 64 69 64 61 74 5E dat := kandidat^
006A70: 2E 66 72 65 6D 3B 0D 0A 20 20 20 20 20 20 20 20 .frem;..
006A80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006A90: 45 4E 44 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 END;..
006AA0: 20 20 20 20 20 20 20 20 49 46 20 66 6F 72 61 6E IF foran
006AB0: 20 3C 3E 20 73 69 64 73 74 65 0D 0A 20 20 20 20 <> sidste..
006AC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006AD0: 54 48 45 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 THEN..
006AE0: 20 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 BEGI
006AF0: 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 N..
006B00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006B10: 20 20 20 6B 61 6E 64 69 64 61 74 5E 2E 66 72 65 kandidat^.fre
006B20: 6D 5E 2E 74 69 6C 62 61 67 65 20 3A 3D 20 66 6F m^.tilbage := fo
006B30: 72 61 6E 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 ran;..
006B40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006B50: 20 20 20 20 45 4E 44 0D 0A 20 20 20 20 20 20 20 END..
006B60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006B70: 20 20 20 20 20 45 4C 53 45 0D 0A 20 20 20 20 20 ELSE..
006B80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006B90: 20 20 20 20 20 20 20 20 20 42 45 47 49 4E 0D 0A BEGIN..
006BA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006BB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006BC0: 66 6F 72 61 6E 5E 2E 66 72 65 6D 20 3A 3D 20 4E foran^.frem := N
006BD0: 49 4C 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 IL;..
006BE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006BF0: 20 20 20 20 20 73 69 64 73 74 65 20 3A 3D 20 66 sidste := f
006C00: 6F 72 61 6E 3B 0D 0A 20 20 20 20 20 20 20 20 20 oran;..
006C10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006C20: 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 END;..
006C30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006C40: 20 20 20 20 20 66 75 6E 64 65 74 20 3A 3D 20 54 fundet := T
006C50: 52 55 45 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 RUE;..
006C60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4E EN
006C70: 44 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 D..
006C80: 20 20 20 20 20 20 20 20 20 45 4C 53 45 0D 0A 20 ELSE..
006C90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006CA0: 20 20 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 BEGIN..
006CB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006CC0: 20 20 20 20 20 20 20 20 66 6F 72 61 6E 20 3A 3D foran :=
006CD0: 20 6B 61 6E 64 69 64 61 74 3B 0D 0A 20 20 20 20 kandidat;..
006CE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006CF0: 20 20 20 20 20 20 6B 61 6E 64 69 64 61 74 20 3A kandidat :
006D00: 20 20 20 20 20 20 20 20 20 20 20 6E 79 70 6F 73 nypos
006D10: 74 5E 2E 66 72 65 6D 20 3A 3D 20 6B 61 6E 64 69 t^.frem := kandi
006D20: 64 61 74 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 dat;..
006D30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6E 79 ny
006D40: 70 6F 73 74 5E 2E 74 69 6C 62 61 67 65 20 3A 3D post^.tilbage :=
006D50: 20 66 6F 72 61 6E 3B 0D 0A 20 20 20 20 20 20 20 foran;..
006D60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006D70: 20 6B 61 6E 64 69 64 61 74 5E 2E 74 69 6C 62 61 kandidat^.tilba
006D80: 67 65 20 3A 3D 20 6E 79 70 6F 73 74 3B 0D 0A 20 ge := nypost;..
006D90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006DA0: 20 20 20 20 20 20 20 66 6F 72 61 6E 5E 2E 66 72 foran^.fr
006DB0: 65 6D 20 3A 3D 6E 79 70 6F 73 74 3B 0D 0A 20 20 em :=nypost;..
006DC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006DD0: 20 20 20 20 45 4E 44 0D 0A 20 20 20 20 20 20 20 END..
006DE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4C 53 ELS
006DF0: 45 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 E..
006E00: 20 20 20 20 20 20 20 20 20 42 45 47 49 4E 0D 0A BEGIN..
006E10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006E20: 20 20 20 20 20 20 20 20 66 6F 72 61 6E 5E 2E 66 foran^.f
006E30: 72 65 6D 20 3A 3D 20 6E 79 70 6F 73 74 3B 0D 0A rem := nypost;..
006E40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006E50: 20 20 20 20 20 20 20 20 6E 79 70 6F 73 74 5E 2E nypost^.
006E60: 74 69 6C 62 61 67 65 20 3A 3D 20 66 6F 72 61 6E tilbage := foran
006E70: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ;..
006E80: 20 20 20 20 20 20 20 20 20 20 20 73 69 64 73 74 sidst
006E90: 65 20 3A 3D 20 6E 79 70 6F 73 74 3B 0D 0A 20 20 e := nypost;..
006EA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006EB0: 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 END;..
006EC0: 20 20 20 20 20 20 20 20 20 20 45 4E 44 3B 0D 0A END;..
006ED0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 52 WR
006EE0: 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 20 20 20 20 ITELN;..
006EF0: 20 20 20 20 20 20 57 52 49 54 45 28 6E 79 70 6F WRITE(nypo
006F00: 3D 20 6B 61 6E 64 69 64 61 74 5E 2E 66 72 65 6D = kandidat^.frem
006F10: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ;..
006F20: 20 20 20 20 20 20 20 20 20 20 20 45 4E 44 3B 0D END;.
006F30: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
006F40: 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 20 20 20 END;..
006F50: 20 20 20 20 20 49 46 20 66 75 6E 64 65 74 0D 0A IF fundet..
006F60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006F70: 54 48 45 4E 20 57 52 49 54 45 28 67 6C 70 6F 73 THEN WRITE(glpos
006F80: 74 5E 2E 6E 61 76 6E 2C 20 27 20 65 72 20 73 6C t^.navn, ' er sl
006F90: 65 74 74 65 74 20 66 72 61 20 6B 7B 64 65 6E 2E ettet fra k{den.
006FA0: 20 27 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20 ')..
006FB0: 20 20 20 20 20 45 4C 53 45 20 57 52 49 54 45 28 ELSE WRITE(
006FC0: 67 6C 70 6F 73 74 5E 2E 6E 61 76 6E 2C 20 27 20 glpost^.navn, '
006FD0: 66 69 6E 64 65 73 20 69 6B 6B 65 20 69 20 6B 7B findes ikke i k{
006FE0: 64 65 6E 2E 20 27 29 3B 0D 0A 20 20 20 20 20 20 den. ');..
006FF0: 20 20 20 20 20 20 20 20 72 65 74 75 72 6E 3B 0D return;.
007000: 0A 20 20 20 20 20 20 20 20 20 20 20 20 45 4E 44 . END
007010: 3B 20 28 2A 20 66 6A 65 72 6E 20 2A 29 0D 0A 20 ; (* fjern *)..
007020: 20 20 20 20 20 20 20 20 20 0D 0A 20 20 20 20 20 ..
007030: 20 20 20 20 20 50 52 4F 43 45 44 55 52 45 20 75 PROCEDURE u
007040: 64 73 6B 72 69 76 66 72 65 6D 28 66 6F 65 72 73 dskrivfrem(foers
007050: 74 65 20 3A 20 6C 69 6E 6B 29 3B 0D 0A 20 20 20 te : link);..
007060: 20 20 20 20 20 20 20 0D 0A 20 20 20 20 20 20 20 ..
007070: 20 20 20 20 20 56 41 52 0D 0A 20 20 20 20 20 20 VAR..
007080: 20 20 20 20 20 20 20 20 70 70 20 3A 20 6C 69 6E pp : lin
007090: 6B 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 k;..
0070A0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 42 45 .. BE
0070B0: 47 49 4E 20 28 2A 20 75 64 73 6B 72 69 76 66 72 GIN (* udskrivfr
0070C0: 65 6D 20 2A 29 0D 0A 20 20 20 20 20 20 20 20 20 em *)..
0070D0: 20 20 20 20 20 70 70 20 3A 3D 20 66 6F 65 72 73 pp := foers
0070E0: 74 65 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 te;..
0070F0: 20 20 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 WRITELN;..
007100: 73 74 5E 2E 6E 61 76 6E 2C 20 27 20 65 72 20 6E st^.navn, ' er n
007110: 75 20 69 6E 64 73 61 74 20 69 20 6B 7B 64 65 6E u indsat i k{den
007120: 2E 20 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 . ');..
007130: 20 20 20 20 20 72 65 74 75 72 6E 3B 0D 0A 20 20 return;..
007140: 20 20 20 20 20 20 20 20 20 20 45 4E 44 3B 20 28 END; (
007150: 2A 20 69 6E 64 73 61 65 74 20 2A 29 0D 0A 20 20 * indsaet *)..
007160: 20 20 20 20 20 20 20 20 0D 0A 20 20 20 20 20 20 ..
007170: 20 20 20 20 50 52 4F 43 45 44 55 52 45 20 66 6A PROCEDURE fj
007180: 65 72 6E 28 56 41 52 20 66 6F 65 72 73 74 65 2C ern(VAR foerste,
007190: 20 73 69 64 73 74 65 20 3A 20 6C 69 6E 6B 3B 20 sidste : link;
0071A0: 67 6C 70 6F 73 74 20 3A 20 6C 69 6E 6B 29 3B 0D glpost : link);.
0071B0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 0D 0A 20 . ..
0071C0: 20 20 20 20 20 20 20 20 20 20 20 56 41 52 0D 0A VAR..
0071D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6F fo
0071E0: 72 61 6E 2C 20 6B 61 6E 64 69 64 61 74 20 3A 20 ran, kandidat :
0071F0: 6C 69 6E 6B 3B 0D 0A 20 20 20 20 20 20 20 20 20 link;..
007200: 20 20 20 20 20 66 75 6E 64 65 74 20 3A 20 42 4F fundet : BO
007210: 4F 4C 45 41 4E 3B 0D 0A 20 20 20 20 20 20 20 20 OLEAN;..
007220: 20 20 20 20 0D 0A 20 20 20 20 20 20 20 20 20 20 ..
007230: 20 20 42 45 47 49 4E 20 28 2A 20 66 6A 65 72 6E BEGIN (* fjern
007240: 20 2A 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20 *)..
007250: 20 20 20 49 46 20 66 6F 65 72 73 74 65 20 3D 20 IF foerste =
007260: 4E 49 4C 20 28 2A 20 6B 7B 64 65 6E 20 74 6F 6D NIL (* k{den tom
007270: 20 2A 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20 *)..
007280: 20 20 20 20 20 54 48 45 4E 20 66 75 6E 64 65 74 THEN fundet
007290: 20 3A 3D 20 46 41 4C 53 45 0D 0A 20 20 20 20 20 := FALSE..
0072A0: 20 20 20 20 20 20 20 20 20 45 4C 53 45 20 49 46 ELSE IF
0072B0: 20 66 6F 65 72 73 74 65 5E 2E 6E 61 76 6E 20 3D foerste^.navn =
0072C0: 20 67 6C 70 6F 73 74 5E 2E 6E 61 76 6E 20 28 2A glpost^.navn (*
0072D0: 20 66 6A 65 72 6E 20 70 6F 73 74 20 31 20 2A 29 fjern post 1 *)
0072E0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
0072F0: 20 20 54 48 45 4E 0D 0A 20 20 20 20 20 20 20 20 THEN..
007300: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
007310: 06 00 01 00 02 09 52 E5 06 00 41 02 00 00 00 02 ......R...A.....
007320: 06 00 46 02 00 00 00 02 06 00 42 02 00 00 00 02 ..F.......B.....
007330: 06 00 47 02 00 00 00 02 06 00 43 02 00 00 00 02 ..G.......C.....
007340: 06 00 48 02 00 00 00 02 06 00 44 02 00 00 00 02 ..H.......D.....
007350: 06 00 49 02 00 00 00 02 06 00 45 02 00 00 00 02 ..I.......E.....
007360: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007370: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007380: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007390: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0073A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0073B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0073C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0073D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0073E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0073F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007400: 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 WRITE
007410: 4C 4E 28 27 4B 7B 64 65 6E 20 69 6E 64 65 68 6F LN('K{den indeho
007420: 6C 64 65 72 20 66 7C 6C 67 65 6E 64 65 20 70 65 lder f|lgende pe
007430: 72 73 6F 6E 65 72 3A 27 29 3B 0D 0A 20 20 20 20 rsoner:');..
007440: 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4C WRITEL
007450: 4E 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 N;..
007460: 20 20 57 48 49 4C 45 20 70 70 20 3C 3E 20 4E 49 WHILE pp <> NI
007470: 4C 20 44 4F 0D 0A 20 20 20 20 20 20 20 20 20 20 L DO..
007480: 20 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 BEGIN..
007490: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 W
0074A0: 52 49 54 45 4C 4E 28 70 70 5E 2E 6E 61 76 6E 29 RITELN(pp^.navn)
0074B0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ;..
0074C0: 20 20 20 20 20 57 52 49 54 45 4C 4E 28 70 70 5E WRITELN(pp^
0074D0: 2E 61 64 72 65 73 73 65 29 3B 0D 0A 20 20 20 20 .adresse);..
0074E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 52 WR
0074F0: 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 20 20 20 20 ITELN;..
007500: 20 20 20 20 20 20 20 20 20 20 70 70 20 3A 3D 20 pp :=
007510: 70 70 5E 2E 66 72 65 6D 3B 0D 0A 20 20 20 20 20 pp^.frem;..
007520: 20 20 20 20 20 20 20 20 20 20 20 45 4E 44 3B 0D END;.
007530: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 . r
007540: 65 74 75 72 6E 3B 0D 0A 20 20 20 20 20 20 20 20 eturn;..
007550: 20 20 20 20 45 4E 44 3B 20 28 2A 20 75 64 73 6B END; (* udsk
007560: 72 69 76 66 72 65 6D 20 2A 29 0D 0A 20 20 20 20 rivfrem *)..
007570: 20 20 20 20 20 0D 0A 20 20 20 20 20 20 20 20 20 ..
007580: 20 50 52 4F 43 45 44 55 52 45 20 75 64 73 6B 72 PROCEDURE udskr
007590: 69 76 74 69 6C 62 61 67 65 28 73 69 64 73 74 65 ivtilbage(sidste
0075A0: 20 3A 20 6C 69 6E 6B 29 3B 0D 0A 20 20 20 20 20 : link);..
0075B0: 20 20 20 20 20 0D 0A 20 20 20 20 20 20 20 20 20 ..
0075C0: 20 20 20 56 41 52 0D 0A 20 20 20 20 20 20 20 20 VAR..
0075D0: 20 20 20 20 20 20 70 70 20 3A 20 6C 69 6E 6B 3B pp : link;
0075E0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 0D 0A .. ..
0075F0: 20 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 BEGI
007600: 76 74 69 6C 62 61 67 65 28 62 75 6E 64 29 3B 0D vtilbage(bund);.
007610: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 . E
007620: 4E 44 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 ND;..
007630: 20 55 4E 54 49 4C 20 63 68 20 49 4E 20 28 2E 27 UNTIL ch IN (.'
007640: 41 27 2C 20 27 61 27 2E 29 3B 0D 0A 20 20 20 20 A', 'a'.);..
007650: 20 20 20 20 20 20 45 4E 44 2E 20 28 2A 20 64 6F END. (* do
007660: 62 62 65 6C 74 20 2A 29 0D 0A 1A 20 20 20 20 27 bbelt *)... '
007670: 42 27 2C 20 27 62 27 20 3A 20 75 64 73 6B 72 69 B', 'b' : udskri
007680: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007690: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0076A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0076B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0076C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0076D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0076E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0076F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007700: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007710: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007720: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007730: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007740: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007750: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007760: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007770: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007780: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007790: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0077A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0077B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0077C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0077D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0077E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0077F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007800: 4E 20 28 2A 20 75 64 73 6B 72 69 76 74 69 6C 62 N (* udskrivtilb
007810: 61 67 65 20 2A 29 0D 0A 20 20 20 20 20 20 20 20 age *)..
007820: 20 20 20 20 20 20 70 70 20 3A 3D 20 73 69 64 73 pp := sids
007830: 74 65 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 te;..
007840: 20 20 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 WRITELN;..
007850: 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 WRITE
007860: 4C 4E 28 27 4B 7B 64 65 6E 20 69 6E 64 65 68 6F LN('K{den indeho
007870: 6C 64 65 72 20 66 7C 6C 67 65 6E 64 65 20 70 65 lder f|lgende pe
007880: 72 73 6F 6E 65 72 3A 27 29 3B 0D 0A 20 20 20 20 rsoner:');..
007890: 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4C WRITEL
0078A0: 4E 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 N;..
0078B0: 20 20 57 48 49 4C 45 20 70 70 20 3C 3E 20 4E 49 WHILE pp <> NI
0078C0: 4C 20 44 4F 0D 0A 20 20 20 20 20 20 20 20 20 20 L DO..
0078D0: 20 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 BEGIN..
0078E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 W
0078F0: 52 49 54 45 4C 4E 28 70 70 5E 2E 6E 61 76 6E 29 RITELN(pp^.navn)
007900: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ;..
007910: 20 20 20 20 20 57 52 49 54 45 4C 4E 28 70 70 5E WRITELN(pp^
007920: 2E 61 64 72 65 73 73 65 29 3B 0D 0A 20 20 20 20 .adresse);..
007930: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 52 WR
007940: 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 20 20 20 20 ITELN;..
007950: 20 20 20 20 20 20 20 20 20 20 70 70 20 3A 3D 20 pp :=
007960: 70 70 5E 2E 74 69 6C 62 61 67 65 3B 0D 0A 20 20 pp^.tilbage;..
007970: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4E EN
007980: 44 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 D;..
007990: 20 20 72 65 74 75 72 6E 3B 0D 0A 20 20 20 20 20 return;..
0079A0: 20 20 20 20 20 20 20 45 4E 44 3B 20 28 2A 20 75 END; (* u
0079B0: 64 73 6B 72 69 76 74 69 6C 62 61 67 65 20 2A 29 dskrivtilbage *)
0079C0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 0D 0A .. ..
0079D0: 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4E 20 BEGIN
0079E0: 28 2A 20 64 6F 62 62 65 6C 74 20 2A 29 0D 0A 20 (* dobbelt *)..
0079F0: 20 20 20 20 20 20 20 20 20 20 20 74 6F 70 20 3A top :
007A00: 20 20 20 0D 0A 20 20 20 20 20 20 54 68 65 72 65 .. There
007A10: 20 77 61 73 20 61 20 6C 6F 74 20 6F 66 20 70 65 was a lot of pe
007A20: 6F 70 6C 65 2C 20 74 68 65 72 65 20 77 61 73 20 ople, there was
007A30: 73 69 74 74 69 6E 67 20 69 6E 20 74 68 65 20 64 sitting in the d
007A40: 65 63 6B 20 63 68 61 69 72 73 2E 0D 0A 20 20 20 eck chairs...
007A50: 20 20 20 0D 0A 20 20 20 20 20 20 4F 6E 65 20 6F .. One o
007A60: 66 20 74 68 65 6D 20 77 61 73 20 73 69 74 74 69 f them was sitti
007A70: 6E 67 20 77 69 74 68 20 68 65 72 20 66 65 65 74 ng with her feet
007A80: 73 20 69 6E 20 61 20 70 61 69 6C 20 6F 66 20 77 s in a pail of w
007A90: 61 74 65 72 2E 0D 0A 20 20 20 20 20 20 0D 0A 20 ater... ..
007AA0: 20 20 20 20 20 41 6E 20 6F 74 68 65 72 20 77 61 An other wa
007AB0: 73 20 73 6D 6F 6B 69 6E 67 20 68 69 73 20 70 69 s smoking his pi
007AC0: 70 65 2E 20 54 68 65 20 72 65 73 74 20 6F 66 20 pe. The rest of
007AD0: 74 68 65 20 70 65 6F 70 6C 65 20 77 61 73 20 73 the people was s
007AE0: 6C 65 65 70 69 6E 67 0D 0A 20 20 20 20 20 20 0D leeping.. .
007AF0: 0A 20 20 20 20 20 20 69 6E 20 74 68 65 69 72 20 . in their
007B00: 64 65 63 6B 20 63 68 61 69 72 73 2E 20 41 20 63 deck chairs. A c
007B10: 68 69 6C 64 20 68 61 64 20 62 75 69 6C 64 65 64 hild had builded
007B20: 20 73 6F 6D 65 20 6E 69 63 65 20 74 6F 77 65 72 some nice tower
007B30: 73 2C 0D 0A 20 20 20 20 20 20 0D 0A 20 20 20 20 s,.. ..
007B40: 20 20 62 75 74 20 74 68 65 79 20 77 65 72 65 20 but they were
007B50: 66 75 6C 6C 20 6F 66 20 6F 69 6C 2E 0D 0A 20 20 full of oil...
007B60: 20 20 20 20 0D 0A 20 20 20 20 20 20 41 20 64 6F .. A do
007B70: 67 2C 20 67 6F 69 6E 67 20 69 6E 20 74 68 65 20 g, going in the
007B80: 73 61 6E 64 2C 20 6D 65 74 20 61 20 77 6F 6D 61 sand, met a woma
007B90: 6E 20 61 6E 64 20 6A 75 6D 70 65 64 20 6F 6E 20 n and jumped on
007BA0: 68 65 72 2E 0D 0A 20 20 20 20 20 20 0D 0A 20 20 her... ..
007BB0: 20 20 20 20 48 65 72 20 64 72 65 73 73 20 62 65 Her dress be
007BC0: 63 61 6D 65 20 66 75 6C 6C 20 6F 66 20 62 6C 61 came full of bla
007BD0: 63 6B 20 64 6F 79 73 70 61 77 2E 28 4B 65 6E 64 ck doyspaw.(Kend
007BE0: 65 72 20 69 6B 6B 65 20 6F 72 64 65 74 29 0D 0A er ikke ordet)..
007BF0: 20 20 20 20 20 20 0D 0A 20 20 20 20 20 20 41 20 .. A
007C00: 3D 20 4E 49 4C 3B 0D 0A 20 20 20 20 20 20 20 20 = NIL;..
007C10: 20 20 20 20 62 75 6E 64 20 3A 3D 20 4E 49 4C 3B bund := NIL;
007C20: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 4E 45 .. NE
007C30: 57 28 75 64 29 3B 0D 0A 20 20 20 20 20 20 20 20 W(ud);..
007C40: 20 20 20 20 52 45 50 45 41 54 0D 0A 20 20 20 20 REPEAT..
007C50: 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 28 WRITE(
007C60: 43 4C 52 48 4F 4D 29 3B 0D 0A 20 20 20 20 20 20 CLRHOM);..
007C70: 20 20 20 20 20 20 20 20 47 4F 54 4F 58 59 28 31 GOTOXY(1
007C80: 30 2C 34 29 3B 20 57 52 49 54 45 28 27 53 4F 52 0,4); WRITE('SOR
007C90: 54 45 52 45 54 20 4B 5B 44 45 27 29 3B 0D 0A 20 TERET K[DE');..
007CA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 47 4F 54 GOT
007CB0: 4F 58 59 28 31 30 2C 37 29 3B 20 57 52 49 54 45 OXY(10,7); WRITE
007CC0: 28 27 49 2E 20 49 6E 64 73 7B 74 20 70 65 72 73 ('I. Inds{t pers
007CD0: 6F 6E 20 69 20 6B 7B 64 65 6E 2E 27 29 3B 0D 0A on i k{den.');..
007CE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 4F GO
007CF0: 54 4F 58 59 28 31 30 2C 39 29 3B 20 57 52 49 54 TOXY(10,9); WRIT
007D00: 45 28 27 46 2E 20 46 6A 65 72 6E 65 20 70 65 72 E('F. Fjerne per
007D10: 73 6F 6E 20 66 72 61 20 6B 7B 64 65 6E 2E 27 29 son fra k{den.')
007D20: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ;..
007D30: 20 47 4F 54 4F 58 59 28 31 30 2C 31 31 29 3B 20 GOTOXY(10,11);
007D40: 57 52 49 54 45 28 27 55 2E 20 55 64 73 6B 72 69 WRITE('U. Udskri
007D50: 76 65 20 6B 7B 64 65 6E 20 66 6F 72 66 72 61 2E ve k{den forfra.
007D60: 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 ');..
007D70: 20 20 20 47 4F 54 4F 58 59 28 31 30 2C 31 33 29 GOTOXY(10,13)
007D80: 3B 20 57 52 49 54 45 28 27 42 2E 20 55 64 73 6B ; WRITE('B. Udsk
007D90: 72 69 76 65 20 6B 7B 64 65 6E 20 62 61 67 66 72 rive k{den bagfr
007DA0: 61 2E 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 a.');..
007DB0: 20 20 20 20 20 47 4F 54 4F 58 59 28 31 30 2C 31 GOTOXY(10,1
007DC0: 35 29 3B 20 57 52 49 54 45 28 27 41 2E 20 41 66 5); WRITE('A. Af
007DD0: 73 6C 75 74 74 65 20 70 72 6F 67 72 61 6D 6D 65 slutte programme
007DE0: 74 2E 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 t.');..
007DF0: 20 20 20 20 20 47 4F 54 4F 58 59 28 31 30 2C 31 GOTOXY(10,1
007E00: 6D 61 6E 20 74 6F 6F 6B 6B 65 64 20 68 69 73 20 man tookked his
007E10: 73 74 69 63 6B 20 61 6E 64 20 67 6F 74 20 74 68 stick and got th
007E20: 65 20 64 6F 67 20 61 77 61 79 2E 0D 0A 20 20 20 e dog away...
007E30: 20 20 20 0D 0A 20 20 20 20 20 20 54 68 65 20 6C .. The l
007E40: 61 73 74 20 74 68 69 6E 67 2C 20 74 68 61 74 20 ast thing, that
007E50: 68 61 70 70 65 6E 65 64 20 74 68 61 74 20 64 61 happened that da
007E60: 79 2C 20 77 61 73 20 3F 3F 3F 3F 3F 3F 3F 3F 3F y, was ?????????
007E70: 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 0D 0A 20 20 20 20 ??????????..
007E80: 20 20 0D 0A 20 20 20 20 20 20 3F 3F 3F 3F 3F 3F .. ??????
007E90: 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 20 66 72 ????????????? fr
007EA0: 6F 6D 20 61 20 77 6F 6D 61 6E 20 61 6E 64 20 3F om a woman and ?
007EB0: 3F 3F 20 20 74 68 65 20 3F 3F 3F 20 69 6E 20 74 ?? the ??? in t
007EC0: 68 65 20 77 61 74 65 72 2E 0D 0A 20 20 20 20 20 he water...
007ED0: 20 0D 0A 20 20 20 20 20 20 48 65 20 74 6F 6F 6B .. He took
007EE0: 20 61 20 6D 61 74 63 68 20 61 6E 64 20 61 20 6C a match and a l
007EF0: 69 67 68 74 65 72 20 3F 3F 3F 3F 3F 2E 20 53 6F ighter ?????. So
007F00: 6D 77 68 65 72 65 20 69 6E 20 74 68 65 20 77 61 mwhere in the wa
007F10: 74 65 72 20 74 68 65 72 65 0D 0A 20 20 20 20 20 ter there..
007F20: 20 0D 0A 20 20 20 20 20 20 77 61 73 20 61 20 66 .. was a f
007F30: 69 72 65 2E 20 41 20 6D 61 6E 20 74 6F 6F 6B 20 ire. A man took
007F40: 61 20 77 61 74 65 72 3F 3F 3F 3F 20 61 6E 64 20 a water???? and
007F50: 61 66 74 65 72 20 33 20 6D 69 6E 75 74 65 73 20 after 3 minutes
007F60: 74 68 65 20 66 69 72 65 20 77 61 73 20 0D 0A 20 the fire was ..
007F70: 20 20 20 20 20 0D 0A 20 20 20 20 20 20 70 75 74 .. put
007F80: 20 6F 75 74 2E 0D 0A 20 20 20 20 20 20 0D 0A 20 out... ..
007F90: 20 20 20 20 20 54 68 61 74 20 77 61 73 20 74 68 That was th
007FA0: 65 20 65 6E 64 20 61 66 20 61 20 73 75 6D 6D 65 e end af a summe
007FB0: 72 68 6F 6C 69 64 61 79 2E 0D 0A 20 20 20 20 20 rholiday...
007FC0: 20 20 0D 0A 1A 65 72 3F 3F 3F 3F 20 61 6E 64 20 ...er???? and
007FD0: 61 66 74 65 72 20 33 20 6D 69 6E 75 74 65 73 20 after 3 minutes
007FE0: 74 68 65 20 66 69 72 65 20 77 61 73 20 0D 0A 20 the fire was ..
007FF0: 20 20 20 20 20 0D 0A 20 20 20 20 20 20 70 75 74 .. put
008000: 37 29 3B 20 57 52 49 54 45 28 27 54 61 73 74 20 7); WRITE('Tast
008010: 6B 6F 6D 6D 61 6E 64 6F 3A 20 27 29 3B 0D 0A 20 kommando: ');..
008020: 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 50 REP
008030: 45 41 54 0D 0A 20 20 20 20 20 20 20 20 20 20 20 EAT..
008040: 20 20 20 20 20 52 45 41 44 28 4B 42 44 2C 20 63 READ(KBD, c
008050: 68 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 h);..
008060: 20 20 20 55 4E 54 49 4C 20 63 68 20 49 4E 20 28 UNTIL ch IN (
008070: 2E 27 49 27 2C 20 27 69 27 2C 20 27 46 27 2C 20 .'I', 'i', 'F',
008080: 27 66 27 2C 20 27 55 27 2C 20 27 75 27 2C 20 27 'f', 'U', 'u', '
008090: 42 27 2C 20 27 62 27 2C 0D 0A 20 20 20 20 20 20 B', 'b',..
0080A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0080B0: 20 20 20 20 27 41 27 2C 20 27 61 27 2E 29 3B 0D 'A', 'a'.);.
0080C0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 . W
0080D0: 52 49 54 45 4C 4E 28 63 68 29 3B 0D 0A 20 20 20 RITELN(ch);..
0080E0: 20 20 20 20 20 20 20 20 20 20 20 43 41 53 45 20 CASE
0080F0: 63 68 20 4F 46 0D 0A 20 20 20 20 20 20 20 20 20 ch OF..
008100: 20 20 20 20 20 20 20 27 49 27 2C 20 27 69 27 20 'I', 'i'
008110: 3A 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 : BEGIN..
008120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
008130: 20 20 20 20 20 20 4E 45 57 28 70 70 29 3B 0D 0A NEW(pp);..
008140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
008150: 20 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 WRI
008160: 54 45 4C 4E 3B 0D 0A 20 20 20 20 20 20 20 20 20 TELN;..
008170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
008180: 20 20 20 20 57 52 49 54 45 28 27 4E 61 76 6E 3A WRITE('Navn:
008190: 20 27 29 3B 20 52 45 41 44 4C 4E 28 70 70 5E 2E '); READLN(pp^.
0081A0: 6E 61 76 6E 29 3B 0D 0A 20 20 20 20 20 20 20 20 navn);..
0081B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0081C0: 20 20 20 20 20 57 52 49 54 45 28 27 41 64 72 65 WRITE('Adre
0081D0: 73 73 65 3A 20 27 29 3B 20 52 45 41 44 4C 4E 28 sse: '); READLN(
0081E0: 70 70 5E 2E 61 64 72 65 73 73 65 29 3B 0D 0A 20 pp^.adresse);..
0081F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
008200: 50 52 4F 47 52 41 4D 20 65 72 61 74 6F 73 74 68 PROGRAM eratosth
008210: 3B 0D 0A 0D 0A 20 20 54 59 50 45 0D 0A 20 20 20 ;.... TYPE..
008220: 20 61 72 72 61 79 74 79 70 65 20 3D 20 41 52 52 arraytype = ARR
008230: 41 59 28 2E 31 20 2E 2E 20 31 36 33 38 34 2E 29 AY(.1 .. 16384.)
008240: 20 4F 46 20 42 4F 4F 4C 45 41 4E 3B 0D 0A 20 20 OF BOOLEAN;..
008250: 0D 0A 20 20 56 41 52 0D 0A 20 20 20 20 74 61 62 .. VAR.. tab
008260: 20 3A 20 61 72 72 61 79 74 79 70 65 3B 20 28 2A : arraytype; (*
008270: 20 74 61 62 28 2E 69 2E 29 20 72 65 70 72 7B 73 tab(.i.) repr{s
008280: 65 6E 74 65 72 65 72 20 64 65 74 20 75 6C 69 67 enterer det ulig
008290: 65 20 74 61 6C 20 32 20 2A 20 69 20 2B 20 31 20 e tal 2 * i + 1
0082A0: 2A 29 0D 0A 20 20 20 20 67 72 61 65 6E 73 65 2C *).. graense,
0082B0: 20 67 72 61 65 6E 73 65 32 2C 20 67 72 61 65 6E graense2, graen
0082C0: 73 65 33 2C 20 69 2C 20 6A 2C 20 6B 20 3A 20 49 se3, i, j, k : I
0082D0: 4E 54 45 47 45 52 3B 0D 0A 20 20 0D 0A 20 20 42 NTEGER;.. .. B
0082E0: 45 47 49 4E 0D 0A 20 20 20 20 57 52 49 54 45 28 EGIN.. WRITE(
0082F0: 43 4C 52 48 4F 4D 29 3B 0D 0A 20 20 20 20 57 52 CLRHOM);.. WR
008300: 49 54 45 28 27 49 6E 64 74 61 73 74 20 7C 76 72 ITE('Indtast |vr
008310: 65 20 67 72 7B 6E 73 65 20 28 6D 61 78 3A 20 33 e gr{nse (max: 3
008320: 32 37 36 37 29 3A 20 27 29 3B 20 52 45 41 44 4C 2767): '); READL
008330: 4E 28 67 72 61 65 6E 73 65 29 3B 0D 0A 20 20 20 N(graense);..
008340: 20 67 72 61 65 6E 73 65 32 20 3A 3D 20 67 72 61 graense2 := gra
008350: 65 6E 73 65 20 44 49 56 20 32 3B 0D 0A 20 20 20 ense DIV 2;..
008360: 20 67 72 61 65 6E 73 65 33 20 3A 3D 20 67 72 61 graense3 := gra
008370: 65 6E 73 65 20 44 49 56 20 33 20 2B 20 31 3B 0D ense DIV 3 + 1;.
008380: 0A 20 20 20 20 46 4F 52 20 69 20 3A 3D 20 31 20 . FOR i := 1
008390: 54 4F 20 67 72 61 65 6E 73 65 32 20 44 4F 0D 0A TO graense2 DO..
0083A0: 20 20 20 20 20 20 74 61 62 28 2E 69 2E 29 20 3A tab(.i.) :
0083B0: 3D 20 54 52 55 45 3B 0D 0A 20 20 20 20 57 52 49 = TRUE;.. WRI
0083C0: 54 45 4C 4E 3B 0D 0A 20 20 20 20 49 46 20 67 72 TELN;.. IF gr
0083D0: 61 65 6E 73 65 20 3E 20 31 0D 0A 20 20 20 20 20 aense > 1..
0083E0: 20 54 48 45 4E 20 57 52 49 54 45 28 32 20 3A 20 THEN WRITE(2 :
0083F0: 38 29 3B 0D 0A 20 20 20 20 46 4F 52 20 69 20 3A 8);.. FOR i :
008400: 20 20 20 20 20 20 20 20 20 20 20 20 70 70 5E 2E pp^.
008410: 66 72 65 6D 20 3A 3D 20 4E 49 4C 3B 0D 0A 20 20 frem := NIL;..
008420: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
008430: 20 20 20 20 20 20 20 20 20 20 20 70 70 5E 2E 74 pp^.t
008440: 69 6C 62 61 67 65 20 3A 3D 20 4E 49 4C 3B 0D 0A ilbage := NIL;..
008450: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
008460: 20 20 20 20 20 20 20 20 20 20 20 20 20 69 6E 64 ind
008470: 73 61 65 74 28 74 6F 70 2C 20 62 75 6E 64 2C 20 saet(top, bund,
008480: 70 70 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 pp);..
008490: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0084A0: 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 20 20 20 END;..
0084B0: 20 20 20 20 20 20 20 27 46 27 2C 20 27 66 27 20 'F', 'f'
0084C0: 3A 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 : BEGIN..
0084D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0084E0: 20 20 20 20 20 20 57 52 49 54 45 4C 4E 3B 0D 0A WRITELN;..
0084F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
008500: 20 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 WRI
008510: 54 45 28 27 48 76 65 6D 20 73 6B 61 6C 20 66 6A TE('Hvem skal fj
008520: 65 72 6E 65 73 3A 20 27 29 3B 0D 0A 20 20 20 20 ernes: ');..
008530: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
008540: 20 20 20 20 20 20 20 20 20 52 45 41 44 4C 4E 28 READLN(
008550: 75 64 5E 2E 6E 61 76 6E 29 3B 0D 0A 20 20 20 20 ud^.navn);..
008560: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
008570: 20 20 20 20 20 20 20 20 20 66 6A 65 72 6E 28 74 fjern(t
008580: 6F 70 2C 20 62 75 6E 64 2C 20 75 64 29 3B 0D 0A op, bund, ud);..
008590: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0085A0: 20 20 20 20 20 20 20 20 20 20 20 45 4E 44 3B 0D END;.
0085B0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
0085C0: 20 27 55 27 2C 20 27 75 27 20 3A 20 75 64 73 6B 'U', 'u' : udsk
0085D0: 72 69 76 66 72 65 6D 28 74 6F 70 29 3B 0D 0A 20 rivfrem(top);..
0085E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 '
0085F0: 42 27 2C 20 27 62 27 20 3A 20 75 64 73 6B 72 69 B', 'b' : udskri
008600: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
008610: 07 00 01 00 02 09 52 E5 07 00 41 02 00 00 00 02 ......R...A.....
008620: 07 00 46 02 00 00 00 02 07 00 42 02 00 00 00 02 ..F.......B.....
008630: 07 00 47 02 00 00 00 02 07 00 43 02 00 00 00 02 ..G.......C.....
008640: 07 00 48 02 00 00 00 02 07 00 44 02 00 00 00 02 ..H.......D.....
008650: 07 00 49 02 00 00 00 02 07 00 45 02 00 00 00 02 ..I.......E.....
008660: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008670: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008680: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008690: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0086A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0086B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0086C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0086D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0086E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0086F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008700: 3D 20 31 20 54 4F 20 67 72 61 65 6E 73 65 32 20 = 1 TO graense2
008710: 44 4F 0D 0A 20 20 20 20 20 20 49 46 20 74 61 62 DO.. IF tab
008720: 28 2E 69 2E 29 0D 0A 20 20 20 20 20 20 20 20 54 (.i.).. T
008730: 48 45 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 42 HEN.. B
008740: 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 EGIN..
008750: 20 20 6A 20 3A 3D 20 69 20 2B 20 69 20 2B 20 31 j := i + i + 1
008760: 3B 20 20 20 20 20 20 28 2A 20 6A 20 65 72 20 65 ; (* j er e
008770: 74 20 70 72 69 6D 74 61 6C 20 2A 29 0D 0A 20 20 t primtal *)..
008780: 20 20 20 20 20 20 20 20 20 20 49 46 20 6A 20 3C IF j <
008790: 3D 20 67 72 61 65 6E 73 65 0D 0A 20 20 20 20 20 = graense..
0087A0: 20 20 20 20 20 20 20 20 20 54 48 45 4E 20 57 52 THEN WR
0087B0: 49 54 45 28 6A 20 3A 20 38 29 3B 0D 0A 20 20 20 ITE(j : 8);..
0087C0: 20 20 20 20 20 20 20 20 20 49 46 20 6A 20 3C 3D IF j <=
0087D0: 20 67 72 61 65 6E 73 65 33 20 20 20 20 20 28 2A graense3 (*
0087E0: 20 6E 75 20 73 6C 65 74 74 65 73 20 64 65 20 75 nu slettes de u
0087F0: 6C 69 67 65 20 6D 75 6C 74 69 70 6C 61 20 61 66 lige multipla af
008800: 20 6A 20 2D 20 20 2A 29 0D 0A 20 20 20 20 20 20 j - *)..
008810: 20 20 20 20 20 20 20 20 54 48 45 4E 20 20 20 20 THEN
008820: 20 20 20 20 20 20 20 20 20 20 20 28 2A 20 64 65 (* de
008830: 74 20 65 72 20 6E 65 74 6F 70 20 68 76 65 72 74 t er netop hvert
008840: 20 6A 2E 20 65 6C 65 6D 65 6E 74 20 69 20 74 61 j. element i ta
008850: 62 20 20 2A 29 0D 0A 20 20 20 20 20 20 20 20 20 b *)..
008860: 20 20 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 BEGIN..
008870: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
008880: 6B 20 3A 3D 20 69 20 2B 20 6A 3B 20 20 20 20 28 k := i + j; (
008890: 2A 20 74 61 62 28 2E 6B 2E 29 20 65 72 20 64 65 * tab(.k.) er de
0088A0: 6D 2C 20 64 65 72 20 73 6B 61 6C 20 73 6C 65 74 m, der skal slet
0088B0: 74 65 73 20 2A 29 0D 0A 20 20 20 20 20 20 20 20 tes *)..
0088C0: 20 20 20 20 20 20 20 20 20 20 57 48 49 4C 45 20 WHILE
0088D0: 6B 20 3C 3D 20 67 72 61 65 6E 73 65 32 20 44 4F k <= graense2 DO
0088E0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
0088F0: 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 BEGIN..
008900: 50 52 4F 47 52 41 4D 20 66 61 6B 74 75 72 61 3B PROGRAM faktura;
008910: 0D 0A 0D 0A 20 20 43 4F 4E 53 54 0D 0A 20 20 20 .... CONST..
008920: 20 6D 61 78 20 3D 20 32 30 30 3B 0D 0A 20 20 20 max = 200;..
008930: 20 6D 6F 6D 73 70 63 74 20 3D 20 32 32 3B 0D 0A momspct = 22;..
008940: 20 20 0D 0A 20 20 54 59 50 45 0D 0A 20 20 20 20 .. TYPE..
008950: 73 74 72 33 30 20 3D 20 53 54 52 49 4E 47 28 2E str30 = STRING(.
008960: 33 30 2E 29 3B 0D 0A 20 20 20 20 74 61 62 69 6E 30.);.. tabin
008970: 74 20 3D 20 41 52 52 41 59 28 2E 31 20 2E 2E 20 t = ARRAY(.1 ..
008980: 6D 61 78 2E 29 20 4F 46 20 49 4E 54 45 47 45 52 max.) OF INTEGER
008990: 3B 0D 0A 20 20 20 20 74 61 62 72 65 61 6C 20 3D ;.. tabreal =
0089A0: 20 41 52 52 41 59 28 2E 31 20 2E 2E 20 6D 61 78 ARRAY(.1 .. max
0089B0: 2E 29 20 4F 46 20 52 45 41 4C 3B 0D 0A 20 20 20 .) OF REAL;..
0089C0: 20 74 61 62 73 74 72 20 3D 20 41 52 52 41 59 28 tabstr = ARRAY(
0089D0: 2E 31 20 2E 2E 20 6D 61 78 2E 29 20 4F 46 20 73 .1 .. max.) OF s
0089E0: 74 72 33 30 3B 0D 0A 20 20 0D 0A 20 20 56 41 52 tr30;.. .. VAR
0089F0: 0D 0A 20 20 20 20 69 2C 20 61 6E 74 61 6C 5F 76 .. i, antal_v
008A00: 61 72 65 72 20 3A 20 49 4E 54 45 47 45 52 3B 0D arer : INTEGER;.
008A10: 0A 20 20 20 20 76 61 72 65 6E 75 6D 6D 65 72 2C . varenummer,
008A20: 20 76 61 72 65 61 6E 74 61 6C 20 3A 20 74 61 62 vareantal : tab
008A30: 69 6E 74 3B 0D 0A 20 20 20 20 76 61 72 65 6E 61 int;.. varena
008A40: 76 6E 20 3A 20 74 61 62 73 74 72 3B 0D 0A 20 20 vn : tabstr;..
008A50: 20 20 76 61 72 65 70 72 69 73 20 3A 20 74 61 62 varepris : tab
008A60: 72 65 61 6C 3B 0D 0A 20 20 20 20 6B 75 6E 64 65 real;.. kunde
008A70: 6E 61 76 6E 20 3A 20 73 74 72 33 30 3B 0D 0A 20 navn : str30;..
008A80: 20 20 20 73 75 6D 2C 20 6D 6F 6D 73 20 3A 20 52 sum, moms : R
008A90: 45 41 4C 3B 0D 0A 20 20 0D 0A 20 20 50 52 4F 43 EAL;.. .. PROC
008AA0: 45 44 55 52 45 20 69 6E 64 28 56 41 52 20 6B 75 EDURE ind(VAR ku
008AB0: 6E 64 65 20 3A 20 73 74 72 33 30 3B 20 56 41 52 nde : str30; VAR
008AC0: 20 70 6F 73 74 61 6E 74 61 6C 20 3A 20 49 4E 54 postantal : INT
008AD0: 45 47 45 52 3B 20 0D 0A 20 20 20 20 20 20 20 20 EGER; ..
008AE0: 20 20 20 20 20 20 20 20 56 41 52 20 6E 75 6D 6D VAR numm
008AF0: 65 72 20 3A 20 74 61 62 69 6E 74 3B 20 56 41 52 er : tabint; VAR
008B00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 t
008B10: 61 62 28 2E 6B 2E 29 20 3A 3D 20 46 41 4C 53 45 ab(.k.) := FALSE
008B20: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ;..
008B30: 20 20 20 20 20 20 20 6B 20 3A 3D 20 6B 20 2B 20 k := k +
008B40: 6A 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 j;..
008B50: 20 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 END;..
008B60: 20 20 20 20 20 20 20 20 20 20 20 20 45 4E 44 3B END;
008B70: 0D 0A 20 20 20 20 20 20 20 20 20 20 45 4E 44 3B .. END;
008B80: 0D 0A 20 20 20 20 57 52 49 54 45 4C 4E 3B 0D 0A .. WRITELN;..
008B90: 20 20 45 4E 44 2E 0D 0A 78 0D 0A 1A 1A 1A 1A 1A END...x.......
008BA0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
008BB0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
008BC0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
008BD0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
008BE0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
008BF0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
008C00: 64 6F 77 6E 0D 0A 33 20 20 4E 09 22 39 22 09 09 down..3 N."9"..
008C10: 7C 0D 0A 34 20 20 4E 09 22 36 22 09 09 7C 20 4E |..4 N."6"..| N
008C20: 75 6D 65 72 69 63 0D 0A 35 20 20 4E 09 22 33 22 umeric..5 N."3"
008C30: 09 09 7C 20 20 20 4B 65 79 70 61 64 0D 0A 36 20 ..| Keypad..6
008C40: 20 4E 09 22 5E 4D 22 09 09 45 4E 54 45 52 20 6B N."^M"..ENTER k
008C50: 65 79 0D 0A 37 20 20 4E 09 22 5E 27 23 43 41 27 ey..7 N."^'#CA'
008C60: 22 09 4E 75 6D 65 72 69 63 20 4B 65 79 70 61 64 ".Numeric Keypad
008C70: 0D 0A 38 20 20 4E 09 22 5E 41 22 09 09 43 43 50 ..8 N."^A"..CCP
008C80: 20 63 75 72 73 6F 72 20 6C 65 66 74 0D 0A 38 20 cursor left..8
008C90: 20 20 53 09 22 5E 53 22 09 09 45 38 30 20 77 6F S."^S"..E80 wo
008CA0: 72 64 20 6C 65 66 74 0D 0A 38 20 20 20 20 43 09 rd left..8 C.
008CB0: 22 5E 27 23 39 45 27 22 09 43 43 50 20 73 74 61 "^'#9E'".CCP sta
008CC0: 72 74 20 6F 66 20 6C 69 6E 65 0D 0A 39 20 20 4E rt of line..9 N
008CD0: 09 22 5E 27 23 38 30 27 22 20 09 45 38 30 20 63 ."^'#80'" .E80 c
008CE0: 6F 70 79 20 62 6C 6F 63 6B 0D 0A 39 20 20 20 53 opy block..9 S
008CF0: 09 22 5E 27 23 38 31 27 22 09 45 38 30 20 6D 6F ."^'#81'".E80 mo
008D00: 20 6E 61 76 6E 20 3A 20 74 61 62 73 74 72 3B 20 navn : tabstr;
008D10: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
008D20: 20 20 56 41 52 20 61 6E 74 61 6C 20 3A 20 74 61 VAR antal : ta
008D30: 62 69 6E 74 3B 20 56 41 52 20 70 72 69 73 20 3A bint; VAR pris :
008D40: 20 74 61 62 72 65 61 6C 29 3B 0D 0A 20 20 20 20 tabreal);..
008D50: 56 41 52 0D 0A 20 20 20 20 20 20 69 2C 20 6E 72 VAR.. i, nr
008D60: 20 3A 20 49 4E 54 45 47 45 52 3B 0D 0A 20 20 20 : INTEGER;..
008D70: 20 0D 0A 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 .. BEGIN..
008D80: 20 20 20 20 57 52 49 54 45 28 43 4C 52 48 4F 4D WRITE(CLRHOM
008D90: 29 3B 0D 0A 20 20 20 20 20 20 69 20 3A 3D 20 30 );.. i := 0
008DA0: 3B 0D 0A 20 20 20 20 20 20 57 52 49 54 45 28 27 ;.. WRITE('
008DB0: 4B 75 6E 64 65 3A 20 27 29 3B 20 52 45 41 44 4C Kunde: '); READL
008DC0: 4E 28 6B 75 6E 64 65 29 3B 0D 0A 20 20 20 20 20 N(kunde);..
008DD0: 20 52 45 50 45 41 54 0D 0A 20 20 20 20 20 20 20 REPEAT..
008DE0: 20 69 20 3A 3D 20 69 20 2B 20 31 3B 0D 0A 20 20 i := i + 1;..
008DF0: 20 20 20 20 20 20 57 52 49 54 45 4C 4E 3B 0D 0A WRITELN;..
008E00: 20 20 20 20 20 20 20 20 57 52 49 54 45 28 27 54 WRITE('T
008E10: 61 73 74 20 76 61 72 65 6E 73 20 6E 75 6D 6D 65 ast varens numme
008E20: 72 20 28 30 20 73 74 6F 70 70 65 72 29 3A 20 27 r (0 stopper): '
008E30: 29 3B 20 52 45 41 44 4C 4E 28 6E 72 29 3B 0D 0A ); READLN(nr);..
008E40: 20 20 20 20 20 20 20 20 49 46 20 6E 72 20 3C 3E IF nr <>
008E50: 20 30 0D 0A 20 20 20 20 20 20 20 20 20 20 54 48 0.. TH
008E60: 45 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 EN..
008E70: 42 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 BEGIN..
008E80: 20 20 20 20 20 6E 75 6D 6D 65 72 28 2E 69 2E 29 nummer(.i.)
008E90: 20 3A 3D 20 6E 72 3B 0D 0A 20 20 20 20 20 20 20 := nr;..
008EA0: 20 20 20 20 20 20 20 57 52 49 54 45 28 27 54 61 WRITE('Ta
008EB0: 73 74 20 76 61 72 65 6E 73 20 6E 61 76 6E 3A 20 st varens navn:
008EC0: 20 20 27 29 3B 20 52 45 41 44 4C 4E 28 6E 61 76 '); READLN(nav
008ED0: 6E 28 2E 69 2E 29 29 3B 0D 0A 20 20 20 20 20 20 n(.i.));..
008EE0: 20 20 20 20 20 20 20 20 57 52 49 54 45 28 27 54 WRITE('T
008EF0: 61 73 74 20 61 6E 74 61 6C 20 65 6E 68 65 64 65 ast antal enhede
008F00: CC 24 57 CC 24 56 1C 25 56 1C 25 55 6C 25 55 6B .$W.$V.%V.%Ul%Uk
008F10: 25 54 BB 25 54 BB 25 53 BB 25 52 BA 25 51 B9 25 %T.%T.%S.%R.%Q.%
008F20: 50 B8 25 4F 08 26 4F 08 26 4E 08 26 4D 08 26 4C P.%O.&O.&N.&M.&L
008F30: A8 26 4C 48 27 4C 18 22 5B 18 22 5B 68 22 5B 68 .&LH'L."[."[h"[h
008F40: 22 5A B8 22 5A 08 23 59 08 23 58 58 23 58 A8 23 "Z."Z.#Y.#XX#X.#
008F50: 57 A8 23 56 F8 23 56 48 24 56 47 24 55 97 24 55 W.#V.#VH$VG$U.$U
008F60: E7 24 54 37 25 54 87 25 53 87 25 52 D6 25 51 D5 .$T7%T.%S.%R.%Q.
008F70: 25 50 D4 25 4F D4 25 4E D4 25 4D 14 27 4C B6 21 %P.%O.%N.%M.'L.!
008F80: 5B B6 21 5B 06 22 5B 56 22 5A F6 22 59 46 23 58 [.![."[V"Z."YF#X
008F90: 46 23 57 E5 23 56 95 23 55 35 24 55 85 24 54 D4 F#W.#V.#U5$U.$T.
008FA0: 24 53 D4 24 53 D4 24 52 74 25 52 13 26 51 12 26 $S.$S.$Rt%R.&Q.&
008FB0: 50 12 26 4F 62 26 4F 61 26 4E 61 26 4D B0 26 4D P.&Ob&Oa&Na&M.&M
008FC0: B0 26 4C 50 27 4C D8 21 5B 28 22 5B 28 22 5A C7 .&LP'L.![("[("Z.
008FD0: 22 58 17 23 57 17 23 56 67 23 56 16 23 55 66 23 "X.#W.#Vg#V.#Uf#
008FE0: 55 B6 23 54 56 24 54 F6 24 53 46 25 53 46 25 52 U.#TV$T.$SF%SF%R
008FF0: 96 25 52 35 26 51 85 26 51 85 26 50 D5 26 50 84 .%R5&Q.&Q.&P.&P.
009000: 26 4F D4 26 4F D3 26 4E D3 26 4D 23 27 4C BF 21 &O.&O.&N.&M#'L.!
009010: 5B 0F 22 5B 5F 22 5A AF 22 59 4E 23 58 EE 23 57 [."[_"Z."YN#X.#W
009020: 3E 24 57 3E 24 56 8E 24 56 8D 24 55 DD 24 55 DD >$W>$V.$V.$U.$U.
009030: 24 54 2D 25 54 2D 25 53 7D 25 53 7D 25 52 CD 25 $T-%T-%S}%S}%R.%
009040: 52 6C 26 51 6B 26 50 BB 26 4F BA 26 4E BA 26 4D Rl&Qk&P.&O.&N.&M
009050: BA 26 4C 5A 27 4C 55 21 71 A5 21 71 F5 21 71 45 .&LZ'LU!q.!q.!qE
009060: 22 70 95 22 70 95 22 6F E5 22 6F 94 22 6E E4 22 "p."p."o."o."n."
009070: 6E 94 22 6D E4 22 6D 34 23 6C 84 23 6C E4 22 6B n."m."m4#l.#l."k
009080: 34 23 6B 94 22 6A E4 22 6A E3 22 69 33 23 68 32 4#k."j."j."i3#h2
009090: 23 67 32 23 66 32 23 65 D2 23 65 31 23 64 39 22 #g2#f2#e.#e1#d9"
0090A0: 71 39 22 71 89 22 71 89 22 70 D9 22 70 D9 22 6F q9"q."q."p."p."o
0090B0: 29 23 6F 89 22 6E D9 22 6E 89 22 6D D9 22 6D 29 )#o."n."n."m."m)
0090C0: 23 6C 79 23 6C 29 23 6B 79 23 6B D9 22 6A 29 23 #ly#l)#ky#k."j)#
0090D0: 6A 89 22 69 29 23 69 D8 22 68 D7 22 67 D7 22 66 j."i)#i."h."g."f
0090E0: D7 22 65 D7 22 64 59 22 71 59 22 71 A9 22 71 A9 ."e."dY"qY"q."q.
0090F0: 22 70 F9 22 70 A8 22 6F F8 22 6F F8 22 6E 48 23 "p."p."o."o."nH#
009100: 72 3A 20 27 29 3B 20 52 45 41 44 4C 4E 28 61 6E r: '); READLN(an
009110: 74 61 6C 28 2E 69 2E 29 29 3B 0D 0A 20 20 20 20 tal(.i.));..
009120: 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 28 WRITE(
009130: 27 54 61 73 74 20 65 6E 68 65 64 73 70 72 69 73 'Tast enhedspris
009140: 3A 20 20 20 20 27 29 3B 20 52 45 41 44 4C 4E 28 : '); READLN(
009150: 70 72 69 73 28 2E 69 2E 29 29 3B 0D 0A 20 20 20 pris(.i.));..
009160: 20 20 20 20 20 20 20 20 20 45 4E 44 3B 0D 0A 20 END;..
009170: 20 20 20 20 20 55 4E 54 49 4C 20 28 6E 72 20 3D UNTIL (nr =
009180: 20 30 29 20 4F 52 20 28 69 20 3D 20 6D 61 78 29 0) OR (i = max)
009190: 3B 0D 0A 20 20 20 20 20 20 49 46 20 6E 72 20 3D ;.. IF nr =
0091A0: 20 30 0D 0A 20 20 20 20 20 20 20 20 54 48 45 4E 0.. THEN
0091B0: 20 70 6F 73 74 61 6E 74 61 6C 20 3A 3D 20 69 20 postantal := i
0091C0: 2D 20 31 0D 0A 20 20 20 20 20 20 20 20 45 4C 53 - 1.. ELS
0091D0: 45 20 70 6F 73 74 61 6E 74 61 6C 20 3A 3D 20 6D E postantal := m
0091E0: 61 78 3B 0D 0A 20 20 20 20 45 4E 44 3B 0D 0A 20 ax;.. END;..
0091F0: 20 20 20 0D 0A 20 20 50 52 4F 43 45 44 55 52 45 .. PROCEDURE
009200: 20 73 6B 72 69 76 28 6B 75 6E 64 65 20 3A 20 73 skriv(kunde : s
009210: 74 72 33 30 3B 20 70 6F 73 74 61 6E 74 61 6C 20 tr30; postantal
009220: 3A 20 49 4E 54 45 47 45 52 3B 20 56 41 52 20 6E : INTEGER; VAR n
009230: 75 6D 6D 65 72 20 3A 20 74 61 62 69 6E 74 3B 20 ummer : tabint;
009240: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
009250: 20 20 20 20 56 41 52 20 6E 61 76 6E 20 3A 20 74 VAR navn : t
009260: 61 62 73 74 72 3B 20 56 41 52 20 61 6E 74 61 6C abstr; VAR antal
009270: 20 3A 20 74 61 62 69 6E 74 3B 20 56 41 52 20 70 : tabint; VAR p
009280: 72 69 73 20 3A 20 74 61 62 72 65 61 6C 3B 20 0D ris : tabreal; .
009290: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
0092A0: 20 20 20 74 6F 74 61 6C 2C 20 6D 6F 6D 73 20 3A total, moms :
0092B0: 20 52 45 41 4C 29 3B 0D 0A 20 20 20 20 0D 0A 20 REAL);.. ..
0092C0: 20 20 20 56 41 52 0D 0A 20 20 20 20 20 20 70 72 VAR.. pr
0092D0: 69 6B 6B 65 72 20 3A 20 73 74 72 33 30 3B 0D 0A ikker : str30;..
0092E0: 20 20 20 20 20 20 69 20 3A 20 49 4E 54 45 47 45 i : INTEGE
0092F0: 52 3B 0D 0A 20 20 20 20 20 20 0D 0A 20 20 20 20 R;.. ..
009300: 50 52 4F 47 52 41 4D 20 66 61 68 72 65 6E 68 65 PROGRAM fahrenhe
009310: 3B 0D 0A 0D 0A 20 20 56 41 52 0D 0A 20 20 20 20 ;.... VAR..
009320: 63 65 6C 73 69 75 73 2C 20 66 61 68 72 65 6E 68 celsius, fahrenh
009330: 65 69 74 2C 20 72 65 61 6D 75 72 20 3A 20 52 45 eit, reamur : RE
009340: 41 4C 3B 0D 0A 20 20 0D 0A 20 20 42 45 47 49 4E AL;.. .. BEGIN
009350: 0D 0A 20 20 20 20 57 52 49 54 45 28 43 4C 52 48 .. WRITE(CLRH
009360: 4F 4D 29 3B 0D 0A 20 20 20 20 57 52 49 54 45 4C OM);.. WRITEL
009370: 4E 28 27 50 72 6F 67 72 61 6D 6D 65 74 20 75 64 N('Programmet ud
009380: 73 6B 72 69 76 65 72 20 43 45 4C 53 49 55 53 2D skriver CELSIUS-
009390: 20 6F 67 20 52 45 41 55 4D 55 52 2D 67 72 61 64 og REAUMUR-grad
0093A0: 74 61 6C 6C 65 6E 65 2C 27 29 3B 0D 0A 20 20 20 tallene,');..
0093B0: 20 57 52 49 54 45 4C 4E 28 27 6E 7D 72 20 6D 61 WRITELN('n}r ma
0093C0: 6E 20 69 6E 64 74 61 73 74 65 72 20 67 72 61 64 n indtaster grad
0093D0: 74 61 6C 6C 65 74 20 66 6F 72 20 46 41 48 52 45 tallet for FAHRE
0093E0: 4E 48 45 49 54 27 29 3B 0D 0A 20 20 20 20 57 52 NHEIT');.. WR
0093F0: 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 57 52 49 54 ITELN;.. WRIT
009400: 45 28 27 49 6E 64 74 61 73 74 20 46 41 48 52 45 E('Indtast FAHRE
009410: 4E 48 45 49 54 3A 20 27 29 3B 20 52 45 41 44 4C NHEIT: '); READL
009420: 4E 28 66 61 68 72 65 6E 68 65 69 74 29 3B 0D 0A N(fahrenheit);..
009430: 20 20 20 20 63 65 6C 73 69 75 73 20 3A 3D 20 28 celsius := (
009440: 66 61 68 72 65 6E 68 65 69 74 20 2D 20 33 32 29 fahrenheit - 32)
009450: 20 2F 20 31 2E 38 3B 0D 0A 20 20 20 20 72 65 61 / 1.8;.. rea
009460: 6D 75 72 20 3A 3D 20 63 65 6C 73 69 75 73 20 2A mur := celsius *
009470: 20 30 2E 38 3B 0D 0A 20 20 20 20 57 52 49 54 45 0.8;.. WRITE
009480: 4C 4E 3B 0D 0A 20 20 20 20 57 52 49 54 45 4C 4E LN;.. WRITELN
009490: 28 27 46 61 68 72 65 6E 68 65 69 74 3A 20 27 2C ('Fahrenheit: ',
0094A0: 20 66 61 68 72 65 6E 68 65 69 74 20 3A 20 37 20 fahrenheit : 7
0094B0: 3A 20 32 29 3B 0D 0A 20 20 20 20 57 52 49 54 45 : 2);.. WRITE
0094C0: 4C 4E 28 27 43 65 6C 73 69 75 73 3A 20 20 20 20 LN('Celsius:
0094D0: 27 2C 20 63 65 6C 73 69 75 73 20 3A 20 37 20 3A ', celsius : 7 :
0094E0: 20 32 29 3B 0D 0A 20 20 20 20 57 52 49 54 45 4C 2);.. WRITEL
0094F0: 4E 28 27 52 65 61 6D 75 72 3A 20 20 20 20 20 27 N('Reamur: '
009500: 42 45 47 49 4E 0D 0A 20 20 20 20 20 20 57 52 49 BEGIN.. WRI
009510: 54 45 28 43 4C 52 48 4F 4D 29 3B 0D 0A 20 20 20 TE(CLRHOM);..
009520: 20 20 20 70 72 69 6B 6B 65 72 20 3A 3D 20 27 2E prikker := '.
009530: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E ................
009540: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 27 3B 0D 0A ............';..
009550: 20 20 20 20 20 20 57 52 49 54 45 4C 4E 28 27 41 WRITELN('A
009560: 2E 42 2E 43 61 72 6C 73 65 6E 20 41 70 73 27 29 .B.Carlsen Aps')
009570: 3B 0D 0A 20 20 20 20 20 20 57 52 49 54 45 4C 4E ;.. WRITELN
009580: 28 27 53 7C 67 61 64 65 20 34 30 30 27 29 3B 0D ('S|gade 400');.
009590: 0A 20 20 20 20 20 20 57 52 49 54 45 4C 4E 28 27 . WRITELN('
0095A0: 30 30 30 30 20 56 65 73 74 62 79 27 29 3B 0D 0A 0000 Vestby');..
0095B0: 20 20 20 20 20 20 57 52 49 54 45 4C 4E 3B 0D 0A WRITELN;..
0095C0: 20 20 20 20 20 20 57 52 49 54 45 4C 4E 28 27 4B WRITELN('K
0095D0: 55 4E 44 45 3A 20 27 2C 20 6B 75 6E 64 65 29 3B UNDE: ', kunde);
0095E0: 0D 0A 20 20 20 20 20 20 57 52 49 54 45 4C 4E 3B .. WRITELN;
0095F0: 0D 0A 20 20 20 20 20 20 57 52 49 54 45 4C 4E 28 .. WRITELN(
009600: 27 20 20 20 20 20 20 20 20 4E 52 20 20 20 20 20 ' NR
009610: 56 41 52 45 20 20 20 20 20 20 20 20 20 20 20 20 VARE
009620: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 41 4E AN
009630: 54 41 4C 20 20 20 20 20 20 50 52 49 53 27 2C 0D TAL PRIS',.
009640: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 . '
009650: 20 20 20 20 20 42 45 4C 5C 42 27 29 3B 0D 0A 20 BEL\B');..
009660: 20 20 20 20 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 WRITELN;..
009670: 20 20 20 20 20 46 4F 52 20 69 20 3A 3D 20 31 20 FOR i := 1
009680: 54 4F 20 70 6F 73 74 61 6E 74 61 6C 20 44 4F 0D TO postantal DO.
009690: 0A 20 20 20 20 20 20 20 20 42 45 47 49 4E 0D 0A . BEGIN..
0096A0: 20 20 20 20 20 20 20 20 20 20 6E 61 76 6E 28 2E navn(.
0096B0: 69 2E 29 20 3A 3D 20 6E 61 76 6E 28 2E 69 2E 29 i.) := navn(.i.)
0096C0: 20 2B 20 27 20 27 20 2B 20 70 72 69 6B 6B 65 72 + ' ' + prikker
0096D0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 57 52 49 ;.. WRI
0096E0: 54 45 4C 4E 28 6E 75 6D 6D 65 72 28 2E 69 2E 29 TELN(nummer(.i.)
0096F0: 20 3A 20 31 30 2C 20 27 20 20 20 20 20 27 2C 20 : 10, ' ',
009700: 2C 20 72 65 61 6D 75 72 20 3A 20 37 20 3A 20 32 , reamur : 7 : 2
009710: 29 3B 0D 0A 20 20 20 20 57 52 49 54 45 4C 4E 3B );.. WRITELN;
009720: 0D 0A 20 20 45 4E 44 2E 0D 0A 1A 20 3A 20 37 20 .. END.... : 7
009730: 3A 20 32 29 3B 0D 0A 20 20 20 20 57 52 49 54 45 : 2);.. WRITE
009740: 4C 4E 28 27 43 65 6C 73 69 75 73 3A 20 20 20 20 LN('Celsius:
009750: 27 2C 20 63 65 6C 73 69 75 73 20 3A 20 37 20 3A ', celsius : 7 :
009760: 20 32 29 3B 0D 0A 20 20 20 20 57 52 49 54 45 4C 2);.. WRITEL
009770: 4E 28 27 52 65 61 6D 75 72 3A 20 20 20 20 20 27 N('Reamur: '
009780: 31 35 20 20 53 09 22 5E 27 23 43 30 27 22 09 53 15 S."^'#C0'".S
009790: 6D 61 72 74 4B 65 79 20 73 65 74 75 70 0D 0A 31 martKey setup..1
0097A0: 36 20 4E 09 22 5E 47 22 09 09 43 43 50 20 63 6C 6 N."^G"..CCP cl
0097B0: 72 0D 0A 31 36 20 20 53 09 22 5E 54 22 09 09 45 r..16 S."^T"..E
0097C0: 38 30 20 64 65 6C 20 77 6F 72 64 20 72 69 67 68 80 del word righ
0097D0: 74 0D 0A 31 36 20 20 20 43 09 22 5E 27 23 38 32 t..16 C."^'#82
0097E0: 27 22 09 45 38 30 20 64 65 6C 20 74 6F 20 65 6E '".E80 del to en
0097F0: 64 20 6F 66 20 6C 69 6E 65 0D 0A 32 30 20 4E 09 d of line..20 N.
009800: 22 34 22 09 09 4E 75 6D 65 72 69 63 20 6B 65 79 "4"..Numeric key
009810: 70 61 64 0D 0A 36 36 20 4E 20 20 53 09 22 5E 27 pad..66 N S."^'
009820: 32 37 27 22 09 09 43 43 50 20 65 73 63 0D 0A 36 27'"..CCP esc..6
009830: 36 20 20 20 43 09 22 5E 43 22 09 09 43 43 50 20 6 C."^C"..CCP
009840: 61 62 6F 72 74 0D 0A 36 38 20 20 53 09 22 5E 27 abort..68 S."^'
009850: 23 38 34 27 22 09 45 38 30 20 74 6F 67 67 6C 65 #84'".E80 toggle
009860: 20 41 75 74 6F 20 49 6E 64 65 6E 74 0D 0A 36 38 Auto Indent..68
009870: 20 20 20 43 09 22 5E 56 22 09 09 45 38 30 20 4F C."^V"..E80 O
009880: 76 65 72 77 72 69 74 65 2F 49 6E 73 65 72 74 0D verwrite/Insert.
009890: 0A 37 39 20 20 53 09 22 5E 27 23 38 33 27 22 09 .79 S."^'#83'".
0098A0: 45 38 30 20 44 65 6C 20 57 6F 72 64 20 4C 65 66 E80 Del Word Lef
0098B0: 74 0D 0A 37 39 20 20 20 43 09 22 5E 27 23 38 35 t..79 C."^'#85
0098C0: 27 22 20 09 45 38 30 20 44 65 6C 20 74 6F 20 53 '" .E80 Del to S
0098D0: 74 61 72 74 20 6F 66 20 6C 69 6E 65 0D 0A 0D 0A tart of line....
0098E0: 45 20 23 38 30 20 22 5E 4B 43 22 09 63 6F 70 79 E #80 "^KC".copy
0098F0: 20 62 6C 6F 63 6B 0D 0A 45 20 23 38 31 20 22 5E block..E #81 "^
009900: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
009910: 08 00 01 00 02 09 52 E5 08 00 41 02 00 00 00 02 ......R...A.....
009920: 08 00 46 02 00 00 00 02 08 00 42 02 00 00 00 02 ..F.......B.....
009930: 08 00 47 02 00 00 00 02 08 00 43 02 00 00 00 02 ..G.......C.....
009940: 08 00 48 02 00 00 00 02 08 00 44 02 00 00 00 02 ..H.......D.....
009950: 08 00 49 02 00 00 00 02 08 00 45 02 00 00 00 02 ..I.......E.....
009960: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009970: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009980: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009990: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0099A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0099B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0099C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0099D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0099E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0099F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009A00: 6E 61 76 6E 28 2E 69 2E 29 2C 20 61 6E 74 61 6C navn(.i.), antal
009A10: 28 2E 69 2E 29 20 3A 20 35 2C 20 0D 0A 20 20 20 (.i.) : 5, ..
009A20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 p
009A30: 72 69 73 28 2E 69 2E 29 20 3A 20 31 30 20 3A 20 ris(.i.) : 10 :
009A40: 32 2C 20 61 6E 74 61 6C 28 2E 69 2E 29 20 2A 20 2, antal(.i.) *
009A50: 70 72 69 73 28 2E 69 2E 29 20 3A 20 31 30 20 3A pris(.i.) : 10 :
009A60: 20 32 29 3B 0D 0A 20 20 20 20 20 20 20 20 45 4E 2);.. EN
009A70: 44 3B 0D 0A 20 20 20 20 20 20 57 52 49 54 45 4C D;.. WRITEL
009A80: 4E 28 27 20 27 20 3A 20 34 35 2C 20 27 2D 2D 2D N(' ' : 45, '---
009A90: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
009AA0: 2D 2D 2D 2D 2D 2D 27 29 3B 0D 0A 20 20 20 20 20 ------');..
009AB0: 20 57 52 49 54 45 4C 4E 28 27 20 27 20 3A 20 34 WRITELN(' ' : 4
009AC0: 35 2C 20 27 54 4F 54 41 4C 27 2C 20 74 6F 74 61 5, 'TOTAL', tota
009AD0: 6C 20 3A 20 32 30 20 3A 20 32 29 3B 0D 0A 20 20 l : 20 : 2);..
009AE0: 20 20 20 20 57 52 49 54 45 4C 4E 28 27 20 27 20 WRITELN(' '
009AF0: 3A 20 34 35 2C 20 27 4D 4F 4D 53 20 27 2C 20 6D : 45, 'MOMS ', m
009B00: 6F 6D 73 20 3A 20 32 30 20 3A 20 32 29 3B 0D 0A oms : 20 : 2);..
009B10: 20 20 20 20 20 20 57 52 49 54 45 4C 4E 28 27 20 WRITELN('
009B20: 27 20 3A 20 34 35 2C 20 27 2D 2D 2D 2D 2D 2D 2D ' : 45, '-------
009B30: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
009B40: 2D 2D 27 29 3B 0D 0A 20 20 20 20 20 20 57 52 49 --');.. WRI
009B50: 54 45 4C 4E 28 27 20 27 20 3A 20 34 35 2C 20 20 TELN(' ' : 45,
009B60: 27 49 41 4C 54 20 27 2C 20 74 6F 74 61 6C 20 2B 'IALT ', total +
009B70: 20 6D 6F 6D 73 20 3A 20 32 30 20 3A 20 32 29 3B moms : 20 : 2);
009B80: 0D 0A 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 .. END;..
009B90: 0D 0A 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 69 .. BEGIN.. i
009BA0: 6E 64 28 6B 75 6E 64 65 6E 61 76 6E 2C 20 61 6E nd(kundenavn, an
009BB0: 74 61 6C 5F 76 61 72 65 72 2C 20 76 61 72 65 6E tal_varer, varen
009BC0: 75 6D 6D 65 72 2C 20 76 61 72 65 6E 61 76 6E 2C ummer, varenavn,
009BD0: 20 76 61 72 65 61 6E 74 61 6C 2C 20 76 61 72 65 vareantal, vare
009BE0: 70 72 69 73 29 3B 0D 0A 20 20 20 20 73 75 6D 20 pris);.. sum
009BF0: 3A 3D 20 30 3B 0D 0A 20 20 20 20 46 4F 52 20 69 := 0;.. FOR i
009C00: 00 44 3F CE 00 89 3F CE 88 00 65 A8 00 00 FC A8 .D?...?...e.....
009C10: 00 00 CC 88 00 04 0B 44 CC CC CC 00 00 28 00 00 .......D.....(..
009C20: 54 6C 00 00 74 FC 20 00 35 6F 20 44 BD 3F CC 89 Tl..t. .5o D.?..
009C30: 17 3F CE FC 6D 9F 88 00 B8 FC 8A 00 FC FC A8 00 .?..m...........
009C40: 44 CC 00 06 0C CF CC CC CC CC CD 00 00 50 28 00 D............P(.
009C50: 00 00 00 D8 6C 88 00 00 10 FC FC 64 00 00 10 9D ....l......d....
009C60: 6E 64 00 00 44 3F 3F CC 00 44 03 3F 3F CF 88 03 nd..D??..D.??...
009C70: A9 6D 9F CC CC 00 54 FC FC 88 00 00 00 52 F4 A8 .m....T......R..
009C80: 00 00 00 46 CC A8 00 00 00 CC CC 00 00 08 0D CF ...F............
009C90: CC CC CC CC CC CF CF 00 00 00 B4 00 00 00 00 00 ................
009CA0: 00 46 B4 CC 00 00 00 00 00 74 FC EC 20 00 00 00 .F.......t.. ...
009CB0: 00 64 3F CD 20 00 00 00 00 CC 3F 6E 88 00 00 00 .d?. .....?n....
009CC0: 45 17 3F 6E CE 00 00 44 CF BD 3F 6E CE CC 00 45 E.?n...D..?n...E
009CD0: 45 3D FC 9D 88 44 00 00 00 7C FC EC 8A 00 00 00 E=...D...|......
009CE0: 00 A9 F0 ED 00 00 00 00 00 F8 CC CF 00 00 00 00 ................
009CF0: 00 44 CC 88 00 00 00 0A 11 CF CE CC CC CC CC CC .D..............
009D00: CC CF CF 00 00 00 00 F0 28 00 00 00 00 00 00 00 ........(.......
009D10: 00 F0 6C 00 00 00 00 00 00 00 46 B4 6C 88 00 00 ..l.......F.l...
009D20: 00 00 00 10 74 7C FC 98 88 00 00 00 00 10 34 CC ....t|........4.
009D30: DC 98 88 00 00 00 00 10 CC 6E 3F 9A 88 00 00 00 .........n?.....
009D40: 00 DC BD 66 3F CC 88 00 00 00 44 A9 17 66 3F CD ...f?.....D..f?.
009D50: CE 00 00 44 89 FC BD 6E 3F CD CC 88 00 44 56 A9 ...D...n?....DV.
009D60: 3D CF 9D 6E CC CC 00 44 45 01 3D FC EC 6E 45 44 =..n...DE.=..nED
009D70: 00 00 05 54 A9 FC FC ED 04 00 00 00 00 00 A9 F0 ...T............
009D80: 7C A8 00 00 00 00 00 00 F8 CC CC A8 00 00 00 00 |...............
009D90: 00 00 46 CC CC 88 00 00 00 00 00 00 44 CC CC 88 ..F.........D...
009DA0: 00 00 00 0B 11 CF CF CC CC CC CC CC CC CC CD CF ................
009DB0: 00 00 00 00 00 78 88 00 00 00 00 00 00 00 00 54 .....x.........T
009DC0: 78 CC 00 00 00 00 00 00 00 01 DC 3C CC CC 00 00 x..........<....
009DD0: 00 00 00 00 30 FC FC FC 98 88 00 00 00 00 00 30 ....0..........0
009DE0: 7C CC DC 98 88 00 00 00 00 00 64 9D 6E 3F CE 88 |.........d.n?..
009DF0: 00 00 00 00 00 DC 7F 6E 3F CD 88 00 00 00 00 44 .......n?......D
009E00: 20 3A 3D 20 31 20 54 4F 20 61 6E 74 61 6C 5F 76 := 1 TO antal_v
009E10: 61 72 65 72 20 44 4F 0D 0A 20 20 20 20 20 20 73 arer DO.. s
009E20: 75 6D 20 3A 3D 20 73 75 6D 20 2B 20 76 61 72 65 um := sum + vare
009E30: 61 6E 74 61 6C 28 2E 69 2E 29 20 2A 20 76 61 72 antal(.i.) * var
009E40: 65 70 72 69 73 28 2E 69 2E 29 3B 0D 0A 20 20 20 epris(.i.);..
009E50: 20 6D 6F 6D 73 20 3A 3D 20 73 75 6D 20 2A 20 6D moms := sum * m
009E60: 6F 6D 73 70 63 74 20 2F 20 31 30 30 3B 0D 0A 20 omspct / 100;..
009E70: 20 20 20 73 6B 72 69 76 28 6B 75 6E 64 65 6E 61 skriv(kundena
009E80: 76 6E 2C 20 61 6E 74 61 6C 5F 76 61 72 65 72 2C vn, antal_varer,
009E90: 20 76 61 72 65 6E 75 6D 6D 65 72 2C 20 76 61 72 varenummer, var
009EA0: 65 6E 61 76 6E 2C 20 76 61 72 65 61 6E 74 61 6C enavn, vareantal
009EB0: 2C 20 76 61 72 65 70 72 69 73 2C 0D 0A 20 20 20 , varepris,..
009EC0: 20 20 20 20 20 20 20 73 75 6D 2C 20 6D 6F 6D 73 sum, moms
009ED0: 29 3B 0D 0A 20 20 45 4E 44 2E 0D 0A 1A 2A 20 6D );.. END....* m
009EE0: 6F 6D 73 70 63 74 20 2F 20 31 30 30 3B 0D 0A 20 omspct / 100;..
009EF0: 20 20 20 73 6B 72 69 76 28 6B 75 6E 64 65 6E 61 skriv(kundena
009F00: 44 23 D7 F6 1D EB D9 DE 82 10 34 00 06 72 5B AB D#........4..r[.
009F10: 64 D9 8D AE 84 CD A3 44 D1 94 6D 1B C7 23 E4 29 d.....£D..m..#.)
009F20: 01 4C 86 6B 6A 2D 40 A0 AB 7A CD 8C A1 EC 07 39 .L.kj-@..z.....9
009F30: 43 20 BE D4 DA E8 EB 04 2D CF E5 A4 CF 50 A5 CF C ......-....P..
009F40: 57 A5 CF A0 A5 CF 18 A6 CF 07 A6 CF 03 A6 CF FE W...............
009F50: A4 CF 7F A5 CF 99 A5 CF C6 A5 CF 53 A6 CF 92 A6 ...........S....
009F60: 53 CB 07 03 E1 24 00 03 07 00 AA 00 3F 00 C0 00 S....$......?...
009F70: 10 00 02 00 41 09 2A 52 E5 02 04 00 27 20 20 A5 ....A.*R....' .
009F80: 0C 40 8B 5B 0A 80 44 1F 00 D1 9A 05 00 58 F2 09 .@.[..D......X..
009F90: 90 72 1C 32 58 78 33 47 FB F7 88 C0 AA 19 09 58 .r.2Xx3G.......X
009FA0: 68 27 03 38 FA 24 00 05 1F 03 B0 00 3F 00 80 00 h'.8.$......?...
009FB0: 10 00 02 00 41 09 2A 52 E5 02 04 00 4F 01 7C 00 ....A.*R....O.|.
009FC0: 40 74 20 D2 68 0A 00 C0 84 57 01 03 93 1A C1 A8 @t .h....W......
009FD0: 11 32 0E 09 62 03 C1 84 25 00 28 0E 02 D1 D8 61 .2..b...%.(....a
009FE0: 46 B7 D2 02 C2 00 00 0C A3 BA 40 05 70 6C A6 CC F.......£.@.pl..
009FF0: A5 E5 A5 F5 A5 00 00 50 0A 0E 84 E0 10 6C A6 0C .......P.....l..
00A000: 20 20 20 20 20 20 20 20 50 52 4F 47 52 41 4D 20 PROGRAM
00A010: 66 69 62 6F 6E 61 63 31 3B 0D 0A 20 20 20 20 20 fibonac1;..
00A020: 20 20 20 0D 0A 20 20 20 20 20 20 20 20 20 20 56 .. V
00A030: 41 52 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 AR..
00A040: 69 20 3A 20 49 4E 54 45 47 45 52 3B 0D 0A 20 20 i : INTEGER;..
00A050: 20 20 20 20 20 20 20 20 0D 0A 20 20 20 20 20 20 ..
00A060: 20 20 20 20 46 55 4E 43 54 49 4F 4E 20 66 69 62 FUNCTION fib
00A070: 28 6E 20 3A 20 49 4E 54 45 47 45 52 29 20 3A 20 (n : INTEGER) :
00A080: 49 4E 54 45 47 45 52 3B 0D 0A 20 20 20 20 20 20 INTEGER;..
00A090: 20 20 20 20 20 20 0D 0A 20 20 20 20 20 20 20 20 ..
00A0A0: 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 BEGIN..
00A0B0: 20 20 20 20 20 20 20 20 20 49 46 20 6E 20 3C 20 IF n <
00A0C0: 33 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 3..
00A0D0: 20 20 20 54 48 45 4E 20 66 69 62 20 3A 3D 20 31 THEN fib := 1
00A0E0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
00A0F0: 20 20 45 4C 53 45 20 66 69 62 20 3A 3D 20 66 69 ELSE fib := fi
00A100: 62 28 6E 20 2D 20 31 29 20 2B 20 66 69 62 28 6E b(n - 1) + fib(n
00A110: 20 2D 20 32 29 3B 0D 0A 20 20 20 20 20 20 20 20 - 2);..
00A120: 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 END;..
00A130: 20 20 20 20 0D 0A 20 20 20 20 20 20 20 20 20 20 ..
00A140: 42 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 BEGIN..
00A150: 20 20 20 46 4F 52 20 69 20 3A 3D 20 31 20 54 4F FOR i := 1 TO
00A160: 20 32 33 20 44 4F 0D 0A 20 20 20 20 20 20 20 20 23 DO..
00A170: 20 20 20 20 20 20 57 52 49 54 45 4C 4E 28 27 46 WRITELN('F
00A180: 69 62 28 27 2C 20 69 2C 20 27 29 20 3D 20 27 2C ib(', i, ') = ',
00A190: 20 66 69 62 28 69 29 29 3B 0D 0A 20 20 20 20 20 fib(i));..
00A1A0: 20 20 20 20 20 45 4E 44 2E 0D 0A 1A 20 20 20 20 END....
00A1B0: 20 20 20 20 0D 0A 20 20 20 20 20 20 20 20 20 20 ..
00A1C0: 42 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 BEGIN..
00A1D0: 20 20 20 46 4F 52 20 69 20 3A 3D 20 31 20 54 4F FOR i := 1 TO
00A1E0: 20 32 33 20 44 4F 0D 0A 20 20 20 20 20 20 20 20 23 DO..
00A1F0: 20 20 20 20 20 20 57 52 49 54 45 4C 4E 28 27 46 WRITELN('F
00A200: 50 52 4F 47 52 41 4D 20 66 69 62 6F 3B 0D 0A 0D PROGRAM fibo;...
00A210: 0A 20 20 56 41 52 0D 0A 20 20 20 20 61 2C 20 62 . VAR.. a, b
00A220: 2C 20 73 75 6D 20 3A 20 49 4E 54 45 47 45 52 3B , sum : INTEGER;
00A230: 0D 0A 20 20 0D 0A 20 20 42 45 47 49 4E 0D 0A 20 .. .. BEGIN..
00A240: 20 20 20 57 52 49 54 45 28 43 4C 52 48 4F 4D 29 WRITE(CLRHOM)
00A250: 3B 0D 0A 20 20 20 20 57 52 49 54 45 28 27 54 61 ;.. WRITE('Ta
00A260: 73 74 20 64 65 74 20 66 7C 72 73 74 65 20 74 61 st det f|rste ta
00A270: 6C 3A 20 27 29 3B 20 52 45 41 44 4C 4E 28 61 29 l: '); READLN(a)
00A280: 3B 0D 0A 20 20 20 20 57 52 49 54 45 28 27 54 61 ;.. WRITE('Ta
00A290: 73 74 20 64 65 74 20 61 6E 64 65 74 20 74 61 6C st det andet tal
00A2A0: 3A 20 20 27 29 3B 20 52 45 41 44 4C 4E 28 62 29 : '); READLN(b)
00A2B0: 3B 0D 0A 20 20 20 20 57 52 49 54 45 4C 4E 28 61 ;.. WRITELN(a
00A2C0: 20 3A 20 36 29 3B 0D 0A 20 20 20 20 57 52 49 54 : 6);.. WRIT
00A2D0: 45 4C 4E 28 62 20 3A 20 36 29 3B 0D 0A 20 20 20 ELN(b : 6);..
00A2E0: 20 52 45 50 45 41 54 0D 0A 20 20 20 20 20 20 73 REPEAT.. s
00A2F0: 75 6D 20 3A 3D 20 61 20 2B 20 62 3B 0D 0A 20 20 um := a + b;..
00A300: 20 20 20 20 57 52 49 54 45 4C 4E 28 73 75 6D 20 WRITELN(sum
00A310: 3A 20 36 29 3B 0D 0A 20 20 20 20 20 20 61 20 3A : 6);.. a :
00A320: 3D 20 62 3B 0D 0A 20 20 20 20 20 20 62 20 3A 3D = b;.. b :=
00A330: 20 73 75 6D 3B 0D 0A 20 20 20 20 55 4E 54 49 4C sum;.. UNTIL
00A340: 20 73 75 6D 20 3E 20 28 4D 41 58 49 4E 54 20 44 sum > (MAXINT D
00A350: 49 56 20 32 29 3B 0D 0A 20 20 45 4E 44 2E 0D 0A IV 2);.. END...
00A360: 1A 52 45 50 45 41 54 0D 0A 20 20 20 20 20 20 73 .REPEAT.. s
00A370: 75 6D 20 3A 3D 20 61 20 2B 20 62 3B 0D 0A 20 20 um := a + b;..
00A380: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00A390: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00A3A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00A3B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00A3C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00A3D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00A3E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00A3F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00A400: 64 EC 3F 6E 3F 6E CE 64 00 00 00 00 00 00 00 44 d.?n?n.d.......D
00A410: DC 3D 3B 6E 3F 3F CD CC 00 00 00 00 00 00 44 89 .=;n??........D.
00A420: 03 3D 3B 6E 3F 3F CD CF CC 00 00 00 00 44 89 03 .=;n??.......D..
00A430: 03 3D 37 6E 3F 3F CD CF CC CC 00 00 44 89 03 FC .=7n??......D...
00A440: FC 3D 3F 6E 3F 3F CD CE CC CC CC 00 89 03 FC FC .=?n??..........
00A450: 16 3D 6F CF CC 3F 6E CC CC CC CC 88 89 00 8A 00 .=o..?n.........
00A460: 16 3F DE FC FC 9D 6E 88 00 8A 44 88 02 00 08 00 .?....n...D.....
00A470: BC 7E FC FC FC EC 6E 8A 00 08 00 88 00 05 87 00 .~....n.........
00A480: FC A9 56 FC FC FC EC 8A 05 87 00 00 00 00 0A 00 ..V.............
00A490: 54 03 52 F0 7C FC ED 00 00 0A 00 00 00 00 00 00 T.R.|...........
00A4A0: 54 03 E4 CC CC DC FC 00 00 00 00 00 00 00 00 00 T...............
00A4B0: 54 52 CC CC CC CC FC 00 00 00 00 00 00 00 00 00 TR..............
00A4C0: 01 E4 CC CC CC CC CC 00 00 00 00 00 00 00 00 00 ................
00A4D0: 00 CC CC CC CC CC 88 00 00 00 00 00 00 00 00 00 ................
00A4E0: 00 00 CC CC CC 88 00 00 00 00 00 00 0D 1B 00 00 ................
00A4F0: 00 00 00 14 00 00 00 00 00 00 00 00 00 00 00 00 ................
00A500: 46 FC 00 00 00 00 00 00 00 00 00 00 00 46 FC 00 F............F..
00A510: 00 00 00 00 00 00 00 00 00 00 16 FC 00 00 00 00 ................
00A520: 00 00 00 00 00 00 CC 56 CF CC 00 00 00 00 00 00 .......V........
00A530: 00 00 44 CC 56 CF CC 88 00 00 00 00 00 00 00 D8 ..D.V...........
00A540: F0 56 CF E4 CC 00 00 00 00 00 00 00 D8 F0 56 CF .V............V.
00A550: E4 CC 00 00 00 00 00 00 44 E4 CC 56 CF CC D8 88 ........D..V....
00A560: 00 00 00 00 00 44 CC CC 46 CF CC CC 88 00 00 00 .....D..F.......
00A570: 00 00 44 F0 F0 CC CC F0 CC 88 00 00 00 00 00 D8 ..D.............
00A580: E4 CC CC CC CC CC CC 00 00 00 00 00 CC CC CC CC ................
00A590: CC CC CC E4 00 00 00 00 44 CC CC CC CC CC CC CC ........D.......
00A5A0: CC 88 00 00 00 44 89 03 56 ED CF CC CC CC 88 00 .....D..V.......
00A5B0: 00 00 CC 89 03 FC CF CC CC CC CC CC 88 00 44 F0 ..............D.
00A5C0: 89 FC ED CC CC CC CC CC CC 88 00 CC CC CC EC CC ................
00A5D0: CC CC CC CC CC CC CC 00 D8 03 46 CC CC CC CC CC ..........F.....
00A5E0: CC CC DC A9 88 CC CC CC CC CC CC CC CC CC CC CC ................
00A5F0: CC 88 CC CC CC CC CC CC CC CC CC CC CC CC 88 89 ................
00A600: 54 CC CC CD DE FC FC FC FC FC FC 00 00 00 00 00 T...............
00A610: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 DE ................
00A620: FC FC FC FC FC FC FC A8 00 00 00 00 00 00 00 00 ................
00A630: 00 00 00 00 00 00 00 00 00 00 88 00 00 3C 3C 3C .............<<<
00A640: 3C FC FC 00 00 00 00 00 00 00 00 00 00 00 00 00 <...............
00A650: 00 00 00 00 00 88 00 00 00 00 00 00 7C FC 00 00 ............|...
00A660: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00A670: 0A 00 00 00 00 00 00 00 00 1B 17 00 00 00 00 00 ................
00A680: 00 00 00 00 00 00 00 00 00 54 00 00 00 00 00 00 .........T......
00A690: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00A6A0: A8 00 00 00 54 00 00 00 00 00 00 00 00 00 00 00 ....T...........
00A6B0: 00 00 00 00 00 00 00 00 00 00 00 FC 00 00 00 54 ...............T
00A6C0: 00 00 00 00 00 00 00 00 00 03 03 03 00 00 00 00 ................
00A6D0: 00 00 00 00 00 00 54 A8 00 00 54 00 00 00 00 00 ......T...T.....
00A6E0: 00 00 00 00 03 03 03 00 00 00 00 00 00 00 00 00 ................
00A6F0: 00 00 FC FC 54 FC 00 00 00 00 00 00 3C 3C 3C 3C ....T.......<<<<
00A700: 29 03 00 00 00 00 00 00 00 00 00 00 00 54 FC FC )............T..
00A710: FC A8 00 00 00 CF FC 3C 3C 3C 3C 03 00 00 00 00 .......<<<<.....
00A720: 00 00 00 00 00 00 00 00 54 FC FC FC EC CC CC CD ........T.......
00A730: DE FC FC BC 3C 03 00 00 00 00 00 00 00 00 00 00 ....<...........
00A740: 00 00 00 00 FC BD 7E FC CC CC CF FC FC FC FC FC ......~.........
00A750: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 54 FC ..............T.
00A760: F7 3F FC CC CC DE FC A9 7C A8 00 00 00 00 00 00 .?......|.......
00A770: 00 00 00 00 00 00 00 00 00 54 FC B3 B7 FC B8 CC .........T......
00A780: DE FC FC 16 00 00 00 00 00 00 00 00 00 00 00 00 ................
00A790: 00 00 00 00 FC FC F7 73 3E EC E4 CD FC FC EC 00 .......s>.......
00A7A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 54 FC ..............T.
00A7B0: 74 F9 BF FC EC 46 CD DE 00 44 0A 00 00 00 00 00 t....F...D......
00A7C0: 00 00 00 00 00 00 00 00 00 56 B8 DC FC FC FC EC .........V......
00A7D0: 47 CD 00 00 00 0A 00 00 00 00 00 00 00 00 00 00 G...............
00A7E0: 00 00 00 03 03 B8 DC F8 56 FC CC CF 00 00 00 00 ........V.......
00A7F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 03 03 FC ................
00A800: 20 20 20 20 20 20 20 20 50 52 4F 47 52 41 4D 20 PROGRAM
00A810: 66 69 62 6F 6E 61 63 32 3B 0D 0A 20 20 20 20 20 fibonac2;..
00A820: 20 20 20 0D 0A 20 20 20 20 20 20 20 20 20 20 56 .. V
00A830: 41 52 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 AR..
00A840: 69 20 3A 20 49 4E 54 45 47 45 52 3B 0D 0A 20 20 i : INTEGER;..
00A850: 20 20 20 20 20 20 20 20 0D 0A 20 20 20 20 20 20 ..
00A860: 20 20 20 20 46 55 4E 43 54 49 4F 4E 20 66 69 62 FUNCTION fib
00A870: 28 6E 20 3A 20 49 4E 54 45 47 45 52 29 20 3A 20 (n : INTEGER) :
00A880: 49 4E 54 45 47 45 52 3B 0D 0A 20 20 20 20 20 20 INTEGER;..
00A890: 20 20 20 20 20 20 0D 0A 20 20 20 20 20 20 20 20 ..
00A8A0: 20 20 20 20 56 41 52 0D 0A 20 20 20 20 20 20 20 VAR..
00A8B0: 20 20 20 20 20 20 20 66 6F 65 72 73 74 65 2C 20 foerste,
00A8C0: 6E 61 65 73 74 65 2C 20 69 2C 20 67 65 6D 20 3A naeste, i, gem :
00A8D0: 20 49 4E 54 45 47 45 52 3B 0D 0A 20 20 20 20 20 INTEGER;..
00A8E0: 20 20 20 20 20 20 20 0D 0A 20 20 20 20 20 20 20 ..
00A8F0: 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 BEGIN..
00A900: 20 20 20 20 20 20 20 20 20 20 66 6F 65 72 73 74 foerst
00A910: 65 20 3A 3D 20 31 3B 0D 0A 20 20 20 20 20 20 20 e := 1;..
00A920: 20 20 20 20 20 20 20 6E 61 65 73 74 65 20 3A 3D naeste :=
00A930: 20 31 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 1;..
00A940: 20 20 20 46 4F 52 20 69 20 3A 3D 20 33 20 54 4F FOR i := 3 TO
00A950: 20 6E 20 44 4F 0D 0A 20 20 20 20 20 20 20 20 20 n DO..
00A960: 20 20 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 BEGIN..
00A970: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00A980: 67 65 6D 20 3A 3D 20 6E 61 65 73 74 65 3B 0D 0A gem := naeste;..
00A990: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00A9A0: 20 20 6E 61 65 73 74 65 20 3A 3D 20 66 6F 65 72 naeste := foer
00A9B0: 73 74 65 20 2B 20 6E 61 65 73 74 65 3B 0D 0A 20 ste + naeste;..
00A9C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00A9D0: 20 66 6F 65 72 73 74 65 20 3A 3D 20 67 65 6D 3B foerste := gem;
00A9E0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
00A9F0: 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 20 20 END;..
00AA00: 50 52 4F 47 52 41 4D 20 66 69 62 6F 66 6F 72 68 PROGRAM fiboforh
00AA10: 3B 0D 0A 0D 0A 20 20 43 4F 4E 53 54 0D 0A 20 20 ;.... CONST..
00AA20: 20 20 61 6E 74 61 6C 20 3D 20 35 30 3B 0D 0A 20 antal = 50;..
00AA30: 20 20 20 0D 0A 20 20 56 41 52 0D 0A 20 20 20 20 .. VAR..
00AA40: 61 2C 20 62 2C 20 67 65 6D 2C 20 66 6F 72 68 6F a, b, gem, forho
00AA50: 6C 64 20 3A 20 52 45 41 4C 3B 0D 0A 20 20 20 20 ld : REAL;..
00AA60: 69 20 3A 20 49 4E 54 45 47 45 52 3B 0D 0A 20 20 i : INTEGER;..
00AA70: 20 20 0D 0A 20 20 42 45 47 49 4E 0D 0A 20 20 20 .. BEGIN..
00AA80: 20 57 52 49 54 45 28 43 4C 52 48 4F 4D 29 3B 0D WRITE(CLRHOM);.
00AA90: 0A 20 20 20 20 61 20 3A 3D 20 31 3B 0D 0A 20 20 . a := 1;..
00AAA0: 20 20 62 20 3A 3D 20 31 3B 0D 0A 20 20 20 20 46 b := 1;.. F
00AAB0: 4F 52 20 69 20 3A 3D 20 31 20 54 4F 20 61 6E 74 OR i := 1 TO ant
00AAC0: 61 6C 20 44 4F 0D 0A 20 20 20 20 20 20 42 45 47 al DO.. BEG
00AAD0: 49 4E 0D 0A 20 20 20 20 20 20 20 20 67 65 6D 20 IN.. gem
00AAE0: 3A 3D 20 62 3B 0D 0A 20 20 20 20 20 20 20 20 62 := b;.. b
00AAF0: 20 3A 3D 20 61 20 2B 20 62 3B 0D 0A 20 20 20 20 := a + b;..
00AB00: 20 20 20 20 61 20 3A 3D 20 67 65 6D 3B 0D 0A 20 a := gem;..
00AB10: 20 20 20 20 20 20 20 66 6F 72 68 6F 6C 64 20 3A forhold :
00AB20: 3D 20 62 20 2F 20 61 3B 0D 0A 20 20 20 20 20 20 = b / a;..
00AB30: 20 20 57 52 49 54 45 4C 4E 28 61 20 3A 20 31 35 WRITELN(a : 15
00AB40: 20 3A 20 30 2C 20 62 20 3A 20 31 35 20 3A 20 30 : 0, b : 15 : 0
00AB50: 2C 20 66 6F 72 68 6F 6C 64 20 3A 20 31 35 20 3A , forhold : 15 :
00AB60: 20 38 2C 0D 0A 20 20 20 20 20 20 20 20 20 20 20 8,..
00AB70: 20 20 20 20 20 53 51 52 28 32 20 2A 20 66 6F 72 SQR(2 * for
00AB80: 68 6F 6C 64 20 2D 20 31 29 20 3A 20 31 35 20 3A hold - 1) : 15 :
00AB90: 20 38 29 3B 0D 0A 20 20 20 20 20 20 45 4E 44 3B 8);.. END;
00ABA0: 0D 0A 20 20 45 4E 44 2E 0D 0A 1A 20 20 20 20 20 .. END....
00ABB0: 20 20 57 52 49 54 45 4C 4E 28 61 20 3A 20 31 35 WRITELN(a : 15
00ABC0: 20 3A 20 30 2C 20 62 20 3A 20 31 35 20 3A 20 30 : 0, b : 15 : 0
00ABD0: 2C 20 66 6F 72 68 6F 6C 64 20 3A 20 31 35 20 3A , forhold : 15 :
00ABE0: 20 38 2C 0D 0A 20 20 20 20 20 20 20 20 20 20 20 8,..
00ABF0: 20 20 20 20 20 53 51 52 28 32 20 2A 20 66 6F 72 SQR(2 * for
00AC00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
00AC10: 09 00 01 00 02 09 52 E5 09 00 41 02 00 00 00 02 ......R...A.....
00AC20: 09 00 46 02 00 00 00 02 09 00 42 02 00 00 00 02 ..F.......B.....
00AC30: 09 00 47 02 00 00 00 02 09 00 43 02 00 00 00 02 ..G.......C.....
00AC40: 09 00 48 02 00 00 00 02 09 00 44 02 00 00 00 02 ..H.......D.....
00AC50: 09 00 49 02 00 00 00 02 09 00 45 02 00 00 00 02 ..I.......E.....
00AC60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00AC70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00AC80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00AC90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00ACA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00ACB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00ACC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00ACD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00ACE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00ACF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00AD00: 20 20 20 20 20 20 66 69 62 20 3A 3D 20 6E 61 65 fib := nae
00AD10: 73 74 65 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 ste;..
00AD20: 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 20 20 END;..
00AD30: 20 20 0D 0A 20 20 20 20 20 20 20 20 20 20 42 45 .. BE
00AD40: 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 GIN..
00AD50: 20 46 4F 52 20 69 20 3A 3D 20 31 20 54 4F 20 32 FOR i := 1 TO 2
00AD60: 33 20 44 4F 0D 0A 20 20 20 20 20 20 20 20 20 20 3 DO..
00AD70: 20 20 20 20 57 52 49 54 45 4C 4E 28 27 20 20 20 WRITELN('
00AD80: 20 20 20 20 20 46 69 62 28 27 2C 20 69 2C 20 27 Fib(', i, '
00AD90: 29 20 3D 20 27 2C 20 66 69 62 28 69 29 29 3B 0D ) = ', fib(i));.
00ADA0: 0A 20 20 20 20 20 20 20 20 20 20 45 4E 44 2E 0D . END..
00ADB0: 0A 1A 0D 0A 20 20 20 20 20 20 20 20 20 20 42 45 .... BE
00ADC0: 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 GIN..
00ADD0: 20 46 4F 52 20 69 20 3A 3D 20 31 20 54 4F 20 32 FOR i := 1 TO 2
00ADE0: 33 20 44 4F 0D 0A 20 20 20 20 20 20 20 20 20 20 3 DO..
00ADF0: 20 20 20 20 57 52 49 54 45 4C 4E 28 27 20 20 20 WRITELN('
00AE00: 1F 3A A9 2E 3C C2 12 02 3E 2A CD BB 1F 3E 3F C3 .:..<...>*...>?.
00AE10: 20 02 3D F5 5F CD C9 17 F1 6F 26 00 CD BD 1C AF .=._....o&.....
00AE20: 32 5B 2F CD AA 1F 3A 00 21 5C 2F E5 CD C7 15 CD 2[/...:.!\/.....
00AE30: AA 1F 20 20 00 21 FF FF 22 AC 2E 23 22 CC 2E 22 .. .!.."..#".."
00AE40: CE 2E CD E1 1C 21 28 3E 11 5B 2F CD F4 13 7D B4 .....!(>.[/...}.
00AE50: 2B CA 68 02 23 22 AC 2E CD 8B 1A CD CF 1A CD 9C +.h.#"..........
00AE60: 1B 2A B7 2E 2B 22 AC 2E E5 CD F8 02 E1 23 CD F2 .*..+".......#..
00AE70: 1F 22 BF 2E 21 00 00 22 B3 2E 22 D0 2E 22 D2 2E ."..!.."..".."..
00AE80: 31 28 3E 3A A9 2E 32 DB 2E CD CE 17 2A AC 2E 23 1(>:..2.....*..#
00AE90: 7D B4 C2 BB 02 CD AA 1F 0D 0A 0D 0A 4E 6F 20 66 }...........No f
00AEA0: 69 6C 65 73 2E 00 CD 40 17 FE 58 CA E4 02 FE 4C iles...@..X....L
00AEB0: CA 2D 07 FE 53 CA B0 03 C3 80 02 CD A3 1F 2A B3 .-..S.......£.*.
00AEC0: 2E CD F2 1F CD CE 15 CD 40 17 47 21 80 02 E5 21 ........@.G!...!
00AED0: 35 03 7E B7 C8 B8 23 CA DF 02 23 23 C3 D2 02 5E 5.~...#...##...^
00AEE0: 23 56 D5 C9 3A A6 2E 5F 0E 0E CD 05 00 3A A8 2E #V..:.._.....:..
00AEF0: 5F CD C9 17 31 00 00 C9 E5 CD 43 1C 2A CE 2E 0E _...1.....C.*...
00AF00: 20 20 20 20 20 20 20 20 50 52 4F 47 52 41 4D 20 PROGRAM
00AF10: 66 6C 65 74 6E 69 6E 67 3B 0D 0A 20 20 20 20 20 fletning;..
00AF20: 20 20 20 0D 0A 20 20 20 20 20 20 20 20 20 20 28 .. (
00AF30: 2A 20 42 6C 61 6E 64 69 6E 67 20 61 66 20 6B 6F * Blanding af ko
00AF40: 72 74 20 76 65 64 20 73 61 6D 6D 65 6E 66 6C 65 rt ved sammenfle
00AF50: 74 6E 69 6E 67 20 2A 29 0D 0A 20 20 20 20 20 20 tning *)..
00AF60: 20 20 0D 0A 20 20 20 20 20 20 20 20 20 20 43 4F .. CO
00AF70: 4E 53 54 0D 0A 20 20 20 20 20 20 20 20 20 20 20 NST..
00AF80: 20 61 6E 74 61 6C 6B 6F 72 74 20 3D 20 35 32 3B antalkort = 52;
00AF90: 0D 0A 20 20 20 20 20 20 20 20 20 20 0D 0A 20 20 .. ..
00AFA0: 20 20 20 20 20 20 20 20 54 59 50 45 0D 0A 20 20 TYPE..
00AFB0: 20 20 20 20 20 20 20 20 20 20 6B 75 6C 6F 65 72 kuloer
00AFC0: 65 72 20 3D 20 28 6B 6C 6F 65 72 2C 20 72 75 64 er = (kloer, rud
00AFD0: 65 72 2C 20 68 6A 65 72 74 65 72 2C 20 73 70 61 er, hjerter, spa
00AFE0: 72 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 r);..
00AFF0: 20 76 61 65 72 64 69 20 3D 20 52 45 43 4F 52 44 vaerdi = RECORD
00B000: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
00B010: 20 20 20 20 20 20 20 6B 75 6C 6F 65 72 20 3A 20 kuloer :
00B020: 6B 75 6C 6F 65 72 65 72 3B 0D 0A 20 20 20 20 20 kuloerer;..
00B030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00B040: 6E 72 20 3A 20 31 20 2E 2E 20 31 33 3B 0D 0A 20 nr : 1 .. 13;..
00B050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00B060: 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 20 20 END;..
00B070: 20 20 20 20 70 6F 69 6E 74 65 72 20 3D 20 5E 20 pointer = ^
00B080: 6B 6F 72 74 3B 0D 0A 20 20 20 20 20 20 20 20 20 kort;..
00B090: 20 20 20 6B 6F 72 74 20 3D 20 52 45 43 4F 52 44 kort = RECORD
00B0A0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
00B0B0: 20 20 20 20 20 20 20 62 69 6C 6C 65 64 65 20 3A billede :
00B0C0: 20 76 61 65 72 64 69 3B 0D 0A 20 20 20 20 20 20 vaerdi;..
00B0D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6E n
00B0E0: 61 65 73 74 65 20 3A 20 70 6F 69 6E 74 65 72 3B aeste : pointer;
00B0F0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
00B100: 50 52 4F 47 52 41 4D 20 66 69 6C 6B 6F 70 69 3B PROGRAM filkopi;
00B110: 0D 0A 0D 0A 20 20 54 59 50 45 0D 0A 20 20 20 20 .... TYPE..
00B120: 62 75 66 66 65 72 74 79 70 65 20 3D 20 41 52 52 buffertype = ARR
00B130: 41 59 28 2E 31 20 2E 2E 20 31 32 38 30 30 2E 29 AY(.1 .. 12800.)
00B140: 20 4F 46 20 43 48 41 52 3B 0D 0A 20 20 20 20 73 OF CHAR;.. s
00B150: 74 72 31 34 20 3D 20 53 54 52 49 4E 47 28 2E 31 tr14 = STRING(.1
00B160: 34 2E 29 3B 0D 0A 20 20 20 20 0D 0A 20 20 56 41 4.);.. .. VA
00B170: 52 0D 0A 20 20 20 20 62 75 66 66 65 72 20 3A 20 R.. buffer :
00B180: 62 75 66 66 65 72 74 79 70 65 3B 0D 0A 20 20 20 buffertype;..
00B190: 20 69 6E 64 6E 61 76 6E 2C 20 75 64 6E 61 76 6E indnavn, udnavn
00B1A0: 20 3A 20 73 74 72 31 34 3B 0D 0A 20 20 20 20 69 : str14;.. i
00B1B0: 6E 64 66 69 6C 2C 20 75 64 66 69 6C 20 3A 20 46 ndfil, udfil : F
00B1C0: 49 4C 45 3B 0D 0A 20 20 20 20 69 2C 20 6C 61 65 ILE;.. i, lae
00B1D0: 6E 67 64 65 20 3A 20 49 4E 54 45 47 45 52 3B 0D ngde : INTEGER;.
00B1E0: 0A 20 20 20 20 0D 0A 20 20 42 45 47 49 4E 0D 0A . .. BEGIN..
00B1F0: 20 20 20 20 57 52 49 54 45 28 43 4C 52 48 4F 4D WRITE(CLRHOM
00B200: 29 3B 0D 0A 20 20 20 20 57 52 49 54 45 28 27 48 );.. WRITE('H
00B210: 76 69 6C 6B 65 6E 20 66 69 6C 20 73 6B 61 6C 20 vilken fil skal
00B220: 6B 6F 70 69 65 72 65 73 3A 20 27 29 3B 20 52 45 kopieres: '); RE
00B230: 41 44 4C 4E 28 69 6E 64 6E 61 76 6E 29 3B 0D 0A ADLN(indnavn);..
00B240: 20 20 20 20 57 52 49 54 45 28 27 48 76 61 64 20 WRITE('Hvad
00B250: 73 6B 61 6C 20 6B 6F 70 69 65 6E 20 68 65 64 64 skal kopien hedd
00B260: 65 3A 20 27 29 3B 20 52 45 41 44 4C 4E 28 75 64 e: '); READLN(ud
00B270: 6E 61 76 6E 29 3B 0D 0A 20 20 20 20 41 53 53 49 navn);.. ASSI
00B280: 47 4E 28 69 6E 64 66 69 6C 2C 20 69 6E 64 6E 61 GN(indfil, indna
00B290: 76 6E 29 3B 0D 0A 20 20 20 20 41 53 53 49 47 4E vn);.. ASSIGN
00B2A0: 28 75 64 66 69 6C 2C 20 75 64 6E 61 76 6E 29 3B (udfil, udnavn);
00B2B0: 0D 0A 20 20 20 20 52 45 53 45 54 28 69 6E 64 66 .. RESET(indf
00B2C0: 69 6C 29 3B 0D 0A 20 20 20 20 52 45 57 52 49 54 il);.. REWRIT
00B2D0: 45 28 75 64 66 69 6C 29 3B 0D 0A 20 20 20 20 6C E(udfil);.. l
00B2E0: 61 65 6E 67 64 65 20 3A 3D 20 4C 45 4E 47 54 48 aengde := LENGTH
00B2F0: 28 69 6E 64 66 69 6C 29 3B 0D 0A 20 20 20 20 69 (indfil);.. i
00B300: 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 END;..
00B310: 20 20 20 20 20 0D 0A 20 20 20 20 20 20 20 20 20 ..
00B320: 20 56 41 52 0D 0A 20 20 20 20 20 20 20 20 20 20 VAR..
00B330: 20 20 74 6F 70 20 3A 20 70 6F 69 6E 74 65 72 3B top : pointer;
00B340: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 61 6E .. an
00B350: 74 61 6C 20 3A 20 49 4E 54 45 47 45 52 3B 0D 0A tal : INTEGER;..
00B360: 20 20 20 20 20 20 20 20 20 20 20 20 0D 0A 20 20 ..
00B370: 20 20 20 20 20 20 20 20 50 52 4F 43 45 44 55 52 PROCEDUR
00B380: 45 20 6F 70 72 65 74 73 70 69 6C 3B 0D 0A 20 20 E opretspil;..
00B390: 20 20 20 20 20 20 20 20 0D 0A 20 20 20 20 20 20 ..
00B3A0: 20 20 20 20 20 20 56 41 52 0D 0A 20 20 20 20 20 VAR..
00B3B0: 20 20 20 20 20 20 20 20 20 66 61 72 76 65 20 3A farve :
00B3C0: 20 6B 75 6C 6F 65 72 65 72 3B 0D 0A 20 20 20 20 kuloerer;..
00B3D0: 20 20 20 20 20 20 20 20 20 20 69 20 3A 20 49 4E i : IN
00B3E0: 54 45 47 45 52 3B 0D 0A 20 20 20 20 20 20 20 20 TEGER;..
00B3F0: 20 20 20 20 20 20 6B 70 20 3A 20 70 6F 69 6E 74 kp : point
00B400: 65 72 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 er;..
00B410: 20 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 42 .. B
00B420: 45 47 49 4E 20 28 2A 20 6F 70 72 65 74 73 70 69 EGIN (* opretspi
00B430: 6C 20 2A 29 0D 0A 20 20 20 20 20 20 20 20 20 20 l *)..
00B440: 20 20 20 20 74 6F 70 20 3A 3D 20 4E 49 4C 3B 0D top := NIL;.
00B450: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 46 . F
00B460: 4F 52 20 66 61 72 76 65 20 3A 3D 20 73 70 61 72 OR farve := spar
00B470: 20 44 4F 57 4E 54 4F 20 6B 6C 6F 65 72 20 44 4F DOWNTO kloer DO
00B480: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
00B490: 20 20 46 4F 52 20 69 20 3A 3D 20 31 33 20 44 4F FOR i := 13 DO
00B4A0: 57 4E 54 4F 20 31 20 44 4F 0D 0A 20 20 20 20 20 WNTO 1 DO..
00B4B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 42 45 47 BEG
00B4C0: 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 IN..
00B4D0: 20 20 20 20 20 20 20 20 4E 45 57 28 6B 70 29 3B NEW(kp);
00B4E0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
00B4F0: 20 20 20 20 20 20 57 49 54 48 20 6B 70 5E 20 44 WITH kp^ D
00B500: 20 3A 3D 20 30 3B 0D 0A 20 20 20 20 49 46 20 6C := 0;.. IF l
00B510: 61 65 6E 67 64 65 20 3E 3D 20 31 30 30 20 0D 0A aengde >= 100 ..
00B520: 20 20 20 20 20 20 54 48 45 4E 0D 0A 20 20 20 20 THEN..
00B530: 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 BEGIN..
00B540: 20 20 20 20 20 52 45 50 45 41 54 0D 0A 20 20 20 REPEAT..
00B550: 20 20 20 20 20 20 20 20 20 42 4C 4F 43 4B 52 45 BLOCKRE
00B560: 41 44 28 69 6E 64 66 69 6C 2C 20 62 75 66 66 65 AD(indfil, buffe
00B570: 72 2C 20 31 30 30 29 3B 0D 0A 20 20 20 20 20 20 r, 100);..
00B580: 20 20 20 20 20 20 42 4C 4F 43 4B 57 52 49 54 45 BLOCKWRITE
00B590: 28 75 64 66 69 6C 2C 20 62 75 66 66 65 72 2C 20 (udfil, buffer,
00B5A0: 31 30 30 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 100);..
00B5B0: 20 20 20 69 20 3A 3D 20 69 20 2B 20 31 30 30 3B i := i + 100;
00B5C0: 0D 0A 20 20 20 20 20 20 20 20 20 20 55 4E 54 49 .. UNTI
00B5D0: 4C 20 28 6C 61 65 6E 67 64 65 20 2D 20 69 29 20 L (laengde - i)
00B5E0: 3C 20 31 30 30 3B 0D 0A 20 20 20 20 20 20 20 20 < 100;..
00B5F0: 45 4E 44 3B 0D 0A 20 20 20 20 49 46 20 28 6C 61 END;.. IF (la
00B600: 65 6E 67 64 65 20 2D 20 69 29 20 3E 20 30 0D 0A engde - i) > 0..
00B610: 20 20 20 20 20 20 54 48 45 4E 0D 0A 20 20 20 20 THEN..
00B620: 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 BEGIN..
00B630: 20 20 20 20 20 42 4C 4F 43 4B 52 45 41 44 28 69 BLOCKREAD(i
00B640: 6E 64 66 69 6C 2C 20 62 75 66 66 65 72 2C 20 6C ndfil, buffer, l
00B650: 61 65 6E 67 64 65 20 2D 20 69 29 3B 0D 0A 20 20 aengde - i);..
00B660: 20 20 20 20 20 20 20 20 42 4C 4F 43 4B 57 52 49 BLOCKWRI
00B670: 54 45 28 75 64 66 69 6C 2C 20 62 75 66 66 65 72 TE(udfil, buffer
00B680: 2C 20 6C 61 65 6E 67 64 65 20 2D 20 69 29 3B 0D , laengde - i);.
00B690: 0A 20 20 20 20 20 20 20 20 45 4E 44 3B 0D 0A 20 . END;..
00B6A0: 20 20 20 43 4C 4F 53 45 28 69 6E 64 66 69 6C 29 CLOSE(indfil)
00B6B0: 3B 0D 0A 20 20 20 20 43 4C 4F 53 45 28 75 64 66 ;.. CLOSE(udf
00B6C0: 69 6C 29 3B 0D 0A 20 20 45 4E 44 2E 0D 0A 1A 6C il);.. END....l
00B6D0: 61 65 6E 67 64 65 20 2D 20 69 29 3B 0D 0A 20 20 aengde - i);..
00B6E0: 20 20 20 20 20 20 20 20 42 4C 4F 43 4B 57 52 49 BLOCKWRI
00B6F0: 54 45 28 75 64 66 69 6C 2C 20 62 75 66 66 65 72 TE(udfil, buffer
00B700: 4F 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 O..
00B710: 20 20 20 20 20 20 20 20 20 42 45 47 49 4E 0D 0A BEGIN..
00B720: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00B730: 20 20 20 20 20 20 20 20 6E 61 65 73 74 65 20 3A naeste :
00B740: 3D 20 74 6F 70 3B 0D 0A 20 20 20 20 20 20 20 20 = top;..
00B750: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00B760: 62 69 6C 6C 65 64 65 2E 6B 75 6C 6F 65 72 20 3A billede.kuloer :
00B770: 3D 20 66 61 72 76 65 3B 0D 0A 20 20 20 20 20 20 = farve;..
00B780: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00B790: 20 20 62 69 6C 6C 65 64 65 2E 6E 72 20 3A 3D 20 billede.nr :=
00B7A0: 69 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 i;..
00B7B0: 20 20 20 20 20 20 20 20 20 20 45 4E 44 3B 0D 0A END;..
00B7C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00B7D0: 20 20 20 20 74 6F 70 20 3A 3D 20 6B 70 3B 0D 0A top := kp;..
00B7E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00B7F0: 20 20 45 4E 44 3B 20 28 2A 20 74 6F 70 20 65 72 END; (* top er
00B800: 20 6E 75 20 64 65 74 20 66 7C 72 73 74 65 20 6B nu det f|rste k
00B810: 6F 72 74 20 2A 29 0D 0A 20 20 20 20 20 20 20 20 ort *)..
00B820: 20 20 20 20 45 4E 44 3B 20 28 2A 20 6F 70 72 65 END; (* opre
00B830: 74 73 70 69 6C 20 2A 29 0D 0A 20 20 20 20 20 20 tspil *)..
00B840: 20 20 20 20 20 20 0D 0A 20 20 20 20 20 20 20 20 ..
00B850: 20 20 50 52 4F 43 45 44 55 52 45 20 75 64 73 6B PROCEDURE udsk
00B860: 72 69 76 28 73 74 61 72 74 20 3A 20 70 6F 69 6E riv(start : poin
00B870: 74 65 72 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 ter);..
00B880: 20 20 20 20 20 0D 0A 20 20 20 20 20 20 20 20 20 ..
00B890: 20 20 20 56 41 52 0D 0A 20 20 20 20 20 20 20 20 VAR..
00B8A0: 20 20 20 20 20 20 69 20 3A 20 49 4E 54 45 47 45 i : INTEGE
00B8B0: 52 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 R;..
00B8C0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 42 45 .. BE
00B8D0: 47 49 4E 20 28 2A 20 75 64 73 6B 72 69 76 20 2A GIN (* udskriv *
00B8E0: 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 )..
00B8F0: 20 69 20 3A 3D 20 30 3B 0D 0A 20 20 20 20 20 20 i := 0;..
00B900: 50 52 4F 47 52 41 4D 20 66 6C 61 64 65 3B 0D 0A PROGRAM flade;..
00B910: 20 20 0D 0A 20 20 56 41 52 0D 0A 20 20 20 20 62 .. VAR.. b
00B920: 72 65 64 64 65 2C 20 6C 61 65 6E 67 64 65 2C 20 redde, laengde,
00B930: 68 6F 65 6A 64 65 2C 20 6F 76 65 72 66 6C 61 64 hoejde, overflad
00B940: 65 20 3A 20 52 45 41 4C 3B 0D 0A 20 20 20 20 0D e : REAL;.. .
00B950: 0A 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 57 52 . BEGIN.. WR
00B960: 49 54 45 28 43 4C 52 48 4F 4D 29 3B 0D 0A 20 20 ITE(CLRHOM);..
00B970: 20 20 57 52 49 54 45 4C 4E 28 27 50 72 6F 67 72 WRITELN('Progr
00B980: 61 6D 6D 65 74 20 66 69 6E 64 65 72 20 6F 76 65 ammet finder ove
00B990: 72 66 6C 61 64 65 6E 20 61 66 20 65 6E 20 6B 61 rfladen af en ka
00B9A0: 73 73 65 2C 20 6E 7D 72 20 6D 61 6E 20 69 6E 64 sse, n}r man ind
00B9B0: 74 61 73 74 65 72 27 29 3B 0D 0A 20 20 20 20 57 taster');.. W
00B9C0: 52 49 54 45 4C 4E 28 27 6B 61 73 73 65 6E 73 20 RITELN('kassens
00B9D0: 68 7C 6A 64 65 2C 20 6C 7B 6E 67 64 65 20 6F 67 h|jde, l{ngde og
00B9E0: 20 62 72 65 64 64 65 2E 27 29 3B 0D 0A 20 20 20 bredde.');..
00B9F0: 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 57 WRITELN;.. W
00BA00: 52 49 54 45 28 27 49 6E 64 74 61 73 74 20 6B 61 RITE('Indtast ka
00BA10: 73 73 65 6E 73 20 62 72 65 64 64 65 3A 20 27 29 ssens bredde: ')
00BA20: 3B 20 52 45 41 44 4C 4E 28 62 72 65 64 64 65 29 ; READLN(bredde)
00BA30: 3B 0D 0A 20 20 20 20 57 52 49 54 45 28 27 49 6E ;.. WRITE('In
00BA40: 64 74 61 73 74 20 6B 61 73 73 65 6E 73 20 6C 7B dtast kassens l{
00BA50: 6E 67 64 65 3A 20 27 29 3B 20 52 45 41 44 4C 4E ngde: '); READLN
00BA60: 28 6C 61 65 6E 67 64 65 29 3B 0D 0A 20 20 20 20 (laengde);..
00BA70: 57 52 49 54 45 28 27 49 6E 64 74 61 73 74 20 6B WRITE('Indtast k
00BA80: 61 73 73 65 6E 73 20 68 7C 6A 64 65 3A 20 20 27 assens h|jde: '
00BA90: 29 3B 20 52 45 41 44 4C 4E 28 68 6F 65 6A 64 65 ); READLN(hoejde
00BAA0: 29 3B 0D 0A 20 20 20 20 6F 76 65 72 66 6C 61 64 );.. overflad
00BAB0: 65 20 3A 3D 20 28 62 72 65 64 64 65 20 2A 20 6C e := (bredde * l
00BAC0: 61 65 6E 67 64 65 20 2B 20 62 72 65 64 64 65 20 aengde + bredde
00BAD0: 2A 20 68 6F 65 6A 64 65 20 2B 20 6C 61 65 6E 67 * hoejde + laeng
00BAE0: 64 65 20 2A 20 68 6F 65 6A 64 65 29 20 2A 20 32 de * hoejde) * 2
00BAF0: 3B 0D 0A 20 20 20 20 57 52 49 54 45 4C 4E 3B 0D ;.. WRITELN;.
00BB00: 20 20 20 20 20 20 20 20 57 48 49 4C 45 20 73 74 WHILE st
00BB10: 61 72 74 20 3C 3E 20 4E 49 4C 20 44 4F 0D 0A 20 art <> NIL DO..
00BB20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 B
00BB30: 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 EGIN..
00BB40: 20 20 20 20 20 20 20 20 57 49 54 48 20 73 74 61 WITH sta
00BB50: 72 74 5E 20 44 4F 0D 0A 20 20 20 20 20 20 20 20 rt^ DO..
00BB60: 20 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 BEGI
00BB70: 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 N..
00BB80: 20 20 20 20 20 20 20 20 20 43 41 53 45 20 62 69 CASE bi
00BB90: 6C 6C 65 64 65 2E 6B 75 6C 6F 65 72 20 4F 46 0D llede.kuloer OF.
00BBA0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
00BBB0: 20 20 20 20 20 20 20 20 20 6B 6C 6F 65 72 20 20 kloer
00BBC0: 20 3A 20 57 52 49 54 45 28 27 20 4B 27 29 3B 0D : WRITE(' K');.
00BBD0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
00BBE0: 20 20 20 20 20 20 20 20 20 72 75 64 65 72 20 20 ruder
00BBF0: 20 3A 20 57 52 49 54 45 28 27 20 52 27 29 3B 0D : WRITE(' R');.
00BC00: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
00BC10: 20 20 20 20 20 20 20 20 20 68 6A 65 72 74 65 72 hjerter
00BC20: 20 3A 20 57 52 49 54 45 28 27 20 48 27 29 3B 0D : WRITE(' H');.
00BC30: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
00BC40: 20 20 20 20 20 20 20 20 20 73 70 61 72 20 20 20 spar
00BC50: 20 3A 20 57 52 49 54 45 28 27 20 53 27 29 3B 0D : WRITE(' S');.
00BC60: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
00BC70: 20 20 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 END;..
00BC80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00BC90: 20 20 20 57 52 49 54 45 28 62 69 6C 6C 65 64 65 WRITE(billede
00BCA0: 2E 6E 72 20 3A 32 29 3B 0D 0A 20 20 20 20 20 20 .nr :2);..
00BCB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4E EN
00BCC0: 44 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 D;..
00BCD0: 20 20 20 20 20 20 73 74 61 72 74 20 3A 3D 20 73 start := s
00BCE0: 74 61 72 74 5E 2E 6E 61 65 73 74 65 3B 0D 0A 20 tart^.naeste;..
00BCF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00BD00: 0A 20 20 20 20 57 52 49 54 45 4C 4E 28 27 42 72 . WRITELN('Br
00BD10: 65 64 64 65 6E 3A 20 20 20 20 27 2C 20 62 72 65 edden: ', bre
00BD20: 64 64 65 20 3A 20 38 20 3A 20 32 2C 20 27 20 63 dde : 8 : 2, ' c
00BD30: 6D 27 29 3B 0D 0A 20 20 20 20 57 52 49 54 45 4C m');.. WRITEL
00BD40: 4E 28 27 4C 7B 6E 67 64 65 6E 3A 20 20 20 20 27 N('L{ngden: '
00BD50: 2C 20 6C 61 65 6E 67 64 65 20 3A 20 38 20 3A 20 , laengde : 8 :
00BD60: 32 2C 20 27 20 63 6D 27 29 3B 0D 0A 20 20 20 20 2, ' cm');..
00BD70: 57 52 49 54 45 4C 4E 28 27 48 7C 6A 64 65 6E 3A WRITELN('H|jden:
00BD80: 20 20 20 20 20 27 2C 20 68 6F 65 6A 64 65 20 3A ', hoejde :
00BD90: 20 38 20 3A 20 32 2C 20 27 20 63 6D 27 29 3B 0D 8 : 2, ' cm');.
00BDA0: 0A 20 20 20 20 57 52 49 54 45 4C 4E 28 27 4F 76 . WRITELN('Ov
00BDB0: 65 72 66 6C 61 64 65 6E 20 20 27 2C 20 6F 76 65 erfladen ', ove
00BDC0: 72 66 6C 61 64 65 20 3A 20 38 20 3A 20 32 2C 20 rflade : 8 : 2,
00BDD0: 27 20 63 6D 32 27 29 3B 0D 0A 20 20 20 20 57 52 ' cm2');.. WR
00BDE0: 49 54 45 4C 4E 3B 0D 0A 20 20 45 4E 44 2E 0D 0A ITELN;.. END...
00BDF0: 1A 52 49 54 45 4C 4E 28 27 48 7C 6A 64 65 6E 3A .RITELN('H|jden:
00BE00: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BE10: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BE20: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BE30: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BE40: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BE50: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BE60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BE70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BE80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BE90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BEA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BEB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BEC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BED0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BEE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BEF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BF00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
00BF10: 0A 00 01 00 02 09 52 E5 0A 00 41 02 00 00 00 02 ......R...A.....
00BF20: 0A 00 46 02 00 00 00 02 0A 00 42 02 00 00 00 02 ..F.......B.....
00BF30: 0A 00 47 02 00 00 00 02 0A 00 43 02 00 00 00 02 ..G.......C.....
00BF40: 0A 00 48 02 00 00 00 02 0A 00 44 02 00 00 00 02 ..H.......D.....
00BF50: 0A 00 49 02 00 00 00 02 0A 00 45 02 00 00 00 02 ..I.......E.....
00BF60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BF70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BF80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BF90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BFA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BFB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BFC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BFD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BFE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BFF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00C000: 20 69 20 3A 3D 20 69 20 2B 20 31 3B 0D 0A 20 20 i := i + 1;..
00C010: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00C020: 49 46 20 69 20 4D 4F 44 20 31 33 20 3D 20 30 0D IF i MOD 13 = 0.
00C030: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
00C040: 20 20 20 20 20 54 48 45 4E 20 57 52 49 54 45 4C THEN WRITEL
00C050: 4E 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 N;..
00C060: 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 END;..
00C070: 20 20 20 20 20 20 45 4E 44 3B 20 28 2A 20 75 64 END; (* ud
00C080: 73 6B 72 69 76 20 2A 29 0D 0A 20 20 20 20 20 20 skriv *)..
00C090: 20 20 20 0D 0A 20 20 20 20 20 20 20 20 20 20 50 .. P
00C0A0: 52 4F 43 45 44 55 52 45 20 62 6C 61 6E 64 65 28 ROCEDURE blande(
00C0B0: 61 6E 74 61 6C 20 3A 20 49 4E 54 45 47 45 52 29 antal : INTEGER)
00C0C0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 0D 0A 20 ;.. ..
00C0D0: 20 20 20 20 20 20 20 20 20 20 20 56 41 52 0D 0A VAR..
00C0E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6B 70 kp
00C0F0: 2C 20 66 6F 65 72 73 74 65 64 65 6C 2C 20 61 6E , foerstedel, an
00C100: 64 65 6E 64 65 6C 20 3A 20 70 6F 69 6E 74 65 72 dendel : pointer
00C110: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ;..
00C120: 20 69 2C 20 6A 20 3A 20 49 4E 54 45 47 45 52 3B i, j : INTEGER;
00C130: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 0D 0A .. ..
00C140: 20 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 BEGI
00C150: 4E 20 28 2A 20 62 6C 61 6E 64 65 20 2A 29 0D 0A N (* blande *)..
00C160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 46 4F FO
00C170: 52 20 69 20 3A 3D 20 31 20 54 4F 20 61 6E 74 61 R i := 1 TO anta
00C180: 6C 20 44 4F 0D 0A 20 20 20 20 20 20 20 20 20 20 l DO..
00C190: 20 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 BEGIN..
00C1A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6B k
00C1B0: 70 20 3A 3D 20 74 6F 70 3B 0D 0A 20 20 20 20 20 p := top;..
00C1C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 46 4F 52 FOR
00C1D0: 20 6A 20 3A 3D 20 31 20 54 4F 20 28 52 41 4E 44 j := 1 TO (RAND
00C1E0: 4F 4D 28 61 6E 74 61 6C 6B 6F 72 74 29 2D 20 31 OM(antalkort)- 1
00C1F0: 29 20 44 4F 0D 0A 20 20 20 20 20 20 20 20 20 20 ) DO..
00C200: CD 19 86 E1 36 00 C3 CA 81 E1 11 04 00 19 C1 10 ....6...........
00C210: AE C9 CB 3A DA DC 81 C6 08 FE 99 C9 D6 08 FE 99 ...:............
00C220: C9 3A BF 84 D6 01 D2 1D 82 ED 5B B9 84 21 10 9C .:........[..!..
00C230: 3A 6E 7F A7 CA FF 81 01 26 02 09 3D C2 FA 81 EB :n......&..=....
00C240: 01 16 19 C3 20 83 3A AC 84 0F 0F 0F 5F 0F 0F 83 .... .:....._...
00C250: 6F 26 00 29 ED 5B B7 84 19 22 B9 84 C9 32 BF 84 o&.).[..."...2..
00C260: D6 08 DA 4E 82 E6 FE 6F 26 00 11 ED 84 19 5E 23 ...N...o&.....^#
00C270: 66 6B 7E 23 47 5E 23 56 23 4E 23 7E 23 E5 C5 47 fk~#G^#V#N#~#..G
00C280: 2A B9 84 09 01 16 07 CD 20 83 C1 E1 10 E7 2A B5 *....... .....*.
00C290: 84 11 40 01 19 7C FE 2B D0 22 B5 84 11 45 33 01 ..@..|.+."...E3.
00C2A0: 10 05 C3 20 83 21 00 03 3A CE 91 E6 01 3E 90 CA ... .!..:....>..
00C2B0: 77 82 21 40 04 3E 8C 11 00 C0 D5 01 50 00 ED B0 w.!@.>......P...
00C2C0: D1 EB 01 00 08 09 D2 8D 82 01 50 C0 09 EB 3D C2 ..........P...=.
00C2D0: 7A 82 C9 08 06 F5 ED 78 CB 1F 30 FA 08 C9 F3 ED z......x..0.....
00C2E0: 73 E2 82 31 00 30 3E 30 21 C0 C0 E5 E5 E5 E5 E5 s..1.0>0!.......
00C2F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00C300: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00C310: E5 E5 E5 3D C2 AB 82 3E 60 25 24 21 00 00 C2 AB ...=...>`%$!....
00C320: 82 31 00 00 FB C9 00 3A E6 82 3C 32 E6 82 E6 03 .1.....:..<2....
00C330: 1E 00 57 CB 22 CB 3F CB 1B 82 57 2A AD 84 19 3A ..W.".?...W*...:
00C340: BB 84 E6 60 E5 5F 87 6F 26 00 54 29 19 54 5D 21 ...`._.o&.T).T]!
00C350: 80 02 A7 ED 52 44 4D 21 80 1E 19 D1 EB ED B0 C9 ....RDM!........
00C360: C5 E5 1A A7 CA 3B 83 E6 AA C2 2F 83 7E E6 AA 4F .....;..../.~..O
00C370: 1A E6 55 C2 39 83 7E E6 55 B1 77 13 23 10 E3 E1 ..U.9.~.U.w.#...
00C380: 7D C6 50 6F D2 48 83 24 C1 0D C2 20 83 C9 F3 E5 }.Po.H.$... ....
00C390: C5 F5 3A 51 7F 3C E6 0F 32 51 7F CB 3F 4F 06 00 ..:Q.<..2Q..?O..
00C3A0: 21 81 83 3A AA 84 FE 04 DA 6E 83 21 89 83 09 3E !..:.....n.!...>
00C3B0: 02 01 00 7F ED 79 7E F6 40 ED 79 F1 C1 E1 FB ED .....y~.@.y.....
00C3C0: 45 0C 0C 0C 0C 0E 0E 0E 0E 0C 0E 0A 0B 0B 0A 0E E...............
00C3D0: 0C 00 01 00 00 DE 39 00 00 00 00 00 00 00 00 00 ......9.........
00C3E0: 00 00 01 00 00 DE 39 00 00 00 00 00 00 00 00 00 ......9.........
00C3F0: 00 00 01 00 00 DE 39 00 00 00 00 00 00 00 00 00 ......9.........
00C400: 20 20 20 20 20 20 20 20 20 20 6B 70 20 3A 3D 20 kp :=
00C410: 6B 70 5E 2E 6E 61 65 73 74 65 3B 0D 0A 20 20 20 kp^.naeste;..
00C420: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 (
00C430: 2A 20 4B 6F 72 74 65 6E 65 20 73 6B 69 6C 6C 65 * Kortene skille
00C440: 73 20 65 66 74 65 72 20 6B 70 5E 20 2A 29 0D 0A s efter kp^ *)..
00C450: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00C460: 20 20 66 6F 65 72 73 74 65 64 65 6C 20 3A 3D 20 foerstedel :=
00C470: 74 6F 70 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 top;..
00C480: 20 20 20 20 20 20 20 20 61 6E 64 65 6E 64 65 6C andendel
00C490: 20 3A 3D 20 6B 70 5E 2E 6E 61 65 73 74 65 3B 0D := kp^.naeste;.
00C4A0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
00C4B0: 20 20 20 6B 70 5E 2E 6E 61 65 73 74 65 20 3A 3D kp^.naeste :=
00C4C0: 20 4E 49 4C 3B 0D 0A 20 20 20 20 20 20 20 20 20 NIL;..
00C4D0: 20 20 20 20 20 20 20 20 20 49 46 20 52 41 4E 44 IF RAND
00C4E0: 4F 4D 28 32 29 20 3D 20 30 0D 0A 20 20 20 20 20 OM(2) = 0..
00C4F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 T
00C500: 48 45 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 HEN..
00C510: 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4E BEGIN
00C520: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
00C530: 20 20 20 20 20 20 20 20 20 20 6B 70 20 3A 3D 20 kp :=
00C540: 66 6F 65 72 73 74 65 64 65 6C 3B 0D 0A 20 20 20 foerstedel;..
00C550: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00C560: 20 20 20 20 20 66 6F 65 72 73 74 65 64 65 6C 20 foerstedel
00C570: 3A 3D 20 61 6E 64 65 6E 64 65 6C 3B 0D 0A 20 20 := andendel;..
00C580: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00C590: 20 20 20 20 20 20 61 6E 64 65 6E 64 65 6C 20 3A andendel :
00C5A0: 3D 20 6B 70 3B 0D 0A 20 20 20 20 20 20 20 20 20 = kp;..
00C5B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4E 44 END
00C5C0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ;..
00C5D0: 20 20 20 20 20 74 6F 70 20 3A 3D 20 66 6F 65 72 top := foer
00C5E0: 73 74 65 64 65 6C 3B 0D 0A 20 20 20 20 20 20 20 stedel;..
00C5F0: 20 20 20 20 20 20 20 20 20 20 20 6B 70 20 3A 3D kp :=
00C600: 50 52 4F 47 52 41 4D 20 66 6F 72 6B 6F 72 74 3B PROGRAM forkort;
00C610: 0D 0A 0D 0A 20 20 56 41 52 0D 0A 20 20 20 20 74 .... VAR.. t
00C620: 2C 20 6E 20 3A 20 49 4E 54 45 47 45 52 3B 0D 0A , n : INTEGER;..
00C630: 20 20 0D 0A 20 20 50 52 4F 43 45 44 55 52 45 20 .. PROCEDURE
00C640: 66 6F 72 68 6F 6C 64 28 74 61 65 6C 6C 65 72 2C forhold(taeller,
00C650: 20 6E 61 65 76 6E 65 72 20 3A 20 49 4E 54 45 47 naevner : INTEG
00C660: 45 52 29 3B 0D 0A 20 20 0D 0A 20 20 20 20 56 41 ER);.. .. VA
00C670: 52 0D 0A 20 20 20 20 20 20 74 61 65 6C 6C 65 72 R.. taeller
00C680: 6B 6F 70 69 2C 20 6E 61 65 76 6E 65 72 6B 6F 70 kopi, naevnerkop
00C690: 69 2C 20 72 65 73 74 20 3A 20 49 4E 54 45 47 45 i, rest : INTEGE
00C6A0: 52 3B 0D 0A 20 20 20 20 0D 0A 20 20 20 20 42 45 R;.. .. BE
00C6B0: 47 49 4E 0D 0A 20 20 20 20 20 20 74 61 65 6C 6C GIN.. taell
00C6C0: 65 72 6B 6F 70 69 20 3A 3D 20 74 61 65 6C 6C 65 erkopi := taelle
00C6D0: 72 3B 0D 0A 20 20 20 20 20 20 6E 61 65 76 6E 65 r;.. naevne
00C6E0: 72 6B 6F 70 69 20 3A 3D 20 6E 61 65 76 6E 65 72 rkopi := naevner
00C6F0: 3B 0D 0A 20 20 20 20 20 20 52 45 50 45 41 54 0D ;.. REPEAT.
00C700: 0A 20 20 20 20 20 20 20 20 72 65 73 74 20 3A 3D . rest :=
00C710: 20 74 61 65 6C 6C 65 72 6B 6F 70 69 20 4D 4F 44 taellerkopi MOD
00C720: 20 6E 61 65 76 6E 65 72 6B 6F 70 69 3B 0D 0A 20 naevnerkopi;..
00C730: 20 20 20 20 20 20 20 74 61 65 6C 6C 65 72 6B 6F taellerko
00C740: 70 69 20 3A 3D 20 6E 61 65 76 6E 65 72 6B 6F 70 pi := naevnerkop
00C750: 69 3B 0D 0A 20 20 20 20 20 20 20 20 6E 61 65 76 i;.. naev
00C760: 6E 65 72 6B 6F 70 69 20 3A 3D 20 72 65 73 74 3B nerkopi := rest;
00C770: 0D 0A 20 20 20 20 20 20 55 4E 54 49 4C 20 6E 61 .. UNTIL na
00C780: 65 76 6E 65 72 6B 6F 70 69 20 3D 20 30 3B 0D 0A evnerkopi = 0;..
00C790: 20 20 20 20 20 20 57 52 49 54 45 28 74 61 65 6C WRITE(tael
00C7A0: 6C 65 72 2C 20 27 20 2F 20 27 2C 20 6E 61 65 76 ler, ' / ', naev
00C7B0: 6E 65 72 29 3B 0D 0A 20 20 20 20 20 20 49 46 20 ner);.. IF
00C7C0: 74 61 65 6C 6C 65 72 6B 6F 70 69 20 3D 20 31 0D taellerkopi = 1.
00C7D0: 0A 20 20 20 20 20 20 20 20 54 48 45 4E 20 57 52 . THEN WR
00C7E0: 49 54 45 4C 4E 28 27 20 65 72 20 75 66 6F 72 6B ITELN(' er ufork
00C7F0: 6F 72 74 65 6C 69 67 27 29 0D 0A 20 20 20 20 20 ortelig')..
00C800: 20 66 6F 65 72 73 74 65 64 65 6C 3B 0D 0A 20 20 foerstedel;..
00C810: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00C820: 28 2A 20 4E 75 20 66 6C 65 74 74 65 73 20 66 6F (* Nu flettes fo
00C830: 65 72 73 74 65 64 65 6C 20 6F 67 20 61 6E 64 65 erstedel og ande
00C840: 6E 64 65 6C 20 73 61 6D 6D 65 6E 20 2A 29 0D 0A ndel sammen *)..
00C850: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00C860: 20 20 57 48 49 4C 45 20 28 66 6F 65 72 73 74 65 WHILE (foerste
00C870: 64 65 6C 5E 2E 6E 61 65 73 74 65 20 3C 3E 20 4E del^.naeste <> N
00C880: 49 4C 29 20 41 4E 44 20 0D 0A 20 20 20 20 20 20 IL) AND ..
00C890: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00C8A0: 20 20 20 20 28 61 6E 64 65 6E 64 65 6C 5E 2E 6E (andendel^.n
00C8B0: 61 65 73 74 65 20 3C 3E 20 4E 49 4C 29 20 44 4F aeste <> NIL) DO
00C8C0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
00C8D0: 20 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 BEGIN..
00C8E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00C8F0: 20 20 20 66 6F 65 72 73 74 65 64 65 6C 20 3A 3D foerstedel :=
00C900: 20 66 6F 65 72 73 74 65 64 65 6C 5E 2E 6E 61 65 foerstedel^.nae
00C910: 73 74 65 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 ste;..
00C920: 20 20 20 20 20 20 20 20 20 20 20 20 6B 70 5E 2E kp^.
00C930: 6E 61 65 73 74 65 20 3A 3D 20 61 6E 64 65 6E 64 naeste := andend
00C940: 65 6C 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 el;..
00C950: 20 20 20 20 20 20 20 20 20 20 20 6B 70 20 3A 3D kp :=
00C960: 20 61 6E 64 65 6E 64 65 6C 3B 0D 0A 20 20 20 20 andendel;..
00C970: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00C980: 20 20 61 6E 64 65 6E 64 65 6C 20 3A 3D 20 61 6E andendel := an
00C990: 64 65 6E 64 65 6C 5E 2E 6E 61 65 73 74 65 3B 0D dendel^.naeste;.
00C9A0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
00C9B0: 20 20 20 20 20 20 20 6B 70 5E 2E 6E 61 65 73 74 kp^.naest
00C9C0: 65 20 3A 3D 20 66 6F 65 72 73 74 65 64 65 6C 3B e := foerstedel;
00C9D0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
00C9E0: 20 20 20 20 20 20 20 20 6B 70 3A 3D 66 6F 65 72 kp:=foer
00C9F0: 73 74 65 64 65 6C 3B 0D 0A 20 20 20 20 20 20 20 stedel;..
00CA00: 20 45 4C 53 45 20 49 46 20 74 61 65 6C 6C 65 72 ELSE IF taeller
00CA10: 20 4D 4F 44 20 6E 61 65 76 6E 65 72 20 3D 20 30 MOD naevner = 0
00CA20: 0D 0A 20 20 20 20 20 20 20 20 54 48 45 4E 20 57 .. THEN W
00CA30: 52 49 54 45 4C 4E 28 27 20 3D 20 27 2C 20 74 61 RITELN(' = ', ta
00CA40: 65 6C 6C 65 72 20 44 49 56 20 6E 61 65 76 6E 65 eller DIV naevne
00CA50: 72 29 0D 0A 20 20 20 20 20 20 45 4C 53 45 0D 0A r).. ELSE..
00CA60: 20 20 20 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 BEGIN..
00CA70: 20 20 20 20 20 20 20 20 20 74 61 65 6C 6C 65 72 taeller
00CA80: 20 3A 3D 20 74 61 65 6C 6C 65 72 20 44 49 56 20 := taeller DIV
00CA90: 74 61 65 6C 6C 65 72 6B 6F 70 69 3B 0D 0A 20 20 taellerkopi;..
00CAA0: 20 20 20 20 20 20 20 20 6E 61 65 76 6E 65 72 20 naevner
00CAB0: 3A 3D 20 6E 61 65 76 6E 65 72 20 44 49 56 20 74 := naevner DIV t
00CAC0: 61 65 6C 6C 65 72 6B 6F 70 69 3B 0D 0A 20 20 20 aellerkopi;..
00CAD0: 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E 28 27 WRITELN('
00CAE0: 20 3D 20 27 2C 20 74 61 65 6C 6C 65 72 2C 20 27 = ', taeller, '
00CAF0: 20 2F 20 27 2C 20 6E 61 65 76 6E 65 72 29 3B 20 / ', naevner);
00CB00: 0D 0A 20 20 20 20 20 20 20 20 45 4E 44 3B 0D 0A .. END;..
00CB10: 20 20 20 20 45 4E 44 3B 0D 0A 20 20 0D 0A 20 20 END;.. ..
00CB20: 42 45 47 49 4E 0D 0A 20 20 20 20 57 52 49 54 45 BEGIN.. WRITE
00CB30: 28 43 4C 52 48 4F 4D 29 3B 0D 0A 20 20 20 20 57 (CLRHOM);.. W
00CB40: 52 49 54 45 28 27 54 61 73 74 20 74 7B 6C 6C 65 RITE('Tast t{lle
00CB50: 72 3A 20 27 29 3B 20 52 45 41 44 4C 4E 28 74 29 r: '); READLN(t)
00CB60: 3B 0D 0A 20 20 20 20 57 52 49 54 45 28 27 54 61 ;.. WRITE('Ta
00CB70: 73 74 20 6E 7B 76 6E 65 72 3A 20 27 29 3B 20 52 st n{vner: '); R
00CB80: 45 41 44 4C 4E 28 6E 29 3B 0D 0A 20 20 20 20 66 EADLN(n);.. f
00CB90: 6F 72 68 6F 6C 64 28 74 2C 20 6E 29 3B 0D 0A 20 orhold(t, n);..
00CBA0: 20 45 4E 44 2E 0D 0A 1A 20 20 20 57 52 49 54 45 END.... WRITE
00CBB0: 28 43 4C 52 48 4F 4D 29 3B 0D 0A 20 20 20 20 57 (CLRHOM);.. W
00CBC0: 52 49 54 45 28 27 54 61 73 74 20 74 7B 6C 6C 65 RITE('Tast t{lle
00CBD0: 72 3A 20 27 29 3B 20 52 45 41 44 4C 4E 28 74 29 r: '); READLN(t)
00CBE0: 3B 0D 0A 20 20 20 20 57 52 49 54 45 28 27 54 61 ;.. WRITE('Ta
00CBF0: 73 74 20 6E 7B 76 6E 65 72 3A 20 27 29 3B 20 52 st n{vner: '); R
00CC00: 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4E 44 END
00CC10: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ;..
00CC20: 20 20 20 20 20 28 2A 20 45 66 74 65 72 20 73 61 (* Efter sa
00CC30: 6D 6D 65 6E 66 6C 65 74 6E 69 6E 67 65 6E 20 68 mmenfletningen h
00CC40: 65 66 74 65 73 20 68 61 6C 65 6E 20 70 7D 3A 20 eftes halen p}:
00CC50: 2A 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 *)..
00CC60: 20 20 20 20 20 20 49 46 20 66 6F 65 72 73 74 65 IF foerste
00CC70: 64 65 6C 5E 2E 6E 61 65 73 74 65 20 3C 3E 20 4E del^.naeste <> N
00CC80: 49 4C 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 IL..
00CC90: 20 20 20 20 20 20 20 20 54 48 45 4E 0D 0A 20 20 THEN..
00CCA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00CCB0: 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 BEGIN..
00CCC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00CCD0: 20 20 20 61 6E 64 65 6E 64 65 6C 5E 2E 6E 61 65 andendel^.nae
00CCE0: 73 74 65 20 3A 3D 20 66 6F 65 72 73 74 65 64 65 ste := foerstede
00CCF0: 6C 5E 2E 6E 61 65 73 74 65 3B 0D 0A 20 20 20 20 l^.naeste;..
00CD00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00CD10: 20 20 20 20 6B 70 5E 2E 6E 61 65 73 74 65 20 3A kp^.naeste :
00CD20: 3D 20 61 6E 64 65 6E 64 65 6C 3B 0D 0A 20 20 20 = andendel;..
00CD30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00CD40: 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 20 END;..
00CD50: 20 20 20 20 20 20 20 20 20 20 20 49 46 20 61 6E IF an
00CD60: 64 65 6E 64 65 6C 5E 2E 6E 61 65 73 74 65 20 3C dendel^.naeste <
00CD70: 3E 20 4E 49 4C 0D 0A 20 20 20 20 20 20 20 20 20 > NIL..
00CD80: 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4E 20 THEN
00CD90: 6B 70 5E 2E 6E 61 65 73 74 65 20 3A 3D 20 61 6E kp^.naeste := an
00CDA0: 64 65 6E 64 65 6C 3B 0D 0A 20 20 20 20 20 20 20 dendel;..
00CDB0: 20 20 20 20 20 20 20 20 20 20 20 49 46 20 28 66 IF (f
00CDC0: 6F 65 72 73 74 65 64 65 6C 5E 2E 6E 61 65 73 74 oerstedel^.naest
00CDD0: 65 20 3D 20 4E 49 4C 29 20 41 4E 44 20 28 61 6E e = NIL) AND (an
00CDE0: 64 65 6E 64 65 6C 5E 2E 6E 61 65 73 74 65 20 3D dendel^.naeste =
00CDF0: 20 4E 49 4C 29 0D 0A 20 20 20 20 20 20 20 20 20 NIL)..
00CE00: 50 52 4F 47 52 41 4D 20 67 61 65 74 74 65 67 6E PROGRAM gaettegn
00CE10: 3B 0D 0A 20 20 0D 0A 20 20 54 59 50 45 0D 0A 20 ;.. .. TYPE..
00CE20: 20 20 20 74 65 67 6E 20 3D 20 53 45 54 20 4F 46 tegn = SET OF
00CE30: 20 27 41 27 20 2E 2E 20 27 5D 27 3B 0D 0A 20 20 'A' .. ']';..
00CE40: 20 20 73 74 72 33 30 20 3D 20 53 54 52 49 4E 47 str30 = STRING
00CE50: 28 2E 33 30 2E 29 3B 0D 0A 20 20 0D 0A 20 20 56 (.30.);.. .. V
00CE60: 41 52 0D 0A 20 20 20 20 64 61 74 61 6D 61 74 2C AR.. datamat,
00CE70: 20 73 70 69 6C 6C 65 72 2C 20 66 61 65 6C 6C 65 spiller, faelle
00CE80: 73 20 3A 20 74 65 67 6E 3B 0D 0A 20 20 20 20 69 s : tegn;.. i
00CE90: 2C 20 67 61 65 74 2C 20 74 61 65 6C 6C 65 72 20 , gaet, taeller
00CEA0: 3A 20 49 4E 54 45 47 45 52 3B 0D 0A 20 20 20 20 : INTEGER;..
00CEB0: 63 68 20 3A 20 43 48 41 52 3B 0D 0A 20 20 20 20 ch : CHAR;..
00CEC0: 74 65 6B 73 74 20 3A 20 73 74 72 33 30 3B 0D 0A tekst : str30;..
00CED0: 20 20 0D 0A 20 20 46 55 4E 43 54 49 4F 4E 20 75 .. FUNCTION u
00CEE0: 70 70 65 72 63 61 73 65 28 73 74 72 20 3A 20 73 ppercase(str : s
00CEF0: 74 72 33 30 29 20 3A 20 73 74 72 33 30 3B 0D 0A tr30) : str30;..
00CF00: 20 20 0D 0A 20 20 20 20 56 41 52 0D 0A 20 20 20 .. VAR..
00CF10: 20 20 20 69 20 3A 20 49 4E 54 45 47 45 52 3B 0D i : INTEGER;.
00CF20: 0A 20 20 20 20 20 20 73 20 3A 20 73 74 72 33 30 . s : str30
00CF30: 3B 0D 0A 20 20 20 20 0D 0A 20 20 20 20 42 45 47 ;.. .. BEG
00CF40: 49 4E 20 28 2A 20 75 70 70 65 72 63 61 73 65 20 IN (* uppercase
00CF50: 2A 29 0D 0A 20 20 20 20 20 20 73 20 3A 3D 20 27 *).. s := '
00CF60: 27 3B 0D 0A 20 20 20 20 20 20 46 4F 52 20 69 20 ';.. FOR i
00CF70: 3A 3D 20 31 20 54 4F 20 4C 45 4E 28 73 74 72 29 := 1 TO LEN(str)
00CF80: 20 44 4F 0D 0A 20 20 20 20 20 20 20 20 49 46 20 DO.. IF
00CF90: 28 27 61 27 20 3C 3D 20 73 74 72 28 2E 69 2E 29 ('a' <= str(.i.)
00CFA0: 29 20 41 4E 44 20 28 73 74 72 28 2E 69 2E 29 20 ) AND (str(.i.)
00CFB0: 3C 3D 20 27 7D 27 29 0D 0A 20 20 20 20 20 20 20 <= '}')..
00CFC0: 20 20 20 54 48 45 4E 20 73 20 3A 3D 20 73 20 2B THEN s := s +
00CFD0: 20 43 48 52 28 4F 52 44 28 73 74 72 28 2E 69 2E CHR(ORD(str(.i.
00CFE0: 29 29 20 2D 20 33 32 29 0D 0A 20 20 20 20 20 20 )) - 32)..
00CFF0: 20 20 20 20 45 4C 53 45 20 73 20 3A 3D 20 73 20 ELSE s := s
00D000: 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4E 20 THEN
00D010: 66 6F 65 72 73 74 65 64 65 6C 5E 2E 6E 61 65 73 foerstedel^.naes
00D020: 74 65 20 3A 3D 20 61 6E 64 65 6E 64 65 6C 3B 0D te := andendel;.
00D030: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
00D040: 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 20 20 20 END;..
00D050: 20 20 20 45 4E 44 3B 20 28 2A 20 62 6C 61 6E 64 END; (* bland
00D060: 65 20 2A 29 0D 0A 20 20 20 20 20 20 20 20 20 20 e *)..
00D070: 0D 0A 20 20 20 20 20 20 20 20 20 20 42 45 47 49 .. BEGI
00D080: 4E 20 28 2A 20 62 6C 61 6E 64 20 2A 29 0D 0A 20 N (* bland *)..
00D090: 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 WRITE
00D0A0: 28 43 4C 52 48 4F 4D 29 3B 0D 0A 20 20 20 20 20 (CLRHOM);..
00D0B0: 20 20 20 20 20 20 20 52 41 4E 44 4F 4D 49 5A 45 RANDOMIZE
00D0C0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 6F ;.. o
00D0D0: 70 72 65 74 73 70 69 6C 3B 0D 0A 20 20 20 20 20 pretspil;..
00D0E0: 20 20 20 20 20 20 20 57 52 49 54 45 28 27 48 76 WRITE('Hv
00D0F0: 6F 72 20 6D 61 6E 67 65 20 73 61 6D 6D 65 6E 66 or mange sammenf
00D100: 6C 65 74 6E 69 6E 67 65 72 20 7C 6E 73 6B 65 73 letninger |nskes
00D110: 3A 20 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 : ');..
00D120: 20 20 20 52 45 41 44 4C 4E 28 61 6E 74 61 6C 29 READLN(antal)
00D130: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 62 ;.. b
00D140: 6C 61 6E 64 65 28 61 6E 74 61 6C 29 3B 0D 0A 20 lande(antal);..
00D150: 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 WRITE
00D160: 4C 4E 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 LN;..
00D170: 20 75 64 73 6B 72 69 76 28 74 6F 70 29 3B 0D 0A udskriv(top);..
00D180: 20 20 20 20 20 20 20 20 20 20 45 4E 44 2E 20 28 END. (
00D190: 2A 20 62 6C 61 6E 64 20 2A 29 0D 0A 1A 20 20 20 * bland *)...
00D1A0: 20 20 20 52 45 41 44 4C 4E 28 61 6E 74 61 6C 29 READLN(antal)
00D1B0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 62 ;.. b
00D1C0: 6C 61 6E 64 65 28 61 6E 74 61 6C 29 3B 0D 0A 20 lande(antal);..
00D1D0: 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 WRITE
00D1E0: 4C 4E 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 LN;..
00D1F0: 20 75 64 73 6B 72 69 76 28 74 6F 70 29 3B 0D 0A udskriv(top);..
00D200: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
00D210: 0B 00 01 00 02 09 52 E5 0B 00 41 02 00 00 00 02 ......R...A.....
00D220: 0B 00 46 02 00 00 00 02 0B 00 42 02 00 00 00 02 ..F.......B.....
00D230: 0B 00 47 02 00 00 00 02 0B 00 43 02 00 00 00 02 ..G.......C.....
00D240: 0B 00 48 02 00 00 00 02 0B 00 44 02 00 00 00 02 ..H.......D.....
00D250: 0B 00 49 02 00 00 00 02 0B 00 45 02 00 00 00 02 ..I.......E.....
00D260: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D270: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D280: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D290: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D2A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D2B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D2C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D2D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D2E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D2F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D300: 2B 20 73 74 72 28 2E 69 2E 29 3B 0D 0A 20 20 20 + str(.i.);..
00D310: 20 20 20 75 70 70 65 72 63 61 73 65 20 3A 3D 20 uppercase :=
00D320: 73 3B 0D 0A 20 20 20 20 45 4E 44 3B 20 28 2A 20 s;.. END; (*
00D330: 75 70 70 65 72 63 61 73 65 20 2A 29 0D 0A 0D 0A uppercase *)....
00D340: 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 57 52 49 BEGIN.. WRI
00D350: 54 45 28 43 4C 52 48 4F 4D 29 3B 0D 0A 20 20 20 TE(CLRHOM);..
00D360: 20 57 52 49 54 45 4C 4E 28 27 44 61 74 61 6D 61 WRITELN('Datama
00D370: 74 65 6E 20 76 7B 6C 67 65 72 20 66 69 72 65 20 ten v{lger fire
00D380: 66 6F 72 73 6B 65 6C 6C 69 67 65 20 62 6F 67 73 forskellige bogs
00D390: 74 61 76 65 72 27 29 3B 0D 0A 20 20 20 20 57 52 taver');.. WR
00D3A0: 49 54 45 4C 4E 28 27 44 75 20 73 6B 61 6C 20 69 ITELN('Du skal i
00D3B0: 20 73 7D 20 66 7D 20 67 7B 74 20 73 6F 6D 20 6D s} f} g{t som m
00D3C0: 75 6C 69 67 74 20 66 69 6E 64 65 20 66 72 65 6D uligt finde frem
00D3D0: 20 74 69 6C 20 64 69 73 73 65 20 62 6F 67 73 74 til disse bogst
00D3E0: 61 76 65 72 27 29 3B 0D 0A 20 20 20 20 57 52 49 aver');.. WRI
00D3F0: 54 45 4C 4E 28 27 44 75 20 67 7B 74 74 65 72 20 TELN('Du g{tter
00D400: 76 65 64 20 61 74 20 73 6B 72 69 76 65 20 53 46 ved at skrive SF
00D410: 54 2C 20 41 42 43 44 45 46 20 65 2E 6C 2E 27 29 T, ABCDEF e.l.')
00D420: 3B 0D 0A 20 20 20 20 57 52 49 54 45 4C 4E 28 27 ;.. WRITELN('
00D430: 53 6F 6D 20 73 76 61 72 20 66 7D 72 20 64 75 20 Som svar f}r du
00D440: 41 4E 54 41 4C 4C 45 54 20 61 66 20 62 6F 67 73 ANTALLET af bogs
00D450: 74 61 76 65 72 2C 20 64 65 72 20 65 72 20 66 7B taver, der er f{
00D460: 6C 6C 65 73 20 66 6F 72 20 64 69 74 27 29 3B 0D lles for dit');.
00D470: 0A 20 20 20 20 57 52 49 54 45 4C 4E 28 27 67 7B . WRITELN('g{
00D480: 74 20 6F 67 20 64 61 74 61 6D 61 74 65 6E 73 20 t og datamatens
00D490: 62 6F 67 73 74 61 76 65 72 27 29 3B 0D 0A 20 20 bogstaver');..
00D4A0: 20 20 57 52 49 54 45 4C 4E 28 27 44 69 74 20 73 WRITELN('Dit s
00D4B0: 69 64 73 74 65 20 67 7B 74 20 73 6B 61 6C 20 76 idste g{t skal v
00D4C0: 7B 72 65 20 70 7D 20 6E 65 74 6F 70 20 34 20 62 {re p} netop 4 b
00D4D0: 6F 67 73 74 61 76 65 72 27 29 3B 0D 0A 20 20 20 ogstaver');..
00D4E0: 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 52 WRITELN;.. R
00D4F0: 41 4E 44 4F 4D 49 5A 45 3B 0D 0A 20 20 20 20 64 ANDOMIZE;.. d
00D500: 72 65 73 74 20 2B 20 31 2E 29 3B 0D 0A 20 20 20 rest + 1.);..
00D510: 20 20 20 57 48 49 4C 45 20 6B 76 6F 74 69 65 6E WHILE kvotien
00D520: 74 20 3E 20 30 2E 31 20 44 4F 0D 0A 20 20 20 20 t > 0.1 DO..
00D530: 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 BEGIN..
00D540: 20 20 20 20 20 64 69 76 69 64 65 6E 64 20 3A 3D dividend :=
00D550: 20 6B 76 6F 74 69 65 6E 74 3B 0D 0A 20 20 20 20 kvotient;..
00D560: 20 20 20 20 20 20 6B 76 6F 74 69 65 6E 74 20 3A kvotient :
00D570: 3D 20 49 4E 54 28 64 69 76 69 64 65 6E 64 20 2F = INT(dividend /
00D580: 20 67 20 2B 20 30 2E 30 30 30 31 29 3B 0D 0A 20 g + 0.0001);..
00D590: 20 20 20 20 20 20 20 20 20 72 65 73 74 20 3A 3D rest :=
00D5A0: 20 52 4F 55 4E 44 28 64 69 76 69 64 65 6E 64 20 ROUND(dividend
00D5B0: 20 2D 20 6B 76 6F 74 69 65 6E 74 20 2A 20 67 29 - kvotient * g)
00D5C0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 74 69 6C ;.. til
00D5D0: 20 3A 3D 20 63 69 66 72 65 28 2E 72 65 73 74 20 := cifre(.rest
00D5E0: 2B 20 31 2E 29 20 2B 20 74 69 6C 3B 0D 0A 20 20 + 1.) + til;..
00D5F0: 20 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 END;..
00D600: 45 4E 44 3B 20 28 2A 20 66 72 61 31 30 20 2A 29 END; (* fra10 *)
00D610: 0D 0A 20 20 0D 0A 20 20 42 45 47 49 4E 20 28 2A .. .. BEGIN (*
00D620: 20 67 72 75 6E 64 74 61 6C 20 2A 29 0D 0A 20 20 grundtal *)..
00D630: 20 20 63 69 66 72 65 20 3A 3D 20 27 30 31 32 33 cifre := '0123
00D640: 34 35 36 37 38 39 27 3B 0D 0A 20 20 20 20 46 4F 456789';.. FO
00D650: 52 20 69 20 3A 3D 20 31 31 20 54 4F 20 6D 61 78 R i := 11 TO max
00D660: 20 44 4F 0D 0A 20 20 20 20 20 20 63 69 66 72 65 DO.. cifre
00D670: 20 3A 3D 20 63 69 66 72 65 20 2B 20 43 48 52 28 := cifre + CHR(
00D680: 4F 52 44 28 27 41 27 29 20 2D 20 31 31 20 2B 20 ORD('A') - 11 +
00D690: 69 29 3B 0D 0A 20 20 20 20 57 52 49 54 45 28 43 i);.. WRITE(C
00D6A0: 4C 52 48 4F 4D 29 3B 0D 0A 20 20 20 20 52 45 50 LRHOM);.. REP
00D6B0: 45 41 54 0D 0A 20 20 20 20 20 20 52 45 50 45 41 EAT.. REPEA
00D6C0: 54 0D 0A 20 20 20 20 20 20 20 20 47 4F 54 4F 58 T.. GOTOX
00D6D0: 59 28 35 2C 20 31 29 3B 0D 0A 20 20 20 20 20 20 Y(5, 1);..
00D6E0: 20 20 57 52 49 54 45 28 43 4C 52 45 4F 4C 29 3B WRITE(CLREOL);
00D6F0: 0D 0A 20 20 20 20 20 20 20 20 42 55 46 4C 45 4E .. BUFLEN
00D700: 61 74 61 6D 61 74 20 3A 3D 20 28 2E 20 2E 29 3B atamat := (. .);
00D710: 0D 0A 20 20 20 20 52 45 50 45 41 54 0D 0A 20 20 .. REPEAT..
00D720: 20 20 20 20 63 68 20 3A 3D 20 43 48 52 28 52 41 ch := CHR(RA
00D730: 4E 44 4F 4D 28 4F 52 44 28 27 5D 27 29 20 2D 20 NDOM(ORD(']') -
00D740: 4F 52 44 28 27 41 27 29 20 2B 20 31 29 20 2B 20 ORD('A') + 1) +
00D750: 4F 52 44 28 27 41 27 29 29 3B 0D 0A 20 20 20 20 ORD('A'));..
00D760: 20 20 64 61 74 61 6D 61 74 20 3A 3D 20 64 61 74 datamat := dat
00D770: 61 6D 61 74 20 2B 20 28 2E 63 68 2E 29 3B 0D 0A amat + (.ch.);..
00D780: 20 20 20 20 20 20 74 61 65 6C 6C 65 72 20 3A 3D taeller :=
00D790: 20 30 3B 0D 0A 20 20 20 20 20 20 46 4F 52 20 63 0;.. FOR c
00D7A0: 68 20 3A 3D 20 27 41 27 20 54 4F 20 27 5D 27 20 h := 'A' TO ']'
00D7B0: 44 4F 0D 0A 20 20 20 20 20 20 20 20 49 46 20 63 DO.. IF c
00D7C0: 68 20 49 4E 20 64 61 74 61 6D 61 74 0D 0A 20 20 h IN datamat..
00D7D0: 20 20 20 20 20 20 20 20 54 48 45 4E 20 74 61 65 THEN tae
00D7E0: 6C 6C 65 72 20 3A 3D 20 74 61 65 6C 6C 65 72 20 ller := taeller
00D7F0: 2B 20 31 3B 0D 0A 20 20 20 20 55 4E 54 49 4C 20 + 1;.. UNTIL
00D800: 74 61 65 6C 6C 65 72 20 3D 20 34 3B 0D 0A 20 20 taeller = 4;..
00D810: 20 20 28 2A 20 46 4F 52 20 63 68 20 3A 3D 20 27 (* FOR ch := '
00D820: 41 27 20 54 4F 20 27 5D 27 20 44 4F 20 2A 29 0D A' TO ']' DO *).
00D830: 0A 20 20 20 20 28 2A 20 20 49 46 20 63 68 20 49 . (* IF ch I
00D840: 4E 20 64 61 74 61 6D 61 74 20 20 20 20 20 20 20 N datamat
00D850: 2A 29 0D 0A 20 20 20 20 28 2A 20 20 20 20 54 48 *).. (* TH
00D860: 45 4E 20 57 52 49 54 45 28 63 68 2C 20 27 20 27 EN WRITE(ch, ' '
00D870: 29 3B 20 2A 29 0D 0A 20 20 20 20 57 52 49 54 45 ); *).. WRITE
00D880: 4C 4E 3B 0D 0A 20 20 20 20 67 61 65 74 20 3A 3D LN;.. gaet :=
00D890: 20 30 3B 0D 0A 20 20 20 20 52 45 50 45 41 54 0D 0;.. REPEAT.
00D8A0: 0A 20 20 20 20 20 20 67 61 65 74 20 3A 3D 20 67 . gaet := g
00D8B0: 61 65 74 20 2B 20 31 3B 0D 0A 20 20 20 20 20 20 aet + 1;..
00D8C0: 57 52 49 54 45 28 27 54 61 73 74 20 67 7B 74 20 WRITE('Tast g{t
00D8D0: 6E 72 2E 20 27 2C 20 67 61 65 74 2C 20 27 3A 20 nr. ', gaet, ':
00D8E0: 27 29 3B 0D 0A 20 20 20 20 20 20 52 45 41 44 4C ');.. READL
00D8F0: 4E 28 74 65 6B 73 74 29 3B 0D 0A 20 20 20 20 20 N(tekst);..
00D900: 20 3A 3D 20 32 3B 0D 0A 20 20 20 20 20 20 20 20 := 2;..
00D910: 57 52 49 54 45 28 27 46 72 61 20 68 76 69 6C 6B WRITE('Fra hvilk
00D920: 65 74 20 74 61 6C 73 79 73 74 65 6D 20 28 32 20 et talsystem (2
00D930: 2D 20 27 2C 20 6D 61 78 2C 20 27 29 3A 20 27 29 - ', max, '): ')
00D940: 3B 0D 0A 20 20 20 20 20 20 20 20 52 45 41 44 4C ;.. READL
00D950: 4E 28 66 72 61 67 72 75 6E 64 74 61 6C 29 3B 0D N(fragrundtal);.
00D960: 0A 20 20 20 20 20 20 20 20 56 41 4C 28 66 72 61 . VAL(fra
00D970: 67 72 75 6E 64 74 61 6C 2C 20 66 72 61 67 2C 20 grundtal, frag,
00D980: 74 65 73 74 29 3B 0D 0A 20 20 20 20 20 20 55 4E test);.. UN
00D990: 54 49 4C 20 74 65 73 74 20 3D 20 30 3B 0D 0A 20 TIL test = 0;..
00D9A0: 20 20 20 55 4E 54 49 4C 20 28 32 20 3C 3D 20 66 UNTIL (2 <= f
00D9B0: 72 61 67 29 20 41 4E 44 20 28 66 72 61 67 20 3C rag) AND (frag <
00D9C0: 3D 20 6D 61 78 29 3B 0D 0A 20 20 20 20 47 4F 54 = max);.. GOT
00D9D0: 4F 58 59 28 35 2C 20 33 29 3B 0D 0A 20 20 20 20 OXY(5, 3);..
00D9E0: 57 52 49 54 45 28 27 43 69 66 72 65 6E 65 20 69 WRITE('Cifrene i
00D9F0: 20 27 2C 20 66 72 61 67 2C 20 27 2D 74 61 6C 73 ', frag, '-tals
00DA00: 79 73 74 65 6D 65 74 3A 20 27 29 3B 0D 0A 20 20 ystemet: ');..
00DA10: 20 20 46 4F 52 20 69 20 3A 3D 20 31 20 54 4F 20 FOR i := 1 TO
00DA20: 66 72 61 67 20 44 4F 0D 0A 20 20 20 20 20 20 57 frag DO.. W
00DA30: 52 49 54 45 28 63 69 66 72 65 28 2E 69 2E 29 2C RITE(cifre(.i.),
00DA40: 20 27 20 27 29 3B 0D 0A 20 20 20 20 52 45 50 45 ' ');.. REPE
00DA50: 41 54 0D 0A 20 20 20 20 20 20 47 4F 54 4F 58 59 AT.. GOTOXY
00DA60: 28 35 2C 20 37 29 3B 0D 0A 20 20 20 20 20 20 57 (5, 7);.. W
00DA70: 52 49 54 45 28 43 4C 52 45 4F 4C 29 3B 0D 0A 20 RITE(CLREOL);..
00DA80: 20 20 20 20 20 42 55 46 4C 45 4E 20 3A 3D 20 33 BUFLEN := 3
00DA90: 30 3B 0D 0A 20 20 20 20 20 20 6F 6B 20 3A 3D 20 0;.. ok :=
00DAA0: 54 52 55 45 3B 0D 0A 20 20 20 20 20 20 57 52 49 TRUE;.. WRI
00DAB0: 54 45 28 27 48 76 69 6C 6B 65 74 20 74 61 6C 20 TE('Hvilket tal
00DAC0: 73 6B 61 6C 20 6F 6D 66 6F 72 6D 65 73 3A 20 27 skal omformes: '
00DAD0: 29 3B 0D 0A 20 20 20 20 20 20 52 45 41 44 4C 4E );.. READLN
00DAE0: 28 66 72 61 74 61 6C 29 3B 0D 0A 20 20 20 20 20 (fratal);..
00DAF0: 20 46 4F 52 20 69 20 3A 3D 20 31 20 54 4F 20 4C FOR i := 1 TO L
00DB00: 20 74 65 6B 73 74 20 3A 3D 20 75 70 70 65 72 63 tekst := upperc
00DB10: 61 73 65 28 74 65 6B 73 74 29 3B 0D 0A 20 20 20 ase(tekst);..
00DB20: 20 20 20 73 70 69 6C 6C 65 72 20 3A 3D 20 28 2E spiller := (.
00DB30: 20 2E 29 3B 0D 0A 20 20 20 20 20 20 46 4F 52 20 .);.. FOR
00DB40: 69 20 3A 3D 20 31 20 54 4F 20 4C 45 4E 28 74 65 i := 1 TO LEN(te
00DB50: 6B 73 74 29 20 44 4F 0D 0A 20 20 20 20 20 20 20 kst) DO..
00DB60: 20 73 70 69 6C 6C 65 72 20 3A 3D 20 73 70 69 6C spiller := spil
00DB70: 6C 65 72 20 2B 20 28 2E 43 4F 50 59 28 74 65 6B ler + (.COPY(tek
00DB80: 73 74 2C 20 69 2C 20 31 29 2E 29 3B 0D 0A 20 20 st, i, 1).);..
00DB90: 20 20 20 20 66 61 65 6C 6C 65 73 20 3A 3D 20 64 faelles := d
00DBA0: 61 74 61 6D 61 74 20 2A 20 73 70 69 6C 6C 65 72 atamat * spiller
00DBB0: 3B 0D 0A 20 20 20 20 20 20 74 61 65 6C 6C 65 72 ;.. taeller
00DBC0: 20 3A 3D 20 30 3B 0D 0A 20 20 20 20 20 20 46 4F := 0;.. FO
00DBD0: 52 20 63 68 20 3A 3D 20 27 41 27 20 54 4F 20 27 R ch := 'A' TO '
00DBE0: 5D 27 20 44 4F 0D 0A 20 20 20 20 20 20 20 20 49 ]' DO.. I
00DBF0: 46 20 63 68 20 49 4E 20 66 61 65 6C 6C 65 73 0D F ch IN faelles.
00DC00: 0A 20 20 20 20 20 20 20 20 20 20 54 48 45 4E 20 . THEN
00DC10: 74 61 65 6C 6C 65 72 20 3A 3D 20 74 61 65 6C 6C taeller := taell
00DC20: 65 72 20 2B 20 31 3B 0D 0A 20 20 20 20 20 20 57 er + 1;.. W
00DC30: 52 49 54 45 4C 4E 28 27 41 6E 74 61 6C 20 66 7B RITELN('Antal f{
00DC40: 6C 6C 65 73 20 62 6F 67 73 74 61 76 65 72 3A 20 lles bogstaver:
00DC50: 27 2C 20 74 61 65 6C 6C 65 72 29 3B 0D 0A 20 20 ', taeller);..
00DC60: 20 20 55 4E 54 49 4C 20 28 74 61 65 6C 6C 65 72 UNTIL (taeller
00DC70: 20 3D 20 34 29 20 41 4E 44 20 28 4C 45 4E 28 74 = 4) AND (LEN(t
00DC80: 65 6B 73 74 29 20 3D 20 34 29 3B 0D 0A 20 20 20 ekst) = 4);..
00DC90: 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 57 WRITELN;.. W
00DCA0: 52 49 54 45 4C 4E 28 27 44 75 20 6B 6C 61 72 65 RITELN('Du klare
00DCB0: 64 65 20 64 65 74 20 70 7D 20 27 2C 20 67 61 65 de det p} ', gae
00DCC0: 74 2C 20 27 20 66 6F 72 73 7C 67 27 29 3B 0D 0A t, ' fors|g');..
00DCD0: 20 20 45 4E 44 2E 0D 0A 1A 72 29 3B 0D 0A 20 20 END....r);..
00DCE0: 20 20 55 4E 54 49 4C 20 28 74 61 65 6C 6C 65 72 UNTIL (taeller
00DCF0: 20 3D 20 34 29 20 41 4E 44 20 28 4C 45 4E 28 74 = 4) AND (LEN(t
00DD00: 45 4E 28 66 72 61 74 61 6C 29 20 44 4F 0D 0A 20 EN(fratal) DO..
00DD10: 20 20 20 20 20 20 20 49 46 20 50 4F 53 28 66 72 IF POS(fr
00DD20: 61 74 61 6C 28 2E 69 2E 29 2C 20 43 4F 50 59 28 atal(.i.), COPY(
00DD30: 63 69 66 72 65 2C 20 31 2C 20 66 72 61 67 29 29 cifre, 1, frag))
00DD40: 20 3D 20 30 0D 0A 20 20 20 20 20 20 20 20 20 20 = 0..
00DD50: 54 48 45 4E 20 6F 6B 20 3A 3D 20 46 41 4C 53 45 THEN ok := FALSE
00DD60: 3B 0D 0A 20 20 20 20 55 4E 54 49 4C 20 6F 6B 20 ;.. UNTIL ok
00DD70: 41 4E 44 20 28 4C 45 4E 28 66 72 61 74 61 6C 29 AND (LEN(fratal)
00DD80: 20 3E 20 30 29 3B 0D 0A 20 20 20 20 52 45 50 45 > 0);.. REPE
00DD90: 41 54 0D 0A 20 20 20 20 20 20 52 45 50 45 41 54 AT.. REPEAT
00DDA0: 0D 0A 20 20 20 20 20 20 20 20 47 4F 54 4F 58 59 .. GOTOXY
00DDB0: 28 35 2C 20 31 31 29 3B 0D 0A 20 20 20 20 20 20 (5, 11);..
00DDC0: 20 20 57 52 49 54 45 28 43 4C 52 45 4F 4C 29 3B WRITE(CLREOL);
00DDD0: 0D 0A 20 20 20 20 20 20 20 20 42 55 46 4C 45 4E .. BUFLEN
00DDE0: 20 3A 3D 20 32 3B 0D 0A 20 20 20 20 20 20 20 20 := 2;..
00DDF0: 57 52 49 54 45 28 27 54 69 6C 20 68 76 69 6C 6B WRITE('Til hvilk
00DE00: 65 74 20 74 61 6C 73 79 73 74 65 6D 20 28 32 20 et talsystem (2
00DE10: 2D 20 27 2C 20 6D 61 78 2C 20 27 29 3A 20 27 29 - ', max, '): ')
00DE20: 3B 0D 0A 20 20 20 20 20 20 20 20 52 45 41 44 4C ;.. READL
00DE30: 4E 28 74 69 6C 67 72 75 6E 64 74 61 6C 29 3B 0D N(tilgrundtal);.
00DE40: 0A 20 20 20 20 20 20 20 20 56 41 4C 28 74 69 6C . VAL(til
00DE50: 67 72 75 6E 64 74 61 6C 2C 20 74 69 6C 67 2C 20 grundtal, tilg,
00DE60: 74 65 73 74 29 3B 0D 0A 20 20 20 20 20 20 55 4E test);.. UN
00DE70: 54 49 4C 20 74 65 73 74 20 3D 20 30 3B 0D 0A 20 TIL test = 0;..
00DE80: 20 20 20 55 4E 54 49 4C 20 28 32 20 3C 3D 20 74 UNTIL (2 <= t
00DE90: 69 6C 67 29 20 41 4E 44 20 28 74 69 6C 67 20 3C ilg) AND (tilg <
00DEA0: 3D 20 6D 61 78 29 3B 0D 0A 20 20 20 20 47 4F 54 = max);.. GOT
00DEB0: 4F 58 59 28 35 2C 20 31 33 29 3B 0D 0A 20 20 20 OXY(5, 13);..
00DEC0: 20 57 52 49 54 45 28 27 43 69 66 72 65 6E 65 20 WRITE('Cifrene
00DED0: 69 20 27 2C 20 74 69 6C 67 2C 20 27 2D 74 61 6C i ', tilg, '-tal
00DEE0: 73 79 73 74 65 6D 65 74 3A 20 27 29 3B 0D 0A 20 systemet: ');..
00DEF0: 20 20 20 46 4F 52 20 69 20 3A 3D 20 31 20 54 4F FOR i := 1 TO
00DF00: 50 52 4F 47 52 41 4D 20 67 72 75 6E 64 74 61 6C PROGRAM grundtal
00DF10: 3B 0D 0A 20 20 0D 0A 20 20 43 4F 4E 53 54 0D 0A ;.. .. CONST..
00DF20: 20 20 20 20 6D 61 78 20 3D 20 32 30 3B 0D 0A 20 max = 20;..
00DF30: 20 0D 0A 20 20 54 59 50 45 0D 0A 20 20 20 20 73 .. TYPE.. s
00DF40: 74 72 33 30 20 3D 20 53 54 52 49 4E 47 28 2E 33 tr30 = STRING(.3
00DF50: 30 2E 29 3B 0D 0A 20 20 20 20 73 74 72 32 20 3D 0.);.. str2 =
00DF60: 20 53 54 52 49 4E 47 28 2E 32 2E 29 3B 0D 0A 20 STRING(.2.);..
00DF70: 20 20 20 73 74 72 20 3D 20 53 54 52 49 4E 47 28 str = STRING(
00DF80: 2E 6D 61 78 2E 29 3B 0D 0A 20 20 20 20 0D 0A 20 .max.);.. ..
00DF90: 20 56 41 52 0D 0A 20 20 20 20 63 69 66 72 65 20 VAR.. cifre
00DFA0: 3A 20 73 74 72 3B 0D 0A 20 20 20 20 66 72 61 74 : str;.. frat
00DFB0: 61 6C 2C 20 74 69 6C 74 61 6C 20 3A 20 73 74 72 al, tiltal : str
00DFC0: 33 30 3B 0D 0A 20 20 20 20 66 72 61 67 72 75 6E 30;.. fragrun
00DFD0: 64 74 61 6C 2C 20 74 69 6C 67 72 75 6E 64 74 61 dtal, tilgrundta
00DFE0: 6C 20 3A 20 73 74 72 32 3B 0D 0A 20 20 20 20 66 l : str2;.. f
00DFF0: 72 61 67 2C 20 74 69 6C 67 2C 20 74 65 73 74 2C rag, tilg, test,
00E000: 20 69 20 3A 20 49 4E 54 45 47 45 52 3B 0D 0A 20 i : INTEGER;..
00E010: 20 20 20 74 61 6C 31 30 20 3A 20 52 45 41 4C 3B tal10 : REAL;
00E020: 0D 0A 20 20 20 20 6F 6B 20 3A 20 42 4F 4F 4C 45 .. ok : BOOLE
00E030: 41 4E 3B 0D 0A 20 20 20 20 0D 0A 20 20 50 52 4F AN;.. .. PRO
00E040: 43 45 44 55 52 45 20 74 69 6C 31 30 28 67 20 3A CEDURE til10(g :
00E050: 20 49 4E 54 45 47 45 52 3B 20 66 72 61 20 3A 20 INTEGER; fra :
00E060: 73 74 72 33 30 3B 20 56 41 52 20 74 61 6C 74 69 str30; VAR talti
00E070: 20 3A 20 52 45 41 4C 29 3B 0D 0A 20 20 20 20 0D : REAL);.. .
00E080: 0A 20 20 20 20 56 41 52 0D 0A 20 20 20 20 20 20 . VAR..
00E090: 69 2C 20 66 61 6B 74 6F 72 20 3A 20 49 4E 54 45 i, faktor : INTE
00E0A0: 47 45 52 3B 0D 0A 20 20 20 20 0D 0A 20 20 20 20 GER;.. ..
00E0B0: 42 45 47 49 4E 20 28 2A 20 74 69 6C 31 30 20 2A BEGIN (* til10 *
00E0C0: 29 0D 0A 20 20 20 20 20 20 74 61 6C 31 30 20 3A ).. tal10 :
00E0D0: 3D 20 30 2E 30 3B 0D 0A 20 20 20 20 20 20 46 4F = 0.0;.. FO
00E0E0: 52 20 69 20 3A 3D 20 31 20 54 4F 20 4C 45 4E 28 R i := 1 TO LEN(
00E0F0: 66 72 61 29 20 44 4F 0D 0A 20 20 20 20 20 20 20 fra) DO..
00E100: 20 74 69 6C 67 20 44 4F 0D 0A 20 20 20 20 20 20 tilg DO..
00E110: 57 52 49 54 45 28 63 69 66 72 65 28 2E 69 2E 29 WRITE(cifre(.i.)
00E120: 2C 20 27 20 27 29 3B 0D 0A 20 20 20 20 47 4F 54 , ' ');.. GOT
00E130: 4F 58 59 28 35 2C 20 31 37 29 3B 0D 0A 20 20 20 OXY(5, 17);..
00E140: 20 57 52 49 54 45 28 66 72 61 67 2C 20 27 2D 74 WRITE(frag, '-t
00E150: 61 6C 73 79 73 74 65 6D 65 74 3A 20 27 2C 20 66 alsystemet: ', f
00E160: 72 61 74 61 6C 29 3B 0D 0A 20 20 20 20 47 4F 54 ratal);.. GOT
00E170: 4F 58 59 28 35 2C 20 31 39 29 3B 0D 0A 20 20 20 OXY(5, 19);..
00E180: 20 57 52 49 54 45 28 74 69 6C 67 2C 20 27 2D 74 WRITE(tilg, '-t
00E190: 61 6C 73 79 73 74 65 6D 65 74 3A 20 27 29 3B 0D alsystemet: ');.
00E1A0: 0A 20 20 20 20 74 69 6C 31 30 28 66 72 61 67 2C . til10(frag,
00E1B0: 20 66 72 61 74 61 6C 2C 20 74 61 6C 31 30 29 3B fratal, tal10);
00E1C0: 0D 0A 20 20 20 20 66 72 61 31 30 28 74 69 6C 67 .. fra10(tilg
00E1D0: 2C 20 74 61 6C 31 30 2C 20 74 69 6C 74 61 6C 29 , tal10, tiltal)
00E1E0: 3B 0D 0A 20 20 20 20 57 52 49 54 45 4C 4E 28 74 ;.. WRITELN(t
00E1F0: 69 6C 74 61 6C 29 3B 0D 0A 20 20 20 20 57 52 49 iltal);.. WRI
00E200: 54 45 4C 4E 3B 0D 0A 20 20 45 4E 44 2E 20 28 2A TELN;.. END. (*
00E210: 20 67 72 75 6E 64 74 61 6C 20 2A 29 0D 0A 1A 0D grundtal *)....
00E220: 0A 20 20 20 20 74 69 6C 31 30 28 66 72 61 67 2C . til10(frag,
00E230: 20 66 72 61 74 61 6C 2C 20 74 61 6C 31 30 29 3B fratal, tal10);
00E240: 0D 0A 20 20 20 20 66 72 61 31 30 28 74 69 6C 67 .. fra10(tilg
00E250: 2C 20 74 61 6C 31 30 2C 20 74 69 6C 74 61 6C 29 , tal10, tiltal)
00E260: 3B 0D 0A 20 20 20 20 57 52 49 54 45 4C 4E 28 74 ;.. WRITELN(t
00E270: 69 6C 74 61 6C 29 3B 0D 0A 20 20 20 20 57 52 49 iltal);.. WRI
00E280: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E290: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E2A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E2B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E2C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E2D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E2E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E2F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E300: 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 BEGIN..
00E310: 20 20 49 46 20 4F 52 44 28 66 72 61 28 2E 69 2E IF ORD(fra(.i.
00E320: 29 29 20 3C 20 4F 52 44 28 27 41 27 29 0D 0A 20 )) < ORD('A')..
00E330: 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4E 20 THEN
00E340: 66 61 6B 74 6F 72 20 3A 3D 20 4F 52 44 28 66 72 faktor := ORD(fr
00E350: 61 28 2E 69 2E 29 29 20 2D 20 4F 52 44 28 27 30 a(.i.)) - ORD('0
00E360: 27 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 ')..
00E370: 45 4C 53 45 20 66 61 6B 74 6F 72 20 3A 3D 20 4F ELSE faktor := O
00E380: 52 44 28 66 72 61 28 2E 69 2E 29 29 20 2D 20 4F RD(fra(.i.)) - O
00E390: 52 44 28 27 41 27 29 20 2B 20 31 30 3B 0D 0A 20 RD('A') + 10;..
00E3A0: 20 20 20 20 20 20 20 20 20 74 61 6C 74 69 20 3A talti :
00E3B0: 3D 20 74 61 6C 74 69 20 2A 20 67 20 2B 20 66 61 = talti * g + fa
00E3C0: 6B 74 6F 72 3B 0D 0A 20 20 20 20 20 20 20 20 45 ktor;.. E
00E3D0: 4E 44 3B 0D 0A 20 20 20 20 45 4E 44 3B 20 28 2A ND;.. END; (*
00E3E0: 20 74 69 6C 31 30 20 2A 29 0D 0A 20 20 0D 0A 20 til10 *).. ..
00E3F0: 20 50 52 4F 43 45 44 55 52 45 20 66 72 61 31 30 PROCEDURE fra10
00E400: 28 67 20 3A 20 49 4E 54 45 47 45 52 3B 20 74 61 (g : INTEGER; ta
00E410: 6C 74 69 20 3A 20 52 45 41 4C 3B 20 56 41 52 20 lti : REAL; VAR
00E420: 74 69 6C 20 3A 20 73 74 72 33 30 29 3B 0D 0A 20 til : str30);..
00E430: 20 0D 0A 20 20 20 20 56 41 52 0D 0A 20 20 20 20 .. VAR..
00E440: 20 20 72 65 73 74 20 3A 20 49 4E 54 45 47 45 52 rest : INTEGER
00E450: 3B 0D 0A 20 20 20 20 20 20 64 69 76 69 64 65 6E ;.. dividen
00E460: 64 2C 20 6B 76 6F 74 69 65 6E 74 20 3A 20 52 45 d, kvotient : RE
00E470: 41 4C 3B 0D 0A 20 20 20 20 20 20 0D 0A 20 20 20 AL;.. ..
00E480: 20 42 45 47 49 4E 20 28 2A 20 66 72 61 31 30 20 BEGIN (* fra10
00E490: 2A 29 0D 0A 20 20 20 20 20 20 6B 76 6F 74 69 65 *).. kvotie
00E4A0: 6E 74 20 3A 3D 20 49 4E 54 28 74 61 6C 74 69 20 nt := INT(talti
00E4B0: 2F 20 67 20 2B 20 30 2E 30 30 30 31 29 3B 0D 0A / g + 0.0001);..
00E4C0: 20 20 20 20 20 20 72 65 73 74 20 3A 3D 20 52 4F rest := RO
00E4D0: 55 4E 44 28 74 61 6C 74 69 20 2D 20 6B 76 6F 74 UND(talti - kvot
00E4E0: 69 65 6E 74 20 2A 20 67 29 3B 0D 0A 20 20 20 20 ient * g);..
00E4F0: 20 20 74 69 6C 20 3A 3D 20 63 69 66 72 65 28 2E til := cifre(.
00E500: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
00E510: 0C 00 01 00 02 09 52 E5 0C 00 41 02 00 00 00 02 ......R...A.....
00E520: 0C 00 46 02 00 00 00 02 0C 00 42 02 00 00 00 02 ..F.......B.....
00E530: 0C 00 47 02 00 00 00 02 0C 00 43 02 00 00 00 02 ..G.......C.....
00E540: 0C 00 48 02 00 00 00 02 0C 00 44 02 00 00 00 02 ..H.......D.....
00E550: 0C 00 49 02 00 00 00 02 0C 00 45 02 00 00 00 02 ..I.......E.....
00E560: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E570: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E580: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E590: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E5A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E5B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E5C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E5D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E5E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E5F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E600: 50 52 4F 47 52 41 4D 20 68 61 72 6D 6F 6E 69 63 PROGRAM harmonic
00E610: 3B 0D 0A 0D 0A 20 20 56 41 52 0D 0A 20 20 20 20 ;.... VAR..
00E620: 69 20 3A 20 49 4E 54 45 47 45 52 3B 0D 0A 20 20 i : INTEGER;..
00E630: 20 20 73 75 6D 2C 20 67 72 61 65 6E 73 65 20 3A sum, graense :
00E640: 20 52 45 41 4C 3B 0D 0A 20 20 20 20 0D 0A 20 20 REAL;.. ..
00E650: 42 45 47 49 4E 0D 0A 20 20 20 20 57 52 49 54 45 BEGIN.. WRITE
00E660: 28 43 4C 52 48 4F 4D 29 3B 0D 0A 20 20 20 20 57 (CLRHOM);.. W
00E670: 52 49 54 45 28 27 54 61 73 74 20 67 72 7B 6E 73 RITE('Tast gr{ns
00E680: 65 3A 20 27 29 3B 20 52 45 41 44 4C 4E 28 67 72 e: '); READLN(gr
00E690: 61 65 6E 73 65 29 3B 0D 0A 20 20 20 20 73 75 6D aense);.. sum
00E6A0: 20 3A 3D 20 30 3B 0D 0A 20 20 20 20 69 20 3A 3D := 0;.. i :=
00E6B0: 20 30 3B 0D 0A 20 20 20 20 57 48 49 4C 45 20 73 0;.. WHILE s
00E6C0: 75 6D 20 3C 20 67 72 61 65 6E 73 65 20 44 4F 0D um < graense DO.
00E6D0: 0A 20 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 . BEGIN..
00E6E0: 20 20 20 20 20 20 69 20 3A 3D 20 69 20 2B 20 31 i := i + 1
00E6F0: 3B 0D 0A 20 20 20 20 20 20 20 20 73 75 6D 20 3A ;.. sum :
00E700: 3D 20 73 75 6D 20 2B 20 31 20 2F 20 69 3B 0D 0A = sum + 1 / i;..
00E710: 20 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 END;..
00E720: 57 52 49 54 45 4C 4E 28 27 4D 65 64 20 27 2C 20 WRITELN('Med ',
00E730: 69 2C 20 27 20 6C 65 64 20 62 6C 69 76 65 72 20 i, ' led bliver
00E740: 73 75 6D 6D 65 6E 3A 20 27 2C 20 73 75 6D 29 3B summen: ', sum);
00E750: 0D 0A 20 20 45 4E 44 2E 0D 0A 1A 4E 0D 0A 20 20 .. END....N..
00E760: 20 20 20 20 20 20 69 20 3A 3D 20 69 20 2B 20 31 i := i + 1
00E770: 3B 0D 0A 20 20 20 20 20 20 20 20 73 75 6D 20 3A ;.. sum :
00E780: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E790: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E7A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E7B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E7C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E7D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E7E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E7F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E800: 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4E 0D BEGIN.
00E810: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
00E820: 20 20 20 20 20 57 52 49 54 45 28 27 55 6C 6F 76 WRITE('Ulov
00E830: 6C 69 67 74 20 63 70 72 6E 72 2E 20 2D 20 74 61 ligt cprnr. - ta
00E840: 73 74 20 3C 52 45 54 55 52 4E 3E 27 29 3B 0D 0A st <RETURN>');..
00E850: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00E860: 20 20 20 20 52 45 41 44 4C 4E 28 63 68 29 3B 0D READLN(ch);.
00E870: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
00E880: 20 20 20 45 4E 44 0D 0A 20 20 20 20 20 20 20 20 END..
00E890: 20 20 20 20 20 20 45 4C 53 45 20 49 46 20 20 4E ELSE IF N
00E8A0: 4F 54 20 73 6F 65 67 28 74 61 62 28 2E 69 6E 64 OT soeg(tab(.ind
00E8B0: 65 78 2E 29 2C 20 6E 72 29 0D 0A 20 20 20 20 20 ex.), nr)..
00E8C0: 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4E 0D THEN.
00E8D0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
00E8E0: 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 20 BEGIN..
00E8F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4E 45 NE
00E900: 57 28 70 70 29 3B 0D 0A 20 20 20 20 20 20 20 20 W(pp);..
00E910: 20 20 20 20 20 20 20 20 20 20 20 20 70 70 5E 2E pp^.
00E920: 6E 61 65 73 74 65 20 3A 3D 20 74 61 62 28 2E 69 naeste := tab(.i
00E930: 6E 64 65 78 2E 29 3B 0D 0A 20 20 20 20 20 20 20 ndex.);..
00E940: 20 20 20 20 20 20 20 20 20 20 20 20 20 70 70 5E pp^
00E950: 2E 6E 75 6D 6D 65 72 20 3A 3D 20 6E 72 3B 0D 0A .nummer := nr;..
00E960: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00E970: 20 20 20 20 74 61 62 28 2E 69 6E 64 65 78 2E 29 tab(.index.)
00E980: 20 3A 3D 20 70 70 3B 0D 0A 20 20 20 20 20 20 20 := pp;..
00E990: 20 20 20 20 20 20 20 20 20 20 20 45 4E 44 0D 0A END..
00E9A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4C EL
00E9B0: 53 45 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 SE..
00E9C0: 20 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 BEGIN..
00E9D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00E9E0: 20 57 52 49 54 45 28 6E 72 2C 20 27 20 66 69 6E WRITE(nr, ' fin
00E9F0: 64 65 73 20 61 6C 6C 65 72 65 64 65 20 2D 20 74 des allerede - t
00EA00: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00EA10: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00EA20: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00EA30: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00EA40: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00EA50: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00EA60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00EA70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00EA80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00EA90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00EAA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00EAB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00EAC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00EAD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00EAE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00EAF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00EB00: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00EB10: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00EB20: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00EB30: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00EB40: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00EB50: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00EB60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00EB70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00EB80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00EB90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00EBA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00EBB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00EBC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00EBD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00EBE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00EBF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00EC00: 61 73 74 20 3C 52 45 54 55 52 4E 3E 27 29 3B 0D ast <RETURN>');.
00EC10: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
00EC20: 20 20 20 20 20 52 45 41 44 4C 4E 28 63 68 29 3B READLN(ch);
00EC30: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
00EC40: 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 END;..
00EC50: 20 20 20 20 20 20 45 4E 44 3B 20 28 2A 20 69 6E END; (* in
00EC60: 64 73 61 65 74 20 2A 29 0D 0A 20 20 20 20 20 20 dsaet *)..
00EC70: 20 20 20 20 0D 0A 20 20 20 20 20 20 20 20 20 20 ..
00EC80: 42 45 47 49 4E 20 28 2A 20 68 61 73 68 74 61 62 BEGIN (* hashtab
00EC90: 20 2A 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20 *)..
00ECA0: 20 46 4F 52 20 69 20 3A 3D 20 30 20 54 4F 20 39 FOR i := 0 TO 9
00ECB0: 39 39 20 44 4F 0D 0A 20 20 20 20 20 20 20 20 20 99 DO..
00ECC0: 20 20 20 20 20 74 61 62 65 6C 28 2E 69 2E 29 20 tabel(.i.)
00ECD0: 3A 3D 20 4E 49 4C 3B 0D 0A 20 20 20 20 20 20 20 := NIL;..
00ECE0: 20 20 20 20 20 52 45 50 45 41 54 0D 0A 20 20 20 REPEAT..
00ECF0: 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 WRITE
00ED00: 28 43 4C 52 48 4F 4D 29 3B 0D 0A 20 20 20 20 20 (CLRHOM);..
00ED10: 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E WRITELN
00ED20: 28 27 20 20 20 20 20 49 2E 20 49 6E 64 73 7B 74 (' I. Inds{t
00ED30: 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 ');..
00ED40: 20 20 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 WRITELN;..
00ED50: 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 WRITE
00ED60: 4C 4E 28 27 20 20 20 20 20 53 2E 20 53 7C 67 27 LN(' S. S|g'
00ED70: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 );..
00ED80: 20 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 WRITELN;..
00ED90: 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4C WRITEL
00EDA0: 4E 28 27 20 20 20 20 20 41 2E 20 41 66 73 6C 75 N(' A. Afslu
00EDB0: 74 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 t');..
00EDC0: 20 20 20 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 WRITELN;..
00EDD0: 20 20 20 20 20 20 20 20 20 20 20 20 52 45 50 45 REPE
00EDE0: 41 54 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 AT..
00EDF0: 20 20 20 20 52 45 41 44 28 4B 42 44 2C 20 63 68 READ(KBD, ch
00EE00: 20 20 20 20 20 20 20 20 50 52 4F 47 52 41 4D 20 PROGRAM
00EE10: 68 61 73 68 74 61 62 3B 0D 0A 20 20 20 20 20 20 hashtab;..
00EE20: 20 20 0D 0A 20 20 20 20 20 20 20 20 20 20 28 2A .. (*
00EE30: 20 63 70 72 2D 6B 6F 6E 74 72 6F 6C 6C 65 6E 20 cpr-kontrollen
00EE40: 69 20 64 65 74 74 65 20 70 72 6F 67 72 61 6D 20 i dette program
00EE50: 63 68 65 63 6B 65 72 20 6B 75 6E 20 2A 29 0D 0A checker kun *)..
00EE60: 20 20 20 20 20 20 20 20 20 20 28 2A 20 6F 6D 20 (* om
00EE70: 64 65 20 74 72 65 20 73 69 64 73 74 65 20 74 65 de tre sidste te
00EE80: 67 6E 20 65 72 20 6C 6F 76 6C 69 67 65 20 20 20 gn er lovlige
00EE90: 20 20 20 20 20 20 20 20 2A 29 0D 0A 20 20 20 20 *)..
00EEA0: 20 20 20 20 20 20 0D 0A 20 20 20 20 20 20 20 20 ..
00EEB0: 20 20 54 59 50 45 0D 0A 20 20 20 20 20 20 20 20 TYPE..
00EEC0: 20 20 20 20 73 74 72 31 30 20 3D 20 53 54 52 49 str10 = STRI
00EED0: 4E 47 28 2E 31 30 2E 29 3B 0D 0A 20 20 20 20 20 NG(.10.);..
00EEE0: 20 20 20 20 20 20 20 69 6E 64 65 78 74 79 70 65 indextype
00EEF0: 20 3D 20 30 20 2E 2E 20 39 39 39 3B 0D 0A 20 20 = 0 .. 999;..
00EF00: 20 20 20 20 20 20 20 20 20 20 70 6F 69 6E 74 65 pointe
00EF10: 72 20 3D 20 5E 20 70 6F 73 74 3B 0D 0A 20 20 20 r = ^ post;..
00EF20: 20 20 20 20 20 20 20 20 20 70 6F 73 74 20 3D 20 post =
00EF30: 52 45 43 4F 52 44 0D 0A 20 20 20 20 20 20 20 20 RECORD..
00EF40: 20 20 20 20 20 20 20 20 20 20 20 20 20 6E 61 65 nae
00EF50: 73 74 65 20 3A 20 70 6F 69 6E 74 65 72 3B 0D 0A ste : pointer;..
00EF60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00EF70: 20 20 20 20 20 6E 75 6D 6D 65 72 20 3A 20 73 74 nummer : st
00EF80: 72 31 30 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 r10;..
00EF90: 20 20 20 20 20 20 20 20 20 45 4E 44 3B 0D 0A 20 END;..
00EFA0: 20 20 20 20 20 20 20 20 20 20 20 68 61 73 68 74 hasht
00EFB0: 61 62 65 6C 20 3D 20 41 52 52 41 59 28 2E 69 6E abel = ARRAY(.in
00EFC0: 64 65 78 74 79 70 65 2E 29 20 4F 46 20 70 6F 69 dextype.) OF poi
00EFD0: 6E 74 65 72 3B 0D 0A 20 20 20 20 20 20 20 20 20 nter;..
00EFE0: 20 0D 0A 20 20 20 20 20 20 20 20 20 20 56 41 52 .. VAR
00EFF0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 74 61 .. ta
00F000: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 );..
00F010: 20 20 55 4E 54 49 4C 20 63 68 20 49 4E 20 28 2E UNTIL ch IN (.
00F020: 27 49 27 2C 20 27 69 27 2C 20 27 53 27 2C 20 27 'I', 'i', 'S', '
00F030: 73 27 2C 20 27 41 27 2C 20 27 61 27 2E 29 3B 0D s', 'A', 'a'.);.
00F040: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 . C
00F050: 41 53 45 20 63 68 20 4F 46 0D 0A 20 20 20 20 20 ASE ch OF..
00F060: 20 20 20 20 20 20 20 20 20 20 20 27 49 27 2C 20 'I',
00F070: 27 69 27 20 3A 20 42 45 47 49 4E 0D 0A 20 20 20 'i' : BEGIN..
00F080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00F090: 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 28 WRITE(
00F0A0: 27 54 61 73 74 20 63 70 72 6E 75 6D 6D 65 72 3A 'Tast cprnummer:
00F0B0: 20 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 ');..
00F0C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00F0D0: 20 20 20 42 55 46 4C 45 4E 20 3A 3D 20 31 30 3B BUFLEN := 10;
00F0E0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
00F0F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 R
00F100: 45 41 44 4C 4E 28 63 70 72 29 3B 0D 0A 20 20 20 EADLN(cpr);..
00F110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00F120: 20 20 20 20 20 20 20 20 20 20 69 6E 64 73 61 65 indsae
00F130: 74 28 74 61 62 65 6C 2C 20 63 70 72 29 3B 0D 0A t(tabel, cpr);..
00F140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00F150: 20 20 20 20 20 20 20 20 20 20 20 45 4E 44 3B 0D END;.
00F160: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
00F170: 20 27 53 27 2C 20 27 73 27 20 3A 20 42 45 47 49 'S', 's' : BEGI
00F180: 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 N..
00F190: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00F1A0: 57 52 49 54 45 28 27 48 76 69 6C 6B 65 74 20 63 WRITE('Hvilket c
00F1B0: 70 72 6E 75 6D 6D 65 72 20 73 7C 67 65 73 3A 20 prnummer s|ges:
00F1C0: 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 ');..
00F1D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00F1E0: 20 20 42 55 46 4C 45 4E 20 3A 3D 20 31 30 3B 0D BUFLEN := 10;.
00F1F0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
00F200: 62 65 6C 20 3A 20 68 61 73 68 74 61 62 65 6C 3B bel : hashtabel;
00F210: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 63 70 .. cp
00F220: 72 20 3A 20 73 74 72 31 30 3B 0D 0A 20 20 20 20 r : str10;..
00F230: 20 20 20 20 20 20 20 20 63 68 20 3A 20 43 48 41 ch : CHA
00F240: 52 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 R;..
00F250: 69 6E 64 65 78 20 3A 20 69 6E 64 65 78 74 79 70 index : indextyp
00F260: 65 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 e;..
00F270: 69 2C 20 74 65 73 74 20 3A 20 49 4E 54 45 47 45 i, test : INTEGE
00F280: 52 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 R;..
00F290: 0D 0A 20 20 20 20 20 20 20 20 20 20 46 55 4E 43 .. FUNC
00F2A0: 54 49 4F 4E 20 73 6F 65 67 28 74 61 62 70 6F 69 TION soeg(tabpoi
00F2B0: 6E 74 65 72 20 3A 20 70 6F 69 6E 74 65 72 3B 20 nter : pointer;
00F2C0: 6E 72 20 3A 20 73 74 72 31 30 29 20 3A 20 42 4F nr : str10) : BO
00F2D0: 4F 4C 45 41 4E 3B 0D 0A 20 20 20 20 20 20 20 20 OLEAN;..
00F2E0: 20 20 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 ..
00F2F0: 56 41 52 0D 0A 20 20 20 20 20 20 20 20 20 20 20 VAR..
00F300: 20 20 20 66 75 6E 64 65 74 20 3A 20 42 4F 4F 4C fundet : BOOL
00F310: 45 41 4E 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 EAN;..
00F320: 20 20 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 ..
00F330: 42 45 47 49 4E 20 28 2A 20 73 6F 65 67 20 2A 29 BEGIN (* soeg *)
00F340: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
00F350: 66 75 6E 64 65 74 20 3A 3D 46 41 4C 53 45 3B 0D fundet :=FALSE;.
00F360: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 . W
00F370: 48 49 4C 45 20 28 74 61 62 70 6F 69 6E 74 65 72 HILE (tabpointer
00F380: 20 3C 3E 20 4E 49 4C 29 20 41 4E 44 20 4E 4F 54 <> NIL) AND NOT
00F390: 20 66 75 6E 64 65 74 20 44 4F 0D 0A 20 20 20 20 fundet DO..
00F3A0: 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 74 IF t
00F3B0: 61 62 70 6F 69 6E 74 65 72 5E 2E 6E 75 6D 6D 65 abpointer^.numme
00F3C0: 72 20 3D 20 6E 72 0D 0A 20 20 20 20 20 20 20 20 r = nr..
00F3D0: 20 20 20 20 20 20 20 20 20 20 54 48 45 4E 20 66 THEN f
00F3E0: 75 6E 64 65 74 20 3A 3D 20 54 52 55 45 0D 0A 20 undet := TRUE..
00F3F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00F400: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 RE
00F410: 41 44 4C 4E 28 63 70 72 29 3B 0D 0A 20 20 20 20 ADLN(cpr);..
00F420: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00F430: 20 20 20 20 20 20 20 20 20 56 41 4C 28 43 4F 50 VAL(COP
00F440: 59 28 63 70 72 2C 20 38 2C 20 33 29 2C 20 69 6E Y(cpr, 8, 3), in
00F450: 64 65 78 2C 20 74 65 73 74 29 3B 0D 0A 20 20 20 dex, test);..
00F460: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00F470: 20 20 20 20 20 20 20 20 20 20 49 46 20 28 74 65 IF (te
00F480: 73 74 20 3C 3E 20 30 29 20 4F 52 20 28 4C 45 4E st <> 0) OR (LEN
00F490: 28 63 70 72 29 20 3C 20 31 30 29 0D 0A 20 20 20 (cpr) < 10)..
00F4A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00F4B0: 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4E THEN
00F4C0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
00F4D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00F4E0: 20 20 20 57 52 49 54 45 4C 4E 28 27 55 6C 6F 76 WRITELN('Ulov
00F4F0: 6C 69 67 74 20 63 70 72 6E 72 2E 27 29 0D 0A 20 ligt cprnr.')..
00F500: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00F510: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4C EL
00F520: 53 45 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 SE..
00F530: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00F540: 20 20 20 20 20 49 46 20 73 6F 65 67 28 74 61 62 IF soeg(tab
00F550: 65 6C 28 2E 69 6E 64 65 78 2E 29 2C 20 63 70 72 el(.index.), cpr
00F560: 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 )..
00F570: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00F580: 20 20 20 20 20 20 54 48 45 4E 20 57 52 49 54 45 THEN WRITE
00F590: 4C 4E 28 63 70 72 2C 20 27 20 66 69 6E 64 65 73 LN(cpr, ' findes
00F5A0: 27 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 ')..
00F5B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00F5C0: 20 20 20 20 20 20 20 45 4C 53 45 20 57 52 49 54 ELSE WRIT
00F5D0: 45 4C 4E 28 63 70 72 2C 20 27 20 66 69 6E 64 65 ELN(cpr, ' finde
00F5E0: 73 20 69 6B 6B 65 27 29 3B 0D 0A 20 20 20 20 20 s ikke');..
00F5F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00F600: 20 45 4C 53 45 20 74 61 62 70 6F 69 6E 74 65 72 ELSE tabpointer
00F610: 20 3A 3D 20 74 61 62 70 6F 69 6E 74 65 72 5E 2E := tabpointer^.
00F620: 6E 61 65 73 74 65 3B 0D 0A 20 20 20 20 20 20 20 naeste;..
00F630: 20 20 20 20 20 20 20 73 6F 65 67 20 3A 3D 20 66 soeg := f
00F640: 75 6E 64 65 74 3B 0D 0A 20 20 20 20 20 20 20 20 undet;..
00F650: 20 20 20 20 45 4E 44 3B 20 28 2A 20 73 6F 65 67 END; (* soeg
00F660: 20 2A 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20 *)..
00F670: 20 0D 0A 20 20 20 20 20 20 20 20 20 20 50 52 4F .. PRO
00F680: 43 45 44 55 52 45 20 69 6E 64 73 61 65 74 28 56 CEDURE indsaet(V
00F690: 41 52 20 74 61 62 20 3A 20 68 61 73 68 74 61 62 AR tab : hashtab
00F6A0: 65 6C 3B 20 6E 72 20 3A 20 73 74 72 31 30 29 3B el; nr : str10);
00F6B0: 0D 0A 20 20 20 20 20 20 20 20 20 20 0D 0A 20 20 .. ..
00F6C0: 20 20 20 20 20 20 20 20 20 20 56 41 52 0D 0A 20 VAR..
00F6D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 69 6E 64 ind
00F6E0: 65 78 20 3A 20 69 6E 64 65 78 74 79 70 65 3B 0D ex : indextype;.
00F6F0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6E . n
00F700: 61 65 73 74 65 2C 20 70 70 20 3A 20 70 6F 69 6E aeste, pp : poin
00F710: 74 65 72 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 ter;..
00F720: 20 20 20 20 74 65 73 74 20 3A 20 49 4E 54 45 47 test : INTEG
00F730: 45 52 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 ER;..
00F740: 20 20 20 63 68 20 3A 20 43 48 41 52 3B 0D 0A 20 ch : CHAR;..
00F750: 20 20 20 20 20 20 20 20 20 20 20 20 20 0D 0A 20 ..
00F760: 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4E BEGIN
00F770: 20 28 2A 20 69 6E 64 73 61 65 74 20 2A 29 0D 0A (* indsaet *)..
00F780: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 56 41 VA
00F790: 4C 28 43 4F 50 59 28 6E 72 2C 20 38 2C 20 33 29 L(COPY(nr, 8, 3)
00F7A0: 2C 20 69 6E 64 65 78 2C 20 74 65 73 74 29 3B 0D , index, test);.
00F7B0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 . I
00F7C0: 46 20 20 28 74 65 73 74 20 3C 3E 20 30 29 20 4F F (test <> 0) O
00F7D0: 52 20 28 4C 45 4E 28 6E 72 29 20 3C 20 31 30 29 R (LEN(nr) < 10)
00F7E0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
00F7F0: 20 20 54 48 45 4E 0D 0A 20 20 20 20 20 20 20 20 THEN..
00F800: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
00F810: 0D 00 01 00 02 09 52 E5 0D 00 41 02 00 00 00 02 ......R...A.....
00F820: 0D 00 46 02 00 00 00 02 0D 00 42 02 00 00 00 02 ..F.......B.....
00F830: 0D 00 47 02 00 00 00 02 0D 00 43 02 00 00 00 02 ..G.......C.....
00F840: 0D 00 48 02 00 00 00 02 0D 00 44 02 00 00 00 02 ..H.......D.....
00F850: 0D 00 49 02 00 00 00 02 0D 00 45 02 00 00 00 02 ..I.......E.....
00F860: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00F870: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00F880: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00F890: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00F8A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00F8B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00F8C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00F8D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00F8E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00F8F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00F900: 20 20 20 20 20 20 20 20 57 52 49 54 45 28 27 54 WRITE('T
00F910: 61 73 74 20 3C 52 45 54 55 52 4E 3E 20 27 29 3B ast <RETURN> ');
00F920: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
00F930: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 R
00F940: 45 41 44 4C 4E 28 63 68 29 3B 0D 0A 20 20 20 20 EADLN(ch);..
00F950: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00F960: 20 20 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 END;..
00F970: 20 20 20 20 20 20 20 20 20 20 20 45 4E 44 3B 0D END;.
00F980: 0A 20 20 20 20 20 20 20 20 20 20 20 20 55 4E 54 . UNT
00F990: 49 4C 20 63 68 20 49 4E 20 28 2E 27 41 27 2C 20 IL ch IN (.'A',
00F9A0: 27 61 27 2E 29 3B 0D 0A 20 20 20 20 20 20 20 20 'a'.);..
00F9B0: 20 20 45 4E 44 2E 20 28 2A 20 68 61 73 68 74 61 END. (* hashta
00F9C0: 62 20 2A 29 0D 0A 1A 68 29 3B 0D 0A 20 20 20 20 b *)...h);..
00F9D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00F9E0: 20 20 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 END;..
00F9F0: 20 20 20 20 20 20 20 20 20 20 20 45 4E 44 3B 0D END;.
00FA00: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00FA10: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00FA20: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00FA30: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00FA40: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00FA50: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00FA60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00FA70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00FA80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00FA90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00FAA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00FAB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00FAC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00FAD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00FAE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00FAF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00FB00: 70 72 6F 67 72 61 6D 20 66 69 6C 5F 6F 76 65 72 program fil_over
00FB10: 66 6F 65 72 73 65 6C 3B 0D 0A 76 61 72 0D 0A 20 foersel;..var..
00FB20: 20 20 6C 69 6E 3A 20 73 74 72 69 6E 67 5B 20 32 lin: string[ 2
00FB30: 35 35 5D 3B 0D 0A 20 20 20 66 3A 20 74 65 78 74 55];.. f: text
00FB40: 3B 0D 0A 62 65 67 69 6E 0D 0A 20 20 20 72 65 70 ;..begin.. rep
00FB50: 65 61 74 0D 0A 20 20 20 20 20 20 77 72 69 74 65 eat.. write
00FB60: 6C 6E 28 20 61 75 78 29 3B 0D 0A 20 20 20 20 20 ln( aux);..
00FB70: 20 72 65 61 64 6C 6E 28 20 61 75 78 2C 20 6C 69 readln( aux, li
00FB80: 6E 29 3B 20 20 20 0D 0A 20 20 20 20 20 20 69 66 n); .. if
00FB90: 20 6C 69 6E 20 3D 20 27 63 6C 6F 73 65 26 23 78 lin = 'close&#x
00FBA0: 79 7A 27 20 74 68 65 6E 0D 0A 20 20 20 20 20 20 yz' then..
00FBB0: 20 20 20 63 6C 6F 73 65 28 20 66 29 0D 0A 20 20 close( f)..
00FBC0: 20 20 20 20 20 20 20 65 6C 73 65 20 69 66 20 63 else if c
00FBD0: 6F 70 79 28 20 6C 69 6E 2C 20 31 2C 20 35 29 20 opy( lin, 1, 5)
00FBE0: 3D 20 27 26 23 78 79 7A 27 20 74 68 65 6E 0D 0A = '&#xyz' then..
00FBF0: 20 20 20 20 20 20 20 20 20 62 65 67 69 6E 0D 0A begin..
00FC00: 20 20 20 20 20 20 20 20 20 20 20 20 77 72 69 74 writ
00FC10: 65 6C 6E 28 20 6C 69 6E 29 3B 0D 0A 20 20 20 20 eln( lin);..
00FC20: 20 20 20 20 20 20 20 20 61 73 73 69 67 6E 28 20 assign(
00FC30: 66 2C 20 63 6F 70 79 28 20 6C 69 6E 2C 20 36 2C f, copy( lin, 6,
00FC40: 20 6C 65 6E 28 6C 69 6E 29 2D 35 20 29 29 3B 0D len(lin)-5 ));.
00FC50: 0A 20 20 20 20 20 20 20 20 20 20 20 20 72 65 77 . rew
00FC60: 72 69 74 65 28 20 66 29 3B 0D 0A 20 20 20 20 20 rite( f);..
00FC70: 20 20 20 20 65 6E 64 0D 0A 20 20 20 20 20 20 20 end..
00FC80: 20 20 65 6C 73 65 20 62 65 67 69 6E 0D 0A 20 20 else begin..
00FC90: 20 20 20 20 20 20 20 20 20 20 77 72 69 74 65 6C writel
00FCA0: 6E 28 20 66 2C 20 6C 69 6E 29 3B 0D 0A 20 20 20 n( f, lin);..
00FCB0: 20 20 20 20 20 20 65 6E 64 3B 0D 0A 20 20 20 75 end;.. u
00FCC0: 6E 74 69 6C 20 6C 69 6E 20 3D 20 27 64 65 74 20 ntil lin = 'det
00FCD0: 76 61 72 20 61 6C 74 20 66 6F 72 20 69 64 61 67 var alt for idag
00FCE0: 27 3B 0D 0A 65 6E 64 2E 0D 0A 1A 1A 1A 1A 1A 1A ';..end.........
00FCF0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
00FD00: 20 20 20 20 20 20 20 20 50 52 4F 47 52 41 4D 20 PROGRAM
00FD10: 68 65 6E 74 70 6F 73 74 3B 0D 0A 20 20 20 20 20 hentpost;..
00FD20: 20 20 20 0D 0A 20 20 20 20 20 20 20 20 20 20 54 .. T
00FD30: 59 50 45 0D 0A 20 20 20 20 20 20 20 20 20 20 20 YPE..
00FD40: 20 6D 65 64 6C 65 6D 73 70 6F 73 74 20 3D 20 52 medlemspost = R
00FD50: 45 43 4F 52 44 0D 0A 20 20 20 20 20 20 20 20 20 ECORD..
00FD60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00FD70: 20 20 20 6C 6F 65 62 65 6E 72 20 3A 20 49 4E 54 loebenr : INT
00FD80: 45 47 45 52 3B 0D 0A 20 20 20 20 20 20 20 20 20 EGER;..
00FD90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00FDA0: 20 20 20 6E 61 76 6E 20 3A 20 53 54 52 49 4E 47 navn : STRING
00FDB0: 28 2E 33 30 2E 29 3B 0D 0A 20 20 20 20 20 20 20 (.30.);..
00FDC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00FDD0: 20 20 20 20 20 67 61 64 65 20 3A 20 53 54 52 49 gade : STRI
00FDE0: 4E 47 28 2E 33 30 2E 29 3B 0D 0A 20 20 20 20 20 NG(.30.);..
00FDF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00FE00: 20 20 20 20 20 20 20 70 6F 73 74 6E 72 62 79 20 postnrby
00FE10: 3A 20 53 54 52 49 4E 47 28 2E 33 30 2E 29 3B 0D : STRING(.30.);.
00FE20: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
00FE30: 20 20 20 20 20 20 20 20 20 20 20 20 20 69 6E 66 inf
00FE40: 6F 20 3A 20 53 54 52 49 4E 47 28 2E 31 30 30 2E o : STRING(.100.
00FE50: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 );..
00FE60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4E EN
00FE70: 44 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 0D 0A D;.. ..
00FE80: 20 20 20 20 20 20 20 20 20 20 20 20 72 65 67 69 regi
00FE90: 73 74 65 72 20 3D 20 46 49 4C 45 20 4F 46 20 6D ster = FILE OF m
00FEA0: 65 64 6C 65 6D 73 70 6F 73 74 3B 0D 0A 20 20 20 edlemspost;..
00FEB0: 20 20 20 20 20 20 20 20 20 0D 0A 20 20 20 20 20 ..
00FEC0: 20 20 20 20 20 56 41 52 0D 0A 20 20 20 20 20 20 VAR..
00FED0: 20 20 20 20 20 20 6D 65 64 6C 65 6D 20 3A 20 6D medlem : m
00FEE0: 65 64 6C 65 6D 73 70 6F 73 74 3B 0D 0A 20 20 20 edlemspost;..
00FEF0: 20 20 20 20 20 20 20 20 20 72 65 67 69 73 74 65 registe
00FF00: 00 04 FD 2A 00 04 FD 2A F3 A2 F3 A2 3A F3 B2 F3 ...*...*....:...
00FF10: B2 2A F3 A2 00 A2 2A 2A 00 04 FD 2A 00 04 FD 2A .*....**...*...*
00FF20: 00 04 FD 3A 00 10 00 10 2A 00 04 FD 2A 2A 0F 03 ...:....*...**..
00FF30: FD 0A 2A F3 A2 00 00 3F 0F FD 2A 2A 0A 00 00 0A ..*....?..**....
00FF40: 2A 00 A2 00 00 3A 30 04 FD 3A 30 04 FD 2A 00 04 *....:0..:0..*..
00FF50: FD 2A 2A 0A 00 00 0A 2A 00 A2 00 00 3A F3 B2 F3 .**....*....:...
00FF60: B2 3A F3 B2 F3 B2 2A F3 A2 F3 A2 2A 2A 05 0F 0F .:....*....**...
00FF70: 00 2A 00 04 FD 3A 00 B2 A2 B2 3A 00 B2 A2 B2 2A .*...:....:....*
00FF80: 00 A2 03 FD 2A 2A 00 04 FD 2A F3 A2 00 00 3A F3 ....**...*....:.
00FF90: B2 F3 B2 3A F3 B2 F3 B2 2A 51 A2 03 FD 2A 2A 0F ...:....*Q...**.
00FFA0: 03 FD 0A 2A A2 A2 00 00 3A A2 10 A2 B2 3A A2 10 ...*....:....:..
00FFB0: 00 B2 2A 00 A2 03 FD 2A 2A 0A 00 00 0A 2A F3 F3 ..*....**....*..
00FFC0: A2 00 3A F3 B2 F3 B2 3A F3 B2 30 B2 2A F3 A2 F3 ..:....:..0.*...
00FFD0: A2 2A 2A 0A 00 00 0A 2A 00 04 FD 3A 00 10 00 10 .**....*...:....
00FFE0: 3A 00 10 30 10 2A 00 04 FD 2A 2A 05 0F 0F 00 2A :..0.*...**....*
00FFF0: 00 04 FD 3F 0F FD 2A 2A 00 04 FD 2A 00 04 FD 3A ...?..**...*...:
010000: 30 04 FD 2A 00 04 FD 3A 30 04 FD 2A 3F 05 FD 2A 0..*...:0..*?..*
010010: 00 04 FD 3A F3 B2 71 30 2A F3 A2 F3 A2 3A F3 B2 ...:..q0*....:..
010020: F3 B2 2A 2A 0A 00 0A 00 2A 00 04 FD 3A 00 B2 F3 ..**....*...:...
010030: 30 2A 00 A2 00 A2 3A 00 B2 00 B2 2A 2A 0F 03 FD 0*....:....**...
010040: 0A 2A 00 04 FD 3A 71 B2 51 30 2A 51 A2 F3 A2 3A .*...:q.Q0*Q...:
010050: 71 B2 71 B2 2A 2A 0A 00 03 FD 2A 00 04 FD 3A 20 q.q.**....*...:
010060: B2 71 30 2A 00 A2 A2 00 3A 20 B2 20 B2 2A 2A 00 .q0*....: . .**.
010070: 00 0F 0A 2A 0A 00 05 00 3A F3 B2 F3 B2 2A F3 A2 ...*....:....*..
010080: F3 A2 3A F3 B2 F3 B2 2A 2A 00 00 0A 0A 2A 0F 03 ..:....**....*..
010090: FD 0A 3A 00 10 00 10 2A 00 04 FD 3A 00 10 00 10 ..:....*...:....
0100A0: 2A 2A 0F 03 FD 0A 2A 0A 00 03 FD 3F 0F FD 2A 2A **....*....?..**
0100B0: 00 51 00 00 2A 00 04 FD 2A 00 04 FD 3A 30 04 FD .Q..*...*...:0..
0100C0: 2A 00 04 FD 2A 2A 00 51 00 00 2A 00 00 05 00 2A *...**.Q..*....*
0100D0: F3 A2 A2 00 3A F3 B2 F3 B2 2A F3 A2 A2 00 2A 2A ....:....*....**
0100E0: 0A 00 00 0A 2A 0F 0A 00 0A 2A 00 A2 A2 00 3A 00 ....*....*....:.
0100F0: B2 A2 10 2A 00 A2 A2 00 2A 2A 0A 05 00 0A 2A 0A ...*....**....*.
010100: 72 66 69 6C 20 3A 20 72 65 67 69 73 74 65 72 3B rfil : register;
010110: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 63 70 .. cp
010120: 6D 6E 61 76 6E 20 3A 20 53 54 52 49 4E 47 28 2E mnavn : STRING(.
010130: 31 34 2E 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 14.);..
010140: 20 20 20 0D 0A 20 20 20 20 20 20 20 20 20 20 42 .. B
010150: 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 EGIN..
010160: 20 20 57 52 49 54 45 28 43 48 52 28 31 32 29 29 WRITE(CHR(12))
010170: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 57 ;.. W
010180: 52 49 54 45 28 27 48 76 61 64 20 68 65 64 64 65 RITE('Hvad hedde
010190: 72 20 6B 61 72 74 6F 74 65 6B 65 74 20 28 43 50 r kartoteket (CP
0101A0: 2F 4D 20 6E 61 76 6E 29 3A 20 27 29 3B 0D 0A 20 /M navn): ');..
0101B0: 20 20 20 20 20 20 20 20 20 20 20 52 45 41 44 4C READL
0101C0: 4E 28 63 70 6D 6E 61 76 6E 29 3B 0D 0A 20 20 20 N(cpmnavn);..
0101D0: 20 20 20 20 20 20 20 20 20 41 53 53 49 47 4E 28 ASSIGN(
0101E0: 72 65 67 69 73 74 65 72 66 69 6C 2C 20 63 70 6D registerfil, cpm
0101F0: 6E 61 76 6E 29 3B 0D 0A 20 20 20 20 20 20 20 20 navn);..
010200: 20 20 20 20 52 45 53 45 54 28 72 65 67 69 73 74 RESET(regist
010210: 65 72 66 69 6C 29 3B 0D 0A 20 20 20 20 20 20 20 erfil);..
010220: 20 20 20 20 20 57 48 49 4C 45 20 4E 4F 54 20 45 WHILE NOT E
010230: 4F 46 28 72 65 67 69 73 74 65 72 66 69 6C 29 20 OF(registerfil)
010240: 44 4F 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 DO..
010250: 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 BEGIN..
010260: 20 20 20 20 20 20 20 20 20 52 45 41 44 28 72 65 READ(re
010270: 67 69 73 74 65 72 66 69 6C 2C 20 6D 65 64 6C 65 gisterfil, medle
010280: 6D 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 m);..
010290: 20 20 20 20 20 57 49 54 48 20 6D 65 64 6C 65 6D WITH medlem
0102A0: 20 44 4F 0D 0A 20 20 20 20 20 20 20 20 20 20 20 DO..
0102B0: 20 20 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 BEGIN..
0102C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0102D0: 20 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 WRITELN;..
0102E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0102F0: 57 52 49 54 45 4C 4E 28 27 4D 65 64 6C 65 6D 73 WRITELN('Medlems
010300: 50 52 4F 47 52 41 4D 20 69 64 65 61 6C 3B 0D 0A PROGRAM ideal;..
010310: 20 20 0D 0A 20 20 54 59 50 45 0D 0A 20 20 20 20 .. TYPE..
010320: 73 74 72 36 20 3D 20 53 54 52 49 4E 47 28 2E 36 str6 = STRING(.6
010330: 2E 29 3B 0D 0A 20 20 0D 0A 20 20 56 41 52 0D 0A .);.. .. VAR..
010340: 20 20 20 20 6B 6F 65 6E 20 3A 20 73 74 72 36 3B koen : str6;
010350: 0D 0A 20 20 20 20 63 68 20 3A 20 43 48 41 52 3B .. ch : CHAR;
010360: 0D 0A 20 20 20 20 68 6F 65 6A 64 65 20 3A 20 49 .. hoejde : I
010370: 4E 54 45 47 45 52 3B 0D 0A 20 20 0D 0A 20 20 50 NTEGER;.. .. P
010380: 52 4F 43 45 44 55 52 45 20 66 6F 72 73 69 64 65 ROCEDURE forside
010390: 3B 0D 0A 20 20 20 0D 0A 20 20 20 20 43 4F 4E 53 ;.. .. CONS
0103A0: 54 0D 0A 20 20 20 20 20 20 78 20 3D 20 31 30 3B T.. x = 10;
0103B0: 0D 0A 20 20 20 20 20 20 79 20 3D 20 34 3B 0D 0A .. y = 4;..
0103C0: 20 20 20 20 0D 0A 20 20 20 20 56 41 52 0D 0A 20 .. VAR..
0103D0: 20 20 20 20 20 63 68 20 3A 20 43 48 41 52 3B 0D ch : CHAR;.
0103E0: 0A 20 20 20 20 0D 0A 20 20 20 20 42 45 47 49 4E . .. BEGIN
0103F0: 20 28 2A 20 66 6F 72 73 69 64 65 20 2A 29 0D 0A (* forside *)..
010400: 20 20 20 20 20 20 57 52 49 54 45 28 43 4C 52 48 WRITE(CLRH
010410: 4F 4D 29 3B 0D 0A 20 20 20 20 20 20 47 4F 54 4F OM);.. GOTO
010420: 58 59 28 78 2C 20 79 29 3B 0D 0A 20 20 20 20 20 XY(x, y);..
010430: 20 57 52 49 54 45 28 27 2A 2A 2A 2A 2A 2A 2A 2A WRITE('********
010440: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
010450: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
010460: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
010470: 2A 27 29 3B 0D 0A 20 20 20 20 20 20 47 4F 54 4F *');.. GOTO
010480: 58 59 28 78 2C 20 79 20 2B 20 31 29 3B 0D 0A 20 XY(x, y + 1);..
010490: 20 20 20 20 20 57 52 49 54 45 28 27 2A 2A 2A 2A WRITE('****
0104A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0104B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0104C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0104D0: 20 2A 2A 2A 2A 27 29 3B 0D 0A 20 20 20 20 20 20 ****');..
0104E0: 47 4F 54 4F 58 59 28 78 2C 20 79 20 2B 20 32 29 GOTOXY(x, y + 2)
0104F0: 3B 0D 0A 20 20 20 20 20 20 57 52 49 54 45 28 27 ;.. WRITE('
010500: 6E 75 6D 6D 65 72 3A 20 27 2C 20 6C 6F 65 62 65 nummer: ', loebe
010510: 6E 72 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 nr);..
010520: 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4C WRITEL
010530: 4E 28 27 4E 61 76 6E 3A 20 27 2C 20 6E 61 76 6E N('Navn: ', navn
010540: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 );..
010550: 20 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E 28 WRITELN(
010560: 27 47 61 64 65 20 6F 67 20 6E 72 3A 20 27 2C 20 'Gade og nr: ',
010570: 67 61 64 65 29 3B 0D 0A 20 20 20 20 20 20 20 20 gade);..
010580: 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 WRIT
010590: 45 4C 4E 28 27 50 6F 73 74 6E 72 2E 20 6F 67 20 ELN('Postnr. og
0105A0: 62 79 3A 20 27 2C 20 70 6F 73 74 6E 72 62 79 29 by: ', postnrby)
0105B0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ;..
0105C0: 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E 28 27 WRITELN('
0105D0: 4F 70 6C 79 73 6E 69 6E 67 65 72 3A 20 27 2C 20 Oplysninger: ',
0105E0: 69 6E 66 6F 29 3B 0D 0A 20 20 20 20 20 20 20 20 info);..
0105F0: 20 20 20 20 20 20 20 20 20 20 45 4E 44 3B 0D 0A END;..
010600: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4E EN
010610: 44 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 D;..
010620: 43 4C 4F 53 45 28 72 65 67 69 73 74 65 72 66 69 CLOSE(registerfi
010630: 6C 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 45 l);.. E
010640: 4E 44 2E 0D 0A 1A 20 57 52 49 54 45 4C 4E 28 27 ND.... WRITELN('
010650: 4F 70 6C 79 73 6E 69 6E 67 65 72 3A 20 27 2C 20 Oplysninger: ',
010660: 69 6E 66 6F 29 3B 0D 0A 20 20 20 20 20 20 20 20 info);..
010670: 20 20 20 20 20 20 20 20 20 20 45 4E 44 3B 0D 0A END;..
010680: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
010690: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0106A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0106B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0106C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0106D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0106E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0106F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
010700: 2A 2A 2A 2A 20 20 20 20 20 20 20 20 20 20 20 20 ****
010710: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
010720: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
010730: 20 20 20 20 20 2A 2A 2A 2A 27 29 3B 0D 0A 20 20 ****');..
010740: 20 20 20 20 47 4F 54 4F 58 59 28 78 2C 20 79 20 GOTOXY(x, y
010750: 2B 20 33 29 3B 0D 0A 20 20 20 20 20 20 57 52 49 + 3);.. WRI
010760: 54 45 28 27 2A 2A 2A 2A 20 20 20 20 20 20 20 20 TE('****
010770: 20 20 20 20 20 20 20 20 49 20 44 20 45 20 41 20 I D E A
010780: 4C 20 56 20 5B 20 47 20 54 20 20 20 20 20 20 20 L V [ G T
010790: 20 20 20 20 20 20 20 20 20 2A 2A 2A 2A 27 29 3B ****');
0107A0: 0D 0A 20 20 20 20 20 20 47 4F 54 4F 58 59 28 78 .. GOTOXY(x
0107B0: 2C 20 79 20 2B 20 34 29 3B 0D 0A 20 20 20 20 20 , y + 4);..
0107C0: 20 57 52 49 54 45 28 27 2A 2A 2A 2A 20 20 20 20 WRITE('****
0107D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0107E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0107F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 2A 2A ***
010800: 2A 27 29 3B 0D 0A 20 20 20 20 20 20 47 4F 54 4F *');.. GOTO
010810: 58 59 28 78 2C 20 79 20 2B 20 35 29 3B 0D 0A 20 XY(x, y + 5);..
010820: 20 20 20 20 20 57 52 49 54 45 28 27 2A 2A 2A 2A WRITE('****
010830: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
010840: 20 20 20 20 20 20 48 20 4F 20 53 20 20 20 20 20 H O S
010850: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
010860: 20 2A 2A 2A 2A 27 29 3B 0D 0A 20 20 20 20 20 20 ****');..
010870: 47 4F 54 4F 58 59 28 78 2C 20 79 20 2B 20 36 29 GOTOXY(x, y + 6)
010880: 3B 0D 0A 20 20 20 20 20 20 57 52 49 54 45 28 27 ;.. WRITE('
010890: 2A 2A 2A 2A 20 20 20 20 20 20 20 20 20 20 20 20 ****
0108A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0108B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0108C0: 20 20 20 20 20 2A 2A 2A 2A 27 29 3B 0D 0A 20 20 ****');..
0108D0: 20 20 20 20 47 4F 54 4F 58 59 28 78 2C 20 79 20 GOTOXY(x, y
0108E0: 2B 20 37 29 3B 0D 0A 20 20 20 20 20 20 57 52 49 + 7);.. WRI
0108F0: 54 45 28 27 2A 2A 2A 2A 20 20 20 20 20 20 20 20 TE('****
010900: 3A 30 04 FD 3A 30 04 FD 2A 00 04 FD 2A 2A 0A 05 :0..:0..*...**..
010910: 00 0A 2A 00 00 05 00 3A 71 30 F3 B2 3A 71 30 71 ..*....:q0..:q0q
010920: 30 2A 51 00 F3 A2 2A 2A 00 04 FD 2A 0F 0A 00 0A 0*Q...**...*....
010930: 3A F3 30 A2 B2 3A F3 30 F3 30 2A F3 00 00 A2 2A :.0..:.0.0*....*
010940: 2A 0F 03 FD 0A 2A 0A 05 00 0A 3A 51 30 B2 B2 3A *....*....:Q0..:
010950: 51 30 51 30 2A 51 00 F3 A2 2A 2A 00 03 FD 0A 2A Q0Q0*Q...**....*
010960: 0A 05 0F 00 3A 71 30 B2 B2 3A 71 30 71 30 2A 51 ....:q0..:q0q0*Q
010970: 00 A2 00 2A 2A 0F 03 FD 0A 2A 00 04 FD 3A F3 B2 ...**....*...:..
010980: F3 B2 3A F3 B2 F3 B2 2A F3 A2 F3 A2 2A 2A 00 04 ..:....*....**..
010990: FD 2A 00 04 FD 3A 00 10 00 10 3A 00 10 00 10 2A .*...:....:....*
0109A0: 00 04 FD 2A 3F 19 FD 2A 2A 00 04 FD 2A 00 04 FD ...*?..**...*...
0109B0: 3A 30 04 FD 2A 00 04 FD 3A 30 04 FD 2A 2A 00 04 :0..*...:0..**..
0109C0: FD 2A 00 04 FD 3A 71 30 F3 B2 2A 51 51 00 00 3A .*...:q0..*QQ..:
0109D0: 71 30 F3 B2 2A 2A 0F 03 FD 0A 2A 00 00 05 00 3A q0..**....*....:
0109E0: F3 30 00 B2 2A F3 51 00 00 3A F3 30 A2 10 2A 2A .0..*.Q..:.0..**
0109F0: 00 05 00 0A 2A 0F 0A 00 0A 3A 51 30 71 B2 2A 51 ....*....:Q0q.*Q
010A00: 03 FD 00 3A 51 30 F3 B2 2A 2A 00 05 00 0A 2A 0A ...:Q0..**....*.
010A10: 05 00 0A 3A 71 30 20 B2 2A 51 51 F3 A2 3A 71 30 ...:q0 .*QQ..:q0
010A20: 00 B2 2A 2A 0F 0A 0F 00 2A 0A 05 0F 00 3A F3 B2 ..**....*....:..
010A30: F3 B2 2A F3 A2 51 00 3A F3 B2 F3 B2 2A 2A 00 04 ..*..Q.:....**..
010A40: FD 2A 00 04 FD 3A 00 10 00 10 2A 00 04 FD 3A 00 .*...:....*...:.
010A50: 10 00 10 2A 2A 0F 03 FD 0A 2A 00 04 FD 3F 0F FD ...**....*...?..
010A60: 2A 2A 0A 05 00 0A 2A F3 F3 00 00 2A 00 04 FD 3A **....*....*...:
010A70: 30 04 FD 2A 00 04 FD 2A 2A 0A 00 00 0A 2A 00 51 0..*...**....*.Q
010A80: 00 00 2A 51 00 A2 00 3A 71 30 F3 B2 2A 51 00 F3 ..*Q...:q0..*Q..
010A90: A2 2A 2A 00 04 FD 2A F3 F3 00 00 2A F3 00 A2 00 .**...*....*....
010AA0: 3A F3 30 00 B2 2A F3 00 A2 A2 2A 2A 0F 03 FD 0A :.0..*....**....
010AB0: 2A 00 04 FD 2A 51 00 F3 A2 3A 51 30 30 B2 2A 51 *...*Q...:Q00.*Q
010AC0: 00 F3 A2 2A 2A 0A 00 00 0A 2A F3 A2 00 00 2A 51 ...**....*....*Q
010AD0: 00 A2 A2 3A 71 30 30 B2 2A 51 00 A2 A2 2A 2A 05 ...:q00.*Q...**.
010AE0: 0F 0F 00 2A A2 A2 00 00 2A F3 A2 F3 A2 3A F3 B2 ...*....*....:..
010AF0: 30 B2 2A F3 A2 F3 A2 2A 2A 00 04 FD 2A F3 F3 A2 0.*....**...*...
010B00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
010B10: 0E 00 01 00 02 09 52 E5 0E 00 41 02 00 00 00 02 ......R...A.....
010B20: 0E 00 46 02 00 00 00 02 0E 00 42 02 00 00 00 02 ..F.......B.....
010B30: 0E 00 47 02 00 00 00 02 0E 00 43 02 00 00 00 02 ..G.......C.....
010B40: 0E 00 48 02 00 00 00 02 0E 00 44 02 00 00 00 02 ..H.......D.....
010B50: 0E 00 49 02 00 00 00 02 0E 00 45 02 00 00 00 02 ..I.......E.....
010B60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
010B70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
010B80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
010B90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
010BA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
010BB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
010BC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
010BD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
010BE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
010BF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
010C00: 20 20 20 20 4B 20 56 20 49 20 4E 20 44 20 45 20 K V I N D E
010C10: 52 20 20 26 20 20 4D 20 5B 20 4E 20 44 20 20 20 R & M [ N D
010C20: 20 20 20 20 20 20 20 20 20 2A 2A 2A 2A 27 29 3B ****');
010C30: 0D 0A 20 20 20 20 20 20 47 4F 54 4F 58 59 28 78 .. GOTOXY(x
010C40: 2C 20 79 20 2B 20 38 29 3B 0D 0A 20 20 20 20 20 , y + 8);..
010C50: 20 57 52 49 54 45 28 27 2A 2A 2A 2A 20 20 20 20 WRITE('****
010C60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
010C70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
010C80: 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 2A 2A ***
010C90: 2A 27 29 3B 0D 0A 20 20 20 20 20 20 47 4F 54 4F *');.. GOTO
010CA0: 58 59 28 78 2C 20 79 20 2B 20 39 29 3B 0D 0A 20 XY(x, y + 9);..
010CB0: 20 20 20 20 20 57 52 49 54 45 28 27 2A 2A 2A 2A WRITE('****
010CC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
010CD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
010CE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
010CF0: 20 2A 2A 2A 2A 27 29 3B 0D 0A 20 20 20 20 20 20 ****');..
010D00: 47 4F 54 4F 58 59 28 78 2C 20 79 20 2B 20 31 30 GOTOXY(x, y + 10
010D10: 29 3B 0D 0A 20 20 20 20 20 20 57 52 49 54 45 28 );.. WRITE(
010D20: 27 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A '***************
010D30: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
010D40: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
010D50: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 27 29 3B 0D 0A 20 **********');..
010D60: 20 20 20 20 20 47 4F 54 4F 58 59 28 78 2C 20 32 GOTOXY(x, 2
010D70: 30 29 3B 0D 0A 20 20 20 20 20 20 57 52 49 54 45 0);.. WRITE
010D80: 28 27 50 72 6F 67 72 61 6D 6D 65 74 20 75 64 73 ('Programmet uds
010D90: 6B 72 69 76 65 72 20 69 64 65 61 6C 76 7B 67 74 kriver idealv{gt
010DA0: 65 6E 20 68 6F 73 20 6B 76 69 6E 64 65 72 20 6F en hos kvinder o
010DB0: 67 20 6D 7B 6E 64 2C 20 6E 7D 72 27 29 3B 0D 0A g m{nd, n}r');..
010DC0: 20 20 20 20 20 20 47 4F 54 4F 58 59 28 78 2C 20 GOTOXY(x,
010DD0: 32 31 29 3B 0D 0A 20 20 20 20 20 20 57 52 49 54 21);.. WRIT
010DE0: 45 28 27 6D 61 6E 20 69 6E 64 74 61 73 74 65 72 E('man indtaster
010DF0: 20 68 7C 6A 64 65 6E 20 69 20 63 6D 2E 27 29 3B h|jden i cm.');
010E00: 0D 0A 20 20 20 20 20 20 20 20 52 45 41 44 28 73 .. READ(s
010E10: 74 72 65 6E 67 29 3B 0D 0A 20 20 20 20 20 20 20 treng);..
010E20: 20 56 41 4C 28 73 74 72 65 6E 67 2C 20 68 6F 65 VAL(streng, hoe
010E30: 6A 64 65 2C 20 74 65 73 74 29 3B 0D 0A 20 20 20 jde, test);..
010E40: 20 20 20 55 4E 54 49 4C 20 74 65 73 74 20 3D 20 UNTIL test =
010E50: 30 3B 0D 0A 20 20 20 20 20 20 75 64 73 6B 72 69 0;.. udskri
010E60: 66 74 28 6B 6F 65 6E 2C 20 68 6F 65 6A 64 65 29 ft(koen, hoejde)
010E70: 3B 0D 0A 20 20 20 20 45 4E 44 3B 20 28 2A 20 73 ;.. END; (* s
010E80: 70 6F 65 72 67 20 2A 29 0D 0A 20 20 20 20 0D 0A poerg *).. ..
010E90: 20 20 42 45 47 49 4E 20 28 2A 20 69 64 65 61 6C BEGIN (* ideal
010EA0: 20 2A 29 0D 0A 20 20 20 20 52 45 50 45 41 54 0D *).. REPEAT.
010EB0: 0A 20 20 20 20 20 20 66 6F 72 73 69 64 65 3B 0D . forside;.
010EC0: 0A 20 20 20 20 20 20 73 70 6F 65 72 67 28 6B 6F . spoerg(ko
010ED0: 65 6E 2C 20 68 6F 65 6A 64 65 29 3B 0D 0A 20 20 en, hoejde);..
010EE0: 20 20 20 20 75 64 73 6B 72 69 66 74 28 6B 6F 65 udskrift(koe
010EF0: 6E 2C 20 68 6F 65 6A 64 65 29 3B 0D 0A 20 20 20 n, hoejde);..
010F00: 20 20 20 47 4F 54 4F 58 59 28 35 2C 20 32 30 29 GOTOXY(5, 20)
010F10: 3B 0D 0A 20 20 20 20 20 20 57 52 49 54 45 28 27 ;.. WRITE('
010F20: 5C 6E 73 6B 65 72 20 64 75 20 61 74 20 70 72 7C \nsker du at pr|
010F30: 76 65 20 69 67 65 6E 20 28 6A 2F 6E 29 3A 20 27 ve igen (j/n): '
010F40: 29 3B 0D 0A 20 20 20 20 20 20 52 45 50 45 41 54 );.. REPEAT
010F50: 0D 0A 20 20 20 20 20 20 20 20 52 45 41 44 28 4B .. READ(K
010F60: 42 44 2C 20 63 68 29 3B 0D 0A 20 20 20 20 20 20 BD, ch);..
010F70: 55 4E 54 49 4C 20 63 68 20 49 4E 20 28 2E 27 4A UNTIL ch IN (.'J
010F80: 27 2C 20 27 6A 27 2C 20 27 4E 27 2C 20 27 6E 27 ', 'j', 'N', 'n'
010F90: 2E 29 3B 0D 0A 20 20 20 20 55 4E 54 49 4C 20 63 .);.. UNTIL c
010FA0: 68 20 49 4E 20 28 2E 27 4E 27 2C 20 27 6E 27 2E h IN (.'N', 'n'.
010FB0: 29 3B 0D 0A 20 20 20 20 47 4F 54 4F 58 59 28 35 );.. GOTOXY(5
010FC0: 2C 20 32 31 29 3B 0D 0A 20 20 20 20 57 52 49 54 , 21);.. WRIT
010FD0: 45 4C 4E 28 27 53 7D 20 73 6C 75 74 74 65 72 20 ELN('S} slutter
010FE0: 76 69 20 66 6F 72 20 69 20 64 61 67 2E 27 29 3B vi for i dag.');
010FF0: 0D 0A 20 20 45 4E 44 2E 20 28 2A 20 69 64 65 61 .. END. (* idea
011000: 0D 0A 20 20 20 20 20 20 47 4F 54 4F 58 59 28 36 .. GOTOXY(6
011010: 35 2C 20 32 32 29 3B 0D 0A 20 20 20 20 20 20 57 5, 22);.. W
011020: 52 49 54 45 28 27 54 61 73 74 20 3C 52 45 54 55 RITE('Tast <RETU
011030: 52 4E 3E 21 27 29 3B 0D 0A 20 20 20 20 20 20 52 RN>!');.. R
011040: 45 50 45 41 54 0D 0A 20 20 20 20 20 20 20 20 52 EPEAT.. R
011050: 45 41 44 28 4B 42 44 2C 20 63 68 29 3B 0D 0A 20 EAD(KBD, ch);..
011060: 20 20 20 20 20 55 4E 54 49 4C 20 63 68 20 3D 20 UNTIL ch =
011070: 43 48 52 28 31 33 29 3B 0D 0A 20 20 20 20 45 4E CHR(13);.. EN
011080: 44 3B 20 28 2A 20 66 6F 72 73 69 64 65 20 2A 29 D; (* forside *)
011090: 0D 0A 20 20 0D 0A 20 20 50 52 4F 43 45 44 55 52 .. .. PROCEDUR
0110A0: 45 20 75 64 73 6B 72 69 66 74 28 6B 6F 65 6E 20 E udskrift(koen
0110B0: 3A 20 73 74 72 36 3B 20 68 6F 65 6A 64 65 20 3A : str6; hoejde :
0110C0: 20 49 4E 54 45 47 45 52 29 3B 0D 0A 20 20 0D 0A INTEGER);.. ..
0110D0: 20 20 20 20 50 52 4F 43 45 44 55 52 45 20 75 6E PROCEDURE un
0110E0: 6F 72 6D 61 6C 3B 0D 0A 20 20 0D 0A 20 20 20 20 ormal;.. ..
0110F0: 20 20 42 45 47 49 4E 20 28 2A 20 75 6E 6F 72 6D BEGIN (* unorm
011100: 61 6C 20 2A 29 0D 0A 20 20 20 20 20 20 20 20 57 al *).. W
011110: 52 49 54 45 28 43 4C 52 48 4F 4D 29 3B 0D 0A 20 RITE(CLRHOM);..
011120: 20 20 20 20 20 20 20 47 4F 54 4F 58 59 28 35 2C GOTOXY(5,
011130: 20 39 29 3B 0D 0A 20 20 20 20 20 20 20 20 57 52 9);.. WR
011140: 49 54 45 28 27 44 75 20 6C 69 67 67 65 72 20 75 ITE('Du ligger u
011150: 64 65 6E 20 66 6F 72 20 64 65 20 6E 6F 72 6D 61 den for de norma
011160: 6C 65 20 72 61 6D 6D 65 72 2E 20 50 72 7C 76 20 le rammer. Pr|v
011170: 69 67 65 6E 21 27 29 3B 0D 0A 20 20 20 20 20 20 igen!');..
011180: 45 4E 44 3B 20 28 2A 20 75 6E 6F 72 6D 61 6C 20 END; (* unormal
011190: 2A 29 0D 0A 20 20 20 20 0D 0A 20 20 20 20 50 52 *).. .. PR
0111A0: 4F 43 45 44 55 52 45 20 75 64 3B 0D 0A 20 20 20 OCEDURE ud;..
0111B0: 20 0D 0A 20 20 20 20 20 20 56 41 52 0D 0A 20 20 .. VAR..
0111C0: 20 20 20 20 20 20 76 61 65 67 74 20 3A 20 52 45 vaegt : RE
0111D0: 41 4C 3B 0D 0A 20 20 20 20 20 20 20 20 0D 0A 20 AL;.. ..
0111E0: 20 20 20 20 20 42 45 47 49 4E 20 28 2A 20 75 64 BEGIN (* ud
0111F0: 20 2A 29 0D 0A 20 20 20 20 20 20 20 20 49 46 20 *).. IF
011200: 6C 20 2A 29 0D 0A 1A 20 27 4E 27 2C 20 27 6E 27 l *)... 'N', 'n'
011210: 2E 29 3B 0D 0A 20 20 20 20 55 4E 54 49 4C 20 63 .);.. UNTIL c
011220: 68 20 49 4E 20 28 2E 27 4E 27 2C 20 27 6E 27 2E h IN (.'N', 'n'.
011230: 29 3B 0D 0A 20 20 20 20 47 4F 54 4F 58 59 28 35 );.. GOTOXY(5
011240: 2C 20 32 31 29 3B 0D 0A 20 20 20 20 57 52 49 54 , 21);.. WRIT
011250: 45 4C 4E 28 27 53 7D 20 73 6C 75 74 74 65 72 20 ELN('S} slutter
011260: 76 69 20 66 6F 72 20 69 20 64 61 67 2E 27 29 3B vi for i dag.');
011270: 0D 0A 20 20 45 4E 44 2E 20 28 2A 20 69 64 65 61 .. END. (* idea
011280: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011290: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0112A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0112B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0112C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0112D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0112E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0112F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011300: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011310: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011320: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011330: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011340: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011350: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011360: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011370: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011380: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011390: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0113A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0113B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0113C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0113D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0113E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0113F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011400: 6B 6F 65 6E 20 3D 20 27 6D 61 6E 64 27 0D 0A 20 koen = 'mand'..
011410: 20 20 20 20 20 20 20 20 20 54 48 45 4E 20 76 61 THEN va
011420: 65 67 74 20 3A 3D 20 28 68 6F 65 6A 64 65 20 2D egt := (hoejde -
011430: 20 31 30 30 29 20 2A 20 30 2E 39 30 0D 0A 20 20 100) * 0.90..
011440: 20 20 20 20 20 20 20 20 45 4C 53 45 20 76 61 65 ELSE vae
011450: 67 74 20 3A 3D 20 28 68 6F 65 6A 64 65 20 2D 20 gt := (hoejde -
011460: 31 30 30 29 20 2A 20 30 2E 38 38 3B 0D 0A 20 20 100) * 0.88;..
011470: 20 20 20 20 20 20 47 4F 54 4F 58 59 28 30 2C 20 GOTOXY(0,
011480: 39 29 3B 0D 0A 20 20 20 20 20 20 20 20 57 52 49 9);.. WRI
011490: 54 45 4C 4E 28 27 20 20 20 20 20 2A 2A 2A 2A 2A TELN(' *****
0114A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
0114B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
0114C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
0114D0: 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 57 52 49 ');.. WRI
0114E0: 54 45 4C 4E 28 27 20 20 20 20 20 2A 2A 2A 2A 20 TELN(' ****
0114F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
011500: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
011510: 20 20 20 20 20 20 20 20 20 20 20 20 2A 2A 2A 2A ****
011520: 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 57 52 49 ');.. WRI
011530: 54 45 4C 4E 28 27 20 20 20 20 20 2A 2A 2A 2A 20 TELN(' ****
011540: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
011550: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
011560: 20 20 20 20 20 20 20 20 20 20 20 20 2A 2A 2A 2A ****
011570: 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 57 52 49 ');.. WRI
011580: 54 45 4C 4E 28 27 20 20 20 20 20 2A 2A 2A 2A 20 TELN(' ****
011590: 20 20 20 20 20 20 44 75 20 73 6B 61 6C 20 6D 65 Du skal me
0115A0: 64 20 65 6E 20 68 7C 6A 64 65 20 70 7D 20 27 2C d en h|jde p} ',
0115B0: 20 68 6F 65 6A 64 65 2C 20 27 20 63 6D 2E 27 2C hoejde, ' cm.',
0115C0: 20 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
0115D0: 20 20 20 27 20 20 20 20 20 20 20 2A 2A 2A 2A 27 ' ****'
0115E0: 29 3B 0D 0A 20 20 20 20 20 20 20 20 57 52 49 54 );.. WRIT
0115F0: 45 4C 4E 28 27 20 20 20 20 20 2A 2A 2A 2A 20 20 ELN(' ****
011600: C0 80 00 00 34 92 00 07 FD 61 3C 20 00 00 40 00 ....4....a< ..@.
011610: 03 FD 61 F0 20 00 00 40 00 03 FD 65 E5 20 00 00 ..a. ..@...e. ..
011620: 40 00 03 FD E5 CF 20 00 00 40 00 00 10 78 CB 20 @..... ..@...x.
011630: 00 00 40 00 00 10 3C C3 38 00 00 40 00 00 10 96 ..@...<.8..@....
011640: 96 B0 00 00 40 00 00 65 C3 3C B0 00 00 40 00 00 ....@..e.<...@..
011650: 70 CB 78 CF 20 00 11 00 10 78 CB E5 CB 38 00 11 p.x. ....x...8..
011660: 00 61 D2 E5 E5 9E 78 20 00 10 F0 96 E5 CF 96 78 .a....x .......x
011670: 92 30 61 78 96 F0 B4 69 9E 92 30 E1 DA 69 CF DA .0ax...i..0..i..
011680: 69 9E 20 00 10 9E C3 DA DA 3C 9A 00 03 FD 34 C7 i. ......<....4.
011690: DA CF B4 20 00 22 00 10 CF B4 C7 9E 20 00 22 00 ... ."...... .".
0116A0: 10 DA B4 C7 9A 00 00 A8 00 00 70 3C 69 9A 00 00 ..........p<i...
0116B0: A8 00 00 14 69 3C 92 00 00 A8 00 00 10 C3 B4 20 ....i<.........
0116C0: 00 00 A8 00 00 10 C7 F0 20 00 00 A8 00 03 FD DA ........ .......
0116D0: DA 20 00 00 54 00 03 FD F0 CF 20 00 00 54 00 03 . ..T..... ..T..
0116E0: FD 34 C3 20 00 00 54 00 00 91 34 38 00 03 FD FC .4. ..T...48....
0116F0: 80 C0 00 61 38 00 00 54 FC C0 00 00 65 B0 00 00 ...a8..T....e...
011700: 54 B9 C0 00 00 65 9A 00 00 FC A8 C0 00 00 70 92 T....e........p.
011710: 00 54 00 C0 80 00 00 34 92 11 A8 00 40 00 03 FD .T.....4....@...
011720: 61 3C 20 00 06 FD 61 F0 20 00 03 FD 80 00 00 65 a< ...a. ......e
011730: E5 20 00 03 FD 80 00 00 E5 CF 20 00 03 FD 80 00 . ........ .....
011740: 10 78 CB 20 00 03 FD 80 00 10 3C C3 38 00 03 FD .x. ......<.8...
011750: 40 00 10 96 96 B0 00 03 FD 40 00 65 C3 3C B0 00 @........@.e.<..
011760: 03 FD 11 00 70 CB 78 CF 20 00 00 11 10 78 CB E5 ....p.x. ....x..
011770: CB 38 00 03 FD 61 D2 E5 E5 9E 78 20 00 10 F0 96 .8...a....x ....
011780: E5 CF 96 78 92 30 61 78 96 F0 B4 69 9E 92 30 E1 ...x.0ax...i..0.
011790: DA 69 CF DA 69 9E 20 00 10 9E C3 DA DA 3C 9A 00 .i..i. ......<..
0117A0: 03 FD 34 C7 DA CF B4 20 00 03 FD 10 CF B4 C7 9E ..4.... ........
0117B0: 20 22 00 00 10 DA B4 C7 9A 00 22 00 03 FD 70 3C "........"...p<
0117C0: 69 9A 00 A8 00 03 FD 14 69 3C 92 00 54 00 03 FD i.......i<..T...
0117D0: 10 C3 B4 20 00 54 00 03 FD 10 C7 F0 20 00 54 00 ... .T...... .T.
0117E0: 03 FD 11 DA DA 20 00 00 A8 00 00 80 F0 CF 20 00 ..... ........ .
0117F0: 00 A8 00 40 00 34 C3 20 00 04 FD 80 00 34 38 00 ...@.4. .....48.
011800: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
011810: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
011820: 20 20 20 20 20 20 20 20 20 20 20 2A 2A 2A 2A 27 ****'
011830: 29 3B 0D 0A 20 20 20 20 20 20 20 20 57 52 49 54 );.. WRIT
011840: 45 4C 4E 28 27 20 20 20 20 20 2A 2A 2A 2A 20 20 ELN(' ****
011850: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 76 v
011860: 65 6A 65 20 27 2C 20 52 4F 55 4E 44 28 76 61 65 eje ', ROUND(vae
011870: 67 74 29 2C 20 27 20 6B 67 2E 27 2C 0D 0A 20 20 gt), ' kg.',..
011880: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 20 '
011890: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0118A0: 2A 2A 2A 2A 27 29 3B 0D 0A 20 20 20 20 20 20 20 ****');..
0118B0: 20 57 52 49 54 45 4C 4E 28 27 20 20 20 20 20 2A WRITELN(' *
0118C0: 2A 2A 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 ***
0118D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0118E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0118F0: 2A 2A 2A 2A 27 29 3B 0D 0A 20 20 20 20 20 20 20 ****');..
011900: 20 57 52 49 54 45 4C 4E 28 27 20 20 20 20 20 2A WRITELN(' *
011910: 2A 2A 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 ***
011920: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
011930: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
011940: 2A 2A 2A 2A 27 29 3B 0D 0A 20 20 20 20 20 20 20 ****');..
011950: 20 57 52 49 54 45 4C 4E 28 27 20 20 20 20 20 2A WRITELN(' *
011960: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
011970: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
011980: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
011990: 2A 2A 2A 2A 27 29 3B 0D 0A 20 20 20 20 20 45 4E ****');.. EN
0119A0: 44 3B 20 28 2A 20 75 64 20 2A 29 0D 0A 20 20 0D D; (* ud *).. .
0119B0: 0A 20 20 20 20 42 45 47 49 4E 20 28 2A 20 75 64 . BEGIN (* ud
0119C0: 73 6B 72 69 66 74 20 2A 29 0D 0A 20 20 20 20 20 skrift *)..
0119D0: 20 49 46 20 28 68 6F 65 6A 64 65 20 3C 20 31 34 IF (hoejde < 14
0119E0: 30 29 20 4F 52 20 28 32 30 30 20 3C 20 68 6F 65 0) OR (200 < hoe
0119F0: 6A 64 65 29 0D 0A 20 20 20 20 20 20 20 20 54 48 jde).. TH
011A00: 50 52 4F 47 52 41 4D 20 69 64 65 6E 74 69 66 69 PROGRAM identifi
011A10: 3B 0D 0A 0D 0A 28 2A 20 44 65 74 74 65 20 70 72 ;....(* Dette pr
011A20: 6F 67 72 61 6D 20 66 6F 72 75 64 73 7B 74 74 65 ogram foruds{tte
011A30: 72 2C 20 61 74 20 73 74 61 6E 64 61 72 64 69 64 r, at standardid
011A40: 65 6E 74 69 66 69 65 72 6E 65 20 65 72 20 62 6C entifierne er bl
011A50: 65 76 65 74 20 69 6E 64 6C 7B 73 74 20 2A 29 0D evet indl{st *).
011A60: 0A 28 2A 20 69 20 66 69 6C 65 6E 20 49 44 45 4E .(* i filen IDEN
011A70: 54 49 2E 44 41 54 20 69 20 61 6C 66 61 62 65 74 TI.DAT i alfabet
011A80: 69 73 6B 20 72 7B 6B 6B 65 66 7C 6C 67 65 20 76 isk r{kkef|lge v
011A90: 65 64 20 68 6A 7B 6C 70 20 61 66 20 70 72 6F 67 ed hj{lp af prog
011AA0: 72 61 6D 6D 65 74 20 20 20 2A 29 0D 0A 28 2A 20 rammet *)..(*
011AB0: 49 44 45 4E 54 49 46 49 2E 48 4C 50 20 20 20 20 IDENTIFI.HLP
011AC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
011AD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
011AE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
011AF0: 20 20 20 20 20 2A 29 0D 0A 0D 0A 20 20 43 4F 4E *).... CON
011B00: 53 54 0D 0A 20 20 20 20 62 6F 67 73 74 61 76 65 ST.. bogstave
011B10: 72 20 3A 20 53 45 54 20 4F 46 20 43 48 41 52 20 r : SET OF CHAR
011B20: 3D 20 28 2E 27 41 27 20 2E 2E 20 27 5A 27 2E 29 = (.'A' .. 'Z'.)
011B30: 3B 0D 0A 20 20 20 20 0D 0A 20 20 54 59 50 45 0D ;.. .. TYPE.
011B40: 0A 20 20 20 20 73 74 72 31 30 20 3D 20 53 54 52 . str10 = STR
011B50: 49 4E 47 28 2E 31 30 2E 29 3B 0D 0A 20 20 20 20 ING(.10.);..
011B60: 73 74 72 31 34 20 3D 20 53 54 52 49 4E 47 28 2E str14 = STRING(.
011B70: 31 34 2E 29 3B 0D 0A 20 20 20 20 73 74 72 32 30 14.);.. str20
011B80: 20 3D 20 53 54 52 49 4E 47 28 2E 32 30 2E 29 3B = STRING(.20.);
011B90: 0D 0A 20 20 20 20 73 74 72 38 30 20 3D 20 53 54 .. str80 = ST
011BA0: 52 49 4E 47 28 2E 38 30 2E 29 3B 0D 0A 20 20 20 RING(.80.);..
011BB0: 20 69 64 65 6E 74 69 66 69 66 69 6C 20 3D 20 46 identififil = F
011BC0: 49 4C 45 20 4F 46 20 73 74 72 31 30 3B 0D 0A 20 ILE OF str10;..
011BD0: 20 20 20 69 64 65 6E 74 69 66 69 65 72 74 61 62 identifiertab
011BE0: 65 6C 20 3D 20 41 52 52 41 59 28 2E 31 20 2E 2E el = ARRAY(.1 ..
011BF0: 20 31 33 30 2E 29 20 4F 46 20 73 74 72 31 30 3B 130.) OF str10;
011C00: 45 4E 20 75 6E 6F 72 6D 61 6C 0D 0A 20 20 20 20 EN unormal..
011C10: 20 20 20 20 45 4C 53 45 20 75 64 3B 0D 0A 20 20 ELSE ud;..
011C20: 20 20 45 4E 44 3B 20 28 2A 20 75 64 73 6B 72 69 END; (* udskri
011C30: 66 74 20 2A 29 0D 0A 20 20 20 20 0D 0A 20 20 50 ft *).. .. P
011C40: 52 4F 43 45 44 55 52 45 20 73 70 6F 65 72 67 28 ROCEDURE spoerg(
011C50: 56 41 52 20 6B 6F 65 6E 20 3A 20 73 74 72 36 3B VAR koen : str6;
011C60: 20 56 41 52 20 68 6F 65 6A 64 65 20 3A 20 49 4E VAR hoejde : IN
011C70: 54 45 47 45 52 29 3B 0D 0A 20 20 0D 0A 20 20 20 TEGER);.. ..
011C80: 20 56 41 52 0D 0A 20 20 20 20 20 20 73 74 72 65 VAR.. stre
011C90: 6E 67 20 3A 20 73 74 72 36 3B 0D 0A 20 20 20 20 ng : str6;..
011CA0: 20 20 74 65 73 74 20 3A 20 49 4E 54 45 47 45 52 test : INTEGER
011CB0: 3B 0D 0A 20 20 20 20 20 20 0D 0A 20 20 20 20 42 ;.. .. B
011CC0: 45 47 49 4E 20 28 2A 20 73 70 6F 65 72 67 20 2A EGIN (* spoerg *
011CD0: 29 0D 0A 20 20 20 20 20 20 57 52 49 54 45 28 43 ).. WRITE(C
011CE0: 4C 52 48 4F 4D 29 3B 0D 0A 20 20 20 20 20 20 52 LRHOM);.. R
011CF0: 45 50 45 41 54 0D 0A 20 20 20 20 20 20 20 20 47 EPEAT.. G
011D00: 4F 54 4F 58 59 28 35 2C 20 32 29 3B 0D 0A 20 20 OTOXY(5, 2);..
011D10: 20 20 20 20 20 20 57 52 49 54 45 28 27 49 6E 64 WRITE('Ind
011D20: 74 61 73 74 20 6B 7C 6E 20 28 6B 76 69 6E 64 65 tast k|n (kvinde
011D30: 2F 6D 61 6E 64 29 3A 20 27 2C 20 43 4C 52 45 4F /mand): ', CLREO
011D40: 4C 29 3B 0D 0A 20 20 20 20 20 20 20 20 42 55 46 L);.. BUF
011D50: 4C 45 4E 20 3A 3D 20 36 3B 0D 0A 20 20 20 20 20 LEN := 6;..
011D60: 20 20 20 52 45 41 44 28 6B 6F 65 6E 29 3B 0D 0A READ(koen);..
011D70: 20 20 20 20 20 20 55 4E 54 49 4C 20 28 6B 6F 65 UNTIL (koe
011D80: 6E 20 3D 20 27 6B 76 69 6E 64 65 27 29 20 4F 52 n = 'kvinde') OR
011D90: 20 28 6B 6F 65 6E 20 3D 20 27 6D 61 6E 64 27 29 (koen = 'mand')
011DA0: 3B 0D 0A 20 20 20 20 20 20 52 45 50 45 41 54 0D ;.. REPEAT.
011DB0: 0A 20 20 20 20 20 20 20 20 47 4F 54 4F 58 59 28 . GOTOXY(
011DC0: 35 2C 20 35 29 3B 0D 0A 20 20 20 20 20 20 20 20 5, 5);..
011DD0: 57 52 49 54 45 28 27 49 6E 64 74 61 73 74 20 64 WRITE('Indtast d
011DE0: 69 6E 20 68 7C 6A 64 65 20 69 20 68 65 6C 65 20 in h|jde i hele
011DF0: 63 6D 2E 3A 20 27 2C 20 43 4C 52 45 4F 4C 29 3B cm.: ', CLREOL);
011E00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
011E10: 0F 00 01 00 02 09 52 E5 0F 00 41 02 00 00 00 02 ......R...A.....
011E20: 0F 00 46 02 00 00 00 02 0F 00 42 02 00 00 00 02 ..F.......B.....
011E30: 0F 00 47 02 00 00 00 02 0F 00 43 02 00 00 00 02 ..G.......C.....
011E40: 0F 00 48 02 00 00 00 02 0F 00 44 02 00 00 00 02 ..H.......D.....
011E50: 0F 00 49 02 00 00 00 02 0F 00 45 02 00 00 00 02 ..I.......E.....
011E60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011E70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011E80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011E90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011EA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011EB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011EC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011ED0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011EE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011EF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011F00: 0D 0A 20 20 20 20 0D 0A 20 20 56 41 52 0D 0A 20 .. .. VAR..
011F10: 20 20 20 69 6E 64 6E 61 76 6E 2C 20 75 64 6E 61 indnavn, udna
011F20: 76 6E 20 3A 20 73 74 72 31 34 3B 0D 0A 20 20 20 vn : str14;..
011F30: 20 69 6E 64 66 69 6C 2C 20 75 64 66 69 6C 20 3A indfil, udfil :
011F40: 20 54 45 58 54 3B 0D 0A 20 20 20 20 64 61 74 61 TEXT;.. data
011F50: 66 69 6C 20 3A 20 69 64 65 6E 74 69 66 69 66 69 fil : identififi
011F60: 6C 3B 0D 0A 20 20 20 20 6C 69 6E 69 65 20 3A 20 l;.. linie :
011F70: 73 74 72 38 30 3B 0D 0A 20 20 20 20 6F 72 64 5F str80;.. ord_
011F80: 20 3A 20 73 74 72 32 30 3B 0D 0A 20 20 20 20 63 : str20;.. c
011F90: 68 20 3A 20 43 48 41 52 3B 0D 0A 20 20 20 20 69 h : CHAR;.. i
011FA0: 2C 20 6A 2C 20 73 74 61 72 74 2C 20 73 6C 75 74 , j, start, slut
011FB0: 2C 20 74 61 62 65 6C 6C 61 65 6E 67 64 65 20 3A , tabellaengde :
011FC0: 20 49 4E 54 45 47 45 52 3B 0D 0A 20 20 20 20 74 INTEGER;.. t
011FD0: 61 62 65 6C 20 3A 20 69 64 65 6E 74 69 66 69 65 abel : identifie
011FE0: 72 74 61 62 65 6C 3B 0D 0A 20 20 0D 0A 20 20 46 rtabel;.. .. F
011FF0: 55 4E 43 54 49 4F 4E 20 62 69 6E 73 6F 65 67 28 UNCTION binsoeg(
012000: 73 6F 65 67 65 6F 72 64 20 3A 20 73 74 72 32 30 soegeord : str20
012010: 29 20 3A 20 42 4F 4F 4C 45 41 4E 3B 0D 0A 20 20 ) : BOOLEAN;..
012020: 20 20 20 20 20 20 0D 0A 20 20 20 20 56 41 52 0D .. VAR.
012030: 0A 20 20 20 20 20 20 62 75 6E 64 2C 20 74 6F 70 . bund, top
012040: 2C 20 6D 69 64 74 20 3A 20 49 4E 54 45 47 45 52 , midt : INTEGER
012050: 3B 0D 0A 20 20 20 20 0D 0A 20 20 20 20 42 45 47 ;.. .. BEG
012060: 49 4E 0D 0A 20 20 20 20 20 20 62 75 6E 64 20 3A IN.. bund :
012070: 3D 20 31 3B 0D 0A 20 20 20 20 20 20 74 6F 70 20 = 1;.. top
012080: 3A 3D 20 74 61 62 65 6C 6C 61 65 6E 67 64 65 3B := tabellaengde;
012090: 0D 0A 20 20 20 20 20 20 52 45 50 45 41 54 0D 0A .. REPEAT..
0120A0: 20 20 20 20 20 20 20 20 6D 69 64 74 20 3A 3D 20 midt :=
0120B0: 28 74 6F 70 20 2B 20 62 75 6E 64 29 20 44 49 56 (top + bund) DIV
0120C0: 20 32 3B 0D 0A 20 20 20 20 20 20 20 20 49 46 20 2;.. IF
0120D0: 73 6F 65 67 65 6F 72 64 20 3E 20 74 61 62 65 6C soegeord > tabel
0120E0: 28 2E 6D 69 64 74 2E 29 20 0D 0A 20 20 20 20 20 (.midt.) ..
0120F0: 20 20 20 20 20 54 48 45 4E 20 62 75 6E 64 20 3A THEN bund :
012100: 3D 20 31 20 54 4F 20 4C 45 4E 28 6C 69 6E 69 65 = 1 TO LEN(linie
012110: 29 20 2D 20 31 20 44 4F 0D 0A 20 20 20 20 20 20 ) - 1 DO..
012120: 20 20 20 20 57 52 49 54 45 28 75 64 66 69 6C 2C WRITE(udfil,
012130: 20 6C 69 6E 69 65 28 2E 69 2E 29 29 3B 0D 0A 20 linie(.i.));..
012140: 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E 28 75 WRITELN(u
012150: 64 66 69 6C 29 3B 0D 0A 20 20 20 20 20 20 45 4E dfil);.. EN
012160: 44 3B 0D 0A 20 20 20 20 43 4C 4F 53 45 28 69 6E D;.. CLOSE(in
012170: 64 66 69 6C 29 3B 0D 0A 20 20 20 20 43 4C 4F 53 dfil);.. CLOS
012180: 45 28 75 64 66 69 6C 29 3B 0D 0A 20 20 45 4E 44 E(udfil);.. END
012190: 2E 0D 0A 1A 31 20 44 4F 0D 0A 20 20 20 20 20 20 ....1 DO..
0121A0: 20 20 20 20 57 52 49 54 45 28 75 64 66 69 6C 2C WRITE(udfil,
0121B0: 20 6C 69 6E 69 65 28 2E 69 2E 29 29 3B 0D 0A 20 linie(.i.));..
0121C0: 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E 28 75 WRITELN(u
0121D0: 64 66 69 6C 29 3B 0D 0A 20 20 20 20 20 20 45 4E dfil);.. EN
0121E0: 44 3B 0D 0A 20 20 20 20 43 4C 4F 53 45 28 69 6E D;.. CLOSE(in
0121F0: 64 66 69 6C 29 3B 0D 0A 20 20 20 20 43 4C 4F 53 dfil);.. CLOS
012200: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
012210: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
012220: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
012230: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
012240: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
012250: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
012260: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
012270: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
012280: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
012290: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0122A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0122B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0122C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0122D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0122E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0122F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
012300: 3D 20 6D 69 64 74 20 2B 20 31 0D 0A 20 20 20 20 = midt + 1..
012310: 20 20 20 20 20 20 45 4C 53 45 20 74 6F 70 20 3A ELSE top :
012320: 3D 20 6D 69 64 74 20 2D 20 31 3B 0D 0A 20 20 20 = midt - 1;..
012330: 20 20 20 55 4E 54 49 4C 20 28 73 6F 65 67 65 6F UNTIL (soegeo
012340: 72 64 20 3D 20 74 61 62 65 6C 28 2E 6D 69 64 74 rd = tabel(.midt
012350: 2E 29 29 20 4F 52 20 28 74 6F 70 20 3C 20 62 75 .)) OR (top < bu
012360: 6E 64 29 3B 0D 0A 20 20 20 20 20 20 49 46 20 73 nd);.. IF s
012370: 6F 65 67 65 6F 72 64 20 3D 20 74 61 62 65 6C 28 oegeord = tabel(
012380: 2E 6D 69 64 74 2E 29 0D 0A 20 20 20 20 20 20 20 .midt.)..
012390: 20 54 48 45 4E 20 62 69 6E 73 6F 65 67 20 3A 3D THEN binsoeg :=
0123A0: 20 54 52 55 45 0D 0A 20 20 20 20 20 20 20 20 45 TRUE.. E
0123B0: 4C 53 45 20 62 69 6E 73 6F 65 67 20 3A 3D 20 46 LSE binsoeg := F
0123C0: 41 4C 53 45 3B 0D 0A 20 20 20 20 45 4E 44 3B 0D ALSE;.. END;.
0123D0: 0A 20 20 0D 0A 20 20 42 45 47 49 4E 0D 0A 20 20 . .. BEGIN..
0123E0: 20 20 57 52 49 54 45 28 43 4C 52 48 4F 4D 29 3B WRITE(CLRHOM);
0123F0: 0D 0A 20 20 20 20 41 53 53 49 47 4E 28 64 61 74 .. ASSIGN(dat
012400: 61 66 69 6C 2C 20 27 49 44 45 4E 54 49 46 49 2E afil, 'IDENTIFI.
012410: 44 41 54 27 29 3B 0D 0A 20 20 20 20 52 45 53 45 DAT');.. RESE
012420: 54 28 64 61 74 61 66 69 6C 29 3B 0D 0A 20 20 20 T(datafil);..
012430: 20 69 20 3A 3D 20 30 3B 0D 0A 20 20 20 20 57 48 i := 0;.. WH
012440: 49 4C 45 20 4E 4F 54 20 45 4F 46 28 64 61 74 61 ILE NOT EOF(data
012450: 66 69 6C 29 20 44 4F 0D 0A 20 20 20 20 20 20 42 fil) DO.. B
012460: 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 69 20 EGIN.. i
012470: 3A 3D 20 69 20 2B 20 31 3B 0D 0A 20 20 20 20 20 := i + 1;..
012480: 20 20 20 52 45 41 44 28 64 61 74 61 66 69 6C 2C READ(datafil,
012490: 20 74 61 62 65 6C 28 2E 69 2E 29 29 3B 0D 0A 20 tabel(.i.));..
0124A0: 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 43 END;.. C
0124B0: 4C 4F 53 45 28 64 61 74 61 66 69 6C 29 3B 0D 0A LOSE(datafil);..
0124C0: 20 20 20 20 74 61 62 65 6C 6C 61 65 6E 67 64 65 tabellaengde
0124D0: 20 3A 3D 20 69 3B 0D 0A 20 20 20 20 57 52 49 54 := i;.. WRIT
0124E0: 45 28 27 48 76 69 6C 6B 65 6E 20 50 61 73 63 61 E('Hvilken Pasca
0124F0: 6C 2D 6B 69 6C 64 65 74 65 6B 73 74 20 73 6B 61 l-kildetekst ska
012500: 0A FD 35 3A 30 35 3A 35 3A 30 35 3A 35 3A 30 35 ..5:05:5:05:5:05
012510: 3A 30 0A FD 35 3A 30 35 3A 35 3A 30 35 3A 35 3A :0..5:05:5:05:5:
012520: 30 35 3A 30 0A FD 35 3A 30 35 3A 30 0A FD 35 3A 05:0..5:05:0..5:
012530: 30 35 3A 35 3A 30 35 3A 35 3A 30 35 3A 20 10 30 05:5:05:5:05: .0
012540: 20 10 30 05 FD 35 3A 30 35 3A 35 3A 30 35 3A 35 .0..5:05:5:05:5
012550: 3A 30 35 3A 20 10 30 20 10 30 05 FD 35 3A 30 35 :05: .0 .0..5:05
012560: 3A 35 3A 30 35 3A 35 3A 30 35 3A 20 10 30 20 10 :5:05:5:05: .0 .
012570: 30 05 FD 35 3A 30 35 3A 30 0A FD 35 3A 30 35 3A 0..5:05:0..5:05:
012580: 35 3A 30 35 3A 35 3A 30 35 3A 30 0A FD 35 3A 30 5:05:5:05:0..5:0
012590: 35 3A 35 3A 30 35 3A 35 3A 30 35 3A 30 0A FD 33 5:5:05:5:05:0..3
0125A0: 05 FD 30 0F FD 35 3A 30 35 3A 30 0A FD 35 3A 30 ..0..5:05:0..5:0
0125B0: 35 3A 35 3A 30 35 3A 35 3A 30 35 3A 30 0A FD 33 5:5:05:5:05:0..3
0125C0: 05 FD 30 25 FD 3F 30 30 35 3A 30 35 3A 30 0A FD ..0%.?005:05:0..
0125D0: 33 05 FD 30 25 FD 3F 30 04 FD 3F 30 04 FD 3F 30 3..0%.?0..?0..?0
0125E0: 11 FD 21 AB 98 06 02 C5 E5 7E FE 02 CA 9F 4B 23 ..!......~....K#
0125F0: 23 35 C2 9F 4B 23 7E 2B 77 2B 2B 7E FE 00 28 3B #5..K#~+w++~..(;
012600: 0E 00 FE 01 28 02 0E 0F 23 04 FD 7E 81 47 23 4E ....(...#..~.G#N
012610: CD 81 75 CD AA 4B E1 E5 46 23 04 FD 7E 80 80 77 ..u..K..F#..~..w
012620: FE 02 20 08 E1 E5 7E EE FE 77 18 0D FE 28 20 09 .. ...~..w...( .
012630: E1 E5 7E FE 01 20 02 36 00 E1 E5 23 04 FD 46 23 ..~.. .6...#..F#
012640: 4E 23 7E 3C FE 18 20 02 3E 00 77 21 D6 42 11 55 N#~<.. .>.w!.B.U
012650: 00 FE 00 28 04 19 3D 20 FC EB D5 CD 81 75 D1 06 ...(..= .....u..
012660: 11 0E 05 CD CD 75 E1 E5 7E FE 00 20 43 23 03 FD .....u..~.. C#..
012670: 7E 2B 2B 86 23 23 77 FE 05 20 06 2B 2B 36 01 18 ~++.##w.. .++6..
012680: 2F FE 4B 38 2B D1 C1 C5 D5 78 21 A9 98 FE 02 28 /.K8+....x!....(
012690: 01 23 46 E1 E5 23 06 FD 7E E6 03 FE 00 20 0E 7E .#F..#..~.... .~
0126A0: E6 FC CB 3F CB 3F B8 20 04 E1 E5 36 02 E1 01 07 ...?.?. ...6....
0126B0: 00 09 C1 05 C2 D3 4A C9 06 02 0E 05 E5 36 00 23 ......J......6.#
0126C0: 0D 20 FA E1 CD BE 75 10 F1 C9 21 AB 98 0E 06 06 . ....u...!.....
0126D0: 02 36 FF 23 36 FF 23 36 1E 23 36 14 23 36 28 23 .6.#6.#6.#6.#6(#
0126E0: 71 23 36 00 23 79 C6 10 4F 10 E6 C9 CD D5 99 CD q#6.#y..O.......
0126F0: BC 4B 3E 02 32 AB 98 32 B2 98 32 BB 98 21 64 00 .K>.2..2..2..!d.
012700: 6C 20 7B 6E 64 72 65 73 3A 20 27 29 3B 0D 0A 20 l {ndres: ');..
012710: 20 20 20 52 45 41 44 4C 4E 28 69 6E 64 6E 61 76 READLN(indnav
012720: 6E 29 3B 0D 0A 20 20 20 20 41 53 53 49 47 4E 28 n);.. ASSIGN(
012730: 69 6E 64 66 69 6C 2C 20 69 6E 64 6E 61 76 6E 29 indfil, indnavn)
012740: 3B 0D 0A 20 20 20 20 52 45 53 45 54 28 69 6E 64 ;.. RESET(ind
012750: 66 69 6C 29 3B 0D 0A 20 20 20 20 57 52 49 54 45 fil);.. WRITE
012760: 4C 4E 3B 0D 0A 20 20 20 20 57 52 49 54 45 28 27 LN;.. WRITE('
012770: 48 76 61 64 20 73 6B 61 6C 20 64 65 74 20 6B 6F Hvad skal det ko
012780: 72 72 69 67 65 72 65 64 65 20 70 72 6F 67 72 61 rrigerede progra
012790: 6D 20 68 65 64 64 65 3A 20 27 29 3B 0D 0A 20 20 m hedde: ');..
0127A0: 20 20 52 45 41 44 4C 4E 28 75 64 6E 61 76 6E 29 READLN(udnavn)
0127B0: 3B 0D 0A 20 20 20 20 41 53 53 49 47 4E 28 75 64 ;.. ASSIGN(ud
0127C0: 66 69 6C 2C 20 75 64 6E 61 76 6E 29 3B 0D 0A 20 fil, udnavn);..
0127D0: 20 20 20 52 45 57 52 49 54 45 28 75 64 66 69 6C REWRITE(udfil
0127E0: 29 3B 0D 0A 20 20 20 20 57 52 49 54 45 4C 4E 3B );.. WRITELN;
0127F0: 0D 0A 20 20 20 20 57 48 49 4C 45 20 4E 4F 54 20 .. WHILE NOT
012800: 45 4F 46 28 69 6E 64 66 69 6C 29 20 44 4F 0D 0A EOF(indfil) DO..
012810: 20 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 BEGIN..
012820: 20 20 20 20 20 6C 69 6E 69 65 20 3A 3D 20 27 27 linie := ''
012830: 3B 0D 0A 20 20 20 20 20 20 20 20 57 48 49 4C 45 ;.. WHILE
012840: 20 4E 4F 54 20 45 4F 4C 4E 28 69 6E 64 66 69 6C NOT EOLN(indfil
012850: 29 20 44 4F 0D 0A 20 20 20 20 20 20 20 20 20 20 ) DO..
012860: 42 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 BEGIN..
012870: 20 20 20 52 45 41 44 28 69 6E 64 66 69 6C 2C 20 READ(indfil,
012880: 63 68 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 ch);..
012890: 20 20 6C 69 6E 69 65 20 3A 3D 20 6C 69 6E 69 65 linie := linie
0128A0: 20 2B 20 63 68 3B 0D 0A 20 20 20 20 20 20 20 20 + ch;..
0128B0: 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 20 20 END;..
0128C0: 6C 69 6E 69 65 20 3A 3D 20 6C 69 6E 69 65 20 2B linie := linie +
0128D0: 20 27 20 27 3B 0D 0A 20 20 20 20 20 20 20 20 52 ' ';.. R
0128E0: 45 41 44 4C 4E 28 69 6E 64 66 69 6C 29 3B 0D 0A EADLN(indfil);..
0128F0: 20 20 20 20 20 20 20 20 49 46 20 4C 45 4E 28 6C IF LEN(l
012900: 50 52 4F 47 52 41 4D 20 69 6E 74 65 72 68 79 70 PROGRAM interhyp
012910: 3B 0D 0A 20 20 0D 0A 20 20 43 4F 4E 53 54 0D 0A ;.. .. CONST..
012920: 20 20 20 20 6D 61 78 61 6E 74 61 6C 20 3D 20 32 maxantal = 2
012930: 30 30 3B 0D 0A 20 20 0D 0A 20 20 54 59 50 45 0D 00;.. .. TYPE.
012940: 0A 20 20 20 20 74 61 62 65 6C 74 79 70 65 20 3D . tabeltype =
012950: 20 41 52 52 41 59 28 2E 31 20 2E 2E 20 6D 61 78 ARRAY(.1 .. max
012960: 61 6E 74 61 6C 2E 29 20 4F 46 20 49 4E 54 45 47 antal.) OF INTEG
012970: 45 52 3B 0D 0A 20 20 0D 0A 20 20 56 41 52 0D 0A ER;.. .. VAR..
012980: 20 20 20 20 74 61 62 65 6C 20 3A 20 74 61 62 65 tabel : tabe
012990: 6C 74 79 70 65 3B 0D 0A 20 20 20 20 6D 69 6E 2C ltype;.. min,
0129A0: 20 6D 61 78 2C 20 69 6E 74 65 72 76 61 6C 62 72 max, intervalbr
0129B0: 65 64 64 65 20 3A 20 49 4E 54 45 47 45 52 3B 0D edde : INTEGER;.
0129C0: 0A 20 20 0D 0A 20 20 50 52 4F 43 45 44 55 52 45 . .. PROCEDURE
0129D0: 20 66 69 6E 64 74 61 6C 28 56 41 52 20 74 61 62 findtal(VAR tab
0129E0: 65 6C 20 3A 20 74 61 62 65 6C 74 79 70 65 29 3B el : tabeltype);
0129F0: 0D 0A 20 20 0D 0A 20 20 20 20 56 41 52 0D 0A 20 .. .. VAR..
012A00: 20 20 20 20 20 69 2C 20 78 2C 20 79 2C 20 7A 20 i, x, y, z
012A10: 3A 20 49 4E 54 45 47 45 52 3B 0D 0A 20 20 20 20 : INTEGER;..
012A20: 0D 0A 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 .. BEGIN..
012A30: 20 20 20 46 4F 52 20 69 20 3A 3D 20 31 20 54 4F FOR i := 1 TO
012A40: 20 6D 61 78 61 6E 74 61 6C 20 44 4F 0D 0A 20 20 maxantal DO..
012A50: 20 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 BEGIN..
012A60: 20 20 20 20 20 20 20 78 20 3A 3D 20 52 41 4E 44 x := RAND
012A70: 4F 4D 28 34 37 29 20 2B 20 33 30 3B 0D 0A 20 20 OM(47) + 30;..
012A80: 20 20 20 20 20 20 20 20 79 20 3A 3D 20 52 41 4E y := RAN
012A90: 44 4F 4D 28 33 32 29 20 2B 20 32 30 3B 20 20 28 DOM(32) + 20; (
012AA0: 2A 20 52 65 74 20 74 69 6C 66 7B 6C 64 69 67 74 * Ret tilf{ldigt
012AB0: 20 76 61 6C 67 74 21 20 2A 29 0D 0A 20 20 20 20 valgt! *)..
012AC0: 20 20 20 20 20 20 7A 20 3A 3D 20 52 41 4E 44 4F z := RANDO
012AD0: 4D 28 31 31 29 20 2B 20 34 30 3B 0D 0A 20 20 20 M(11) + 40;..
012AE0: 20 20 20 20 20 20 20 74 61 62 65 6C 28 2E 69 2E tabel(.i.
012AF0: 29 20 3A 3D 20 78 20 2B 20 79 20 2B 20 7A 3B 0D ) := x + y + z;.
012B00: 69 6E 69 65 29 20 3E 20 30 0D 0A 20 20 20 20 20 inie) > 0..
012B10: 20 20 20 20 20 54 48 45 4E 0D 0A 20 20 20 20 20 THEN..
012B20: 20 20 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 BEGIN..
012B30: 20 20 20 20 20 20 20 20 20 20 20 20 69 20 3A 3D i :=
012B40: 20 31 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 1;..
012B50: 20 20 20 52 45 50 45 41 54 0D 0A 20 20 20 20 20 REPEAT..
012B60: 20 20 20 20 20 20 20 20 20 20 20 63 68 20 3A 3D ch :=
012B70: 20 6C 69 6E 69 65 28 2E 69 2E 29 3B 0D 0A 20 20 linie(.i.);..
012B80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 48 WH
012B90: 49 4C 45 20 28 69 20 3C 20 4C 45 4E 28 6C 69 6E ILE (i < LEN(lin
012BA0: 69 65 29 29 20 41 4E 44 20 4E 4F 54 20 28 63 68 ie)) AND NOT (ch
012BB0: 20 49 4E 20 62 6F 67 73 74 61 76 65 72 29 20 44 IN bogstaver) D
012BC0: 4F 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 O..
012BD0: 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 BEGIN..
012BE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
012BF0: 69 20 3A 3D 20 69 20 2B 20 31 3B 0D 0A 20 20 20 i := i + 1;..
012C00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
012C10: 20 63 68 20 3A 3D 20 6C 69 6E 69 65 28 2E 69 2E ch := linie(.i.
012C20: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 );..
012C30: 20 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 END;..
012C40: 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 63 IF c
012C50: 68 20 49 4E 20 62 6F 67 73 74 61 76 65 72 20 0D h IN bogstaver .
012C60: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
012C70: 20 20 20 54 48 45 4E 20 0D 0A 20 20 20 20 20 20 THEN ..
012C80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 45 BE
012C90: 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 GIN..
012CA0: 20 20 20 20 20 20 20 20 20 73 74 61 72 74 20 3A start :
012CB0: 3D 20 69 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 = i;..
012CC0: 20 20 20 20 20 20 20 20 20 20 57 48 49 4C 45 20 WHILE
012CD0: 28 69 20 3C 20 4C 45 4E 28 6C 69 6E 69 65 29 29 (i < LEN(linie))
012CE0: 20 41 4E 44 20 28 20 63 68 20 49 4E 20 62 6F 67 AND ( ch IN bog
012CF0: 73 74 61 76 65 72 29 20 44 4F 0D 0A 20 20 20 20 staver) DO..
012D00: 0A 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 . WRITE
012D10: 28 74 61 62 65 6C 28 2E 69 2E 29 20 3A 20 34 29 (tabel(.i.) : 4)
012D20: 3B 0D 0A 20 20 20 20 20 20 20 20 45 4E 44 3B 0D ;.. END;.
012D30: 0A 20 20 20 20 20 20 57 52 49 54 45 4C 4E 3B 20 . WRITELN;
012D40: 20 0D 0A 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 .. END;..
012D50: 20 0D 0A 20 20 50 52 4F 43 45 44 55 52 45 20 6D .. PROCEDURE m
012D60: 69 6E 6D 61 78 28 56 41 52 20 6D 69 6E 2C 20 6D inmax(VAR min, m
012D70: 61 78 20 3A 20 49 4E 54 45 47 45 52 3B 20 56 41 ax : INTEGER; VA
012D80: 52 20 74 61 62 65 6C 20 3A 20 74 61 62 65 6C 74 R tabel : tabelt
012D90: 79 70 65 29 3B 0D 0A 20 20 0D 0A 20 20 20 20 56 ype);.. .. V
012DA0: 41 52 0D 0A 20 20 20 20 20 20 69 20 3A 20 49 4E AR.. i : IN
012DB0: 54 45 47 45 52 3B 0D 0A 20 20 20 20 0D 0A 20 20 TEGER;.. ..
012DC0: 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 20 6D BEGIN.. m
012DD0: 69 6E 20 3A 3D 20 74 61 62 65 6C 28 2E 31 2E 29 in := tabel(.1.)
012DE0: 3B 0D 0A 20 20 20 20 20 20 6D 61 78 20 3A 3D 20 ;.. max :=
012DF0: 74 61 62 65 6C 28 2E 31 2E 29 3B 0D 0A 20 20 20 tabel(.1.);..
012E00: 20 20 20 46 4F 52 20 69 20 3A 3D 20 31 20 54 4F FOR i := 1 TO
012E10: 20 6D 61 78 61 6E 74 61 6C 20 44 4F 0D 0A 20 20 maxantal DO..
012E20: 20 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 BEGIN..
012E30: 20 20 20 20 20 20 20 49 46 20 74 61 62 65 6C 28 IF tabel(
012E40: 2E 69 2E 29 20 3C 20 6D 69 6E 0D 0A 20 20 20 20 .i.) < min..
012E50: 20 20 20 20 20 20 20 20 54 48 45 4E 20 6D 69 6E THEN min
012E60: 20 3A 3D 20 74 61 62 65 6C 28 2E 69 2E 29 3B 0D := tabel(.i.);.
012E70: 0A 20 20 20 20 20 20 20 20 20 20 49 46 20 74 61 . IF ta
012E80: 62 65 6C 28 2E 69 2E 29 20 3E 20 6D 61 78 20 0D bel(.i.) > max .
012E90: 0A 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 . THE
012EA0: 4E 20 6D 61 78 20 3A 3D 20 74 61 62 65 6C 28 2E N max := tabel(.
012EB0: 69 2E 29 3B 0D 0A 20 20 20 20 20 20 20 20 45 4E i.);.. EN
012EC0: 44 3B 0D 0A 20 20 20 20 45 4E 44 3B 0D 0A 20 20 D;.. END;..
012ED0: 0D 0A 20 20 50 52 4F 43 45 44 55 52 45 20 75 64 .. PROCEDURE ud
012EE0: 28 6D 69 6E 2C 20 6D 61 78 2C 20 62 72 65 64 64 (min, max, bredd
012EF0: 65 20 3A 20 49 4E 54 45 47 45 52 3B 20 56 41 52 e : INTEGER; VAR
012F00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
012F10: 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 BEGIN..
012F20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
012F30: 20 69 20 3A 3D 20 69 20 2B 20 31 3B 0D 0A 20 20 i := i + 1;..
012F40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
012F50: 20 20 20 20 20 20 63 68 20 3A 3D 20 6C 69 6E 69 ch := lini
012F60: 65 28 2E 69 2E 29 3B 0D 0A 20 20 20 20 20 20 20 e(.i.);..
012F70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 E
012F80: 4E 44 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 ND;..
012F90: 20 20 20 20 20 20 20 20 20 73 6C 75 74 20 3A 3D slut :=
012FA0: 20 69 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 i;..
012FB0: 20 20 20 20 20 20 20 20 20 6F 72 64 5F 20 3A 3D ord_ :=
012FC0: 20 43 4F 50 59 28 6C 69 6E 69 65 2C 20 73 74 61 COPY(linie, sta
012FD0: 72 74 2C 20 73 6C 75 74 20 2D 20 73 74 61 72 74 rt, slut - start
012FE0: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 );..
012FF0: 20 20 20 20 20 20 20 20 49 46 20 62 69 6E 73 6F IF binso
013000: 65 67 28 6F 72 64 5F 29 0D 0A 20 20 20 20 20 20 eg(ord_)..
013010: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
013020: 54 48 45 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 THEN..
013030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 46 4F FO
013040: 52 20 6A 20 3A 3D 20 73 74 61 72 74 20 54 4F 20 R j := start TO
013050: 73 6C 75 74 20 2D 20 31 20 44 4F 0D 0A 20 20 20 slut - 1 DO..
013060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
013070: 20 20 20 20 20 20 20 6C 69 6E 69 65 28 2E 6A 2E linie(.j.
013080: 29 20 3A 3D 20 43 48 52 28 4F 52 44 28 6C 69 6E ) := CHR(ORD(lin
013090: 69 65 28 2E 6A 2E 29 29 20 2B 20 33 32 29 3B 0D ie(.j.)) + 32);.
0130A0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
0130B0: 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 20 END;..
0130C0: 20 20 20 20 20 20 20 55 4E 54 49 4C 20 69 20 3E UNTIL i >
0130D0: 3D 20 4C 45 4E 28 6C 69 6E 69 65 29 3B 0D 0A 20 = LEN(linie);..
0130E0: 20 20 20 20 20 20 20 20 20 20 20 45 4E 44 3B 0D END;.
0130F0: 0A 20 20 20 20 20 20 20 20 46 4F 52 20 69 20 3A . FOR i :
013100: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
013110: 10 00 01 00 02 09 52 E5 10 00 41 02 00 00 00 02 ......R...A.....
013120: 10 00 46 02 00 00 00 02 10 00 42 02 00 00 00 02 ..F.......B.....
013130: 10 00 47 02 00 00 00 02 10 00 43 02 00 00 00 02 ..G.......C.....
013140: 10 00 48 02 00 00 00 02 10 00 44 02 00 00 00 02 ..H.......D.....
013150: 10 00 49 02 00 00 00 02 10 00 45 02 00 00 00 02 ..I.......E.....
013160: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
013170: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
013180: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
013190: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0131A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0131B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0131C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0131D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0131E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0131F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
013200: 20 74 61 62 65 6C 20 3A 20 74 61 62 65 6C 74 79 tabel : tabelty
013210: 70 65 29 3B 0D 0A 20 20 0D 0A 20 20 20 20 56 41 pe);.. .. VA
013220: 52 0D 0A 20 20 20 20 20 20 68 79 70 20 3A 20 74 R.. hyp : t
013230: 61 62 65 6C 74 79 70 65 3B 0D 0A 20 20 20 20 20 abeltype;..
013240: 20 69 2C 20 6E 72 20 3A 20 49 4E 54 45 47 45 52 i, nr : INTEGER
013250: 3B 0D 0A 20 20 20 20 0D 0A 20 20 20 20 42 45 47 ;.. .. BEG
013260: 49 4E 0D 0A 20 20 20 20 20 20 46 4F 52 20 69 20 IN.. FOR i
013270: 3A 3D 20 31 20 54 4F 20 6D 61 78 61 6E 74 61 6C := 1 TO maxantal
013280: 20 44 4F 0D 0A 20 20 20 20 20 20 20 20 68 79 70 DO.. hyp
013290: 28 2E 69 2E 29 20 3A 3D 20 30 3B 0D 0A 20 20 20 (.i.) := 0;..
0132A0: 20 20 20 46 4F 52 20 69 20 3A 3D 20 31 20 54 4F FOR i := 1 TO
0132B0: 20 6D 61 78 61 6E 74 61 6C 20 44 4F 0D 0A 20 20 maxantal DO..
0132C0: 20 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 BEGIN..
0132D0: 20 20 20 20 20 20 20 6E 72 20 3A 3D 20 28 74 61 nr := (ta
0132E0: 62 65 6C 28 2E 69 2E 29 20 2D 20 6D 69 6E 29 20 bel(.i.) - min)
0132F0: 44 49 56 20 62 72 65 64 64 65 20 2B 20 31 3B 0D DIV bredde + 1;.
013300: 0A 20 20 20 20 20 20 20 20 20 20 68 79 70 28 2E . hyp(.
013310: 6E 72 2E 29 20 3A 3D 20 68 79 70 28 2E 6E 72 2E nr.) := hyp(.nr.
013320: 29 20 2B 20 31 3B 0D 0A 20 20 20 20 20 20 20 20 ) + 1;..
013330: 45 4E 44 3B 0D 0A 20 20 20 20 20 20 46 4F 52 20 END;.. FOR
013340: 69 20 3A 3D 20 31 20 54 4F 20 28 6D 61 78 20 2D i := 1 TO (max -
013350: 20 6D 69 6E 29 20 44 49 56 20 62 72 65 64 64 65 min) DIV bredde
013360: 20 2B 20 31 20 44 4F 0D 0A 20 20 20 20 20 20 20 + 1 DO..
013370: 20 57 52 49 54 45 4C 4E 28 27 28 27 2C 20 6D 69 WRITELN('(', mi
013380: 6E 20 2B 20 62 72 65 64 64 65 20 2A 20 28 69 20 n + bredde * (i
013390: 2D 20 31 29 20 3A 20 34 2C 20 27 2C 27 2C 0D 0A - 1) : 4, ',',..
0133A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0133B0: 6D 69 6E 20 2B 20 62 72 65 64 64 65 20 2A 20 69 min + bredde * i
0133C0: 20 2D 20 31 20 3A 20 34 2C 20 27 29 20 3A 20 27 - 1 : 4, ') : '
0133D0: 2C 20 68 79 70 28 2E 69 2E 29 20 3A 20 34 29 3B , hyp(.i.) : 4);
0133E0: 0D 0A 20 20 20 20 45 4E 44 3B 0D 0A 20 20 0D 0A .. END;.. ..
0133F0: 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 28 2A 20 BEGIN.. (*
013400: 14 15 13 14 15 16 17 18 16 17 18 19 1A 1B 19 1A ................
013410: 1B 1C 1D 1E 1C 1D 1E 1F 20 21 1F 20 21 22 23 24 ........ !. !"#$
013420: 00 25 00 06 FD 01 02 04 05 02 03 05 06 04 05 07 .%..............
013430: 08 05 06 08 09 07 08 0A 0B 08 09 0B 0C 0A 0B 0D ................
013440: 0E 0B 0C 0E 0F 0D 0E 10 11 0E 0F 11 12 10 11 13 ................
013450: 14 11 12 14 15 13 14 16 17 14 15 17 18 16 17 19 ................
013460: 1A 17 18 1A 1B 19 1A 1C 1D 1A 1B 1D 1E 1C 1D 1F ................
013470: 20 1D 1E 20 21 1F 20 22 23 20 21 23 24 00 01 02 .. !. "# !#$...
013480: 00 25 02 25 02 03 01 02 03 04 05 06 07 08 09 0A .%.%............
013490: 0B 0C 0D 0E 0F 10 11 12 13 14 15 16 17 18 19 1A ................
0134A0: 1B 1C 1D 1E 1F 20 21 22 23 24 00 25 00 01 00 02 ..... !"#$.%....
0134B0: 25 02 25 03 01 02 02 03 01 04 02 05 03 06 04 05 %.%.............
0134C0: 05 06 04 07 05 08 06 09 07 08 08 09 07 0A 08 0B ................
0134D0: 09 0C 0A 0B 0B 0C 0A 0D 0B 0E 0C 0F 0D 0E 0E 0F ................
0134E0: 0D 10 0E 11 0F 12 10 11 11 12 10 13 11 14 12 15 ................
0134F0: 13 14 14 15 13 16 14 17 15 18 16 17 17 18 16 19 ................
013500: 17 1A 18 1B 19 1A 1A 1B 19 1C 1A 1D 1B 1E 1C 1D ................
013510: 1D 1E 1C 1F 1D 20 1E 21 1F 20 20 21 1F 22 20 23 ..... .!. !." #
013520: 21 24 00 25 01 02 03 04 05 06 07 08 09 0A 0B 0C !$.%............
013530: 0D 0E 0F 10 11 12 13 14 15 16 17 18 19 1A 1B 1C ................
013540: 1D 1E 1F 20 21 22 23 24 54 5A 06 12 04 C0 5A 06 ... !"#$TZ....Z.
013550: 0C 03 08 5B 0B 06 03 4A 5B 01 08 03 52 5B 16 04 ...[...J[...R[..
013560: 03 AA 5B 0F 03 04 D7 5B 3C 02 04 4F 5C 26 01 04 ..[....[<..O\&..
013570: 0F 01 20 01 30 01 40 01 51 01 62 01 18 06 37 06 .. .0.@.Q.b...7.
013580: 57 06 6C 0B 6C 10 6C 15 10 09 18 09 1F 09 27 09 W.l.l.l.......'.
013590: 2F 09 37 09 3F 09 47 09 4F 09 57 09 5F 09 08 09 /.7.?.G.O.W._...
0135A0: 0F 0E 0F 13 17 0E 17 13 20 0E 20 13 28 0E 28 13 ........ . .(.(.
0135B0: 2F 0E 2F 13 37 0E 37 13 3F 0E 3F 13 47 0E 47 13 /./.7.7.?.?.G.G.
0135C0: 4F 0E 4F 13 57 0E 57 13 5F 0E 5F 13 08 0E 08 10 O.O.W.W._._.....
0135D0: 08 13 0C 09 14 09 1C 09 24 09 2C 09 34 09 3C 09 ........$.,.4.<.
0135E0: 44 09 4C 09 54 09 5C 09 64 09 04 10 08 0B 08 0F D.L.T.\.d.......
0135F0: 08 11 08 15 0C 0E 0C 13 10 0B 10 03 FD 15 14 0E ................
013600: 56 69 20 6C 61 64 65 72 20 64 61 74 61 6D 61 74 Vi lader datamat
013610: 65 6E 20 66 69 6E 64 65 20 6E 6F 67 6C 65 20 74 en finde nogle t
013620: 61 6C 20 74 69 6C 20 6F 73 20 2A 29 0D 0A 20 20 al til os *)..
013630: 20 20 66 69 6E 64 74 61 6C 28 74 61 62 65 6C 29 findtal(tabel)
013640: 3B 0D 0A 20 20 20 20 6D 69 6E 6D 61 78 28 6D 69 ;.. minmax(mi
013650: 6E 2C 20 6D 61 78 2C 20 74 61 62 65 6C 29 3B 0D n, max, tabel);.
013660: 0A 20 20 20 20 57 52 49 54 45 28 27 54 61 73 74 . WRITE('Tast
013670: 20 69 6E 74 65 72 76 61 6C 62 72 65 64 64 65 6E intervalbredden
013680: 3A 20 27 29 3B 20 52 45 41 44 4C 4E 28 69 6E 74 : '); READLN(int
013690: 65 72 76 61 6C 62 72 65 64 64 65 29 3B 0D 0A 20 ervalbredde);..
0136A0: 20 20 20 75 64 28 6D 69 6E 2C 20 6D 61 78 2C 20 ud(min, max,
0136B0: 69 6E 74 65 72 76 61 6C 62 72 65 64 64 65 2C 20 intervalbredde,
0136C0: 74 61 62 65 6C 29 3B 0D 0A 20 20 45 4E 44 2E 0D tabel);.. END..
0136D0: 0A 1A 20 6D 61 78 2C 20 74 61 62 65 6C 29 3B 0D .. max, tabel);.
0136E0: 0A 20 20 20 20 57 52 49 54 45 28 27 54 61 73 74 . WRITE('Tast
0136F0: 20 69 6E 74 65 72 76 61 6C 62 72 65 64 64 65 6E intervalbredden
013700: 20 20 57 52 49 54 45 4C 4E 28 69 20 3A 20 36 2C WRITELN(i : 6,
013710: 20 74 61 62 65 6C 28 2E 69 2E 29 20 2F 20 61 6E tabel(.i.) / an
013720: 74 61 6C 20 2A 20 31 30 30 20 3A 20 32 30 20 3A tal * 100 : 20 :
013730: 20 32 2C 20 27 20 25 27 29 3B 0D 0A 20 20 45 4E 2, ' %');.. EN
013740: 44 2E 0D 0A 1A 53 27 29 3B 0D 0A 20 20 20 20 57 D....S');.. W
013750: 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 46 4F 52 RITELN;.. FOR
013760: 20 69 20 3A 3D 20 30 20 54 4F 20 73 65 72 69 65 i := 0 TO serie
013770: 6C 61 65 6E 67 64 65 20 44 4F 0D 0A 20 20 20 20 laengde DO..
013780: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
013790: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0137A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0137B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0137C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0137D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0137E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0137F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
013800: 50 52 4F 47 52 41 4D 20 6A 6F 75 72 6E 61 6C 3B PROGRAM journal;
013810: 0D 0A 20 20 0D 0A 20 20 54 59 50 45 0D 0A 20 20 .. .. TYPE..
013820: 20 20 73 74 72 33 30 20 3D 20 53 54 52 49 4E 47 str30 = STRING
013830: 28 2E 33 30 2E 29 3B 0D 0A 20 20 0D 0A 20 20 56 (.30.);.. .. V
013840: 41 52 0D 0A 20 20 20 20 74 65 6B 73 74 20 3A 20 AR.. tekst :
013850: 73 74 72 33 30 3B 0D 0A 20 20 20 20 69 2C 20 73 str30;.. i, s
013860: 74 61 72 74 2C 20 73 6C 75 74 20 3A 20 49 4E 54 tart, slut : INT
013870: 45 47 45 52 3B 0D 0A 20 20 20 20 6F 6B 20 3A 20 EGER;.. ok :
013880: 42 4F 4F 4C 45 41 4E 3B 0D 0A 20 20 20 20 0D 0A BOOLEAN;.. ..
013890: 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 57 52 49 BEGIN.. WRI
0138A0: 54 45 28 43 4C 52 48 4F 4D 29 3B 0D 0A 20 20 20 TE(CLRHOM);..
0138B0: 20 57 52 49 54 45 28 27 53 6B 72 69 76 20 6A 6F WRITE('Skriv jo
0138C0: 75 72 6E 61 6C 6E 75 6D 6D 65 72 20 28 41 2D 30 urnalnummer (A-0
0138D0: 30 2D 30 30 30 29 3A 20 27 29 3B 0D 0A 20 20 20 0-000): ');..
0138E0: 20 52 45 41 44 4C 4E 28 74 65 6B 73 74 29 3B 0D READLN(tekst);.
0138F0: 0A 20 20 20 20 69 20 3A 3D 20 31 3B 0D 0A 20 20 . i := 1;..
013900: 20 20 57 48 49 4C 45 20 74 65 6B 73 74 28 2E 69 WHILE tekst(.i
013910: 2E 29 20 3D 20 27 20 27 20 44 4F 0D 0A 20 20 20 .) = ' ' DO..
013920: 20 20 20 69 20 3A 3D 20 69 20 2B 20 31 3B 0D 0A i := i + 1;..
013930: 20 20 20 20 73 74 61 72 74 20 3A 3D 20 69 3B 0D start := i;.
013940: 0A 20 20 20 20 69 20 3A 3D 20 4C 45 4E 28 74 65 . i := LEN(te
013950: 6B 73 74 29 3B 0D 0A 20 20 20 20 57 48 49 4C 45 kst);.. WHILE
013960: 20 74 65 6B 73 74 28 2E 69 2E 29 20 3D 20 27 20 tekst(.i.) = '
013970: 27 20 44 4F 0D 0A 20 20 20 20 20 20 69 20 3A 3D ' DO.. i :=
013980: 20 69 20 2D 20 31 3B 0D 0A 20 20 20 20 73 6C 75 i - 1;.. slu
013990: 74 20 3A 3D 20 69 3B 0D 0A 20 20 20 20 74 65 6B t := i;.. tek
0139A0: 73 74 20 3A 3D 20 43 4F 50 59 28 74 65 6B 73 74 st := COPY(tekst
0139B0: 2C 20 73 74 61 72 74 2C 20 73 6C 75 74 20 2D 20 , start, slut -
0139C0: 73 74 61 72 74 20 2B 20 31 29 3B 20 28 2A 20 62 start + 1); (* b
0139D0: 6C 61 6E 6B 74 65 67 6E 20 73 6C 65 74 74 65 73 lanktegn slettes
0139E0: 20 2A 29 0D 0A 20 20 20 20 6F 6B 20 3A 3D 20 54 *).. ok := T
0139F0: 52 55 45 3B 0D 0A 20 20 20 20 49 46 20 4C 45 4E RUE;.. IF LEN
013A00: 20 20 20 20 20 20 20 20 50 52 4F 47 52 41 4D 20 PROGRAM
013A10: 69 6E 76 65 72 73 3B 0D 0A 20 20 20 20 20 20 20 invers;..
013A20: 20 0D 0A 20 20 20 20 20 20 20 20 20 20 56 41 52 .. VAR
013A30: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 69 20 .. i
013A40: 3A 20 49 4E 54 45 47 45 52 3B 0D 0A 20 20 20 20 : INTEGER;..
013A50: 20 20 20 20 20 20 20 20 78 20 3A 20 52 45 41 4C x : REAL
013A60: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 0D ;.. .
013A70: 0A 20 20 20 20 20 20 20 20 20 20 46 55 4E 43 54 . FUNCT
013A80: 49 4F 4E 20 61 72 63 73 69 6E 28 78 20 3A 20 52 ION arcsin(x : R
013A90: 45 41 4C 29 20 3A 20 52 45 41 4C 3B 0D 0A 20 20 EAL) : REAL;..
013AA0: 20 20 20 20 20 20 20 20 20 20 0D 0A 20 20 20 20 ..
013AB0: 20 20 20 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 BEGIN..
013AC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 IF
013AD0: 41 42 53 28 78 29 20 3C 20 31 0D 0A 20 20 20 20 ABS(x) < 1..
013AE0: 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4E THEN
013AF0: 20 61 72 63 73 69 6E 20 3A 3D 20 41 52 43 54 41 arcsin := ARCTA
013B00: 4E 28 78 20 2F 20 53 51 52 54 28 31 20 2D 20 78 N(x / SQRT(1 - x
013B10: 20 2A 20 78 29 29 0D 0A 20 20 20 20 20 20 20 20 * x))..
013B20: 20 20 20 20 20 20 45 4C 53 45 20 49 46 20 78 20 ELSE IF x
013B30: 3D 20 31 0D 0A 20 20 20 20 20 20 20 20 20 20 20 = 1..
013B40: 20 20 20 20 20 54 48 45 4E 20 61 72 63 73 69 6E THEN arcsin
013B50: 20 3A 3D 20 50 49 20 2F 20 32 0D 0A 20 20 20 20 := PI / 2..
013B60: 20 20 20 20 20 20 20 20 20 20 45 4C 53 45 20 49 ELSE I
013B70: 46 20 78 20 3D 20 2D 31 0D 0A 20 20 20 20 20 20 F x = -1..
013B80: 20 20 20 20 20 20 20 20 20 20 54 48 45 4E 20 61 THEN a
013B90: 72 63 73 69 6E 20 3A 3D 20 2D 50 49 20 2F 20 32 rcsin := -PI / 2
013BA0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 45 ;.. E
013BB0: 4E 44 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 0D ND;.. .
013BC0: 0A 20 20 20 20 20 20 20 20 20 20 46 55 4E 43 54 . FUNCT
013BD0: 49 4F 4E 20 61 72 63 63 6F 73 28 78 20 3A 20 52 ION arccos(x : R
013BE0: 45 41 4C 29 20 3A 20 52 45 41 4C 3B 0D 0A 20 20 EAL) : REAL;..
013BF0: 20 20 20 20 20 20 20 20 0D 0A 20 20 20 20 20 20 ..
013C00: 28 74 65 6B 73 74 29 20 3C 3E 20 38 0D 0A 20 20 (tekst) <> 8..
013C10: 20 20 20 20 54 48 45 4E 20 6F 6B 20 3A 3D 20 46 THEN ok := F
013C20: 41 4C 53 45 0D 0A 20 20 20 20 45 4C 53 45 20 49 ALSE.. ELSE I
013C30: 46 20 28 74 65 6B 73 74 28 2E 31 2E 29 20 3C 20 F (tekst(.1.) <
013C40: 27 41 27 29 20 4F 52 20 28 74 65 6B 73 74 28 2E 'A') OR (tekst(.
013C50: 31 2E 29 20 3E 20 27 5D 27 29 0D 0A 20 20 20 20 1.) > ']')..
013C60: 20 20 54 48 45 4E 20 6F 6B 20 3A 3D 20 46 41 4C THEN ok := FAL
013C70: 53 45 0D 0A 20 20 20 20 45 4C 53 45 20 49 46 20 SE.. ELSE IF
013C80: 28 74 65 6B 73 74 28 2E 32 2E 29 20 3C 3E 20 27 (tekst(.2.) <> '
013C90: 2D 27 29 20 4F 52 20 28 74 65 6B 73 74 28 2E 35 -') OR (tekst(.5
013CA0: 2E 29 20 3C 3E 20 27 2D 27 29 0D 0A 20 20 20 20 .) <> '-')..
013CB0: 20 20 54 48 45 4E 20 6F 6B 20 3A 3D 20 46 41 4C THEN ok := FAL
013CC0: 53 45 0D 0A 20 20 20 20 45 4C 53 45 0D 0A 20 20 SE.. ELSE..
013CD0: 20 20 20 20 46 4F 52 20 69 20 3A 3D 20 33 20 54 FOR i := 3 T
013CE0: 4F 20 38 20 44 4F 0D 0A 20 20 20 20 20 20 20 20 O 8 DO..
013CF0: 49 46 20 69 20 3C 3E 20 35 0D 0A 20 20 20 20 20 IF i <> 5..
013D00: 20 20 20 20 20 54 48 45 4E 0D 0A 20 20 20 20 20 THEN..
013D10: 20 20 20 20 20 20 20 49 46 20 28 74 65 6B 73 74 IF (tekst
013D20: 28 2E 69 2E 29 20 3C 20 27 30 27 29 20 4F 52 20 (.i.) < '0') OR
013D30: 28 74 65 6B 73 74 28 2E 69 2E 29 20 3E 20 27 39 (tekst(.i.) > '9
013D40: 27 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 ')..
013D50: 20 20 54 48 45 4E 20 6F 6B 20 3A 3D 20 46 41 4C THEN ok := FAL
013D60: 53 45 3B 0D 0A 20 20 20 20 49 46 20 6F 6B 0D 0A SE;.. IF ok..
013D70: 20 20 20 20 20 20 54 48 45 4E 20 57 52 49 54 45 THEN WRITE
013D80: 4C 4E 28 74 65 6B 73 74 2C 20 27 20 65 72 20 69 LN(tekst, ' er i
013D90: 20 6F 72 64 65 6E 27 29 0D 0A 20 20 20 20 20 20 orden')..
013DA0: 45 4C 53 45 20 57 52 49 54 45 4C 4E 28 74 65 6B ELSE WRITELN(tek
013DB0: 73 74 2C 20 27 20 65 72 20 69 6B 6B 65 20 6B 6F st, ' er ikke ko
013DC0: 72 72 65 6B 74 27 29 3B 0D 0A 20 20 45 4E 44 2E rrekt');.. END.
013DD0: 0D 0A 20 20 20 20 20 20 20 0D 0A 1A 20 46 41 4C .. ... FAL
013DE0: 53 45 3B 0D 0A 20 20 20 20 49 46 20 6F 6B 0D 0A SE;.. IF ok..
013DF0: 20 20 20 20 20 20 54 48 45 4E 20 57 52 49 54 45 THEN WRITE
013E00: 20 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 BEGIN..
013E10: 20 20 20 20 20 20 20 20 20 20 20 49 46 20 78 20 IF x
013E20: 3D 20 30 0D 0A 20 20 20 20 20 20 20 20 20 20 20 = 0..
013E30: 20 20 20 20 20 54 48 45 4E 20 61 72 63 63 6F 73 THEN arccos
013E40: 20 3A 3D 20 50 49 20 2F 20 32 0D 0A 20 20 20 20 := PI / 2..
013E50: 20 20 20 20 20 20 20 20 20 20 45 4C 53 45 20 49 ELSE I
013E60: 46 20 28 30 20 3C 20 78 20 29 20 41 4E 44 20 28 F (0 < x ) AND (
013E70: 78 20 3C 3D 20 31 29 0D 0A 20 20 20 20 20 20 20 x <= 1)..
013E80: 20 20 20 20 20 20 20 20 20 54 48 45 4E 20 61 72 THEN ar
013E90: 63 63 6F 73 20 3A 3D 20 41 52 43 54 41 4E 28 53 ccos := ARCTAN(S
013EA0: 51 52 54 28 31 20 2D 20 78 20 2A 20 78 29 20 2F QRT(1 - x * x) /
013EB0: 20 78 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20 x)..
013EC0: 20 20 20 45 4C 53 45 20 49 46 20 28 2D 31 20 3C ELSE IF (-1 <
013ED0: 3D 20 78 29 20 41 4E 44 20 28 78 20 3C 20 30 29 = x) AND (x < 0)
013EE0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
013EF0: 20 20 54 48 45 4E 20 61 72 63 63 6F 73 20 3A 3D THEN arccos :=
013F00: 20 41 52 43 54 41 4E 28 53 51 52 54 28 31 20 2D ARCTAN(SQRT(1 -
013F10: 20 78 20 2A 20 78 29 20 2F 20 78 29 20 2B 20 50 x * x) / x) + P
013F20: 49 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 I;..
013F30: 45 4E 44 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 END;..
013F40: 0D 0A 20 20 20 20 20 20 20 20 20 20 42 45 47 49 .. BEGI
013F50: 4E 20 28 2A 20 69 6E 76 65 72 73 20 2A 29 0D 0A N (* invers *)..
013F60: 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 WRIT
013F70: 45 28 43 4C 52 48 4F 4D 29 3B 0D 0A 20 20 20 20 E(CLRHOM);..
013F80: 20 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E 28 WRITELN(
013F90: 27 78 27 20 3A 20 34 2C 20 27 41 52 43 53 49 4E 'x' : 4, 'ARCSIN
013FA0: 28 78 29 27 20 3A 20 31 35 2C 20 27 41 52 43 43 (x)' : 15, 'ARCC
013FB0: 4F 53 28 78 29 27 20 3A 20 31 35 29 3B 0D 0A 20 OS(x)' : 15);..
013FC0: 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 WRITE
013FD0: 4C 4E 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 LN;..
013FE0: 20 46 4F 52 20 69 20 3A 3D 20 2D 31 30 20 54 4F FOR i := -10 TO
013FF0: 20 31 30 20 44 4F 0D 0A 20 20 20 20 20 20 20 20 10 DO..
014000: 20 20 20 20 20 20 20 20 50 52 4F 47 52 41 4D 20 PROGRAM
014010: 6B 61 65 64 65 32 3B 0D 0A 20 20 20 20 20 20 20 kaede2;..
014020: 20 0D 0A 20 20 20 20 20 20 20 20 20 20 54 59 50 .. TYP
014030: 45 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 73 E.. s
014040: 74 72 34 30 20 3D 20 53 54 52 49 4E 47 28 2E 34 tr40 = STRING(.4
014050: 30 2E 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 0.);..
014060: 20 20 6C 69 6E 6B 20 3D 20 5E 20 70 6F 73 74 3B link = ^ post;
014070: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 70 6F .. po
014080: 73 74 20 3D 20 52 45 43 4F 52 44 0D 0A 20 20 20 st = RECORD..
014090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0140A0: 20 20 6E 61 65 73 74 65 20 3A 20 6C 69 6E 6B 3B naeste : link;
0140B0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
0140C0: 20 20 20 20 20 20 20 6E 61 76 6E 20 3A 20 73 74 navn : st
0140D0: 72 34 30 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 r40;..
0140E0: 20 20 20 20 20 20 20 20 20 20 20 61 64 72 65 73 adres
0140F0: 73 65 20 3A 20 73 74 72 34 30 3B 0D 0A 20 20 20 se : str40;..
014100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
014110: 45 4E 44 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 END;..
014120: 0D 0A 20 20 20 20 20 20 20 20 20 20 56 41 52 0D .. VAR.
014130: 0A 20 20 20 20 20 20 20 20 20 20 20 20 75 64 2C . ud,
014140: 20 74 6F 70 2C 20 70 70 20 3A 20 6C 69 6E 6B 3B top, pp : link;
014150: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 63 68 .. ch
014160: 20 3A 20 43 48 41 52 3B 0D 0A 20 20 20 20 20 20 : CHAR;..
014170: 20 20 20 20 0D 0A 20 20 20 20 20 20 20 20 20 20 ..
014180: 50 52 4F 43 45 44 55 52 45 20 69 6E 64 73 61 65 PROCEDURE indsae
014190: 74 28 56 41 52 20 66 6F 65 72 73 74 65 20 3A 20 t(VAR foerste :
0141A0: 6C 69 6E 6B 3B 20 6E 79 70 6F 73 74 20 3A 20 6C link; nypost : l
0141B0: 69 6E 6B 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 ink);..
0141C0: 20 20 20 0D 0A 20 20 20 20 20 20 20 20 20 20 20 ..
0141D0: 20 56 41 52 0D 0A 20 20 20 20 20 20 20 20 20 20 VAR..
0141E0: 20 20 20 20 63 68 20 3A 20 43 48 41 52 3B 0D 0A ch : CHAR;..
0141F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0D 0A ..
014200: 20 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 BEGIN..
014210: 20 20 20 20 20 20 20 20 20 20 20 20 20 78 20 3A x :
014220: 3D 20 69 20 2F 20 31 30 3B 0D 0A 20 20 20 20 20 = i / 10;..
014230: 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 WRITE
014240: 4C 4E 28 78 20 3A 20 34 20 3A 20 31 2C 20 61 72 LN(x : 4 : 1, ar
014250: 63 73 69 6E 28 78 29 20 3A 20 31 35 20 3A 20 38 csin(x) : 15 : 8
014260: 2C 20 61 72 63 63 6F 73 28 78 29 20 3A 20 31 35 , arccos(x) : 15
014270: 20 3A 20 38 29 3B 0D 0A 20 20 20 20 20 20 20 20 : 8);..
014280: 20 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 END;..
014290: 20 20 20 20 20 20 45 4E 44 2E 20 28 2A 20 69 6E END. (* in
0142A0: 76 65 72 73 20 2A 29 0D 0A 1A 0A 20 20 20 20 20 vers *)....
0142B0: 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 WRITE
0142C0: 4C 4E 28 78 20 3A 20 34 20 3A 20 31 2C 20 61 72 LN(x : 4 : 1, ar
0142D0: 63 73 69 6E 28 78 29 20 3A 20 31 35 20 3A 20 38 csin(x) : 15 : 8
0142E0: 2C 20 61 72 63 63 6F 73 28 78 29 20 3A 20 31 35 , arccos(x) : 15
0142F0: 20 3A 20 38 29 3B 0D 0A 20 20 20 20 20 20 20 20 : 8);..
014300: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
014310: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
014320: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
014330: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
014340: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
014350: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
014360: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
014370: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
014380: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
014390: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0143A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0143B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0143C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0143D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0143E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0143F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
014400: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
014410: 11 00 01 00 02 09 52 E5 11 00 41 02 00 00 00 02 ......R...A.....
014420: 11 00 46 02 00 00 00 02 11 00 42 02 00 00 00 02 ..F.......B.....
014430: 11 00 47 02 00 00 00 02 11 00 43 02 00 00 00 02 ..G.......C.....
014440: 11 00 48 02 00 00 00 02 11 00 44 02 00 00 00 02 ..H.......D.....
014450: 11 00 49 02 00 00 00 02 11 00 45 02 00 00 00 02 ..I.......E.....
014460: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
014470: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
014480: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
014490: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0144A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0144B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0144C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0144D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0144E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0144F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
014500: 20 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 BEGI
014510: 4E 20 28 2A 20 69 6E 64 73 61 65 74 20 2A 29 0D N (* indsaet *).
014520: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 . I
014530: 46 20 66 6F 65 72 73 74 65 20 3D 20 4E 49 4C 20 F foerste = NIL
014540: 28 2A 20 6B 7B 64 65 6E 20 65 72 20 74 6F 6D 20 (* k{den er tom
014550: 2A 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 *)..
014560: 20 20 20 20 54 48 45 4E 20 66 6F 65 72 73 74 65 THEN foerste
014570: 20 3A 3D 20 6E 79 70 6F 73 74 0D 0A 20 20 20 20 := nypost..
014580: 20 20 20 20 20 20 20 20 20 20 45 4C 53 45 20 49 ELSE I
014590: 46 20 6E 79 70 6F 73 74 5E 2E 6E 61 76 6E 20 3C F nypost^.navn <
0145A0: 20 66 6F 65 72 73 74 65 5E 2E 6E 61 76 6E 20 28 foerste^.navn (
0145B0: 2A 20 66 7C 72 20 66 7C 72 73 74 65 20 70 6F 73 * f|r f|rste pos
0145C0: 74 20 2A 29 0D 0A 20 20 20 20 20 20 20 20 20 20 t *)..
0145D0: 20 20 20 20 20 20 54 48 45 4E 0D 0A 20 20 20 20 THEN..
0145E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 45 BE
0145F0: 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 GIN..
014600: 20 20 20 20 20 20 20 20 20 6E 79 70 6F 73 74 5E nypost^
014610: 2E 6E 61 65 73 74 65 20 3A 3D 66 6F 65 72 73 74 .naeste :=foerst
014620: 65 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 e;..
014630: 20 20 20 20 20 20 20 20 66 6F 65 72 73 74 65 20 foerste
014640: 3A 3D 6E 79 70 6F 73 74 3B 0D 0A 20 20 20 20 20 :=nypost;..
014650: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 W
014660: 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 20 20 20 RITELN;..
014670: 20 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 WRI
014680: 54 45 28 6E 79 70 6F 73 74 5E 2E 6E 61 76 6E 2C TE(nypost^.navn,
014690: 20 27 20 65 72 20 6E 75 20 69 6E 64 73 61 74 20 ' er nu indsat
0146A0: 69 20 6B 7B 64 65 6E 2E 20 27 2C 0D 0A 20 20 20 i k{den. ',..
0146B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0146C0: 20 20 20 20 20 20 20 27 54 61 73 74 20 3C 52 45 'Tast <RE
0146D0: 54 55 52 4E 3E 20 27 29 3B 0D 0A 20 20 20 20 20 TURN> ');..
0146E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 R
0146F0: 45 41 44 4C 4E 28 63 68 29 3B 0D 0A 20 20 20 20 EADLN(ch);..
014700: 20 20 20 20 20 20 20 57 48 49 4C 45 20 70 70 20 WHILE pp
014710: 3C 3E 20 4E 49 4C 20 44 4F 0D 0A 20 20 20 20 20 <> NIL DO..
014720: 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4E BEGIN
014730: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
014740: 20 20 20 20 57 52 49 54 45 4C 4E 28 70 70 5E 2E WRITELN(pp^.
014750: 6E 61 76 6E 29 3B 0D 0A 20 20 20 20 20 20 20 20 navn);..
014760: 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4C WRITEL
014770: 4E 28 70 70 5E 2E 61 64 72 65 73 73 65 29 3B 0D N(pp^.adresse);.
014780: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
014790: 20 20 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 WRITELN;..
0147A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 p
0147B0: 70 20 3A 3D 20 70 70 5E 2E 6E 61 65 73 74 65 3B p := pp^.naeste;
0147C0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
0147D0: 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 20 20 END;..
0147E0: 20 20 20 20 20 20 57 52 49 54 45 28 27 54 61 73 WRITE('Tas
0147F0: 74 20 3C 52 45 54 55 52 4E 3E 3A 20 27 29 3B 0D t <RETURN>: ');.
014800: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 . R
014810: 45 41 44 4C 4E 28 63 68 29 3B 0D 0A 20 20 20 20 EADLN(ch);..
014820: 20 20 20 20 20 20 20 20 45 4E 44 3B 20 28 2A 20 END; (*
014830: 75 64 73 6B 72 69 76 20 2A 29 0D 0A 20 20 20 20 udskriv *)..
014840: 20 20 20 20 20 20 0D 0A 20 20 20 20 20 20 20 20 ..
014850: 20 20 42 45 47 49 4E 20 28 2A 20 6B 61 65 64 65 BEGIN (* kaede
014860: 32 20 2A 29 0D 0A 20 20 20 20 20 20 20 20 20 20 2 *)..
014870: 20 20 74 6F 70 20 3A 3D 20 4E 49 4C 3B 0D 0A 20 top := NIL;..
014880: 20 20 20 20 20 20 20 20 20 20 20 4E 45 57 28 75 NEW(u
014890: 64 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 d);..
0148A0: 20 52 45 50 45 41 54 0D 0A 20 20 20 20 20 20 20 REPEAT..
0148B0: 20 20 20 20 20 20 20 57 52 49 54 45 28 43 4C 52 WRITE(CLR
0148C0: 48 4F 4D 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 HOM);..
0148D0: 20 20 20 20 20 47 4F 54 4F 58 59 28 31 30 2C 34 GOTOXY(10,4
0148E0: 29 3B 20 57 52 49 54 45 28 27 53 4F 52 54 45 52 ); WRITE('SORTER
0148F0: 45 54 20 4B 5B 44 45 27 29 3B 0D 0A 20 20 20 20 ET K[DE');..
014900: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4E EN
014910: 44 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 D..
014920: 20 45 4C 53 45 20 28 2A 20 66 69 6E 64 20 72 69 ELSE (* find ri
014930: 67 74 69 67 20 70 6C 61 64 73 20 74 69 6C 20 6E gtig plads til n
014940: 79 70 6F 73 74 20 76 69 61 20 72 65 6B 75 72 73 ypost via rekurs
014950: 69 76 74 20 6B 61 6C 64 20 2A 29 0D 0A 20 20 20 ivt kald *)..
014960: 20 20 20 20 20 20 20 20 20 20 20 20 20 69 6E 64 ind
014970: 73 61 65 74 28 66 6F 65 72 73 74 65 5E 2E 6E 61 saet(foerste^.na
014980: 65 73 74 65 2C 20 6E 79 70 6F 73 74 29 3B 0D 0A este, nypost);..
014990: 20 20 20 20 20 20 20 20 20 20 20 20 45 4E 44 3B END;
0149A0: 20 28 2A 20 69 6E 64 73 61 65 74 20 2A 29 0D 0A (* indsaet *)..
0149B0: 20 20 20 20 20 20 20 20 20 20 0D 0A 20 20 20 20 ..
0149C0: 20 20 20 20 20 20 50 52 4F 43 45 44 55 52 45 20 PROCEDURE
0149D0: 66 6A 65 72 6E 28 56 41 52 20 66 6F 65 72 73 74 fjern(VAR foerst
0149E0: 65 20 3A 20 6C 69 6E 6B 3B 20 67 6C 70 6F 73 74 e : link; glpost
0149F0: 20 3A 20 6C 69 6E 6B 29 3B 0D 0A 20 20 20 20 20 : link);..
014A00: 20 20 20 20 20 20 20 0D 0A 20 20 20 20 20 20 20 ..
014A10: 20 20 20 20 20 56 41 52 0D 0A 20 20 20 20 20 20 VAR..
014A20: 20 20 20 20 20 20 20 20 66 6F 72 61 6E 2C 20 6B foran, k
014A30: 61 6E 64 69 64 61 74 20 3A 20 6C 69 6E 6B 3B 0D andidat : link;.
014A40: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 . f
014A50: 75 6E 64 65 74 20 3A 20 42 4F 4F 4C 45 41 4E 3B undet : BOOLEAN;
014A60: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
014A70: 63 68 20 3A 20 43 48 41 52 3B 0D 0A 20 20 20 20 ch : CHAR;..
014A80: 20 20 20 20 20 20 20 20 20 20 0D 0A 20 20 20 20 ..
014A90: 20 20 20 20 20 20 20 20 42 45 47 49 4E 20 28 2A BEGIN (*
014AA0: 20 66 6A 65 72 6E 20 2A 29 0D 0A 20 20 20 20 20 fjern *)..
014AB0: 20 20 20 20 20 20 20 20 20 49 46 20 66 6F 65 72 IF foer
014AC0: 73 74 65 20 3D 20 4E 49 4C 20 28 2A 20 6B 7B 64 ste = NIL (* k{d
014AD0: 65 6E 20 74 6F 6D 20 2A 29 0D 0A 20 20 20 20 20 en tom *)..
014AE0: 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4E 20 THEN
014AF0: 66 75 6E 64 65 74 20 3A 3D 20 46 41 4C 53 45 0D fundet := FALSE.
014B00: 20 20 20 20 20 20 20 20 20 20 47 4F 54 4F 58 59 GOTOXY
014B10: 28 31 30 2C 37 29 3B 20 57 52 49 54 45 28 27 49 (10,7); WRITE('I
014B20: 2E 20 49 6E 64 73 7B 74 20 70 65 72 73 6F 6E 20 . Inds{t person
014B30: 69 20 6B 7B 64 65 6E 2E 27 29 3B 0D 0A 20 20 20 i k{den.');..
014B40: 20 20 20 20 20 20 20 20 20 20 20 47 4F 54 4F 58 GOTOX
014B50: 59 28 31 30 2C 39 29 3B 20 57 52 49 54 45 28 27 Y(10,9); WRITE('
014B60: 46 2E 20 46 6A 65 72 6E 65 20 70 65 72 73 6F 6E F. Fjerne person
014B70: 20 66 72 61 20 6B 7B 64 65 6E 2E 27 29 3B 0D 0A fra k{den.');..
014B80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 4F GO
014B90: 54 4F 58 59 28 31 30 2C 31 31 29 3B 20 57 52 49 TOXY(10,11); WRI
014BA0: 54 45 28 27 55 2E 20 55 64 73 6B 72 69 76 65 20 TE('U. Udskrive
014BB0: 6B 7B 64 65 6E 2E 27 29 3B 0D 0A 20 20 20 20 20 k{den.');..
014BC0: 20 20 20 20 20 20 20 20 20 47 4F 54 4F 58 59 28 GOTOXY(
014BD0: 31 30 2C 31 33 29 3B 20 57 52 49 54 45 28 27 41 10,13); WRITE('A
014BE0: 2E 20 41 66 73 6C 75 74 74 65 20 70 72 6F 67 72 . Afslutte progr
014BF0: 61 6D 6D 65 74 2E 27 29 3B 0D 0A 20 20 20 20 20 ammet.');..
014C00: 20 20 20 20 20 20 20 20 20 47 4F 54 4F 58 59 28 GOTOXY(
014C10: 31 30 2C 31 35 29 3B 20 57 52 49 54 45 28 27 54 10,15); WRITE('T
014C20: 61 73 74 20 6B 6F 6D 6D 61 6E 64 6F 3A 20 27 29 ast kommando: ')
014C30: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ;..
014C40: 20 52 45 50 45 41 54 0D 0A 20 20 20 20 20 20 20 REPEAT..
014C50: 20 20 20 20 20 20 20 20 20 52 45 41 44 28 4B 42 READ(KB
014C60: 44 2C 20 63 68 29 3B 0D 0A 20 20 20 20 20 20 20 D, ch);..
014C70: 20 20 20 20 20 20 20 55 4E 54 49 4C 20 63 68 20 UNTIL ch
014C80: 49 4E 20 28 2E 27 49 27 2C 20 27 69 27 2C 20 27 IN (.'I', 'i', '
014C90: 46 27 2C 20 27 66 27 2C 20 27 55 27 2C 20 27 75 F', 'f', 'U', 'u
014CA0: 27 2C 20 27 41 27 2C 20 27 61 27 2E 29 3B 0D 0A ', 'A', 'a'.);..
014CB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 52 WR
014CC0: 49 54 45 4C 4E 28 63 68 29 3B 0D 0A 20 20 20 20 ITELN(ch);..
014CD0: 20 20 20 20 20 20 20 20 20 20 43 41 53 45 20 63 CASE c
014CE0: 68 20 4F 46 0D 0A 20 20 20 20 20 20 20 20 20 20 h OF..
014CF0: 20 20 20 20 20 20 27 49 27 2C 20 27 69 27 20 3A 'I', 'i' :
014D00: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 . E
014D10: 4C 53 45 20 49 46 20 66 6F 65 72 73 74 65 5E 2E LSE IF foerste^.
014D20: 6E 61 76 6E 20 3D 20 67 6C 70 6F 73 74 5E 2E 6E navn = glpost^.n
014D30: 61 76 6E 20 28 2A 20 66 6A 65 72 6E 20 70 6F 73 avn (* fjern pos
014D40: 74 20 31 20 2A 29 0D 0A 20 20 20 20 20 20 20 20 t 1 *)..
014D50: 20 20 20 20 20 20 20 20 54 48 45 4E 0D 0A 20 20 THEN..
014D60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
014D70: 42 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 BEGIN..
014D80: 20 20 20 20 20 20 20 20 20 20 20 66 6F 65 72 73 foers
014D90: 74 65 20 3A 3D 20 66 6F 65 72 73 74 65 5E 2E 6E te := foerste^.n
014DA0: 61 65 73 74 65 3B 0D 0A 20 20 20 20 20 20 20 20 aeste;..
014DB0: 20 20 20 20 20 20 20 20 20 20 20 20 66 75 6E 64 fund
014DC0: 65 74 20 3A 3D 20 54 52 55 45 3B 0D 0A 20 20 20 et := TRUE;..
014DD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 E
014DE0: 4E 44 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 ND..
014DF0: 20 20 45 4C 53 45 20 28 2A 20 53 7C 67 20 65 66 ELSE (* S|g ef
014E00: 74 65 72 20 6E 61 76 6E 65 74 20 2A 29 0D 0A 20 ter navnet *)..
014E10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 B
014E20: 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 EGIN..
014E30: 20 20 20 20 20 20 20 20 66 75 6E 64 65 74 20 3A fundet :
014E40: 3D 20 46 41 4C 53 45 3B 0D 0A 20 20 20 20 20 20 = FALSE;..
014E50: 20 20 20 20 20 20 20 20 20 20 20 20 66 6F 72 61 fora
014E60: 6E 20 3A 3D 20 66 6F 65 72 73 74 65 3B 0D 0A 20 n := foerste;..
014E70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
014E80: 20 6B 61 6E 64 69 64 61 74 20 3A 3D 20 66 6F 65 kandidat := foe
014E90: 72 73 74 65 5E 2E 6E 61 65 73 74 65 3B 0D 0A 20 rste^.naeste;..
014EA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
014EB0: 20 57 48 49 4C 45 20 28 6B 61 6E 64 69 64 61 74 WHILE (kandidat
014EC0: 20 3C 3E 20 4E 49 4C 29 20 41 4E 44 20 4E 4F 54 <> NIL) AND NOT
014ED0: 20 66 75 6E 64 65 74 20 44 4F 0D 0A 20 20 20 20 fundet DO..
014EE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
014EF0: 49 46 20 67 6C 70 6F 73 74 5E 2E 6E 61 76 6E 20 IF glpost^.navn
014F00: 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 BEGIN..
014F10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
014F20: 20 20 20 20 20 4E 45 57 28 70 70 29 3B 0D 0A 20 NEW(pp);..
014F30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
014F40: 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 WRIT
014F50: 45 4C 4E 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 ELN;..
014F60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
014F70: 20 20 20 57 52 49 54 45 28 27 4E 61 76 6E 3A 20 WRITE('Navn:
014F80: 27 29 3B 20 52 45 41 44 4C 4E 28 70 70 5E 2E 6E '); READLN(pp^.n
014F90: 61 76 6E 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 avn);..
014FA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
014FB0: 20 20 20 20 57 52 49 54 45 28 27 41 64 72 65 73 WRITE('Adres
014FC0: 73 65 3A 20 27 29 3B 20 52 45 41 44 4C 4E 28 70 se: '); READLN(p
014FD0: 70 5E 2E 61 64 72 65 73 73 65 29 3B 0D 0A 20 20 p^.adresse);..
014FE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
014FF0: 20 20 20 20 20 20 20 20 20 20 20 70 70 5E 2E 6E pp^.n
015000: 61 65 73 74 65 20 3A 3D 20 4E 49 4C 3B 0D 0A 20 aeste := NIL;..
015010: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
015020: 20 20 20 20 20 20 20 20 20 20 20 20 69 6E 64 73 inds
015030: 61 65 74 28 74 6F 70 2C 20 70 70 29 3B 0D 0A 20 aet(top, pp);..
015040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
015050: 20 20 20 20 20 20 20 20 20 20 45 4E 44 3B 0D 0A END;..
015060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
015070: 27 46 27 2C 20 27 66 27 20 3A 20 42 45 47 49 4E 'F', 'f' : BEGIN
015080: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
015090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 W
0150A0: 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 20 20 20 RITELN;..
0150B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0150C0: 20 20 20 20 20 20 57 52 49 54 45 28 27 48 76 65 WRITE('Hve
0150D0: 6D 20 73 6B 61 6C 20 66 6A 65 72 6E 65 73 3A 20 m skal fjernes:
0150E0: 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 ');..
0150F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
015100: 3D 20 6B 61 6E 64 69 64 61 74 5E 2E 6E 61 76 6E = kandidat^.navn
015110: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
015120: 20 20 20 20 20 20 20 20 54 48 45 4E 0D 0A 20 20 THEN..
015130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
015140: 20 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 BEGIN..
015150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
015160: 20 20 20 20 20 20 20 66 6F 72 61 6E 5E 2E 6E 61 foran^.na
015170: 65 73 74 65 20 3A 3D 20 6B 61 6E 64 69 64 61 74 este := kandidat
015180: 5E 2E 6E 61 65 73 74 65 3B 0D 0A 20 20 20 20 20 ^.naeste;..
015190: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0151A0: 20 20 20 20 20 66 75 6E 64 65 74 20 3A 3D 20 54 fundet := T
0151B0: 52 55 45 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 RUE;..
0151C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4E EN
0151D0: 44 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 D..
0151E0: 20 20 20 20 20 20 20 20 20 45 4C 53 45 0D 0A 20 ELSE..
0151F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
015200: 20 20 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 BEGIN..
015210: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
015220: 20 20 20 20 20 20 20 20 66 6F 72 61 6E 20 3A 3D foran :=
015230: 20 6B 61 6E 64 69 64 61 74 3B 0D 0A 20 20 20 20 kandidat;..
015240: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
015250: 20 20 20 20 20 20 6B 61 6E 64 69 64 61 74 20 3A kandidat :
015260: 3D 20 6B 61 6E 64 69 64 61 74 5E 2E 6E 61 65 73 = kandidat^.naes
015270: 74 65 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 te;..
015280: 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4E 44 END
015290: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ;..
0152A0: 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 20 END;..
0152B0: 20 20 20 20 20 20 20 49 46 20 66 75 6E 64 65 74 IF fundet
0152C0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
0152D0: 20 20 54 48 45 4E 20 57 52 49 54 45 4C 4E 28 67 THEN WRITELN(g
0152E0: 6C 70 6F 73 74 5E 2E 6E 61 76 6E 2C 20 20 27 20 lpost^.navn, '
0152F0: 65 72 20 73 6C 65 74 74 65 74 20 66 72 61 20 6B er slettet fra k
015300: 20 20 52 45 41 44 4C 4E 28 75 64 5E 2E 6E 61 76 READLN(ud^.nav
015310: 6E 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 n);..
015320: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
015330: 20 20 66 6A 65 72 6E 28 74 6F 70 2C 20 75 64 29 fjern(top, ud)
015340: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ;..
015350: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4E EN
015360: 44 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 D;..
015370: 20 20 20 20 27 55 27 2C 20 27 75 27 20 3A 20 75 'U', 'u' : u
015380: 64 73 6B 72 69 76 28 74 6F 70 29 3B 0D 0A 20 20 dskriv(top);..
015390: 20 20 20 20 20 20 20 20 20 20 20 20 45 4E 44 3B END;
0153A0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 55 4E .. UN
0153B0: 54 49 4C 20 63 68 20 49 4E 20 28 2E 27 41 27 2C TIL ch IN (.'A',
0153C0: 20 27 61 27 2E 29 3B 0D 0A 20 20 20 20 20 20 20 'a'.);..
0153D0: 20 20 20 45 4E 44 2E 20 28 2A 20 6B 61 65 64 65 END. (* kaede
0153E0: 32 20 2A 29 0D 0A 1A 20 20 20 20 20 20 20 20 20 2 *)...
0153F0: 20 20 20 20 27 55 27 2C 20 27 75 27 20 3A 20 75 'U', 'u' : u
015400: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
015410: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
015420: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
015430: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
015440: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
015450: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
015460: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
015470: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
015480: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
015490: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0154A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0154B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0154C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0154D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0154E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0154F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
015500: 7B 64 65 6E 27 29 0D 0A 20 20 20 20 20 20 20 20 {den')..
015510: 20 20 20 20 20 20 20 20 45 4C 53 45 20 57 52 49 ELSE WRI
015520: 54 45 4C 4E 28 67 6C 70 6F 73 74 5E 2E 6E 61 76 TELN(glpost^.nav
015530: 6E 2C 20 20 27 20 66 69 6E 64 65 73 20 69 6B 6B n, ' findes ikk
015540: 65 20 69 20 6B 7B 64 65 6E 27 29 3B 0D 0A 20 20 e i k{den');..
015550: 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 WRIT
015560: 45 28 27 54 61 73 74 20 3C 52 45 54 55 52 4E 3E E('Tast <RETURN>
015570: 3A 20 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 : ');..
015580: 20 20 20 20 20 52 45 41 44 4C 4E 28 63 68 29 3B READLN(ch);
015590: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 45 4E .. EN
0155A0: 44 3B 20 28 2A 20 66 6A 65 72 6E 20 2A 29 0D 0A D; (* fjern *)..
0155B0: 20 20 20 20 20 20 20 20 20 20 0D 0A 20 20 20 20 ..
0155C0: 20 20 20 20 20 20 50 52 4F 43 45 44 55 52 45 20 PROCEDURE
0155D0: 75 64 73 6B 72 69 76 28 66 6F 65 72 73 74 65 20 udskriv(foerste
0155E0: 3A 20 6C 69 6E 6B 29 3B 0D 0A 20 20 20 20 20 20 : link);..
0155F0: 20 20 20 20 0D 0A 20 20 20 20 20 20 20 20 20 20 ..
015600: 20 20 56 41 52 0D 0A 20 20 20 20 20 20 20 20 20 VAR..
015610: 20 20 20 20 20 70 70 20 3A 20 6C 69 6E 6B 3B 0D pp : link;.
015620: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 . c
015630: 68 20 3A 20 43 48 41 52 3B 0D 0A 20 20 20 20 20 h : CHAR;..
015640: 20 20 20 20 20 20 20 20 20 0D 0A 20 20 20 20 20 ..
015650: 20 20 20 20 20 20 20 42 45 47 49 4E 20 28 2A 20 BEGIN (*
015660: 75 64 73 6B 72 69 76 20 2A 29 0D 0A 20 20 20 20 udskriv *)..
015670: 20 20 20 20 20 20 20 20 20 20 70 70 20 3A 3D 20 pp :=
015680: 66 6F 65 72 73 74 65 3B 0D 0A 20 20 20 20 20 20 foerste;..
015690: 20 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E 3B WRITELN;
0156A0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
0156B0: 57 52 49 54 45 4C 4E 28 27 4B 7B 64 65 6E 20 69 WRITELN('K{den i
0156C0: 6E 64 65 68 6F 6C 64 65 72 20 66 7C 6C 67 65 6E ndeholder f|lgen
0156D0: 64 65 20 70 65 72 73 6F 6E 65 72 3A 27 29 3B 0D de personer:');.
0156E0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 . W
0156F0: 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 20 20 20 RITELN;..
015700: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
015710: 12 00 01 00 02 09 52 E5 12 00 41 02 00 00 00 02 ......R...A.....
015720: 12 00 46 02 00 00 00 02 12 00 42 02 00 00 00 02 ..F.......B.....
015730: 12 00 47 02 00 00 00 02 12 00 43 02 00 00 00 02 ..G.......C.....
015740: 12 00 48 02 00 00 00 02 12 00 44 02 00 00 00 02 ..H.......D.....
015750: 12 00 49 02 00 00 00 02 12 00 45 02 00 00 00 02 ..I.......E.....
015760: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
015770: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
015780: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
015790: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0157A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0157B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0157C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0157D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0157E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0157F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
015800: 20 20 20 20 20 20 20 20 50 52 4F 47 52 41 4D 20 PROGRAM
015810: 6B 61 65 64 65 33 3B 0D 0A 20 20 20 20 20 20 20 kaede3;..
015820: 20 0D 0A 20 20 20 20 20 20 20 20 20 20 54 59 50 .. TYP
015830: 45 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 73 E.. s
015840: 74 72 34 30 20 3D 20 53 54 52 49 4E 47 28 2E 34 tr40 = STRING(.4
015850: 30 2E 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 0.);..
015860: 20 20 6C 69 6E 6B 20 3D 20 5E 20 70 6F 73 74 3B link = ^ post;
015870: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 70 6F .. po
015880: 73 74 20 3D 20 52 45 43 4F 52 44 0D 0A 20 20 20 st = RECORD..
015890: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0158A0: 20 20 6E 61 65 73 74 65 20 3A 20 6C 69 6E 6B 3B naeste : link;
0158B0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
0158C0: 20 20 20 20 20 20 20 6E 61 76 6E 20 3A 20 73 74 navn : st
0158D0: 72 34 30 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 r40;..
0158E0: 20 20 20 20 20 20 20 20 20 20 20 61 64 72 65 73 adres
0158F0: 73 65 20 3A 20 73 74 72 34 30 3B 0D 0A 20 20 20 se : str40;..
015900: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
015910: 45 4E 44 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 END;..
015920: 0D 0A 20 20 20 20 20 20 20 20 20 20 56 41 52 0D .. VAR.
015930: 0A 20 20 20 20 20 20 20 20 20 20 20 20 75 64 2C . ud,
015940: 20 74 6F 70 2C 20 70 70 20 3A 20 6C 69 6E 6B 3B top, pp : link;
015950: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 63 68 .. ch
015960: 20 3A 20 43 48 41 52 3B 0D 0A 20 20 20 20 20 20 : CHAR;..
015970: 20 20 20 20 0D 0A 20 20 20 20 20 20 20 20 20 20 ..
015980: 50 52 4F 43 45 44 55 52 45 20 69 6E 64 73 61 65 PROCEDURE indsae
015990: 74 28 56 41 52 20 66 6F 65 72 73 74 65 20 3A 20 t(VAR foerste :
0159A0: 6C 69 6E 6B 3B 20 6E 79 70 6F 73 74 20 3A 20 6C link; nypost : l
0159B0: 69 6E 6B 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 ink);..
0159C0: 20 20 20 0D 0A 20 20 20 20 20 20 20 20 20 20 20 ..
0159D0: 20 56 41 52 0D 0A 20 20 20 20 20 20 20 20 20 20 VAR..
0159E0: 20 20 20 20 63 68 20 3A 20 43 48 41 52 3B 0D 0A ch : CHAR;..
0159F0: 20 20 20 20 20 20 20 20 20 20 20 20 0D 0A 20 20 ..
015A00: 20 20 20 57 52 49 54 45 4C 4E 28 70 70 5E 2E 61 WRITELN(pp^.a
015A10: 64 72 65 73 73 65 29 3B 0D 0A 20 20 20 20 20 20 dresse);..
015A20: 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 WRIT
015A30: 45 4C 4E 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 ELN;..
015A40: 20 20 20 20 20 20 20 20 70 70 20 3A 3D 20 70 70 pp := pp
015A50: 5E 2E 6E 61 65 73 74 65 3B 0D 0A 20 20 20 20 20 ^.naeste;..
015A60: 20 20 20 20 20 20 20 20 20 20 20 45 4E 44 3B 0D END;.
015A70: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 . W
015A80: 52 49 54 45 28 27 54 61 73 74 20 3C 52 45 54 55 RITE('Tast <RETU
015A90: 52 4E 3E 3A 20 27 29 3B 0D 0A 20 20 20 20 20 20 RN>: ');..
015AA0: 20 20 20 20 20 20 20 20 52 45 41 44 4C 4E 28 63 READLN(c
015AB0: 68 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 h);..
015AC0: 20 45 4E 44 3B 20 28 2A 20 75 64 73 6B 72 69 76 END; (* udskriv
015AD0: 20 2A 29 0D 0A 20 20 20 20 20 20 20 20 20 20 0D *).. .
015AE0: 0A 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4E . BEGIN
015AF0: 20 28 2A 20 6B 61 65 64 65 33 20 2A 29 0D 0A 20 (* kaede3 *)..
015B00: 20 20 20 20 20 20 20 20 20 20 20 74 6F 70 20 3A top :
015B10: 3D 20 4E 49 4C 3B 0D 0A 20 20 20 20 20 20 20 20 = NIL;..
015B20: 20 20 20 20 4E 45 57 28 75 64 29 3B 0D 0A 20 20 NEW(ud);..
015B30: 20 20 20 20 20 20 20 20 20 20 52 45 50 45 41 54 REPEAT
015B40: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
015B50: 57 52 49 54 45 28 43 4C 52 48 4F 4D 29 3B 0D 0A WRITE(CLRHOM);..
015B60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 4F GO
015B70: 54 4F 58 59 28 31 30 2C 34 29 3B 20 57 52 49 54 TOXY(10,4); WRIT
015B80: 45 28 27 53 4F 52 54 45 52 45 54 20 4B 5B 44 45 E('SORTERET K[DE
015B90: 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 ');..
015BA0: 20 20 20 47 4F 54 4F 58 59 28 31 30 2C 37 29 3B GOTOXY(10,7);
015BB0: 20 57 52 49 54 45 28 27 49 2E 20 49 6E 64 73 7B WRITE('I. Inds{
015BC0: 74 20 70 65 72 73 6F 6E 20 69 20 6B 7B 64 65 6E t person i k{den
015BD0: 2E 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 .');..
015BE0: 20 20 20 20 47 4F 54 4F 58 59 28 31 30 2C 39 29 GOTOXY(10,9)
015BF0: 3B 20 57 52 49 54 45 28 27 46 2E 20 46 6A 65 72 ; WRITE('F. Fjer
015C00: 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4E 20 BEGIN
015C10: 28 2A 20 69 6E 64 73 61 65 74 20 2A 29 0D 0A 20 (* indsaet *)..
015C20: 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 IF
015C30: 66 6F 65 72 73 74 65 20 3D 20 4E 49 4C 20 28 2A foerste = NIL (*
015C40: 20 6B 7B 64 65 6E 20 65 72 20 74 6F 6D 20 2A 29 k{den er tom *)
015C50: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
015C60: 20 20 54 48 45 4E 20 66 6F 65 72 73 74 65 20 3A THEN foerste :
015C70: 3D 20 6E 79 70 6F 73 74 0D 0A 20 20 20 20 20 20 = nypost..
015C80: 20 20 20 20 20 20 20 20 45 4C 53 45 20 49 46 20 ELSE IF
015C90: 6E 79 70 6F 73 74 5E 2E 6E 61 76 6E 20 3C 20 66 nypost^.navn < f
015CA0: 6F 65 72 73 74 65 5E 2E 6E 61 76 6E 20 28 2A 20 oerste^.navn (*
015CB0: 66 7C 72 20 66 7C 72 73 74 65 20 70 6F 73 74 20 f|r f|rste post
015CC0: 2A 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 *)..
015CD0: 20 20 20 20 54 48 45 4E 0D 0A 20 20 20 20 20 20 THEN..
015CE0: 20 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 BEGI
015CF0: 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 N..
015D00: 20 20 20 20 20 20 20 6E 79 70 6F 73 74 5E 2E 6E nypost^.n
015D10: 61 65 73 74 65 20 3A 3D 66 6F 65 72 73 74 65 3B aeste :=foerste;
015D20: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
015D30: 20 20 20 20 20 20 66 6F 65 72 73 74 65 20 3A 3D foerste :=
015D40: 6E 79 70 6F 73 74 3B 0D 0A 20 20 20 20 20 20 20 nypost;..
015D50: 20 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 WRI
015D60: 54 45 4C 4E 3B 0D 0A 20 20 20 20 20 20 20 20 20 TELN;..
015D70: 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 WRITE
015D80: 28 6E 79 70 6F 73 74 5E 2E 6E 61 76 6E 2C 20 27 (nypost^.navn, '
015D90: 20 65 72 20 6E 75 20 69 6E 64 73 61 74 20 69 20 er nu indsat i
015DA0: 6B 7B 64 65 6E 2E 20 27 2C 0D 0A 20 20 20 20 20 k{den. ',..
015DB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
015DC0: 20 20 20 20 20 27 54 61 73 74 20 3C 52 45 54 55 'Tast <RETU
015DD0: 52 4E 3E 20 27 29 3B 0D 0A 20 20 20 20 20 20 20 RN> ');..
015DE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 41 REA
015DF0: 44 4C 4E 28 63 68 29 3B 0D 0A 20 20 20 20 20 20 DLN(ch);..
015E00: 6E 65 20 70 65 72 73 6F 6E 20 66 72 61 20 6B 7B ne person fra k{
015E10: 64 65 6E 2E 27 29 3B 0D 0A 20 20 20 20 20 20 20 den.');..
015E20: 20 20 20 20 20 20 20 47 4F 54 4F 58 59 28 31 30 GOTOXY(10
015E30: 2C 31 31 29 3B 20 57 52 49 54 45 28 27 55 2E 20 ,11); WRITE('U.
015E40: 55 64 73 6B 72 69 76 65 20 6B 7B 64 65 6E 2E 27 Udskrive k{den.'
015E50: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 );..
015E60: 20 20 47 4F 54 4F 58 59 28 31 30 2C 31 33 29 3B GOTOXY(10,13);
015E70: 20 57 52 49 54 45 28 27 41 2E 20 41 66 73 6C 75 WRITE('A. Afslu
015E80: 74 74 65 20 70 72 6F 67 72 61 6D 6D 65 74 2E 27 tte programmet.'
015E90: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 );..
015EA0: 20 20 47 4F 54 4F 58 59 28 31 30 2C 31 35 29 3B GOTOXY(10,15);
015EB0: 20 57 52 49 54 45 28 27 54 61 73 74 20 6B 6F 6D WRITE('Tast kom
015EC0: 6D 61 6E 64 6F 3A 20 27 29 3B 0D 0A 20 20 20 20 mando: ');..
015ED0: 20 20 20 20 20 20 20 20 20 20 52 45 50 45 41 54 REPEAT
015EE0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
015EF0: 20 20 52 45 41 44 28 4B 42 44 2C 20 63 68 29 3B READ(KBD, ch);
015F00: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
015F10: 55 4E 54 49 4C 20 63 68 20 49 4E 20 28 2E 27 49 UNTIL ch IN (.'I
015F20: 27 2C 20 27 69 27 2C 20 27 46 27 2C 20 27 66 27 ', 'i', 'F', 'f'
015F30: 2C 20 27 55 27 2C 20 27 75 27 2C 20 27 41 27 2C , 'U', 'u', 'A',
015F40: 20 27 61 27 2E 29 3B 0D 0A 20 20 20 20 20 20 20 'a'.);..
015F50: 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E 28 63 WRITELN(c
015F60: 68 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 h);..
015F70: 20 20 20 43 41 53 45 20 63 68 20 4F 46 0D 0A 20 CASE ch OF..
015F80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 '
015F90: 49 27 2C 20 27 69 27 20 3A 20 42 45 47 49 4E 0D I', 'i' : BEGIN.
015FA0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
015FB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4E 45 NE
015FC0: 57 28 70 70 29 3B 0D 0A 20 20 20 20 20 20 20 20 W(pp);..
015FD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
015FE0: 20 20 20 20 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 WRITELN;..
015FF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
016000: 20 20 20 20 20 20 20 20 20 20 20 20 45 4E 44 0D END.
016010: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 . E
016020: 4C 53 45 20 28 2A 20 66 69 6E 64 20 72 69 67 74 LSE (* find rigt
016030: 69 67 20 70 6C 61 64 73 20 74 69 6C 20 6E 79 70 ig plads til nyp
016040: 6F 73 74 20 76 69 61 20 72 65 6B 75 72 73 69 76 ost via rekursiv
016050: 74 20 6B 61 6C 64 20 2A 29 0D 0A 20 20 20 20 20 t kald *)..
016060: 20 20 20 20 20 20 20 20 20 20 20 69 6E 64 73 61 indsa
016070: 65 74 28 66 6F 65 72 73 74 65 5E 2E 6E 61 65 73 et(foerste^.naes
016080: 74 65 2C 20 6E 79 70 6F 73 74 29 3B 0D 0A 20 20 te, nypost);..
016090: 20 20 20 20 20 20 20 20 20 20 45 4E 44 3B 20 28 END; (
0160A0: 2A 20 69 6E 64 73 61 65 74 20 2A 29 0D 0A 20 20 * indsaet *)..
0160B0: 20 20 20 20 20 20 20 20 0D 0A 20 20 20 20 20 20 ..
0160C0: 20 20 20 20 50 52 4F 43 45 44 55 52 45 20 66 6A PROCEDURE fj
0160D0: 65 72 6E 28 56 41 52 20 66 6F 65 72 73 74 65 20 ern(VAR foerste
0160E0: 3A 20 6C 69 6E 6B 3B 20 67 6C 70 6F 73 74 20 3A : link; glpost :
0160F0: 20 6C 69 6E 6B 29 3B 0D 0A 20 20 20 20 20 20 20 link);..
016100: 20 20 20 20 20 0D 0A 20 20 20 20 20 20 20 20 20 ..
016110: 20 20 20 56 41 52 0D 0A 20 20 20 20 20 20 20 20 VAR..
016120: 20 20 20 20 20 20 63 68 20 3A 20 43 48 41 52 3B ch : CHAR;
016130: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
016140: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 42 45 .. BE
016150: 47 49 4E 20 28 2A 20 66 6A 65 72 6E 20 2A 29 0D GIN (* fjern *).
016160: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 . I
016170: 46 20 66 6F 65 72 73 74 65 20 3D 20 4E 49 4C 20 F foerste = NIL
016180: 28 2A 20 6B 7B 64 65 6E 20 74 6F 6D 20 2A 29 0D (* k{den tom *).
016190: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
0161A0: 20 54 48 45 4E 0D 0A 20 20 20 20 20 20 20 20 20 THEN..
0161B0: 20 20 20 20 20 20 20 20 20 42 45 47 49 4E 0D 0A BEGIN..
0161C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0161D0: 20 20 20 20 57 52 49 54 45 4C 4E 28 67 6C 70 6F WRITELN(glpo
0161E0: 73 74 5E 2E 6E 61 76 6E 2C 20 27 20 66 69 6E 64 st^.navn, ' find
0161F0: 65 73 20 69 6B 6B 65 20 69 20 6B 7B 64 65 6E 27 es ikke i k{den'
016200: 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 WRIT
016210: 45 28 27 4E 61 76 6E 3A 20 27 29 3B 20 52 45 41 E('Navn: '); REA
016220: 44 4C 4E 28 70 70 5E 2E 6E 61 76 6E 29 3B 0D 0A DLN(pp^.navn);..
016230: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
016240: 20 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 WRI
016250: 54 45 28 27 41 64 72 65 73 73 65 3A 20 27 29 3B TE('Adresse: ');
016260: 20 52 45 41 44 4C 4E 28 70 70 5E 2E 61 64 72 65 READLN(pp^.adre
016270: 73 73 65 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 sse);..
016280: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
016290: 20 20 20 20 70 70 5E 2E 6E 61 65 73 74 65 20 3A pp^.naeste :
0162A0: 3D 20 4E 49 4C 3B 0D 0A 20 20 20 20 20 20 20 20 = NIL;..
0162B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0162C0: 20 20 20 20 20 69 6E 64 73 61 65 74 28 74 6F 70 indsaet(top
0162D0: 2C 20 70 70 29 3B 0D 0A 20 20 20 20 20 20 20 20 , pp);..
0162E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0162F0: 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 20 END;..
016300: 20 20 20 20 20 20 20 20 20 27 46 27 2C 20 27 66 'F', 'f
016310: 27 20 3A 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 ' : BEGIN..
016320: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
016330: 20 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E 3B WRITELN;
016340: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
016350: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 W
016360: 52 49 54 45 28 27 48 76 65 6D 20 73 6B 61 6C 20 RITE('Hvem skal
016370: 66 6A 65 72 6E 65 73 3A 20 27 29 3B 0D 0A 20 20 fjernes: ');..
016380: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
016390: 20 20 20 20 20 20 20 20 20 20 20 52 45 41 44 4C READL
0163A0: 4E 28 75 64 5E 2E 6E 61 76 6E 29 3B 0D 0A 20 20 N(ud^.navn);..
0163B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0163C0: 20 20 20 20 20 20 20 20 20 20 20 66 6A 65 72 6E fjern
0163D0: 28 74 6F 70 2C 20 75 64 29 3B 0D 0A 20 20 20 20 (top, ud);..
0163E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0163F0: 20 20 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 END;..
016400: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 );..
016410: 20 20 20 20 20 20 20 20 57 52 49 54 45 28 27 54 WRITE('T
016420: 61 73 74 20 3C 52 45 54 55 52 4E 3E 20 27 29 3B ast <RETURN> ');
016430: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
016440: 20 20 20 20 20 20 52 45 41 44 4C 4E 28 63 68 29 READLN(ch)
016450: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ;..
016460: 20 20 20 20 20 45 4E 44 0D 0A 20 20 20 20 20 20 END..
016470: 20 20 20 20 20 20 20 20 45 4C 53 45 20 49 46 20 ELSE IF
016480: 66 6F 65 72 73 74 65 5E 2E 6E 61 76 6E 20 3D 20 foerste^.navn =
016490: 67 6C 70 6F 73 74 5E 2E 6E 61 76 6E 20 28 2A 20 glpost^.navn (*
0164A0: 66 6A 65 72 6E 20 70 6F 73 74 20 31 20 2A 29 0D fjern post 1 *).
0164B0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
0164C0: 20 54 48 45 4E 0D 0A 20 20 20 20 20 20 20 20 20 THEN..
0164D0: 20 20 20 20 20 20 20 20 20 42 45 47 49 4E 0D 0A BEGIN..
0164E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0164F0: 20 20 20 20 66 6F 65 72 73 74 65 20 3A 3D 20 66 foerste := f
016500: 6F 65 72 73 74 65 5E 2E 6E 61 65 73 74 65 3B 0D oerste^.naeste;.
016510: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
016520: 20 20 20 20 20 57 52 49 54 45 4C 4E 28 67 6C 70 WRITELN(glp
016530: 6F 73 74 5E 2E 6E 61 76 6E 2C 20 27 20 65 72 20 ost^.navn, ' er
016540: 73 6C 65 74 74 65 74 20 66 72 61 20 6B 7B 64 65 slettet fra k{de
016550: 6E 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 n');..
016560: 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 28 WRITE(
016570: 27 54 61 73 74 20 3C 52 45 54 55 52 4E 3E 20 27 'Tast <RETURN> '
016580: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 );..
016590: 20 20 20 20 20 20 20 20 52 45 41 44 4C 4E 28 63 READLN(c
0165A0: 68 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 h);..
0165B0: 20 20 20 20 20 20 20 45 4E 44 0D 0A 20 20 20 20 END..
0165C0: 20 20 20 20 20 20 20 20 20 20 45 4C 53 45 20 28 ELSE (
0165D0: 2A 20 53 7C 67 20 65 66 74 65 72 20 6E 61 76 6E * S|g efter navn
0165E0: 65 74 20 76 69 61 20 72 65 6B 75 72 73 69 76 74 et via rekursivt
0165F0: 20 6B 61 6C 64 20 2A 29 0D 0A 20 20 20 20 20 20 kald *)..
016600: 20 20 20 20 20 20 20 20 20 20 20 20 20 27 55 27 'U'
016610: 2C 20 27 75 27 20 3A 20 75 64 73 6B 72 69 76 28 , 'u' : udskriv(
016620: 74 6F 70 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 top);..
016630: 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 END;..
016640: 20 20 20 20 20 20 20 55 4E 54 49 4C 20 63 68 20 UNTIL ch
016650: 49 4E 20 28 2E 27 41 27 2C 20 27 61 27 2E 29 3B IN (.'A', 'a'.);
016660: 0D 0A 20 20 20 20 20 20 20 20 20 20 45 4E 44 2E .. END.
016670: 20 28 2A 20 6B 61 65 64 65 33 20 2A 29 0D 0A 1A (* kaede3 *)...
016680: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016690: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0166A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0166B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0166C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0166D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0166E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0166F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016700: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016710: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016720: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016730: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016740: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016750: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016760: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016770: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016780: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016790: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0167A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0167B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0167C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0167D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0167E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0167F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016800: 20 20 20 20 20 20 20 20 20 20 66 6A 65 72 6E 28 fjern(
016810: 66 6F 65 72 73 74 65 5E 2E 6E 61 65 73 74 65 2C foerste^.naeste,
016820: 20 67 6C 70 6F 73 74 29 3B 0D 0A 20 20 20 20 20 glpost);..
016830: 20 20 20 20 20 20 20 45 4E 44 3B 20 28 2A 20 66 END; (* f
016840: 6A 65 72 6E 20 2A 29 0D 0A 20 20 20 20 20 20 20 jern *)..
016850: 20 20 20 0D 0A 20 20 20 20 20 20 20 20 20 20 50 .. P
016860: 52 4F 43 45 44 55 52 45 20 75 64 73 6B 72 69 76 ROCEDURE udskriv
016870: 28 66 6F 65 72 73 74 65 20 3A 20 6C 69 6E 6B 29 (foerste : link)
016880: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 0D 0A 20 ;.. ..
016890: 20 20 20 20 20 20 20 20 20 20 20 56 41 52 0D 0A VAR..
0168A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 70 pp
0168B0: 20 3A 20 6C 69 6E 6B 3B 0D 0A 20 20 20 20 20 20 : link;..
0168C0: 20 20 20 20 20 20 20 20 63 68 20 3A 20 43 48 41 ch : CHA
0168D0: 52 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 R;..
0168E0: 20 20 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 ..
0168F0: 42 45 47 49 4E 20 28 2A 20 75 64 73 6B 72 69 76 BEGIN (* udskriv
016900: 20 2A 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20 *)..
016910: 20 20 20 70 70 20 3A 3D 20 66 6F 65 72 73 74 65 pp := foerste
016920: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ;..
016930: 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 20 WRITELN;..
016940: 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E WRITELN
016950: 28 27 4B 7B 64 65 6E 20 69 6E 64 65 68 6F 6C 64 ('K{den indehold
016960: 65 72 20 66 7C 6C 67 65 6E 64 65 20 70 65 72 73 er f|lgende pers
016970: 6F 6E 65 72 3A 27 29 3B 0D 0A 20 20 20 20 20 20 oner:');..
016980: 20 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E 3B WRITELN;
016990: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
0169A0: 57 48 49 4C 45 20 70 70 20 3C 3E 20 4E 49 4C 20 WHILE pp <> NIL
0169B0: 44 4F 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 DO..
0169C0: 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 BEGIN..
0169D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 WRI
0169E0: 54 45 4C 4E 28 70 70 5E 2E 6E 61 76 6E 29 3B 0D TELN(pp^.navn);.
0169F0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
016A00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
016A10: 13 00 01 00 02 09 52 E5 13 00 41 02 00 00 00 02 ......R...A.....
016A20: 13 00 46 02 00 00 00 02 13 00 42 02 00 00 00 02 ..F.......B.....
016A30: 13 00 47 02 00 00 00 02 13 00 43 02 00 00 00 02 ..G.......C.....
016A40: 13 00 48 02 00 00 00 02 13 00 44 02 00 00 00 02 ..H.......D.....
016A50: 13 00 49 02 00 00 00 02 13 00 45 02 00 00 00 02 ..I.......E.....
016A60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016A70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016A80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016A90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016AA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016AB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016AC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016AD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016AE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016AF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016B00: C4 21 C0 5A 06 24 3A 6B 98 4F CD B3 78 3D 21 53 .!.Z.$:k.O..x=!S
016B10: 68 06 00 4F 09 09 7E 32 A9 98 23 7E 32 AA 98 C9 h..O..~2..#~2...
016B20: FF 0F FD 3F 3F FF BF 3F 7F BF FF BF BF 3F 3F FF ...??..?.....??.
016B30: BF FF FF 7F 7F FF BF BF 7F 3F BF FF 03 FD BF FF .........?......
016B40: 03 FD 7F FF BF BF 3F 3F BF FF 03 FD BF FF 03 FD ......??........
016B50: 7F FF BF 05 FD FF 03 FD BF FF 03 FD 7F FF BF BF ................
016B60: FF BF BF 3F 7F FF BF FF 03 FD 7F FF BF BF FF BF ...?............
016B70: BF FF 03 FD BF FF 03 FD 7F FF BF BF FF BF BF FF ................
016B80: 03 FD BF FF 03 FD 7F FF BF BF FF BF BF FF 03 FD ................
016B90: BF FF FF 7F 7F FF BF BF FF BF BF FF 04 FD 3F 3F ..............??
016BA0: FF BF 3F 7F BF FF BF BF 3F 3F FF 0F FD 22 01 04 ..?.....??..."..
016BB0: 04 D9 64 26 01 03 04 E9 64 29 01 06 04 F5 64 2F ..d&....d)....d/
016BC0: 01 03 04 0D 65 32 01 08 04 19 65 3A 01 04 04 39 ....e2....e:...9
016BD0: 65 22 0B 04 0D 49 65 26 0B 03 0D 7D 65 29 0B 06 e"...Ie&...}e)..
016BE0: 0D A4 65 2F 0B 03 0D F2 65 32 0B 08 0D 19 66 3A ..e/....e2....f:
016BF0: 0B 04 0D 81 66 21 63 98 11 D5 98 06 04 7E 12 23 ....f!c......~.#
016C00: 13 10 FA CD DE 4B CD F2 9D 32 D2 98 FE 07 28 45 .....K...2....(E
016C10: FE 0B 28 41 FE 02 28 4B FE 03 28 47 FE 0C 28 43 ..(A..(K..(G..(C
016C20: 21 4F 9C CD EB 9E CD EE 98 CD 02 9E CD E1 4D 3A !O............M:
016C30: 62 98 FE 0C 28 3B CD DE 4B CD F2 9D 47 3A D2 98 b...(;..K...G:..
016C40: B8 28 12 78 FE 07 28 1B 06 05 CD D6 4D CD E1 4D .(.x..(.....M..M
016C50: CD EE 98 18 E1 CD 29 9F 06 05 CD D6 4D CD EE 98 ......).....M...
016C60: C3 BF 4C CD 68 9F 06 05 CD D6 4D CD EE 98 C3 BF ..L.h.....M.....
016C70: 4C CD 6A 9E CD 88 77 CD 7B 9A CD 92 9E CD BA 9E L.j...w.{.......
016C80: 3E 00 32 D4 98 CD DE 4B CD EE 98 CD F2 9D 32 DE >.2....K......2.
016C90: 98 18 59 FE 07 20 22 21 D4 98 7E E6 01 FE 01 28 ..Y.. "!..~....(
016CA0: 03 CD 68 9F 21 D4 98 7E E6 02 FE 02 28 03 CD BE ..h.!..~....(...
016CB0: 9F 06 05 CD D6 4D C3 BF 4C 21 D4 98 7E FE 03 28 .....M..L!..~..(
016CC0: F0 CD EE 98 06 05 CD D6 4D CD E1 4D CD DE 4B CD ........M..M..K.
016CD0: F2 9D 47 3A D2 98 B8 20 05 CD 8E 9D 18 DB 3A DE ..G:... ......:.
016CE0: 98 B8 20 05 CD 9F 9D 18 D0 78 18 A7 3A DE 98 FE .. ......x..:...
016CF0: 02 28 3F FE 03 28 3B FE 0C 28 37 FE 0B 28 48 FE .(?..(;..(7..(H.
016D00: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
016D10: 20 54 48 45 4E 0D 0A 20 20 20 20 20 20 20 20 20 THEN..
016D20: 20 20 20 20 20 20 20 20 20 42 45 47 49 4E 0D 0A BEGIN..
016D30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
016D40: 20 20 20 20 57 52 49 54 45 28 67 6C 70 6F 73 74 WRITE(glpost
016D50: 5E 2E 6E 61 76 6E 2C 20 27 20 66 69 6E 64 65 73 ^.navn, ' findes
016D60: 20 69 6B 6B 65 20 69 20 6B 7B 64 65 6E 27 2C 0D ikke i k{den',.
016D70: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
016D80: 20 20 20 20 20 20 20 20 20 20 20 20 20 27 20 54 ' T
016D90: 61 73 74 20 3C 52 45 54 55 52 4E 3E 3A 20 27 29 ast <RETURN>: ')
016DA0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ;..
016DB0: 20 20 20 20 20 20 20 52 45 41 44 4C 4E 28 63 68 READLN(ch
016DC0: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 );..
016DD0: 20 20 20 20 20 20 45 4E 44 0D 0A 20 20 20 20 20 END..
016DE0: 20 20 20 20 20 20 20 20 20 45 4C 53 45 20 49 46 ELSE IF
016DF0: 20 66 6F 65 72 73 74 65 5E 2E 6E 61 76 6E 20 3D foerste^.navn =
016E00: 20 67 6C 70 6F 73 74 5E 2E 6E 61 76 6E 20 28 2A glpost^.navn (*
016E10: 20 66 6A 65 72 6E 20 70 6F 73 74 20 31 20 2A 29 fjern post 1 *)
016E20: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
016E30: 20 20 54 48 45 4E 0D 0A 20 20 20 20 20 20 20 20 THEN..
016E40: 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4E 0D BEGIN.
016E50: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
016E60: 20 20 20 20 20 75 64 20 3A 3D 20 66 6F 65 72 73 ud := foers
016E70: 74 65 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 te;..
016E80: 20 20 20 20 20 20 20 20 20 66 6F 65 72 73 74 65 foerste
016E90: 20 3A 3D 20 66 6F 65 72 73 74 65 5E 2E 6E 61 65 := foerste^.nae
016EA0: 73 74 65 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 ste;..
016EB0: 20 20 20 20 20 20 20 20 20 20 66 72 69 67 6F 65 frigoe
016EC0: 72 28 75 64 29 3B 0D 0A 20 20 20 20 20 20 20 20 r(ud);..
016ED0: 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 WRIT
016EE0: 45 28 67 6C 70 6F 73 74 5E 2E 6E 61 76 6E 2C 20 E(glpost^.navn,
016EF0: 27 20 65 72 20 6E 75 20 73 6C 65 74 74 65 74 20 ' er nu slettet
016F00: 20 20 20 20 20 20 20 20 50 52 4F 47 52 41 4D 20 PROGRAM
016F10: 6B 61 65 64 65 34 3B 0D 0A 20 20 20 20 20 20 20 kaede4;..
016F20: 20 0D 0A 20 20 20 20 20 20 20 20 20 20 54 59 50 .. TYP
016F30: 45 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 73 E.. s
016F40: 74 72 34 30 20 3D 20 53 54 52 49 4E 47 28 2E 34 tr40 = STRING(.4
016F50: 30 2E 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 0.);..
016F60: 20 20 6C 69 6E 6B 20 3D 20 5E 20 70 6F 73 74 3B link = ^ post;
016F70: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 70 6F .. po
016F80: 73 74 20 3D 20 52 45 43 4F 52 44 0D 0A 20 20 20 st = RECORD..
016F90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
016FA0: 20 20 6E 61 65 73 74 65 20 3A 20 6C 69 6E 6B 3B naeste : link;
016FB0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
016FC0: 20 20 20 20 20 20 20 6E 61 76 6E 20 3A 20 73 74 navn : st
016FD0: 72 34 30 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 r40;..
016FE0: 20 20 20 20 20 20 20 20 20 20 20 61 64 72 65 73 adres
016FF0: 73 65 20 3A 20 73 74 72 34 30 3B 0D 0A 20 20 20 se : str40;..
017000: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
017010: 45 4E 44 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 END;..
017020: 0D 0A 20 20 20 20 20 20 20 20 20 20 56 41 52 0D .. VAR.
017030: 0A 20 20 20 20 20 20 20 20 20 20 20 20 75 64 2C . ud,
017040: 20 74 6F 70 2C 20 70 70 2C 20 66 72 69 6C 69 73 top, pp, frilis
017050: 74 65 20 3A 20 6C 69 6E 6B 3B 0D 0A 20 20 20 20 te : link;..
017060: 20 20 20 20 20 20 20 20 63 68 20 3A 20 43 48 41 ch : CHA
017070: 52 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 0D 0A R;.. ..
017080: 20 20 20 20 20 20 20 20 20 20 50 52 4F 43 45 44 PROCED
017090: 55 52 45 20 66 72 69 67 6F 65 72 28 70 70 20 3A URE frigoer(pp :
0170A0: 20 6C 69 6E 6B 29 3B 0D 0A 20 20 20 20 20 20 20 link);..
0170B0: 20 20 20 0D 0A 20 20 20 20 20 20 20 20 20 20 20 ..
0170C0: 20 42 45 47 49 4E 20 28 2A 20 66 72 69 67 6F 65 BEGIN (* frigoe
0170D0: 72 20 2A 29 0D 0A 20 20 20 20 20 20 20 20 20 20 r *)..
0170E0: 20 20 20 20 70 70 5E 2E 6E 61 65 73 74 65 20 3A pp^.naeste :
0170F0: 3D 20 66 72 69 6C 69 73 74 65 3B 0D 0A 20 20 20 = friliste;..
017100: 66 72 61 20 6B 7B 64 65 6E 2E 20 27 2C 0D 0A 20 fra k{den. ',..
017110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
017120: 20 20 20 20 20 20 20 20 20 20 20 27 54 61 73 74 'Tast
017130: 20 3C 52 45 54 55 52 4E 3E 3A 20 27 29 3B 0D 0A <RETURN>: ');..
017140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
017150: 20 20 20 20 52 45 41 44 4C 4E 28 63 68 29 3B 0D READLN(ch);.
017160: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
017170: 20 20 20 45 4E 44 0D 0A 20 20 20 20 20 20 20 20 END..
017180: 20 20 20 20 20 20 45 4C 53 45 20 28 2A 20 53 7C ELSE (* S|
017190: 67 20 65 66 74 65 72 20 6E 61 76 6E 65 74 20 76 g efter navnet v
0171A0: 69 61 20 72 65 6B 75 72 73 69 76 74 20 6B 61 6C ia rekursivt kal
0171B0: 64 20 2A 29 0D 0A 20 20 20 20 20 20 20 20 20 20 d *)..
0171C0: 20 20 20 20 20 20 66 6A 65 72 6E 28 66 6F 65 72 fjern(foer
0171D0: 73 74 65 5E 2E 6E 61 65 73 74 65 2C 20 67 6C 70 ste^.naeste, glp
0171E0: 6F 73 74 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 ost);..
0171F0: 20 20 20 45 4E 44 3B 20 28 2A 20 66 6A 65 72 6E END; (* fjern
017200: 20 2A 29 0D 0A 20 20 20 20 20 20 20 20 20 20 0D *).. .
017210: 0A 20 20 20 20 20 20 20 20 20 20 50 52 4F 43 45 . PROCE
017220: 44 55 52 45 20 75 64 73 6B 72 69 76 28 66 6F 65 DURE udskriv(foe
017230: 72 73 74 65 20 3A 20 6C 69 6E 6B 29 3B 0D 0A 20 rste : link);..
017240: 20 20 20 20 20 20 20 20 20 0D 0A 20 20 20 20 20 ..
017250: 20 20 20 20 20 20 20 56 41 52 0D 0A 20 20 20 20 VAR..
017260: 20 20 20 20 20 20 20 20 20 20 70 70 20 3A 20 6C pp : l
017270: 69 6E 6B 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 ink;..
017280: 20 20 20 20 63 68 20 3A 20 43 48 41 52 3B 0D 0A ch : CHAR;..
017290: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0D 0A ..
0172A0: 20 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 BEGI
0172B0: 4E 20 28 2A 20 75 64 73 6B 72 69 76 20 2A 29 0D N (* udskriv *).
0172C0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 . p
0172D0: 70 20 3A 3D 20 66 6F 65 72 73 74 65 3B 0D 0A 20 p := foerste;..
0172E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 WRI
0172F0: 54 45 4C 4E 3B 0D 0A 20 20 20 20 20 20 20 20 20 TELN;..
017300: 20 20 20 20 20 20 20 20 20 20 20 66 72 69 6C 69 frili
017310: 73 74 65 20 3A 3D 20 70 70 3B 0D 0A 20 20 20 20 ste := pp;..
017320: 20 20 20 20 20 20 20 20 45 4E 44 3B 20 28 2A 20 END; (*
017330: 66 72 69 67 6F 65 72 20 2A 29 0D 0A 20 20 20 20 frigoer *)..
017340: 20 20 20 20 20 20 0D 0A 20 20 20 20 20 20 20 20 ..
017350: 20 20 50 52 4F 43 45 44 55 52 45 20 6F 70 72 65 PROCEDURE opre
017360: 74 28 56 41 52 20 70 70 20 3A 20 6C 69 6E 6B 29 t(VAR pp : link)
017370: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 0D 0A 20 ;.. ..
017380: 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4E BEGIN
017390: 20 28 2A 20 6F 70 72 65 74 20 2A 29 0D 0A 20 20 (* opret *)..
0173A0: 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 66 IF f
0173B0: 72 69 6C 69 73 74 65 20 3D 20 4E 49 4C 0D 0A 20 riliste = NIL..
0173C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 T
0173D0: 48 45 4E 20 4E 45 57 28 70 70 29 0D 0A 20 20 20 HEN NEW(pp)..
0173E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4C 53 ELS
0173F0: 45 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 E..
017400: 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 BEGIN..
017410: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
017420: 70 70 20 3A 3D 20 66 72 69 6C 69 73 74 65 3B 0D pp := friliste;.
017430: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
017440: 20 20 20 20 20 66 72 69 6C 69 73 74 65 20 3A 3D friliste :=
017450: 20 66 72 69 6C 69 73 74 65 5E 2E 6E 61 65 73 74 friliste^.naest
017460: 65 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 e;..
017470: 20 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 END;..
017480: 20 20 20 20 20 20 20 20 20 20 70 70 5E 2E 6E 61 pp^.na
017490: 65 73 74 65 20 3A 3D 20 4E 49 4C 3B 0D 0A 20 20 este := NIL;..
0174A0: 20 20 20 20 20 20 20 20 20 20 45 4E 44 3B 20 28 END; (
0174B0: 2A 20 6F 70 72 65 74 20 2A 29 0D 0A 20 20 20 20 * opret *)..
0174C0: 20 20 20 20 20 20 0D 0A 20 20 20 20 20 20 20 20 ..
0174D0: 20 20 50 52 4F 43 45 44 55 52 45 20 69 6E 64 73 PROCEDURE inds
0174E0: 61 65 74 28 56 41 52 20 66 6F 65 72 73 74 65 20 aet(VAR foerste
0174F0: 3A 20 6C 69 6E 6B 3B 20 6E 79 70 6F 73 74 20 3A : link; nypost :
017500: 20 20 20 20 20 57 52 49 54 45 4C 4E 28 27 4B 7B WRITELN('K{
017510: 64 65 6E 20 69 6E 64 65 68 6F 6C 64 65 72 20 66 den indeholder f
017520: 7C 6C 67 65 6E 64 65 20 70 65 72 73 6F 6E 65 72 |lgende personer
017530: 3A 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 :');..
017540: 20 20 20 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 WRITELN;..
017550: 20 20 20 20 20 20 20 20 20 20 20 20 57 48 49 4C WHIL
017560: 45 20 70 70 20 3C 3E 20 4E 49 4C 20 44 4F 0D 0A E pp <> NIL DO..
017570: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
017580: 42 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 BEGIN..
017590: 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E WRITELN
0175A0: 28 70 70 5E 2E 6E 61 76 6E 29 3B 0D 0A 20 20 20 (pp^.navn);..
0175B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 W
0175C0: 52 49 54 45 4C 4E 28 70 70 5E 2E 61 64 72 65 73 RITELN(pp^.adres
0175D0: 73 65 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 se);..
0175E0: 20 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E 3B WRITELN;
0175F0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
017600: 20 20 20 20 70 70 20 3A 3D 20 70 70 5E 2E 6E 61 pp := pp^.na
017610: 65 73 74 65 3B 0D 0A 20 20 20 20 20 20 20 20 20 este;..
017620: 20 20 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 END;..
017630: 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 WRITE
017640: 28 27 54 61 73 74 20 3C 52 45 54 55 52 4E 3E 3A ('Tast <RETURN>:
017650: 20 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 ');..
017660: 20 20 20 20 52 45 41 44 4C 4E 28 63 68 29 3B 0D READLN(ch);.
017670: 0A 20 20 20 20 20 20 20 20 20 20 20 20 45 4E 44 . END
017680: 3B 20 28 2A 20 75 64 73 6B 72 69 76 20 2A 29 0D ; (* udskriv *).
017690: 0A 20 20 20 20 20 20 20 20 20 20 0D 0A 20 20 20 . ..
0176A0: 20 20 20 20 20 20 20 42 45 47 49 4E 20 28 2A 20 BEGIN (*
0176B0: 6B 61 65 64 65 34 20 2A 29 0D 0A 20 20 20 20 20 kaede4 *)..
0176C0: 20 20 20 20 20 20 20 74 6F 70 20 3A 3D 20 4E 49 top := NI
0176D0: 4C 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 L;..
0176E0: 66 72 69 6C 69 73 74 65 20 3A 3D 20 4E 49 4C 3B friliste := NIL;
0176F0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 4E 45 .. NE
017700: 20 6C 69 6E 6B 29 3B 0D 0A 20 20 20 20 20 20 20 link);..
017710: 20 20 20 20 20 0D 0A 20 20 20 20 20 20 20 20 20 ..
017720: 20 20 20 56 41 52 0D 0A 20 20 20 20 20 20 20 20 VAR..
017730: 20 20 20 20 20 20 63 68 20 3A 20 43 48 41 52 3B ch : CHAR;
017740: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 0D 0A .. ..
017750: 20 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 BEGI
017760: 4E 20 28 2A 20 69 6E 64 73 61 65 74 20 2A 29 0D N (* indsaet *).
017770: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 . I
017780: 46 20 66 6F 65 72 73 74 65 20 3D 20 4E 49 4C 20 F foerste = NIL
017790: 28 2A 20 6B 7B 64 65 6E 20 65 72 20 74 6F 6D 20 (* k{den er tom
0177A0: 2A 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 *)..
0177B0: 20 20 20 20 54 48 45 4E 20 66 6F 65 72 73 74 65 THEN foerste
0177C0: 20 3A 3D 20 6E 79 70 6F 73 74 0D 0A 20 20 20 20 := nypost..
0177D0: 20 20 20 20 20 20 20 20 20 20 45 4C 53 45 20 49 ELSE I
0177E0: 46 20 6E 79 70 6F 73 74 5E 2E 6E 61 76 6E 20 3C F nypost^.navn <
0177F0: 20 66 6F 65 72 73 74 65 5E 2E 6E 61 76 6E 20 28 foerste^.navn (
017800: 2A 20 66 7C 72 20 66 7C 72 73 74 65 20 70 6F 73 * f|r f|rste pos
017810: 74 20 2A 29 0D 0A 20 20 20 20 20 20 20 20 20 20 t *)..
017820: 20 20 20 20 20 20 54 48 45 4E 0D 0A 20 20 20 20 THEN..
017830: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 45 BE
017840: 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 GIN..
017850: 20 20 20 20 20 20 20 20 20 6E 79 70 6F 73 74 5E nypost^
017860: 2E 6E 61 65 73 74 65 20 3A 3D 66 6F 65 72 73 74 .naeste :=foerst
017870: 65 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 e;..
017880: 20 20 20 20 20 20 20 20 66 6F 65 72 73 74 65 20 foerste
017890: 3A 3D 6E 79 70 6F 73 74 3B 0D 0A 20 20 20 20 20 :=nypost;..
0178A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 W
0178B0: 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 20 20 20 RITELN;..
0178C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 WRI
0178D0: 54 45 28 6E 79 70 6F 73 74 5E 2E 6E 61 76 6E 2C TE(nypost^.navn,
0178E0: 20 27 20 65 72 20 6E 75 20 69 6E 64 73 61 74 20 ' er nu indsat
0178F0: 69 20 6B 7B 64 65 6E 2E 20 27 2C 0D 0A 20 20 20 i k{den. ',..
017900: 57 28 75 64 29 3B 0D 0A 20 20 20 20 20 20 20 20 W(ud);..
017910: 20 20 20 20 52 45 50 45 41 54 0D 0A 20 20 20 20 REPEAT..
017920: 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 28 WRITE(
017930: 43 4C 52 48 4F 4D 29 3B 0D 0A 20 20 20 20 20 20 CLRHOM);..
017940: 20 20 20 20 20 20 20 20 47 4F 54 4F 58 59 28 31 GOTOXY(1
017950: 30 2C 34 29 3B 20 57 52 49 54 45 28 27 53 4F 52 0,4); WRITE('SOR
017960: 54 45 52 45 54 20 4B 5B 44 45 27 29 3B 0D 0A 20 TERET K[DE');..
017970: 20 20 20 20 20 20 20 20 20 20 20 20 20 47 4F 54 GOT
017980: 4F 58 59 28 31 30 2C 37 29 3B 20 57 52 49 54 45 OXY(10,7); WRITE
017990: 28 27 49 2E 20 49 6E 64 73 7B 74 20 70 65 72 73 ('I. Inds{t pers
0179A0: 6F 6E 20 69 20 6B 7B 64 65 6E 2E 27 29 3B 0D 0A on i k{den.');..
0179B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 4F GO
0179C0: 54 4F 58 59 28 31 30 2C 39 29 3B 20 57 52 49 54 TOXY(10,9); WRIT
0179D0: 45 28 27 46 2E 20 46 6A 65 72 6E 65 20 70 65 72 E('F. Fjerne per
0179E0: 73 6F 6E 20 66 72 61 20 6B 7B 64 65 6E 2E 27 29 son fra k{den.')
0179F0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ;..
017A00: 20 47 4F 54 4F 58 59 28 31 30 2C 31 31 29 3B 20 GOTOXY(10,11);
017A10: 57 52 49 54 45 28 27 55 2E 20 55 64 73 6B 72 69 WRITE('U. Udskri
017A20: 76 65 20 6B 7B 64 65 6E 2E 27 29 3B 0D 0A 20 20 ve k{den.');..
017A30: 20 20 20 20 20 20 20 20 20 20 20 20 47 4F 54 4F GOTO
017A40: 58 59 28 31 30 2C 31 33 29 3B 20 57 52 49 54 45 XY(10,13); WRITE
017A50: 28 27 41 2E 20 41 66 73 6C 75 74 74 65 20 70 72 ('A. Afslutte pr
017A60: 6F 67 72 61 6D 6D 65 74 2E 27 29 3B 0D 0A 20 20 ogrammet.');..
017A70: 20 20 20 20 20 20 20 20 20 20 20 20 47 4F 54 4F GOTO
017A80: 58 59 28 31 30 2C 31 35 29 3B 20 57 52 49 54 45 XY(10,15); WRITE
017A90: 28 27 4C 2E 20 4C 65 64 69 67 20 6C 61 67 65 72 ('L. Ledig lager
017AA0: 70 6C 61 64 73 2E 27 29 3B 0D 0A 20 20 20 20 20 plads.');..
017AB0: 20 20 20 20 20 20 20 20 20 47 4F 54 4F 58 59 28 GOTOXY(
017AC0: 31 30 2C 31 37 29 3B 20 57 52 49 54 45 28 27 54 10,17); WRITE('T
017AD0: 61 73 74 20 6B 6F 6D 6D 61 6E 64 6F 3A 20 27 29 ast kommando: ')
017AE0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ;..
017AF0: 20 52 45 50 45 41 54 0D 0A 20 20 20 20 20 20 20 REPEAT..
017B00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
017B10: 20 20 20 20 20 20 20 27 54 61 73 74 20 3C 52 45 'Tast <RE
017B20: 54 55 52 4E 3E 3A 20 27 29 3B 0D 0A 20 20 20 20 TURN>: ');..
017B30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
017B40: 52 45 41 44 4C 4E 28 63 68 29 3B 0D 0A 20 20 20 READLN(ch);..
017B50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4E EN
017B60: 44 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 D..
017B70: 20 45 4C 53 45 20 28 2A 20 66 69 6E 64 20 72 69 ELSE (* find ri
017B80: 67 74 69 67 20 70 6C 61 64 73 20 74 69 6C 20 6E gtig plads til n
017B90: 79 70 6F 73 74 20 76 69 61 20 72 65 6B 75 72 73 ypost via rekurs
017BA0: 69 76 74 20 6B 61 6C 64 20 2A 29 0D 0A 20 20 20 ivt kald *)..
017BB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 69 6E 64 ind
017BC0: 73 61 65 74 28 66 6F 65 72 73 74 65 5E 2E 6E 61 saet(foerste^.na
017BD0: 65 73 74 65 2C 20 6E 79 70 6F 73 74 29 3B 0D 0A este, nypost);..
017BE0: 20 20 20 20 20 20 20 20 20 20 20 20 45 4E 44 3B END;
017BF0: 20 28 2A 20 69 6E 64 73 61 65 74 20 2A 29 0D 0A (* indsaet *)..
017C00: 20 20 20 20 20 20 20 20 20 20 0D 0A 20 20 20 20 ..
017C10: 20 20 20 20 20 20 50 52 4F 43 45 44 55 52 45 20 PROCEDURE
017C20: 66 6A 65 72 6E 28 56 41 52 20 66 6F 65 72 73 74 fjern(VAR foerst
017C30: 65 20 3A 20 6C 69 6E 6B 3B 20 56 41 52 20 67 6C e : link; VAR gl
017C40: 70 6F 73 74 20 3A 20 6C 69 6E 6B 29 3B 0D 0A 20 post : link);..
017C50: 20 20 20 20 20 20 20 20 20 20 20 0D 0A 20 20 20 ..
017C60: 20 20 20 20 20 20 20 20 20 56 41 52 0D 0A 20 20 VAR..
017C70: 20 20 20 20 20 20 20 20 20 20 20 20 63 68 20 3A ch :
017C80: 20 43 48 41 52 3B 0D 0A 20 20 20 20 20 20 20 20 CHAR;..
017C90: 20 20 20 20 20 20 75 64 20 3A 20 6C 69 6E 6B 3B ud : link;
017CA0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
017CB0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 42 45 .. BE
017CC0: 47 49 4E 20 28 2A 20 66 6A 65 72 6E 20 2A 29 0D GIN (* fjern *).
017CD0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 . I
017CE0: 46 20 66 6F 65 72 73 74 65 20 3D 20 4E 49 4C 20 F foerste = NIL
017CF0: 28 2A 20 6B 7B 64 65 6E 20 74 6F 6D 20 2A 29 0D (* k{den tom *).
017D00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
017D10: 14 00 01 00 02 09 52 E5 14 00 41 02 00 00 00 02 ......R...A.....
017D20: 14 00 46 02 00 00 00 02 14 00 42 02 00 00 00 02 ..F.......B.....
017D30: 14 00 47 02 00 00 00 02 14 00 43 02 00 00 00 02 ..G.......C.....
017D40: 14 00 48 02 00 00 00 02 14 00 44 02 00 00 00 02 ..H.......D.....
017D50: 14 00 49 02 00 00 00 02 14 00 45 02 00 00 00 02 ..I.......E.....
017D60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017D70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017D80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017D90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017DA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017DB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017DC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017DD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017DE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017DF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017E00: 20 20 20 20 20 20 20 20 20 52 45 41 44 28 4B 42 READ(KB
017E10: 44 2C 20 63 68 29 3B 0D 0A 20 20 20 20 20 20 20 D, ch);..
017E20: 20 20 20 20 20 20 20 55 4E 54 49 4C 20 63 68 20 UNTIL ch
017E30: 49 4E 20 28 2E 27 49 27 2C 20 27 69 27 2C 20 27 IN (.'I', 'i', '
017E40: 46 27 2C 20 27 66 27 2C 20 27 55 27 2C 20 27 75 F', 'f', 'U', 'u
017E50: 27 2C 20 27 41 27 2C 20 27 61 27 2C 0D 0A 20 20 ', 'A', 'a',..
017E60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
017E70: 20 20 20 20 20 20 20 20 20 20 27 4C 27 2C 20 27 'L', '
017E80: 6C 27 2E 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 l'.);..
017E90: 20 20 20 20 20 57 52 49 54 45 4C 4E 28 63 68 29 WRITELN(ch)
017EA0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ;..
017EB0: 20 43 41 53 45 20 63 68 20 4F 46 0D 0A 20 20 20 CASE ch OF..
017EC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 27 49 27 'I'
017ED0: 2C 20 27 69 27 20 3A 20 42 45 47 49 4E 0D 0A 20 , 'i' : BEGIN..
017EE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
017EF0: 20 20 20 20 20 20 20 20 20 20 20 20 6F 70 72 65 opre
017F00: 74 28 70 70 29 3B 0D 0A 20 20 20 20 20 20 20 20 t(pp);..
017F10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
017F20: 20 20 20 20 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 WRITELN;..
017F30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
017F40: 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 WRIT
017F50: 45 28 27 4E 61 76 6E 3A 20 27 29 3B 20 52 45 41 E('Navn: '); REA
017F60: 44 4C 4E 28 70 70 5E 2E 6E 61 76 6E 29 3B 0D 0A DLN(pp^.navn);..
017F70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
017F80: 20 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 WRI
017F90: 54 45 28 27 41 64 72 65 73 73 65 3A 20 27 29 3B TE('Adresse: ');
017FA0: 20 52 45 41 44 4C 4E 28 70 70 5E 2E 61 64 72 65 READLN(pp^.adre
017FB0: 73 73 65 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 sse);..
017FC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
017FD0: 20 20 20 20 69 6E 64 73 61 65 74 28 74 6F 70 2C indsaet(top,
017FE0: 20 70 70 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 pp);..
017FF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018000: 6B 6F 64 65 3B 0D 0A 20 20 20 20 20 20 20 20 20 kode;..
018010: 20 20 20 20 20 20 20 55 4E 54 49 4C 20 63 68 3C UNTIL ch<
018020: 3E 27 20 27 3B 0D 0A 20 20 20 20 20 20 20 20 45 >' ';.. E
018030: 4E 44 3B 0D 0A 20 20 20 20 20 20 20 20 0D 0A 20 ND;.. ..
018040: 20 20 20 20 20 20 20 7B 2D 2D 2D 2D 2D 2D 2D 2D {--------
018050: 2D 2D 2D 2D 2D 2D 2D 2D 20 20 70 6C 75 73 2D 6D -------- plus-m
018060: 69 6E 75 73 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D inus ----------
018070: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 7D 0D 0A 20 20 -----------}..
018080: 20 20 20 20 20 20 46 55 4E 43 54 49 4F 4E 20 70 FUNCTION p
018090: 6C 75 73 5F 6D 69 6E 75 73 20 3A 20 72 65 61 6C lus_minus : real
0180A0: 3B 20 20 46 4F 52 57 41 52 44 3B 0D 0A 20 20 20 ; FORWARD;..
0180B0: 20 20 20 20 20 0D 0A 20 20 20 20 20 20 20 20 7B .. {
0180C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0180D0: 20 20 66 61 6B 74 6F 72 20 20 2D 2D 2D 2D 2D 2D faktor ------
0180E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0180F0: 2D 2D 2D 7D 0D 0A 20 20 20 20 20 20 20 20 0D 0A ---}.. ..
018100: 20 20 20 20 20 20 20 20 46 55 4E 43 54 49 4F 4E FUNCTION
018110: 20 66 61 6B 74 6F 72 3A 20 72 65 61 6C 3B 0D 0A faktor: real;..
018120: 20 20 20 20 20 20 20 20 56 41 52 0D 0A 20 20 20 VAR..
018130: 20 20 20 20 20 20 20 20 20 20 20 20 20 70 2C 6C p,l
018140: 2C 65 20 20 20 3A 20 69 6E 74 65 67 65 72 3B 0D ,e : integer;.
018150: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
018160: 20 66 20 20 20 20 20 20 20 3A 20 72 65 61 6C 3B f : real;
018170: 0D 0A 20 20 20 20 20 20 20 20 42 45 47 49 4E 20 .. BEGIN
018180: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
018190: 20 20 49 46 20 63 68 20 49 4E 20 5B 27 30 27 2E IF ch IN ['0'.
0181A0: 2E 27 39 27 5D 20 54 48 45 4E 0D 0A 20 20 20 20 .'9'] THEN..
0181B0: 20 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 BEGI
0181C0: 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 N..
0181D0: 20 20 20 20 20 20 20 20 20 20 20 70 3A 3D 70 6F p:=po
0181E0: 73 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 s;..
0181F0: 20 20 20 20 20 20 20 20 20 20 20 20 52 45 50 45 REPE
018200: 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 20 20 END;..
018210: 20 20 20 20 20 20 20 20 27 46 27 2C 20 27 66 27 'F', 'f'
018220: 20 3A 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 20 : BEGIN..
018230: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018240: 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E 3B 0D WRITELN;.
018250: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
018260: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 52 WR
018270: 49 54 45 28 27 48 76 65 6D 20 73 6B 61 6C 20 66 ITE('Hvem skal f
018280: 6A 65 72 6E 65 73 3A 20 27 29 3B 0D 0A 20 20 20 jernes: ');..
018290: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0182A0: 20 20 20 20 20 20 20 20 20 20 52 45 41 44 4C 4E READLN
0182B0: 28 75 64 5E 2E 6E 61 76 6E 29 3B 0D 0A 20 20 20 (ud^.navn);..
0182C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0182D0: 20 20 20 20 20 20 20 20 20 20 66 6A 65 72 6E 28 fjern(
0182E0: 74 6F 70 2C 20 75 64 29 3B 0D 0A 20 20 20 20 20 top, ud);..
0182F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018300: 20 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 END;..
018310: 20 20 20 20 20 20 20 20 20 20 20 20 27 55 27 2C 'U',
018320: 20 27 75 27 20 3A 20 75 64 73 6B 72 69 76 28 74 'u' : udskriv(t
018330: 6F 70 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 op);..
018340: 20 20 20 20 20 20 27 4C 27 2C 20 27 6C 27 20 3A 'L', 'l' :
018350: 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 BEGIN..
018360: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018370: 20 20 20 20 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 WRITELN;..
018380: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018390: 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 WRIT
0183A0: 45 28 27 52 65 73 74 20 6C 61 67 65 72 3A 20 27 E('Rest lager: '
0183B0: 2C 20 4D 45 4D 41 56 41 49 4C 2C 20 27 20 62 79 , MEMAVAIL, ' by
0183C0: 74 65 73 2E 27 29 3B 0D 0A 20 20 20 20 20 20 20 tes.');..
0183D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0183E0: 20 20 20 20 20 20 57 52 49 54 45 28 27 20 54 61 WRITE(' Ta
0183F0: 73 74 20 3C 52 45 54 55 52 4E 3E 3A 20 27 29 3B st <RETURN>: ');
018400: 41 54 20 20 6C 3A 3D 70 6F 73 3B 0D 0A 20 20 20 AT l:=pos;..
018410: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018420: 20 20 20 20 20 20 20 20 20 20 20 20 20 76 69 64 vid
018430: 65 72 65 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 ere;..
018440: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 55 4E UN
018450: 54 49 4C 20 4E 4F 54 20 28 63 68 20 49 4E 20 5B TIL NOT (ch IN [
018460: 27 30 27 2E 2E 27 39 27 2C 27 2E 27 5D 29 3B 0D '0'..'9','.']);.
018470: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
018480: 20 20 20 20 20 20 20 20 20 49 46 20 28 63 68 3D IF (ch=
018490: 27 45 27 29 20 4F 52 20 28 63 68 3D 27 65 27 29 'E') OR (ch='e')
0184A0: 20 54 48 45 4E 0D 0A 20 20 20 20 20 20 20 20 20 THEN..
0184B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 B
0184C0: 45 47 49 4E 20 20 20 0D 0A 20 20 20 20 20 20 20 EGIN ..
0184D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0184E0: 20 20 20 20 20 20 20 20 20 76 69 64 65 72 65 3B videre;
0184F0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
018500: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018510: 20 20 49 46 20 20 20 20 20 20 28 63 68 3D 27 2D IF (ch='-
018520: 27 29 20 4F 52 20 28 63 68 3D 27 2B 27 29 20 54 ') OR (ch='+') T
018530: 48 45 4E 20 76 69 64 65 72 65 3B 0D 0A 20 20 20 HEN videre;..
018540: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018550: 20 20 20 20 20 20 20 20 20 20 20 20 20 57 48 49 WHI
018560: 4C 45 20 20 20 28 63 68 3D 27 30 27 29 20 41 4E LE (ch='0') AN
018570: 44 20 28 63 68 3C 3D 27 39 27 29 20 44 4F 0D 0A D (ch<='9') DO..
018580: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018590: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0185A0: 42 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 BEGIN..
0185B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0185C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6C l
0185D0: 3A 3D 70 6F 73 3B 0D 0A 20 20 20 20 20 20 20 20 :=pos;..
0185E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0185F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018600: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
018610: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 R
018620: 45 41 44 4C 4E 28 63 68 29 3B 0D 0A 20 20 20 20 EADLN(ch);..
018630: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018640: 20 20 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 END;..
018650: 20 20 20 20 20 20 20 20 20 20 20 45 4E 44 3B 0D END;.
018660: 0A 20 20 20 20 20 20 20 20 20 20 20 20 55 4E 54 . UNT
018670: 49 4C 20 63 68 20 49 4E 20 28 2E 27 41 27 2C 20 IL ch IN (.'A',
018680: 27 61 27 2E 29 3B 0D 0A 20 20 20 20 20 20 20 20 'a'.);..
018690: 20 20 45 4E 44 2E 20 28 2A 20 6B 61 65 64 65 34 END. (* kaede4
0186A0: 20 2A 29 0D 0A 1A 63 68 29 3B 0D 0A 20 20 20 20 *)...ch);..
0186B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0186C0: 20 20 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 END;..
0186D0: 20 20 20 20 20 20 20 20 20 20 20 45 4E 44 3B 0D END;.
0186E0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 55 4E 54 . UNT
0186F0: 49 4C 20 63 68 20 49 4E 20 28 2E 27 41 27 2C 20 IL ch IN (.'A',
018700: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
018710: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
018720: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
018730: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
018740: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
018750: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
018760: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
018770: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
018780: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
018790: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0187A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0187B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0187C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0187D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0187E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0187F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
018800: 76 69 64 65 72 65 3B 0D 0A 20 20 20 20 20 20 20 videre;..
018810: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018820: 20 20 20 20 20 20 20 20 20 45 4E 44 3B 0D 0A 20 END;..
018830: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018840: 20 20 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 END;..
018850: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018860: 20 20 20 20 20 76 61 6C 28 63 6F 70 79 28 73 2C val(copy(s,
018870: 70 2C 6C 2D 70 2B 31 29 2C 66 2C 65 29 3B 0D 0A p,l-p+1),f,e);..
018880: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018890: 20 20 20 20 20 20 20 20 49 46 20 65 3C 3E 30 20 IF e<>0
0188A0: 54 48 45 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 THEN..
0188B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 45 BE
0188C0: 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 GIN..
0188D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0188E0: 20 20 20 20 20 70 6F 73 3A 3D 70 2B 65 2D 31 3B pos:=p+e-1;
0188F0: 20 20 20 20 20 63 68 3A 3D 66 65 6A 6C 6B 6F 64 ch:=fejlkod
018900: 65 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 e;..
018910: 20 20 20 20 20 20 20 20 20 20 20 20 45 4E 44 3B END;
018920: 20 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
018930: 20 20 20 45 4E 44 20 45 4C 53 45 20 0D 0A 20 20 END ELSE ..
018940: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018950: 20 20 20 20 20 20 49 46 20 63 68 3D 27 28 27 20 IF ch='('
018960: 54 48 45 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 THEN..
018970: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 45 BE
018980: 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 GIN..
018990: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0189A0: 20 20 20 20 20 76 69 64 65 72 65 3B 0D 0A 20 20 videre;..
0189B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0189C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 3A f:
0189D0: 3D 70 6C 75 73 5F 6D 69 6E 75 73 3B 0D 0A 20 20 =plus_minus;..
0189E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0189F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0D 0A ..
018A00: FF 04 0D FE 00 03 0D 3F FF 04 0D F0 00 0C 0D 0F .......?........
018A10: FF 04 0D FC 1F FF 04 0D FE 00 28 0D FF 04 0D FE ..........(.....
018A20: 00 03 0D 3F FF 04 0D 80 00 0C 0D 01 FF 04 0D FC ...?............
018A30: 1F FF 04 0D FC 00 28 0D 7F FF 03 0D FE 00 03 0D ......(.........
018A40: 3F FF 03 0D FE 00 0E 0D FF 04 0D FC 1F FF 04 0D ?...............
018A50: F0 00 28 0D 1F FF 03 0D FE 00 03 0D 3F FF 03 0D ..(.........?...
018A60: FC 00 0E 0D 3F FF 03 0D FC 1F FF 04 0D E0 00 28 ....?..........(
018A70: 0D 0F FF 03 0D FE 00 03 0D 3F FF 03 0D F8 00 0E .........?......
018A80: 0D 1F FF 03 0D FC 1F FF 04 0D E0 00 28 0D 0F FF ............(...
018A90: 03 0D FE 00 03 0D 3F FF 03 0D F8 00 0E 0D 1F FF ......?.........
018AA0: 03 0D FC 1F FF 04 0D E0 00 28 0D 0F FF 03 0D FE .........(......
018AB0: 00 03 0D 3F FF 03 0D F8 00 0E 0D 1F FF 03 0D FC ...?............
018AC0: 1F FF 04 0D C0 00 28 0D 07 FF 04 0D 00 03 0D 3F ......(........?
018AD0: FF 03 0D F0 00 0E 0D 0F FF 03 0D FC 1F FF 04 0D ................
018AE0: C0 00 28 0D 07 FF 04 0D 00 03 0D 3F FF 03 0D F0 ..(........?....
018AF0: 00 0E 0D 0F FF 03 0D FC 1F FF 04 0D C0 00 28 0D ..............(.
018B00: 07 FF 04 0D 00 03 0D 3F FF 03 0D F0 00 0E 0D 0F .......?........
018B10: FF 03 0D FC 1F FF 04 0D C0 00 28 0D 07 FF 04 0D ..........(.....
018B20: 00 03 0D 3F FF 03 0D F0 00 0E 0D 0F FF 03 0D FC ...?............
018B30: 1F FF 04 0D C0 00 28 0D 07 FF 04 0D 00 03 0D 3F ......(........?
018B40: FF 03 0D F0 00 0E 0D 0F FF 03 0D FC 1F FF 04 0D ................
018B50: C0 00 28 0D 07 FF 04 0D 00 03 0D 3F FF 03 0D F0 ..(........?....
018B60: 00 0E 0D 0F FF 03 0D FC 1F FF 04 0D C0 00 28 0D ..............(.
018B70: 07 FF 04 0D 00 03 0D 3F FF 03 0D F0 00 0E 0D 0F .......?........
018B80: FF 03 0D FC 1F FF 04 0D C0 00 28 0D 07 FF 03 0D ..........(.....
018B90: FE 00 03 0D 3F FF 03 0D F0 00 0E 0D 0F FF 03 0D ....?...........
018BA0: FC 1F FF 04 0D C0 00 28 0D 07 FF 03 0D FE 00 03 .......(........
018BB0: 0D 3F FF 03 0D F0 00 0E 0D 0F FF 03 0D FC 1F FF .?..............
018BC0: 04 0D C0 00 28 0D 07 FF 03 0D FE 00 03 0D 3F FF ....(.........?.
018BD0: 03 0D F0 00 0E 0D 0F FF 03 0D FC 1F FF 04 0D C0 ................
018BE0: 00 28 0D 07 FF 03 0D FE 00 03 0D 3F FF 03 0D F0 .(.........?....
018BF0: 00 0E 0D 0F FF 03 0D FC 1F FF 04 0D C0 00 28 0D ..............(.
018C00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018C10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018C20: 7B 20 64 65 72 20 76 65 6E 64 65 73 20 74 69 6C { der vendes til
018C30: 62 61 67 65 20 68 65 72 74 69 6C 20 6E 61 61 72 bage hertil naar
018C40: 20 65 6E 20 29 20 65 72 20 69 6E 64 74 61 73 74 en ) er indtast
018C50: 65 74 20 7D 0D 0A 20 20 20 20 20 20 20 20 20 20 et }..
018C60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0D 0A ..
018C70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018C80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018C90: 49 46 20 63 68 3D 27 29 27 20 54 48 45 4E 20 76 IF ch=')' THEN v
018CA0: 69 64 65 72 65 20 45 4C 53 45 20 63 68 3A 3D 66 idere ELSE ch:=f
018CB0: 65 6A 6C 6B 6F 64 65 3B 0D 0A 20 20 20 20 20 20 ejlkode;..
018CC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018CD0: 20 20 45 4E 44 20 45 4C 53 45 0D 0A 20 20 20 20 END ELSE..
018CE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018CF0: 20 20 20 20 20 20 20 20 20 20 20 20 63 68 3A 3D ch:=
018D00: 66 65 6A 6C 6B 6F 64 65 3B 0D 0A 20 20 20 20 20 fejlkode;..
018D10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018D20: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
018D30: 20 20 20 20 20 20 20 0D 0A 20 20 20 20 20 20 20 ..
018D40: 20 20 20 20 20 20 20 20 20 66 61 6B 74 6F 72 3A faktor:
018D50: 3D 66 3B 20 20 7B 20 74 61 6C 76 61 65 72 64 69 =f; { talvaerdi
018D60: 65 6E 20 72 65 74 75 6E 65 72 65 73 20 7D 0D 0A en retuneres }..
018D70: 20 20 20 20 20 20 20 20 20 20 45 4E 44 3B 0D 0A END;..
018D80: 20 20 20 20 20 20 20 20 20 20 0D 0A 20 20 20 20 ..
018D90: 20 20 20 20 20 20 7B 2D 2D 2D 2D 2D 2D 2D 2D 2D {---------
018DA0: 2D 2D 2D 2D 2D 2D 20 20 66 6F 72 74 65 67 6E 20 ------ fortegn
018DB0: 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ---------------
018DC0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 7D 0D 0A -------------}..
018DD0: 20 20 20 20 20 20 20 20 20 20 46 55 4E 43 54 49 FUNCTI
018DE0: 4F 4E 20 66 6F 72 74 65 67 6E 3A 20 72 65 61 6C ON fortegn: real
018DF0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 42 45 47 ;.. BEG
018E00: 20 20 20 20 20 20 20 20 50 52 4F 47 52 41 4D 20 PROGRAM
018E10: 6B 61 6C 6B 75 6C 61 74 6F 72 3B 0D 0A 20 20 20 kalkulator;..
018E20: 20 20 20 20 20 43 4F 4E 53 54 0D 0A 20 20 20 20 CONST..
018E30: 20 20 20 20 20 20 20 20 20 20 20 20 73 6C 75 74 slut
018E40: 6B 6F 64 65 20 3D 20 40 31 33 3B 20 20 20 20 20 kode = @13;
018E50: 20 20 20 20 66 65 6A 6C 6B 6F 64 65 20 3D 20 27 fejlkode = '
018E60: 3F 27 3B 0D 0A 20 20 20 20 20 20 20 20 56 41 52 ?';.. VAR
018E70: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
018E80: 20 20 73 20 20 20 20 20 20 20 3A 20 53 54 52 49 s : STRI
018E90: 4E 47 5B 32 35 35 5D 3B 0D 0A 20 20 20 20 20 20 NG[255];..
018EA0: 20 20 20 20 20 20 20 20 20 20 63 68 20 20 20 20 ch
018EB0: 20 20 3A 20 63 68 61 72 3B 0D 0A 20 20 20 20 20 : char;..
018EC0: 20 20 20 20 20 20 20 20 20 20 20 70 6F 73 20 20 pos
018ED0: 20 20 20 3A 20 69 6E 74 65 67 65 72 3B 0D 0A 20 : integer;..
018EE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 r
018EF0: 65 73 75 6C 74 20 20 3A 20 72 65 61 6C 3B 0D 0A esult : real;..
018F00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018F10: 0D 0A 20 20 20 20 20 20 20 20 7B 2D 2D 2D 2D 2D .. {-----
018F20: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 20 20 76 69 64 ----------- vid
018F30: 65 72 65 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ere -----------
018F40: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 7D 0D --------------}.
018F50: 0A 20 20 20 20 20 20 20 20 50 52 4F 43 45 44 55 . PROCEDU
018F60: 52 45 20 76 69 64 65 72 65 3B 0D 0A 20 20 20 20 RE videre;..
018F70: 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 BEGIN..
018F80: 20 20 20 20 20 20 20 20 20 20 20 52 45 50 45 41 REPEA
018F90: 54 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 T..
018FA0: 20 20 20 20 20 20 20 20 20 20 20 70 6F 73 3A 3D pos:=
018FB0: 73 75 63 63 28 70 6F 73 29 3B 0D 0A 20 20 20 20 succ(pos);..
018FC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018FD0: 20 20 20 20 49 46 20 70 6F 73 3C 3D 6C 65 6E 28 IF pos<=len(
018FE0: 73 29 20 54 48 45 4E 20 63 68 3A 3D 73 5B 70 6F s) THEN ch:=s[po
018FF0: 73 5D 20 45 4C 53 45 20 63 68 3A 3D 73 6C 75 74 s] ELSE ch:=slut
019000: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
019010: 15 00 01 00 02 09 52 E5 15 00 41 02 00 00 00 02 ......R...A.....
019020: 15 00 46 02 00 00 00 02 15 00 42 02 00 00 00 02 ..F.......B.....
019030: 15 00 47 02 00 00 00 02 15 00 43 02 00 00 00 02 ..G.......C.....
019040: 15 00 48 02 00 00 00 02 15 00 44 02 00 00 00 02 ..H.......D.....
019050: 15 00 49 02 00 00 00 02 15 00 45 02 00 00 00 02 ..I.......E.....
019060: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
019070: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
019080: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
019090: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0190A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0190B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0190C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0190D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0190E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0190F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
019100: 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 IN..
019110: 20 20 20 20 49 46 20 63 68 3D 27 2D 27 20 54 48 IF ch='-' TH
019120: 45 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 EN..
019130: 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 BEGIN..
019140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
019150: 20 20 20 76 69 64 65 72 65 3B 0D 0A 20 20 20 20 videre;..
019160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
019170: 20 20 20 20 66 6F 72 74 65 67 6E 3A 3D 2D 66 61 fortegn:=-fa
019180: 6B 74 6F 72 3B 0D 0A 20 20 20 20 20 20 20 20 20 ktor;..
019190: 20 20 20 20 20 20 20 45 4E 44 20 20 45 4C 53 45 END ELSE
0191A0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
0191B0: 20 20 20 20 20 20 20 66 6F 72 74 65 67 6E 3A 3D fortegn:=
0191C0: 66 61 6B 74 6F 72 3B 0D 0A 20 20 20 20 20 20 20 faktor;..
0191D0: 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 20 END;..
0191E0: 20 20 20 0D 0A 20 20 20 20 20 20 20 20 20 20 7B .. {
0191F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 20 ---------------
019200: 20 67 61 6E 67 65 5F 64 69 76 69 73 69 6F 6E 20 gange_division
019210: 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ---------------
019220: 2D 2D 2D 2D 2D 2D 7D 0D 0A 20 20 20 20 20 20 20 ------}..
019230: 20 20 20 46 55 4E 43 54 49 4F 4E 20 67 61 6E 67 FUNCTION gang
019240: 65 5F 64 69 76 69 73 69 6F 6E 3A 20 72 65 61 6C e_division: real
019250: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 56 41 52 ;.. VAR
019260: 20 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
019270: 20 20 20 67 64 3A 20 72 65 61 6C 3B 0D 0A 20 20 gd: real;..
019280: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6F 70 op
019290: 72 5F 67 64 3A 20 63 68 61 72 3B 0D 0A 20 20 20 r_gd: char;..
0192A0: 20 20 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 BEGIN..
0192B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 64 gd
0192C0: 3A 3D 66 6F 72 74 65 67 6E 3B 0D 0A 20 20 20 20 :=fortegn;..
0192D0: 20 20 20 20 20 20 20 20 20 20 20 20 57 48 49 4C WHIL
0192E0: 45 20 63 68 20 49 4E 5B 20 27 2A 27 2C 27 2F 27 E ch IN[ '*','/'
0192F0: 20 5D 20 44 4F 0D 0A 20 20 20 20 20 20 20 20 20 ] DO..
019300: 20 20 20 20 20 20 20 20 20 0D 0A 1A 1A 1A 1A 1A .......
019310: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
019320: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
019330: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
019340: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
019350: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
019360: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
019370: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
019380: 20 20 20 45 4E 44 2E 20 28 2A 20 62 72 69 64 67 END. (* bridg
019390: 65 31 20 2A 29 0D 0A 1A 0A 20 20 20 20 20 20 20 e1 *)....
0193A0: 20 20 20 20 57 52 49 54 45 28 27 53 59 44 20 3A WRITE('SYD :
0193B0: 20 27 29 3B 20 75 64 73 6B 72 69 76 68 61 61 6E '); udskrivhaan
0193C0: 64 28 73 79 64 29 3B 0D 0A 20 20 20 20 20 20 20 d(syd);..
0193D0: 20 20 20 20 57 52 49 54 45 28 27 56 45 53 54 3A WRITE('VEST:
0193E0: 20 27 29 3B 20 75 64 73 6B 72 69 76 68 61 61 6E '); udskrivhaan
0193F0: 64 28 76 65 73 74 29 3B 0D 0A 20 20 20 20 20 20 d(vest);..
019400: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
019410: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
019420: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
019430: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
019440: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
019450: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
019460: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
019470: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
019480: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
019490: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0194A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0194B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0194C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0194D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0194E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0194F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
019500: 20 20 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 BEGIN..
019510: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
019520: 20 20 20 20 20 20 6F 70 72 5F 67 64 3A 3D 63 68 opr_gd:=ch
019530: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ;..
019540: 20 20 20 20 20 20 20 20 20 20 20 76 69 64 65 72 vider
019550: 65 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 e;..
019560: 20 20 20 20 20 20 20 20 20 20 20 20 43 41 53 45 CASE
019570: 20 6F 70 72 5F 67 64 20 4F 46 0D 0A 20 20 20 20 opr_gd OF..
019580: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
019590: 20 20 20 20 20 20 20 20 27 2A 27 3A 20 67 64 20 '*': gd
0195A0: 3A 3D 20 67 64 20 2A 20 66 6F 72 74 65 67 6E 3B := gd * fortegn;
0195B0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
0195C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 2F '/
0195D0: 27 3A 20 67 64 20 3A 3D 20 67 64 20 2F 20 66 6F ': gd := gd / fo
0195E0: 72 74 65 67 6E 3B 0D 0A 20 20 20 20 20 20 20 20 rtegn;..
0195F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
019600: 45 4E 44 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 END;..
019610: 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 END;..
019620: 20 20 20 20 20 20 20 20 20 20 67 61 6E 67 65 5F gange_
019630: 64 69 76 69 73 69 6F 6E 20 3A 3D 20 67 64 3B 0D division := gd;.
019640: 0A 20 20 20 20 20 20 20 20 20 20 45 4E 44 3B 0D . END;.
019650: 0A 20 20 20 20 20 20 20 20 20 20 0D 0A 20 20 20 . ..
019660: 20 20 20 20 20 20 20 7B 2D 2D 2D 2D 2D 2D 2D 2D {--------
019670: 2D 2D 2D 2D 2D 2D 2D 20 20 70 6C 75 73 5F 6D 69 ------- plus_mi
019680: 6E 75 73 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D nus -----------
019690: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 7D 0D --------------}.
0196A0: 0A 20 20 20 20 20 20 20 20 20 20 46 55 4E 43 54 . FUNCT
0196B0: 49 4F 4E 20 70 6C 75 73 5F 6D 69 6E 75 73 3B 0D ION plus_minus;.
0196C0: 0A 20 20 20 20 20 20 20 20 20 20 56 41 52 0D 0A . VAR..
0196D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0196E0: 70 6D 3A 20 72 65 61 6C 3B 0D 0A 20 20 20 20 20 pm: real;..
0196F0: 20 20 20 20 20 20 20 20 20 20 20 6F 70 72 5F 70 opr_p
019700: F2 D4 E1 4E 54 28 F2 DA 40 42 85 C2 7D 80 90 D4 ...NT(..@B..}...
019710: E1 4E 54 27 F2 EA 7C BE 63 32 75 F0 DE 86 2D 06 .NT'..|.c2u...-.
019720: 26 E3 27 36 BF B9 1B 4E 92 6B 7C D3 C2 05 5E AA &.'6...N.k|...^.
019730: B1 0E CE CE 82 B3 05 92 B9 80 73 E7 64 67 0B 16 ..........s.dg..
019740: 38 C9 CD 01 CE 9C 93 9C 2D E9 E0 70 CE 3B EE 92 8.......-..p.;..
019750: 93 E3 73 36 BF B9 1B EB 92 D5 9D E0 6D 74 F7 43 ..s6........mt.C
019760: 68 77 CC 2C 89 9B 9C 13 9E C1 73 CA FC 1E E0 07 hw.,......s.....
019770: 57 29 9E 84 BF FC CD DF 1E 66 C2 0F FE 3B 77 54 W).......f...;wT
019780: 78 98 9C 12 EF CB 55 CA 9D 8C 06 DE 51 18 5A A3 x.....U.....Q.Z£
019790: 13 09 63 E4 D7 BA AB 1A 27 B2 B6 21 8E 61 7C 88 ..c.....'..!.a|.
0197A0: 3A 16 C0 56 C3 9E D4 E7 38 C5 70 57 9C 75 5C 29 :..V....8.pW.u\)
0197B0: 29 8A AA C3 91 49 0D BA 2F 13 83 18 28 9D 7A 21 )....I../...(.z!
0197C0: 82 C2 AC A6 32 39 3E 68 70 A3 E5 8E 96 39 5A 0D ....29>hp£...9Z.
0197D0: DE 6D 08 42 97 37 94 92 67 06 67 5A 8E 68 39 A3 .m.B.7..g.gZ.h9£
0197E0: E5 8E 96 39 5A 9A D3 2C C4 A4 44 46 64 88 37 57 ...9Z..,..DFd.7W
0197F0: A2 A1 3C 12 62 B1 F2 11 0B 19 29 8D 11 14 E5 50 ..<.b.....)....P
019800: 28 84 A2 6F A8 AA 41 51 3B 70 A1 BA FC 0B 0D BA (..o..AQ;p......
019810: A0 13 15 E8 F2 2E 34 E8 82 2E 3F 42 83 2E E8 58 ......4...?B...X
019820: 85 5A FE 25 0D 5A A2 E3 0E 68 F9 96 34 68 89 80 .Z.%.Z...h..4h..
019830: 96 7E B8 06 5D D0 85 0A 5D F9 89 1A 74 41 17 1F .~..]...]...tA..
019840: 74 41 97 74 A1 42 17 7E AC 06 5D D0 85 0A 5D FE tA.t.B.~..]...].
019850: 89 0D 7A D1 33 8C 9E 69 F4 62 CD 22 16 32 52 14 ..z.3..i.b.".2R.
019860: 23 C9 36 4A 21 DD 1B 30 71 45 E6 B9 12 0B E5 97 #.6J!..0qE......
019870: 10 88 95 89 58 C8 48 50 8C 24 DB 28 85 75 6F C3 ....X.HP.$.(.uo.
019880: C4 8A 9A 28 14 42 51 37 54 D5 A0 A8 1D 50 DC 68 ...(.BQ7T....P.h
019890: 13 67 43 28 26 20 09 0D C5 31 88 49 40 DF 05 E5 .gC(& ...1.I@...
0198A0: 2D BA D4 6C 13 8A 41 48 02 7B 2F 6D 42 31 88 62 -..l..AH.{/mB1.b
0198B0: 43 4B 2F E5 69 06 B1 09 28 3D 23 D1 05 19 2D 09 CK/.i...(=#...-.
0198C0: E8 3D 23 D0 05 B0 5F 33 BA 12 D0 8B 41 1F DB ED .=#..._3....A...
0198D0: 79 20 2F E5 79 93 EA 37 D5 4C E8 FC 24 97 F7 7A y /.y..7.L..$..z
0198E0: 7E BE 0B CB 5B B6 89 0A 5D DD 50 49 9E C1 9B 0D ~...[...].PI....
0198F0: A1 E8 B2 86 52 F2 EC D0 4C EE 9A 3D 53 17 BD 5B ....R...L..=S..[
019900: 6D 3A 20 63 68 61 72 3B 0D 0A 20 20 20 20 20 20 m: char;..
019910: 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 BEGIN..
019920: 20 20 20 20 20 20 20 20 20 20 20 70 6D 3A 3D 67 pm:=g
019930: 61 6E 67 65 5F 64 69 76 69 73 69 6F 6E 3B 0D 0A ange_division;..
019940: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
019950: 57 48 49 4C 45 20 63 68 20 49 4E 20 5B 20 27 2B WHILE ch IN [ '+
019960: 27 2C 27 2D 27 20 5D 20 44 4F 0D 0A 20 20 20 20 ','-' ] DO..
019970: 20 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 BEGI
019980: 4E 20 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 N ..
019990: 20 20 20 20 20 20 20 20 20 20 20 20 6F 70 72 5F opr_
0199A0: 70 6D 3A 3D 63 68 3B 0D 0A 20 20 20 20 20 20 20 pm:=ch;..
0199B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0199C0: 20 76 69 64 65 72 65 3B 0D 0A 20 20 20 20 20 20 videre;..
0199D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0199E0: 20 20 43 41 53 45 20 6F 70 72 5F 70 6D 20 4F 46 CASE opr_pm OF
0199F0: 20 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
019A00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 '
019A10: 2B 27 3A 20 70 6D 20 3A 3D 20 70 6D 20 2B 20 67 +': pm := pm + g
019A20: 61 6E 67 65 5F 64 69 76 69 73 69 6F 6E 3B 0D 0A ange_division;..
019A30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
019A40: 20 20 20 20 20 20 20 20 20 20 20 20 27 2D 27 3A '-':
019A50: 20 70 6D 20 3A 3D 20 70 6D 20 2D 20 67 61 6E 67 pm := pm - gang
019A60: 65 5F 64 69 76 69 73 69 6F 6E 3B 0D 0A 20 20 20 e_division;..
019A70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
019A80: 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 END;..
019A90: 20 20 20 20 20 20 20 20 20 20 20 45 4E 44 3B 0D END;.
019AA0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
019AB0: 20 70 6C 75 73 5F 6D 69 6E 75 73 20 3A 3D 20 70 plus_minus := p
019AC0: 6D 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 45 4E m;.. EN
019AD0: 44 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 0D 0A D;.. ..
019AE0: 20 20 20 20 20 20 20 20 20 20 7B 2D 2D 2D 2D 2D {-----
019AF0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 20 20 68 6F 76 65 64 --------- hoved
019B00: 20 20 20 20 20 20 20 20 50 52 4F 47 52 41 4D 20 PROGRAM
019B10: 6B 61 6E 6E 69 62 61 6C 3B 0D 0A 20 20 20 20 20 kannibal;..
019B20: 20 20 20 0D 0A 20 20 20 20 20 20 20 20 20 20 54 .. T
019B30: 59 50 45 0D 0A 20 20 20 20 20 20 20 20 20 20 20 YPE..
019B40: 20 70 6F 69 6E 74 65 72 20 3D 20 5E 20 6D 61 6E pointer = ^ man
019B50: 64 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 d;..
019B60: 6D 61 6E 64 20 3D 20 52 45 43 4F 52 44 0D 0A 20 mand = RECORD..
019B70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
019B80: 20 20 20 20 6E 61 65 73 74 65 20 3A 20 70 6F 69 naeste : poi
019B90: 6E 74 65 72 3B 0D 0A 20 20 20 20 20 20 20 20 20 nter;..
019BA0: 20 20 20 20 20 20 20 20 20 20 20 20 6E 72 20 3A nr :
019BB0: 20 49 4E 54 45 47 45 52 3B 0D 0A 20 20 20 20 20 INTEGER;..
019BC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4E EN
019BD0: 44 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 0D 0A D;.. ..
019BE0: 20 20 20 20 20 20 20 20 20 20 56 41 52 0D 0A 20 VAR..
019BF0: 20 20 20 20 20 20 20 20 20 20 20 74 6F 70 20 3A top :
019C00: 20 70 6F 69 6E 74 65 72 3B 0D 0A 20 20 20 20 20 pointer;..
019C10: 20 20 20 20 20 20 20 61 6E 74 61 6C 2C 20 66 72 antal, fr
019C20: 65 6D 20 3A 20 49 4E 54 45 47 45 52 3B 0D 0A 20 em : INTEGER;..
019C30: 20 20 20 20 20 20 20 20 20 0D 0A 20 20 20 20 20 ..
019C40: 20 20 20 20 20 46 55 4E 43 54 49 4F 4E 20 6A 61 FUNCTION ja
019C50: 20 3A 20 42 4F 4F 4C 45 41 4E 3B 0D 0A 20 20 20 : BOOLEAN;..
019C60: 20 20 20 20 20 20 20 0D 0A 20 20 20 20 20 20 20 ..
019C70: 20 20 20 20 20 56 41 52 0D 0A 20 20 20 20 20 20 VAR..
019C80: 20 20 20 20 20 20 20 20 63 68 20 3A 20 43 48 41 ch : CHA
019C90: 52 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 R;..
019CA0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 42 45 .. BE
019CB0: 47 49 4E 20 28 2A 20 6A 61 20 2A 29 0D 0A 20 20 GIN (* ja *)..
019CC0: 20 20 20 20 20 20 20 20 20 20 20 20 52 45 50 45 REPE
019CD0: 41 54 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 AT..
019CE0: 20 20 20 20 52 45 41 44 28 4B 42 44 2C 20 63 68 READ(KBD, ch
019CF0: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 );..
019D00: 70 72 6F 67 72 61 6D 20 20 2D 2D 2D 2D 2D 2D 2D program -------
019D10: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
019D20: 2D 2D 7D 0D 0A 20 20 20 20 20 20 20 20 20 20 42 --}.. B
019D30: 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 EGIN..
019D40: 20 20 20 20 20 20 52 45 50 45 41 54 20 0D 0A 20 REPEAT ..
019D50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
019D60: 20 20 20 20 20 20 20 77 72 69 74 65 28 27 2A 27 write('*'
019D70: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 );..
019D80: 20 20 20 20 20 20 20 20 20 20 20 20 72 65 61 64 read
019D90: 28 73 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 (s);..
019DA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 IF
019DB0: 20 28 73 3C 3E 27 27 29 20 41 4E 44 20 28 73 3C (s<>'') AND (s<
019DC0: 3E 27 51 27 29 20 54 48 45 4E 0D 0A 20 20 20 20 >'Q') THEN..
019DD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
019DE0: 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 BEGIN..
019DF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
019E00: 20 20 20 20 20 20 20 20 20 20 20 70 6F 73 20 3A pos :
019E10: 3D 20 30 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 = 0;..
019E20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
019E30: 20 20 20 20 20 20 76 69 64 65 72 65 3B 0D 0A 20 videre;..
019E40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
019E50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 r
019E60: 65 73 75 6C 74 20 3A 3D 20 70 6C 75 73 5F 6D 69 esult := plus_mi
019E70: 6E 75 73 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 nus;..
019E80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
019E90: 20 20 20 20 20 20 49 46 20 63 68 20 3C 3E 20 66 IF ch <> f
019EA0: 65 6A 6C 6B 6F 64 65 20 54 48 45 4E 0D 0A 20 20 ejlkode THEN..
019EB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
019EC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 45 BE
019ED0: 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 GIN..
019EE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
019EF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 77 72 69 wri
019F00: 20 20 55 4E 54 49 4C 20 63 68 20 49 4E 20 28 2E UNTIL ch IN (.
019F10: 27 4A 27 2C 20 27 6A 27 2C 20 27 4E 27 2C 20 27 'J', 'j', 'N', '
019F20: 6E 27 2E 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 n'.);..
019F30: 20 20 20 20 20 43 41 53 45 20 63 68 20 4F 46 0D CASE ch OF.
019F40: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
019F50: 20 27 4A 27 2C 20 27 6A 27 20 3A 20 6A 61 20 3A 'J', 'j' : ja :
019F60: 3D 20 54 52 55 45 3B 0D 0A 20 20 20 20 20 20 20 = TRUE;..
019F70: 20 20 20 20 20 20 20 20 20 27 4E 27 2C 20 27 6E 'N', 'n
019F80: 27 20 3A 20 6A 61 20 3A 3D 20 46 41 4C 53 45 3B ' : ja := FALSE;
019F90: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
019FA0: 45 4E 44 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 END;..
019FB0: 20 20 45 4E 44 3B 20 28 2A 20 6A 61 20 2A 29 0D END; (* ja *).
019FC0: 0A 20 20 20 20 20 20 20 20 20 20 0D 0A 20 20 20 . ..
019FD0: 20 20 20 20 20 20 20 46 55 4E 43 54 49 4F 4E 20 FUNCTION
019FE0: 66 61 65 72 64 69 67 20 3A 20 42 4F 4F 4C 45 41 faerdig : BOOLEA
019FF0: 4E 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 0D 0A N;.. ..
01A000: 20 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 BEGI
01A010: 4E 20 28 2A 20 66 61 65 72 64 69 67 20 2A 29 0D N (* faerdig *).
01A020: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 . W
01A030: 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 20 20 20 RITELN;..
01A040: 20 20 20 20 20 20 20 57 52 49 54 45 28 27 5C 6E WRITE('\n
01A050: 73 6B 65 72 20 64 75 20 65 74 20 6E 79 74 20 67 sker du et nyt g
01A060: 69 6C 64 65 20 28 6A 2F 6E 29 3A 20 27 29 3B 0D ilde (j/n): ');.
01A070: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 . f
01A080: 61 65 72 64 69 67 20 3A 3D 20 4E 4F 54 20 6A 61 aerdig := NOT ja
01A090: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 45 ;.. E
01A0A0: 4E 44 3B 20 28 2A 20 66 61 65 72 64 69 67 20 2A ND; (* faerdig *
01A0B0: 29 0D 0A 20 20 20 20 20 20 20 20 20 20 0D 0A 20 ).. ..
01A0C0: 20 20 20 20 20 20 20 20 20 50 52 4F 43 45 44 55 PROCEDU
01A0D0: 52 45 20 6F 70 72 65 74 6E 69 6E 67 3B 0D 0A 20 RE opretning;..
01A0E0: 20 20 20 20 20 20 20 20 20 0D 0A 20 20 20 20 20 ..
01A0F0: 20 20 20 20 20 20 20 46 55 4E 43 54 49 4F 4E 20 FUNCTION
01A100: 74 65 28 27 20 3D 20 27 2C 72 65 73 75 6C 74 3A te(' = ',result:
01A110: 31 38 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 18);..
01A120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01A130: 20 20 20 20 20 20 45 4E 44 20 20 45 4C 53 45 20 END ELSE
01A140: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
01A150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01A160: 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 BEGIN..
01A170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01A180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01A190: 20 77 72 69 74 65 6C 6E 3B 0D 0A 20 20 20 20 20 writeln;..
01A1A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01A1B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01A1C0: 20 20 20 77 72 69 74 65 28 27 5E 20 66 65 6A 6C write('^ fejl
01A1D0: 27 3A 70 6F 73 2B 37 29 3B 0D 0A 20 20 20 20 20 ':pos+7);..
01A1E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01A1F0: 20 20 20 20 20 20 20 20 20 20 20 45 4E 44 3B 0D END;.
01A200: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
01A210: 20 20 20 20 20 20 20 20 20 20 45 4E 44 3B 0D 0A END;..
01A220: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01A230: 20 20 20 20 20 20 20 20 20 77 72 69 74 65 6C 6E writeln
01A240: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ;..
01A250: 20 20 20 55 4E 54 49 4C 20 28 73 3D 27 71 27 29 UNTIL (s='q')
01A260: 20 4F 52 20 28 73 3D 27 51 27 29 3B 0D 0A 20 20 OR (s='Q');..
01A270: 20 20 20 20 20 20 20 20 45 4E 44 2E 20 20 20 0D END. .
01A280: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
01A290: 20 0D 0A 20 20 20 20 20 20 20 20 20 20 0D 0A 20 .. ..
01A2A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0D .
01A2B0: 0A 20 20 20 20 20 20 20 20 20 20 0D 0A 20 20 20 . ..
01A2C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 0D 0A 20 ..
01A2D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01A2E0: 20 20 20 0D 0A 20 20 20 20 20 20 20 20 20 20 20 ..
01A2F0: 20 20 20 20 20 0D 0A 20 20 20 20 20 20 20 20 20 ..
01A300: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
01A310: 16 00 01 00 02 09 52 E5 16 00 41 02 00 00 00 02 ......R...A.....
01A320: 16 00 46 02 00 00 00 02 16 00 42 02 00 00 00 02 ..F.......B.....
01A330: 16 00 47 02 00 00 00 02 16 00 43 02 00 00 00 02 ..G.......C.....
01A340: 16 00 48 02 00 00 00 02 16 00 44 02 00 00 00 02 ..H.......D.....
01A350: 16 00 49 02 00 00 00 02 16 00 45 02 00 00 00 02 ..I.......E.....
01A360: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01A370: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01A380: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01A390: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01A3A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01A3B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01A3C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01A3D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01A3E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01A3F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01A400: 6E 61 65 73 74 65 70 65 72 73 6F 6E 28 69 20 3A naesteperson(i :
01A410: 20 49 4E 54 45 47 45 52 29 20 3A 20 70 6F 69 6E INTEGER) : poin
01A420: 74 65 72 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 ter;..
01A430: 20 20 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 ..
01A440: 20 20 56 41 52 0D 0A 20 20 20 20 20 20 20 20 20 VAR..
01A450: 20 20 20 20 20 20 20 70 20 3A 20 70 6F 69 6E 74 p : point
01A460: 65 72 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 er;..
01A470: 20 20 20 0D 0A 20 20 20 20 20 20 20 20 20 20 20 ..
01A480: 20 20 20 42 45 47 49 4E 20 28 2A 20 6E 61 65 73 BEGIN (* naes
01A490: 74 65 70 65 72 73 6F 6E 20 2A 29 0D 0A 20 20 20 teperson *)..
01A4A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 IF
01A4B0: 69 20 3C 3D 20 61 6E 74 61 6C 0D 0A 20 20 20 20 i <= antal..
01A4C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 48 TH
01A4D0: 45 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 EN..
01A4E0: 20 20 20 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 BEGIN..
01A4F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01A500: 20 20 20 20 20 4E 45 57 28 70 29 3B 0D 0A 20 20 NEW(p);..
01A510: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01A520: 20 20 20 20 6E 61 65 73 74 65 70 65 72 73 6F 6E naesteperson
01A530: 20 3A 3D 20 70 3B 0D 0A 20 20 20 20 20 20 20 20 := p;..
01A540: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 5E p^
01A550: 2E 6E 72 20 3A 3D 20 69 3B 0D 0A 20 20 20 20 20 .nr := i;..
01A560: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01A570: 20 70 5E 2E 6E 61 65 73 74 65 20 3A 3D 20 6E 61 p^.naeste := na
01A580: 65 73 74 65 70 65 72 73 6F 6E 28 69 20 2B 20 31 esteperson(i + 1
01A590: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 );..
01A5A0: 20 20 20 20 20 20 20 20 45 4E 44 0D 0A 20 20 20 END..
01A5B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 E
01A5C0: 4C 53 45 0D 0A 20 20 20 20 20 20 20 20 20 20 20 LSE..
01A5D0: 20 20 20 20 20 20 20 20 20 6E 61 65 73 74 65 70 naestep
01A5E0: 65 72 73 6F 6E 20 3A 3D 20 74 6F 70 3B 20 28 2A erson := top; (*
01A5F0: 20 72 69 6E 67 65 6E 20 73 6C 75 74 74 65 73 20 ringen sluttes
01A600: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
01A610: 20 20 20 20 20 20 20 20 20 20 46 4F 52 20 6A 20 FOR j
01A620: 3A 3D 20 31 20 54 4F 20 66 72 65 6D 20 2D 20 32 := 1 TO frem - 2
01A630: 20 44 4F 0D 0A 20 20 20 20 20 20 20 20 20 20 20 DO..
01A640: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 t
01A650: 6F 70 20 3A 3D 20 74 6F 70 5E 2E 6E 61 65 73 74 op := top^.naest
01A660: 65 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 e;..
01A670: 20 20 20 20 20 20 20 20 20 20 20 20 75 64 6D 65 udme
01A680: 64 28 74 6F 70 5E 2E 6E 61 65 73 74 65 5E 2E 6E d(top^.naeste^.n
01A690: 72 2C 20 69 29 3B 0D 0A 20 20 20 20 20 20 20 20 r, i);..
01A6A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01A6B0: 70 20 3A 3D 20 74 6F 70 5E 2E 6E 61 65 73 74 65 p := top^.naeste
01A6C0: 5E 2E 6E 61 65 73 74 65 3B 0D 0A 20 20 20 20 20 ^.naeste;..
01A6D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01A6E0: 20 20 20 74 6F 70 5E 2E 6E 61 65 73 74 65 20 3A top^.naeste :
01A6F0: 3D 20 70 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 = p;..
01A700: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 6F to
01A710: 70 20 3A 3D 20 70 3B 0D 0A 20 20 20 20 20 20 20 p := p;..
01A720: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 E
01A730: 4E 44 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 ND;..
01A740: 20 20 20 20 20 20 20 20 20 75 64 6D 65 64 28 74 udmed(t
01A750: 6F 70 5E 2E 6E 72 2C 20 61 6E 74 61 6C 29 3B 0D op^.nr, antal);.
01A760: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
01A770: 20 20 20 45 4E 44 0D 0A 20 20 20 20 20 20 20 20 END..
01A780: 20 20 20 20 20 20 20 20 45 4C 53 45 20 0D 0A 20 ELSE ..
01A790: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01A7A0: 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 BEGIN..
01A7B0: 20 20 20 20 20 20 20 20 20 20 20 20 46 4F 52 20 FOR
01A7C0: 69 20 3A 3D 20 31 20 54 4F 20 61 6E 74 61 6C 20 i := 1 TO antal
01A7D0: 44 4F 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 DO..
01A7E0: 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4E 0D BEGIN.
01A7F0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
01A800: 2A 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 *)..
01A810: 20 20 45 4E 44 3B 20 28 2A 20 6E 61 65 73 74 65 END; (* naeste
01A820: 70 65 72 73 6F 6E 20 2A 29 0D 0A 20 20 20 20 20 person *)..
01A830: 20 20 20 20 20 20 20 0D 0A 20 20 20 20 20 20 20 ..
01A840: 20 20 20 20 20 42 45 47 49 4E 20 28 2A 20 6F 70 BEGIN (* op
01A850: 72 65 74 6E 69 6E 67 20 2A 29 0D 0A 20 20 20 20 retning *)..
01A860: 20 20 20 20 20 20 20 20 20 20 4E 45 57 28 74 6F NEW(to
01A870: 70 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 p);..
01A880: 20 20 20 74 6F 70 5E 2E 6E 72 20 3A 3D 20 31 3B top^.nr := 1;
01A890: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
01A8A0: 74 6F 70 5E 2E 6E 61 65 73 74 65 20 3A 3D 20 6E top^.naeste := n
01A8B0: 61 65 73 74 65 70 65 72 73 6F 6E 28 32 29 3B 0D aesteperson(2);.
01A8C0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 45 4E 44 . END
01A8D0: 3B 20 28 2A 20 6F 70 72 65 74 6E 69 6E 67 20 2A ; (* opretning *
01A8E0: 29 0D 0A 20 20 20 20 20 20 20 20 20 20 0D 0A 20 ).. ..
01A8F0: 20 20 20 20 20 20 20 20 20 50 52 4F 43 45 44 55 PROCEDU
01A900: 52 45 20 69 6E 69 74 69 61 6C 69 73 65 72 3B 0D RE initialiser;.
01A910: 0A 20 20 20 20 20 20 20 20 20 20 0D 0A 20 20 20 . ..
01A920: 20 20 20 20 20 20 20 20 20 42 45 47 49 4E 20 28 BEGIN (
01A930: 2A 20 69 6E 69 74 69 61 6C 69 73 65 72 20 2A 29 * initialiser *)
01A940: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
01A950: 57 52 49 54 45 28 43 4C 52 48 4F 4D 29 3B 0D 0A WRITE(CLRHOM);..
01A960: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 52 WR
01A970: 49 54 45 4C 4E 28 27 56 45 4C 4B 4F 4D 4D 45 4E ITELN('VELKOMMEN
01A980: 20 54 49 4C 20 4B 41 4E 4E 49 42 41 4C 47 49 4C TIL KANNIBALGIL
01A990: 44 45 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 DE');..
01A9A0: 20 20 20 20 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 WRITELN;..
01A9B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 WRI
01A9C0: 54 45 4C 4E 28 27 45 74 20 73 6B 69 62 20 66 6F TELN('Et skib fo
01A9D0: 72 6C 69 73 65 72 2C 20 6F 67 20 6E 6F 67 6C 65 rliser, og nogle
01A9E0: 20 61 66 20 73 7C 6D 7B 6E 64 65 6E 65 20 72 65 af s|m{ndene re
01A9F0: 64 64 65 72 20 20 27 29 3B 0D 0A 20 20 20 20 20 dder ');..
01AA00: 20 20 20 20 20 20 20 20 20 75 64 6D 65 64 28 74 udmed(t
01AA10: 6F 70 5E 2E 6E 72 2C 20 69 29 3B 0D 0A 20 20 20 op^.nr, i);..
01AA20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01AA30: 20 20 20 20 20 74 6F 70 20 3A 3D 20 74 6F 70 5E top := top^
01AA40: 2E 6E 61 65 73 74 65 3B 0D 0A 20 20 20 20 20 20 .naeste;..
01AA50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01AA60: 45 4E 44 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 END;..
01AA70: 20 20 20 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20 END;..
01AA80: 20 20 20 20 20 20 20 20 20 20 45 4E 44 3B 20 28 END; (
01AA90: 2A 20 73 70 69 73 20 2A 29 0D 0A 20 20 20 20 20 * spis *)..
01AAA0: 20 20 20 20 20 0D 0A 20 20 20 20 20 20 20 20 20 ..
01AAB0: 20 42 45 47 49 4E 20 28 2A 20 6B 61 6E 6E 69 62 BEGIN (* kannib
01AAC0: 61 6C 20 2A 29 0D 0A 20 20 20 20 20 20 20 20 20 al *)..
01AAD0: 20 20 20 52 45 50 45 41 54 0D 0A 20 20 20 20 20 REPEAT..
01AAE0: 20 20 20 20 20 20 20 20 20 69 6E 69 74 69 61 6C initial
01AAF0: 69 73 65 72 3B 0D 0A 20 20 20 20 20 20 20 20 20 iser;..
01AB00: 20 20 20 20 20 73 70 69 73 3B 0D 0A 20 20 20 20 spis;..
01AB10: 20 20 20 20 20 20 20 20 55 4E 54 49 4C 20 66 61 UNTIL fa
01AB20: 65 72 64 69 67 3B 0D 0A 20 20 20 20 20 20 20 20 erdig;..
01AB30: 20 20 20 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 WRITELN;..
01AB40: 20 20 20 20 20 20 20 20 45 4E 44 2E 20 28 2A 20 END. (*
01AB50: 6B 61 6E 6E 69 62 61 6C 20 2A 29 0D 0A 1A 20 20 kannibal *)...
01AB60: 20 20 20 20 20 20 20 20 20 69 6E 69 74 69 61 6C initial
01AB70: 69 73 65 72 3B 0D 0A 20 20 20 20 20 20 20 20 20 iser;..
01AB80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01AB90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01ABA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01ABB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01ABC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01ABD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01ABE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01ABF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01AC00: 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E WRITELN
01AC10: 28 27 73 69 67 20 6D 69 72 61 6B 75 6C 7C 73 74 ('sig mirakul|st
01AC20: 20 69 20 6C 61 6E 64 2E 20 4D 65 6E 20 64 65 73 i land. Men des
01AC30: 76 7B 72 72 65 20 74 61 67 65 73 20 64 65 20 74 v{rre tages de t
01AC40: 69 6C 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 il');..
01AC50: 20 20 20 20 20 57 52 49 54 45 4C 4E 28 27 66 61 WRITELN('fa
01AC60: 6E 67 65 20 61 66 20 6E 6F 67 6C 65 20 6B 61 6E nge af nogle kan
01AC70: 6E 69 62 61 6C 65 72 2E 20 44 69 73 73 65 20 73 nibaler. Disse s
01AC80: 74 69 6C 6C 65 72 20 73 7C 6D 7B 6E 2D 20 27 29 tiller s|m{n- ')
01AC90: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ;..
01ACA0: 20 57 52 49 54 45 4C 4E 28 27 64 65 6E 65 20 6F WRITELN('dene o
01ACB0: 70 20 69 20 72 69 6E 67 20 6F 67 20 67 7C 72 20 p i ring og g|r
01ACC0: 6B 6C 61 72 20 74 69 6C 20 67 69 6C 64 65 2E 20 klar til gilde.
01ACD0: 20 20 20 20 20 20 20 20 20 20 27 29 3B 0D 0A 20 ');..
01ACE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 WRI
01ACF0: 54 45 4C 4E 28 27 46 6F 72 20 61 74 20 66 69 6E TELN('For at fin
01AD00: 64 65 20 75 64 20 61 66 20 68 76 65 6D 20 64 65 de ud af hvem de
01AD10: 72 20 73 6B 61 6C 20 73 70 69 73 65 73 2C 20 74 r skal spises, t
01AD20: 7B 6C 6C 65 72 20 27 29 3B 0D 0A 20 20 20 20 20 {ller ');..
01AD30: 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E WRITELN
01AD40: 28 27 64 65 20 68 65 6C 65 20 74 69 64 65 6E 20 ('de hele tiden
01AD50: 65 74 20 62 65 73 74 65 6D 74 20 61 6E 74 61 6C et bestemt antal
01AD60: 20 66 72 65 6D 2E 20 20 20 20 20 20 20 20 20 20 frem.
01AD70: 20 20 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 ');..
01AD80: 20 20 20 20 20 57 52 49 54 45 4C 4E 28 27 44 75 WRITELN('Du
01AD90: 20 73 6B 61 6C 20 6E 75 20 62 65 73 74 65 6D 6D skal nu bestemm
01ADA0: 65 2C 20 68 76 6F 72 20 6D 61 6E 67 65 20 73 7C e, hvor mange s|
01ADB0: 6D 7B 6E 64 2C 20 64 65 72 20 72 65 64 2D 27 29 m{nd, der red-')
01ADC0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ;..
01ADD0: 20 57 52 49 54 45 4C 4E 28 27 64 65 72 20 73 69 WRITELN('der si
01ADE0: 67 20 69 20 6C 61 6E 64 2C 20 6F 67 20 68 76 6F g i land, og hvo
01ADF0: 72 20 6D 65 67 65 74 20 6B 61 6E 6E 69 62 61 6C r meget kannibal
01AE00: 21 80 54 95 D6 8C C2 C1 67 E4 47 39 3B 0C 97 0E !.T.....g.G9;...
01AE10: 51 4C 6A AB 2E E1 AA 4B 5C 60 52 99 A3 2A 68 96 QLj....K\`R.£*h.
01AE20: 4F C6 A4 BC AC C6 28 BF 7C 7E 7A C0 91 BA 3C E5 O.....(.|~z...<.
01AE30: 9D 22 5D 61 14 D7 21 04 0C D6 88 C2 95 67 8C 47 ."]a..!......g.G
01AE40: C1 3A E4 72 E5 D6 DC E0 9D 19 A3 E5 F2 58 E7 A3 .:.r......£..X.£
01AE50: 35 A3 40 F1 19 97 61 5D E7 EA 0F AF 82 97 16 07 5£@...a]........
01AE60: FB 35 F9 A1 F0 6B 99 DE 3D 9C 0A 34 75 D1 BD 48 .5...k..=..4u..H
01AE70: 0B 68 64 81 BB 9D 0F 24 74 78 AD 15 C0 B5 78 5B .hd....$tx....x[
01AE80: 26 EC 5F E4 1F E7 CB 07 C3 28 C7 E7 38 F4 1C A3 &._......(..8..£
01AE90: 75 EF 8C 20 9C 25 D9 8F B1 00 C0 00 00 A6 29 16 u.. .%........).
01AEA0: F6 E7 DC D1 B0 9B 91 82 79 5A 48 3E 32 1A 0C 0A ........yZH>2...
01AEB0: 08 06 04 02 00 A1 6E 5E 43 38 F9 CD B4 9D 85 34 ......n^C8.....4
01AEC0: 24 19 17 15 13 11 0F BC A5 8A 46 25 C1 69 26 1F $.........F%.i&.
01AED0: 1D 1B 42 F3 2A 2A 28 26 24 22 F7 4D 17 FC A0 2B ..B.**(&$".M...+
01AEE0: 2E 2C 30 37 31 2F 81 1D 33 40 67 3C 3A 38 36 3D .,071/..3@g<:86=
01AEF0: 3F 6F 8B 14 41 43 57 1B 45 27 BB 48 19 3B 4A 4C ?o..ACW.E'.H.;JL
01AF00: 4D 4F 51 53 54 57 3C E1 C3 5A 5C 55 5D 1E CF 87 MOQSTW<..Z\U]...
01AF10: 0D 62 63 65 66 67 68 88 06 01 6B 6C 6D 02 6E 6F .bcefgh...klm.no
01AF20: 70 08 DF 1F 7F 73 8F 75 77 05 79 7B 7C 7E 04 07 p....s.uw.y{|~..
01AF30: 82 84 86 16 03 88 8A 8C 8E 90 29 93 94 96 FF 99 ..........).....
01AF40: 0F 9C 9E A0 A2 A4 FB F4 DE D2 C7 A3 98 84 7E 68 ...........£..~h
01AF50: 58 45 3D 2C 0D 0B 09 07 05 03 01 CE 70 61 5D 41 XE=,........pa]A
01AF60: 12 D0 C2 9E 90 7C 28 1C 18 16 14 12 10 0E AB 96 .....|(.........
01AF70: 4B 36 1A 8E 50 20 1E 1C E0 21 2D 2B 29 27 25 23 K6..P ...!-+)'%#
01AF80: FE 83 21 15 C0 60 18 2D F1 2E 32 30 F8 47 34 AE ..!..`.-..20.G4.
01AF90: 8D 20 3B 39 37 35 8C 3E 40 89 42 9F 80 23 46 44 . ;975.>@.B..#FD
01AFA0: 47 49 4E 66 13 4B 4E 4C 50 10 52 55 56 DD 58 59 GINf.KNLP.RUV.XY
01AFB0: 78 5B AA 5E 5F 60 61 3F 09 64 0B EE 99 44 69 11 x[.^_`a?.d...Di.
01AFC0: 6A 22 2F 0C 0A 4F BF 33 71 72 77 EF CC 74 76 78 j"/..O.3qrw..tvx
01AFD0: F0 7A 0E 7D 7F 80 81 83 85 AF 5F 87 89 8B 8D 8F .z.}......_.....
01AFE0: 91 92 00 95 97 98 9A 9B 9D 9F A1 A3 FF FC 07 FF ...........£....
01AFF0: 81 FE 38 3F 33 60 73 6D 03 97 81 C4 7A 43 18 22 ..8?3`sm....zC."
01B000: 65 72 6E 65 20 73 6B 61 6C 20 27 29 3B 0D 0A 20 erne skal ');..
01B010: 20 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 WRI
01B020: 54 45 4C 4E 28 27 74 7B 6C 6C 65 20 66 72 65 6D TELN('t{lle frem
01B030: 3A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 :
01B040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01B050: 20 20 20 20 20 20 27 29 3B 0D 0A 20 20 20 20 20 ');..
01B060: 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E WRITELN
01B070: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ;..
01B080: 20 57 52 49 54 45 28 27 48 76 6F 72 20 6D 61 6E WRITE('Hvor man
01B090: 67 65 20 73 7C 6D 7B 6E 64 3A 20 27 29 3B 0D 0A ge s|m{nd: ');..
01B0A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 RE
01B0B0: 50 45 41 54 0D 0A 20 20 20 20 20 20 20 20 20 20 PEAT..
01B0C0: 20 20 20 20 20 20 52 45 41 44 4C 4E 28 61 6E 74 READLN(ant
01B0D0: 61 6C 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 al);..
01B0E0: 20 20 20 20 55 4E 54 49 4C 20 61 6E 74 61 6C 20 UNTIL antal
01B0F0: 3E 3D 20 31 3B 0D 0A 20 20 20 20 20 20 20 20 20 >= 1;..
01B100: 20 20 20 20 20 57 52 49 54 45 28 27 48 76 6F 72 WRITE('Hvor
01B110: 20 6D 65 67 65 74 20 73 6B 61 6C 20 64 65 72 20 meget skal der
01B120: 74 7B 6C 6C 65 73 20 66 72 65 6D 3A 20 27 29 3B t{lles frem: ');
01B130: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
01B140: 20 20 52 45 50 45 41 54 0D 0A 20 20 20 20 20 20 REPEAT..
01B150: 20 20 20 20 20 20 20 20 20 20 20 20 52 45 41 44 READ
01B160: 4C 4E 28 66 72 65 6D 29 3B 0D 0A 20 20 20 20 20 LN(frem);..
01B170: 20 20 20 20 20 20 20 20 20 20 20 55 4E 54 49 4C UNTIL
01B180: 20 66 72 65 6D 20 3E 3D 31 3B 0D 0A 20 20 20 20 frem >=1;..
01B190: 20 20 20 20 20 20 20 20 20 20 6F 70 72 65 74 6E opretn
01B1A0: 69 6E 67 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 ing;..
01B1B0: 20 20 45 4E 44 3B 20 28 2A 20 69 6E 69 74 69 61 END; (* initia
01B1C0: 6C 69 73 65 72 20 2A 29 0D 0A 20 20 20 20 20 20 liser *)..
01B1D0: 20 20 20 20 0D 0A 20 20 20 20 20 20 20 20 20 20 ..
01B1E0: 50 52 4F 43 45 44 55 52 45 20 73 70 69 73 3B 0D PROCEDURE spis;.
01B1F0: 0A 20 20 20 20 20 20 20 20 20 20 0D 0A 20 20 20 . ..
01B200: 50 52 4F 47 52 41 4D 20 6B 6F 6E 74 72 6F 6C 3B PROGRAM kontrol;
01B210: 0D 0A 0D 0A 20 20 54 59 50 45 0D 0A 20 20 20 20 .... TYPE..
01B220: 73 74 72 32 20 3D 20 53 54 52 49 4E 47 28 2E 32 str2 = STRING(.2
01B230: 2E 29 3B 0D 0A 20 20 0D 0A 20 20 56 41 52 0D 0A .);.. .. VAR..
01B240: 20 20 20 20 73 74 72 65 6E 67 20 3A 20 73 74 72 streng : str
01B250: 32 3B 0D 0A 20 20 20 20 74 61 6C 2C 20 74 65 73 2;.. tal, tes
01B260: 74 20 3A 20 49 4E 54 45 47 45 52 3B 0D 0A 20 20 t : INTEGER;..
01B270: 0D 0A 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 57 .. BEGIN.. W
01B280: 52 49 54 45 28 43 4C 52 48 4F 4D 29 3B 0D 0A 20 RITE(CLRHOM);..
01B290: 20 20 20 52 45 50 45 41 54 0D 0A 20 20 20 20 20 REPEAT..
01B2A0: 20 47 4F 54 4F 58 59 28 30 2C 20 35 29 3B 0D 0A GOTOXY(0, 5);..
01B2B0: 20 20 20 20 20 20 57 52 49 54 45 28 43 4C 52 45 WRITE(CLRE
01B2C0: 4F 4C 2C 20 27 54 61 73 74 20 65 74 20 68 65 6C OL, 'Tast et hel
01B2D0: 74 61 6C 20 66 72 61 20 32 30 20 74 69 6C 20 33 tal fra 20 til 3
01B2E0: 30 3A 20 27 29 3B 0D 0A 20 20 20 20 20 20 42 55 0: ');.. BU
01B2F0: 46 4C 45 4E 20 3A 3D 20 32 3B 0D 0A 20 20 20 20 FLEN := 2;..
01B300: 20 20 52 45 41 44 4C 4E 28 73 74 72 65 6E 67 29 READLN(streng)
01B310: 3B 0D 0A 20 20 20 20 20 20 56 41 4C 28 73 74 72 ;.. VAL(str
01B320: 65 6E 67 2C 20 74 61 6C 2C 20 74 65 73 74 29 3B eng, tal, test);
01B330: 0D 0A 20 20 20 20 55 4E 54 49 4C 20 28 74 65 73 .. UNTIL (tes
01B340: 74 20 3D 20 30 29 20 41 4E 44 20 28 32 30 20 3C t = 0) AND (20 <
01B350: 3D 20 74 61 6C 29 20 41 4E 44 20 28 74 61 6C 20 = tal) AND (tal
01B360: 3C 3D 20 33 30 29 3B 0D 0A 20 20 20 20 57 52 49 <= 30);.. WRI
01B370: 54 45 4C 4E 28 27 44 65 74 20 69 6E 64 74 61 73 TELN('Det indtas
01B380: 74 65 64 65 20 74 61 6C 20 65 72 20 6F 6B 27 29 tede tal er ok')
01B390: 3B 0D 0A 20 20 45 4E 44 2E 0D 0A 1A 28 73 74 72 ;.. END....(str
01B3A0: 65 6E 67 2C 20 74 61 6C 2C 20 74 65 73 74 29 3B eng, tal, test);
01B3B0: 0D 0A 20 20 20 20 55 4E 54 49 4C 20 28 74 65 73 .. UNTIL (tes
01B3C0: 74 20 3D 20 30 29 20 41 4E 44 20 28 32 30 20 3C t = 0) AND (20 <
01B3D0: 3D 20 74 61 6C 29 20 41 4E 44 20 28 74 61 6C 20 = tal) AND (tal
01B3E0: 3C 3D 20 33 30 29 3B 0D 0A 20 20 20 20 57 52 49 <= 30);.. WRI
01B3F0: 54 45 4C 4E 28 27 44 65 74 20 69 6E 64 74 61 73 TELN('Det indtas
01B400: 20 20 20 20 20 20 20 20 20 56 41 52 0D 0A 20 20 VAR..
01B410: 20 20 20 20 20 20 20 20 20 20 20 20 69 2C 20 6A i, j
01B420: 20 3A 20 49 4E 54 45 47 45 52 3B 0D 0A 20 20 20 : INTEGER;..
01B430: 20 20 20 20 20 20 20 20 20 20 20 70 20 3A 20 70 p : p
01B440: 6F 69 6E 74 65 72 3B 0D 0A 20 20 20 20 20 20 20 ointer;..
01B450: 20 20 20 20 20 0D 0A 20 20 20 20 20 20 20 20 20 ..
01B460: 20 20 20 50 52 4F 43 45 44 55 52 45 20 75 64 6D PROCEDURE udm
01B470: 65 64 28 6B 2C 20 6C 3A 20 49 4E 54 45 47 45 52 ed(k, l: INTEGER
01B480: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 );..
01B490: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
01B4A0: 42 45 47 49 4E 20 28 2A 20 75 64 6D 65 64 20 2A BEGIN (* udmed *
01B4B0: 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 )..
01B4C0: 20 20 20 57 52 49 54 45 4C 4E 28 27 4E 75 6D 6D WRITELN('Numm
01B4D0: 65 72 27 2C 20 6B 20 3A 20 33 2C 20 27 20 62 6C er', k : 3, ' bl
01B4E0: 65 76 20 73 70 69 73 74 20 69 20 27 2C 20 6C 20 ev spist i ', l
01B4F0: 3A 20 33 2C 0D 0A 20 20 20 20 20 20 20 20 20 20 : 3,..
01B500: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 2E '.
01B510: 20 6F 6D 67 61 6E 67 27 29 3B 0D 0A 20 20 20 20 omgang');..
01B520: 20 20 20 20 20 20 20 20 20 20 45 4E 44 3B 20 28 END; (
01B530: 2A 20 75 64 6D 65 64 20 2A 29 0D 0A 20 20 20 20 * udmed *)..
01B540: 20 20 20 20 20 20 20 20 20 20 0D 0A 20 20 20 20 ..
01B550: 20 20 20 20 20 20 20 20 42 45 47 49 4E 20 28 2A BEGIN (*
01B560: 20 73 70 69 73 20 2A 29 0D 0A 20 20 20 20 20 20 spis *)..
01B570: 20 20 20 20 20 20 20 20 49 46 20 66 72 65 6D 20 IF frem
01B580: 3E 3D 20 32 0D 0A 20 20 20 20 20 20 20 20 20 20 >= 2..
01B590: 20 20 20 20 20 20 54 48 45 4E 0D 0A 20 20 20 20 THEN..
01B5A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 45 BE
01B5B0: 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 GIN..
01B5C0: 20 20 20 20 20 20 20 20 20 46 4F 52 20 69 20 3A FOR i :
01B5D0: 3D 20 31 20 54 4F 20 61 6E 74 61 6C 20 2D 20 31 = 1 TO antal - 1
01B5E0: 20 44 4F 0D 0A 20 20 20 20 20 20 20 20 20 20 20 DO..
01B5F0: 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4E BEGIN
01B600: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
01B610: 17 00 01 00 02 09 52 E5 17 00 41 02 00 00 00 02 ......R...A.....
01B620: 17 00 46 02 00 00 00 02 17 00 42 02 00 00 00 02 ..F.......B.....
01B630: 17 00 47 02 00 00 00 02 17 00 43 02 00 00 00 02 ..G.......C.....
01B640: 17 00 48 02 00 00 00 02 17 00 44 02 00 00 00 02 ..H.......D.....
01B650: 17 00 49 02 00 00 00 02 17 00 45 02 00 00 00 02 ..I.......E.....
01B660: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B670: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B680: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B690: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B6A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B6B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B6C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B6D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B6E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B6F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B700: 60 60 BD 9A 13 0C 90 12 F8 02 57 4A 1E E4 E5 80 ``........WJ....
01B710: A0 35 9E C2 26 E0 07 C6 85 76 18 80 3D 25 8F 57 .5..&....v..=%.W
01B720: 6E 0C 37 27 1B 48 57 75 41 84 18 46 41 51 94 85 n.7'.HWuA..FAQ..
01B730: 2D 58 00 A1 C1 4D 50 82 50 B4 95 3D B3 5C 54 C9 -X...MP.P..=.\T.
01B740: 4B B6 05 F9 60 F8 42 AA 12 DC 80 97 5A 61 16 05 K...`.B.....Za..
01B750: 07 B8 AF 73 E6 C0 01 B6 2A DE 2D 0B 03 A0 B3 DC ...s....*.-.....
01B760: 12 C0 C5 AB C5 21 0A 5D F3 AB 29 C1 5B F2 80 6B .....!.]..).[..k
01B770: 00 72 A8 EA 18 8C 96 9C 06 C0 81 25 29 59 3D E9 .r.........%)Y=.
01B780: E5 CE 80 94 DB E2 2D B7 80 6B 7D AB E5 57 EB F7 ......-..k}..W..
01B790: 5E EC 45 61 E4 7D 2C 47 7F 84 3D 57 3E 02 85 54 ^.Ea.},G..=W>..T
01B7A0: D5 18 F2 E3 8C E0 11 B5 F1 E2 CB 79 70 D6 CE F7 ...........yp...
01B7B0: 5C 3D E9 E5 98 EF 2F AF CE 0B D7 79 17 9F FC CA \=..../....y....
01B7C0: 9F B8 51 CF FD 7D 3F F1 F4 7C 7D 7F F7 7B B7 C3 ..Q..}?..|}..{..
01B7D0: 3D DF BE 0F 72 C5 E0 E5 78 BE 5C 6A E0 E5 E7 D6 =...r...x.\j....
01B7E0: EB 3C 3F CF 0C 2F 9A E7 7A BE E2 1E AD 50 A2 68 .<?../..z....P.h
01B7F0: C2 A6 A8 B5 CD 5D 77 8E 31 A1 5C 82 5F 6B 5F 6B .....]w.1.\._k_k
01B800: F5 6B 3E 90 F8 00 2C 34 6E C4 B8 C6 5C E3 4B 11 .k>...,4n...\.K.
01B810: 61 DE 48 78 5D 98 9C 97 6B 85 B5 66 6C 36 36 D3 a.Hx]...k..fl66.
01B820: 6B 6A 85 64 5B 6B D0 25 5B 49 F3 74 C1 04 6B 22 kj.d[k.%[I.t..k"
01B830: DD 8D 0F A0 F0 D5 F0 B1 1A DC D0 00 AE ED 8D 09 ................
01B840: 5B 82 60 DB A8 8B 89 22 4D 85 9B 9A 25 35 A6 76 [.`...."M...%5.v
01B850: 97 0C 8E 0D 32 3A 74 38 E2 C8 8E 8C 76 0D 19 D3 ....2:t8....v...
01B860: 91 9C CD 5C 2E 99 60 3A 66 C6 33 DD 66 6E 6D 06 ...\..`:f.3.fnm.
01B870: 65 1A 39 73 16 1A CD 91 66 D3 5D 46 64 B4 68 E4 e.9s....f.]Fd.h.
01B880: 93 D1 46 66 8E 4E 0D 28 1A 1C 51 5C C3 C1 ED A6 ..Ff.N.(..Q\....
01B890: A3 53 60 8A 71 64 4C 4E 91 8C A6 1A 91 C6 6D 1A £S`.qdLN......m.
01B8A0: 48 86 11 A9 CC A6 8E 8C 11 29 CC A6 1A 91 D9 34 H........).....4
01B8B0: 9A 91 8D 42 8C 18 1A 91 C8 60 E1 C8 C8 70 26 D3 ...B.....`...p&.
01B8C0: 48 46 19 8D 36 19 64 64 C4 D8 B3 C1 64 2A 70 64 HF..6.dd....d*pd
01B8D0: 6D 6D A2 75 08 EA 21 12 89 45 90 34 92 7C 19 4D mm.u..!..E.4.|.M
01B8E0: C9 07 D0 A2 4D 92 28 2B 45 21 D2 13 45 44 2A 5E ....M.(+E!..ED*^
01B8F0: 97 3D 5E D4 23 46 DA E2 54 51 3F 82 65 FE 0B C2 .=^.#F..TQ?.e...
01B900: 20 20 20 20 20 20 6E 79 67 65 6E 28 2E 4F 52 44 nygen(.ORD
01B910: 28 70 6C 61 63 28 2E 31 2E 29 29 20 2D 20 39 36 (plac(.1.)) - 96
01B920: 2C 20 4F 52 44 28 70 6C 61 63 28 2E 32 2E 29 29 , ORD(plac(.2.))
01B930: 20 2D 20 36 34 2E 29 20 3A 3D 20 27 20 27 3B 0D - 64.) := ' ';.
01B940: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
01B950: 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 20 END;..
01B960: 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 END;..
01B970: 20 55 4E 54 49 4C 20 63 68 20 49 4E 20 28 2E 27 UNTIL ch IN (.'
01B980: 41 27 2C 20 27 61 27 2E 29 3B 0D 0A 20 20 20 20 A', 'a'.);..
01B990: 20 20 47 4F 54 4F 58 59 28 35 34 2C 20 31 29 3B GOTOXY(54, 1);
01B9A0: 20 57 52 49 54 45 28 27 47 4C 20 47 45 4E 45 52 WRITE('GL GENER
01B9B0: 41 54 49 4F 4E 27 29 3B 0D 0A 20 20 20 20 20 20 ATION');..
01B9C0: 46 4F 52 20 79 20 3A 3D 20 35 20 54 4F 20 31 34 FOR y := 5 TO 14
01B9D0: 20 44 4F 0D 0A 20 20 20 20 20 20 20 20 42 45 47 DO.. BEG
01B9E0: 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 47 4F IN.. GO
01B9F0: 54 4F 58 59 28 34 35 2C 20 79 29 3B 20 57 52 49 TOXY(45, y); WRI
01BA00: 54 45 28 43 4C 52 45 4F 4C 29 3B 0D 0A 20 20 20 TE(CLREOL);..
01BA10: 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 END;..
01BA20: 20 47 4F 54 4F 58 59 28 34 34 2C 20 33 29 3B 0D GOTOXY(44, 3);.
01BA30: 0A 20 20 20 20 20 20 46 4F 52 20 63 68 20 3A 3D . FOR ch :=
01BA40: 20 27 61 27 20 54 4F 20 27 71 27 20 44 4F 0D 0A 'a' TO 'q' DO..
01BA50: 20 20 20 20 20 20 20 20 57 52 49 54 45 28 63 68 WRITE(ch
01BA60: 2C 20 27 20 27 29 3B 0D 0A 20 20 20 20 20 20 47 , ' ');.. G
01BA70: 4F 54 4F 58 59 28 34 34 2C 20 32 31 29 3B 0D 0A OTOXY(44, 21);..
01BA80: 20 20 20 20 20 20 46 4F 52 20 63 68 20 3A 3D 20 FOR ch :=
01BA90: 27 61 27 20 54 4F 20 27 71 27 20 44 4F 0D 0A 20 'a' TO 'q' DO..
01BAA0: 20 20 20 20 20 20 20 57 52 49 54 45 28 63 68 2C WRITE(ch,
01BAB0: 20 27 20 27 29 3B 0D 0A 20 20 20 20 20 20 46 4F ' ');.. FO
01BAC0: 52 20 63 68 20 3A 3D 20 27 41 27 20 54 4F 20 27 R ch := 'A' TO '
01BAD0: 51 27 20 44 4F 0D 0A 20 20 20 20 20 20 20 20 42 Q' DO.. B
01BAE0: 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 EGIN..
01BAF0: 47 4F 54 4F 58 59 28 34 32 2C 20 4F 52 44 28 63 GOTOXY(42, ORD(c
01BB00: 50 52 4F 47 52 41 4D 20 6C 69 66 65 3B 0D 0A 0D PROGRAM life;...
01BB10: 0A 20 20 54 59 50 45 0D 0A 20 20 20 20 74 61 76 . TYPE.. tav
01BB20: 6C 65 20 3D 20 41 52 52 41 59 28 2E 30 20 2E 2E le = ARRAY(.0 ..
01BB30: 20 31 38 2C 20 30 20 2E 2E 20 31 38 2E 29 20 4F 18, 0 .. 18.) O
01BB40: 46 20 43 48 41 52 3B 0D 0A 20 20 0D 0A 20 20 56 F CHAR;.. .. V
01BB50: 41 52 0D 0A 20 20 20 20 67 6C 67 65 6E 2C 20 6E AR.. glgen, n
01BB60: 79 67 65 6E 20 3A 20 74 61 76 6C 65 3B 0D 0A 20 ygen : tavle;..
01BB70: 20 20 20 63 68 20 3A 20 43 48 41 52 3B 0D 0A 20 ch : CHAR;..
01BB80: 20 20 20 67 65 6E 65 72 61 74 69 6F 6E 20 3A 20 generation :
01BB90: 49 4E 54 45 47 45 52 3B 0D 0A 20 20 20 20 0D 0A INTEGER;.. ..
01BBA0: 20 20 50 52 4F 43 45 44 55 52 45 20 69 6E 69 74 PROCEDURE init
01BBB0: 3B 0D 0A 20 20 0D 0A 20 20 20 20 54 59 50 45 0D ;.. .. TYPE.
01BBC0: 0A 20 20 20 20 20 20 73 74 72 32 20 3D 20 53 54 . str2 = ST
01BBD0: 52 49 4E 47 28 2E 32 2E 29 3B 0D 0A 20 20 20 20 RING(.2.);..
01BBE0: 0D 0A 20 20 20 20 56 41 52 0D 0A 20 20 20 20 20 .. VAR..
01BBF0: 20 70 6C 61 63 20 3A 20 73 74 72 32 3B 0D 0A 20 plac : str2;..
01BC00: 20 20 20 20 20 78 2C 20 79 20 3A 20 49 4E 54 45 x, y : INTE
01BC10: 47 45 52 3B 0D 0A 20 20 20 20 20 20 63 68 20 3A GER;.. ch :
01BC20: 20 43 48 41 52 3B 0D 0A 20 20 20 20 20 20 0D 0A CHAR;.. ..
01BC30: 20 20 20 20 42 45 47 49 4E 20 28 2A 20 69 6E 69 BEGIN (* ini
01BC40: 74 20 2A 29 0D 0A 20 20 20 20 20 20 46 4F 52 20 t *).. FOR
01BC50: 78 20 3A 3D 20 30 20 54 4F 20 31 38 20 44 4F 0D x := 0 TO 18 DO.
01BC60: 0A 20 20 20 20 20 20 20 20 46 4F 52 20 79 20 3A . FOR y :
01BC70: 3D 20 30 20 54 4F 20 31 38 20 44 4F 0D 0A 20 20 = 0 TO 18 DO..
01BC80: 20 20 20 20 20 20 20 20 6E 79 67 65 6E 28 2E 78 nygen(.x
01BC90: 2C 20 79 2E 29 20 3A 3D 20 27 20 27 3B 0D 0A 20 , y.) := ' ';..
01BCA0: 20 20 20 20 20 57 52 49 54 45 28 43 4C 52 48 4F WRITE(CLRHO
01BCB0: 4D 29 3B 0D 0A 20 20 20 20 20 20 47 4F 54 4F 58 M);.. GOTOX
01BCC0: 59 28 31 32 2C 20 31 29 3B 20 57 52 49 54 45 28 Y(12, 1); WRITE(
01BCD0: 27 4E 59 20 47 45 4E 45 52 41 54 49 4F 4E 27 29 'NY GENERATION')
01BCE0: 3B 0D 0A 20 20 20 20 20 20 47 4F 54 4F 58 59 28 ;.. GOTOXY(
01BCF0: 32 2C 20 33 29 3B 0D 0A 20 20 20 20 20 20 46 4F 2, 3);.. FO
01BD00: 68 29 20 2D 20 36 31 29 3B 20 57 52 49 54 45 28 h) - 61); WRITE(
01BD10: 63 68 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 ch);..
01BD20: 47 4F 54 4F 58 59 28 37 38 2C 20 4F 52 44 28 63 GOTOXY(78, ORD(c
01BD30: 68 29 20 2D 20 36 31 29 3B 20 57 52 49 54 45 28 h) - 61); WRITE(
01BD40: 63 68 29 3B 0D 0A 20 20 20 20 20 20 20 20 45 4E ch);.. EN
01BD50: 44 3B 0D 0A 20 20 20 20 20 20 67 65 6E 65 72 61 D;.. genera
01BD60: 74 69 6F 6E 20 3A 3D 20 31 3B 0D 0A 20 20 20 20 tion := 1;..
01BD70: 45 4E 44 3B 20 28 2A 20 69 6E 69 74 20 2A 29 0D END; (* init *).
01BD80: 0A 20 20 0D 0A 20 20 50 52 4F 43 45 44 55 52 45 . .. PROCEDURE
01BD90: 20 6E 79 67 65 6E 65 72 61 74 69 6F 6E 3B 0D 0A nygeneration;..
01BDA0: 20 20 20 20 0D 0A 20 20 20 20 56 41 52 0D 0A 20 .. VAR..
01BDB0: 20 20 20 20 20 78 2C 20 79 2C 20 61 6E 74 61 6C x, y, antal
01BDC0: 20 3A 20 49 4E 54 45 47 45 52 3B 0D 0A 20 20 20 : INTEGER;..
01BDD0: 20 0D 0A 20 20 20 20 46 55 4E 43 54 49 4F 4E 20 .. FUNCTION
01BDE0: 6E 61 62 6F 28 78 2C 20 79 20 3A 20 49 4E 54 45 nabo(x, y : INTE
01BDF0: 47 45 52 29 20 3A 20 49 4E 54 45 47 45 52 3B 0D GER) : INTEGER;.
01BE00: 0A 20 20 20 20 0D 0A 20 20 20 20 20 20 56 41 52 . .. VAR
01BE10: 0D 0A 20 20 20 20 20 20 20 20 69 2C 20 6A 2C 20 .. i, j,
01BE20: 61 6E 74 61 6C 20 3A 20 49 4E 54 45 47 45 52 3B antal : INTEGER;
01BE30: 0D 0A 20 20 20 20 20 20 0D 0A 20 20 20 20 20 20 .. ..
01BE40: 42 45 47 49 4E 20 28 2A 20 6E 61 62 6F 20 2A 29 BEGIN (* nabo *)
01BE50: 0D 0A 20 20 20 20 20 20 20 20 61 6E 74 61 6C 20 .. antal
01BE60: 3A 3D 20 30 3B 0D 0A 20 20 20 20 20 20 20 20 46 := 0;.. F
01BE70: 4F 52 20 69 20 3A 3D 20 78 20 2D 31 20 54 4F 20 OR i := x -1 TO
01BE80: 78 20 2B 20 31 20 44 4F 0D 0A 20 20 20 20 20 20 x + 1 DO..
01BE90: 20 20 20 20 49 46 20 67 6C 67 65 6E 28 2E 69 2C IF glgen(.i,
01BEA0: 20 79 20 2D 20 31 2E 29 20 3D 20 27 2A 27 0D 0A y - 1.) = '*'..
01BEB0: 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4E THEN
01BEC0: 20 61 6E 74 61 6C 20 3A 3D 20 61 6E 74 61 6C 20 antal := antal
01BED0: 2B 20 31 3B 0D 0A 20 20 20 20 20 20 20 20 46 4F + 1;.. FO
01BEE0: 52 20 69 20 3A 3D 20 78 2D 31 20 54 4F 20 78 20 R i := x-1 TO x
01BEF0: 2B 20 31 20 44 4F 0D 0A 20 20 20 20 20 20 20 20 + 1 DO..
01BF00: 52 20 63 68 20 3A 3D 20 27 61 27 20 54 4F 20 27 R ch := 'a' TO '
01BF10: 71 27 20 44 4F 0D 0A 20 20 20 20 20 20 20 20 57 q' DO.. W
01BF20: 52 49 54 45 28 63 68 2C 20 27 20 27 29 3B 0D 0A RITE(ch, ' ');..
01BF30: 20 20 20 20 20 20 47 4F 54 4F 58 59 28 32 2C 20 GOTOXY(2,
01BF40: 32 31 29 3B 0D 0A 20 20 20 20 20 20 46 4F 52 20 21);.. FOR
01BF50: 63 68 20 3A 3D 20 27 61 27 20 54 4F 20 27 71 27 ch := 'a' TO 'q'
01BF60: 20 44 4F 0D 0A 20 20 20 20 20 20 20 20 57 52 49 DO.. WRI
01BF70: 54 45 28 63 68 2C 20 27 20 27 29 3B 0D 0A 20 20 TE(ch, ' ');..
01BF80: 20 20 20 20 46 4F 52 20 63 68 20 3A 3D 20 27 41 FOR ch := 'A
01BF90: 27 20 54 4F 20 27 51 27 20 44 4F 0D 0A 20 20 20 ' TO 'Q' DO..
01BFA0: 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 BEGIN..
01BFB0: 20 20 20 20 20 20 47 4F 54 4F 58 59 28 30 2C 20 GOTOXY(0,
01BFC0: 4F 52 44 28 63 68 29 20 2D 20 36 31 29 3B 20 57 ORD(ch) - 61); W
01BFD0: 52 49 54 45 28 63 68 29 3B 0D 0A 20 20 20 20 20 RITE(ch);..
01BFE0: 20 20 20 20 20 47 4F 54 4F 58 59 28 33 36 2C 20 GOTOXY(36,
01BFF0: 4F 52 44 28 63 68 29 20 2D 20 36 31 29 3B 20 57 ORD(ch) - 61); W
01C000: 52 49 54 45 28 63 68 29 3B 0D 0A 20 20 20 20 20 RITE(ch);..
01C010: 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 47 END;.. G
01C020: 4F 54 4F 58 59 28 34 35 2C 20 35 29 3B 20 57 52 OTOXY(45, 5); WR
01C030: 49 54 45 28 27 45 6E 20 6F 72 67 61 6E 69 73 6D ITE('En organism
01C040: 65 73 20 70 6C 61 63 65 72 69 6E 67 20 61 6E 67 es placering ang
01C050: 69 76 65 73 27 29 3B 0D 0A 20 20 20 20 20 20 47 ives');.. G
01C060: 4F 54 4F 58 59 28 34 35 2C 20 36 29 3B 20 57 52 OTOXY(45, 6); WR
01C070: 49 54 45 28 27 66 2E 65 6B 73 2E 20 73 7D 6C 65 ITE('f.eks. s}le
01C080: 64 65 73 3A 20 3C 66 4B 3E 27 29 3B 0D 0A 20 20 des: <fK>');..
01C090: 20 20 20 20 47 4F 54 4F 58 59 28 34 35 2C 20 38 GOTOXY(45, 8
01C0A0: 29 3B 20 57 52 49 54 45 28 27 49 2E 20 49 6E 64 ); WRITE('I. Ind
01C0B0: 73 7B 74 20 6F 72 67 61 6E 69 73 6D 65 27 29 3B s{t organisme');
01C0C0: 0D 0A 20 20 20 20 20 20 47 4F 54 4F 58 59 28 34 .. GOTOXY(4
01C0D0: 35 2C 20 39 29 3B 20 57 52 49 54 45 28 27 53 2E 5, 9); WRITE('S.
01C0E0: 20 53 6C 65 74 20 6F 72 67 61 6E 69 73 6D 65 27 Slet organisme'
01C0F0: 29 3B 0D 0A 20 20 20 20 20 20 47 4F 54 4F 58 59 );.. GOTOXY
01C100: 20 20 49 46 20 67 6C 67 65 6E 28 2E 69 2C 20 79 IF glgen(.i, y
01C110: 20 2B 20 31 2E 29 20 3D 20 27 2A 27 0D 0A 20 20 + 1.) = '*'..
01C120: 20 20 20 20 20 20 20 20 20 20 54 48 45 4E 20 61 THEN a
01C130: 6E 74 61 6C 20 3A 3D 20 61 6E 74 61 6C 20 2B 20 ntal := antal +
01C140: 31 3B 0D 0A 20 20 20 20 20 20 20 20 49 46 20 67 1;.. IF g
01C150: 6C 67 65 6E 28 2E 78 20 2D 20 31 2C 20 79 2E 29 lgen(.x - 1, y.)
01C160: 20 3D 20 27 2A 27 0D 0A 20 20 20 20 20 20 20 20 = '*'..
01C170: 20 20 54 48 45 4E 20 61 6E 74 61 6C 20 3A 3D 20 THEN antal :=
01C180: 61 6E 74 61 6C 20 2B 20 31 3B 0D 0A 20 20 20 20 antal + 1;..
01C190: 20 20 20 20 49 46 20 67 6C 67 65 6E 28 2E 78 20 IF glgen(.x
01C1A0: 2B 20 31 2C 20 79 2E 29 20 3D 20 27 2A 27 0D 0A + 1, y.) = '*'..
01C1B0: 20 20 20 20 20 20 20 20 20 20 54 48 45 4E 20 61 THEN a
01C1C0: 6E 74 61 6C 20 3A 3D 20 61 6E 74 61 6C 20 2B 20 ntal := antal +
01C1D0: 31 3B 0D 0A 20 20 20 20 20 20 20 20 6E 61 62 6F 1;.. nabo
01C1E0: 20 3A 3D 20 61 6E 74 61 6C 3B 0D 0A 20 20 20 20 := antal;..
01C1F0: 20 20 45 4E 44 3B 20 28 2A 20 6E 61 62 6F 20 2A END; (* nabo *
01C200: 29 0D 0A 20 20 20 20 0D 0A 20 20 20 20 50 52 4F ).. .. PRO
01C210: 43 45 44 55 52 45 20 74 65 67 6E 62 61 6E 65 28 CEDURE tegnbane(
01C220: 6E 72 20 3A 20 49 4E 54 45 47 45 52 29 3B 0D 0A nr : INTEGER);..
01C230: 20 20 20 20 0D 0A 20 20 20 20 20 20 56 41 52 0D .. VAR.
01C240: 0A 20 20 20 20 20 20 20 20 69 2C 20 6A 20 3A 20 . i, j :
01C250: 49 4E 54 45 47 45 52 3B 0D 0A 20 20 20 20 20 20 INTEGER;..
01C260: 0D 0A 20 20 20 20 20 20 42 45 47 49 4E 20 28 2A .. BEGIN (*
01C270: 20 74 65 67 6E 62 61 6E 65 20 2A 29 0D 0A 20 20 tegnbane *)..
01C280: 20 20 20 20 20 20 46 4F 52 20 69 20 3A 3D 20 31 FOR i := 1
01C290: 20 54 4F 20 31 37 20 44 4F 0D 0A 20 20 20 20 20 TO 17 DO..
01C2A0: 20 20 20 20 20 46 4F 52 20 6A 20 3A 3D 20 31 20 FOR j := 1
01C2B0: 54 4F 20 31 37 20 44 4F 0D 0A 20 20 20 20 20 20 TO 17 DO..
01C2C0: 20 20 20 20 20 20 49 46 20 6E 72 20 3D 20 31 0D IF nr = 1.
01C2D0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 . T
01C2E0: 48 45 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 HEN..
01C2F0: 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 BEGIN..
01C300: 28 34 35 2C 20 31 30 29 3B 20 57 52 49 54 45 28 (45, 10); WRITE(
01C310: 27 41 2E 20 41 66 73 6C 75 74 20 69 6E 64 74 61 'A. Afslut indta
01C320: 73 74 6E 69 6E 67 27 29 3B 0D 0A 20 20 20 20 20 stning');..
01C330: 20 47 4F 54 4F 58 59 28 34 35 2C 20 31 32 29 3B GOTOXY(45, 12);
01C340: 20 57 52 49 54 45 28 27 5C 6E 73 6B 65 3A 20 3C WRITE('\nske: <
01C350: 20 3E 27 29 3B 0D 0A 20 20 20 20 20 20 47 4F 54 >');.. GOT
01C360: 4F 58 59 28 34 35 2C 20 31 34 29 3B 20 57 52 49 OXY(45, 14); WRI
01C370: 54 45 28 27 50 6C 61 63 65 72 69 6E 67 3A 20 3C TE('Placering: <
01C380: 20 20 3E 27 29 3B 0D 0A 20 20 20 20 20 20 52 45 >');.. RE
01C390: 50 45 41 54 0D 0A 20 20 20 20 20 20 20 20 47 4F PEAT.. GO
01C3A0: 54 4F 58 59 28 35 33 2C 20 31 32 29 3B 20 57 52 TOXY(53, 12); WR
01C3B0: 49 54 45 28 27 20 27 2C 20 43 48 52 28 38 29 29 ITE(' ', CHR(8))
01C3C0: 3B 0D 0A 20 20 20 20 20 20 20 20 52 45 50 45 41 ;.. REPEA
01C3D0: 54 0D 0A 20 20 20 20 20 20 20 20 20 20 52 45 41 T.. REA
01C3E0: 44 28 4B 42 44 2C 20 63 68 29 3B 0D 0A 20 20 20 D(KBD, ch);..
01C3F0: 20 20 20 20 20 55 4E 54 49 4C 20 63 68 20 49 4E UNTIL ch IN
01C400: 20 28 2E 27 49 27 2C 20 27 69 27 2C 20 27 53 27 (.'I', 'i', 'S'
01C410: 2C 20 27 73 27 2C 20 27 41 27 2C 20 27 61 27 2E , 's', 'A', 'a'.
01C420: 29 3B 0D 0A 20 20 20 20 20 20 20 20 57 52 49 54 );.. WRIT
01C430: 45 4C 4E 28 63 68 29 3B 0D 0A 20 20 20 20 20 20 ELN(ch);..
01C440: 20 20 49 46 20 63 68 20 49 4E 20 28 2E 27 49 27 IF ch IN (.'I'
01C450: 2C 20 27 69 27 2C 20 27 53 27 2C 20 27 73 27 2E , 'i', 'S', 's'.
01C460: 29 0D 0A 20 20 20 20 20 20 20 20 20 20 54 48 45 ).. THE
01C470: 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 42 N.. B
01C480: 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 EGIN..
01C490: 20 20 20 20 52 45 50 45 41 54 0D 0A 20 20 20 20 REPEAT..
01C4A0: 20 20 20 20 20 20 20 20 20 20 20 20 47 4F 54 4F GOTO
01C4B0: 58 59 28 35 37 2C 20 31 34 29 3B 20 57 52 49 54 XY(57, 14); WRIT
01C4C0: 45 28 27 20 20 27 2C 20 43 48 52 28 38 29 2C 20 E(' ', CHR(8),
01C4D0: 43 48 52 28 38 29 29 3B 0D 0A 20 20 20 20 20 20 CHR(8));..
01C4E0: 20 20 20 20 20 20 20 20 20 20 42 55 46 4C 45 4E BUFLEN
01C4F0: 20 3A 3D 20 32 3B 0D 0A 20 20 20 20 20 20 20 20 := 2;..
01C500: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 4F GO
01C510: 54 4F 58 59 28 32 20 2A 20 69 2C 20 6A 20 2B 20 TOXY(2 * i, j +
01C520: 33 29 3B 20 57 52 49 54 45 28 6E 79 67 65 6E 28 3); WRITE(nygen(
01C530: 2E 69 2C 20 6A 2E 29 29 3B 0D 0A 20 20 20 20 20 .i, j.));..
01C540: 20 20 20 20 20 20 20 20 20 20 20 45 4E 44 0D 0A END..
01C550: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4C EL
01C560: 53 45 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 SE..
01C570: 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 BEGIN..
01C580: 20 20 20 20 20 20 20 20 20 20 20 20 20 47 4F 54 GOT
01C590: 4F 58 59 28 32 20 2A 20 69 20 2B 20 34 32 2C 20 OXY(2 * i + 42,
01C5A0: 6A 20 2B 20 33 29 3B 20 57 52 49 54 45 28 6E 79 j + 3); WRITE(ny
01C5B0: 67 65 6E 28 2E 69 2C 20 6A 2E 29 29 3B 0D 0A 20 gen(.i, j.));..
01C5C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 E
01C5D0: 4E 44 3B 0D 0A 20 20 20 20 20 20 45 4E 44 3B 20 ND;.. END;
01C5E0: 28 2A 20 74 65 67 6E 62 61 6E 65 20 2A 29 0D 0A (* tegnbane *)..
01C5F0: 20 20 20 20 0D 0A 20 20 20 20 42 45 47 49 4E 20 .. BEGIN
01C600: 28 2A 20 6E 79 67 65 6E 65 72 61 74 69 6F 6E 20 (* nygeneration
01C610: 2A 29 0D 0A 20 20 20 20 20 20 67 6C 67 65 6E 20 *).. glgen
01C620: 3A 3D 20 6E 79 67 65 6E 3B 0D 0A 20 20 20 20 20 := nygen;..
01C630: 20 74 65 67 6E 62 61 6E 65 28 32 29 3B 0D 0A 20 tegnbane(2);..
01C640: 20 20 20 20 20 46 4F 52 20 78 20 3A 3D 20 31 20 FOR x := 1
01C650: 54 4F 20 31 37 20 44 4F 0D 0A 20 20 20 20 20 20 TO 17 DO..
01C660: 20 20 46 4F 52 20 79 20 3A 3D 20 31 20 54 4F 20 FOR y := 1 TO
01C670: 31 37 20 44 4F 0D 0A 20 20 20 20 20 20 20 20 20 17 DO..
01C680: 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 BEGIN..
01C690: 20 20 20 20 61 6E 74 61 6C 20 3A 3D 20 6E 61 62 antal := nab
01C6A0: 6F 28 78 2C 79 29 3B 0D 0A 20 20 20 20 20 20 20 o(x,y);..
01C6B0: 20 20 20 20 20 43 41 53 45 20 61 6E 74 61 6C 20 CASE antal
01C6C0: 4F 46 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 OF..
01C6D0: 20 20 34 2C 20 35 2C 20 36 2C 20 37 2C 20 38 20 4, 5, 6, 7, 8
01C6E0: 3A 20 6E 79 67 65 6E 28 2E 78 2C 20 79 2E 29 20 : nygen(.x, y.)
01C6F0: 3A 3D 20 27 20 27 3B 0D 0A 20 20 20 20 20 20 20 := ' ';..
01C700: 20 20 20 20 20 20 20 20 52 45 41 44 28 70 6C 61 READ(pla
01C710: 63 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 c);..
01C720: 20 20 20 55 4E 54 49 4C 20 28 70 6C 61 63 28 2E UNTIL (plac(.
01C730: 31 2E 29 20 49 4E 20 28 2E 27 61 27 20 2E 2E 20 1.) IN (.'a' ..
01C740: 27 71 27 2E 29 29 20 41 4E 44 0D 0A 20 20 20 20 'q'.)) AND..
01C750: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01C760: 28 70 6C 61 63 28 2E 32 2E 29 20 49 4E 20 28 2E (plac(.2.) IN (.
01C770: 27 41 27 20 2E 2E 20 27 51 27 2E 29 29 3B 0D 0A 'A' .. 'Q'.));..
01C780: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 4F GO
01C790: 54 4F 58 59 28 28 4F 52 44 28 70 6C 61 63 28 2E TOXY((ORD(plac(.
01C7A0: 31 2E 29 29 20 2D 20 39 36 29 20 2A 20 32 2C 20 1.)) - 96) * 2,
01C7B0: 4F 52 44 28 70 6C 61 63 28 2E 32 2E 29 29 20 2D ORD(plac(.2.)) -
01C7C0: 20 36 31 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 61);..
01C7D0: 20 20 20 20 20 49 46 20 63 68 20 49 4E 20 28 2E IF ch IN (.
01C7E0: 27 49 27 2C 20 27 69 27 2E 29 0D 0A 20 20 20 20 'I', 'i'.)..
01C7F0: 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4E THEN
01C800: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
01C810: 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 BEGIN..
01C820: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 W
01C830: 52 49 54 45 28 27 2A 27 29 3B 0D 0A 20 20 20 20 RITE('*');..
01C840: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01C850: 6E 79 67 65 6E 28 2E 4F 52 44 28 70 6C 61 63 28 nygen(.ORD(plac(
01C860: 2E 31 2E 29 29 20 2D 20 39 36 2C 20 4F 52 44 28 .1.)) - 96, ORD(
01C870: 70 6C 61 63 28 2E 32 2E 29 29 20 2D 20 36 34 2E plac(.2.)) - 64.
01C880: 29 20 3A 3D 20 27 2A 27 3B 0D 0A 20 20 20 20 20 ) := '*';..
01C890: 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4E 44 END
01C8A0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
01C8B0: 20 20 45 4C 53 45 0D 0A 20 20 20 20 20 20 20 20 ELSE..
01C8C0: 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4E 0D BEGIN.
01C8D0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
01C8E0: 20 20 20 20 20 57 52 49 54 45 28 27 20 27 29 3B WRITE(' ');
01C8F0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
01C900: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
01C910: 18 00 01 00 02 09 52 E5 18 00 41 02 00 00 00 02 ......R...A.....
01C920: 18 00 46 02 00 00 00 02 18 00 42 02 00 00 00 02 ..F.......B.....
01C930: 18 00 47 02 00 00 00 02 18 00 43 02 00 00 00 02 ..G.......C.....
01C940: 18 00 48 02 00 00 00 02 18 00 44 02 00 00 00 02 ..H.......D.....
01C950: 18 00 49 02 00 00 00 02 18 00 45 02 00 00 00 02 ..I.......E.....
01C960: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C970: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C980: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C990: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C9A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C9B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C9C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C9D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C9E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C9F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01CA00: 20 20 20 20 20 20 20 30 2C 20 31 2C 20 32 2C 20 0, 1, 2,
01CA10: 33 2C 20 34 20 3A 20 42 45 47 49 4E 0D 0A 20 20 3, 4 : BEGIN..
01CA20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01CA30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 IF
01CA40: 20 28 67 6C 67 65 6E 28 2E 78 2C 20 79 2E 29 20 (glgen(.x, y.)
01CA50: 3D 20 27 20 27 29 20 41 4E 44 20 28 61 6E 74 61 = ' ') AND (anta
01CA60: 6C 20 3D 20 33 29 0D 0A 20 20 20 20 20 20 20 20 l = 3)..
01CA70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01CA80: 20 20 20 20 20 20 20 20 20 20 54 48 45 4E 20 6E THEN n
01CA90: 79 67 65 6E 28 2E 78 2C 20 79 2E 29 20 3A 3D 20 ygen(.x, y.) :=
01CAA0: 27 2A 27 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 '*';..
01CAB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01CAC0: 20 20 20 20 20 20 49 46 20 28 67 6C 67 65 6E 28 IF (glgen(
01CAD0: 2E 78 2C 20 79 2E 29 20 3D 20 27 2A 27 29 20 41 .x, y.) = '*') A
01CAE0: 4E 44 20 28 28 61 6E 74 61 6C 20 3D 20 30 29 0D ND ((antal = 0).
01CAF0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
01CB00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01CB10: 20 20 20 20 4F 52 20 28 61 6E 74 61 6C 20 3D 20 OR (antal =
01CB20: 31 29 20 4F 52 20 28 61 6E 74 61 6C 20 3D 20 34 1) OR (antal = 4
01CB30: 29 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 ))..
01CB40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01CB50: 20 20 20 20 20 20 54 48 45 4E 20 6E 79 67 65 6E THEN nygen
01CB60: 28 2E 78 2C 20 79 2E 29 20 3A 3D 20 27 20 27 3B (.x, y.) := ' ';
01CB70: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
01CB80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01CB90: 45 4E 44 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 END;..
01CBA0: 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 20 20 END;..
01CBB0: 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 47 4F END;.. GO
01CBC0: 54 4F 58 59 28 32 36 2C 32 33 29 3B 20 57 52 49 TOXY(26,23); WRI
01CBD0: 54 45 28 67 65 6E 65 72 61 74 69 6F 6E 29 3B 0D TE(generation);.
01CBE0: 0A 20 20 20 20 20 20 74 65 67 6E 62 61 6E 65 28 . tegnbane(
01CBF0: 31 29 3B 0D 0A 20 20 20 20 45 4E 44 3B 20 28 2A 1);.. END; (*
01CC00: 20 79 31 20 2D 20 61 20 2A 20 78 31 3B 0D 0A 20 y1 - a * x1;..
01CC10: 20 20 20 20 20 20 20 20 20 42 45 47 49 4E 0D 0A BEGIN..
01CC20: 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 WRIT
01CC30: 45 28 27 4C 69 67 6E 69 6E 67 65 6E 20 66 6F 72 E('Ligningen for
01CC40: 20 6C 69 6E 69 65 6E 20 65 72 20 79 20 3D 20 27 linien er y = '
01CC50: 2C 20 61 20 3A 20 36 20 3A 20 32 2C 20 27 78 20 , a : 6 : 2, 'x
01CC60: 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 ');..
01CC70: 20 49 46 20 62 20 3E 20 30 0D 0A 20 20 20 20 20 IF b > 0..
01CC80: 20 20 20 20 20 20 20 20 20 54 48 45 4E 20 57 52 THEN WR
01CC90: 49 54 45 4C 4E 28 27 2B 20 27 2C 20 62 20 3A 20 ITELN('+ ', b :
01CCA0: 36 20 3A 20 32 29 0D 0A 20 20 20 20 20 20 20 20 6 : 2)..
01CCB0: 20 20 20 20 20 20 45 4C 53 45 20 57 52 49 54 45 ELSE WRITE
01CCC0: 4C 4E 28 62 20 3A 20 36 20 3A 20 32 29 3B 0D 0A LN(b : 6 : 2);..
01CCD0: 20 20 20 20 20 20 20 20 20 20 45 4E 44 3B 0D 0A END;..
01CCE0: 20 20 20 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20 END;..
01CCF0: 20 20 45 4E 44 3B 20 28 2A 20 72 65 74 20 2A 29 END; (* ret *)
01CD00: 0D 0A 20 20 0D 0A 20 20 42 45 47 49 4E 20 28 2A .. .. BEGIN (*
01CD10: 20 6C 69 6E 69 65 20 2A 29 0D 0A 20 20 20 20 57 linie *).. W
01CD20: 52 49 54 45 28 43 4C 52 48 4F 4D 29 3B 0D 0A 20 RITE(CLRHOM);..
01CD30: 20 20 20 57 52 49 54 45 28 27 54 61 73 74 20 31 WRITE('Tast 1
01CD40: 2E 20 70 75 6E 6B 74 73 20 31 2E 20 6B 6F 6F 72 . punkts 1. koor
01CD50: 64 69 6E 61 74 3A 20 27 29 3B 20 52 45 41 44 4C dinat: '); READL
01CD60: 4E 28 78 31 29 3B 0D 0A 20 20 20 20 57 52 49 54 N(x1);.. WRIT
01CD70: 45 28 27 54 61 73 74 20 31 2E 20 70 75 6E 6B 74 E('Tast 1. punkt
01CD80: 73 20 32 2E 20 6B 6F 6F 72 64 69 6E 61 74 3A 20 s 2. koordinat:
01CD90: 27 29 3B 20 52 45 41 44 4C 4E 28 79 31 29 3B 0D '); READLN(y1);.
01CDA0: 0A 20 20 20 20 57 52 49 54 45 28 27 54 61 73 74 . WRITE('Tast
01CDB0: 20 32 2E 20 70 75 6E 6B 74 73 20 31 2E 20 6B 6F 2. punkts 1. ko
01CDC0: 6F 72 64 69 6E 61 74 3A 20 27 29 3B 20 52 45 41 ordinat: '); REA
01CDD0: 44 4C 4E 28 78 32 29 3B 0D 0A 20 20 20 20 57 52 DLN(x2);.. WR
01CDE0: 49 54 45 28 27 54 61 73 74 20 32 2E 20 70 75 6E ITE('Tast 2. pun
01CDF0: 6B 74 73 20 32 2E 20 6B 6F 6F 72 64 69 6E 61 74 kts 2. koordinat
01CE00: 20 6E 79 67 65 6E 65 72 61 74 69 6F 6E 20 2A 29 nygeneration *)
01CE10: 0D 0A 20 20 20 20 0D 0A 20 20 42 45 47 49 4E 20 .. .. BEGIN
01CE20: 28 2A 20 6C 69 66 65 20 2A 29 0D 0A 20 20 20 20 (* life *)..
01CE30: 69 6E 69 74 3B 0D 0A 20 20 20 20 47 4F 54 4F 58 init;.. GOTOX
01CE40: 59 28 31 31 2C 32 33 29 3B 20 57 52 49 54 45 28 Y(11,23); WRITE(
01CE50: 27 47 65 6E 65 72 61 74 69 6F 6E 20 6E 72 2E 20 'Generation nr.
01CE60: 31 27 29 3B 0D 0A 20 20 20 20 47 4F 54 4F 58 59 1');.. GOTOXY
01CE70: 28 34 37 2C 20 32 33 29 3B 20 57 52 49 54 45 28 (47, 23); WRITE(
01CE80: 27 45 6E 20 67 65 6E 65 72 61 74 69 6F 6E 20 6D 'En generation m
01CE90: 65 72 65 20 28 6A 2F 6E 29 3A 20 27 29 3B 0D 0A ere (j/n): ');..
01CEA0: 20 20 20 20 52 45 50 45 41 54 0D 0A 20 20 20 20 REPEAT..
01CEB0: 20 20 52 45 50 45 41 54 0D 0A 20 20 20 20 20 20 REPEAT..
01CEC0: 20 20 47 4F 54 4F 58 59 28 37 33 2C 20 32 33 29 GOTOXY(73, 23)
01CED0: 3B 20 57 52 49 54 45 28 27 20 27 2C 20 43 48 52 ; WRITE(' ', CHR
01CEE0: 28 38 29 29 3B 0D 0A 20 20 20 20 20 20 20 20 52 (8));.. R
01CEF0: 45 41 44 28 4B 42 44 2C 20 63 68 29 3B 0D 0A 20 EAD(KBD, ch);..
01CF00: 20 20 20 20 20 55 4E 54 49 4C 20 63 68 20 49 4E UNTIL ch IN
01CF10: 20 28 2E 27 4A 27 2C 20 27 6A 27 2C 20 27 4E 27 (.'J', 'j', 'N'
01CF20: 2C 20 27 6E 27 2E 29 3B 0D 0A 20 20 20 20 20 20 , 'n'.);..
01CF30: 57 52 49 54 45 28 63 68 29 3B 0D 0A 20 20 20 20 WRITE(ch);..
01CF40: 20 20 49 46 20 63 68 20 49 4E 20 28 2E 27 4A 27 IF ch IN (.'J'
01CF50: 2C 20 27 6A 27 2E 29 0D 0A 20 20 20 20 20 20 20 , 'j'.)..
01CF60: 20 54 48 45 4E 0D 0A 20 20 20 20 20 20 20 20 20 THEN..
01CF70: 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 BEGIN..
01CF80: 20 20 20 20 67 65 6E 65 72 61 74 69 6F 6E 20 3A generation :
01CF90: 3D 20 67 65 6E 65 72 61 74 69 6F 6E 20 2B 20 31 = generation + 1
01CFA0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 6E ;.. n
01CFB0: 79 67 65 6E 65 72 61 74 69 6F 6E 3B 0D 0A 20 20 ygeneration;..
01CFC0: 20 20 20 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20 END;..
01CFD0: 20 20 55 4E 54 49 4C 20 63 68 20 49 4E 20 28 2E UNTIL ch IN (.
01CFE0: 27 4E 27 2C 20 27 6E 27 2E 29 3B 0D 0A 20 20 20 'N', 'n'.);..
01CFF0: 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 45 4E 44 WRITELN;.. END
01D000: 3A 20 27 29 3B 20 52 45 41 44 4C 4E 28 79 32 29 : '); READLN(y2)
01D010: 3B 0D 0A 20 20 20 20 72 65 74 28 78 31 2C 20 79 ;.. ret(x1, y
01D020: 31 2C 20 78 32 2C 20 79 32 29 3B 0D 0A 20 20 45 1, x2, y2);.. E
01D030: 4E 44 2E 20 28 2A 20 6C 69 6E 69 65 20 2A 29 0D ND. (* linie *).
01D040: 0A 1A 64 69 6E 61 74 3A 20 27 29 3B 20 52 45 41 ..dinat: '); REA
01D050: 44 4C 4E 28 78 32 29 3B 0D 0A 20 20 20 20 57 52 DLN(x2);.. WR
01D060: 49 54 45 28 27 54 61 73 74 20 32 2E 20 70 75 6E ITE('Tast 2. pun
01D070: 6B 74 73 20 32 2E 20 6B 6F 6F 72 64 69 6E 61 74 kts 2. koordinat
01D080: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01D090: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01D0A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01D0B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01D0C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01D0D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01D0E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01D0F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01D100: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01D110: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01D120: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01D130: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01D140: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01D150: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01D160: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01D170: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01D180: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01D190: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01D1A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01D1B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01D1C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01D1D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01D1E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01D1F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01D200: 2E 20 28 2A 20 6C 69 66 65 20 2A 29 0D 0A 1A 3A . (* life *)...:
01D210: 3D 20 67 65 6E 65 72 61 74 69 6F 6E 20 2B 20 31 = generation + 1
01D220: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 6E ;.. n
01D230: 79 67 65 6E 65 72 61 74 69 6F 6E 3B 0D 0A 20 20 ygeneration;..
01D240: 20 20 20 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20 END;..
01D250: 20 20 55 4E 54 49 4C 20 63 68 20 49 4E 20 28 2E UNTIL ch IN (.
01D260: 27 4E 27 2C 20 27 6E 27 2E 29 3B 0D 0A 20 20 20 'N', 'n'.);..
01D270: 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 45 4E 44 WRITELN;.. END
01D280: 20 20 20 20 20 55 4E 54 49 4C 20 28 69 20 3D 20 UNTIL (i =
01D290: 31 29 20 4F 52 20 73 6C 75 74 3B 0D 0A 20 20 20 1) OR slut;..
01D2A0: 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E 3B 0D WRITELN;.
01D2B0: 0A 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 . WRITE
01D2C0: 4C 4E 28 27 44 65 20 73 6F 72 74 65 72 65 64 65 LN('De sorterede
01D2D0: 20 74 61 6C 20 65 72 3A 27 29 3B 0D 0A 20 20 20 tal er:');..
01D2E0: 20 20 20 20 20 20 20 46 4F 52 20 69 20 3A 3D 20 FOR i :=
01D2F0: 31 20 54 4F 20 6D 61 78 20 44 4F 0D 0A 20 20 20 1 TO max DO..
01D300: 20 20 20 20 20 20 20 20 20 57 52 49 54 45 28 76 WRITE(v
01D310: 28 2E 69 2E 29 20 3A 20 34 29 3B 0D 0A 20 20 20 (.i.) : 4);..
01D320: 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E 3B 0D WRITELN;.
01D330: 0A 20 20 20 20 20 20 20 20 45 4E 44 2E 0D 0A 1A . END....
01D340: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
01D350: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
01D360: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
01D370: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
01D380: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01D390: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01D3A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01D3B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01D3C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01D3D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01D3E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01D3F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01D400: 45 47 31 4A 48 4B 1A 78 1B AF 7D 35 52 50 0A 56 EG1JHK.x..}5RP.V
01D410: 54 58 2B 3F 5B 5D 5E 1C F0 0C 60 62 66 64 67 19 TX+?[]^...`bfdg.
01D420: 80 6A 6C CB 6D 6E 05 73 75 E6 77 78 FD 79 7A 7D .jl.mn.su.wx.yz}
01D430: 80 C0 82 83 B4 85 0E 88 8B 11 2A 8D 09 90 92 23 ..........*....#
01D440: 77 94 96 30 98 9B 9C 9D 9E 9F ED A1 A3 A4 03 21 w..0........£..!
01D450: A7 A9 AB AD AF B1 32 B3 B5 B6 DD B9 BB FF BE C0 ......2.........
01D460: C2 C3 C5 C7 C9 CA CC CE D0 D1 D3 D4 D5 D7 D9 DB ................
01D470: DD DF E1 E3 E5 E7 E9 EB ED 00 F0 F2 F4 F6 F8 FA ................
01D480: FC FF ED FE FF 9F 9B BF E7 9E 38 F3 9A 76 11 9D ..........8..v..
01D490: 1B B0 93 1A 58 C1 61 20 4C 4F 28 0A 02 22 C0 00 ....X.a LO(.."..
01D4A0: 01 F7 EF FF 7D CF DF FF F6 DB 1D F3 DF 53 9D 5D ....}........S.]
01D4B0: DC 8F C8 C7 06 49 21 29 A6 40 8C 08 90 00 00 01 .....I!).@......
01D4C0: 01 E4 90 E1 8C 12 C0 AD C1 6E 53 39 D8 79 57 4F .........nS9.yWO
01D4D0: 1C 1E BB 7B C7 18 1A 47 95 68 4E 03 F2 F6 A2 62 ...{...G.hN....b
01D4E0: 20 7C E6 C4 5E 5C 0C 8B CF 81 D8 99 8B 7B F1 31 |..^\.......{.1
01D4F0: 10 3E 73 62 2F 2E 06 C5 67 40 EC CC C5 BD F8 18 .>sb/...g@......
01D500: 88 9F B9 B1 17 17 03 E2 33 20 F6 E6 62 5E 7C 0C ........3 ..b^|.
01D510: C4 CF 5C CD B9 14 8B 7A 05 17 9D 59 A8 15 01 D0 ..\....z...Y....
01D520: 28 D4 8B F3 0E 7A A2 2C F6 A4 4B 03 9C 97 21 20 (....z.,..K...!
01D530: A2 8B D7 D6 12 35 B2 54 B1 B1 8F 22 D4 4D F3 6D .....5.T...".M.m
01D540: 3F 0A 68 09 F5 10 72 B1 6C 46 C4 3D C6 1D AC 60 ?.h...r.lF.=...`
01D550: ED 8F 2E D2 4D 39 F5 F0 35 33 22 23 B5 10 E0 1E ....M9..53"#....
01D560: EC 88 34 C1 1C 48 E3 CC 81 34 1E 1C 88 FA 92 CA ..4..H...4......
01D570: 56 08 2D 06 BD FB 29 40 6B A9 57 CE 20 58 52 A9 V.-...)@k.W. XR.
01D580: 75 16 A0 86 85 60 A0 B6 27 F2 FC 03 BA F1 44 52 u....`..'.....DR
01D590: 6B 0D C8 3D 16 20 46 27 7D 69 89 0E FF B0 A4 7F k..=. F'}i......
01D5A0: EA 82 C3 AA 00 4E 5A 47 21 0C 5E 04 33 17 A1 64 .....NZG!.^.3..d
01D5B0: B1 A4 6B 01 9C CB 68 C9 DD C8 62 C5 D6 3E 52 50 ..k...h...b..>RP
01D5C0: C7 F3 97 0F F8 CD 6E D0 34 68 4B F4 0A D2 35 B7 ......n.4hK...5.
01D5D0: A9 40 40 C5 59 80 3B 20 5A 03 56 EC 63 A1 75 AF .@@.Y.; Z.V.c.u.
01D5E0: 02 77 FC 7E 4E 5F F8 11 DA 37 D3 21 D3 55 58 6C .w.~N_...7.!.UXl
01D5F0: 6A C2 07 4A D2 AF 27 F2 51 97 4B 50 50 86 AA 20 j..J..'.Q.KPP..
01D600: 97 0E F3 72 93 3F 3A 30 81 81 44 DD 73 49 C1 9F ...r.?:0..D.sI..
01D610: 46 44 17 44 82 1D BA 97 F8 CD 9B 89 20 9B 82 B6 FD.D........ ...
01D620: 3F 22 DA 97 A7 DE E7 C1 EF 67 B9 A2 C4 03 04 82 ?".......g......
01D630: 17 A2 F6 40 D1 85 EE D2 64 5E 4C FE 37 EF 03 EC ...@....d^L.7...
01D640: 88 BA 2C 09 0B 76 18 AB F8 13 89 28 02 70 61 26 ..,..v.....(.pa&
01D650: 9E 79 22 5E 1D 22 FB 93 12 D6 B6 01 86 8E D6 C8 .y"^."..........
01D660: 68 D1 7F 42 C9 10 96 79 B2 03 E9 66 03 10 99 BA h..B...y...f....
01D670: 01 D2 2D D8 FC A0 EC 80 D6 16 26 02 EC 60 51 17 ..-.......&..`Q.
01D680: 3A 13 2F 40 29 88 C6 79 C0 B7 4B 96 00 29 90 C6 :./@)..y..K..)..
01D690: C3 83 97 A8 44 9A 91 F2 58 10 3B 30 98 A9 96 1D ....D...X.;0....
01D6A0: 05 BB 0B B4 50 E0 60 07 B0 B6 1E 11 FE 2D 41 0A ....P.`......-A.
01D6B0: 99 A8 D0 9D E1 A5 E5 37 B2 F6 B2 35 01 34 D2 BB .......7...5.4..
01D6C0: E6 00 15 90 A0 7D 6D 0D 01 0F B0 AD 6B 37 AD 41 .....}m.....k7.A
01D6D0: 01 DC 07 F0 E0 DA 5B 03 37 DE 00 37 B8 7E 28 06 ......[.7..7.~(.
01D6E0: 6F F8 A6 46 DD 0D B1 BB E9 B8 D6 00 D1 EE B7 3B o..F...........;
01D6F0: 06 70 EE 80 50 8C FD 01 0D D8 3C 6D F6 41 44 83 .p..P.....<m.AD.
01D700: 10 D1 9B 6B 04 B0 B5 56 40 7E D2 88 6D F8 1B 68 ...k...V@~..m..h
01D710: 50 BD D7 3E 90 92 B5 0F 2C A2 78 7F 33 27 33 A4 P..>....,.x.3'3.
01D720: AB 30 20 C2 DA 62 6D 81 C1 08 EA FD 39 F8 34 70 .0 ..bm.....9.4p
01D730: 1E 45 03 52 BD 76 5B 95 2D 66 65 57 72 21 B4 21 .E.R.v[.-feWr!.!
01D740: 90 AA 3E 18 F5 D6 6B 90 58 F4 EA 17 33 28 C0 AF ..>...k.X...3(..
01D750: B6 E6 BF 03 02 A9 68 CB EF 00 6D 96 AA 06 52 96 ......h...m...R.
01D760: AA 1F D5 CF 2F 7E A6 35 3A 17 1C E0 1D 80 AC 28 ..../~.5:......(
01D770: 1A C0 0B D3 C0 57 62 E4 CD C5 A2 F0 29 9B C5 01 .....Wb.....)...
01D780: 04 11 AD 55 15 70 AA 6F 78 F1 E5 43 03 52 EB C7 ...U.p.ox..C.R..
01D790: F6 8B 80 2C 61 8A 5C E3 80 5F EE 80 9B AB 68 A7 ...,a.\.._....h.
01D7A0: BC 46 65 6E 5E A8 78 31 2A BF E4 DE 7B B9 5B 5C .Fen^.x1*...{.[\
01D7B0: 52 D5 BF FC 71 31 29 56 F9 7F 13 57 D1 5B 79 D9 R...q1)V...W.[y.
01D7C0: AB B5 7B 8B 29 C5 62 48 AF AA A9 52 55 0C 58 6F ..{.).bH...RU.Xo
01D7D0: 4A BD F9 55 25 57 DD 53 4A 21 0A E2 4A 29 54 29 J..U%W.SJ!..J)T)
01D7E0: 29 AE 64 45 A5 40 52 20 C2 95 0A C4 8A 52 87 F4 ).dE.@R .....R..
01D7F0: E5 BE FB 8A FB 92 FD EA E5 EF C8 BD AB B7 A8 F7 ................
01D800: 20 20 20 20 20 20 20 20 50 52 4F 47 52 41 4D 20 PROGRAM
01D810: 6C 6F 6E 67 61 64 64 3B 0D 0A 20 20 20 20 20 20 longadd;..
01D820: 20 20 0D 0A 20 20 20 20 20 20 20 20 20 20 43 4F .. CO
01D830: 4E 53 54 0D 0A 20 20 20 20 20 20 20 20 20 20 20 NST..
01D840: 20 6D 61 78 6C 61 65 6E 67 64 65 20 3D 20 31 32 maxlaengde = 12
01D850: 3B 0D 0A 20 20 20 20 20 20 20 20 0D 0A 20 20 20 ;.. ..
01D860: 20 20 20 20 20 20 20 54 59 50 45 0D 0A 20 20 20 TYPE..
01D870: 20 20 20 20 20 20 20 20 20 63 69 66 72 65 20 3D cifre =
01D880: 20 30 20 2E 2E 20 39 3B 0D 0A 20 20 20 20 20 20 0 .. 9;..
01D890: 20 20 20 20 20 20 76 65 6B 74 6F 72 20 3D 20 41 vektor = A
01D8A0: 52 52 41 59 28 2E 30 20 2E 2E 20 6D 61 78 6C 61 RRAY(.0 .. maxla
01D8B0: 65 6E 67 64 65 2E 29 20 4F 46 20 63 69 66 72 65 engde.) OF cifre
01D8C0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 6D ;.. m
01D8D0: 61 78 73 74 72 65 6E 67 20 3D 20 53 54 52 49 4E axstreng = STRIN
01D8E0: 47 28 2E 6D 61 78 6C 61 65 6E 67 64 65 2E 29 3B G(.maxlaengde.);
01D8F0: 0D 0A 20 20 20 20 20 20 20 20 20 20 0D 0A 20 20 .. ..
01D900: 20 20 20 20 20 20 20 20 56 41 52 0D 0A 20 20 20 VAR..
01D910: 20 20 20 20 20 20 20 20 20 73 74 72 65 6E 67 31 streng1
01D920: 2C 20 73 74 72 65 6E 67 32 20 3A 20 6D 61 78 73 , streng2 : maxs
01D930: 74 72 65 6E 67 3B 0D 0A 20 20 20 20 20 20 20 20 treng;..
01D940: 20 20 20 20 76 31 2C 20 76 32 2C 20 76 33 20 3A v1, v2, v3 :
01D950: 20 76 65 6B 74 6F 72 3B 0D 0A 20 20 20 20 20 20 vektor;..
01D960: 20 20 20 20 20 20 69 2C 20 6A 2C 20 73 75 6D 2C i, j, sum,
01D970: 20 6D 65 6E 74 65 20 3A 20 49 4E 54 45 47 45 52 mente : INTEGER
01D980: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 0D 0A 20 ;.. ..
01D990: 20 20 20 20 20 20 20 20 20 42 45 47 49 4E 0D 0A BEGIN..
01D9A0: 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 WRIT
01D9B0: 45 28 43 48 52 28 31 32 29 2C 20 27 54 61 73 74 E(CHR(12), 'Tast
01D9C0: 20 31 2E 20 74 61 6C 20 28 6D 61 78 20 27 2C 6D 1. tal (max ',m
01D9D0: 61 78 6C 61 65 6E 67 64 65 2C 20 27 20 63 69 66 axlaengde, ' cif
01D9E0: 72 65 29 3A 20 27 29 3B 0D 0A 20 20 20 20 20 20 re): ');..
01D9F0: 20 20 20 20 20 20 42 55 46 4C 45 4E 20 3A 3D 20 BUFLEN :=
01DA00: 50 52 4F 47 52 41 4D 20 6C 69 6E 69 65 3B 0D 0A PROGRAM linie;..
01DA10: 0D 0A 20 20 56 41 52 0D 0A 20 20 20 20 78 31 2C .. VAR.. x1,
01DA20: 20 79 31 2C 20 78 32 2C 20 79 32 20 3A 20 52 45 y1, x2, y2 : RE
01DA30: 41 4C 3B 0D 0A 20 20 0D 0A 20 20 50 52 4F 43 45 AL;.. .. PROCE
01DA40: 44 55 52 45 20 72 65 74 28 78 31 2C 20 79 31 2C DURE ret(x1, y1,
01DA50: 20 78 32 2C 20 79 32 20 3A 20 52 45 41 4C 29 3B x2, y2 : REAL);
01DA60: 0D 0A 20 20 0D 0A 20 20 20 20 56 41 52 0D 0A 20 .. .. VAR..
01DA70: 20 20 20 20 20 61 2C 20 62 20 3A 20 52 45 41 4C a, b : REAL
01DA80: 3B 0D 0A 20 20 20 20 0D 0A 20 20 20 20 42 45 47 ;.. .. BEG
01DA90: 49 4E 20 28 2A 20 72 65 74 20 2A 29 0D 0A 20 20 IN (* ret *)..
01DAA0: 20 20 20 20 49 46 20 28 78 31 20 3D 20 78 32 29 IF (x1 = x2)
01DAB0: 20 41 4E 44 20 28 79 31 20 3D 20 79 32 29 20 0D AND (y1 = y2) .
01DAC0: 0A 20 20 20 20 20 20 20 20 54 48 45 4E 20 57 52 . THEN WR
01DAD0: 49 54 45 4C 4E 28 27 44 65 20 74 6F 20 70 75 6E ITELN('De to pun
01DAE0: 6B 74 65 72 20 65 72 20 73 61 6D 6D 65 6E 66 61 kter er sammenfa
01DAF0: 6C 64 65 6E 64 65 27 29 0D 0A 20 20 20 20 20 20 ldende')..
01DB00: 45 4C 53 45 20 49 46 20 28 78 31 20 3D 20 78 32 ELSE IF (x1 = x2
01DB10: 29 0D 0A 20 20 20 20 20 20 20 20 54 48 45 4E 20 ).. THEN
01DB20: 57 52 49 54 45 4C 4E 28 27 4C 69 67 6E 69 6E 67 WRITELN('Ligning
01DB30: 65 6E 20 66 6F 72 20 6C 69 6E 69 65 6E 20 65 72 en for linien er
01DB40: 20 78 20 3D 20 27 2C 20 78 31 20 3A 20 36 20 3A x = ', x1 : 6 :
01DB50: 20 32 29 0D 0A 20 20 20 20 20 20 45 4C 53 45 20 2).. ELSE
01DB60: 49 46 20 28 79 31 20 3D 20 79 32 29 0D 0A 20 20 IF (y1 = y2)..
01DB70: 20 20 20 20 20 20 54 48 45 4E 20 57 52 49 54 45 THEN WRITE
01DB80: 4C 4E 28 27 4C 69 67 6E 69 6E 67 65 6E 20 66 6F LN('Ligningen fo
01DB90: 72 20 6C 69 6E 69 65 6E 20 65 72 20 79 20 3D 20 r linien er y =
01DBA0: 27 2C 20 79 31 20 3A 20 36 20 3A 20 32 29 0D 0A ', y1 : 6 : 2)..
01DBB0: 20 20 20 20 20 20 45 4C 53 45 0D 0A 20 20 20 20 ELSE..
01DBC0: 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 BEGIN..
01DBD0: 20 20 20 20 20 61 20 3A 3D 20 28 79 32 20 2D 20 a := (y2 -
01DBE0: 79 31 29 20 2F 20 28 78 32 20 2D 20 78 31 29 3B y1) / (x2 - x1);
01DBF0: 0D 0A 20 20 20 20 20 20 20 20 20 20 62 20 3A 3D .. b :=
01DC00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
01DC10: 19 00 01 00 02 09 52 E5 19 00 41 02 00 00 00 02 ......R...A.....
01DC20: 19 00 46 02 00 00 00 02 19 00 42 02 00 00 00 02 ..F.......B.....
01DC30: 19 00 47 02 00 00 00 02 19 00 43 02 00 00 00 02 ..G.......C.....
01DC40: 19 00 48 02 00 00 00 02 19 00 44 02 00 00 00 02 ..H.......D.....
01DC50: 19 00 49 02 00 00 00 02 19 00 45 02 00 00 00 02 ..I.......E.....
01DC60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01DC70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01DC80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01DC90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01DCA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01DCB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01DCC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01DCD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01DCE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01DCF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01DD00: 6D 61 78 6C 61 65 6E 67 64 65 3B 0D 0A 20 20 20 maxlaengde;..
01DD10: 20 20 20 20 20 20 20 20 20 52 45 41 44 4C 4E 28 READLN(
01DD20: 73 74 72 65 6E 67 31 29 3B 0D 0A 20 20 20 20 20 streng1);..
01DD30: 20 20 20 20 20 20 20 57 52 49 54 45 28 27 54 61 WRITE('Ta
01DD40: 73 74 20 32 2E 20 74 61 6C 20 28 6D 61 78 20 27 st 2. tal (max '
01DD50: 2C 6D 61 78 6C 61 65 6E 67 64 65 2C 20 27 20 63 ,maxlaengde, ' c
01DD60: 69 66 72 65 29 3A 20 27 29 3B 0D 0A 20 20 20 20 ifre): ');..
01DD70: 20 20 20 20 20 20 20 20 42 55 46 4C 45 4E 20 3A BUFLEN :
01DD80: 3D 20 6D 61 78 6C 61 65 6E 67 64 65 3B 0D 0A 20 = maxlaengde;..
01DD90: 20 20 20 20 20 20 20 20 20 20 20 52 45 41 44 4C READL
01DDA0: 4E 28 73 74 72 65 6E 67 32 29 3B 0D 0A 20 20 20 N(streng2);..
01DDB0: 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E WRITELN
01DDC0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 57 ;.. W
01DDD0: 52 49 54 45 4C 4E 28 73 74 72 65 6E 67 31 3A 6D RITELN(streng1:m
01DDE0: 61 78 6C 61 65 6E 67 64 65 20 2B 31 30 29 3B 0D axlaengde +10);.
01DDF0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 46 4F 52 . FOR
01DE00: 20 69 20 3A 3D 20 31 20 54 4F 20 6D 61 78 6C 61 i := 1 TO maxla
01DE10: 65 6E 67 64 65 20 2B 20 37 20 2D 20 4C 45 4E 28 engde + 7 - LEN(
01DE20: 73 74 72 65 6E 67 32 29 20 44 4F 0D 0A 20 20 20 streng2) DO..
01DE30: 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 WRITE
01DE40: 28 27 20 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 (' ');..
01DE50: 20 20 20 20 57 52 49 54 45 4C 4E 28 27 20 2B 20 WRITELN(' +
01DE60: 27 2C 20 73 74 72 65 6E 67 32 29 3B 0D 0A 20 20 ', streng2);..
01DE70: 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 28 WRITE(
01DE80: 27 20 20 20 20 20 20 20 20 20 20 27 29 3B 0D 0A ' ');..
01DE90: 20 20 20 20 20 20 20 20 20 20 20 20 46 4F 52 20 FOR
01DEA0: 69 20 3A 3D 20 31 20 54 4F 20 6D 61 78 6C 61 65 i := 1 TO maxlae
01DEB0: 6E 67 64 65 20 44 4F 0D 0A 20 20 20 20 20 20 20 ngde DO..
01DEC0: 20 20 20 20 20 20 20 57 52 49 54 45 28 27 2D 27 WRITE('-'
01DED0: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 );..
01DEE0: 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 20 20 WRITELN;..
01DEF0: 20 20 20 20 20 20 46 4F 52 20 69 20 3A 3D 20 4C FOR i := L
01DF00: 50 52 4F 47 52 41 4D 20 6C 6F 6E 67 6D 75 6C 74 PROGRAM longmult
01DF10: 3B 0D 0A 20 20 0D 0A 20 20 43 4F 4E 53 54 0D 0A ;.. .. CONST..
01DF20: 20 20 20 20 6D 61 78 6C 61 65 6E 67 64 65 20 3D maxlaengde =
01DF30: 20 31 32 3B 0D 0A 20 20 20 20 64 6F 62 62 65 6C 12;.. dobbel
01DF40: 74 6D 61 78 20 3D 20 32 34 3B 0D 0A 20 20 20 20 tmax = 24;..
01DF50: 0D 0A 20 20 54 59 50 45 0D 0A 20 20 20 20 63 69 .. TYPE.. ci
01DF60: 66 72 65 20 3D 20 30 20 2E 2E 20 39 3B 0D 0A 20 fre = 0 .. 9;..
01DF70: 20 20 20 6C 69 6C 6C 65 76 65 6B 74 6F 72 20 3D lillevektor =
01DF80: 20 41 52 52 41 59 28 2E 31 20 2E 2E 20 6D 61 78 ARRAY(.1 .. max
01DF90: 6C 61 65 6E 67 64 65 2E 29 20 4F 46 20 63 69 66 laengde.) OF cif
01DFA0: 72 65 3B 0D 0A 20 20 20 20 73 74 6F 72 76 65 6B re;.. storvek
01DFB0: 74 6F 72 20 3D 20 41 52 52 41 59 28 2E 31 20 2E tor = ARRAY(.1 .
01DFC0: 2E 20 64 6F 62 62 65 6C 74 6D 61 78 2E 29 20 4F . dobbeltmax.) O
01DFD0: 46 20 63 69 66 72 65 3B 0D 0A 20 20 20 20 73 74 F cifre;.. st
01DFE0: 72 20 3D 20 53 54 52 49 4E 47 28 2E 6D 61 78 6C r = STRING(.maxl
01DFF0: 61 65 6E 67 64 65 2E 29 3B 0D 0A 20 20 20 20 0D aengde.);.. .
01E000: 0A 20 20 56 41 52 0D 0A 20 20 20 20 73 31 2C 20 . VAR.. s1,
01E010: 73 32 20 3A 20 73 74 72 3B 0D 0A 20 20 20 20 76 s2 : str;.. v
01E020: 31 2C 20 76 32 20 3A 20 6C 69 6C 6C 65 76 65 6B 1, v2 : lillevek
01E030: 74 6F 72 3B 0D 0A 20 20 20 20 76 2C 20 77 20 3A tor;.. v, w :
01E040: 20 73 74 6F 72 76 65 6B 74 6F 72 3B 0D 0A 20 20 storvektor;..
01E050: 20 20 69 2C 20 6A 2C 20 6B 2C 20 6C 2C 20 6D 65 i, j, k, l, me
01E060: 6E 74 65 2C 20 61 64 64 6D 65 6E 74 65 2C 20 70 nte, addmente, p
01E070: 72 6F 64 75 6B 74 2C 20 73 75 6D 20 3A 20 49 4E rodukt, sum : IN
01E080: 54 45 47 45 52 3B 0D 0A 20 20 0D 0A 20 20 42 45 TEGER;.. .. BE
01E090: 47 49 4E 0D 0A 20 20 20 20 57 52 49 54 45 28 43 GIN.. WRITE(C
01E0A0: 4C 52 48 4F 4D 29 3B 0D 0A 20 20 20 20 57 52 49 LRHOM);.. WRI
01E0B0: 54 45 28 27 54 61 73 74 20 31 2E 20 66 61 6B 74 TE('Tast 1. fakt
01E0C0: 6F 72 20 28 6D 61 78 20 27 2C 20 6D 61 78 6C 61 or (max ', maxla
01E0D0: 65 6E 67 64 65 2C 20 27 20 63 69 66 72 65 29 3A engde, ' cifre):
01E0E0: 20 27 29 3B 0D 0A 20 20 20 20 42 55 46 4C 45 4E ');.. BUFLEN
01E0F0: 20 3A 3D 20 6D 61 78 6C 61 65 6E 67 64 65 3B 0D := maxlaengde;.
01E100: 45 4E 28 73 74 72 65 6E 67 31 29 20 2B 20 31 20 EN(streng1) + 1
01E110: 54 4F 20 6D 61 78 6C 61 65 6E 67 64 65 20 44 4F TO maxlaengde DO
01E120: 20 28 2A 20 46 79 6C 64 20 6F 70 20 6D 65 64 20 (* Fyld op med
01E130: 30 20 2A 29 0D 0A 20 20 20 20 20 20 20 20 20 20 0 *)..
01E140: 20 20 20 20 73 74 72 65 6E 67 31 20 3A 3D 20 27 streng1 := '
01E150: 30 27 20 2B 20 73 74 72 65 6E 67 31 3B 0D 0A 20 0' + streng1;..
01E160: 20 20 20 20 20 20 20 20 20 20 20 46 4F 52 20 69 FOR i
01E170: 20 3A 3D 20 4C 45 4E 28 73 74 72 65 6E 67 32 29 := LEN(streng2)
01E180: 20 2B 20 31 20 54 4F 20 6D 61 78 6C 61 65 6E 67 + 1 TO maxlaeng
01E190: 64 65 20 44 4F 0D 0A 20 20 20 20 20 20 20 20 20 de DO..
01E1A0: 20 20 20 20 20 73 74 72 65 6E 67 32 20 3A 3D 20 streng2 :=
01E1B0: 27 30 27 20 2B 20 73 74 72 65 6E 67 32 3B 0D 0A '0' + streng2;..
01E1C0: 20 20 20 20 20 20 20 20 20 20 20 20 46 4F 52 20 FOR
01E1D0: 69 20 3A 3D 20 31 20 54 4F 20 6D 61 78 6C 61 65 i := 1 TO maxlae
01E1E0: 6E 67 64 65 20 44 4F 20 28 2A 20 54 61 6C 6C 65 ngde DO (* Talle
01E1F0: 6E 65 20 6F 76 65 72 66 7C 72 65 73 20 74 69 6C ne overf|res til
01E200: 20 76 31 20 6F 67 20 76 32 20 2A 29 0D 0A 20 20 v1 og v2 *)..
01E210: 20 20 20 20 20 20 20 20 20 20 20 20 76 31 28 2E v1(.
01E220: 69 2E 29 20 3A 3D 20 4F 52 44 28 73 74 72 65 6E i.) := ORD(stren
01E230: 67 31 28 2E 69 2E 29 29 20 2D 20 4F 52 44 28 27 g1(.i.)) - ORD('
01E240: 30 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 0');..
01E250: 20 20 46 4F 52 20 69 20 3A 3D 20 31 20 54 4F 20 FOR i := 1 TO
01E260: 6D 61 78 6C 61 65 6E 67 64 65 20 44 4F 0D 0A 20 maxlaengde DO..
01E270: 20 20 20 20 20 20 20 20 20 20 20 20 20 76 32 28 v2(
01E280: 2E 69 2E 29 20 3A 3D 20 4F 52 44 28 73 74 72 65 .i.) := ORD(stre
01E290: 6E 67 32 28 2E 69 2E 29 29 20 2D 20 4F 52 44 28 ng2(.i.)) - ORD(
01E2A0: 27 30 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 '0');..
01E2B0: 20 20 20 6D 65 6E 74 65 20 3A 3D 20 30 3B 0D 0A mente := 0;..
01E2C0: 20 20 20 20 20 20 20 20 20 20 20 20 46 4F 52 20 FOR
01E2D0: 69 20 3A 3D 20 6D 61 78 6C 61 65 6E 67 64 65 20 i := maxlaengde
01E2E0: 44 4F 57 4E 54 4F 20 31 20 44 4F 20 28 2A 20 54 DOWNTO 1 DO (* T
01E2F0: 61 6C 6C 65 6E 65 20 61 64 64 65 72 65 73 20 2A allene adderes *
01E300: 0A 20 20 20 20 52 45 41 44 4C 4E 28 73 31 29 3B . READLN(s1);
01E310: 0D 0A 20 20 20 20 49 46 20 73 31 20 3D 20 27 27 .. IF s1 = ''
01E320: 0D 0A 20 20 20 20 20 20 54 48 45 4E 20 73 31 20 .. THEN s1
01E330: 3A 3D 20 27 30 27 3B 0D 0A 20 20 20 20 57 52 49 := '0';.. WRI
01E340: 54 45 28 27 54 61 73 74 20 32 2E 20 66 61 6B 74 TE('Tast 2. fakt
01E350: 6F 72 20 28 6D 61 78 20 27 2C 20 6D 61 78 6C 61 or (max ', maxla
01E360: 65 6E 67 64 65 2C 20 27 20 63 69 66 72 65 29 3A engde, ' cifre):
01E370: 20 27 29 3B 0D 0A 20 20 20 20 42 55 46 4C 45 4E ');.. BUFLEN
01E380: 20 3A 3D 20 6D 61 78 6C 61 65 6E 67 64 65 3B 0D := maxlaengde;.
01E390: 0A 20 20 20 20 52 45 41 44 4C 4E 28 73 32 29 3B . READLN(s2);
01E3A0: 0D 0A 20 20 20 20 49 46 20 73 32 20 3D 20 27 27 .. IF s2 = ''
01E3B0: 0D 0A 20 20 20 20 20 20 54 48 45 4E 20 73 32 20 .. THEN s2
01E3C0: 3A 3D 20 27 30 27 3B 0D 0A 20 20 20 20 57 52 49 := '0';.. WRI
01E3D0: 54 45 4C 4E 3B 0D 0A 20 20 20 20 57 52 49 54 45 TELN;.. WRITE
01E3E0: 28 73 31 2C 20 27 20 2A 20 27 2C 20 73 32 2C 20 (s1, ' * ', s2,
01E3F0: 27 20 3D 20 27 29 3B 0D 0A 20 20 20 20 46 4F 52 ' = ');.. FOR
01E400: 20 69 20 3A 3D 20 4C 45 4E 28 73 31 29 20 2B 20 i := LEN(s1) +
01E410: 31 20 54 4F 20 6D 61 78 6C 61 65 6E 67 64 65 20 1 TO maxlaengde
01E420: 44 4F 0D 0A 20 20 20 20 20 20 73 31 20 3A 3D 20 DO.. s1 :=
01E430: 27 30 27 20 2B 20 73 31 3B 0D 0A 20 20 20 20 46 '0' + s1;.. F
01E440: 4F 52 20 69 20 3A 3D 20 4C 45 4E 28 73 32 29 20 OR i := LEN(s2)
01E450: 2B 20 31 20 54 4F 20 6D 61 78 6C 61 65 6E 67 64 + 1 TO maxlaengd
01E460: 65 20 44 4F 0D 0A 20 20 20 20 20 20 73 32 20 3A e DO.. s2 :
01E470: 3D 20 27 30 27 20 2B 20 73 32 3B 0D 0A 20 20 20 = '0' + s2;..
01E480: 20 46 4F 52 20 69 20 3A 3D 20 31 20 54 4F 20 6D FOR i := 1 TO m
01E490: 61 78 6C 61 65 6E 67 64 65 20 44 4F 0D 0A 20 20 axlaengde DO..
01E4A0: 20 20 20 20 76 31 28 2E 69 2E 29 20 3A 3D 20 4F v1(.i.) := O
01E4B0: 52 44 28 73 31 28 2E 69 2E 29 29 20 2D 20 4F 52 RD(s1(.i.)) - OR
01E4C0: 44 28 27 30 27 29 3B 0D 0A 20 20 20 20 46 4F 52 D('0');.. FOR
01E4D0: 20 69 20 3A 3D 20 31 20 54 4F 20 6D 61 78 6C 61 i := 1 TO maxla
01E4E0: 65 6E 67 64 65 20 44 4F 0D 0A 20 20 20 20 20 20 engde DO..
01E4F0: 76 32 28 2E 69 2E 29 20 3A 3D 20 4F 52 44 28 73 v2(.i.) := ORD(s
01E500: 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 )..
01E510: 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 BEGIN..
01E520: 20 20 20 20 20 20 20 20 73 75 6D 20 3A 3D 20 76 sum := v
01E530: 31 28 2E 69 2E 29 20 2B 20 76 32 28 2E 69 2E 29 1(.i.) + v2(.i.)
01E540: 20 2B 20 6D 65 6E 74 65 3B 0D 0A 20 20 20 20 20 + mente;..
01E550: 20 20 20 20 20 20 20 20 20 20 20 76 33 28 2E 69 v3(.i
01E560: 2E 29 20 3A 3D 20 73 75 6D 20 4D 4F 44 20 31 30 .) := sum MOD 10
01E570: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ;..
01E580: 20 20 20 6D 65 6E 74 65 20 3A 3D 20 73 75 6D 20 mente := sum
01E590: 44 49 56 20 31 30 3B 0D 0A 20 20 20 20 20 20 20 DIV 10;..
01E5A0: 20 20 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 END;..
01E5B0: 20 20 20 20 20 20 20 20 20 76 33 28 2E 30 2E 29 v3(.0.)
01E5C0: 20 3A 3D 20 6D 65 6E 74 65 3B 0D 0A 20 20 20 20 := mente;..
01E5D0: 20 20 20 20 20 20 20 20 46 4F 52 20 69 20 3A 3D FOR i :=
01E5E0: 20 31 20 54 4F 20 39 20 44 4F 0D 0A 20 20 20 20 1 TO 9 DO..
01E5F0: 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 28 WRITE(
01E600: 27 20 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 ' ');..
01E610: 20 20 20 6A 20 3A 3D 20 30 3B 0D 0A 20 20 20 20 j := 0;..
01E620: 20 20 20 20 20 20 20 20 57 48 49 4C 45 20 28 76 WHILE (v
01E630: 33 28 2E 6A 2E 29 20 3D 20 30 29 20 41 4E 44 20 3(.j.) = 0) AND
01E640: 28 6A 20 3C 20 6D 61 78 6C 61 65 6E 67 64 65 29 (j < maxlaengde)
01E650: 20 44 4F 0D 0A 20 20 20 20 20 20 20 20 20 20 20 DO..
01E660: 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 20 BEGIN..
01E670: 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 28 WRITE(
01E680: 27 20 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 ' ');..
01E690: 20 20 20 20 20 20 20 6A 20 3A 3D 20 6A 20 2B 20 j := j +
01E6A0: 31 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 1;..
01E6B0: 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 20 20 END;..
01E6C0: 20 20 20 20 46 4F 52 20 69 20 3A 3D 20 6A 20 54 FOR i := j T
01E6D0: 4F 20 6D 61 78 6C 61 65 6E 67 64 65 20 44 4F 0D O maxlaengde DO.
01E6E0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 . W
01E6F0: 52 49 54 45 28 76 33 28 2E 69 2E 29 29 3B 0D 0A RITE(v3(.i.));..
01E700: 32 28 2E 69 2E 29 29 20 2D 20 4F 52 44 28 27 30 2(.i.)) - ORD('0
01E710: 27 29 3B 0D 0A 20 20 20 20 46 4F 52 20 6B 20 3A ');.. FOR k :
01E720: 3D 20 31 20 54 4F 20 64 6F 62 62 65 6C 74 6D 61 = 1 TO dobbeltma
01E730: 78 20 44 4F 0D 0A 20 20 20 20 20 20 76 28 2E 6B x DO.. v(.k
01E740: 2E 29 20 3A 3D 20 30 3B 0D 0A 20 20 20 20 46 4F .) := 0;.. FO
01E750: 52 20 69 20 3A 3D 20 6D 61 78 6C 61 65 6E 67 64 R i := maxlaengd
01E760: 65 20 44 4F 57 4E 54 4F 20 31 20 44 4F 0D 0A 20 e DOWNTO 1 DO..
01E770: 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 BEGIN..
01E780: 20 20 20 20 6D 65 6E 74 65 20 3A 3D 20 30 3B 0D mente := 0;.
01E790: 0A 20 20 20 20 20 20 20 20 46 4F 52 20 6B 20 3A . FOR k :
01E7A0: 3D 20 31 20 54 4F 20 64 6F 62 62 65 6C 74 6D 61 = 1 TO dobbeltma
01E7B0: 78 20 44 4F 0D 0A 20 20 20 20 20 20 20 20 20 20 x DO..
01E7C0: 77 28 2E 6B 2E 29 20 3A 3D 20 30 3B 0D 0A 20 20 w(.k.) := 0;..
01E7D0: 20 20 20 20 20 20 6B 20 3A 3D 20 6D 61 78 6C 61 k := maxla
01E7E0: 65 6E 67 64 65 20 2B 20 31 20 2B 20 69 3B 0D 0A engde + 1 + i;..
01E7F0: 20 20 20 20 20 20 20 20 46 4F 52 20 6A 20 3A 3D FOR j :=
01E800: 20 6D 61 78 6C 61 65 6E 67 64 65 20 44 4F 57 4E maxlaengde DOWN
01E810: 54 4F 20 31 20 44 4F 0D 0A 20 20 20 20 20 20 20 TO 1 DO..
01E820: 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 20 BEGIN..
01E830: 20 20 20 20 20 20 6B 20 3A 3D 20 6B 20 2D 20 31 k := k - 1
01E840: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 70 ;.. p
01E850: 72 6F 64 75 6B 74 20 3A 3D 20 76 31 28 2E 69 2E rodukt := v1(.i.
01E860: 29 20 2A 20 76 32 28 2E 6A 2E 29 20 2B 20 6D 65 ) * v2(.j.) + me
01E870: 6E 74 65 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 nte;..
01E880: 20 20 77 28 2E 6B 2E 29 20 3A 3D 20 70 72 6F 64 w(.k.) := prod
01E890: 75 6B 74 20 4D 4F 44 20 31 30 3B 0D 0A 20 20 20 ukt MOD 10;..
01E8A0: 20 20 20 20 20 20 20 20 20 6D 65 6E 74 65 20 3A mente :
01E8B0: 3D 20 70 72 6F 64 75 6B 74 20 44 49 56 20 31 30 = produkt DIV 10
01E8C0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 45 4E 44 ;.. END
01E8D0: 3B 0D 0A 20 20 20 20 20 20 20 20 61 64 64 6D 65 ;.. addme
01E8E0: 6E 74 65 20 3A 3D 20 30 3B 0D 0A 20 20 20 20 20 nte := 0;..
01E8F0: 20 20 20 46 4F 52 20 6B 20 3A 3D 20 64 6F 62 62 FOR k := dobb
01E900: 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 WRIT
01E910: 45 4C 4E 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 ELN;..
01E920: 45 4E 44 2E 0D 0A 1A 20 20 20 20 20 20 20 20 20 END....
01E930: 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 20 20 END;..
01E940: 20 20 20 20 46 4F 52 20 69 20 3A 3D 20 6A 20 54 FOR i := j T
01E950: 4F 20 6D 61 78 6C 61 65 6E 67 64 65 20 44 4F 0D O maxlaengde DO.
01E960: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 . W
01E970: 52 49 54 45 28 76 33 28 2E 69 2E 29 29 3B 0D 0A RITE(v3(.i.));..
01E980: 4E 3B 0D 0A 20 20 20 20 20 20 20 20 45 4E 44 2E N;.. END.
01E990: 0D 0A 1A 76 28 2E 69 2E 29 20 3A 3D 20 4F 52 44 ...v(.i.) := ORD
01E9A0: 28 63 73 74 72 65 6E 67 28 2E 69 2E 29 29 20 2D (cstreng(.i.)) -
01E9B0: 20 4F 52 44 28 27 30 27 29 3B 0D 0A 20 20 20 20 ORD('0');..
01E9C0: 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 28 WRITE(
01E9D0: 76 28 2E 69 2E 29 20 3A 20 32 29 3B 0D 0A 20 20 v(.i.) : 2);..
01E9E0: 20 20 20 20 20 20 20 20 20 20 45 4E 44 3B 0D 0A END;..
01E9F0: 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4C WRITEL
01EA00: D7 B6 E7 BB BD D7 1C 60 2E F5 41 FC AE 49 C1 5C .......`..A..I.\
01EA10: A6 E9 0F FB 4C 24 1C 40 11 59 D7 88 B9 56 25 09 ....L$.@.Y...V%.
01EA20: 6A 20 36 F0 61 0C 1B D3 D0 23 6F C4 93 E6 77 4B j 6.a....#o...wK
01EA30: F7 D0 11 96 C9 68 25 C5 67 46 06 6C 56 16 CE 1E .....h%.gF.lV...
01EA40: EA B5 3D 47 22 17 16 A4 48 A1 7E 82 DA C3 1A 1A ..=G"...H.~.....
01EA50: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
01EA60: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
01EA70: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
01EA80: 76 FD 52 45 4E 54 45 44 41 47 2E 50 41 53 5B 32 v.RENTEDAG.PAS[2
01EA90: 38 2F 30 31 2F 31 39 39 31 5D 00 11 10 00 05 ED 8/01/1991]......
01EAA0: 77 3B 3D 1C 3E 5F 5F 55 FC F7 FE 3F D7 9E EF 5F w;=.>__U...?..._
01EAB0: C7 8B 97 CA 5A DA 6C B6 97 DD DB 8F BD D7 DB E7 ....Z.l.........
01EAC0: 6F 56 A5 80 3D DD 6B 99 6F 6A FF 41 68 D3 96 A2 oV..=.k.oj.Ah...
01EAD0: 28 6B AB E2 DE EE A7 BE 8A 67 A2 0B A4 CF 34 14 (k.......g....4.
01EAE0: 7F EA 47 E6 2C A8 F1 9F 65 B3 AF 0F 1F 0E F7 8F ..G.,...e.......
01EAF0: 13 9F 14 07 84 1B 3C CE FA 1C 74 B1 89 77 D3 EC ......<...t..w..
01EB00: 65 6C 74 6D 61 78 20 44 4F 57 4E 54 4F 20 31 20 eltmax DOWNTO 1
01EB10: 44 4F 0D 0A 20 20 20 20 20 20 20 20 20 20 42 45 DO.. BE
01EB20: 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 GIN..
01EB30: 20 73 75 6D 20 3A 3D 20 76 28 2E 6B 2E 29 20 2B sum := v(.k.) +
01EB40: 20 77 28 2E 6B 2E 29 20 2B 20 61 64 64 6D 65 6E w(.k.) + addmen
01EB50: 74 65 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 te;..
01EB60: 20 76 28 2E 6B 2E 29 20 3A 3D 20 73 75 6D 20 4D v(.k.) := sum M
01EB70: 4F 44 20 31 30 3B 0D 0A 20 20 20 20 20 20 20 20 OD 10;..
01EB80: 20 20 20 20 61 64 64 6D 65 6E 74 65 20 3A 3D 20 addmente :=
01EB90: 73 75 6D 20 44 49 56 20 31 30 3B 0D 0A 20 20 20 sum DIV 10;..
01EBA0: 20 20 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 END;..
01EBB0: 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 6B 20 3A END;.. k :
01EBC0: 3D 20 31 3B 0D 0A 20 20 20 20 57 48 49 4C 45 20 = 1;.. WHILE
01EBD0: 28 76 28 2E 6B 2E 29 20 3D 20 30 29 20 41 4E 44 (v(.k.) = 0) AND
01EBE0: 20 28 6B 20 3C 20 64 6F 62 62 65 6C 74 6D 61 78 (k < dobbeltmax
01EBF0: 29 20 44 4F 0D 0A 20 20 20 20 20 20 6B 20 3A 3D ) DO.. k :=
01EC00: 20 6B 20 2B 20 31 3B 0D 0A 20 20 20 20 46 4F 52 k + 1;.. FOR
01EC10: 20 6C 20 3A 3D 20 6B 20 54 4F 20 64 6F 62 62 65 l := k TO dobbe
01EC20: 6C 74 6D 61 78 20 44 4F 0D 0A 20 20 20 20 20 20 ltmax DO..
01EC30: 57 52 49 54 45 28 76 28 2E 6C 2E 29 29 3B 0D 0A WRITE(v(.l.));..
01EC40: 20 20 20 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 WRITELN;..
01EC50: 45 4E 44 2E 0D 0A 1A 20 3D 20 30 29 20 41 4E 44 END.... = 0) AND
01EC60: 20 28 6B 20 3C 20 64 6F 62 62 65 6C 74 6D 61 78 (k < dobbeltmax
01EC70: 29 20 44 4F 0D 0A 20 20 20 20 20 20 6B 20 3A 3D ) DO.. k :=
01EC80: 41 09 2A 52 E5 02 04 08 FF 00 00 00 05 05 05 05 A.*R............
01EC90: 05 05 05 05 05 05 05 05 05 05 05 05 05 05 05 05 ................
01ECA0: 05 05 05 05 05 05 F4 40 8B 00 00 00 00 D8 E4 53 .......@.......S
01ECB0: 6F 24 00 03 07 00 AA 00 3F 00 C0 00 10 00 02 00 o$......?.......
01ECC0: 41 09 2A 52 E5 02 04 00 00 00 1A 1A 1A 1A 1A 1A A.*R............
01ECD0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
01ECE0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 09 C0 ................
01ECF0: 07 00 00 FE BF 0D 1A A9 9F 78 AE D8 AD F1 AD 01 .........x......
01ED00: 4D 56 FA 2E E2 45 60 12 CC 87 AD 24 12 E2 6C 83 MV...E`....$..l.
01ED10: 44 3B 47 D1 AC DE CE 39 1A D3 C0 3B 47 1C 85 5C D;G....9...;G..\
01ED20: 48 C4 51 85 86 48 1C 51 90 9C C4 C4 21 C4 85 90 H.Q..H.Q....!...
01ED30: 38 87 D0 24 12 E2 10 6C 4E 42 E2 9C ED 91 48 3B 8..$...lNB....H;
01ED40: C7 8E AF F3 76 70 8E 8E 37 7F 73 E0 1C 39 3E 7C ....vp..7.s..9>|
01ED50: DA 86 73 CE 7D FB 74 F4 9C 9C FB 7D 52 22 CE CE ..s.}.t....}R"..
01ED60: 7D 7D DA 2B CE E7 3E 4F 69 DC B9 73 9F A7 8B E3 }}.+..>Oi..s....
01ED70: DC F7 49 22 39 CE 7D 9F EB B7 73 EE 93 36 70 CE ..I"9.}...s..6p.
01ED80: 7D 9F 6F 80 73 DC E7 39 ED 39 F7 7D 7A D4 CE B9 }.o.s..9.9.}z...
01ED90: CF 59 C0 3A F7 9F 4E A3 73 DC A7 EC E9 9D FB 7D .Y.:..N£s......}
01EDA0: 2E 0D CE B9 CF 05 C9 77 CE 73 59 BC 9D 73 2E A5 .......w.sY..s..
01EDB0: 81 73 CE 73 79 06 9C E7 5C 1B 0E 3B 80 C0 0D C3 .s.sy...\..;....
01EDC0: 1E 02 70 6E 98 46 00 9D 1B 1B B6 57 9C CE 0D C3 ..pn.F.....W....
01EDD0: D2 B9 73 E7 86 61 17 C6 B9 6E 98 46 72 9D 1B 86 ..s..a...n.Fr...
01EDE0: D7 6F E7 DC 30 6E E0 9C 1B 86 DF 01 E7 B9 E1 78 .o..0n.........x
01EDF0: DA 72 6E 1B F6 A9 9D 73 C3 B8 80 74 6E 86 9D 47 .rn....s...tn..G
01EE00: E7 B9 61 DC D3 3A 37 1B 5E 1B 9C 73 C3 CD 80 E0 ..a..:7.^..s....
01EE10: 1C 7B 6B 08 80 8E B9 DF B9 A5 64 FB CD 2E 25 14 .{k.......d...%.
01EE20: FD 5C 4A 94 DC 5D 4A D9 FA 73 29 B2 73 E6 58 92 .\J..]J..s).s.X.
01EE30: FD BC EC 11 E0 EE C9 6B 8D 0E C9 2D 04 31 D2 EE .......k...-.1..
01EE40: E4 04 50 B2 75 52 43 B2 55 53 43 4C C4 62 97 17 ..P.uRC.USCL.b..
01EE50: 31 28 62 D8 85 32 8B 45 EC 76 21 B0 22 88 5D 2B 1(b..2.E.v!.".]+
01EE60: 98 1D B1 D8 55 91 89 23 80 C0 10 44 11 02 18 C6 ....U..#...D....
01EE70: 2C 8A 00 80 41 B0 22 04 30 13 4C 47 00 C0 54 32 ,...A.".0.LG..T2
01EE80: 11 88 DF DF C4 A2 88 E2 37 DB 2C 14 F1 F8 8D C3 ........7.,.....
01EE90: 8A 22 7E EF 60 75 C4 E2 77 4B 26 18 81 81 8B 42 ."~.`u..wK&....B
01EEA0: 14 45 E0 70 99 90 22 11 B8 2E 58 4C 04 C0 15 AA .E.p.."...XL....
01EEB0: 8E 44 E0 E8 CA 25 46 8A D0 E8 22 9A 45 45 E8 E8 .D...%F...".EE..
01EEC0: 22 61 45 22 74 DD 60 EA 08 08 DD 2C 99 62 44 44 "aE"t.`....,.bDD
01EED0: 2C 0B 51 16 11 88 65 42 8A 45 C4 B1 60 30 11 22 ,.Q...eB.E..`0."
01EEE0: 56 AB 3A 13 11 71 26 8C 18 28 E2 71 86 66 16 14 V.:..q&..(.q.f..
01EEF0: 71 71 86 83 15 89 38 CE 82 AA 23 22 CE 59 64 88 qq....8...#".Yd.
01EF00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
01EF10: 1A 00 01 00 02 09 52 E5 1A 00 41 02 00 00 00 02 ......R...A.....
01EF20: 1A 00 46 02 00 00 00 02 1A 00 42 02 00 00 00 02 ..F.......B.....
01EF30: 1A 00 47 02 00 00 00 02 1A 00 43 02 00 00 00 02 ..G.......C.....
01EF40: 1A 00 48 02 00 00 00 02 1A 00 44 02 00 00 00 02 ..H.......D.....
01EF50: 1A 00 49 02 00 00 00 02 1A 00 45 02 00 00 00 02 ..I.......E.....
01EF60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01EF70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01EF80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01EF90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01EFA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01EFB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01EFC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01EFD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01EFE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01EFF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01F000: 50 52 4F 47 52 41 4D 20 6D 61 61 6E 65 64 32 3B PROGRAM maaned2;
01F010: 0D 0A 0D 0A 20 20 56 41 52 0D 0A 20 20 20 20 6E .... VAR.. n
01F020: 75 6D 6D 65 72 20 3A 20 49 4E 54 45 47 45 52 3B ummer : INTEGER;
01F030: 0D 0A 20 20 0D 0A 20 20 42 45 47 49 4E 0D 0A 20 .. .. BEGIN..
01F040: 20 20 20 57 52 49 54 45 28 43 4C 52 48 4F 4D 29 WRITE(CLRHOM)
01F050: 3B 0D 0A 20 20 20 20 47 4F 54 4F 58 59 28 35 2C ;.. GOTOXY(5,
01F060: 20 32 29 3B 20 57 52 49 54 45 28 27 41 6E 67 69 2); WRITE('Angi
01F070: 76 65 6C 73 65 20 61 66 20 61 6E 74 61 6C 20 64 velse af antal d
01F080: 61 67 65 20 69 20 65 6E 20 6D 7D 6E 65 64 3A 27 age i en m}ned:'
01F090: 29 3B 0D 0A 20 20 20 20 47 4F 54 4F 58 59 28 35 );.. GOTOXY(5
01F0A0: 2C 20 33 29 3B 20 57 52 49 54 45 28 27 2D 2D 2D , 3); WRITE('---
01F0B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
01F0C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
01F0D0: 27 29 3B 0D 0A 20 20 20 20 47 4F 54 4F 58 59 28 ');.. GOTOXY(
01F0E0: 35 2C 20 35 29 3B 20 57 52 49 54 45 28 27 49 6E 5, 5); WRITE('In
01F0F0: 64 74 61 73 74 20 6D 7D 6E 65 64 65 6E 73 20 6E dtast m}nedens n
01F100: 75 6D 6D 65 72 20 28 66 2E 65 6B 73 2E 20 34 29 ummer (f.eks. 4)
01F110: 3A 20 27 29 3B 20 0D 0A 20 20 20 20 52 45 41 44 : '); .. READ
01F120: 4C 4E 28 6E 75 6D 6D 65 72 29 3B 0D 0A 20 20 20 LN(nummer);..
01F130: 20 47 4F 54 4F 58 59 28 35 2C 20 31 30 29 3B 0D GOTOXY(5, 10);.
01F140: 0A 20 20 20 20 43 41 53 45 20 6E 75 6D 6D 65 72 . CASE nummer
01F150: 20 4F 46 0D 0A 20 20 20 20 20 20 31 2C 20 33 2C OF.. 1, 3,
01F160: 20 35 2C 20 37 2C 20 38 2C 20 31 30 2C 20 31 32 5, 7, 8, 10, 12
01F170: 20 3A 20 57 52 49 54 45 28 27 4D 7D 6E 65 64 20 : WRITE('M}ned
01F180: 6E 72 2E 20 27 2C 20 6E 75 6D 6D 65 72 2C 20 27 nr. ', nummer, '
01F190: 20 68 61 72 20 33 31 20 64 61 67 65 27 29 3B 0D har 31 dage');.
01F1A0: 0A 20 20 20 20 20 20 32 20 3A 20 57 52 49 54 45 . 2 : WRITE
01F1B0: 28 27 4D 7D 6E 65 64 20 6E 72 2E 20 32 20 68 61 ('M}ned nr. 2 ha
01F1C0: 72 20 32 38 20 28 32 39 29 20 64 61 67 65 27 29 r 28 (29) dage')
01F1D0: 3B 0D 0A 20 20 20 20 20 20 34 2C 20 36 2C 20 39 ;.. 4, 6, 9
01F1E0: 2C 20 31 31 20 3A 20 57 52 49 54 45 28 27 4D 7D , 11 : WRITE('M}
01F1F0: 6E 65 64 20 6E 72 2E 20 27 2C 20 6E 75 6D 6D 65 ned nr. ', numme
01F200: 0C EA 42 D4 14 DA 32 CB F8 02 23 98 09 C0 7C AF ..B...2...#...|.
01F210: 85 A9 8C 96 F1 82 5C 1F 66 14 E4 F5 EE B4 9B 96 ......\.f.......
01F220: 71 50 0C 54 86 B2 01 C2 99 10 53 C4 04 66 33 A1 qP.T......S..f3.
01F230: C0 B7 0C 03 68 3D 7E 5D 0D 21 CD 2A F2 A7 A0 AC ....h=~].!.*....
01F240: CB 48 DA 18 24 4F 7E 49 86 0F C2 E1 CC 03 8B 3F .H..$O~I.......?
01F250: 61 99 00 08 72 65 34 5A E5 69 B1 BC 89 04 B9 3F a...re4Z.i.....?
01F260: 1A 56 E9 DA A7 6F 62 41 2E BC 04 F8 A4 97 20 46 .V...obA...... F
01F270: 93 67 1F 3F B1 AD F4 84 AF 90 CB 2F 41 3E 29 25 .g.?......./A>)%
01F280: 08 D1 E4 D9 87 16 EC 95 7E 2C B1 CA 04 82 4F 79 ........~,....Oy
01F290: 09 61 34 ED F0 E6 6B 0F 36 65 42 C1 27 BC 04 30 .a4...k.6eB.'..0
01F2A0: 9A 76 F8 FE 0F 63 63 4C 38 F8 A4 96 20 29 AE 2D .v...ccL8... ).-
01F2B0: E8 2A 04 1F 9C D8 8F 53 C5 2A 8C 3B 6F A1 E8 4E .*.....S.*.;o..N
01F2C0: B5 EA 0F 89 FC 72 53 29 B0 04 A4 96 BB 39 A8 55 .....rS).....9.U
01F2D0: 45 2B 37 88 02 BB D9 12 B4 8F F2 F5 43 44 7E 7A E+7.........CD~z
01F2E0: FC FE 0F 11 60 53 5C 56 D0 3C C3 6E 28 93 6E DD ....`S\V.<.n(.n.
01F2F0: 2C D0 24 3F 25 46 40 F8 CF A0 04 04 32 B9 A1 7F ,.$?%F@.....2...
01F300: BA 8D 00 15 21 CF 52 4E 05 76 AA 28 CE 51 20 A9 ....!.RN.v.(.Q .
01F310: CA 85 67 49 9C 59 E8 BB C1 84 B3 AD 27 2A 04 18 ..gI.Y......'*..
01F320: 96 E0 54 7C D4 6F 78 CE 02 93 E5 F1 83 58 FB 84 ..T|.ox......X..
01F330: 9D C1 35 5F 8C 06 45 9C 6C FA 62 37 29 60 73 41 ..5_..E.l.b7)`sA
01F340: 56 68 CA 41 16 9C EC 8F 1F E0 22 39 A8 1D 4D 88 Vh.A......"9..M.
01F350: 95 43 D9 64 31 CE 1E 9E 10 39 A8 ED 44 9F 94 12 .C.d1....9..D...
01F360: 04 BB E8 64 02 0E 07 F9 8B 07 BE 71 05 C3 2C F4 ...d.......q..,.
01F370: DD 15 7A BD 93 4F 2E 82 E4 00 22 6C A4 0D DA 72 ..z..O...."l...r
01F380: 8B 84 03 F9 4B 07 BE 9E 06 98 80 C6 C7 7C C3 29 ....K........|.)
01F390: 02 66 51 EF 99 F8 E6 16 1C 20 D5 EC 81 B3 28 7D .fQ...... ....(}
01F3A0: 54 9D 42 B0 DF 50 17 A8 B5 CB 65 08 A6 85 14 36 T.B..P....e....6
01F3B0: D4 A2 92 EA CB EA 42 2F 0D C2 F4 97 8C C3 E0 30 ......B/.......0
01F3C0: FD 63 09 0A F5 BF 2C 01 49 02 FA 29 02 42 8F E6 .c....,.I..).B..
01F3D0: C7 5D 14 20 81 92 2F 69 F0 B2 7E CC 0F 8A E1 96 .]. ../i..~.....
01F3E0: F1 A8 4B 44 51 38 32 A9 F9 E9 83 04 F8 75 C9 3F ..KDQ82......u.?
01F3F0: 04 5E 43 90 D4 92 8C 67 5F B3 A4 21 83 6B CA 92 .^C....g_..!.k..
01F400: 72 2C 20 27 20 68 61 72 20 33 30 20 64 61 67 65 r, ' har 30 dage
01F410: 27 29 3B 0D 0A 20 20 20 20 4F 54 48 45 52 57 49 ');.. OTHERWI
01F420: 53 45 0D 0A 20 20 20 20 20 20 57 52 49 54 45 28 SE.. WRITE(
01F430: 27 44 75 20 68 61 72 20 74 61 73 74 65 74 20 65 'Du har tastet e
01F440: 74 20 75 6C 6F 76 6C 69 67 74 20 6E 75 6D 6D 65 t ulovligt numme
01F450: 72 27 29 3B 0D 0A 20 20 20 20 45 4E 44 3B 0D 0A r');.. END;..
01F460: 20 20 20 20 47 4F 54 4F 58 59 28 30 2C 20 32 30 GOTOXY(0, 20
01F470: 29 3B 0D 0A 20 20 45 4E 44 2E 0D 0A 1A 6D 6D 65 );.. END....mme
01F480: 0A 20 20 45 4E 44 2E 20 28 2A 20 63 68 65 63 6B . END. (* check
01F490: 33 20 2A 29 0D 0A 1A 67 6E 28 27 53 6C 75 74 20 3 *)...gn('Slut
01F4A0: 28 6A 2F 6E 29 3F 20 27 2C 20 28 2E 27 4A 27 2C (j/n)? ', (.'J',
01F4B0: 20 27 6A 27 2C 20 27 4E 27 2C 20 27 6E 27 2E 29 'j', 'N', 'n'.)
01F4C0: 29 29 3B 0D 0A 20 20 20 20 57 52 49 54 45 4C 4E ));.. WRITELN
01F4D0: 28 6C 61 65 73 74 65 67 6E 28 27 54 61 73 74 20 (laestegn('Tast
01F4E0: 65 74 20 63 69 66 66 65 72 3A 20 27 2C 20 28 2E et ciffer: ', (.
01F4F0: 27 30 27 20 2E 2E 20 27 39 27 2E 29 29 29 3B 0D '0' .. '9'.)));.
01F500: 67 76 9E DD EE 80 43 02 A7 76 1E FF 4C B8 61 E3 gv....C..v..L.a.
01F510: 9C 98 24 F9 28 2F 54 84 A4 5F CD 38 88 78 C0 42 ..$.(/T.._.8.x.B
01F520: 67 2F 20 19 07 58 AD BE 4B 4B B2 97 0C 6D A9 93 g/ ..X..KK...m..
01F530: 07 1A 1C A4 5D C5 BA 5F 8D FE C6 79 9E 39 17 15 ....].._...y.9..
01F540: 48 0F EF AD 45 50 8A 03 E4 AD 1B A0 9A 7F FE 01 H...EP..........
01F550: 2F 16 B6 8D C7 01 7E D7 30 C4 1A 1A 1A 1A 1A 1A /.....~.0.......
01F560: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
01F570: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
01F580: 76 FD 52 49 4E 47 2E 50 41 53 5B 32 38 2F 30 31 v.RING.PAS[28/01
01F590: 2F 31 39 39 31 5D 00 11 10 00 00 90 00 76 BB 00 /1991].......v..
01F5A0: 00 01 84 01 FF AA FE 7C FF 1F 1E 2E 5F 29 88 17 .......|...._)..
01F5B0: 92 04 DE 00 00 78 F0 F9 F2 00 08 26 C9 FD D7 9B .....x.....&....
01F5C0: ED D5 3C 7A BB 00 08 26 C9 FD 0D 96 E2 B2 9E 57 ..<z...&.......W
01F5D0: 67 00 08 26 C9 FD 6B BB AF AD D4 43 E8 AB F5 F9 g..&..k....C....
01F5E0: AE AD AC 00 02 26 C9 FD DA 56 1C DC 17 39 D5 81 .....&...V...9..
01F5F0: B5 E4 7F F0 85 00 04 26 C9 FD 24 DF B3 D7 73 1A .......&..$...s.
01F600: 50 52 4F 47 52 41 4D 20 6D 61 78 70 75 6E 6B 74 PROGRAM maxpunkt
01F610: 3B 0D 0A 0D 0A 20 20 56 41 52 0D 0A 20 20 20 20 ;.... VAR..
01F620: 61 2C 20 62 2C 20 62 79 74 2C 20 78 2C 20 66 78 a, b, byt, x, fx
01F630: 2C 20 66 6D 61 78 2C 20 78 6D 61 78 2C 20 64 65 , fmax, xmax, de
01F640: 6C 74 61 20 3A 20 52 45 41 4C 3B 0D 0A 20 20 20 lta : REAL;..
01F650: 20 69 2C 20 61 6E 74 61 6C 20 3A 20 49 4E 54 45 i, antal : INTE
01F660: 47 45 52 3B 0D 0A 20 20 0D 0A 20 20 46 55 4E 43 GER;.. .. FUNC
01F670: 54 49 4F 4E 20 66 28 78 20 3A 20 52 45 41 4C 29 TION f(x : REAL)
01F680: 20 3A 20 52 45 41 4C 3B 0D 0A 20 20 0D 0A 20 20 : REAL;.. ..
01F690: 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 20 66 BEGIN.. f
01F6A0: 20 3A 3D 20 28 28 78 20 2D 20 33 29 20 2A 20 78 := ((x - 3) * x
01F6B0: 20 2D 20 39 29 20 2A 20 78 20 2B 20 32 3B 0D 0A - 9) * x + 2;..
01F6C0: 20 20 20 20 45 4E 44 3B 0D 0A 20 20 0D 0A 20 20 END;.. ..
01F6D0: 42 45 47 49 4E 0D 0A 20 20 20 20 57 52 49 54 45 BEGIN.. WRITE
01F6E0: 28 43 4C 52 48 4F 4D 29 3B 0D 0A 20 20 20 20 57 (CLRHOM);.. W
01F6F0: 52 49 54 45 28 27 54 61 73 74 20 61 20 69 20 69 RITE('Tast a i i
01F700: 6E 74 65 72 76 61 6C 6C 65 74 20 28 61 2C 62 29 ntervallet (a,b)
01F710: 3A 20 27 29 3B 20 52 45 41 44 4C 4E 28 61 29 3B : '); READLN(a);
01F720: 0D 0A 20 20 20 20 57 52 49 54 45 28 27 54 61 73 .. WRITE('Tas
01F730: 74 20 62 20 69 20 69 6E 74 65 72 76 61 6C 6C 65 t b i intervalle
01F740: 74 20 28 61 2C 62 29 3A 20 27 29 3B 20 52 45 41 t (a,b): '); REA
01F750: 44 4C 4E 28 62 29 3B 0D 0A 20 20 20 20 57 52 49 DLN(b);.. WRI
01F760: 54 45 28 27 48 76 6F 72 20 6D 61 6E 67 65 20 64 TE('Hvor mange d
01F770: 65 6C 69 6E 74 65 72 76 61 6C 6C 65 72 20 73 6B elintervaller sk
01F780: 61 6C 20 28 61 2C 62 29 20 64 65 6C 65 73 20 6F al (a,b) deles o
01F790: 70 20 69 3A 20 27 29 3B 20 0D 0A 20 20 20 20 52 p i: '); .. R
01F7A0: 45 41 44 4C 4E 28 61 6E 74 61 6C 29 3B 0D 0A 20 EADLN(antal);..
01F7B0: 20 20 20 49 46 20 61 20 3E 20 62 0D 0A 20 20 20 IF a > b..
01F7C0: 20 20 20 54 48 45 4E 0D 0A 20 20 20 20 20 20 20 THEN..
01F7D0: 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 BEGIN..
01F7E0: 20 20 62 79 74 20 3A 3D 20 61 3B 0D 0A 20 20 20 byt := a;..
01F7F0: 20 20 20 20 20 20 20 61 20 3A 3D 20 62 3B 0D 0A a := b;..
01F800: 20 20 20 20 20 20 20 20 50 52 4F 47 52 41 4D 20 PROGRAM
01F810: 20 6D 61 78 69 6D 75 6D 32 3B 0D 0A 20 20 20 20 maximum2;..
01F820: 20 20 20 20 0D 0A 20 20 20 20 20 20 20 20 28 2A .. (*
01F830: 20 50 72 6F 67 72 61 6D 6D 65 74 20 66 69 6E 64 Programmet find
01F840: 65 72 20 6D 61 78 69 6D 75 6D 20 62 6C 61 6E 64 er maximum bland
01F850: 74 20 65 6E 20 72 7B 6B 6B 65 20 74 61 6C 20 2A t en r{kke tal *
01F860: 29 0D 0A 20 20 20 20 20 20 20 20 28 2A 20 55 64 ).. (* Ud
01F870: 73 6B 72 69 66 74 65 6E 20 6B 6F 6D 6D 65 72 20 skriften kommer
01F880: 70 7D 20 70 72 69 6E 74 65 72 65 6E 20 20 20 20 p} printeren
01F890: 20 20 20 20 20 20 20 20 20 20 20 20 2A 29 0D 0A *)..
01F8A0: 20 20 20 20 20 20 20 20 0D 0A 20 20 20 20 20 20 ..
01F8B0: 20 20 43 4F 4E 53 54 0D 0A 20 20 20 20 20 20 20 CONST..
01F8C0: 20 20 20 61 6E 74 61 6C 20 3D 20 32 30 30 3B 0D antal = 200;.
01F8D0: 0A 20 20 20 20 20 20 20 20 0D 0A 20 20 20 20 20 . ..
01F8E0: 20 20 20 54 59 50 45 0D 0A 20 20 20 20 20 20 20 TYPE..
01F8F0: 20 20 20 76 65 6B 74 6F 72 20 3D 20 41 52 52 41 vektor = ARRA
01F900: 59 28 2E 31 20 2E 2E 20 61 6E 74 61 6C 2E 29 20 Y(.1 .. antal.)
01F910: 4F 46 20 49 4E 54 45 47 45 52 3B 0D 0A 20 20 20 OF INTEGER;..
01F920: 20 20 20 20 20 0D 0A 20 20 20 20 20 20 20 20 56 .. V
01F930: 41 52 0D 0A 20 20 20 20 20 20 20 20 20 20 76 20 AR.. v
01F940: 3A 20 76 65 6B 74 6F 72 3B 0D 0A 20 20 20 20 20 : vektor;..
01F950: 20 20 20 20 20 69 2C 20 6E 72 2C 20 6D 61 78 20 i, nr, max
01F960: 3A 20 49 4E 54 45 47 45 52 3B 0D 0A 20 20 20 20 : INTEGER;..
01F970: 20 20 20 20 0D 0A 20 20 20 20 20 20 20 20 42 45 .. BE
01F980: 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 52 GIN.. R
01F990: 41 4E 44 4F 4D 49 5A 45 3B 0D 0A 20 20 20 20 20 ANDOMIZE;..
01F9A0: 20 20 20 20 20 57 52 49 54 45 4C 4E 28 4C 53 54 WRITELN(LST
01F9B0: 2C 43 48 52 28 31 32 29 2C 20 27 46 7C 72 73 74 ,CHR(12), 'F|rst
01F9C0: 20 76 7B 6C 67 65 72 20 76 69 20 6E 6F 67 6C 65 v{lger vi nogle
01F9D0: 20 74 61 6C 3A 27 29 3B 0D 0A 20 20 20 20 20 20 tal:');..
01F9E0: 20 20 20 20 46 4F 52 20 69 20 3A 3D 20 31 20 54 FOR i := 1 T
01F9F0: 4F 20 61 6E 74 61 6C 20 44 4F 0D 0A 20 20 20 20 O antal DO..
01FA00: 20 20 20 20 20 20 20 20 20 20 62 20 3A 3D 20 62 b := b
01FA10: 79 74 3B 0D 0A 20 20 20 20 20 20 20 20 45 4E 44 yt;.. END
01FA20: 3B 0D 0A 20 20 20 20 64 65 6C 74 61 20 3A 3D 20 ;.. delta :=
01FA30: 28 62 20 2D 20 61 29 20 2F 20 61 6E 74 61 6C 3B (b - a) / antal;
01FA40: 0D 0A 20 20 20 20 66 6D 61 78 20 3A 3D 20 66 28 .. fmax := f(
01FA50: 61 29 3B 0D 0A 20 20 20 20 78 6D 61 78 20 3A 3D a);.. xmax :=
01FA60: 20 61 3B 0D 0A 20 20 20 20 78 20 3A 3D 20 61 3B a;.. x := a;
01FA70: 0D 0A 20 20 20 20 46 4F 52 20 69 20 3A 3D 20 31 .. FOR i := 1
01FA80: 20 54 4F 20 61 6E 74 61 6C 20 44 4F 0D 0A 20 20 TO antal DO..
01FA90: 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 BEGIN..
01FAA0: 20 20 20 78 20 3A 3D 20 78 20 2B 20 64 65 6C 74 x := x + delt
01FAB0: 61 3B 0D 0A 20 20 20 20 20 20 20 20 66 78 20 3A a;.. fx :
01FAC0: 3D 20 66 28 78 29 3B 0D 0A 20 20 20 20 20 20 20 = f(x);..
01FAD0: 20 49 46 20 66 78 20 3E 20 66 6D 61 78 0D 0A 20 IF fx > fmax..
01FAE0: 20 20 20 20 20 20 20 20 20 54 48 45 4E 0D 0A 20 THEN..
01FAF0: 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4E BEGIN
01FB00: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
01FB10: 66 6D 61 78 20 3A 3D 20 66 78 3B 0D 0A 20 20 20 fmax := fx;..
01FB20: 20 20 20 20 20 20 20 20 20 20 20 78 6D 61 78 20 xmax
01FB30: 3A 3D 20 78 3B 0D 0A 20 20 20 20 20 20 20 20 20 := x;..
01FB40: 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 45 END;.. E
01FB50: 4E 44 3B 0D 0A 20 20 20 20 57 52 49 54 45 4C 4E ND;.. WRITELN
01FB60: 28 27 4D 61 78 69 6D 75 6D 73 76 7B 72 64 69 65 ('Maximumsv{rdie
01FB70: 6E 20 66 6F 72 20 66 75 6E 6B 74 69 6F 6E 65 6E n for funktionen
01FB80: 20 69 20 28 27 2C 20 61 20 3A 20 36 20 3A 20 32 i (', a : 6 : 2
01FB90: 20 2C 20 27 2C 27 2C 20 0D 0A 20 20 20 20 20 20 , ',', ..
01FBA0: 20 20 20 20 20 20 20 62 20 3A 20 36 20 3A 20 32 b : 6 : 2
01FBB0: 2C 20 27 29 27 29 3B 0D 0A 20 20 20 20 57 52 49 , ')');.. WRI
01FBC0: 54 45 4C 4E 28 27 62 61 73 65 72 65 74 20 70 7D TELN('baseret p}
01FBD0: 20 27 2C 20 61 6E 74 61 6C 20 2B 20 31 2C 20 27 ', antal + 1, '
01FBE0: 20 73 74 7C 74 74 65 70 75 6E 6B 74 65 72 3A 20 st|ttepunkter:
01FBF0: 27 2C 20 66 6D 61 78 20 3A 20 31 30 20 3A 20 34 ', fmax : 10 : 4
01FC00: 20 20 20 20 20 20 20 20 76 28 2E 69 2E 29 20 3A v(.i.) :
01FC10: 3D 20 52 41 4E 44 4F 4D 28 35 30 30 29 3B 0D 0A = RANDOM(500);..
01FC20: 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4C WRITEL
01FC30: 4E 28 4C 53 54 29 3B 0D 0A 20 20 20 20 20 20 20 N(LST);..
01FC40: 20 20 20 46 4F 52 20 69 20 3A 3D 20 31 20 54 4F FOR i := 1 TO
01FC50: 20 61 6E 74 61 6C 20 44 4F 20 20 20 28 2A 20 54 antal DO (* T
01FC60: 61 6C 6C 65 6E 65 20 75 64 73 6B 72 69 76 65 73 allene udskrives
01FC70: 20 2A 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20 *)..
01FC80: 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 BEGIN..
01FC90: 20 20 20 20 20 20 57 52 49 54 45 28 4C 53 54 2C WRITE(LST,
01FCA0: 76 28 2E 69 2E 29 3A 34 29 3B 0D 0A 20 20 20 20 v(.i.):4);..
01FCB0: 20 20 20 20 20 20 20 20 20 20 49 46 20 69 20 4D IF i M
01FCC0: 4F 44 20 32 30 20 3D 20 30 0D 0A 20 20 20 20 20 OD 20 = 0..
01FCD0: 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4E 20 THEN
01FCE0: 57 52 49 54 45 4C 4E 28 4C 53 54 29 3B 0D 0A 20 WRITELN(LST);..
01FCF0: 20 20 20 20 20 20 20 20 20 20 20 45 4E 44 3B 0D END;.
01FD00: 0A 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 . WRITE
01FD10: 4C 4E 28 4C 53 54 29 3B 0D 0A 20 20 20 20 20 20 LN(LST);..
01FD20: 20 20 20 20 6D 61 78 20 3A 3D 20 76 28 2E 31 2E max := v(.1.
01FD30: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 6E 72 );.. nr
01FD40: 20 3A 3D 20 31 3B 0D 0A 20 20 20 20 20 20 20 20 := 1;..
01FD50: 20 20 46 4F 52 20 69 20 3A 3D 20 32 20 54 4F 20 FOR i := 2 TO
01FD60: 61 6E 74 61 6C 20 44 4F 0D 0A 20 20 20 20 20 20 antal DO..
01FD70: 20 20 20 20 20 20 20 20 49 46 20 76 28 2E 69 2E IF v(.i.
01FD80: 29 20 3E 20 6D 61 78 0D 0A 20 20 20 20 20 20 20 ) > max..
01FD90: 20 20 20 20 20 20 20 20 20 54 48 45 4E 0D 0A 20 THEN..
01FDA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01FDB0: 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 BEGIN..
01FDC0: 20 20 20 20 20 20 20 20 20 20 20 20 6D 61 78 20 max
01FDD0: 3A 3D 20 76 28 2E 69 2E 29 3B 0D 0A 20 20 20 20 := v(.i.);..
01FDE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01FDF0: 6E 72 20 3A 3D 20 69 3B 20 20 20 20 20 20 20 28 nr := i; (
01FE00: 29 3B 0D 0A 20 20 20 20 57 52 49 54 45 4C 4E 28 );.. WRITELN(
01FE10: 27 4D 61 78 69 6D 75 6D 73 70 75 6E 6B 74 65 74 'Maximumspunktet
01FE20: 20 65 72 3A 20 27 2C 20 78 6D 61 78 20 3A 20 36 er: ', xmax : 6
01FE30: 20 3A 20 32 29 3B 0D 0A 20 20 45 4E 44 2E 0D 0A : 2);.. END...
01FE40: 20 20 20 20 0D 0A 1A 61 73 65 72 65 74 20 70 7D ...aseret p}
01FE50: 20 27 2C 20 61 6E 74 61 6C 20 2B 20 31 2C 20 27 ', antal + 1, '
01FE60: 20 73 74 7C 74 74 65 70 75 6E 6B 74 65 72 3A 20 st|ttepunkter:
01FE70: 27 2C 20 66 6D 61 78 20 3A 20 31 30 20 3A 20 34 ', fmax : 10 : 4
01FE80: 6B 29 20 4D 4F 44 20 31 31 20 3D 20 30 0D 0A 20 k) MOD 11 = 0..
01FE90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01FEA0: 20 20 20 54 48 45 4E 20 57 52 49 54 45 28 73 74 THEN WRITE(st
01FEB0: 72 2C 20 27 2D 27 2C 20 67 2C 20 68 2C 20 69 2C r, '-', g, h, i,
01FEC0: 20 63 68 65 63 6B 2C 20 27 20 20 20 20 20 27 29 check, ' ')
01FED0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ;..
01FEE0: 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 20 20 20 END;..
01FEF0: 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 45 4E 44 END;.. END
01FF00: 3B 0D 0A 20 20 20 20 57 52 49 54 45 4C 4E 3B 0D ;.. WRITELN;.
01FF10: 0A 20 20 45 4E 44 2E 0D 0A 1A 20 20 20 20 20 20 . END....
01FF20: 20 20 20 54 48 45 4E 20 57 52 49 54 45 28 73 74 THEN WRITE(st
01FF30: 72 2C 20 27 2D 27 2C 20 67 2C 20 68 2C 20 69 2C r, '-', g, h, i,
01FF40: 20 63 68 65 63 6B 2C 20 27 20 20 20 20 20 27 29 check, ' ')
01FF50: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ;..
01FF60: 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 20 20 20 END;..
01FF70: 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 45 4E 44 END;.. END
01FF80: 00 00 00 FC 00 01 00 01 00 01 52 55 4E 22 44 49 ..........RUN"DI
01FF90: 53 43 0D C5 89 68 B4 D6 2E 24 3C CC 23 0A 5B 81 SC...h...$<.#.[.
01FFA0: 28 8F 37 DE 4E F2 95 17 D4 1E C4 1E FB AE B5 4F (.7.N..........O
01FFB0: F0 BB F1 4A B9 49 62 34 75 EC EE 35 5B 9F 5B 6F ...J.Ib4u..5[.[o
01FFC0: 2F 4C 12 C1 60 C1 BE 10 7B E8 74 CB 23 01 73 24 /L..`...{.t.#.s$
01FFD0: 2A 23 44 3F 79 DD AD D1 9C A6 0C 90 BF 5C 3D E6 *#D?y........\=.
01FFE0: 5F 2B FC E0 FD 86 26 63 C0 CA E3 CB 04 71 95 03 _+....&c.....q..
01FFF0: 56 C7 12 CA 29 AB 90 A2 BC 04 04 B5 A0 80 1C 45 V...)..........E
020000: 2A 20 56 69 20 6E 6F 74 65 72 65 72 2C 20 68 76 * Vi noterer, hv
020010: 6F 72 20 6D 61 78 20 73 74 7D 72 20 2A 29 0D 0A or max st}r *)..
020020: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
020030: 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 20 20 END;..
020040: 20 20 57 52 49 54 45 4C 4E 28 4C 53 54 2C 27 44 WRITELN(LST,'D
020050: 65 74 20 73 74 7C 72 73 74 65 20 74 61 6C 20 65 et st|rste tal e
020060: 72 20 27 2C 20 6D 61 78 2C 20 27 20 6F 67 20 64 r ', max, ' og d
020070: 65 74 20 73 74 7D 72 20 73 6F 6D 20 6E 72 2E 20 et st}r som nr.
020080: 27 2C 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 ',..
020090: 20 20 20 20 20 20 6E 72 2C 20 27 20 69 20 6F 76 nr, ' i ov
0200A0: 65 6E 73 74 7D 65 6E 64 65 20 72 7B 6B 6B 65 27 enst}ende r{kke'
0200B0: 29 3B 0D 0A 20 20 20 20 20 20 20 20 45 4E 44 2E );.. END.
0200C0: 0D 0A 1A 52 49 54 45 4C 4E 28 4C 53 54 2C 27 44 ...RITELN(LST,'D
0200D0: 65 74 20 73 74 7C 72 73 74 65 20 74 61 6C 20 65 et st|rste tal e
0200E0: 72 20 27 2C 20 6D 61 78 2C 20 27 20 6F 67 20 64 r ', max, ' og d
0200F0: 65 74 20 73 74 7D 72 20 73 6F 6D 20 6E 72 2E 20 et st}r som nr.
020100: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
020110: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
020120: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
020130: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
020140: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
020150: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
020160: 0D 00 68 00 00 00 00 00 00 00 00 00 00 00 33 00 ..h...........3.
020170: EE BF 04 00 00 00 00 00 00 30 00 00 48 97 CD 73 .........0..H..s
020180: DE 00 00 AD 30 54 BA 44 0B 9F F0 F5 6F 57 69 8D ....0T.D....oWi.
020190: 55 D7 0B B7 AA C5 8A C5 3F 15 C3 BE F3 39 42 BD U.......?....9B.
0201A0: D6 F3 60 D5 DF 94 88 5E 54 FE E0 D8 53 4E 37 4A ..`....^T...SN7J
0201B0: 1A 9B 93 88 EB 7E 8E 3C A6 57 6A FB AF 5A BE 0A .....~.<.Wj..Z..
0201C0: 16 AA CD A2 BB 16 98 DA 08 C9 A8 6E FD F6 B8 A3 ...........n...£
0201D0: 1F 70 01 AA 8D 14 CC C5 39 15 D4 5C EF 5E D9 33 .p......9..\.^.3
0201E0: 98 E1 67 5D 77 00 D7 8E 37 2B 37 F4 5F 6F 8C 4D ..g]w...7+7._o.M
0201F0: D4 75 AD 29 0A D8 60 C2 0E 70 62 D9 2E 18 3E 7C .u.)..`..pb...>|
020200: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
020210: 1B 00 01 00 02 09 52 E5 1B 00 41 02 00 00 00 02 ......R...A.....
020220: 1B 00 46 02 00 00 00 02 1B 00 42 02 00 00 00 02 ..F.......B.....
020230: 1B 00 47 02 00 00 00 02 1B 00 43 02 00 00 00 02 ..G.......C.....
020240: 1B 00 48 02 00 00 00 02 1B 00 44 02 00 00 00 02 ..H.......D.....
020250: 1B 00 49 02 00 00 00 02 1B 00 45 02 00 00 00 02 ..I.......E.....
020260: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
020270: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
020280: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
020290: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0202A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0202B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0202C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0202D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0202E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0202F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
020300: D3 41 D1 CC F8 E9 32 0D 82 E5 96 0F 53 10 A5 D0 .A....2.....S...
020310: B3 56 FF 0C 00 5F 5A C3 8C CC 28 C2 00 24 66 EE .V..._Z...(..$f.
020320: 99 54 D6 B3 A8 C3 40 DB 39 2C 0A 76 D2 27 FE 97 .T....@.9,.v.'..
020330: 22 96 01 03 33 62 C9 3C 5E B1 E4 C0 E4 CB F5 30 "...3b.<^......0
020340: 10 63 39 AC 2F CB 65 CC 10 C0 40 E5 C0 04 89 0C .c9./.e...@.....
020350: 4C 38 C7 98 3C 81 E0 06 66 34 58 25 66 39 8F 62 L8..<...f4X%f9.b
020360: C9 60 56 3A 66 85 C7 41 E2 CB 78 58 E7 F2 F5 F2 .`V:f..A..xX....
020370: 58 81 60 C0 E4 91 18 2C D7 F1 5C 03 1C B6 18 FA X.`....,..\.....
020380: C1 64 C5 0C 7B 5F 7C C1 1A 16 9F 5C 71 88 88 BE .d..{_|....\q...
020390: 38 E2 33 19 B9 57 18 11 98 2B D6 1F 23 A8 19 85 8.3..W...+..#...
0203A0: A0 57 5C 62 39 CB 4C D4 25 26 29 5C 19 EA B2 1C .W\b9.L.%&)\....
0203B0: C3 A9 3C 19 26 AA 03 15 B1 CC 50 85 2B 55 28 CC ..<.&.....P.+U(.
0203C0: C2 99 72 A1 C3 66 0A 75 C9 8A 0E 46 48 42 54 F2 ..r..f.u...FHBT.
0203D0: EB 82 AC 13 1F 52 99 32 4C 24 B9 DE 97 54 D6 92 .....R.2L$...T..
0203E0: C2 92 11 00 EE 90 F4 AB 8C E8 41 D7 85 1F E4 06 ..........A.....
0203F0: 41 45 C0 82 67 61 A9 BA 85 07 C5 D5 B5 22 56 19 AE..ga......."V.
020400: AA B2 82 67 25 95 92 66 2C 47 B4 EA DA 19 AB A1 ...g%..f,G......
020410: 4A 2A B3 AE 5A AB A8 C2 AA B2 BA D5 95 25 CF 10 J*..Z........%..
020420: DC D0 10 07 B5 75 C9 48 0A 4B 46 10 5F 21 7A F9 .....u.H.KF._!z.
020430: 75 F0 12 43 40 54 D9 E9 C3 BE 58 67 3B 7C 8C 85 u..C@T....Xg;|..
020440: 68 E4 D7 04 CD 3D 1B 4C 95 95 3E E4 8A CF 76 C1 h....=.L..>...v.
020450: 1A 17 A2 91 5F 10 A4 DA 6D E9 1A AF A2 7C 69 18 ...._...m....|i.
020460: D2 98 CE 17 A2 A5 5E 05 11 C2 4C 45 AB 7B 80 88 ......^...LE.{..
020470: 08 2E 29 A6 82 4A 69 73 B4 77 F6 5D B0 8C 00 85 ..)..Jis.w.]....
020480: EA 54 81 C6 D8 68 15 2A 2C 88 6D AD 0A 52 06 E5 .T...h.*,.m..R..
020490: A6 55 40 39 68 6F AA 9F 30 12 12 99 B1 29 3A 19 .U@9ho..0....):.
0204A0: 26 60 64 00 41 AE 6D 09 94 ED 29 51 7B 14 83 BE &`d.A.m...)Q{...
0204B0: F6 6B 0E 9E DA 9C D7 B2 41 49 54 5C D2 0D ED 05 .k......AIT\....
0204C0: 7D 6D 2E 60 51 02 48 EF 75 40 80 6F BD A5 0C E2 }m.`Q.H.u@.o....
0204D0: FB 2F FA 35 BE F4 EB 04 D5 98 09 03 32 C7 F7 A8 ./.5........2...
0204E0: A6 9A 46 5E 7B 5E 00 38 F8 C0 80 87 46 11 A1 17 ..F^{^.8....F...
0204F0: D0 89 E8 56 D1 2C E8 19 74 09 BA E6 45 AE 84 83 ...V.,..t...E...
020500: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ;..
020510: 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E 28 62 WRITELN(b
020520: 79 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 y);..
020530: 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E WRITELN
020540: 28 69 6E 66 6F 29 3B 0D 0A 20 20 20 20 20 20 20 (info);..
020550: 20 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 WRI
020560: 54 45 4C 4E 3B 0D 0A 20 20 20 20 20 20 20 20 20 TELN;..
020570: 20 20 20 20 20 20 20 20 20 45 4E 44 3B 0D 0A 20 END;..
020580: 20 20 20 20 20 20 20 20 20 20 20 45 4E 44 3B 0D END;.
020590: 0A 20 20 20 20 20 20 20 20 45 4E 44 3B 0D 0A 20 . END;..
0205A0: 20 20 20 20 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 WRITELN;..
0205B0: 20 20 20 20 20 72 65 74 75 72 3B 0D 0A 20 20 20 retur;..
0205C0: 20 45 4E 44 3B 20 28 2A 20 75 64 73 6B 72 69 76 END; (* udskriv
0205D0: 20 2A 29 0D 0A 20 20 0D 0A 20 20 50 52 4F 43 45 *).. .. PROCE
0205E0: 44 55 52 45 20 73 6C 65 74 3B 0D 0A 20 20 0D 0A DURE slet;.. ..
0205F0: 20 20 20 20 56 41 52 0D 0A 20 20 20 20 20 20 6D VAR.. m
020600: 65 64 6C 65 6D 73 6E 72 20 3A 20 49 4E 54 45 47 edlemsnr : INTEG
020610: 45 52 3B 0D 0A 20 20 20 20 20 20 63 68 20 3A 20 ER;.. ch :
020620: 43 48 41 52 3B 0D 0A 20 20 20 20 0D 0A 20 20 20 CHAR;.. ..
020630: 20 42 45 47 49 4E 20 28 2A 20 73 6C 65 74 20 2A BEGIN (* slet *
020640: 29 0D 0A 20 20 20 20 20 20 57 52 49 54 45 28 43 ).. WRITE(C
020650: 4C 52 48 4F 4D 29 3B 0D 0A 20 20 20 20 20 20 47 LRHOM);.. G
020660: 4F 54 4F 58 59 28 31 30 2C 20 35 29 3B 0D 0A 20 OTOXY(10, 5);..
020670: 20 20 20 20 20 57 52 49 54 45 28 27 48 76 65 6D WRITE('Hvem
020680: 20 73 6B 61 6C 20 73 6C 65 74 74 65 73 3F 20 54 skal slettes? T
020690: 61 73 74 20 6D 65 64 6C 65 6D 73 6E 75 6D 6D 65 ast medlemsnumme
0206A0: 72 3A 20 27 29 3B 0D 0A 20 20 20 20 20 20 52 45 r: ');.. RE
0206B0: 41 44 4C 4E 28 6D 65 64 6C 65 6D 73 6E 72 29 3B ADLN(medlemsnr);
0206C0: 0D 0A 20 20 20 20 20 20 47 4F 54 4F 58 59 28 31 .. GOTOXY(1
0206D0: 30 2C 20 37 29 3B 0D 0A 20 20 20 20 20 20 49 46 0, 7);.. IF
0206E0: 20 6D 65 64 6C 65 6D 73 6E 72 20 3E 20 4C 45 4E medlemsnr > LEN
0206F0: 47 54 48 28 66 69 6C 29 0D 0A 20 20 20 20 20 20 GTH(fil)..
020700: 50 52 4F 47 52 41 4D 20 6D 65 6E 75 66 69 6C 3B PROGRAM menufil;
020710: 0D 0A 0D 0A 20 20 54 59 50 45 0D 0A 20 20 20 20 .... TYPE..
020720: 73 74 72 33 30 20 3D 20 53 54 52 49 4E 47 28 2E str30 = STRING(.
020730: 33 30 2E 29 3B 0D 0A 20 20 20 20 6D 65 64 6C 65 30.);.. medle
020740: 6D 73 70 6F 73 74 20 3D 20 52 45 43 4F 52 44 0D mspost = RECORD.
020750: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
020760: 20 20 20 20 20 6E 61 76 6E 2C 20 61 64 72 65 73 navn, adres
020770: 73 65 2C 20 62 79 2C 20 69 6E 66 6F 20 3A 20 73 se, by, info : s
020780: 74 72 33 30 3B 0D 0A 20 20 20 20 20 20 20 20 20 tr30;..
020790: 20 20 20 20 20 20 20 20 20 45 4E 44 3B 0D 0A 20 END;..
0207A0: 20 0D 0A 20 20 56 41 52 0D 0A 20 20 20 20 66 69 .. VAR.. fi
0207B0: 6C 20 3A 20 46 49 4C 45 20 4F 46 20 6D 65 64 6C l : FILE OF medl
0207C0: 65 6D 73 70 6F 73 74 3B 0D 0A 20 20 20 20 6D 65 emspost;.. me
0207D0: 64 6C 65 6D 20 3A 20 6D 65 64 6C 65 6D 73 70 6F dlem : medlemspo
0207E0: 73 74 3B 0D 0A 20 20 20 20 63 68 20 3A 20 43 48 st;.. ch : CH
0207F0: 41 52 3B 0D 0A 20 20 0D 0A 20 20 50 52 4F 43 45 AR;.. .. PROCE
020800: 44 55 52 45 20 72 65 74 75 72 3B 0D 0A 20 20 20 DURE retur;..
020810: 20 0D 0A 20 20 20 20 56 41 52 0D 0A 20 20 20 20 .. VAR..
020820: 20 20 63 68 20 3A 20 43 48 41 52 3B 0D 0A 20 20 ch : CHAR;..
020830: 20 20 0D 0A 20 20 20 20 42 45 47 49 4E 20 28 2A .. BEGIN (*
020840: 20 72 65 74 75 72 20 2A 29 0D 0A 20 20 20 20 20 retur *)..
020850: 20 57 52 49 54 45 28 27 54 61 73 74 20 3C 52 45 WRITE('Tast <RE
020860: 54 55 52 4E 3E 3A 20 27 29 3B 0D 0A 20 20 20 20 TURN>: ');..
020870: 20 20 52 45 50 45 41 54 0D 0A 20 20 20 20 20 20 REPEAT..
020880: 20 20 52 45 41 44 28 4B 42 44 2C 20 63 68 29 3B READ(KBD, ch);
020890: 0D 0A 20 20 20 20 20 20 55 4E 54 49 4C 20 63 68 .. UNTIL ch
0208A0: 20 3D 20 43 48 52 28 31 33 29 3B 0D 0A 20 20 20 = CHR(13);..
0208B0: 20 45 4E 44 3B 20 28 2A 20 72 65 74 75 72 20 2A END; (* retur *
0208C0: 29 0D 0A 20 20 0D 0A 20 20 50 52 4F 43 45 44 55 ).. .. PROCEDU
0208D0: 52 45 20 6F 70 72 65 74 3B 0D 0A 20 20 20 20 0D RE opret;.. .
0208E0: 0A 20 20 20 20 56 41 52 0D 0A 20 20 20 20 20 20 . VAR..
0208F0: 66 69 6C 6E 61 76 6E 20 3A 20 53 54 52 49 4E 47 filnavn : STRING
020900: 20 20 54 48 45 4E 20 57 52 49 54 45 28 27 4D 65 THEN WRITE('Me
020910: 64 6C 65 6D 73 6E 75 6D 6D 65 72 65 74 20 65 72 dlemsnummeret er
020920: 20 66 6F 72 20 73 74 6F 72 74 27 29 0D 0A 20 20 for stort')..
020930: 20 20 20 20 20 20 45 4C 53 45 0D 0A 20 20 20 20 ELSE..
020940: 20 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 BEGIN..
020950: 20 20 20 20 20 20 20 20 20 53 45 45 4B 28 66 69 SEEK(fi
020960: 6C 2C 20 6D 65 64 6C 65 6D 73 6E 72 20 2D 20 31 l, medlemsnr - 1
020970: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 );..
020980: 52 45 41 44 28 66 69 6C 2C 20 6D 65 64 6C 65 6D READ(fil, medlem
020990: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 );..
0209A0: 57 49 54 48 20 6D 65 64 6C 65 6D 20 44 4F 0D 0A WITH medlem DO..
0209B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 45 BE
0209C0: 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 GIN..
0209D0: 20 20 20 20 20 49 46 20 6E 61 76 6E 20 3D 20 27 IF navn = '
0209E0: 27 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 '..
0209F0: 20 20 20 20 20 54 48 45 4E 20 57 52 49 54 45 4C THEN WRITEL
020A00: 4E 28 27 44 65 72 20 65 72 20 69 6E 74 65 74 20 N('Der er intet
020A10: 6D 65 64 6C 65 6D 20 6D 65 64 20 64 65 74 74 65 medlem med dette
020A20: 20 6E 75 6D 6D 65 72 27 29 0D 0A 20 20 20 20 20 nummer')..
020A30: 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4C 53 ELS
020A40: 45 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 E..
020A50: 20 20 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 BEGIN..
020A60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
020A70: 20 20 20 20 57 52 49 54 45 28 27 53 6B 61 6C 20 WRITE('Skal
020A80: 27 2C 20 6E 61 76 6E 2C 20 27 20 73 6C 65 74 74 ', navn, ' slett
020A90: 65 73 20 28 6A 2F 6E 29 3A 20 27 29 3B 0D 0A 20 es (j/n): ');..
020AA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
020AB0: 20 20 20 20 20 52 45 50 45 41 54 0D 0A 20 20 20 REPEAT..
020AC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
020AD0: 20 20 20 20 20 52 45 41 44 28 4B 42 44 2C 20 63 READ(KBD, c
020AE0: 68 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 h);..
020AF0: 20 20 20 20 20 20 20 20 20 20 20 55 4E 54 49 4C UNTIL
020B00: 28 2E 31 34 2E 29 3B 0D 0A 20 20 20 20 20 20 0D (.14.);.. .
020B10: 0A 20 20 20 20 42 45 47 49 4E 20 28 2A 20 6F 70 . BEGIN (* op
020B20: 72 65 74 20 2A 29 0D 0A 20 20 20 20 20 20 57 52 ret *).. WR
020B30: 49 54 45 28 43 4C 52 48 4F 4D 29 3B 0D 0A 20 20 ITE(CLRHOM);..
020B40: 20 20 20 20 47 4F 54 4F 58 59 28 31 30 2C 20 35 GOTOXY(10, 5
020B50: 29 3B 0D 0A 20 20 20 20 20 20 57 52 49 54 45 28 );.. WRITE(
020B60: 27 48 76 61 64 20 73 6B 61 6C 20 6B 61 72 74 6F 'Hvad skal karto
020B70: 74 65 6B 65 74 20 68 65 64 64 65 3A 20 27 29 3B teket hedde: ');
020B80: 0D 0A 20 20 20 20 20 20 52 45 41 44 4C 4E 28 66 .. READLN(f
020B90: 69 6C 6E 61 76 6E 29 3B 0D 0A 20 20 20 20 20 20 ilnavn);..
020BA0: 41 53 53 49 47 4E 28 66 69 6C 2C 20 66 69 6C 6E ASSIGN(fil, filn
020BB0: 61 76 6E 29 3B 0D 0A 20 20 20 20 20 20 52 45 57 avn);.. REW
020BC0: 52 49 54 45 28 66 69 6C 29 3B 0D 0A 20 20 20 20 RITE(fil);..
020BD0: 20 20 47 4F 54 4F 58 59 28 31 30 2C 20 37 29 3B GOTOXY(10, 7);
020BE0: 0D 0A 20 20 20 20 20 20 57 52 49 54 45 28 66 69 .. WRITE(fi
020BF0: 6C 6E 61 76 6E 2C 20 27 20 65 72 20 6E 75 20 6F lnavn, ' er nu o
020C00: 70 72 65 74 74 65 74 27 29 3B 0D 0A 20 20 20 20 prettet');..
020C10: 20 20 47 4F 54 4F 58 59 28 31 30 2C 20 39 29 3B GOTOXY(10, 9);
020C20: 0D 0A 20 20 20 20 20 20 72 65 74 75 72 3B 0D 0A .. retur;..
020C30: 20 20 20 20 45 4E 44 3B 20 28 2A 20 6F 70 72 65 END; (* opre
020C40: 74 20 2A 29 0D 0A 20 20 0D 0A 20 20 50 52 4F 43 t *).. .. PROC
020C50: 45 44 55 52 45 20 68 76 69 6C 6B 65 6E 66 69 6C EDURE hvilkenfil
020C60: 3B 0D 0A 20 20 20 20 0D 0A 20 20 20 20 56 41 52 ;.. .. VAR
020C70: 0D 0A 20 20 20 20 20 20 66 69 6C 6E 61 76 6E 20 .. filnavn
020C80: 3A 20 53 54 52 49 4E 47 28 2E 31 34 2E 29 3B 0D : STRING(.14.);.
020C90: 0A 20 20 20 20 0D 0A 20 20 20 20 42 45 47 49 4E . .. BEGIN
020CA0: 20 28 2A 20 68 76 69 6C 6B 65 6E 66 69 6C 20 2A (* hvilkenfil *
020CB0: 29 0D 0A 20 20 20 20 20 20 57 52 49 54 45 28 43 ).. WRITE(C
020CC0: 4C 52 48 4F 4D 29 3B 0D 0A 20 20 20 20 20 20 47 LRHOM);.. G
020CD0: 4F 54 4F 58 59 28 31 30 2C 20 35 29 3B 0D 0A 20 OTOXY(10, 5);..
020CE0: 20 20 20 20 20 57 52 49 54 45 28 27 48 76 61 64 WRITE('Hvad
020CF0: 20 68 65 64 64 65 72 20 64 65 6E 20 65 6B 73 69 hedder den eksi
020D00: 20 63 68 20 49 4E 20 28 2E 20 27 4A 27 2C 20 27 ch IN (. 'J', '
020D10: 6A 27 2C 20 27 4E 27 2C 20 27 6E 27 2E 29 3B 0D j', 'N', 'n'.);.
020D20: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
020D30: 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E 28 63 WRITELN(c
020D40: 68 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 h);..
020D50: 20 20 20 20 20 20 20 20 20 20 20 49 46 20 63 68 IF ch
020D60: 20 49 4E 20 28 2E 20 27 4A 27 2C 20 27 6A 27 2E IN (. 'J', 'j'.
020D70: 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 )..
020D80: 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4E 20 THEN
020D90: 6E 61 76 6E 20 3A 3D 20 27 27 3B 0D 0A 20 20 20 navn := '';..
020DA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
020DB0: 20 20 20 53 45 45 4B 28 66 69 6C 2C 20 6D 65 64 SEEK(fil, med
020DC0: 6C 65 6D 73 6E 72 20 2D 20 31 29 3B 0D 0A 20 20 lemsnr - 1);..
020DD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
020DE0: 20 20 20 20 57 52 49 54 45 28 66 69 6C 2C 20 6D WRITE(fil, m
020DF0: 65 64 6C 65 6D 29 3B 0D 0A 20 20 20 20 20 20 20 edlem);..
020E00: 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4E 44 END
020E10: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ;..
020E20: 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 20 20 20 END;..
020E30: 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 20 20 20 END;..
020E40: 20 47 4F 54 4F 58 59 28 31 30 2C 20 39 29 3B 0D GOTOXY(10, 9);.
020E50: 0A 20 20 20 20 20 20 20 20 20 20 72 65 74 75 72 . retur
020E60: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 45 4E 44 ;.. END
020E70: 3B 20 28 2A 20 73 6C 65 74 20 2A 29 0D 0A 20 20 ; (* slet *)..
020E80: 0D 0A 20 20 50 52 4F 43 45 44 55 52 45 20 72 65 .. PROCEDURE re
020E90: 74 3B 0D 0A 20 20 0D 0A 20 20 20 20 56 41 52 0D t;.. .. VAR.
020EA0: 0A 20 20 20 20 20 20 6D 65 64 6C 65 6D 73 6E 72 . medlemsnr
020EB0: 20 3A 20 49 4E 54 45 47 45 52 3B 0D 0A 20 20 20 : INTEGER;..
020EC0: 20 20 20 63 68 20 3A 20 43 48 41 52 3B 0D 0A 20 ch : CHAR;..
020ED0: 20 20 20 20 20 0D 0A 20 20 20 20 42 45 47 49 4E .. BEGIN
020EE0: 20 28 2A 20 72 65 74 20 2A 29 0D 0A 20 20 20 20 (* ret *)..
020EF0: 20 20 57 52 49 54 45 28 43 4C 52 48 4F 4D 29 3B WRITE(CLRHOM);
020F00: 73 74 65 72 65 6E 64 65 20 66 69 6C 3A 20 27 29 sterende fil: ')
020F10: 3B 0D 0A 20 20 20 20 20 20 52 45 41 44 4C 4E 28 ;.. READLN(
020F20: 66 69 6C 6E 61 76 6E 29 3B 0D 0A 20 20 20 20 20 filnavn);..
020F30: 20 41 53 53 49 47 4E 28 66 69 6C 2C 20 66 69 6C ASSIGN(fil, fil
020F40: 6E 61 76 6E 29 3B 0D 0A 20 20 20 20 20 20 52 45 navn);.. RE
020F50: 53 45 54 28 66 69 6C 29 3B 0D 0A 20 20 20 20 20 SET(fil);..
020F60: 20 47 4F 54 4F 58 59 28 31 30 2C 20 37 29 3B 0D GOTOXY(10, 7);.
020F70: 0A 20 20 20 20 20 20 72 65 74 75 72 3B 0D 0A 20 . retur;..
020F80: 20 20 20 45 4E 44 3B 20 28 2A 20 68 76 69 6C 6B END; (* hvilk
020F90: 65 6E 66 69 6C 20 2A 29 0D 0A 20 20 0D 0A 20 20 enfil *).. ..
020FA0: 50 52 4F 43 45 44 55 52 45 20 75 64 73 6B 72 69 PROCEDURE udskri
020FB0: 76 3B 0D 0A 20 20 0D 0A 20 20 20 20 56 41 52 0D v;.. .. VAR.
020FC0: 0A 20 20 20 20 20 20 69 20 3A 20 49 4E 54 45 47 . i : INTEG
020FD0: 45 52 3B 0D 0A 20 20 20 20 20 20 63 68 20 3A 20 ER;.. ch :
020FE0: 43 48 41 52 3B 0D 0A 20 20 20 20 20 20 75 64 66 CHAR;.. udf
020FF0: 69 6C 20 3A 20 54 45 58 54 3B 0D 0A 20 20 20 20 il : TEXT;..
021000: 20 20 75 64 6E 61 76 6E 20 3A 20 53 54 52 49 4E udnavn : STRIN
021010: 47 28 2E 34 2E 29 3B 0D 0A 20 20 20 20 0D 0A 20 G(.4.);.. ..
021020: 20 20 20 42 45 47 49 4E 20 28 2A 20 75 64 73 6B BEGIN (* udsk
021030: 72 69 76 20 2A 29 0D 0A 20 20 20 20 20 20 57 52 riv *).. WR
021040: 49 54 45 28 43 4C 52 48 4F 4D 29 3B 0D 0A 20 20 ITE(CLRHOM);..
021050: 20 20 20 20 57 52 49 54 45 28 27 5C 6E 73 6B 65 WRITE('\nske
021060: 73 20 75 64 73 6B 72 69 66 74 20 70 7D 20 73 6B s udskrift p} sk
021070: 7B 72 6D 20 65 6C 6C 65 72 20 70 72 69 6E 74 65 {rm eller printe
021080: 72 20 28 73 2F 70 29 3A 20 27 29 3B 0D 0A 20 20 r (s/p): ');..
021090: 20 20 20 20 52 45 50 45 41 54 0D 0A 20 20 20 20 REPEAT..
0210A0: 20 20 20 20 52 45 41 44 28 4B 42 44 2C 20 63 68 READ(KBD, ch
0210B0: 29 3B 0D 0A 20 20 20 20 20 20 55 4E 54 49 4C 20 );.. UNTIL
0210C0: 63 68 20 49 4E 20 28 2E 20 27 53 27 2C 20 27 73 ch IN (. 'S', 's
0210D0: 27 2C 20 27 50 27 2C 20 27 70 27 2E 29 3B 0D 0A ', 'P', 'p'.);..
0210E0: 20 20 20 20 20 20 57 52 49 54 45 4C 4E 28 63 68 WRITELN(ch
0210F0: 29 3B 0D 0A 20 20 20 20 20 20 49 46 20 63 68 20 );.. IF ch
021100: 0D 0A 20 20 20 20 20 20 47 4F 54 4F 58 59 28 31 .. GOTOXY(1
021110: 30 2C 20 30 29 3B 20 57 52 49 54 45 28 27 54 61 0, 0); WRITE('Ta
021120: 73 74 20 6D 65 64 6C 65 6D 73 6E 75 6D 6D 65 72 st medlemsnummer
021130: 3A 20 27 29 3B 20 52 45 41 44 4C 4E 28 6D 65 64 : '); READLN(med
021140: 6C 65 6D 73 6E 72 29 3B 0D 0A 20 20 20 20 20 20 lemsnr);..
021150: 53 45 45 4B 28 66 69 6C 2C 20 6D 65 64 6C 65 6D SEEK(fil, medlem
021160: 73 6E 72 20 2D 20 31 29 3B 0D 0A 20 20 20 20 20 snr - 1);..
021170: 20 52 45 41 44 28 66 69 6C 2C 20 6D 65 64 6C 65 READ(fil, medle
021180: 6D 29 3B 0D 0A 20 20 20 20 20 20 53 45 45 4B 28 m);.. SEEK(
021190: 66 69 6C 2C 20 6D 65 64 6C 65 6D 73 6E 72 20 2D fil, medlemsnr -
0211A0: 20 31 29 3B 0D 0A 20 20 20 20 20 20 57 49 54 48 1);.. WITH
0211B0: 20 6D 65 64 6C 65 6D 20 44 4F 0D 0A 20 20 20 20 medlem DO..
0211C0: 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 BEGIN..
0211D0: 20 20 20 20 20 47 4F 54 4F 58 59 28 31 30 2C 20 GOTOXY(10,
0211E0: 32 29 3B 20 57 52 49 54 45 28 27 4E 61 76 6E 3A 2); WRITE('Navn:
0211F0: 20 27 2C 20 6E 61 76 6E 29 3B 0D 0A 20 20 20 20 ', navn);..
021200: 20 20 20 20 20 20 47 4F 54 4F 58 59 28 31 30 2C GOTOXY(10,
021210: 20 33 29 3B 20 57 52 49 54 45 28 27 41 64 72 65 3); WRITE('Adre
021220: 73 73 65 3A 20 27 2C 20 61 64 72 65 73 73 65 29 sse: ', adresse)
021230: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 47 4F 54 ;.. GOT
021240: 4F 58 59 28 31 30 2C 20 34 29 3B 20 57 52 49 54 OXY(10, 4); WRIT
021250: 45 28 27 42 79 3A 20 27 2C 20 62 79 29 3B 0D 0A E('By: ', by);..
021260: 20 20 20 20 20 20 20 20 20 20 47 4F 54 4F 58 59 GOTOXY
021270: 28 31 30 2C 20 35 29 3B 20 57 52 49 54 45 28 27 (10, 5); WRITE('
021280: 49 6E 66 6F 3A 20 27 2C 20 69 6E 66 6F 29 3B 0D Info: ', info);.
021290: 0A 20 20 20 20 20 20 20 20 20 20 47 4F 54 4F 58 . GOTOX
0212A0: 59 28 31 30 2C 20 37 29 3B 20 57 52 49 54 45 28 Y(10, 7); WRITE(
0212B0: 27 48 76 61 64 20 73 6B 61 6C 20 72 65 74 74 65 'Hvad skal rette
0212C0: 73 3A 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 s:');..
0212D0: 20 47 4F 54 4F 58 59 28 31 30 2C 20 38 29 3B 20 GOTOXY(10, 8);
0212E0: 57 52 49 54 45 28 27 4E 20 4E 61 76 6E 27 29 3B WRITE('N Navn');
0212F0: 0D 0A 20 20 20 20 20 20 20 20 20 20 47 4F 54 4F .. GOTO
021300: 49 4E 20 28 2E 20 27 53 27 2C 20 27 73 27 2E 29 IN (. 'S', 's'.)
021310: 0D 0A 20 20 20 20 20 20 20 20 54 48 45 4E 20 75 .. THEN u
021320: 64 6E 61 76 6E 20 3A 3D 20 27 43 4F 4E 3A 27 0D dnavn := 'CON:'.
021330: 0A 20 20 20 20 20 20 20 20 45 4C 53 45 20 75 64 . ELSE ud
021340: 6E 61 76 6E 20 3A 3D 20 27 4C 53 54 3A 27 3B 0D navn := 'LST:';.
021350: 0A 20 20 20 20 20 20 41 53 53 49 47 4E 28 75 64 . ASSIGN(ud
021360: 66 69 6C 2C 20 75 64 6E 61 76 6E 29 3B 0D 0A 20 fil, udnavn);..
021370: 20 20 20 20 20 52 45 53 45 54 28 66 69 6C 29 3B RESET(fil);
021380: 0D 0A 20 20 20 20 20 20 52 45 57 52 49 54 45 28 .. REWRITE(
021390: 75 64 66 69 6C 29 3B 0D 0A 20 20 20 20 20 20 69 udfil);.. i
0213A0: 20 3A 3D 20 30 3B 0D 0A 20 20 20 20 20 20 57 48 := 0;.. WH
0213B0: 49 4C 45 20 4E 4F 54 20 45 4F 46 28 66 69 6C 29 ILE NOT EOF(fil)
0213C0: 20 44 4F 0D 0A 20 20 20 20 20 20 20 20 42 45 47 DO.. BEG
0213D0: 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 69 20 IN.. i
0213E0: 3A 3D 20 69 20 2B 20 31 3B 0D 0A 20 20 20 20 20 := i + 1;..
0213F0: 20 20 20 20 20 52 45 41 44 28 66 69 6C 2C 20 6D READ(fil, m
021400: 65 64 6C 65 6D 29 3B 0D 0A 20 20 20 20 20 20 20 edlem);..
021410: 20 20 20 57 49 54 48 20 6D 65 64 6C 65 6D 20 44 WITH medlem D
021420: 4F 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 42 O.. B
021430: 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 EGIN..
021440: 20 20 20 20 49 46 20 6E 61 76 6E 20 3C 3E 20 27 IF navn <> '
021450: 27 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 '..
021460: 20 20 20 54 48 45 4E 0D 0A 20 20 20 20 20 20 20 THEN..
021470: 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4E BEGIN
021480: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
021490: 20 20 20 20 20 20 57 52 49 54 45 4C 4E 28 27 4D WRITELN('M
0214A0: 65 64 6C 65 6D 20 6E 72 2E 20 27 2C 20 69 2C 20 edlem nr. ', i,
0214B0: 27 3A 20 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 ': ');..
0214C0: 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 WRIT
0214D0: 45 4C 4E 28 6E 61 76 6E 29 3B 0D 0A 20 20 20 20 ELN(navn);..
0214E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0214F0: 57 52 49 54 45 4C 4E 28 61 64 72 65 73 73 65 29 WRITELN(adresse)
021500: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
021510: 1C 00 01 00 02 09 52 E5 1C 00 41 02 00 00 00 02 ......R...A.....
021520: 1C 00 46 02 00 00 00 02 1C 00 42 02 00 00 00 02 ..F.......B.....
021530: 1C 00 47 02 00 00 00 02 1C 00 43 02 00 00 00 02 ..G.......C.....
021540: 1C 00 48 02 00 00 00 02 1C 00 44 02 00 00 00 02 ..H.......D.....
021550: 1C 00 49 02 00 00 00 02 1C 00 45 02 00 00 00 02 ..I.......E.....
021560: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
021570: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
021580: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
021590: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0215A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0215B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0215C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0215D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0215E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0215F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
021600: 58 59 28 31 30 2C 20 39 29 3B 20 57 52 49 54 45 XY(10, 9); WRITE
021610: 28 27 41 20 41 64 72 65 73 73 65 27 29 3B 0D 0A ('A Adresse');..
021620: 20 20 20 20 20 20 20 20 20 20 47 4F 54 4F 58 59 GOTOXY
021630: 28 31 30 2C 20 31 30 29 3B 20 57 52 49 54 45 28 (10, 10); WRITE(
021640: 27 42 20 42 79 27 29 3B 0D 0A 20 20 20 20 20 20 'B By');..
021650: 20 20 20 20 47 4F 54 4F 58 59 28 31 30 2C 20 31 GOTOXY(10, 1
021660: 31 29 3B 20 57 52 49 54 45 28 27 49 20 49 6E 66 1); WRITE('I Inf
021670: 6F 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 o');..
021680: 47 4F 54 4F 58 59 28 31 30 2C 20 31 32 29 3B 20 GOTOXY(10, 12);
021690: 57 52 49 54 45 28 27 46 20 46 5B 52 44 49 47 27 WRITE('F F[RDIG'
0216A0: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 52 45 );.. RE
0216B0: 50 45 41 54 0D 0A 20 20 20 20 20 20 20 20 20 20 PEAT..
0216C0: 20 20 47 4F 54 4F 58 59 28 30 2C 20 31 34 29 3B GOTOXY(0, 14);
0216D0: 20 57 52 49 54 45 28 43 4C 52 45 4F 53 29 3B 0D WRITE(CLREOS);.
0216E0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 47 4F 54 . GOT
0216F0: 4F 58 59 28 31 30 2C 20 31 34 29 3B 20 57 52 49 OXY(10, 14); WRI
021700: 54 45 28 27 54 61 73 74 20 6B 6F 6D 6D 61 6E 64 TE('Tast kommand
021710: 6F 20 28 4E 2F 41 2F 42 2F 49 2F 46 29 3A 20 27 o (N/A/B/I/F): '
021720: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 );..
021730: 52 45 50 45 41 54 0D 0A 20 20 20 20 20 20 20 20 REPEAT..
021740: 20 20 20 20 20 20 52 45 41 44 28 4B 42 44 2C 20 READ(KBD,
021750: 63 68 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 ch);..
021760: 20 20 55 4E 54 49 4C 20 63 68 20 49 4E 20 28 2E UNTIL ch IN (.
021770: 20 27 4E 27 2C 20 27 6E 27 2C 20 27 41 27 2C 20 'N', 'n', 'A',
021780: 27 61 27 2C 20 27 42 27 2C 20 27 62 27 2C 20 27 'a', 'B', 'b', '
021790: 49 27 2C 20 27 69 27 2C 20 27 46 27 2C 20 27 66 I', 'i', 'F', 'f
0217A0: 27 2E 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 '.);..
0217B0: 20 20 57 52 49 54 45 28 63 68 29 3B 0D 0A 20 20 WRITE(ch);..
0217C0: 20 20 20 20 20 20 20 20 20 20 47 4F 54 4F 58 59 GOTOXY
0217D0: 28 31 30 2C 20 31 36 29 3B 20 57 52 49 54 45 28 (10, 16); WRITE(
0217E0: 27 54 61 73 74 20 7B 6E 64 72 69 6E 67 3A 20 27 'Tast {ndring: '
0217F0: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 );..
021800: 30 2C 20 31 31 29 3B 20 57 52 49 54 45 28 27 53 0, 11); WRITE('S
021810: 6C 65 74 74 65 20 6D 65 64 6C 65 6D 27 29 3B 0D lette medlem');.
021820: 0A 20 20 20 20 20 20 47 4F 54 4F 58 59 28 31 30 . GOTOXY(10
021830: 2C 20 31 33 29 3B 20 57 52 49 54 45 28 27 52 65 , 13); WRITE('Re
021840: 74 74 65 20 69 20 6D 65 64 6C 65 6D 73 70 6F 73 tte i medlemspos
021850: 74 27 29 3B 0D 0A 20 20 20 20 20 20 47 4F 54 4F t');.. GOTO
021860: 58 59 28 31 30 2C 20 31 35 29 3B 20 57 52 49 54 XY(10, 15); WRIT
021870: 45 28 27 49 6E 64 73 7B 74 74 65 20 6E 79 74 20 E('Inds{tte nyt
021880: 6D 65 64 6C 65 6D 20 69 20 6B 61 72 74 6F 74 65 medlem i kartote
021890: 6B 27 29 3B 0D 0A 20 20 20 20 20 20 47 4F 54 4F k');.. GOTO
0218A0: 58 59 28 31 30 2C 20 31 37 29 3B 20 57 52 49 54 XY(10, 17); WRIT
0218B0: 45 28 27 41 46 53 4C 55 54 54 45 20 70 72 6F 67 E('AFSLUTTE prog
0218C0: 72 61 6D 6B 7C 72 73 6C 65 6E 27 29 3B 0D 0A 20 ramk|rslen');..
0218D0: 20 20 20 20 20 47 4F 54 4F 58 59 28 31 30 2C 20 GOTOXY(10,
0218E0: 31 39 29 3B 20 57 52 49 54 45 28 27 54 61 73 74 19); WRITE('Tast
0218F0: 20 6B 6F 6D 6D 61 6E 64 6F 3A 20 28 55 2F 53 2F kommando: (U/S/
021900: 52 2F 49 2F 41 29 3A 20 27 29 3B 0D 0A 20 20 20 R/I/A): ');..
021910: 20 20 20 52 45 50 45 41 54 0D 0A 20 20 20 20 20 REPEAT..
021920: 20 20 20 52 45 41 44 28 4B 42 44 2C 20 63 68 29 READ(KBD, ch)
021930: 3B 0D 0A 20 20 20 20 20 20 55 4E 54 49 4C 20 63 ;.. UNTIL c
021940: 68 20 49 4E 20 28 2E 20 27 55 27 2C 20 27 75 27 h IN (. 'U', 'u'
021950: 2C 20 27 53 27 2C 20 27 73 27 2C 20 27 52 27 2C , 'S', 's', 'R',
021960: 20 27 72 27 2C 20 27 49 27 2C 20 27 69 27 2C 20 'r', 'I', 'i',
021970: 27 41 27 2C 20 27 61 27 2E 29 3B 0D 0A 20 20 20 'A', 'a'.);..
021980: 20 20 20 57 52 49 54 45 4C 4E 28 63 68 29 3B 0D WRITELN(ch);.
021990: 0A 20 20 20 20 20 20 43 41 53 45 20 63 68 20 4F . CASE ch O
0219A0: 46 0D 0A 20 20 20 20 20 20 20 20 27 55 27 2C 20 F.. 'U',
0219B0: 27 75 27 20 3A 20 75 64 73 6B 72 69 76 3B 0D 0A 'u' : udskriv;..
0219C0: 20 20 20 20 20 20 20 20 27 53 27 2C 20 27 73 27 'S', 's'
0219D0: 20 3A 20 73 6C 65 74 3B 0D 0A 20 20 20 20 20 20 : slet;..
0219E0: 20 20 27 52 27 2C 20 27 72 27 20 3A 20 72 65 74 'R', 'r' : ret
0219F0: 3B 0D 0A 20 20 20 20 20 20 20 20 27 49 27 2C 20 ;.. 'I',
021A00: 43 41 53 45 20 63 68 20 4F 46 0D 0A 20 20 20 20 CASE ch OF..
021A10: 20 20 20 20 20 20 20 20 20 20 27 4E 27 2C 20 27 'N', '
021A20: 6E 27 20 3A 20 52 45 41 44 28 6E 61 76 6E 29 3B n' : READ(navn);
021A30: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
021A40: 27 41 27 2C 20 27 61 27 20 3A 20 52 45 41 44 28 'A', 'a' : READ(
021A50: 61 64 72 65 73 73 65 29 3B 0D 0A 20 20 20 20 20 adresse);..
021A60: 20 20 20 20 20 20 20 20 20 27 42 27 2C 20 27 62 'B', 'b
021A70: 27 20 3A 20 52 45 41 44 28 62 79 29 3B 0D 0A 20 ' : READ(by);..
021A80: 20 20 20 20 20 20 20 20 20 20 20 20 20 27 49 27 'I'
021A90: 2C 20 27 69 27 20 3A 20 52 45 41 44 28 69 6E 66 , 'i' : READ(inf
021AA0: 6F 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 o);..
021AB0: 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 20 20 20 END;..
021AC0: 20 20 20 49 46 20 4E 4F 54 20 28 63 68 20 49 4E IF NOT (ch IN
021AD0: 20 28 2E 27 46 27 2C 20 27 66 27 2E 29 29 0D 0A (.'F', 'f'.))..
021AE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 48 TH
021AF0: 45 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 EN..
021B00: 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 BEGIN..
021B10: 20 20 20 20 20 20 20 20 20 20 20 20 20 47 4F 54 GOT
021B20: 4F 58 59 28 31 30 2C 20 31 38 29 3B 20 0D 0A 20 OXY(10, 18); ..
021B30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
021B40: 20 72 65 74 75 72 3B 0D 0A 20 20 20 20 20 20 20 retur;..
021B50: 20 20 20 20 20 20 20 20 20 45 4E 44 3B 0D 0A 20 END;..
021B60: 20 20 20 20 20 20 20 20 20 55 4E 54 49 4C 20 63 UNTIL c
021B70: 68 20 49 4E 20 28 2E 27 46 27 2C 20 27 66 27 2E h IN (.'F', 'f'.
021B80: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 57 52 );.. WR
021B90: 49 54 45 28 66 69 6C 2C 20 6D 65 64 6C 65 6D 29 ITE(fil, medlem)
021BA0: 3B 0D 0A 20 20 20 20 20 20 20 20 45 4E 44 3B 0D ;.. END;.
021BB0: 0A 20 20 20 20 45 4E 44 3B 20 28 2A 20 72 65 74 . END; (* ret
021BC0: 20 2A 29 0D 0A 0D 0A 20 20 50 52 4F 43 45 44 55 *).... PROCEDU
021BD0: 52 45 20 74 69 6C 66 6F 65 6A 3B 0D 0A 20 20 0D RE tilfoej;.. .
021BE0: 0A 20 20 20 20 56 41 52 0D 0A 20 20 20 20 20 20 . VAR..
021BF0: 66 69 6C 70 6F 69 6E 74 65 72 20 3A 20 49 4E 54 filpointer : INT
021C00: 27 69 27 20 3A 20 74 69 6C 66 6F 65 6A 3B 0D 0A 'i' : tilfoej;..
021C10: 20 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 END;..
021C20: 55 4E 54 49 4C 20 63 68 20 49 4E 20 28 2E 20 27 UNTIL ch IN (. '
021C30: 41 27 2C 20 27 61 27 2E 29 3B 0D 0A 20 20 20 20 A', 'a'.);..
021C40: 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 43 4C WRITELN;.. CL
021C50: 4F 53 45 28 66 69 6C 29 3B 0D 0A 20 20 45 4E 44 OSE(fil);.. END
021C60: 2E 20 28 2A 20 6D 65 6E 75 66 69 6C 20 2A 29 0D . (* menufil *).
021C70: 0A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
021C80: 3A 3D 20 30 20 54 4F 20 39 20 44 4F 0D 0A 20 20 := 0 TO 9 DO..
021C90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
021CA0: 49 46 20 28 69 73 75 6D 20 2B 20 63 68 65 63 6B IF (isum + check
021CB0: 29 20 4D 4F 44 20 31 31 20 3D 20 30 0D 0A 20 20 ) MOD 11 = 0..
021CC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
021CD0: 20 20 54 48 45 4E 20 57 52 49 54 45 28 73 74 72 THEN WRITE(str
021CE0: 2C 20 27 2D 27 2C 20 67 2C 20 68 2C 20 69 2C 20 , '-', g, h, i,
021CF0: 63 68 65 63 6B 2C 20 27 20 20 20 20 20 27 29 3B check, ' ');
021D00: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
021D10: 45 4E 44 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 END;..
021D20: 45 4E 44 3B 0D 0A 20 20 20 20 20 20 45 4E 44 3B END;.. END;
021D30: 0D 0A 20 20 20 20 57 52 49 54 45 4C 4E 3B 0D 0A .. WRITELN;..
021D40: 20 20 45 4E 44 2E 0D 0A 1A 20 20 20 20 20 20 20 END....
021D50: 20 20 54 48 45 4E 20 57 52 49 54 45 28 73 74 72 THEN WRITE(str
021D60: 2C 20 27 2D 27 2C 20 67 2C 20 68 2C 20 69 2C 20 , '-', g, h, i,
021D70: 63 68 65 63 6B 2C 20 27 20 20 20 20 20 27 29 3B check, ' ');
021D80: 76 FD 52 4E 44 57 41 4C 4B 2E 20 20 20 5B 32 38 v.RNDWALK. [28
021D90: 2F 30 31 2F 31 39 39 31 5D 00 11 10 00 05 ED 77 /01/1991]......w
021DA0: 3B 3D 1C 3E 5F 5F 55 FC FC 7B 80 7D 7F 6F AF 17 ;=.>__U..{.}.o..
021DB0: 2F 94 B5 B4 BE AD E0 C0 AD 18 06 B3 4D ED CD DF /...........M...
021DC0: CF FF FD DB 47 81 F7 95 54 D0 BC FF 51 B8 97 45 ....G...T...Q..E
021DD0: 5D 67 DE 95 15 B0 BC 0A 27 81 D9 C3 B2 A4 BF 89 ]g......'.......
021DE0: 0E 9F 63 BD CF C1 86 B1 2E 41 46 35 C3 DE 63 97 ..c......AF5..c.
021DF0: 52 B2 95 A2 1B C2 C3 59 39 1B 2E 6F 59 9E 96 15 R......Y9..oY...
021E00: 45 47 45 52 3B 0D 0A 20 20 20 20 20 20 6E 79 74 EGER;.. nyt
021E10: 6D 65 64 6C 65 6D 20 3A 20 6D 65 64 6C 65 6D 73 medlem : medlems
021E20: 70 6F 73 74 3B 0D 0A 20 20 20 20 20 20 0D 0A 20 post;.. ..
021E30: 20 20 20 42 45 47 49 4E 20 28 2A 20 74 69 6C 66 BEGIN (* tilf
021E40: 6F 65 6A 20 2A 29 0D 0A 20 20 20 20 20 20 57 52 oej *).. WR
021E50: 49 54 45 28 43 4C 52 48 4F 4D 29 3B 0D 0A 20 20 ITE(CLRHOM);..
021E60: 20 20 20 20 52 45 53 45 54 28 66 69 6C 29 3B 0D RESET(fil);.
021E70: 0A 20 20 20 20 20 20 66 69 6C 70 6F 69 6E 74 65 . filpointe
021E80: 72 20 3A 3D 20 30 3B 0D 0A 20 20 20 20 20 20 49 r := 0;.. I
021E90: 46 20 4C 45 4E 47 54 48 28 66 69 6C 29 20 3E 20 F LENGTH(fil) >
021EA0: 30 0D 0A 20 20 20 20 20 20 20 20 54 48 45 4E 20 0.. THEN
021EB0: 0D 0A 20 20 20 20 20 20 20 20 20 20 42 45 47 49 .. BEGI
021EC0: 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 52 45 41 N.. REA
021ED0: 44 28 66 69 6C 2C 20 6D 65 64 6C 65 6D 29 3B 0D D(fil, medlem);.
021EE0: 0A 20 20 20 20 20 20 20 20 20 20 66 69 6C 70 6F . filpo
021EF0: 69 6E 74 65 72 20 3A 3D 20 31 3B 0D 0A 20 20 20 inter := 1;..
021F00: 20 20 20 20 20 20 20 57 48 49 4C 45 20 28 6D 65 WHILE (me
021F10: 64 6C 65 6D 2E 6E 61 76 6E 20 3C 3E 20 27 27 29 dlem.navn <> '')
021F20: 20 41 4E 44 20 4E 4F 54 20 45 4F 46 28 66 69 6C AND NOT EOF(fil
021F30: 29 20 44 4F 0D 0A 20 20 20 20 20 20 20 20 20 20 ) DO..
021F40: 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 BEGIN..
021F50: 20 20 20 20 20 20 20 52 45 41 44 28 66 69 6C 2C READ(fil,
021F60: 20 6D 65 64 6C 65 6D 29 3B 0D 0A 20 20 20 20 20 medlem);..
021F70: 20 20 20 20 20 20 20 20 20 66 69 6C 70 6F 69 6E filpoin
021F80: 74 65 72 20 3A 3D 20 66 69 6C 70 6F 69 6E 74 65 ter := filpointe
021F90: 72 20 2B 20 31 3B 0D 0A 20 20 20 20 20 20 20 20 r + 1;..
021FA0: 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 END;..
021FB0: 20 20 20 20 49 46 20 6D 65 64 6C 65 6D 2E 6E 61 IF medlem.na
021FC0: 76 6E 20 3D 20 27 27 0D 0A 20 20 20 20 20 20 20 vn = ''..
021FD0: 20 20 20 20 20 54 48 45 4E 20 66 69 6C 70 6F 69 THEN filpoi
021FE0: 6E 74 65 72 20 3A 3D 20 66 69 6C 70 6F 69 6E 74 nter := filpoint
021FF0: 65 72 20 2D 20 31 3B 0D 0A 20 20 20 20 20 20 20 er - 1;..
022000: 00 D1 67 C3 0D 70 C4 5E C4 DF 39 E6 38 F3 05 8A ..g..p.^..9.8...
022010: B4 E2 D8 AF C1 FE 13 2F 80 15 16 BC 8E B1 7A 8B ......./......z.
022020: 78 05 DA F1 F0 31 1C 8E 17 31 62 08 CC F5 0C AD x....1...1b.....
022030: 08 2C 8E F1 1A 20 3B F1 45 44 FC 9C 67 0C 43 47 .,... ;.ED..g.CG
022040: 3C 45 0C 18 CD D1 C4 61 88 E0 5D 3C 2D 35 58 7F <E.....a..]<-5X.
022050: E2 05 D0 FC F1 08 44 7C 81 47 3C 45 0C 4A F1 E2 ......D|.G<E.J..
022060: 35 81 60 2B 70 1C 6E 82 88 C4 26 0F 37 C3 11 7C 5.`+p.n...&.7..|
022070: 11 8A 52 B2 38 E0 A2 B8 5D 8E B8 8B 18 46 B0 56 ..R.8...]....F.V
022080: BD 08 B4 99 DB 58 13 C0 62 6A 83 E4 E1 91 48 2B .....X..bj....H+
022090: B0 09 6E 44 04 C5 51 38 82 2F 62 F5 1C 20 2E 8D ..nD..Q8./b.. ..
0220A0: 00 08 AC 71 84 8B 20 5C 0C 0C 47 D8 45 5C 23 40 ...q.. \..G.E\#@
0220B0: 07 1B 01 88 48 86 B9 1B 24 2E 6E 86 23 F7 22 DB ....H...$.n.#.".
0220C0: CE 00 88 6E 23 A2 7A 90 F8 20 EC 10 E3 03 8E 6E ...n#.z.. .....n
0220D0: 3B 00 20 B9 8D 08 91 38 0C 86 81 EA 75 A0 B5 B9 ;. ....8....u...
0220E0: 1D 35 91 2C 86 58 0A B1 EA 59 A6 5B 90 AC 0B AC .5.,.X...Y.[....
0220F0: E1 96 E9 15 64 7D 89 64 AB 05 32 C2 D6 56 FB 03 ....d}.d..2..V..
022100: C2 CC 5A E5 82 B3 4C B6 20 59 17 59 C3 2C D3 2F ..Z...L. Y.Y.,./
022110: C8 0A F2 EB 92 E2 32 CC 1A A4 82 CE BA 10 98 D3 ......2.........
022120: 59 54 2E 32 CB 61 0B 9C 75 9D 35 CC 32 FF 82 A3 YT.2.a..u.5.2..£
022130: A6 1A 42 86 BC A9 DA 74 96 68 D4 59 43 A9 C3 BA ..B....t.h.YC...
022140: 90 1D BE B4 4B 62 81 AC 4B 63 D0 6B 23 05 32 2E ....Kb..Kc.k#.2.
022150: 89 71 B3 8D 0C DC 2C 56 43 19 24 74 16 74 16 7B .q....,VC.$t.t.{
022160: 56 AB 4B 32 C8 E8 2C F6 2F CC 7A C7 16 8D 10 96 V.K2..,./.z.....
022170: 2B CC 7A CA 15 46 0C C4 D6 72 19 59 A6 5B 90 AC +.z..F...r.Y.[..
022180: 0B AC E1 96 E9 16 64 B5 BD EA 16 15 92 2E 50 AA ......d.......P.
022190: A9 6A A8 35 9A 0A 41 B5 9D EA 16 15 92 2E 50 8B .j.5..A.......P.
0221A0: B4 36 3D 5C 60 86 38 A1 46 05 82 82 89 28 15 95 .6=\`.8.F....(..
0221B0: 31 A9 DE A6 67 0B CC 10 87 D4 C8 28 35 65 F7 87 1...g......(5e..
0221C0: 3C E9 A9 1A FF 15 99 76 2F C9 53 A4 53 83 AA 41 <......v/.S.S..A
0221D0: 45 31 06 D5 54 FF 52 8C 41 2A 8D E9 59 4B 62 10 E1..T.R.A*..YKb.
0221E0: 87 24 B1 10 6C 4B 2C 54 30 C6 A0 95 46 F4 2C 25 .$..lK,T0...F.,%
0221F0: B1 A3 D4 94 DD 1E F2 A7 A7 6D 83 35 2F DD 4B F2 .£.......m.5/.K.
022200: 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 57 49 54 END;.. WIT
022210: 48 20 6E 79 74 6D 65 64 6C 65 6D 20 44 4F 0D 0A H nytmedlem DO..
022220: 20 20 20 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 BEGIN..
022230: 20 20 20 20 20 20 20 20 20 47 4F 54 4F 58 59 28 GOTOXY(
022240: 31 30 2C 20 35 29 3B 20 57 52 49 54 45 28 27 4E 10, 5); WRITE('N
022250: 79 74 20 6D 65 64 6C 65 6D 20 6E 72 3A 20 27 2C yt medlem nr: ',
022260: 20 66 69 6C 70 6F 69 6E 74 65 72 20 2B 20 31 29 filpointer + 1)
022270: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 47 4F 54 ;.. GOT
022280: 4F 58 59 28 31 30 2C 20 37 29 3B 20 57 52 49 54 OXY(10, 7); WRIT
022290: 45 28 27 4E 61 76 6E 3A 20 27 29 3B 20 52 45 41 E('Navn: '); REA
0222A0: 44 28 6E 61 76 6E 29 3B 0D 0A 20 20 20 20 20 20 D(navn);..
0222B0: 20 20 20 20 47 4F 54 4F 58 59 28 31 30 2C 20 39 GOTOXY(10, 9
0222C0: 29 3B 20 57 52 49 54 45 28 27 41 64 72 65 73 73 ); WRITE('Adress
0222D0: 65 3A 20 27 29 3B 20 52 45 41 44 28 61 64 72 65 e: '); READ(adre
0222E0: 73 73 65 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 sse);..
0222F0: 20 47 4F 54 4F 58 59 28 31 30 2C 20 31 31 29 3B GOTOXY(10, 11);
022300: 20 57 52 49 54 45 28 27 42 79 3A 20 27 29 3B 20 WRITE('By: ');
022310: 52 45 41 44 28 62 79 29 3B 0D 0A 20 20 20 20 20 READ(by);..
022320: 20 20 20 20 20 47 4F 54 4F 58 59 28 31 30 2C 20 GOTOXY(10,
022330: 31 33 29 3B 20 57 52 49 54 45 28 27 49 6E 66 6F 13); WRITE('Info
022340: 3A 20 27 29 3B 20 52 45 41 44 28 69 6E 66 6F 29 : '); READ(info)
022350: 3B 0D 0A 20 20 20 20 20 20 20 20 45 4E 44 3B 0D ;.. END;.
022360: 0A 20 20 20 20 20 20 53 45 45 4B 28 66 69 6C 2C . SEEK(fil,
022370: 20 66 69 6C 70 6F 69 6E 74 65 72 29 3B 0D 0A 20 filpointer);..
022380: 20 20 20 20 20 57 52 49 54 45 28 66 69 6C 2C 20 WRITE(fil,
022390: 6E 79 74 6D 65 64 6C 65 6D 29 3B 0D 0A 20 20 20 nytmedlem);..
0223A0: 20 20 20 47 4F 54 4F 58 59 28 31 30 2C 20 31 35 GOTOXY(10, 15
0223B0: 29 3B 0D 0A 20 20 20 20 20 20 72 65 74 75 72 3B );.. retur;
0223C0: 0D 0A 20 20 20 20 45 4E 44 3B 20 28 2A 20 74 69 .. END; (* ti
0223D0: 6C 66 6F 65 6A 20 2A 29 0D 0A 20 20 0D 0A 20 20 lfoej *).. ..
0223E0: 42 45 47 49 4E 20 28 2A 20 6D 65 6E 75 66 69 6C BEGIN (* menufil
0223F0: 20 2A 29 0D 0A 20 20 20 20 57 52 49 54 45 28 43 *).. WRITE(C
022400: 50 52 4F 47 52 41 4D 20 6D 6F 72 73 65 31 3B 0D PROGRAM morse1;.
022410: 0A 0D 0A 20 20 54 59 50 45 0D 0A 20 20 20 20 73 ... TYPE.. s
022420: 74 72 31 32 37 20 3D 20 53 54 52 49 4E 47 28 2E tr127 = STRING(.
022430: 31 32 37 2E 29 3B 0D 0A 20 20 20 20 73 74 72 35 127.);.. str5
022440: 20 3D 20 53 54 52 49 4E 47 28 2E 35 2E 29 3B 0D = STRING(.5.);.
022450: 0A 20 20 0D 0A 20 20 56 41 52 0D 0A 20 20 20 20 . .. VAR..
022460: 74 65 6B 73 74 20 3A 20 73 74 72 31 32 37 3B 0D tekst : str127;.
022470: 0A 20 20 20 20 6D 6F 72 73 65 20 3A 20 73 74 72 . morse : str
022480: 35 3B 0D 0A 20 20 20 20 63 68 20 3A 20 43 48 41 5;.. ch : CHA
022490: 52 3B 0D 0A 20 20 20 20 69 2C 20 70 6F 73 69 74 R;.. i, posit
0224A0: 69 6F 6E 20 3A 20 49 4E 54 45 47 45 52 3B 0D 0A ion : INTEGER;..
0224B0: 20 20 0D 0A 20 20 42 45 47 49 4E 0D 0A 20 20 20 .. BEGIN..
0224C0: 20 57 52 49 54 45 28 43 4C 52 48 4F 4D 29 3B 0D WRITE(CLRHOM);.
0224D0: 0A 20 20 20 20 57 52 49 54 45 4C 4E 28 27 49 6E . WRITELN('In
0224E0: 64 74 61 73 74 20 74 65 6B 73 74 65 6E 20 28 6B dtast teksten (k
0224F0: 75 6E 20 73 6D 7D 20 62 6F 67 73 74 61 76 65 72 un sm} bogstaver
022500: 20 6F 67 20 6D 65 6C 6C 65 6D 72 75 6D 29 3A 27 og mellemrum):'
022510: 29 3B 0D 0A 20 20 20 20 52 45 41 44 4C 4E 28 74 );.. READLN(t
022520: 65 6B 73 74 29 3B 0D 0A 20 20 20 20 57 52 49 54 ekst);.. WRIT
022530: 45 4C 4E 3B 0D 0A 20 20 20 20 57 52 49 54 45 4C ELN;.. WRITEL
022540: 4E 28 27 4D 6F 72 73 65 74 65 6B 73 74 65 6E 20 N('Morseteksten
022550: 28 75 6C 6F 76 6C 69 67 65 20 74 65 67 6E 20 73 (ulovlige tegn s
022560: 6B 72 69 76 65 73 20 73 6F 6D 20 27 27 2A 27 27 krives som ''*''
022570: 29 3A 27 29 3B 0D 0A 20 20 20 20 70 6F 73 69 74 ):');.. posit
022580: 69 6F 6E 20 3A 3D 20 30 3B 0D 0A 20 20 20 20 46 ion := 0;.. F
022590: 4F 52 20 69 20 3A 3D 20 31 20 54 4F 20 4C 45 4E OR i := 1 TO LEN
0225A0: 28 74 65 6B 73 74 29 20 44 4F 0D 0A 20 20 20 20 (tekst) DO..
0225B0: 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 BEGIN..
0225C0: 20 63 68 20 3A 3D 20 74 65 6B 73 74 28 2E 69 2E ch := tekst(.i.
0225D0: 29 3B 0D 0A 20 20 20 20 20 20 20 20 43 41 53 45 );.. CASE
0225E0: 20 63 68 20 4F 46 0D 0A 20 20 20 20 20 20 20 20 ch OF..
0225F0: 20 20 27 20 27 20 3A 20 6D 6F 72 73 65 20 3A 3D ' ' : morse :=
022600: 4C 52 48 4F 4D 29 3B 0D 0A 20 20 20 20 47 4F 54 LRHOM);.. GOT
022610: 4F 58 59 28 31 30 2C 20 35 29 3B 20 57 52 49 54 OXY(10, 5); WRIT
022620: 45 28 27 4D 20 45 20 44 20 4C 20 45 20 4D 20 53 E('M E D L E M S
022630: 20 4B 20 41 20 52 20 54 20 4F 20 54 20 45 20 4B K A R T O T E K
022640: 27 29 3B 0D 0A 20 20 20 20 47 4F 54 4F 58 59 28 ');.. GOTOXY(
022650: 31 30 2C 20 37 29 3B 20 57 52 49 54 45 28 27 53 10, 7); WRITE('S
022660: 6B 61 6C 20 64 75 20 61 72 62 65 6A 64 65 20 6D kal du arbejde m
022670: 65 64 20 65 74 20 6E 79 74 20 65 6C 6C 65 72 20 ed et nyt eller
022680: 65 74 20 61 6C 6C 65 72 65 64 65 27 29 3B 0D 0A et allerede');..
022690: 20 20 20 20 47 4F 54 4F 58 59 28 31 30 2C 20 38 GOTOXY(10, 8
0226A0: 29 3B 20 57 52 49 54 45 28 27 65 6B 73 69 73 74 ); WRITE('eksist
0226B0: 65 72 65 6E 64 65 20 6B 61 72 74 6F 74 65 6B 20 erende kartotek
0226C0: 28 4E 2F 45 29 3A 20 27 29 3B 0D 0A 20 20 20 20 (N/E): ');..
0226D0: 52 45 50 45 41 54 0D 0A 20 20 20 20 20 20 52 45 REPEAT.. RE
0226E0: 41 44 28 4B 42 44 2C 20 63 68 29 3B 0D 0A 20 20 AD(KBD, ch);..
0226F0: 20 20 55 4E 54 49 4C 20 63 68 20 49 4E 20 28 2E UNTIL ch IN (.
022700: 20 27 4E 27 2C 20 27 6E 27 2C 20 27 45 27 2C 20 'N', 'n', 'E',
022710: 27 65 27 2E 29 3B 0D 0A 20 20 20 20 49 46 20 63 'e'.);.. IF c
022720: 68 20 49 4E 20 28 2E 20 27 4E 27 2C 20 27 6E 27 h IN (. 'N', 'n'
022730: 2E 29 0D 0A 20 20 20 20 20 20 54 48 45 4E 20 6F .).. THEN o
022740: 70 72 65 74 0D 0A 20 20 20 20 20 20 45 4C 53 45 pret.. ELSE
022750: 20 68 76 69 6C 6B 65 6E 66 69 6C 3B 0D 0A 20 20 hvilkenfil;..
022760: 20 20 52 45 50 45 41 54 0D 0A 20 20 20 20 20 20 REPEAT..
022770: 57 52 49 54 45 28 43 4C 52 48 4F 4D 29 3B 0D 0A WRITE(CLRHOM);..
022780: 20 20 20 20 20 20 47 4F 54 4F 58 59 28 31 30 2C GOTOXY(10,
022790: 20 37 29 3B 20 57 52 49 54 45 28 27 4D 20 45 20 7); WRITE('M E
0227A0: 44 20 4C 20 45 20 4D 20 53 20 4B 20 41 20 52 20 D L E M S K A R
0227B0: 54 20 4F 20 54 20 45 20 4B 27 29 3B 0D 0A 20 20 T O T E K');..
0227C0: 20 20 20 20 47 4F 54 4F 58 59 28 31 30 2C 20 39 GOTOXY(10, 9
0227D0: 29 3B 20 57 52 49 54 45 28 27 55 64 73 6B 72 69 ); WRITE('Udskri
0227E0: 76 65 20 6B 61 72 74 6F 74 65 6B 65 74 27 29 3B ve kartoteket');
0227F0: 0D 0A 20 20 20 20 20 20 47 4F 54 4F 58 59 28 31 .. GOTOXY(1
022800: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
022810: 1D 00 01 00 02 09 52 E5 1D 00 41 02 00 00 00 02 ......R...A.....
022820: 1D 00 46 02 00 00 00 02 1D 00 42 02 00 00 00 02 ..F.......B.....
022830: 1D 00 47 02 00 00 00 02 1D 00 43 02 00 00 00 02 ..G.......C.....
022840: 1D 00 48 02 00 00 00 02 1D 00 44 02 00 00 00 02 ..H.......D.....
022850: 1D 00 49 02 00 00 00 02 1D 00 45 02 00 00 00 02 ..I.......E.....
022860: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
022870: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
022880: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
022890: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0228A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0228B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0228C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0228D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0228E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0228F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
022900: 20 27 20 20 27 3B 0D 0A 20 20 20 20 20 20 20 20 ' ';..
022910: 20 20 27 61 27 20 3A 20 6D 6F 72 73 65 20 3A 3D 'a' : morse :=
022920: 20 27 2E 2D 27 3B 0D 0A 20 20 20 20 20 20 20 20 '.-';..
022930: 20 20 27 62 27 20 3A 20 6D 6F 72 73 65 20 3A 3D 'b' : morse :=
022940: 20 27 2D 2E 2E 2E 27 3B 0D 0A 20 20 20 20 20 20 '-...';..
022950: 20 20 20 20 27 63 27 20 3A 20 6D 6F 72 73 65 20 'c' : morse
022960: 3A 3D 20 27 2D 2E 2D 2E 27 3B 0D 0A 20 20 20 20 := '-.-.';..
022970: 20 20 20 20 20 20 27 64 27 20 3A 20 6D 6F 72 73 'd' : mors
022980: 65 20 3A 3D 20 27 2D 2E 2E 27 3B 0D 0A 20 20 20 e := '-..';..
022990: 20 20 20 20 20 20 20 27 65 27 20 3A 20 6D 6F 72 'e' : mor
0229A0: 73 65 20 3A 3D 20 27 2E 27 3B 0D 0A 20 20 20 20 se := '.';..
0229B0: 20 20 20 20 20 20 27 66 27 20 3A 20 6D 6F 72 73 'f' : mors
0229C0: 65 20 3A 3D 20 27 2E 2E 2D 2E 27 3B 0D 0A 20 20 e := '..-.';..
0229D0: 20 20 20 20 20 20 20 20 27 67 27 20 3A 20 6D 6F 'g' : mo
0229E0: 72 73 65 20 3A 3D 20 27 2D 2D 2E 27 3B 0D 0A 20 rse := '--.';..
0229F0: 20 20 20 20 20 20 20 20 20 27 68 27 20 3A 20 6D 'h' : m
022A00: 6F 72 73 65 20 3A 3D 20 27 2E 2E 2E 2E 27 3B 0D orse := '....';.
022A10: 0A 20 20 20 20 20 20 20 20 20 20 27 69 27 20 3A . 'i' :
022A20: 20 6D 6F 72 73 65 20 3A 3D 20 27 2E 2E 27 3B 0D morse := '..';.
022A30: 0A 20 20 20 20 20 20 20 20 20 20 27 6A 27 20 3A . 'j' :
022A40: 20 6D 6F 72 73 65 20 3A 3D 20 27 2E 2D 2D 2D 27 morse := '.---'
022A50: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 27 6B 27 ;.. 'k'
022A60: 20 3A 20 6D 6F 72 73 65 20 3A 3D 20 27 2D 2E 2D : morse := '-.-
022A70: 27 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 27 6C ';.. 'l
022A80: 27 20 3A 20 6D 6F 72 73 65 20 3A 3D 20 27 2E 2D ' : morse := '.-
022A90: 2E 2E 27 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 ..';..
022AA0: 27 6D 27 20 3A 20 6D 6F 72 73 65 20 3A 3D 20 27 'm' : morse := '
022AB0: 2D 2D 27 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 --';..
022AC0: 27 6E 27 20 3A 20 6D 6F 72 73 65 20 3A 3D 20 27 'n' : morse := '
022AD0: 2D 2E 27 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 -.';..
022AE0: 27 6F 27 20 3A 20 6D 6F 72 73 65 20 3A 3D 20 27 'o' : morse := '
022AF0: 2D 2D 2D 27 3B 0D 0A 20 20 20 20 20 20 20 20 20 ---';..
022B00: 20 69 73 74 61 72 74 20 3E 20 31 0D 0A 20 20 20 istart > 1..
022B10: 20 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 THE
022B20: 4E 20 6B 6C 61 72 74 65 6B 73 74 20 3A 3D 20 6B N klartekst := k
022B30: 6C 61 72 74 65 6B 73 74 20 2B 20 27 20 27 3B 0D lartekst + ' ';.
022B40: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 . t
022B50: 65 67 6E 20 3A 3D 20 27 27 3B 0D 0A 20 20 20 20 egn := '';..
022B60: 20 20 20 20 20 20 20 20 20 20 57 48 49 4C 45 20 WHILE
022B70: 28 69 20 3C 20 6C 29 20 41 4E 44 20 28 28 74 65 (i < l) AND ((te
022B80: 6B 73 74 28 2E 69 2E 29 20 3D 20 27 2E 27 29 20 kst(.i.) = '.')
022B90: 4F 52 20 28 74 65 6B 73 74 28 2E 69 2E 29 20 3D OR (tekst(.i.) =
022BA0: 20 27 2D 27 29 29 20 44 4F 0D 0A 20 20 20 20 20 '-')) DO..
022BB0: 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4E BEGIN
022BC0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
022BD0: 20 20 20 20 74 65 67 6E 20 3A 3D 20 74 65 67 6E tegn := tegn
022BE0: 20 2B 20 74 65 6B 73 74 28 2E 69 2E 29 3B 0D 0A + tekst(.i.);..
022BF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
022C00: 20 20 69 20 3A 3D 20 69 20 2B 20 31 3B 0D 0A 20 i := i + 1;..
022C10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 E
022C20: 4E 44 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 ND;..
022C30: 20 20 20 49 46 20 74 65 67 6E 20 3C 3E 20 27 27 IF tegn <> ''
022C40: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
022C50: 20 20 54 48 45 4E 0D 0A 20 20 20 20 20 20 20 20 THEN..
022C60: 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4E 0D BEGIN.
022C70: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
022C80: 20 20 20 20 20 49 46 20 74 65 67 6E 20 3D 20 27 IF tegn = '
022C90: 2E 27 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 .'..
022CA0: 20 20 20 20 20 20 20 20 20 20 54 48 45 4E 20 63 THEN c
022CB0: 68 20 3A 3D 20 27 65 27 0D 0A 20 20 20 20 20 20 h := 'e'..
022CC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4C EL
022CD0: 53 45 20 49 46 20 74 65 67 6E 20 3D 20 27 2D 27 SE IF tegn = '-'
022CE0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
022CF0: 20 20 20 20 20 20 20 20 54 48 45 4E 20 63 68 20 THEN ch
022D00: 20 27 70 27 20 3A 20 6D 6F 72 73 65 20 3A 3D 20 'p' : morse :=
022D10: 27 2E 2D 2D 2E 27 3B 0D 0A 20 20 20 20 20 20 20 '.--.';..
022D20: 20 20 20 27 71 27 20 3A 20 6D 6F 72 73 65 20 3A 'q' : morse :
022D30: 3D 20 27 2D 2D 2E 2D 27 3B 0D 0A 20 20 20 20 20 = '--.-';..
022D40: 20 20 20 20 20 27 72 27 20 3A 20 6D 6F 72 73 65 'r' : morse
022D50: 20 3A 3D 20 27 2E 2D 2E 27 3B 0D 0A 20 20 20 20 := '.-.';..
022D60: 20 20 20 20 20 20 27 73 27 20 3A 20 6D 6F 72 73 's' : mors
022D70: 65 20 3A 3D 20 27 2E 2E 2E 27 3B 0D 0A 20 20 20 e := '...';..
022D80: 20 20 20 20 20 20 20 27 74 27 20 3A 20 6D 6F 72 't' : mor
022D90: 73 65 20 3A 3D 20 27 2D 27 3B 0D 0A 20 20 20 20 se := '-';..
022DA0: 20 20 20 20 20 20 27 75 27 20 3A 20 6D 6F 72 73 'u' : mors
022DB0: 65 20 3A 3D 20 27 2E 2E 2D 27 3B 0D 0A 20 20 20 e := '..-';..
022DC0: 20 20 20 20 20 20 20 27 76 27 20 3A 20 6D 6F 72 'v' : mor
022DD0: 73 65 20 3A 3D 20 27 2E 2E 2E 2D 27 3B 0D 0A 20 se := '...-';..
022DE0: 20 20 20 20 20 20 20 20 20 27 77 27 20 3A 20 6D 'w' : m
022DF0: 6F 72 73 65 20 3A 3D 20 27 2E 2D 2D 27 3B 0D 0A orse := '.--';..
022E00: 20 20 20 20 20 20 20 20 20 20 27 78 27 20 3A 20 'x' :
022E10: 6D 6F 72 73 65 20 3A 3D 20 27 2D 2E 2E 2D 27 3B morse := '-..-';
022E20: 0D 0A 20 20 20 20 20 20 20 20 20 20 27 79 27 20 .. 'y'
022E30: 3A 20 6D 6F 72 73 65 20 3A 3D 20 27 2D 2E 2D 2D : morse := '-.--
022E40: 27 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 27 7A ';.. 'z
022E50: 27 20 3A 20 6D 6F 72 73 65 20 3A 3D 20 27 2D 2D ' : morse := '--
022E60: 2E 2E 27 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 ..';..
022E70: 27 7B 27 20 3A 20 6D 6F 72 73 65 20 3A 3D 20 27 '{' : morse := '
022E80: 2E 2D 2E 2D 27 3B 0D 0A 20 20 20 20 20 20 20 20 .-.-';..
022E90: 20 20 27 7C 27 20 3A 20 6D 6F 72 73 65 20 3A 3D '|' : morse :=
022EA0: 20 27 2D 2D 2D 2E 27 3B 0D 0A 20 20 20 20 20 20 '---.';..
022EB0: 20 20 20 20 27 7D 27 20 3A 20 6D 6F 72 73 65 20 '}' : morse
022EC0: 3A 3D 20 27 2E 2D 2D 2E 2D 27 3B 0D 0A 20 20 20 := '.--.-';..
022ED0: 20 20 20 20 20 4F 54 48 45 52 57 49 53 45 0D 0A OTHERWISE..
022EE0: 20 20 20 20 20 20 20 20 20 20 6D 6F 72 73 65 20 morse
022EF0: 3A 3D 20 27 2A 27 3B 0D 0A 20 20 20 20 20 20 20 := '*';..
022F00: 3A 3D 20 27 74 27 0D 0A 20 20 20 20 20 20 20 20 := 't'..
022F10: 20 20 20 20 20 20 20 20 20 20 20 20 45 4C 53 45 ELSE
022F20: 20 49 46 20 74 65 67 6E 20 3D 20 27 2E 2E 27 0D IF tegn = '..'.
022F30: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
022F40: 20 20 20 20 20 20 20 54 48 45 4E 20 63 68 20 3A THEN ch :
022F50: 3D 20 27 69 27 0D 0A 20 20 20 20 20 20 20 20 20 = 'i'..
022F60: 20 20 20 20 20 20 20 20 20 20 20 45 4C 53 45 20 ELSE
022F70: 49 46 20 74 65 67 6E 20 3D 20 27 2E 2D 27 0D 0A IF tegn = '.-'..
022F80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
022F90: 20 20 20 20 20 20 54 48 45 4E 20 63 68 20 3A 3D THEN ch :=
022FA0: 20 27 61 27 0D 0A 20 20 20 20 20 20 20 20 20 20 'a'..
022FB0: 20 20 20 20 20 20 20 20 20 20 45 4C 53 45 20 49 ELSE I
022FC0: 46 20 74 65 67 6E 20 3D 20 27 2D 2E 27 0D 0A 20 F tegn = '-.'..
022FD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
022FE0: 20 20 20 20 20 54 48 45 4E 20 63 68 20 3A 3D 20 THEN ch :=
022FF0: 27 6E 27 0D 0A 20 20 20 20 20 20 20 20 20 20 20 'n'..
023000: 20 20 20 20 20 20 20 20 20 45 4C 53 45 20 49 46 ELSE IF
023010: 20 74 65 67 6E 20 3D 20 27 2D 2D 27 0D 0A 20 20 tegn = '--'..
023020: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
023030: 20 20 20 20 54 48 45 4E 20 63 68 20 3A 3D 20 27 THEN ch := '
023040: 6D 27 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 m'..
023050: 20 20 20 20 20 20 20 20 45 4C 53 45 20 49 46 20 ELSE IF
023060: 74 65 67 6E 20 3D 20 27 2E 2E 2E 27 0D 0A 20 20 tegn = '...'..
023070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
023080: 20 20 20 20 54 48 45 4E 20 63 68 20 3A 3D 20 27 THEN ch := '
023090: 73 27 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 s'..
0230A0: 20 20 20 20 20 20 20 20 45 4C 53 45 20 49 46 20 ELSE IF
0230B0: 74 65 67 6E 20 3D 20 27 2E 2E 2D 27 0D 0A 20 20 tegn = '..-'..
0230C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0230D0: 20 20 20 20 54 48 45 4E 20 63 68 20 3A 3D 20 27 THEN ch := '
0230E0: 75 27 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 u'..
0230F0: 20 20 20 20 20 20 20 20 45 4C 53 45 20 49 46 20 ELSE IF
023100: 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 20 20 49 END;.. I
023110: 46 20 6D 6F 72 73 65 20 3D 20 27 20 20 27 0D 0A F morse = ' '..
023120: 20 20 20 20 20 20 20 20 20 20 54 48 45 4E 20 0D THEN .
023130: 0A 20 20 20 20 20 20 20 20 20 20 20 20 42 45 47 . BEG
023140: 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 IN..
023150: 20 20 57 52 49 54 45 28 27 2F 20 27 29 3B 0D 0A WRITE('/ ');..
023160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 6F po
023170: 73 69 74 69 6F 6E 20 3A 3D 20 70 6F 73 69 74 69 sition := positi
023180: 6F 6E 20 2B 20 32 3B 0D 0A 20 20 20 20 20 20 20 on + 2;..
023190: 20 20 20 20 20 45 4E 44 0D 0A 20 20 20 20 20 20 END..
0231A0: 20 20 20 20 45 4C 53 45 20 0D 0A 20 20 20 20 20 ELSE ..
0231B0: 20 20 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 BEGIN..
0231C0: 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 WRIT
0231D0: 45 28 6D 6F 72 73 65 2C 20 27 20 20 27 29 3B 0D E(morse, ' ');.
0231E0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 . p
0231F0: 6F 73 69 74 69 6F 6E 20 3A 3D 20 70 6F 73 69 74 osition := posit
023200: 69 6F 6E 20 2B 20 4C 45 4E 28 6D 6F 72 73 65 29 ion + LEN(morse)
023210: 20 2B 20 32 3B 0D 0A 20 20 20 20 20 20 20 20 20 + 2;..
023220: 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 20 END;..
023230: 20 49 46 20 70 6F 73 69 74 69 6F 6E 20 3E 20 37 IF position > 7
023240: 33 0D 0A 20 20 20 20 20 20 20 20 20 20 54 48 45 3.. THE
023250: 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 42 N.. B
023260: 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 EGIN..
023270: 20 20 20 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 WRITELN;..
023280: 20 20 20 20 20 20 20 20 20 20 20 20 70 6F 73 69 posi
023290: 74 69 6F 6E 20 3A 3D 20 30 3B 0D 0A 20 20 20 20 tion := 0;..
0232A0: 20 20 20 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20 END;..
0232B0: 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 57 52 END;.. WR
0232C0: 49 54 45 4C 4E 3B 0D 0A 20 20 45 4E 44 2E 0D 0A ITELN;.. END...
0232D0: 1A 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 42 ... B
0232E0: 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 EGIN..
0232F0: 20 20 20 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 WRITELN;..
023300: 74 65 67 6E 20 3D 20 27 2E 2D 2E 27 0D 0A 20 20 tegn = '.-.'..
023310: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
023320: 20 20 20 20 54 48 45 4E 20 63 68 20 3A 3D 20 27 THEN ch := '
023330: 72 27 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 r'..
023340: 20 20 20 20 20 20 20 20 45 4C 53 45 20 49 46 20 ELSE IF
023350: 74 65 67 6E 20 3D 20 27 2D 2E 2E 27 0D 0A 20 20 tegn = '-..'..
023360: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
023370: 20 20 20 20 54 48 45 4E 20 63 68 20 3A 3D 20 27 THEN ch := '
023380: 64 27 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 d'..
023390: 20 20 20 20 20 20 20 20 45 4C 53 45 20 49 46 20 ELSE IF
0233A0: 74 65 67 6E 20 3D 20 27 2E 2D 2D 27 0D 0A 20 20 tegn = '.--'..
0233B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0233C0: 20 20 20 20 54 48 45 4E 20 63 68 20 3A 3D 20 27 THEN ch := '
0233D0: 77 27 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 w'..
0233E0: 20 20 20 20 20 20 20 20 45 4C 53 45 20 49 46 20 ELSE IF
0233F0: 74 65 67 6E 20 3D 20 27 2D 2E 2D 27 0D 0A 20 20 tegn = '-.-'..
023400: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
023410: 20 20 20 20 54 48 45 4E 20 63 68 20 3A 3D 20 27 THEN ch := '
023420: 6B 27 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 k'..
023430: 20 20 20 20 20 20 20 20 45 4C 53 45 20 49 46 20 ELSE IF
023440: 74 65 67 6E 20 3D 20 27 2D 2D 2E 27 0D 0A 20 20 tegn = '--.'..
023450: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
023460: 20 20 20 20 54 48 45 4E 20 63 68 20 3A 3D 20 27 THEN ch := '
023470: 67 27 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 g'..
023480: 20 20 20 20 20 20 20 20 45 4C 53 45 20 49 46 20 ELSE IF
023490: 74 65 67 6E 20 3D 20 27 2D 2D 2D 27 0D 0A 20 20 tegn = '---'..
0234A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0234B0: 20 20 20 20 54 48 45 4E 20 63 68 20 3A 3D 20 27 THEN ch := '
0234C0: 6F 27 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 o'..
0234D0: 20 20 20 20 20 20 20 20 45 4C 53 45 20 49 46 20 ELSE IF
0234E0: 74 65 67 6E 20 3D 20 27 2E 2E 2E 2E 27 0D 0A 20 tegn = '....'..
0234F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
023500: 50 52 4F 47 52 41 4D 20 6D 6F 72 73 65 32 3B 0D PROGRAM morse2;.
023510: 0A 20 20 0D 0A 20 20 54 59 50 45 0D 0A 20 20 20 . .. TYPE..
023520: 20 73 74 72 32 35 35 20 3D 20 53 54 52 49 4E 47 str255 = STRING
023530: 28 2E 32 35 35 2E 29 3B 0D 0A 20 20 20 20 73 74 (.255.);.. st
023540: 72 37 38 20 3D 20 53 54 52 49 4E 47 28 2E 37 38 r78 = STRING(.78
023550: 2E 29 3B 0D 0A 20 20 0D 0A 20 20 56 41 52 0D 0A .);.. .. VAR..
023560: 20 20 20 20 6B 6C 61 72 74 65 6B 73 74 20 3A 20 klartekst :
023570: 73 74 72 32 35 35 3B 0D 0A 20 20 20 20 74 65 6B str255;.. tek
023580: 73 74 2C 20 74 65 67 6E 20 3A 20 73 74 72 37 38 st, tegn : str78
023590: 3B 0D 0A 20 20 20 20 63 68 20 3A 20 43 48 41 52 ;.. ch : CHAR
0235A0: 3B 0D 0A 20 20 20 20 69 2C 20 69 73 74 61 72 74 ;.. i, istart
0235B0: 2C 20 69 73 6C 75 74 2C 20 6C 20 3A 20 49 4E 54 , islut, l : INT
0235C0: 45 47 45 52 3B 0D 0A 20 20 20 20 0D 0A 20 20 42 EGER;.. .. B
0235D0: 45 47 49 4E 0D 0A 20 20 20 20 57 52 49 54 45 28 EGIN.. WRITE(
0235E0: 43 4C 52 48 4F 4D 29 3B 0D 0A 20 20 20 20 57 52 CLRHOM);.. WR
0235F0: 49 54 45 4C 4E 28 27 46 72 61 20 6D 6F 72 73 65 ITELN('Fra morse
023600: 74 65 6B 73 74 20 74 69 6C 20 61 6C 6D 2E 20 74 tekst til alm. t
023610: 65 6B 73 74 27 29 3B 0D 0A 20 20 20 20 57 52 49 ekst');.. WRI
023620: 54 45 4C 4E 3B 0D 0A 20 20 20 20 57 52 49 54 45 TELN;.. WRITE
023630: 4C 4E 28 27 4B 75 6E 20 70 72 69 6B 6B 65 72 2C LN('Kun prikker,
023640: 20 73 74 72 65 67 65 72 20 6F 67 20 6D 65 6C 6C streger og mell
023650: 65 6D 72 75 6D 20 65 72 20 74 69 6C 6C 61 64 74 emrum er tilladt
023660: 27 29 3B 0D 0A 20 20 20 20 57 52 49 54 45 4C 4E ');.. WRITELN
023670: 28 27 45 76 74 2E 20 61 6E 64 72 65 20 74 65 67 ('Evt. andre teg
023680: 6E 20 76 69 6C 20 62 6C 69 76 65 20 6F 70 66 61 n vil blive opfa
023690: 74 74 65 74 20 73 6F 6D 20 6D 65 6C 6C 65 6D 72 ttet som mellemr
0236A0: 75 6D 27 29 3B 0D 0A 20 20 20 20 57 52 49 54 45 um');.. WRITE
0236B0: 4C 4E 28 27 55 6C 6F 76 6C 69 67 65 20 6D 6F 72 LN('Ulovlige mor
0236C0: 73 65 74 65 67 6E 20 76 69 6C 20 62 6C 69 76 65 setegn vil blive
0236D0: 20 6F 76 65 72 73 61 74 20 74 69 6C 20 27 27 2A oversat til ''*
0236E0: 27 27 27 29 3B 0D 0A 20 20 20 20 57 52 49 54 45 ''');.. WRITE
0236F0: 4C 4E 28 27 49 6E 64 74 61 73 74 20 6D 6F 72 73 LN('Indtast mors
023700: 20 20 20 20 20 54 48 45 4E 20 63 68 20 3A 3D 20 THEN ch :=
023710: 27 68 27 0D 0A 20 20 20 20 20 20 20 20 20 20 20 'h'..
023720: 20 20 20 20 20 20 20 20 20 45 4C 53 45 20 49 46 ELSE IF
023730: 20 74 65 67 6E 20 3D 20 27 2D 2E 2E 2E 27 0D 0A tegn = '-...'..
023740: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
023750: 20 20 20 20 20 20 54 48 45 4E 20 63 68 20 3A 3D THEN ch :=
023760: 20 27 62 27 0D 0A 20 20 20 20 20 20 20 20 20 20 'b'..
023770: 20 20 20 20 20 20 20 20 20 20 45 4C 53 45 20 49 ELSE I
023780: 46 20 74 65 67 6E 20 3D 20 27 2E 2D 2E 2E 27 0D F tegn = '.-..'.
023790: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
0237A0: 20 20 20 20 20 20 20 54 48 45 4E 20 63 68 20 3A THEN ch :
0237B0: 3D 20 27 6C 27 0D 0A 20 20 20 20 20 20 20 20 20 = 'l'..
0237C0: 20 20 20 20 20 20 20 20 20 20 20 45 4C 53 45 20 ELSE
0237D0: 49 46 20 74 65 67 6E 20 3D 20 27 2E 2E 2D 2E 27 IF tegn = '..-.'
0237E0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
0237F0: 20 20 20 20 20 20 20 20 54 48 45 4E 20 63 68 20 THEN ch
023800: 3A 3D 20 27 66 27 0D 0A 20 20 20 20 20 20 20 20 := 'f'..
023810: 20 20 20 20 20 20 20 20 20 20 20 20 45 4C 53 45 ELSE
023820: 20 49 46 20 74 65 67 6E 20 3D 20 27 2E 2E 2E 2D IF tegn = '...-
023830: 27 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 '..
023840: 20 20 20 20 20 20 20 20 20 54 48 45 4E 20 63 68 THEN ch
023850: 20 3A 3D 20 27 76 27 0D 0A 20 20 20 20 20 20 20 := 'v'..
023860: 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4C 53 ELS
023870: 45 20 49 46 20 74 65 67 6E 20 3D 20 27 2D 2D 2E E IF tegn = '--.
023880: 2E 27 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 .'..
023890: 20 20 20 20 20 20 20 20 20 20 54 48 45 4E 20 63 THEN c
0238A0: 68 20 3A 3D 20 27 7A 27 0D 0A 20 20 20 20 20 20 h := 'z'..
0238B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4C EL
0238C0: 53 45 20 49 46 20 74 65 67 6E 20 3D 20 27 2D 2E SE IF tegn = '-.
0238D0: 2D 2E 27 0D 0A 20 20 20 20 20 20 20 20 20 20 20 -.'..
0238E0: 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4E 20 THEN
0238F0: 63 68 20 3A 3D 20 27 63 27 0D 0A 20 20 20 20 20 ch := 'c'..
023900: 65 74 65 6B 73 74 65 6E 20 28 5E 20 61 6C 65 6E eteksten (^ alen
023910: 65 20 73 74 6F 70 70 65 72 29 3A 27 29 3B 0D 0A e stopper):');..
023920: 20 20 20 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 WRITELN;..
023930: 20 20 6B 6C 61 72 74 65 6B 73 74 20 3A 3D 20 27 klartekst := '
023940: 27 3B 0D 0A 20 20 20 20 52 45 50 45 41 54 0D 0A ';.. REPEAT..
023950: 20 20 20 20 20 20 57 52 49 54 45 28 27 3A 20 27 WRITE(': '
023960: 29 3B 0D 0A 20 20 20 20 20 20 42 55 46 4C 45 4E );.. BUFLEN
023970: 20 3A 3D 20 37 38 3B 0D 0A 20 20 20 20 20 20 52 := 78;.. R
023980: 45 41 44 4C 4E 28 74 65 6B 73 74 29 3B 0D 0A 20 EADLN(tekst);..
023990: 20 20 20 20 20 49 46 20 74 65 6B 73 74 20 3C 3E IF tekst <>
0239A0: 20 27 5E 27 0D 0A 20 20 20 20 20 20 20 20 54 48 '^'.. TH
0239B0: 45 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 42 45 EN.. BE
0239C0: 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 GIN..
0239D0: 20 74 65 6B 73 74 20 3A 3D 20 74 65 6B 73 74 20 tekst := tekst
0239E0: 2B 20 27 20 27 3B 0D 0A 20 20 20 20 20 20 20 20 + ' ';..
0239F0: 20 20 20 20 6C 20 3A 3D 20 4C 45 4E 28 74 65 6B l := LEN(tek
023A00: 73 74 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 st);..
023A10: 20 20 69 20 3A 3D 20 31 3B 0D 0A 20 20 20 20 20 i := 1;..
023A20: 20 20 20 20 20 20 20 52 45 50 45 41 54 0D 0A 20 REPEAT..
023A30: 20 20 20 20 20 20 20 20 20 20 20 20 20 69 73 74 ist
023A40: 61 72 74 20 3A 3D 20 69 3B 0D 0A 20 20 20 20 20 art := i;..
023A50: 20 20 20 20 20 20 20 20 20 57 48 49 4C 45 20 28 WHILE (
023A60: 69 20 3C 20 6C 29 20 41 4E 44 20 28 74 65 6B 73 i < l) AND (teks
023A70: 74 28 2E 69 2E 29 20 3C 3E 20 27 2E 27 29 0D 0A t(.i.) <> '.')..
023A80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
023A90: 20 20 20 20 41 4E 44 20 28 74 65 6B 73 74 28 2E AND (tekst(.
023AA0: 69 2E 29 20 3C 3E 20 27 2D 27 29 20 44 4F 0D 0A i.) <> '-') DO..
023AB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
023AC0: 69 20 3A 3D 20 69 20 2B 20 31 3B 0D 0A 20 20 20 i := i + 1;..
023AD0: 20 20 20 20 20 20 20 20 20 20 20 69 73 6C 75 74 islut
023AE0: 20 3A 3D 20 69 3B 0D 0A 20 20 20 20 20 20 20 20 := i;..
023AF0: 20 20 20 20 20 20 49 46 20 69 73 6C 75 74 20 2D IF islut -
023B00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
023B10: 1E 00 01 00 02 09 52 E5 1E 00 41 02 00 00 00 02 ......R...A.....
023B20: 1E 00 46 02 00 00 00 02 1E 00 42 02 00 00 00 02 ..F.......B.....
023B30: 1E 00 47 02 00 00 00 02 1E 00 43 02 00 00 00 02 ..G.......C.....
023B40: 1E 00 48 02 00 00 00 02 1E 00 44 02 00 00 00 02 ..H.......D.....
023B50: 1E 00 49 02 00 00 00 02 1E 00 45 02 00 00 00 02 ..I.......E.....
023B60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023B70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023B80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023B90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023BA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023BB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023BC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023BD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023BE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023BF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023C00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 E
023C10: 4C 53 45 20 49 46 20 74 65 67 6E 20 3D 20 27 2D LSE IF tegn = '-
023C20: 2E 2E 2D 27 0D 0A 20 20 20 20 20 20 20 20 20 20 ..-'..
023C30: 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4E THEN
023C40: 20 63 68 20 3A 3D 20 27 78 27 0D 0A 20 20 20 20 ch := 'x'..
023C50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
023C60: 45 4C 53 45 20 49 46 20 74 65 67 6E 20 3D 20 27 ELSE IF tegn = '
023C70: 2E 2D 2D 2E 27 0D 0A 20 20 20 20 20 20 20 20 20 .--.'..
023C80: 20 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 THE
023C90: 4E 20 63 68 20 3A 3D 20 27 70 27 0D 0A 20 20 20 N ch := 'p'..
023CA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
023CB0: 20 45 4C 53 45 20 49 46 20 74 65 67 6E 20 3D 20 ELSE IF tegn =
023CC0: 27 2E 2D 2E 2D 27 0D 0A 20 20 20 20 20 20 20 20 '.-.-'..
023CD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 48 TH
023CE0: 45 4E 20 63 68 20 3A 3D 20 27 7B 27 0D 0A 20 20 EN ch := '{'..
023CF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
023D00: 20 20 45 4C 53 45 20 49 46 20 74 65 67 6E 20 3D ELSE IF tegn =
023D10: 20 27 2D 2D 2D 2E 27 0D 0A 20 20 20 20 20 20 20 '---.'..
023D20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 T
023D30: 48 45 4E 20 63 68 20 3A 3D 20 27 7C 27 0D 0A 20 HEN ch := '|'..
023D40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
023D50: 20 20 20 45 4C 53 45 20 49 46 20 74 65 67 6E 20 ELSE IF tegn
023D60: 3D 20 27 2D 2D 2E 2D 27 0D 0A 20 20 20 20 20 20 = '--.-'..
023D70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
023D80: 54 48 45 4E 20 63 68 20 3A 3D 20 27 71 27 0D 0A THEN ch := 'q'..
023D90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
023DA0: 20 20 20 20 45 4C 53 45 20 49 46 20 74 65 67 6E ELSE IF tegn
023DB0: 20 3D 20 27 2D 2E 2D 2D 27 0D 0A 20 20 20 20 20 = '-.--'..
023DC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
023DD0: 20 54 48 45 4E 20 63 68 20 3A 3D 20 27 79 27 0D THEN ch := 'y'.
023DE0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
023DF0: 20 20 20 20 20 45 4C 53 45 20 49 46 20 74 65 67 ELSE IF teg
023E00: 72 74 6F 74 65 6B 20 3A 20 61 72 72 61 79 74 79 rtotek : arrayty
023E10: 70 65 29 20 3A 20 42 4F 4F 4C 45 41 4E 3B 0D 0A pe) : BOOLEAN;..
023E20: 20 20 0D 0A 20 20 20 20 56 41 52 0D 0A 20 20 20 .. VAR..
023E30: 20 20 20 6D 69 64 74 20 3A 20 49 4E 54 45 47 45 midt : INTEGE
023E40: 52 3B 0D 0A 20 20 20 20 0D 0A 20 20 20 20 42 45 R;.. .. BE
023E50: 47 49 4E 20 28 2A 20 66 75 6E 64 65 74 20 2A 29 GIN (* fundet *)
023E60: 0D 0A 20 20 20 20 20 20 52 45 50 45 41 54 0D 0A .. REPEAT..
023E70: 20 20 20 20 20 20 20 20 6D 69 64 74 20 3A 3D 20 midt :=
023E80: 28 76 65 6E 73 74 72 65 20 2B 20 68 6F 65 6A 72 (venstre + hoejr
023E90: 65 29 20 44 49 56 20 32 3B 0D 0A 20 20 20 20 20 e) DIV 2;..
023EA0: 20 20 20 49 46 20 61 72 74 69 6B 65 6C 20 3E 20 IF artikel >
023EB0: 76 61 72 65 6B 61 72 74 6F 74 65 6B 28 2E 6D 69 varekartotek(.mi
023EC0: 64 74 2E 29 0D 0A 20 20 20 20 20 20 20 20 20 20 dt.)..
023ED0: 54 48 45 4E 20 76 65 6E 73 74 72 65 20 3A 3D 20 THEN venstre :=
023EE0: 6D 69 64 74 20 2B 20 31 0D 0A 20 20 20 20 20 20 midt + 1..
023EF0: 20 20 20 20 45 4C 53 45 20 68 6F 65 6A 72 65 20 ELSE hoejre
023F00: 3A 3D 20 6D 69 64 74 20 2D 20 31 3B 0D 0A 20 20 := midt - 1;..
023F10: 20 20 20 20 55 4E 54 49 4C 20 28 61 72 74 69 6B UNTIL (artik
023F20: 65 6C 20 3D 20 76 61 72 65 6B 61 72 74 6F 74 65 el = varekartote
023F30: 6B 28 2E 6D 69 64 74 2E 29 29 20 4F 52 20 28 68 k(.midt.)) OR (h
023F40: 6F 65 6A 72 65 20 3C 20 76 65 6E 73 74 72 65 29 oejre < venstre)
023F50: 3B 0D 0A 20 20 20 20 20 20 49 46 20 61 72 74 69 ;.. IF arti
023F60: 6B 65 6C 20 3D 20 76 61 72 65 6B 61 72 74 6F 74 kel = varekartot
023F70: 65 6B 28 2E 6D 69 64 74 2E 29 0D 0A 20 20 20 20 ek(.midt.)..
023F80: 20 20 20 20 54 48 45 4E 20 66 75 6E 64 65 74 20 THEN fundet
023F90: 3A 3D 20 54 52 55 45 0D 0A 20 20 20 20 20 20 20 := TRUE..
023FA0: 20 45 4C 53 45 20 66 75 6E 64 65 74 20 3A 3D 20 ELSE fundet :=
023FB0: 46 41 4C 53 45 3B 0D 0A 20 20 20 20 45 4E 44 3B FALSE;.. END;
023FC0: 20 28 2A 20 66 75 6E 64 65 74 20 2A 29 0D 0A 20 (* fundet *)..
023FD0: 20 0D 0A 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 .. BEGIN..
023FE0: 69 6E 64 6C 61 65 73 28 6B 61 72 74 6F 74 65 6B indlaes(kartotek
023FF0: 2C 20 61 6E 74 61 6C 29 3B 0D 0A 20 20 20 20 73 , antal);.. s
024000: 6E 20 3D 20 27 2E 2D 2D 2D 27 0D 0A 20 20 20 20 n = '.---'..
024010: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
024020: 20 20 54 48 45 4E 20 63 68 20 3A 3D 20 27 6A 27 THEN ch := 'j'
024030: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
024040: 20 20 20 20 20 20 45 4C 53 45 20 49 46 20 74 65 ELSE IF te
024050: 67 6E 20 3D 20 27 2E 2D 2D 2E 2D 27 0D 0A 20 20 gn = '.--.-'..
024060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
024070: 20 20 20 20 54 48 45 4E 20 63 68 20 3A 3D 20 27 THEN ch := '
024080: 7D 27 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 }'..
024090: 20 20 20 20 20 20 20 20 45 4C 53 45 20 63 68 20 ELSE ch
0240A0: 3A 3D 20 27 2A 27 3B 0D 0A 20 20 20 20 20 20 20 := '*';..
0240B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 6B 6C 61 kla
0240C0: 72 74 65 6B 73 74 20 3A 3D 20 6B 6C 61 72 74 65 rtekst := klarte
0240D0: 6B 73 74 20 2B 20 63 68 3B 0D 0A 20 20 20 20 20 kst + ch;..
0240E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4E 44 END
0240F0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 55 ;.. U
024100: 4E 54 49 4C 20 69 20 3D 20 6C 3B 0D 0A 20 20 20 NTIL i = l;..
024110: 20 20 20 20 20 20 20 45 4E 44 3B 20 28 2A 20 49 END; (* I
024120: 46 20 2A 29 0D 0A 20 20 20 20 20 20 20 20 20 20 F *)..
024130: 6B 6C 61 72 74 65 6B 73 74 20 3A 3D 20 6B 6C 61 klartekst := kla
024140: 72 74 65 6B 73 74 20 2B 20 27 20 27 3B 0D 0A 20 rtekst + ' ';..
024150: 20 20 20 55 4E 54 49 4C 20 74 65 6B 73 74 20 3D UNTIL tekst =
024160: 20 27 5E 27 3B 0D 0A 20 20 20 20 57 52 49 54 45 '^';.. WRITE
024170: 4C 4E 3B 0D 0A 20 20 20 20 57 52 49 54 45 4C 4E LN;.. WRITELN
024180: 28 6B 6C 61 72 74 65 6B 73 74 29 3B 0D 0A 20 20 (klartekst);..
024190: 45 4E 44 2E 0D 0A 1A 45 4E 44 3B 20 28 2A 20 49 END....END; (* I
0241A0: 46 20 2A 29 0D 0A 20 20 20 20 20 20 20 20 20 20 F *)..
0241B0: 6B 6C 61 72 74 65 6B 73 74 20 3A 3D 20 6B 6C 61 klartekst := kla
0241C0: 72 74 65 6B 73 74 20 2B 20 27 20 27 3B 0D 0A 20 rtekst + ' ';..
0241D0: 20 20 20 55 4E 54 49 4C 20 74 65 6B 73 74 20 3D UNTIL tekst =
0241E0: 20 27 5E 27 3B 0D 0A 20 20 20 20 57 52 49 54 45 '^';.. WRITE
0241F0: 4C 4E 3B 0D 0A 20 20 20 20 57 52 49 54 45 4C 4E LN;.. WRITELN
024200: 6F 72 74 65 72 28 31 2C 20 61 6E 74 61 6C 2C 20 orter(1, antal,
024210: 6B 61 72 74 6F 74 65 6B 29 3B 0D 0A 20 20 20 20 kartotek);..
024220: 46 4F 52 20 69 20 3A 3D 20 31 20 54 4F 20 61 6E FOR i := 1 TO an
024230: 74 61 6C 20 44 4F 0D 0A 20 20 20 20 20 20 57 52 tal DO.. WR
024240: 49 54 45 4C 4E 28 27 2A 2A 2A 20 27 2C 20 6B 61 ITELN('*** ', ka
024250: 72 74 6F 74 65 6B 28 2E 69 2E 29 29 3B 0D 0A 20 rtotek(.i.));..
024260: 20 20 20 57 52 49 54 45 28 27 48 76 69 6C 6B 65 WRITE('Hvilke
024270: 6E 20 76 61 72 65 20 73 6B 61 6C 20 73 7C 67 65 n vare skal s|ge
024280: 73 20 69 20 6B 61 72 74 6F 74 65 6B 65 74 3A 20 s i kartoteket:
024290: 27 29 3B 20 52 45 41 44 4C 4E 28 61 72 74 69 6B '); READLN(artik
0242A0: 65 6C 29 3B 0D 0A 20 20 20 20 49 46 20 66 75 6E el);.. IF fun
0242B0: 64 65 74 28 31 2C 20 61 6E 74 61 6C 2C 20 61 72 det(1, antal, ar
0242C0: 74 69 6B 65 6C 2C 20 6B 61 72 74 6F 74 65 6B 29 tikel, kartotek)
0242D0: 0D 0A 20 20 20 20 20 20 54 48 45 4E 20 57 52 49 .. THEN WRI
0242E0: 54 45 4C 4E 28 61 72 74 69 6B 65 6C 2C 20 27 20 TELN(artikel, '
0242F0: 66 69 6E 64 65 73 20 69 20 76 61 72 65 6B 61 72 findes i varekar
024300: 74 6F 74 65 6B 65 74 27 29 0D 0A 20 20 20 20 20 toteket')..
024310: 20 45 4C 53 45 20 57 52 49 54 45 4C 4E 28 61 72 ELSE WRITELN(ar
024320: 74 69 6B 65 6C 2C 20 27 20 66 69 6E 64 65 73 20 tikel, ' findes
024330: 69 6B 6B 65 20 69 20 76 61 72 65 6B 61 72 74 6F ikke i varekarto
024340: 74 65 6B 65 74 27 29 3B 0D 0A 20 20 45 4E 44 2E teket');.. END.
024350: 0D 0A 1A 20 20 20 20 20 54 48 45 4E 20 57 52 49 ... THEN WRI
024360: 54 45 4C 4E 28 61 72 74 69 6B 65 6C 2C 20 27 20 TELN(artikel, '
024370: 66 69 6E 64 65 73 20 69 20 76 61 72 65 6B 61 72 findes i varekar
024380: 76 FD 52 55 4D 46 5F 31 2E 50 41 53 5B 32 38 2F v.RUMF_1.PAS[28/
024390: 30 31 2F 31 39 39 31 5D 00 11 10 00 05 ED 77 3B 01/1991]......w;
0243A0: 3D 1C 3E 5F 5F 55 FC FF FD FE 1E 9D DF 17 2F 94 =.>__U......../.
0243B0: BE 8B 01 58 F0 60 58 8C 03 59 AB F3 EF FC CF E5 ...X.`X..Y......
0243C0: A4 CF 50 A5 CF 57 A5 CF A0 A5 CF 18 A6 CF 07 A6 ..P..W..........
0243D0: CF 03 A6 CF FE A4 CF 7F A5 CF 99 A5 CF C6 A5 CF ................
0243E0: 53 A6 CF 92 A6 30 CD 07 9C 8D 24 00 03 07 00 AA S....0....$.....
0243F0: 00 3F 00 C0 00 10 00 02 00 41 09 2A 52 E5 02 04 .?.......A.*R...
024400: 50 52 4F 47 52 41 4D 20 6E 61 76 6E 73 6F 65 67 PROGRAM navnsoeg
024410: 3B 0D 0A 0D 0A 20 20 43 4F 4E 53 54 0D 0A 20 20 ;.... CONST..
024420: 20 20 6D 61 78 20 3D 20 32 30 30 3B 0D 0A 20 20 max = 200;..
024430: 0D 0A 20 20 54 59 50 45 0D 0A 20 20 20 20 73 74 .. TYPE.. st
024440: 72 33 30 20 3D 20 53 54 52 49 4E 47 28 2E 33 30 r30 = STRING(.30
024450: 2E 29 3B 0D 0A 20 20 20 20 61 72 72 61 79 74 79 .);.. arrayty
024460: 70 65 20 3D 20 41 52 52 41 59 28 2E 31 20 2E 2E pe = ARRAY(.1 ..
024470: 20 6D 61 78 2E 29 20 4F 46 20 73 74 72 33 30 3B max.) OF str30;
024480: 0D 0A 20 20 0D 0A 20 20 56 41 52 0D 0A 20 20 20 .. .. VAR..
024490: 20 6B 61 72 74 6F 74 65 6B 20 3A 20 61 72 72 61 kartotek : arra
0244A0: 79 74 79 70 65 3B 0D 0A 20 20 20 20 61 72 74 69 ytype;.. arti
0244B0: 6B 65 6C 20 3A 20 73 74 72 33 30 3B 0D 0A 20 20 kel : str30;..
0244C0: 20 20 69 2C 20 61 6E 74 61 6C 20 3A 20 49 4E 54 i, antal : INT
0244D0: 45 47 45 52 3B 0D 0A 20 20 20 20 0D 0A 20 20 50 EGER;.. .. P
0244E0: 52 4F 43 45 44 55 52 45 20 69 6E 64 6C 61 65 73 ROCEDURE indlaes
0244F0: 28 56 41 52 20 6B 61 72 74 6F 74 65 6B 20 3A 20 (VAR kartotek :
024500: 61 72 72 61 79 74 79 70 65 3B 20 56 41 52 20 6E arraytype; VAR n
024510: 20 3A 20 49 4E 54 45 47 45 52 29 3B 0D 0A 20 20 : INTEGER);..
024520: 0D 0A 20 20 20 20 56 41 52 0D 0A 20 20 20 20 20 .. VAR..
024530: 20 76 61 72 65 20 3A 20 73 74 72 33 30 3B 0D 0A vare : str30;..
024540: 20 20 20 20 20 20 69 20 3A 20 49 4E 54 45 47 45 i : INTEGE
024550: 52 3B 0D 0A 20 20 20 20 0D 0A 20 20 20 20 42 45 R;.. .. BE
024560: 47 49 4E 20 28 2A 20 69 6E 64 6C 61 65 73 20 2A GIN (* indlaes *
024570: 29 0D 0A 20 20 20 20 20 20 57 52 49 54 45 28 43 ).. WRITE(C
024580: 4C 52 48 4F 4D 29 3B 0D 0A 20 20 20 20 20 20 69 LRHOM);.. i
024590: 20 3A 3D 20 30 3B 0D 0A 20 20 20 20 20 20 57 52 := 0;.. WR
0245A0: 49 54 45 4C 4E 28 27 49 6E 64 74 61 73 74 20 76 ITELN('Indtast v
0245B0: 61 72 65 72 20 74 69 6C 20 76 61 72 65 6B 61 72 arer til varekar
0245C0: 74 6F 74 65 6B 65 74 20 28 30 20 73 74 6F 70 70 toteket (0 stopp
0245D0: 65 72 29 3A 27 29 3B 0D 0A 20 20 20 20 20 20 52 er):');.. R
0245E0: 45 50 45 41 54 0D 0A 20 20 20 20 20 20 20 20 69 EPEAT.. i
0245F0: 20 3A 3D 20 69 20 2B 20 31 3B 0D 0A 20 20 20 20 := i + 1;..
024600: 00 CF 1B F4 25 3D 8E 0C 55 35 0B F6 94 E5 79 0D ....%=..U5....y.
024610: CC 74 07 BC 09 DC 99 9A CB CD 66 26 28 0A 81 F4 .t........f&(...
024620: 6B 8C 84 43 AC 69 1A 9A 89 9A C6 86 B5 D0 98 49 k..C.i.........I
024630: 72 F4 16 FC BB A7 43 AA 2A 60 26 87 91 21 4A 3A r.....C.*`&..!J:
024640: 20 B8 B3 6F 61 E2 C3 46 B9 17 0C C7 25 50 0E BD ..oa..F....%P..
024650: 99 89 C5 49 23 45 AE 12 28 98 7E 27 6B 56 AD 63 ...I#E..(.~'kV.c
024660: 21 4A AB 3C 3D 2C D6 55 5B 1B 9A BE 49 74 12 DC !J.<=,.U[...It..
024670: 67 08 5E 1B 27 7F 67 20 08 21 D5 18 20 74 26 4C g.^.'.g .!.. t&L
024680: 10 3E FC 94 2B C1 60 5C 72 98 79 DA 1D FD 35 D3 .>..+.`\r.y...5.
024690: 84 CD 34 50 9A C1 24 B2 66 D3 7A 60 50 55 8C 51 ..4P..$.f.z`PU.Q
0246A0: 5E 58 33 BA 46 0D DB BE C5 B9 0B BB 2B 2C 0C C5 ^X3.F.......+,..
0246B0: 04 61 38 7F 5B C4 92 F9 B1 85 21 BE 07 97 48 67 .a8.[.....!...Hg
0246C0: 69 CC 2F A4 33 CC 61 CB 64 44 34 20 C1 6B 8E 23 i./.3.a.dD4 .k.#
0246D0: 91 66 75 D6 C8 68 4E 11 DE 84 75 44 3B C9 72 04 .fu..hN...uD;.r.
0246E0: 30 AD 6B C8 9A 60 34 4E 2E EE 5F 6C BB 3E 09 EA 0.k..`4N.._l.>..
0246F0: A6 05 86 FC E8 2D 96 26 AD 38 C1 55 24 B2 C6 BE .....-.&.8.U$...
024700: D4 05 4B B8 9C 88 77 CA 86 B9 27 EC 83 9B 26 A9 ..K...w...'...&.
024710: 8B 68 BA 19 98 51 C5 35 50 BA 9A 4F 33 02 4A 11 .h...Q.5P..O3.J.
024720: CE B5 AE 8A 41 0E 1A 24 5D 23 DC F3 3F 5B 43 A8 ....A..$]#..?[C.
024730: 2F 57 18 9A BF FD FE 9A BF 3B 16 5C EE 5E A3 39 /W.......;.\.^£9
024740: 09 6B 4F 95 83 13 C5 25 DD C1 C4 6E 3B A4 11 52 .kO....%...n;..R
024750: C6 59 83 5F 63 3F A9 90 3B 0C 76 A9 99 2F 28 46 .Y._c?..;.v../(F
024760: B8 D5 BA 28 06 86 75 BC 39 A6 9B 45 27 12 08 55 ...(..u.9..E'..U
024770: 76 06 47 8A 05 6D F3 29 27 05 36 58 12 77 B5 E3 v.G..m.)'.6X.w..
024780: 28 BD C7 CA 74 7A DF 41 84 33 CC 07 73 42 DC 5F (...tz.A.3..sB._
024790: 88 94 C8 15 04 57 F6 86 F4 BF 64 49 FA 29 FA 54 .....W....dI.).T
0247A0: 5E E3 90 3A 14 86 D5 68 2C 3C 18 F1 26 6C 8C 7B ^..:...h,<..&l.{
0247B0: 6C 89 00 86 A0 34 16 16 08 A7 D0 E6 3F BD 85 39 l....4......?..9
0247C0: C9 C9 45 28 16 C7 C1 A9 FD F3 48 11 9F 2C 72 27 ..E(......H..,r'
0247D0: 71 DE 2F 4E 67 19 49 0A 4C 7F F9 F5 24 A4 BC 93 q./Ng.I.L...$...
0247E0: 0B 5C 5D 69 4C 82 23 3D 86 0C EB 0B 6D 62 30 F1 .\]iL.#=....mb0.
0247F0: AA 1B E0 24 B6 04 43 A7 74 74 BA D6 08 CA 2D 2F ...$..C.tt....-/
024800: 20 20 20 20 57 52 49 54 45 28 27 3A 20 27 29 3B WRITE(': ');
024810: 20 52 45 41 44 4C 4E 28 76 61 72 65 29 3B 0D 0A READLN(vare);..
024820: 20 20 20 20 20 20 20 20 49 46 20 76 61 72 65 20 IF vare
024830: 3C 3E 20 27 30 27 0D 0A 20 20 20 20 20 20 20 20 <> '0'..
024840: 20 20 54 48 45 4E 20 6B 61 72 74 6F 74 65 6B 28 THEN kartotek(
024850: 2E 69 2E 29 20 3A 3D 20 76 61 72 65 3B 0D 0A 20 .i.) := vare;..
024860: 20 20 20 20 20 55 4E 54 49 4C 20 28 76 61 72 65 UNTIL (vare
024870: 20 3D 20 27 30 27 29 20 4F 52 20 28 69 20 3D 20 = '0') OR (i =
024880: 6D 61 78 29 3B 0D 0A 20 20 20 20 20 20 49 46 20 max);.. IF
024890: 69 20 3D 20 6D 61 78 0D 0A 20 20 20 20 20 20 20 i = max..
0248A0: 20 54 48 45 4E 20 6E 20 3A 3D 20 6D 61 78 0D 0A THEN n := max..
0248B0: 20 20 20 20 20 20 20 20 45 4C 53 45 20 6E 20 3A ELSE n :
0248C0: 3D 20 69 20 2D 20 31 3B 0D 0A 20 20 20 20 45 4E = i - 1;.. EN
0248D0: 44 3B 20 28 2A 20 69 6E 64 6C 61 65 73 20 2A 29 D; (* indlaes *)
0248E0: 0D 0A 20 20 0D 0A 20 20 50 52 4F 43 45 44 55 52 .. .. PROCEDUR
0248F0: 45 20 73 6F 72 74 65 72 28 76 65 6E 73 74 72 65 E sorter(venstre
024900: 2C 20 68 6F 65 6A 72 65 20 3A 20 49 4E 54 45 47 , hoejre : INTEG
024910: 45 52 3B 20 56 41 52 20 72 65 67 69 73 74 65 72 ER; VAR register
024920: 20 3A 20 61 72 72 61 79 74 79 70 65 29 3B 0D 0A : arraytype);..
024930: 20 20 0D 0A 20 20 20 20 56 41 52 0D 0A 20 20 20 .. VAR..
024940: 20 20 20 69 2C 20 6A 2C 20 6D 69 64 74 2C 20 76 i, j, midt, v
024950: 2C 20 68 20 3A 20 49 4E 54 45 47 45 52 3B 0D 0A , h : INTEGER;..
024960: 20 20 20 20 20 20 6E 61 65 73 74 65 20 3A 20 73 naeste : s
024970: 74 72 33 30 3B 0D 0A 20 20 20 20 20 20 0D 0A 20 tr30;.. ..
024980: 20 20 20 42 45 47 49 4E 20 28 2A 20 73 6F 72 74 BEGIN (* sort
024990: 65 72 20 2A 29 0D 0A 20 20 20 20 20 20 46 4F 52 er *).. FOR
0249A0: 20 69 20 3A 3D 20 76 65 6E 73 74 72 65 20 2B 20 i := venstre +
0249B0: 31 20 54 4F 20 68 6F 65 6A 72 65 20 44 4F 0D 0A 1 TO hoejre DO..
0249C0: 20 20 20 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 BEGIN..
0249D0: 20 20 20 20 20 20 20 20 20 6E 61 65 73 74 65 20 naeste
0249E0: 3A 3D 20 72 65 67 69 73 74 65 72 28 2E 69 2E 29 := register(.i.)
0249F0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 76 20 3A ;.. v :
024A00: 50 52 4F 47 52 41 4D 20 6E 61 76 6E 73 6F 72 74 PROGRAM navnsort
024A10: 3B 0D 0A 0D 0A 20 20 43 4F 4E 53 54 0D 0A 20 20 ;.... CONST..
024A20: 20 20 61 6E 74 61 6C 20 3D 20 31 30 3B 0D 0A 20 antal = 10;..
024A30: 20 20 20 6D 61 78 74 65 67 6E 20 3D 20 33 30 3B maxtegn = 30;
024A40: 0D 0A 20 20 20 20 0D 0A 20 20 54 59 50 45 0D 0A .. .. TYPE..
024A50: 20 20 20 20 73 74 72 65 6E 67 20 3D 20 53 54 52 streng = STR
024A60: 49 4E 47 28 2E 6D 61 78 74 65 67 6E 2E 29 3B 0D ING(.maxtegn.);.
024A70: 0A 20 20 20 20 61 72 72 20 3D 20 41 52 52 41 59 . arr = ARRAY
024A80: 28 2E 31 20 2E 2E 20 61 6E 74 61 6C 2E 29 20 4F (.1 .. antal.) O
024A90: 46 20 73 74 72 65 6E 67 3B 0D 0A 20 20 0D 0A 20 F streng;.. ..
024AA0: 20 56 41 52 0D 0A 20 20 20 20 74 61 62 65 6C 20 VAR.. tabel
024AB0: 3A 20 61 72 72 3B 0D 0A 20 20 0D 0A 20 20 50 52 : arr;.. .. PR
024AC0: 4F 43 45 44 55 52 45 20 69 6E 64 28 56 41 52 20 OCEDURE ind(VAR
024AD0: 74 61 62 20 3A 20 61 72 72 29 3B 0D 0A 20 20 20 tab : arr);..
024AE0: 20 0D 0A 20 20 20 20 56 41 52 0D 0A 20 20 20 20 .. VAR..
024AF0: 20 20 69 20 3A 20 49 4E 54 45 47 45 52 3B 0D 0A i : INTEGER;..
024B00: 20 20 20 20 0D 0A 20 20 20 20 42 45 47 49 4E 20 .. BEGIN
024B10: 28 2A 20 69 6E 64 20 2A 29 0D 0A 20 20 20 20 20 (* ind *)..
024B20: 20 57 52 49 54 45 28 43 4C 52 48 4F 4D 29 3B 0D WRITE(CLRHOM);.
024B30: 0A 20 20 20 20 20 20 57 52 49 54 45 4C 4E 28 27 . WRITELN('
024B40: 49 6E 64 74 61 73 74 20 27 2C 20 61 6E 74 61 6C Indtast ', antal
024B50: 2C 20 27 20 6E 61 76 6E 65 3A 27 29 3B 0D 0A 20 , ' navne:');..
024B60: 20 20 20 20 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 WRITELN;..
024B70: 20 20 20 20 20 46 4F 52 20 69 20 3A 3D 20 31 20 FOR i := 1
024B80: 54 4F 20 61 6E 74 61 6C 20 44 4F 0D 0A 20 20 20 TO antal DO..
024B90: 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 BEGIN..
024BA0: 20 20 20 20 20 20 57 52 49 54 45 28 27 4E 61 76 WRITE('Nav
024BB0: 6E 20 6E 72 2E 20 27 2C 20 69 20 3A 20 33 2C 20 n nr. ', i : 3,
024BC0: 27 3A 20 20 27 29 3B 0D 0A 20 20 20 20 20 20 20 ': ');..
024BD0: 20 20 20 42 55 46 4C 45 4E 20 3A 3D 20 6D 61 78 BUFLEN := max
024BE0: 74 65 67 6E 3B 0D 0A 20 20 20 20 20 20 20 20 20 tegn;..
024BF0: 20 52 45 41 44 4C 4E 28 74 61 62 28 2E 69 2E 29 READLN(tab(.i.)
024C00: 3D 20 76 65 6E 73 74 72 65 3B 0D 0A 20 20 20 20 = venstre;..
024C10: 20 20 20 20 20 20 68 20 3A 3D 20 69 20 2D 20 31 h := i - 1
024C20: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 57 48 49 ;.. WHI
024C30: 4C 45 20 76 20 3C 3D 20 68 20 44 4F 0D 0A 20 20 LE v <= h DO..
024C40: 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4E 0D BEGIN.
024C50: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6D . m
024C60: 69 64 74 20 3A 3D 20 28 76 20 2B 20 68 29 20 44 idt := (v + h) D
024C70: 49 56 20 32 3B 0D 0A 20 20 20 20 20 20 20 20 20 IV 2;..
024C80: 20 20 20 20 20 49 46 20 6E 61 65 73 74 65 20 3C IF naeste <
024C90: 20 72 65 67 69 73 74 65 72 28 2E 6D 69 64 74 2E register(.midt.
024CA0: 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 )..
024CB0: 20 20 20 54 48 45 4E 20 68 20 3A 3D 20 6D 69 64 THEN h := mid
024CC0: 74 20 2D 20 31 0D 0A 20 20 20 20 20 20 20 20 20 t - 1..
024CD0: 20 20 20 20 20 20 20 45 4C 53 45 20 76 20 3A 3D ELSE v :=
024CE0: 20 6D 69 64 74 20 2B 20 31 3B 0D 0A 20 20 20 20 midt + 1;..
024CF0: 20 20 20 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20 END;..
024D00: 20 20 20 20 20 20 20 20 46 4F 52 20 6A 20 3A 3D FOR j :=
024D10: 20 69 20 2D 20 31 20 44 4F 57 4E 54 4F 20 76 20 i - 1 DOWNTO v
024D20: 44 4F 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 DO..
024D30: 72 65 67 69 73 74 65 72 28 2E 6A 20 2B 20 31 2E register(.j + 1.
024D40: 29 20 3A 3D 20 72 65 67 69 73 74 65 72 28 2E 6A ) := register(.j
024D50: 2E 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 72 .);.. r
024D60: 65 67 69 73 74 65 72 28 2E 76 2E 29 20 3A 3D 20 egister(.v.) :=
024D70: 6E 61 65 73 74 65 3B 0D 0A 20 20 20 20 20 20 20 naeste;..
024D80: 20 45 4E 44 3B 0D 0A 20 20 20 20 45 4E 44 3B 20 END;.. END;
024D90: 28 2A 20 73 6F 72 74 65 72 20 2A 29 0D 0A 20 20 (* sorter *)..
024DA0: 20 20 0D 0A 20 20 46 55 4E 43 54 49 4F 4E 20 66 .. FUNCTION f
024DB0: 75 6E 64 65 74 28 76 65 6E 73 74 72 65 2C 20 68 undet(venstre, h
024DC0: 6F 65 6A 72 65 20 3A 20 49 4E 54 45 47 45 52 20 oejre : INTEGER
024DD0: 3B 20 61 72 74 69 6B 65 6C 20 3A 20 73 74 72 33 ; artikel : str3
024DE0: 30 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 0;..
024DF0: 20 20 20 20 20 20 56 41 52 20 76 61 72 65 6B 61 VAR vareka
024E00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
024E10: 1F 00 01 00 02 09 52 E5 1F 00 41 02 00 00 00 02 ......R...A.....
024E20: 1F 00 46 02 00 00 00 02 1F 00 42 02 00 00 00 02 ..F.......B.....
024E30: 1F 00 47 02 00 00 00 02 1F 00 43 02 00 00 00 02 ..G.......C.....
024E40: 1F 00 48 02 00 00 00 02 1F 00 44 02 00 00 00 02 ..H.......D.....
024E50: 1F 00 49 02 00 00 00 02 1F 00 45 02 00 00 00 02 ..I.......E.....
024E60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024E70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024E80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024E90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024EA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024EB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024EC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024ED0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024EE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024EF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024F00: 29 3B 0D 0A 20 20 20 20 20 20 20 20 45 4E 44 3B );.. END;
024F10: 0D 0A 20 20 20 20 45 4E 44 3B 20 28 2A 20 69 6E .. END; (* in
024F20: 64 20 2A 29 0D 0A 20 20 0D 0A 20 20 0D 0A 20 20 d *).. .. ..
024F30: 50 52 4F 43 45 44 55 52 45 20 75 64 28 74 61 62 PROCEDURE ud(tab
024F40: 20 3A 20 61 72 72 29 3B 0D 0A 20 20 0D 0A 20 20 : arr);.. ..
024F50: 20 20 56 41 52 0D 0A 20 20 20 20 20 20 69 20 3A VAR.. i :
024F60: 20 49 4E 54 45 47 45 52 3B 0D 0A 20 20 20 20 0D INTEGER;.. .
024F70: 0A 20 20 20 20 42 45 47 49 4E 20 28 2A 20 75 64 . BEGIN (* ud
024F80: 20 2A 29 0D 0A 20 20 20 20 20 20 57 52 49 54 45 *).. WRITE
024F90: 4C 4E 3B 0D 0A 20 20 20 20 20 20 57 52 49 54 45 LN;.. WRITE
024FA0: 4C 4E 28 27 4E 61 76 6E 65 6E 65 20 69 20 61 6C LN('Navnene i al
024FB0: 66 61 62 65 74 69 73 6B 20 72 7B 6B 6B 65 66 7C fabetisk r{kkef|
024FC0: 6C 67 65 3A 27 29 3B 0D 0A 20 20 20 20 20 20 57 lge:');.. W
024FD0: 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 20 20 46 RITELN;.. F
024FE0: 4F 52 20 69 20 3A 3D 20 31 20 54 4F 20 61 6E 74 OR i := 1 TO ant
024FF0: 61 6C 20 44 4F 0D 0A 20 20 20 20 20 20 20 20 57 al DO.. W
025000: 52 49 54 45 4C 4E 28 69 20 3A 20 33 2C 20 27 20 RITELN(i : 3, '
025010: 20 27 2C 20 74 61 62 28 2E 69 2E 29 29 3B 0D 0A ', tab(.i.));..
025020: 20 20 20 20 45 4E 44 3B 20 28 2A 20 75 64 20 2A END; (* ud *
025030: 29 0D 0A 20 20 0D 0A 20 20 50 52 4F 43 45 44 55 ).. .. PROCEDU
025040: 52 45 20 73 6F 72 74 65 72 69 6E 67 28 56 41 52 RE sortering(VAR
025050: 20 74 20 3A 20 61 72 72 29 3B 0D 0A 20 20 20 20 t : arr);..
025060: 0D 0A 20 20 20 20 56 41 52 0D 0A 20 20 20 20 20 .. VAR..
025070: 20 69 2C 20 6A 20 3A 20 49 4E 54 45 47 45 52 3B i, j : INTEGER;
025080: 0D 0A 20 20 20 20 20 20 6E 61 76 6E 20 3A 20 73 .. navn : s
025090: 74 72 65 6E 67 3B 0D 0A 20 20 20 20 20 20 73 6C treng;.. sl
0250A0: 75 74 20 3A 20 42 4F 4F 4C 45 41 4E 3B 0D 0A 20 ut : BOOLEAN;..
0250B0: 20 20 20 0D 0A 20 20 20 20 42 45 47 49 4E 20 28 .. BEGIN (
0250C0: 2A 20 73 6F 72 74 65 72 69 6E 67 20 2A 29 0D 0A * sortering *)..
0250D0: 20 20 20 20 20 20 69 20 3A 3D 20 61 6E 74 61 6C i := antal
0250E0: 3B 0D 0A 20 20 20 20 20 20 52 45 50 45 41 54 0D ;.. REPEAT.
0250F0: 0A 20 20 20 20 20 20 20 20 69 20 3A 3D 20 69 20 . i := i
025100: 2B 20 31 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 + 1;..
025110: 20 20 20 20 20 20 61 66 67 6A 6F 72 74 20 3A 3D afgjort :=
025120: 20 54 52 55 45 3B 0D 0A 20 20 20 20 20 20 20 20 TRUE;..
025130: 20 20 20 20 20 20 20 20 57 52 49 54 45 28 27 42 WRITE('B
025140: 20 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 ');..
025150: 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 END;..
025160: 20 20 55 4E 54 49 4C 20 61 66 67 6A 6F 72 74 3B UNTIL afgjort;
025170: 0D 0A 20 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20 .. END;..
025180: 20 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 WRITELN;..
025190: 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 57 52 WRITELN;.. WR
0251A0: 49 54 45 4C 4E 28 27 55 64 20 61 66 20 27 2C 20 ITELN('Ud af ',
0251B0: 61 6E 74 61 6C 2C 20 27 20 73 70 69 6C 20 68 61 antal, ' spil ha
0251C0: 72 20 41 20 76 75 6E 64 65 74 20 27 2C 0D 0A 20 r A vundet ',..
0251D0: 20 20 20 20 20 20 20 20 20 20 20 61 73 65 6A 72 asejr
0251E0: 20 2F 20 61 6E 74 61 6C 20 2A 20 31 30 30 20 3A / antal * 100 :
0251F0: 20 35 20 3A 20 32 2C 20 27 20 25 20 6F 67 20 42 5 : 2, ' % og B
025200: 20 68 61 72 20 76 75 6E 64 65 74 20 27 2C 0D 0A har vundet ',..
025210: 20 20 20 20 20 20 20 20 20 20 20 20 62 73 65 6A bsej
025220: 72 20 2F 20 61 6E 74 61 6C 20 2A 20 31 30 30 20 r / antal * 100
025230: 3A 20 35 20 3A 20 32 2C 20 27 20 25 27 29 3B 0D : 5 : 2, ' %');.
025240: 0A 20 20 45 4E 44 2E 0D 0A 1A 20 27 2C 0D 0A 20 . END.... ',..
025250: 20 20 20 20 20 20 20 20 20 20 20 61 73 65 6A 72 asejr
025260: 20 2F 20 61 6E 74 61 6C 20 2A 20 31 30 30 20 3A / antal * 100 :
025270: 20 35 20 3A 20 32 2C 20 27 20 25 20 6F 67 20 42 5 : 2, ' % og B
025280: A0 00 00 DE 1E E5 AA 3B F9 34 BB 5E 54 07 DB 4F .......;.4.^T..O
025290: B1 A6 76 9A 58 33 4B 40 95 69 71 EF 55 B7 F1 34 ..v.X3K@.iq.U..4
0252A0: B0 9C E8 97 B9 F3 E7 DA 4E D0 7C D2 AB 18 71 8D ........N.|...q.
0252B0: A7 B2 83 A8 EB 77 55 39 EB 71 64 14 A5 92 E0 D4 .....wU9.qd.....
0252C0: FD 0E B2 85 7D D2 13 CD 44 92 1C 2B 4E 9B CE 38 ....}...D..+N..8
0252D0: C4 7C 45 52 41 2C 22 2A 2E 42 41 4B 22 0D 31 2C .|ERA,"*.BAK".1,
0252E0: 30 3A 42 4F 52 44 45 52 20 31 30 0D 1C 7C E2 D5 0:BORDER 10..|..
0252F0: 55 8E 52 C6 0D 38 4C 53 64 F9 A5 91 63 4C B3 95 U.R..8LSd...cL..
025300: 2D 20 31 3B 0D 0A 20 20 20 20 20 20 20 20 73 6C - 1;.. sl
025310: 75 74 20 3A 3D 20 54 52 55 45 3B 0D 0A 20 20 20 ut := TRUE;..
025320: 20 20 20 20 20 46 4F 52 20 6A 20 3A 3D 20 31 20 FOR j := 1
025330: 54 4F 20 69 20 44 4F 0D 0A 20 20 20 20 20 20 20 TO i DO..
025340: 20 20 20 49 46 20 74 28 2E 6A 2E 29 20 3E 20 74 IF t(.j.) > t
025350: 28 2E 6A 20 2B 20 31 2E 29 0D 0A 20 20 20 20 20 (.j + 1.)..
025360: 20 20 20 20 20 20 20 54 48 45 4E 0D 0A 20 20 20 THEN..
025370: 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4E BEGIN
025380: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
025390: 20 20 73 6C 75 74 20 3A 3D 20 46 41 4C 53 45 3B slut := FALSE;
0253A0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
0253B0: 20 20 6E 61 76 6E 20 3A 3D 20 74 28 2E 6A 2E 29 navn := t(.j.)
0253C0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ;..
0253D0: 20 20 20 74 28 2E 6A 2E 29 20 3A 3D 20 74 28 2E t(.j.) := t(.
0253E0: 6A 20 2B 20 31 2E 29 3B 0D 0A 20 20 20 20 20 20 j + 1.);..
0253F0: 20 20 20 20 20 20 20 20 20 20 74 28 2E 6A 20 2B t(.j +
025400: 20 31 2E 29 20 3A 3D 20 6E 61 76 6E 3B 0D 0A 20 1.) := navn;..
025410: 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4E 44 END
025420: 3B 0D 0A 20 20 20 20 20 20 55 4E 54 49 4C 20 28 ;.. UNTIL (
025430: 69 20 3D 20 31 29 20 4F 52 20 73 6C 75 74 3B 0D i = 1) OR slut;.
025440: 0A 20 20 20 20 45 4E 44 3B 20 28 2A 20 73 6F 72 . END; (* sor
025450: 74 65 72 69 6E 67 20 2A 29 0D 0A 20 20 0D 0A 20 tering *).. ..
025460: 20 42 45 47 49 4E 20 28 2A 20 6E 61 76 6E 73 6F BEGIN (* navnso
025470: 72 74 20 2A 29 0D 0A 20 20 20 20 69 6E 64 28 74 rt *).. ind(t
025480: 61 62 65 6C 29 3B 0D 0A 20 20 20 20 73 6F 72 74 abel);.. sort
025490: 65 72 69 6E 67 28 74 61 62 65 6C 29 3B 0D 0A 20 ering(tabel);..
0254A0: 20 20 20 75 64 28 74 61 62 65 6C 29 3B 0D 0A 20 ud(tabel);..
0254B0: 20 45 4E 44 2E 20 28 2A 20 6E 61 76 6E 73 6F 72 END. (* navnsor
0254C0: 74 20 2A 29 0D 0A 1A 44 3B 20 28 2A 20 73 6F 72 t *)...D; (* sor
0254D0: 74 65 72 69 6E 67 20 2A 29 0D 0A 20 20 0D 0A 20 tering *).. ..
0254E0: 20 42 45 47 49 4E 20 28 2A 20 6E 61 76 6E 73 6F BEGIN (* navnso
0254F0: 72 74 20 2A 29 0D 0A 20 20 20 20 69 6E 64 28 74 rt *).. ind(t
025500: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025510: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025520: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025530: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025540: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025550: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025560: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025570: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025580: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025590: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0255A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0255B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0255C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0255D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0255E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0255F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025600: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025610: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025620: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025630: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025640: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025650: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025660: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025670: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025680: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025690: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0256A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0256B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0256C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0256D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0256E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0256F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025700: 1A 97 3F 41 BC A5 C9 B3 06 A2 07 EF 0D 9A 38 93 ..?A..........8.
025710: 43 21 2B 5A 17 1E 21 9F 45 D4 75 3B 28 E2 C4 AF C!+Z..!.E.u;(...
025720: A7 BF DB ED D7 A7 BA 97 F0 8F 63 0C 84 02 13 60 ..........c....`
025730: E0 CA 9A 09 55 10 BD B2 26 E5 0F 20 FC 91 51 B5 ....U...&.. ..Q.
025740: 3D BA BF 6B F0 EF D0 27 7B BB CE BC 74 87 FE 38 =..k...'{...t..8
025750: 31 24 96 2F 56 DC B3 91 5C BB 24 55 1C 14 86 C6 1$./V...\.$U....
025760: DF 33 16 E9 5F 52 07 D6 58 36 A2 F8 03 0E 31 F6 .3.._R..X6....1.
025770: 44 F2 D6 DE 7C BA E7 17 E6 A4 31 22 42 A5 57 D7 D...|.....1"B.W.
025780: 14 E9 A4 72 BE B3 71 7E 39 35 97 79 97 2E B9 2D ...r..q~95.y...-
025790: 4F 0D 06 30 90 F1 61 89 32 D4 1A C0 46 06 7F C8 O..0..a.2...F...
0257A0: 31 DA 9E 04 CC 1D 26 C4 CB B1 57 B7 1C 3D 9C 32 1.....&...W..=.2
0257B0: CF 25 79 6C 71 DC 33 B8 6B 9F BA 58 C2 56 9E 76 .%ylq.3.k..X.V.v
0257C0: 18 D6 40 A9 53 6B 2C 1B 51 FC 01 83 11 F6 84 60 ..@.Sk,.Q......`
0257D0: D6 F1 F6 E7 1D CD F6 2F 9F E1 8A 6B A4 8B 86 A9 ......./...k....
0257E0: 35 DE 2F 9E 5F 24 71 90 C8 82 52 C1 40 C1 83 60 5./._$q...R.@..`
0257F0: 82 0C 6D 4C 19 83 D7 88 D8 0F 32 57 E1 6A 82 8B ..mL......2W.j..
025800: 3D 3D 18 36 27 48 B2 48 7A 43 82 1E BE 75 ED EF ==.6'H.HzC...u..
025810: DD 05 0C 45 A9 AE 38 52 6B 81 FF 55 22 66 FF 08 ...E..8Rk..U"f..
025820: 0F DF 58 30 E8 33 E5 8F 8D 88 3E 07 33 23 AA CF ..X0.3....>.3#..
025830: D3 E5 24 51 7F 64 E2 3D 52 92 6E 2F 1B 34 AC 85 ..$Q.d.=R.n/.4..
025840: 43 4B 15 F6 B8 C5 ED 60 F8 BF 65 94 08 89 AC 60 CK.....`..e....`
025850: 56 B6 55 1A 05 18 AA AA 33 E1 79 59 E7 28 AD 9D V.U.....3.yY.(..
025860: 35 0E 49 51 BF 09 04 93 A4 F0 5C 69 F7 F7 EC C2 5.IQ......\i....
025870: ED 4F F7 F4 AE C3 53 22 01 49 62 52 59 A5 B2 AC .O....S".IbRY...
025880: 35 B4 30 9B C6 A3 E0 8F 05 CF 3A 4C DF 52 04 8C 5.0..£....:L.R..
025890: 6F 0D 12 7F 33 25 14 63 4A 2A 14 9F D6 0C 33 89 o...3%.cJ*....3.
0258A0: 04 25 89 4A 65 94 CA B8 E2 43 1B 66 06 92 7B 86 .%.Je....C.f..{.
0258B0: BB 1C 0E 98 75 BB BB DE CB A6 BF 5A 0B 7B F8 D7 ....u......Z.{..
0258C0: B3 C2 25 EB FC CF DC 24 8A BB 66 40 E9 94 24 C8 ..%....$..f@..$.
0258D0: 48 54 79 87 61 02 61 17 A7 F6 14 EB 38 4A 31 A5 HTy.a.a.....8J1.
0258E0: 6E 29 F7 CA C8 94 A3 34 A4 14 DB 51 24 AB 22 05 n)....£4...Q$.".
0258F0: E3 CA 71 C0 40 F1 5B 91 28 56 92 81 E9 AA 42 E9 ..q.@.[.(V....B.
025900: 20 20 20 20 20 20 20 20 50 52 4F 47 52 41 4D 20 PROGRAM
025910: 6F 72 64 68 79 70 3B 0D 0A 20 20 20 20 20 20 20 ordhyp;..
025920: 20 0D 0A 20 20 20 20 20 20 20 20 20 20 43 4F 4E .. CON
025930: 53 54 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 ST..
025940: 6D 61 78 6F 72 64 6C 61 65 6E 67 64 65 20 3D 20 maxordlaengde =
025950: 32 30 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20;..
025960: 20 62 6F 67 73 74 61 76 65 72 20 3A 20 53 45 54 bogstaver : SET
025970: 20 4F 46 20 43 48 41 52 20 3D 20 28 2E 27 41 27 OF CHAR = (.'A'
025980: 20 2E 2E 20 27 5D 27 2C 20 27 61 27 20 2E 2E 20 .. ']', 'a' ..
025990: 27 7D 27 2E 29 3B 0D 0A 20 20 20 20 20 20 20 20 '}'.);..
0259A0: 20 20 20 20 0D 0A 20 20 20 20 20 20 20 20 20 20 ..
0259B0: 54 59 50 45 0D 0A 20 20 20 20 20 20 20 20 20 20 TYPE..
0259C0: 20 20 6F 72 64 74 79 70 65 20 3D 20 53 54 52 49 ordtype = STRI
0259D0: 4E 47 28 2E 6D 61 78 6F 72 64 6C 61 65 6E 67 64 NG(.maxordlaengd
0259E0: 65 2E 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 e.);..
0259F0: 20 20 70 6F 69 6E 74 65 72 20 3D 20 5E 20 70 6F pointer = ^ po
025A00: 73 74 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 st;..
025A10: 20 70 6F 73 74 20 3D 20 52 45 43 4F 52 44 0D 0A post = RECORD..
025A20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
025A30: 20 20 20 20 20 76 65 6E 73 74 72 65 2C 20 68 6F venstre, ho
025A40: 65 6A 72 65 20 3A 20 70 6F 69 6E 74 65 72 3B 0D ejre : pointer;.
025A50: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
025A60: 20 20 20 20 20 20 6F 72 64 5F 20 3A 20 6F 72 64 ord_ : ord
025A70: 74 79 70 65 3B 0D 0A 20 20 20 20 20 20 20 20 20 type;..
025A80: 20 20 20 20 20 20 20 20 20 20 20 20 6F 72 64 74 ordt
025A90: 61 65 6C 6C 65 72 20 3A 20 49 4E 54 45 47 45 52 aeller : INTEGER
025AA0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ;..
025AB0: 20 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 END;..
025AC0: 20 20 20 20 20 20 0D 0A 20 20 20 20 20 20 20 20 ..
025AD0: 20 20 56 41 52 0D 0A 20 20 20 20 20 20 20 20 20 VAR..
025AE0: 20 20 20 6F 72 64 74 72 61 65 20 3A 20 70 6F 69 ordtrae : poi
025AF0: 6E 74 65 72 3B 0D 0A 20 20 20 20 20 20 20 20 20 nter;..
025B00: 50 52 4F 47 52 41 4D 20 6E 79 67 61 61 72 64 3B PROGRAM nygaard;
025B10: 0D 0A 0D 0A 20 20 56 41 52 0D 0A 20 20 20 20 61 .... VAR.. a
025B20: 73 65 6B 76 65 6E 73 2C 20 62 73 65 6B 76 65 6E sekvens, bsekven
025B30: 73 2C 20 61 73 65 6A 72 2C 20 62 73 65 6A 72 2C s, asejr, bsejr,
025B40: 20 61 6E 74 61 6C 20 3A 20 49 4E 54 45 47 45 52 antal : INTEGER
025B50: 3B 0D 0A 20 20 20 20 69 2C 20 70 2C 20 71 2C 20 ;.. i, p, q,
025B60: 72 2C 20 73 2C 20 73 75 6D 20 3A 20 49 4E 54 45 r, s, sum : INTE
025B70: 47 45 52 3B 0D 0A 20 20 20 20 61 66 67 6A 6F 72 GER;.. afgjor
025B80: 74 20 3A 20 42 4F 4F 4C 45 41 4E 3B 0D 0A 20 20 t : BOOLEAN;..
025B90: 0D 0A 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 57 .. BEGIN.. W
025BA0: 52 49 54 45 28 43 4C 52 48 4F 4D 29 3B 0D 0A 20 RITE(CLRHOM);..
025BB0: 20 20 20 57 52 49 54 45 28 27 54 61 73 74 20 41 WRITE('Tast A
025BC0: 27 27 73 20 76 69 6E 64 65 72 73 65 6B 76 65 6E ''s vindersekven
025BD0: 73 20 28 66 2E 65 6B 73 2E 20 31 30 31 31 29 3A s (f.eks. 1011):
025BE0: 20 27 29 3B 20 52 45 41 44 4C 4E 28 61 73 65 6B '); READLN(asek
025BF0: 76 65 6E 73 29 3B 0D 0A 20 20 20 20 57 52 49 54 vens);.. WRIT
025C00: 45 28 27 54 61 73 74 20 42 27 27 73 20 76 69 6E E('Tast B''s vin
025C10: 64 65 72 73 65 6B 76 65 6E 73 20 20 20 20 20 20 dersekvens
025C20: 20 20 20 20 20 20 20 20 3A 20 27 29 3B 20 52 45 : '); RE
025C30: 41 44 4C 4E 28 62 73 65 6B 76 65 6E 73 29 3B 0D ADLN(bsekvens);.
025C40: 0A 20 20 20 20 57 52 49 54 45 28 27 54 61 73 74 . WRITE('Tast
025C50: 20 61 6E 74 61 6C 20 73 70 69 6C 20 20 20 20 20 antal spil
025C60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
025C70: 3A 20 27 29 3B 20 52 45 41 44 4C 4E 28 61 6E 74 : '); READLN(ant
025C80: 61 6C 29 3B 0D 0A 20 20 20 20 52 41 4E 44 4F 4D al);.. RANDOM
025C90: 49 5A 45 3B 0D 0A 20 20 20 20 61 73 65 6A 72 20 IZE;.. asejr
025CA0: 3A 3D 20 30 3B 0D 0A 20 20 20 20 62 73 65 6A 72 := 0;.. bsejr
025CB0: 20 3A 3D 20 30 3B 0D 0A 20 20 20 20 46 4F 52 20 := 0;.. FOR
025CC0: 69 20 3A 3D 20 31 20 54 4F 20 61 6E 74 61 6C 20 i := 1 TO antal
025CD0: 44 4F 0D 0A 20 20 20 20 20 20 42 45 47 49 4E 0D DO.. BEGIN.
025CE0: 0A 20 20 20 20 20 20 20 20 71 20 3A 3D 20 52 41 . q := RA
025CF0: 4E 44 4F 4D 28 32 29 3B 0D 0A 20 20 20 20 20 20 NDOM(2);..
025D00: 20 20 20 6E 61 65 73 74 65 6F 72 64 20 3A 20 6F naesteord : o
025D10: 72 64 74 79 70 65 3B 0D 0A 20 20 20 20 20 20 20 rdtype;..
025D20: 20 20 20 20 20 66 69 6C 6E 61 76 6E 20 3A 20 53 filnavn : S
025D30: 54 52 49 4E 47 28 2E 31 34 2E 29 3B 0D 0A 20 20 TRING(.14.);..
025D40: 20 20 20 20 20 20 20 20 20 20 69 6E 64 66 69 6C indfil
025D50: 20 3A 20 54 45 58 54 3B 0D 0A 20 20 20 20 20 20 : TEXT;..
025D60: 20 20 20 20 0D 0A 20 20 20 20 20 20 20 20 20 20 ..
025D70: 50 52 4F 43 45 44 55 52 45 20 6C 61 65 73 6F 72 PROCEDURE laesor
025D80: 64 28 56 41 52 20 73 74 72 65 6E 67 20 3A 20 6F d(VAR streng : o
025D90: 72 64 74 79 70 65 29 3B 0D 0A 20 20 20 20 20 20 rdtype);..
025DA0: 20 20 20 20 0D 0A 20 20 20 20 20 20 20 20 20 20 ..
025DB0: 20 20 56 41 52 0D 0A 20 20 20 20 20 20 20 20 20 VAR..
025DC0: 20 20 20 20 20 74 61 65 6C 6C 65 72 20 3A 20 30 taeller : 0
025DD0: 20 2E 2E 20 6D 61 78 6F 72 64 6C 61 65 6E 67 64 .. maxordlaengd
025DE0: 65 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 e;..
025DF0: 20 20 63 68 20 3A 20 43 48 41 52 3B 0D 0A 20 20 ch : CHAR;..
025E00: 20 20 20 20 20 20 20 20 20 20 0D 0A 20 20 20 20 ..
025E10: 20 20 20 20 20 20 20 20 46 55 4E 43 54 49 4F 4E FUNCTION
025E20: 20 73 6D 61 61 62 6F 67 73 74 61 76 65 72 28 73 smaabogstaver(s
025E30: 74 72 65 6E 67 20 3A 20 6F 72 64 74 79 70 65 29 treng : ordtype)
025E40: 20 3A 20 6F 72 64 74 79 70 65 3B 0D 0A 20 20 20 : ordtype;..
025E50: 20 20 20 20 20 20 20 20 20 0D 0A 20 20 20 20 20 ..
025E60: 20 20 20 20 20 20 20 20 20 56 41 52 0D 0A 20 20 VAR..
025E70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 20 t
025E80: 3A 20 31 20 2E 2E 20 6D 61 78 6F 72 64 6C 61 65 : 1 .. maxordlae
025E90: 6E 67 64 65 3B 0D 0A 20 20 20 20 20 20 20 20 20 ngde;..
025EA0: 20 20 20 20 20 20 20 73 20 3A 20 6F 72 64 74 79 s : ordty
025EB0: 70 65 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 pe;..
025EC0: 20 20 20 0D 0A 20 20 20 20 20 20 20 20 20 20 20 ..
025ED0: 20 20 20 42 45 47 49 4E 20 28 2A 20 73 6D 61 61 BEGIN (* smaa
025EE0: 62 6F 67 73 74 61 76 65 72 20 2A 29 0D 0A 20 20 bogstaver *)..
025EF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 20 s
025F00: 20 20 72 20 3A 3D 20 52 41 4E 44 4F 4D 28 32 29 r := RANDOM(2)
025F10: 3B 0D 0A 20 20 20 20 20 20 20 20 73 20 3A 3D 20 ;.. s :=
025F20: 52 41 4E 44 4F 4D 28 32 29 3B 0D 0A 20 20 20 20 RANDOM(2);..
025F30: 20 20 20 20 52 45 50 45 41 54 0D 0A 20 20 20 20 REPEAT..
025F40: 20 20 20 20 20 20 61 66 67 6A 6F 72 74 20 3A 3D afgjort :=
025F50: 20 46 41 4C 53 45 3B 0D 0A 20 20 20 20 20 20 20 FALSE;..
025F60: 20 20 20 70 20 3A 3D 20 71 3B 0D 0A 20 20 20 20 p := q;..
025F70: 20 20 20 20 20 20 71 20 3A 3D 20 72 3B 0D 0A 20 q := r;..
025F80: 20 20 20 20 20 20 20 20 20 72 20 3A 3D 20 73 3B r := s;
025F90: 0D 0A 20 20 20 20 20 20 20 20 20 20 73 20 3A 3D .. s :=
025FA0: 20 52 41 4E 44 4F 4D 28 32 29 3B 0D 0A 20 20 20 RANDOM(2);..
025FB0: 20 20 20 20 20 20 20 73 75 6D 20 3A 3D 20 70 20 sum := p
025FC0: 2A 20 31 30 30 30 20 2B 20 71 20 2A 20 31 30 30 * 1000 + q * 100
025FD0: 20 2B 20 72 20 2A 20 31 30 20 2B 20 73 3B 0D 0A + r * 10 + s;..
025FE0: 20 20 20 20 20 20 20 20 20 20 49 46 20 73 75 6D IF sum
025FF0: 20 3D 20 61 73 65 6B 76 65 6E 73 0D 0A 20 20 20 = asekvens..
026000: 20 20 20 20 20 20 20 20 20 54 48 45 4E 0D 0A 20 THEN..
026010: 20 20 20 20 20 20 20 20 20 20 20 20 20 42 45 47 BEG
026020: 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 IN..
026030: 20 20 20 20 61 73 65 6A 72 20 3A 3D 20 61 73 65 asejr := ase
026040: 6A 72 20 2B 20 31 3B 0D 0A 20 20 20 20 20 20 20 jr + 1;..
026050: 20 20 20 20 20 20 20 20 20 61 66 67 6A 6F 72 74 afgjort
026060: 20 3A 3D 20 54 52 55 45 3B 0D 0A 20 20 20 20 20 := TRUE;..
026070: 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 WRITE
026080: 28 27 41 20 27 29 3B 0D 0A 20 20 20 20 20 20 20 ('A ');..
026090: 20 20 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 END;..
0260A0: 20 20 20 20 20 20 20 49 46 20 73 75 6D 20 3D 20 IF sum =
0260B0: 62 73 65 6B 76 65 6E 73 0D 0A 20 20 20 20 20 20 bsekvens..
0260C0: 20 20 20 20 20 20 54 48 45 4E 0D 0A 20 20 20 20 THEN..
0260D0: 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4E 0D BEGIN.
0260E0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
0260F0: 20 62 73 65 6A 72 20 3A 3D 20 62 73 65 6A 72 20 bsejr := bsejr
026100: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
026110: 20 00 01 00 02 09 52 E5 20 00 41 02 00 00 00 02 .....R. .A.....
026120: 20 00 46 02 00 00 00 02 20 00 42 02 00 00 00 02 .F..... .B.....
026130: 20 00 47 02 00 00 00 02 20 00 43 02 00 00 00 02 .G..... .C.....
026140: 20 00 48 02 00 00 00 02 20 00 44 02 00 00 00 02 .H..... .D.....
026150: 20 00 49 02 00 00 00 02 20 00 45 02 00 00 00 02 .I..... .E.....
026160: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
026170: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
026180: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
026190: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0261A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0261B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0261C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0261D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0261E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0261F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
026200: 3A 3D 20 27 27 3B 0D 0A 20 20 20 20 20 20 20 20 := '';..
026210: 20 20 20 20 20 20 20 20 46 4F 52 20 74 20 3A 3D FOR t :=
026220: 20 31 20 54 4F 20 4C 45 4E 28 73 74 72 65 6E 67 1 TO LEN(streng
026230: 29 20 44 4F 0D 0A 20 20 20 20 20 20 20 20 20 20 ) DO..
026240: 20 20 20 20 20 20 20 20 49 46 20 28 73 74 72 65 IF (stre
026250: 6E 67 28 2E 74 2E 29 20 3E 3D 20 27 41 27 29 20 ng(.t.) >= 'A')
026260: 41 4E 44 20 28 73 74 72 65 6E 67 28 2E 74 2E 29 AND (streng(.t.)
026270: 20 3C 3D 20 27 5D 27 29 0D 0A 20 20 20 20 20 20 <= ']')..
026280: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 48 TH
026290: 45 4E 20 73 20 3A 3D 20 73 20 2B 20 43 48 52 28 EN s := s + CHR(
0262A0: 4F 52 44 28 73 74 72 65 6E 67 28 2E 74 2E 29 29 ORD(streng(.t.))
0262B0: 20 2B 20 33 32 29 0D 0A 20 20 20 20 20 20 20 20 + 32)..
0262C0: 20 20 20 20 20 20 20 20 20 20 20 20 45 4C 53 45 ELSE
0262D0: 20 73 20 3A 3D 20 73 20 2B 20 73 74 72 65 6E 67 s := s + streng
0262E0: 28 2E 74 2E 29 3B 0D 0A 20 20 20 20 20 20 20 20 (.t.);..
0262F0: 20 20 20 20 20 20 20 20 73 6D 61 61 62 6F 67 73 smaabogs
026300: 74 61 76 65 72 20 3A 3D 20 73 3B 0D 0A 20 20 20 taver := s;..
026310: 20 20 20 20 20 20 20 20 20 20 20 45 4E 44 3B 20 END;
026320: 28 2A 20 73 6D 61 61 62 6F 67 73 74 61 76 65 72 (* smaabogstaver
026330: 20 2A 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20 *)..
026340: 20 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 42 .. B
026350: 45 47 49 4E 20 28 2A 20 6C 61 65 73 6F 72 64 20 EGIN (* laesord
026360: 2A 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 *)..
026370: 20 20 49 46 20 4E 4F 54 20 45 4F 46 28 69 6E 64 IF NOT EOF(ind
026380: 66 69 6C 29 0D 0A 20 20 20 20 20 20 20 20 20 20 fil)..
026390: 20 20 20 20 20 20 54 48 45 4E 0D 0A 20 20 20 20 THEN..
0263A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 RE
0263B0: 50 45 41 54 0D 0A 20 20 20 20 20 20 20 20 20 20 PEAT..
0263C0: 20 20 20 20 20 20 20 20 20 20 52 45 41 44 28 69 READ(i
0263D0: 6E 64 66 69 6C 2C 20 63 68 29 3B 0D 0A 20 20 20 ndfil, ch);..
0263E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 55 U
0263F0: 4E 54 49 4C 20 45 4F 46 28 69 6E 64 66 69 6C 29 NTIL EOF(indfil)
026400: 6B 72 69 76 6F 72 64 20 2A 29 0D 0A 20 20 20 20 krivord *)..
026410: 20 20 20 20 20 20 0D 0A 20 20 20 20 20 20 20 20 ..
026420: 20 20 42 45 47 49 4E 20 28 2A 20 6F 72 64 68 79 BEGIN (* ordhy
026430: 70 20 2A 29 0D 0A 20 20 20 20 20 20 20 20 20 20 p *)..
026440: 20 20 57 52 49 54 45 28 43 4C 52 48 4F 4D 29 3B WRITE(CLRHOM);
026450: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 6F 72 .. or
026460: 64 74 72 61 65 20 3A 3D 20 4E 49 4C 3B 0D 0A 20 dtrae := NIL;..
026470: 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 WRITE
026480: 28 27 48 76 69 6C 6B 65 6E 20 66 69 6C 20 73 6B ('Hvilken fil sk
026490: 61 6C 20 6F 70 74 61 65 6C 6C 65 73 3A 20 27 29 al optaelles: ')
0264A0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 42 ;.. B
0264B0: 55 46 4C 45 4E 20 3A 3D 20 31 34 3B 0D 0A 20 20 UFLEN := 14;..
0264C0: 20 20 20 20 20 20 20 20 20 20 52 45 41 44 4C 4E READLN
0264D0: 28 66 69 6C 6E 61 76 6E 29 3B 0D 0A 20 20 20 20 (filnavn);..
0264E0: 20 20 20 20 20 20 20 20 41 53 53 49 47 4E 28 69 ASSIGN(i
0264F0: 6E 64 66 69 6C 2C 20 66 69 6C 6E 61 76 6E 29 3B ndfil, filnavn);
026500: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 52 45 .. RE
026510: 53 45 54 28 69 6E 64 66 69 6C 29 3B 0D 0A 20 20 SET(indfil);..
026520: 20 20 20 20 20 20 20 20 20 20 57 48 49 4C 45 20 WHILE
026530: 4E 4F 54 20 45 4F 46 28 69 6E 64 66 69 6C 29 20 NOT EOF(indfil)
026540: 44 4F 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 DO..
026550: 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 BEGIN..
026560: 20 20 20 20 20 20 20 20 20 6C 61 65 73 6F 72 64 laesord
026570: 28 6E 61 65 73 74 65 6F 72 64 29 3B 0D 0A 20 20 (naesteord);..
026580: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 IF
026590: 20 4E 4F 54 20 45 4F 46 28 69 6E 64 66 69 6C 29 NOT EOF(indfil)
0265A0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
0265B0: 20 20 20 20 54 48 45 4E 20 67 65 6D 6F 72 64 28 THEN gemord(
0265C0: 6F 72 64 74 72 61 65 2C 20 6E 61 65 73 74 65 6F ordtrae, naesteo
0265D0: 72 64 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 rd);..
0265E0: 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 END;..
0265F0: 20 20 20 20 20 20 43 4C 4F 53 45 28 69 6E 64 66 CLOSE(indf
026600: 20 4F 52 20 28 63 68 20 49 4E 20 62 6F 67 73 74 OR (ch IN bogst
026610: 61 76 65 72 29 3B 0D 0A 20 20 20 20 20 20 20 20 aver);..
026620: 20 20 20 20 20 20 73 74 72 65 6E 67 20 3A 3D 20 streng :=
026630: 27 27 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 '';..
026640: 20 20 20 49 46 20 4E 4F 54 20 45 4F 46 28 69 6E IF NOT EOF(in
026650: 64 66 69 6C 29 0D 0A 20 20 20 20 20 20 20 20 20 dfil)..
026660: 20 20 20 20 20 20 20 54 48 45 4E 0D 0A 20 20 20 THEN..
026670: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 B
026680: 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 EGIN..
026690: 20 20 20 20 20 20 20 20 20 20 74 61 65 6C 6C 65 taelle
0266A0: 72 20 3A 3D 20 30 3B 0D 0A 20 20 20 20 20 20 20 r := 0;..
0266B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 57 48 49 WHI
0266C0: 4C 45 20 63 68 20 49 4E 20 62 6F 67 73 74 61 76 LE ch IN bogstav
0266D0: 65 72 20 44 4F 0D 0A 20 20 20 20 20 20 20 20 20 er DO..
0266E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 42 45 47 BEG
0266F0: 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 IN..
026700: 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 74 IF t
026710: 61 65 6C 6C 65 72 20 3C 20 6D 61 78 6F 72 64 6C aeller < maxordl
026720: 61 65 6E 67 64 65 0D 0A 20 20 20 20 20 20 20 20 aengde..
026730: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
026740: 20 20 54 48 45 4E 0D 0A 20 20 20 20 20 20 20 20 THEN..
026750: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
026760: 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 BEGIN..
026770: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
026780: 20 20 20 20 20 20 20 20 20 74 61 65 6C 6C 65 72 taeller
026790: 20 3A 3D 20 74 61 65 6C 6C 65 72 20 2B 20 31 3B := taeller + 1;
0267A0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
0267B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0267C0: 73 74 72 65 6E 67 20 3A 3D 20 73 74 72 65 6E 67 streng := streng
0267D0: 20 2B 20 63 68 3B 0D 0A 20 20 20 20 20 20 20 20 + ch;..
0267E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0267F0: 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 END;..
026800: 69 6C 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 il);..
026810: 20 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 WRITELN;..
026820: 20 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E 28 WRITELN(
026830: 27 48 79 70 70 69 67 68 65 64 73 66 6F 72 64 65 'Hyppighedsforde
026840: 6C 69 6E 67 20 61 66 20 6F 72 64 65 6E 65 20 69 ling af ordene i
026850: 20 66 69 6C 65 6E 3A 20 27 2C 20 66 69 6C 6E 61 filen: ', filna
026860: 76 6E 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 vn);..
026870: 20 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 WRITELN;..
026880: 20 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E 28 WRITELN(
026890: 27 48 59 50 50 49 47 48 45 44 20 20 4F 52 44 27 'HYPPIGHED ORD'
0268A0: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 );..
0268B0: 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 20 20 WRITELN;..
0268C0: 20 20 20 20 20 20 73 6B 72 69 76 6F 72 64 28 6F skrivord(o
0268D0: 72 64 74 72 61 65 29 3B 0D 0A 20 20 20 20 20 20 rdtrae);..
0268E0: 20 20 20 20 45 4E 44 2E 20 28 2A 20 6F 72 64 68 END. (* ordh
0268F0: 79 70 20 2A 29 0D 0A 1A 4E 3B 0D 0A 20 20 20 20 yp *)...N;..
026900: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
026910: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
026920: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
026930: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
026940: 00 00 00 18 3C 7E FF 18 18 18 18 18 18 18 18 FF ....<~..........
026950: 7E 3C 18 10 30 70 FF FF 70 30 10 08 0C 0E FF FF ~<..0p..p0......
026960: 0E 0C 08 00 00 18 3C 7E FF FF 00 00 00 FF FF 7E ......<~.......~
026970: 3C 18 00 80 E0 F8 FE F8 E0 80 00 02 0E 3E FE 3E <............>.>
026980: 0E 02 00 38 38 92 7C 10 28 28 28 38 38 10 FE 10 ...88.|.(((88...
026990: 28 44 82 38 38 12 7C 90 28 24 22 38 38 90 7C 12 (D.88.|.($"88.|.
0269A0: 28 48 88 00 3C 18 3C 3C 3C 18 00 3C FF FF 18 0C (H..<.<<<..<....
0269B0: 18 30 18 18 3C 7E 18 18 7E 3C 18 00 24 66 FF 66 .0..<~..~<..$f.f
0269C0: 24 00 00 E5 A0 01 00 00 FC 1A 0B 16 F6 41 BC 70 $............A.p
0269D0: 7B ED EB 8F 57 F1 F7 4D DB 53 EC BD 86 62 B8 0F {...W..M.S...b..
0269E0: F2 AD 8B E9 04 0F 1C 8E 9C 8D 33 68 38 72 2C DE ..........3h8r,.
0269F0: F5 C5 3A 1C AD 4F CD 0F B9 79 32 15 AD C1 F1 ED ..:..O...y2.....
026A00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
026A10: 20 20 49 46 20 4E 4F 54 20 45 4F 46 28 69 6E 64 IF NOT EOF(ind
026A20: 66 69 6C 29 0D 0A 20 20 20 20 20 20 20 20 20 20 fil)..
026A30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
026A40: 54 48 45 4E 20 52 45 41 44 28 69 6E 64 66 69 6C THEN READ(indfil
026A50: 2C 20 63 68 29 0D 0A 20 20 20 20 20 20 20 20 20 , ch)..
026A60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
026A70: 20 45 4C 53 45 20 63 68 20 3A 3D 20 27 20 27 3B ELSE ch := ' ';
026A80: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
026A90: 20 20 20 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20 END;..
026AA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
026AB0: 45 4E 44 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 END;..
026AC0: 20 20 20 20 73 74 72 65 6E 67 20 3A 3D 20 73 6D streng := sm
026AD0: 61 61 62 6F 67 73 74 61 76 65 72 28 73 74 72 65 aabogstaver(stre
026AE0: 6E 67 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 ng);..
026AF0: 20 20 45 4E 44 3B 20 28 2A 20 6C 61 65 73 6F 72 END; (* laesor
026B00: 64 20 2A 29 0D 0A 20 20 20 20 20 20 20 20 20 20 d *)..
026B10: 0D 0A 20 20 20 20 20 20 20 20 20 20 50 52 4F 43 .. PROC
026B20: 45 44 55 52 45 20 67 65 6D 6F 72 64 28 56 41 52 EDURE gemord(VAR
026B30: 20 74 72 61 65 20 3A 20 70 6F 69 6E 74 65 72 3B trae : pointer;
026B40: 20 73 74 72 65 6E 67 20 3A 20 6F 72 64 74 79 70 streng : ordtyp
026B50: 65 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 0D e);.. .
026B60: 0A 20 20 20 20 20 20 20 20 20 20 20 20 42 45 47 . BEG
026B70: 49 4E 20 28 2A 20 67 65 6D 6F 72 64 20 2A 29 0D IN (* gemord *).
026B80: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 . I
026B90: 46 20 74 72 61 65 20 3D 20 4E 49 4C 0D 0A 20 20 F trae = NIL..
026BA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 48 TH
026BB0: 45 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 EN..
026BC0: 20 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 BEGIN..
026BD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
026BE0: 20 4E 45 57 28 74 72 61 65 29 3B 0D 0A 20 20 20 NEW(trae);..
026BF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
026C00: E0 40 F0 80 10 17 F0 03 90 33 15 02 00 77 FF 4C .@.......3...w.L
026C10: 00 11 88 77 FF 88 AE AF 33 15 02 10 00 70 80 07 ...w....3....p..
026C20: 0F 13 0C 40 15 02 EE 00 FF 8C 00 33 FF 77 FF 98 ...@.......3.w..
026C30: 5F 09 15 02 CC C0 A0 F0 A0 A1 0E 17 A0 07 B0 A0 _...............
026C40: B0 A0 A0 90 11 15 02 CC 11 CE 00 33 FF 77 FF EF ...........3.w..
026C50: AF 9D 15 02 30 10 50 F0 90 50 1E 17 50 03 70 17 ....0.P..P..P.p.
026C60: 50 04 D0 50 D0 50 40 60 77 15 02 88 23 00 77 FF P..P.P@`w...#.w.
026C70: 77 FF 9B 5F 5F FF CC C0 A0 A0 F0 A0 A0 C0 A0 E0 w..__...........
026C80: 17 A0 03 B0 A0 A0 E0 17 A0 04 90 91 15 03 88 09 ................
026C90: 7F FF 77 CC 01 AF BB FF 30 10 50 50 F0 94 40 10 ..w.....0.PP..@.
026CA0: 50 D0 50 70 50 50 D0 50 70 50 50 D0 50 40 60 77 P.PpPP.PpPP.P@`w
026CB0: 15 03 07 1F FF 66 10 C1 0F 77 CC C0 17 F0 04 30 .....f...w.....0
026CC0: E0 00 17 F0 0E 90 91 FF EF 17 0F 03 3B 00 30 E0 ............;.0.
026CD0: 33 BB B8 13 17 60 77 8F 0D 17 0F 03 11 30 F0 33 3....`w......0.3
026CE0: EF C8 17 A0 03 E0 13 02 E0 00 30 17 A0 05 E0 A0 ..........0.....
026CF0: A0 E0 17 A0 05 90 80 0E 0B 0E 0F 0F 66 30 F0 31 ............f0.1
026D00: EF 18 17 50 03 D0 00 10 C0 00 17 50 03 70 17 50 ...P.......P.p.P
026D10: 05 70 50 50 70 50 50 40 61 0D 05 0D 0D 0F 66 30 .pPPpPP@a.....f0
026D20: F0 71 CC AC A0 A0 B0 A0 A0 B0 A0 A0 B0 17 A0 08 .q..............
026D30: B0 A0 A0 B0 17 A0 03 83 0A 0B 0B 0A 0F 66 30 F0 .............f0.
026D40: 60 11 5C 17 50 05 70 50 50 70 50 50 70 50 50 70 `.\.P.pPPpPPpPPp
026D50: 17 50 03 D0 50 50 D0 50 50 43 04 07 07 05 07 66 .P..PP.PPC.....f
026D60: 30 F0 60 27 AC A0 B0 17 A0 03 E0 17 A0 08 B0 17 0.`'............
026D70: A0 03 E0 17 A0 05 83 0A 0E 0E 0A 0F 66 10 F0 40 ............f..@
026D80: F0 70 17 F0 18 83 0E 01 0D 05 0F 66 10 F0 90 F0 .p.........f....
026D90: 13 19 03 0E 03 0A 0A 0F 66 10 F0 B0 E0 17 50 05 ........f.....P.
026DA0: 70 17 50 06 70 17 50 03 D0 50 50 70 17 50 03 70 p.P.p.P..PPp.P.p
026DB0: 50 07 0C 05 01 05 0D 54 40 E0 B0 C0 A0 E0 17 A0 P......T@.......
026DC0: 03 E0 17 A0 0A E0 A0 A0 B0 17 A0 03 B0 A0 87 0C ................
026DD0: 0A 02 0B 0B 70 60 60 B0 90 50 D0 17 50 03 D0 17 ....p``..P..P...
026DE0: 50 03 D0 50 50 70 17 50 0C 07 08 04 05 07 07 40 P..PPp.P.......@
026DF0: 70 70 F0 20 B0 17 A0 03 B0 17 A0 03 B0 17 A0 0F pp. ............
026E00: 20 57 49 54 48 20 74 72 61 65 5E 20 44 4F 0D 0A WITH trae^ DO..
026E10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
026E20: 20 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 BEGIN..
026E30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
026E40: 20 20 20 20 20 76 65 6E 73 74 72 65 20 3A 3D 20 venstre :=
026E50: 4E 49 4C 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 NIL;..
026E60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 68 6F ho
026E70: 65 6A 72 65 20 3A 3D 20 4E 49 4C 3B 0D 0A 20 20 ejre := NIL;..
026E80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
026E90: 20 20 20 20 20 20 6F 72 64 5F 20 3A 3D 20 73 74 ord_ := st
026EA0: 72 65 6E 67 3B 0D 0A 20 20 20 20 20 20 20 20 20 reng;..
026EB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6F o
026EC0: 72 64 74 61 65 6C 6C 65 72 20 3A 3D 20 31 3B 0D rdtaeller := 1;.
026ED0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
026EE0: 20 20 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 END;..
026EF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 E
026F00: 4E 44 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 ND..
026F10: 20 20 20 20 45 4C 53 45 20 0D 0A 20 20 20 20 20 ELSE ..
026F20: 20 20 20 20 20 20 20 20 20 20 20 20 20 57 49 54 WIT
026F30: 48 20 74 72 61 65 5E 20 44 4F 0D 0A 20 20 20 20 H trae^ DO..
026F40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
026F50: 49 46 20 73 74 72 65 6E 67 20 3C 20 6F 72 64 5F IF streng < ord_
026F60: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
026F70: 20 20 20 20 20 20 20 20 54 48 45 4E 20 67 65 6D THEN gem
026F80: 6F 72 64 28 76 65 6E 73 74 72 65 2C 20 73 74 72 ord(venstre, str
026F90: 65 6E 67 29 0D 0A 20 20 20 20 20 20 20 20 20 20 eng)..
026FA0: 20 20 20 20 20 20 20 20 20 20 45 4C 53 45 20 49 ELSE I
026FB0: 46 20 73 74 72 65 6E 67 20 3E 20 6F 72 64 5F 0D F streng > ord_.
026FC0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
026FD0: 20 20 20 20 20 20 20 54 48 45 4E 20 67 65 6D 6F THEN gemo
026FE0: 72 64 28 68 6F 65 6A 72 65 2C 20 73 74 72 65 6E rd(hoejre, stren
026FF0: 67 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 g)..
027000: 50 52 4F 47 52 41 4D 20 6F 76 65 72 66 5F 31 3B PROGRAM overf_1;
027010: 0D 0A 0D 0A 20 20 56 41 52 0D 0A 20 20 20 20 6F .... VAR.. o
027020: 65 6E 73 6B 65 20 3A 20 49 4E 54 45 47 45 52 3B enske : INTEGER;
027030: 0D 0A 20 20 20 20 6C 61 65 6E 67 64 65 2C 20 62 .. laengde, b
027040: 72 65 64 64 65 2C 20 68 6F 65 6A 64 65 2C 20 6F redde, hoejde, o
027050: 76 65 72 66 6C 61 64 65 2C 20 74 6F 74 61 6C 6F verflade, totalo
027060: 76 65 72 66 6C 61 64 65 20 3A 20 52 45 41 4C 3B verflade : REAL;
027070: 0D 0A 20 20 20 20 72 61 64 69 75 73 2C 20 73 69 .. radius, si
027080: 64 65 2C 20 72 31 2C 20 72 32 20 3A 20 52 45 41 de, r1, r2 : REA
027090: 4C 3B 0D 0A 20 20 0D 0A 20 20 42 45 47 49 4E 0D L;.. .. BEGIN.
0270A0: 0A 20 20 20 20 57 52 49 54 45 28 43 4C 52 48 4F . WRITE(CLRHO
0270B0: 4D 29 3B 0D 0A 20 20 20 20 57 52 49 54 45 4C 4E M);.. WRITELN
0270C0: 28 27 4F 20 56 20 45 20 52 20 46 20 4C 20 41 20 ('O V E R F L A
0270D0: 44 20 45 20 20 20 41 20 46 20 3A 27 29 3B 0D 0A D E A F :');..
0270E0: 20 20 20 20 57 52 49 54 45 4C 4E 28 27 2D 2D 2D WRITELN('---
0270F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
027100: 2D 2D 2D 2D 2D 2D 27 29 3B 0D 0A 20 20 20 20 57 ------');.. W
027110: 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 57 52 49 RITELN;.. WRI
027120: 54 45 4C 4E 28 27 4B 41 53 53 45 20 2E 2E 2E 2E TELN('KASSE ....
027130: 2E 2E 2E 2E 2E 2E 2E 2E 2E 20 74 61 73 74 20 31 ......... tast 1
027140: 27 29 3B 0D 0A 20 20 20 20 57 52 49 54 45 4C 4E ');.. WRITELN
027150: 28 27 43 59 4C 49 4E 44 45 52 20 2E 2E 2E 2E 2E ('CYLINDER .....
027160: 2E 2E 2E 2E 2E 20 74 61 73 74 20 32 27 29 3B 0D ..... tast 2');.
027170: 0A 20 20 20 20 57 52 49 54 45 4C 4E 28 27 4B 45 . WRITELN('KE
027180: 47 4C 45 20 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E GLE ............
027190: 2E 20 74 61 73 74 20 33 27 29 3B 0D 0A 20 20 20 . tast 3');..
0271A0: 20 57 52 49 54 45 4C 4E 28 27 4B 45 47 4C 45 53 WRITELN('KEGLES
0271B0: 54 55 42 20 2E 2E 2E 2E 2E 2E 2E 2E 2E 20 74 61 TUB ......... ta
0271C0: 73 74 20 34 27 29 3B 0D 0A 20 20 20 20 57 52 49 st 4');.. WRI
0271D0: 54 45 4C 4E 28 27 4B 55 47 4C 45 20 2E 2E 2E 2E TELN('KUGLE ....
0271E0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 20 74 61 73 74 20 35 ......... tast 5
0271F0: 27 29 3B 0D 0A 20 20 20 20 57 52 49 54 45 4C 4E ');.. WRITELN
027200: 20 20 20 20 20 20 20 20 45 4C 53 45 0D 0A 20 20 ELSE..
027210: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
027220: 20 20 20 20 6F 72 64 74 61 65 6C 6C 65 72 20 3A ordtaeller :
027230: 3D 20 6F 72 64 74 61 65 6C 6C 65 72 20 2B 20 31 = ordtaeller + 1
027240: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 45 ;.. E
027250: 4E 44 3B 20 28 2A 20 67 65 6D 6F 72 64 20 2A 29 ND; (* gemord *)
027260: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 0D 0A .. ..
027270: 20 20 20 20 20 20 20 20 20 20 50 52 4F 43 45 44 PROCED
027280: 55 52 45 20 73 6B 72 69 76 6F 72 64 28 74 72 61 URE skrivord(tra
027290: 65 20 3A 20 70 6F 69 6E 74 65 72 29 3B 0D 0A 20 e : pointer);..
0272A0: 20 20 20 20 20 20 20 20 20 0D 0A 20 20 20 20 20 ..
0272B0: 20 20 20 20 20 20 20 42 45 47 49 4E 20 28 2A 20 BEGIN (*
0272C0: 73 6B 72 69 76 6F 72 64 20 2A 29 0D 0A 20 20 20 skrivord *)..
0272D0: 20 20 20 20 20 20 20 20 20 20 20 49 46 20 74 72 IF tr
0272E0: 61 65 20 3C 3E 20 4E 49 4C 0D 0A 20 20 20 20 20 ae <> NIL..
0272F0: 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4E 0D THEN.
027300: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
027310: 20 20 20 57 49 54 48 20 74 72 61 65 5E 20 44 4F WITH trae^ DO
027320: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
027330: 20 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 BEGIN..
027340: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
027350: 20 20 20 73 6B 72 69 76 6F 72 64 28 76 65 6E 73 skrivord(vens
027360: 74 72 65 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 tre);..
027370: 20 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 WRI
027380: 54 45 4C 4E 28 6F 72 64 74 61 65 6C 6C 65 72 20 TELN(ordtaeller
027390: 3A 20 34 2C 20 27 20 20 20 20 20 20 20 27 2C 20 : 4, ' ',
0273A0: 6F 72 64 5F 29 3B 0D 0A 20 20 20 20 20 20 20 20 ord_);..
0273B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 6B sk
0273C0: 72 69 76 6F 72 64 28 68 6F 65 6A 72 65 29 3B 0D rivord(hoejre);.
0273D0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
0273E0: 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 END;..
0273F0: 20 20 20 20 20 20 20 45 4E 44 3B 20 28 2A 20 73 END; (* s
027400: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
027410: 21 00 01 00 02 09 52 E5 21 00 41 02 00 00 00 02 !.....R.!.A.....
027420: 21 00 46 02 00 00 00 02 21 00 42 02 00 00 00 02 !.F.....!.B.....
027430: 21 00 47 02 00 00 00 02 21 00 43 02 00 00 00 02 !.G.....!.C.....
027440: 21 00 48 02 00 00 00 02 21 00 44 02 00 00 00 02 !.H.....!.D.....
027450: 21 00 49 02 00 00 00 02 21 00 45 02 00 00 00 02 !.I.....!.E.....
027460: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
027470: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
027480: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
027490: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0274A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0274B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0274C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0274D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0274E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0274F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
027500: 3B 0D 0A 20 20 20 20 57 52 49 54 45 28 27 49 6E ;.. WRITE('In
027510: 64 74 61 73 74 20 7C 6E 73 6B 65 3A 20 27 29 3B dtast |nske: ');
027520: 20 52 45 41 44 4C 4E 28 6F 65 6E 73 6B 65 29 3B READLN(oenske);
027530: 0D 0A 20 20 20 20 57 52 49 54 45 28 43 4C 52 48 .. WRITE(CLRH
027540: 4F 4D 29 3B 0D 0A 20 20 20 20 0D 0A 20 20 20 20 OM);.. ..
027550: 49 46 20 6F 65 6E 73 6B 65 20 3D 20 31 0D 0A 20 IF oenske = 1..
027560: 20 20 20 20 20 54 48 45 4E 0D 0A 20 20 20 20 20 THEN..
027570: 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 20 BEGIN..
027580: 20 20 20 20 57 52 49 54 45 4C 4E 28 27 4F 56 45 WRITELN('OVE
027590: 52 46 4C 41 44 45 20 41 46 20 45 4E 20 4B 41 53 RFLADE AF EN KAS
0275A0: 53 45 3A 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 SE:');..
0275B0: 20 20 57 52 49 54 45 4C 4E 28 27 2D 2D 2D 2D 2D WRITELN('-----
0275C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0275D0: 2D 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 -');..
0275E0: 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 20 20 WRITELN;..
0275F0: 20 20 20 20 57 52 49 54 45 28 27 49 6E 64 74 61 WRITE('Indta
027600: 73 74 20 6B 61 73 73 65 6E 73 20 62 72 65 64 64 st kassens bredd
027610: 65 3A 20 27 29 3B 20 52 45 41 44 4C 4E 28 62 72 e: '); READLN(br
027620: 65 64 64 65 29 3B 0D 0A 20 20 20 20 20 20 20 20 edde);..
027630: 20 20 57 52 49 54 45 28 27 49 6E 64 74 61 73 74 WRITE('Indtast
027640: 20 6B 61 73 73 65 6E 73 20 6C 7B 6E 67 64 65 3A kassens l{ngde:
027650: 20 27 29 3B 20 52 45 41 44 4C 4E 28 6C 61 65 6E '); READLN(laen
027660: 67 64 65 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 gde);..
027670: 20 57 52 49 54 45 28 27 49 6E 64 74 61 73 74 20 WRITE('Indtast
027680: 6B 61 73 73 65 6E 73 20 68 7C 6A 64 65 3A 20 20 kassens h|jde:
027690: 27 29 3B 20 52 45 41 44 4C 4E 28 68 6F 65 6A 64 '); READLN(hoejd
0276A0: 65 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 57 e);.. W
0276B0: 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 20 20 20 RITELN;..
0276C0: 20 20 20 6F 76 65 72 66 6C 61 64 65 20 3A 3D 20 overflade :=
0276D0: 6C 61 65 6E 67 64 65 20 2A 20 62 72 65 64 64 65 laengde * bredde
0276E0: 20 2B 20 62 72 65 64 64 65 20 2A 20 68 6F 65 6A + bredde * hoej
0276F0: 64 65 20 2B 20 6C 61 65 6E 67 64 65 20 2A 20 68 de + laengde * h
027700: 2A 20 53 51 52 28 72 32 29 3B 0D 0A 20 20 20 20 * SQR(r2);..
027710: 20 20 20 20 20 20 57 52 49 54 45 4C 4E 28 27 4B WRITELN('K
027720: 65 67 6C 65 73 74 75 62 62 65 6E 73 20 6B 72 75 eglestubbens kru
027730: 6D 6D 65 20 6F 76 65 72 66 6C 61 64 65 3A 20 27 mme overflade: '
027740: 2C 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ,..
027750: 20 20 20 20 20 6F 76 65 72 66 6C 61 64 65 20 3A overflade :
027760: 20 31 30 20 3A 20 32 2C 20 27 20 63 6D 32 27 29 10 : 2, ' cm2')
027770: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 57 52 49 ;.. WRI
027780: 54 45 4C 4E 28 27 4B 65 67 6C 65 73 74 75 62 62 TELN('Keglestubb
027790: 65 6E 73 20 74 6F 74 61 6C 65 20 6F 76 65 72 66 ens totale overf
0277A0: 6C 61 64 65 3A 20 27 2C 0D 0A 20 20 20 20 20 20 lade: ',..
0277B0: 20 20 20 20 20 20 20 20 20 20 20 20 74 6F 74 61 tota
0277C0: 6C 6F 76 65 72 66 6C 61 64 65 20 3A 20 31 30 20 loverflade : 10
0277D0: 3A 20 32 2C 20 27 20 63 6D 32 27 29 3B 0D 0A 20 : 2, ' cm2');..
0277E0: 20 20 20 20 20 20 20 45 4E 44 0D 0A 20 20 20 20 END..
0277F0: 0D 0A 20 20 20 20 45 4C 53 45 20 49 46 20 6F 65 .. ELSE IF oe
027800: 6E 73 6B 65 20 3D 20 35 0D 0A 20 20 20 20 20 20 nske = 5..
027810: 54 48 45 4E 0D 0A 20 20 20 20 20 20 20 20 42 45 THEN.. BE
027820: 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 57 GIN.. W
027830: 52 49 54 45 4C 4E 28 27 4F 56 45 52 46 4C 41 44 RITELN('OVERFLAD
027840: 45 20 41 46 20 45 4E 20 4B 55 47 4C 45 3A 27 29 E AF EN KUGLE:')
027850: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 57 52 49 ;.. WRI
027860: 54 45 4C 4E 28 27 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D TELN('----------
027870: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 27 29 3B 0D ------------');.
027880: 0A 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 . WRITE
027890: 4C 4E 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 57 LN;.. W
0278A0: 52 49 54 45 28 27 49 6E 64 74 61 73 74 20 6B 75 RITE('Indtast ku
0278B0: 67 6C 65 6E 73 20 72 61 64 69 75 73 3A 20 27 29 glens radius: ')
0278C0: 3B 20 52 45 41 44 4C 4E 28 72 61 64 69 75 73 29 ; READLN(radius)
0278D0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 57 52 49 ;.. WRI
0278E0: 54 45 4C 4E 3B 0D 0A 20 20 20 20 20 20 20 20 20 TELN;..
0278F0: 20 6F 76 65 72 66 6C 61 64 65 20 3A 3D 20 34 20 overflade := 4
027900: 6F 65 6A 64 65 3B 0D 0A 20 20 20 20 20 20 20 20 oejde;..
027910: 20 20 6F 76 65 72 66 6C 61 64 65 20 3A 3D 20 32 overflade := 2
027920: 20 2A 20 6F 76 65 72 66 6C 61 64 65 3B 0D 0A 20 * overflade;..
027930: 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E WRITELN
027940: 28 27 4B 61 73 73 65 6E 73 20 6F 76 65 72 66 6C ('Kassens overfl
027950: 61 64 65 3A 20 27 2C 20 6F 76 65 72 66 6C 61 64 ade: ', overflad
027960: 65 20 3A 20 31 30 20 3A 20 32 2C 20 27 20 63 6D e : 10 : 2, ' cm
027970: 32 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 45 4E 2');.. EN
027980: 44 0D 0A 20 20 20 20 0D 0A 20 20 20 20 45 4C 53 D.. .. ELS
027990: 45 20 49 46 20 6F 65 6E 73 6B 65 20 3D 20 32 0D E IF oenske = 2.
0279A0: 0A 20 20 20 20 20 20 54 48 45 4E 0D 0A 20 20 20 . THEN..
0279B0: 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 BEGIN..
0279C0: 20 20 20 20 20 20 57 52 49 54 45 4C 4E 28 27 4F WRITELN('O
0279D0: 56 45 52 46 4C 41 44 45 20 41 46 20 45 4E 20 43 VERFLADE AF EN C
0279E0: 59 4C 49 4E 44 45 52 3A 27 29 3B 0D 0A 20 20 20 YLINDER:');..
0279F0: 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E 28 27 WRITELN('
027A00: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
027A10: 2D 2D 2D 2D 2D 2D 2D 2D 2D 27 29 3B 0D 0A 20 20 ---------');..
027A20: 20 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E 3B WRITELN;
027A30: 0D 0A 20 20 20 20 20 20 20 20 20 20 57 52 49 54 .. WRIT
027A40: 45 28 27 49 6E 64 74 61 73 74 20 63 79 6C 69 6E E('Indtast cylin
027A50: 64 65 72 65 6E 73 20 68 7C 6A 64 65 3A 20 20 27 derens h|jde: '
027A60: 29 3B 20 52 45 41 44 4C 4E 28 68 6F 65 6A 64 65 ); READLN(hoejde
027A70: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 57 52 );.. WR
027A80: 49 54 45 28 27 49 6E 64 74 61 73 74 20 63 79 6C ITE('Indtast cyl
027A90: 69 6E 64 65 72 65 6E 73 20 72 61 64 69 75 73 3A inderens radius:
027AA0: 20 27 29 3B 20 52 45 41 44 4C 4E 28 72 61 64 69 '); READLN(radi
027AB0: 75 73 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 us);..
027AC0: 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 20 20 WRITELN;..
027AD0: 20 20 20 20 6F 76 65 72 66 6C 61 64 65 20 3A 3D overflade :=
027AE0: 20 32 20 2A 20 50 49 20 2A 20 72 61 64 69 75 73 2 * PI * radius
027AF0: 20 2A 20 68 6F 65 6A 64 65 3B 0D 0A 20 20 20 20 * hoejde;..
027B00: 2A 20 50 49 20 2A 20 53 51 52 28 72 61 64 69 75 * PI * SQR(radiu
027B10: 73 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 57 s);.. W
027B20: 52 49 54 45 4C 4E 28 27 4B 75 67 6C 65 6E 73 20 RITELN('Kuglens
027B30: 6F 76 65 72 66 6C 61 64 65 3A 20 27 2C 20 6F 76 overflade: ', ov
027B40: 65 72 66 6C 61 64 65 20 3A 20 31 30 20 3A 20 32 erflade : 10 : 2
027B50: 2C 20 27 20 63 6D 32 27 29 3B 0D 0A 20 20 20 20 , ' cm2');..
027B60: 20 20 20 20 45 4E 44 0D 0A 20 20 20 20 0D 0A 20 END.. ..
027B70: 20 20 20 45 4C 53 45 20 49 46 20 6F 65 6E 73 6B ELSE IF oensk
027B80: 65 20 3E 3D 20 36 0D 0A 20 20 20 20 20 20 54 48 e >= 6.. TH
027B90: 45 4E 0D 0A 20 20 20 20 20 20 20 20 42 45 47 49 EN.. BEGI
027BA0: 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 47 4F 54 N.. GOT
027BB0: 4F 58 59 28 33 38 2C 20 31 32 29 3B 20 57 52 49 OXY(38, 12); WRI
027BC0: 54 45 28 27 53 4C 55 54 27 29 3B 0D 0A 20 20 20 TE('SLUT');..
027BD0: 20 20 20 20 20 20 20 47 4F 54 4F 58 59 28 30 2C GOTOXY(0,
027BE0: 20 32 30 29 3B 0D 0A 20 20 20 20 20 20 20 20 45 20);.. E
027BF0: 4E 44 3B 0D 0A 20 20 20 20 0D 0A 20 20 20 20 57 ND;.. .. W
027C00: 52 49 54 45 4C 4E 3B 0D 0A 20 20 45 4E 44 2E 0D RITELN;.. END..
027C10: 0A 1A 0D 0A 20 20 20 20 20 20 20 20 42 45 47 49 .... BEGI
027C20: 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 47 4F 54 N.. GOT
027C30: 4F 58 59 28 33 38 2C 20 31 32 29 3B 20 57 52 49 OXY(38, 12); WRI
027C40: 54 45 28 27 53 4C 55 54 27 29 3B 0D 0A 20 20 20 TE('SLUT');..
027C50: 20 20 20 20 20 20 20 47 4F 54 4F 58 59 28 30 2C GOTOXY(0,
027C60: 20 32 30 29 3B 0D 0A 20 20 20 20 20 20 20 20 45 20);.. E
027C70: 4E 44 3B 0D 0A 20 20 20 20 0D 0A 20 20 20 20 57 ND;.. .. W
027C80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
027C90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
027CA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
027CB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
027CC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
027CD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
027CE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
027CF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
027D00: 20 20 20 20 20 20 74 6F 74 61 6C 6F 76 65 72 66 totaloverf
027D10: 6C 61 64 65 20 3A 3D 20 6F 76 65 72 66 6C 61 64 lade := overflad
027D20: 65 20 2B 20 32 20 2A 20 50 49 20 2A 20 53 51 52 e + 2 * PI * SQR
027D30: 28 72 61 64 69 75 73 29 3B 0D 0A 20 20 20 20 20 (radius);..
027D40: 20 20 20 20 20 57 52 49 54 45 4C 4E 28 27 43 79 WRITELN('Cy
027D50: 6C 69 6E 64 65 72 65 6E 73 20 6B 72 75 6D 6D 65 linderens krumme
027D60: 20 6F 76 65 72 66 6C 61 64 65 3A 20 27 2C 20 0D overflade: ', .
027D70: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
027D80: 20 20 20 6F 76 65 72 66 6C 61 64 65 20 3A 20 31 overflade : 1
027D90: 30 20 3A 20 32 2C 20 27 20 63 6D 32 27 29 3B 0D 0 : 2, ' cm2');.
027DA0: 0A 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 . WRITE
027DB0: 4C 4E 28 27 43 79 6C 69 6E 64 65 72 65 6E 73 20 LN('Cylinderens
027DC0: 74 6F 74 61 6C 6F 76 65 72 66 6C 61 64 65 3A 20 totaloverflade:
027DD0: 20 20 27 2C 0D 0A 20 20 20 20 20 20 20 20 20 20 ',..
027DE0: 20 20 20 20 20 20 20 20 74 6F 74 61 6C 6F 76 65 totalove
027DF0: 72 66 6C 61 64 65 20 3A 20 31 30 20 3A 20 32 2C rflade : 10 : 2,
027E00: 20 27 20 63 6D 32 27 29 3B 0D 0A 20 20 20 20 20 ' cm2');..
027E10: 20 20 20 45 4E 44 0D 0A 20 20 20 20 0D 0A 20 20 END.. ..
027E20: 20 20 45 4C 53 45 20 49 46 20 6F 65 6E 73 6B 65 ELSE IF oenske
027E30: 20 3D 20 33 0D 0A 20 20 20 20 20 20 54 48 45 4E = 3.. THEN
027E40: 0D 0A 20 20 20 20 20 20 20 20 42 45 47 49 4E 0D .. BEGIN.
027E50: 0A 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 . WRITE
027E60: 4C 4E 28 27 4F 56 45 52 46 4C 41 44 45 20 41 46 LN('OVERFLADE AF
027E70: 20 45 4E 20 4B 45 47 4C 45 3A 27 29 3B 0D 0A 20 EN KEGLE:');..
027E80: 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E WRITELN
027E90: 28 27 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ('--------------
027EA0: 2D 2D 2D 2D 2D 2D 2D 2D 27 29 3B 0D 0A 20 20 20 --------');..
027EB0: 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E 3B 0D WRITELN;.
027EC0: 0A 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 . WRITE
027ED0: 28 27 49 6E 64 74 61 73 74 20 6B 65 67 6C 65 6E ('Indtast keglen
027EE0: 73 20 68 7C 6A 64 65 3A 20 20 27 29 3B 20 52 45 s h|jde: '); RE
027EF0: 41 44 4C 4E 28 68 6F 65 6A 64 65 29 3B 0D 0A 20 ADLN(hoejde);..
027F00: 50 52 4F 47 52 41 4D 20 6F 76 65 72 66 5F 32 3B PROGRAM overf_2;
027F10: 0D 0A 0D 0A 20 20 56 41 52 0D 0A 20 20 20 20 6F .... VAR.. o
027F20: 65 6E 73 6B 65 20 3A 20 49 4E 54 45 47 45 52 3B enske : INTEGER;
027F30: 0D 0A 20 20 20 20 6C 61 65 6E 67 64 65 2C 20 62 .. laengde, b
027F40: 72 65 64 64 65 2C 20 68 6F 65 6A 64 65 2C 20 6F redde, hoejde, o
027F50: 76 65 72 66 6C 61 64 65 2C 20 74 6F 74 61 6C 6F verflade, totalo
027F60: 76 65 72 66 6C 61 64 65 20 3A 20 52 45 41 4C 3B verflade : REAL;
027F70: 0D 0A 20 20 20 20 72 61 64 69 75 73 2C 20 73 69 .. radius, si
027F80: 64 65 2C 20 72 31 2C 20 72 32 20 3A 20 52 45 41 de, r1, r2 : REA
027F90: 4C 3B 0D 0A 20 20 0D 0A 20 20 42 45 47 49 4E 0D L;.. .. BEGIN.
027FA0: 0A 20 20 20 20 57 52 49 54 45 28 43 4C 52 48 4F . WRITE(CLRHO
027FB0: 4D 29 3B 0D 0A 20 20 20 20 57 52 49 54 45 4C 4E M);.. WRITELN
027FC0: 28 27 4F 20 56 20 45 20 52 20 46 20 4C 20 41 20 ('O V E R F L A
027FD0: 44 20 45 20 20 20 41 20 46 20 3A 27 29 3B 0D 0A D E A F :');..
027FE0: 20 20 20 20 57 52 49 54 45 4C 4E 28 27 2D 2D 2D WRITELN('---
027FF0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
028000: 2D 2D 2D 2D 2D 2D 27 29 3B 0D 0A 20 20 20 20 57 ------');.. W
028010: 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 57 52 49 RITELN;.. WRI
028020: 54 45 4C 4E 28 27 4B 41 53 53 45 20 2E 2E 2E 2E TELN('KASSE ....
028030: 2E 2E 2E 2E 2E 2E 2E 2E 2E 20 74 61 73 74 20 31 ......... tast 1
028040: 27 29 3B 0D 0A 20 20 20 20 57 52 49 54 45 4C 4E ');.. WRITELN
028050: 28 27 43 59 4C 49 4E 44 45 52 20 2E 2E 2E 2E 2E ('CYLINDER .....
028060: 2E 2E 2E 2E 2E 20 74 61 73 74 20 32 27 29 3B 0D ..... tast 2');.
028070: 0A 20 20 20 20 57 52 49 54 45 4C 4E 28 27 4B 45 . WRITELN('KE
028080: 47 4C 45 20 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E GLE ............
028090: 2E 20 74 61 73 74 20 33 27 29 3B 0D 0A 20 20 20 . tast 3');..
0280A0: 20 57 52 49 54 45 4C 4E 28 27 4B 45 47 4C 45 53 WRITELN('KEGLES
0280B0: 54 55 42 20 2E 2E 2E 2E 2E 2E 2E 2E 2E 20 74 61 TUB ......... ta
0280C0: 73 74 20 34 27 29 3B 0D 0A 20 20 20 20 57 52 49 st 4');.. WRI
0280D0: 54 45 4C 4E 28 27 4B 55 47 4C 45 20 2E 2E 2E 2E TELN('KUGLE ....
0280E0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 20 74 61 73 74 20 35 ......... tast 5
0280F0: 27 29 3B 0D 0A 20 20 20 20 57 52 49 54 45 4C 4E ');.. WRITELN
028100: 20 20 20 20 20 20 20 20 20 57 52 49 54 45 28 27 WRITE('
028110: 49 6E 64 74 61 73 74 20 6B 65 67 6C 65 6E 73 20 Indtast keglens
028120: 72 61 64 69 75 73 3A 20 27 29 3B 20 52 45 41 44 radius: '); READ
028130: 4C 4E 28 72 61 64 69 75 73 29 3B 0D 0A 20 20 20 LN(radius);..
028140: 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E 3B 0D WRITELN;.
028150: 0A 20 20 20 20 20 20 20 20 20 20 73 69 64 65 20 . side
028160: 3A 3D 20 53 51 52 54 28 53 51 52 28 68 6F 65 6A := SQRT(SQR(hoej
028170: 64 65 29 20 2B 20 53 51 52 28 72 61 64 69 75 73 de) + SQR(radius
028180: 29 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 6F ));.. o
028190: 76 65 72 66 6C 61 64 65 20 3A 3D 20 50 49 20 2A verflade := PI *
0281A0: 20 72 61 64 69 75 73 20 2A 20 73 69 64 65 3B 0D radius * side;.
0281B0: 0A 20 20 20 20 20 20 20 20 20 20 74 6F 74 61 6C . total
0281C0: 6F 76 65 72 66 6C 61 64 65 20 3A 3D 20 6F 76 65 overflade := ove
0281D0: 72 66 6C 61 64 65 20 2B 20 50 49 20 2A 20 53 51 rflade + PI * SQ
0281E0: 52 28 72 61 64 69 75 73 29 3B 0D 0A 20 20 20 20 R(radius);..
0281F0: 20 20 20 20 20 20 57 52 49 54 45 4C 4E 28 27 4B WRITELN('K
028200: 65 67 6C 65 6E 73 20 6B 72 75 6D 6D 65 20 6F 76 eglens krumme ov
028210: 65 72 66 6C 61 64 65 3A 20 27 2C 20 0D 0A 20 20 erflade: ', ..
028220: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
028230: 6F 76 65 72 66 6C 61 64 65 20 3A 20 31 30 20 3A overflade : 10 :
028240: 20 32 2C 20 27 20 63 6D 32 27 29 3B 0D 0A 20 20 2, ' cm2');..
028250: 20 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E 28 WRITELN(
028260: 27 4B 65 67 6C 65 6E 73 20 74 6F 74 61 6C 65 20 'Keglens totale
028270: 6F 76 65 72 66 6C 61 64 65 3A 20 27 2C 0D 0A 20 overflade: ',..
028280: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
028290: 20 74 6F 74 61 6C 6F 76 65 72 66 6C 61 64 65 20 totaloverflade
0282A0: 3A 20 31 30 20 3A 20 32 2C 20 27 20 63 6D 32 27 : 10 : 2, ' cm2'
0282B0: 29 3B 0D 0A 20 20 20 20 20 20 20 20 45 4E 44 0D );.. END.
0282C0: 0A 20 20 20 20 0D 0A 20 20 20 20 45 4C 53 45 20 . .. ELSE
0282D0: 49 46 20 6F 65 6E 73 6B 65 20 3D 20 34 0D 0A 20 IF oenske = 4..
0282E0: 20 20 20 20 20 54 48 45 4E 0D 0A 20 20 20 20 20 THEN..
0282F0: 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 20 BEGIN..
028300: 3B 0D 0A 20 20 20 20 57 52 49 54 45 28 27 49 6E ;.. WRITE('In
028310: 64 74 61 73 74 20 7C 6E 73 6B 65 3A 20 27 29 3B dtast |nske: ');
028320: 20 52 45 41 44 4C 4E 28 6F 65 6E 73 6B 65 29 3B READLN(oenske);
028330: 0D 0A 20 20 20 20 57 52 49 54 45 28 43 4C 52 48 .. WRITE(CLRH
028340: 4F 4D 29 3B 0D 0A 20 20 20 20 0D 0A 20 20 20 20 OM);.. ..
028350: 43 41 53 45 20 6F 65 6E 73 6B 65 20 4F 46 0D 0A CASE oenske OF..
028360: 20 20 20 20 0D 0A 20 20 20 20 20 20 31 3A 20 42 .. 1: B
028370: 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 EGIN..
028380: 20 57 52 49 54 45 4C 4E 28 27 4F 56 45 52 46 4C WRITELN('OVERFL
028390: 41 44 45 20 41 46 20 45 4E 20 4B 41 53 53 45 3A ADE AF EN KASSE:
0283A0: 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 ');..
0283B0: 57 52 49 54 45 4C 4E 28 27 2D 2D 2D 2D 2D 2D 2D WRITELN('-------
0283C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 27 ---------------'
0283D0: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 57 );.. W
0283E0: 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 20 20 20 RITELN;..
0283F0: 20 20 20 20 57 52 49 54 45 28 27 49 6E 64 74 61 WRITE('Indta
028400: 73 74 20 6B 61 73 73 65 6E 73 20 62 72 65 64 64 st kassens bredd
028410: 65 3A 20 27 29 3B 20 52 45 41 44 4C 4E 28 62 72 e: '); READLN(br
028420: 65 64 64 65 29 3B 0D 0A 20 20 20 20 20 20 20 20 edde);..
028430: 20 20 20 57 52 49 54 45 28 27 49 6E 64 74 61 73 WRITE('Indtas
028440: 74 20 6B 61 73 73 65 6E 73 20 6C 7B 6E 67 64 65 t kassens l{ngde
028450: 3A 20 27 29 3B 20 52 45 41 44 4C 4E 28 6C 61 65 : '); READLN(lae
028460: 6E 67 64 65 29 3B 0D 0A 20 20 20 20 20 20 20 20 ngde);..
028470: 20 20 20 57 52 49 54 45 28 27 49 6E 64 74 61 73 WRITE('Indtas
028480: 74 20 6B 61 73 73 65 6E 73 20 68 7C 6A 64 65 3A t kassens h|jde:
028490: 20 20 27 29 3B 20 52 45 41 44 4C 4E 28 68 6F 65 '); READLN(hoe
0284A0: 6A 64 65 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 jde);..
0284B0: 20 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 WRITELN;..
0284C0: 20 20 20 20 20 20 20 6F 76 65 72 66 6C 61 64 65 overflade
0284D0: 20 3A 3D 20 6C 61 65 6E 67 64 65 20 2A 20 62 72 := laengde * br
0284E0: 65 64 64 65 20 2B 20 62 72 65 64 64 65 20 2A 20 edde + bredde *
0284F0: 68 6F 65 6A 64 65 20 2B 20 6C 61 65 6E 67 64 65 hoejde + laengde
028500: 20 20 20 20 57 52 49 54 45 4C 4E 28 27 4F 56 45 WRITELN('OVE
028510: 52 46 4C 41 44 45 20 41 46 20 45 4E 20 4B 45 47 RFLADE AF EN KEG
028520: 4C 45 53 54 55 42 3A 27 29 3B 0D 0A 20 20 20 20 LESTUB:');..
028530: 20 20 20 20 20 20 57 52 49 54 45 4C 4E 28 27 2D WRITELN('-
028540: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
028550: 2D 2D 2D 2D 2D 2D 2D 2D 2D 27 29 3B 0D 0A 20 20 ---------');..
028560: 20 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E 3B WRITELN;
028570: 0D 0A 20 20 20 20 20 20 20 20 20 20 57 52 49 54 .. WRIT
028580: 45 28 27 49 6E 64 74 61 73 74 20 72 61 64 69 75 E('Indtast radiu
028590: 73 20 69 20 64 65 6E 20 7C 76 65 72 73 74 65 20 s i den |verste
0285A0: 63 69 72 6B 65 6C 3A 20 20 27 29 3B 20 52 45 41 cirkel: '); REA
0285B0: 44 4C 4E 28 72 31 29 3B 0D 0A 20 20 20 20 20 20 DLN(r1);..
0285C0: 20 20 20 20 57 52 49 54 45 28 27 49 6E 64 74 61 WRITE('Indta
0285D0: 73 74 20 72 61 64 69 75 73 20 69 20 64 65 6E 20 st radius i den
0285E0: 6E 65 64 65 72 73 74 65 20 63 69 72 6B 65 6C 3A nederste cirkel:
0285F0: 20 27 29 3B 20 52 45 41 44 4C 4E 28 72 32 29 3B '); READLN(r2);
028600: 0D 0A 20 20 20 20 20 20 20 20 20 20 57 52 49 54 .. WRIT
028610: 45 28 27 49 6E 64 74 61 73 74 20 6B 65 67 6C 65 E('Indtast kegle
028620: 73 74 75 62 62 65 6E 73 20 68 7C 6A 64 65 3A 20 stubbens h|jde:
028630: 20 20 20 20 20 20 20 20 20 27 29 3B 20 52 45 41 '); REA
028640: 44 4C 4E 28 68 6F 65 6A 64 65 29 3B 0D 0A 20 20 DLN(hoejde);..
028650: 20 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E 3B WRITELN;
028660: 0D 0A 20 20 20 20 20 20 20 20 20 20 73 69 64 65 .. side
028670: 20 3A 3D 20 53 51 52 54 28 53 51 52 28 72 32 20 := SQRT(SQR(r2
028680: 2D 20 72 31 29 20 2B 20 53 51 52 28 68 6F 65 6A - r1) + SQR(hoej
028690: 64 65 29 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 de));..
0286A0: 20 6F 76 65 72 66 6C 61 64 65 20 3A 3D 20 50 49 overflade := PI
0286B0: 20 2A 20 73 69 64 65 20 2A 20 28 72 31 20 2B 20 * side * (r1 +
0286C0: 72 32 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 r2);..
0286D0: 74 6F 74 61 6C 6F 76 65 72 66 6C 61 64 65 20 3A totaloverflade :
0286E0: 3D 20 6F 76 65 72 66 6C 61 64 65 20 2B 20 50 49 = overflade + PI
0286F0: 20 2A 20 53 51 52 28 72 31 29 20 2B 20 50 49 20 * SQR(r1) + PI
028700: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
028710: 22 00 01 00 02 09 52 E5 22 00 41 02 00 00 00 02 ".....R.".A.....
028720: 22 00 46 02 00 00 00 02 22 00 42 02 00 00 00 02 ".F.....".B.....
028730: 22 00 47 02 00 00 00 02 22 00 43 02 00 00 00 02 ".G.....".C.....
028740: 22 00 48 02 00 00 00 02 22 00 44 02 00 00 00 02 ".H.....".D.....
028750: 22 00 49 02 00 00 00 02 22 00 45 02 00 00 00 02 ".I.....".E.....
028760: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
028770: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
028780: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
028790: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0287A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0287B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0287C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0287D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0287E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0287F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
028800: 20 2A 20 68 6F 65 6A 64 65 3B 0D 0A 20 20 20 20 * hoejde;..
028810: 20 20 20 20 20 20 20 6F 76 65 72 66 6C 61 64 65 overflade
028820: 20 3A 3D 20 32 20 2A 20 6F 76 65 72 66 6C 61 64 := 2 * overflad
028830: 65 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 57 e;.. W
028840: 52 49 54 45 4C 4E 28 27 4B 61 73 73 65 6E 73 20 RITELN('Kassens
028850: 6F 76 65 72 66 6C 61 64 65 3A 20 27 2C 20 6F 76 overflade: ', ov
028860: 65 72 66 6C 61 64 65 20 3A 20 31 30 20 3A 20 32 erflade : 10 : 2
028870: 2C 20 27 20 63 6D 32 27 29 3B 0D 0A 20 20 20 20 , ' cm2');..
028880: 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 END;..
028890: 20 20 0D 0A 20 20 20 20 20 20 32 3A 20 42 45 47 .. 2: BEG
0288A0: 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 57 IN.. W
0288B0: 52 49 54 45 4C 4E 28 27 4F 56 45 52 46 4C 41 44 RITELN('OVERFLAD
0288C0: 45 20 41 46 20 45 4E 20 43 59 4C 49 4E 44 45 52 E AF EN CYLINDER
0288D0: 3A 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 :');..
0288E0: 20 57 52 49 54 45 4C 4E 28 27 2D 2D 2D 2D 2D 2D WRITELN('------
0288F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
028900: 2D 2D 2D 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 ---');..
028910: 20 20 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 WRITELN;..
028920: 20 20 20 20 20 20 20 20 57 52 49 54 45 28 27 49 WRITE('I
028930: 6E 64 74 61 73 74 20 63 79 6C 69 6E 64 65 72 65 ndtast cylindere
028940: 6E 73 20 68 7C 6A 64 65 3A 20 20 27 29 3B 20 52 ns h|jde: '); R
028950: 45 41 44 4C 4E 28 68 6F 65 6A 64 65 29 3B 0D 0A EADLN(hoejde);..
028960: 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 WRITE
028970: 28 27 49 6E 64 74 61 73 74 20 63 79 6C 69 6E 64 ('Indtast cylind
028980: 65 72 65 6E 73 20 72 61 64 69 75 73 3A 20 27 29 erens radius: ')
028990: 3B 20 52 45 41 44 4C 4E 28 72 61 64 69 75 73 29 ; READLN(radius)
0289A0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 57 52 ;.. WR
0289B0: 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 20 20 20 20 ITELN;..
0289C0: 20 20 20 6F 76 65 72 66 6C 61 64 65 20 3A 3D 20 overflade :=
0289D0: 32 20 2A 20 50 49 20 2A 20 72 61 64 69 75 73 20 2 * PI * radius
0289E0: 2A 20 68 6F 65 6A 64 65 3B 0D 0A 20 20 20 20 20 * hoejde;..
0289F0: 20 20 20 20 20 20 74 6F 74 61 6C 6F 76 65 72 66 totaloverf
028A00: 61 64 65 20 3A 20 31 30 20 3A 20 32 2C 20 27 20 ade : 10 : 2, '
028A10: 63 6D 32 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 cm2');..
028A20: 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 0D 0A 20 END;.. ..
028A30: 20 20 20 4F 54 48 45 52 57 49 53 45 0D 0A 20 20 OTHERWISE..
028A40: 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 BEGIN..
028A50: 20 20 20 47 4F 54 4F 58 59 28 33 38 2C 20 31 32 GOTOXY(38, 12
028A60: 29 3B 20 57 52 49 54 45 28 27 53 4C 55 54 27 29 ); WRITE('SLUT')
028A70: 3B 0D 0A 20 20 20 20 20 20 20 20 47 4F 54 4F 58 ;.. GOTOX
028A80: 59 28 30 2C 20 32 30 29 3B 0D 0A 20 20 20 20 20 Y(0, 20);..
028A90: 20 45 4E 44 3B 0D 0A 20 20 0D 0A 20 20 20 20 45 END;.. .. E
028AA0: 4E 44 3B 0D 0A 20 20 20 20 57 52 49 54 45 4C 4E ND;.. WRITELN
028AB0: 3B 0D 0A 20 20 45 4E 44 2E 0D 0A 1A 0D 0A 20 20 ;.. END......
028AC0: 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 BEGIN..
028AD0: 20 20 20 47 4F 54 4F 58 59 28 33 38 2C 20 31 32 GOTOXY(38, 12
028AE0: 29 3B 20 57 52 49 54 45 28 27 53 4C 55 54 27 29 ); WRITE('SLUT')
028AF0: 3B 0D 0A 20 20 20 20 20 20 20 20 47 4F 54 4F 58 ;.. GOTOX
028B00: 4D 20 20 20 20 20 20 20 20 20 20 20 20 20 30 A2 M 0.
028B10: 03 00 00 0F 01 D1 00 7F 00 C0 00 20 00 00 00 02 ........... ....
028B20: 03 01 2A 0A 21 00 02 18 28 60 44 72 61 67 6F 6E ..*.!...(`Dragon
028B30: 42 72 65 65 64 20 34 32 30 4B DE F5 C5 3A 1C AD Breed 420K...:..
028B40: 4F CD 0F B9 79 32 15 AD C1 F1 ED B0 F5 C5 0E 00 O...y2..........
028B50: CD 0F B9 C1 F1 C9 02 2A 00 60 56 6F 72 74 FF 78 .......*.`Vort.x
028B60: 20 20 20 20 20 20 01 00 20 20 20 20 20 20 20 20 ..
028B70: 24 00 05 1F 03 B0 00 7F 00 80 00 20 00 02 00 02 $.......... ....
028B80: 03 01 50 09 41 00 02 2A 52 60 58 44 44 4F 53 20 ..P.A..*R`XDDOS
028B90: 43 50 2F 4D 20 20 20 20 20 20 20 20 20 20 20 20 CP/M
028BA0: 24 00 05 1F 03 B3 00 7F 00 80 00 20 00 00 00 02 $.......... ....
028BB0: 03 01 50 09 C1 00 02 2A 52 60 58 44 44 4F 53 20 ..P....*R`XDDOS
028BC0: 44 41 54 41 20 20 20 20 20 34 A4 04 00 5E 34 A3 DATA 4...^4£
028BD0: 00 01 C9 00 00 C9 00 00 C3 BB F2 C9 00 00 C3 72 ...............r
028BE0: 9E C3 85 9E C3 7E 9E C9 00 00 C9 00 00 00 00 00 .....~..........
028BF0: 00 00 FC 00 01 00 01 00 01 52 55 4E 22 44 49 53 .........RUN"DIS
028C00: 6C 61 64 65 20 3A 3D 20 6F 76 65 72 66 6C 61 64 lade := overflad
028C10: 65 20 2B 20 32 20 2A 20 50 49 20 2A 20 53 51 52 e + 2 * PI * SQR
028C20: 28 72 61 64 69 75 73 29 3B 0D 0A 20 20 20 20 20 (radius);..
028C30: 20 20 20 20 20 20 57 52 49 54 45 4C 4E 28 27 43 WRITELN('C
028C40: 79 6C 69 6E 64 65 72 65 6E 73 20 6B 72 75 6D 6D ylinderens krumm
028C50: 65 20 6F 76 65 72 66 6C 61 64 65 3A 20 27 2C 20 e overflade: ',
028C60: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
028C70: 20 20 20 20 20 6F 76 65 72 66 6C 61 64 65 20 3A overflade :
028C80: 20 31 30 20 3A 20 32 2C 20 27 20 63 6D 32 27 29 10 : 2, ' cm2')
028C90: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 57 52 ;.. WR
028CA0: 49 54 45 4C 4E 28 27 43 79 6C 69 6E 64 65 72 65 ITELN('Cylindere
028CB0: 6E 73 20 74 6F 74 61 6C 6F 76 65 72 66 6C 61 64 ns totaloverflad
028CC0: 65 3A 20 20 20 27 2C 0D 0A 20 20 20 20 20 20 20 e: ',..
028CD0: 20 20 20 20 20 20 20 20 20 20 20 20 74 6F 74 61 tota
028CE0: 6C 6F 76 65 72 66 6C 61 64 65 20 3A 20 31 30 20 loverflade : 10
028CF0: 3A 20 32 2C 20 27 20 63 6D 32 27 29 3B 0D 0A 20 : 2, ' cm2');..
028D00: 20 20 20 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20 END;..
028D10: 20 20 20 20 20 0D 0A 20 20 20 20 20 20 33 3A 20 .. 3:
028D20: 42 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 BEGIN..
028D30: 20 20 57 52 49 54 45 4C 4E 28 27 4F 56 45 52 46 WRITELN('OVERF
028D40: 4C 41 44 45 20 41 46 20 45 4E 20 4B 45 47 4C 45 LADE AF EN KEGLE
028D50: 3A 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 :');..
028D60: 20 57 52 49 54 45 4C 4E 28 27 2D 2D 2D 2D 2D 2D WRITELN('------
028D70: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
028D80: 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 ');..
028D90: 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 20 20 WRITELN;..
028DA0: 20 20 20 20 20 57 52 49 54 45 28 27 49 6E 64 74 WRITE('Indt
028DB0: 61 73 74 20 6B 65 67 6C 65 6E 73 20 68 7C 6A 64 ast keglens h|jd
028DC0: 65 3A 20 20 27 29 3B 20 52 45 41 44 4C 4E 28 68 e: '); READLN(h
028DD0: 6F 65 6A 64 65 29 3B 0D 0A 20 20 20 20 20 20 20 oejde);..
028DE0: 20 20 20 20 57 52 49 54 45 28 27 49 6E 64 74 61 WRITE('Indta
028DF0: 73 74 20 6B 65 67 6C 65 6E 73 20 72 61 64 69 75 st keglens radiu
028E00: 50 52 4F 47 52 41 4D 20 70 61 6B 6B 65 70 73 74 PROGRAM pakkepst
028E10: 3B 0D 0A 0D 0A 20 20 56 41 52 0D 0A 20 20 20 20 ;.... VAR..
028E20: 76 61 65 67 74 2C 20 70 6F 72 74 6F 6B 72 20 3A vaegt, portokr :
028E30: 20 52 45 41 4C 3B 0D 0A 20 20 20 20 70 6F 72 74 REAL;.. port
028E40: 6F 2C 20 67 72 75 70 70 65 20 3A 20 49 4E 54 45 o, gruppe : INTE
028E50: 47 45 52 3B 0D 0A 20 20 0D 0A 20 20 42 45 47 49 GER;.. .. BEGI
028E60: 4E 0D 0A 20 20 20 20 57 52 49 54 45 4C 4E 28 43 N.. WRITELN(C
028E70: 4C 52 48 4F 4D 29 3B 0D 0A 20 20 20 20 57 52 49 LRHOM);.. WRI
028E80: 54 45 4C 4E 28 27 50 4F 53 54 54 41 4B 53 54 45 TELN('POSTTAKSTE
028E90: 52 20 46 4F 52 20 50 41 4B 4B 45 50 4F 53 54 27 R FOR PAKKEPOST'
028EA0: 29 3B 0D 0A 20 20 20 20 57 52 49 54 45 4C 4E 28 );.. WRITELN(
028EB0: 27 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F '_______________
028EC0: 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 27 29 3B 0D 0A 20 __________');..
028ED0: 20 20 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 WRITELN;..
028EE0: 20 57 52 49 54 45 28 27 49 6E 64 74 61 73 74 20 WRITE('Indtast
028EF0: 70 61 6B 6B 65 6E 73 20 76 7B 67 74 20 69 20 6B pakkens v{gt i k
028F00: 67 20 28 69 6B 6B 65 20 6F 76 65 72 20 32 30 20 g (ikke over 20
028F10: 6B 67 29 3A 20 27 29 3B 20 52 45 41 44 4C 4E 28 kg): '); READLN(
028F20: 76 61 65 67 74 29 3B 0D 0A 20 20 20 20 57 52 49 vaegt);.. WRI
028F30: 54 45 4C 4E 3B 0D 0A 20 20 20 20 57 52 49 54 45 TELN;.. WRITE
028F40: 4C 4E 28 27 41 6C 6D 69 6E 64 65 6C 69 67 20 70 LN('Almindelig p
028F50: 61 6B 6B 65 20 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 20 akke ..........
028F60: 74 61 73 74 20 31 27 29 3B 0D 0A 20 20 20 20 57 tast 1');.. W
028F70: 52 49 54 45 28 27 56 6F 6C 75 6D 69 6E 7C 73 20 RITE('Volumin|s
028F80: 70 61 6B 6B 65 20 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E pakke ..........
028F90: 2E 20 74 61 73 74 20 32 3A 20 20 20 20 27 29 3B . tast 2: ');
028FA0: 20 52 45 41 44 4C 4E 28 67 72 75 70 70 65 29 3B READLN(gruppe);
028FB0: 0D 0A 20 20 20 20 57 52 49 54 45 4C 4E 3B 0D 0A .. WRITELN;..
028FC0: 20 20 20 20 49 46 20 76 61 65 67 74 20 3C 3D 20 IF vaegt <=
028FD0: 35 0D 0A 20 20 20 20 20 20 54 48 45 4E 20 70 6F 5.. THEN po
028FE0: 72 74 6F 20 3A 3D 20 31 37 30 30 0D 0A 20 20 20 rto := 1700..
028FF0: 20 45 4C 53 45 20 49 46 20 76 61 65 67 74 20 3C ELSE IF vaegt <
029000: 73 3A 20 27 29 3B 20 52 45 41 44 4C 4E 28 72 61 s: '); READLN(ra
029010: 64 69 75 73 29 3B 0D 0A 20 20 20 20 20 20 20 20 dius);..
029020: 20 20 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 WRITELN;..
029030: 20 20 20 20 20 20 20 20 73 69 64 65 20 3A 3D 20 side :=
029040: 53 51 52 54 28 53 51 52 28 68 6F 65 6A 64 65 29 SQRT(SQR(hoejde)
029050: 20 2B 20 53 51 52 28 72 61 64 69 75 73 29 29 3B + SQR(radius));
029060: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 6F 76 65 .. ove
029070: 72 66 6C 61 64 65 20 3A 3D 20 50 49 20 2A 20 72 rflade := PI * r
029080: 61 64 69 75 73 20 2A 20 73 69 64 65 3B 0D 0A 20 adius * side;..
029090: 20 20 20 20 20 20 20 20 20 20 74 6F 74 61 6C 6F totalo
0290A0: 76 65 72 66 6C 61 64 65 20 3A 3D 20 6F 76 65 72 verflade := over
0290B0: 66 6C 61 64 65 20 2B 20 50 49 20 2A 20 53 51 52 flade + PI * SQR
0290C0: 28 72 61 64 69 75 73 29 3B 0D 0A 20 20 20 20 20 (radius);..
0290D0: 20 20 20 20 20 20 57 52 49 54 45 4C 4E 28 27 4B WRITELN('K
0290E0: 65 67 6C 65 6E 73 20 6B 72 75 6D 6D 65 20 6F 76 eglens krumme ov
0290F0: 65 72 66 6C 61 64 65 3A 20 27 2C 20 0D 0A 20 20 erflade: ', ..
029100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
029110: 20 6F 76 65 72 66 6C 61 64 65 20 3A 20 31 30 20 overflade : 10
029120: 3A 20 32 2C 20 27 20 63 6D 32 27 29 3B 0D 0A 20 : 2, ' cm2');..
029130: 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4C WRITEL
029140: 4E 28 27 4B 65 67 6C 65 6E 73 20 74 6F 74 61 6C N('Keglens total
029150: 65 20 6F 76 65 72 66 6C 61 64 65 3A 20 27 2C 0D e overflade: ',.
029160: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
029170: 20 20 20 20 74 6F 74 61 6C 6F 76 65 72 66 6C 61 totaloverfla
029180: 64 65 20 3A 20 31 30 20 3A 20 32 2C 20 27 20 63 de : 10 : 2, ' c
029190: 6D 32 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 m2');..
0291A0: 45 4E 44 3B 0D 0A 20 20 20 20 20 20 20 0D 0A 20 END;.. ..
0291B0: 20 20 20 20 20 34 3A 20 42 45 47 49 4E 0D 0A 20 4: BEGIN..
0291C0: 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4C WRITEL
0291D0: 4E 28 27 4F 56 45 52 46 4C 41 44 45 20 41 46 20 N('OVERFLADE AF
0291E0: 45 4E 20 4B 45 47 4C 45 53 54 55 42 3A 27 29 3B EN KEGLESTUB:');
0291F0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 57 52 49 .. WRI
029200: 3D 20 31 30 0D 0A 20 20 20 20 20 20 54 48 45 4E = 10.. THEN
029210: 20 70 6F 72 74 6F 20 3A 3D 20 33 30 30 30 0D 0A porto := 3000..
029220: 20 20 20 20 45 4C 53 45 20 49 46 20 76 61 65 67 ELSE IF vaeg
029230: 74 20 3C 3D 20 31 35 0D 0A 20 20 20 20 20 20 54 t <= 15.. T
029240: 48 45 4E 20 70 6F 72 74 6F 20 3A 3D 20 35 35 30 HEN porto := 550
029250: 30 0D 0A 20 20 20 20 45 4C 53 45 20 49 46 20 76 0.. ELSE IF v
029260: 61 65 67 74 20 3C 3D 20 32 30 0D 0A 20 20 20 20 aegt <= 20..
029270: 20 20 54 48 45 4E 20 70 6F 72 74 6F 20 3A 3D 20 THEN porto :=
029280: 36 35 30 30 0D 0A 20 20 20 20 45 4C 53 45 20 57 6500.. ELSE W
029290: 52 49 54 45 4C 4E 28 27 44 65 6E 6E 65 20 70 61 RITELN('Denne pa
0292A0: 6B 6B 65 20 65 72 20 64 61 20 76 69 73 74 20 66 kke er da vist f
0292B0: 72 61 67 74 67 6F 64 73 21 27 29 3B 0D 0A 20 20 ragtgods!');..
0292C0: 20 20 49 46 20 67 72 75 70 70 65 20 3D 20 32 0D IF gruppe = 2.
0292D0: 0A 20 20 20 20 20 20 54 48 45 4E 20 70 6F 72 74 . THEN port
0292E0: 6F 20 3A 3D 20 70 6F 72 74 6F 20 2A 20 32 3B 0D o := porto * 2;.
0292F0: 0A 20 20 20 20 70 6F 72 74 6F 6B 72 20 3A 3D 20 . portokr :=
029300: 70 6F 72 74 6F 20 2F 20 31 30 30 3B 0D 0A 20 20 porto / 100;..
029310: 20 20 49 46 20 28 76 61 65 67 74 20 3C 3D 20 32 IF (vaegt <= 2
029320: 30 29 20 41 4E 44 20 28 28 67 72 75 70 70 65 20 0) AND ((gruppe
029330: 3D 20 31 29 20 4F 52 20 28 67 72 75 70 70 65 20 = 1) OR (gruppe
029340: 3D 20 32 29 29 0D 0A 20 20 20 20 20 20 54 48 45 = 2)).. THE
029350: 4E 0D 0A 20 20 20 20 20 20 20 20 42 45 47 49 4E N.. BEGIN
029360: 0D 0A 20 20 20 20 20 20 20 20 20 20 57 52 49 54 .. WRIT
029370: 45 4C 4E 28 27 50 61 6B 6B 65 6E 73 20 76 7B 67 ELN('Pakkens v{g
029380: 74 3A 20 27 2C 20 76 61 65 67 74 20 3A 20 35 20 t: ', vaegt : 5
029390: 3A 20 32 2C 20 27 20 6B 67 27 29 3B 0D 0A 20 20 : 2, ' kg');..
0293A0: 20 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E 3B WRITELN;
0293B0: 0D 0A 20 20 20 20 20 20 20 20 20 20 57 52 49 54 .. WRIT
0293C0: 45 4C 4E 28 27 50 6F 72 74 6F 3A 20 27 2C 20 70 ELN('Porto: ', p
0293D0: 6F 72 74 6F 6B 72 20 3A 20 36 20 3A 20 32 2C 20 ortokr : 6 : 2,
0293E0: 27 20 6B 72 27 29 3B 0D 0A 20 20 20 20 20 20 20 ' kr');..
0293F0: 20 45 4E 44 3B 0D 0A 20 20 20 20 57 52 49 54 45 END;.. WRITE
029400: 54 45 4C 4E 28 27 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D TELN('----------
029410: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
029420: 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 ');..
029430: 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 20 20 WRITELN;..
029440: 20 20 20 20 20 57 52 49 54 45 28 27 49 6E 64 74 WRITE('Indt
029450: 61 73 74 20 72 61 64 69 75 73 20 69 20 64 65 6E ast radius i den
029460: 20 7C 76 65 72 73 74 65 20 63 69 72 6B 65 6C 3A |verste cirkel:
029470: 20 20 27 29 3B 20 52 45 41 44 4C 4E 28 72 31 29 '); READLN(r1)
029480: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 57 52 ;.. WR
029490: 49 54 45 28 27 49 6E 64 74 61 73 74 20 72 61 64 ITE('Indtast rad
0294A0: 69 75 73 20 69 20 64 65 6E 20 6E 65 64 65 72 73 ius i den neders
0294B0: 74 65 20 63 69 72 6B 65 6C 3A 20 27 29 3B 20 52 te cirkel: '); R
0294C0: 45 41 44 4C 4E 28 72 32 29 3B 0D 0A 20 20 20 20 EADLN(r2);..
0294D0: 20 20 20 20 20 20 20 57 52 49 54 45 28 27 49 6E WRITE('In
0294E0: 64 74 61 73 74 20 6B 65 67 6C 65 73 74 75 62 62 dtast keglestubb
0294F0: 65 6E 73 20 68 7C 6A 64 65 3A 20 20 20 20 20 20 ens h|jde:
029500: 20 20 20 20 27 29 3B 20 52 45 41 44 4C 4E 28 68 '); READLN(h
029510: 6F 65 6A 64 65 29 3B 0D 0A 20 20 20 20 20 20 20 oejde);..
029520: 20 20 20 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 WRITELN;..
029530: 20 20 20 20 20 20 20 20 20 73 69 64 65 20 3A 3D side :=
029540: 20 53 51 52 54 28 53 51 52 28 72 32 20 2D 20 72 SQRT(SQR(r2 - r
029550: 31 29 20 2B 20 53 51 52 28 68 6F 65 6A 64 65 29 1) + SQR(hoejde)
029560: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 6F );.. o
029570: 76 65 72 66 6C 61 64 65 20 3A 3D 20 50 49 20 2A verflade := PI *
029580: 20 73 69 64 65 20 2A 20 28 72 31 20 2B 20 72 32 side * (r1 + r2
029590: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 74 );.. t
0295A0: 6F 74 61 6C 6F 76 65 72 66 6C 61 64 65 20 3A 3D otaloverflade :=
0295B0: 20 6F 76 65 72 66 6C 61 64 65 20 2B 20 50 49 20 overflade + PI
0295C0: 2A 20 53 51 52 28 72 31 29 20 2B 20 50 49 20 2A * SQR(r1) + PI *
0295D0: 20 53 51 52 28 72 32 29 3B 0D 0A 20 20 20 20 20 SQR(r2);..
0295E0: 20 20 20 20 20 20 57 52 49 54 45 4C 4E 28 27 4B WRITELN('K
0295F0: 65 67 6C 65 73 74 75 62 62 65 6E 73 20 6B 72 75 eglestubbens kru
029600: 4C 4E 3B 0D 0A 20 20 45 4E 44 2E 0D 0A 0D 0A 1A LN;.. END......
029610: 3A 20 32 2C 20 27 20 6B 67 27 29 3B 0D 0A 20 20 : 2, ' kg');..
029620: 20 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E 3B WRITELN;
029630: 0D 0A 20 20 20 20 20 20 20 20 20 20 57 52 49 54 .. WRIT
029640: 45 4C 4E 28 27 50 6F 72 74 6F 3A 20 27 2C 20 70 ELN('Porto: ', p
029650: 6F 72 74 6F 6B 72 20 3A 20 36 20 3A 20 32 2C 20 ortokr : 6 : 2,
029660: 27 20 6B 72 27 29 3B 0D 0A 20 20 20 20 20 20 20 ' kr');..
029670: 20 45 4E 44 3B 0D 0A 20 20 20 20 57 52 49 54 45 END;.. WRITE
029680: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029690: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0296A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0296B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0296C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0296D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0296E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0296F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029700: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029710: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029720: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029730: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029740: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029750: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029760: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029770: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029780: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029790: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0297A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0297B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0297C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0297D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0297E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0297F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029800: 6D 6D 65 20 6F 76 65 72 66 6C 61 64 65 3A 20 27 mme overflade: '
029810: 2C 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ,..
029820: 20 20 20 20 20 20 6F 76 65 72 66 6C 61 64 65 20 overflade
029830: 3A 20 31 30 20 3A 20 32 2C 20 27 20 63 6D 32 27 : 10 : 2, ' cm2'
029840: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 57 );.. W
029850: 52 49 54 45 4C 4E 28 27 4B 65 67 6C 65 73 74 75 RITELN('Keglestu
029860: 62 62 65 6E 73 20 74 6F 74 61 6C 65 20 6F 76 65 bbens totale ove
029870: 72 66 6C 61 64 65 3A 20 27 2C 0D 0A 20 20 20 20 rflade: ',..
029880: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 t
029890: 6F 74 61 6C 6F 76 65 72 66 6C 61 64 65 20 3A 20 otaloverflade :
0298A0: 31 30 20 3A 20 32 2C 20 27 20 63 6D 32 27 29 3B 10 : 2, ' cm2');
0298B0: 0D 0A 20 20 20 20 20 20 20 20 20 45 4E 44 3B 0D .. END;.
0298C0: 0A 20 20 20 20 20 20 20 0D 0A 20 20 20 20 20 20 . ..
0298D0: 35 3A 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 20 5: BEGIN..
0298E0: 20 20 20 20 20 57 52 49 54 45 4C 4E 28 27 4F 56 WRITELN('OV
0298F0: 45 52 46 4C 41 44 45 20 41 46 20 45 4E 20 4B 55 ERFLADE AF EN KU
029900: 47 4C 45 3A 27 29 3B 0D 0A 20 20 20 20 20 20 20 GLE:');..
029910: 20 20 20 20 57 52 49 54 45 4C 4E 28 27 2D 2D 2D WRITELN('---
029920: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
029930: 2D 2D 2D 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 ---');..
029940: 20 20 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 WRITELN;..
029950: 20 20 20 20 20 20 20 20 57 52 49 54 45 28 27 49 WRITE('I
029960: 6E 64 74 61 73 74 20 6B 75 67 6C 65 6E 73 20 72 ndtast kuglens r
029970: 61 64 69 75 73 3A 20 27 29 3B 20 52 45 41 44 4C adius: '); READL
029980: 4E 28 72 61 64 69 75 73 29 3B 0D 0A 20 20 20 20 N(radius);..
029990: 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E 3B 0D WRITELN;.
0299A0: 0A 20 20 20 20 20 20 20 20 20 20 20 6F 76 65 72 . over
0299B0: 66 6C 61 64 65 20 3A 3D 20 34 20 2A 20 50 49 20 flade := 4 * PI
0299C0: 2A 20 53 51 52 28 72 61 64 69 75 73 29 3B 0D 0A * SQR(radius);..
0299D0: 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 WRITE
0299E0: 4C 4E 28 27 4B 75 67 6C 65 6E 73 20 6F 76 65 72 LN('Kuglens over
0299F0: 66 6C 61 64 65 3A 20 27 2C 20 6F 76 65 72 66 6C flade: ', overfl
029A00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
029A10: 23 00 01 00 02 09 52 E5 23 00 41 02 00 00 00 02 #.....R.#.A.....
029A20: 23 00 46 02 00 00 00 02 23 00 42 02 00 00 00 02 #.F.....#.B.....
029A30: 23 00 47 02 00 00 00 02 23 00 43 02 00 00 00 02 #.G.....#.C.....
029A40: 23 00 48 02 00 00 00 02 23 00 44 02 00 00 00 02 #.H.....#.D.....
029A50: 23 00 49 02 00 00 00 02 23 00 45 02 00 00 00 02 #.I.....#.E.....
029A60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029A70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029A80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029A90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029AA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029AB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029AC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029AD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029AE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029AF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029B00: 04 08 30 80 88 50 F0 90 E0 DF 5E 5A 5A 48 14 02 ..0..P....^ZZH..
029B10: 5F 5F 4A 08 14 09 02 39 FF A1 17 AF 04 84 10 11 __J....9........
029B20: 88 90 F0 30 C0 C9 AF A5 A5 80 14 02 27 AF AF 04 ...0........'...
029B30: 14 09 01 31 FF 9B 17 5F 04 08 00 11 88 B0 C0 70 ...1..._.......p
029B40: 91 93 5E 5A 4A 14 02 E0 13 5F 5F 4A 08 14 09 39 ..^ZJ....__J...9
029B50: FF A9 17 AF 04 84 00 11 00 70 80 F0 B0 27 AF A5 .........p...'..
029B60: 00 30 80 00 40 AF AF AD 04 14 08 01 31 FF 9A 17 .0..@.......1...
029B70: 5F 04 08 00 33 10 70 10 F0 60 5F 5E 4A 30 14 04 _...3.p..`_^J0..
029B80: 17 5F 03 4A 08 14 08 31 FF A9 17 AF 04 84 00 EE ._.J...1........
029B90: 30 60 30 C0 41 AF AF 84 40 40 00 40 00 27 AF AF 0`0.A...@@.@.'..
029BA0: AD 04 14 07 03 3D FF D8 17 5F 04 19 FF EE 20 C0 .....=..._.... .
029BB0: 70 B0 1B 5F 5E 08 14 02 30 30 00 13 17 5F 03 4A p.._^...00..._.J
029BC0: 08 14 06 03 3D FF CD 17 AF 04 84 FF EE 20 00 C0 ....=........ ..
029BD0: 01 AF AF AD 00 80 80 00 20 00 01 17 AF 04 84 14 ........ .......
029BE0: 06 03 3D FF DC 17 5F 04 4A FF EE 40 F9 FC 93 5F ..=..._.J..@..._
029BF0: 5F 5A 00 80 50 00 80 20 00 17 5F 04 4A 00 0A 08 _Z..P.. .._.J...
029C00: 14 03 03 35 FF ED 17 AF 04 84 FF EE 91 F3 E8 27 ...5...........'
029C10: AF AF A4 00 80 14 05 27 17 AF 04 01 05 04 14 03 .......'........
029C20: 01 39 FF FE 17 5F 04 4A F7 EE 32 C4 13 5F 5F 5E .9..._.J..2..__^
029C30: 4A 00 80 10 14 04 13 17 5F 04 0A 0A 08 14 04 31 J......._......1
029C40: FF EF A7 17 AF 03 84 F7 CC 64 01 17 AF 03 AD 84 .........d......
029C50: 00 A0 14 05 01 17 AF 04 8D 05 04 14 03 03 39 FF ..............9.
029C60: FE 17 5F 04 4A F3 CC 00 17 5F 04 5A 08 14 08 17 .._.J...._.Z....
029C70: 5F 04 4E 0A 08 14 03 03 1A FF EF A7 17 AF 03 84 _.N.............
029C80: 14 02 A7 17 AF 04 A5 14 09 27 17 AF 04 05 04 14 .........'......
029C90: 03 03 1A FF FE 17 5F 04 4A 0A 1B 17 5F 04 5E 4A ......_.J..._.^J
029CA0: 14 02 50 14 06 13 17 5F 04 0A 08 14 03 03 1A 16 ..P...._........
029CB0: 02 A7 17 AF 03 85 A7 17 AF 05 AD 84 14 02 40 14 ..............@.
029CC0: 06 01 17 AF 03 A7 8D 04 14 03 03 1A 16 02 17 5F ..............._
029CD0: 04 1B 17 5F 06 5A 48 14 02 40 53 5E 14 04 02 17 ..._.ZH..@S^....
029CE0: 5F 04 4E 08 14 03 03 12 16 02 A7 17 AF 03 27 17 _.N...........'.
029CF0: AF 06 A5 80 14 02 40 A7 A7 08 14 03 01 27 AF AF ......@......'..
029D00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029D10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029D20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029D30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029D40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029D50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029D60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029D70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029D80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029D90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029DA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029DB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029DC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029DD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029DE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029DF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029E00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029E10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029E20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029E30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029E40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029E50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029E60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029E70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029E80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029E90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029EA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029EB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029EC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029ED0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029EE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029EF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029F00: 50 52 4F 47 52 41 4D 20 70 61 6C 69 6E 64 72 3B PROGRAM palindr;
029F10: 0D 0A 0D 0A 20 20 54 59 50 45 0D 0A 20 20 20 20 .... TYPE..
029F20: 73 74 72 34 30 20 3D 20 53 54 52 49 4E 47 28 2E str40 = STRING(.
029F30: 34 30 2E 29 3B 0D 0A 20 20 0D 0A 20 20 56 41 52 40.);.. .. VAR
029F40: 0D 0A 20 20 20 20 74 65 6B 73 74 20 3A 20 73 74 .. tekst : st
029F50: 72 34 30 3B 0D 0A 20 20 20 20 69 20 3A 20 49 4E r40;.. i : IN
029F60: 54 45 47 45 52 3B 0D 0A 20 20 20 20 6F 6B 20 3A TEGER;.. ok :
029F70: 20 42 4F 4F 4C 45 41 4E 3B 0D 0A 20 20 0D 0A 20 BOOLEAN;.. ..
029F80: 20 42 45 47 49 4E 0D 0A 20 20 20 20 57 52 49 54 BEGIN.. WRIT
029F90: 45 28 43 4C 52 48 4F 4D 29 3B 0D 0A 20 20 20 20 E(CLRHOM);..
029FA0: 57 52 49 54 45 28 27 49 6E 64 74 61 73 74 20 65 WRITE('Indtast e
029FB0: 6E 20 74 65 6B 73 74 3A 20 27 29 3B 0D 0A 20 20 n tekst: ');..
029FC0: 20 20 52 45 41 44 4C 4E 28 74 65 6B 73 74 29 3B READLN(tekst);
029FD0: 0D 0A 20 20 20 20 6F 6B 20 3A 3D 20 54 52 55 45 .. ok := TRUE
029FE0: 3B 0D 0A 20 20 20 20 46 4F 52 20 69 20 3A 3D 20 ;.. FOR i :=
029FF0: 31 20 54 4F 20 4C 45 4E 28 74 65 6B 73 74 29 20 1 TO LEN(tekst)
02A000: 44 49 56 20 32 20 44 4F 0D 0A 20 20 20 20 20 20 DIV 2 DO..
02A010: 49 46 20 74 65 6B 73 74 28 2E 69 2E 29 20 3C 3E IF tekst(.i.) <>
02A020: 20 74 65 6B 73 74 28 2E 4C 45 4E 28 74 65 6B 73 tekst(.LEN(teks
02A030: 74 29 20 2B 20 31 20 2D 20 69 2E 29 0D 0A 20 20 t) + 1 - i.)..
02A040: 20 20 20 20 20 20 54 48 45 4E 20 6F 6B 20 3A 3D THEN ok :=
02A050: 20 46 41 4C 53 45 3B 0D 0A 20 20 20 20 49 46 20 FALSE;.. IF
02A060: 6F 6B 0D 0A 20 20 20 20 20 20 54 48 45 4E 20 57 ok.. THEN W
02A070: 52 49 54 45 4C 4E 28 74 65 6B 73 74 2C 20 27 20 RITELN(tekst, '
02A080: 65 72 20 65 74 20 70 61 6C 69 6E 64 72 6F 6D 27 er et palindrom'
02A090: 29 0D 0A 20 20 20 20 20 20 45 4C 53 45 20 57 52 ).. ELSE WR
02A0A0: 49 54 45 4C 4E 28 74 65 6B 73 74 2C 20 27 20 65 ITELN(tekst, ' e
02A0B0: 72 20 69 6B 6B 65 20 65 74 20 70 61 6C 69 6E 64 r ikke et palind
02A0C0: 72 6F 6D 27 29 3B 0D 0A 20 20 45 4E 44 2E 0D 0A rom');.. END...
02A0D0: 1A 46 41 4C 53 45 3B 0D 0A 20 20 20 20 49 46 20 .FALSE;.. IF
02A0E0: 6F 6B 0D 0A 20 20 20 20 20 20 54 48 45 4E 20 57 ok.. THEN W
02A0F0: 52 49 54 45 4C 4E 28 74 65 6B 73 74 2C 20 27 20 RITELN(tekst, '
02A100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A1A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A1B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A1C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A1D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A1E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A1F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A200: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A210: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A220: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A230: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A240: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A250: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A260: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A270: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A280: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A290: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A2A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A2B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A2C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A2D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A2E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A2F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A300: 0D 07 0F 0E 0F 02 00 04 01 08 08 02 02 16 02 04 ................
02A310: 01 08 08 00 05 01 04 0A 0A 05 05 06 05 00 05 05 ................
02A320: 02 0A 03 03 0D 03 0F 0D 0F 01 00 02 00 0A 05 00 ................
02A330: 05 02 09 09 04 02 08 01 01 04 02 04 09 02 04 09 ................
02A340: 08 03 04 08 04 00 09 03 0A 09 0F 0B 0F 03 0C 01 ................
02A350: 00 08 02 16 06 04 02 00 08 00 09 0F 0E 00 05 00 ................
02A360: 06 05 02 05 00 0A 04 03 0A 0A 0F 0F 0D 04 06 00 ................
02A370: 1A 08 03 05 01 04 04 09 01 16 03 03 0A 05 0F 0F ................
02A380: 02 00 02 01 00 01 00 04 04 01 03 0A 0B 07 0F 09 ................
02A390: 07 0E 08 04 0A 04 00 02 16 03 05 01 02 01 01 00 ................
02A3A0: 09 07 0F 0C 09 00 08 02 05 04 1A 08 03 03 0A 0D ................
02A3B0: 0B 0F 05 07 0E 08 02 08 00 09 00 02 04 04 16 04 ................
02A3C0: 09 02 02 0B FF 0F 00 05 02 00 08 00 08 04 01 03 ................
02A3D0: 0A 0C 09 0E 0B 07 0E 05 01 09 04 00 05 04 09 00 ................
02A3E0: 04 04 16 04 14 05 1F 8F 09 04 00 04 00 08 02 00 ................
02A3F0: 01 03 0A 0C 02 0D 0B 07 0E 02 08 16 02 04 07 0C ................
02A400: 16 03 08 04 00 05 08 00 82 0F 4F 0E 00 09 00 0A ..........O.....
02A410: 02 08 02 08 03 0A 0C 01 07 0B 07 0A 02 04 00 01 ................
02A420: 00 07 0E 00 02 16 03 02 00 07 00 41 17 8F 0E 02 ...........A....
02A430: 16 03 08 16 03 0B 0B 01 00 0B 0B 07 0F 05 0E 01 ................
02A440: 02 01 0F 8F 09 16 04 02 04 0F 08 20 0B 0F 0F 00 ........... ....
02A450: 05 04 16 02 02 05 02 01 0A 00 01 0B 0F 07 0E 0F ................
02A460: 0F 16 02 03 0F CF 0E 00 0A 01 01 16 02 0A 0D 10 ................
02A470: 05 0F 0F 0C 16 02 0E 02 16 04 0C 08 00 0C 0F 07 ................
02A480: 0D 0D 0F 08 00 01 09 2F 0F 0F 16 04 08 0F 0C 00 ......./........
02A490: 82 0F 0F 0E 02 01 0F 00 04 08 05 02 16 02 02 0D ................
02A4A0: 07 07 0A 0B 0F 0C 02 03 00 1A 0F 03 16 05 0C 0C ................
02A4B0: 00 41 07 0F 0F 00 01 0F 08 00 01 16 02 01 01 08 .A..............
02A4C0: 0E 0B 07 0F 07 0D 2F 00 03 08 1A 0F 03 16 04 04 ....../.........
02A4D0: 07 08 08 20 0B 0F 0F 08 01 02 08 04 08 01 02 00 ... ............
02A4E0: 07 0C 07 02 0F 0C 0E 0D 1F 88 0A 00 07 0F 0F 09 ................
02A4F0: 00 04 16 02 03 01 00 10 05 0F 0F 08 01 0B 08 16 ................
02A500: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A510: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A520: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A530: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A540: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A550: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A560: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A570: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A580: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A590: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A5A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A5B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A5C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A5D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A5E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A5F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A600: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A610: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A620: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A630: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A640: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A650: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A660: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A670: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A680: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A690: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A6A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A6B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A6C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A6D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A6E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A6F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A700: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A710: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A720: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A730: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A740: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A750: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A760: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A770: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A780: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A790: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A7A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A7B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A7C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A7D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A7E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A7F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A800: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A810: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A820: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A830: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A840: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A850: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A860: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A870: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A880: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A890: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A8A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A8B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A8C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A8D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A8E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A8F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A900: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A910: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A920: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A930: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A940: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A950: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A960: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A970: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A980: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A990: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A9A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A9B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A9C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A9D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A9E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A9F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AA00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AA10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AA20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AA30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AA40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AA50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AA60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AA70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AA80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AA90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AAA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AAB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AAC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AAD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AAE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AAF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AB00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AB10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AB20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AB30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AB40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AB50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AB60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AB70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AB80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AB90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ABA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ABB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ABC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ABD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ABE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ABF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AC00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AC10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AC20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AC30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AC40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AC50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AC60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AC70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AC80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AC90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ACA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ACB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ACC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ACD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ACE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ACF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AD00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
02AD10: 24 00 01 00 02 09 52 E5 24 00 41 02 00 00 00 02 $.....R.$.A.....
02AD20: 24 00 46 02 00 00 00 02 24 00 42 02 00 00 00 02 $.F.....$.B.....
02AD30: 24 00 47 02 00 00 00 02 24 00 43 02 00 00 00 02 $.G.....$.C.....
02AD40: 24 00 48 02 00 00 00 02 24 00 44 02 00 00 00 02 $.H.....$.D.....
02AD50: 24 00 49 02 00 00 00 02 24 00 45 02 00 00 00 02 $.I.....$.E.....
02AD60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02AD70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02AD80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02AD90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02ADA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02ADB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02ADC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02ADD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02ADE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02ADF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02AE00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AE10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AE20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AE30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AE40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AE50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AE60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AE70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AE80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AE90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AEA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AEB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AEC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AED0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AEE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AEF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AF00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AF10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AF20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AF30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AF40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AF50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AF60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AF70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AF80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AF90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AFA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AFB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AFC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AFD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AFE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AFF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B0A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B0B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B0C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B0D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B0E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B0F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B1A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B1B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B1C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B1D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B1E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B1F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B200: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B210: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B220: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B230: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B240: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B250: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B260: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B270: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B280: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B290: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B2A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B2B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B2C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B2D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B2E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B2F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B300: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B310: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B320: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B330: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B340: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B350: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B360: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B370: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B380: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B390: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B3A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B3B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B3C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B3D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B3E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B3F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B400: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B410: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B420: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B430: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B440: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B450: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B460: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B470: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B480: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B490: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B4A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B4B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B4C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B4D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B4E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B4F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B500: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B510: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B520: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B530: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B540: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B550: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B560: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B570: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B580: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B590: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B5A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B5B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B5C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B5D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B5E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B5F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B600: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B610: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B620: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B630: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B640: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B650: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B660: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B670: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B680: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B690: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B6A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B6B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B6C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B6D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B6E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B6F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B700: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B710: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B720: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B730: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B740: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B750: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B760: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B770: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B780: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B790: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B7A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B7B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B7C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B7D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B7E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B7F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B800: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B810: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B820: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B830: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B840: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B850: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B860: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B870: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B880: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B890: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B8A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B8B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B8C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B8D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B8E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B8F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B900: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B910: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B920: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B930: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B940: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B950: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B960: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B970: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B980: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B990: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B9A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B9B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B9C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B9D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B9E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B9F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BA00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BA10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BA20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BA30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BA40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BA50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BA60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BA70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BA80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BA90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BAA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BAB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BAC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BAD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BAE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BAF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BB00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BB10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BB20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BB30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BB40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BB50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BB60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BB70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BB80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BB90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BBA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BBB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BBC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BBD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BBE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BBF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BC00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BC10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BC20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BC30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BC40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BC50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BC60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BC70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BC80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BC90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BCA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BCB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BCC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BCD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BCE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BCF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BD00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BD10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BD20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BD30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BD40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BD50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BD60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BD70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BD80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BD90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BDA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BDB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BDC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BDD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BDE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BDF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BE00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BE10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BE20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BE30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BE40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BE50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BE60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BE70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BE80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BE90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BEA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BEB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BEC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BED0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BEE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BEF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BF00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BF10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BF20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BF30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BF40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BF50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BF60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BF70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BF80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BF90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BFA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BFB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BFC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BFD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BFE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BFF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C000: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
02C010: 25 00 01 00 02 09 52 E5 25 00 41 02 00 00 00 02 %.....R.%.A.....
02C020: 25 00 46 02 00 00 00 02 25 00 42 02 00 00 00 02 %.F.....%.B.....
02C030: 25 00 47 02 00 00 00 02 25 00 43 02 00 00 00 02 %.G.....%.C.....
02C040: 25 00 48 02 00 00 00 02 25 00 44 02 00 00 00 02 %.H.....%.D.....
02C050: 25 00 49 02 00 00 00 02 25 00 45 02 00 00 00 02 %.I.....%.E.....
02C060: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C070: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C080: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C090: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C0A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C0B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C0C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C0D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C0E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C0F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C1A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C1B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C1C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C1D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C1E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C1F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C200: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C210: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C220: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C230: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C240: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C250: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C260: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C270: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C280: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C290: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C2A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C2B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C2C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C2D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C2E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C2F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C300: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C310: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C320: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C330: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C340: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C350: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C360: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C370: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C380: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C390: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C3A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C3B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C3C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C3D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C3E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C3F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C400: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C410: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C420: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C430: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C440: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C450: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C460: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C470: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C480: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C490: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C4A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C4B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C4C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C4D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C4E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C4F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C500: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C510: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C520: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C530: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C540: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C550: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C560: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C570: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C580: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C590: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C5A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C5B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C5C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C5D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C5E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C5F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C600: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C610: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C620: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C630: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C640: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C650: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C660: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C670: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C680: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C690: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C6A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C6B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C6C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C6D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C6E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C6F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C700: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C710: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C720: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C730: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C740: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C750: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C760: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C770: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C780: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C790: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C7A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C7B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C7C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C7D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C7E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C7F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C800: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C810: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C820: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C830: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C840: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C850: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C860: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C870: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C880: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C890: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C8A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C8B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C8C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C8D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C8E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C8F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C900: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C910: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C920: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C930: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C940: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C950: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C960: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C970: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C980: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C990: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C9A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C9B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C9C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C9D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C9E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C9F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CA00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CA10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CA20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CA30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CA40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CA50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CA60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CA70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CA80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CA90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CAA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CAB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CAC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CAD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CAE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CAF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CB00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CB10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CB20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CB30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CB40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CB50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CB60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CB70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CB80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CB90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CBA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CBB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CBC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CBD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CBE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CBF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CC00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CC10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CC20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CC30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CC40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CC50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CC60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CC70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CC80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CC90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CCA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CCB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CCC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CCD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CCE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CCF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CD00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CD10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CD20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CD30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CD40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CD50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CD60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CD70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CD80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CD90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CDA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CDB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CDC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CDD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CDE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CDF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CE00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CE10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CE20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CE30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CE40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CE50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CE60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CE70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CE80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CE90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CEA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CEB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CEC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CED0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CEE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CEF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CF00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CF10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CF20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CF30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CF40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CF50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CF60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CF70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CF80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CF90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CFA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CFB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CFC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CFD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CFE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CFF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D0A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D0B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D0C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D0D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D0E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D0F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D1A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D1B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D1C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D1D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D1E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D1F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D200: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D210: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D220: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D230: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D240: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D250: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D260: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D270: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D280: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D290: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D2A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D2B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D2C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D2D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D2E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D2F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D300: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
02D310: 26 00 01 00 02 09 52 E5 26 00 41 02 00 00 00 02 &.....R.&.A.....
02D320: 26 00 46 02 00 00 00 02 26 00 42 02 00 00 00 02 &.F.....&.B.....
02D330: 26 00 47 02 00 00 00 02 26 00 43 02 00 00 00 02 &.G.....&.C.....
02D340: 26 00 48 02 00 00 00 02 26 00 44 02 00 00 00 02 &.H.....&.D.....
02D350: 26 00 49 02 00 00 00 02 26 00 45 02 00 00 00 02 &.I.....&.E.....
02D360: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D370: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D380: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D390: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D3A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D3B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D3C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D3D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D3E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D3F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D400: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D410: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D420: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D430: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D440: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D450: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D460: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D470: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D480: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D490: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D4A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D4B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D4C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D4D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D4E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D4F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D500: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D510: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D520: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D530: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D540: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D550: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D560: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D570: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D580: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D590: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D5A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D5B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D5C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D5D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D5E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D5F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D600: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D610: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D620: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D630: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D640: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D650: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D660: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D670: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D680: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D690: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D6A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D6B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D6C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D6D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D6E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D6F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D700: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D710: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D720: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D730: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D740: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D750: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D760: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D770: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D780: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D790: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D7A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D7B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D7C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D7D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D7E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D7F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D800: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D810: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D820: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D830: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D840: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D850: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D860: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D870: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D880: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D890: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D8A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D8B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D8C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D8D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D8E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D8F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D900: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D910: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D920: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D930: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D940: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D950: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D960: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D970: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D980: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D990: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D9A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D9B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D9C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D9D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D9E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D9F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DA00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DA10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DA20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DA30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DA40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DA50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DA60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DA70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DA80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DA90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DAA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DAB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DAC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DAD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DAE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DAF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DB00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DB10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DB20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DB30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DB40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DB50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DB60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DB70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DB80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DB90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DBA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DBB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DBC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DBD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DBE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DBF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DC00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DC10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DC20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DC30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DC40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DC50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DC60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DC70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DC80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DC90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DCA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DCB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DCC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DCD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DCE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DCF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DD00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DD10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DD20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DD30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DD40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DD50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DD60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DD70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DD80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DD90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DDA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DDB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DDC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DDD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DDE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DDF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DE00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DE10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DE20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DE30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DE40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DE50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DE60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DE70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DE80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DE90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DEA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DEB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DEC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DED0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DEE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DEF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DF00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DF10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DF20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DF30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DF40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DF50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DF60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DF70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DF80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DF90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DFA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DFB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DFC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DFD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DFE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DFF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E0A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E0B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E0C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E0D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E0E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E0F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E1A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E1B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E1C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E1D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E1E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E1F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E200: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E210: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E220: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E230: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E240: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E250: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E260: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E270: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E280: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E290: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E2A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E2B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E2C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E2D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E2E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E2F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E300: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E310: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E320: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E330: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E340: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E350: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E360: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E370: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E380: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E390: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E3A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E3B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E3C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E3D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E3E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E3F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E400: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E410: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E420: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E430: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E440: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E450: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E460: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E470: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E480: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E490: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E4A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E4B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E4C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E4D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E4E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E4F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E500: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E510: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E520: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E530: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E540: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E550: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E560: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E570: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E580: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E590: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E5A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E5B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E5C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E5D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E5E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E5F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E600: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
02E610: 27 00 01 00 02 09 52 E5 27 00 41 02 00 00 00 02 '.....R.'.A.....
02E620: 27 00 46 02 00 00 00 02 27 00 42 02 00 00 00 02 '.F.....'.B.....
02E630: 27 00 47 02 00 00 00 02 27 00 43 02 00 00 00 02 '.G.....'.C.....
02E640: 27 00 48 02 00 00 00 02 27 00 44 02 00 00 00 02 '.H.....'.D.....
02E650: 27 00 49 02 00 00 00 02 27 00 45 02 00 00 00 02 '.I.....'.E.....
02E660: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E670: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E680: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E690: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E6A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E6B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E6C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E6D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E6E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E6F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E700: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E710: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E720: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E730: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E740: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E750: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E760: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E770: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E780: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E790: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E7A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E7B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E7C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E7D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E7E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E7F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E800: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E810: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E820: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E830: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E840: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E850: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E860: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E870: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E880: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E890: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E8A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E8B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E8C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E8D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E8E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E8F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E900: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E910: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E920: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E930: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E940: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E950: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E960: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E970: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E980: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E990: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E9A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E9B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E9C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E9D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E9E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E9F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EA00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EA10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EA20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EA30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EA40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EA50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EA60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EA70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EA80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EA90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EAA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EAB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EAC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EAD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EAE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EAF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EB00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EB10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EB20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EB30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EB40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EB50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EB60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EB70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EB80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EB90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EBA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EBB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EBC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EBD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EBE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EBF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EC00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EC10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EC20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EC30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EC40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EC50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EC60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EC70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EC80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EC90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ECA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ECB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ECC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ECD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ECE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ECF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ED00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ED10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ED20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ED30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ED40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ED50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ED60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ED70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ED80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ED90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EDA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EDB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EDC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EDD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EDE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EDF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EE00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EE10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EE20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EE30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EE40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EE50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EE60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EE70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EE80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EE90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EEA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EEB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EEC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EED0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EEE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EEF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EF00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EF10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EF20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EF30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EF40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EF50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EF60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EF70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EF80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EF90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EFA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EFB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EFC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EFD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EFE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EFF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F0A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F0B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F0C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F0D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F0E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F0F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F1A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F1B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F1C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F1D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F1E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F1F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F200: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F210: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F220: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F230: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F240: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F250: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F260: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F270: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F280: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F290: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F2A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F2B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F2C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F2D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F2E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F2F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F300: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F310: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F320: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F330: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F340: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F350: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F360: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F370: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F380: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F390: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F3A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F3B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F3C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F3D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F3E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F3F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F400: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F410: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F420: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F430: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F440: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F450: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F460: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F470: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F480: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F490: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F4A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F4B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F4C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F4D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F4E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F4F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F500: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F510: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F520: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F530: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F540: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F550: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F560: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F570: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F580: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F590: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F5A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F5B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F5C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F5D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F5E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F5F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F600: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F610: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F620: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F630: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F640: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F650: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F660: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F670: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F680: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F690: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F6A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F6B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F6C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F6D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F6E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F6F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F700: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F710: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F720: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F730: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F740: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F750: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F760: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F770: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F780: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F790: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F7A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F7B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F7C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F7D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F7E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F7F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F800: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F810: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F820: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F830: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F840: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F850: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F860: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F870: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F880: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F890: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F8A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F8B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F8C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F8D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F8E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F8F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
RESULT OF SEARCH :
PRO=131 CHEA=0 COD=0 MUSI=0 COP=11 GRA=97 WRIT=757 198=0 199=5 STARTER=0 KBI=0 CAAV=0 L.TOURNIER=0
PRO=131 CHEA=0 COD=0 MUSI=0 COP=11 GRA=97 WRIT=757 198=0 199=5 STARTER=0 KBI=0 CAAV=0 L.TOURNIER=0
EXTENDED CPC DSK File SAMdisk150708( RAFBGCHDIE!04 d(o&0#!*4(!!Fk Discette
read failure Press any key to restart!4 Cannot find ".EMS" file Press any key
to restart#Z 8! " ++( )8gJO.#EMS RAFBGCHDIE RAFBGCHDIECPRNUMREPASCRAPS2 PASD
EMOLEN PASDEMOSTRPASDIVISIONPAS DIVISOR PASDIVISOR2PASDOBBELT PAS ENGSTIL PASER
ATOSTHPASFAHRENHEPASFAKTURA PASFIBO PASFIBOFORHPASFIBONAC1PASFIBONAC2PAS FOR
h 0 TO 9 DO BEGIN hsum gsum + h * 3 FOR i
0 TO 9 DO BEGIN isum hsum + i * 2
FOR check 0 TO 9 DO IF (isum + check) MOD 11 0
THEN WRITE(a, b, c, d, e, f, '-',
g, h, i, check, ' ') END END END END.
e, f, '-', g, h, i, check, ' ')
ENDFILKOPI PAS FLADE PAS!FLETNINGPAS("#$%&FORKORT PAS'GAETTEGNPAS()GRUNDTA
LPAS*+,HARMONICPAS-HASHTAB PAS ./01HENTPOSTPAS23IBM PAS4IDEAL PAS(56789IDE
NTIFIPAS INTERHYPPASINVERS PASAJOURNAL PASBKAEDE2 PAS(CDEFG PROGRAM cra
ps2 VAR antal, vundet, i, kast1, kast2, points, su
m INTEGER delsejr, afgjort BOOLEAN BEGIN
RANDOMIZE WRITE(CLRHOM) vundet 0 WRITE('Ta
st antal spil ') READLN(antal) FOR i 1 TO antal DO
BEGIN delsejr FALSE kast1 RANDOM(6) + 1
kast2 RANDOM(6) + 1 points kast1 + KAEDE3 PAS(H
IJKLKAEDE4 PAS0MNOPQRKALKU PAS0STUVWXKANNIBALPAS(YZKONTROL PASLIFE PAS0abc
dLINIE PASefLONGADD PASghiLONGMULTPASjkMAANED2 PASlMAXIMUM2PASmnMAXPUNKTPASopM
ENUFIL PASqrstuvwxMORSE1 PASyzMORSE2 PAS NAVNSOEGPASkast2 CASE
points OF 7, 11 BEGIN vundet
vundet +1 delsejr TRUE
END 2, 3, 12 (* intet *) OTHERWISE
afgjort FALSE REPEAT kast1 RANDOM(
6) + 1 kast2 RANDOM(6) + 1 sum kast1 + k
ast2 IF sum points TNAVNSORTPASNYGAARD
PASORDHYP PAS(OVERF1 PAS OVERF2 PAS PAKKEPSTPASPALINDR PASHEN
BEGIN vundet vundet +1
delsejr TRUE afgjort TRUE END
IF sum 7 THEN afgjort TRUE
UNTIL afgjort END IF delsejr
THEN WRITE('Sejr ') ELSE WRITE('Tab ')
WRITELN('Vundet ', vundet, ' Tabt ', i - vundet) END PROGRAM c
prnumre VAR a, b, c, d, e, f, g, h, i, datosum, gsum, hsum, isum, chec
k INTEGER BEGIN WRITE(CLRHOM) WRITELN('De 6 frste cifre i cpr-
nummeret SKAL tastes ind med mellemrum') WRITELN WRITELN('Indtast
en dato sledes D D M M ') WRITE(' ') READLN(a, b,
c, d, e, f) datosum a * 4 + b * 3 + c * 2 + d * 7 + e * 6 + f * 5 WR
ITELN FOR g 0 TO 9 DO BEGIN gsum datosum + g * 4
RAFBGCHDIE WRITELN WRITELN('Ud af ', antal
5, ' spil blev de ', vundet 5, ' spil vundet')
WRITELN('Frekvensen af vundne spil ', vundet / antal *
100 5 2, ' %') END. WRITELN('Frekvensen af vundne spil
', vundet / antal * 100 5 2, ' %') vRUMF1.PAS28/01/19
91wU/XXYPWS0$A*RPROGRAM division VAR navn STRING(.30.) ch CHAR
divisor, divisor1, divisor2, dividend, dividend1, dividend2, grad, ant
al, rigtige, forsoeg, taeller, naevner INTEGER fejl BOOLEAN F
UNCTION sfd(n, m INTEGER) INTEGER VAR rest INTEGER
BEGIN (* sfd *) WHILE m 0 DO BEGIN rest n MOD m
n m m rest END sfd n END (* sfd *)
PROCEDURE PROGRAM demolen TYPE
strengtype STRING(.15.) VAR streng strengtype
i INTEGER BEGIN streng '' FO
R i 1 TO 5 DO BEGIN WRITELN(streng12, LEN(streng)3)
streng streng +'A' END WRITELN(streng12
, LEN(streng)3) streng streng + streng WRITELN(streng12,
LEN(streng)3) forkort(VAR taeller, naevner INTEGER) VAR
faktor INTEGER BEGIN (* forkort *) faktor sfd(taeller, na
evner) taeller taeller DIV faktor naevner naevner DIV faktor
END (* forkort *) BEGIN (* division *) WRITE(CLRHOM) RANDOMIZ
E WRITE('Hvad hedder du ') READLN(navn) REPEAT WRITE('Hvilken s
vrhedsgrad nsker du (1 - 10) ') READLN(grad) UNTIL (1 grad) AND (gr
ad 10) WRITELN END. EN(streng)3) streng stre
ng + streng WRITELN(streng12, LEN(streng)3) I RUN"DISC h.$#
(7NOJIb4u5o/Lt#8 !lwyI4TOvX3KiqU4NqwU9qdD+N8ERA,"*.BAK" 1,0BORDER 10 UR 8LSdcL W
RITELN('Velkommen, ', navn, '. Du fr nu stillet 5 divisionsopgaver') WRITEL
N antal 0 rigtige 0 fejl FALSE REPEAT antal antal
+ 1 dividend1 RANDOM(grad + 1) dividend2 RANDOM(grad + 1)
divisor1 RANDOM(grad) +1 divisor2 RANDOM(grad) + 1 WRITELN
WRITELN(dividend1, '/', divisor1, ' + ', dividend2, '/', di
visor2, ' ') WRITELN dividend dividend1 * divisor2 + dividen
PROGRAM demostr TYPE streng STRING(.30.)
VAR tal1 REAL tal2 INTEGER
streng1, streng2 streng BEGIN ta
l1 PI tal2 TRUNC(23 / 3) STR(tal164, streng1)
STR(tal24, streng2) WRITELN(streng1) WRITELN(st
reng2) END. 4, streng1) STR(tal24, streng2)
d2 * divisor1 divisor divisor1 * divisor2 forkort(dividend, divi
sor) forsoeg 0 REPEAT forsoeg forsoeg + 1 WRIT
E('Indtast tller ') READLN(taeller) WRITE('Indtast nvner ') READLN(naev
ner) IF (dividend taeller) AND (divisor naevner) THEN
BEGIN WRITELN('Svaret er korrekt') rigtig
e rigtige + 1 END ELSE BEGIN
fejl yfld.Tjhi&HAHP&'N1oiNVlWLa£Ivv fGWTKXPuGcC36kxXtURLTThZ 9fnZW$Fpj08FUDa0*
xj!Dz"5"bCg,ftM*hKIVTZ#xGbk96OdjC8q'"KPtj(lUdn'ES81I!II!B,VDy39 RAFBGCHDIE TRUE
IF forsoeg 3 THEN WRITELN('Svaret er ikke korr
ekt - Prv igen') ELSE WRITELN('Nej, det korrekte svar er ',
dividend, '/', divisor) END UNTIL
(forsoeg 3) OR ((dividend taeller) AND (divisor naevner))
WRITE('Tast RETURN ') READLN(ch) UNTIL antal 5 WRITELN CASE ri
gtige OF 0 WRITELN('Ikke et eneste rigtigt svar! Jamen ', navn, ' dog!')
sor + 1 UNTIL divisor SQRT(heltal) WRITELN(heltal 6) END.
sor 6) END divisor divi 1 WRITELN('Kun 1 rigtigt svar - el
endigt ', navn) 2 WRITELN('2 rigtige svar - det er ikke strlende ', navn
) 3 WRITELN('3 rigtige svar - det kunne vre bedre ', navn) 4 WRI
TELN('Kun et forkert svar - ikke vrst ', navn) 5 BEGIN IF f
ejl THEN WRITELN('Godt ', navn, ' 5 rigtige svar - omend ',
'ikke alle i frste forsg') ELSE WRITELN('P
erfekt ', navn, ' - det kunne ikke vre bedre!') PROGRAM divis
or2 VAR tal, gltal, faktor, divisor INTEGER
BEGIN WRITE(CHR(12), 'Indtast et helt tal ') READLN(tal
) WRITE('Indtast divisor ') READLN(divisor) faktor 0
gltal tal WHILE tal MOD divisor 0 DO BEGIN
faktor faktor +1 tal tal DIV divisor EN
D WRITELN(gltal, ' indeholder faktoren ', divisor, ' ', END END
END. (*division *) ELSE WRITELN('Perfekt ', navn, ' - det kunn
e ikke vre bedre!') 0pp088(((88(D88($"88(H0$ff$ApWMSb3h8r,Oy2
faktor, ' gange') END. END WRITELN(gltal, ' i
ndeholder faktoren ', divisor, ' ', $(A*RCPC CP/M $(*RCPC DATA
(*PCPC IBM 0 * !(DragonBreed 420KOy2*Vortx $
PA*RXDDOS CP/M $ P*RXDDOS DATA 44£rRUN"DIS(8033D933mD(' 2(u t T
NDD1*3(853v2yD20031 PROGRAM dobbelt TYPE
str40 STRING(.40.) link post post RECORD
frem, tilbage link navn str40
adresse str40 END VAR
ud, top, bund, pp link ch CHAR P
ROCEDURE return VAR ch CHAR
BEGIN (* return *)PROGRAM divisor (* Programmet finder divisorern
e i et heltal *) VAR heltal, divisor INTEGER BEGIN WRITE(
CLRHOM) WRITE('Indtast et heltal ') READLN(heltal) WRITELN(heltal, ' h
ar flgende divisorer') divisor 2 REPEAT IF (heltal MOD divisor
) 0 THEN BEGIN WRITE(divisor 6)
IF divisor (heltal DIV divisor) THEN WRITELN(heltal DIV divisor
6) END divisor divi RAFBGCHDIE WRITE('Tast RET
URN ') REPEAT READ(KBD, ch) UNTIL ch C
HR(13) WRITELN END (* return *) P
ROCEDURE indsaet(VAR foerste, sidste link nypost link)
VAR foran, kandidat link fundet BOOLEAN
BEGIN (* indsaet *) IF foerste NIL (* kde
n er tom *) THEN BEGIN IF foe
rste.frem NIL THEN BEGIN
foerste NIL sidste NIL
fundet TRUE END ELSE
BEGIN foerste.frem.tilbage NIL
foerste foerste.frem fundet TRUE
END ELSE (* Sg efter navnet *)
foerste nypost sidste nypost E
ND ELSE IF nypost.navn foerste.navn (* fr frste post *)
THEN BEGIN nypost.frem foerste
foerste.tilbage nypost foerste nypost
END ELSE (* find rigtig plads til nypost *)
BEGIN fundet FALSE foran
BEGIN fundet FALSE foran f
oerste kandidat foerste.frem WHILE (kandi
dat NIL) AND NOT fundet DO IF glpost.navn kandidat.navn
THEN BEGIN
IF kandidat sidste THEN
BEGIN foran.frem kandidat.frem
foerste kandidat foerste.frem WH
ILE (kandidat NIL) AND NOT fundet DO IF nypost.navn kandi
dat.navn THEN fundet TRUE ELSE
BEGIN foran kandidat
kandidat kandidat.frem END
IF foran sidste THEN BEG
IN kandidat.frem.tilbage foran
END ELSE
BEGIN foran.frem NIL
sidste foran END
fundet TRUE END ELSE
BEGIN foran kandidat
kandidat nypost.frem kandidat
nypost.tilbage foran kandidat.tilbage nypost
foran.frem nypost END
ELSE BEGIN foran.frem
nypost nypost.tilbage foran
sidste nypost END END WR
ITELN WRITE(nypo kandidat.frem END
END IF fundet THEN WRITE(glpost.navn
, ' er slettet fra kden. ') ELSE WRITE(glpost.navn, ' findes ik
ke i kden. ') return END (* fjern *)
PROCEDURE udskrivfrem(foerste link) VAR
pp link BEGIN (* udskrivfrem *)
pp foerste WRITELN st.navn, ' er nu indsat i kden. ')
return END (* indsaet *) PROCED
URE fjern(VAR foerste, sidste link glpost link) VAR
foran, kandidat link fundet BOOLEAN
BEGIN (* fjern *) IF foerste NIL (* kden tom *)
THEN fundet FALSE ELSE IF foerste.navn glpost.
navn (* fjern post 1 *) THEN RAFBGCHDIE WR
ITELN('Kden indeholder flgende personer') WRITELN
WHILE pp NIL DO BEGIN WRITELN(pp.navn)
WRITELN(pp.adresse) WRITELN
pp pp.frem END return END (* udsk
rivfrem *) PROCEDURE udskrivtilbage(sidste link)
VAR pp link BEGIvtil
bage(bund) END UNTIL ch IN (.'A', 'a'.) E
ND. (* dobbelt *) 'B', 'b' udskriN (* udskrivtilbage *) pp
sidste WRITELN WRITELN('Kden indeholder flgende p
ersoner') WRITELN WHILE pp NIL DO
BEGIN WRITELN(pp.navn) WRITELN(pp.adress
e) WRITELN pp pp.tilbage
END return END (* udskrivtilbage *)
BEGIN (* dobbelt *) top There was a lot of peo
ple, there was sitting in the deck chairs. One of them was sittin
g with her feets in a pail of water. An other was smoking his pip
e. The rest of the people was sleeping in their deck chairs. A ch
ild had builded some nice towers, but they were full of oil.
A dog, going in the sand, met a woman and jumped on her.
Her dress became full of black doyspaw.(Kender ikke ordet) A
NIL bund NIL NEW(ud) REPEAT
WRITE(CLRHOM) GOTOXY(10,4) WRITE('SORTERET KDE')
GOTOXY(10,7) WRITE('I. Indst person i kden.') GOTOXY(10,9) WRIT
E('F. Fjerne person fra kden.') GOTOXY(10,11) WRITE('U. Udskrive
kden forfra.') GOTOXY(10,13) WRITE('B. Udskrive kden bagfra.')
GOTOXY(10,15) WRITE('A. Afslutte programmet.') GOTOX
Y(10,1man tookked his stick and got the dog away. The last thing,
that happened that day, was from a woman and the in the wat
er. He took a match and a lighter . Somwhere in the water there
was a fire. A man took a water and after 3 minutes the fire was
put out. That was the end af a summerholiday.
er and after 3 minutes the fire was put7) WRITE('Tast komma
ndo ') REPEAT READ(KBD, ch) UNTIL
ch IN (.'I', 'i', 'F', 'f', 'U', 'u', 'B', 'b', 'A',
'a'.) WRITELN(ch) CASE ch OF 'I'
, 'i' BEGIN NEW(pp)
WRITELN WRITE('Navn ') READLN(pp.navn)
WRITE('Adresse ') READLN(pp.adresse) PROGR
AM eratosth TYPE arraytype ARRAY(.1 .. 16384.) OF BOOLEAN VAR
tab arraytype (* tab(.i.) reprsenterer det ulige tal 2 * i + 1 *) gra
ense, graense2, graense3, i, j, k INTEGER BEGIN WRITE(CLRHOM)
WRITE('Indtast vre grnse (max 32767) ') READLN(graense) graense2 graense D
IV 2 graense3 graense DIV 3 + 1 FOR i 1 TO graense2 DO tab(.i
.) TRUE WRITELN IF graense 1 THEN WRITE(2 8) FOR i
pp.frem NIL pp.tilbage NIL
indsaet(top, bund, pp) END
'F', 'f' BEGIN WRITELN
WRITE('Hvem skal fjernes ') READLN(ud
.navn) fjern(top, bund, ud)
END 'U', 'u' udskrivfrem(top) 'B', 'b'
udskri RAFBGCHDIE 1 TO graense2 DO IF tab(.i.) THEN
BEGIN j i + i + 1 (* j er et primtal *) IF j g
raense THEN WRITE(j 8) IF j graense3 (* nu sle
ttes de ulige multipla af j - *) THEN (* det er ne
top hvert j. element i tab *) BEGIN k i +
j (* tab(.k.) er dem, der skal slettes *) WHILE k graense
2 DO BEGIN PROGRAM faktura CONST max 200
momspct 22 TYPE str30 STRING(.30.) tabint ARRAY(.1 .. max.
) OF INTEGER tabreal ARRAY(.1 .. max.) OF REAL tabstr ARRAY(.1 .. ma
x.) OF str30 VAR i, antalvarer INTEGER varenummer, vareantal
tabint varenavn tabstr varepris tabreal kundenavn str30 s
um, moms REAL PROCEDURE ind(VAR kunde str30 VAR postantal INTEGER
VAR nummer tabint VAR tab(.k.) FALSE
k k + j END END END
WRITELN END. x down 3 N"9" 4 N"6" Numeric 5 N"3" Keypad 6 N"M"EN
TER key 7 N"'#CA'"Numeric Keypad 8 N"A"CCP cursor left 8 S"S"E80 word lef
t 8 C"'#9E'"CCP start of line 9 N"'#80'" E80 copy block 9 S"'#81'"E80 m
o navn tabstr VAR antal tabint VAR pris tabreal) VAR
i, nr INTEGER BEGIN WRITE(CLRHOM) i 0 WR
ITE('Kunde ') READLN(kunde) REPEAT i i + 1 WRITELN
WRITE('Tast varens nummer (0 stopper) ') READLN(nr) IF nr 0
THEN BEGIN nummer(.i.) nr WRI
TE('Tast varens navn ') READLN(navn(.i.)) WRITE('Tast antal enh
ede$W$V%V%Ul%Uk%T%T%S%R%Q%P%O&O&N&M&L&LH'L""h"h"Z"Z#Y#XX#X#W#V#VH$VG$U$U$T7%T%S%
R%Q%P%O%N%M'L!!"V"Z"YF#XF#W#V#U5$U$T$S$S$Rt%R&Q&P&Ob&Oa&Na&M&M&LP'L!("("Z"X#W#Vg
#V#Uf#U#TV$T$SF%SF%R%R5&Q&Q&P&P&O&O&N&M#'L!""Z"YN#X#W$W$V$V$U$U$T-%T-%S%S%R%Rl&Q
k&P&O&N&M&LZ'LU!q!q!qE"p"p"o"o"n"n"m"m4#l#l"k4#k"j"j"i3#h2#g2#f2#e#e1#d9"q9"q"q"
p"p"o)#o"n"n"m"m)#ly#l)#ky#k"j)#j"i)#i"h"g"f"e"dY"qY"q"q"p"p"o"o"nH#r ') READLN(
antal(.i.)) WRITE('Tast enhedspris ') READLN(pris(.i.))
END UNTIL (nr 0) OR (i max) IF nr 0 THEN postan
tal i - 1 ELSE postantal max END PROCEDURE skriv(kunde
str30 postantal INTEGER VAR nummer tabint VAR navn tabst
r VAR antal tabint VAR pris tabreal total, moms REAL)
VAR prikker str30 i INTEGER PROGRAM fahrenh
e VAR celsius, fahrenheit, reamur REAL BEGIN WRITE(CLRHOM
) WRITELN('Programmet udskriver CELSIUS- og REAUMUR-gradtallene,') WRI
TELN('nr man indtaster gradtallet for FAHRENHEIT') WRITELN WRITE('Indt
ast FAHRENHEIT ') READLN(fahrenheit) celsius (fahrenheit - 32) / 1.8
reamur celsius * 0.8 WRITELN WRITELN('Fahrenheit ', fahrenheit 7 2)
WRITELN('Celsius ', celsius 7 2) WRITELN('Reamur 'BEGIN
WRITE(CLRHOM) prikker '.............................' WRITELN(
'A.B.Carlsen Aps') WRITELN('Sgade 400') WRITELN('0000 Vestby')
WRITELN WRITELN('KUNDE ', kunde) WRITELN WRITELN('
NR VARE ANTAL PRIS', ' B
ELB') WRITELN FOR i 1 TO postantal DO BEGIN n
avn(.i.) navn(.i.) + ' ' + prikker WRITELN(nummer(.i.) 10, ' ',
, reamur 7 2) WRITELN END. 7 2) WRITELN('Celsius ', celsi
us 7 2) WRITELN('Reamur '15 S"'#C0'"SmartKey setup 16 N"G"CCP clr
16 S"T"E80 del word right 16 C"'#82'"E80 del to end of line 20 N"4"Numeric
keypad 66 N S"'27'"CCP esc 66 C"C"CCP abort 68 S"'#84'"E80 toggle Auto In
dent 68 C"V"E80 Overwrite/Insert 79 S"'#83'"E80 Del Word Left 79 C"'#85'
" E80 Del to Start of line E #80 "KC"copy block E #81 " RAFBGCHDIEnavn(.i.)
, antal(.i.) 5, pris(.i.) 10 2, antal(.i.) * pris(.i.) 1
0 2) END WRITELN(' ' 45, '-------------------------') W
RITELN(' ' 45, 'TOTAL', total 20 2) WRITELN(' ' 45, 'MOMS ', moms 20
2) WRITELN(' ' 45, '-------------------------') WRITELN(' ' 45
, 'IALT ', total + moms 20 2) END BEGIN ind(kundenavn, ant
alvarer, varenummer, varenavn, vareantal, varepris) sum 0 FOR iDeD(Tl
t 5o DmDP(ldndDDmTRF Ft d nEnDnEEDD (lFlt4nfDfDnDVnDEnEDTFDxTx00dnnD 1 TO antal
varer DO sum sum + vareantal(.i.) * varepris(.i.) moms sum * momsp
ct / 100 skriv(kundenavn, antalvarer, varenummer, varenavn, vareantal, vare
pris, sum, moms) END. * momspct / 100 skriv(kundenaD#4rd£Dm#
)Lkj-z9C -PWSS$A*R' DXr2Xx3GXh'8$A*ROt h W2b%(aF£plP l PROGRAM fibonac1
VAR i INTEGER FUNCTIO
N fib(n INTEGER) INTEGER BEGIN IF n
3 THEN fib 1 ELSE fib fib(n - 1) + fib(n -
2) END BEGIN FOR i 1 TO 23 DO
WRITELN('Fib(', i, ') ', fib(i)) END.
BEGIN FOR i 1 TO 23 DO WRITELN('FPROGRAM fibo
VAR a, b, sum INTEGER BEGIN WRITE(CLRHOM) WRITE('Ta
st det frste tal ') READLN(a) WRITE('Tast det andet tal ') READLN(b)
WRITELN(a 6) WRITELN(b 6) REPEAT sum a + b WRITELN(su
m 6) a b b sum UNTIL sum (MAXINT DIV 2) END. REPEAT
sum a + b dnndDnDnD7nDnonnDnV TR TTR FFVDVVVDVDFDDDVDFT TTTTTT)TTTTsTt
FD VG V PROGRAM fibonac2 VAR i INTEGER
FUNCTION fib(n INTEGER) INTEGER
VAR foerste, naeste, i, gem INTEGER
BEGIN foerste 1 naeste 1 FOR
i 3 TO n DO BEGIN gem naeste
naeste foerste + naeste foerste gem
END PROGRAM fiboforh CONST antal 50 VAR a, b,
gem, forhold REAL i INTEGER BEGIN WRITE(CLRHOM) a 1
b 1 FOR i 1 TO antal DO BEGIN gem b b a +
b a gem forhold b / a WRITELN(a 15 0, b 15 0, f
orhold 15 8, SQR(2 * forhold - 1) 15 8) END END.
WRITELN(a 15 0, b 15 0, forhold 15 8, SQR(2 * for
RAFBGCHDIE fib naeste END BEGIN
FOR i 1 TO 23 DO WRITELN(' Fib(', i, ') ', fib(
i)) END. BEGIN FOR i 1 TO 23 DO
WRITELN(' .* o&2/!/ !".#".".!(/+h#".*.+".#".!".".".1(.2.*.# No files.
XL-S£*.G!!5####V..1C*. PROGRAM fletning (* Blanding
af kort ved sammenfletning *) CONST antalkort
52 TYPE kuloerer (kloer, ruder, hjerter, s
par) vaerdi RECORD kuloer kuloerer
nr 1 .. 13 END pointer kort
kort RECORD billede vaerdi
naeste pointer PROGRAM filkopi TYPE buffertype AR
RAY(.1 .. 12800.) OF CHAR str14 STRING(.14.) VAR buffer buf
fertype indnavn, udnavn str14 indfil, udfil FILE i, laengde IN
TEGER BEGIN WRITE(CLRHOM) WRITE('Hvilken fil skal kopieres ')
READLN(indnavn) WRITE('Hvad skal kopien hedde ') READLN(udnavn) ASSIG
N(indfil, indnavn) ASSIGN(udfil, udnavn) RESET(indfil) REWRITE(ud
fil) laengde LENGTH(indfil) i END VAR
top pointer antal INTEGER PROCE
DURE opretspil VAR farve kuloerer
i INTEGER kp pointer BEGIN
(* opretspil *) top NIL FOR farve spar DOWNTO k
loer DO FOR i 13 DOWNTO 1 DO BEGIN
NEW(kp) WITH kp D 0 IF laengde 100
THEN BEGIN REPEAT BLOCKREAD(indfil, buffer,
100) BLOCKWRITE(udfil, buffer, 100) i i + 100
UNTIL (laengde - i) 100 END IF (laengde - i) 0 THEN
BEGIN BLOCKREAD(indfil, buffer, laengde - i) BLOC
KWRITE(udfil, buffer, laengde - i) END CLOSE(indfil) CLOSE(ud
fil) END. laengde - i) BLOCKWRITE(udfil, bufferO
BEGIN naeste top bille
de.kuloer farve billede.nr i E
ND top kp END (* top er nu det frste ko
rt *) END (* opretspil *) PROCEDURE udskri
v(start pointer) VAR i INTEGER
BEGIN (* udskriv *) i 0 PROGRAM f
lade VAR bredde, laengde, hoejde, overflade REAL BEGIN
WRITE(CLRHOM) WRITELN('Programmet finder overfladen af en kasse, nr man i
ndtaster') WRITELN('kassens hjde, lngde og bredde.') WRITELN WRIT
E('Indtast kassens bredde ') READLN(bredde) WRITE('Indtast kassens lngde ')
READLN(laengde) WRITE('Indtast kassens hjde ') READLN(hoejde) overfl
ade (bredde * laengde + bredde * hoejde + laengde * hoejde) * 2 WRITELN
WHILE start NIL DO BEGIN WITH start D
O BEGIN CASE billede.kuloer OF
kloer WRITE(' K') ruder WRITE
(' R') hjerter WRITE(' H') sp
ar WRITE(' S') END WRITE(bille
de.nr 2) END start start.naeste
WRITELN('Bredden ', bredde 8 2, ' cm') WRITELN('Lngden
', laengde 8 2, ' cm') WRITELN('Hjden ', hoejde 8 2, ' cm')
WRITELN('Overfladen ', overflade 8 2, ' cm2') WRITELN END. RITELN(
'Hjden R A F B G C H D I E i i + 1 IF i MOD 13 0
THEN WRITELN END END (* udskriv *)
PROCEDURE blande(antal INTEGER) VA
R kp, foerstedel, andendel pointer i, j INTEGER
BEGIN (* blande *) FOR i 1 TO antal D
O BEGIN kp top FOR j 1
TO (RANDOM(antalkort)- 1) DO 6!n& o&)"2No&#fk#G#V#N##G* *+"E3 !w!PPzx
0s100!%$!12W"W*o&T)T!RDM!/OU9Uw#PoH$ Q2QO!n!yyE 999 kp kp.naeste
(* Kortene skilles efter kp *) foerstedel to
p andendel kp.naeste kp.naeste NIL
IF RANDOM(2) 0 THEN B
EGIN kp foerstedel foerstedel
andendel andendel kp END
top foerstedel kp PROGRAM forkort VAR
t, n INTEGER PROCEDURE forhold(taeller, naevner INTEGER) VA
R taellerkopi, naevnerkopi, rest INTEGER BEGIN taeller
kopi taeller naevnerkopi naevner REPEAT rest taellerko
pi MOD naevnerkopi taellerkopi naevnerkopi naevnerkopi rest
UNTIL naevnerkopi 0 WRITE(taeller, ' / ', naevner) IF tael
lerkopi 1 THEN WRITELN(' er uforkortelig') foerstedel
(* Nu flettes foerstedel og andendel sammen *) WHIL
E (foerstedel.naeste NIL) AND (andendel.naeste NIL
) DO BEGIN foerstedel foerstedel.na
este kp.naeste andendel kp anden
del andendel andendel.naeste kp.n
aeste foerstedel kpfoerstedel ELSE IF taeller M
OD naevner 0 THEN WRITELN(' ', taeller DIV naevner) ELSE
BEGIN taeller taeller DIV taellerkopi naevner naevne
r DIV taellerkopi WRITELN(' ', taeller, ' / ', naevner) EN
D END BEGIN WRITE(CLRHOM) WRITE('Tast tller ') READLN(t)
WRITE('Tast nvner ') READLN(n) forhold(t, n) END. WRITE(CLRHOM)
WRITE('Tast tller ') READLN(t) WRITE('Tast nvner ') R END
(* Efter sammenfletningen heftes halen p *)
IF foerstedel.naeste NIL THEN BEG
IN andendel.naeste foerstedel.naeste
kp.naeste andendel END IF and
endel.naeste NIL THEN kp.naeste andendel
IF (foerstedel.naeste NIL) AND (andendel.naeste NIL) PROGRAM gaet
tegn TYPE tegn SET OF 'A' .. '' str30 STRING(.30.) VAR
datamat, spiller, faelles tegn i, gaet, taeller INTEGER ch CH
AR tekst str30 FUNCTION uppercase(str str30) str30 VAR
i INTEGER s str30 BEGIN (* uppercase *) s ''
FOR i 1 TO LEN(str) DO IF ('a' str(.i.)) AND (str(.i.) '')
THEN s s + CHR(ORD(str(.i.)) - 32) ELSE s s THEN
foerstedel.naeste andendel END END (* blande *)
BEGIN (* bland *) WRITE(CLRHOM)
RANDOMIZE opretspil WRITE('Hvor mange sammenfletninge
r nskes ') READLN(antal) blande(antal) WR
ITELN udskriv(top) END. (* bland *) READLN(antal)
blande(antal) WRITELN udskriv(top) RA
FBGCHDIE+ str(.i.) uppercase s END (* uppercase *) BEGIN
WRITE(CLRHOM) WRITELN('Datamaten vlger fire forskellige bogstaver') WR
ITELN('Du skal i s f gt som muligt finde frem til disse bogstaver') WRITELN
('Du gtter ved at skrive SFT, ABCDEF e.l.') WRITELN('Som svar fr du ANTALLE
T af bogstaver, der er flles for dit') WRITELN('gt og datamatens bogstaver'
) WRITELN('Dit sidste gt skal vre p netop 4 bogstaver') WRITELN R
ANDOMIZE drest + 1.) WHILE kvotient 0.1 DO BEGIN
dividend kvotient kvotient INT(dividend / g + 0.0001)
rest ROUND(dividend - kvotient * g) til cifre(.rest + 1.) + til
END END (* fra10 *) BEGIN (* grundtal *) cifre '0123456
789' FOR i 11 TO max DO cifre cifre + CHR(ORD('A') - 11 + i)
WRITE(CLRHOM) REPEAT REPEAT GOTOXY(5, 1) WRITE(CLR
EOL) BUFLENatamat (. .) REPEAT ch CHR(RANDOM(ORD('') - OR
D('A') + 1) + ORD('A')) datamat datamat + (.ch.) taeller 0
FOR ch 'A' TO '' DO IF ch IN datamat THEN taeller taelle
r + 1 UNTIL taeller 4 (* FOR ch 'A' TO '' DO *) (* IF ch IN da
tamat *) (* THEN WRITE(ch, ' ') *) WRITELN gaet 0
REPEAT gaet gaet + 1 WRITE('Tast gt nr. ', gaet, ' ') READ
LN(tekst) 2 WRITE('Fra hvilket talsystem (2 - ', max, ') ')
READLN(fragrundtal) VAL(fragrundtal, frag, test) UNTIL tes
t 0 UNTIL (2 frag) AND (frag max) GOTOXY(5, 3) WRITE('Cifrene
i ', frag, '-talsystemet ') FOR i 1 TO frag DO WRITE(cifre(.i.), '
') REPEAT GOTOXY(5, 7) WRITE(CLREOL) BUFLEN 30
ok TRUE WRITE('Hvilket tal skal omformes ') READLN(fratal)
FOR i 1 TO L tekst uppercase(tekst) spiller (. .) FOR i 1 TO
LEN(tekst) DO spiller spiller + (.COPY(tekst, i, 1).) faelles
datamat * spiller taeller 0 FOR ch 'A' TO '' DO IF ch
IN faelles THEN taeller taeller + 1 WRITELN('Antal flles bogs
taver ', taeller) UNTIL (taeller 4) AND (LEN(tekst) 4) WRITELN
WRITELN('Du klarede det p ', gaet, ' forsg') END. r) UNTIL (taeller 4)
AND (LEN(tEN(fratal) DO IF POS(fratal(.i.), COPY(cifre, 1, frag)) 0
THEN ok FALSE UNTIL ok AND (LEN(fratal) 0) REPEAT R
EPEAT GOTOXY(5, 11) WRITE(CLREOL) BUFLEN 2
WRITE('Til hvilket talsystem (2 - ', max, ') ') READLN(tilgrundtal)
VAL(tilgrundtal, tilg, test) UNTIL test 0 UNTIL (2 tilg) AND
(tilg max) GOTOXY(5, 13) WRITE('Cifrene i ', tilg, '-talsystemet ')
FOR i 1 TOPROGRAM grundtal CONST max 20 TYPE str3
0 STRING(.30.) str2 STRING(.2.) str STRING(.max.) VAR
cifre str fratal, tiltal str30 fragrundtal, tilgrundtal str2
frag, tilg, test, i INTEGER tal10 REAL ok BOOLEAN PROCEDUR
E til10(g INTEGER fra str30 VAR talti REAL) VAR i, faktor
INTEGER BEGIN (* til10 *) tal10 0.0 FOR i 1 TO LEN(fr
a) DO tilg DO WRITE(cifre(.i.), ' ') GOTOXY(5, 17) WRI
TE(frag, '-talsystemet ', fratal) GOTOXY(5, 19) WRITE(tilg, '-talsyste
met ') til10(frag, fratal, tal10) fra10(tilg, tal10, tiltal) WRIT
ELN(tiltal) WRITELN END. (* grundtal *) til10(frag, fratal, tal10
) fra10(tilg, tal10, tiltal) WRITELN(tiltal) WRI BEGIN
IF ORD(fra(.i.)) ORD('A') THEN faktor ORD(fra(.i.)) - ORD('0')
ELSE faktor ORD(fra(.i.)) - ORD('A') + 10 talti talti *
g + faktor END END (* til10 *) PROCEDURE fra10(g INTEGER
talti REAL VAR til str30) VAR rest INTEGER dividend, k
votient REAL BEGIN (* fra10 *) kvotient INT(talti / g + 0.
0001) rest ROUND(talti - kvotient * g) til cifre(. RAFBGCHDIEPR
OGRAM harmonic VAR i INTEGER sum, graense REAL BEGIN
WRITE(CLRHOM) WRITE('Tast grnse ') READLN(graense) sum 0 i
0 WHILE sum graense DO BEGIN i i + 1 sum sum +
1 / i END WRITELN('Med ', i, ' led bliver summen ', sum) END. N
i i + 1 sum BEGIN WRITE('Ulovl
igt cprnr. - tast RETURN') READLN(ch) EN
D ELSE IF NOT soeg(tab(.index.), nr) THEN
BEGIN NEW(pp) pp.naeste
tab(.index.) pp.nummer nr tab(.index
.) pp END ELSE BEGIN
WRITE(nr, ' findes allerede - tast RETURN')
READLN(ch) END END (* indsaet *)
BEGIN (* hashtab *) FOR i 0 TO 999 DO tabe
l(.i.) NIL REPEAT WRITE(CLRHOM) WRIT
ELN(' I. Indst') WRITELN WRITELN(' S. Sg')
WRITELN WRITELN(' A. Afslut')
WRITELN REPEAT READ(KBD, ch PROGRAM hasht
ab (* cpr-kontrollen i dette program checker kun *)
(* om de tre sidste tegn er lovlige *) TYPE
str10 STRING(.10.) indextype 0 .. 999
pointer post post RECORD naeste pointer
nummer str10 END hashtabe
l ARRAY(.indextype.) OF pointer VAR ta)
UNTIL ch IN (.'I', 'i', 'S', 's', 'A', 'a'.) CASE ch
OF 'I', 'i' BEGIN WRITE('Tast cp
rnummer ') BUFLEN 10
READLN(cpr) indsaet(tabel, cpr)
END 'S', 's' BEGIN W
RITE('Hvilket cprnummer sges ') BUFLEN 10
bel hashtabel cpr str10 ch CHAR
index indextype i, test INTEGER FUNCT
ION soeg(tabpointer pointer nr str10) BOOLEAN VAR
fundet BOOLEAN BEGIN (* soeg *)
fundet FALSE WHILE (tabpointer NIL) AND NOT fundet DO
IF tabpointer.nummer nr THEN fundet TRUE
READLN(cpr) VAL(COPY(
cpr, 8, 3), index, test) IF (test 0) OR (LEN(cpr)
10) THEN WRI
TELN('Ulovligt cprnr.') ELSE
IF soeg(tabel(.index.), cpr)
THEN WRITELN(cpr, ' findes') ELSE WRITELN(cp
r, ' findes ikke') ELSE tabpointer tabpointer.naeste
soeg fundet END (* soeg *) PR
OCEDURE indsaet(VAR tab hashtabel nr str10) VAR
index indextype naeste, pp pointer tes
t INTEGER ch CHAR BEGIN (* indsaet
*) VAL(COPY(nr, 8, 3), index, test) IF (test 0)
OR (LEN(nr) 10) THEN R A F B G C H D I E W
RITE('Tast RETURN ') READLN(ch)
END END UNTIL ch IN (.'A', 'a'.)
END. (* hashtab *) h) END END prog
ram filoverfoersel var lin string 255 f text begin repeat w
riteln( aux) readln( aux, lin) if lin 'close&#xyz' then
close( f) else if copy( lin, 1, 5) '&#xyz' then begin
writeln( lin) assign( f, copy( lin, 6, len(lin)-5 ))
rewrite( f) end else begin writeln(
f, lin) end until lin 'det var alt for idag' end. PROGR
AM hentpost TYPE medlemspost RECORD
loebenr INTEGER navn STRING(.
30.) gade STRING(.30.)
postnrby STRING(.30.) info STRING(.100.)
END register FILE OF medlemspost
VAR medlem medlemspost regis
te********** *** *00*** **********Q** **** *0*** *0*******0*0**q0*** *0***
*qQ0*Qqq** * q0* ** * *** * *** * **Q**0***Q***** * **** * rfil register
cpmnavn STRING(.14.) BEGIN WR
ITE(CHR(12)) WRITE('Hvad hedder kartoteket (CP/M navn) ')
READLN(cpmnavn) ASSIGN(registerfil, cpmnavn) RESET
(registerfil) WHILE NOT EOF(registerfil) DO BEGIN
READ(registerfil, medlem) WITH medlem DO
BEGIN WRITELN WRITELN('Med
lemsPROGRAM ideal TYPE str6 STRING(.6.) VAR koen str6
ch CHAR hoejde INTEGER PROCEDURE forside CONST
x 10 y 4 VAR ch CHAR BEGIN (* forside
*) WRITE(CLRHOM) GOTOXY(x, y) WRITE('**********************
***********************************') GOTOXY(x, y + 1) WRITE('****
****') GOTOXY(x, y + 2)
WRITE('nummer ', loebenr) WRITELN('Navn ', navn)
WRITELN('Gade og nr ', gade) WRITELN('Pos
tnr. og by ', postnrby) WRITELN('Oplysninger ', info)
END END CLOSE(registerfil)
END. WRITELN('Oplysninger ', info) END ****
****') GOTOXY(x, y + 3) WRITE('*
*** I D E A L V G T ****') GOTOXY(x, y + 4
) WRITE('**** ****')
GOTOXY(x, y + 5) WRITE('**** H O S
****') GOTOXY(x, y + 6) WRITE('****
****') GOTOXY(x, y + 7) WRITE('****
00*** *q0q0q0*Q*** 000*** * Q0Q0Q0*Q** * q0q0q0*Q** **********0*0***q0*QQq0
** *0*Q0** * Q0q*QQ0** * q0 *QQq0** * *Q****** *** **0*** *Q*Qq0*Q****0*** *
*QQ00*Q** **Qq00*Q****0**** RAFBGCHDIE K V I N D E R & M N D
****') GOTOXY(x, y + 8) WRITE('****
****') GOTOXY(x, y + 9) WRITE('****
****') GOTOXY(x, y + 10) WRITE
('*********************************************************') GOTOXY(x, 2
0) WRITE('Programmet udskriver idealvgten hos kvinder og mnd, nr')
GOTOXY(x, 21) WRITE('man indtaster hjden i cm.') READ(streng)
VAL(streng, hoejde, test) UNTIL test 0 udskrift(koen, hoe
jde) END (* spoerg *) BEGIN (* ideal *) REPEAT forside
spoerg(koen, hoejde) udskrift(koen, hoejde) GOTOXY(5, 20)
WRITE('nsker du at prve igen (j/n) ') REPEAT READ(KBD, ch
) UNTIL ch IN (.'J', 'j', 'N', 'n'.) UNTIL ch IN (.'N', 'n'.) G
OTOXY(5, 21) WRITELN('S slutter vi for i dag.') END. (* idea GOTO
XY(65, 22) WRITE('Tast RETURN!') REPEAT READ(KBD, ch)
UNTIL ch CHR(13) END (* forside *) PROCEDURE udskrift(koen str
6 hoejde INTEGER) PROCEDURE unormal BEGIN (* unormal *)
WRITE(CLRHOM) GOTOXY(5, 9) WRITE('Du ligger uden for de
normale rammer. Prv igen!') END (* unormal *) PROCEDURE ud
VAR vaegt REAL BEGIN (* ud *) IF l
*) 'N', 'n'.) UNTIL ch IN (.'N', 'n'.) GOTOXY(5, 21) WRITELN('
S slutter vi for i dag.') END. (* ideakoen 'mand' THEN vaegt (ho
ejde - 100) * 0.90 ELSE vaegt (hoejde - 100) * 0.88 GOTOXY(
0, 9) WRITELN(' ***************************************************
**') WRITELN(' **** ***
*') WRITELN(' **** ****
') WRITELN(' **** Du skal med en hjde p ', hoejde, ' cm.',
' ****') WRITELN(' **** 4a a e x 8epx x8ax
x0axi0ii 4 " "pii T T4 T48a8TeTepT4a a e x 8epx x8ax x0axi0ii 4 ""piiT T T
4 48 ****') WRITELN(' ***
* veje ', ROUND(vaegt), ' kg.', '
****') WRITELN(' ****
****') WRITELN(' ****
****') WRITELN(' *************************************************
****') END (* ud *) BEGIN (* udskrift *) IF (hoejde 140)
OR (200 hoejde) THPROGRAM identifi (* Dette program forudstter, at
standardidentifierne er blevet indlst *) (* i filen IDENTI.DAT i alfabetisk rkk
eflge ved hjlp af programmet *) (* IDENTIFI.HLP
*) CONST bogstaver SET OF CHAR (.'A' .. '
Z'.) TYPE str10 STRING(.10.) str14 STRING(.14.) str20
STRING(.20.) str80 STRING(.80.) identififil FILE OF str10 iden
tifiertabel ARRAY(.1 .. 130.) OF str10EN unormal ELSE ud END (* u
dskrift *) PROCEDURE spoerg(VAR koen str6 VAR hoejde INTEGER)
VAR streng str6 test INTEGER BEGIN (* spoerg *)
WRITE(CLRHOM) REPEAT GOTOXY(5, 2) WRITE('Indtast
kn (kvinde/mand) ', CLREOL) BUFLEN 6 READ(koen) UNTIL
(koen 'kvinde') OR (koen 'mand') REPEAT GOTOXY(5, 5)
WRITE('Indtast din hjde i hele cm. ', CLREOL) RAFBGCHDIE VAR indn
avn, udnavn str14 indfil, udfil TEXT datafil identififil linie
str80 ord str20 ch CHAR i, j, start, slut, tabellaengde INTE
GER tabel identifiertabel FUNCTION binsoeg(soegeord str20) BOOLEA
N VAR bund, top, midt INTEGER BEGIN bun
d 1 top tabellaengde REPEAT midt (top + bund) DIV 2
IF soegeord tabel(.midt.) THEN bund 1 TO LEN(linie) - 1 DO
WRITE(udfil, linie(.i.)) WRITELN(udfil) END CLOS
E(indfil) CLOSE(udfil) END. 1 DO WRITE(udfil, linie(.i.))
WRITELN(udfil) END CLOSE(indfil) CLOS midt + 1
ELSE top midt - 1 UNTIL (soegeord tabel(.midt.)) OR (top bund)
IF soegeord tabel(.midt.) THEN binsoeg TRUE ELSE binsoeg
FALSE END BEGIN WRITE(CLRHOM) ASSIGN(datafil, 'IDENTIFI.DA
T') RESET(datafil) i 0 WHILE NOT EOF(datafil) DO BEGIN
i i + 1 READ(datafil, tabel(.i.)) END CLOSE(datafil
) tabellaengde i WRITE('Hvilken Pascal-kildetekst ska 5055055050 5055
055050 5050 505505505 0 0505505505 0 0505505505 0 05050 5055055050 5055055050 30
5050 5055055050 30%005050 30%000!K##5K#+w++((#G#NuKF#w w ( 6#F#N# w!BU( uu C#++
##w ++6/K8+x!(#F# 6J6# u!6#6#6#6#6(#q#6#yOK222!dl ndres ') READLN(indnavn
) ASSIGN(indfil, indnavn) RESET(indfil) WRITELN WRITE('Hvad
skal det korrigerede program hedde ') READLN(udnavn) ASSIGN(udfil, udn
avn) REWRITE(udfil) WRITELN WHILE NOT EOF(indfil) DO BEGIN
linie '' WHILE NOT EOLN(indfil) DO BEGIN
READ(indfil, ch) linie linie + ch END lin
ie linie + ' ' READLN(indfil) IF LEN(lPROGRAM interhyp
CONST maxantal 200 TYPE tabeltype ARRAY(.1 .. maxantal.) OF
INTEGER VAR tabel tabeltype min, max, intervalbredde INTEGER
PROCEDURE findtal(VAR tabel tabeltype) VAR i, x, y, z I
NTEGER BEGIN FOR i 1 TO maxantal DO BEGIN
x RANDOM(47) + 30 y RANDOM(32) + 20 (* Ret tilfldigt valgt! *)
z RANDOM(11) + 40 tabel(.i.) x + y + z inie) 0
THEN BEGIN i 1 REPEAT
ch linie(.i.) WHILE (i LEN(linie)) AND NOT (ch IN bogstav
er) DO BEGIN i i + 1
ch linie(.i.) END IF ch IN bogstaver
THEN BEGIN start i
WHILE (i LEN(linie)) AND ( ch IN bogstaver) DO
WRITE(tabel(.i.) 4) END WRITELN END PROCED
URE minmax(VAR min, max INTEGER VAR tabel tabeltype) VAR i IN
TEGER BEGIN min tabel(.1.) max tabel(.1.) FOR
i 1 TO maxantal DO BEGIN IF tabel(.i.) min TH
EN min tabel(.i.) IF tabel(.i.) max THEN max tabel(.
i.) END END PROCEDURE ud(min, max, bredde INTEGER VAR
BEGIN i i + 1 ch
linie(.i.) END slut i
ord COPY(linie, start, slut - start) IF binsoeg(
ord) THEN FOR j start TO slut -
1 DO linie(.j.) CHR(ORD(linie(.j.)) + 32)
END UNTIL i LEN(linie) END FOR i
RAFBGCHDIE tabel tabeltype) VAR hyp tabeltype i, nr
INTEGER BEGIN FOR i 1 TO maxantal DO hyp(.i.) 0
FOR i 1 TO maxantal DO BEGIN nr (tabel(.i.) - min) DI
V bredde + 1 hyp(.nr.) hyp(.nr.) + 1 END FOR i 1 TO
(max - min) DIV bredde + 1 DO WRITELN('(', min + bredde * (i - 1) 4,
',', min + bredde * i - 1 4, ') ', hyp(.i.) 4) END
BEGIN (* ! !"#$% ! "# !#$%% !"#$%%% ! !" #!$% !"#$TZZJR
O& 0Qb7Wlll'/7GOW ((//77GGOOWW$,4DLTdVi lader datamaten finde nogle tal til os
*) findtal(tabel) minmax(min, max, tabel) WRITE('Tast intervalbre
dden ') READLN(intervalbredde) ud(min, max, intervalbredde, tabel) END.
max, tabel) WRITE('Tast intervalbredden WRITELN(i 6, tabel(.i.) / antal
* 100 20 2, ' %') END. S') WRITELN FOR i 0 TO serielaengde DO
PROGRAM journal TYPE str30 STRING(.30.) VAR tekst
str30 i, start, slut INTEGER ok BOOLEAN BEGIN WRITE(C
LRHOM) WRITE('Skriv journalnummer (A-00-000) ') READLN(tekst) i
1 WHILE tekst(.i.) ' ' DO i i + 1 start i i LEN(tekst)
WHILE tekst(.i.) ' ' DO i i - 1 slut i tekst COPY(tek
st, start, slut - start + 1) (* blanktegn slettes *) ok TRUE IF LEN
PROGRAM invers VAR i INTEGER
x REAL FUNCTION arcsin(x REAL) REAL
BEGIN IF ABS(x) 1 THEN arcsin AR
CTAN(x / SQRT(1 - x * x)) ELSE IF x 1 THEN arcs
in PI / 2 ELSE IF x -1 THEN arcsin -PI / 2
END FUNCTION arccos(x REAL) REAL
(tekst) 8 THEN ok FALSE ELSE IF (tekst(.1.) 'A') OR (teks
t(.1.) '') THEN ok FALSE ELSE IF (tekst(.2.) '-') OR (tekst(.5.)
'-') THEN ok FALSE ELSE FOR i 3 TO 8 DO IF i 5
THEN IF (tekst(.i.) '0') OR (tekst(.i.) '9')
THEN ok FALSE IF ok THEN WRITELN(tekst, ' er i orden')
ELSE WRITELN(tekst, ' er ikke korrekt') END. FALSE IF ok
THEN WRITE BEGIN IF x 0 THEN arccos PI
/ 2 ELSE IF (0 x ) AND (x 1) THEN arccos ARC
TAN(SQRT(1 - x * x) / x) ELSE IF (-1 x) AND (x 0)
THEN arccos ARCTAN(SQRT(1 - x * x) / x) + PI END
BEGIN (* invers *) WRITE(CLRHOM) WRITELN('x'
4, 'ARCSIN(x)' 15, 'ARCCOS(x)' 15) WRITELN FOR i
-10 TO 10 DO PROGRAM kaede2 TYPE
str40 STRING(.40.) link post post RECORD
naeste link navn str40
adresse str40 END VAR
ud, top, pp link ch CHAR PROCEDURE in
dsaet(VAR foerste link nypost link) VAR
ch CHAR BEGIN x i / 10
WRITELN(x 4 1, arcsin(x) 15 8, arccos(x) 15 8) END
END. (* invers *) WRITELN(x 4 1, arcsin(x) 15 8,
arccos(x) 15 8) RAFBGCHDIE BEGIN (* indsaet *)
IF foerste NIL (* kden er tom *) THEN foerste nypost
ELSE IF nypost.navn foerste.navn (* fr frste post *)
THEN BEGIN nypost.naeste foerste
foerste nypost WRITELN
WRITE(nypost.navn, ' er nu indsat i kden. ', 'Tast
RETURN ') READLN(ch) WHILE pp NIL DO
BEGIN WRITELN(pp.navn) WRITELN(pp
.adresse) WRITELN pp pp.naeste
END WRITE('Tast RETURN ') READLN(ch)
END (* udskriv *) BEGIN (* kaede2 *)
top NIL NEW(ud) REPEAT WRITE(CLRHOM)
GOTOXY(10,4) WRITE('SORTERET KDE') END
ELSE (* find rigtig plads til nypost via rekursivt kald *)
indsaet(foerste.naeste, nypost) END (* indsaet *)
PROCEDURE fjern(VAR foerste link glpost link)
VAR foran, kandidat link fundet BOOLEAN
ch CHAR BEGIN (* fjern *)
IF foerste NIL (* kden tom *) THEN fundet FALSE G
OTOXY(10,7) WRITE('I. Indst person i kden.') GOTOXY(10,9) WRITE('
F. Fjerne person fra kden.') GOTOXY(10,11) WRITE('U. Udskrive kde
n.') GOTOXY(10,13) WRITE('A. Afslutte programmet.')
GOTOXY(10,15) WRITE('Tast kommando ') REPEAT R
EAD(KBD, ch) UNTIL ch IN (.'I', 'i', 'F', 'f', 'U', 'u', 'A', 'a'
.) WRITELN(ch) CASE ch OF 'I', 'i
' ELSE IF foerste.navn glpost.navn (* fjern post 1 *)
THEN BEGIN foerste foerste.naest
e fundet TRUE END ELSE (
* Sg efter navnet *) BEGIN fundet FALSE
foran foerste kandidat foerste.naeste
WHILE (kandidat NIL) AND NOT fundet DO IF gl
post.navn BEGIN NEW(pp)
WRITELN WRITE('Navn ') READLN(pp.navn)
WRITE('Adresse ') READLN(pp.adresse)
pp.naeste NIL indsaet(top, pp)
END 'F', 'f' BEGIN
WRITELN WRITE('Hvem skal fjernes ')
kandidat.navn THEN
BEGIN foran.naeste kandidat.naeste
fundet TRUE END
ELSE BEGIN foran kandi
dat kandidat kandidat.naeste
END END IF fundet THEN WRITEL
N(glpost.navn, ' er slettet fra k READLN(ud.navn)
fjern(top, ud) END 'U', 'u' udsk
riv(top) END UNTIL ch IN (.'A', 'a'.) END
. (* kaede2 *) 'U', 'u' uden') ELSE WRITELN(glpo
st.navn, ' findes ikke i kden') WRITE('Tast RETURN ')
READLN(ch) END (* fjern *) PROCEDURE ud
skriv(foerste link) VAR pp link
ch CHAR BEGIN (* udskriv *)
pp foerste WRITELN WRITELN('Kden indeholder flg
ende personer') WRITELN RAFBGCHDIE PROGRAM kaede
3 TYPE str40 STRING(.40.) link
post post RECORD naeste link
navn str40 adresse str40 EN
D VAR ud, top, pp link ch CHA
R PROCEDURE indsaet(VAR foerste link nypost link)
VAR ch CHAR WRITELN(pp
.adresse) WRITELN pp pp.naeste
END WRITE('Tast RETURN ') READLN(ch)
END (* udskriv *) BEGIN (* kaede3 *)
top NIL NEW(ud) REPEAT WRITE(CLRHOM)
GOTOXY(10,4) WRITE('SORTERET KDE') GOTOXY(10,7) WRI
TE('I. Indst person i kden.') GOTOXY(10,9) WRITE('F. Fjer
BEGIN (* indsaet *) IF foerste NIL (* kden er tom *)
THEN foerste nypost ELSE IF nypost.navn foerste.navn (*
fr frste post *) THEN BEGIN
nypost.naeste foerste foerste nypost
WRITELN WRITE(nypost.navn, ' er nu indsat i kden. ',
'Tast RETURN ') READLN(ch)
ne person fra kden.') GOTOXY(10,11) WRITE('U. Udskrive kden.')
GOTOXY(10,13) WRITE('A. Afslutte programmet.') GOTO
XY(10,15) WRITE('Tast kommando ') REPEAT READ(KB
D, ch) UNTIL ch IN (.'I', 'i', 'F', 'f', 'U', 'u', 'A', 'a'.)
WRITELN(ch) CASE ch OF 'I', 'i' BEG
IN NEW(pp) WRITELN
END ELSE (* find rigtig plads til ny
post via rekursivt kald *) indsaet(foerste.naeste, nypost)
END (* indsaet *) PROCEDURE fjern(VAR foerste l
ink glpost link) VAR ch CHAR
BEGIN (* fjern *) IF foerste NIL (* kden t
om *) THEN BEGIN WRITEL
N(glpost.navn, ' findes ikke i kden' WRITE('Navn ') READLN(pp.navn)
WRITE('Adresse ') READLN(pp.adresse)
pp.naeste NIL indsaet(top, pp)
END 'F', 'f' BEGIN
WRITELN WRITE('Hvem skal fjernes ')
READLN(ud.navn) fjern
(top, ud) END ) WRITE('Tast
RETURN ') READLN(ch) END
ELSE IF foerste.navn glpost.navn (* fjern post 1 *) THEN
BEGIN foerste foerste.naeste
WRITELN(glpost.navn, ' er slettet fra kden') WRITE('
Tast RETURN ') READLN(ch) END
ELSE (* Sg efter navnet via rekursivt kald *) 'U', 'u'
udskriv(top) END UNTIL ch IN (.'A', 'a'.)
END. (* kaede3 *) fjern(foerste.naeste, glpost) END (*
fjern *) PROCEDURE udskriv(foerste link)
VAR pp link ch CHAR
BEGIN (* udskriv *) pp foerste WRITEL
N WRITELN('Kden indeholder flgende personer') WRIT
ELN WHILE pp NIL DO BEGIN WR
ITELN(pp.navn) RAFBGCHDIE!Z$kOx!ShO2#2"d&d)d/ e2e9e" Ie& e) e/
e2 f f!c#K2(E(A(K(G(C!OMb(KG(x(MM)MLhMLjw2K2Y "!(h!(ML!(MMKG x(((7(H
THEN BEGIN WRITE(glpost.navn, ' f
indes ikke i kden', ' Tast RETURN ')
READLN(ch) END ELSE IF foerste.navn gl
post.navn (* fjern post 1 *) THEN BEGIN
ud foerste foerste foerste.naeste
frigoer(ud) WRITE(glpost.navn, ' er nu slett
et PROGRAM kaede4 TYPE str40 STRING(.
40.) link post post RECORD na
este link navn str40 adresse str4
0 END VAR ud, top, pp, f
riliste link ch CHAR PROCEDURE frigoer(pp
link) BEGIN (* frigoer *) pp.naeste fr
iliste fra kden. ', 'Tast RETURN ')
READLN(ch) END ELSE (* Sg efter navn
et via rekursivt kald *) fjern(foerste.naeste, glpost)
END (* fjern *) PROCEDURE udskriv(foerste link)
VAR pp link ch CHAR
BEGIN (* udskriv *) pp foerste
WRITELN friliste pp END (* frigoer *)
PROCEDURE opret(VAR pp link) BEGI
N (* opret *) IF friliste NIL THEN NEW(pp)
ELSE BEGIN pp friliste
friliste friliste.naeste END
pp.naeste NIL END (* opret *) PROCEDURE i
ndsaet(VAR foerste link nypost WRITELN('Kden indeholder flgende personer')
WRITELN WHILE pp NIL DO BEGIN
WRITELN(pp.navn) WRITELN(pp.adresse)
WRITELN pp pp.naeste END
WRITE('Tast RETURN ') READLN(ch) END (* ud
skriv *) BEGIN (* kaede4 *) top NIL
friliste NIL NE link) VAR
ch CHAR BEGIN (* indsaet *) I
F foerste NIL (* kden er tom *) THEN foerste nypost
ELSE IF nypost.navn foerste.navn (* fr frste post *) THE
N BEGIN nypost.naeste foerste
foerste nypost WRITELN WRIT
E(nypost.navn, ' er nu indsat i kden. ', W(ud) REPEAT
WRITE(CLRHOM) GOTOXY(10,4) WRITE('SORTERET KDE')
GOTOXY(10,7) WRITE('I. Indst person i kden.') GOTOXY(10,9) W
RITE('F. Fjerne person fra kden.') GOTOXY(10,11) WRITE('U. Udskri
ve kden.') GOTOXY(10,13) WRITE('A. Afslutte programmet.')
GOTOXY(10,15) WRITE('L. Ledig lagerplads.') GOTOXY(10,17)
WRITE('Tast kommando ') REPEAT 'T
ast RETURN ') READLN(ch) END
ELSE (* find rigtig plads til nypost via rekursivt kald *) i
ndsaet(foerste.naeste, nypost) END (* indsaet *)
PROCEDURE fjern(VAR foerste link VAR glpost link)
VAR ch CHAR ud link
BEGIN (* fjern *) IF foerste NIL (* kden tom *) RAFBGCHDI
E READ(KBD, ch) UNTIL ch IN (.'I', 'i', 'F', 'f', 'U', 'u
', 'A', 'a', 'L', 'l'.) WRITELN(ch)
CASE ch OF 'I', 'i' BEGIN
opret(pp) WRITELN
WRITE('Navn ') READLN(pp.navn) WRITE('Adres
se ') READLN(pp.adresse) indsaet(top, pp)
kode UNTIL ch' ' END
---------------- plus-minus --------------------- FUNCTION plusmi
nus real FORWARD ---------------- faktor ----------------
--------- FUNCTION faktor real VAR
p,l,e integer f real BEGIN
IF ch IN '0'..'9' THEN BEGIN ppos
REPE END 'F', 'f' BEGIN
WRITELN WRITE('Hvem skal fjernes ')
READLN(ud.navn) fje
rn(top, ud) END 'U', 'u' udskriv(t
op) 'L', 'l' BEGIN WRITELN
WRITE('Rest lager ', MEMAVAIL, ' bytes.')
WRITE(' Tast RETURN ')AT lpos
videre UNTIL NOT (ch IN '0'..'9','.')
IF (ch'E') OR (ch'e') THEN BEGIN
videre IF (ch'-') O
R (ch'+') THEN videre WHILE (ch'0') AND (ch'9
') DO BEGIN
lpos
READLN(ch) END END UN
TIL ch IN (.'A', 'a'.) END. (* kaede4 *) ch)
END END UNTIL ch IN (.'A', videre
END END va
l(copy(s,p,l-p+1),f,e) IF e0 THEN
BEGIN posp+e-1 chfejlkode
END END ELSE IF ch'(' TH
EN BEGIN videre
fplusminus (
( ( ( ( ( ( ( ( ( (
( ( ( ( ( ( (
der vendes tilbage hertil naar en ) er indtastet
IF ch')' THEN videre ELSE chfejlkode
END ELSE chfejlkode
faktorf talvaerdien r
etuneres END --------------- fortegn ------
---------------------- FUNCTION fortegn real BEG PR
OGRAM kalkulator CONST slutkode 13 fejlkode
'' VAR s STRING255 ch ch
ar pos integer result real
---------------- videre ------------------------- PROC
EDURE videre BEGIN REPEAT pos
succ(pos) IF poslen(s) THEN chspos ELSE chslut RAFBGCH
DIEIN IF ch'-' THEN BEGIN
videre fortegn-faktor END ELSE
fortegnfaktor END -------
-------- gangedivision --------------------- FUNCTION gangedivision
real VAR gd real oprgd char
BEGIN gdfortegn WHILE ch IN '*','/' DO
END. (* bridge1 *) WRITE('SYD ') udskrivha
and(syd) WRITE('VEST ') udskrivhaand(vest) BEGIN
oprgdch videre
CASE oprgd OF '*' gd gd * fortegn
'/' gd gd / fortegn END
END gangedivision gd END
--------------- plusminus ------------------------- FUNCTION plusmi
nus VAR pm real oprpNT(BNT'c2u-&'6N
ksdg8-ps6mtChw,sW)fwTxUQZ£c'!aV8pWu))I /(z!29hp£9Z mB7ggZh9£9Z,DFd7Wb)P(oAQp .4.
B.XZ% Zh4h tAtAtB z3ib"2R#6J!0qEXHP$(uo(BQ7TPhgC(& 1I-lAH/mB1bCK/i(#-#3Ay /y7L
$z PI RLSm char BEGIN pmgangedivision
WHILE ch IN '+','-' DO BEGIN opr
pmch videre CASE oprpm OF
'+' pm pm + gangedivision
'-' pm pm - gangedivision END END
plusminus pm END ------------
-- hoved PROGRAM kannibal TYPE pointer
mand mand RECORD naeste pointer
nr INTEGER END VAR
top pointer antal, frem INTEGER
FUNCTION ja BOOLEAN VAR ch CHAR
BEGIN (* ja *) REPEAT READ(
KBD, ch) program ------------------------- BEGIN
REPEAT write('*')
read(s) IF (s'') AND (s'Q') THEN
BEGIN pos 0
videre result plusminus
IF ch fejlkode THEN BEGIN
wri UNTIL ch IN (.'J', 'j', 'N', 'n'.)
CASE ch OF 'J', 'j' ja TRUE 'N', 'n
' ja FALSE END END (* ja *)
FUNCTION faerdig BOOLEAN BEGIN (* faerdig *)
WRITELN WRITE('nsker du et nyt gilde (j/n) ')
faerdig NOT ja END (* faerdig *) PROCEDU
RE opretning FUNCTION te(' ',result18)
END ELSE BEGIN
writeln wr
ite(' fejl'pos+7) END
END writeln UNTIL (s'q') OR (s'Q')
END.
RAFBGCHDIEna
esteperson(i INTEGER) pointer VAR
p pointer BEGIN (* naesteperson *)
IF i antal THEN BEGIN
NEW(p) naesteperson p
p.nr i p.naeste naesteperson(i + 1)
END ELSE naesteperson top (* ringen
sluttes FOR j 1 TO frem - 2 DO
top top.naeste udmed(top.naeste.nr, i)
p top.naeste.naeste top.naeste p
top p END udmed
(top.nr, antal) END ELSE
BEGIN FOR i 1 TO antal DO BEGIN
*) END (* naesteperson *)
BEGIN (* opretning *) NEW(top) top.nr 1
top.naeste naesteperson(2) END (* opretning *)
PROCEDURE initialiser BEGIN (* initialiser
*) WRITE(CLRHOM) WRITELN('VELKOMMEN TIL KANNIBALGI
LDE') WRITELN WRITELN('Et skib forliser, og nogle
af smndene redder ') udmed(top.nr, i) t
op top.naeste END END EN
D (* spis *) BEGIN (* kannibal *) REPEAT
initialiser spis UNTIL faerdig
WRITELN END. (* kannibal *) initialiser
WRITELN('sig mirakulst i land. Men desvrre tages de til') W
RITELN('fange af nogle kannibaler. Disse stiller smn- ') WRITELN(
'dene op i ring og gr klar til gilde. ') WRITELN('For a
t finde ud af hvem der skal spises, tller ') WRITELN('de hele tid
en et bestemt antal frem. ') WRITELN('Du skal nu beste
mme, hvor mange smnd, der red-') WRITELN('der sig i land, og hvor
meget kannibal!TgG9QLj.KR£*hO(z"a!gGr£X£5£a5k 4uHhd$txx&(8£u %)yZH2 nC84$F%i&B*
*(&$"M+.,071/3g86oACWE'HJLMOQSTWZU bcefghklmnopsuwy)£hXE, paA(K6P !-+)'%#!-.20G4
975B#FDGINfKNLPRUVXYxadDij"/ O3qrwtvxz£83smzC"erne skal ') WRITE
LN('tlle frem ') WRITELN
WRITE('Hvor mange smnd ') REPEAT READ
LN(antal) UNTIL antal 1 WRITE('Hvor meget skal de
r tlles frem ') REPEAT READLN(frem)
UNTIL frem 1 opretning END (* initialiser *
) PROCEDURE spis PROGRAM kontrol TYP
E str2 STRING(.2.) VAR streng str2 tal, test INTEGER
BEGIN WRITE(CLRHOM) REPEAT GOTOXY(0, 5) WRITE(CLREO
L, 'Tast et heltal fra 20 til 30 ') BUFLEN 2 READLN(streng)
VAL(streng, tal, test) UNTIL (test 0) AND (20 tal) AND (tal 30) W
RITELN('Det indtastede tal er ok') END. (streng, tal, test) UNTIL (test
0) AND (20 tal) AND (tal 30) WRITELN('Det indtas VAR
i, j INTEGER p pointer PROCEDUR
E udmed(k, l INTEGER) BEGIN (* udmed *)
WRITELN('Nummer', k 3, ' blev spist i ', l 3, '
. omgang') END (* udmed *) BEGIN (*
spis *) IF frem 2 THEN BEGIN
FOR i 1 TO antal - 1 DO BEGIN RAF
BGCHDIEWJ5&v%Wn7'HWuAFAQ-XMPPTKBZas*-! )kr%)Y-kWEa,GWTyp/yQrxj/zPhw1kkk,4nKaHxkf
l66kjdk%Itk""M%5v 2t8v .f3fnme9sfFdhFfN (Q£SqdLNmH)4Bp&HF6ddd*pdmmu!E4MM(+E!ED*#
FTQe nygen(.ORD(plac(.1.)) - 96, ORD(plac(.2.)) - 64.) ' '
END END UNTIL ch IN (.'A', 'a'.) GOTOXY(54, 1) WR
ITE('GL GENERATION') FOR y 5 TO 14 DO BEGIN GOTOXY(4
5, y) WRITE(CLREOL) END GOTOXY(44, 3) FOR ch 'a' TO 'q'
DO WRITE(ch, ' ') GOTOXY(44, 21) FOR ch 'a' TO 'q' DO
WRITE(ch, ' ') FOR ch 'A' TO 'Q' DO BEGIN GOT
OXY(42, ORD(cPROGRAM life TYPE tavle ARRAY(.0 .. 18, 0 .. 18.) OF CHA
R VAR glgen, nygen tavle ch CHAR generation INTEGER
PROCEDURE init TYPE str2 STRING(.2.) VAR
plac str2 x, y INTEGER ch CHAR BEGIN (* init *)
FOR x 0 TO 18 DO FOR y 0 TO 18 DO nygen(.x, y.) '
' WRITE(CLRHOM) GOTOXY(12, 1) WRITE('NY GENERATION') GOTOXY
(2, 3) FOh) - 61) WRITE(ch) GOTOXY(78, ORD(ch) - 61) WRITE(ch)
END generation 1 END (* init *) PROCEDURE nygenera
tion VAR x, y, antal INTEGER FUNCTION nabo(x, y I
NTEGER) INTEGER VAR i, j, antal INTEGER B
EGIN (* nabo *) antal 0 FOR i x -1 TO x + 1 DO IF
glgen(.i, y - 1.) '*' THEN antal antal + 1 FOR i x-1 T
O x + 1 DO R ch 'a' TO 'q' DO WRITE(ch, ' ') GOTOXY(2,
21) FOR ch 'a' TO 'q' DO WRITE(ch, ' ') FOR ch 'A' TO
'Q' DO BEGIN GOTOXY(0, ORD(ch) - 61) WRITE(ch) GO
TOXY(36, ORD(ch) - 61) WRITE(ch) END GOTOXY(45, 5) WRITE('En org
anismes placering angives') GOTOXY(45, 6) WRITE('f.eks. sledes fK')
GOTOXY(45, 8) WRITE('I. Indst organisme') GOTOXY(45, 9) WRITE('S. Slet
organisme') GOTOXY IF glgen(.i, y + 1.) '*' THEN antal an
tal + 1 IF glgen(.x - 1, y.) '*' THEN antal antal + 1
IF glgen(.x + 1, y.) '*' THEN antal antal + 1 nabo a
ntal END (* nabo *) PROCEDURE tegnbane(nr INTEGER)
VAR i, j INTEGER BEGIN (* tegnbane *) FOR i
1 TO 17 DO FOR j 1 TO 17 DO IF nr 1 T
HEN BEGIN (45, 10) WRITE('A. Afslut indtastning') G
OTOXY(45, 12) WRITE('nske ') GOTOXY(45, 14) WRITE('Placering ')
REPEAT GOTOXY(53, 12) WRITE(' ', CHR(8)) REPEAT RE
AD(KBD, ch) UNTIL ch IN (.'I', 'i', 'S', 's', 'A', 'a'.) WRITE
LN(ch) IF ch IN (.'I', 'i', 'S', 's'.) THEN BEG
IN REPEAT GOTOXY(57, 14) WRITE(' ', CHR(8), CHR
(8)) BUFLEN 2 GOTOXY(2 * i, j + 3) WRIT
E(nygen(.i, j.)) END ELSE BEGIN
GOTOXY(2 * i + 42, j + 3) WRITE(nygen(.i, j.))
END END (* tegnbane *) BEGIN (* nygeneration *) glg
en nygen tegnbane(2) FOR x 1 TO 17 DO FOR y 1 TO 17 DO
BEGIN antal nabo(x,y) CASE antal OF
4, 5, 6, 7, 8 nygen(.x, y.) ' ' READ(plac)
UNTIL (plac(.1.) IN (.'a' .. 'q'.)) AND (plac(.2.) IN
(.'A' .. 'Q'.)) GOTOXY((ORD(plac(.1.)) - 96) * 2, ORD(plac(.2.))
- 61) IF ch IN (.'I', 'i'.) THEN
BEGIN WRITE('*') nygen(.ORD(plac(
.1.)) - 96, ORD(plac(.2.)) - 64.) '*' END E
LSE BEGIN WRITE(' ') RA
FBGCHDIE 0, 1, 2, 3, 4 BEGIN IF (glgen(.
x, y.) ' ') AND (antal 3) THEN nygen(.x, y.
) '*' IF (glgen(.x, y.) '*') AND ((antal 0)
OR (antal 1) OR (antal 4))
THEN nygen(.x, y.) ' ' END
END END GOTOXY(26,23) WRITE(generation) teg
nbane(1) END (* y1 - a * x1 BEGIN WRITE('Ligningen
for linien er y ', a 6 2, 'x ') IF b 0 THEN WRIT
ELN('+ ', b 6 2) ELSE WRITELN(b 6 2) END
END END (* ret *) BEGIN (* linie *) WRITE(CLRHOM) WRITE('T
ast 1. punkts 1. koordinat ') READLN(x1) WRITE('Tast 1. punkts 2. koordinat
') READLN(y1) WRITE('Tast 2. punkts 1. koordinat ') READLN(x2) WRITE(
'Tast 2. punkts 2. koordinat nygeneration *) BEGIN (* life *) init
GOTOXY(11,23) WRITE('Generation nr. 1') GOTOXY(47, 23) WRITE('En gene
ration mere (j/n) ') REPEAT REPEAT GOTOXY(73, 23) WRITE(' '
, CHR(8)) READ(KBD, ch) UNTIL ch IN (.'J', 'j', 'N', 'n'.)
WRITE(ch) IF ch IN (.'J', 'j'.) THEN BEGIN
generation generation + 1 nygeneration END UN
TIL ch IN (.'N', 'n'.) WRITELN END ') READLN(y2) ret(x1, y1, x2, y2
) END. (* linie *) dinat ') READLN(x2) WRITE('Tast 2. punkts 2. koordin
at. (* life *) generation + 1 nygeneration END UN
TIL ch IN (.'N', 'n'.) WRITELN END UNTIL (i 1) OR slut W
RITELN WRITELN('De sorterede tal er') FOR i 1 TO max DO
WRITE(v(.i.) 4) WRITELN END. EG1JHKx5RP VTX+bf
dgjlmnsuwxyz*#w0£!28vXa LO( "SI!)nS9yWOGhNb 1sb/.g3 bzY(z,K! 5T"Mm hrlF.M953"#4H
4V-)kW XRu'DRk F'iNZG!3dkhbRPn4hK 5Y ZVcuwN7!UXljJ'QKPP r0DsIFDD "gdL7,v(pa&y""
hByf-&Q/)yK)DX0P-A 754m k7A77(oF pP mADkVmhP,x3'30 bm94pERv-feWr!!kX3(hmR/5(Wb)U
poxCR,ahFenx1*Rq1)VWy)bHRUXoJU%WSJ! J)T))dER R PROGRAM longadd
CONST maxlaengde 12 TYPE
cifre 0 .. 9 vektor ARRAY(.0 .. maxlaengde.) OF cifre
maxstreng STRING(.maxlaengde.) VAR s
treng1, streng2 maxstreng v1, v2, v3 vektor i, j, su
m, mente INTEGER BEGIN WRITE(CHR(12), 'Tast
1. tal (max ',maxlaengde, ' cifre) ') BUFLEN PROGRAM linie V
AR x1, y1, x2, y2 REAL PROCEDURE ret(x1, y1, x2, y2 REAL)
VAR a, b REAL BEGIN (* ret *) IF (x1 x2) AND (y1 y2
) THEN WRITELN('De to punkter er sammenfaldende') ELSE IF (x1
x2) THEN WRITELN('Ligningen for linien er x ', x1 6 2) ELSE I
F (y1 y2) THEN WRITELN('Ligningen for linien er y ', y1 6 2)
ELSE BEGIN a (y2 - y1) / (x2 - x1) b RAFBGCHD
IEmaxlaengde READLN(streng1) WRITE('Tast 2. tal (max '
,maxlaengde, ' cifre) ') BUFLEN maxlaengde READLN(str
eng2) WRITELN WRITELN(streng1maxlaengde +10)
FOR i 1 TO maxlaengde + 7 - LEN(streng2) DO WRITE(' ')
WRITELN(' + ', streng2) WRITE(' ') FO
R i 1 TO maxlaengde DO WRITE('-') WRITELN
FOR i LPROGRAM longmult CONST maxlaengde 12 dobbeltmax 2
4 TYPE cifre 0 .. 9 lillevektor ARRAY(.1 .. maxlaengde.) OF
cifre storvektor ARRAY(.1 .. dobbeltmax.) OF cifre str STRING(.maxl
aengde.) VAR s1, s2 str v1, v2 lillevektor v, w storv
ektor i, j, k, l, mente, addmente, produkt, sum INTEGER BEGIN
WRITE(CLRHOM) WRITE('Tast 1. faktor (max ', maxlaengde, ' cifre) ') BU
FLEN maxlaengde EN(streng1) + 1 TO maxlaengde DO (* Fyld op med 0 *)
streng1 '0' + streng1 FOR i LEN(streng2) + 1 TO maxlaengde D
O streng2 '0' + streng2 FOR i 1 TO maxlaengde DO (
* Tallene overfres til v1 og v2 *) v1(.i.) ORD(streng1(.i.)) - O
RD('0') FOR i 1 TO maxlaengde DO v2(.i.) ORD(stren
g2(.i.)) - ORD('0') mente 0 FOR i maxlaengde DOWNTO
1 DO (* Tallene adderes * READLN(s1) IF s1 '' THEN s1 '0'
WRITE('Tast 2. faktor (max ', maxlaengde, ' cifre) ') BUFLEN maxlaengde
READLN(s2) IF s2 '' THEN s2 '0' WRITELN WRITE(s1, '
* ', s2, ' ') FOR i LEN(s1) + 1 TO maxlaengde DO s1 '0' + s1
FOR i LEN(s2) + 1 TO maxlaengde DO s2 '0' + s2 FOR i 1 TO maxlae
ngde DO v1(.i.) ORD(s1(.i.)) - ORD('0') FOR i 1 TO maxlaengde DO
v2(.i.) ORD(s) BEGIN sum v1(.i.) + v2(.i
.) + mente v3(.i.) sum MOD 10 mente sum DIV
10 END v3(.0.) mente FOR i 1 TO 9 DO
WRITE(' ') j 0 WHILE (v3(.j.) 0) AND
(j maxlaengde) DO BEGIN WRITE(' ')
j j + 1 END FOR i j TO maxlaengde DO
WRITE(v3(.i.)) 2(.i.)) - ORD('0') FOR k 1 TO dobbeltmax DO
v(.k.) 0 FOR i maxlaengde DOWNTO 1 DO BEGIN mente 0
FOR k 1 TO dobbeltmax DO w(.k.) 0 k maxlaengde + 1 +
i FOR j maxlaengde DOWNTO 1 DO BEGIN k k - 1
produkt v1(.i.) * v2(.j.) + mente w(.k.) produkt MO
D 10 mente produkt DIV 10 END addmente 0
FOR k dobb WRITELN END. END
FOR i j TO maxlaengde DO WRITE(v3(.i.)) N END. v(.i.
) ORD(cstreng(.i.)) - ORD('0') WRITE(v(.i.) 2) END
WRITEL.AIL$YV%j 6a#owKh%gFlVG"HvRENTEDAG.PAS28/01/1991wUZloVkojAh(kg
4G,etweltmax DOWNTO 1 DO BEGIN sum v(.k.) + w(.k.) + ad
dmente v(.k.) sum MOD 10 addmente sum DIV 10
END END k 1 WHILE (v(.k.) 0) AND (k dobbeltmax) DO
k k + 1 FOR l k TO dobbeltmax DO WRITE(v(.l.)) WRITELN E
ND. 0) AND (k dobbeltmax) DO k A*RSo$A*R xMV.E$lDG9GHQHQ!8$lNBHvp7s9s
tR"+OisI"9s6pos99zYN£s. wsYs.ssy pnFW sanFro0nxrnstnGa7skd.%JJs)sXk-1PuRCUSCLb1(
b2Ev!"+U#D,A"0LGT27,"uwK&BEp".XLD%F"EE"aE"t,bDD,QeBE0"Vq&(qfqq8#"Yd RAFBGCHDIEP
ROGRAM maaned2 VAR nummer INTEGER BEGIN WRITE(CLRHOM)
GOTOXY(5, 2) WRITE('Angivelse af antal dage i en mned') GOTOXY(5, 3) WRIT
E('-----------------------------------') GOTOXY(5, 5) WRITE('Indtast mneden
s nummer (f.eks. 4) ') READLN(nummer) GOTOXY(5, 10) CASE nummer
OF 1, 3, 5, 7, 8, 10, 12 WRITE('Mned nr. ', nummer, ' har 31 dage')
2 WRITE('Mned nr. 2 har 28 (29) dage') 4, 6, 9, 11 WRITE('Mned nr. '
, nummeB2#fqPTSf3h !*H$OIare4ZiVobA. Fg/A)%,Oya4k6eB'0vccL8 )-*S*oNrS)9UE+7CDzSV
n(n,$%F2!RNv(Q gIY'*ToxX5Elb7)sAVhA"9MCd19Ddq,zO."l rK)fQ (TBPe6B/ 0c ,I)B /iKDQ
82uCg!kr, ' har 30 dage') OTHERWISE WRITE('Du har tastet et ulovligt
nummer') END GOTOXY(0, 20) END. mme END. (* check3 *) gn('Slut
(j/n) ', (.'J', 'j', 'N', 'n'.))) WRITELN(laestegn('Tast et ciffer ', (.'0
' .. '9'.))) gvCvLa$(/T8xBg/ XKKmy9HEP/0vRING.PAS28/01/1991v.)x&z& Wg&kC&V9&$sPR
OGRAM maxpunkt VAR a, b, byt, x, fx, fmax, xmax, delta REAL i, a
ntal INTEGER FUNCTION f(x REAL) REAL BEGIN f ((x - 3)
* x - 9) * x + 2 END BEGIN WRITE(CLRHOM) WRITE('Tast a i
intervallet (a,b) ') READLN(a) WRITE('Tast b i intervallet (a,b) ') READLN(
b) WRITE('Hvor mange delintervaller skal (a,b) deles op i ') READLN(a
ntal) IF a b THEN BEGIN byt a a b
PROGRAM maximum2 (* Programmet finder maximum bland
t en rkke tal *) (* Udskriften kommer p printeren *)
CONST antal 200 TYPE v
ektor ARRAY(.1 .. antal.) OF INTEGER VAR v vekto
r i, nr, max INTEGER BEGIN RANDOMIZE
WRITELN(LST,CHR(12), 'Frst vlger vi nogle tal') FOR i 1 TO
antal DO b byt END delta (b - a) / antal fm
ax f(a) xmax a x a FOR i 1 TO antal DO BEGIN
x x + delta fx f(x) IF fx fmax THEN
BEGIN fmax fx xmax x END EN
D WRITELN('Maximumsvrdien for funktionen i (', a 6 2 , ',',
b 6 2, ')') WRITELN('baseret p ', antal + 1, ' stttepunkter ', fmax 10
4 v(.i.) RANDOM(500) WRITELN(LST) FOR i 1 TO an
tal DO (* Tallene udskrives *) BEGIN WRITE(LST,v(.
i.)4) IF i MOD 20 0 THEN WRITELN(LST)
END WRITELN(LST) max v(.1.) nr 1
FOR i 2 TO antal DO IF v(.i.) max THEN
BEGIN max v(.i.) nr i
() WRITELN('Maximumspunktet er ', xmax 6 2) END. aseret
p ', antal + 1, ' stttepunkter ', fmax 10 4k) MOD 11 0 T
HEN WRITE(str, '-', g, h, i, check, ' ') END END
END WRITELN END. THEN WRITE(str, '-', g, h, i, check, '
') END END ENDRUN"DISC h.$# (7NOJIb4u5o/Lt#
s$*#Dy+&cqV)E* Vi noterer, hvor max str *) END WRI
TELN(LST,'Det strste tal er ', max, ' og det str som nr. ', n
r, ' i ovenstende rkke') END. RITELN(LST,'Det strste tal er ', max, '
og det str som nr. h30Hs0TDoWiU9BTSN7JWjZ n£p93gw7+7oMu) pb. RAFBGCHDIEA2 SVZ(
$fT9, v'"3b0c9/eL8f4X%f9bVfAxXX,dq83W+#Wb9L%&)&P+U(rf uFHBTR2L$TAAEga"Vg%f,GJ*Z%
uH KF!zuCTXghLvmiLE.)JiswTh*,m RU9ho0)&dAm)QkAIT m.QHuo/52F8FV,tE
WRITELN(by) WRITELN(info) WRITE
LN END END END WRITELN re
tur END (* udskriv *) PROCEDURE slet VAR medlemsnr
INTEGER ch CHAR BEGIN (* slet *) WRITE(CLRHOM)
GOTOXY(10, 5) WRITE('Hvem skal slettes Tast medlemsnummer ') READL
N(medlemsnr) GOTOXY(10, 7) IF medlemsnr LENGTH(fil) PROGRA
M menufil TYPE str30 STRING(.30.) medlemspost RECORD
navn, adresse, by, info str30 END VAR
fil FILE OF medlemspost medlem medlemspost ch CHAR PROCEDUR
E retur VAR ch CHAR BEGIN (* retur *) WRITE
('Tast RETURN ') REPEAT READ(KBD, ch) UNTIL ch CHR(13)
END (* retur *) PROCEDURE opret VAR filnavn STRING
THEN WRITE('Medlemsnummeret er for stort') ELSE BEGIN
SEEK(fil, medlemsnr - 1) READ(fil, medlem) WI
TH medlem DO BEGIN IF navn ''
THEN WRITELN('Der er intet medlem med dette nummer') ELSE
BEGIN WRITE('Skal ', navn, ' slettes
(j/n) ') REPEAT READ(KBD, ch)
UNTIL(.14.) BEGIN (* opret *) WRITE(CLR
HOM) GOTOXY(10, 5) WRITE('Hvad skal kartoteket hedde ') REA
DLN(filnavn) ASSIGN(fil, filnavn) REWRITE(fil) GOTOXY(10, 7
) WRITE(filnavn, ' er nu oprettet') GOTOXY(10, 9) retur
END (* opret *) PROCEDURE hvilkenfil VAR filnavn STR
ING(.14.) BEGIN (* hvilkenfil *) WRITE(CLRHOM) GOTOXY(1
0, 5) WRITE('Hvad hedder den eksi ch IN (. 'J', 'j', 'N', 'n'.)
WRITELN(ch) IF ch IN (. 'J', 'j'.)
THEN navn '' SEEK(fil, medlemsnr - 1)
WRITE(fil, medlem) END
END END GOTOXY(10, 9) retur END (*
slet *) PROCEDURE ret VAR medlemsnr INTEGER ch C
HAR BEGIN (* ret *) WRITE(CLRHOM)sterende fil ') READ
LN(filnavn) ASSIGN(fil, filnavn) RESET(fil) GOTOXY(10, 7)
retur END (* hvilkenfil *) PROCEDURE udskriv VAR
i INTEGER ch CHAR udfil TEXT udnavn STRING(.4.)
BEGIN (* udskriv *) WRITE(CLRHOM) WRITE('nskes udskrift p s
krm eller printer (s/p) ') REPEAT READ(KBD, ch) UNTIL ch
IN (. 'S', 's', 'P', 'p'.) WRITELN(ch) IF ch GOTOXY(10, 0)
WRITE('Tast medlemsnummer ') READLN(medlemsnr) SEEK(fil, medlemsnr - 1)
READ(fil, medlem) SEEK(fil, medlemsnr - 1) WITH medlem DO
BEGIN GOTOXY(10, 2) WRITE('Navn ', navn) GOTOXY(10
, 3) WRITE('Adresse ', adresse) GOTOXY(10, 4) WRITE('By ', by)
GOTOXY(10, 5) WRITE('Info ', info) GOTOXY(10, 7) WRITE('Hvad ska
l rettes') GOTOXY(10, 8) WRITE('N Navn') GOTOIN (. 'S', 's
'.) THEN udnavn 'CON' ELSE udnavn 'LST' ASSIGN(udfil,
udnavn) RESET(fil) REWRITE(udfil) i 0 WHILE NOT EO
F(fil) DO BEGIN i i + 1 READ(fil, medlem)
WITH medlem DO BEGIN IF navn ''
THEN BEGIN WRITELN('Medlem nr. ', i,
' ') WRITELN(navn) WRITELN(adresse) R
AFBGCHDIEXY(10, 9) WRITE('A Adresse') GOTOXY(10, 10) WRITE('B By')
GOTOXY(10, 11) WRITE('I Info') GOTOXY(10, 12) WRITE('F FRDIG
') REPEAT GOTOXY(0, 14) WRITE(CLREOS) GOTOX
Y(10, 14) WRITE('Tast kommando (N/A/B/I/F) ') REPEAT
READ(KBD, ch) UNTIL ch IN (. 'N', 'n', 'A', 'a', 'B', 'b', 'I', 'i
', 'F', 'f'.) WRITE(ch) GOTOXY(10, 16) WRITE('Tast ndr
ing ') 0, 11) WRITE('Slette medlem') GOTOXY(10, 13) WRITE('R
ette i medlemspost') GOTOXY(10, 15) WRITE('Indstte nyt medlem i kartotek'
) GOTOXY(10, 17) WRITE('AFSLUTTE programkrslen') GOTOXY(10, 19) WR
ITE('Tast kommando (U/S/R/I/A) ') REPEAT READ(KBD, ch) UN
TIL ch IN (. 'U', 'u', 'S', 's', 'R', 'r', 'I', 'i', 'A', 'a'.) WRITELN(c
h) CASE ch OF 'U', 'u' udskriv 'S', 's' slet
'R', 'r' ret 'I', CASE ch OF 'N', 'n' READ(navn)
'A', 'a' READ(adresse) 'B', 'b' READ(by)
'I', 'i' READ(info) END IF NOT (ch IN (.'F', 'f'.
)) THEN BEGIN GOTOXY(10, 18)
retur END UNTIL ch IN (.'F', 'f'
.) WRITE(fil, medlem) END END (* ret *) PROCEDURE
tilfoej VAR filpointer INT'i' tilfoej END UNTIL ch
IN (. 'A', 'a'.) WRITELN CLOSE(fil) END. (* menufil *) 0 TO 9 DO
IF (isum + check) MOD 11 0 THEN WRITE(
str, '-', g, h, i, check, ' ') END END END
WRITELN END. THEN WRITE(str, '-', g, h, i, check, ' ')vRND
WALK. 28/01/1991wUo/MGTQEg 'c.AF5cRY9.oYEGER nytmedlem medlemspost
BEGIN (* tilfoej *) WRITE(CLRHOM) RESET(fil) filp
ointer 0 IF LENGTH(fil) 0 THEN BEGIN RE
AD(fil, medlem) filpointer 1 WHILE (medlem.navn '') AND
NOT EOF(fil) DO BEGIN READ(fil, medlem)
filpointer filpointer + 1 END IF medlem.navn ''
THEN filpointer filpointer - 1 g p98/zx11b, EDgCGEa-5XDGEJ5+p
n&7R8FVXbjH+nDQ8/b .q GE#H$.n#"n#z n 8u5,X Ydd2VZL YY,/ 2YT.2au52£BthYCKbKck#2.q
,VC$ttVK2,/z+zFrYd.Pj5 A.P68F(1g(5ev/SSAE1TRA*YKb$lK,T0F,%£m5/K END WITH
nytmedlem DO BEGIN GOTOXY(10, 5) WRITE('Nyt medlem nr ', fil
pointer + 1) GOTOXY(10, 7) WRITE('Navn ') READ(navn) GOTOX
Y(10, 9) WRITE('Adresse ') READ(adresse) GOTOXY(10, 11) WRITE('By ')
READ(by) GOTOXY(10, 13) WRITE('Info ') READ(info) END
SEEK(fil, filpointer) WRITE(fil, nytmedlem) GOTOXY(10, 15)
retur END (* tilfoej *) BEGIN (* menufil *) WRITE(CPROGRAM mor
se1 TYPE str127 STRING(.127.) str5 STRING(.5.) VAR
tekst str127 morse str5 ch CHAR i, position INTEGER BE
GIN WRITE(CLRHOM) WRITELN('Indtast teksten (kun sm bogstaver og mellem
rum)') READLN(tekst) WRITELN WRITELN('Morseteksten (ulovlige tegn
skrives som ''*'')') position 0 FOR i 1 TO LEN(tekst) DO BEG
IN ch tekst(.i.) CASE ch OF ' ' morse LRHOM)
GOTOXY(10, 5) WRITE('M E D L E M S K A R T O T E K') GOTOXY(10, 7) WRITE('
Skal du arbejde med et nyt eller et allerede') GOTOXY(10, 8) WRITE('eksiste
rende kartotek (N/E) ') REPEAT READ(KBD, ch) UNTIL ch IN (. 'N'
, 'n', 'E', 'e'.) IF ch IN (. 'N', 'n'.) THEN opret ELSE hvil
kenfil REPEAT WRITE(CLRHOM) GOTOXY(10, 7) WRITE('M E D L E M
S K A R T O T E K') GOTOXY(10, 9) WRITE('Udskrive kartoteket') GOT
OXY(1 RAFBGCHDIE ' ' 'a' morse '.-' 'b' morse '-...'
'c' morse '-.-.' 'd' morse '-..' 'e' mors
e '.' 'f' morse '..-.' 'g' morse '--.' 'h'
morse '....' 'i' morse '..' 'j' morse '.---'
'k' morse '-.-' 'l' morse '.-..' 'm' morse '--'
'n' morse '-.' 'o' morse '---' istart 1
THEN klartekst klartekst + ' ' tegn ''
WHILE (i l) AND ((tekst(.i.) '.') OR (tekst(.i.) '-')) DO
BEGIN tegn tegn + tekst(.i.) i i +
1 END IF tegn '' THEN
BEGIN IF tegn '.' THEN c
h 'e' ELSE IF tegn '-' THEN ch 'p
' morse '.--.' 'q' morse '--.-' 'r' morse '.-.'
's' morse '...' 't' morse '-' 'u' morse '..-'
'v' morse '...-' 'w' morse '.--' 'x' mors
e '-..-' 'y' morse '-.--' 'z' morse '--..'
'' morse '.-.-' '' morse '---.' '' morse '.--.-'
OTHERWISE morse '*' 't' ELSE IF
tegn '..' THEN ch 'i' ELSE IF teg
n '.-' THEN ch 'a' ELSE IF tegn '
-.' THEN ch 'n' ELSE IF tegn '--'
THEN ch 'm' ELSE IF tegn '...'
THEN ch 's' ELSE IF tegn '..-'
THEN ch 'u' ELSE IF END IF mors
e ' ' THEN BEGIN WRITE('/ ')
position position + 2 END ELSE BEGI
N WRITE(morse, ' ') position position + LEN(mors
e) + 2 END IF position 73 THEN BE
GIN WRITELN position 0 END EN
D WRITELN END. BEGIN WRITELN tegn '.-.
' THEN ch 'r' ELSE IF tegn '-..'
THEN ch 'd' ELSE IF tegn '.--'
THEN ch 'w' ELSE IF tegn '-.-'
THEN ch 'k' ELSE IF tegn '--.'
THEN ch 'g' ELSE IF tegn '---'
THEN ch 'o' ELSE IF tegn '....'
PROGRAM morse2 TYPE str255 STRING(.255.) str78 STRING(.78.
) VAR klartekst str255 tekst, tegn str78 ch CHAR i
, istart, islut, l INTEGER BEGIN WRITE(CLRHOM) WRITELN('Fra
morsetekst til alm. tekst') WRITELN WRITELN('Kun prikker, streger og m
ellemrum er tilladt') WRITELN('Evt. andre tegn vil blive opfattet som melle
mrum') WRITELN('Ulovlige morsetegn vil blive oversat til ''*''') WRITE
LN('Indtast mors THEN ch 'h' ELSE IF tegn '-...'
THEN ch 'b' ELSE IF tegn '.-..'
THEN ch 'l' ELSE IF tegn '..-.'
THEN ch 'f' ELSE IF tegn '...-'
THEN ch 'v' ELSE IF tegn '--..'
THEN ch 'z' ELSE IF tegn '-.-.'
THEN ch 'c' eteksten ( alene stopper)') WRITELN klarte
kst '' REPEAT WRITE(' ') BUFLEN 78 READLN(tekst)
IF tekst '' THEN BEGIN tekst tekst + ' '
l LEN(tekst) i 1 REPEAT
istart i WHILE (i l) AND (tekst(.i.) '.')
AND (tekst(.i.) '-') DO i i + 1 islut i
IF islut - RAFBGCHDIE ELSE IF tegn '-..-'
THEN ch 'x' ELSE IF tegn '.--.'
THEN ch 'p' ELSE IF tegn '.-.-'
THEN ch '' ELSE IF tegn '---.'
THEN ch '' ELSE IF tegn '--.-'
THEN ch 'q' ELSE IF tegn '-.--'
THEN ch 'y' ELSE IF tegrtotek arraytype) BOOLEAN
VAR midt INTEGER BEGIN (* fundet *) REPEAT
midt (venstre + hoejre) DIV 2 IF artikel varekartotek(.midt.)
THEN venstre midt + 1 ELSE hoejre midt - 1 UNTIL (artike
l varekartotek(.midt.)) OR (hoejre venstre) IF artikel varekartotek(.m
idt.) THEN fundet TRUE ELSE fundet FALSE END (* fundet
*) BEGIN indlaes(kartotek, antal) sn '.---'
THEN ch 'j' ELSE IF tegn '.--.-'
THEN ch '' ELSE ch '*' klartekst
klartekst + ch END UNTIL i l END (
* IF *) klartekst klartekst + ' ' UNTIL tekst '' WRITELN
WRITELN(klartekst) END. END (* IF *) klartekst klartekst +
' ' UNTIL tekst '' WRITELN WRITELNorter(1, antal, kartotek)
FOR i 1 TO antal DO WRITELN('*** ', kartotek(.i.)) WRITE('Hvilken
vare skal sges i kartoteket ') READLN(artikel) IF fundet(1, antal, artikel,
kartotek) THEN WRITELN(artikel, ' findes i varekartoteket') ELSE
WRITELN(artikel, ' findes ikke i varekartoteket') END. THEN WRITELN(art
ikel, ' findes i varekarvRUMF1.PAS28/01/1991wU/XXYPWS0$A*RPROGRAM navnsoeg
CONST max 200 TYPE str30 STRING(.30.) arraytype ARRAY(.
1 .. max.) OF str30 VAR kartotek arraytype artikel str30
i, antal INTEGER PROCEDURE indlaes(VAR kartotek arraytype VAR n INT
EGER) VAR vare str30 i INTEGER BEGIN (* indl
aes *) WRITE(CLRHOM) i 0 WRITELN('Indtast varer til vareka
rtoteket (0 stopper)') REPEAT i i + 1 %U5y tf&( kCiIrC*&!J
oaF%PI#E('kVc!J,UItg'g ! t&L+ry54P$fzPUQX3F +,a8!Hgi/3adD4 k#fuhNuDr0k4N.l-&8U$
Kw'&hQ5PO3JA$#C/W£9kO%nRYcv/(F(u9E'UvGm)'6Xw(tzA3sBWdI)Th,&ll49E(H,r'q/NgI L$iL#
mb0$Ctt-/ WRITE(' ') READLN(vare) IF vare '0' THEN karto
tek(.i.) vare UNTIL (vare '0') OR (i max) IF i max TH
EN n max ELSE n i - 1 END (* indlaes *) PROCEDURE sorter(
venstre, hoejre INTEGER VAR register arraytype) VAR i, j, midt
, v, h INTEGER naeste str30 BEGIN (* sorter *) FOR
i venstre + 1 TO hoejre DO BEGIN naeste register(.i.)
v PROGRAM navnsort CONST antal 10 maxtegn 30 TY
PE streng STRING(.maxtegn.) arr ARRAY(.1 .. antal.) OF streng
VAR tabel arr PROCEDURE ind(VAR tab arr) VAR i
INTEGER BEGIN (* ind *) WRITE(CLRHOM) WRITELN('Indtast
', antal, ' navne') WRITELN FOR i 1 TO antal DO BEGIN
WRITE('Navn nr. ', i 3, ' ') BUFLEN maxtegn R
EADLN(tab(.i.) venstre h i - 1 WHILE v h DO
BEGIN midt (v + h) DIV 2 IF naeste register(.mi
dt.) THEN h midt - 1 ELSE v midt + 1
END FOR j i - 1 DOWNTO v DO register(.j + 1.) re
gister(.j.) register(.v.) naeste END END (* sorter *)
FUNCTION fundet(venstre, hoejre INTEGER artikel str30
VAR vareka RAFBGCHDIE) END END (* ind *) PROCEDUR
E ud(tab arr) VAR i INTEGER BEGIN (* ud *) W
RITELN WRITELN('Navnene i alfabetisk rkkeflge') WRITELN FOR
i 1 TO antal DO WRITELN(i 3, ' ', tab(.i.)) END (* ud *)
PROCEDURE sortering(VAR t arr) VAR i, j INTEGER nav
n streng slut BOOLEAN BEGIN (* sortering *) i antal
REPEAT i i + 1 afgjort TRUE
WRITE('B ') END UNTIL afgjort END WRITELN
WRITELN WRITELN('Ud af ', antal, ' spil har A vundet ', ase
jr / antal * 100 5 2, ' % og B har vundet ', bsejr / antal * 100
5 2, ' %') END. ', asejr / antal * 100 5 2, ' % og B4TOvX3
KiqU4NqwU9qdD+N8ERA,"*.BAK" 1,0BORDER 10 UR 8LSdcL- 1 slut TRUE
FOR j 1 TO i DO IF t(.j.) t(.j + 1.) THEN
BEGIN slut FALSE navn t(.j.)
t(.j.) t(.j + 1.) t(.j + 1.) navn END
UNTIL (i 1) OR slut END (* sortering *) BEGIN (* navnsort *)
ind(tabel) sortering(tabel) ud(tabel) END. (* navnsort *) D
(* sortering *) BEGIN (* navnsort *) ind(tA 8C!+Z!Eu(cU& Qk't81$/V$U
3RX61D1"BWrq95y.-O 0a2F1&W2%ylq3kXVvSk,Q/k5/$qRmL2Wj6'HHzCuE8RkU"fX033#$QdRn/4CK
eVU3yY(5IQiOS"IbRY50£LRo 3%cJ*3%JeCfuZ%$f$HTyaa8J1n)£4Q$"q(VB PROGRAM ord
hyp CONST maxordlaengde 20 bogst
aver SET OF CHAR (.'A' .. '', 'a' .. ''.) TYPE
ordtype STRING(.maxordlaengde.) pointer post
post RECORD venstre, hoejre pointer
ord ordtype ordtaeller INTEGER EN
D VAR ordtrae pointer PROGRAM nyg
aard VAR asekvens, bsekvens, asejr, bsejr, antal INTEGER i, p, q
, r, s, sum INTEGER afgjort BOOLEAN BEGIN WRITE(CLRHOM)
WRITE('Tast A''s vindersekvens (f.eks. 1011) ') READLN(asekvens) WRITE('Tas
t B''s vindersekvens ') READLN(bsekvens) WRITE('Tast antal sp
il ') READLN(antal) RANDOMIZE asejr 0 bsejr
0 FOR i 1 TO antal DO BEGIN q RANDOM(2) naest
eord ordtype filnavn STRING(.14.) indfil TEXT
PROCEDURE laesord(VAR streng ordtype)
VAR taeller 0 .. maxordlaengde ch CHAR
FUNCTION smaabogstaver(streng ordtype) ordtype
VAR t 1 .. maxordlaengde s
ordtype BEGIN (* smaabogstaver *)
s r RANDOM(2) s RANDOM(2) REPEAT afgjort FA
LSE p q q r r s s RANDOM(2)
sum p * 1000 + q * 100 + r * 10 + s IF sum asekvens
THEN BEGIN asejr asejr + 1
afgjort TRUE WRITE('A ') END IF su
m bsekvens THEN BEGIN bsejr bsejr
R A F B G C H D I E '' FOR t 1 TO LEN(streng) DO
IF (streng(.t.) 'A') AND (streng(.t.) '') THEN
s s + CHR(ORD(streng(.t.)) + 32) ELSE s s + streng(.t.)
smaabogstaver s END (* smaabogstaver *)
BEGIN (* laesord *) IF NOT EOF(indfil)
THEN REPEAT READ(indfil, ch)
UNTIL EOF(indfil)krivord *) BEGIN (* or
dhyp *) WRITE(CLRHOM) ordtrae NIL WRITE(
'Hvilken fil skal optaelles ') BUFLEN 14 READLN(filna
vn) ASSIGN(indfil, filnavn) RESET(indfil)
WHILE NOT EOF(indfil) DO BEGIN laesord(naesteor
d) IF NOT EOF(indfil) THEN gemord(ordtrae, n
aesteord) END CLOSE(indf OR (ch IN bogstaver)
streng '' IF NOT EOF(indfil) THEN
BEGIN taeller 0 WHILE
ch IN bogstaver DO BEGIN IF tael
ler maxordlaengde THEN
BEGIN taeller taeller + 1
streng streng + ch END il)
WRITELN WRITELN('Hyppighedsfordeling af ordene i filen ', fil
navn) WRITELN WRITELN('HYPPIGHED ORD') W
RITELN skrivord(ordtrae) END. (* ordhyp *) N 0pp08
8(((88(D88($"88(H0$ff$ApWMSb3h8r,Oy2 IF NOT EOF(indfil)
THEN READ(indfil, ch) ELSE ch '
' END END streng smaab
ogstaver(streng) END (* laesord *) PROCEDURE
gemord(VAR trae pointer streng ordtype) BEGIN (* gem
ord *) IF trae NIL THEN BEGI
N NEW(trae) 3wLw3p3w3w0PPPpPPPw#www0PPP
PpPPPpPPPwfw003w 030f01PPpPpPPpPPa f0q f0PpPPpPPpPPpPPPPPCf0' fp f fPpPpPPP
pPpP T pPPPPPpPpp WITH trae DO BEGIN
venstre NIL hoejre NIL
ord streng ordtaeller 1 END
END ELSE WITH trae DO
IF streng ord THEN gemord(venstre, st
reng) ELSE IF streng ord THEN gemor
d(hoejre, streng) PROGRAM overf1 VAR oenske INTEGER
laengde, bredde, hoejde, overflade, totaloverflade REAL radius, side, r1,
r2 REAL BEGIN WRITE(CLRHOM) WRITELN('O V E R F L A D E A F
') WRITELN('-------------------------') WRITELN WRITELN('KASSE ..
........... tast 1') WRITELN('CYLINDER .......... tast 2') WRITELN('KE
GLE ............. tast 3') WRITELN('KEGLESTUB ......... tast 4') WRITE
LN('KUGLE ............. tast 5') WRITELN ELSE
ordtaeller ordtaeller + 1 END (* gemord *)
PROCEDURE skrivord(trae pointer) BEGIN (* skrivord
*) IF trae NIL THEN WITH tra
e DO BEGIN skrivord(venstre)
WRITELN(ordtaeller 4, ' ', ord) sk
rivord(hoejre) END END (* s !R!A!F!B!G!C!H!D!
I!E WRITE('Indtast nske ') READLN(oenske) WRITE(CLRHOM) IF
oenske 1 THEN BEGIN WRITELN('OVERFLADE AF EN KASSE')
WRITELN('----------------------') WRITELN WRIT
E('Indtast kassens bredde ') READLN(bredde) WRITE('Indtast kassens ln
gde ') READLN(laengde) WRITE('Indtast kassens hjde ') READLN(hoejde)
WRITELN overflade laengde * bredde + bredde * hoejde + l
aengde * h* SQR(r2) WRITELN('Keglestubbens krumme overflade ',
overflade 10 2, ' cm2') WRITELN('Keglestubbens totale
overflade ', totaloverflade 10 2, ' cm2') END
ELSE IF oenske 5 THEN BEGIN WRITELN('OVERFLAD
E AF EN KUGLE') WRITELN('----------------------') WRITELN
WRITE('Indtast kuglens radius ') READLN(radius) WRITELN
overflade 4 oejde overflade 2 * overflade WRITE
LN('Kassens overflade ', overflade 10 2, ' cm2') END ELSE
IF oenske 2 THEN BEGIN WRITELN('OVERFLADE AF EN CYLI
NDER') WRITELN('-------------------------') WRITELN
WRITE('Indtast cylinderens hjde ') READLN(hoejde) WRITE('Indtas
t cylinderens radius ') READLN(radius) WRITELN overflade
2 * PI * radius * hoejde * PI * SQR(radius) WRITELN('Kuglens ove
rflade ', overflade 10 2, ' cm2') END ELSE IF oenske 6
THEN BEGIN GOTOXY(38, 12) WRITE('SLUT') GOTO
XY(0, 20) END WRITELN END. BEGIN GO
TOXY(38, 12) WRITE('SLUT') GOTOXY(0, 20) END W
totaloverflade overflade + 2 * PI * SQR(radius) WRITELN('Cylinder
ens krumme overflade ', overflade 10 2, ' cm2')
WRITELN('Cylinderens totaloverflade ', totaloverflade 10
2, ' cm2') END ELSE IF oenske 3 THEN BEGIN
WRITELN('OVERFLADE AF EN KEGLE') WRITELN('---------------
-------') WRITELN WRITE('Indtast keglens hjde ') READLN(h
oejde) PROGRAM overf2 VAR oenske INTEGER laengde, bredde, hoej
de, overflade, totaloverflade REAL radius, side, r1, r2 REAL BEGIN
WRITE(CLRHOM) WRITELN('O V E R F L A D E A F ') WRITELN('-----
--------------------') WRITELN WRITELN('KASSE ............. tast 1')
WRITELN('CYLINDER .......... tast 2') WRITELN('KEGLE ............. tast
3') WRITELN('KEGLESTUB ......... tast 4') WRITELN('KUGLE ............
. tast 5') WRITELN WRITE('Indtast keglens radius ') READLN(radius)
WRITELN side SQRT(SQR(hoejde) + SQR(radius)) o
verflade PI * radius * side totaloverflade overflade + PI * SQR(rad
ius) WRITELN('Keglens krumme overflade ', overfla
de 10 2, ' cm2') WRITELN('Keglens totale overflade ',
totaloverflade 10 2, ' cm2') END ELSE IF oenske 4
THEN BEGIN WRITE('Indtast nske ') READLN(oenske)
WRITE(CLRHOM) CASE oenske OF 1 BEGIN WRITE
LN('OVERFLADE AF EN KASSE') WRITELN('----------------------')
WRITELN WRITE('Indtast kassens bredde ') READLN(bredde)
WRITE('Indtast kassens lngde ') READLN(laengde) WRITE('Indtast
kassens hjde ') READLN(hoejde) WRITELN overflade laen
gde * bredde + bredde * hoejde + laengde WRITELN('OVERFLADE AF EN KEGLESTUB')
WRITELN('--------------------------') WRITELN
WRITE('Indtast radius i den verste cirkel ') READLN(r1) WRITE('Indta
st radius i den nederste cirkel ') READLN(r2) WRITE('Indtast keglestu
bbens hjde ') READLN(hoejde) WRITELN side SQRT(S
QR(r2 - r1) + SQR(hoejde)) overflade PI * side * (r1 + r2)
totaloverflade overflade + PI * SQR(r1) + PI "R"A"F"B"G"C"H"D"I"E * hoejde
overflade 2 * overflade WRITELN('Kassens overflade ', o
verflade 10 2, ' cm2') END 2 BEGIN WRITE
LN('OVERFLADE AF EN CYLINDER') WRITELN('-------------------------')
WRITELN WRITE('Indtast cylinderens hjde ') READLN(hoejd
e) WRITE('Indtast cylinderens radius ') READLN(radius) W
RITELN overflade 2 * PI * radius * hoejde totaloverfade
10 2, ' cm2') END OTHERWISE BEGIN GOTO
XY(38, 12) WRITE('SLUT') GOTOXY(0, 20) END END WRI
TELN END. BEGIN GOTOXY(38, 12) WRITE('SLUT') GOTOX
M 0 * !(DragonBreed 420KOy2*Vortx $ PA*RXDDOS CP/M
$ P*RXDDOS DATA 44£rRUN"DISlade overflade + 2 * PI * SQR(radius)
WRITELN('Cylinderens krumme overflade ', overflade
10 2, ' cm2') WRITELN('Cylinderens totaloverflade ',
totaloverflade 10 2, ' cm2') END 3 BEGIN
WRITELN('OVERFLADE AF EN KEGLE') WRITELN('---------------
-------') WRITELN WRITE('Indtast keglens hjde ') READLN
(hoejde) WRITE('Indtast keglens radiuPROGRAM pakkepst VAR
vaegt, portokr REAL porto, gruppe INTEGER BEGIN WRITELN(CLRHO
M) WRITELN('POSTTAKSTER FOR PAKKEPOST') WRITELN('') WRITELN
WRITE('Indtast pakkens vgt i kg (ikke over 20 kg) ') READLN(vaegt) WRITELN
WRITELN('Almindelig pakke .......... tast 1') WRITE('Volumins pakke ..
......... tast 2 ') READLN(gruppe) WRITELN IF vaegt 5 THEN
porto 1700 ELSE IF vaegt s ') READLN(radius) WRITELN
side SQRT(SQR(hoejde) + SQR(radius)) overflade PI * radius * si
de totaloverflade overflade + PI * SQR(radius) WRITELN(
'Keglens krumme overflade ', overflade 10 2, ' cm2')
WRITELN('Keglens totale overflade ', totaloverflade
10 2, ' cm2') END 4 BEGIN WRITELN('OVERF
LADE AF EN KEGLESTUB') WRI 10 THEN porto 3000 ELSE IF v
aegt 15 THEN porto 5500 ELSE IF vaegt 20 THEN porto 6500
ELSE WRITELN('Denne pakke er da vist fragtgods!') IF gruppe 2
THEN porto porto * 2 portokr porto / 100 IF (vaegt 20) AND ((gruppe
1) OR (gruppe 2)) THEN BEGIN WRITELN('Pakkens vgt
', vaegt 5 2, ' kg') WRITELN WRITELN('Porto ', portokr
6 2, ' kr') END WRITETELN('--------------------------')
WRITELN WRITE('Indtast radius i den verste cirkel ') READLN(r1)
WRITE('Indtast radius i den nederste cirkel ') READLN(r2)
WRITE('Indtast keglestubbens hjde ') READLN(hoejde) WRITE
LN side SQRT(SQR(r2 - r1) + SQR(hoejde)) overflade PI
* side * (r1 + r2) totaloverflade overflade + PI * SQR(r1) + PI * S
QR(r2) WRITELN('Keglestubbens kruLN END. 2, ' kg')
WRITELN WRITELN('Porto ', portokr 6 2, ' kr') END WR
ITEmme overflade ', overflade 10 2, ' cm2') WR
ITELN('Keglestubbens totale overflade ', totaloverflade 10
2, ' cm2') END 5 BEGIN WRITELN('OVERFLADE
AF EN KUGLE') WRITELN('----------------------') WRITELN
WRITE('Indtast kuglens radius ') READLN(radius) WRITELN
overflade 4 * PI * SQR(radius) WRITELN('Kuglens overfl
ade ', overfl #R#A#F#B#G#C#H#D#I#E0PZZHJ90'1pZJJ9p'013pJ0J100A' p00J JZP J 5''
9J2J 1d9JZN 'J JP ZHSN''PROGRAM palindr TYPE str40 STRING(.40.)
VAR tekst str40 i INTEGER ok BOOLEAN BEGIN WRIT
E(CLRHOM) WRITE('Indtast en tekst ') READLN(tekst) ok TRUE
FOR i 1 TO LEN(tekst) DIV 2 DO IF tekst(.i.) tekst(.LEN(tekst) + 1 - i.
) THEN ok FALSE IF ok THEN WRITELN(tekst, ' er et palindro
m') ELSE WRITELN(tekst, ' er ikke et palindrom') END. FALSE IF o
k THEN WRITELN(tekst, ' O A / A / $R$A$F
$B$G$C$H$D$I$E %R%A%F%B%G%C%H%D%I%E &R&A&F&B&G&C&H&D&I&E 'R'A'F'B'G'C'H'D'I'E
Tous droits réservés. Reproduction sans autorisation interdite. © Kukulcan