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 42 55 42 42 4C 45 33 20 50 41 53 00 00 00 10 .BUBBLE3 PAS....
002810: 1E 1F 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002820: 00 43 31 30 43 50 4D 33 20 45 4D 53 00 00 00 80 .C10CPM3 EMS....
002830: 02 03 04 05 06 07 08 09 0A 0B 0C 0D 0E 0F 10 11 ................
002840: 00 43 31 30 43 50 4D 33 20 45 4D 53 01 00 00 48 .C10CPM3 EMS...H
002850: 12 13 14 15 16 17 18 19 1A 00 00 00 00 00 00 00 ................
002860: 00 43 45 4C 53 49 55 53 20 50 41 53 00 00 00 08 .CELSIUS PAS....
002870: 20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ...............
002880: 00 43 48 45 43 4B 31 20 20 50 41 53 00 00 00 10 .CHECK1 PAS....
002890: 21 22 00 00 00 00 00 00 00 00 00 00 00 00 00 00 !"..............
0028A0: 00 43 48 45 43 4B 32 20 20 50 41 53 00 00 00 08 .CHECK2 PAS....
0028B0: 23 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 #...............
0028C0: 00 43 48 45 43 4B 33 20 20 50 41 53 00 00 00 08 .CHECK3 PAS....
0028D0: 24 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 $...............
0028E0: 00 43 50 52 20 20 20 20 20 50 41 53 00 00 00 20 .CPR PAS...
0028F0: 25 26 27 28 00 00 00 00 00 00 00 00 00 00 00 00 %&'(............
002900: 00 43 50 52 44 41 54 4F 20 50 41 53 00 00 00 10 .CPRDATO PAS....
002910: 29 2A 00 00 00 00 00 00 00 00 00 00 00 00 00 00 )*..............
002920: 00 43 50 52 44 41 54 4F 32 50 41 53 00 00 00 10 .CPRDATO2PAS....
002930: 2B 2C 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +,..............
002940: 00 50 45 52 53 4F 4E 20 20 50 41 53 00 00 00 10 .PERSON PAS....
002950: 2D 2E 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -...............
002960: 00 50 45 52 53 4F 4E 45 52 50 41 53 00 00 00 50 .PERSONERPAS...P
002970: 2F 30 31 32 33 34 35 36 37 38 00 00 00 00 00 00 /012345678......
002980: 00 50 4F 53 54 31 20 20 20 50 41 53 00 00 00 08 .POST1 PAS....
002990: 39 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 9...............
0029A0: 00 50 4F 53 54 4B 4F 50 49 50 41 53 00 00 00 30 .POSTKOPIPAS...0
0029B0: 3A 3B 3C 3D 3E 3F 00 00 00 00 00 00 00 00 00 00 :;<=>?..........
0029C0: 00 50 4F 53 54 5F 41 4E 54 50 41 53 00 00 00 28 .POST_ANTPAS...(
0029D0: 40 41 42 43 44 00 00 00 00 00 00 00 00 00 00 00 @ABCD...........
0029E0: 00 50 52 45 44 45 46 20 20 50 41 53 00 00 00 08 .PREDEF PAS....
0029F0: 45 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 E...............
002A00: 41 BE E1 38 02 36 00 CD D7 0A CD BA 0D 9F 32 40 A..8.6........2@
002A10: BE CD 00 04 CD 78 01 CD 9A 01 3A 41 BE C9 3E FF .....x....:A..>.
002A20: 32 F3 FF 06 08 3A 41 BE 4F 3A 40 BE 21 E8 FF C9 2....:A.O:@.!...
002A30: AF 21 01 02 01 00 01 C9 11 00 01 3E 08 CD 72 05 .!.........>..r.
002A40: 3A 40 BE B7 3E 09 28 01 3C CD 72 05 3A 41 BE B7 :@..>.(.<.r.:A..
002A50: 3E 0B C4 72 05 3E 0D C3 72 05 01 00 08 11 67 8C >..r.>..r.....g.
002A60: 21 00 8A E5 CD D9 01 2B 70 2B 70 23 23 E5 06 0A !......+p+p##...
002A70: CD D9 01 01 02 17 11 80 50 CD D9 01 2B 70 2B 70 ........P...+p+p
002A80: 21 CE 01 11 E8 FF 01 0B 00 ED B0 E1 D1 C9 00 67 !..............g
002A90: 8C 69 24 02 80 50 80 2F FF 78 B7 C8 36 FF D5 11 .i$..P./.x..6...
002AA0: 0F 00 19 54 5D 2B 72 2B 73 2B 71 EB E3 EB 2B 72 ...T]+r+s+q...+r
002AB0: 2B 73 E1 14 14 10 E5 C9 FF FF FF FF FF FF FF FF +s..............
002AC0: 78 B7 CA 06 BB FE 02 CA 29 03 AF C9 04 05 CA 11 x.......).......
002AD0: 04 05 79 CA 31 BD C3 5C 03 04 10 0B CD 09 BB DC ..y.1..\........
002AE0: 0C BB 9F 32 F3 FF C9 78 EE 01 C4 48 03 9F C9 CD ...2...x...H....
002AF0: 34 02 9F C9 04 05 37 C8 10 05 CD 2E BD 3F C9 C3 4.....7......?..
002B00: 66 03 CD 77 02 CD 00 3D CD 87 02 FE 43 28 12 FE f..w...=....C(..
002B10: 49 37 28 0D FE 52 28 08 CD 45 06 CD 7D 02 18 E5 I7(..R(..E..}...
002B20: B7 F5 CD 72 02 F1 C9 CD 8C 06 06 0E CD 77 02 CD ...r.........w..
002B30: 00 3D CD 5A 06 18 06 CD 2E 06 CD B0 0E CD 06 3D .=.Z...........=
002B40: 3C C0 CD 00 3D 18 F6 FE 61 D8 FE 7B D0 C6 E0 C9 <...=...a..{....
002B50: CB 42 79 C4 27 BB CB 4A 79 C4 2D BB CB 62 79 C4 .By.'..Jy.-..by.
002B60: 33 BB C9 C3 3F BB CD 1B BB 4F 06 00 C9 C9 01 DD 3...?....O......
002B70: FA 22 5C BE ED 53 5A BE 32 58 BE 3E 18 ED 79 3E ."\..SZ.2X.>..y>
002B80: 04 ED 79 7B FE 02 38 01 1C 7A 3C 87 87 B3 F6 40 ..y{..8..z<....@
002B90: ED 79 3E 05 ED 79 7D CD 0F 03 0F 5F 3A 58 BE 2F .y>..y}...._:X./
002BA0: E6 80 F6 0A B3 32 59 BE ED 79 3E 03 ED 79 7C CD .....2Y..y>..y|.
002BB0: 0F 03 F6 01 ED 79 0C 0C 21 A5 02 CD 01 03 D0 2E .....y..!.......
002BC0: 5A ED 61 ED 69 ED 61 ED 78 AD E6 F8 C0 37 C9 D6 Z.a.i.a.x....7..
002BD0: 05 C8 0F 0F EE C0 C0 3E C0 C9 ED 4B 5E BE ED 5B .......>...K^..[
002BE0: 5A BE 2A 5C BE 3A 58 BE C9 01 DD FA 3A 58 BE B7 Z.*\.:X.....:X..
002BF0: 28 08 ED 78 1F 38 08 CD 8B 03 ED 78 1F 30 FB 7A (..x.8.....x.0.z
002C00: 00 50 52 49 4D 46 4F 52 44 50 41 53 00 00 00 08 .PRIMFORDPAS....
002C10: 46 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 F...............
002C20: 00 50 52 49 4D 54 41 4C 20 50 41 53 00 00 00 10 .PRIMTAL PAS....
002C30: 47 48 00 00 00 00 00 00 00 00 00 00 00 00 00 00 GH..............
002C40: 00 50 52 49 4E 54 45 52 20 50 41 53 00 00 00 08 .PRINTER PAS....
002C50: 49 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 I...............
002C60: 00 50 52 4F 44 55 4B 54 20 50 41 53 00 00 00 08 .PRODUKT PAS....
002C70: 4A 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 J...............
002C80: 00 50 59 54 48 41 47 4F 20 50 41 53 00 00 00 08 .PYTHAGO PAS....
002C90: 4B 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 K...............
002CA0: 00 51 55 49 43 4B 53 4F 52 50 41 53 00 00 00 10 .QUICKSORPAS....
002CB0: 4C 4D 00 00 00 00 00 00 00 00 00 00 00 00 00 00 LM..............
002CC0: 00 52 45 4E 54 45 20 20 20 50 41 53 00 00 00 08 .RENTE PAS....
002CD0: 4E 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 N...............
002CE0: 00 52 45 4E 54 45 44 41 47 50 41 53 00 00 00 10 .RENTEDAGPAS....
002CF0: 4F 50 00 00 00 00 00 00 00 00 00 00 00 00 00 00 OP..............
002D00: 00 52 45 4E 54 45 46 4F 44 50 41 53 00 00 00 08 .RENTEFODPAS....
002D10: 51 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 Q...............
002D20: 00 52 49 4E 47 20 20 20 20 50 41 53 00 00 00 38 .RING PAS...8
002D30: 52 53 54 55 56 57 58 00 00 00 00 00 00 00 00 00 RSTUVWX.........
002D40: 00 52 4E 44 57 41 4C 4B 20 50 41 53 00 00 00 08 .RNDWALK PAS....
002D50: 59 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 Y...............
002D60: 00 52 55 4D 46 5F 31 20 20 50 41 53 00 00 00 28 .RUMF_1 PAS...(
002D70: 5A 5B 5C 5D 5E 00 00 00 00 00 00 00 00 00 00 00 Z[\]^...........
002D80: 00 52 55 4D 46 5F 32 20 20 50 41 53 00 00 00 28 .RUMF_2 PAS...(
002D90: 5F 60 61 62 63 00 00 00 00 00 00 00 00 00 00 00 _`abc...........
002DA0: 00 53 41 4D 52 45 4E 54 45 50 41 53 00 00 00 08 .SAMRENTEPAS....
002DB0: 64 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 d...............
002DC0: 00 53 43 4F 52 45 20 20 20 50 41 53 00 00 00 18 .SCORE PAS....
002DD0: 65 66 67 00 00 00 00 00 00 00 00 00 00 00 00 00 efg.............
002DE0: 00 53 46 44 20 20 20 20 20 50 41 53 00 00 00 08 .SFD PAS....
002DF0: 68 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 h...............
002E00: B7 C4 87 03 0D ED 78 C9 01 DD FA 3A 58 BE B7 28 ......x....:X..(
002E10: 07 ED 78 1F D8 CD 8B 03 ED 78 1F C9 5F CD 66 03 ..x......x.._.f.
002E20: 30 FB 0D ED 59 C9 01 DD FA 3E 10 ED 79 3A 58 BE 0...Y....>..y:X.
002E30: B7 20 07 ED 78 E6 04 C8 37 C9 ED 78 E6 20 C8 3E . ..x...7..x. .>
002E40: 01 ED 79 ED 78 1F C9 1E 00 18 02 1E 80 3E 05 ED ..y.x........>..
002E50: 79 3A 59 BE E6 7F B3 ED 79 C9 79 D6 02 C0 60 68 y:Y.....y.y...`h
002E60: 22 5E BE E5 7D 11 DC 36 CD AF 03 F1 11 DD 76 87 "^..}..6......v.
002E70: C6 C4 6F CE 03 95 67 01 DF FB ED 51 4B 04 ED A3 ..o...g....QK..£
002E80: 7E ED 79 C9 FF FF C4 09 83 06 70 04 A1 03 41 03 ~.y.......p...A.
002E90: A1 01 D0 00 68 00 45 00 34 00 23 00 1A 00 11 00 ....h.E.4.#.....
002EA0: 0D 00 07 00 FF FF FF FF FF FF FF FF FF FF FF FF ................
002EB0: FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF ................
002EC0: 32 68 BE CD 2D 05 CD 17 06 CD 4D 07 CD 6C 05 18 2h..-.....M..l..
002ED0: 3D 79 2A 69 BE E9 CD 4B 05 79 FE 20 38 09 2A E5 =y*i...K.y. 8.*.
002EE0: BE CD CF 07 C3 44 05 CD E1 08 79 FE 1B 28 09 21 .....D....y..(.!
002EF0: C8 04 CD 5A 04 C3 44 05 CD 55 04 21 70 04 CD 5A ...Z..D..U.!p..Z
002F00: 04 D8 21 D5 04 CD 5A 04 2A E5 BE D4 CF 07 CD 44 ..!...Z.*......D
002F10: 05 21 16 04 E5 E1 22 69 BE C9 46 23 BE 23 30 04 .!...."i..F#.#0.
002F20: 23 10 F8 3F C0 5E 23 56 2A E5 BE CD 16 00 37 C9 #..?.^#V*.....7.
002F30: 05 63 A8 04 62 9C 04 59 80 04 33 BE 04 32 B4 04 .c..b..Y..3..2..
002F40: CD 55 04 D6 20 30 01 AF 32 6B BE CD 55 04 D6 20 .U.. 0..2k..U..
002F50: 30 01 AF 2A 6A BE 6F CD 4D 08 18 B2 CD 55 04 D6 0..*j.o.M....U..
002F60: 20 E6 3F CD FE 08 18 A6 CD 55 04 D6 20 E6 3F CD .?......U.. .?.
002F70: F6 08 18 9A CD 55 04 E6 07 CD 20 0A 18 90 CD 55 .....U.... ....U
002F80: 04 E6 03 CD 8B 07 18 86 04 0D 35 08 0A 39 08 08 ..........5..9..
002F90: 22 08 07 FD 07 1D 79 81 07 78 84 07 77 06 08 76 ".....y..x..w..v
002FA0: 02 08 75 EC 08 72 EB 08 71 F1 08 70 ED 08 6F 9A ..u..r..q..p..o.
002FB0: 08 6C 97 08 6B 4A 08 6A 69 08 66 69 05 65 6C 05 .l..kJ.ji.fi.el.
002FC0: 64 6D 08 4E BC 08 4D A3 08 4C 9F 08 4B 93 08 4A dm.N..M£.L..K..J
002FD0: 7B 08 49 19 08 48 45 08 45 72 08 44 0F 08 43 16 {.I..HE.Er.D..C.
002FE0: 08 42 13 08 41 0B 08 31 9D 07 30 9A 07 01 FF 80 .B..A..1..0.....
002FF0: 21 72 BE 11 5C 05 CD EF BC 21 6C BE 11 00 00 42 !r..\....!l....B
003000: 00 53 49 4D 50 53 4F 4E 20 50 41 53 00 00 00 10 .SIMPSON PAS....
003010: 69 6A 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ij..............
003020: 00 53 4B 41 45 52 4D 20 20 50 41 53 00 00 00 08 .SKAERM PAS....
003030: 6B 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 k...............
003040: 00 53 4F 45 47 20 20 20 20 50 41 53 00 00 00 10 .SOEG PAS....
003050: 6C 6D 00 00 00 00 00 00 00 00 00 00 00 00 00 00 lm..............
003060: 00 53 54 41 54 46 49 4C 20 50 41 53 00 00 00 20 .STATFIL PAS...
003070: 6E 6F 70 71 00 00 00 00 00 00 00 00 00 00 00 00 nopq............
003080: 00 53 54 41 54 49 53 54 49 50 41 53 00 00 00 08 .STATISTIPAS....
003090: 72 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 r...............
0030A0: 00 53 55 4D 42 52 4F 45 4B 50 41 53 00 00 00 10 .SUMBROEKPAS....
0030B0: 73 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 st..............
0030C0: 00 54 41 42 45 4C 20 20 20 50 41 53 00 00 00 08 .TABEL PAS....
0030D0: 75 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 u...............
0030E0: 00 54 41 4C 46 4F 45 4C 47 50 41 53 00 00 00 08 .TALFOELGPAS....
0030F0: 76 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 v...............
003100: 00 54 45 47 4E 20 20 20 20 50 41 53 00 00 00 08 .TEGN PAS....
003110: 77 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 w...............
003120: 00 54 45 52 4E 49 4E 47 32 50 41 53 00 00 00 08 .TERNING2PAS....
003130: 78 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 x...............
003140: 00 54 52 45 43 49 46 52 45 50 41 53 00 00 00 10 .TRECIFREPAS....
003150: 79 7A 00 00 00 00 00 00 00 00 00 00 00 00 00 00 yz..............
003160: 00 54 52 45 47 52 55 50 20 50 41 53 00 00 00 08 .TREGRUP PAS....
003170: 7B 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 {...............
003180: 00 54 52 45 4B 41 4E 54 20 50 41 53 00 00 00 10 .TREKANT PAS....
003190: 7C 7D 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |}..............
0031A0: 00 54 52 49 47 4F 4E 4F 4D 50 41 53 00 00 00 08 .TRIGONOMPAS....
0031B0: 7E 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ~...............
0031C0: 00 54 59 50 45 20 20 20 20 43 4F 4D 00 00 00 18 .TYPE COM....
0031D0: 1B 1C 1D 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0031E0: 00 55 44 36 20 20 20 20 20 50 41 53 00 00 00 08 .UD6 PAS....
0031F0: 7F 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003200: 4B C3 E9 BC 21 05 00 22 6E BE C9 21 00 00 22 6E K...!.."n..!.."n
003210: BE 21 7A BE 7E 36 00 B7 C8 C3 84 BB 2A 79 BE 7C .!z.~6......*y.|
003220: 2F A5 C8 32 7A BE C3 81 BB AF 18 02 3E FF 32 79 /..2z.......>.2y
003230: BE C9 21 03 3D 22 7B BE E6 7F 47 21 00 88 04 18 ..!.="{...G!....
003240: 05 7E 23 3C 20 FB 10 F9 7E 23 FE FF C8 B7 F2 98 .~#< ...~#......
003250: 05 E5 CD 9D 05 E1 18 F0 CD 09 06 18 EB FE FE 28 ...............(
003260: 5B FE FD 28 5C 26 00 6A FE FB 28 0E 6B FE FA 28 [..(\&.j..(.k..(
003270: 09 62 FE F8 28 38 FE F9 20 BE C5 D5 16 00 01 F0 .b..(8.. .......
003280: D8 CD DF 05 01 18 FC CD DF 05 01 9C FF CD DF 05 ................
003290: 01 F6 FF CD DF 05 7D C6 30 CD 09 06 D1 C1 C9 3E ......}.0......>
0032A0: FF 3C 09 38 FC ED 42 B2 C8 16 30 B2 18 1B C5 06 .<.8..B...0.....
0032B0: 06 7E 23 FE 20 C4 09 06 10 F7 C1 C9 3A 68 BE B7 .~#. .......:h..
0032C0: C8 79 C6 41 CD 09 06 3E 3A C5 D5 E5 4F 2A 7B BE .y.A...>:...O*{.
0032D0: CD 1E 00 E1 D1 C1 C9 3E FF 32 7D BE 01 FF 80 21 .......>.2}....!
0032E0: 81 BE 11 F2 06 CD EF BC 21 7F BE C3 DA BC CD 91 ........!.......
0032F0: 06 20 0B C5 3E 10 CD 72 05 C1 78 C3 72 05 AF 32 . ..>..r..x.r..2
003300: 8B BE CD 96 06 CD 91 06 0E 07 CA 03 3D AF 32 8A ............=.2.
003310: BE CD FD 07 3E FF 32 8A BE C9 CD 91 06 3E 10 CA ....>.2......>..
003320: 72 05 AF 32 8A BE CD E9 06 CD 91 06 C8 3A 68 BE r..2.........:h.
003330: B7 20 10 3A 7E BE 4F 06 11 3A E3 BE D6 10 CD 96 . .:~.O..:......
003340: 06 18 66 CD 91 06 C8 CD CF 06 18 5D 79 32 7E BE ..f........]y2~.
003350: C9 3A 7D BE B7 C9 F5 78 21 8C BE 06 05 36 20 23 .:}....x!....6 #
003360: 10 FB 22 DC BE 21 C4 06 CD 75 05 CD CF 06 F1 32 .."..!...u.....2
003370: DE BE 21 8C BE 22 DC BE 7E FE FF C4 34 07 D0 CD ..!.."..~...4...
003380: 16 07 18 F4 2A DC BE 71 23 36 FF 22 DC BE C9 CD ....*..q#6."....
003390: 4B 05 CD E1 08 CD 78 BB 22 88 BE 2A E2 BE 2C 26 K.....x."..*..,&
0033A0: 01 CD 75 BB 3E 12 C3 5A BB 2A 88 BE CD 75 BB C3 ..u.>..Z.*...u..
0033B0: 44 05 3A 8A BE B7 C8 CD 34 07 DC 16 07 38 F8 D5 D.:.....4....8..
0033C0: 0E 4F 6B 11 01 00 62 CD B5 09 D1 CD 14 0A 05 21 .Ok...b........!
0033D0: 8B BE 34 7E A0 C0 2A DC BE 7E FE FF 20 04 21 8C ..4~..*..~.. .!.
0033E0: BE 7E 23 22 DC BE 4F EB 24 2C CD 75 BB EB 79 CD .~#"..O.$,.u..y.
0033F0: 5A BB 37 C9 ED 5B E2 BE 3A DE BE 14 BA 15 D0 57 Z.7..[..:......W
003400: 00 55 50 43 41 53 45 20 20 50 41 53 00 00 00 08 .UPCASE PAS....
003410: 80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003420: 00 56 41 52 45 46 49 4C 20 50 41 53 00 00 00 58 .VAREFIL PAS...X
003430: 81 82 83 84 85 86 87 88 89 8A 8B 00 00 00 00 00 ................
003440: 00 56 41 52 45 50 4F 53 54 50 41 53 00 00 00 10 .VAREPOSTPAS....
003450: 8C 8D 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003460: 00 56 41 52 45 52 31 20 20 50 41 53 00 00 00 08 .VARER1 PAS....
003470: 8E 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003480: 00 56 41 52 45 52 32 20 20 50 41 53 00 00 00 08 .VARER2 PAS....
003490: 8F 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0034A0: 00 56 4F 4B 41 4C 45 52 20 50 41 53 00 00 00 18 .VOKALER PAS....
0034B0: 90 91 92 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0034C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0034D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0034E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0034F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003500: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003510: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003520: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003530: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003540: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003550: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003560: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003570: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003580: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003590: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0035A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0035B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0035C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0035D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0035E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0035F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003600: 3C 32 DE BE C9 ED 5B E0 BE 2A E5 BE C9 3E 40 CD <2....[..*...>@.
003610: 08 BC 3E 02 CD 0E BC CD 02 BC AF 32 EB BE 32 E9 ..>........2..2.
003620: BE 32 EA BE 3E 01 CD F6 08 3E 3F CD FE 08 AF 32 .2..>....>?....2
003630: DF BE 2F 32 E4 BE 21 00 00 22 E5 BE 22 E7 BE 18 ../2..!..".."...
003640: 26 AF 18 02 3E FF 32 DF BE 3E 02 FE 02 28 06 D0 &...>.2..>...(..
003650: 21 DF BE 36 00 CD 0E BC 18 0D AF 18 02 3E FF F5 !..6.........>..
003660: CD 83 06 F1 32 7D BE CD 17 BC ED 43 E2 BE 3A DF ....2}.....C..:.
003670: BE B7 21 4F 17 20 0C 2A E2 BE 7C 65 6F CD 91 06 ..!O. .*..|eo...
003680: 28 01 25 22 E0 BE 2A E5 BE CD 4D 08 C3 69 06 E5 (.%"..*...M..i..
003690: CD D8 08 79 CD 5D BB E1 2C 22 E5 BE ED 5B E0 BE ...y.]..,"...[..
0036A0: 7B BD D0 2D 3A E4 BE B7 28 10 2E 00 24 7A BC 30 {..-:...(...$z.0
0036B0: 09 25 E5 CD E1 08 CD 5F 09 E1 C3 4D 08 3E 07 C3 .%....._...M.>..
0036C0: 5A BB 3E FF 18 01 AF 32 E4 BE C9 25 F8 18 4C 2D Z.>....2...%..L-
0036D0: F8 18 48 24 18 37 2C 18 34 25 F2 5B 08 CD 57 09 ..H$.7,.4%.[..W.
0036E0: 18 3C 2D F2 5B 08 2C 3A E4 BE B7 C8 7C 3D F8 2A .<-.[.,:....|=.*
0036F0: E0 BE 67 18 26 2E 00 18 22 24 3A E1 BE BC 30 1B ..g.&..."$:...0.
003700: CD 5F 09 18 19 21 00 00 18 11 2A E7 BE ED 5B E0 ._...!....*...[.
003710: BE 7B BD 30 01 6B 7A BC 30 01 62 22 E5 BE 2A E5 .{.0.kz.0.b"..*.
003720: BE 7C 65 6F 2C 24 C3 75 BB 22 E7 BE C9 3E 13 C3 .|eo,$.u."...>..
003730: 5A BB CD 6C BB CD 69 06 C3 5E 08 E5 CD 99 BB CD Z..l..i..^......
003740: 2C BC 47 7C 2A E0 BE 55 5C 26 00 6F 2C BB 78 DC ,.G|*..U\&.o,.x.
003750: 44 BC E1 3E 12 18 05 CD 93 08 3E 11 C3 5A BB 06 D..>......>..Z..
003760: 00 18 02 06 FF 3A E1 BE BC 28 EC 5F 3A E0 BE 57 .....:...(._:..W
003770: 6C 26 00 CD 99 BB CD 2C BC C3 50 BC 7D 6C 67 3A l&.....,..P.}lg:
003780: E0 BE F5 E5 94 C4 A7 09 E1 F1 67 2C 24 CD 75 BB ..........g,$.u.
003790: 3E 10 CD 5A BB C3 5E 08 3A E9 BE B7 C8 3E FF 18 >..Z..^.:....>..
0037A0: 01 AF 21 EA BE BE C8 77 C3 9C BB C9 C9 3E FF 18 ..!....w.....>..
0037B0: 01 AF 32 E9 BE C9 1E 00 CD 00 09 C3 38 BC 1E 01 ..2.........8...
0037C0: 4F 47 CD 20 09 C5 7B CD 32 BC C1 C9 E6 0F 3D 28 OG. ..{.2.....=(
0037D0: ED 3C 28 E2 CD 20 09 C3 32 BC CD 20 09 C3 38 BC .<(.. ..2.. ..8.
0037E0: F5 D5 78 CD 2F 09 47 79 CD 2F 09 4F D1 F1 C9 C5 ..x./.Gy./.O....
0037F0: 07 07 01 00 03 18 05 4F 87 81 4F 7A 07 07 57 E6 .......O..Oz..W.
003800: 31 00 C0 CD D5 0C CD 19 BD 3E 10 3D F5 01 01 01 1........>.=....
003810: CD 32 BC F1 20 F5 CD 19 BD 21 80 5F 11 00 C0 01 .2.. ....!._....
003820: 80 0C ED B0 01 C1 7F ED 49 11 00 C0 D5 21 36 0C ........I....!6.
003830: 01 9F 00 ED B0 C9 21 40 0D 11 80 00 01 80 0E ED ......!@........
003840: B0 21 C0 1B 11 A0 FF 01 40 00 ED B0 21 00 1C 11 .!......@...!...
003850: 00 88 01 00 02 ED B0 11 00 00 21 00 80 CD AB BB ..........!.....
003860: 21 00 1E 11 00 80 01 00 08 ED B0 21 00 29 11 00 !..........!.)..
003870: FC 3E 05 CD 95 C0 21 00 2F 11 00 F6 3E 0C CD 95 .>....!./...>...
003880: C0 21 7F 5F 11 FF 7F 01 00 31 ED B8 21 80 52 11 .!._.....1..!.R.
003890: 00 3D 3E 06 CD 95 C0 21 80 80 11 00 0F 3E 5C CD .=>....!.....>\.
0038A0: 95 C0 AF 21 D0 B0 11 D1 B0 01 2F 00 77 ED B0 21 ...!....../.w..!
0038B0: 40 BE 11 41 BE 01 BF 01 77 ED B0 21 58 FE 11 59 @..A....w..!X..Y
0038C0: FE 01 47 01 77 ED B0 F3 C3 00 FC 25 01 80 00 ED ..G.w......%....
0038D0: B0 3D 20 F7 C9 0E FF CD 15 B9 11 FF FD 19 7C B5 .= ...........|.
0038E0: C9 21 F6 0C 7E 23 FE FF C4 5A BB 20 F7 CD 09 BB .!..~#...Z. ....
0038F0: 38 FB CD 06 BB C7 0D 0A 54 68 69 73 20 70 72 6F 8.......This pro
003900: 67 72 61 6D 20 77 69 6C 6C 20 6E 6F 74 20 72 75 gram will not ru
003910: 6E 20 69 6E 20 74 68 69 73 0D 0A 65 6E 76 69 72 n in this..envir
003920: 6F 6E 6D 65 6E 74 2E 20 20 50 72 65 73 73 20 61 onment. Press a
003930: 6E 79 20 6B 65 79 20 FF FF FF FF FF FF FF FF FF ny key .........
003940: C3 D7 0A C3 E7 0A C3 A3 0B C3 B1 0B C3 B6 0B C3 .......£........
003950: C4 0B C3 3F 0C C3 5A 0C C3 C6 0D C3 D2 0B C3 7F ...?..Z.........
003960: 0C C3 7F 0C C3 6D 0E C3 8F 0E C3 B0 0E C3 09 0E .....m..........
003970: C3 12 0E C3 DA 0C C3 AE 02 C3 A0 03 C3 1A 03 C3 ................
003980: 45 07 C3 09 04 C3 91 06 C3 9F 07 C3 0C 09 C3 1A E...............
003990: 09 C3 4B 09 C3 0F BB C3 90 02 C3 A6 02 C3 AD 02 ..K.............
0039A0: C3 A3 02 C3 70 01 C3 63 01 C3 04 01 C3 19 02 C3 .£..p..c........
0039B0: 00 02 C3 2F 02 C3 0C 02 C3 9A 03 C3 42 02 C3 67 .../........B..g
0039C0: 02 C3 72 05 E5 D5 11 4F BE D5 21 5E 01 01 05 00 ..r....O..!^....
0039D0: ED B0 0E 03 21 F4 BD ED B0 E1 22 F5 BD FB D1 01 ....!.....".....
0039E0: FF 80 21 48 BE CD EF BC 01 32 00 50 59 21 42 BE ..!H.....2.PY!B.
0039F0: CD E9 BC 3E FF 11 00 00 21 08 08 CD AE 02 9F 32 ...>....!......2
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: 03 FE 02 38 01 3D 81 10 EE C1 C9 C3 3E BC CD 99 ...8.=......>...
003B10: BB CD 2C BC C3 4D BC 06 00 CD 4E 09 C3 69 06 3A ..,..M....N..i.:
003B20: E1 BE FE 18 06 FF 28 E6 CD 99 BB CD 2C BC 4F 21 ......(.....,.O!
003B30: 18 00 E5 CD 1A BC E3 2C CD 1A BC E5 21 01 00 CD .......,....!...
003B40: 1A BC CD 19 BD CD 05 BC D1 E1 06 08 C5 D5 E5 06 ................
003B50: 50 7E 12 71 1C CC FB 09 2C CC 03 0A 10 F3 E1 D1 P~.q....,.......
003B60: CD 0B 0A C1 10 E6 C9 4F CD 14 0A AF 57 58 81 10 .......O....WX..
003B70: FD 4F CD 19 BD CD 1A BC EB 7A 19 AC E6 F8 AC 67 .O.......z.....g
003B80: 06 08 C5 D5 E5 CD D3 09 AF 12 E1 D1 CD 0B 0A C1 ................
003B90: 10 F0 C9 06 00 7D BB 30 01 7B 2F B7 28 0C B9 30 .....}.0.{/.(..0
003BA0: 17 C5 4F ED B0 C1 2F 3C 81 4F 7E 12 1C CC FB 09 ..O.../<.O~.....
003BB0: 2C CC 03 0A 0D 20 DE C9 ED B0 C9 7A 3C AA E6 07 ,.... .....z<...
003BC0: AA 57 C9 7C 3C AC E6 07 AC 67 C9 7A C6 08 57 7C .W.|<....g.z..W|
003BD0: C6 08 67 C9 CD 11 BC 06 04 D8 06 02 C8 06 01 C9 ..g.............
003BE0: F5 3A EB BE CD 2B 0A F1 32 EB BE 6F 87 87 85 87 .:...+..2..o....
003BF0: 85 6F 26 00 11 62 0A 19 06 0B C5 D5 E5 CD 57 0A .o&..b........W.
003C00: EB CD 57 0A 06 08 4E 1A 77 79 12 13 23 10 F7 E1 ..W...N.wy..#...
003C10: D1 C1 13 23 10 E4 C9 6E 26 00 29 29 29 01 00 80 ...#...n&.)))...
003C20: 09 C9 23 40 5B 5C 5D 5E 60 7B 7C 7D 7E 23 EA A2 ..#@[\]^`{|}~#..
003C30: F5 A6 5E 60 E1 EE EB B2 23 A6 D0 D3 D4 5E 60 F0 ..^`....#....^`.
003C40: F3 F4 BA A3 40 5B 5C 5D 5E 60 7B 7C 7D 7E 23 40 ...£@[\]^`{|}~#@
003C50: D6 D8 D7 5E 60 F6 F8 F7 7E 23 C1 D0 D3 D7 D4 E1 ...^`...~#......
003C60: F0 F3 F7 F4 23 40 A2 5C E1 5E EE EA ED EB EC AD ....#@.\.^......
003C70: 40 AF D9 AE 5E 60 B2 F9 7D 7E FF FF FF FF FF FF @...^`..}~......
003C80: FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF ................
003C90: 0A 32 AF 1E 0C 0F 03 21 D0 B0 06 30 36 00 23 10 .2.....!...06.#.
003CA0: FB CD B5 0E 21 D0 0A 11 ED B0 01 05 00 ED B0 3A ....!..........:
003CB0: F1 B0 3D 07 07 07 2F E6 F0 B6 23 66 6F 3E 03 CD ..=.../...#fo>..
003CC0: 56 0E 7D CD 56 0E 7C C3 56 0E DD 7E 19 E6 40 F6 V.}.V.|.V..~..@.
003CD0: 0D CD 6F 0B DD 6E 0F DD 66 13 22 E6 B0 63 DD 6E ..o..n..f."..c.n
003CE0: 18 22 E8 B0 3E 06 32 E3 B0 C9 DD 7E 19 F6 06 18 ."..>.2....~....
003CF0: 07 DD 7E 19 E6 C0 F6 05 CD 49 0B 36 FF C9 DD 7E ..~......I.6...~
003D00: 7C C6 DE DE DE C0 7C 00 18 3C 66 66 7E 66 66 00 |.....|..<ff~ff.
003D10: FC 66 66 7C 66 66 FC 00 3C 66 C0 C0 C0 66 3C 00 .ff|ff..<f...f<.
003D20: F8 6C 66 66 66 6C F8 00 FE 62 68 78 68 62 FE 00 .lfffl...bhxhb..
003D30: FE 62 68 78 68 60 F0 00 3C 66 C0 C0 CE 66 3E 00 .bhxh`..<f...f>.
003D40: 66 66 66 7E 66 66 66 00 7E 18 18 18 18 18 7E 00 fff~fff.~.....~.
003D50: 1E 0C 0C 0C CC CC 78 00 E6 66 6C 78 6C 66 E6 00 ......x..flxlf..
003D60: F0 60 60 60 62 66 FE 00 C6 EE FE FE D6 C6 C6 00 .```bf..........
003D70: C6 E6 F6 DE CE C6 C6 00 7C C6 C6 C6 C6 C6 7C 00 ........|.....|.
003D80: FC 66 66 7C 60 60 F0 00 7C C6 C6 C6 DA CC 76 00 .ff|``..|.....v.
003D90: FC 66 66 7C 6C 66 E6 00 3C 66 60 3C 06 66 3C 00 .ff|lf..<f`<.f<.
003DA0: 7E 5A 18 18 18 18 3C 00 66 66 66 66 66 66 3C 00 ~Z....<.ffffff<.
003DB0: 66 66 66 66 66 3C 18 00 C6 C6 C6 D6 FE EE C6 00 fffff<..........
003DC0: C6 6C 38 38 6C C6 C6 00 66 66 66 3C 18 18 3C 00 .l88l...fff<..<.
003DD0: FE C6 8C 18 32 66 FE 00 3C 30 30 30 30 30 3C 00 ....2f..<00000<.
003DE0: C0 60 30 18 0C 06 02 00 3C 0C 0C 0C 0C 0C 3C 00 .`0.....<.....<.
003DF0: 18 3C 7E 18 18 18 18 00 00 00 00 00 00 00 00 FF .<~.............
003E00: 30 18 0C 00 00 00 00 00 00 00 78 0C 7C CC 76 00 0.........x.|.v.
003E10: E0 60 7C 66 66 66 DC 00 00 00 3C 66 60 66 3C 00 .`|fff....<f`f<.
003E20: 1C 0C 7C CC CC CC 76 00 00 00 3C 66 7E 60 3C 00 ..|...v...<f~`<.
003E30: 1C 36 30 78 30 30 78 00 00 00 3E 66 66 3E 06 7C .60x00x...>ff>.|
003E40: E0 60 7C 66 66 66 E6 00 18 00 38 18 18 18 3C 00 .`|fff....8...<.
003E50: 06 00 0E 06 06 66 66 3C E0 60 66 6C 78 6C E6 00 .....ff<.`flxl..
003E60: 38 18 18 18 18 18 3C 00 00 00 6C FE D6 D6 C6 00 8.....<...l.....
003E70: 00 00 DC 66 66 66 66 00 00 00 3C 66 66 66 3C 00 ...ffff...<fff<.
003E80: 00 00 DC 66 66 7C 60 F0 00 00 76 CC CC 7C 0C 1E ...ff|`...v..|..
003E90: 00 00 DC 76 60 60 F0 00 00 00 3C 60 3C 06 7C 00 ...v``....<`<.|.
003EA0: 30 30 7C 30 30 36 1C 00 00 00 66 66 66 66 3E 00 00|006....ffff>.
003EB0: 00 00 66 66 66 3C 18 00 00 00 C6 D6 D6 FE 6C 00 ..fff<........l.
003EC0: 00 00 C6 6C 38 6C C6 00 00 00 66 66 66 3E 06 7C ...l8l....fff>.|
003ED0: 00 00 7E 4C 18 32 7E 00 0E 18 18 70 18 18 0E 00 ..~L.2~....p....
003EE0: 18 18 18 18 18 18 18 00 70 18 18 0E 18 18 70 00 ........p.....p.
003EF0: 76 DC 00 00 00 00 00 00 38 6C C6 C6 C6 6C 38 00 v.......8l...l8.
003F00: 19 F6 11 CD 49 0B 36 01 C9 CD 6F 0B 7B DD 86 14 ....I.6...o.{...
003F10: 5F 32 E8 B0 DD 6E 0F 67 22 E9 B0 DD 7E 17 32 EB _2...n.g"...~.2.
003F20: B0 60 6A 22 E6 B0 3E 09 32 E3 B0 21 EC B0 C9 22 .`j"..>.2..!..."
003F30: DF B0 6F 78 32 DE B0 CD 7F 0B 61 22 E4 B0 C9 DD ..ox2.....a"....
003F40: 7E 11 06 00 B7 C8 3D 20 08 7A 1F 57 78 17 47 18 ~.....= .z.Wx.G.
003F50: 0C 7A DD 96 12 38 06 DD 96 12 2F 57 04 78 87 87 .z...8..../W.x..
003F60: B1 4F C9 CD 2A 0B 21 AB 0B 18 40 21 DE B0 C3 09 .O..*.!...@!....
003F70: 0E CD 31 0B 18 11 CD 3E 0B CD C7 0B D0 3A E3 FF ..1....>.....:..
003F80: FE 08 37 C9 CD 0A 0B 21 CC 0B 18 1F 21 DE B0 C3 ..7....!....!...
003F90: 12 0E CD DD 0B 21 E0 FF D0 3A E6 FF C9 CD 7F 0B .....!...:......
003FA0: 21 E5 0B 18 06 DD 7E 19 C3 43 0E CD 6D 0E FD E5 !.....~..C..m...
003FB0: CD FB 0B CD 83 0C FD E1 C3 8F 0E C5 79 E6 03 87 ............y...
003FC0: 4F 06 00 FD 21 F2 B0 FD 09 C1 C9 24 00 03 07 00 O...!......$....
003FD0: AA 00 3F 00 C0 00 10 00 02 00 02 03 00 28 09 41 ..?..........(.A
003FE0: 00 02 2A 52 60 24 00 03 07 00 B3 00 3F 00 C0 00 ..*R`$......?...
003FF0: 10 00 00 00 02 03 00 28 09 C1 00 02 2A 52 60 3E .......(....*R`>
004000: 01 CD 5A 0C 16 00 C5 CD D2 0B C1 D0 E6 C0 1E 01 ..Z.............
004010: FE 40 28 05 1C FE C0 20 26 7B 21 0B 0C 11 2C 00 .@(.... &{!...,.
004020: FE 01 28 0A 21 25 0C 11 2E 00 FE 02 20 11 D5 C5 ..(.!%...... ...
004030: DD E5 D1 01 1A 00 ED B0 C1 D1 21 00 01 37 C9 3E ..........!..7.>
004040: 06 B7 C9 06 0F C5 CD B0 0C C1 C8 FE 04 20 1D E5 ............. ..
004050: D5 C5 DD 7E 19 CD 43 0E CD 7F 0D C1 D1 E1 20 0C ...~..C....... .
004060: D0 3A E6 FF DD AE 14 E6 C0 3E 08 C0 10 D7 B7 C9 .:.......>......
004070: 78 E6 07 28 0A FE 04 20 10 FD 36 00 00 18 0A D5 x..(... ..6.....
004080: DD 56 12 15 CD DD 0C D1 D0 CD DD 0C D0 E5 D5 C5 .V..............
004090: CD 1E 00 C1 D1 CD 7F 0D E1 C9 CD FB 0B 06 0A FD ................
0040A0: 7E 00 B7 20 19 E5 C5 CB A1 DD 46 12 CD 23 0D CD ~.. ......F..#..
0040B0: 5A 0D C1 E1 30 21 FD 36 01 00 FD 36 00 FF FD 7E Z...0!.6...6...~
0040C0: 01 BA 37 C8 E5 C5 FD 46 01 CD 2C 0D CD 5A 0D C1 ..7....F..,..Z..
0040D0: E1 30 04 FD 72 01 C9 FD 36 00 00 C8 CD AC 0D 10 .0..r...6.......
0040E0: BE BF C9 05 3E 07 CD 56 0E 79 18 11 7A 90 30 02 ....>..V.y..z.0.
0040F0: 2F 3C 47 3E 0F CD 56 0E 79 CD 56 0E 7A CD 56 0E /<G>..V.y.V.z.V.
004100: 00 00 3C 3C 3C 3C 00 00 18 18 FF 00 00 FF 00 00 ..<<<<..........
004110: 24 24 24 27 27 24 24 24 24 24 27 20 20 3F 00 00 $$$''$$$$$' ?..
004120: 00 00 FF 00 00 FF 18 18 24 24 24 24 24 24 24 24 ........$$$$$$$$
004130: 00 00 3F 20 20 27 24 24 24 24 27 20 20 27 24 24 ..? '$$$$' '$$
004140: 24 24 24 E4 E4 24 24 24 24 24 E4 04 04 FC 00 00 $$$..$$$$$......
004150: 00 00 FF 00 00 FF 00 00 24 24 E7 00 00 FF 00 00 ........$$......
004160: 00 00 FC 04 04 E4 24 24 24 24 E4 04 04 E4 24 24 ......$$$$....$$
004170: 00 00 FF 00 00 E7 24 24 24 24 E7 00 00 E7 24 24 ......$$$$....$$
004180: 00 00 00 18 18 00 00 00 18 18 18 18 18 00 00 00 ................
004190: 00 00 00 1F 1F 00 00 00 18 18 18 1F 0F 00 00 00 ................
0041A0: 00 00 00 18 18 18 18 18 18 18 18 18 18 18 18 18 ................
0041B0: 00 00 00 0F 1F 18 18 18 18 18 18 1F 1F 18 18 18 ................
0041C0: 00 00 00 F8 F8 00 00 00 18 18 18 F8 F0 00 00 00 ................
0041D0: 00 00 00 FF FF 00 00 00 18 18 18 FF FF 00 00 00 ................
0041E0: 00 00 00 F0 F8 18 18 18 18 18 18 F8 F8 18 18 18 ................
0041F0: 00 00 00 FF FF 18 18 18 18 18 18 FF FF 18 18 18 ................
004200: 78 0C 7C CC 76 00 FE 00 3C 66 66 66 3C 00 7E 00 x.|.v...<fff<.~.
004210: 38 44 38 00 00 00 00 00 3C 66 60 F8 60 66 FE 00 8D8.....<f`.`f..
004220: 38 44 BA A2 BA 44 38 00 7E F4 F4 74 34 34 34 00 8D...D8.~..t444.
004230: 1E 30 38 6C 38 18 F0 00 18 18 7E 18 18 18 18 00 .08l8.....~.....
004240: 40 C0 44 4C 54 1E 04 00 40 C0 4C 52 44 08 1E 00 @.DLT...@.LRD...
004250: E0 10 62 16 EA 0F 02 00 00 33 66 CC 66 33 00 00 ..b......3f.f3..
004260: 00 CC 66 33 66 CC 00 00 E0 90 94 EE 84 84 83 00 ..f3f...........
004270: 18 00 18 30 66 66 3C 00 18 00 18 18 18 18 18 00 ...0ff<.........
004280: 1C 36 30 FC 30 30 E0 00 00 18 3C 66 60 66 3C 18 .60.00....<f`f<.
004290: 00 66 00 00 00 00 00 00 0C 18 30 00 00 00 00 00 .f........0.....
0042A0: 10 38 6C C6 00 00 00 00 00 C6 CC 18 20 5B DB 00 .8l......... [..
0042B0: 40 C0 46 49 46 09 06 00 E0 10 66 19 E6 09 06 00 @.FIF.....f.....
0042C0: F0 80 E6 19 E6 09 06 00 F0 10 26 49 86 09 06 00 ..........&I....
0042D0: 38 C6 C6 F8 C6 C6 F8 00 00 38 6C C6 C6 6C 38 00 8........8l..l8.
0042E0: 00 38 7C FE FE 7C 38 00 66 66 3C 18 7E 18 3C 00 .8|..|8.ff<.~.<.
0042F0: 3C 42 B9 A5 B9 A9 66 3C FB 55 51 51 00 00 00 00 <B....f<.UQQ....
004300: 3A F1 B0 CD 51 0D 10 F8 3A F0 B0 CD 51 0D C3 DD :...Q...:...Q...
004310: 0D 2E F8 2D 20 FD 3D 20 F8 C9 79 F6 20 23 BE 37 ...- .= ..y. #.7
004320: C8 7E E6 C0 EE 80 28 14 7E E6 07 B9 28 05 CD DD .~....(.~...(...
004330: 0D 18 E7 7E E6 08 28 04 3E 00 BF C9 F6 02 C9 23 ...~..(.>......#
004340: 7E B9 37 C8 E6 08 EE 08 3E 00 C8 23 7E FE 80 37 ~.7.....>..#~..7
004350: C8 EE 02 3E 01 C8 7E E6 20 3E 03 C0 7E E6 04 3E ...>..~. >..~..>
004360: 04 C0 7E E6 01 3E 05 C0 3E 07 B7 C9 E5 F5 CD DD ..~..>..>.......
004370: 0D E6 C0 FE 80 20 F7 F1 E1 C9 C5 0E 01 CD C6 0D ..... ..........
004380: C1 E6 60 C8 37 C9 CD 6D 0E CD AC 0D CD D2 0D C3 ..`.7..m........
004390: 8F 0E 3E 04 CD 56 0E 79 CD 56 0E 18 05 3E 08 CD ..>..V.y.V...>..
0043A0: 56 0E D5 C5 01 7E FB 16 00 21 E1 FF E5 ED 78 87 V....~...!....x.
0043B0: 30 FB F2 02 0E 03 ED 78 0B 77 23 14 E3 E3 E3 E3 0......x.w#.....
0043C0: 18 EB E1 7E 2B 72 C1 D1 C9 CD 24 0E CD A0 FF C3 ...~+r....$.....
0043D0: E2 0D CD 24 0E CD BA FF 3A EF B0 3D 03 03 03 20 ...$....:..=...
0043E0: FA C3 E2 0D CD AC 0D 7E 3C F6 C0 4F 23 5E 23 56 .......~<..O#^#V
0043F0: 23 23 23 46 23 05 7E 23 CD 56 0E 10 F9 7E EB 06 ###F#.~#.V...~..
004400: 7F F3 C9 F5 CD AC 0D F1 E6 40 F6 0A CD 56 0E 79 .........@...V.y
004410: CD 56 0E C3 E2 0D D5 C5 57 01 7E FB ED 78 87 30 .V......W.~..x.0
004420: FB 87 38 06 03 ED 51 0B E3 E3 C1 D1 C9 E5 D5 C5 ..8...Q.........
004430: F5 CD DC 0E 3A DD B0 B7 20 13 01 7E FA 3E 01 ED ....:... ..~.>..
004440: 79 2A ED B0 CD CB 0E 3A DD B0 B7 28 FA 18 13 E5 y*.....:...(....
004450: D5 C5 F5 CD DC 0E 3A DD B0 B7 28 06 2A EE B0 CD ......:...(.*...
004460: CB 0E F1 C1 D1 E1 C9 21 DD B0 7E 2F 77 B7 20 2C .......!..~/w. ,
004470: CD DC 0E 18 0C 01 FF 80 21 D6 B0 11 A7 0E CD EF ........!.......
004480: BC 01 7E FA AF ED 79 32 DD B0 C9 26 00 54 5D 29 ..~...y2...&.T])
004490: 29 19 EB 21 D0 B0 01 00 00 C3 E9 BC 21 D0 B0 C3 )..!........!...
0044A0: EC BC FF FF FF FF FF FF FF FF FF FF FF FF FF FF ................
0044B0: FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF ................
0044C0: CD 56 0E ED 49 01 7E FB 18 05 0C ED A2 04 0D ED .V..I.~.........
0044D0: 78 F2 AF FF E6 20 20 F2 18 18 CD 56 0E ED 49 01 x.... ....V..I.
0044E0: 7E FB 18 05 0C 04 ED A3 0D ED 78 F2 C9 FF E6 20 ~......£..x....
0044F0: 20 F2 01 C1 7F ED 49 CD 2A B9 FB C9 FF FF FF FF .....I.*.......
004500: 0C 30 18 3C 66 7E 66 00 0C 30 7E 60 7C 60 7E 00 .0.<f~f..0~`|`~.
004510: 0C 30 7E 18 18 18 7E 00 0C 30 3C 66 66 66 3C 00 .0~...~..0<fff<.
004520: 0C 30 66 66 66 66 3C 00 18 66 18 3C 66 7E 66 00 .0ffff<..f.<f~f.
004530: 18 66 7E 60 7C 60 7E 00 18 66 7E 18 18 18 7E 00 .f~`|`~..f~...~.
004540: 18 66 3C 66 66 66 3C 00 18 66 66 66 66 66 3C 00 .f<fff<..fffff<.
004550: 30 0C 18 3C 66 7E 66 00 30 0C 7E 60 7C 60 7E 00 0..<f~f.0.~`|`~.
004560: 30 0C 7E 18 18 18 7E 00 30 0C 3C 66 66 66 3C 00 0.~...~.0.<fff<.
004570: 30 0C 66 66 66 66 3C 00 66 00 66 3C 18 18 18 00 0.ffff<.f.f<....
004580: 66 00 18 3C 66 7E 66 00 66 00 7E 60 7C 60 7E 00 f..<f~f.f.~`|`~.
004590: 66 00 7E 18 18 18 7E 00 66 00 3C 66 66 66 3C 00 f.~...~.f.<fff<.
0045A0: 66 00 66 66 66 66 3C 00 3C 66 C0 C0 66 3C 00 18 f.ffff<.<f..f<..
0045B0: 3E 78 D8 FE D8 D8 DE 00 18 00 18 3C 66 7E 66 00 >x.........<f~f.
0045C0: 7A CC CE D6 E6 66 BC 00 32 4C 00 66 76 6E 66 00 z....f..2L.fvnf.
0045D0: 32 4C 00 3C 66 7E 66 00 32 4C 3C 66 66 66 3C 00 2L.<f~f.2L<fff<.
0045E0: C0 30 0C 30 CC 30 C0 00 06 18 60 18 66 18 06 00 .0.0.0....`.f...
0045F0: 06 0C 7E 18 7E 30 60 00 00 00 32 4C 00 7E 00 00 ..~.~0`...2L.~..
004600: 0C 30 78 0C 7C CC 76 00 0C 30 3C 66 7E 60 3C 00 .0x.|.v..0<f~`<.
004610: 0C 30 00 38 18 18 3C 00 0C 30 00 3C 66 66 3C 00 .0.8..<..0.<ff<.
004620: 0C 30 00 66 66 66 3E 00 18 66 78 0C 7C CC 76 00 .0.fff>..fx.|.v.
004630: 18 66 3C 66 7E 60 3C 00 18 66 00 38 18 18 3C 00 .f<f~`<..f.8..<.
004640: 18 66 00 3C 66 66 3C 00 18 66 00 66 66 66 3C 00 .f.<ff<..f.fff<.
004650: 30 0C 78 0C 7C CC 76 00 30 0C 3C 66 7E 60 3C 00 0.x.|.v.0.<f~`<.
004660: 30 0C 00 38 18 18 3C 00 30 0C 00 3C 66 66 3C 00 0..8..<.0..<ff<.
004670: 30 0C 00 66 66 66 3C 00 66 00 66 66 66 3E 06 7C 0..fff<.f.fff>.|
004680: 66 00 78 0C 7C CC 76 00 66 00 3C 66 7E 60 3C 00 f.x.|.v.f.<f~`<.
004690: 66 00 38 18 18 18 3C 00 66 00 00 3C 66 66 3C 00 f.8...<.f..<ff<.
0046A0: 66 00 00 66 66 66 3E 00 00 00 3C 60 60 3C 00 18 f..fff>...<``<..
0046B0: 00 00 6C 1A 7E D8 6E 00 18 00 78 0C 7C CC 76 00 ..l.~.n...x.|.v.
0046C0: 00 00 7A CC D6 66 BC 00 32 4C 00 DC 66 66 66 00 ..z..f..2L..fff.
0046D0: 32 4C 78 0C 7C CC 76 00 32 4C 00 3C 66 66 3C 00 2Lx.|.v.2L.<ff<.
0046E0: 08 0C FE 07 FE 0C 08 00 10 30 7F E0 7F 30 10 00 .........0...0..
0046F0: 00 24 7E C3 7E 24 00 00 00 7E 00 7E 00 7E 00 00 .$~.~$...~.~.~..
004700: FE 92 20 6E 6F 74 20 72 65 61 64 79 9B FF FE 9D .. not ready....
004710: 20 99 20 77 72 69 74 98 70 72 6F 74 65 63 74 65 . writ.protecte
004720: 64 9B FF 93 20 73 65 65 6B 20 66 61 69 6C 9B FF d... seek fail..
004730: 9C 9A 9E 9B FF 9C 6E 6F 20 9A 9B FF 9C 6D 99 73 ......no ....m.s
004740: 69 6E 67 20 61 64 64 96 6D 61 72 6B 9B FF FE 20 ing add.mark...
004750: 62 61 64 20 66 94 6D 61 74 9B FF FE 20 75 6E 6B bad f.mat... unk
004760: 6E 6F 77 6E 9E 9B FF 0A 43 50 2F 4D 20 50 6C 75 nown....CP/M Plu
004770: 73 20 20 41 6D 73 74 72 61 64 20 43 6F 6E 73 75 s Amstrad Consu
004780: 6D 65 72 20 45 6C 65 63 74 72 6F 6E 69 63 73 20 mer Electronics
004790: 70 6C 63 8D 76 20 FB 2E FA 2C 20 36 31 4B 20 54 plc.v ..., 61K T
0047A0: 50 41 97 FF 31 9D 92 FF 32 9D 92 73 FF 97 31 20 PA..1...2..s..1
0047B0: 73 65 72 69 61 6C 20 70 6F 72 74 FF 97 F9 4B 92 serial port...K.
0047C0: 20 4D 3A FF 90 0A FF 50 6C 65 61 73 98 70 75 74 M:....Pleas.put
0047D0: 95 9D 20 66 94 20 FD 20 69 6E 74 6F 95 92 95 6E .. f. . into...n
0047E0: 20 70 96 61 6E 79 20 6B 65 79 FF F8 20 6E 6F 74 p.any key.. not
0047F0: 20 72 65 61 64 79 9B FF 0D 0A FF 44 72 69 76 98 ready.....Driv.
004800: 99 20 FD FF 20 64 72 69 76 65 FF FE 20 74 72 61 . .. drive.. tra
004810: 63 6B 20 FB FF 6F 72 FF 20 74 68 65 FF 72 65 73 ck ..or. the.res
004820: 73 20 FF 2C 20 FF 65 20 FF 69 73 FF 64 61 74 61 s ., .e .is.data
004830: FF 20 2D 20 52 65 74 72 79 97 49 67 6E 94 98 94 . - Retry.Ign...
004840: 20 43 61 6E 63 65 6C 3F FF 93 97 73 65 63 74 94 Cancel?...sect.
004850: 20 FA 20 FF 20 64 99 63 FF 20 65 72 72 94 FF FF . . d.c. err...
004860: FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF ................
004870: FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF ................
004880: FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF ................
004890: FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF ................
0048A0: FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF ................
0048B0: FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF ................
0048C0: FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF ................
0048D0: FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF ................
0048E0: FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF ................
0048F0: FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF ................
004900: 2A 3E 21 2F FE C9 CD 1C FD 56 3E CD 1C FD 97 3E *>!/.....V>....>
004910: CD 1C FD 9C 3E C9 43 52 54 20 20 20 03 00 4C 50 ....>.CRT ..LP
004920: 54 20 20 20 02 00 53 49 4F 20 20 20 0F 0E 00 94 T ..SIO ....
004930: 3F B7 3F 00 00 00 00 00 00 00 00 00 00 00 00 00 ?.?.............
004940: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004950: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004960: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004970: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004980: 32 AF FD 08 D9 ED 43 E1 FE E1 D1 C1 F1 08 D9 F1 2.....C.........
004990: ED 7B DB FE FB C9 F5 E5 D9 3E C1 ED 79 D9 2A DF .{.......>..y.*.
0049A0: FE CD AD FD 3A 58 FE CD 04 FD E1 F1 C9 E9 18 FE ....:X..........
0049B0: CD 1C FD 3F 3E 21 16 FE C9 2A C4 FB 18 08 2A C6 ...?>!...*....*.
0049C0: FB 18 03 2A C0 FB CD 1C FD 6C 3D 2A C4 FB 18 08 ...*.....l=*....
0049D0: 2A C6 FB 18 03 2A C0 FB CD 1C FD C8 3D 2A C2 FB *....*......=*..
0049E0: 18 0E 2A BE FB 7C EE 80 B5 20 05 3A F3 FF B7 C8 ..*..|... .:....
0049F0: CD 1C FD 19 3E 2A C2 FB 18 03 2A BE FB CD 1C FD ....>*....*.....
004A00: 32 59 FE AF C5 32 58 FE C6 C1 06 7F ED 79 C1 C9 2Y...2X......y..
004A10: 22 DD FE E1 E5 23 23 E3 E5 2A DD FE F3 08 D9 E3 "....##..*......
004A20: ED 73 DB FE 31 64 FF D5 C5 F5 5E 23 56 3A 58 FE .s..1d....^#V:X.
004A30: F5 CD 03 FD 3E E6 32 AF FD ED 4B E1 FE B7 CD 5D ....>.2...K....]
004A40: FD F3 08 D9 ED 43 E1 FE 3E B2 32 AF FD F1 CD 04 .....C..>.2.....
004A50: FD F1 C1 D1 ED 7B DB FE E1 08 D9 FB C9 D5 08 D9 .....{..........
004A60: FB C9 ED 73 DB FE 31 64 FF F5 D9 08 F5 C5 D5 E5 ...s..1d........
004A70: ED 4B E1 FE B7 D9 08 3E E6 32 AF FD FF F3 3E B2 .K.....>.2....>.
004A80: CD 04 FD 3E C3 21 AE FD 32 38 00 22 39 00 21 03 ...>.!..28."9.!.
004A90: FC 32 00 00 22 01 00 2A FE FB 32 05 00 22 06 00 .2.."..*..2.."..
004AA0: 2E 00 F9 FB 01 02 01 CD B6 FC 01 80 0C 11 00 40 ...............@
004AB0: 21 00 01 E5 18 0A ED 43 59 FE C9 EB ED B0 EB C9 !......CY.......
004AC0: 3A 59 FE 3C 28 F5 CD 1C FD CB FC EB C5 E3 7D 01 :Y.<(.........}.
004AD0: 80 00 B7 ED 42 30 04 4F 21 00 00 E3 3A 59 FE CD ....B0.O!...:Y..
004AE0: 04 FD D5 C5 11 5B FE ED B0 C1 D1 3A 5A FE CD 04 .....[.....:Z...
004AF0: FD E5 21 5B FE ED B0 E1 C1 78 B1 20 CF EB 3E FF ..![.....x. ..>.
004B00: 00 00 66 DB DB DB 66 00 3C 42 81 99 81 42 3C 00 ..f...f.<B...B<.
004B10: FE C6 C0 C0 C0 C0 C0 00 10 38 38 6C 6C C6 FE 00 .........88ll...
004B20: 3C 42 A5 99 A5 42 3C 00 00 00 00 24 18 24 00 00 <B...B<....$.$..
004B30: 00 00 18 00 7E 00 18 00 00 00 18 18 00 66 66 00 ....~........ff.
004B40: FE 6C 6C 6C 6C 6C 6C 00 18 18 18 18 7E 3C 18 00 .llllll.....~<..
004B50: FE C6 60 30 60 C6 FE 00 00 20 60 FE FE 60 20 00 ..`0`.... `..` .
004B60: 00 08 0C FE FE 0C 08 00 00 18 18 7E 18 18 7E 00 ...........~..~.
004B70: 00 24 66 FF FF 66 24 00 7C C6 C6 C6 C6 6C EE 00 .$f..f$.|....l..
004B80: 00 00 73 DE CC DE 73 00 7C C6 C6 FC C6 C6 F8 C0 ..s...s.|.......
004B90: 66 66 3C 66 66 66 3C 00 3C 60 3C 66 66 66 3C 00 ff<fff<.<`<fff<.
004BA0: 00 00 1E 30 7C 30 1E 00 38 6C C6 FE C6 6C 38 00 ...0|0..8l...l8.
004BB0: 00 C0 60 30 38 6C C6 00 00 00 66 66 66 7C 60 60 ..`08l....fff|``
004BC0: 00 00 FE 6C 6C 6C 6C 00 00 00 3C 66 66 7C 60 60 ...llll...<ff|``
004BD0: 00 00 7E D8 D8 D8 70 00 00 73 CE 18 18 18 0C 00 ..~...p..s......
004BE0: 03 06 3C 66 66 3C 60 C0 00 E6 3C 18 38 6C C7 00 ..<ff<`...<.8l..
004BF0: 03 06 66 66 66 3C 60 C0 00 00 66 C3 DB DB 7E 00 ..fff<`...f...~.
004C00: 00 00 00 00 00 00 00 00 18 18 18 18 18 00 18 00 ................
004C10: 6C 6C 6C 00 00 00 00 00 6C 6C FE 6C FE 6C 6C 00 lll.....ll.l.ll.
004C20: 18 3E 58 3C 1A 7C 18 00 00 C6 CC 18 30 66 C6 00 .>X<.|......0f..
004C30: 38 6C 38 76 DC CC 76 00 18 18 18 00 00 00 00 00 8l8v..v.........
004C40: 0C 18 30 30 30 18 0C 00 30 18 0C 0C 0C 18 30 00 ..000...0.....0.
004C50: 00 66 3C FF 3C 66 00 00 00 18 18 7E 18 18 00 00 .f<.<f.....~....
004C60: 00 00 00 00 00 18 18 30 00 00 00 7E 00 00 00 00 .......0...~....
004C70: 00 00 00 00 00 18 18 00 06 0C 18 30 60 C0 80 00 ...........0`...
004C80: 38 6C CE D6 E6 6C 38 00 18 38 18 18 18 18 7E 00 8l...l8..8....~.
004C90: 3C 66 06 3C 60 66 7E 00 3C 66 06 1C 06 66 3C 00 <f.<`f~.<f...f<.
004CA0: 1C 3C 6C CC FE 0C 1E 00 7E 62 60 7C 06 66 3C 00 .<l.....~b`|.f<.
004CB0: 3C 66 60 7C 66 66 3C 00 7E 66 06 0C 18 18 18 00 <f`|ff<.~f......
004CC0: 3C 66 66 3C 66 66 3C 00 3C 66 66 3E 06 66 3C 00 <ff<ff<.<ff>.f<.
004CD0: 00 00 18 18 00 18 18 00 00 00 18 18 00 18 18 30 ...............0
004CE0: 0C 18 30 60 30 18 0C 00 00 00 7E 00 7E 00 00 00 ..0`0.....~.~...
004CF0: 60 30 18 0C 18 30 60 00 3C 66 66 0C 18 00 18 00 `0...0`.<ff.....
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: C3 0C 3D C3 7A FC C3 E2 FD C3 FA FD C3 C3 FD C3 ..=.z...........
004E10: BE FD C3 B9 FD C3 F5 FD C3 74 3E C3 06 FE C3 77 .........t>....w
004E20: 3E C3 7C 3E C3 81 3E C3 0B FE C3 10 FE C3 D0 FD >.|>..>.........
004E30: C3 8C 3E C3 D5 FD C3 DD FD C3 CB FD C3 B5 FD C3 ..>.............
004E40: B0 FD C3 02 FE C3 B4 3E C3 B9 3E C3 C0 FC C3 15 .......>..>.....
004E50: FE C3 04 FD C3 88 3E C3 B6 FC C3 10 FD C3 00 00 ......>.........
004E60: C3 00 00 D9 ED 43 E1 FE D9 2A 39 00 22 DF FE 21 .....C...*9."..!
004E70: AE FD 22 39 00 3E B2 32 AF FD F3 31 64 FF 3E 01 .."9.>.2...1d.>.
004E80: C3 0F FC C3 83 F7 00 00 00 00 00 00 00 00 00 00 ................
004E90: 00 00 00 00 00 00 00 07 06 F6 00 00 00 00 00 00 ................
004EA0: 00 31 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .1..............
004EB0: 00 00 00 00 00 00 4E 00 17 00 00 00 00 00 00 00 ......N.........
004EC0: 00 00 00 00 00 00 00 00 00 00 00 FF 00 00 00 00 ................
004ED0: 00 6A FA 24 00 00 9C FB 80 00 00 00 00 00 00 00 .j.$............
004EE0: 00 00 00 00 00 00 01 00 00 FF FF FF 00 00 00 00 ................
004EF0: 00 00 00 80 12 07 00 00 00 00 C0 C3 7C 0F 06 F6 ............|...
004F00: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004F10: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004F20: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004F30: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004F40: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004F50: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004F60: 00 00 00 00 00 00 00 00 C3 03 FC C3 83 F7 C3 06 ................
004F70: FC C3 83 F7 C3 09 FC C3 83 F7 C3 0C FC C3 83 F7 ................
004F80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004F90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004FA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004FB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004FC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004FD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004FE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004FF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005000: DA 97 23 3E FF 32 23 3C C3 97 23 FE 03 C2 1F 1D ..#>.2#<..#.....
005010: 3A 23 3C 3C C2 1F 1D E1 C3 D6 38 AF 32 23 3C 2A :#<<......8.2#<*
005020: F0 37 C9 00 21 00 00 22 BA FB 22 B1 FB 2B 2B C9 .7..!..".."..++.
005030: 22 F4 37 D6 03 32 39 3C C9 00 CD 43 3C C3 13 34 ".7..29<...C<..4
005040: CD 77 22 2A 7B 37 7D A4 3C C8 5E 23 56 7A B3 C8 .w"*{7}.<.^#Vz..
005050: 21 AA 37 1A BE C2 63 3C 21 04 00 19 3E FF BE C2 !.7...c<!...>...
005060: 63 3C 12 21 0D 00 19 C3 4A 3C CD 77 22 2A 71 37 c<.!....J<.w"*q7
005070: 7E B7 C0 36 02 C9 CD 39 20 21 17 F6 C9 CD 90 2D ~..6...9 !.....-
005080: 3D C2 87 3B 2A 87 37 22 12 F6 3A 7F 37 2A 7D 37 =..;*.7"..:.7*}7
005090: CD 0F F6 C2 AE 3B 3A 14 F6 B7 0E 00 C4 3D 22 3A .....;:......=":
0050A0: DF FB D6 12 C8 3A 9C FB 3C CC 01 22 AF C9 CD F8 .....:..<.."....
0050B0: 21 C0 CD F5 20 C0 3E FF 32 9C FB 2A 69 37 5E 23 !... .>.2..*i7^#
0050C0: 56 EB 2B CD 0D 28 AF C9 CD 64 3B C8 21 B8 37 11 V.+..(...d;.!.7.
0050D0: 9D FB 01 04 00 E5 D5 C5 CD 4B FC 2A 7D 37 E5 CD .........K.*}7..
0050E0: 40 20 CD E0 3A 2A E1 FB 29 29 D1 19 C1 D1 D5 C5 @ ..:*..))......
0050F0: 3A 7F 37 CD 09 F6 C1 E1 D1 C3 4B FC 3A 8C 37 17 :.7.......K.:.7.
005100: DA 07 3B F1 29 8F F5 1A E6 7F D6 20 1F D2 11 3B ..;.)...... ...;
005110: 17 4F 06 00 F1 09 CE 00 C1 13 05 C2 F1 3A 22 9E .O...........:".
005120: FB 21 9D FB E6 03 0F 0F B6 77 E6 20 C2 5B 3B 1A .!.......w. .[;.
005130: E6 1F 4F 13 13 1A E6 3F 0F 0F 0F 57 E6 07 47 7A ..O....?...W..Gz
005140: E6 E0 B1 4F 3A 84 37 1F D2 56 3B F5 78 1F 47 79 ...O:.7..V;.x.Gy
005150: 1F 4F F1 C3 47 3B 78 E6 01 0F 0F 0F B6 77 11 03 .O..G;x......w..
005160: 00 19 71 C9 2A 7D 37 7D B4 3C C9 CD 64 3B C8 3A ..q.*}7}.<..d;.:
005170: 9C FB 3C C8 3A E5 FB B7 C8 2A 69 37 5E 23 56 EB ..<.:....*i7^#V.
005180: 7C B5 C9 3A EF 37 77 B7 C8 3A 90 37 3C 77 C9 E5 |..:.7w..:.7<w..
005190: D5 CD E0 3A E1 11 9D FB 01 04 00 3A 7F 37 CD 09 ...:.......:.7..
0051A0: F6 22 B1 37 E1 C9 B7 C8 FE 0C DA DC 3A 3E 02 CA .".7........:>..
0051B0: B4 3A 3E 03 32 9C FB EB CD 64 3B C8 EB 3A DF FB .:>.2....d;..:..
0051C0: FE 10 CA E0 3A FE 23 CA CF 3A FE 14 D2 E0 3A 3E ....:.#..:....:>
0051D0: 02 32 9C FB E5 CD 39 26 E1 C2 E0 3A AF 32 9C FB .2....9&...:.2..
0051E0: 7E 32 9D FB 23 EB 21 00 00 E6 20 C2 1E 3B 01 08 ~2..#.!... ..;..
0051F0: 0B 0D C5 CA 06 3B 0D 0D CA 06 3B 29 8F F5 78 1F .....;....;)..x.
005200: 83 00 00 82 82 42 42 00 00 00 82 82 00 00 00 00 .....BB.........
005210: 08 00 00 02 02 00 03 03 00 83 03 02 12 02 06 00 ................
005220: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005230: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005240: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005250: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005260: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005270: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005280: FB EB E1 2B 22 E1 FB C1 7D E6 03 FE 03 C8 7B E6 ...+"...}.....{.
005290: FC 5F 7D E6 FC 6F CD DD F9 B5 C8 3E FF 32 14 F6 ._}..o.....>.2..
0052A0: AF C9 7E E6 10 CA 37 F9 1A AE E6 0F C2 37 F9 C3 ..~...7......7..
0052B0: B8 F9 7E FE F5 C2 37 F9 EB E1 22 17 F6 C3 39 F9 ..~...7..."...9.
0052C0: 3A 9C FB B7 C8 4F 0F 0F 1F 47 1A AE A0 C0 E5 23 :....O...G.....#
0052D0: 13 CD E4 F9 E1 C9 F5 AF CD 51 FC F1 C9 7B 95 6F .........Q...{.o
0052E0: 7A 9C 67 C9 1A BE C0 23 13 0D C8 C3 E4 F9 00 00 z.g....#........
0052F0: 00 83 82 22 22 03 82 82 83 03 00 00 00 00 00 00 ...""...........
005300: 21 D6 F9 E5 AF 32 14 F6 2A 25 FA 44 4D 2A 12 F6 !....2..*%.DM*..
005310: EB 2A E1 FB E5 CD DD F9 D1 B5 C8 E5 13 EB E5 2B .*.............+
005320: 29 29 09 11 04 00 19 11 9D FB 1A AE E6 1F C2 48 )).............H
005330: F9 CD C0 F9 CA 7E F9 EB E1 23 E3 2B 7D B4 E3 E5 .....~...#.+}...
005340: EB C2 23 F9 3C E1 E1 C9 3A 18 F6 3C CA B2 F9 3C ..#.<...:..<...<
005350: C2 37 F9 D5 CD C0 F9 D1 C2 37 F9 3A 16 F6 3C CA .7.......7.:..<.
005360: A2 F9 3C CA 6F F9 7E E6 1F C2 37 F9 C3 7E F9 1A ..<.o.~...7..~..
005370: AE E6 0F C2 37 F9 7E E6 30 FE 30 CA 37 F9 2A E1 ....7.~.0.0.7.*.
005380: C5 D5 22 2C FA 21 2E FA 22 2A FA 01 80 00 CD 4B ..",.!.."*.....K
005390: FC 36 00 0E 98 11 2A FA CD D5 F8 C1 7D B4 CA B4 .6....*.....}...
0053A0: F8 7D A4 3C CA B4 F8 11 2E FA 7D 93 6F 7C 9A 67 .}.<......}.o|.g
0053B0: 09 22 28 FA E1 D1 01 24 00 C3 4B FC FE 98 CA 74 ."(....$..K....t
0053C0: F8 17 3E 00 DA C8 F8 3D 32 28 FA 2A 66 FB F9 2A ..>....=2(.*f..*
0053D0: 28 FA 7D 44 C9 AF CD 51 FC CD 06 0F 22 28 FA 3E (.}D...Q...."(.>
0053E0: 01 C3 51 FC B7 CA 4B FC CD 51 FC CD 4B FC AF C3 ..Q...K..Q..K...
0053F0: 51 FC 3E 01 CD 51 FC C3 EB F8 22 25 FA CD 51 FC Q.>..Q...."%..Q.
005400: EB C3 B0 39 2A F6 37 7D B4 C2 14 3A 2A F8 37 7D ...9*.7}...:*.7}
005410: B4 CA 17 3A 22 F2 37 2A F2 37 CD 78 3A 22 F0 37 ...:".7*.7.x:".7
005420: CD 78 3A EB CD 6D 3A 2A F4 37 5E 23 56 2A F0 37 .x:..m:*.7^#V*.7
005430: 01 0D 00 09 73 23 72 2A F0 37 EB 2A F4 37 73 23 ....s#r*.7.*.7s#
005440: 72 EB C9 2A F0 37 11 05 00 19 3A EF 37 BE CA 59 r..*.7....:.7..Y
005450: 3A 34 BE CA 59 3A CD 83 3A 2A F0 37 EB 2A F4 37 :4..Y:..:*.7.*.7
005460: 7E 23 6E 67 CD 7F 20 B5 EB C8 C3 17 3A 2A F2 37 ~#ng.. .....:*.7
005470: 01 0D 00 09 73 23 72 C9 01 0D 00 09 5E 23 56 EB ....s#r.....^#V.
005480: 9E 1D F4 93 1D CD 61 39 23 23 11 FB 37 0E 04 C3 ......a9##..7...
005490: 29 1D CD 30 3C 11 F3 FF 19 22 F2 37 CD 78 3A E5 )..0<....".7.x:.
0054A0: CD 78 3A E1 C8 EB 21 00 00 22 F6 37 22 F8 37 EB .x:...!..".7".7.
0054B0: 22 F0 37 CD 58 39 CD 1F 1D CA 43 3A 2A F0 37 7E ".7.X9....C:*.7~
0054C0: 3C C2 CE 39 EB 2A F2 37 22 F6 37 C3 F3 39 3A AA <..9.*.7".7..9:.
0054D0: 37 BE C2 F4 39 EB 21 05 00 19 3A 90 37 B7 CA F3 7...9.!...:.7...
0054E0: 39 BE C2 F3 39 3A 39 3C B7 00 C2 F3 39 2A F2 37 9...9:9<....9*.7
0054F0: 22 F8 37 EB E5 CD 78 3A D1 CA 04 3A EB 22 F2 37 ".7...x:...:.".7
005500: 38 EB 2A 1B F6 19 F1 FE 03 C2 10 39 22 67 37 C9 8.*........9"g7.
005510: EB 2A D8 FB 01 80 00 FE 01 C2 33 39 3A FA FB 3D .*........39:..=
005520: BA DA 0C F6 3A FA 37 4F 06 01 CD 69 39 01 80 00 ....:.7O...i9...
005530: C3 0C F6 EB 3A FA FB 3D BC DA 48 39 3A FA 37 47 ....:..=..H9:.7G
005540: 0E 01 CD 69 39 01 80 00 CD 0C F6 CD 61 39 36 FF ...i9.......a96.
005550: C9 3A 90 37 47 2F 4F C9 2A F0 37 11 AA 37 0E 04 .:.7G/O.*.7..7..
005560: C9 11 04 00 2A F0 37 19 C9 E5 D5 CD 57 FC D1 E1 ....*.7.....W...
005570: C9 F5 CD 0C 1E 3A FA 37 CD 54 FC 0E 01 F1 3D CA .....:.7.T....=.
005580: F5 FE 04 D2 8D 38 CD 0B 3C CA F2 38 AF CD 61 39 .....8..<..8..a9
005590: FE 05 CA 9A 38 7E B7 CA C2 38 36 00 2A AB 37 E5 ....8~...86.*.7.
0055A0: 3A AD 37 F5 CD 58 39 EB CD 29 1D 21 A9 37 3A AA :.7..X9..).!.7:.
0055B0: 37 BE C4 54 2D 3E 01 CC 71 39 C1 D1 CD 03 1E CD 7..T->..q9......
0055C0: 6B 2D F1 FE 04 D0 F5 FE 02 C2 D6 38 21 94 37 3A k-.........8!.7:
0055D0: 93 37 BE D2 E0 38 CD 1B 3C 36 FF 3E 02 C3 E3 38 .7...8..<6.>...8
0055E0: 3C 77 AF CD 71 39 CD 58 39 CD 29 1D 36 00 23 CD <w..q9.X9.).6.#.
0055F0: 83 3A 3A EF 37 3C 11 80 00 21 80 FF 19 3D C2 FC .::.7<...!...=..
005600: 21 2A FA 01 24 00 CD 4B FC 11 2A FA E1 C1 C5 E5 !*..$..K..*.....
005610: 22 1E F6 CD D5 F8 D1 C1 78 E6 FC C8 21 2A FA EB ".......x...!*..
005620: 01 21 00 17 DA 40 F8 0E 24 17 DA 40 F8 17 DA 68 .!...@..$..@...h
005630: F8 0E 04 17 DA 4B FC 17 DA 5C F8 0E 06 C3 4B FC .....K...\....K.
005640: 3A 1D F6 B7 CA 4B FC 01 0E 00 09 EB 09 7E 12 23 :....K.......~.#
005650: 13 7E 12 03 03 03 09 EB 09 1A 77 C9 2A D8 FB 01 .~........w.*...
005660: 03 00 11 4E FA C3 4B FC 2A D8 FB 01 80 00 11 4E ...N..K.*......N
005670: FA C3 4B FC EB 5E 23 56 23 4E 23 46 21 AF FA E5 ..K..^#V#N#F!...
005680: FC 78 C9 11 8D F7 D5 3E 01 CD 51 FC E9 47 AF CD .x.....>..Q..G..
005690: 51 FC 78 C9 FE 33 DA B0 F7 FE 62 DA BC F8 FE 71 Q.x..3....b....q
0056A0: D2 BC F8 FE 6F CA 35 F7 FE 70 CA 35 F7 C3 CF F7 ....o.5..p.5....
0056B0: FE 11 CA C7 F7 FE 12 CA CB F7 FE 1A C2 CF F7 EB ................
0056C0: 22 D8 FB 22 1B F6 C9 EB 22 E3 FB 2A E3 FB EB 21 ".."...."..*...!
0056D0: E2 F9 79 FE 62 DA DB F7 21 B3 F9 06 00 09 7E 47 ..y.b...!.....~G
0056E0: C5 D5 1F DA ED F7 1F DA FC F7 C3 13 F8 2A D8 FB .............*..
0056F0: EB 21 4E FA 01 10 00 CD 4B FC D1 D5 AF 32 1D F6 .!N.....K....2..
005700: F6 EB 7D B4 C2 10 F7 21 2C FA 22 BA FB 2A D8 FB ..}....!,."..*..
005710: E5 11 2A FA D5 06 00 4E 03 03 03 EB CD 4B FC 36 ..*....N.....K.6
005720: 00 D1 D5 0E 0A CD D5 F8 3A 2B FA 4F 06 00 03 03 ........:+.O....
005730: D1 E1 C3 4B FC 32 24 FA EB 5E 23 56 23 4E 23 46 ...K.2$..^#V#N#F
005740: EB 78 B1 C8 C5 E5 4E 11 70 F7 D5 3A 24 FA FE 70 .x....N.p..:$..p
005750: CA 0F FC 3A CF FB 47 E6 02 CA 6A F7 78 E6 14 CA ...:..G...j.x...
005760: 6A F7 E6 10 C2 0C FC C3 0C FC 59 0E 02 C3 D5 F8 j.........Y.....
005770: E1 23 C1 0B C3 41 F7 3E 01 CD 51 FC 46 AF CD 51 .#...A.>..Q.F..Q
005780: 00 00 00 00 00 00 03 FC D5 F8 D5 F8 9E F6 A4 F6 ................
005790: A8 F6 AC F6 E3 F6 E9 F6 EF F6 01 F7 D5 F8 CD 15 ................
0057A0: FC C3 C8 F8 4B C3 12 FC 4B C3 0F FC 7B 3C CA C3 ....K...K...{<..
0057B0: F6 3C CA BD F6 3C CA C8 F6 4B C3 0C FC CD CE F6 .<...<...K......
0057C0: C3 C8 F8 CD CE F6 B7 C8 CD D8 F6 C3 C8 F8 3A 20 ..............:
0057D0: F6 B7 3E FF C0 C3 06 FC 21 20 F6 7E 36 00 B7 C0 ..>.....! .~6...
0057E0: C3 09 FC CD 36 FC C3 C8 F8 CD 39 FC C3 C8 F8 42 ....6.....9....B
0057F0: 4B 21 D3 FB 0A BE C8 03 C5 4F CD 53 F7 C1 C3 F1 K!.......O.S....
005800: 7B 37 FE 04 C2 58 38 5E 23 56 21 FF FF 22 FB 37 {7...X8^#V!..".7
005810: EB 3A AA 37 BE C2 3C 38 EB 21 04 00 19 7E EB 3C .:.7..<8.!...~.<
005820: C2 3C 38 E5 13 13 EB 5E 23 56 2A FB 37 CD 7F 20 .<8....^#V*.7..
005830: E1 D2 3C 38 EB 22 FB 37 EB 22 FD 37 CD 78 3A C2 ..<8.".7.".7.x:.
005840: 11 38 21 FB 37 CD FB 21 C8 2A FD 37 AF 3E 04 CD .8!.7..!.*.7.>..
005850: 58 38 2A 7B 37 C3 07 38 F5 CD 51 39 3A AB 37 5F X8*{7..8..Q9:.7_
005860: A0 32 EF 37 7B A1 32 AB 37 F1 F5 C4 92 39 22 F0 .2.7{.2.7....9".
005870: 37 CD 82 21 22 1B F6 CD 58 39 7E 3C CA C2 38 F1 7..!"...X9~<..8.
005880: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005890: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0058A0: 00 00 00 00 00 00 00 00 00 FF FF 00 00 00 00 00 ................
0058B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0058C0: 0F 10 11 13 16 17 1E 23 63 64 66 67 00 14 15 21 .......#cdfg...!
0058D0: 22 28 29 00 10 12 00 00 00 00 00 00 00 00 00 00 "().............
0058E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0058F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 2A ...............*
005900: CD 4E FC 21 F4 FB EB CD 0E 37 1A C3 72 19 0E 04 .N.!.....7..r...
005910: C3 29 1D 21 EE 37 EB 01 08 00 E5 C3 4E 2F 21 00 .).!.7......N/!.
005920: 0F EB 0E 06 C3 29 1D 7A A3 3C 2A AC FB CA 29 33 .....).z£<*...)3
005930: EB 22 AC FB C9 21 FF FF 22 9F 1C 3A DD FB B7 CA ."...!.."..:....
005940: 58 37 2A DB FB 3A BF 37 77 11 07 00 19 3A B6 37 X7*..:.7w....:.7
005950: B6 77 23 3A B5 37 B6 77 2A 32 12 F9 2A 9F 1C 7D .w#:.7.w*2..*..}
005960: 44 C9 E5 00 00 00 00 00 00 00 00 00 00 00 00 00 D...............
005970: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005980: C8 CD 03 28 CD 10 30 B7 CA E4 36 CD 83 2F C2 A1 ...(..0...6../..
005990: 36 3E FF 32 15 F6 CD F5 23 C8 CD 16 28 C8 CD B1 6>.2....#...(...
0059A0: 2F CD D4 2F C2 DF 2E E5 CD 3F 1F D1 EB 7E B7 C2 /../.....?...~..
0059B0: BE 36 1A E6 01 C2 BE 36 CD 19 36 C3 CA 36 1A E6 .6.....6..6..6..
0059C0: E0 C2 C6 36 3E 80 77 CD 03 36 CD 99 2F 3D 32 E4 ...6>.w..6../=2.
0059D0: 37 CD 9C 1F CD F0 23 C8 CD 10 30 B7 C0 3A E4 37 7.....#...0..:.7
0059E0: 77 C3 9A 21 7E F5 CD 83 2F C1 CA 91 36 70 C3 A1 w..!~.../...6p..
0059F0: 36 21 F4 FB CD 0E 37 36 00 0E FF C3 4E FC 0E 00 6!....76....N...
005A00: 36 35 34 33 32 31 C3 24 F6 C3 E4 F8 C3 F2 F8 C3 654321.$........
005A10: FA F8 00 00 00 00 00 00 00 4E FA 00 00 00 00 00 .........N......
005A20: 00 C3 77 F7 79 21 00 00 22 28 FA 39 22 66 FB 31 ..w.y!.."(.9"f.1
005A30: 66 FB 21 CB F8 E5 FE 0C D2 94 F7 32 DF FB 21 86 f.!........2..!.
005A40: F6 06 00 09 09 7E 23 66 6F E9 43 4F 50 59 52 49 .....~#fo.COPYRI
005A50: 47 48 54 20 28 43 29 20 31 39 38 32 2C 20 44 49 GHT (C) 1982, DI
005A60: 47 49 54 41 4C 20 52 45 53 45 41 52 43 48 20 31 GITAL RESEARCH 1
005A70: 35 31 32 38 32 00 00 00 00 00 00 00 00 00 00 00 51282...........
005A80: C9 7D 32 B6 FB 7C 32 B8 FB C9 1C 3F 17 3F D6 3E .}2..|2....?.?.>
005A90: CB 3E 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .>..............
005AA0: 64 FF FF BE 1F BF FB BE FD BE 80 4C 02 1C 3F 17 d..........L..?.
005AB0: 3F D6 3E CB 3E 01 00 00 00 00 00 00 00 00 00 00 ?.>.>...........
005AC0: 00 00 00 7F FF 7A BF 9A BF FB BE FD BE 80 4E 02 .....z........N.
005AD0: FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF ................
005AE0: D5 5E 23 56 EB D1 C9 00 00 00 00 00 00 00 00 00 .^#V............
005AF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005B00: 3F E1 D8 EB 20 D0 21 00 00 C9 3A E7 FB FE FF C8 ?... .!...:.....
005B10: 3A F0 BE 4F C3 FB 00 21 86 00 18 03 21 89 00 DD :..O...!....!...
005B20: E5 E5 D5 CD 4D 3F 38 10 FE 08 47 C5 3A F2 BE 57 ....M?8...G.:..W
005B30: 3A F4 BE 5F C4 0A 3F C1 D1 E1 DD E1 3E 00 D8 20 :.._..?.....>..
005B40: DE 78 EE 08 28 05 FE 09 3E 02 C8 3D C9 E5 CD 76 .x..(...>..=...v
005B50: 3F 2A F0 BE 7C B7 20 0A 4D 21 FA BE 7E B9 71 C4 ?*..|. .M!..~.q.
005B60: FE 00 3A F1 BE 4F 3A F4 BE 5F 3A F2 BE 57 3A F9 ..:..O:.._:..W:.
005B70: BE 47 2A F6 BE C9 21 0C 00 19 CD E0 3F E5 DD E1 .G*...!.....?...
005B80: C9 ED 43 F6 BE 3A 58 FE 32 F9 BE C9 69 60 7A B3 ..C..:X.2...i`z.
005B90: C8 EB 09 6E 26 00 C9 11 F8 FF 18 03 11 F6 FF 3A ...n&..........:
005BA0: F0 BE CD BB 3E E5 19 CD E0 3F D1 1B 1B 1A 32 F1 ....>....?....2.
005BB0: BE 13 13 E9 79 32 F8 BE C9 AF C9 21 2F FE 87 8D ....y2.....!/...
005BC0: 6F 8C 95 67 C3 E0 3F AF 32 FA BE C9 CD E6 00 B7 o..g..?.2.......
005BD0: C0 11 B5 3F 12 C9 DD E5 D5 CD 4E 3F DD 7E 1A B7 ...?......N?.~..
005BE0: 37 20 13 CD 92 00 30 0E 01 FF FD 09 38 05 EB 01 7 ....0.....8...
005BF0: A4 FF 09 3E 06 3F E1 DD E1 47 11 00 00 E5 D4 0A ...>.?...G......
005C00: 37 77 E1 1A E6 01 CA 19 36 11 08 00 CD A7 2F CD 7w......6...../.
005C10: 42 2F 70 11 F8 FF CD A7 2F CD C8 3B C3 9A 21 CD B/p...../..;..!.
005C20: 67 2D CD 73 2E C3 72 19 CD 90 2D CD 2D 26 CD 9C g-.s..r...-.-&..
005C30: 1F CD F0 23 C8 CD C4 1E 01 08 00 CD A4 1F E5 0E ...#............
005C40: 00 CD 12 30 B7 C2 53 36 D1 EB 0E 08 CD 29 1D 1A ...0..S6.....)..
005C50: C3 5F 36 E1 01 08 00 CD A4 1F CD 83 2F C8 7E CD ._6........./.~.
005C60: 3F 1F 77 C9 CD 90 2D CD 73 2E 17 D2 C0 24 CD 2D ?.w...-.s....$.-
005C70: 26 CD 3F 1F 46 E5 C5 CD 9C 1F CD F0 23 C1 E1 70 &.?.F.......#..p
005C80: 1B 1B 1A 4E CD 86 23 C8 1A BE C9 3C 21 A3 37 34 ...N..#....<!£74
005C90: CA 94 35 87 35 CD C4 1E 4F 06 00 09 3E 10 B9 C8 ..5.5...O...>...
005CA0: 70 23 0C C3 9E 35 CD 90 2D 2A DB FB 36 21 0E 01 p#...5..-*..6!..
005CB0: CD F7 23 C2 BF 35 CD 3F 1F 7E E6 70 C2 C0 24 2A ..#..5.?.~.p..$*
005CC0: DB FB 36 20 0E 01 CD 03 28 CD F7 23 C2 E4 35 3E ..6 ....(..#..5>
005CD0: FF 32 15 F6 CD 16 28 C8 CD B1 2F 01 18 00 CD 05 .2....(.../.....
005CE0: 30 CD DD 2F 01 1C 00 CD 05 30 CD E2 2F CD D4 2F 0../.....0../../
005CF0: C2 DF 2E 01 00 00 CD B7 2F 1A F6 01 77 E5 2A 6F ......../...w.*o
005D00: 23 CD 71 35 DA 1C 35 F5 0E 00 CD 8B 22 F1 CA 22 #.q5..5.....".."
005D10: 35 CD 40 20 36 E5 CD C8 3B CD 9A 21 CD 03 24 C3 5.@ 6...;..!..$.
005D20: FE 34 CD 58 1F CD A4 1E CD 8B 35 CD 97 23 BE 77 .4.X......5..#.w
005D30: F5 CD 4F 1F 7E 3C 12 F1 EB C4 15 27 3A 9F 37 B7 ..O.~<.....':.7.
005D40: CC 15 27 01 0B 00 CD 67 35 EB 7E E6 7F 77 23 13 ..'....g5.~..w#.
005D50: 1A 77 23 36 00 23 23 13 13 13 0E 11 CD 29 1D 0E .w#6.##......)..
005D60: 01 CD 8B 22 C3 19 35 CD 40 20 09 EB 2A DB FB 09 ..."..5.@ ..*...
005D70: C9 01 0E 00 CD 67 35 7E E6 3F 47 1A B8 C0 2B 2B .....g5~.?G...++
005D80: 21 00 FC 85 6F E3 23 7E E1 E3 C9 3E 01 C3 54 FC !...o.#~...>..T.
005D90: 7D B4 C8 EB 21 0A 00 19 36 00 2A F9 FB CD 7F 20 }...!...6.*....
005DA0: EB D0 EB 2A DB FB 23 E5 01 19 00 CD 4B FC E1 C9 ...*..#.....K...
005DB0: 22 9F 1C 47 2A DB FB 7E FE 09 C8 FE 10 C8 FE 14 "..G*..~........
005DC0: C8 FE 16 C8 78 C3 72 19 CD 90 2D CD 2D 26 CD 78 ....x.r...-.-&.x
005DD0: 2E C4 85 2E 0E FF CD E4 2B C2 C0 24 CD 40 20 11 ........+..$.@ .
005DE0: 0F 00 CD CB 2C CD 37 1F CD FE 2C DA C0 24 B2 CA ....,.7...,..$..
005DF0: C0 24 CD 28 20 CD 9A 21 CD 53 30 CD F5 23 CA 80 .$.( ..!.S0..#..
005E00: 20 01 77 7E B7 C5 C4 F2 00 C1 E1 B7 C9 C5 E5 CD .w~............
005E10: EC 00 B7 E1 C1 C9 2A BE FB 06 00 AF 29 DC 0D 3E ......*.....)..>
005E20: C0 04 7C B5 20 F5 C9 2A BE FB E5 06 00 AF 29 DC ..|. ..*......).
005E30: 0D 3E 20 05 04 7C B5 20 F4 E1 28 EE C3 EF 00 41 .> ..|. ..(....A
005E40: 1E 07 CD 49 3E 46 C3 F8 00 16 00 62 68 29 29 29 ...I>F.....bh)))
005E50: 19 11 16 FE 19 C9 79 32 F0 BE CD BB 3E 7C B5 C8 ......y2....>|..
005E60: 7B 1F D8 EB 21 FE FF 19 7E 32 F1 BE 21 FA FF 19 {...!...~2..!...
005E70: CD E0 3F E9 01 00 00 ED 43 F2 BE C9 ED 43 F4 BE ..?.....C....C..
005E80: 90 3D 20 EE C5 C4 F5 00 C1 E1 04 7C B5 20 DF C9 .= ........|. ..
005E90: C5 2A C0 FB E5 21 C2 FB CD B9 3D 1E 00 CD 49 3E .*...!....=...I>
005EA0: EB 06 0F CD FB 00 E1 C1 20 02 30 04 22 C0 FB C9 ........ .0."...
005EB0: 21 C8 FB CD B9 3D 21 C6 FB C5 04 3E FE 0F 38 01 !....=!....>..8.
005EC0: 2B 10 FA A6 77 C1 AF C9 06 00 37 9F 29 DC D8 3D +...w.....7.)..=
005ED0: C8 04 7C B5 20 F4 2F C9 E5 1E 06 CD 49 3E 7E 2F ..|. ./.....I>~/
005EE0: E6 10 20 21 78 C6 D0 6F CE 3F 95 67 CD 0D 3E 28 .. !x..o.?.g..>(
005EF0: 12 C5 E5 CD EF 00 E1 C1 FE 11 20 02 36 FF EE 13 .......... .6...
005F00: C3 27 3E C3 69 3D C3 16 3E C3 81 3F 31 64 FF 21 .'>.i=..>..?1d.!
005F10: 00 80 22 BE FB 22 C0 FB 26 40 22 C6 FB 21 26 FE ..".."..&@"..!&.
005F20: 11 47 3D CD E9 00 ED 53 FB BE 22 FD BE E6 20 67 .G=....S.."... g
005F30: 2E 00 22 C2 FB 22 C4 FB 0E 02 CD 3F 3E CD C7 3E .."..".....?>..>
005F40: CD CC 3E F3 C3 63 FC 21 F9 FB 06 60 CD 60 3D CC ..>..c.!...`.`=.
005F50: 60 3D 06 24 CC 60 3D C0 2A F4 FB 23 22 F4 FB C9 `=.$.`=.*..#"...
005F60: 2B 7E 3C 27 77 A8 C0 77 C9 2A C0 FB 06 00 29 30 +~<'w..w.*....)0
005F70: 19 E5 21 10 A4 CD D8 3D 20 0A 2B 7C B5 20 F6 CD ..!....= .+|. ..
005F80: C3 39 20 CD 62 20 C3 F0 23 00 00 00 00 00 00 00 .9 .b ..#.......
005F90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005FA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005FB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005FC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005FD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005FE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005FF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
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: CD 77 22 C3 3A 3C CD 20 34 3A 9E 37 3C C2 13 34 .w".:<. 4:.7<..4
006110: CD 52 21 E1 F1 B7 C2 ED 33 C9 CD 48 FC CD A5 1D .R!.....3..H....
006120: 3A 90 37 B7 C8 3E 04 C3 FF 37 EB 7E FE 63 D0 EB :.7..>...7.~.c..
006130: 21 9C FB 85 6F EB 23 7E FE FE D2 45 34 EB 5E 23 !...o.#~...E4.^#
006140: 56 EB C3 29 33 47 23 7E 12 04 C8 23 13 7E 12 C9 V..)3G#~...#.~..
006150: 21 B0 34 E5 EB 7E FE 1B C8 FE 0C C2 62 34 11 8B !.4..~......b4..
006160: 34 D5 FE 09 C2 6B 34 11 90 34 D5 E5 23 23 4E 23 4....k4..4..##N#
006170: 46 23 5E 23 56 23 7E 23 66 6F E3 7E E5 6F 87 85 F#^#V#~#fo.~.o..
006180: C0 24 FE 81 D2 C0 24 32 E6 FB C9 7B 32 E7 FB C9 .$....$2...{2...
006190: CD 67 2D 2A 77 37 EB CD DE 22 01 00 00 1A B7 CA .g-*w7..."......
0061A0: AA 33 1F D2 A2 33 03 C3 9E 33 13 2B 7D B4 C2 9D .3...3...3.+}...
0061B0: 33 2A 85 37 23 7D 91 6F 7C 98 67 3A 82 37 4F AF 3*.7#}.o|.g:.7O.
0061C0: CD F6 1C EB 2A 19 F6 73 23 72 23 77 C9 21 B3 FB ....*..s#r#w.!..
0061D0: 7E F6 80 77 1C C2 2F 12 7E F6 40 77 C3 2F 12 CD ~..w../.~.@w./..
0061E0: 2F 2E CD 48 FC CD A5 1D 2A 65 37 3E 10 3D 29 D2 /..H....*e7>.=).
0061F0: 15 34 F5 E5 5F CD 67 2D 3A DF FB FE 30 CA 06 34 .4.._.g-:...0..4
006200: 19 EB 22 D8 FB C3 B6 21 CD 6B 2D 2A 77 37 C3 29 .."....!.k-*w7.)
006210: 33 2A 63 37 C3 29 33 CD 2D 26 CD 7D 3C CD A4 26 3*c7.)3.-&.}<..&
006220: C3 80 23 CD 6B 2D 2A 73 37 22 9F 1C C9 3A 9E 37 ..#.k-*s7"...:.7
006230: FE FF C2 3B 33 3A E0 FB C3 72 19 E6 0F 32 E0 FB ...;3:...r...2..
006240: C9 CD 9A 2D CD CE 1F C3 B9 2C CD 9A 2D CD CE 1F ...-.....,..-...
006250: C3 C2 2C CD 9A 2D C3 13 2D EB 7D 2F 5F 7C 2F 2A ..,..-..-.}/_|/*
006260: 65 37 A4 57 7D A3 5F 2A 63 37 EB 22 65 37 7D A3 e7.W}£_*c7."e7}£
006270: 6F 7C A2 67 22 63 37 3E FF 32 A9 37 C9 7B B7 CA o|.g"c7>.2.7.{..
006280: C2 97 32 3E FF 32 15 F6 CD 16 28 C2 97 32 CD F0 ..2>.2....(..2..
006290: 23 CD 87 25 C3 C0 24 CD B1 2F EB 2A 19 F6 01 08 #..%..$../.*....
0062A0: 00 09 EB 1A E6 E0 C2 AB 32 3E 80 32 E4 37 F5 CD ........2>.2.7..
0062B0: 99 2F F1 77 CD 42 2F 70 CD 19 36 CD 2B 25 C8 0E ./.w.B/p..6.+%..
0062C0: 08 CD 12 30 B7 C2 D2 32 3A E4 37 77 CD 9A 21 CD ...0...2:.7w..!.
0062D0: 41 21 0E 50 CD 7B 31 0E 20 CD 32 30 C0 CD E2 2F A!.P.{1. .20.../
0062E0: C3 57 2A 3E 08 4F 32 A0 1C CD C0 24 C3 B8 1C CD .W*>.O2....$....
0062F0: 7D 3C C3 52 26 2A 65 37 C3 29 33 3A A4 37 C3 72 }<.R&*e7.)3:.7.r
006300: 3A 83 37 3C 4F 05 CA 0D 2A 81 C3 05 2A C1 41 4F :.7<O...*...*.AO
006310: 3A 9C 37 B7 CA 1C 2A 78 B9 DA 1D 2A 79 E1 C1 70 :.7...*x...*y..p
006320: C1 21 99 37 56 90 BA D2 2B 2A 57 79 2F A2 32 98 .!.7V...+*Wy/.2.
006330: 37 CA 6F 29 F5 3A 9C 37 B7 CA 42 2A CD 20 34 CD 7.o).:.7..B*. 4.
006340: B6 21 F1 67 CD 9D 1E 7C FE 01 4F C4 45 FC AF C9 .!.g...|..O.E...
006350: CD 4B 20 E6 7F 77 C9 CD 4B 20 E6 40 F5 7E F6 40 .K ..w..K .@.~.@
006360: 77 F1 C9 3E 00 32 9C 37 CD 39 20 3A B6 37 B7 3E w..>.2.7.9 :.7.>
006370: 03 C2 E5 32 3A B5 37 B7 3E 03 C2 E5 32 2A DB FB ...2:.7.>...2*..
006380: 86 FE 80 DA 88 29 3E 80 C5 46 36 7F C5 E5 F5 3A .....)>..F6....:
006390: 83 37 5F 1C 2F A0 47 E1 3A 9C 37 B7 CA A7 29 3A .7_./.G.:.7...):
0063A0: A5 37 A2 BC DA A8 29 7C 90 4F BB DA 1C 2A C5 CD .7....)|.O...*..
0063B0: A4 1E 47 3A 9F 37 B8 5F CA FD 29 4F C5 06 00 CD ..G:.7._..)O....
0063C0: CC 1E E5 03 CD CC 1E D1 13 7A 94 57 7B 95 B2 CA .........z.W{...
0063D0: C2 29 7C B5 C2 F5 29 3A 9C 37 B7 C2 F5 29 2A 85 .)|...):.7...)*.
0063E0: 37 7D 93 7C 9A DA F5 29 C5 D5 42 4B CD 4E 22 E1 7}.|...)..BK.N".
0063F0: C1 1F D2 C2 29 0D D1 7A B9 DA FD 29 79 93 47 04 ....)..z...)y.G.
006400: 3A A8 37 21 A5 37 BE DA 19 29 FE 80 C2 76 19 CD :.7!.7...)...v..
006410: 71 28 3A 9F 1C B7 C2 76 19 CD D5 1C CD E0 1E CA q(:....v........
006420: 76 19 CD F2 1E CD 4D 29 DA 82 1F C2 3F 29 CD B6 v.....M)....?)..
006430: 21 CD 0C 1E 3E 01 CD 54 FC CD 93 1D C3 82 1F 21 !...>..T.......!
006440: 00 00 22 96 37 3E 01 CD FF 37 C3 82 1F 3A 93 37 ..".7>...7...:.7
006450: 47 3A 90 37 4F A0 F5 3A 98 37 FE 02 DA 68 29 3D G:.7O..:.7...h)=
006460: 32 98 37 F1 37 C0 AF C9 F1 CA 72 29 79 B7 C8 F6 2.7.7.....r)y...
006470: 01 C9 79 2F 57 21 A8 37 3A 99 37 FE 02 DA 6C 29 ..y/W!.7:.7...l)
006480: E5 C5 CD 3D 27 C1 E1 3A 9F 1C 3C C8 3E 1F A1 77 ...='..:..<.>..w
006490: 23 23 7E 32 A7 37 C2 A0 28 34 7E E6 3F CA C9 28 ##~2.7..(4~.?..(
0064A0: CD 03 28 CD 83 3C C2 B9 28 3A 9C 37 3C CA C9 28 ..(..<..(:.7<..(
0064B0: CD 16 28 CA C9 28 C3 BC 28 CD DE 26 CD 41 21 CD ..(..(..(..&.A!.
0064C0: 58 1F AF 32 A8 37 C3 72 19 CD 4B 20 3A A7 37 77 X..2.7.r..K :.7w
0064D0: 2B 2B 7E 3D E6 1F 77 C3 76 19 34 CD 97 23 4F BE ++~=..w.v.4..#O.
0064E0: D2 EC 28 35 3A 9C 37 3C CA 76 19 34 CD 2D 27 CD ..(5:.7<.v.4.-'.
0064F0: FD 26 C3 BC 28 CD EE 21 3E FF 32 9C 37 CD 58 1F .&..(..!>.2.7.X.
006500: 1F C3 F5 28 CD 9A 2D CD CE 1F C3 63 2A CD 18 1F ...(..-....c*...
006510: 32 B3 37 CD 5A 20 CD 54 20 CD 90 2D CD 2D 26 CD 2.7.Z .T ..-.-&.
006520: 03 28 CD DA 26 CD F8 21 B7 CA 33 32 CD 97 23 BE .(..&..!..32..#.
006530: D2 E3 32 F5 CD 40 30 CA 59 32 CD 73 2E E6 80 CA ..2..@0.Y2.s....
006540: 59 32 CD 83 2F CA 59 32 CD D7 2F CA 59 32 CD 85 Y2../.Y2../.Y2..
006550: 2E 3A E4 37 E6 C0 C2 DF 2E F1 D4 16 28 CD F8 21 .:.7........(..!
006560: C8 CD 41 21 CD 73 2E E6 80 CA D2 32 3A B3 37 E6 ..A!.s.....2:.7.
006570: 40 CA D2 32 CD 40 30 C2 D2 32 CD 24 25 CD 83 2F @..2.@0..2.$%../
006580: 2F 11 90 FB C3 08 20 CD 9A 2D CD 41 21 CD D8 1F /..... ..-.A!...
006590: CD 3D 27 3A 9F 1C 3C C8 C3 1A 34 EB AF F5 7E FE .=':..<...4...~.
0065A0: 3F C2 AF 31 CD 6B 2D CD E9 2D 0E 00 C3 C3 31 CD ?..1.k-..-....1.
0065B0: 3F 1F 7E FE 3F CA BE 31 CD 5A 20 CD 54 20 CD 90 ?.~.?..1.Z .T ..
0065C0: 2D 0E 0F F1 F5 CA DA 31 2A E1 FB E5 3E FC A5 6F -......1*...>..o
0065D0: 22 E1 FB CD 92 21 E1 22 E1 FB F1 21 C3 21 E5 CA "....!."...!.!..
0065E0: F7 23 3A E5 FB 4F CD DD 23 C3 03 24 EB 22 A0 37 .#:..O..#..$.".7
0065F0: F6 01 C3 9D 31 CD 7D 3C C3 36 25 CD 9A 2D CD CE ....1.}<.6%..-..
006600: DB FB 11 0A 00 19 7E E6 80 C2 12 31 32 B5 37 C3 ......~....12.7.
006610: C0 24 CD 41 21 CD 73 2E E6 80 CA 76 31 CD 40 30 .$.A!.s....v1.@0
006620: C2 4E 31 CD 10 30 B7 C2 4E 31 7E E6 C0 CA 76 31 .N1..0..N1~...v1
006630: CD 24 25 CD 83 2F C2 57 31 CD 2B 25 C8 CD 10 30 .$%../.W1.+%...0
006640: B7 C2 76 31 77 CD 1A 20 CC 9A 21 C3 76 31 CD 24 ..v1w.. ..!.v1.$
006650: 25 CD 83 2F CA 72 31 CD 02 2F CA 72 31 CD 85 2E %../.r1../.r1...
006660: 3A E4 37 E6 C0 CA 72 31 E6 80 C2 DF 2E 3E 80 32 :.7...r1.....>.2
006670: B6 37 CD 2B 25 C8 CD 41 21 0E 40 CD 32 30 CC DD .7.+%..A!.@.20..
006680: C3 72 19 21 FF FF CD 5A 33 AF 32 DA FB 21 80 00 .r.!...Z3.2..!..
006690: 22 D8 FB C3 B6 21 CD 67 2D 3A A4 37 32 DA FB C9 "....!.g-:.72...
0066A0: CD 54 20 CD 90 2D CD 2D 26 3A E0 FB B7 CA B9 30 .T ..-.-&:.....0
0066B0: 3E FE 32 18 F6 3C 32 BD 37 CD DA 26 CD E7 30 21 >.2..<2.7..&..0!
0066C0: BD 37 BE C8 77 3A 18 F6 FE FE C8 CD 0A 28 3E 80 .7..w:.......(>.
0066D0: 32 B5 37 2A DB FB 36 00 0E 0F CD DD 23 CD 03 24 2.7*..6.....#..$
0066E0: CD DD 26 CD E7 30 C9 CD F8 21 C8 CD 4F 1F 7E 3C ..&..0...!..O.~<
0066F0: C2 F7 30 1B 1B 1A 77 E1 3A B5 37 17 D2 12 31 2A ..0...w.:.7...1*
006700: C0 04 C9 21 FF FF 22 17 F6 C9 2A 17 F6 3E FC A5 ...!.."...*..>..
006710: 6F 2B 22 E1 FB C9 CD 76 3C CD FB 21 C4 0A 28 2A o+"....v<..!..(*
006720: DB FB E5 21 62 37 22 DB FB 0E 01 CD DD 23 CD 03 ...!b7"......#..
006730: 24 E1 22 DB FB C8 3A 15 F6 B7 C0 11 0D 00 19 72 $."...:........r
006740: 23 7E F5 E5 E6 3F 77 23 3E 01 0E 11 72 23 0D C2 #~...?w#>...r#..
006750: 4C 28 3D 4A CC 12 30 B7 0E 0A CA 4C 28 CD 76 20 L(=J..0....L(.v
006760: 0E 00 11 20 00 CD F9 25 E1 F1 77 CD C8 3B C3 62 ... ...%..w..;.b
006770: 20 CD DC 1C CD 3F 1F 7E 4F 0C CD 86 23 CA DA 28 ....?.~O...#..(
006780: B7 1A C2 86 27 77 B7 C2 8C 27 7E 12 BE C2 F2 27 ....'w...'~....'
006790: C3 A8 27 CD 1F 27 EB CD 1F 27 EB 1A BE C2 F2 27 ..'..'...'.....'
0067A0: 13 23 1A BE C2 F2 27 0D 13 23 0D C2 78 27 EB 01 .#....'..#..x'..
0067B0: EC FF 09 E5 CD 97 23 D1 CD F8 27 77 12 C5 01 03 ......#...'w....
0067C0: 00 09 EB 09 C1 05 CA D9 27 05 CA DA 27 1A BE DA ........'...'...
0067D0: D9 27 B7 C2 DA 27 CD 15 27 EB 1A 77 CD 40 20 11 .'...'..'..w.@ .
0067E0: 0B 00 19 7E E6 7F 77 CD 62 20 0E 01 CD 90 22 C3 ...~..w.b ....".
0067F0: 9A 21 CD DD 21 C3 C0 24 06 01 BE C0 04 EB BE EB .!..!..$........
006800: 21 03 00 19 1A 91 CA 12 27 78 D2 10 27 3E 80 B6 !.......'x..'>..
006810: 77 C9 7E B7 C0 36 00 3A 9F 37 B7 C8 36 80 C9 7E w.~..6.:.7..6..~
006820: 23 B6 2B C0 1A 77 13 23 1A 77 1B 2B C9 E5 11 03 #.+..w.#.w.+....
006830: 00 19 7E FE 81 DA 3B 27 E6 7F 77 E1 C9 AF 32 9F ..~...;'..w...2.
006840: 1C CD 1A 20 C0 CD 4B 20 E6 80 C0 CD E8 21 CA F2 ... ..K .....!..
006850: 27 CD FC 3B 4F 46 C5 71 CD 2D 27 79 B8 DC FD 26 '..;OF.q.-'y...&
006860: CD 6C 27 CD 3F 1F C1 4E 70 C3 FD 26 CD F0 23 C8 .l'.?..Np..&..#.
006870: 01 10 00 CD 67 35 0E 10 3A A3 37 B7 CA 93 27 7E ....g5..:£7...'~
006880: 24 CD F5 23 C8 CD 28 20 0E 10 1E 0C CD F7 25 CD $..#..( ......%.
006890: C8 3B CD 03 24 C2 88 26 CD 08 25 CA 80 23 CD 48 .;..$..&..%..#.H
0068A0: 26 C3 88 26 CD 18 1F 32 B3 37 CD 78 2E C4 85 2E &..&...2.7.x....
0068B0: CD F5 23 C8 0E 00 1E 0C CD 10 26 CD 29 1D 3A B3 ..#.......&.).:.
0068C0: 37 E6 40 CA CE 26 E5 CD 4F 1F 7E E1 23 77 CD 9A 7.@..&..O.~.#w..
0068D0: 21 CD 03 24 CA 80 23 C3 B4 26 CD 83 3C C8 CD 62 !..$..#..&..<..b
0068E0: 20 5F E5 2B 2B 56 D5 CD 40 20 EB 2A DB FB 0E 20 _.++V..@ .*...
0068F0: CD 29 1D CD 97 23 4F D1 E1 73 2B 2B 72 06 00 EB .)...#O..s++r...
006900: C2 29 1D E1 C9 CD 40 20 09 11 75 19 D5 C3 ED 2F .)....@ ..u..../
006910: 0E 08 3A E1 FB E6 03 FE 03 C8 47 2A 67 37 11 60 ..:.......G*g7.`
006920: 00 19 7E D6 21 C0 78 87 5F 87 87 83 3C 81 5F 19 ..~.!.x._...<._.
006930: AF C9 CD 40 30 C0 2A 6F 37 79 A6 C2 1A 20 3C C9 ...@0.*o7y... <.
006940: 3A 84 37 F6 E0 2F 47 CD 3F 1F 7E A0 C0 23 23 7E :.7../G.?.~..##~
006950: E6 3F C9 0E 20 CD 36 30 C0 CD 4B 20 E6 40 C0 CD .?.. .60..K .@..
006960: 3F 1F 46 36 00 E5 23 23 4E 36 00 C5 CD F0 23 C4 ?.F6..##N6....#.
006970: E2 2F AF 32 9F 1C C1 E1 70 23 23 71 C9 3A A1 FB ./.2....p##q.:..
006980: 2F 23 C9 2A DB FB 7E F5 F6 10 77 CD F5 23 3E 00 /#.*..~...w..#>.
006990: 32 9F 1C 2A DB FB C1 70 C8 CD 40 20 EB 21 0C 00 2..*...p..@ .!..
0069A0: 19 7E E6 E0 F6 01 C9 E5 2A 19 F6 19 22 19 F6 E1 .~......*..."...
0069B0: C9 CD 76 20 01 14 10 C5 CD 40 20 EB 2A DB FB EB ..v .....@ .*...
0069C0: 1A B0 77 13 23 0E 0B CD 29 1D C1 0C 0D C8 36 00 ..w.#...).....6.
0069D0: 23 C3 CC 2F CD 99 2F E5 CD 02 2F E1 C9 0E 00 C3 #../../.../.....
0069E0: E4 2F 0E 04 CD 12 30 B7 C0 11 9A 21 D5 11 F4 FB ./....0....!....
0069F0: E5 D5 0E 00 CD 4E FC 0E 04 CD 1F 1D 0E 04 D1 E1 .....N..........
006A00: FB C9 23 46 78 B7 C2 1D 2F 54 5D 23 23 0E 09 23 ..#Fx.../T]##..#
006A10: 7E 0D C8 B7 CA 0F 2F FE 20 CA 0F 2F EB 11 0A 00 ~...../. ../....
006A20: 19 EB 2A 19 F6 0E 08 1A A8 BE C2 34 2F 1B 23 0D ..*........4/.#.
006A30: C2 27 2F C9 1B 0D C2 34 2F 13 21 E7 37 0E 08 C3 .'/....4/.!.7...
006A40: 1F 1D E5 01 08 00 11 0B 00 19 EB 2A 19 F6 AF F5 ...........*....
006A50: 7E 12 B7 CA 5E 2F FE 20 CA 5E 2F 33 33 F5 80 47 ~...^/. .^/33..G
006A60: 1B 23 0D C2 50 2F F1 B0 E1 C2 76 2F 3A DF FB FE .#..P/....v/:...
006A70: 64 CA 76 2F 36 00 13 0E 08 1A A8 12 13 0D C2 79 d.v/6..........y
006A80: 2F C8 C3 02 2F AF 32 18 F6 CD 40 20 EB 0E 0C 21 /.../.2...@ ...!
006A90: D7 37 E5 CD 29 1D 1A 23 77 D1 2A DB FB 7E 12 E5 .7..)..#w.*..~..
006AA0: EB 22 DB FB CD F0 23 CA E4 2E CD 10 30 B7 C2 D2 ."....#.....0...
006AB0: 2E EB 21 E4 37 46 1A 77 B7 CA E4 2E A8 E6 E0 CA ..!.7F.w........
006AC0: D2 2E CD 83 2F CA D2 2E 3A E4 37 77 CD 1A 20 CC ..../...:.7w.. .
006AD0: 9A 21 E1 22 DB FB 3A DF FB FE 0F C8 FE 16 C8 3E .!."..:........>
006AE0: 07 C3 E5 32 AF 32 E4 37 CD 1A 20 C2 FD 2E CD 83 ...2.2.7.. .....
006AF0: 2F F5 2A DB FB 7E F6 10 77 F1 C4 87 25 E1 22 DB /.*..~..w...%.".
006B00: 21 7E A0 C5 47 1A E6 7F B0 77 C1 23 13 C3 FD 25 !~..G....w.#...%
006B10: D5 06 00 2A DB FB 09 23 7E D6 24 CC 25 26 2B EB ...*...#~.$.%&+.
006B20: CD 40 20 C1 C9 11 B3 FB 1A F6 01 12 C9 2A DB FB .@ ..........*..
006B30: CD 39 26 C0 3E 09 C3 E5 32 0E 0B 23 3E 3F 96 E6 .9&.>...2..#>?..
006B40: 7F C8 0D C2 3B 26 B7 C9 2A DB FB 7E 01 10 00 09 ....;&..*..~....
006B50: 77 C9 CD 2D 26 CD 78 2E C4 85 2E CD FD 24 CD 48 w..-&.x......$.H
006B60: 26 22 A0 37 CD 30 26 0E 0C 2A A0 37 CD E3 23 CD &".7.0&..*.7..#.
006B70: FA 23 C2 E3 32 CD 08 25 C4 8A 25 CD 48 26 CD FD .#..2..%..%.H&..
006B80: 24 C3 45 25 CD F5 23 CA 80 23 CD 40 20 7E E6 10 $.E%..#..#.@ ~..
006B90: C2 9B 25 3A B3 37 E6 80 C2 9D 25 36 E5 F5 CD 10 ..%:.7....%6....
006BA0: 30 B7 C2 A6 25 77 CD 9A 21 0E 00 F1 CC 8B 22 CD 0...%w..!.....".
006BB0: C8 3B CD 03 24 C3 87 25 50 59 2A 85 37 7B 95 7A .;..$..%PY*.7{.z
006BC0: 9C D2 EE 25 13 C5 D5 42 4B CD 4E 22 1F D2 E6 25 ...%...BK.N"...%
006BD0: D1 C1 79 B0 CA BA 25 0B D5 C5 CD 4E 22 1F D2 E6 ..y...%....N"...
006BE0: 25 C1 D1 C3 BA 25 17 3C CD 70 22 E1 D1 C9 79 B0 %....%.<.p"...y.
006BF0: C2 D2 25 21 00 00 C9 16 80 CD 10 26 0C 0D CA 9A ..%!.......&....
006C00: 16 F6 3E FE 32 18 F6 C9 3A 18 F6 FE FE C8 CD 0A ..>.2...:.......
006C10: 28 AF CD FF 24 2A A0 37 7E F6 10 77 0E 0C CD E3 (...$*.7~..w....
006C20: 23 C3 03 24 2A E1 FB 22 17 F6 C9 CD 0A 28 0E 0F #..$*..".....(..
006C30: CD DD 23 C3 03 24 CD 18 1F 32 B3 37 3E FE CD FF ..#..$...2.7>...
006C40: 24 CD F5 23 C8 CA 84 25 CD 40 20 7E E6 10 C2 6B $..#...%.@ ~...k
006C50: 25 3A B3 37 17 D4 28 20 CD 73 2E 17 DA 7E 25 2A %:.7..( .s...~%*
006C60: DB FB CD 39 26 CA 7E 25 C3 8A 25 CD 73 2E 17 D2 ...9&.~%..%.s...
006C70: 7E 25 CD D4 2F CA 7E 25 CD 85 2E C3 3C 25 CD 03 ~%../.~%....<%..
006C80: 86 23 47 3A BE 37 3C CA DE 24 AF 32 BD 37 78 C1 .#G:.7<..$.2.7x.
006C90: B7 C2 03 24 13 23 04 0D C3 57 24 3A A2 37 3C C2 ...$.#...W$:.7<.
006CA0: AD 24 3A 18 F6 FE FE CC EA 24 C3 03 24 AF 32 9D .$:......$..$.2.
006CB0: 37 32 9F 1C 47 04 C9 E6 3F C9 CD ED 24 CD 01 22 72..G...?...$.."
006CC0: 3E FF 47 04 C3 72 19 78 B7 C2 03 24 7E B7 C2 03 >.G..r.x...$~...
006CD0: 24 3A BD 37 B7 CA 03 24 32 BE 37 C3 94 24 B0 C1 $:.7...$2.7..$..
006CE0: 01 03 24 C5 C0 23 23 7E B7 C0 CD F5 24 E5 2A 17 ..$..##~....$.*.
006CF0: F6 24 C2 FB 24 2A E1 FB 22 17 F6 E1 C9 3E FF 32 .$..$*.."....>.2
006D00: FB E5 CD 80 1D CD 01 22 0E 00 CD 0E 22 21 DE FB ......."...."!..
006D10: 7E B7 CA 24 2E 36 00 E1 3A DF FB FE 30 C8 CD 33 ~..$.6..:...0..3
006D20: 21 C3 13 21 CD 69 20 DA 08 2E E1 22 E1 FB C9 21 !..!.i ...."...!
006D30: F0 FB 7E B7 C8 36 00 2A 65 37 3E 10 3D 29 D2 51 ..~..6.*e7>.=).Q
006D40: 2E F5 E5 21 A9 37 CD 51 2D CD 58 2E C4 F5 2D E1 ...!.7.Q-.X...-.
006D50: F1 B7 C2 3C 2E C3 6B 2D 2A 7B 37 7D A4 3C C8 5E ...<..k-*{7}.<.^
006D60: 23 56 7B B2 C8 21 04 00 19 7E B7 C0 21 0D 00 19 #V{..!...~..!...
006D70: C3 5F 2E 2A 6F 37 7E C9 CD 73 2E E6 80 C8 CD 83 ._.*o7~..s......
006D80: 71 37 7E E6 01 F5 86 77 F1 C4 E8 20 CD 05 20 C9 q7~....w... .. .
006D90: AF 32 B5 37 32 B6 37 C3 B9 2D 01 7F 80 2A DB FB .2.72.7..-...*..
006DA0: 11 07 00 EB 19 7E A0 32 B6 37 7E A1 77 23 7E A0 .....~.2.7~.w#~.
006DB0: 32 B5 37 7E A1 77 CD 5A 20 21 00 00 22 15 F6 22 2.7~.w.Z !..".."
006DC0: 17 F6 AF 32 BD 37 3D 32 DD FB 2A DB FB 7E 32 BF ...2.7=2..*..~2.
006DD0: 37 E6 1F 3D 32 9E 37 FE FF CA DF 2D 32 A4 37 CD 7..=2.7....-2.7.
006DE0: 6B 2D 3A E0 FB 2A DB FB 77 CD F5 20 CC 58 21 CD k-:..*..w.. .X!.
006DF0: F5 2D C3 2F 2E CD 0C 21 C8 36 00 CD 58 21 2A E1 .-./...!.6..X!*.
006E00: 96 57 23 78 9E 23 F5 B2 57 F1 7B 9E C9 73 2B 70 .W#x.#..W.{..s+p
006E10: 2B 71 C9 CD 37 1F E5 72 23 72 23 72 CD F5 23 CA +q..7..r#r#r..#.
006E20: 3E 2D CD 40 20 11 0F 00 CD CB 2C E1 E5 CD FE 2C >-.@ .....,....,
006E30: D4 0D 2D CD 03 24 3E 00 32 9F 1C C3 1F 2D E1 C9 ..-..$>.2....-..
006E40: EB 11 20 00 CD CB 2C 21 21 00 19 71 23 70 23 77 .. ...,!!..q#p#w
006E50: C9 32 AA 37 77 57 2A 65 37 CD 1D 20 5F D5 CD 33 .2.7wW*e7.. _..3
006E60: 1D E1 D2 AB 1C 2D C9 21 A4 37 73 3A A4 37 21 A9 .....-.!.7s:.7!.
006E70: 37 BE C2 78 2D FE FF C0 CD 51 2D C8 CD E8 22 2A 7..x-....Q-..."*
006E80: 26 3A 9F 1C 3C C2 9C 2C D1 E1 C1 C5 E5 D5 2E 04 &:..<..,........
006E90: 0C CA A9 2C CD 16 28 2E 05 CA A9 2C C1 C1 CD 41 ...,..(....,...A
006EA0: 21 CD DC 1C C1 AF C3 72 19 D1 E3 72 23 23 73 E1 !......r...r##s.
006EB0: CD DC 1C 3C C1 7D C3 72 19 0E FF CD E4 2B CC F5 ...<.}.r.....+..
006EC0: 28 C9 0E 00 CD E4 2B CC 63 2A C9 EB 19 4E 06 00 (.....+.c*...N..
006ED0: 21 0C 00 19 7E 0F E6 80 81 4F 3E 00 88 47 7E 0F !...~....O>..G~.
006EE0: E6 0F 80 47 21 0E 00 19 7E 87 87 87 87 B7 80 47 ...G!...~......G
006EF0: F5 7E 1F 1F 1F 1F E6 03 6F F1 3E 00 8D C9 5F 79 .~......o.>..._y
006F00: CC 80 1D AF 32 BE 37 CD 6B 3B C2 BA 24 0E 00 CD ....2.7.k;..$...
006F10: 08 22 CD F8 21 CA BA 24 2A A0 37 EB 1A FE E5 CA ."..!..$*.7.....
006F20: 2A 24 D5 CD 69 20 D1 D2 BA 24 CD 40 20 3A E5 FB *$..i ...$.@ :..
006F30: 4F 06 00 7E FE E5 CC ED 24 AF 32 A2 37 7E E6 EF O..~....$.2.7~..
006F40: BE CA 57 24 EB BE EB C2 57 24 3A 16 F6 B7 CA 03 ..W$....W$:.....
006F50: 24 32 A2 37 C3 94 24 79 B7 CA 9B 24 1A FE 3F CA $2.7..$y...$..?.
006F60: 94 24 78 FE 0D CA 94 24 FE 0C CA 7C 24 FE 0E 1A .$x....$...|$...
006F70: CC B7 24 96 E6 7F C2 C7 24 C3 94 24 1A C5 4E CD ..$.....$..$..N.
006F80: 3A 9D 37 C3 72 19 C5 F5 3A 84 37 2F 47 79 A0 4F :.7.r...:.7/Gy.O
006F90: F1 A0 91 E6 1F C1 C9 CD 4F 1F 0E 10 41 0C C5 C1 ........O...A...
006FA0: 0D AF 2B 05 BE C2 AC 23 0D C2 A2 23 79 32 9F 37 ..+....#...#y2.7
006FB0: 3A A3 37 B7 78 C2 B9 23 1F C5 E5 6F 26 00 3A 82 :£7.x..#...o&.:.
006FC0: 37 57 3E 07 92 4F CD AB 1F 45 3A 84 37 B8 E1 DA 7W>..O...E:.7...
006FD0: 9F 23 CD 3F 1F 4E 2F E6 1F A1 B0 C1 C9 2A DB FB .#.?.N/......*..
006FE0: 22 A0 37 79 32 E5 FB CD A6 3A 3E FF 32 9D 37 C9 ".7y2....:>.2.7.
006FF0: 0E 0F C3 F7 23 0E 0C CD DD 23 CD 01 22 CD F5 20 ....#....#.."..
007000: 52 21 CD 58 21 CD DE 22 44 4D 2A 77 37 36 00 23 R!.X!.."DM*w76.#
007010: 0B 78 B1 C2 0D 23 2A 6F 37 77 2A 89 37 EB 2A 77 .x...#*o7w*.7.*w
007020: 37 73 23 72 CD 80 1D 2A 69 37 36 04 23 36 00 CD 7s#r...*i76.#6..
007030: 01 22 2A 7D 37 22 B1 37 0E FF CD 08 22 CD F8 21 ."*}7".7...."..!
007040: CA 6A 3C CD 40 20 EB 2A B1 37 7C A5 3C EB C4 8F .j<.@ .*.7|.<...
007050: 3A 3E 21 BE CA 38 23 3E E5 BE CA 38 23 3E 20 BE :>!..8#>...8#> .
007060: CA 74 23 3E 10 A6 C2 6E 23 0E 01 CD A6 22 CD 76 .t#>...n#....".v
007070: 20 C3 38 23 11 0C 00 19 7E 2A 6F 37 77 C3 6E 23 .8#....~*o7w.n#
007080: 54 5D 09 F1 CA 4B FC EB C3 4B FC C5 CD A6 22 C1 T]...K...K....".
007090: C5 CD DE 22 EB 2A 77 37 C1 E5 19 22 77 37 CD A6 ...".*w7..."w7..
0070A0: 22 E1 22 77 37 C9 CD 40 20 11 10 00 19 C5 0E 11 "."w7..@ .......
0070B0: D1 0D C8 D5 3A A3 37 B7 CA C3 22 C5 E5 4E 06 00 ....:£7..."..N..
0070C0: C3 C9 22 0D C5 4E 23 46 E5 79 B0 CA D8 22 2A 85 .."..N#F.y..."*.
0070D0: 37 7D 91 7C 98 D4 68 22 E1 23 C1 C3 B0 22 2A 85 7}.|..h".#..."*.
0070E0: 37 0E 03 CD AB 1F 23 C9 CD 0C 21 36 00 CD EB 1D 7.....#...!6....
0070F0: C2 FF 22 2A 71 37 BE 00 00 CA FF 22 C3 40 3C CD .."*q7.....".@<.
007100: 0F 0F 47 7E E6 FC E1 2E 06 7C C2 B0 2C 21 20 00 ..G~.....|..,! .
007110: 19 77 3A DF FB FE 63 CA 6B 2C D5 CD E8 21 D1 CA .w:...c.k,...!..
007120: 5B 2C 21 0E 00 19 78 96 E6 3F C2 5B 2C 21 0C 00 [,!...x..?.[,!..
007130: 19 7E B9 CA A4 2C CD 86 23 C2 5B 2C C5 CD 97 23 .~...,..#.[,...#
007140: C1 B9 D2 50 2C D1 D5 1C C2 50 2C 1C D1 C3 76 19 ...P,....P,...v.
007150: 71 4F CD 2D 27 CD FD 26 C3 A1 2C C5 D5 CD 3D 27 qO.-'..&..,...='
007160: D1 C1 2E 03 3A 9F 1C 3C CA B0 2C CD 03 28 21 0C ....:..<..,..(!.
007170: 00 19 E5 56 71 23 23 7E 5F D5 E6 40 B0 77 CD DA ...Vq##~_..@.w..
007180: 37 CD B6 21 D1 3A A8 37 57 D5 CD 4D 29 DA BA 2B 7..!.:.7W..M)..+
007190: CA 9B 2B 3E 02 CD FF 37 C3 BA 2B CD B6 21 CD 0C ..+>...7..+..!..
0071A0: 1E 3E 01 CD 54 FC CD 4A 21 C1 C5 3A AB 37 21 83 .>..T..J!..:.7!.
0071B0: 37 A6 CA B7 2B 0E 00 CD 9E 1D C1 78 21 A5 37 BE 7...+......x!.7.
0071C0: DA C7 2B 77 34 0E 02 0D 0D C2 CF 2B CD 50 2A CD ..+w4......+.P*.
0071D0: 57 2A C2 DE 2B CD 50 2A CD DC 1C C3 82 1F CD D5 W*..+.P*........
0071E0: 1C C3 82 1F C5 2A DB FB EB 21 21 00 19 7E E6 7F .....*...!!..~..
0071F0: F5 7E 17 23 7E 17 E6 1F 4F 7E E6 F0 23 B6 0F 0F .~.#~...O~..#...
007200: CD 46 20 73 C3 0F 2B 4F 06 00 09 09 73 23 72 0E .F s..+O....s#r.
007210: 02 C5 CD F2 1E 3A DF FB FE 28 C2 84 2B 79 3D 3D .....:...(..+y==
007220: C2 84 2B C1 F5 2A AB 37 E5 21 90 37 5E 1C 57 D5 ..+..*.7.!.7^.W.
007230: 2A 79 37 5E 23 56 EB E5 CD 78 3A D1 C2 37 2B EB *y7^#V...x:..7+.
007240: 3D 32 94 37 77 CD BC 21 D1 D5 AF 77 23 14 F2 4B =2.7w..!...w#..K
007250: 2B 57 1D C2 4B 2B 2A B1 37 0E 02 22 AB 37 C5 CD +W..K+*.7..".7..
007260: 4A 21 CD 0C 1E AF CD 54 FC C1 CD 9E 1D 2A AB 37 J!.....T.....*.7
007270: D1 D5 19 3A 83 37 A5 0E 00 C2 5B 2B E1 E1 22 AB ...:.7....[+..".
007280: CD 2B 20 CD EE 21 CD 53 30 CD 58 1F 3A A8 37 FE .+ ..!.S0.X.:.7.
007290: 80 DA 9C 2A CD 71 28 3A 9F 1C B7 C0 CD E0 1E CA ...*.q(:........
0072A0: BA 2A 21 AA 37 11 95 37 0E 03 CD 1F 1D CA B5 2A .*!.7..7.......*
0072B0: 3E FF 32 94 37 0E 00 C3 11 2B CD DC 1C CD A4 1E >.2.7....+......
0072C0: 32 9F 37 01 00 00 B7 CA D1 2A 4F 0B CD CC 1E 44 2.7......*O....D
0072D0: 4D CD B8 25 7D B4 C2 DE 2A 3E 02 C3 72 19 22 AB M..%}...*>..r.".
0072E0: 37 22 96 37 AF 32 94 37 3A AA 37 32 95 37 EB 2A 7".7.2.7:.72.7.*
0072F0: DB FB 01 10 00 09 3A A3 37 B7 3A 9F 37 CA 07 2B ......:£7.:.7..+
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: C9 21 FF FF 22 E1 FB C9 CD 0E 22 C3 40 22 2A 87 .!..".....".@"*.
007410: 37 EB 2A E1 FB 23 22 E1 FB CD 7F 20 DA 01 22 3A 7.*..#".... ..":
007420: E1 FB E6 03 06 05 87 05 C2 26 22 32 B7 37 B7 C0 .........&"2.7..
007430: C5 CD 92 21 C1 3A DE FB B7 C0 C3 88 20 CD 30 22 ...!.:...... .0"
007440: 3A DE FB B7 C8 CD 13 21 CD 2B 21 C3 92 21 79 E6 :......!.+!..!y.
007450: 07 3C 5F 57 60 69 0E 03 CD AB 1F 44 4D 2A 77 37 .<_W`i.....DM*w7
007460: 09 7E 07 1D C2 62 22 C9 D5 CD 4E 22 E6 FE C1 B1 .~...b"...N"....
007470: 0F 15 C2 70 22 77 C9 F5 CD DE 22 44 4D 2A 77 37 ...p"w...."DM*w7
007480: 65 21 D5 11 0A 00 19 5E 23 56 23 7E 32 FA 37 EB e!.....^#V#~2.7.
007490: D1 C9 CD F5 1D 3E 03 C3 A2 21 CD 39 20 CD 86 20 .....>...!.9 ..
0074A0: 3E 05 21 00 00 22 96 37 2A 79 37 FE 05 C2 B3 21 >.!..".7*y7....!
0074B0: 2A F0 37 CD 58 38 2A D8 FB C3 BF 21 CD 82 21 22 *.7.X8*....!..!"
0074C0: 1B F6 C9 2A 67 37 EB 2A 19 F6 01 80 00 CD 4B FC ...*g7.*......K.
0074D0: 21 9F 1C 7E 3C C8 3A E1 FB E6 03 77 C9 CD 62 20 !..~<.:....w..b
0074E0: 23 23 3E FF 77 23 77 C9 CD C4 1E C3 FB 21 CD E8 ##>.w#w......!..
0074F0: 21 C0 E1 3E 09 C3 72 19 21 E1 FB 7E 23 BE C0 3C !..>..r.!..~#..<
007500: FB 47 7E B8 C8 23 B7 C2 02 21 3C C9 2A 71 37 23 .G~..#...!<.*q7#
007510: 7E B7 C9 21 3B 37 E5 21 CD 37 CD FE 20 CA F9 1F ~..!;7.!.7.. ...
007520: 21 D4 37 CD FE 20 CA C0 24 E1 C9 21 DE FB 7E B7 !.7.. ..$..!..~.
007530: C8 36 00 CD 6B 2D 21 00 00 22 E1 FB AF 32 B7 37 .6..k-!.."...2.7
007540: C9 2A 71 37 4E CD 31 1F 71 C9 2A 7B 37 0E 04 C3 .*q7N.1.q.*{7...
007550: 5D 21 2A 7B 37 C3 5B 21 2A 79 37 0E 01 7D A4 3C ]!*{7.[!*y7..}.<
007560: C8 5E 23 56 EB E5 C5 11 AA 37 CD 1F 1D C1 E1 C2 .^#V.....7......
007570: 74 21 36 FF 11 0D 00 19 5E 23 56 EB 7D B4 C8 C3 t!6.....^#V.}...
007580: 95 6F 7A 9C 67 C9 0E FE 2A 91 37 EB 2A 8B 37 7C .oz.g...*.7.*.7|
007590: E6 7F 67 CD 7F 20 D0 C5 CD B8 1F 2A 75 37 EB 2A ..g.. .....*u7.*
0075A0: 91 37 19 C1 0C CA C6 20 0C CA D1 20 BE C8 CD 1A .7..... ... ....
0075B0: 20 00 CD 52 21 3E FF 32 DE FB 32 9C FB CD E8 20 ..R!>.2..2....
0075C0: CD 05 20 C3 5A 33 BE 77 C8 2A 71 37 3E 01 B6 77 .. .Z3.w.*q7>..w
0075D0: C9 77 C9 3A A4 37 11 63 37 CD 0B 20 2A 87 37 23 .w.:.7.c7.. *.7#
0075E0: EB 2A 69 37 73 23 72 C9 2A 90 FB CD 1D 20 C8 11 .*i7s#r.*.... ..
0075F0: 92 FB C3 08 20 3A 8C 37 E6 80 C0 21 C0 37 3A DF .... :.7...!.7:.
007600: 3E 17 32 2B 1C 32 2A 1C C3 01 16 C5 CD 6A 14 C1 >.2+.2*......j..
007610: E1 E5 C5 78 B7 CA 2E 18 23 4E 05 D1 D5 7A 90 57 ...x....#N...z.W
007620: C5 E5 3A BE 19 BA DC 13 14 E1 C1 C3 13 18 E5 3A ..:............:
007630: BC 19 B7 CA 01 16 21 B7 FB 96 32 BC 19 CD 57 14 ......!...2...W.
007640: 21 BC 19 35 C2 3D 18 CD 5E 15 C3 01 16 F5 78 B9 !..5.=..^.....x.
007650: DA 5E 18 F1 C5 E5 0E 07 CD 7A FB C3 01 16 3A BF .^.......z....:.
007660: 19 FE 07 CA 6D 18 3A 2A 1C B7 C4 3B 15 F1 23 77 ....m.:*...;..#w
007670: 04 C5 E5 4F CD 14 15 CD 13 14 E1 C1 3A BF 19 FE ...O........:...
007680: 1C B7 C4 1B 15 CD 82 14 CD 5E 15 AF 32 BD 19 C3 .........^..2...
007690: 01 16 FE 10 C2 A2 17 E5 C5 AF CD A0 13 C1 E1 C3 ................
0076A0: FF 15 FE 18 C2 C4 17 E1 3A BD 19 21 B7 FB BE DA ........:..!....
0076B0: BD 17 2A 28 1C 7E B7 C2 DD 15 C3 D7 15 35 CD 57 ..*(.~.......5.W
0076C0: 14 C3 A8 17 FE 15 C2 D5 17 E3 CD D8 14 E3 CD 6A ...............j
0076D0: 14 E1 C3 D7 15 FE 12 C2 4D 18 AF 32 BE 19 EB CD ........M..2....
0076E0: A8 15 EB 78 B7 CA CE 17 EB 2A 28 1C 04 05 CA F8 ...x.....*(.....
0076F0: 17 2B 1A 77 1B C3 ED 17 22 28 1C C5 D5 CD 6A 14 .+.w...."(....j.
007700: CA 01 16 0E 08 CD CD 13 C3 F8 16 FE 0B C2 1E 17 ................
007710: EB 21 25 1C 22 28 1C EB CD 5E 15 C3 FF 15 FE 07 .!%."(...^......
007720: C2 2D 17 3A 2A 1C B7 CA FF 15 C3 24 16 FE 08 C2 .-.:*......$....
007730: 50 17 3A CA FB 3C CA 5C 17 3A BD 19 57 3A B7 FB P.:..<.\.:..W:..
007740: BA CA FF 15 32 BC 19 78 B7 CA 4D 17 05 C3 0B 18 ....2..x..M.....
007750: FE 7F C2 73 17 3A CB FB 3C CA 39 17 3E 7F 32 BF ...s.:..<.9.>.2.
007760: 19 3A 2A 1C B7 C2 39 17 78 B7 CA FF 15 7E 05 2B .:*...9.x....~.+
007770: C3 71 18 FE 05 C2 92 17 C5 78 32 BE 19 E5 3A 2A .q.......x2...:*
007780: B3 15 2A 26 1C 7E B7 32 2B 1C CA 6F 16 23 22 26 ..*&.~.2+..o.#"&
007790: 1C 21 2B 1C 36 17 EB C3 4D 18 FE 01 C2 C5 16 3A .!+.6...M......:
0077A0: BD 19 57 3A B7 FB BA CA FF 15 32 BC 19 78 B7 CA ..W:......2..x..
0077B0: 0B 18 05 E5 CD BA 15 D1 2A 28 1C 2B 22 28 1C 1A ........*(.+"(..
0077C0: 77 EB C3 0B 18 FE 02 C2 0B 17 3A BE 19 B8 C2 DC w.........:.....
0077D0: 16 3E 17 32 2A 1C 32 BF 19 C3 3A 16 EB 2A 28 1C .>.2*.2...:..*(.
0077E0: 04 05 3A BE 19 B8 CA F0 16 2B 1A 77 1B C3 E1 16 ..:......+.w....
0077F0: 22 28 1C C5 D5 CD BA 15 3A B7 FB 47 3A BD 19 B8 "(......:..G:...
007800: C8 29 C3 FF 1F 11 65 37 3A A9 37 4F 21 01 00 CD .)....e7:.7O!...
007810: FE 1F 1A B5 12 13 1A B4 12 C9 2A 63 37 3A A9 37 ..........*c7:.7
007820: 4F CD AB 1F 7D E6 01 C9 CD 40 20 CD 32 20 D0 C3 O...}....@ .2 ..
007830: A6 1C 11 09 00 19 7E 17 C9 CD 1A 20 C8 C3 A1 1C ......~.... ....
007840: 2A 67 37 3A B7 37 85 6F D0 24 C9 2A DB FB 11 0E *g7:.7.o.$.*....
007850: 00 19 7E C9 CD 4B 20 36 00 C9 CD 3F 1F 7E E6 1F ..~..K 6...?.~..
007860: 77 C9 CD 4B 20 F6 80 77 C9 2A E1 FB EB 2A 69 37 w..K ..w.*...*i7
007870: 7B 96 23 7A 9E C9 CD 69 20 D8 13 72 2B 73 C9 7B {.#z...i ..r+s.{
007880: 37 C9 CD 4F 1F 3A A8 37 77 3A DF FB FE 16 D2 92 7..O.:.7w:......
007890: 1F 34 EB 7E FE 80 D0 3A A5 37 77 C9 CD 3F 1F 72 .4.~...:.7w..?.r
0078A0: 23 23 72 C9 70 23 0D C8 C3 A4 1F 0C 0D C8 7C B7 ##r.p#........|.
0078B0: 1F 67 7D 1F 6F C3 AC 1F 2A 67 37 01 04 00 16 20 .g}.o...*g7....
0078C0: AF 86 23 15 C2 C1 1F A8 47 0D C2 BE 1F C9 CD 31 ..#.....G......1
0078D0: 1F 2A 71 37 BE C4 E3 1F 3A B5 37 B7 C8 2A DB FB .*q7....:.7..*..
0078E0: AF 77 C9 2A 1E F6 EB 2A FE FB CD 7F 20 D2 F7 1F .w.*...*.... ...
0078F0: 2A 92 FB CD 1D 20 C8 E1 E1 3E 0A C3 72 19 0C 0D *.... ...>..r...
007900: 32 AD 37 22 B1 37 3A 83 37 4F 3A A8 37 A1 47 32 2.7".7:.7O:.7.G2
007910: 93 37 21 AB 37 B6 77 C9 2A DB FB 11 08 00 19 0E .7!.7.w.*.......
007920: 04 7E 87 F5 7A 1F 57 F1 0F 77 2B 0D C2 21 1F 7A .~..z.W..w+..!.z
007930: C9 CD 3F 1F 23 7E C9 2A DB FB 11 21 00 19 C9 2A ..?.#~.*...!...*
007940: DB FB 11 0C 00 19 C9 2A DB FB 11 0F 00 19 C9 CD .......*........
007950: 47 1F EB 21 11 00 19 C9 CD 4F 1F 7E 32 A8 37 EB G..!.....O.~2.7.
007960: 7E B7 C2 6D 1F CD 97 23 4F CD FD 26 7E FE 81 DA ~..m...#O..&~...
007970: 74 1F 3E 80 32 A5 37 CD 3F 1F 3A 84 37 A6 32 A6 t.>.2.7.?.:.7.2.
007980: 67 CD 9D 1E 44 4D 2A 9A 37 EB CD 30 FC 4D 44 22 g...DM*.7..0.MD"
007990: FD 37 CD 21 FC 2A 1B F6 4D 44 C3 24 FC 3A 8F 37 .7.!.*..MD.$.:.7
0079A0: 4F C3 AB 1F 21 82 37 4E 3A A8 37 B7 1F 0D C2 AB O...!.7N:.7.....
0079B0: 1E 47 3E 08 96 4F 3A A6 37 0D CA C2 1E B7 17 C3 .G>..O:.7.......
0079C0: B9 1E 80 C9 2A DB FB 11 10 00 19 C9 CD C4 1E 09 ....*...........
0079D0: 3A A3 37 B7 CA DA 1E 6E 60 C9 09 7E 23 66 6F C9 :£7....n`..~#fo.
0079E0: CD A4 1E 32 9F 37 4F 06 00 CD CC 1E 22 AB 37 7D ...2.7O.....".7}
0079F0: B4 C9 3A 82 37 4F 2A AB 37 AF CD F6 1C 22 AB 37 ..:.7O*.7....".7
007A00: E5 3A 2B 1C B7 CC 9C 14 32 BF 19 E1 C1 FE 0D CA .:+.....2.......
007A10: E7 18 FE 0A CA E7 18 FE 06 C2 35 16 CD C0 14 1D ..........5.....
007A20: BB D2 FF 15 EB 2A 28 1C 7E B7 CA 6F 16 23 22 28 .....*(.~..o.#"(
007A30: 1C EB C3 4D 18 FE 17 C2 9A 16 EB 2A 28 1C 7E B7 ...M.......*(.~.
007A40: CA 60 16 EB CD C0 14 1D BB EB DA 55 16 EB CD 6F .`.........U...o
007A50: 15 EB C3 6A 16 2A 28 1C 7E 23 22 28 1C C3 91 16 ...j.*(.~#"(....
007A60: 21 2A 1C 7E 36 00 B7 CA 73 16 21 2B 1C 36 00 EB !*.~6...s.!+.6..
007A70: C3 FF 15 3A 2B 1C B7 C2 82 16 78 B7 C2 6F 16 CD ...:+.....x..o..
007A80: DA 8A 15 7B 32 B7 FB C3 93 15 E5 CD 13 14 E1 23 ...{2..........#
007A90: C3 77 15 3A B7 FB 32 2E 1C CD 1B 15 CD 2B 15 3A .w.:..2......+.:
007AA0: 2E 1C 32 2D 1C C1 E1 C9 21 25 1C 22 28 1C AF 32 ..2-....!%."(..2
007AB0: 2A 1C C9 21 C2 1A 22 26 1C C9 21 2A 1C 7E B7 C0 *..!.."&..!*.~..
007AC0: 34 3A B7 FB 32 2D 1C C9 CD C0 14 D4 82 14 3A C0 4:..2-........:.
007AD0: 19 47 0E 00 CD EE 14 CD B3 15 CD A8 15 CD 5E 15 .G............^.
007AE0: AF 32 2B 1C 3E 01 32 DF FB 3A B7 FB 32 BD 19 2A .2+.>.2..:..2..*
007AF0: DB FB 4E 23 E5 AF 47 32 BE 19 B9 C2 FF 15 0C C5 ..N#..G2........
007B00: C8 32 C0 19 D5 01 0F 15 C5 47 04 48 C3 29 1D E1 .2.......G.H.)..
007B10: 2B 36 00 C9 3A B7 FB 32 2C 1C C9 3A B7 FB 21 2D +6..:..2,..:..!-
007B20: 1C BE D0 0E 20 CD CD 13 C3 1B 15 3A 2C 1C 21 B7 .... ......:,.!.
007B30: FB BE D0 0E 08 CD CD 13 C3 2B 15 C5 E5 2A 28 1C .........+...*(.
007B40: 1E 00 7E B7 CA 4C 15 1C 23 C3 42 15 78 83 B9 F5 ..~..L..#.B.x...
007B50: 0E 07 D4 7A FB F1 E1 C1 D8 D1 D1 C3 FF 15 3A 2A ...z..........:*
007B60: 1C B7 C8 3A BF 19 FE 01 C8 FE 06 C8 FE 17 C8 E5 ...:............
007B70: C5 CD 14 15 2A 28 1C 7E B7 CA 93 15 4F CD C0 14 ....*(.~....O...
007B80: 72 14 0E 0D CD CD 13 0E 0A C3 CD 13 21 D3 FB 0A r...........!...
007B90: BE C8 03 C5 4F CD 28 14 C1 C3 8C 14 2A 28 1C 7E ....O.(.....*(.~
007BA0: 32 2A 1C 2A BA FB 7D B4 CA B7 12 CD 21 F6 23 B7 2*.*..}.....!.#.
007BB0: C2 B6 14 21 00 00 22 BA FB 22 BC FB C0 C3 B7 12 ...!..".."......
007BC0: 3A B6 FB 5F 3A B7 FB BB C9 EB 2A 28 1C EB 1A B7 :.._:.....*(....
007BD0: C8 13 23 77 04 C3 CE 14 78 B7 C8 C5 48 E5 EB 13 ..#w....x...H...
007BE0: 21 C2 1A CD 29 1D 36 00 22 26 1C E1 C1 C9 3A B4 !...).6."&....:.
007BF0: FB 17 D0 21 C2 1A 11 C1 19 0C C2 0A 15 EB 78 B7 ...!..........x.
007C00: 06 00 EB 21 AB 37 73 23 72 23 70 C9 2A 6B 37 4E ...!.7s#r#p.*k7N
007C10: 23 46 C5 2A 6D 37 5E 23 56 23 46 2A AB 37 3A AD #F.*m7^#V#F*.7:.
007C20: 37 4F 7D 93 7C 9A 79 98 E5 D2 39 1E 2A 80 37 CD 7O}.|.y...9.*.7.
007C30: E4 1C E1 E3 2B E3 C3 22 1E 2A 80 37 CD ED 1C E1 ....+..".*.7....
007C40: 7D 93 7C 9A 79 98 DA 50 1E E3 23 E3 E5 C3 39 1E }.|.y..P..#...9.
007C50: E3 E5 2A 80 37 CD E4 1C E1 D5 C5 E5 EB 2A 8D 37 ..*.7........*.7
007C60: 19 44 4D 22 FB 37 CD 1E FC D1 2A 6B 37 73 23 72 .DM".7....*k7s#r
007C70: C1 D1 2A 6D 37 73 23 72 23 70 C1 79 93 6F 78 9A ..*m7s#r#p.y.ox.
007C80: CD 18 FC AF 2A 6B 37 77 23 77 2A 6D 37 77 23 77 ....*k7w#w*m7w#w
007C90: 23 77 C9 3E 01 32 B4 37 CD 27 FC C3 A5 1D AF 32 #w.>.2.7.'.....2
007CA0: B4 37 CD 2A FC B7 C8 4F CD B6 1D 79 FE 03 DA B2 .7.*...O...y....
007CB0: 1C 0E 01 C3 B2 1C 3C C0 CD EB 1D C8 2A 65 37 CD ......<.....*e7.
007CC0: 1D 20 0E 01 C8 CD B2 20 E1 3A DF FB FE 30 C8 21 . ..... .:...0.!
007CD0: AA 37 3A A4 37 BE C2 E6 1D CD 13 21 3A B4 37 B7 .7:.7......!:.7.
007CE0: C0 0E 02 C3 B2 1C AF 32 DE FB C9 2A 8B 37 3E 80 .......2...*.7>.
007CF0: BC C0 AF BD C9 2A E1 FB 0E 02 CD AB 1F 22 91 37 .....*.......".7
007D00: 1F 34 C0 23 34 C0 23 34 C9 CD 12 1D EB 0E 03 C3 .4.#4.#4........
007D10: 29 1D CD 37 1F 11 AE 37 C9 CD 12 1D C3 0D 1D 1A )..7...7........
007D20: BE C0 23 13 0D C8 C3 1F 1D 0C 0D C8 1A 77 13 23 ..#..........w.#
007D30: C3 2A 1D 4A CD 1B FC 7C B5 C8 5E 23 56 23 22 69 .*.J...|..^#V#"i
007D40: 37 23 23 22 6B 37 23 23 22 6D 37 23 23 23 22 6F 7##"k7##"m7###"o
007D50: 37 23 22 71 37 23 23 EB 22 9A 37 21 73 37 0E 0D 7#"q7##.".7!s7..
007D60: CD 29 1D 2A 73 37 EB 21 80 37 0E 11 CD 29 1D 2A .).*s7.!.7...).*
007D70: 85 37 7C 21 A3 37 36 FF B7 CA 7E 1D 36 00 37 C9 .7|!£76...~.6.7.
007D80: 72 72 6F 72 00 46 69 6C 65 20 45 78 69 73 74 73 rror.File Exists
007D90: 00 3F 20 69 6E 20 46 69 6C 65 6E 61 6D 65 00 00 .? in Filename..
007DA0: 00 0E 02 C3 B2 1C 0E 03 C3 B2 1C 0E 04 3E FF 32 .............>.2
007DB0: A9 37 61 2E FF 22 9F 1C 3A AA 37 32 ED FB 3A E7 .7a.."..:.72..:.
007DC0: FB 3C C4 FB FB 3A DF FB FE 1B CA 35 37 FE 1F CA .<...:.....57...
007DD0: 35 37 C3 3B 37 3A BC 37 32 1D F6 C9 AF 32 BC 37 57.;7:.72....2.7
007DE0: 32 1D F6 C9 7B 95 5F 7A 9C 57 D0 05 C9 7B 85 5F 2...{._z.W...{._
007DF0: 7A 8C 57 D0 04 C9 0C 0D C8 29 8F C3 F7 1C CD 37 z.W......).....7
007E00: D0 35 7E B7 C8 79 FE 08 C2 0D 14 35 C9 FE 0D C0 .5~..y.....5....
007E10: 36 00 C9 79 CD F0 12 D2 28 14 F5 0E 5E CD CD 13 6..y....(...^...
007E20: F1 F6 40 4F CD C0 14 C8 3A DF FB 3D CA 37 14 3A ..@O....:..=.7.:
007E30: CF FB E6 14 C2 CD 13 79 FE 09 C2 CD 13 3A DF FB .......y.....:..
007E40: FE 01 C2 49 14 CD C0 14 C8 0E 20 CD CD 13 3A B7 ...I...... ...:.
007E50: FB E6 07 C2 3D 14 C9 CD 65 14 3A BF 19 FE 01 C8 ....=...e.:.....
007E60: 0E 20 CD 7A FB 0E 08 C3 7A FB 0E 23 CD CD 13 CD . .z....z..#....
007E70: 82 14 3A B7 FB 21 BD 19 BE D0 0E 20 CD CD 13 C3 ..:..!..... ....
007E80: 20 F6 47 3A CF FB 1F D2 8E 13 3E 03 BE C8 78 FE .G:......>...x.
007E90: 11 CA 9D 13 FE 10 CA 9D 13 77 3E 01 C9 AF 77 C9 .........w>...w.
007EA0: CC A9 13 0E 07 C4 7A FB C9 3A CF FB E6 14 C2 BB ......z..:......
007EB0: 13 21 D4 FB 3E 01 AE E6 01 77 C9 AF C9 3A DF FB .!..>....w...:..
007EC0: 3D CA 7A FB 78 E6 10 C2 7A FB C3 7A FB 3A BC 19 =.z.x...z..z.:..
007ED0: B7 C2 F6 13 3A CF FB E6 14 47 C5 3A DF FB 3D C4 ....:....G.:..=.
007EE0: 2F 13 C1 C5 CD BD 13 C1 78 B7 C2 F6 13 C5 3A D4 /.......x.....:.
007EF0: FB B7 C4 80 FB C1 79 21 B7 FB FE 7F C8 34 FE 20 ......y!.....4.
007F00: 20 F6 B7 C2 9A 13 CD 6E FB E6 01 C9 21 D5 FB 36 ......n....!..6
007F10: 40 E3 E9 47 3A CF FB E6 02 78 C9 CD 13 13 C2 FF @..G:....x......
007F20: 12 3A 20 F6 B7 C2 50 13 3A CC FB 3C CA FF 12 CD .: ...P.:..<....
007F30: 13 13 C0 3A 20 F6 FE 13 CA 50 13 CD 0C 13 CD 6E ...: ....P.....n
007F40: FB E1 36 00 E6 01 C8 CD 0C 13 CD 74 FB E1 36 00 ..6........t..6.
007F50: FE 13 C2 7F 13 21 20 F6 BE C2 5E 13 36 00 CD 0C .....! ...^.6...
007F60: 13 CD 74 FB E1 36 00 FE 03 C2 75 13 3A CF FB E6 ..t..6....u.:...
007F70: 08 CA 29 12 AF D6 11 C8 3C CD A0 13 C3 5E 13 21 ..).....<....^.!
007F80: D8 FB 11 80 00 19 C3 93 12 2A D8 FB 22 72 12 C9 .........*.."r..
007F90: 2A 72 12 22 D8 FB C3 BF 21 C1 3C C8 3A E6 FB 90 *r."....!.<.:...
007FA0: 67 C9 E5 3A DF FB FE 21 D4 19 1D CD 90 12 D1 2A g..:...!.......*
007FB0: 66 12 F9 EB 7D 44 C9 21 20 F6 7E 36 00 B7 C0 C3 f...}D.! .~6....
007FC0: 74 FB 21 72 19 E5 CD B7 12 CD F0 12 DA D6 12 F5 t.!r............
007FD0: 4F CD 28 14 F1 C9 CD 13 13 C0 FE 13 C2 E5 12 CD O.(.............
007FE0: 5E 13 C3 C6 12 FE 11 CA C6 12 FE 10 CA C6 12 C9 ^...............
007FF0: FE 0D C8 FE 0A C8 FE 09 C8 FE 08 C8 FE 20 C9 3A ............. .:
008000: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008010: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008020: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 43 ...............C
008030: 50 2F 4D 20 45 72 72 6F 72 20 4F 6E 20 20 3A 20 P/M Error On :
008040: 00 44 69 73 6B 20 49 2F 4F 00 49 6E 76 61 6C 69 .Disk I/O.Invali
008050: 64 20 44 72 69 76 65 00 52 65 61 64 2F 4F 6E 6C d Drive.Read/Onl
008060: 79 20 46 69 6C 65 00 52 65 61 64 2F 4F 6E 6C 79 y File.Read/Only
008070: 20 44 69 73 6B 00 50 61 73 73 77 6F 72 64 20 45 Disk.Password E
008080: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008090: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0080A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0080B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0080C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0080D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0080E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0080F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008100: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008110: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008120: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008130: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008140: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008150: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008160: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008170: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008180: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008190: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0081A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0081B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0081C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0081D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0081E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0081F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008200: 46 75 6E 63 74 69 6F 6E 20 3D 20 20 20 20 20 46 Function = F
008210: 69 6C 65 20 3D 20 00 00 00 00 00 00 00 00 00 00 ile = ..........
008220: 00 00 00 21 FD FF C3 2C 12 CD 24 3C 22 AC FB C3 ...!...,..$<"...
008230: 68 FB 00 00 21 00 00 39 22 66 12 21 A2 12 E5 CD h...!..9"f.!....
008240: 09 1D CD 89 12 3A E6 FB F5 32 99 37 CD 74 12 B7 .....:...2.7.t..
008250: C2 99 12 3A DF FB FE 21 D4 FE 1C CD 7F 12 F1 3D ...:...!.......=
008260: C2 48 12 67 6F C9 00 00 C7 C7 C7 C7 C7 C7 C7 C7 .H.go...........
008270: C7 C7 00 00 3A DF FB 4F 2A DB FB EB C3 3B 0F 2A ....:..O*....;.*
008280: E5 CD 82 14 3A AA 37 C6 41 32 3D 1C 01 2F 1C CD ....:.7.A2=../..
008290: EE 11 C1 3A F3 FB 17 D2 EE 11 CD EE 11 3A DF FB ...:.........:..
0082A0: 06 30 21 0B 12 FE 64 DA AF 11 36 31 23 D6 64 D6 .0!...d...61#.d.
0082B0: 0A DA B8 11 04 C3 AF 11 70 23 C6 3A 77 23 36 20 ........p#.:w#6
0082C0: 21 0E 12 36 00 3A DD FB B7 CA E5 11 36 20 D5 2A !..6.:......6 .*
0082D0: DB FB 23 EB 21 16 12 0E 08 CD 29 1D 36 2E 23 0E ..#.!.....).6.#.
0082E0: 03 CD 29 1D D1 CD 82 14 01 FB 11 C3 EE 11 0A B7 ..).............
0082F0: C8 C5 4F CD 28 14 C1 03 C3 EE 11 42 44 4F 53 20 ..O.(......BDOS
008300: 00 09 01 01 07 CD 19 11 C2 05 11 3E 07 90 E1 E5 ...........>....
008310: 01 1A 00 09 77 1A C3 E0 10 CD 4D 11 C8 FE 20 13 ....w.....M... .
008320: DA F5 10 04 05 FA F5 10 0C 0D C2 32 11 FE 2A CA ...........2..*.
008330: 37 11 77 23 05 B7 C9 36 3F 23 05 F2 37 11 C9 0D 7.w#...6?#..7...
008340: 09 20 2E 2C 3A 3B 5B 5D 3D 3C 3E 7C 00 1A E5 21 . .,:;[]=<>|...!
008350: 3F 11 BE CA 5D 11 34 35 23 C2 52 11 B7 E1 C8 FE ?...].45#.R.....
008360: 61 D8 FE 7B D2 69 11 E6 5F E6 7F C9 70 23 0D C2 a..{.i.._...p#..
008370: 6C 11 C9 1A 13 FE 20 CA 73 11 FE 09 CA 73 11 C9 l..... .s....s..
008380: 01 08 20 CD 6C 11 01 0C 00 CD 6C 11 CD 73 11 1A .. .l.....l..s..
008390: FE 3A 1B E1 E5 C2 AC 10 CD 4D 11 CA E0 10 D6 41 .:.......M.....A
0083A0: DA F6 10 FE 10 D2 F6 10 13 13 3C 77 23 CD 4D 11 ..........<w#.M.
0083B0: CA E0 10 01 00 07 1A FE 2E CA CA 10 FE 3B CA FB .............;..
0083C0: 10 CD 19 11 C2 B6 10 C3 E0 10 13 E1 E5 01 09 00 ................
0083D0: 09 01 00 02 1A FE 3B CA FB 10 CD 19 11 C2 D4 10 ......;.........
0083E0: C1 D5 CD 73 11 1B CD 4D 11 E1 C0 21 00 00 B7 C8 ...s...M...!....
0083F0: FE 0D C8 EB C9 C1 C1 21 FF FF C9 13 E1 E5 01 10 .......!........
008400: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008410: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008420: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008430: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008440: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008450: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008460: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008470: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008480: FB CA 29 33 EB 22 CF FB C9 21 D3 FB 7A A3 3C 7E ..)3."...!..z£<~
008490: CA 72 19 73 C9 EB 5E 23 56 23 4E 23 46 EB 78 B1 .r.s..^#V#N#F.x.
0084A0: C8 C5 E5 4E 3A DF FB FE 6F CA B2 19 CD 80 FB C3 ...N:...o.......
0084B0: B5 19 CD 28 14 E1 23 C1 0B C3 9E 19 00 00 00 00 ...(..#.........
0084C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0084D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0084E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0084F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008500: 13 CD 15 FC C3 72 19 79 3C CA 20 19 3C CA 17 19 .....r.y<. .<...
008510: 3C CA 25 19 C3 7A FB CD FF 12 C2 C0 24 C3 72 19 <.%..z......$.r.
008520: CD FF 12 B7 C8 CD B7 12 C3 72 19 CD 36 FC C3 72 .........r..6..r
008530: 19 CD 39 FC C3 72 19 EB 4D 44 C3 8C 14 3A CF FB ..9..r..MD...:..
008540: 1F D2 6F 19 21 D5 FB 36 80 E5 21 68 19 E5 3A 20 ..o.!..6..!h..:
008550: F6 FE 03 CA 9A 13 CD 6E FB B7 C8 CD 74 FB FE 03 .......n....t...
008560: CA 7F 13 32 20 F6 AF C9 CD 72 19 E1 36 00 C9 CD ...2 ....r..6...
008570: 1B 13 32 9F 1C C9 3E 01 C3 72 19 7A A3 3C 2A CF ..2...>..r.z£<*.
008580: 07 CA 39 17 FE 7F CA 8C 18 CD 5E 15 3A CF FB E6 ..9.......^.:...
008590: 08 C2 97 18 7E FE 03 78 C2 A0 18 FE 01 CA 29 12 ....~..x......).
0085A0: B9 D2 E0 18 C5 E5 CD C0 14 DA 01 16 3A 2A 1C B7 ............:*..
0085B0: CA C0 18 3A BF 19 FE 17 CA C5 18 FE 06 CA C5 18 ...:............
0085C0: 3E 05 C3 08 16 E1 C1 05 EB 2A 28 1C 2B 22 28 1C >........*(.+"(.
0085D0: 1A 77 EB 2B C5 E5 CD 2B 15 AF 32 2B 1C C3 01 16 .w.+...+..2+....
0085E0: AF 32 2B 1C C3 FF 15 CD C9 14 E1 70 C5 CD D8 14 .2+........p....
0085F0: C1 0E FF CD EE 14 21 00 00 22 BA FB 0E 0D C3 CD ......!.."......
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: 11 33 17 33 23 33 2D 33 41 33 4A 33 53 33 40 2D .3.3#3-3A3J3S3@-
008710: 59 33 75 19 75 19 4A 33 C0 24 75 19 75 19 7D 33 Y3u.u.J3.$u.u.}3
008720: 8B 33 90 33 CD 33 DF 33 2A 34 50 34 E8 33 C8 34 .3.3.3.3*4P4.3.4
008730: A6 35 1F 36 28 36 64 36 F1 36 FE 36 13 37 1E 37 .5.6(6d6.6.6.7.7
008740: 27 37 7B 19 89 19 95 19 95 19 41 1C 67 1C 58 1C '7{.......A.g.X.
008750: 4A 1C 00 00 00 00 76 1C 85 1C 91 1C FE 98 C0 21 J.....v........!
008760: 29 33 E5 2A DB FB 5E 23 56 D5 23 5E 23 56 E1 EB )3.*..^#V.#^#V..
008770: E5 AF 77 23 01 0B 20 CD 6C 11 01 04 00 CD 6C 11 ..w#.. .l.....l.
008780: 21 4A 10 09 09 5E 23 56 EB CD 80 11 C1 3A E7 FB !J...^#V.....:..
008790: B7 C0 C3 23 12 14 15 21 22 28 00 43 4F 50 59 52 ...#...!"(.COPYR
0087A0: 49 47 48 54 20 28 43 29 20 31 39 38 32 2C 20 44 IGHT (C) 1982, D
0087B0: 49 47 49 54 41 4C 20 52 45 53 45 41 52 43 48 20 IGITAL RESEARCH
0087C0: 31 35 31 32 38 32 2F 12 C2 12 28 14 01 19 12 FC 151282/...(.....
0087D0: 80 FB 07 19 2B 19 31 19 37 19 C8 15 3D 19 7D 30 ....+.1.7...=.}0
0087E0: 83 30 96 30 A0 30 87 31 9B 31 EC 31 F5 31 FB 31 .0.0.0.1.1.1.1.1
0087F0: 04 32 0D 32 EF 32 F5 32 FB 32 01 33 08 33 D3 20 .2.2.2.2.2.3.3.
008800: 36 35 34 33 32 31 EB 22 DB FB EB 79 32 DF FB FE 654321."...y2...
008810: 0E DA 3B 0F 21 00 00 22 98 37 3A DA FB 32 A4 37 ..;.!..".7:..2.7
008820: 3D 32 BC 37 3A E6 FB 3D CA 3B 0F 21 95 0F 7E B7 =2.7:..=.;.!..~.
008830: CA 3B 0F B9 CA 34 12 23 C3 2E 0F 7B 32 9E 37 21 .;...4.#...{2.7!
008840: 00 00 22 9F 1C 22 DD FB 39 22 32 12 21 3B 37 E5 ..".."..9"2.!;7.
008850: 79 FE 33 D2 5D 0F 4B 21 C6 0F C3 6F 0F FE 80 D2 y.3.].K!...o....
008860: 5C 10 D6 62 DA C0 24 FE 0F D2 C0 24 21 2C 10 5F \..b..$....$!,._
008870: 16 00 19 19 5E 23 56 2A DB FB EB E9 06 00 C5 0D ....^#V*........
008880: C3 1A 04 00 00 00 C3 1B 01 C3 06 00 07 00 00 00 ................
008890: 4C 4F 41 44 45 52 20 20 FF 00 00 79 FE 3B C2 09 LOADER ...y.;..
0088A0: 01 C1 C5 21 00 00 39 31 BE 03 22 9A 03 C5 EB 22 ...!..91.."...."
0088B0: 98 03 7C B5 F5 CC 00 02 F1 C4 30 02 D1 21 00 01 ..|.......0..!..
0088C0: 7E FE C9 CA 9E 01 7A 3D B3 C2 5F 01 3A 0D 01 B7 ~.....z=.._.:...
0088D0: C2 5F 01 2A 0A 01 22 06 00 22 94 03 CD F8 01 2A ._.*.."..".....*
0088E0: 9A 03 F9 AF 6F 67 C9 11 FE 00 2A 9A 03 F9 E1 E5 ....og....*.....
0088F0: 25 7C B5 EB 7D 44 C0 0E 09 11 53 03 CD 05 00 C3 %|..}D....S.....
008900: 5F 0E 0E C3 05 00 06 E0 C3 F9 0B 01 0F 00 11 AD _...............
008910: 0D 21 20 00 19 36 00 C5 D5 1A A0 3D F4 80 09 11 .! ..6.....=....
008920: A2 0D CD 7B 09 D1 C1 D5 2A 8D 03 2E E7 70 E5 CD ...{....*....p..
008930: 05 00 D1 AF 12 3A 72 0D 1E DA 12 E5 CD 78 09 E1 .....:r......x..
008940: 2C D1 C9 0E 11 C3 CA 09 0E 12 11 5C 00 CD 05 00 ,..........\....
008950: 3C C8 3D 87 87 87 87 87 21 80 00 CD B0 0C EB AF <.=.....!.......
008960: 3D C9 AF 32 9F 0D 0E 14 11 5C 00 CD 05 00 B7 C9 =..2.....\......
008970: 11 73 0D C3 EB 09 CD EE 0B EB AF 32 A1 0D 21 F6 .s.........2..!.
008980: 0D CD 44 0A EB FE 3B C8 FE 21 CA 1C 0A FE 3A C2 ..D...;..!....:.
008990: 1D 0A 2E AC 34 34 CA 1C 0A 23 34 C8 13 EB 22 6C ....44...#4..."l
0089A0: 0D 7E FE 5B C2 2A 0A 32 A1 0D FE 61 DA 37 0A FE .~.[.*.2...a.7..
0089B0: 7B D2 37 0A D6 20 77 FE 21 CC 59 0A 23 B7 C2 21 {.7.. w.!.Y.#..!
0089C0: 0A 2A 6C 0D 22 6C 0D 22 9B 0D 7E B7 C8 FE 20 CA .*l."l."..~... .
0089D0: 55 0A FE 09 C0 23 C3 44 0A 5D 54 13 1A FE 21 F5 U....#.D.]T...!.
0089E0: E5 CC B7 0B E1 F1 C8 36 00 EB 2A 06 00 25 2E 18 .......6..*..%..
0089F0: 77 E5 23 13 1A 77 FE 21 C2 7D 0A 36 0D B7 C2 72 w.#..w.!.}.6...r
008A00: 0A 36 0D 23 77 2E 06 36 C3 23 36 09 23 74 23 36 .6.#w..6.#6.#t#6
008A10: C3 2E 0E 77 6F EB CD D0 01 2A 8D 03 2E B1 D1 13 ...wo....*......
008A20: 73 23 72 2E AE 72 AF C9 11 B1 BA CD A7 0B B7 11 s#r..r..........
008A30: B1 BC CC A7 0B E5 CD 6D 09 E1 2E B1 C2 CB 0A 5E .......m.......^
008A40: 23 56 34 35 2B CA CB 0A 1A B7 C0 AF 77 23 77 2E #V45+.......w#w.
008A50: AE 66 2E 0E 35 C3 00 02 11 5C 00 CD 41 0A F5 CD .f..5....\..A...
008A60: E4 0A F1 C9 22 6C 0D 22 9B 0D D5 11 6C 0D 0E 98 ...."l."....l...
008A70: CD 05 00 D1 7C B5 46 23 C2 FE 0A 21 28 0B 7C B5 ....|.F#...!(.|.
008A80: C2 09 0B 21 28 0B CD 3A 0C 78 FE 2E C2 10 0B 2B ...!(..:.x.....+
008A90: 22 6C 0D 0E 10 21 D0 0D D5 CD AE 0B 11 A2 0D 0E "l...!..........
008AA0: 0A CD AE 0B D1 7E 21 00 00 B7 47 CA 38 0B 2A 9B .....~!...G.8.*.
008AB0: 0D 7E FE 3B 23 C2 31 0B C9 D5 AF 12 13 12 13 CD .~.;#.1.........
008AC0: 41 0A 2A 6C 0D D1 D5 06 04 7E FE 3A CA 67 0B B7 A.*l.....~.:.g..
008AD0: C3 0A 04 05 23 C2 49 0B D1 AF 12 2A 6C 0D 13 1A ....#.I....*l...
008AE0: F5 CD E4 0A F1 12 C9 2A 6C 0D 7E FE 30 DA 85 0B .......*l.~.0...
008AF0: FE 3A D2 85 0B CD 71 0C D1 D5 1A B7 C2 58 0B 78 .:....q......X.x
008B00: 00 00 23 4E 23 46 3A 8F 03 B7 CA 92 01 23 34 CA ..#N#F:......#4.
008B10: 9D 01 D5 CD 0F 03 E1 CD CA 02 CD D0 01 E1 11 10 ................
008B20: 00 19 E5 5E 23 56 7B B2 C2 82 01 CD 03 01 3A 00 ...^#V{.......:.
008B30: 02 FE C9 C2 BF 01 2A 8D 03 2E B3 7E F6 02 77 2A ......*....~..w*
008B40: 01 01 44 4D 21 00 02 11 00 01 CD 26 03 C3 5F 01 ..DM!......&.._.
008B50: 2A 06 00 2E 00 01 06 00 CD 26 03 1E 18 12 1E 0D *........&......
008B60: 12 1B 3E 07 12 6B 1E 0B 73 23 72 EB 72 2B 36 06 ..>..k..s#r.r+6.
008B70: 2E 06 22 06 00 22 94 03 11 92 03 0E 31 C3 05 00 ..".."......1...
008B80: 2A 06 00 44 60 2E 18 34 35 C0 2E 0B 46 2E 0E 7E *..D`..45...F..~
008B90: B7 CA 04 02 2E 0C 5E 23 56 78 12 1B 3E 06 12 13 ......^#Vx..>...
008BA0: 60 2E 0C 73 23 72 7A B7 C5 CC F0 01 C1 C3 04 02 `..s#rz.........
008BB0: E5 11 90 03 CD FB 01 EB E1 E5 01 20 00 09 36 00 ........... ..6.
008BC0: 23 4E 23 66 69 25 24 CA 67 01 E5 D5 E5 CD 31 03 #N#fi%$.g.....1.
008BD0: E1 F5 1E 80 3A 07 00 3D 94 DA FA 02 3C FE 40 D2 ....:..=....<.@.
008BE0: 76 02 07 5F 7D B7 CA 76 02 06 02 3D FA 70 02 05 v.._}..v...=.p..
008BF0: 7B 90 CA FA 02 5F D5 E5 CD 33 03 E1 E5 CD 3B 03 {...._...3....;.
008C00: E1 D1 F5 7B 3C 1F 84 67 22 96 03 F1 CA 54 02 C1 ...{<..g"....T..
008C10: 3D 58 CD 33 03 0E 1A D1 F5 CD 05 00 F1 2A 9C 03 =X.3.........*..
008C20: EB C2 6A 01 D1 E1 01 09 00 09 7E E6 7F FE 50 C0 ..j.......~...P.
008C30: 23 7E E6 7F FE 52 C0 23 7E E6 7F D6 4C C0 7B B7 #~...R.#~...L.{.
008C40: C2 67 01 62 6B 23 4E 23 46 6B 24 D5 C5 CD 26 03 .g.bk#N#Fk$...&.
008C50: C1 D1 D5 5A 1D E5 63 1E 00 78 B1 CA F7 02 0B 7B ...Z..c..x.....{
008C60: E6 07 C2 EA 02 E3 7E 23 E3 6F 7D 17 6F D2 F3 02 ......~#.o}.o...
008C70: 1A 84 12 13 C3 D9 02 D1 D1 C9 CD 31 03 21 80 00 ...........1.!..
008C80: CD 3B 03 C2 8F 02 21 FE 00 22 9C 03 C3 8F 02 3A .;....!..".....:
008C90: 07 00 3D 0B 90 03 FE 0F DA 77 01 2A 96 03 BC DA ..=......w.*....
008CA0: 77 01 57 1E 00 C9 78 B1 C8 0B 7E 12 13 23 C3 26 w.W...x...~..#.&
008CB0: 03 1E 01 2A 8D 03 2E E6 7E 73 C9 EB 0E 1A E5 CD ...*....~s......
008CC0: 05 00 0E 14 2A 98 03 EB CD 05 00 22 9C 03 D1 B7 ....*......"....
008CD0: C8 5C C9 0D 0A 43 61 6E 6E 6F 74 20 6C 6F 61 64 .\...Cannot load
008CE0: 20 50 72 6F 67 72 61 6D 24 32 32 31 32 38 32 20 Program$221282
008CF0: 20 43 4F 50 59 52 20 27 38 32 20 44 52 49 20 00 COPYR '82 DRI .
008D00: 3C 12 C3 9C 0B FE 41 DA 58 0B FE 51 D2 58 0B D1 <.....A.X..Q.X..
008D10: D5 13 1A B7 C2 58 0B 7E D6 40 12 23 7E FE 3A C2 .....X.~.@.#~.:.
008D20: 6B 0B 23 D1 C3 5E 0B 2A 8D 03 6A 54 0E 02 7E 12 k.#..^.*..jT..~.
008D30: 23 13 0D C2 AE 0B C9 0E 00 1A 77 B7 79 C8 23 13 #.........w.y.#.
008D40: 03 C3 B9 0B AF 21 9F 0D 34 FC E2 09 B7 C0 3A 9F .....!..4.....:.
008D50: 0D 21 80 00 CD B0 0C AF 7E C9 01 40 B4 2A 8D 03 .!......~..@.*..
008D60: 68 7E A1 C9 01 A0 B4 CD DD 0B 79 B6 77 C9 01 A0 h~........y.w...
008D70: B4 CD DD 0B 79 2F A6 77 C9 2A 8D 03 68 77 C9 2A ....y/.w.*..hw.*
008D80: 8D 03 68 7E C9 CD 49 09 45 3E 0D CD A6 0C 3E 0A ..h~..I.E>....>.
008D90: C3 A6 0C D6 0A DA 25 0C 1E 30 1C D6 0A D2 1A 0C ......%..0......
008DA0: F5 CD 3C 09 F1 C6 3A C3 16 09 7E B7 C8 B9 C8 CD ..<...:...~.....
008DB0: A6 0C 23 C3 2A 0C CD 41 0A C8 21 67 0D 7E B7 36 ..#.*..A..!g.~.6
008DC0: 00 C0 2A 9B 0D 0E 20 CD 2A 0C 3E 3F CD 16 09 C3 ..*... .*.>?....
008DD0: 06 05 CD 41 0A 2A 6C 0D 22 9B 0D C8 7E FE 30 DA ...A.*l."...~.0.
008DE0: 3A 0C FE 3A D2 3A 0C CD 71 0C 22 6C 0D F6 01 78 :..:.:..q."l...x
008DF0: C9 06 00 7E D6 30 D8 FE 0A D0 F5 78 87 87 80 87 ...~.0.....x....
008E00: 47 F1 23 80 47 FE 10 DA 73 0C C3 3A 0C 13 26 08 G.#.G...s..:..&.
008E10: CD 98 0C CD A4 0C 26 03 1A E6 7F CD A6 0C 13 25 ......&........%
008E20: C2 98 0C C9 3E 20 C5 D5 E5 CD 16 09 E1 D1 C1 C9 ....> ..........
008E30: 85 6F D0 24 C9 3E 3F 12 13 05 C2 B7 0C B7 C9 01 .o.$.>?.........
008E40: FF 00 D5 E5 1A E6 7F FE 21 DA D0 0C BE C2 E0 0C ........!.......
008E50: 13 0C 3E 20 BE 23 C2 C4 0C E1 D1 CD AE 0B 78 C9 ..> .#........x.
008E60: 3E 20 BE 23 C2 E2 0C D1 D1 04 0E FF 7E D6 01 D2 > .#........~...
008E70: C2 0C C9 45 6E 74 65 72 20 55 73 65 72 20 23 3A ...Enter User #:
008E80: 20 24 4E 6F 20 46 69 6C 65 24 20 72 65 71 75 69 $No File$ requi
008E90: 72 65 64 24 45 52 41 53 45 20 24 20 28 59 2F 4E red$ERASE $ (Y/N
008EA0: 29 3F 20 24 0D 0A 0D 0A 50 72 65 73 73 20 52 45 )? $....Press RE
008EB0: 54 55 52 4E 20 74 6F 20 43 6F 6E 74 69 6E 75 65 TURN to Continue
008EC0: 20 24 20 20 28 55 73 65 72 20 30 29 24 00 4E 4F $ (User 0)$.NO
008ED0: 4E 2D 53 59 53 54 45 4D 20 46 49 4C 45 28 53 29 N-SYSTEM FILE(S)
008EE0: 20 45 58 49 53 54 24 00 00 00 3A 00 00 00 D0 0D EXIST$...:.....
008EF0: 00 00 00 01 24 24 24 20 20 20 20 20 53 55 42 00 ....$$$ SUB.
008F00: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008F10: 3C 00 62 FE 00 80 00 00 80 48 41 10 04 12 24 12 <.b......HA...$.
008F20: 40 08 00 10 00 88 44 48 00 20 04 80 00 09 00 20 @.....DH. .....
008F30: 00 00 01 20 00 00 10 00 00 11 12 00 00 41 00 10 ... .........A..
008F40: 40 82 08 21 00 22 08 01 10 00 00 00 20 01 00 04 @..!."...... ...
008F50: 08 01 02 08 24 12 00 24 40 00 84 00 02 04 00 00 ....$..$@.......
008F60: 00 00 00 00 00 00 00 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
008F70: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
008F80: 00 00 00 AF 32 4D 0D C3 99 06 CA 58 0B FE 20 CA ....2M.....X.. .
008F90: 58 0B FE 09 CA 58 0B C3 53 0B 31 2D 0F 21 0C 05 X....X..S.1-.!..
008FA0: E5 11 6A 0D 0E 31 CD 05 00 22 8D 03 2E FA 7E 32 ..j..1..."....~2
008FB0: 8F 03 2E 99 7E 32 A0 0D 3A 07 00 96 C2 58 04 01 ....~2..:....X..
008FC0: 94 02 CD 0F 03 63 6B CD CA 02 2A 06 00 6B 0E 06 .....ck...*..k..
008FD0: CD AE 0B 1E 0B CD EB 01 0E 62 CD 05 00 06 B6 CD .........b......
008FE0: FF 0B 3C 0F 0F 0F 0F E6 0F 11 97 0D 12 2E B8 7E ..<............~
008FF0: 3D 13 12 AF 13 12 3E 24 13 12 2E D3 77 2E E6 36 =.....>$....w..6
009000: 01 23 AF 77 2E CF 36 01 23 77 2E A1 36 31 2E B4 .#.w..6.#w..61..
009010: 7E E6 20 0E 0D E5 C4 05 00 E1 2E B3 7E E6 02 E5 ~. .........~...
009020: CC 00 02 E1 7E E6 FD 77 E6 40 E5 2E B0 01 70 0D ....~..w.@....p.
009030: 54 1E E0 1A 02 7E C2 BA 04 02 12 03 1E DA 1A C2 T....~..........
009040: C4 04 3E FF 02 2B 03 7E 02 12 2E EC 03 7E 02 E1 ..>..+.~.....~..
009050: 7E E6 80 CA E7 04 21 80 00 11 F5 0D 0E 7F 79 12 ~.....!.......y.
009060: 13 CD AE 0B C3 8B 05 2E B5 7E E6 02 C2 06 05 7E .........~.....~
009070: F6 02 77 32 67 0D 21 FC 04 C3 D9 04 50 52 4F 46 ..w2g.!.....PROF
009080: 49 4C 45 2E 53 00 CD E4 0B CD 09 0C 21 2B 0F F9 ILE.S.......!+..
009090: AF 32 99 0D 21 0C 05 E5 CD E4 0B 2B 7E E6 01 CA .2..!......+~...
0090A0: 64 05 11 F5 0D CD 7B 09 0E 0F CD F0 09 0E 0B CC d.....{.........
0090B0: F0 09 C2 4F 05 21 96 0D 77 2B 77 2B E5 3A 82 0D ...O.!..w+w+.:..
0090C0: 3D 77 0E 21 F4 F0 09 E1 35 0E 13 FC F0 09 B7 F5 =w.!....5.......
0090D0: 0E 63 CD F0 09 F1 CA 8B 05 01 01 B3 CD F1 0B 0E .c..............
0090E0: 13 CD F0 09 3A 70 0D B7 C4 13 0C CD 6D 06 3E 3E ....:p......m.>>
0090F0: CD 16 09 11 BA B1 CD A7 0B B7 F5 01 80 B4 C4 F1 ................
009100: 1A 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009110: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009120: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009130: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009140: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009150: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009160: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009170: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009180: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009190: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0091A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0091B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0091C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0091D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0091E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0091F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009200: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009210: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009220: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009230: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009240: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009250: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009260: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009270: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009280: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009290: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0092A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0092B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0092C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0092D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0092E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0092F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009300: 0B CD 4E 09 CD EE 0B F1 C4 A8 0A CD DA 0B C2 96 ..N.............
009310: 05 2E C9 7E 2B 77 2E C8 7E 32 9A 0D CD F6 09 C8 ...~+w..~2......
009320: 11 AC 0D CD 39 0B 3A B6 0D FE 20 C2 04 06 21 AC ....9.:... ...!.
009330: 0D 7E 23 B6 23 7E C2 0A 06 21 37 06 11 AE 0D 3A .~#.#~...!7....:
009340: B0 0D FE 21 D4 BF 0C C2 E8 05 3A A1 0D B7 78 2A ...!......:...x*
009350: 6C 0D 22 9D 0D 21 5A 06 CA 58 08 FE 04 DA 86 07 l."..!Z..X......
009360: 21 B1 0D C2 E8 05 36 20 01 18 B4 CD DD 0B CA 04 !.....6 ........
009370: 06 06 08 90 CA F9 05 06 00 C5 CD 7A 08 CD E4 07 ...........z....
009380: F1 CD 7A 08 CD E4 07 C3 3A 0C FE 20 C2 E8 05 CD ..z.....:.. ....
009390: 36 0C 3A AC 0D D6 01 DA 25 06 32 70 0D 06 B0 CD 6.:.....%.2p....
0093A0: F9 0B CD 86 09 3A AD 0D 3D F8 F5 CD 80 09 F1 32 .....:..=......2
0093B0: 72 0D 06 AF C3 F9 0B 44 49 52 20 54 59 50 45 20 r......DIR TYPE
0093C0: 45 52 41 53 45 20 52 45 4E 41 4D 45 20 44 49 52 ERASE RENAME DIR
0093D0: 53 59 53 20 55 53 45 52 20 00 75 06 F4 06 22 07 SYS USER .u...".
0093E0: 51 07 7D 06 15 07 3A 5C 00 3D F2 70 06 3A 72 0D Q.}...:\.=.p.:r.
0093F0: C6 41 C3 A6 0C 0E 00 11 52 0D C3 82 06 0E 80 11 .A......R.......
009400: 4E 0D D5 CD 03 04 D1 CA B8 07 7D B8 D4 09 0C 21 N.........}....!
009410: 4D 0D 35 34 C8 35 C3 05 0C C5 CD 78 09 CD D8 0A M.54.5.....x....
009420: 11 5D 00 1A FE 20 06 0B CC B5 0C CD 36 0C CD C3 .]... ......6...
009430: 09 C1 C8 3A 97 0D 6F 47 04 E5 21 0A 00 19 7E E1 ...:..oG..!...~.
009440: E6 80 B9 CA CE 06 3E 01 32 4D 0D C3 E5 06 05 CC ......>.2M......
009450: 08 0C 78 BD CC 66 06 3E 3A CD A6 0C CD A4 0C CD ..x..f.>:.......
009460: 8D 0C CD A4 0C C5 E5 CD 66 09 CD C8 09 E1 C1 C2 ........f.......
009470: B9 06 3C C9 21 06 05 E5 CD D8 0A 3E 7F 32 9F 0D ..<.!......>.2..
009480: 0E 0F CD 6C 07 CD 66 09 CD C4 0B C0 FE 1A C8 CD ...l..f.........
009490: 16 09 C3 05 07 11 F3 0C CD AB 07 CD 52 0C C8 C3 ............R...
0094A0: 1A 06 CD D8 0A CA 4C 07 CD 9E 07 C2 4C 07 11 14 ......L.....L...
0094B0: 0D CD 49 09 2A 9B 0D 0E 20 CD 2A 0C 11 1B 0D CD ..I.*... .*.....
0094C0: 41 09 CD 09 0C 7D E6 5F FE 59 C0 B7 0E 13 C3 6C A....}._.Y.....l
0094D0: 07 CD D8 0A F5 21 10 00 19 EB D5 E5 0E 10 CD AE .....!..........
0094E0: 0B CD D8 0A E1 D1 CD 92 07 0E 17 F1 F5 C4 36 0C ..............6.
0094F0: F1 11 5C 00 06 FF 26 01 C4 91 09 C0 25 FA B8 07 ..\...&.....%...
009500: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009510: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009520: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009530: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009540: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009550: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009560: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009570: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009580: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009590: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0095A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0095B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0095C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0095D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0095E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0095F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009600: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009610: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009620: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009630: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009640: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009650: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009660: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009670: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009680: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009690: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0096A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0096B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0096C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0096D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0096E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0096F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009700: 2A 9D 0D 22 6C 0D CD E4 07 CD 8D 0C 11 0A 0D C3 *.."l...........
009710: BB 07 1A BE C8 B7 C8 34 35 C2 3A 0C 77 C9 06 0B .......45.:.w...
009720: 13 1A FE 3F C8 05 C2 A0 07 05 C9 CD 41 0A C0 CD ...?........A...
009730: 49 09 CD 4E 09 C3 F6 09 11 02 0D CD 05 0C C3 0C I..N............
009740: 05 00 53 55 42 4D 49 54 20 20 43 4F 4D 1A 06 AB ..SUBMIT COM...
009750: CD F9 0B 21 C1 07 0E 0C CD AE 0B 21 F5 0D 36 20 ...!.......!..6
009760: 23 22 6C 0D 11 B6 0D 21 63 08 CD BF 0C C0 11 AC #"l....!c.......
009770: 0D 1A B7 C0 13 1A 4F C5 0E 00 B7 C2 21 08 01 04 ......O.....!...
009780: E7 3A 72 0D 3C 67 2E 01 04 0D 79 E5 F4 FF 0B E1 .:r.<g....y.....
009790: B7 FA 76 08 CA 1B 08 BC C2 20 08 7C 2D FA 08 08 ..v...... .|-...
0097A0: 12 C5 E5 CD 8B 09 E1 C1 CA 08 08 01 03 B4 CD DD ................
0097B0: 0B CA 54 08 1A CD 69 06 3E 3A CD A6 0C D5 CD 8D ..T...i.>:......
0097C0: 0C D1 D5 21 08 00 19 7E E6 80 11 42 0D C4 49 09 ...!...~...B..I.
0097D0: CD 09 0C D1 F1 21 70 08 87 CD B0 0C D5 5E 23 56 .....!p......^#V
0097E0: EB D1 E9 43 4F 4D 20 53 55 42 20 50 52 4C 20 00 ...COM SUB PRL .
0097F0: 89 08 CD 07 89 08 C1 79 12 C9 0F 21 63 08 CD B0 .......y...!c...
009800: 0C 11 B6 0D 0E 03 C3 AE 0B 21 00 01 22 CE 0D 2A .........!.."..*
009810: 9F 0D 25 2E C0 E5 1A 32 50 00 EB 0E 23 CD AE 0B ..%....2P...#...
009820: 21 67 0D 34 2A 6C 0D 2B 11 81 00 EB 22 6C 0D CD !g.4*l.+...."l..
009830: B7 0B 32 80 00 CD D8 0A 22 51 00 78 32 53 00 11 ..2....."Q.x2S..
009840: 6C 00 CD DB 0A 22 54 00 78 32 56 00 21 71 0D 7E l...."T.x2V.!q.~
009850: B7 F4 80 09 3A 70 0D CD 86 09 87 87 87 87 2E DA ....:p..........
009860: B6 32 04 00 D1 2A 9F 0D AF 6F F9 67 E5 24 E5 32 .2...*...o.g.$.2
009870: 7C 00 06 CF CD F9 0B 2E 90 77 23 77 23 77 23 77 |........w#w#w#w
009880: 2E B3 7E E6 80 C2 0D 09 2E AC 77 23 77 7E E6 3F ..~.......w#w~.?
009890: 77 0E 3B C3 05 00 FE 0A C2 3B 09 21 98 0D 7E 23 w.;......;.!..~#
0098A0: 34 96 C2 39 09 77 23 7E B7 11 24 0D CC 41 09 FE 4..9.w#~..$..A..
0098B0: 03 CA 06 05 1E 0D CD 3C 09 3E 0A 5F 0E 02 C3 05 .......<.>._....
0098C0: 00 CD 49 09 0E 01 C3 05 00 0E 09 C3 05 00 21 F4 ..I...........!.
0098D0: 0D 36 E7 EB 0E 0A CD 05 00 21 F5 0D 7E 23 CD B0 .6.......!..~#..
0098E0: 0C 36 00 C3 09 0C CD 6D 09 C8 C3 06 05 0E 0B CD .6.....m........
0098F0: EB 09 C8 0E 01 C3 EB 09 11 80 00 0E 1A C3 05 00 ................
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: 31 D2 0C C3 8A 02 00 00 00 00 00 00 00 00 00 00 1...............
009A10: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009A20: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009A30: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009A40: 43 50 2F 4D 20 56 65 72 73 69 6F 6E 20 33 2E 30 CP/M Version 3.0
009A50: 43 4F 50 59 52 49 47 48 54 20 31 39 38 32 2C 20 COPYRIGHT 1982,
009A60: 44 49 47 49 54 41 4C 20 52 45 53 45 41 52 43 48 DIGITAL RESEARCH
009A70: 31 35 31 32 38 32 00 00 00 00 36 35 34 33 32 31 151282....654321
009A80: 0D 0A 0D 0A 50 72 65 73 73 20 52 45 54 55 52 4E ....Press RETURN
009A90: 20 74 6F 20 43 6F 6E 74 69 6E 75 65 20 24 0D 0A to Continue $..
009AA0: 45 52 52 4F 52 3A 20 4E 6F 74 20 74 79 70 65 64 ERROR: Not typed
009AB0: 3A 20 24 50 61 73 73 77 6F 72 64 3A 20 24 4E 6F : $Password: $No
009AC0: 20 46 69 6C 65 24 0D 0A 42 44 4F 53 20 42 61 64 File$..BDOS Bad
009AD0: 20 53 65 63 74 6F 72 24 0D 0A 49 6E 76 61 6C 69 Sector$..Invali
009AE0: 64 20 44 72 69 76 65 24 43 75 72 72 65 6E 74 6C d Drive$Currentl
009AF0: 79 20 4F 70 65 6E 65 64 24 50 61 73 73 77 6F 72 y Opened$Passwor
009B00: 64 20 45 72 72 6F 72 24 45 52 52 4F 52 3A 20 24 d Error$ERROR: $
009B10: 49 6E 76 61 6C 69 64 20 6F 72 20 6D 69 73 73 69 Invalid or missi
009B20: 6E 67 20 64 65 6C 69 6D 69 74 65 72 28 73 29 20 ng delimiter(s)
009B30: 24 54 72 79 20 27 50 41 47 45 27 20 6F 72 20 27 $Try 'PAGE' or '
009B40: 4E 4F 20 50 41 47 45 27 20 24 52 65 71 75 69 72 NO PAGE' $Requir
009B50: 65 73 20 43 50 2F 4D 20 33 2E 30 24 45 6E 74 65 es CP/M 3.0$Ente
009B60: 72 20 66 69 6C 65 3A 20 24 0D 0A 24 45 52 52 4F r file: $..$ERRO
009B70: 52 3A 20 49 6E 76 61 6C 69 64 20 66 69 6C 65 20 R: Invalid file
009B80: 6E 61 6D 65 2E 20 24 31 D2 0C 31 D2 0C CD 75 05 name. $1..1...u.
009B90: 22 D8 0C 2A D8 0C 7D D6 30 9F 2A D8 0C F5 7C D6 "..*..}.0.*...|.
009BA0: 01 D6 01 9F C1 48 B1 1F D2 B4 02 01 4A 02 CD 3E .....H......J..>
009BB0: 05 CD D7 05 CD 4F 06 01 81 00 CD 18 08 2F 1F D2 .....O......./..
009BC0: 34 03 01 5C 02 CD 3E 05 1E 28 01 80 00 CD 4E 05 4..\..>..(....N.
009BD0: 32 E0 0C 01 69 02 CD 3E 05 21 81 00 36 20 E5 2A 2...i..>.!..6 .*
009BE0: E0 0C 26 00 C1 03 09 36 00 21 D3 0C 36 02 3A E0 ..&....6.!..6.:.
009BF0: 0C 3C 21 D3 0C BE DA 34 03 2A D3 0C 26 00 01 80 .<!....4.*..&...
009C00: E5 E5 60 69 5E 23 56 23 7E 23 66 6F CD 3A 0C CD ..`i^#V#~#fo.:..
009C10: F8 0B C2 1E 0B 79 B7 C2 A0 0B 77 C3 4F 0B 47 13 .....y....w.O.G.
009C20: 1A FE 3A C2 4C 0B 78 D6 41 DA A0 0B FE 10 D2 A0 ..:.L.x.A.......
009C30: 0B 3C 77 13 CD F8 0B C2 4F 0B FE 2E CA A0 0B FE .<w.....O.......
009C40: 3A CA A0 0B FE 3B CA A0 0B C3 4F 0B 1B 36 00 06 :....;....O..6..
009C50: 08 CD A6 0B 06 03 FE 2E CA 61 0B CD F0 0B C3 65 .........a.....e
009C60: 0B 13 CD A6 0B 06 04 23 36 00 05 C2 67 0B 06 08 .......#6...g...
009C70: FE 3B CA 7B 0B CD F0 0B C3 7F 0B 13 CD C9 0B D5 .;.{............
009C80: CD 3A 0C CD F8 0B C2 8E 0B 33 33 C3 8F 0B D1 79 .:.......33....y
009C90: B7 C1 79 C1 23 71 23 70 23 77 EB C0 21 00 00 C9 ..y.#q#p#w..!...
009CA0: E1 E1 21 FF FF C9 CD F8 0B CA F0 0B 23 FE 2A C2 ..!.........#.*.
009CB0: BB 0B 36 3F 05 C2 A6 0B C3 BD 0B 77 05 13 C2 A6 ..6?.......w....
009CC0: 0B CD F8 0B C8 E1 C3 A0 0B CD F8 0B CA F0 0B 33 ...............3
009CD0: 33 33 33 33 33 D5 E5 2E 00 E3 3B 3B 33 33 E3 2C 33333.....;;33.,
009CE0: E3 3B 3B 23 77 13 05 CA C1 0B CD F8 0B C2 DC 0B .;;#w...........
009CF0: 23 36 20 05 C2 F0 0B C9 1A 4F B7 C8 0E 00 FE 0D #6 ......O......
009D00: C8 4F FE 09 C8 FE 20 DA 36 0C C8 FE 2E C8 FE 3A .O.... .6......:
009D10: C8 FE 3B C8 FE 3D C8 FE 2C C8 FE 2F C8 FE 5B C8 ..;..=..,../..[.
009D20: FE 5D C8 FE 3C C8 FE 3E C8 FE 61 D8 FE 7B D2 33 .]..<..>..a..{.3
009D30: 0C E6 5F E6 7F C9 E1 C3 A0 0B 1A FE 20 CA 46 0C .._......... .F.
009D40: FE 09 CA 46 0C C9 13 C3 3A 0C 69 60 4E 23 46 1A ...F....:.i`N#F.
009D50: 91 6F 13 1A 98 67 C9 6F 26 00 1A 95 6F 13 1A 9C .o...g.o&...o...
009D60: 67 C9 5F 16 00 7B 96 5F 7A 23 9E 57 EB C9 00 00 g._..{._z#.W....
009D70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009D80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009D90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009DA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009DB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009DC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009DD0: 00 00 00 00 00 00 00 00 00 00 00 00 FF 00 00 00 ................
009DE0: 00 00 00 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
009DF0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
009E00: 00 09 7E FE 61 DA 2A 03 2A D3 0C 26 00 01 80 00 ..~.a.*.*..&....
009E10: 09 7E FE 7D D2 2A 03 2A D3 0C 26 00 01 80 00 09 .~.}.*.*..&.....
009E20: 7E D6 20 2A D3 0C 26 00 09 77 3A D3 0C 3C 32 D3 ~. *..&..w:..<2.
009E30: 0C C2 EE 02 21 D6 0C 36 00 2B 36 00 21 81 00 22 ....!..6.+6.!.."
009E40: 1E 0D 21 5C 00 22 20 0D 01 1E 0D CD FD 0A 22 DE ..!\." .......".
009E50: 0C 01 FF FF 11 DE 0C CD 4F 0C B5 C2 67 03 01 6C ........O...g..l
009E60: 02 CD 3E 05 CD D7 05 0E 2C CD F9 05 FE 00 CA 76 ..>.....,......v
009E70: 03 21 DC 0C 36 00 3E 00 11 DE 0C CD 57 0C B5 CA .!..6.>.....W...
009E80: B9 04 CD D8 0A 2A DE 0C 7E FE 00 C2 91 03 C3 B9 .....*..~.......
009E90: 04 2A DE 0C 7E FE 5B CA 9F 03 0E 00 CD EE 07 2A .*..~.[........*
009EA0: DE 0C 23 22 DE 0C CD D8 0A 2A DE 0C 7E FE 4E C2 ..#".....*..~.N.
009EB0: EA 03 2A DE 0C 23 22 DE 0C 2A DE 0C 7E D6 4F D6 ..*..#"..*..~.O.
009EC0: 01 9F 2A DE 0C F5 7E D6 20 D6 01 9F C1 48 B1 1F ..*...~. ....H..
009ED0: D2 E2 03 2A DE 0C 23 22 DE 0C 21 DD 0C 36 FF C3 ...*..#"..!..6..
009EE0: E7 03 0E 01 CD EE 07 CD D8 0A 2A DE 0C 7E FE 50 ..........*..~.P
009EF0: C2 FB 03 21 DC 0C 36 FF C3 00 04 0E 01 CD EE 07 ...!..6.........
009F00: 2A DE 0C 23 22 DE 0C 2A DE 0C 7E D6 5D D6 01 9F *..#"..*..~.]...
009F10: 2A DE 0C F5 7E D6 00 D6 01 9F C1 48 B1 1F D2 24 *...~......H...$
009F20: 04 C3 B9 04 2A DE 0C 7E FE 41 CA 30 04 C3 97 04 ....*..~.A.0....
009F30: 2A DE 0C 23 22 DE 0C 2A DE 0C 7E D6 5D D6 01 9F *..#"..*..~.]...
009F40: 2A DE 0C F5 7E D6 00 D6 01 9F C1 48 B1 1F D2 54 *...~......H...T
009F50: 04 C3 B9 04 2A DE 0C 7E FE 47 CA 60 04 C3 97 04 ....*..~.G.`....
009F60: 2A DE 0C 23 22 DE 0C 2A DE 0C 7E D6 5D D6 01 9F *..#"..*..~.]...
009F70: 2A DE 0C F5 7E D6 00 D6 01 9F C1 48 B1 1F D2 84 *...~......H....
009F80: 04 C3 B9 04 2A DE 0C 7E FE 45 CA 90 04 C3 97 04 ....*..~.E......
009F90: 2A DE 0C 23 22 DE 0C CD D8 0A 2A DE 0C 7E D6 5D *..#".....*..~.]
009FA0: C6 FF 9F 2A DE 0C F5 7E D6 00 C6 FF 9F C1 48 A1 ...*...~......H.
009FB0: 1F D2 B9 04 0E 01 CD EE 07 3A DD 0C 1F D2 C7 04 .........:......
009FC0: 3A DC 0C 2F 32 DC 0C 3A DC 0C 1F D2 E8 04 0E 1C :../2..:........
009FD0: CD F9 05 3D 3D 32 D5 0C 3A D5 0C FE 00 C2 E5 04 ...==2..:.......
009FE0: 21 D5 0C 36 16 C3 ED 04 21 D5 0C 36 00 01 5C 00 !..6....!..6..\.
009FF0: CD 4F 08 32 E2 0C 3A E2 0C FE FF C2 04 05 CD DB .O.2..:.........
00A000: 20 20 20 20 20 20 50 52 4F 47 52 41 4D 20 62 75 PROGRAM bu
00A010: 62 62 6C 65 33 3B 0D 0A 20 20 20 20 20 20 20 20 bble3;..
00A020: 0D 0A 20 20 20 20 20 20 20 20 28 2A 20 50 72 6F .. (* Pro
00A030: 67 72 61 6D 6D 65 74 20 73 6F 72 74 65 72 65 72 grammet sorterer
00A040: 20 65 6E 20 72 7B 6B 6B 65 20 74 61 6C 20 76 65 en r{kke tal ve
00A050: 64 20 62 75 62 62 6C 65 73 6F 72 74 2D 6D 65 74 d bubblesort-met
00A060: 6F 64 65 6E 20 2A 29 0D 0A 20 20 20 20 20 20 20 oden *)..
00A070: 20 28 2A 20 42 75 62 62 6C 65 73 6F 72 74 20 6D (* Bubblesort m
00A080: 65 64 20 66 6C 61 67 20 20 20 20 20 20 20 20 20 ed flag
00A090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00A0A0: 20 20 20 20 20 20 20 20 20 20 20 20 2A 29 0D 0A *)..
00A0B0: 20 20 20 20 20 20 20 20 28 2A 20 55 64 73 6B 72 (* Udskr
00A0C0: 69 66 74 65 6E 20 6B 6F 6D 6D 65 72 20 70 7D 20 iften kommer p}
00A0D0: 73 6B 7B 72 6D 65 6E 20 20 20 20 20 20 20 20 20 sk{rmen
00A0E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00A0F0: 20 20 20 2A 29 0D 0A 20 20 20 20 20 20 20 20 0D *).. .
00A100: 0A 20 20 20 20 20 20 20 20 43 4F 4E 53 54 0D 0A . CONST..
00A110: 20 20 20 20 20 20 20 20 20 20 6D 61 78 20 3D 20 max =
00A120: 31 30 30 3B 0D 0A 20 20 20 20 20 20 20 20 0D 0A 100;.. ..
00A130: 20 20 20 20 20 20 20 20 54 59 50 45 0D 0A 20 20 TYPE..
00A140: 20 20 20 20 20 20 20 20 76 65 6B 74 6F 72 20 3D vektor =
00A150: 20 41 52 52 41 59 28 2E 31 20 2E 2E 20 6D 61 78 ARRAY(.1 .. max
00A160: 2E 29 20 4F 46 20 49 4E 54 45 47 45 52 3B 0D 0A .) OF INTEGER;..
00A170: 20 20 20 20 20 20 20 20 0D 0A 20 20 20 20 20 20 ..
00A180: 20 20 56 41 52 0D 0A 20 20 20 20 20 20 20 20 20 VAR..
00A190: 20 76 20 3A 20 76 65 6B 74 6F 72 3B 0D 0A 20 20 v : vektor;..
00A1A0: 20 20 20 20 20 20 20 20 69 2C 20 6A 2C 20 62 79 i, j, by
00A1B0: 74 20 3A 20 49 4E 54 45 47 45 52 3B 0D 0A 20 20 t : INTEGER;..
00A1C0: 20 20 20 20 20 20 20 20 73 6C 75 74 20 3A 20 42 slut : B
00A1D0: 4F 4F 4C 45 41 4E 3B 0D 0A 20 20 20 20 20 20 20 OOLEAN;..
00A1E0: 20 20 20 0D 0A 20 20 20 20 20 20 20 20 42 45 47 .. BEG
00A1F0: 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 52 41 IN.. RA
00A200: 09 C3 17 05 2E 10 11 E3 0C 01 5C 00 0A 12 03 13 ..........\.....
00A210: 2D C2 0C 05 CD CA 08 CD D7 05 FB 76 11 00 00 0E -..........v....
00A220: 01 CD 05 00 C9 21 04 0D 71 2A 04 0D 26 00 EB 0E .....!..q*..&...
00A230: 02 CD 05 00 C9 11 FD 00 0E 06 CD 05 00 C9 21 06 ..............!.
00A240: 0D 70 2B 71 2A 05 0D EB 0E 09 CD 05 00 C9 21 09 .p+q*.........!.
00A250: 0D 73 2B 70 2B 71 2A 07 0D 3A 09 0D 77 23 36 00 .s+p+q*..:..w#6.
00A260: 2A 07 0D EB 0E 0A CD 05 00 2A 07 0D 23 22 07 0D *........*..#"..
00A270: 4E 23 46 79 C9 11 00 00 0E 0C CD 05 00 C9 11 00 N#Fy............
00A280: 00 0E 0B CD 05 00 C9 21 0B 0D 70 2B 71 2A 0A 0D .......!..p+q*..
00A290: EB 0E 0F CD 05 00 C9 21 0D 0D 70 2B 71 2A 0C 0D .......!..p+q*..
00A2A0: EB 0E 10 CD 05 00 C9 21 0F 0D 70 2B 71 2A 0E 0D .......!..p+q*..
00A2B0: EB 0E 14 CD 05 00 C9 21 11 0D 70 2B 71 2A 10 0D .......!..p+q*..
00A2C0: EB 0E 1A CD 05 00 C9 21 12 0D 71 2A 12 0D 26 00 .......!..q*..&.
00A2D0: EB 0E 2D CD 05 00 C9 11 00 00 0E 00 CD 05 00 C9 ..-.............
00A2E0: 21 14 0D 70 2B 71 2A 13 0D EB 0E 11 CD 05 00 C9 !..p+q*.........
00A2F0: 11 00 00 0E 12 CD 05 00 C9 21 19 0D 71 3A 19 0D .........!..q:..
00A300: 32 15 0D 21 16 0D 36 00 11 15 0D 0E 31 CD 05 00 2..!..6.....1...
00A310: C9 21 1A 0D 71 3A 1A 0D 32 15 0D 21 16 0D 36 00 .!..q:..2..!..6.
00A320: 11 15 0D 0E 31 CD 05 00 C9 21 1D 0D 72 2B 73 2B ....1....!..r+s+
00A330: 71 3A 1B 0D 32 15 0D 21 16 0D 36 FE E5 2A 1C 0D q:..2..!..6..*..
00A340: EB E1 23 73 23 72 11 15 0D 0E 31 CD 05 00 C9 11 ..#s#r....1.....
00A350: 01 00 0E 6D CD 05 00 C9 0E 0D CD 25 05 0E 0A CD ...m.......%....
00A360: 25 05 C9 21 25 0D 73 2B 71 2B D1 C1 70 2B 71 D5 %..!%.s+q+..p+q.
00A370: 3A 25 0D 3D 32 25 0D FE FF CA 8D 06 2A 22 0D 3A :%.=2%......*".:
00A380: 24 0D 77 2A 22 0D 23 22 22 0D C3 70 06 C9 CD 35 $.w*".#""..p...5
00A390: 05 32 26 0D FE 61 DA A7 06 3A 26 0D FE 7B D2 A7 .2&..a...:&..{..
00A3A0: 06 3A 26 0D D6 20 C9 3A 26 0D C9 CD 58 06 CD 58 .:&.. .:&...X..X
00A3B0: 06 01 B3 01 CD 3E 05 01 6C 00 C5 1E 08 0E 20 CD .....>..l..... .
00A3C0: 63 06 21 27 0D 36 00 3E 07 21 27 0D BE DA 36 07 c.!'.6.>.!'...6.
00A3D0: CD 8E 06 32 28 0D FE 20 DA E8 06 2A 27 0D 26 00 ...2(.. ...*'.&.
00A3E0: 01 6C 00 09 3A 28 0D 77 3A 28 0D FE 0D C2 F3 06 .l..:(.w:(......
00A3F0: C3 36 07 3A 28 0D FE 18 C2 FE 06 C3 B7 06 3A 28 .6.:(.........:(
00A400: 4E 44 4F 4D 49 5A 45 3B 0D 0A 20 20 20 20 20 20 NDOMIZE;..
00A410: 20 20 20 20 46 4F 52 20 69 20 3A 3D 20 31 20 54 FOR i := 1 T
00A420: 4F 20 6D 61 78 20 44 4F 20 20 28 2A 20 56 69 20 O max DO (* Vi
00A430: 66 69 6E 64 65 72 20 66 7C 72 73 74 20 6E 6F 67 finder f|rst nog
00A440: 6C 65 20 74 61 6C 20 2A 29 0D 0A 20 20 20 20 20 le tal *)..
00A450: 20 20 20 20 20 20 20 76 28 2E 69 2E 29 20 3A 3D v(.i.) :=
00A460: 20 52 41 4E 44 4F 4D 28 32 30 30 29 3B 0D 0A 20 RANDOM(200);..
00A470: 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E WRITELN
00A480: 28 43 4C 52 48 4F 4D 2C 20 27 44 65 20 75 73 6F (CLRHOM, 'De uso
00A490: 72 74 65 72 65 64 65 20 74 61 6C 20 65 72 3A 27 rterede tal er:'
00A4A0: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 46 4F );.. FO
00A4B0: 52 20 69 20 3A 3D 20 31 20 54 4F 20 6D 61 78 20 R i := 1 TO max
00A4C0: 44 4F 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 DO..
00A4D0: 57 52 49 54 45 28 76 28 2E 69 2E 29 20 3A 20 34 WRITE(v(.i.) : 4
00A4E0: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 57 52 );.. WR
00A4F0: 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 20 20 20 20 ITELN;..
00A500: 20 20 69 20 3A 3D 20 6D 61 78 3B 0D 0A 20 20 20 i := max;..
00A510: 20 20 20 20 20 20 20 52 45 50 45 41 54 0D 0A 20 REPEAT..
00A520: 20 20 20 20 20 20 20 20 20 20 20 69 20 3A 3D 20 i :=
00A530: 69 20 2D 20 31 3B 0D 0A 20 20 20 20 20 20 20 20 i - 1;..
00A540: 20 20 20 20 73 6C 75 74 20 3A 3D 20 54 52 55 45 slut := TRUE
00A550: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 46 ;.. F
00A560: 4F 52 20 6A 20 3A 3D 20 31 20 54 4F 20 69 20 44 OR j := 1 TO i D
00A570: 4F 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 O..
00A580: 20 49 46 20 76 28 2E 6A 2E 29 20 3E 20 76 28 2E IF v(.j.) > v(.
00A590: 6A 20 2B 20 31 2E 29 0D 0A 20 20 20 20 20 20 20 j + 1.)..
00A5A0: 20 20 20 20 20 20 20 20 20 54 48 45 4E 0D 0A 20 THEN..
00A5B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00A5C0: 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 BEGIN..
00A5D0: 20 20 20 20 20 20 20 20 20 20 20 20 73 6C 75 74 slut
00A5E0: 20 3A 3D 20 46 41 4C 53 45 3B 0D 0A 20 20 20 20 := FALSE;..
00A5F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00A600: 0D FE 08 C2 24 07 3A 27 0D FE 01 D2 11 07 C3 B7 ....$.:'........
00A610: 06 3A 27 0D 3D 32 27 0D 4F 06 00 21 6C 00 09 36 .:'.=2'.O..!l..6
00A620: 20 C3 D0 06 3A 28 0D FE 03 C2 2F 07 CD D7 05 21 ...:(..../....!
00A630: 27 0D 34 C2 C7 06 CD 7E 05 32 28 0D C9 21 29 0D '.4....~.2(..!).
00A640: 71 3A 29 0D FE 00 C2 52 07 01 BE 01 CD 3E 05 CD q:)....R.....>..
00A650: D7 05 3A 29 0D FE 01 C2 63 07 01 C6 01 CD 3E 05 ..:)....c.....>.
00A660: CD D7 05 3A 29 0D FE 04 C2 74 07 01 D8 01 CD 3E ...:)....t.....>
00A670: 05 CD D7 05 3A 29 0D FE 05 C2 82 07 01 E8 01 CD ....:)..........
00A680: 3E 05 3A 29 0D FE 07 C2 90 07 01 F9 01 CD 3E 05 >.:)..........>.
00A690: C9 21 2B 0D 70 2B 71 2A 2A 0D 7E FE 00 CA AF 07 .!+.p+q**.~.....
00A6A0: 2A 2A 0D 3E 40 86 4F CD 25 05 0E 3A CD 25 05 21 **.>@.O.%..:.%.!
00A6B0: 2C 0D 36 01 3E 0B 21 2C 0D BE DA ED 07 3A 2C 0D ,.6.>.!,.....:,.
00A6C0: FE 09 C2 CA 07 0E 2E CD 25 05 2A 2C 0D 26 00 EB ........%.*,.&..
00A6D0: 2A 2A 0D 19 3E 7F A6 32 2D 0D FE 20 CA E6 07 2A **..>..2-.. ...*
00A6E0: 2D 0D 4D CD 25 05 21 2C 0D 34 C2 B4 07 C9 21 2E -.M.%.!,.4....!.
00A6F0: 0D 71 01 08 02 CD 3E 05 3A 2E 0D FE 00 C2 06 08 .q....>.:.......
00A700: 01 10 02 CD 3E 05 3A 2E 0D FE 01 C2 14 08 01 31 ....>.:........1
00A710: 02 CD 3E 05 CD D7 05 C9 21 30 0D 70 2B 71 2A 2F ..>.....!0.p+q*/
00A720: 0D 7E D6 20 D6 01 9F F5 7E D6 09 D6 01 9F C1 48 .~. ....~......H
00A730: B1 1F D2 3F 08 2A 2F 0D 23 22 2F 0D C3 1E 08 2A ...?.*/.#"/....*
00A740: 2F 0D 7E FE 00 C2 4B 08 3E 00 C9 3E FF C9 C9 21 /.~...K.>..>...!
00A750: 32 0D 70 2B 71 21 33 0D 36 00 23 36 00 3A 33 0D 2.p+q!3.6.#6.:3.
00A760: FE 0B D2 81 08 2A 31 0D 7E FE 3F C2 73 08 21 34 .....*1.~.?.s.!4
00A770: 0D 36 FF 21 33 0D 34 2A 31 0D 23 22 31 0D C3 5D .6.!3.4*1.#"1..]
00A780: 08 3A 34 0D C9 3A D5 0C FE 00 CA C9 08 3A D6 0C .:4..:.......:..
00A790: 3C 32 D6 0C 21 D5 0C BE DA C9 08 01 80 01 CD 3E <2..!..........>
00A7A0: 05 CD 35 05 32 D6 0C 0E 0D CD 25 05 3A D6 0C FE ..5.2.....%.:...
00A7B0: 03 C2 B7 08 CD D7 05 3A D6 0C FE 0F C2 C4 08 21 .......:.......!
00A7C0: D2 0C 36 FF 21 D6 0C 36 FF C9 0E FF CD C7 05 01 ..6.!..6........
00A7D0: 6C 00 CD B7 05 3A E9 0C F6 80 32 E9 0C 21 EF 0C l....:....2..!..
00A7E0: 36 00 01 E3 0C CD 87 05 22 DA 0C 2A DA 0C 7D FE 6......."..*..}.
00A7F0: FF C2 3D 09 2A DA 0C 7C 32 D7 0C FE 07 C2 25 09 ..=.*..|2.....%.
00A800: 62 79 74 20 3A 3D 20 76 28 2E 6A 2E 29 3B 0D 0A byt := v(.j.);..
00A810: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00A820: 20 20 20 20 76 28 2E 6A 2E 29 20 3A 3D 20 76 28 v(.j.) := v(
00A830: 2E 6A 20 2B 20 31 2E 29 3B 0D 0A 20 20 20 20 20 .j + 1.);..
00A840: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 76 v
00A850: 28 2E 6A 20 2B 20 31 2E 29 20 3A 3D 20 62 79 74 (.j + 1.) := byt
00A860: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ;..
00A870: 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 END;..
00A880: 20 20 20 20 20 55 4E 54 49 4C 20 28 69 20 3D 20 UNTIL (i =
00A890: 31 29 20 4F 52 20 73 6C 75 74 3B 0D 0A 20 20 20 1) OR slut;..
00A8A0: 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E 3B 0D WRITELN;.
00A8B0: 0A 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 . WRITE
00A8C0: 4C 4E 28 27 44 65 20 73 6F 72 74 65 72 65 64 65 LN('De sorterede
00A8D0: 20 74 61 6C 20 65 72 3A 27 29 3B 0D 0A 20 20 20 tal er:');..
00A8E0: 20 20 20 20 20 20 20 46 4F 52 20 69 20 3A 3D 20 FOR i :=
00A8F0: 31 20 54 4F 20 6D 61 78 20 44 4F 0D 0A 20 20 20 1 TO max DO..
00A900: 20 20 20 20 20 20 20 20 20 57 52 49 54 45 28 76 WRITE(v
00A910: 28 2E 69 2E 29 20 3A 20 34 29 3B 0D 0A 20 20 20 (.i.) : 4);..
00A920: 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E 3B 0D WRITELN;.
00A930: 0A 20 20 20 20 20 20 20 20 45 4E 44 2E 0D 0A 1A . END....
00A940: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
00A950: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
00A960: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
00A970: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
00A980: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00A990: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00A9A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00A9B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00A9C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00A9D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00A9E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00A9F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00AA00: CD AB 06 CD 58 06 01 6C 00 CD B7 05 3A E9 0C F6 ....X..l....:...
00AA10: 80 32 E9 0C 0E 00 CD C7 05 01 E3 0C CD 87 05 22 .2............."
00AA20: DA 0C C3 3D 09 01 9E 01 CD 3E 05 01 E3 0C CD 91 ...=.....>......
00AA30: 07 0E 20 CD 25 05 2A D7 0C 4D CD 3D 07 2A DA 0C .. .%.*..M.=.*..
00AA40: 7D FE FF CA D5 09 0E 00 CD C7 05 01 80 00 CD B7 }...............
00AA50: 05 21 03 0D 36 00 21 D2 0C 36 00 3A D2 0C 2F F5 .!..6.!..6.:../.
00AA60: 01 E3 0C CD A7 05 D6 00 D6 01 9F C1 48 A1 1F D2 ............H...
00AA70: D2 09 21 D3 0C 36 00 3E 7F 21 D3 0C BE DA CF 09 ..!..6.>.!......
00AA80: 2A D3 0C 26 00 01 80 00 09 7E 32 D4 0C FE 1A C2 *..&.....~2.....
00AA90: 97 09 21 D2 0C 36 FF 3A D2 0C 1F DA C8 09 CD 7E ..!..6.:.......~
00AAA0: 05 1F D2 AE 09 CD 35 05 32 D6 0C CD D7 05 3A D5 ......5.2.....:.
00AAB0: 0C FE 00 CA C1 09 3A D4 0C FE 0A C2 C1 09 CD 85 ......:.........
00AAC0: 08 2A D4 0C 4D CD 25 05 21 D3 0C 34 C2 77 09 C3 .*..M.%.!..4.w..
00AAD0: 5B 09 C3 DA 09 0E 00 CD 3D 07 C9 01 80 00 CD B7 [.......=.......
00AAE0: 05 01 5C 00 CD E0 05 32 36 0D FE FF C2 F4 09 0E ..\....26.......
00AAF0: 00 CD 3D 07 3A 36 0D FE FF CA D7 0A 3A 36 0D 87 ..=.:6......:6..
00AB00: 87 87 87 87 6F 26 00 11 80 00 19 22 37 0D 0E 45 ....o&....."7..E
00AB10: CD 11 06 22 39 0D 0E 47 CD 11 06 22 3B 0D 0E 49 ..."9..G...";..I
00AB20: CD 11 06 22 3D 0D 0E 00 CD 11 06 22 3F 0D 0E 02 ..."=......"?...
00AB30: CD 11 06 22 41 0D 0E 04 CD 11 06 22 43 0D 2E 10 ..."A......"C...
00AB40: E5 2A 37 0D 44 4D 11 E3 0C E1 0A 12 03 13 2D C2 .*7.DM........-.
00AB50: 4A 0A 3A 5C 00 32 E3 0C CD 85 08 CD 58 06 01 E3 J.:\.2......X...
00AB60: 0C CD 91 07 0E 3A CD 25 05 CD 85 08 CD 58 06 CD .....:.%.....X..
00AB70: CA 08 01 80 00 CD B7 05 2A 39 0D EB 0E 45 CD 29 ........*9...E.)
00AB80: 06 2A 3B 0D EB 0E 47 CD 29 06 2A 3D 0D EB 0E 49 .*;...G.).*=...I
00AB90: CD 29 06 2A 3F 0D EB 0E 00 CD 29 06 2A 41 0D EB .).*?.....).*A..
00ABA0: 0E 02 CD 29 06 2A 43 0D EB 0E 04 CD 29 06 21 3B ...).*C.....).!;
00ABB0: 0D 11 5C 00 CD 65 0C B5 CA CE 0A 2E 10 E5 2A 3B ..\..e........*;
00ABC0: 0D EB 01 5C 00 E1 0A 12 03 13 2D C2 C6 0A CD F0 ...\......-.....
00ABD0: 05 32 36 0D C3 F4 09 C9 2A DE 0C 7E D6 20 D6 01 .26.....*..~. ..
00ABE0: 9F 2A DE 0C F5 7E D6 09 D6 01 9F C1 48 B1 1F D2 .*...~......H...
00ABF0: FC 0A 2A DE 0C 23 22 DE 0C C3 D8 0A C9 21 00 00 ..*..#"......!..
00AC00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
00AC10: 09 00 01 00 02 09 52 E5 09 00 41 02 00 00 00 02 ......R...A.....
00AC20: 09 00 46 02 00 00 00 02 09 00 42 02 00 00 00 02 ..F.......B.....
00AC30: 09 00 47 02 00 00 00 02 09 00 43 02 00 00 00 02 ..G.......C.....
00AC40: 09 00 48 02 00 00 00 02 09 00 44 02 00 00 00 02 ..H.......D.....
00AC50: 09 00 49 02 00 00 00 02 09 00 45 02 00 00 00 02 ..I.......E.....
00AC60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00AC70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00AC80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00AC90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00ACA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00ACB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00ACC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00ACD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00ACE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00ACF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00AD00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00AD10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00AD20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00AD30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00AD40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00AD50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00AD60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00AD70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00AD80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00AD90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00ADA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00ADB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00ADC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00ADD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00ADE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00ADF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00AE00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00AE10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00AE20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00AE30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00AE40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00AE50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00AE60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00AE70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00AE80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00AE90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00AEA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00AEB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00AEC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00AED0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00AEE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00AEF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00AF00: 20 70 6F 73 69 74 69 6F 6E 20 3A 3D 20 69 3B 0D position := i;.
00AF10: 0A 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 . IF
00AF20: 70 6F 73 69 74 69 6F 6E 20 3E 20 30 20 20 20 20 position > 0
00AF30: 20 20 20 20 20 20 20 20 20 20 20 28 2A 20 46 65 (* Fe
00AF40: 6A 6C 61 67 74 69 67 74 20 74 65 67 6E 20 66 75 jlagtigt tegn fu
00AF50: 6E 64 65 74 20 2A 29 0D 0A 20 20 20 20 20 20 20 ndet *)..
00AF60: 20 20 20 20 20 20 20 54 48 45 4E 20 0D 0A 20 20 THEN ..
00AF70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 45 BE
00AF80: 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 GIN..
00AF90: 20 20 20 20 20 20 20 47 4F 54 4F 58 59 28 32 37 GOTOXY(27
00AFA0: 20 2B 20 70 6F 73 69 74 69 6F 6E 2C 20 38 29 3B + position, 8);
00AFB0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
00AFC0: 20 20 20 20 57 52 49 54 45 28 27 5E 27 29 3B 0D WRITE('^');.
00AFD0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
00AFE0: 20 20 20 47 4F 54 4F 58 59 28 32 37 20 2B 20 70 GOTOXY(27 + p
00AFF0: 6F 73 69 74 69 6F 6E 2C 20 39 29 3B 0D 0A 20 20 osition, 9);..
00B000: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00B010: 57 52 49 54 45 28 27 46 65 6A 6C 61 67 74 69 67 WRITE('Fejlagtig
00B020: 74 20 74 65 67 6E 20 2D 20 54 61 73 74 20 3C 52 t tegn - Tast <R
00B030: 45 54 55 52 4E 3E 27 29 3B 0D 0A 20 20 20 20 20 ETURN>');..
00B040: 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 41 REA
00B050: 44 4C 4E 28 72 65 74 75 72 29 3B 0D 0A 20 20 20 DLN(retur);..
00B060: 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4E 44 END
00B070: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 55 4E 54 ;.. UNT
00B080: 49 4C 20 70 6F 73 69 74 69 6F 6E 20 3D 20 30 3B IL position = 0;
00B090: 0D 0A 20 20 20 20 20 20 20 20 20 20 47 4F 54 4F .. GOTO
00B0A0: 58 59 28 31 30 2C 20 39 29 3B 0D 0A 20 20 20 20 XY(10, 9);..
00B0B0: 20 20 20 20 20 20 57 52 49 54 45 28 27 43 69 66 WRITE('Cif
00B0C0: 72 65 6E 65 20 65 72 3A 20 27 29 3B 0D 0A 20 20 rene er: ');..
00B0D0: 20 20 20 20 20 20 20 20 46 4F 52 20 69 20 3A 3D FOR i :=
00B0E0: 20 31 20 54 4F 20 6D 61 78 74 65 67 6E 20 44 4F 1 TO maxtegn DO
00B0F0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 42 45 .. BE
00B100: 50 52 4F 47 52 41 4D 20 63 65 6C 73 69 75 73 3B PROGRAM celsius;
00B110: 0D 0A 0D 0A 20 20 56 41 52 0D 0A 20 20 20 20 63 .... VAR.. c
00B120: 65 6C 73 69 75 73 2C 20 66 61 68 72 65 6E 68 65 elsius, fahrenhe
00B130: 69 74 2C 20 72 65 61 6D 75 72 20 3A 20 52 45 41 it, reamur : REA
00B140: 4C 3B 0D 0A 20 20 0D 0A 20 20 42 45 47 49 4E 0D L;.. .. BEGIN.
00B150: 0A 20 20 20 20 57 52 49 54 45 28 43 4C 52 48 4F . WRITE(CLRHO
00B160: 4D 29 3B 0D 0A 20 20 20 20 57 52 49 54 45 4C 4E M);.. WRITELN
00B170: 28 27 50 72 6F 67 72 61 6D 6D 65 74 20 75 64 73 ('Programmet uds
00B180: 6B 72 69 76 65 72 20 52 45 41 4D 55 52 2D 20 6F kriver REAMUR- o
00B190: 67 20 46 41 48 52 45 4E 48 45 49 54 2D 67 72 61 g FAHRENHEIT-gra
00B1A0: 64 74 61 6C 6C 65 6E 65 2C 27 29 3B 0D 0A 20 20 dtallene,');..
00B1B0: 20 20 57 52 49 54 45 4C 4E 28 27 6E 7D 72 20 6D WRITELN('n}r m
00B1C0: 61 6E 20 69 6E 64 74 61 73 74 65 72 20 67 72 61 an indtaster gra
00B1D0: 64 74 61 6C 6C 65 74 20 66 6F 72 20 43 45 4C 53 dtallet for CELS
00B1E0: 49 55 53 27 29 3B 0D 0A 20 20 20 20 57 52 49 54 IUS');.. WRIT
00B1F0: 45 4C 4E 3B 0D 0A 20 20 20 20 57 52 49 54 45 28 ELN;.. WRITE(
00B200: 27 49 6E 64 74 61 73 74 20 43 45 4C 53 49 55 53 'Indtast CELSIUS
00B210: 3A 20 27 29 3B 20 52 45 41 44 4C 4E 28 63 65 6C : '); READLN(cel
00B220: 73 69 75 73 29 3B 0D 0A 20 20 20 20 72 65 61 6D sius);.. ream
00B230: 75 72 20 3A 3D 20 63 65 6C 73 69 75 73 20 2A 20 ur := celsius *
00B240: 30 2E 38 3B 0D 0A 20 20 20 20 66 61 68 72 65 6E 0.8;.. fahren
00B250: 68 65 69 74 20 3A 3D 20 63 65 6C 73 69 75 73 20 heit := celsius
00B260: 2A 20 31 2E 38 20 2B 20 33 32 3B 0D 0A 20 20 20 * 1.8 + 32;..
00B270: 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 57 WRITELN;.. W
00B280: 52 49 54 45 4C 4E 28 27 43 65 6C 73 69 75 73 3A RITELN('Celsius:
00B290: 20 20 20 20 27 2C 20 63 65 6C 73 69 75 73 20 3A ', celsius :
00B2A0: 20 37 20 3A 20 32 29 3B 0D 0A 20 20 20 20 57 52 7 : 2);.. WR
00B2B0: 49 54 45 4C 4E 28 27 52 65 61 6D 75 72 3A 20 20 ITELN('Reamur:
00B2C0: 20 20 20 27 2C 20 72 65 61 6D 75 72 20 3A 20 37 ', reamur : 7
00B2D0: 20 3A 20 32 29 3B 0D 0A 20 20 20 20 57 52 49 54 : 2);.. WRIT
00B2E0: 45 4C 4E 28 27 46 61 68 72 65 6E 68 65 69 74 3A ELN('Fahrenheit:
00B2F0: 20 27 2C 20 66 61 68 72 65 6E 68 65 69 74 20 3A ', fahrenheit :
00B300: 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 GIN..
00B310: 20 20 20 76 28 2E 69 2E 29 20 3A 3D 20 4F 52 44 v(.i.) := ORD
00B320: 28 63 73 74 72 65 6E 67 28 2E 69 2E 29 29 20 2D (cstreng(.i.)) -
00B330: 20 4F 52 44 28 27 30 27 29 3B 0D 0A 20 20 20 20 ORD('0');..
00B340: 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 28 WRITE(
00B350: 76 28 2E 69 2E 29 20 3A 20 32 29 3B 0D 0A 20 20 v(.i.) : 2);..
00B360: 20 20 20 20 20 20 20 20 20 20 45 4E 44 3B 0D 0A END;..
00B370: 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4C WRITEL
00B380: 4E 3B 0D 0A 20 20 20 20 20 20 20 20 45 4E 44 2E N;.. END.
00B390: 0D 0A 1A 76 28 2E 69 2E 29 20 3A 3D 20 4F 52 44 ...v(.i.) := ORD
00B3A0: 28 63 73 74 72 65 6E 67 28 2E 69 2E 29 29 20 2D (cstreng(.i.)) -
00B3B0: 20 4F 52 44 28 27 30 27 29 3B 0D 0A 20 20 20 20 ORD('0');..
00B3C0: 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 28 WRITE(
00B3D0: 76 28 2E 69 2E 29 20 3A 20 32 29 3B 0D 0A 20 20 v(.i.) : 2);..
00B3E0: 20 20 20 20 20 20 20 20 20 20 45 4E 44 3B 0D 0A END;..
00B3F0: 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4C WRITEL
00B400: D7 B6 E7 BB BD D7 1C 60 2E F5 41 FC AE 49 C1 5C .......`..A..I.\
00B410: A6 E9 0F FB 4C 24 1C 40 11 59 D7 88 B9 56 25 09 ....L$.@.Y...V%.
00B420: 6A 20 36 F0 61 0C 1B D3 D0 23 6F C4 93 E6 77 4B j 6.a....#o...wK
00B430: F7 D0 11 96 C9 68 25 C5 67 46 06 6C 56 16 CE 1E .....h%.gF.lV...
00B440: EA B5 3D 47 22 17 16 A4 48 A1 7E 82 DA C3 1A 1A ..=G"...H.~.....
00B450: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
00B460: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
00B470: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
00B480: 76 FD 52 45 4E 54 45 44 41 47 2E 50 41 53 5B 32 v.RENTEDAG.PAS[2
00B490: 38 2F 30 31 2F 31 39 39 31 5D 00 11 10 00 05 ED 8/01/1991]......
00B4A0: 77 3B 3D 1C 3E 5F 5F 55 FC F7 FE 3F D7 9E EF 5F w;=.>__U...?..._
00B4B0: C7 8B 97 CA 5A DA 6C B6 97 DD DB 8F BD D7 DB E7 ....Z.l.........
00B4C0: 6F 56 A5 80 3D DD 6B 99 6F 6A FF 41 68 D3 96 A2 oV..=.k.oj.Ah...
00B4D0: 28 6B AB E2 DE EE A7 BE 8A 67 A2 0B A4 CF 34 14 (k.......g....4.
00B4E0: 7F EA 47 E6 2C A8 F1 9F 65 B3 AF 0F 1F 0E F7 8F ..G.,...e.......
00B4F0: 13 9F 14 07 84 1B 3C CE FA 1C 74 B1 89 77 D3 EC ......<...t..w..
00B500: 20 37 20 3A 20 32 29 3B 0D 0A 20 20 20 20 57 52 7 : 2);.. WR
00B510: 49 54 45 4C 4E 3B 0D 0A 20 20 45 4E 44 2E 0D 0A ITELN;.. END...
00B520: 1A 37 20 3A 20 32 29 3B 0D 0A 20 20 20 20 57 52 .7 : 2);.. WR
00B530: 49 54 45 4C 4E 28 27 52 65 61 6D 75 72 3A 20 20 ITELN('Reamur:
00B540: 20 20 20 27 2C 20 72 65 61 6D 75 72 20 3A 20 37 ', reamur : 7
00B550: 20 3A 20 32 29 3B 0D 0A 20 20 20 20 57 52 49 54 : 2);.. WRIT
00B560: 45 4C 4E 28 27 46 61 68 72 65 6E 68 65 69 74 3A ELN('Fahrenheit:
00B570: 20 27 2C 20 66 61 68 72 65 6E 68 65 69 74 20 3A ', fahrenheit :
00B580: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00B590: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00B5A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00B5B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00B5C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00B5D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00B5E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00B5F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00B600: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00B610: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00B620: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00B630: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00B640: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00B650: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00B660: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00B670: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00B680: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00B690: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00B6A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00B6B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00B6C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00B6D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00B6E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00B6F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00B700: 50 52 4F 47 52 41 4D 20 63 68 65 63 6B 32 3B 0D PROGRAM check2;.
00B710: 0A 20 20 0D 0A 20 20 46 55 4E 43 54 49 4F 4E 20 . .. FUNCTION
00B720: 6C 61 65 73 74 61 6C 28 6D 69 6E 2C 20 6D 61 78 laestal(min, max
00B730: 20 3A 20 49 4E 54 45 47 45 52 29 20 3A 20 49 4E : INTEGER) : IN
00B740: 54 45 47 45 52 3B 0D 0A 20 20 0D 0A 20 20 20 20 TEGER;.. ..
00B750: 54 59 50 45 0D 0A 20 20 20 20 20 20 73 74 72 35 TYPE.. str5
00B760: 20 3D 20 53 54 52 49 4E 47 28 2E 35 2E 29 3B 0D = STRING(.5.);.
00B770: 0A 20 20 20 20 0D 0A 20 20 20 20 56 41 52 0D 0A . .. VAR..
00B780: 20 20 20 20 20 20 73 74 72 65 6E 67 20 3A 20 73 streng : s
00B790: 74 72 35 3B 0D 0A 20 20 20 20 20 20 6F 6B 20 3A tr5;.. ok :
00B7A0: 20 42 4F 4F 4C 45 41 4E 3B 0D 0A 20 20 20 20 20 BOOLEAN;..
00B7B0: 20 68 65 6C 74 61 6C 2C 20 74 65 73 74 2C 20 69 heltal, test, i
00B7C0: 20 3A 20 49 4E 54 45 47 45 52 3B 0D 0A 20 20 20 : INTEGER;..
00B7D0: 20 0D 0A 20 20 20 20 42 45 47 49 4E 20 28 2A 20 .. BEGIN (*
00B7E0: 6C 61 65 73 74 61 6C 20 2A 29 0D 0A 20 20 20 20 laestal *)..
00B7F0: 20 20 52 45 50 45 41 54 0D 0A 20 20 20 20 20 20 REPEAT..
00B800: 20 20 42 55 46 4C 45 4E 20 3A 3D 20 35 3B 0D 0A BUFLEN := 5;..
00B810: 20 20 20 20 20 20 20 20 52 45 41 44 28 73 74 72 READ(str
00B820: 65 6E 67 29 3B 0D 0A 20 20 20 20 20 20 20 20 56 eng);.. V
00B830: 41 4C 28 73 74 72 65 6E 67 2C 20 68 65 6C 74 61 AL(streng, helta
00B840: 6C 2C 20 74 65 73 74 29 3B 0D 0A 20 20 20 20 20 l, test);..
00B850: 20 20 20 6F 6B 20 3A 3D 20 28 74 65 73 74 20 3D ok := (test =
00B860: 20 30 29 20 41 4E 44 20 28 6D 69 6E 20 3C 3D 20 0) AND (min <=
00B870: 68 65 6C 74 61 6C 29 20 41 4E 44 20 28 68 65 6C heltal) AND (hel
00B880: 74 61 6C 20 3C 3D 20 6D 61 78 29 3B 0D 0A 20 20 tal <= max);..
00B890: 20 20 20 20 20 20 49 46 20 4E 4F 54 20 6F 6B 20 IF NOT ok
00B8A0: 28 2A 20 73 6C 65 74 20 73 76 61 72 65 74 20 2A (* slet svaret *
00B8B0: 29 0D 0A 20 20 20 20 20 20 20 20 20 20 54 48 45 ).. THE
00B8C0: 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 46 N.. F
00B8D0: 4F 52 20 69 20 3A 3D 20 31 20 54 4F 20 4C 45 4E OR i := 1 TO LEN
00B8E0: 28 73 74 72 65 6E 67 29 20 44 4F 0D 0A 20 20 20 (streng) DO..
00B8F0: 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 WRITE
00B900: 20 20 20 20 20 20 50 52 4F 47 52 41 4D 20 63 68 PROGRAM ch
00B910: 65 63 6B 31 3B 0D 0A 20 20 20 20 20 20 20 20 0D eck1;.. .
00B920: 0A 20 20 20 20 20 20 20 20 43 4F 4E 53 54 0D 0A . CONST..
00B930: 20 20 20 20 20 20 20 20 20 20 6D 61 78 74 65 67 maxteg
00B940: 6E 20 3D 20 31 30 3B 0D 0A 20 20 20 20 20 20 20 n = 10;..
00B950: 20 20 20 0D 0A 20 20 20 20 20 20 20 20 54 59 50 .. TYP
00B960: 45 0D 0A 20 20 20 20 20 20 20 20 20 20 63 69 66 E.. cif
00B970: 72 65 20 3D 20 30 20 2E 2E 20 39 3B 0D 0A 20 20 re = 0 .. 9;..
00B980: 20 20 20 20 20 20 20 20 76 65 6B 74 6F 72 20 3D vektor =
00B990: 20 41 52 52 41 59 28 2E 31 20 2E 2E 20 6D 61 78 ARRAY(.1 .. max
00B9A0: 74 65 67 6E 2E 29 20 4F 46 20 63 69 66 72 65 3B tegn.) OF cifre;
00B9B0: 0D 0A 20 20 20 20 20 20 20 20 20 20 63 69 66 66 .. ciff
00B9C0: 65 72 73 74 72 65 6E 67 20 3D 20 53 54 52 49 4E erstreng = STRIN
00B9D0: 47 28 2E 6D 61 78 74 65 67 6E 2E 29 3B 0D 0A 20 G(.maxtegn.);..
00B9E0: 20 20 20 20 20 20 20 0D 0A 20 20 20 20 20 20 20 ..
00B9F0: 20 56 41 52 0D 0A 20 20 20 20 20 20 20 20 20 20 VAR..
00BA00: 69 2C 20 70 6F 73 69 74 69 6F 6E 20 3A 20 49 4E i, position : IN
00BA10: 54 45 47 45 52 3B 0D 0A 20 20 20 20 20 20 20 20 TEGER;..
00BA20: 20 20 76 20 3A 20 76 65 6B 74 6F 72 3B 0D 0A 20 v : vektor;..
00BA30: 20 20 20 20 20 20 20 20 20 63 73 74 72 65 6E 67 cstreng
00BA40: 20 3A 20 63 69 66 66 65 72 73 74 72 65 6E 67 3B : cifferstreng;
00BA50: 0D 0A 20 20 20 20 20 20 20 20 20 20 72 65 74 75 .. retu
00BA60: 72 20 3A 20 43 48 41 52 3B 0D 0A 20 20 20 20 20 r : CHAR;..
00BA70: 20 20 20 20 20 0D 0A 20 20 20 20 20 20 20 20 42 .. B
00BA80: 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 EGIN..
00BA90: 52 45 50 45 41 54 0D 0A 20 20 20 20 20 20 20 20 REPEAT..
00BAA0: 20 20 20 20 57 52 49 54 45 28 43 4C 52 48 4F 4D WRITE(CLRHOM
00BAB0: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 );..
00BAC0: 47 4F 54 4F 58 59 28 31 30 2C 20 35 29 3B 0D 0A GOTOXY(10, 5);..
00BAD0: 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 WRIT
00BAE0: 45 28 27 49 6E 64 74 61 73 74 20 65 74 20 68 65 E('Indtast et he
00BAF0: 6C 74 20 74 61 6C 20 70 7D 20 27 2C 20 6D 61 78 lt tal p} ', max
00BB00: 28 43 48 52 28 38 29 2C 20 27 20 27 2C 20 43 48 (CHR(8), ' ', CH
00BB10: 52 28 38 29 29 3B 0D 0A 20 20 20 20 20 20 55 4E R(8));.. UN
00BB20: 54 49 4C 20 6F 6B 3B 0D 0A 20 20 20 20 20 20 57 TIL ok;.. W
00BB30: 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 20 20 6C RITELN;.. l
00BB40: 61 65 73 74 61 6C 20 3A 3D 20 68 65 6C 74 61 6C aestal := heltal
00BB50: 3B 0D 0A 20 20 20 20 45 4E 44 3B 20 28 2A 20 6C ;.. END; (* l
00BB60: 61 65 73 74 61 6C 20 2A 29 0D 0A 20 20 20 0D 0A aestal *).. ..
00BB70: 20 20 42 45 47 49 4E 20 28 2A 20 63 68 65 63 6B BEGIN (* check
00BB80: 32 20 2A 29 0D 0A 20 20 20 20 57 52 49 54 45 28 2 *).. WRITE(
00BB90: 27 54 61 73 74 20 65 74 20 74 61 6C 20 66 72 61 'Tast et tal fra
00BBA0: 20 31 30 20 74 69 6C 20 35 30 30 3A 20 27 29 3B 10 til 500: ');
00BBB0: 0D 0A 20 20 20 20 57 52 49 54 45 4C 4E 28 6C 61 .. WRITELN(la
00BBC0: 65 73 74 61 6C 28 31 30 2C 20 35 30 30 29 29 3B estal(10, 500));
00BBD0: 0D 0A 20 20 45 4E 44 2E 20 28 2A 20 63 68 65 63 .. END. (* chec
00BBE0: 6B 32 20 2A 29 0D 0A 1A 29 0D 0A 20 20 20 0D 0A k2 *)...).. ..
00BBF0: 20 20 42 45 47 49 4E 20 28 2A 20 63 68 65 63 6B BEGIN (* check
00BC00: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BC10: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BC20: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BC30: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BC40: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BC50: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BC60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BC70: 00 24 00 03 07 00 AA 00 3F 00 C0 00 10 00 02 00 .$......?.......
00BC80: 41 09 2A 52 E5 02 04 08 FF 00 00 00 05 05 05 05 A.*R............
00BC90: 05 05 05 05 05 05 05 05 05 05 05 05 05 05 05 05 ................
00BCA0: 05 05 05 05 05 05 F4 40 8B 00 00 00 00 D8 E4 53 .......@.......S
00BCB0: 6F 24 00 03 07 00 AA 00 3F 00 C0 00 10 00 02 00 o$......?.......
00BCC0: 41 09 2A 52 E5 02 04 00 00 00 1A 1A 1A 1A 1A 1A A.*R............
00BCD0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
00BCE0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 09 C0 ................
00BCF0: 07 00 00 FE BF 0D 1A A9 9F 78 AE D8 AD F1 AD 01 .........x......
00BD00: 74 65 67 6E 2C 20 27 20 63 69 66 72 65 2E 27 29 tegn, ' cifre.')
00BD10: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 47 ;.. G
00BD20: 4F 54 4F 58 59 28 31 30 2C 20 37 29 3B 0D 0A 20 OTOXY(10, 7);..
00BD30: 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 WRITE
00BD40: 28 27 54 61 73 74 20 74 61 6C 6C 65 74 20 68 65 ('Tast tallet he
00BD50: 72 3A 20 3C 27 29 3B 0D 0A 20 20 20 20 20 20 20 r: <');..
00BD60: 20 20 20 20 20 46 4F 52 20 69 20 3A 3D 20 31 20 FOR i := 1
00BD70: 54 4F 20 6D 61 78 74 65 67 6E 20 44 4F 0D 0A 20 TO maxtegn DO..
00BD80: 20 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 WRI
00BD90: 54 45 28 27 20 27 29 3B 0D 0A 20 20 20 20 20 20 TE(' ');..
00BDA0: 20 20 20 20 20 20 57 52 49 54 45 28 27 3E 27 29 WRITE('>')
00BDB0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 42 ;.. B
00BDC0: 55 46 4C 45 4E 20 3A 3D 20 6D 61 78 74 65 67 6E UFLEN := maxtegn
00BDD0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 47 ;.. G
00BDE0: 4F 54 4F 58 59 28 32 38 2C 20 37 29 3B 0D 0A 20 OTOXY(28, 7);..
00BDF0: 20 20 20 20 20 20 20 20 20 20 20 52 45 41 44 4C READL
00BE00: 4E 28 63 73 74 72 65 6E 67 29 3B 0D 0A 20 20 20 N(cstreng);..
00BE10: 20 20 20 20 20 20 20 20 20 70 6F 73 69 74 69 6F positio
00BE20: 6E 20 3A 3D 20 30 3B 0D 0A 20 20 20 20 20 20 20 n := 0;..
00BE30: 20 20 20 20 20 46 4F 52 20 69 20 3A 3D 20 4C 45 FOR i := LE
00BE40: 4E 28 63 73 74 72 65 6E 67 29 20 54 4F 20 6D 61 N(cstreng) TO ma
00BE50: 78 74 65 67 6E 20 44 4F 0D 0A 20 20 20 20 20 20 xtegn DO..
00BE60: 20 20 20 20 20 20 20 20 63 73 74 72 65 6E 67 20 cstreng
00BE70: 3A 3D 20 63 73 74 72 65 6E 67 20 2B 20 27 20 27 := cstreng + ' '
00BE80: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 46 ;.. F
00BE90: 4F 52 20 69 20 3A 3D 20 6D 61 78 74 65 67 6E 20 OR i := maxtegn
00BEA0: 44 4F 57 4E 54 4F 20 31 20 44 4F 0D 0A 20 20 20 DOWNTO 1 DO..
00BEB0: 20 20 20 20 20 20 20 20 20 20 20 49 46 20 28 63 IF (c
00BEC0: 73 74 72 65 6E 67 28 2E 69 2E 29 20 3C 20 27 30 streng(.i.) < '0
00BED0: 27 29 20 4F 52 20 28 63 73 74 72 65 6E 67 28 2E ') OR (cstreng(.
00BEE0: 69 2E 29 20 3E 20 27 39 27 29 0D 0A 20 20 20 20 i.) > '9')..
00BEF0: 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4E THEN
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 50 52 4F 47 52 41 4D 20 63 68 65 63 6B 33 3B PROGRAM check3;
00C010: 0D 0A 20 20 0D 0A 20 20 54 59 50 45 0D 0A 20 20 .. .. TYPE..
00C020: 20 20 73 74 72 34 30 20 3D 20 53 54 52 49 4E 47 str40 = STRING
00C030: 28 2E 34 30 2E 29 3B 0D 0A 20 20 20 20 63 68 61 (.40.);.. cha
00C040: 72 73 65 74 20 3D 20 53 45 54 20 4F 46 20 43 48 rset = SET OF CH
00C050: 41 52 3B 0D 0A 20 20 20 20 0D 0A 20 20 46 55 4E AR;.. .. FUN
00C060: 43 54 49 4F 4E 20 6C 61 65 73 74 65 67 6E 28 6C CTION laestegn(l
00C070: 65 64 65 74 65 6B 73 74 20 3A 20 73 74 72 34 30 edetekst : str40
00C080: 3B 20 67 79 6C 64 69 67 74 65 67 6E 20 3A 20 63 ; gyldigtegn : c
00C090: 68 61 72 73 65 74 29 20 3A 20 43 48 41 52 3B 0D harset) : CHAR;.
00C0A0: 0A 20 20 20 20 0D 0A 20 20 20 20 56 41 52 0D 0A . .. VAR..
00C0B0: 20 20 20 20 20 20 63 68 20 3A 20 43 48 41 52 3B ch : CHAR;
00C0C0: 0D 0A 20 20 20 20 0D 0A 20 20 20 20 42 45 47 49 .. .. BEGI
00C0D0: 4E 20 28 2A 20 6C 61 65 73 74 65 67 6E 20 2A 29 N (* laestegn *)
00C0E0: 0D 0A 20 20 20 20 20 20 57 52 49 54 45 28 6C 65 .. WRITE(le
00C0F0: 64 65 74 65 6B 73 74 29 3B 0D 0A 20 20 20 20 20 detekst);..
00C100: 20 52 45 50 45 41 54 0D 0A 20 20 20 20 20 20 20 REPEAT..
00C110: 20 52 45 41 44 28 4B 42 44 2C 20 63 68 29 3B 0D READ(KBD, ch);.
00C120: 0A 20 20 20 20 20 20 55 4E 54 49 4C 20 63 68 20 . UNTIL ch
00C130: 49 4E 20 67 79 6C 64 69 67 74 65 67 6E 3B 0D 0A IN gyldigtegn;..
00C140: 20 20 20 20 20 20 57 52 49 54 45 4C 4E 28 63 68 WRITELN(ch
00C150: 29 3B 0D 0A 20 20 20 20 20 20 6C 61 65 73 74 65 );.. laeste
00C160: 67 6E 20 3A 3D 20 63 68 3B 0D 0A 20 20 20 20 45 gn := ch;.. E
00C170: 4E 44 3B 20 28 2A 20 6C 61 65 73 74 65 67 6E 20 ND; (* laestegn
00C180: 2A 29 0D 0A 20 20 20 20 0D 0A 20 20 42 45 47 49 *).. .. BEGI
00C190: 4E 20 28 2A 20 63 68 65 63 6B 33 20 2A 29 0D 0A N (* check3 *)..
00C1A0: 20 20 20 20 57 52 49 54 45 4C 4E 28 6C 61 65 73 WRITELN(laes
00C1B0: 74 65 67 6E 28 27 56 7B 6C 67 20 65 74 20 61 66 tegn('V{lg et af
00C1C0: 20 66 7C 6C 67 65 6E 64 65 20 74 65 67 6E 20 28 f|lgende tegn (
00C1D0: 34 20 5E 20 6D 20 6B 29 3A 20 27 2C 0D 0A 20 20 4 ^ m k): ',..
00C1E0: 20 20 20 20 20 20 20 20 20 20 28 2E 27 34 27 2C (.'4',
00C1F0: 20 27 5E 27 2C 20 27 6D 27 2C 20 27 6B 27 2E 29 '^', 'm', 'k'.)
00C200: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
00C210: 57 52 49 54 45 28 43 4C 52 48 4F 4D 29 3B 0D 0A WRITE(CLRHOM);..
00C220: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 6C sl
00C230: 75 74 20 3A 3D 20 46 41 4C 53 45 3B 0D 0A 20 20 ut := FALSE;..
00C240: 20 20 20 20 20 20 20 20 20 20 20 20 47 4F 54 4F GOTO
00C250: 58 59 28 31 30 2C 20 33 29 3B 0D 0A 20 20 20 20 XY(10, 3);..
00C260: 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 28 WRITE(
00C270: 27 50 72 6F 67 72 61 6D 6D 65 74 20 61 66 62 72 'Programmet afbr
00C280: 79 64 65 73 20 76 65 64 20 61 74 20 74 61 73 74 ydes ved at tast
00C290: 65 20 30 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 e 0');..
00C2A0: 20 20 20 20 20 20 47 4F 54 4F 58 59 28 31 30 2C GOTOXY(10,
00C2B0: 20 35 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 5);..
00C2C0: 20 20 20 20 57 52 49 54 45 28 27 45 74 20 43 50 WRITE('Et CP
00C2D0: 52 2D 6E 75 6D 6D 65 72 20 61 6E 67 69 76 65 73 R-nummer angives
00C2E0: 20 70 7D 20 66 6F 72 6D 65 6E 20 64 64 6D 6D 61 p} formen ddmma
00C2F0: 61 78 78 78 78 27 29 3B 0D 0A 20 20 20 20 20 20 axxxx');..
00C300: 20 20 20 20 20 20 20 20 47 4F 54 4F 58 59 28 31 GOTOXY(1
00C310: 30 2C 20 37 29 3B 0D 0A 20 20 20 20 20 20 20 20 0, 7);..
00C320: 20 20 20 20 20 20 57 52 49 54 45 28 27 54 61 73 WRITE('Tas
00C330: 74 20 43 50 52 2D 6E 75 6D 6D 65 72 3A 20 3C 20 t CPR-nummer: <
00C340: 20 20 20 20 20 20 20 20 20 3E 27 29 3B 0D 0A 20 >');..
00C350: 20 20 20 20 20 20 20 20 20 20 20 20 20 42 55 46 BUF
00C360: 4C 45 4E 20 3A 3D 20 6D 61 78 74 65 67 6E 3B 0D LEN := maxtegn;.
00C370: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 . G
00C380: 4F 54 4F 58 59 28 32 38 2C 20 37 29 3B 0D 0A 20 OTOXY(28, 7);..
00C390: 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 41 REA
00C3A0: 44 4C 4E 28 63 70 72 73 74 29 3B 0D 0A 20 20 20 DLN(cprst);..
00C3B0: 20 20 20 20 20 20 20 20 20 20 20 49 46 20 63 70 IF cp
00C3C0: 72 73 74 20 3D 20 27 30 27 0D 0A 20 20 20 20 20 rst = '0'..
00C3D0: 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4E 20 THEN
00C3E0: 73 6C 75 74 20 3A 3D 20 54 52 55 45 3B 0D 0A 20 slut := TRUE;..
00C3F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 IF
00C400: 29 29 3B 0D 0A 20 20 20 20 57 52 49 54 45 4C 4E ));.. WRITELN
00C410: 28 6C 61 65 73 74 65 67 6E 28 27 53 6C 75 74 20 (laestegn('Slut
00C420: 28 6A 2F 6E 29 3F 20 27 2C 20 28 2E 27 4A 27 2C (j/n)? ', (.'J',
00C430: 20 27 6A 27 2C 20 27 4E 27 2C 20 27 6E 27 2E 29 'j', 'N', 'n'.)
00C440: 29 29 3B 0D 0A 20 20 20 20 57 52 49 54 45 4C 4E ));.. WRITELN
00C450: 28 6C 61 65 73 74 65 67 6E 28 27 54 61 73 74 20 (laestegn('Tast
00C460: 65 74 20 63 69 66 66 65 72 3A 20 27 2C 20 28 2E et ciffer: ', (.
00C470: 27 30 27 20 2E 2E 20 27 39 27 2E 29 29 29 3B 0D '0' .. '9'.)));.
00C480: 0A 20 20 45 4E 44 2E 20 28 2A 20 63 68 65 63 6B . END. (* check
00C490: 33 20 2A 29 0D 0A 1A 67 6E 28 27 53 6C 75 74 20 3 *)...gn('Slut
00C4A0: 28 6A 2F 6E 29 3F 20 27 2C 20 28 2E 27 4A 27 2C (j/n)? ', (.'J',
00C4B0: 20 27 6A 27 2C 20 27 4E 27 2C 20 27 6E 27 2E 29 'j', 'N', 'n'.)
00C4C0: 29 29 3B 0D 0A 20 20 20 20 57 52 49 54 45 4C 4E ));.. WRITELN
00C4D0: 28 6C 61 65 73 74 65 67 6E 28 27 54 61 73 74 20 (laestegn('Tast
00C4E0: 65 74 20 63 69 66 66 65 72 3A 20 27 2C 20 28 2E et ciffer: ', (.
00C4F0: 27 30 27 20 2E 2E 20 27 39 27 2E 29 29 29 3B 0D '0' .. '9'.)));.
00C500: 67 76 9E DD EE 80 43 02 A7 76 1E FF 4C B8 61 E3 gv....C..v..L.a.
00C510: 9C 98 24 F9 28 2F 54 84 A4 5F CD 38 88 78 C0 42 ..$.(/T.._.8.x.B
00C520: 67 2F 20 19 07 58 AD BE 4B 4B B2 97 0C 6D A9 93 g/ ..X..KK...m..
00C530: 07 1A 1C A4 5D C5 BA 5F 8D FE C6 79 9E 39 17 15 ....].._...y.9..
00C540: 48 0F EF AD 45 50 8A 03 E4 AD 1B A0 9A 7F FE 01 H...EP..........
00C550: 2F 16 B6 8D C7 01 7E D7 30 C4 1A 1A 1A 1A 1A 1A /.....~.0.......
00C560: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
00C570: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
00C580: 76 FD 52 49 4E 47 2E 50 41 53 5B 32 38 2F 30 31 v.RING.PAS[28/01
00C590: 2F 31 39 39 31 5D 00 11 10 00 00 90 00 76 BB 00 /1991].......v..
00C5A0: 00 01 84 01 FF AA FE 7C FF 1F 1E 2E 5F 29 88 17 .......|...._)..
00C5B0: 92 04 DE 00 00 78 F0 F9 F2 00 08 26 C9 FD D7 9B .....x.....&....
00C5C0: ED D5 3C 7A BB 00 08 26 C9 FD 0D 96 E2 B2 9E 57 ..<z...&.......W
00C5D0: 67 00 08 26 C9 FD 6B BB AF AD D4 43 E8 AB F5 F9 g..&..k....C....
00C5E0: AE AD AC 00 02 26 C9 FD DA 56 1C DC 17 39 D5 81 .....&...V...9..
00C5F0: B5 E4 7F F0 85 00 04 26 C9 FD 24 DF B3 D7 73 1A .......&..$...s.
00C600: 4E 4F 54 20 73 6C 75 74 0D 0A 20 20 20 20 20 20 NOT slut..
00C610: 20 20 20 20 20 20 20 20 20 20 54 48 45 4E 0D 0A THEN..
00C620: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00C630: 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 BEGIN..
00C640: 20 20 20 20 20 20 20 20 20 20 20 20 20 70 6F 73 pos
00C650: 69 74 69 6F 6E 20 3A 3D 20 30 3B 0D 0A 20 20 20 ition := 0;..
00C660: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00C670: 20 46 4F 52 20 69 20 3A 3D 20 4C 45 4E 28 63 70 FOR i := LEN(cp
00C680: 72 73 74 29 20 54 4F 20 6D 61 78 74 65 67 6E 20 rst) TO maxtegn
00C690: 44 4F 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 DO..
00C6A0: 20 20 20 20 20 20 20 20 20 20 63 70 72 73 74 20 cprst
00C6B0: 3A 3D 20 63 70 72 73 74 20 2B 20 27 20 27 3B 0D := cprst + ' ';.
00C6C0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
00C6D0: 20 20 20 20 20 46 4F 52 20 69 20 3A 3D 20 6D 61 FOR i := ma
00C6E0: 78 74 65 67 6E 20 44 4F 57 4E 54 4F 20 31 20 44 xtegn DOWNTO 1 D
00C6F0: 4F 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 O..
00C700: 20 20 20 20 20 20 20 20 20 49 46 20 28 63 70 72 IF (cpr
00C710: 73 74 28 2E 69 2E 29 20 3C 20 27 30 27 29 20 4F st(.i.) < '0') O
00C720: 52 20 28 63 70 72 73 74 28 2E 69 2E 29 20 3E 20 R (cprst(.i.) >
00C730: 27 39 27 29 0D 0A 20 20 20 20 20 20 20 20 20 20 '9')..
00C740: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 48 TH
00C750: 45 4E 20 70 6F 73 69 74 69 6F 6E 20 3A 3D 20 69 EN position := i
00C760: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ;..
00C770: 20 20 20 20 20 20 20 49 46 20 70 6F 73 69 74 69 IF positi
00C780: 6F 6E 20 3E 20 30 20 20 28 2A 20 46 65 6A 6C 61 on > 0 (* Fejla
00C790: 67 74 69 67 74 20 74 65 67 6E 20 66 75 6E 64 65 gtigt tegn funde
00C7A0: 74 20 2A 29 0D 0A 20 20 20 20 20 20 20 20 20 20 t *)..
00C7B0: 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4E THEN
00C7C0: 20 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
00C7D0: 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4E BEGIN
00C7E0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
00C7F0: 20 20 20 20 20 20 20 20 20 20 20 20 47 4F 54 4F GOTO
00C800: 20 20 20 20 20 20 50 52 4F 47 52 41 4D 20 63 70 PROGRAM cp
00C810: 72 3B 0D 0A 20 20 20 20 20 20 20 20 0D 0A 20 20 r;.. ..
00C820: 20 20 20 20 20 20 43 4F 4E 53 54 0D 0A 20 20 20 CONST..
00C830: 20 20 20 20 20 20 20 6D 61 78 74 65 67 6E 20 3D maxtegn =
00C840: 20 31 30 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 10;..
00C850: 0D 0A 20 20 20 20 20 20 20 20 54 59 50 45 0D 0A .. TYPE..
00C860: 20 20 20 20 20 20 20 20 20 20 63 69 66 72 65 20 cifre
00C870: 3D 20 30 20 2E 2E 20 39 3B 0D 0A 20 20 20 20 20 = 0 .. 9;..
00C880: 20 20 20 20 20 63 70 72 63 69 66 72 65 20 3D 20 cprcifre =
00C890: 41 52 52 41 59 28 2E 31 20 2E 2E 20 6D 61 78 74 ARRAY(.1 .. maxt
00C8A0: 65 67 6E 2E 29 20 4F 46 20 63 69 66 72 65 3B 0D egn.) OF cifre;.
00C8B0: 0A 20 20 20 20 20 20 20 20 20 20 63 70 72 73 74 . cprst
00C8C0: 72 65 6E 67 20 3D 20 53 54 52 49 4E 47 28 2E 6D reng = STRING(.m
00C8D0: 61 78 74 65 67 6E 2E 29 3B 0D 0A 20 20 20 20 20 axtegn.);..
00C8E0: 20 20 20 0D 0A 20 20 20 20 20 20 20 20 56 41 52 .. VAR
00C8F0: 0D 0A 20 20 20 20 20 20 20 20 20 20 69 2C 20 70 .. i, p
00C900: 6F 73 69 74 69 6F 6E 20 3A 20 49 4E 54 45 47 45 osition : INTEGE
00C910: 52 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 63 70 R;.. cp
00C920: 72 73 74 20 3A 20 63 70 72 73 74 72 65 6E 67 3B rst : cprstreng;
00C930: 0D 0A 20 20 20 20 20 20 20 20 20 20 63 69 66 66 .. ciff
00C940: 65 72 20 3A 20 63 70 72 63 69 66 72 65 3B 0D 0A er : cprcifre;..
00C950: 20 20 20 20 20 20 20 20 20 20 63 68 20 3A 20 43 ch : C
00C960: 48 41 52 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 HAR;..
00C970: 73 6C 75 74 20 3A 20 42 4F 4F 4C 45 41 4E 3B 0D slut : BOOLEAN;.
00C980: 0A 20 20 20 20 20 20 20 20 20 20 0D 0A 20 20 20 . ..
00C990: 20 20 20 20 20 46 55 4E 43 54 49 4F 4E 20 63 70 FUNCTION cp
00C9A0: 72 5F 6F 6B 28 6E 75 6D 6D 65 72 20 3A 20 63 70 r_ok(nummer : cp
00C9B0: 72 63 69 66 72 65 29 20 3A 20 42 4F 4F 4C 45 41 rcifre) : BOOLEA
00C9C0: 4E 3B 0D 0A 20 20 20 20 20 20 20 20 0D 0A 20 20 N;.. ..
00C9D0: 20 20 20 20 20 20 20 20 56 41 52 0D 0A 20 20 20 VAR..
00C9E0: 20 20 20 20 20 20 20 20 20 73 75 6D 2C 20 64 61 sum, da
00C9F0: 67 2C 20 6D 61 61 6E 65 64 2C 20 61 61 72 2C 20 g, maaned, aar,
00CA00: 58 59 28 32 37 20 2B 20 70 6F 73 69 74 69 6F 6E XY(27 + position
00CA10: 2C 20 38 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 , 8);..
00CA20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00CA30: 20 57 52 49 54 45 28 27 5E 20 46 65 6A 6C 61 67 WRITE('^ Fejlag
00CA40: 74 69 67 74 20 74 65 67 6E 20 2D 20 54 61 73 74 tigt tegn - Tast
00CA50: 20 3C 52 45 54 55 52 4E 3E 27 29 3B 0D 0A 20 20 <RETURN>');..
00CA60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00CA70: 20 20 20 20 20 20 20 20 52 45 41 44 4C 4E 28 63 READLN(c
00CA80: 68 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 h);..
00CA90: 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4E 44 END
00CAA0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ;..
00CAB0: 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 END;..
00CAC0: 20 20 20 20 20 20 20 55 4E 54 49 4C 20 28 70 6F UNTIL (po
00CAD0: 73 69 74 69 6F 6E 20 3D 20 30 29 20 4F 52 20 73 sition = 0) OR s
00CAE0: 6C 75 74 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 lut;..
00CAF0: 20 20 49 46 20 4E 4F 54 20 73 6C 75 74 0D 0A 20 IF NOT slut..
00CB00: 20 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 THE
00CB10: 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 N..
00CB20: 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 20 BEGIN..
00CB30: 20 20 20 20 20 20 20 20 20 20 20 20 46 4F 52 20 FOR
00CB40: 69 20 3A 3D 20 31 20 54 4F 20 6D 61 78 74 65 67 i := 1 TO maxteg
00CB50: 6E 20 44 4F 0D 0A 20 20 20 20 20 20 20 20 20 20 n DO..
00CB60: 20 20 20 20 20 20 20 20 20 20 63 69 66 66 65 72 ciffer
00CB70: 28 2E 69 2E 29 20 3A 3D 20 4F 52 44 28 63 70 72 (.i.) := ORD(cpr
00CB80: 73 74 28 2E 69 2E 29 29 20 2D 20 4F 52 44 28 27 st(.i.)) - ORD('
00CB90: 30 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 0');..
00CBA0: 20 20 20 20 20 20 20 20 47 4F 54 4F 58 59 28 31 GOTOXY(1
00CBB0: 30 2C 20 31 31 29 3B 20 57 52 49 54 45 28 63 70 0, 11); WRITE(cp
00CBC0: 72 73 74 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 rst);..
00CBD0: 20 20 20 20 20 20 20 20 20 49 46 20 63 70 72 5F IF cpr_
00CBE0: 6F 6B 28 63 69 66 66 65 72 29 0D 0A 20 20 20 20 ok(ciffer)..
00CBF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00CC00: 69 20 3A 20 49 4E 54 45 47 45 52 3B 0D 0A 20 20 i : INTEGER;..
00CC10: 20 20 20 20 20 20 20 20 20 20 74 65 73 74 20 3A test :
00CC20: 20 42 4F 4F 4C 45 41 4E 3B 0D 0A 20 20 20 20 20 BOOLEAN;..
00CC30: 20 20 20 20 20 0D 0A 20 20 20 20 20 20 20 20 20 ..
00CC40: 20 42 45 47 49 4E 20 28 2A 20 63 70 72 5F 6F 6B BEGIN (* cpr_ok
00CC50: 20 2A 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20 *)..
00CC60: 20 73 75 6D 20 3A 3D 20 30 3B 0D 0A 20 20 20 20 sum := 0;..
00CC70: 20 20 20 20 20 20 20 20 74 65 73 74 20 3A 3D 20 test :=
00CC80: 54 52 55 45 3B 0D 0A 20 20 20 20 20 20 20 20 20 TRUE;..
00CC90: 20 20 20 46 4F 52 20 69 20 3A 3D 20 31 20 54 4F FOR i := 1 TO
00CCA0: 20 37 20 44 4F 0D 0A 20 20 20 20 20 20 20 20 20 7 DO..
00CCB0: 20 20 20 20 20 73 75 6D 20 3A 3D 20 73 75 6D 20 sum := sum
00CCC0: 2B 20 6E 75 6D 6D 65 72 28 2E 31 31 20 2D 20 69 + nummer(.11 - i
00CCD0: 2E 29 20 2A 20 69 3B 0D 0A 20 20 20 20 20 20 20 .) * i;..
00CCE0: 20 20 20 20 20 46 4F 52 20 69 20 3A 3D 20 32 20 FOR i := 2
00CCF0: 54 4F 20 34 20 44 4F 0D 0A 20 20 20 20 20 20 20 TO 4 DO..
00CD00: 20 20 20 20 20 20 20 73 75 6D 20 3A 3D 20 73 75 sum := su
00CD10: 6D 20 2B 20 6E 75 6D 6D 65 72 28 2E 35 20 2D 20 m + nummer(.5 -
00CD20: 69 2E 29 20 2A 20 69 3B 0D 0A 20 20 20 20 20 20 i.) * i;..
00CD30: 20 20 20 20 20 20 49 46 20 73 75 6D 20 4D 4F 44 IF sum MOD
00CD40: 20 31 31 20 3C 3E 20 30 0D 0A 20 20 20 20 20 20 11 <> 0..
00CD50: 20 20 20 20 20 20 20 20 54 48 45 4E 20 74 65 73 THEN tes
00CD60: 74 20 3A 3D 20 46 41 4C 53 45 3B 0D 0A 20 20 20 t := FALSE;..
00CD70: 20 20 20 20 20 20 20 20 20 64 61 67 20 3A 3D 20 dag :=
00CD80: 6E 75 6D 6D 65 72 28 2E 31 2E 29 20 2A 20 31 30 nummer(.1.) * 10
00CD90: 2B 20 6E 75 6D 6D 65 72 28 2E 32 2E 29 3B 0D 0A + nummer(.2.);..
00CDA0: 20 20 20 20 20 20 20 20 20 20 20 20 6D 61 61 6E maan
00CDB0: 65 64 20 3A 3D 20 6E 75 6D 6D 65 72 28 2E 33 2E ed := nummer(.3.
00CDC0: 29 20 2A 20 31 30 20 2B 20 6E 75 6D 6D 65 72 28 ) * 10 + nummer(
00CDD0: 2E 34 2E 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 .4.);..
00CDE0: 20 20 20 61 61 72 20 3A 3D 20 6E 75 6D 6D 65 72 aar := nummer
00CDF0: 28 2E 35 2E 29 20 2A 20 31 30 20 2B 20 6E 75 6D (.5.) * 10 + num
00CE00: 54 48 45 4E 20 57 52 49 54 45 28 27 20 65 72 20 THEN WRITE(' er
00CE10: 4F 4B 2E 27 29 0D 0A 20 20 20 20 20 20 20 20 20 OK.')..
00CE20: 20 20 20 20 20 20 20 20 20 20 20 45 4C 53 45 20 ELSE
00CE30: 57 52 49 54 45 28 27 20 65 72 20 69 6B 6B 65 20 WRITE(' er ikke
00CE40: 69 20 6F 72 64 65 6E 2E 27 29 3B 0D 0A 20 20 20 i orden.');..
00CE50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 W
00CE60: 52 49 54 45 28 27 20 20 20 54 61 73 74 20 3C 52 RITE(' Tast <R
00CE70: 45 54 55 52 4E 3E 3A 20 27 29 3B 20 52 45 41 44 ETURN>: '); READ
00CE80: 4C 4E 28 63 68 29 3B 0D 0A 20 20 20 20 20 20 20 LN(ch);..
00CE90: 20 20 20 20 20 20 20 20 20 45 4E 44 3B 0D 0A 20 END;..
00CEA0: 20 20 20 20 20 20 20 20 20 55 4E 54 49 4C 20 73 UNTIL s
00CEB0: 6C 75 74 3B 0D 0A 20 20 20 20 20 20 20 20 45 4E lut;.. EN
00CEC0: 44 2E 20 28 2A 20 63 70 72 20 2A 29 0D 0A 1A 20 D. (* cpr *)...
00CED0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 W
00CEE0: 52 49 54 45 28 27 20 20 20 54 61 73 74 20 3C 52 RITE(' Tast <R
00CEF0: 45 54 55 52 4E 3E 3A 20 27 29 3B 20 52 45 41 44 ETURN>: '); READ
00CF00: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00CF10: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00CF20: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00CF30: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00CF40: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00CF50: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00CF60: 0D 00 68 00 00 00 00 00 00 00 00 00 00 00 33 00 ..h...........3.
00CF70: EE BF 04 00 00 00 00 00 00 30 00 00 48 97 CD 73 .........0..H..s
00CF80: DE 00 00 AD 30 54 BA 44 0B 9F F0 F5 6F 57 69 8D ....0T.D....oWi.
00CF90: 55 D7 0B B7 AA C5 8A C5 3F 15 C3 BE F3 39 42 BD U.......?....9B.
00CFA0: D6 F3 60 D5 DF 94 88 5E 54 FE E0 D8 53 4E 37 4A ..`....^T...SN7J
00CFB0: 1A 9B 93 88 EB 7E 8E 3C A6 57 6A FB AF 5A BE 0A .....~.<.Wj..Z..
00CFC0: 16 AA CD A2 BB 16 98 DA 08 C9 A8 6E FD F6 B8 A3 ...........n...£
00CFD0: 1F 70 01 AA 8D 14 CC C5 39 15 D4 5C EF 5E D9 33 .p......9..\.^.3
00CFE0: 98 E1 67 5D 77 00 D7 8E 37 2B 37 F4 5F 6F 8C 4D ..g]w...7+7._o.M
00CFF0: D4 75 AD 29 0A D8 60 C2 0E 70 62 D9 2E 18 3E 7C .u.)..`..pb...>|
00D000: 6D 65 72 28 2E 36 2E 29 3B 0D 0A 20 20 20 20 20 mer(.6.);..
00D010: 20 20 20 20 20 20 20 49 46 20 28 64 61 67 20 3D IF (dag =
00D020: 20 30 29 20 4F 52 20 28 64 61 67 20 3E 20 33 31 0) OR (dag > 31
00D030: 29 20 4F 52 20 28 6D 61 61 6E 65 64 20 3D 20 30 ) OR (maaned = 0
00D040: 29 20 4F 52 20 28 6D 61 61 6E 65 64 20 3E 20 31 ) OR (maaned > 1
00D050: 32 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 2)..
00D060: 20 20 54 48 45 4E 20 74 65 73 74 20 3A 3D 20 46 THEN test := F
00D070: 41 4C 53 45 3B 0D 0A 20 20 20 20 20 20 20 20 20 ALSE;..
00D080: 20 20 20 49 46 20 28 28 6D 61 61 6E 65 64 20 3D IF ((maaned =
00D090: 20 34 29 20 4F 52 20 28 6D 61 61 6E 65 64 20 3D 4) OR (maaned =
00D0A0: 20 36 29 20 4F 52 0D 0A 20 20 20 20 20 20 20 20 6) OR..
00D0B0: 20 20 20 20 20 20 20 20 28 6D 61 61 6E 65 64 20 (maaned
00D0C0: 3D 20 39 29 20 4F 52 20 28 6D 61 61 6E 65 64 20 = 9) OR (maaned
00D0D0: 3D 20 31 31 29 29 20 41 4E 44 20 28 64 61 67 20 = 11)) AND (dag
00D0E0: 3D 20 33 31 29 0D 0A 20 20 20 20 20 20 20 20 20 = 31)..
00D0F0: 20 20 20 20 20 54 48 45 4E 20 74 65 73 74 20 3A THEN test :
00D100: 3D 20 46 41 4C 53 45 3B 0D 0A 20 20 20 20 20 20 = FALSE;..
00D110: 20 20 20 20 20 20 49 46 20 28 6D 61 61 6E 65 64 IF (maaned
00D120: 20 3D 20 32 29 20 41 4E 44 20 28 64 61 67 3D 20 = 2) AND (dag=
00D130: 32 39 29 20 41 4E 44 20 28 28 61 61 72 20 4D 4F 29) AND ((aar MO
00D140: 44 20 34 20 3C 3E 30 29 20 4F 52 20 28 61 61 72 D 4 <>0) OR (aar
00D150: 20 3D 20 30 29 29 0D 0A 20 20 20 20 20 20 20 20 = 0))..
00D160: 20 20 20 20 20 20 54 48 45 4E 20 74 65 73 74 20 THEN test
00D170: 3A 3D 20 66 61 6C 73 65 3B 0D 0A 20 20 20 20 20 := false;..
00D180: 20 20 20 20 20 20 20 63 70 72 5F 6F 6B 20 3A 3D cpr_ok :=
00D190: 20 74 65 73 74 3B 0D 0A 20 20 20 20 20 20 20 20 test;..
00D1A0: 20 20 45 4E 44 3B 20 28 2A 20 63 70 72 5F 6F 6B END; (* cpr_ok
00D1B0: 20 2A 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20 *)..
00D1C0: 20 0D 0A 20 20 20 20 20 20 20 20 42 45 47 49 4E .. BEGIN
00D1D0: 20 28 2A 20 63 70 72 20 2A 29 0D 0A 20 20 20 20 (* cpr *)..
00D1E0: 20 20 20 20 20 20 52 45 50 45 41 54 0D 0A 20 20 REPEAT..
00D1F0: 20 20 20 20 20 20 20 20 20 20 52 45 50 45 41 54 REPEAT
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: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D310: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D320: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D330: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D340: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D350: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D360: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D370: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D380: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D390: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D3A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D3B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D3C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D3D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D3E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D3F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D400: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D410: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D420: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D430: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D440: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D450: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D460: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D470: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D480: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D490: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D4A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D4B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D4C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D4D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D4E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D4F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D500: 50 52 4F 47 52 41 4D 20 63 70 72 64 61 74 6F 32 PROGRAM cprdato2
00D510: 3B 0D 0A 0D 0A 20 20 54 59 50 45 0D 0A 20 20 20 ;.... TYPE..
00D520: 20 73 74 72 36 20 3D 20 53 54 52 49 4E 47 28 2E str6 = STRING(.
00D530: 36 2E 29 3B 0D 0A 20 20 20 20 61 72 72 20 3D 20 6.);.. arr =
00D540: 41 52 52 41 59 28 2E 31 20 2E 2E 20 36 2E 29 20 ARRAY(.1 .. 6.)
00D550: 4F 46 20 49 4E 54 45 47 45 52 3B 0D 0A 20 20 20 OF INTEGER;..
00D560: 20 0D 0A 20 20 56 41 52 0D 0A 20 20 20 20 73 74 .. VAR.. st
00D570: 72 20 3A 20 73 74 72 36 3B 0D 0A 20 20 20 20 63 r : str6;.. c
00D580: 69 66 20 3A 20 61 72 72 3B 0D 0A 20 20 20 20 67 if : arr;.. g
00D590: 2C 20 68 2C 20 69 2C 20 64 61 74 6F 73 75 6D 2C , h, i, datosum,
00D5A0: 20 67 73 75 6D 2C 20 68 73 75 6D 2C 20 69 73 75 gsum, hsum, isu
00D5B0: 6D 2C 20 63 68 65 63 6B 2C 20 6A 20 3A 20 49 4E m, check, j : IN
00D5C0: 54 45 47 45 52 3B 0D 0A 20 20 20 20 64 61 67 2C TEGER;.. dag,
00D5D0: 20 6D 61 61 6E 65 64 2C 20 61 61 72 20 3A 20 49 maaned, aar : I
00D5E0: 4E 54 45 47 45 52 3B 0D 0A 20 20 20 20 6F 6B 20 NTEGER;.. ok
00D5F0: 3A 20 42 4F 4F 4C 45 41 4E 3B 0D 0A 20 20 20 20 : BOOLEAN;..
00D600: 0D 0A 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 57 .. BEGIN.. W
00D610: 52 49 54 45 28 43 4C 52 48 4F 4D 29 3B 0D 0A 20 RITE(CLRHOM);..
00D620: 20 20 20 52 45 50 45 41 54 0D 0A 20 20 20 20 20 REPEAT..
00D630: 20 52 45 50 45 41 54 0D 0A 20 20 20 20 20 20 20 REPEAT..
00D640: 20 47 4F 54 4F 58 59 28 31 30 2C 20 35 29 3B 0D GOTOXY(10, 5);.
00D650: 0A 20 20 20 20 20 20 20 20 57 52 49 54 45 28 27 . WRITE('
00D660: 49 6E 64 74 61 73 74 20 65 6E 20 64 61 74 6F 20 Indtast en dato
00D670: 73 7D 6C 65 64 65 73 3A 20 44 44 4D 4D 5D 5D 27 s}ledes: DDMM]]'
00D680: 29 3B 0D 0A 20 20 20 20 20 20 20 20 47 4F 54 4F );.. GOTO
00D690: 58 59 28 33 35 2C 20 36 29 3B 0D 0A 20 20 20 20 XY(35, 6);..
00D6A0: 20 20 20 20 57 52 49 54 45 28 43 4C 52 45 4F 4C WRITE(CLREOL
00D6B0: 29 3B 0D 0A 20 20 20 20 20 20 20 20 42 55 46 4C );.. BUFL
00D6C0: 45 4E 20 3A 3D 20 36 3B 0D 0A 20 20 20 20 20 20 EN := 6;..
00D6D0: 20 20 52 45 41 44 4C 4E 28 73 74 72 29 3B 0D 0A READLN(str);..
00D6E0: 20 20 20 20 20 20 20 20 6F 6B 20 3A 3D 20 54 52 ok := TR
00D6F0: 55 45 3B 0D 0A 20 20 20 20 20 20 20 20 49 46 20 UE;.. IF
00D700: 50 52 4F 47 52 41 4D 20 63 70 72 64 61 74 6F 3B PROGRAM cprdato;
00D710: 0D 0A 0D 0A 20 20 54 59 50 45 0D 0A 20 20 20 20 .... TYPE..
00D720: 73 74 72 36 20 3D 20 53 54 52 49 4E 47 28 2E 36 str6 = STRING(.6
00D730: 2E 29 3B 0D 0A 20 20 20 20 61 72 72 20 3D 20 41 .);.. arr = A
00D740: 52 52 41 59 28 2E 31 20 2E 2E 20 36 2E 29 20 4F RRAY(.1 .. 6.) O
00D750: 46 20 49 4E 54 45 47 45 52 3B 0D 0A 20 20 20 20 F INTEGER;..
00D760: 0D 0A 20 20 56 41 52 0D 0A 20 20 20 20 73 74 72 .. VAR.. str
00D770: 20 3A 20 73 74 72 36 3B 0D 0A 20 20 20 20 63 69 : str6;.. ci
00D780: 66 20 3A 20 61 72 72 3B 0D 0A 20 20 20 20 67 2C f : arr;.. g,
00D790: 20 68 2C 20 69 2C 20 64 61 74 6F 73 75 6D 2C 20 h, i, datosum,
00D7A0: 67 73 75 6D 2C 20 68 73 75 6D 2C 20 69 73 75 6D gsum, hsum, isum
00D7B0: 2C 20 63 68 65 63 6B 2C 20 6A 20 3A 20 49 4E 54 , check, j : INT
00D7C0: 45 47 45 52 3B 0D 0A 20 20 20 20 6F 6B 20 3A 20 EGER;.. ok :
00D7D0: 42 4F 4F 4C 45 41 4E 3B 0D 0A 20 20 20 20 0D 0A BOOLEAN;.. ..
00D7E0: 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 57 52 49 BEGIN.. WRI
00D7F0: 54 45 28 43 4C 52 48 4F 4D 29 3B 0D 0A 20 20 20 TE(CLRHOM);..
00D800: 20 52 45 50 45 41 54 0D 0A 20 20 20 20 20 20 47 REPEAT.. G
00D810: 4F 54 4F 58 59 28 31 30 2C 20 35 29 3B 0D 0A 20 OTOXY(10, 5);..
00D820: 20 20 20 20 20 57 52 49 54 45 28 27 49 6E 64 74 WRITE('Indt
00D830: 61 73 74 20 65 6E 20 64 61 74 6F 20 73 7D 6C 65 ast en dato s}le
00D840: 64 65 73 3A 20 44 44 4D 4D 5D 5D 27 29 3B 0D 0A des: DDMM]]');..
00D850: 20 20 20 20 20 20 47 4F 54 4F 58 59 28 33 35 2C GOTOXY(35,
00D860: 20 36 29 3B 0D 0A 20 20 20 20 20 20 57 52 49 54 6);.. WRIT
00D870: 45 28 43 4C 52 45 4F 4C 29 3B 0D 0A 20 20 20 20 E(CLREOL);..
00D880: 20 20 42 55 46 4C 45 4E 20 3A 3D 20 36 3B 0D 0A BUFLEN := 6;..
00D890: 20 20 20 20 20 20 52 45 41 44 4C 4E 28 73 74 72 READLN(str
00D8A0: 29 3B 0D 0A 20 20 20 20 20 20 6F 6B 20 3A 3D 20 );.. ok :=
00D8B0: 54 52 55 45 3B 0D 0A 20 20 20 20 20 20 49 46 20 TRUE;.. IF
00D8C0: 4C 45 4E 28 73 74 72 29 20 3C 20 36 0D 0A 20 20 LEN(str) < 6..
00D8D0: 20 20 20 20 20 20 54 48 45 4E 20 6F 6B 20 3A 3D THEN ok :=
00D8E0: 20 46 41 4C 53 45 0D 0A 20 20 20 20 20 20 20 20 FALSE..
00D8F0: 45 4C 53 45 0D 0A 20 20 20 20 20 20 20 20 20 20 ELSE..
00D900: 4C 45 4E 28 73 74 72 29 20 3C 20 36 0D 0A 20 20 LEN(str) < 6..
00D910: 20 20 20 20 20 20 20 20 54 48 45 4E 20 6F 6B 20 THEN ok
00D920: 3A 3D 20 46 41 4C 53 45 0D 0A 20 20 20 20 20 20 := FALSE..
00D930: 20 20 20 20 45 4C 53 45 0D 0A 20 20 20 20 20 20 ELSE..
00D940: 20 20 20 20 20 20 46 4F 52 20 6A 20 3A 3D 20 31 FOR j := 1
00D950: 20 54 4F 20 36 20 44 4F 0D 0A 20 20 20 20 20 20 TO 6 DO..
00D960: 20 20 20 20 20 20 20 20 49 46 20 28 73 74 72 28 IF (str(
00D970: 2E 6A 2E 29 20 3C 20 27 30 27 29 20 4F 52 20 28 .j.) < '0') OR (
00D980: 27 39 27 20 3C 20 73 74 72 28 2E 6A 2E 29 29 0D '9' < str(.j.)).
00D990: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
00D9A0: 20 54 48 45 4E 20 6F 6B 20 3A 3D 20 46 41 4C 53 THEN ok := FALS
00D9B0: 45 3B 0D 0A 20 20 20 20 20 20 55 4E 54 49 4C 20 E;.. UNTIL
00D9C0: 6F 6B 3B 0D 0A 20 20 20 20 20 20 46 4F 52 20 6A ok;.. FOR j
00D9D0: 20 3A 3D 20 31 20 54 4F 20 36 20 44 4F 0D 0A 20 := 1 TO 6 DO..
00D9E0: 20 20 20 20 20 20 20 63 69 66 28 2E 6A 2E 29 20 cif(.j.)
00D9F0: 3A 3D 20 4F 52 44 28 73 74 72 28 2E 6A 2E 29 29 := ORD(str(.j.))
00DA00: 20 2D 20 4F 52 44 28 27 30 27 29 3B 0D 0A 20 20 - ORD('0');..
00DA10: 20 20 20 20 64 61 67 20 3A 3D 20 63 69 66 28 2E dag := cif(.
00DA20: 31 2E 29 20 2A 20 31 30 20 2B 20 63 69 66 28 2E 1.) * 10 + cif(.
00DA30: 32 2E 29 3B 0D 0A 20 20 20 20 20 20 6D 61 61 6E 2.);.. maan
00DA40: 65 64 20 3A 3D 20 63 69 66 28 2E 33 2E 29 20 2A ed := cif(.3.) *
00DA50: 20 31 30 20 2B 20 63 69 66 28 2E 34 2E 29 3B 0D 10 + cif(.4.);.
00DA60: 0A 20 20 20 20 20 20 61 61 72 20 3A 3D 20 63 69 . aar := ci
00DA70: 66 28 2E 35 2E 29 20 2A 20 31 30 20 2B 20 63 69 f(.5.) * 10 + ci
00DA80: 66 28 2E 36 2E 29 3B 0D 0A 20 20 20 20 20 20 49 f(.6.);.. I
00DA90: 46 20 28 64 61 67 20 3D 20 30 29 20 4F 52 20 28 F (dag = 0) OR (
00DAA0: 64 61 67 20 3E 20 33 31 29 20 4F 52 20 28 6D 61 dag > 31) OR (ma
00DAB0: 61 6E 65 64 20 3D 20 30 29 20 4F 52 20 28 6D 61 aned = 0) OR (ma
00DAC0: 61 6E 65 64 20 3E 20 31 32 29 0D 0A 20 20 20 20 aned > 12)..
00DAD0: 20 20 20 20 54 48 45 4E 20 20 6F 6B 20 3A 3D 20 THEN ok :=
00DAE0: 46 41 4C 53 45 3B 0D 0A 20 20 20 20 20 20 49 46 FALSE;.. IF
00DAF0: 20 28 28 6D 61 61 6E 65 64 20 3D 20 34 29 20 4F ((maaned = 4) O
00DB00: 46 4F 52 20 6A 20 3A 3D 20 31 20 54 4F 20 36 20 FOR j := 1 TO 6
00DB10: 44 4F 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 DO..
00DB20: 49 46 20 28 73 74 72 28 2E 6A 2E 29 20 3C 20 27 IF (str(.j.) < '
00DB30: 30 27 29 20 4F 52 20 28 27 39 27 20 3C 20 73 74 0') OR ('9' < st
00DB40: 72 28 2E 6A 2E 29 29 0D 0A 20 20 20 20 20 20 20 r(.j.))..
00DB50: 20 20 20 20 20 20 20 54 48 45 4E 20 6F 6B 20 3A THEN ok :
00DB60: 3D 20 46 41 4C 53 45 3B 0D 0A 20 20 20 20 55 4E = FALSE;.. UN
00DB70: 54 49 4C 20 6F 6B 3B 0D 0A 20 20 20 20 46 4F 52 TIL ok;.. FOR
00DB80: 20 6A 20 3A 3D 20 31 20 54 4F 20 36 20 44 4F 0D j := 1 TO 6 DO.
00DB90: 0A 20 20 20 20 20 20 63 69 66 28 2E 6A 2E 29 20 . cif(.j.)
00DBA0: 3A 3D 20 4F 52 44 28 73 74 72 28 2E 6A 2E 29 29 := ORD(str(.j.))
00DBB0: 20 2D 20 4F 52 44 28 27 30 27 29 3B 0D 0A 20 20 - ORD('0');..
00DBC0: 20 20 64 61 74 6F 73 75 6D 20 3A 3D 20 63 69 66 datosum := cif
00DBD0: 28 2E 31 2E 29 20 2A 20 34 20 2B 20 63 69 66 28 (.1.) * 4 + cif(
00DBE0: 2E 32 2E 29 20 2A 20 33 20 2B 20 63 69 66 28 2E .2.) * 3 + cif(.
00DBF0: 33 2E 29 20 2A 20 32 20 0D 0A 20 20 20 20 20 20 3.) * 2 ..
00DC00: 20 20 20 20 20 20 20 2B 20 63 69 66 28 2E 34 2E + cif(.4.
00DC10: 29 20 2A 20 37 20 2B 20 63 69 66 28 2E 35 2E 29 ) * 7 + cif(.5.)
00DC20: 20 2A 20 36 20 2B 20 63 69 66 28 2E 36 2E 29 20 * 6 + cif(.6.)
00DC30: 2A 20 35 3B 0D 0A 20 20 20 20 57 52 49 54 45 4C * 5;.. WRITEL
00DC40: 4E 3B 0D 0A 20 20 20 20 46 4F 52 20 67 20 3A 3D N;.. FOR g :=
00DC50: 20 30 20 54 4F 20 39 20 44 4F 0D 0A 20 20 20 20 0 TO 9 DO..
00DC60: 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 BEGIN..
00DC70: 20 67 73 75 6D 20 3A 3D 20 64 61 74 6F 73 75 6D gsum := datosum
00DC80: 20 2B 20 67 20 2A 20 34 3B 0D 0A 20 20 20 20 20 + g * 4;..
00DC90: 20 20 20 46 4F 52 20 68 20 3A 3D 20 30 20 54 4F FOR h := 0 TO
00DCA0: 20 39 20 44 4F 0D 0A 20 20 20 20 20 20 20 20 20 9 DO..
00DCB0: 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 BEGIN..
00DCC0: 20 20 20 20 68 73 75 6D 20 3A 3D 20 67 73 75 6D hsum := gsum
00DCD0: 20 2B 20 68 20 2A 20 33 3B 0D 0A 20 20 20 20 20 + h * 3;..
00DCE0: 20 20 20 20 20 20 20 46 4F 52 20 69 20 3A 3D 20 FOR i :=
00DCF0: 30 20 54 4F 20 39 20 44 4F 0D 0A 20 20 20 20 20 0 TO 9 DO..
00DD00: 52 20 28 6D 61 61 6E 65 64 20 3D 20 36 29 20 4F R (maaned = 6) O
00DD10: 52 20 28 6D 61 61 6E 65 64 20 3D 20 39 29 20 4F R (maaned = 9) O
00DD20: 52 20 28 6D 61 61 6E 65 64 20 3D 20 31 31 29 29 R (maaned = 11))
00DD30: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
00DD40: 20 20 20 20 20 20 20 20 20 41 4E 44 20 28 64 61 AND (da
00DD50: 67 20 3D 20 33 31 29 0D 0A 20 20 20 20 20 20 20 g = 31)..
00DD60: 20 54 48 45 4E 20 6F 6B 20 3A 3D 20 46 41 4C 53 THEN ok := FALS
00DD70: 45 3B 0D 0A 20 20 20 20 20 20 49 46 20 28 64 61 E;.. IF (da
00DD80: 67 20 3D 20 32 39 29 20 41 4E 44 20 28 6D 61 61 g = 29) AND (maa
00DD90: 6E 65 64 20 3D 20 32 29 20 41 4E 44 20 28 28 61 ned = 2) AND ((a
00DDA0: 61 72 20 4D 4F 44 20 34 20 3C 3E 20 30 29 20 4F ar MOD 4 <> 0) O
00DDB0: 52 20 28 61 61 72 20 3D 20 30 29 29 0D 0A 20 20 R (aar = 0))..
00DDC0: 20 20 20 20 20 20 54 48 45 4E 20 6F 6B 20 3A 3D THEN ok :=
00DDD0: 20 46 41 4C 53 45 0D 0A 20 20 20 20 55 4E 54 49 FALSE.. UNTI
00DDE0: 4C 20 6F 6B 3B 20 20 20 20 20 20 0D 0A 20 20 20 L ok; ..
00DDF0: 20 64 61 74 6F 73 75 6D 20 3A 3D 20 63 69 66 28 datosum := cif(
00DE00: 2E 31 2E 29 20 2A 20 34 20 2B 20 63 69 66 28 2E .1.) * 4 + cif(.
00DE10: 32 2E 29 20 2A 20 33 20 2B 20 63 69 66 28 2E 33 2.) * 3 + cif(.3
00DE20: 2E 29 20 2A 20 32 20 0D 0A 20 20 20 20 20 20 20 .) * 2 ..
00DE30: 20 20 20 20 20 20 2B 20 63 69 66 28 2E 34 2E 29 + cif(.4.)
00DE40: 20 2A 20 37 20 2B 20 63 69 66 28 2E 35 2E 29 20 * 7 + cif(.5.)
00DE50: 2A 20 36 20 2B 20 63 69 66 28 2E 36 2E 29 20 2A * 6 + cif(.6.) *
00DE60: 20 35 3B 0D 0A 20 20 20 20 57 52 49 54 45 4C 4E 5;.. WRITELN
00DE70: 3B 0D 0A 20 20 20 20 46 4F 52 20 67 20 3A 3D 20 ;.. FOR g :=
00DE80: 30 20 54 4F 20 39 20 44 4F 0D 0A 20 20 20 20 20 0 TO 9 DO..
00DE90: 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 BEGIN..
00DEA0: 67 73 75 6D 20 3A 3D 20 64 61 74 6F 73 75 6D 20 gsum := datosum
00DEB0: 2B 20 67 20 2A 20 34 3B 0D 0A 20 20 20 20 20 20 + g * 4;..
00DEC0: 20 20 46 4F 52 20 68 20 3A 3D 20 30 20 54 4F 20 FOR h := 0 TO
00DED0: 39 20 44 4F 0D 0A 20 20 20 20 20 20 20 20 20 20 9 DO..
00DEE0: 42 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 BEGIN..
00DEF0: 20 20 20 68 73 75 6D 20 3A 3D 20 67 73 75 6D 20 hsum := gsum
00DF00: 20 20 20 20 20 20 20 20 20 42 45 47 49 4E 0D 0A BEGIN..
00DF10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00DF20: 69 73 75 6D 20 3A 3D 20 68 73 75 6D 20 2B 20 69 isum := hsum + i
00DF30: 20 2A 20 32 3B 0D 0A 20 20 20 20 20 20 20 20 20 * 2;..
00DF40: 20 20 20 20 20 20 20 46 4F 52 20 63 68 65 63 6B FOR check
00DF50: 20 3A 3D 20 30 20 54 4F 20 39 20 44 4F 0D 0A 20 := 0 TO 9 DO..
00DF60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00DF70: 20 49 46 20 28 69 73 75 6D 20 2B 20 63 68 65 63 IF (isum + chec
00DF80: 6B 29 20 4D 4F 44 20 31 31 20 3D 20 30 0D 0A 20 k) MOD 11 = 0..
00DF90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00DFA0: 20 20 20 54 48 45 4E 20 57 52 49 54 45 28 73 74 THEN WRITE(st
00DFB0: 72 2C 20 27 2D 27 2C 20 67 2C 20 68 2C 20 69 2C r, '-', g, h, i,
00DFC0: 20 63 68 65 63 6B 2C 20 27 20 20 20 20 20 27 29 check, ' ')
00DFD0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ;..
00DFE0: 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 20 20 20 END;..
00DFF0: 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 45 4E 44 END;.. END
00E000: 3B 0D 0A 20 20 20 20 57 52 49 54 45 4C 4E 3B 0D ;.. WRITELN;.
00E010: 0A 20 20 45 4E 44 2E 0D 0A 1A 20 20 20 20 20 20 . END....
00E020: 20 20 20 54 48 45 4E 20 57 52 49 54 45 28 73 74 THEN WRITE(st
00E030: 72 2C 20 27 2D 27 2C 20 67 2C 20 68 2C 20 69 2C r, '-', g, h, i,
00E040: 20 63 68 65 63 6B 2C 20 27 20 20 20 20 20 27 29 check, ' ')
00E050: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ;..
00E060: 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 20 20 20 END;..
00E070: 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 45 4E 44 END;.. END
00E080: 00 00 00 FC 00 01 00 01 00 01 52 55 4E 22 44 49 ..........RUN"DI
00E090: 53 43 0D C5 89 68 B4 D6 2E 24 3C CC 23 0A 5B 81 SC...h...$<.#.[.
00E0A0: 28 8F 37 DE 4E F2 95 17 D4 1E C4 1E FB AE B5 4F (.7.N..........O
00E0B0: F0 BB F1 4A B9 49 62 34 75 EC EE 35 5B 9F 5B 6F ...J.Ib4u..5[.[o
00E0C0: 2F 4C 12 C1 60 C1 BE 10 7B E8 74 CB 23 01 73 24 /L..`...{.t.#.s$
00E0D0: 2A 23 44 3F 79 DD AD D1 9C A6 0C 90 BF 5C 3D E6 *#D?y........\=.
00E0E0: 5F 2B FC E0 FD 86 26 63 C0 CA E3 CB 04 71 95 03 _+....&c.....q..
00E0F0: 56 C7 12 CA 29 AB 90 A2 BC 04 04 B5 A0 80 1C 45 V...)..........E
00E100: 2B 20 68 20 2A 20 33 3B 0D 0A 20 20 20 20 20 20 + h * 3;..
00E110: 20 20 20 20 20 20 46 4F 52 20 69 20 3A 3D 20 30 FOR i := 0
00E120: 20 54 4F 20 39 20 44 4F 0D 0A 20 20 20 20 20 20 TO 9 DO..
00E130: 20 20 20 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 BEGIN..
00E140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 i
00E150: 73 75 6D 20 3A 3D 20 68 73 75 6D 20 2B 20 69 20 sum := hsum + i
00E160: 2A 20 32 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 * 2;..
00E170: 20 20 20 20 20 20 46 4F 52 20 63 68 65 63 6B 20 FOR check
00E180: 3A 3D 20 30 20 54 4F 20 39 20 44 4F 0D 0A 20 20 := 0 TO 9 DO..
00E190: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00E1A0: 49 46 20 28 69 73 75 6D 20 2B 20 63 68 65 63 6B IF (isum + check
00E1B0: 29 20 4D 4F 44 20 31 31 20 3D 20 30 0D 0A 20 20 ) MOD 11 = 0..
00E1C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00E1D0: 20 20 54 48 45 4E 20 57 52 49 54 45 28 73 74 72 THEN WRITE(str
00E1E0: 2C 20 27 2D 27 2C 20 67 2C 20 68 2C 20 69 2C 20 , '-', g, h, i,
00E1F0: 63 68 65 63 6B 2C 20 27 20 20 20 20 20 27 29 3B check, ' ');
00E200: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
00E210: 45 4E 44 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 END;..
00E220: 45 4E 44 3B 0D 0A 20 20 20 20 20 20 45 4E 44 3B END;.. END;
00E230: 0D 0A 20 20 20 20 57 52 49 54 45 4C 4E 3B 0D 0A .. WRITELN;..
00E240: 20 20 45 4E 44 2E 0D 0A 1A 20 20 20 20 20 20 20 END....
00E250: 20 20 54 48 45 4E 20 57 52 49 54 45 28 73 74 72 THEN WRITE(str
00E260: 2C 20 27 2D 27 2C 20 67 2C 20 68 2C 20 69 2C 20 , '-', g, h, i,
00E270: 63 68 65 63 6B 2C 20 27 20 20 20 20 20 27 29 3B check, ' ');
00E280: 76 FD 52 4E 44 57 41 4C 4B 2E 20 20 20 5B 32 38 v.RNDWALK. [28
00E290: 2F 30 31 2F 31 39 39 31 5D 00 11 10 00 05 ED 77 /01/1991]......w
00E2A0: 3B 3D 1C 3E 5F 5F 55 FC FC 7B 80 7D 7F 6F AF 17 ;=.>__U..{.}.o..
00E2B0: 2F 94 B5 B4 BE AD E0 C0 AD 18 06 B3 4D ED CD DF /...........M...
00E2C0: CF FF FD DB 47 81 F7 95 54 D0 BC FF 51 B8 97 45 ....G...T...Q..E
00E2D0: 5D 67 DE 95 15 B0 BC 0A 27 81 D9 C3 B2 A4 BF 89 ]g......'.......
00E2E0: 0E 9F 63 BD CF C1 86 B1 2E 41 46 35 C3 DE 63 97 ..c......AF5..c.
00E2F0: 52 B2 95 A2 1B C2 C3 59 39 1B 2E 6F 59 9E 96 15 R......Y9..oY...
00E300: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E310: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E320: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E330: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E340: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E350: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E360: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E370: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E380: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E390: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E3A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E3B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E3C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E3D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E3E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E3F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E400: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E410: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E420: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E430: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E440: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E450: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E460: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E470: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E480: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E490: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E4A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E4B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E4C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E4D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E4E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E4F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
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: 20 20 20 20 20 20 20 20 50 52 4F 47 52 41 4D 20 PROGRAM
00E610: 70 65 72 73 6F 6E 5F 6E 72 3B 0D 0A 20 20 20 20 person_nr;..
00E620: 20 20 20 20 0D 0A 20 20 20 20 20 20 20 20 56 41 .. VA
00E630: 52 20 20 20 20 20 6E 72 20 20 20 20 20 20 20 20 R nr
00E640: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00E650: 20 20 20 20 20 20 20 20 20 20 20 20 3A 53 54 52 :STR
00E660: 49 4E 47 5B 31 31 5D 3B 0D 0A 20 20 20 20 20 20 ING[11];..
00E670: 20 20 20 20 20 20 20 20 20 20 69 31 2C 69 32 2C i1,i2,
00E680: 69 33 2C 74 61 6C 2C 74 61 6C 31 2C 74 61 6C 32 i3,tal,tal1,tal2
00E690: 2C 74 61 6C 33 20 20 20 20 20 20 20 20 20 20 20 ,tal3
00E6A0: 3A 69 6E 74 65 67 65 72 3B 0D 0A 20 20 20 20 20 :integer;..
00E6B0: 20 20 20 20 20 20 20 20 20 20 20 7A 20 20 20 20 z
00E6C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00E6D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00E6E0: 20 3A 72 65 61 6C 3B 20 20 20 20 20 0D 0A 20 20 :real; ..
00E6F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 2C p,
00E700: 71 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 q
00E710: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00E720: 20 20 20 20 3A 69 6E 74 65 67 65 72 3B 20 20 20 :integer;
00E730: 20 20 0D 0A 20 20 20 20 20 20 20 20 42 45 47 49 .. BEGI
00E740: 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 N..
00E750: 20 20 20 77 72 69 74 65 6C 6E 28 27 74 61 73 74 writeln('tast
00E760: 20 70 65 72 73 6F 6E 6E 75 6D 6D 65 72 27 29 3B personnummer');
00E770: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
00E780: 20 20 72 65 61 64 6C 6E 28 20 6E 72 20 29 3B 0D readln( nr );.
00E790: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
00E7A0: 20 74 61 6C 31 20 3A 3D 20 30 20 3B 20 74 61 6C tal1 := 0 ; tal
00E7B0: 32 20 3A 3D 20 30 20 3B 20 74 61 6C 33 20 3A 3D 2 := 0 ; tal3 :=
00E7C0: 20 30 3B 20 7A 20 3A 3D 20 30 3B 20 74 61 6C 20 0; z := 0; tal
00E7D0: 3A 3D 20 30 3B 20 20 20 0D 0A 20 20 20 20 20 20 := 0; ..
00E7E0: 20 20 20 20 20 20 20 20 20 20 70 20 3A 3D 20 6F p := o
00E7F0: 72 64 28 6E 72 5B 37 5D 29 20 20 3B 20 71 20 3A rd(nr[7]) ; q :
00E800: 61 72 76 65 74 79 70 65 3B 0D 0A 20 20 20 20 20 arvetype;..
00E810: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6F 65 oe
00E820: 6A 65 6E 66 61 72 76 65 20 3A 20 6F 65 6A 65 6E jenfarve : oejen
00E830: 66 61 72 76 65 74 79 70 65 3B 0D 0A 20 20 20 20 farvetype;..
00E840: 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4E 44 END
00E850: 3B 0D 0A 20 20 20 20 70 65 72 73 6F 6E 72 65 67 ;.. personreg
00E860: 69 73 74 65 72 20 3D 20 41 52 52 41 59 28 2E 31 ister = ARRAY(.1
00E870: 20 2E 2E 20 6D 61 78 2E 29 20 4F 46 20 70 65 72 .. max.) OF per
00E880: 73 6F 6E 70 6F 73 74 3B 0D 0A 20 20 0D 0A 20 20 sonpost;.. ..
00E890: 56 41 52 0D 0A 20 20 20 20 70 65 72 73 6F 6E 20 VAR.. person
00E8A0: 3A 20 70 65 72 73 6F 6E 72 65 67 69 73 74 65 72 : personregister
00E8B0: 3B 0D 0A 20 20 20 20 61 6E 74 61 6C 20 3A 20 49 ;.. antal : I
00E8C0: 4E 54 45 47 45 52 3B 0D 0A 20 20 0D 0A 20 20 50 NTEGER;.. .. P
00E8D0: 52 4F 43 45 44 55 52 45 20 72 65 74 75 72 3B 0D ROCEDURE retur;.
00E8E0: 0A 20 20 0D 0A 20 20 20 20 56 41 52 0D 0A 20 20 . .. VAR..
00E8F0: 20 20 20 20 63 68 20 3A 20 43 48 41 52 3B 0D 0A ch : CHAR;..
00E900: 20 20 20 20 0D 0A 20 20 20 20 42 45 47 49 4E 20 .. BEGIN
00E910: 28 2A 20 72 65 74 75 72 20 2A 29 20 20 0D 0A 20 (* retur *) ..
00E920: 20 20 20 20 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 WRITELN;..
00E930: 20 20 20 20 20 57 52 49 54 45 28 27 54 61 73 74 WRITE('Tast
00E940: 20 3C 52 45 54 55 52 4E 3E 3A 20 27 29 3B 0D 0A <RETURN>: ');..
00E950: 20 20 20 20 20 20 42 55 46 4C 45 4E 20 3A 3D 20 BUFLEN :=
00E960: 30 3B 0D 0A 20 20 20 20 20 20 52 45 41 44 4C 4E 0;.. READLN
00E970: 3B 0D 0A 20 20 20 20 45 4E 44 3B 20 28 2A 20 72 ;.. END; (* r
00E980: 65 74 75 72 20 2A 29 0D 0A 20 20 20 20 20 20 20 etur *)..
00E990: 0D 0A 20 20 50 52 4F 43 45 44 55 52 45 20 73 6F .. PROCEDURE so
00E9A0: 65 67 6B 6F 65 6E 3B 0D 0A 20 20 0D 0A 20 20 20 egkoen;.. ..
00E9B0: 20 56 41 52 0D 0A 20 20 20 20 20 20 69 20 3A 20 VAR.. i :
00E9C0: 49 4E 54 45 47 45 52 3B 0D 0A 20 20 20 20 20 20 INTEGER;..
00E9D0: 73 6F 65 67 5F 6B 6F 65 6E 20 3A 20 6B 6F 65 6E soeg_koen : koen
00E9E0: 74 79 70 65 3B 0D 0A 20 20 20 20 20 20 63 68 20 type;.. ch
00E9F0: 3A 20 43 48 41 52 3B 0D 0A 20 20 20 20 20 20 66 : CHAR;.. f
00EA00: 3D 20 6C 65 6E 28 6E 72 29 20 3B 20 20 0D 0A 20 = len(nr) ; ..
00EA10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 I
00EA20: 46 20 28 70 20 3D 20 34 35 29 20 41 4E 44 20 28 F (p = 45) AND (
00EA30: 71 20 3D 20 31 31 29 20 20 54 48 45 4E 0D 0A 20 q = 11) THEN..
00EA40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 B
00EA50: 45 47 49 4E 20 20 20 20 20 20 20 0D 0A 20 20 20 EGIN ..
00EA60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00EA70: 20 20 20 20 20 46 4F 52 20 69 31 20 3A 3D 20 31 FOR i1 := 1
00EA80: 20 54 4F 20 33 20 44 4F 0D 0A 20 20 20 20 20 20 TO 3 DO..
00EA90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00EAA0: 20 20 20 20 20 20 20 20 20 0D 0A 20 20 20 20 20 ..
00EAB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00EAC0: 20 20 20 74 61 6C 31 20 3A 3D 20 74 61 6C 31 20 tal1 := tal1
00EAD0: 2B 20 28 28 6F 72 64 28 6E 72 5B 69 31 5D 29 20 + ((ord(nr[i1])
00EAE0: 2D 20 34 38 29 20 2A 20 28 35 20 2D 69 31 29 29 - 48) * (5 -i1))
00EAF0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ;..
00EB00: 20 20 20 45 4E 44 3B 20 20 20 20 20 20 20 20 20 END;
00EB10: 20 20 20 0D 0A 20 20 20 20 20 20 20 20 20 20 20 ..
00EB20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00EB30: 20 20 20 20 20 20 20 20 20 20 20 20 20 0D 0A 20 ..
00EB40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 B
00EB50: 45 47 49 4E 20 0D 0A 20 20 20 20 20 20 20 20 20 EGIN ..
00EB60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 46 F
00EB70: 4F 52 20 69 32 20 3A 3D 20 34 20 54 4F 20 36 20 OR i2 := 4 TO 6
00EB80: 44 4F 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 DO..
00EB90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00EBA0: 20 20 20 20 0D 0A 20 20 20 20 20 20 20 20 20 20 ..
00EBB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 61 ta
00EBC0: 6C 32 20 3A 3D 20 74 61 6C 32 20 2B 20 28 28 6F l2 := tal2 + ((o
00EBD0: 72 64 28 6E 72 5B 69 32 5D 29 20 2D 20 34 38 29 rd(nr[i2]) - 48)
00EBE0: 20 2A 20 28 31 31 20 2D 20 69 32 29 29 3B 0D 0A * (11 - i2));..
00EBF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00EC00: 75 6E 64 65 74 20 3A 20 42 4F 4F 4C 45 41 4E 3B undet : BOOLEAN;
00EC10: 0D 0A 20 20 20 20 20 20 0D 0A 20 20 20 20 42 45 .. .. BE
00EC20: 47 49 4E 20 28 2A 20 73 6F 65 67 6B 6F 65 6E 20 GIN (* soegkoen
00EC30: 2A 29 0D 0A 20 20 20 20 20 20 52 45 50 45 41 54 *).. REPEAT
00EC40: 0D 0A 20 20 20 20 20 20 20 20 47 4F 54 4F 58 59 .. GOTOXY
00EC50: 28 30 2C 20 32 30 29 3B 0D 0A 20 20 20 20 20 20 (0, 20);..
00EC60: 20 20 57 52 49 54 45 28 27 54 61 73 74 20 6B 7C WRITE('Tast k|
00EC70: 6E 20 28 6D 2F 6B 29 3A 20 20 27 29 3B 0D 0A 20 n (m/k): ');..
00EC80: 20 20 20 20 20 20 20 57 52 49 54 45 28 43 48 52 WRITE(CHR
00EC90: 28 38 29 29 3B 0D 0A 20 20 20 20 20 20 20 20 42 (8));.. B
00ECA0: 55 46 4C 45 4E 20 3A 3D 20 31 3B 0D 0A 20 20 20 UFLEN := 1;..
00ECB0: 20 20 20 20 20 52 45 41 44 28 63 68 29 3B 0D 0A READ(ch);..
00ECC0: 20 20 20 20 20 20 55 4E 54 49 4C 20 28 63 68 20 UNTIL (ch
00ECD0: 3D 20 27 6D 27 29 20 4F 52 20 28 63 68 20 3D 20 = 'm') OR (ch =
00ECE0: 27 6B 27 29 3B 0D 0A 20 20 20 20 20 20 49 46 20 'k');.. IF
00ECF0: 63 68 20 3D 20 27 6D 27 0D 0A 20 20 20 20 20 20 ch = 'm'..
00ED00: 20 20 54 48 45 4E 20 73 6F 65 67 5F 6B 6F 65 6E THEN soeg_koen
00ED10: 20 3A 3D 20 6D 61 6E 64 0D 0A 20 20 20 20 20 20 := mand..
00ED20: 20 20 45 4C 53 45 20 73 6F 65 67 5F 6B 6F 65 6E ELSE soeg_koen
00ED30: 20 3A 3D 20 6B 76 69 6E 64 65 3B 0D 0A 20 20 20 := kvinde;..
00ED40: 20 20 20 47 4F 54 4F 58 59 28 30 2C 20 32 32 29 GOTOXY(0, 22)
00ED50: 3B 0D 0A 20 20 20 20 20 20 57 52 49 54 45 4C 4E ;.. WRITELN
00ED60: 28 27 46 7C 6C 67 65 6E 64 65 20 70 65 72 73 6F ('F|lgende perso
00ED70: 6E 65 72 20 65 72 20 61 66 20 64 65 74 20 73 7C ner er af det s|
00ED80: 67 74 65 20 6B 7C 6E 3A 27 29 3B 0D 0A 20 20 20 gte k|n:');..
00ED90: 20 20 20 66 75 6E 64 65 74 20 3A 3D 20 46 41 4C fundet := FAL
00EDA0: 53 45 3B 0D 0A 20 20 20 20 20 20 46 4F 52 20 69 SE;.. FOR i
00EDB0: 20 3A 3D 20 31 20 54 4F 20 61 6E 74 61 6C 20 44 := 1 TO antal D
00EDC0: 4F 0D 0A 20 20 20 20 20 20 20 20 49 46 20 70 65 O.. IF pe
00EDD0: 72 73 6F 6E 28 2E 69 2E 29 2E 6B 6F 65 6E 20 3D rson(.i.).koen =
00EDE0: 20 73 6F 65 67 5F 6B 6F 65 6E 0D 0A 20 20 20 20 soeg_koen..
00EDF0: 20 20 20 20 20 20 54 48 45 4E 0D 0A 20 20 20 20 THEN..
00EE00: 45 4E 44 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 END;..
00EE10: 20 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 BEGIN..
00EE20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00EE30: 20 20 20 20 20 46 4F 52 20 69 33 3A 3D 20 38 20 FOR i3:= 8
00EE40: 54 4F 20 31 31 20 44 4F 0D 0A 20 20 20 20 20 20 TO 11 DO..
00EE50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00EE60: 20 20 20 20 20 20 20 20 20 20 0D 0A 20 20 20 20 ..
00EE70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00EE80: 20 20 20 20 74 61 6C 33 20 3A 3D 20 74 61 6C 33 tal3 := tal3
00EE90: 20 2B 20 28 28 6F 72 64 28 6E 72 5B 69 33 5D 29 + ((ord(nr[i3])
00EEA0: 20 2D 20 34 38 29 20 2A 20 28 31 32 20 2D 20 69 - 48) * (12 - i
00EEB0: 33 29 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 3));..
00EEC0: 20 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 END;..
00EED0: 20 20 20 20 20 20 20 20 20 20 20 20 0D 0A 20 20 ..
00EEE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 61 ta
00EEF0: 6C 20 20 3A 3D 20 74 61 6C 31 20 2B 20 74 61 6C l := tal1 + tal
00EF00: 32 20 2B 74 61 6C 33 20 3B 0D 0A 20 20 20 20 20 2 +tal3 ;..
00EF10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00EF20: 20 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
00EF30: 20 20 20 7A 20 3A 3D 20 74 61 6C 20 4D 4F 44 20 z := tal MOD
00EF40: 31 31 3B 20 0D 0A 20 20 0D 0A 20 20 20 20 20 20 11; .. ..
00EF50: 20 20 20 20 20 20 20 20 20 20 49 46 20 7A 20 3D IF z =
00EF60: 20 30 20 54 48 45 4E 20 20 20 20 20 20 20 20 20 0 THEN
00EF70: 20 20 20 20 20 0D 0A 20 20 20 20 20 20 20 20 20 ..
00EF80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00EF90: 20 77 72 69 74 65 6C 6E 28 27 50 65 72 73 6F 6E writeln('Person
00EFA0: 6E 75 6D 6D 65 72 65 74 20 65 72 20 6B 6F 72 72 nummeret er korr
00EFB0: 65 6B 74 20 3A 20 27 20 2C 20 6E 72 20 29 0D 0A ekt : ' , nr )..
00EFC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00EFD0: 20 20 20 20 20 20 20 20 20 20 45 4C 53 45 20 0D ELSE .
00EFE0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
00EFF0: 20 20 20 20 20 20 20 20 20 20 20 77 72 69 74 65 write
00F000: 20 20 20 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 BEGIN..
00F010: 20 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 WRI
00F020: 54 45 4C 4E 28 70 65 72 73 6F 6E 28 2E 69 2E 29 TELN(person(.i.)
00F030: 2E 6E 61 76 6E 29 3B 0D 0A 20 20 20 20 20 20 20 .navn);..
00F040: 20 20 20 20 20 20 20 66 75 6E 64 65 74 20 3A 3D fundet :=
00F050: 20 54 52 55 45 3B 0D 0A 20 20 20 20 20 20 20 20 TRUE;..
00F060: 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 END;..
00F070: 49 46 20 4E 4F 54 20 66 75 6E 64 65 74 0D 0A 20 IF NOT fundet..
00F080: 20 20 20 20 20 20 20 54 48 45 4E 20 57 52 49 54 THEN WRIT
00F090: 45 4C 4E 28 27 44 65 72 20 65 72 20 69 6E 67 65 ELN('Der er inge
00F0A0: 6E 20 70 65 72 73 6F 6E 65 72 20 61 66 20 64 65 n personer af de
00F0B0: 74 20 73 7C 67 74 65 20 6B 7C 6E 27 29 3B 0D 0A t s|gte k|n');..
00F0C0: 20 20 20 20 20 20 20 20 72 65 74 75 72 3B 0D 0A retur;..
00F0D0: 20 20 20 20 45 4E 44 3B 20 28 2A 20 73 6F 65 67 END; (* soeg
00F0E0: 6B 6F 65 6E 20 2A 29 0D 0A 20 20 20 20 0D 0A 20 koen *).. ..
00F0F0: 20 50 52 4F 43 45 44 55 52 45 20 73 6F 65 67 68 PROCEDURE soegh
00F100: 6F 65 6A 64 65 3B 0D 0A 20 20 20 20 0D 0A 20 20 oejde;.. ..
00F110: 20 20 56 41 52 0D 0A 20 20 20 20 20 20 69 2C 20 VAR.. i,
00F120: 73 6F 65 67 5F 68 6F 65 6A 64 65 2C 20 74 65 73 soeg_hoejde, tes
00F130: 74 20 3A 20 49 4E 54 45 47 45 52 3B 0D 0A 20 20 t : INTEGER;..
00F140: 20 20 20 20 66 75 6E 64 65 74 20 3A 20 42 4F 4F fundet : BOO
00F150: 4C 45 41 4E 3B 0D 0A 20 20 20 20 20 20 73 74 72 LEAN;.. str
00F160: 20 3A 20 73 74 72 33 3B 0D 0A 20 20 20 20 20 20 : str3;..
00F170: 0D 0A 20 20 20 20 42 45 47 49 4E 20 28 2A 20 73 .. BEGIN (* s
00F180: 6F 65 67 68 6F 65 6A 64 65 20 2A 29 0D 0A 20 20 oeghoejde *)..
00F190: 20 20 20 20 52 45 50 45 41 54 0D 0A 20 20 20 20 REPEAT..
00F1A0: 20 20 20 20 47 4F 54 4F 58 59 28 30 2C 20 32 30 GOTOXY(0, 20
00F1B0: 29 3B 0D 0A 20 20 20 20 20 20 20 20 57 52 49 54 );.. WRIT
00F1C0: 45 28 27 54 61 73 74 20 68 7C 6A 64 65 3A 20 27 E('Tast h|jde: '
00F1D0: 29 3B 0D 0A 20 20 20 20 20 20 20 20 42 55 46 4C );.. BUFL
00F1E0: 45 4E 20 3A 3D 20 33 3B 0D 0A 20 20 20 20 20 20 EN := 3;..
00F1F0: 20 20 52 45 41 44 4C 4E 28 73 74 72 29 3B 0D 0A READLN(str);..
00F200: 6C 6E 28 27 44 65 74 74 65 20 65 72 20 65 74 20 ln('Dette er et
00F210: 66 6F 72 6B 65 72 74 20 70 65 72 73 6F 6E 6E 72 forkert personnr
00F220: 20 3A 20 27 2C 6E 72 29 3B 0D 0A 20 20 20 20 20 : ',nr);..
00F230: 20 20 20 45 4E 44 2E 20 20 20 20 20 20 20 20 20 END.
00F240: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00F250: 20 20 20 20 20 20 20 20 20 20 0D 0A 1A 1A 1A 1A ......
00F260: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
00F270: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
00F280: 0D 0A 20 20 20 20 57 52 49 54 45 4C 4E 3B 0D 0A .. WRITELN;..
00F290: 20 20 45 4E 44 2E 0D 0A 78 0D 0A 1A 1A 1A 1A 1A END...x.......
00F2A0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
00F2B0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
00F2C0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
00F2D0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
00F2E0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
00F2F0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
00F300: 64 6F 77 6E 0D 0A 33 20 20 4E 09 22 39 22 09 09 down..3 N."9"..
00F310: 7C 0D 0A 34 20 20 4E 09 22 36 22 09 09 7C 20 4E |..4 N."6"..| N
00F320: 75 6D 65 72 69 63 0D 0A 35 20 20 4E 09 22 33 22 umeric..5 N."3"
00F330: 09 09 7C 20 20 20 4B 65 79 70 61 64 0D 0A 36 20 ..| Keypad..6
00F340: 20 4E 09 22 5E 4D 22 09 09 45 4E 54 45 52 20 6B N."^M"..ENTER k
00F350: 65 79 0D 0A 37 20 20 4E 09 22 5E 27 23 43 41 27 ey..7 N."^'#CA'
00F360: 22 09 4E 75 6D 65 72 69 63 20 4B 65 79 70 61 64 ".Numeric Keypad
00F370: 0D 0A 38 20 20 4E 09 22 5E 41 22 09 09 43 43 50 ..8 N."^A"..CCP
00F380: 20 63 75 72 73 6F 72 20 6C 65 66 74 0D 0A 38 20 cursor left..8
00F390: 20 20 53 09 22 5E 53 22 09 09 45 38 30 20 77 6F S."^S"..E80 wo
00F3A0: 72 64 20 6C 65 66 74 0D 0A 38 20 20 20 20 43 09 rd left..8 C.
00F3B0: 22 5E 27 23 39 45 27 22 09 43 43 50 20 73 74 61 "^'#9E'".CCP sta
00F3C0: 72 74 20 6F 66 20 6C 69 6E 65 0D 0A 39 20 20 4E rt of line..9 N
00F3D0: 09 22 5E 27 23 38 30 27 22 20 09 45 38 30 20 63 ."^'#80'" .E80 c
00F3E0: 6F 70 79 20 62 6C 6F 63 6B 0D 0A 39 20 20 20 53 opy block..9 S
00F3F0: 09 22 5E 27 23 38 31 27 22 09 45 38 30 20 6D 6F ."^'#81'".E80 mo
00F400: 20 20 20 20 20 20 20 20 56 41 4C 28 73 74 72 2C VAL(str,
00F410: 20 73 6F 65 67 5F 68 6F 65 6A 64 65 2C 20 74 65 soeg_hoejde, te
00F420: 73 74 29 3B 0D 0A 20 20 20 20 20 20 55 4E 54 49 st);.. UNTI
00F430: 4C 20 28 74 65 73 74 20 3D 20 30 29 20 41 4E 44 L (test = 0) AND
00F440: 20 28 31 30 30 20 3C 3D 20 73 6F 65 67 5F 68 6F (100 <= soeg_ho
00F450: 65 6A 64 65 29 20 41 4E 44 20 28 73 6F 65 67 5F ejde) AND (soeg_
00F460: 68 6F 65 6A 64 65 20 3C 3D 20 32 32 30 29 3B 0D hoejde <= 220);.
00F470: 0A 20 20 20 20 20 20 47 4F 54 4F 58 59 28 30 2C . GOTOXY(0,
00F480: 20 32 32 29 3B 0D 0A 20 20 20 20 20 20 57 52 49 22);.. WRI
00F490: 54 45 4C 4E 28 27 46 7C 6C 67 65 6E 64 65 20 70 TELN('F|lgende p
00F4A0: 65 72 73 6F 6E 65 72 20 68 61 72 20 68 7C 6A 64 ersoner har h|jd
00F4B0: 65 6E 20 27 2C 20 73 6F 65 67 5F 68 6F 65 6A 64 en ', soeg_hoejd
00F4C0: 65 2C 20 27 3A 27 29 3B 0D 0A 20 20 20 20 20 20 e, ':');..
00F4D0: 66 75 6E 64 65 74 20 3A 3D 20 46 41 4C 53 45 3B fundet := FALSE;
00F4E0: 0D 0A 20 20 20 20 20 20 46 4F 52 20 69 20 3A 3D .. FOR i :=
00F4F0: 20 31 20 54 4F 20 61 6E 74 61 6C 20 44 4F 0D 0A 1 TO antal DO..
00F500: 20 20 20 20 20 20 20 20 49 46 20 70 65 72 73 6F IF perso
00F510: 6E 28 2E 69 2E 29 2E 68 6F 65 6A 64 65 20 3D 20 n(.i.).hoejde =
00F520: 73 6F 65 67 5F 68 6F 65 6A 64 65 0D 0A 20 20 20 soeg_hoejde..
00F530: 20 20 20 20 20 20 20 54 48 45 4E 0D 0A 20 20 20 THEN..
00F540: 20 20 20 20 20 20 20 20 20 42 45 47 49 4E 0D 0A BEGIN..
00F550: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 52 WR
00F560: 49 54 45 4C 4E 28 70 65 72 73 6F 6E 28 2E 69 2E ITELN(person(.i.
00F570: 29 2E 6E 61 76 6E 29 3B 0D 0A 20 20 20 20 20 20 ).navn);..
00F580: 20 20 20 20 20 20 20 20 66 75 6E 64 65 74 20 3A fundet :
00F590: 3D 20 54 52 55 45 3B 0D 0A 20 20 20 20 20 20 20 = TRUE;..
00F5A0: 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 END;..
00F5B0: 20 49 46 20 4E 4F 54 20 66 75 6E 64 65 74 0D 0A IF NOT fundet..
00F5C0: 20 20 20 20 20 20 20 20 54 48 45 4E 20 57 52 49 THEN WRI
00F5D0: 54 45 4C 4E 28 27 44 65 72 20 65 72 20 69 6E 67 TELN('Der er ing
00F5E0: 65 6E 20 70 65 72 73 6F 6E 65 72 20 6D 65 64 20 en personer med
00F5F0: 64 65 6E 6E 65 20 68 7C 6A 64 65 27 29 3B 0D 0A denne h|jde');..
00F600: 50 52 4F 47 52 41 4D 20 70 65 72 73 6F 6E 65 72 PROGRAM personer
00F610: 3B 0D 0A 0D 0A 20 20 43 4F 4E 53 54 0D 0A 20 20 ;.... CONST..
00F620: 20 20 6D 61 78 20 3D 20 31 30 30 3B 0D 0A 20 20 max = 100;..
00F630: 0D 0A 20 20 54 59 50 45 0D 0A 20 20 20 20 73 74 .. TYPE.. st
00F640: 72 33 30 20 3D 20 53 54 52 49 4E 47 28 2E 33 30 r30 = STRING(.30
00F650: 2E 29 3B 0D 0A 20 20 20 20 73 74 72 33 20 3D 20 .);.. str3 =
00F660: 53 54 52 49 4E 47 28 2E 33 2E 29 3B 0D 0A 20 20 STRING(.3.);..
00F670: 20 20 6B 6F 65 6E 74 79 70 65 20 3D 20 28 6D 61 koentype = (ma
00F680: 6E 64 2C 20 6B 76 69 6E 64 65 29 3B 0D 0A 20 20 nd, kvinde);..
00F690: 20 20 68 61 61 72 66 61 72 76 65 74 79 70 65 20 haarfarvetype
00F6A0: 3D 20 28 6C 79 73 62 6C 6F 6E 64 2C 20 6D 6F 65 = (lysblond, moe
00F6B0: 72 6B 65 62 6C 6F 6E 64 2C 20 68 76 69 64 74 2C rkeblond, hvidt,
00F6C0: 20 62 72 75 6E 74 2C 20 73 6F 72 74 2C 20 72 6F brunt, sort, ro
00F6D0: 65 64 74 2C 0D 0A 20 20 20 20 20 20 20 20 20 20 edt,..
00F6E0: 20 20 20 20 20 20 20 20 20 20 20 67 72 61 61 74 graat
00F6F0: 2C 20 73 6B 61 6C 64 65 74 29 3B 0D 0A 20 20 20 , skaldet);..
00F700: 20 6F 65 6A 65 6E 66 61 72 76 65 74 79 70 65 20 oejenfarvetype
00F710: 3D 20 28 62 6C 61 61 2C 20 67 72 61 61 2C 20 62 = (blaa, graa, b
00F720: 72 75 6E 65 2C 20 67 72 6F 65 6E 6E 65 29 3B 0D rune, groenne);.
00F730: 0A 20 20 20 20 70 65 72 73 6F 6E 70 6F 73 74 20 . personpost
00F740: 3D 20 52 45 43 4F 52 44 0D 0A 20 20 20 20 20 20 = RECORD..
00F750: 20 20 20 20 20 20 20 20 20 20 20 20 20 6E 61 76 nav
00F760: 6E 20 3A 20 73 74 72 33 30 3B 0D 0A 20 20 20 20 n : str30;..
00F770: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6B k
00F780: 6F 65 6E 20 3A 20 6B 6F 65 6E 74 79 70 65 3B 0D oen : koentype;.
00F790: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
00F7A0: 20 20 20 20 68 6F 65 6A 64 65 20 3A 20 49 4E 54 hoejde : INT
00F7B0: 45 47 45 52 3B 0D 0A 20 20 20 20 20 20 20 20 20 EGER;..
00F7C0: 20 20 20 20 20 20 20 20 20 20 76 61 65 67 74 20 vaegt
00F7D0: 3A 20 49 4E 54 45 47 45 52 3B 0D 0A 20 20 20 20 : INTEGER;..
00F7E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 68 h
00F7F0: 61 61 72 66 61 72 76 65 20 3A 20 68 61 61 72 66 aarfarve : haarf
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 72 65 74 75 72 3B 0D 0A 20 20 retur;..
00F910: 20 20 45 4E 44 3B 20 28 2A 20 73 6F 65 67 68 6F END; (* soegho
00F920: 65 6A 64 65 20 2A 29 0D 0A 20 20 0D 0A 20 20 50 ejde *).. .. P
00F930: 52 4F 43 45 44 55 52 45 20 73 6F 65 67 76 61 65 ROCEDURE soegvae
00F940: 67 74 3B 0D 0A 20 20 20 20 20 0D 0A 20 20 20 20 gt;.. ..
00F950: 56 41 52 0D 0A 20 20 20 20 20 20 69 2C 20 73 6F VAR.. i, so
00F960: 65 67 5F 76 61 65 67 74 2C 20 74 65 73 74 20 3A eg_vaegt, test :
00F970: 20 49 4E 54 45 47 45 52 3B 0D 0A 20 20 20 20 20 INTEGER;..
00F980: 20 66 75 6E 64 65 74 20 3A 20 42 4F 4F 4C 45 41 fundet : BOOLEA
00F990: 4E 3B 0D 0A 20 20 20 20 20 20 73 74 72 20 3A 20 N;.. str :
00F9A0: 73 74 72 33 3B 0D 0A 20 20 20 20 20 20 0D 0A 20 str3;.. ..
00F9B0: 20 20 20 42 45 47 49 4E 20 28 2A 20 73 6F 65 67 BEGIN (* soeg
00F9C0: 76 61 65 67 74 20 2A 29 0D 0A 20 20 20 20 20 20 vaegt *)..
00F9D0: 52 45 50 45 41 54 0D 0A 20 20 20 20 20 20 20 20 REPEAT..
00F9E0: 47 4F 54 4F 58 59 28 30 2C 20 32 30 29 3B 0D 0A GOTOXY(0, 20);..
00F9F0: 20 20 20 20 20 20 20 20 57 52 49 54 45 28 27 54 WRITE('T
00FA00: 61 73 74 20 76 61 65 67 74 3A 20 27 29 3B 0D 0A ast vaegt: ');..
00FA10: 20 20 20 20 20 20 20 20 42 55 46 4C 45 4E 20 3A BUFLEN :
00FA20: 3D 20 33 3B 0D 0A 20 20 20 20 20 20 20 20 52 45 = 3;.. RE
00FA30: 41 44 4C 4E 28 73 74 72 29 3B 0D 0A 20 20 20 20 ADLN(str);..
00FA40: 20 20 20 20 56 41 4C 28 73 74 72 2C 20 73 6F 65 VAL(str, soe
00FA50: 67 5F 76 61 65 67 74 2C 20 74 65 73 74 29 3B 0D g_vaegt, test);.
00FA60: 0A 20 20 20 20 20 20 55 4E 54 49 4C 20 28 74 65 . UNTIL (te
00FA70: 73 74 20 3D 20 30 29 20 41 4E 44 20 28 33 30 20 st = 0) AND (30
00FA80: 3C 3D 20 73 6F 65 67 5F 76 61 65 67 74 29 20 41 <= soeg_vaegt) A
00FA90: 4E 44 20 28 73 6F 65 67 5F 76 61 65 67 74 20 3C ND (soeg_vaegt <
00FAA0: 3D 20 32 30 30 29 3B 0D 0A 20 20 20 20 20 20 47 = 200);.. G
00FAB0: 4F 54 4F 58 59 28 30 2C 20 32 32 29 3B 0D 0A 20 OTOXY(0, 22);..
00FAC0: 20 20 20 20 20 57 52 49 54 45 4C 4E 28 27 46 7C WRITELN('F|
00FAD0: 6C 67 65 6E 64 65 20 70 65 72 73 6F 6E 65 72 20 lgende personer
00FAE0: 68 61 72 20 76 7B 67 74 65 6E 20 27 2C 20 73 6F har v{gten ', so
00FAF0: 65 67 5F 76 61 65 67 74 2C 20 27 3A 27 29 3B 0D eg_vaegt, ':');.
00FB00: 20 20 20 20 20 27 31 27 20 3A 20 73 6F 65 67 5F '1' : soeg_
00FB10: 6F 65 6A 65 6E 66 61 72 76 65 20 3A 3D 20 62 6C oejenfarve := bl
00FB20: 61 61 3B 0D 0A 20 20 20 20 20 20 20 20 27 32 27 aa;.. '2'
00FB30: 20 3A 20 73 6F 65 67 5F 6F 65 6A 65 6E 66 61 72 : soeg_oejenfar
00FB40: 76 65 20 3A 3D 20 67 72 61 61 3B 0D 0A 20 20 20 ve := graa;..
00FB50: 20 20 20 20 20 27 33 27 20 3A 20 73 6F 65 67 5F '3' : soeg_
00FB60: 6F 65 6A 65 6E 66 61 72 76 65 20 3A 3D 20 62 72 oejenfarve := br
00FB70: 75 6E 65 3B 0D 0A 20 20 20 20 20 20 20 20 27 34 une;.. '4
00FB80: 27 20 3A 20 73 6F 65 67 5F 6F 65 6A 65 6E 66 61 ' : soeg_oejenfa
00FB90: 72 76 65 20 3A 3D 20 67 72 6F 65 6E 6E 65 3B 0D rve := groenne;.
00FBA0: 0A 20 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 . END;..
00FBB0: 20 20 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 WRITELN;..
00FBC0: 20 20 20 57 52 49 54 45 4C 4E 28 27 46 7C 6C 67 WRITELN('F|lg
00FBD0: 65 6E 64 65 20 70 65 72 73 6F 6E 65 72 20 68 61 ende personer ha
00FBE0: 72 20 64 65 6E 6E 65 20 7C 6A 65 6E 66 61 72 76 r denne |jenfarv
00FBF0: 65 3A 27 29 3B 0D 0A 20 20 20 20 20 20 66 75 6E e:');.. fun
00FC00: 64 65 74 20 3A 3D 20 46 41 4C 53 45 3B 0D 0A 20 det := FALSE;..
00FC10: 20 20 20 20 20 46 4F 52 20 69 20 3A 3D 20 31 20 FOR i := 1
00FC20: 54 4F 20 61 6E 74 61 6C 20 44 4F 0D 0A 20 20 20 TO antal DO..
00FC30: 20 20 20 20 20 49 46 20 70 65 72 73 6F 6E 28 2E IF person(.
00FC40: 69 2E 29 2E 6F 65 6A 65 6E 66 61 72 76 65 20 3D i.).oejenfarve =
00FC50: 20 73 6F 65 67 5F 6F 65 6A 65 6E 66 61 72 76 65 soeg_oejenfarve
00FC60: 0D 0A 20 20 20 20 20 20 20 20 20 20 54 48 45 4E .. THEN
00FC70: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 42 45 .. BE
00FC80: 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 GIN..
00FC90: 20 20 20 57 52 49 54 45 4C 4E 28 70 65 72 73 6F WRITELN(perso
00FCA0: 6E 28 2E 69 2E 29 2E 6E 61 76 6E 29 3B 0D 0A 20 n(.i.).navn);..
00FCB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 66 75 6E fun
00FCC0: 64 65 74 20 3A 3D 20 54 52 55 45 3B 0D 0A 20 20 det := TRUE;..
00FCD0: 20 20 20 20 20 20 20 20 20 20 45 4E 44 3B 0D 0A END;..
00FCE0: 20 20 20 20 20 20 49 46 20 4E 4F 54 20 66 75 6E IF NOT fun
00FCF0: 64 65 74 0D 0A 20 20 20 20 20 20 20 20 54 48 45 det.. THE
00FD00: 0A 20 20 20 20 20 20 66 75 6E 64 65 74 20 3A 3D . fundet :=
00FD10: 20 46 41 4C 53 45 3B 0D 0A 20 20 20 20 20 20 46 FALSE;.. F
00FD20: 4F 52 20 69 20 3A 3D 20 31 20 54 4F 20 61 6E 74 OR i := 1 TO ant
00FD30: 61 6C 20 44 4F 0D 0A 20 20 20 20 20 20 20 20 49 al DO.. I
00FD40: 46 20 70 65 72 73 6F 6E 28 2E 69 2E 29 2E 76 61 F person(.i.).va
00FD50: 65 67 74 20 3D 20 73 6F 65 67 5F 76 61 65 67 74 egt = soeg_vaegt
00FD60: 0D 0A 20 20 20 20 20 20 20 20 20 20 54 48 45 4E .. THEN
00FD70: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 42 45 .. BE
00FD80: 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 GIN..
00FD90: 20 20 20 57 52 49 54 45 4C 4E 28 70 65 72 73 6F WRITELN(perso
00FDA0: 6E 28 2E 69 2E 29 2E 6E 61 76 6E 29 3B 0D 0A 20 n(.i.).navn);..
00FDB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 66 75 6E fun
00FDC0: 64 65 74 20 3A 3D 20 54 52 55 45 3B 0D 0A 20 20 det := TRUE;..
00FDD0: 20 20 20 20 20 20 20 20 20 20 45 4E 44 3B 0D 0A END;..
00FDE0: 20 20 20 20 20 20 49 46 20 4E 4F 54 20 66 75 6E IF NOT fun
00FDF0: 64 65 74 0D 0A 20 20 20 20 20 20 20 20 54 48 45 det.. THE
00FE00: 4E 20 57 52 49 54 45 4C 4E 28 27 44 65 72 20 65 N WRITELN('Der e
00FE10: 72 20 69 6E 67 65 6E 20 70 65 72 73 6F 6E 65 72 r ingen personer
00FE20: 20 6D 65 64 20 64 65 6E 6E 65 20 76 7B 67 74 27 med denne v{gt'
00FE30: 29 3B 0D 0A 20 20 20 20 20 20 72 65 74 75 72 3B );.. retur;
00FE40: 0D 0A 20 20 20 20 45 4E 44 3B 20 28 2A 20 73 6F .. END; (* so
00FE50: 65 67 76 61 65 67 74 20 2A 29 0D 0A 20 20 0D 0A egvaegt *).. ..
00FE60: 20 20 50 52 4F 43 45 44 55 52 45 20 73 6F 65 67 PROCEDURE soeg
00FE70: 68 61 61 72 66 61 72 76 65 3B 0D 0A 20 20 0D 0A haarfarve;.. ..
00FE80: 20 20 20 20 56 41 52 0D 0A 20 20 20 20 20 20 69 VAR.. i
00FE90: 20 3A 20 49 4E 54 45 47 45 52 3B 0D 0A 20 20 20 : INTEGER;..
00FEA0: 20 20 20 73 6F 65 67 5F 68 61 61 72 66 61 72 76 soeg_haarfarv
00FEB0: 65 20 3A 20 68 61 61 72 66 61 72 76 65 74 79 70 e : haarfarvetyp
00FEC0: 65 3B 0D 0A 20 20 20 20 20 20 63 68 20 3A 20 43 e;.. ch : C
00FED0: 48 41 52 3B 0D 0A 20 20 20 20 20 20 66 75 6E 64 HAR;.. fund
00FEE0: 65 74 20 3A 20 42 4F 4F 4C 45 41 4E 3B 0D 0A 20 et : BOOLEAN;..
00FEF0: 20 20 20 0D 0A 20 20 20 20 42 45 47 49 4E 20 28 .. BEGIN (
00FF00: 4E 20 57 52 49 54 45 4C 4E 28 27 44 65 72 20 65 N WRITELN('Der e
00FF10: 72 20 69 6E 67 65 6E 20 70 65 72 73 6F 6E 65 72 r ingen personer
00FF20: 20 6D 65 64 20 64 65 6E 6E 65 20 7C 6A 65 6E 66 med denne |jenf
00FF30: 61 72 76 65 27 29 3B 0D 0A 20 20 20 20 20 20 72 arve');.. r
00FF40: 65 74 75 72 3B 0D 0A 20 20 20 20 45 4E 44 3B 20 etur;.. END;
00FF50: 28 2A 20 73 6F 65 67 6F 65 6A 65 6E 66 61 72 76 (* soegoejenfarv
00FF60: 65 20 2A 29 0D 0A 20 20 0D 0A 20 20 50 52 4F 43 e *).. .. PROC
00FF70: 45 44 55 52 45 20 69 6E 64 6C 61 65 73 3B 0D 0A EDURE indlaes;..
00FF80: 20 20 20 20 0D 0A 20 20 20 20 56 41 52 0D 0A 20 .. VAR..
00FF90: 20 20 20 20 20 69 2C 20 74 65 73 74 20 3A 20 49 i, test : I
00FFA0: 4E 54 45 47 45 52 3B 0D 0A 20 20 20 20 20 20 73 NTEGER;.. s
00FFB0: 74 72 20 3A 20 73 74 72 33 3B 0D 0A 20 20 20 20 tr : str3;..
00FFC0: 20 20 63 68 20 3A 20 43 48 41 52 3B 0D 0A 20 20 ch : CHAR;..
00FFD0: 20 20 0D 0A 20 20 20 20 42 45 47 49 4E 20 28 2A .. BEGIN (*
00FFE0: 20 69 6E 64 6C 61 65 73 20 2A 29 0D 0A 20 20 20 indlaes *)..
00FFF0: 20 20 20 57 52 49 54 45 28 43 4C 52 48 4F 4D 29 WRITE(CLRHOM)
010000: 3B 0D 0A 20 20 20 20 20 20 69 20 3A 3D 20 30 3B ;.. i := 0;
010010: 0D 0A 20 20 20 20 20 20 57 52 49 54 45 4C 4E 28 .. WRITELN(
010020: 27 49 6E 64 74 61 73 74 6E 69 6E 67 20 61 66 20 'Indtastning af
010030: 6F 70 6C 79 73 6E 69 6E 67 65 72 20 74 69 6C 20 oplysninger til
010040: 70 65 72 73 6F 6E 6B 61 72 74 6F 74 65 6B 3A 27 personkartotek:'
010050: 29 3B 0D 0A 20 20 20 20 20 20 57 52 49 54 45 4C );.. WRITEL
010060: 4E 3B 0D 0A 20 20 20 20 20 20 52 45 50 45 41 54 N;.. REPEAT
010070: 0D 0A 20 20 20 20 20 20 20 20 69 20 3A 3D 20 69 .. i := i
010080: 20 2B 20 31 3B 0D 0A 20 20 20 20 20 20 20 20 57 + 1;.. W
010090: 49 54 48 20 70 65 72 73 6F 6E 28 2E 69 2E 29 20 ITH person(.i.)
0100A0: 44 4F 0D 0A 20 20 20 20 20 20 20 20 20 20 42 45 DO.. BE
0100B0: 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 GIN..
0100C0: 20 57 52 49 54 45 28 27 49 6E 64 74 61 73 74 20 WRITE('Indtast
0100D0: 6E 61 76 6E 20 28 5E 20 73 74 6F 70 70 65 72 29 navn (^ stopper)
0100E0: 3A 20 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 : ');..
0100F0: 20 20 20 42 55 46 4C 45 4E 20 3A 3D 20 33 30 3B BUFLEN := 30;
010100: 2A 20 73 6F 65 67 68 61 61 72 66 61 72 76 65 20 * soeghaarfarve
010110: 2A 29 0D 0A 20 20 20 20 20 20 52 45 50 45 41 54 *).. REPEAT
010120: 0D 0A 20 20 20 20 20 20 20 20 47 4F 54 4F 58 59 .. GOTOXY
010130: 28 30 2C 20 32 30 29 3B 0D 0A 20 20 20 20 20 20 (0, 20);..
010140: 20 20 57 52 49 54 45 4C 4E 28 27 54 61 73 74 20 WRITELN('Tast
010150: 68 7D 72 66 61 72 76 65 3A 20 31 2E 20 4C 79 73 h}rfarve: 1. Lys
010160: 62 6C 6F 6E 64 20 20 32 2E 20 4D 7C 72 6B 65 62 blond 2. M|rkeb
010170: 6C 6F 6E 64 20 20 33 2E 20 48 76 69 64 74 20 20 lond 3. Hvidt
010180: 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 57 52 49 ');.. WRI
010190: 54 45 28 27 34 2E 20 42 72 75 6E 74 20 20 35 2E TE('4. Brunt 5.
0101A0: 20 53 6F 72 74 20 20 36 2E 20 52 7C 64 74 20 20 Sort 6. R|dt
0101B0: 37 2E 20 47 72 7D 74 20 20 38 2E 20 53 6B 61 6C 7. Gr}t 8. Skal
0101C0: 64 65 74 3A 20 20 27 29 3B 0D 0A 20 20 20 20 20 det: ');..
0101D0: 20 20 20 42 55 46 4C 45 4E 20 3A 3D 20 31 3B 0D BUFLEN := 1;.
0101E0: 0A 20 20 20 20 20 20 20 20 57 52 49 54 45 28 43 . WRITE(C
0101F0: 48 52 28 38 29 29 3B 0D 0A 20 20 20 20 20 20 20 HR(8));..
010200: 20 52 45 41 44 28 63 68 29 3B 0D 0A 20 20 20 20 READ(ch);..
010210: 20 20 55 4E 54 49 4C 20 28 27 31 27 20 3C 3D 20 UNTIL ('1' <=
010220: 63 68 29 20 41 4E 44 20 28 63 68 20 3C 3D 20 27 ch) AND (ch <= '
010230: 38 27 29 3B 0D 0A 20 20 20 20 20 20 43 41 53 45 8');.. CASE
010240: 20 63 68 20 4F 46 0D 0A 20 20 20 20 20 20 20 20 ch OF..
010250: 27 31 27 20 3A 20 73 6F 65 67 5F 68 61 61 72 66 '1' : soeg_haarf
010260: 61 72 76 65 20 3A 3D 20 6C 79 73 62 6C 6F 6E 64 arve := lysblond
010270: 3B 0D 0A 20 20 20 20 20 20 20 20 27 32 27 20 3A ;.. '2' :
010280: 20 73 6F 65 67 5F 68 61 61 72 66 61 72 76 65 20 soeg_haarfarve
010290: 3A 3D 20 6D 6F 65 72 6B 65 62 6C 6F 6E 64 3B 0D := moerkeblond;.
0102A0: 0A 20 20 20 20 20 20 20 20 27 33 27 20 3A 20 73 . '3' : s
0102B0: 6F 65 67 5F 68 61 61 72 66 61 72 76 65 20 3A 3D oeg_haarfarve :=
0102C0: 20 68 76 69 64 74 3B 0D 0A 20 20 20 20 20 20 20 hvidt;..
0102D0: 20 27 34 27 20 3A 20 73 6F 65 67 5F 68 61 61 72 '4' : soeg_haar
0102E0: 66 61 72 76 65 20 3A 3D 20 62 72 75 6E 74 3B 0D farve := brunt;.
0102F0: 0A 20 20 20 20 20 20 20 20 27 35 27 20 3A 20 73 . '5' : s
010300: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 52 45 .. RE
010310: 41 44 4C 4E 28 6E 61 76 6E 29 3B 0D 0A 20 20 20 ADLN(navn);..
010320: 20 20 20 20 20 20 20 20 20 49 46 20 6E 61 76 6E IF navn
010330: 20 3C 3E 20 27 5E 27 0D 0A 20 20 20 20 20 20 20 <> '^'..
010340: 20 20 20 20 20 20 20 54 48 45 4E 0D 0A 20 20 20 THEN..
010350: 20 20 20 20 20 20 20 20 20 20 20 20 20 42 45 47 BEG
010360: 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 IN..
010370: 20 20 20 20 20 20 57 52 49 54 45 4C 4E 3B 0D 0A WRITELN;..
010380: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
010390: 20 20 57 52 49 54 45 28 27 54 61 73 74 20 6B 7C WRITE('Tast k|
0103A0: 6E 20 28 6D 2F 6B 29 3A 20 20 27 29 3B 0D 0A 20 n (m/k): ');..
0103B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0103C0: 20 52 45 50 45 41 54 0D 0A 20 20 20 20 20 20 20 REPEAT..
0103D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 WRI
0103E0: 54 45 28 43 48 52 28 38 29 29 3B 0D 0A 20 20 20 TE(CHR(8));..
0103F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
010400: 20 42 55 46 4C 45 4E 20 3A 3D 20 31 3B 0D 0A 20 BUFLEN := 1;..
010410: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
010420: 20 20 20 52 45 41 44 28 63 68 29 3B 0D 0A 20 20 READ(ch);..
010430: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
010440: 55 4E 54 49 4C 20 28 63 68 20 3D 20 27 6D 27 29 UNTIL (ch = 'm')
010450: 20 4F 52 20 28 63 68 20 3D 20 27 6B 27 29 3B 0D OR (ch = 'k');.
010460: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
010470: 20 20 20 49 46 20 63 68 20 3D 20 27 6D 27 20 20 IF ch = 'm'
010480: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
010490: 20 20 20 20 20 20 54 48 45 4E 20 6B 6F 65 6E 20 THEN koen
0104A0: 3A 3D 20 6D 61 6E 64 0D 0A 20 20 20 20 20 20 20 := mand..
0104B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4C 53 ELS
0104C0: 45 20 6B 6F 65 6E 20 3A 3D 20 6B 76 69 6E 64 65 E koen := kvinde
0104D0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ;..
0104E0: 20 20 20 20 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 WRITELN;..
0104F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
010500: 6F 65 67 5F 68 61 61 72 66 61 72 76 65 20 3A 3D oeg_haarfarve :=
010510: 20 73 6F 72 74 3B 0D 0A 20 20 20 20 20 20 20 20 sort;..
010520: 27 36 27 20 3A 20 73 6F 65 67 5F 68 61 61 72 66 '6' : soeg_haarf
010530: 61 72 76 65 20 3A 3D 20 72 6F 65 64 74 3B 0D 0A arve := roedt;..
010540: 20 20 20 20 20 20 20 20 27 37 27 20 3A 20 73 6F '7' : so
010550: 65 67 5F 68 61 61 72 66 61 72 76 65 20 3A 3D 20 eg_haarfarve :=
010560: 67 72 61 61 74 3B 0D 0A 20 20 20 20 20 20 20 20 graat;..
010570: 27 38 27 20 3A 20 73 6F 65 67 5F 68 61 61 72 66 '8' : soeg_haarf
010580: 61 72 76 65 20 3A 3D 20 73 6B 61 6C 64 65 74 3B arve := skaldet;
010590: 0D 0A 20 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20 .. END;..
0105A0: 20 20 20 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 WRITELN;..
0105B0: 20 20 20 20 57 52 49 54 45 4C 4E 28 27 46 7C 6C WRITELN('F|l
0105C0: 67 65 6E 64 65 20 70 65 72 73 6F 6E 65 72 20 68 gende personer h
0105D0: 61 72 20 64 65 6E 6E 65 20 68 7D 72 66 61 72 76 ar denne h}rfarv
0105E0: 65 3A 27 29 3B 0D 0A 20 20 20 20 20 20 66 75 6E e:');.. fun
0105F0: 64 65 74 20 3A 3D 20 46 41 4C 53 45 3B 0D 0A 20 det := FALSE;..
010600: 20 20 20 20 20 46 4F 52 20 69 20 3A 3D 20 31 20 FOR i := 1
010610: 54 4F 20 61 6E 74 61 6C 20 44 4F 0D 0A 20 20 20 TO antal DO..
010620: 20 20 20 20 20 49 46 20 70 65 72 73 6F 6E 28 2E IF person(.
010630: 69 2E 29 2E 68 61 61 72 66 61 72 76 65 20 3D 20 i.).haarfarve =
010640: 73 6F 65 67 5F 68 61 61 72 66 61 72 76 65 0D 0A soeg_haarfarve..
010650: 20 20 20 20 20 20 20 20 20 20 54 48 45 4E 0D 0A THEN..
010660: 20 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 BEGI
010670: 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 N..
010680: 20 57 52 49 54 45 4C 4E 28 70 65 72 73 6F 6E 28 WRITELN(person(
010690: 2E 69 2E 29 2E 6E 61 76 6E 29 3B 0D 0A 20 20 20 .i.).navn);..
0106A0: 20 20 20 20 20 20 20 20 20 20 20 66 75 6E 64 65 funde
0106B0: 74 20 3A 3D 20 54 52 55 45 3B 0D 0A 20 20 20 20 t := TRUE;..
0106C0: 20 20 20 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20 END;..
0106D0: 20 20 20 20 49 46 20 4E 4F 54 20 66 75 6E 64 65 IF NOT funde
0106E0: 74 0D 0A 20 20 20 20 20 20 20 20 54 48 45 4E 20 t.. THEN
0106F0: 57 52 49 54 45 4C 4E 28 27 44 65 72 20 65 72 20 WRITELN('Der er
010700: 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 20 WRITELN;..
010710: 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 50 REP
010720: 45 41 54 0D 0A 20 20 20 20 20 20 20 20 20 20 20 EAT..
010730: 20 20 20 20 20 20 20 20 20 57 52 49 54 45 28 27 WRITE('
010740: 54 61 73 74 20 68 7C 6A 64 65 3A 20 27 29 3B 0D Tast h|jde: ');.
010750: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
010760: 20 20 20 20 20 42 55 46 4C 45 4E 20 3A 3D 20 33 BUFLEN := 3
010770: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ;..
010780: 20 20 20 20 20 20 20 52 45 41 44 4C 4E 28 73 74 READLN(st
010790: 72 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 r);..
0107A0: 20 20 20 20 20 20 20 20 20 56 41 4C 28 73 74 72 VAL(str
0107B0: 2C 20 68 6F 65 6A 64 65 2C 20 74 65 73 74 29 3B , hoejde, test);
0107C0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
0107D0: 20 20 20 20 55 4E 54 49 4C 20 28 74 65 73 74 20 UNTIL (test
0107E0: 3D 20 30 29 20 41 4E 44 20 28 31 30 30 20 3C 3D = 0) AND (100 <=
0107F0: 20 68 6F 65 6A 64 65 29 20 41 4E 44 20 28 68 6F hoejde) AND (ho
010800: 65 6A 64 65 20 3C 3D 20 32 32 30 29 3B 0D 0A 20 ejde <= 220);..
010810: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
010820: 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 20 WRITELN;..
010830: 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 50 REP
010840: 45 41 54 0D 0A 20 20 20 20 20 20 20 20 20 20 20 EAT..
010850: 20 20 20 20 20 20 20 20 20 57 52 49 54 45 28 27 WRITE('
010860: 54 61 73 74 20 76 61 65 67 74 3A 20 27 29 3B 0D Tast vaegt: ');.
010870: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
010880: 20 20 20 20 20 42 55 46 4C 45 4E 20 3A 3D 20 33 BUFLEN := 3
010890: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ;..
0108A0: 20 20 20 20 20 20 20 52 45 41 44 4C 4E 28 73 74 READLN(st
0108B0: 72 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 r);..
0108C0: 20 20 20 20 20 20 20 20 20 56 41 4C 28 73 74 72 VAL(str
0108D0: 2C 20 76 61 65 67 74 2C 20 74 65 73 74 29 3B 0D , vaegt, test);.
0108E0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
0108F0: 20 20 20 55 4E 54 49 4C 20 28 74 65 73 74 20 3D UNTIL (test =
010900: 69 6E 67 65 6E 20 70 65 72 73 6F 6E 65 72 20 6D ingen personer m
010910: 65 64 20 64 65 6E 6E 65 20 68 7D 72 66 61 72 76 ed denne h}rfarv
010920: 65 27 29 3B 0D 0A 20 20 20 20 20 20 72 65 74 75 e');.. retu
010930: 72 3B 0D 0A 20 20 20 20 45 4E 44 3B 20 28 2A 20 r;.. END; (*
010940: 73 6F 65 67 68 61 61 72 66 61 72 76 65 20 2A 29 soeghaarfarve *)
010950: 0D 0A 20 20 0D 0A 20 20 50 52 4F 43 45 44 55 52 .. .. PROCEDUR
010960: 45 20 73 6F 65 67 6F 65 6A 65 6E 66 61 72 76 65 E soegoejenfarve
010970: 3B 0D 0A 20 20 0D 0A 20 20 20 20 56 41 52 0D 0A ;.. .. VAR..
010980: 20 20 20 20 20 20 69 20 3A 20 49 4E 54 45 47 45 i : INTEGE
010990: 52 3B 0D 0A 20 20 20 20 20 20 73 6F 65 67 5F 6F R;.. soeg_o
0109A0: 65 6A 65 6E 66 61 72 76 65 20 3A 20 6F 65 6A 65 ejenfarve : oeje
0109B0: 6E 66 61 72 76 65 74 79 70 65 3B 0D 0A 20 20 20 nfarvetype;..
0109C0: 20 20 20 63 68 20 3A 20 43 48 41 52 3B 0D 0A 20 ch : CHAR;..
0109D0: 20 20 20 20 20 66 75 6E 64 65 74 20 3A 20 42 4F fundet : BO
0109E0: 4F 4C 45 41 4E 3B 0D 0A 20 20 20 20 0D 0A 20 20 OLEAN;.. ..
0109F0: 20 20 42 45 47 49 4E 20 28 2A 20 73 6F 65 67 6F BEGIN (* soego
010A00: 65 6A 65 6E 66 61 72 76 65 20 2A 29 0D 0A 20 20 ejenfarve *)..
010A10: 20 20 20 20 52 45 50 45 41 54 0D 0A 20 20 20 20 REPEAT..
010A20: 20 20 20 20 47 4F 54 4F 58 59 28 30 2C 20 32 30 GOTOXY(0, 20
010A30: 29 3B 0D 0A 20 20 20 20 20 20 20 20 57 52 49 54 );.. WRIT
010A40: 45 28 27 54 61 73 74 20 7C 6A 65 6E 66 61 72 76 E('Tast |jenfarv
010A50: 65 3A 20 31 2E 20 42 6C 7D 20 20 32 2E 20 47 72 e: 1. Bl} 2. Gr
010A60: 7D 20 20 33 2E 20 42 72 75 6E 65 20 20 34 2E 20 } 3. Brune 4.
010A70: 47 72 7C 6E 6E 65 3A 20 20 27 29 3B 0D 0A 20 20 Gr|nne: ');..
010A80: 20 20 20 20 20 20 42 55 46 4C 45 4E 20 3A 3D 20 BUFLEN :=
010A90: 31 3B 0D 0A 20 20 20 20 20 20 20 20 57 52 49 54 1;.. WRIT
010AA0: 45 28 43 48 52 28 38 29 29 3B 0D 0A 20 20 20 20 E(CHR(8));..
010AB0: 20 20 20 20 52 45 41 44 4C 4E 28 63 68 29 3B 0D READLN(ch);.
010AC0: 0A 20 20 20 20 20 20 55 4E 54 49 4C 20 28 27 31 . UNTIL ('1
010AD0: 27 20 3C 3D 20 63 68 29 20 41 4E 44 20 28 63 68 ' <= ch) AND (ch
010AE0: 20 3C 3D 20 27 34 27 29 3B 0D 0A 20 20 20 20 20 <= '4');..
010AF0: 20 43 41 53 45 20 63 68 20 4F 46 0D 0A 20 20 20 CASE ch OF..
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 30 29 20 41 4E 44 20 28 33 30 20 3C 3D 20 76 0) AND (30 <= v
010C10: 61 65 67 74 29 20 41 4E 44 20 28 76 61 65 67 74 aegt) AND (vaegt
010C20: 20 3C 3D 20 32 30 30 29 3B 0D 0A 20 20 20 20 20 <= 200);..
010C30: 20 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 WRI
010C40: 54 45 4C 4E 3B 0D 0A 20 20 20 20 20 20 20 20 20 TELN;..
010C50: 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E WRITELN
010C60: 28 27 54 61 73 74 20 68 7D 72 66 61 72 76 65 3A ('Tast h}rfarve:
010C70: 20 31 2E 20 4C 79 73 62 6C 6F 6E 64 20 20 32 2E 1. Lysblond 2.
010C80: 20 4D 7C 72 6B 65 62 6C 6F 6E 64 20 20 27 2C 0D M|rkeblond ',.
010C90: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
010CA0: 20 20 20 20 20 20 20 20 20 20 20 27 33 2E 20 48 '3. H
010CB0: 76 69 64 74 20 20 27 29 3B 0D 0A 20 20 20 20 20 vidt ');..
010CC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 WRI
010CD0: 54 45 28 27 34 2E 20 42 72 75 6E 74 20 20 35 2E TE('4. Brunt 5.
010CE0: 20 53 6F 72 74 20 20 36 2E 20 52 7C 64 74 20 20 Sort 6. R|dt
010CF0: 37 2E 20 47 72 7D 74 20 20 38 2E 20 53 6B 61 6C 7. Gr}t 8. Skal
010D00: 64 65 74 3A 20 20 27 29 3B 0D 0A 20 20 20 20 20 det: ');..
010D10: 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 50 REP
010D20: 45 41 54 0D 0A 20 20 20 20 20 20 20 20 20 20 20 EAT..
010D30: 20 20 20 20 20 20 20 20 20 42 55 46 4C 45 4E 20 BUFLEN
010D40: 3A 3D 20 31 3B 0D 0A 20 20 20 20 20 20 20 20 20 := 1;..
010D50: 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 WRITE
010D60: 28 43 48 52 28 38 29 29 3B 0D 0A 20 20 20 20 20 (CHR(8));..
010D70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 R
010D80: 45 41 44 28 63 68 29 3B 0D 0A 20 20 20 20 20 20 EAD(ch);..
010D90: 20 20 20 20 20 20 20 20 20 20 20 20 55 4E 54 49 UNTI
010DA0: 4C 20 28 27 31 27 20 3C 3D 20 63 68 29 20 41 4E L ('1' <= ch) AN
010DB0: 44 20 28 63 68 20 3C 3D 20 27 38 27 29 3B 0D 0A D (ch <= '8');..
010DC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
010DD0: 20 20 43 41 53 45 20 63 68 20 4F 46 0D 0A 20 20 CASE ch OF..
010DE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
010DF0: 20 20 27 31 27 20 3A 20 68 61 61 72 66 61 72 76 '1' : haarfarv
010E00: 20 20 20 20 20 20 20 20 20 20 27 35 27 20 3A 20 '5' :
010E10: 73 6F 65 67 6F 65 6A 65 6E 66 61 72 76 65 3B 0D soegoejenfarve;.
010E20: 0A 20 20 20 20 20 20 20 20 45 4E 44 3B 0D 0A 20 . END;..
010E30: 20 20 20 20 20 55 4E 54 49 4C 20 63 68 20 3D 20 UNTIL ch =
010E40: 27 36 27 3B 0D 0A 20 20 20 20 20 20 57 52 49 54 '6';.. WRIT
010E50: 45 4C 4E 3B 0D 0A 20 20 20 20 45 4E 44 3B 20 28 ELN;.. END; (
010E60: 2A 20 6D 65 6E 75 20 2A 29 0D 0A 20 20 0D 0A 20 * menu *).. ..
010E70: 20 42 45 47 49 4E 20 28 2A 20 70 65 72 73 6F 6E BEGIN (* person
010E80: 65 72 20 2A 29 0D 0A 20 20 20 20 69 6E 64 6C 61 er *).. indla
010E90: 65 73 3B 0D 0A 20 20 20 20 6D 65 6E 75 3B 0D 0A es;.. menu;..
010EA0: 20 20 45 4E 44 2E 20 28 2A 20 70 65 72 73 6F 6E END. (* person
010EB0: 65 72 20 2A 29 0D 0A 1A 1A 1A 1A 1A 1A 1A 1A 1A er *)...........
010EC0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
010ED0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
010EE0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
010EF0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
010F00: 22 34 22 09 09 4E 75 6D 65 72 69 63 20 6B 65 79 "4"..Numeric key
010F10: 70 61 64 0D 0A 36 36 20 4E 20 20 53 09 22 5E 27 pad..66 N S."^'
010F20: 32 37 27 22 09 09 43 43 50 20 65 73 63 0D 0A 36 27'"..CCP esc..6
010F30: 36 20 20 20 43 09 22 5E 43 22 09 09 43 43 50 20 6 C."^C"..CCP
010F40: 61 62 6F 72 74 0D 0A 36 38 20 20 53 09 22 5E 27 abort..68 S."^'
010F50: 23 38 34 27 22 09 45 38 30 20 74 6F 67 67 6C 65 #84'".E80 toggle
010F60: 20 41 75 74 6F 20 49 6E 64 65 6E 74 0D 0A 36 38 Auto Indent..68
010F70: 20 20 20 43 09 22 5E 56 22 09 09 45 38 30 20 4F C."^V"..E80 O
010F80: 76 65 72 77 72 69 74 65 2F 49 6E 73 65 72 74 0D verwrite/Insert.
010F90: 0A 37 39 20 20 53 09 22 5E 27 23 38 33 27 22 09 .79 S."^'#83'".
010FA0: 45 38 30 20 44 65 6C 20 57 6F 72 64 20 4C 65 66 E80 Del Word Lef
010FB0: 74 0D 0A 37 39 20 20 20 43 09 22 5E 27 23 38 35 t..79 C."^'#85
010FC0: 27 22 20 09 45 38 30 20 44 65 6C 20 74 6F 20 53 '" .E80 Del to S
010FD0: 74 61 72 74 20 6F 66 20 6C 69 6E 65 0D 0A 0D 0A tart of line....
010FE0: 45 20 23 38 30 20 22 5E 4B 43 22 09 63 6F 70 79 E #80 "^KC".copy
010FF0: 20 62 6C 6F 63 6B 0D 0A 45 20 23 38 31 20 22 5E block..E #81 "^
011000: 65 20 3A 3D 20 6C 79 73 62 6C 6F 6E 64 3B 0D 0A e := lysblond;..
011010: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
011020: 20 20 20 20 27 32 27 20 3A 20 68 61 61 72 66 61 '2' : haarfa
011030: 72 76 65 20 3A 3D 20 6D 6F 65 72 6B 65 62 6C 6F rve := moerkeblo
011040: 6E 64 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 nd;..
011050: 20 20 20 20 20 20 20 20 20 27 33 27 20 3A 20 68 '3' : h
011060: 61 61 72 66 61 72 76 65 20 3A 3D 20 68 76 69 64 aarfarve := hvid
011070: 74 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 t;..
011080: 20 20 20 20 20 20 20 20 27 34 27 20 3A 20 68 61 '4' : ha
011090: 61 72 66 61 72 76 65 20 3A 3D 20 62 72 75 6E 74 arfarve := brunt
0110A0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ;..
0110B0: 20 20 20 20 20 20 20 27 35 27 20 3A 20 68 61 61 '5' : haa
0110C0: 72 66 61 72 76 65 20 3A 3D 20 73 6F 72 74 3B 0D rfarve := sort;.
0110D0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
0110E0: 20 20 20 20 20 27 36 27 20 3A 20 68 61 61 72 66 '6' : haarf
0110F0: 61 72 76 65 20 3A 3D 20 72 6F 65 64 74 3B 0D 0A arve := roedt;..
011100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
011110: 20 20 20 20 27 37 27 20 3A 20 68 61 61 72 66 61 '7' : haarfa
011120: 72 76 65 20 3A 3D 20 67 72 61 61 74 3B 0D 0A 20 rve := graat;..
011130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
011140: 20 20 20 27 38 27 20 3A 20 68 61 61 72 66 61 72 '8' : haarfar
011150: 76 65 20 3A 3D 20 73 6B 61 6C 64 65 74 3B 0D 0A ve := skaldet;..
011160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
011170: 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 20 20 END;..
011180: 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4C WRITEL
011190: 4E 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 N;..
0111A0: 20 20 20 20 20 20 57 52 49 54 45 4C 4E 3B 0D 0A WRITELN;..
0111B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0111C0: 20 20 57 52 49 54 45 28 27 54 61 73 74 20 7C 6A WRITE('Tast |j
0111D0: 65 6E 66 61 72 76 65 3A 20 31 2E 20 42 6C 7D 20 enfarve: 1. Bl}
0111E0: 20 32 2E 20 47 72 7D 20 20 33 2E 20 42 72 75 6E 2. Gr} 3. Brun
0111F0: 65 20 20 27 2C 0D 0A 20 20 20 20 20 20 20 20 20 e ',..
011200: 50 52 4F 47 52 41 4D 20 70 6F 73 74 31 3B 0D 0A PROGRAM post1;..
011210: 20 20 0D 0A 20 20 56 41 52 0D 0A 20 20 20 20 76 .. VAR.. v
011220: 61 65 67 74 20 3A 20 49 4E 54 45 47 45 52 3B 0D aegt : INTEGER;.
011230: 0A 20 20 20 20 70 6F 72 74 6F 20 3A 20 52 45 41 . porto : REA
011240: 4C 3B 0D 0A 20 20 0D 0A 20 20 42 45 47 49 4E 0D L;.. .. BEGIN.
011250: 0A 20 20 20 20 57 52 49 54 45 28 43 4C 52 48 4F . WRITE(CLRHO
011260: 4D 29 3B 0D 0A 20 20 20 20 47 4F 54 4F 58 59 28 M);.. GOTOXY(
011270: 30 2C 20 32 29 3B 0D 0A 20 20 20 20 57 52 49 54 0, 2);.. WRIT
011280: 45 4C 4E 28 27 20 20 50 20 6F 20 73 20 74 20 74 ELN(' P o s t t
011290: 20 61 20 6B 20 73 20 74 20 65 20 72 20 20 20 69 a k s t e r i
0112A0: 20 20 20 44 20 61 20 6E 20 6D 20 61 20 72 20 6B D a n m a r k
0112B0: 20 20 20 70 20 72 20 3A 27 2C 0D 0A 20 20 20 20 p r :',..
0112C0: 20 20 20 20 20 20 27 20 20 31 20 2E 20 20 20 6A ' 1 . j
0112D0: 20 75 20 6E 20 69 20 20 20 31 20 39 20 38 20 34 u n i 1 9 8 4
0112E0: 27 29 3B 0D 0A 20 20 20 20 57 52 49 54 45 28 27 ');.. WRITE('
0112F0: 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D --------------
011300: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
011310: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
011320: 2D 2D 2D 27 2C 0D 0A 20 20 20 20 20 20 20 20 20 ---',..
011330: 20 27 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D '--------------
011340: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 27 29 3B 0D 0A -----------');..
011350: 20 20 20 20 47 4F 54 4F 58 59 28 30 2C 20 35 29 GOTOXY(0, 5)
011360: 3B 0D 0A 20 20 20 20 57 52 49 54 45 28 27 20 20 ;.. WRITE('
011370: 49 6E 64 74 61 73 74 20 62 72 65 76 65 74 73 20 Indtast brevets
011380: 76 7B 67 74 20 69 20 67 72 61 6D 3A 20 27 29 3B v{gt i gram: ');
011390: 20 52 45 41 44 4C 4E 28 76 61 65 67 74 29 3B 0D READLN(vaegt);.
0113A0: 0A 20 20 20 20 43 41 53 45 20 76 61 65 67 74 20 . CASE vaegt
0113B0: 4F 46 0D 0A 20 20 20 20 20 20 30 20 2E 2E 20 32 OF.. 0 .. 2
0113C0: 30 20 20 20 20 20 3A 20 70 6F 72 74 6F 20 3A 3D 0 : porto :=
0113D0: 20 32 37 30 3B 0D 0A 20 20 20 20 20 20 32 31 20 270;.. 21
0113E0: 2E 2E 20 31 30 30 20 20 20 3A 20 70 6F 72 74 6F .. 100 : porto
0113F0: 20 3A 3D 20 33 37 30 3B 0D 0A 20 20 20 20 20 20 := 370;..
011400: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 '
011410: 34 2E 20 47 72 7C 6E 6E 65 3A 20 20 27 29 3B 0D 4. Gr|nne: ');.
011420: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
011430: 20 20 20 52 45 50 45 41 54 0D 0A 20 20 20 20 20 REPEAT..
011440: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 B
011450: 55 46 4C 45 4E 20 3A 3D 20 31 3B 0D 0A 20 20 20 UFLEN := 1;..
011460: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
011470: 20 57 52 49 54 45 28 43 48 52 28 38 29 29 3B 0D WRITE(CHR(8));.
011480: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
011490: 20 20 20 20 20 52 45 41 44 28 63 68 29 3B 0D 0A READ(ch);..
0114A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0114B0: 20 20 55 4E 54 49 4C 20 28 27 31 27 20 3C 3D 20 UNTIL ('1' <=
0114C0: 63 68 29 20 41 4E 44 20 28 63 68 20 3C 3D 20 27 ch) AND (ch <= '
0114D0: 34 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 4');..
0114E0: 20 20 20 20 20 20 20 20 43 41 53 45 20 63 68 20 CASE ch
0114F0: 4F 46 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 OF..
011500: 20 20 20 20 20 20 20 20 27 31 27 20 3A 20 6F 65 '1' : oe
011510: 6A 65 6E 66 61 72 76 65 20 3A 3D 20 62 6C 61 61 jenfarve := blaa
011520: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ;..
011530: 20 20 20 20 20 20 20 27 32 27 20 3A 20 6F 65 6A '2' : oej
011540: 65 6E 66 61 72 76 65 20 3A 3D 20 67 72 61 61 3B enfarve := graa;
011550: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
011560: 20 20 20 20 20 20 27 33 27 20 3A 20 6F 65 6A 65 '3' : oeje
011570: 6E 66 61 72 76 65 20 3A 3D 20 62 72 75 6E 65 3B nfarve := brune;
011580: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
011590: 20 20 20 20 20 20 27 34 27 20 3A 20 6F 65 6A 65 '4' : oeje
0115A0: 6E 66 61 72 76 65 20 3A 3D 20 67 72 6F 65 6E 6E nfarve := groenn
0115B0: 65 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 e;..
0115C0: 20 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 END;..
0115D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 52 WR
0115E0: 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 20 20 20 20 ITELN;..
0115F0: 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4C WRITEL
011600: 31 30 31 20 2E 2E 20 32 35 30 20 20 3A 20 70 6F 101 .. 250 : po
011610: 72 74 6F 20 3A 3D 20 35 35 30 3B 0D 0A 20 20 20 rto := 550;..
011620: 20 20 20 32 35 31 20 2E 2E 20 35 30 30 20 20 3A 251 .. 500 :
011630: 20 70 6F 72 74 6F 20 3A 3D 20 39 30 30 3B 0D 0A porto := 900;..
011640: 20 20 20 20 20 20 35 30 31 20 2E 2E 20 31 30 30 501 .. 100
011650: 30 20 3A 20 70 6F 72 74 6F 20 3A 3D 20 31 33 30 0 : porto := 130
011660: 30 3B 0D 0A 20 20 20 20 45 4E 44 3B 0D 0A 20 20 0;.. END;..
011670: 20 20 47 4F 54 4F 58 59 28 30 2C 20 31 30 29 3B GOTOXY(0, 10);
011680: 0D 0A 20 20 20 20 49 46 20 28 30 20 3C 3D 20 76 .. IF (0 <= v
011690: 61 65 67 74 29 20 41 4E 44 20 28 76 61 65 67 74 aegt) AND (vaegt
0116A0: 20 3C 3D 20 31 30 30 30 29 0D 0A 20 20 20 20 20 <= 1000)..
0116B0: 20 54 48 45 4E 0D 0A 20 20 20 20 20 20 20 20 42 THEN.. B
0116C0: 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 EGIN..
0116D0: 57 52 49 54 45 28 27 20 20 42 72 65 76 65 74 73 WRITE(' Brevets
0116E0: 20 76 7B 67 74 3A 20 27 2C 20 76 61 65 67 74 20 v{gt: ', vaegt
0116F0: 3A 20 34 2C 20 27 20 67 72 27 29 3B 0D 0A 20 20 : 4, ' gr');..
011700: 20 20 20 20 20 20 20 20 47 4F 54 4F 58 59 28 30 GOTOXY(0
011710: 2C 20 31 32 29 3B 0D 0A 20 20 20 20 20 20 20 20 , 12);..
011720: 20 20 57 52 49 54 45 28 27 20 20 50 6F 72 74 6F WRITE(' Porto
011730: 3A 20 20 20 20 20 20 20 20 27 2C 20 70 6F 72 74 : ', port
011740: 6F 20 2F 20 31 30 30 20 3A 20 35 20 3A 20 32 2C o / 100 : 5 : 2,
011750: 20 27 20 6B 72 27 29 3B 0D 0A 20 20 20 20 20 20 ' kr');..
011760: 20 20 45 4E 44 0D 0A 20 20 20 20 20 20 45 4C 53 END.. ELS
011770: 45 20 0D 0A 20 20 20 20 20 20 20 20 57 52 49 54 E .. WRIT
011780: 45 28 27 20 20 55 6C 6F 76 6C 69 67 20 62 72 65 E(' Ulovlig bre
011790: 76 76 7B 67 74 21 27 29 3B 0D 0A 20 20 20 20 47 vv{gt!');.. G
0117A0: 4F 54 4F 58 59 28 30 2C 20 32 30 29 3B 0D 0A 20 OTOXY(0, 20);..
0117B0: 20 45 4E 44 2E 0D 0A 1A 20 27 2C 20 70 6F 72 74 END.... ', port
0117C0: 6F 20 2F 20 31 30 30 20 3A 20 35 20 3A 20 32 2C o / 100 : 5 : 2,
0117D0: 20 27 20 6B 72 27 29 3B 0D 0A 20 20 20 20 20 20 ' kr');..
0117E0: 20 20 45 4E 44 0D 0A 20 20 20 20 20 20 45 4C 53 END.. ELS
0117F0: 45 20 0D 0A 20 20 20 20 20 20 20 20 57 52 49 54 E .. WRIT
011800: 4E 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 N;..
011810: 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 END;..
011820: 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 END;..
011830: 55 4E 54 49 4C 20 28 70 65 72 73 6F 6E 28 2E 69 UNTIL (person(.i
011840: 2E 29 2E 6E 61 76 6E 20 3D 20 27 5E 27 29 20 4F .).navn = '^') O
011850: 52 20 28 69 20 3D 20 6D 61 78 29 3B 0D 0A 20 20 R (i = max);..
011860: 20 20 20 20 49 46 20 70 65 72 73 6F 6E 28 2E 69 IF person(.i
011870: 2E 29 2E 6E 61 76 6E 20 3D 20 27 5E 27 0D 0A 20 .).navn = '^'..
011880: 20 20 20 20 20 20 20 54 48 45 4E 20 61 6E 74 61 THEN anta
011890: 6C 20 3A 3D 20 69 20 2D 20 31 0D 0A 20 20 20 20 l := i - 1..
0118A0: 20 20 20 20 45 4C 53 45 20 61 6E 74 61 6C 20 3A ELSE antal :
0118B0: 3D 20 6D 61 78 3B 0D 0A 20 20 20 20 45 4E 44 3B = max;.. END;
0118C0: 20 28 2A 20 69 6E 64 6C 61 65 73 20 2A 29 0D 0A (* indlaes *)..
0118D0: 20 20 0D 0A 20 20 50 52 4F 43 45 44 55 52 45 20 .. PROCEDURE
0118E0: 6D 65 6E 75 3B 0D 0A 20 20 0D 0A 20 20 20 20 56 menu;.. .. V
0118F0: 41 52 0D 0A 20 20 20 20 20 20 63 68 20 3A 20 43 AR.. ch : C
011900: 48 41 52 3B 0D 0A 20 20 20 20 0D 0A 20 20 20 20 HAR;.. ..
011910: 42 45 47 49 4E 20 28 2A 20 6D 65 6E 75 20 2A 29 BEGIN (* menu *)
011920: 0D 0A 20 20 20 20 20 20 52 45 50 45 41 54 0D 0A .. REPEAT..
011930: 20 20 20 20 20 20 20 20 57 52 49 54 45 28 43 4C WRITE(CL
011940: 52 48 4F 4D 29 3B 0D 0A 20 20 20 20 20 20 20 20 RHOM);..
011950: 47 4F 54 4F 58 59 28 35 2C 20 32 29 3B 20 57 52 GOTOXY(5, 2); WR
011960: 49 54 45 28 27 48 76 61 64 20 7C 6E 73 6B 65 72 ITE('Hvad |nsker
011970: 20 64 75 20 61 74 20 73 7C 67 65 20 65 66 74 65 du at s|ge efte
011980: 72 3A 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 47 r:');.. G
011990: 4F 54 4F 58 59 28 35 2C 20 35 29 3B 20 57 52 49 OTOXY(5, 5); WRI
0119A0: 54 45 28 27 31 2E 20 4B 7C 6E 27 29 3B 0D 0A 20 TE('1. K|n');..
0119B0: 20 20 20 20 20 20 20 47 4F 54 4F 58 59 28 35 2C GOTOXY(5,
0119C0: 20 37 29 3B 20 57 52 49 54 45 28 27 32 2E 20 48 7); WRITE('2. H
0119D0: 7C 6A 64 65 27 29 3B 0D 0A 20 20 20 20 20 20 20 |jde');..
0119E0: 20 47 4F 54 4F 58 59 28 35 2C 20 39 29 3B 20 57 GOTOXY(5, 9); W
0119F0: 52 49 54 45 28 27 33 2E 20 56 7B 67 74 27 29 3B RITE('3. V{gt');
011A00: 20 20 20 20 20 20 20 20 50 52 4F 47 52 41 4D 20 PROGRAM
011A10: 70 6F 73 74 6B 6F 70 69 3B 0D 0A 20 20 20 20 20 postkopi;..
011A20: 20 20 20 0D 0A 20 20 20 20 20 20 20 20 20 20 54 .. T
011A30: 59 50 45 0D 0A 20 20 20 20 20 20 20 20 20 20 20 YPE..
011A40: 20 73 74 72 34 30 20 3D 20 53 54 52 49 4E 47 28 str40 = STRING(
011A50: 2E 34 30 2E 29 3B 0D 0A 20 20 20 20 20 20 20 20 .40.);..
011A60: 20 20 20 20 6C 69 6E 6B 20 3D 20 5E 20 70 6F 73 link = ^ pos
011A70: 74 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 t;..
011A80: 70 6F 73 74 20 3D 20 52 45 43 4F 52 44 0D 0A 20 post = RECORD..
011A90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
011AA0: 20 20 20 20 6E 61 65 73 74 65 20 3A 20 6C 69 6E naeste : lin
011AB0: 6B 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 k;..
011AC0: 20 20 20 20 20 20 20 20 20 6E 61 76 6E 20 3A 20 navn :
011AD0: 73 74 72 34 30 3B 0D 0A 20 20 20 20 20 20 20 20 str40;..
011AE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 61 64 72 adr
011AF0: 65 73 73 65 20 3A 20 73 74 72 34 30 3B 0D 0A 20 esse : str40;..
011B00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
011B10: 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 20 20 END;..
011B20: 20 20 0D 0A 20 20 20 20 20 20 20 20 20 20 56 41 .. VA
011B30: 52 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 75 R.. u
011B40: 64 2C 20 74 6F 70 2C 20 74 6F 70 6B 6F 70 69 2C d, top, topkopi,
011B50: 20 70 70 20 3A 20 6C 69 6E 6B 3B 0D 0A 20 20 20 pp : link;..
011B60: 20 20 20 20 20 20 20 20 20 63 68 20 3A 20 43 48 ch : CH
011B70: 41 52 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 AR;..
011B80: 20 0D 0A 20 20 20 20 20 20 20 20 20 20 50 52 4F .. PRO
011B90: 43 45 44 55 52 45 20 72 65 74 75 72 6E 3B 0D 0A CEDURE return;..
011BA0: 20 20 20 20 20 20 20 20 20 20 0D 0A 20 20 20 20 ..
011BB0: 20 20 20 20 20 20 20 20 56 41 52 0D 0A 20 20 20 VAR..
011BC0: 20 20 20 20 20 20 20 20 20 20 20 63 68 20 3A 20 ch :
011BD0: 43 48 41 52 3B 0D 0A 20 20 20 20 20 20 20 20 20 CHAR;..
011BE0: 20 20 20 0D 0A 20 20 20 20 20 20 20 20 20 20 20 ..
011BF0: 20 42 45 47 49 4E 20 28 2A 20 72 65 74 75 72 6E BEGIN (* return
011C00: 0D 0A 20 20 20 20 20 20 20 20 47 4F 54 4F 58 59 .. GOTOXY
011C10: 28 35 2C 20 31 31 29 3B 20 57 52 49 54 45 28 27 (5, 11); WRITE('
011C20: 34 2E 20 48 7D 72 66 61 72 76 65 27 29 3B 0D 0A 4. H}rfarve');..
011C30: 20 20 20 20 20 20 20 20 47 4F 54 4F 58 59 28 35 GOTOXY(5
011C40: 2C 20 31 33 29 3B 20 57 52 49 54 45 28 27 35 2E , 13); WRITE('5.
011C50: 20 5C 6A 65 6E 66 61 72 76 65 27 29 3B 0D 0A 20 \jenfarve');..
011C60: 20 20 20 20 20 20 20 47 4F 54 4F 58 59 28 35 2C GOTOXY(5,
011C70: 20 31 35 29 3B 20 57 52 49 54 45 28 27 36 2E 20 15); WRITE('6.
011C80: 41 66 73 6C 75 74 74 65 20 70 72 6F 67 72 61 6D Afslutte program
011C90: 6D 65 74 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 met');..
011CA0: 52 45 50 45 41 54 0D 0A 20 20 20 20 20 20 20 20 REPEAT..
011CB0: 20 20 47 4F 54 4F 58 59 28 35 2C 20 31 38 29 3B GOTOXY(5, 18);
011CC0: 20 57 52 49 54 45 28 27 54 61 73 74 20 6E 75 6D WRITE('Tast num
011CD0: 6D 65 72 65 74 20 70 7D 20 64 65 6E 20 7C 6E 73 meret p} den |ns
011CE0: 6B 65 64 65 20 66 75 6E 6B 74 69 6F 6E 3A 20 20 kede funktion:
011CF0: 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 57 ');.. W
011D00: 52 49 54 45 28 43 48 52 28 38 29 29 3B 20 28 2A RITE(CHR(8)); (*
011D10: 20 42 61 63 6B 73 70 61 63 65 20 2A 29 0D 0A 20 Backspace *)..
011D20: 20 20 20 20 20 20 20 20 20 42 55 46 4C 45 4E 20 BUFLEN
011D30: 3A 3D 20 31 3B 0D 0A 20 20 20 20 20 20 20 20 20 := 1;..
011D40: 20 52 45 41 44 28 63 68 29 3B 0D 0A 20 20 20 20 READ(ch);..
011D50: 20 20 20 20 55 4E 54 49 4C 20 28 27 31 27 20 3C UNTIL ('1' <
011D60: 3D 20 63 68 29 20 41 4E 44 20 28 63 68 20 3C 3D = ch) AND (ch <=
011D70: 20 27 36 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 '6');..
011D80: 43 41 53 45 20 63 68 20 4F 46 0D 0A 20 20 20 20 CASE ch OF..
011D90: 20 20 20 20 20 20 27 31 27 20 3A 20 73 6F 65 67 '1' : soeg
011DA0: 6B 6F 65 6E 3B 0D 0A 20 20 20 20 20 20 20 20 20 koen;..
011DB0: 20 27 32 27 20 3A 20 73 6F 65 67 68 6F 65 6A 64 '2' : soeghoejd
011DC0: 65 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 27 33 e;.. '3
011DD0: 27 20 3A 20 73 6F 65 67 76 61 65 67 74 3B 0D 0A ' : soegvaegt;..
011DE0: 20 20 20 20 20 20 20 20 20 20 27 34 27 20 3A 20 '4' :
011DF0: 73 6F 65 67 68 61 61 72 66 61 72 76 65 3B 0D 0A soeghaarfarve;..
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: 20 2A 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20 *)..
011F10: 20 20 20 57 52 49 54 45 28 27 54 61 73 74 20 3C WRITE('Tast <
011F20: 52 45 54 55 52 4E 3E 3A 20 27 29 3B 0D 0A 20 20 RETURN>: ');..
011F30: 20 20 20 20 20 20 20 20 20 20 20 20 52 45 50 45 REPE
011F40: 41 54 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 AT..
011F50: 20 20 20 20 52 45 41 44 28 4B 42 44 2C 20 63 68 READ(KBD, ch
011F60: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 );..
011F70: 20 20 55 4E 54 49 4C 20 63 68 20 3D 20 43 48 52 UNTIL ch = CHR
011F80: 28 31 33 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 (13);..
011F90: 20 20 20 20 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 WRITELN;..
011FA0: 20 20 20 20 20 20 20 20 20 20 20 45 4E 44 3B 20 END;
011FB0: 28 2A 20 72 65 74 75 72 6E 20 2A 29 0D 0A 20 20 (* return *)..
011FC0: 20 20 20 20 20 20 20 20 0D 0A 20 20 20 20 20 20 ..
011FD0: 20 20 20 20 46 55 4E 43 54 49 4F 4E 20 70 6F 73 FUNCTION pos
011FE0: 74 61 6E 74 61 6C 28 66 6F 65 72 73 74 65 20 3A tantal(foerste :
011FF0: 20 6C 69 6E 6B 29 20 3A 20 49 4E 54 45 47 45 52 link) : INTEGER
012000: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 0D 0A 20 ;.. ..
012010: 20 20 20 20 20 20 20 20 20 20 20 56 41 52 0D 0A VAR..
012020: 20 20 20 20 20 20 20 20 20 20 20 20 20 74 61 65 tae
012030: 6C 6C 65 72 20 3A 20 49 4E 54 45 47 45 52 3B 0D ller : INTEGER;.
012040: 0A 20 20 20 20 20 20 20 20 20 20 20 0D 0A 20 20 . ..
012050: 20 20 20 20 20 20 20 20 20 42 45 47 49 4E 20 28 BEGIN (
012060: 2A 20 70 6F 73 74 61 6E 74 61 6C 20 2A 29 0D 0A * postantal *)..
012070: 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 IF
012080: 66 6F 65 72 73 74 65 20 3D 20 4E 49 4C 0D 0A 20 foerste = NIL..
012090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 48 TH
0120A0: 45 4E 20 70 6F 73 74 61 6E 74 61 6C 20 3A 3D 20 EN postantal :=
0120B0: 30 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 0..
0120C0: 20 20 45 4C 53 45 0D 0A 20 20 20 20 20 20 20 20 ELSE..
0120D0: 20 20 20 20 20 20 20 20 20 42 45 47 49 4E 0D 0A BEGIN..
0120E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0120F0: 20 20 20 74 61 65 6C 6C 65 72 20 3A 3D 20 31 3B taeller := 1;
012100: 20 3C 3E 20 4E 49 4C 20 44 4F 0D 0A 20 20 20 20 <> NIL DO..
012110: 20 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 BEGI
012120: 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 N..
012130: 20 20 20 20 20 57 52 49 54 45 4C 4E 28 70 70 5E WRITELN(pp^
012140: 2E 6E 61 76 6E 29 3B 0D 0A 20 20 20 20 20 20 20 .navn);..
012150: 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 WRITE
012160: 4C 4E 28 70 70 5E 2E 61 64 72 65 73 73 65 29 3B LN(pp^.adresse);
012170: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
012180: 20 20 20 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 WRITELN;..
012190: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0121A0: 70 70 20 3A 3D 20 70 70 5E 2E 6E 61 65 73 74 65 pp := pp^.naeste
0121B0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ;..
0121C0: 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 20 END;..
0121D0: 20 20 20 20 20 20 20 72 65 74 75 72 6E 3B 0D 0A return;..
0121E0: 20 20 20 20 20 20 20 20 20 20 20 20 45 4E 44 3B END;
0121F0: 20 28 2A 20 75 64 73 6B 72 69 76 20 2A 29 0D 0A (* udskriv *)..
012200: 20 20 20 20 20 20 20 20 20 20 0D 0A 20 20 20 20 ..
012210: 20 20 20 20 20 20 50 52 4F 43 45 44 55 52 45 20 PROCEDURE
012220: 6B 6F 70 69 28 74 6F 70 31 20 3A 20 6C 69 6E 6B kopi(top1 : link
012230: 3B 20 56 41 52 20 74 6F 70 32 20 3A 20 6C 69 6E ; VAR top2 : lin
012240: 6B 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 0D k);.. .
012250: 0A 20 20 20 20 20 20 20 20 20 20 20 20 56 41 52 . VAR
012260: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
012270: 70 2C 20 62 75 6E 64 20 3A 20 6C 69 6E 6B 3B 0D p, bund : link;.
012280: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 . i
012290: 2C 20 61 6E 74 61 6C 20 3A 20 49 4E 54 45 47 45 , antal : INTEGE
0122A0: 52 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 R;..
0122B0: 20 20 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 ..
0122C0: 42 45 47 49 4E 20 28 2A 20 6B 6F 70 69 20 2A 29 BEGIN (* kopi *)
0122D0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
0122E0: 49 46 20 74 6F 70 31 20 3D 20 4E 49 4C 0D 0A 20 IF top1 = NIL..
0122F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 T
012300: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
012310: 20 20 20 20 20 57 48 49 4C 45 20 66 6F 65 72 73 WHILE foers
012320: 74 65 5E 2E 6E 61 65 73 74 65 20 3C 3E 20 4E 49 te^.naeste <> NI
012330: 4C 20 44 4F 0D 0A 20 20 20 20 20 20 20 20 20 20 L DO..
012340: 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4E BEGIN
012350: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
012360: 20 20 20 20 20 20 20 20 20 74 61 65 6C 6C 65 72 taeller
012370: 20 3A 3D 20 74 61 65 6C 6C 65 72 20 2B 20 31 3B := taeller + 1;
012380: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
012390: 20 20 20 20 20 20 20 20 20 66 6F 65 72 73 74 65 foerste
0123A0: 20 3A 3D 20 66 6F 65 72 73 74 65 5E 2E 6E 61 65 := foerste^.nae
0123B0: 73 74 65 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 ste;..
0123C0: 20 20 20 20 20 20 20 20 20 20 20 45 4E 44 3B 0D END;.
0123D0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
0123E0: 20 20 20 20 70 6F 73 74 61 6E 74 61 6C 20 3A 3D postantal :=
0123F0: 20 74 61 65 6C 6C 65 72 3B 0D 0A 20 20 20 20 20 taeller;..
012400: 20 20 20 20 20 20 20 20 20 20 20 20 45 4E 44 3B END;
012410: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 45 4E 44 .. END
012420: 3B 20 28 2A 20 70 6F 73 74 61 6E 74 61 6C 20 2A ; (* postantal *
012430: 29 0D 0A 20 20 20 20 20 20 20 20 20 20 0D 0A 20 ).. ..
012440: 20 20 20 20 20 20 20 20 20 50 52 4F 43 45 44 55 PROCEDU
012450: 52 45 20 69 6E 64 73 61 65 74 28 56 41 52 20 66 RE indsaet(VAR f
012460: 6F 65 72 73 74 65 20 3A 20 6C 69 6E 6B 3B 20 6E oerste : link; n
012470: 79 70 6F 73 74 20 3A 20 6C 69 6E 6B 29 3B 0D 0A ypost : link);..
012480: 20 20 20 20 20 20 20 20 20 20 20 20 0D 0A 20 20 ..
012490: 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4E 20 BEGIN
0124A0: 28 2A 20 69 6E 64 73 61 65 74 20 2A 29 0D 0A 20 (* indsaet *)..
0124B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 IF
0124C0: 66 6F 65 72 73 74 65 20 3D 20 4E 49 4C 20 28 2A foerste = NIL (*
0124D0: 20 6B 7B 64 65 6E 20 65 72 20 74 6F 6D 20 2A 29 k{den er tom *)
0124E0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
0124F0: 20 20 54 48 45 4E 20 66 6F 65 72 73 74 65 20 3A THEN foerste :
012500: 48 45 4E 20 74 6F 70 32 20 3A 3D 20 4E 49 4C 0D HEN top2 := NIL.
012510: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 . E
012520: 4C 53 45 0D 0A 20 20 20 20 20 20 20 20 20 20 20 LSE..
012530: 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 BEGIN..
012540: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4E 45 NE
012550: 57 28 74 6F 70 32 29 3B 0D 0A 20 20 20 20 20 20 W(top2);..
012560: 20 20 20 20 20 20 20 20 20 20 20 20 74 6F 70 32 top2
012570: 5E 20 3A 3D 20 74 6F 70 31 5E 3B 0D 0A 20 20 20 ^ := top1^;..
012580: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 b
012590: 75 6E 64 20 3A 3D 20 74 6F 70 32 3B 0D 0A 20 20 und := top2;..
0125A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0125B0: 61 6E 74 61 6C 20 3A 3D 20 70 6F 73 74 61 6E 74 antal := postant
0125C0: 61 6C 28 74 6F 70 31 29 3B 0D 0A 20 20 20 20 20 al(top1);..
0125D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 46 4F 52 FOR
0125E0: 20 69 20 3A 3D 20 32 20 54 4F 20 61 6E 74 61 6C i := 2 TO antal
0125F0: 20 44 4F 0D 0A 20 20 20 20 20 20 20 20 20 20 20 DO..
012600: 20 20 20 20 20 20 20 20 20 42 45 47 49 4E 0D 0A BEGIN..
012610: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
012620: 20 20 20 20 20 20 4E 45 57 28 70 29 3B 0D 0A 20 NEW(p);..
012630: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
012640: 20 20 20 20 20 74 6F 70 31 20 3A 3D 20 74 6F 70 top1 := top
012650: 31 5E 2E 6E 61 65 73 74 65 3B 0D 0A 20 20 20 20 1^.naeste;..
012660: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
012670: 20 20 70 5E 20 3A 3D 20 74 6F 70 31 5E 3B 0D 0A p^ := top1^;..
012680: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
012690: 20 20 20 20 20 20 62 75 6E 64 5E 2E 6E 61 65 73 bund^.naes
0126A0: 74 65 20 3A 3D 20 70 3B 0D 0A 20 20 20 20 20 20 te := p;..
0126B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0126C0: 62 75 6E 64 20 3A 3D 70 3B 0D 0A 20 20 20 20 20 bund :=p;..
0126D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 E
0126E0: 4E 44 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 ND;..
0126F0: 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 END;..
012700: 3D 20 6E 79 70 6F 73 74 0D 0A 20 20 20 20 20 20 = nypost..
012710: 20 20 20 20 20 20 20 20 45 4C 53 45 20 49 46 20 ELSE IF
012720: 6E 79 70 6F 73 74 5E 2E 6E 61 76 6E 20 3C 20 66 nypost^.navn < f
012730: 6F 65 72 73 74 65 5E 2E 6E 61 76 6E 20 28 2A 20 oerste^.navn (*
012740: 66 7C 72 20 66 7C 72 73 74 65 20 70 6F 73 74 20 f|r f|rste post
012750: 2A 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 *)..
012760: 20 20 20 20 54 48 45 4E 0D 0A 20 20 20 20 20 20 THEN..
012770: 20 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 BEGI
012780: 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 N..
012790: 20 20 20 20 20 20 20 6E 79 70 6F 73 74 5E 2E 6E nypost^.n
0127A0: 61 65 73 74 65 20 3A 3D 66 6F 65 72 73 74 65 3B aeste :=foerste;
0127B0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
0127C0: 20 20 20 20 20 20 66 6F 65 72 73 74 65 20 3A 3D foerste :=
0127D0: 6E 79 70 6F 73 74 3B 0D 0A 20 20 20 20 20 20 20 nypost;..
0127E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 WRI
0127F0: 54 45 4C 4E 3B 0D 0A 20 20 20 20 20 20 20 20 20 TELN;..
012800: 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 WRITE
012810: 28 6E 79 70 6F 73 74 5E 2E 6E 61 76 6E 2C 20 27 (nypost^.navn, '
012820: 20 65 72 20 6E 75 20 69 6E 64 73 61 74 20 69 20 er nu indsat i
012830: 6B 7B 64 65 6E 2E 20 27 29 3B 0D 0A 20 20 20 20 k{den. ');..
012840: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
012850: 72 65 74 75 72 6E 3B 0D 0A 20 20 20 20 20 20 20 return;..
012860: 20 20 20 20 20 20 20 20 20 20 20 45 4E 44 0D 0A END..
012870: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4C EL
012880: 53 45 20 28 2A 20 66 69 6E 64 20 72 69 67 74 69 SE (* find rigti
012890: 67 20 70 6C 61 64 73 20 74 69 6C 20 6E 79 70 6F g plads til nypo
0128A0: 73 74 20 76 69 61 20 72 65 6B 75 72 73 69 76 74 st via rekursivt
0128B0: 20 6B 61 6C 64 20 2A 29 0D 0A 20 20 20 20 20 20 kald *)..
0128C0: 20 20 20 20 20 20 20 20 20 20 69 6E 64 73 61 65 indsae
0128D0: 74 28 66 6F 65 72 73 74 65 5E 2E 6E 61 65 73 74 t(foerste^.naest
0128E0: 65 2C 20 6E 79 70 6F 73 74 29 3B 0D 0A 20 20 20 e, nypost);..
0128F0: 20 20 20 20 20 20 20 20 20 45 4E 44 3B 20 28 2A END; (*
012900: 20 20 20 20 20 20 20 45 4E 44 3B 20 28 2A 20 6B END; (* k
012910: 6F 70 69 20 2A 29 0D 0A 20 20 20 20 20 20 20 20 opi *)..
012920: 20 20 0D 0A 20 20 20 20 20 20 20 20 20 20 42 45 .. BE
012930: 47 49 4E 20 28 2A 20 70 6F 73 74 6B 6F 70 69 20 GIN (* postkopi
012940: 2A 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 *)..
012950: 74 6F 70 20 3A 3D 20 4E 49 4C 3B 0D 0A 20 20 20 top := NIL;..
012960: 20 20 20 20 20 20 20 20 20 4E 45 57 28 75 64 29 NEW(ud)
012970: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 52 ;.. R
012980: 45 50 45 41 54 0D 0A 20 20 20 20 20 20 20 20 20 EPEAT..
012990: 20 20 20 20 20 57 52 49 54 45 28 43 4C 52 48 4F WRITE(CLRHO
0129A0: 4D 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 M);..
0129B0: 20 20 20 47 4F 54 4F 58 59 28 31 30 2C 20 34 29 GOTOXY(10, 4)
0129C0: 3B 20 57 52 49 54 45 28 27 53 4F 52 54 45 52 45 ; WRITE('SORTERE
0129D0: 54 20 4B 5B 44 45 27 29 3B 0D 0A 20 20 20 20 20 T K[DE');..
0129E0: 20 20 20 20 20 20 20 20 20 47 4F 54 4F 58 59 28 GOTOXY(
0129F0: 31 30 2C 20 37 29 3B 20 57 52 49 54 45 28 27 49 10, 7); WRITE('I
012A00: 2E 20 49 6E 64 73 7B 74 20 70 65 72 73 6F 6E 20 . Inds{t person
012A10: 69 20 6B 7B 64 65 6E 2E 27 29 3B 0D 0A 20 20 20 i k{den.');..
012A20: 20 20 20 20 20 20 20 20 20 20 20 47 4F 54 4F 58 GOTOX
012A30: 59 28 31 30 2C 20 39 29 3B 20 57 52 49 54 45 28 Y(10, 9); WRITE(
012A40: 27 46 2E 20 46 6A 65 72 6E 65 20 70 65 72 73 6F 'F. Fjerne perso
012A50: 6E 20 66 72 61 20 6B 7B 64 65 6E 2E 27 29 3B 0D n fra k{den.');.
012A60: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 . G
012A70: 4F 54 4F 58 59 28 31 30 2C 20 31 31 29 3B 20 57 OTOXY(10, 11); W
012A80: 52 49 54 45 28 27 55 2E 20 55 64 73 6B 72 69 76 RITE('U. Udskriv
012A90: 65 20 6B 7B 64 65 6E 2E 27 29 3B 0D 0A 20 20 20 e k{den.');..
012AA0: 20 20 20 20 20 20 20 20 20 20 20 47 4F 54 4F 58 GOTOX
012AB0: 59 28 31 30 2C 20 31 33 29 3B 20 57 52 49 54 45 Y(10, 13); WRITE
012AC0: 28 27 41 2E 20 41 66 73 6C 75 74 74 65 20 70 72 ('A. Afslutte pr
012AD0: 6F 67 72 61 6D 6D 65 74 2E 27 29 3B 0D 0A 20 20 ogrammet.');..
012AE0: 20 20 20 20 20 20 20 20 20 20 20 20 47 4F 54 4F GOTO
012AF0: 58 59 28 31 30 2C 20 31 35 29 3B 20 57 52 49 54 XY(10, 15); WRIT
012B00: 20 69 6E 64 73 61 65 74 20 2A 29 0D 0A 20 20 20 indsaet *)..
012B10: 20 20 20 20 20 20 20 0D 0A 20 20 20 20 20 20 20 ..
012B20: 20 20 20 50 52 4F 43 45 44 55 52 45 20 66 6A 65 PROCEDURE fje
012B30: 72 6E 28 56 41 52 20 66 6F 65 72 73 74 65 20 3A rn(VAR foerste :
012B40: 20 6C 69 6E 6B 3B 20 67 6C 70 6F 73 74 20 3A 20 link; glpost :
012B50: 6C 69 6E 6B 29 3B 0D 0A 20 20 20 20 20 20 20 20 link);..
012B60: 20 20 20 20 20 20 0D 0A 20 20 20 20 20 20 20 20 ..
012B70: 20 20 20 20 42 45 47 49 4E 20 28 2A 20 66 6A 65 BEGIN (* fje
012B80: 72 6E 20 2A 29 0D 0A 20 20 20 20 20 20 20 20 20 rn *)..
012B90: 20 20 20 20 20 49 46 20 66 6F 65 72 73 74 65 20 IF foerste
012BA0: 3D 20 4E 49 4C 20 28 2A 20 6B 7B 64 65 6E 20 74 = NIL (* k{den t
012BB0: 6F 6D 20 2A 29 0D 0A 20 20 20 20 20 20 20 20 20 om *)..
012BC0: 20 20 20 20 20 20 20 54 48 45 4E 0D 0A 20 20 20 THEN..
012BD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 W
012BE0: 52 49 54 45 4C 4E 28 67 6C 70 6F 73 74 5E 2E 6E RITELN(glpost^.n
012BF0: 61 76 6E 2C 20 27 20 66 69 6E 64 65 73 20 69 6B avn, ' findes ik
012C00: 6B 65 20 69 20 6B 7B 64 65 6E 27 29 0D 0A 20 20 ke i k{den')..
012C10: 20 20 20 20 20 20 20 20 20 20 20 20 45 4C 53 45 ELSE
012C20: 20 49 46 20 66 6F 65 72 73 74 65 5E 2E 6E 61 76 IF foerste^.nav
012C30: 6E 20 3D 20 67 6C 70 6F 73 74 5E 2E 6E 61 76 6E n = glpost^.navn
012C40: 20 28 2A 20 66 6A 65 72 6E 20 70 6F 73 74 20 31 (* fjern post 1
012C50: 20 2A 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20 *)..
012C60: 20 20 20 20 20 54 48 45 4E 0D 0A 20 20 20 20 20 THEN..
012C70: 20 20 20 20 20 20 20 20 20 20 20 20 20 42 45 47 BEG
012C80: 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 IN..
012C90: 20 20 20 20 20 20 20 20 66 6F 65 72 73 74 65 20 foerste
012CA0: 3A 3D 20 66 6F 65 72 73 74 65 5E 2E 6E 61 65 73 := foerste^.naes
012CB0: 74 65 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 te;..
012CC0: 20 20 20 20 20 20 20 20 20 57 52 49 54 45 28 67 WRITE(g
012CD0: 6C 70 6F 73 74 5E 2E 6E 61 76 6E 2C 20 27 20 65 lpost^.navn, ' e
012CE0: 72 20 73 6C 65 74 74 65 74 20 66 72 61 20 6B 7B r slettet fra k{
012CF0: 64 65 6E 2E 20 27 29 3B 0D 0A 20 20 20 20 20 20 den. ');..
012D00: 45 20 28 27 50 2E 20 55 64 73 6B 72 69 76 65 20 E ('P. Udskrive
012D10: 70 6F 73 74 61 6E 74 61 6C 2E 27 29 3B 0D 0A 20 postantal.');..
012D20: 20 20 20 20 20 20 20 20 20 20 20 20 20 47 4F 54 GOT
012D30: 4F 58 59 28 31 30 2C 20 31 37 29 3B 20 57 52 49 OXY(10, 17); WRI
012D40: 54 45 28 27 4B 2E 20 4B 6F 70 69 65 72 20 6B 7B TE('K. Kopier k{
012D50: 64 65 6E 2E 27 29 3B 0D 0A 20 20 20 20 20 20 20 den.');..
012D60: 20 20 20 20 20 20 20 47 4F 54 4F 58 59 28 31 30 GOTOXY(10
012D70: 2C 20 31 39 29 3B 20 57 52 49 54 45 28 27 54 61 , 19); WRITE('Ta
012D80: 73 74 20 6B 6F 6D 6D 61 6E 64 6F 3A 20 27 29 3B st kommando: ');
012D90: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
012DA0: 52 45 50 45 41 54 0D 0A 20 20 20 20 20 20 20 20 REPEAT..
012DB0: 20 20 20 20 20 20 20 20 52 45 41 44 28 4B 42 44 READ(KBD
012DC0: 2C 20 63 68 29 3B 0D 0A 20 20 20 20 20 20 20 20 , ch);..
012DD0: 20 20 20 20 20 20 55 4E 54 49 4C 20 63 68 20 49 UNTIL ch I
012DE0: 4E 20 28 2E 27 49 27 2C 20 27 69 27 2C 20 27 46 N (.'I', 'i', 'F
012DF0: 27 2C 20 27 66 27 2C 20 27 55 27 2C 20 27 75 27 ', 'f', 'U', 'u'
012E00: 2C 20 27 50 27 2C 20 27 70 27 2C 0D 0A 20 20 20 , 'P', 'p',..
012E10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
012E20: 20 20 20 20 20 20 20 20 20 27 4B 27 2C 20 27 6B 'K', 'k
012E30: 27 2C 20 27 41 27 2C 20 27 61 27 2E 29 3B 0D 0A ', 'A', 'a'.);..
012E40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 52 WR
012E50: 49 54 45 4C 4E 28 63 68 29 3B 0D 0A 20 20 20 20 ITELN(ch);..
012E60: 20 20 20 20 20 20 20 20 20 20 43 41 53 45 20 63 CASE c
012E70: 68 20 4F 46 0D 0A 20 20 20 20 20 20 20 20 20 20 h OF..
012E80: 20 20 20 20 20 20 27 49 27 2C 20 27 69 27 20 3A 'I', 'i' :
012E90: 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 BEGIN..
012EA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
012EB0: 20 20 20 20 20 4E 45 57 28 70 70 29 3B 0D 0A 20 NEW(pp);..
012EC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
012ED0: 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 WRIT
012EE0: 45 4C 4E 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 ELN;..
012EF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
012F00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 re
012F10: 74 75 72 6E 3B 0D 0A 20 20 20 20 20 20 20 20 20 turn;..
012F20: 20 20 20 20 20 20 20 20 20 45 4E 44 0D 0A 20 20 END..
012F30: 20 20 20 20 20 20 20 20 20 20 20 20 45 4C 53 45 ELSE
012F40: 20 28 2A 20 53 7C 67 20 65 66 74 65 72 20 6E 61 (* S|g efter na
012F50: 76 6E 65 74 20 76 69 61 20 72 65 6B 75 72 73 69 vnet via rekursi
012F60: 76 74 20 6B 61 6C 64 20 2A 29 0D 0A 20 20 20 20 vt kald *)..
012F70: 20 20 20 20 20 20 20 20 20 20 20 20 66 6A 65 72 fjer
012F80: 6E 28 66 6F 65 72 73 74 65 5E 2E 6E 61 65 73 74 n(foerste^.naest
012F90: 65 2C 20 67 6C 70 6F 73 74 29 3B 0D 0A 20 20 20 e, glpost);..
012FA0: 20 20 20 20 20 20 20 20 20 45 4E 44 3B 20 28 2A END; (*
012FB0: 20 66 6A 65 72 6E 20 2A 29 0D 0A 20 20 20 20 20 fjern *)..
012FC0: 20 20 20 20 20 0D 0A 20 20 20 20 20 20 20 20 20 ..
012FD0: 20 50 52 4F 43 45 44 55 52 45 20 75 64 73 6B 72 PROCEDURE udskr
012FE0: 69 76 28 66 6F 65 72 73 74 65 20 3A 20 6C 69 6E iv(foerste : lin
012FF0: 6B 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 0D k);.. .
013000: 0A 20 20 20 20 20 20 20 20 20 20 20 20 56 41 52 . VAR
013010: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
013020: 70 70 20 3A 20 6C 69 6E 6B 3B 0D 0A 20 20 20 20 pp : link;..
013030: 20 20 20 20 20 20 20 20 20 20 0D 0A 20 20 20 20 ..
013040: 20 20 20 20 20 20 20 20 42 45 47 49 4E 20 28 2A BEGIN (*
013050: 20 75 64 73 6B 72 69 76 20 2A 29 0D 0A 20 20 20 udskriv *)..
013060: 20 20 20 20 20 20 20 20 20 20 20 70 70 20 3A 3D pp :=
013070: 20 66 6F 65 72 73 74 65 3B 0D 0A 20 20 20 20 20 foerste;..
013080: 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E WRITELN
013090: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ;..
0130A0: 20 57 52 49 54 45 4C 4E 28 27 4B 7B 64 65 6E 20 WRITELN('K{den
0130B0: 69 6E 64 65 68 6F 6C 64 65 72 20 66 7C 6C 67 65 indeholder f|lge
0130C0: 6E 64 65 20 70 65 72 73 6F 6E 65 72 3A 27 29 3B nde personer:');
0130D0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
0130E0: 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 20 20 WRITELN;..
0130F0: 20 20 20 20 20 20 20 20 57 48 49 4C 45 20 70 70 WHILE pp
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 20 20 57 52 49 54 45 28 27 4E 61 76 6E 3A 20 WRITE('Navn:
013210: 27 29 3B 20 52 45 41 44 4C 4E 28 70 70 5E 2E 6E '); READLN(pp^.n
013220: 61 76 6E 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 avn);..
013230: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
013240: 20 20 20 20 57 52 49 54 45 28 27 41 64 72 65 73 WRITE('Adres
013250: 73 65 3A 20 27 29 3B 20 52 45 41 44 4C 4E 28 70 se: '); READLN(p
013260: 70 5E 2E 61 64 72 65 73 73 65 29 3B 0D 0A 20 20 p^.adresse);..
013270: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
013280: 20 20 20 20 20 20 20 20 20 20 20 70 70 5E 2E 6E pp^.n
013290: 61 65 73 74 65 20 3A 3D 20 4E 49 4C 3B 0D 0A 20 aeste := NIL;..
0132A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0132B0: 20 20 20 20 20 20 20 20 20 20 20 20 69 6E 64 73 inds
0132C0: 61 65 74 28 74 6F 70 2C 20 70 70 29 3B 0D 0A 20 aet(top, pp);..
0132D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0132E0: 20 20 20 20 20 20 20 20 20 20 45 4E 44 3B 0D 0A END;..
0132F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
013300: 27 46 27 2C 20 27 66 27 20 3A 20 42 45 47 49 4E 'F', 'f' : BEGIN
013310: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
013320: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 W
013330: 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 20 20 20 RITELN;..
013340: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
013350: 20 20 20 20 20 20 57 52 49 54 45 28 27 48 76 65 WRITE('Hve
013360: 6D 20 73 6B 61 6C 20 66 6A 65 72 6E 65 73 3A 20 m skal fjernes:
013370: 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 ');..
013380: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
013390: 20 20 52 45 41 44 4C 4E 28 75 64 5E 2E 6E 61 76 READLN(ud^.nav
0133A0: 6E 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 n);..
0133B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0133C0: 20 20 66 6A 65 72 6E 28 74 6F 70 2C 20 75 64 29 fjern(top, ud)
0133D0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ;..
0133E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4E EN
0133F0: 44 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 D;..
013400: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 . E
013410: 4C 53 45 20 49 46 20 6E 79 70 6F 73 74 5E 2E 6E LSE IF nypost^.n
013420: 61 76 6E 20 3C 20 66 6F 65 72 73 74 65 5E 2E 6E avn < foerste^.n
013430: 61 76 6E 20 28 2A 20 66 7C 72 20 66 7C 72 73 74 avn (* f|r f|rst
013440: 65 20 70 6F 73 74 20 2A 29 0D 0A 20 20 20 20 20 e post *)..
013450: 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4E 0D THEN.
013460: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
013470: 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 20 BEGIN..
013480: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6E 79 ny
013490: 70 6F 73 74 5E 2E 6E 61 65 73 74 65 20 3A 3D 66 post^.naeste :=f
0134A0: 6F 65 72 73 74 65 3B 0D 0A 20 20 20 20 20 20 20 oerste;..
0134B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6F 65 foe
0134C0: 72 73 74 65 20 3A 3D 6E 79 70 6F 73 74 3B 0D 0A rste :=nypost;..
0134D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0134E0: 20 20 20 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 WRITELN;..
0134F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
013500: 20 20 57 52 49 54 45 28 6E 79 70 6F 73 74 5E 2E WRITE(nypost^.
013510: 6E 61 76 6E 2C 20 27 20 65 72 20 6E 75 20 69 6E navn, ' er nu in
013520: 64 73 61 74 20 69 20 6B 7B 64 65 6E 2E 20 27 29 dsat i k{den. ')
013530: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ;..
013540: 20 20 20 20 20 20 20 72 65 74 75 72 6E 3B 0D 0A return;..
013550: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
013560: 20 20 45 4E 44 0D 0A 20 20 20 20 20 20 20 20 20 END..
013570: 20 20 20 20 20 45 4C 53 45 20 28 2A 20 66 69 6E ELSE (* fin
013580: 64 20 72 69 67 74 69 67 20 70 6C 61 64 73 20 74 d rigtig plads t
013590: 69 6C 20 6E 79 70 6F 73 74 20 76 69 61 20 72 65 il nypost via re
0135A0: 6B 75 72 73 69 76 74 20 6B 61 6C 64 20 2A 29 0D kursivt kald *).
0135B0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
0135C0: 20 69 6E 64 73 61 65 74 28 66 6F 65 72 73 74 65 indsaet(foerste
0135D0: 5E 2E 6E 61 65 73 74 65 2C 20 6E 79 70 6F 73 74 ^.naeste, nypost
0135E0: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 );..
0135F0: 45 4E 44 3B 20 28 2A 20 69 6E 64 73 61 65 74 20 END; (* indsaet
013600: 20 20 20 20 27 55 27 2C 20 27 75 27 20 3A 20 75 'U', 'u' : u
013610: 64 73 6B 72 69 76 28 74 6F 70 29 3B 0D 0A 20 20 dskriv(top);..
013620: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 50 'P
013630: 27 2C 20 27 70 27 20 3A 20 42 45 47 49 4E 0D 0A ', 'p' : BEGIN..
013640: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
013650: 20 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 WRI
013660: 54 45 4C 4E 3B 0D 0A 20 20 20 20 20 20 20 20 20 TELN;..
013670: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
013680: 20 20 20 20 57 52 49 54 45 28 27 41 6E 74 61 6C WRITE('Antal
013690: 20 70 6F 73 74 65 72 3A 20 27 2C 20 70 6F 73 74 poster: ', post
0136A0: 61 6E 74 61 6C 28 74 6F 70 29 2C 20 27 20 27 29 antal(top), ' ')
0136B0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ;..
0136C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0136D0: 72 65 74 75 72 6E 3B 0D 0A 20 20 20 20 20 20 20 return;..
0136E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0136F0: 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 END;..
013700: 20 20 20 20 20 20 20 20 20 20 27 4B 27 2C 20 27 'K', '
013710: 6B 27 20 3A 20 42 45 47 49 4E 0D 0A 20 20 20 20 k' : BEGIN..
013720: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
013730: 20 20 20 20 20 20 20 20 20 6B 6F 70 69 28 74 6F kopi(to
013740: 70 2C 20 74 6F 70 6B 6F 70 69 29 3B 0D 0A 20 20 p, topkopi);..
013750: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
013760: 20 20 20 20 20 20 20 20 20 20 20 75 64 73 6B 72 udskr
013770: 69 76 28 74 6F 70 6B 6F 70 69 29 3B 0D 0A 20 20 iv(topkopi);..
013780: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
013790: 20 20 20 20 20 20 20 20 20 45 4E 44 3B 0D 0A 20 END;..
0137A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4E 44 END
0137B0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 55 ;.. U
0137C0: 4E 54 49 4C 20 63 68 20 49 4E 20 28 2E 27 41 27 NTIL ch IN (.'A'
0137D0: 2C 20 27 61 27 2E 29 3B 0D 0A 20 20 20 20 20 20 , 'a'.);..
0137E0: 20 20 20 20 45 4E 44 2E 20 28 2A 20 70 6F 73 74 END. (* post
0137F0: 6B 6F 70 69 20 2A 29 0D 0A 1A 29 3B 0D 0A 20 20 kopi *)...);..
013800: 2A 29 0D 0A 20 20 20 20 20 20 20 20 20 20 0D 0A *).. ..
013810: 20 20 20 20 20 20 20 20 20 20 50 52 4F 43 45 44 PROCED
013820: 55 52 45 20 66 6A 65 72 6E 28 56 41 52 20 66 6F URE fjern(VAR fo
013830: 65 72 73 74 65 20 3A 20 6C 69 6E 6B 3B 20 67 6C erste : link; gl
013840: 70 6F 73 74 20 3A 20 6C 69 6E 6B 29 3B 0D 0A 20 post : link);..
013850: 20 20 20 20 20 20 20 20 20 20 20 20 20 0D 0A 20 ..
013860: 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4E BEGIN
013870: 20 28 2A 20 66 6A 65 72 6E 20 2A 29 0D 0A 20 20 (* fjern *)..
013880: 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 66 IF f
013890: 6F 65 72 73 74 65 20 3D 20 4E 49 4C 20 28 2A 20 oerste = NIL (*
0138A0: 6B 7B 64 65 6E 20 74 6F 6D 20 2A 29 0D 0A 20 20 k{den tom *)..
0138B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 48 TH
0138C0: 45 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 EN..
0138D0: 20 20 20 20 20 20 57 52 49 54 45 4C 4E 28 67 6C WRITELN(gl
0138E0: 70 6F 73 74 5E 2E 6E 61 76 6E 2C 20 27 20 66 69 post^.navn, ' fi
0138F0: 6E 64 65 73 20 69 6B 6B 65 20 69 20 6B 7B 64 65 ndes ikke i k{de
013900: 6E 27 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20 n')..
013910: 20 20 20 45 4C 53 45 20 49 46 20 66 6F 65 72 73 ELSE IF foers
013920: 74 65 5E 2E 6E 61 76 6E 20 3D 20 67 6C 70 6F 73 te^.navn = glpos
013930: 74 5E 2E 6E 61 76 6E 20 28 2A 20 66 6A 65 72 6E t^.navn (* fjern
013940: 20 70 6F 73 74 20 31 20 2A 29 0D 0A 20 20 20 20 post 1 *)..
013950: 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4E THEN
013960: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
013970: 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 BEGIN..
013980: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 f
013990: 6F 65 72 73 74 65 20 3A 3D 20 66 6F 65 72 73 74 oerste := foerst
0139A0: 65 5E 2E 6E 61 65 73 74 65 3B 0D 0A 20 20 20 20 e^.naeste;..
0139B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0139C0: 57 52 49 54 45 28 67 6C 70 6F 73 74 5E 2E 6E 61 WRITE(glpost^.na
0139D0: 76 6E 2C 20 27 20 65 72 20 73 6C 65 74 74 65 74 vn, ' er slettet
0139E0: 20 66 72 61 20 6B 7B 64 65 6E 2E 20 27 29 3B 0D fra k{den. ');.
0139F0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
013A00: 20 20 20 20 20 20 20 20 50 52 4F 47 52 41 4D 20 PROGRAM
013A10: 70 6F 73 74 5F 61 6E 74 3B 0D 0A 20 20 20 20 20 post_ant;..
013A20: 20 20 20 0D 0A 20 20 20 20 20 20 20 20 20 20 54 .. T
013A30: 59 50 45 0D 0A 20 20 20 20 20 20 20 20 20 20 20 YPE..
013A40: 20 73 74 72 34 30 20 3D 20 53 54 52 49 4E 47 28 str40 = STRING(
013A50: 2E 34 30 2E 29 3B 0D 0A 20 20 20 20 20 20 20 20 .40.);..
013A60: 20 20 20 20 6C 69 6E 6B 20 3D 20 5E 20 70 6F 73 link = ^ pos
013A70: 74 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 t;..
013A80: 70 6F 73 74 20 3D 20 52 45 43 4F 52 44 0D 0A 20 post = RECORD..
013A90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
013AA0: 20 20 20 20 6E 61 65 73 74 65 20 3A 20 6C 69 6E naeste : lin
013AB0: 6B 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 k;..
013AC0: 20 20 20 20 20 20 20 20 20 6E 61 76 6E 20 3A 20 navn :
013AD0: 73 74 72 34 30 3B 0D 0A 20 20 20 20 20 20 20 20 str40;..
013AE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 61 64 72 adr
013AF0: 65 73 73 65 20 3A 20 73 74 72 34 30 3B 0D 0A 20 esse : str40;..
013B00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
013B10: 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 20 20 END;..
013B20: 20 20 0D 0A 20 20 20 20 20 20 20 20 20 20 56 41 .. VA
013B30: 52 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 75 R.. u
013B40: 64 2C 20 74 6F 70 2C 20 70 70 20 3A 20 6C 69 6E d, top, pp : lin
013B50: 6B 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 k;..
013B60: 63 68 20 3A 20 43 48 41 52 3B 0D 0A 20 20 20 20 ch : CHAR;..
013B70: 20 20 20 20 20 20 20 20 0D 0A 20 20 20 20 20 20 ..
013B80: 20 20 20 20 50 52 4F 43 45 44 55 52 45 20 72 65 PROCEDURE re
013B90: 74 75 72 6E 3B 0D 0A 20 20 20 20 20 20 20 20 20 turn;..
013BA0: 20 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 56 .. V
013BB0: 41 52 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 AR..
013BC0: 20 20 63 68 20 3A 20 43 48 41 52 3B 0D 0A 20 20 ch : CHAR;..
013BD0: 20 20 20 20 20 20 20 20 20 20 0D 0A 20 20 20 20 ..
013BE0: 20 20 20 20 20 20 20 20 42 45 47 49 4E 20 28 2A BEGIN (*
013BF0: 20 72 65 74 75 72 6E 20 2A 29 0D 0A 20 20 20 20 return *)..
013C00: 20 20 20 20 20 72 65 74 75 72 6E 3B 0D 0A 20 20 return;..
013C10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
013C20: 45 4E 44 0D 0A 20 20 20 20 20 20 20 20 20 20 20 END..
013C30: 20 20 20 45 4C 53 45 20 28 2A 20 53 7C 67 20 65 ELSE (* S|g e
013C40: 66 74 65 72 20 6E 61 76 6E 65 74 20 76 69 61 20 fter navnet via
013C50: 72 65 6B 75 72 73 69 76 74 20 6B 61 6C 64 20 2A rekursivt kald *
013C60: 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 )..
013C70: 20 20 20 66 6A 65 72 6E 28 66 6F 65 72 73 74 65 fjern(foerste
013C80: 5E 2E 6E 61 65 73 74 65 2C 20 67 6C 70 6F 73 74 ^.naeste, glpost
013C90: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 );..
013CA0: 45 4E 44 3B 20 28 2A 20 66 6A 65 72 6E 20 2A 29 END; (* fjern *)
013CB0: 0D 0A 20 20 20 20 20 20 20 20 20 20 0D 0A 20 20 .. ..
013CC0: 20 20 20 20 20 20 20 20 50 52 4F 43 45 44 55 52 PROCEDUR
013CD0: 45 20 75 64 73 6B 72 69 76 28 66 6F 65 72 73 74 E udskriv(foerst
013CE0: 65 20 3A 20 6C 69 6E 6B 29 3B 0D 0A 20 20 20 20 e : link);..
013CF0: 20 20 20 20 20 20 0D 0A 20 20 20 20 20 20 20 20 ..
013D00: 20 20 20 20 56 41 52 0D 0A 20 20 20 20 20 20 20 VAR..
013D10: 20 20 20 20 20 20 20 70 70 20 3A 20 6C 69 6E 6B pp : link
013D20: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ;..
013D30: 20 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 42 .. B
013D40: 45 47 49 4E 20 28 2A 20 75 64 73 6B 72 69 76 20 EGIN (* udskriv
013D50: 2A 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 *)..
013D60: 20 20 70 70 20 3A 3D 20 66 6F 65 72 73 74 65 3B pp := foerste;
013D70: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
013D80: 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 20 20 WRITELN;..
013D90: 20 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E 28 WRITELN(
013DA0: 27 4B 7B 64 65 6E 20 69 6E 64 65 68 6F 6C 64 65 'K{den indeholde
013DB0: 72 20 66 7C 6C 67 65 6E 64 65 20 70 65 72 73 6F r f|lgende perso
013DC0: 6E 65 72 3A 27 29 3B 0D 0A 20 20 20 20 20 20 20 ner:');..
013DD0: 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E 3B 0D WRITELN;.
013DE0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 . W
013DF0: 48 49 4C 45 20 70 70 20 3C 3E 20 4E 49 4C 20 44 HILE pp <> NIL D
013E00: 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 28 WRITE(
013E10: 27 54 61 73 74 20 3C 52 45 54 55 52 4E 3E 3A 20 'Tast <RETURN>:
013E20: 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 ');..
013E30: 20 20 20 52 45 50 45 41 54 0D 0A 20 20 20 20 20 REPEAT..
013E40: 20 20 20 20 20 20 20 20 20 20 20 52 45 41 44 28 READ(
013E50: 4B 42 44 2C 20 63 68 29 3B 0D 0A 20 20 20 20 20 KBD, ch);..
013E60: 20 20 20 20 20 20 20 20 20 55 4E 54 49 4C 20 63 UNTIL c
013E70: 68 20 3D 20 43 48 52 28 31 33 29 3B 0D 0A 20 20 h = CHR(13);..
013E80: 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 WRIT
013E90: 45 4C 4E 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 ELN;..
013EA0: 20 20 45 4E 44 3B 20 28 2A 20 72 65 74 75 72 6E END; (* return
013EB0: 20 2A 29 0D 0A 20 20 20 20 20 20 20 20 20 20 0D *).. .
013EC0: 0A 20 20 20 20 20 20 20 20 20 20 46 55 4E 43 54 . FUNCT
013ED0: 49 4F 4E 20 70 6F 73 74 61 6E 74 61 6C 28 66 6F ION postantal(fo
013EE0: 65 72 73 74 65 20 3A 20 6C 69 6E 6B 29 20 3A 20 erste : link) :
013EF0: 49 4E 54 45 47 45 52 3B 0D 0A 20 20 20 20 20 20 INTEGER;..
013F00: 20 20 20 20 0D 0A 20 20 20 20 20 20 20 20 20 20 ..
013F10: 20 20 56 41 52 0D 0A 20 20 20 20 20 20 20 20 20 VAR..
013F20: 20 20 20 20 74 61 65 6C 6C 65 72 20 3A 20 49 4E taeller : IN
013F30: 54 45 47 45 52 3B 0D 0A 20 20 20 20 20 20 20 20 TEGER;..
013F40: 20 20 20 0D 0A 20 20 20 20 20 20 20 20 20 20 20 ..
013F50: 42 45 47 49 4E 20 28 2A 20 70 6F 73 74 61 6E 74 BEGIN (* postant
013F60: 61 6C 20 2A 29 0D 0A 20 20 20 20 20 20 20 20 20 al *)..
013F70: 20 20 20 20 49 46 20 66 6F 65 72 73 74 65 20 3D IF foerste =
013F80: 20 4E 49 4C 0D 0A 20 20 20 20 20 20 20 20 20 20 NIL..
013F90: 20 20 20 20 20 54 48 45 4E 20 70 6F 73 74 61 6E THEN postan
013FA0: 74 61 6C 20 3A 3D 20 30 0D 0A 20 20 20 20 20 20 tal := 0..
013FB0: 20 20 20 20 20 20 20 20 20 45 4C 53 45 0D 0A 20 ELSE..
013FC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
013FD0: 42 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 BEGIN..
013FE0: 20 20 20 20 20 20 20 20 20 20 74 61 65 6C 6C 65 taelle
013FF0: 72 20 3A 3D 20 31 3B 0D 0A 20 20 20 20 20 20 20 r := 1;..
014000: 4F 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 O..
014010: 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 20 BEGIN..
014020: 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 WRIT
014030: 45 4C 4E 28 70 70 5E 2E 6E 61 76 6E 29 3B 0D 0A ELN(pp^.navn);..
014040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
014050: 20 20 57 52 49 54 45 4C 4E 28 70 70 5E 2E 61 64 WRITELN(pp^.ad
014060: 72 65 73 73 65 29 3B 0D 0A 20 20 20 20 20 20 20 resse);..
014070: 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 WRITE
014080: 4C 4E 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 LN;..
014090: 20 20 20 20 20 20 20 70 70 20 3A 3D 20 70 70 5E pp := pp^
0140A0: 2E 6E 61 65 73 74 65 3B 0D 0A 20 20 20 20 20 20 .naeste;..
0140B0: 20 20 20 20 20 20 20 20 20 20 45 4E 44 3B 0D 0A END;..
0140C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 re
0140D0: 74 75 72 6E 3B 0D 0A 20 20 20 20 20 20 20 20 20 turn;..
0140E0: 20 20 20 45 4E 44 3B 20 28 2A 20 75 64 73 6B 72 END; (* udskr
0140F0: 69 76 20 2A 29 0D 0A 20 20 20 20 20 20 20 20 20 iv *)..
014100: 20 0D 0A 20 20 20 20 20 20 20 20 20 20 42 45 47 .. BEG
014110: 49 4E 20 28 2A 20 70 6F 73 74 5F 61 6E 74 20 2A IN (* post_ant *
014120: 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 74 ).. t
014130: 6F 70 20 3A 3D 20 4E 49 4C 3B 0D 0A 20 20 20 20 op := NIL;..
014140: 20 20 20 20 20 20 20 20 4E 45 57 28 75 64 29 3B NEW(ud);
014150: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 52 45 .. RE
014160: 50 45 41 54 0D 0A 20 20 20 20 20 20 20 20 20 20 PEAT..
014170: 20 20 20 20 57 52 49 54 45 28 43 4C 52 48 4F 4D WRITE(CLRHOM
014180: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 );..
014190: 20 20 47 4F 54 4F 58 59 28 31 30 2C 20 34 29 3B GOTOXY(10, 4);
0141A0: 20 57 52 49 54 45 28 27 53 4F 52 54 45 52 45 54 WRITE('SORTERET
0141B0: 20 4B 5B 44 45 27 29 3B 0D 0A 20 20 20 20 20 20 K[DE');..
0141C0: 20 20 20 20 20 20 20 20 47 4F 54 4F 58 59 28 31 GOTOXY(1
0141D0: 30 2C 20 37 29 3B 20 57 52 49 54 45 28 27 49 2E 0, 7); WRITE('I.
0141E0: 20 49 6E 64 73 7B 74 20 70 65 72 73 6F 6E 20 69 Inds{t person i
0141F0: 20 6B 7B 64 65 6E 2E 27 29 3B 0D 0A 20 20 20 20 k{den.');..
014200: 20 20 20 20 20 20 20 20 20 20 20 20 57 48 49 4C WHIL
014210: 45 20 66 6F 65 72 73 74 65 5E 2E 6E 61 65 73 74 E foerste^.naest
014220: 65 20 3C 3E 20 4E 49 4C 20 44 4F 0D 0A 20 20 20 e <> NIL DO..
014230: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
014240: 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 BEGIN..
014250: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
014260: 74 61 65 6C 6C 65 72 20 3A 3D 20 74 61 65 6C 6C taeller := taell
014270: 65 72 20 2B 20 31 3B 0D 0A 20 20 20 20 20 20 20 er + 1;..
014280: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
014290: 66 6F 65 72 73 74 65 20 3A 3D 20 66 6F 65 72 73 foerste := foers
0142A0: 74 65 5E 2E 6E 61 65 73 74 65 3B 0D 0A 20 20 20 te^.naeste;..
0142B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0142C0: 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 20 20 END;..
0142D0: 20 20 20 20 20 20 20 20 20 20 20 70 6F 73 74 61 posta
0142E0: 6E 74 61 6C 20 3A 3D 20 74 61 65 6C 6C 65 72 3B ntal := taeller;
0142F0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
014300: 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 20 END;..
014310: 20 20 20 20 45 4E 44 3B 20 28 2A 20 70 6F 73 74 END; (* post
014320: 61 6E 74 61 6C 20 2A 29 0D 0A 20 20 20 20 20 20 antal *)..
014330: 20 20 20 20 0D 0A 20 20 20 20 20 20 20 20 20 20 ..
014340: 50 52 4F 43 45 44 55 52 45 20 69 6E 64 73 61 65 PROCEDURE indsae
014350: 74 28 56 41 52 20 66 6F 65 72 73 74 65 20 3A 20 t(VAR foerste :
014360: 6C 69 6E 6B 3B 20 6E 79 70 6F 73 74 20 3A 20 6C link; nypost : l
014370: 69 6E 6B 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 ink);..
014380: 20 20 20 0D 0A 20 20 20 20 20 20 20 20 20 20 20 ..
014390: 20 42 45 47 49 4E 20 28 2A 20 69 6E 64 73 61 65 BEGIN (* indsae
0143A0: 74 20 2A 29 0D 0A 20 20 20 20 20 20 20 20 20 20 t *)..
0143B0: 20 20 20 20 49 46 20 66 6F 65 72 73 74 65 20 3D IF foerste =
0143C0: 20 4E 49 4C 20 28 2A 20 6B 7B 64 65 6E 20 65 72 NIL (* k{den er
0143D0: 20 74 6F 6D 20 2A 29 0D 0A 20 20 20 20 20 20 20 tom *)..
0143E0: 20 20 20 20 20 20 20 20 20 54 48 45 4E 20 66 6F THEN fo
0143F0: 65 72 73 74 65 20 3A 3D 20 6E 79 70 6F 73 74 0D erste := nypost.
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 47 4F 54 4F 58 59 GOTOXY
014510: 28 31 30 2C 20 39 29 3B 20 57 52 49 54 45 28 27 (10, 9); WRITE('
014520: 46 2E 20 46 6A 65 72 6E 65 20 70 65 72 73 6F 6E F. Fjerne person
014530: 20 66 72 61 20 6B 7B 64 65 6E 2E 27 29 3B 0D 0A fra k{den.');..
014540: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 4F GO
014550: 54 4F 58 59 28 31 30 2C 20 31 31 29 3B 20 57 52 TOXY(10, 11); WR
014560: 49 54 45 28 27 55 2E 20 55 64 73 6B 72 69 76 65 ITE('U. Udskrive
014570: 20 6B 7B 64 65 6E 2E 27 29 3B 0D 0A 20 20 20 20 k{den.');..
014580: 20 20 20 20 20 20 20 20 20 20 47 4F 54 4F 58 59 GOTOXY
014590: 28 31 30 2C 20 31 33 29 3B 20 57 52 49 54 45 28 (10, 13); WRITE(
0145A0: 27 41 2E 20 41 66 73 6C 75 74 74 65 20 70 72 6F 'A. Afslutte pro
0145B0: 67 72 61 6D 6D 65 74 2E 27 29 3B 0D 0A 20 20 20 grammet.');..
0145C0: 20 20 20 20 20 20 20 20 20 20 20 47 4F 54 4F 58 GOTOX
0145D0: 59 28 31 30 2C 20 31 35 29 3B 20 57 52 49 54 45 Y(10, 15); WRITE
0145E0: 20 28 27 50 2E 20 55 64 73 6B 72 69 76 65 20 70 ('P. Udskrive p
0145F0: 6F 73 74 61 6E 74 61 6C 2E 27 29 3B 0D 0A 20 20 ostantal.');..
014600: 20 20 20 20 20 20 20 20 20 20 20 20 47 4F 54 4F GOTO
014610: 58 59 28 31 30 2C 20 31 37 29 3B 20 57 52 49 54 XY(10, 17); WRIT
014620: 45 28 27 54 61 73 74 20 6B 6F 6D 6D 61 6E 64 6F E('Tast kommando
014630: 3A 20 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 : ');..
014640: 20 20 20 20 20 52 45 50 45 41 54 0D 0A 20 20 20 REPEAT..
014650: 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 41 REA
014660: 44 28 4B 42 44 2C 20 63 68 29 3B 0D 0A 20 20 20 D(KBD, ch);..
014670: 20 20 20 20 20 20 20 20 20 20 20 55 4E 54 49 4C UNTIL
014680: 20 63 68 20 49 4E 20 28 2E 27 49 27 2C 20 27 69 ch IN (.'I', 'i
014690: 27 2C 20 27 46 27 2C 20 27 66 27 2C 20 27 55 27 ', 'F', 'f', 'U'
0146A0: 2C 20 27 75 27 2C 20 27 50 27 2C 20 27 70 27 2C , 'u', 'P', 'p',
0146B0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
0146C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 41 'A
0146D0: 27 2C 20 27 61 27 2E 29 3B 0D 0A 20 20 20 20 20 ', 'a'.);..
0146E0: 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E WRITELN
0146F0: 28 63 68 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 (ch);..
014700: 50 52 4F 47 52 41 4D 20 70 72 69 6D 66 6F 72 64 PROGRAM primford
014710: 3B 0D 0A 0D 0A 20 20 56 41 52 0D 0A 20 20 20 20 ;.... VAR..
014720: 69 2C 20 61 6E 74 61 6C 20 3A 20 49 4E 54 45 47 i, antal : INTEG
014730: 45 52 3B 0D 0A 20 20 0D 0A 20 20 46 55 4E 43 54 ER;.. .. FUNCT
014740: 49 4F 4E 20 70 72 69 6D 28 6E 20 3A 20 49 4E 54 ION prim(n : INT
014750: 45 47 45 52 29 20 3A 20 42 4F 4F 4C 45 41 4E 3B EGER) : BOOLEAN;
014760: 0D 0A 20 20 0D 0A 20 20 20 20 56 41 52 0D 0A 20 .. .. VAR..
014770: 20 20 20 20 20 69 20 3A 20 49 4E 54 45 47 45 52 i : INTEGER
014780: 3B 0D 0A 20 20 20 20 20 20 70 72 69 6D 74 61 6C ;.. primtal
014790: 20 3A 20 42 4F 4F 4C 45 41 4E 3B 0D 0A 20 20 20 : BOOLEAN;..
0147A0: 20 0D 0A 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 .. BEGIN..
0147B0: 20 20 20 20 70 72 69 6D 74 61 6C 20 3A 3D 20 54 primtal := T
0147C0: 52 55 45 3B 0D 0A 20 20 20 20 20 20 69 20 3A 3D RUE;.. i :=
0147D0: 20 31 3B 0D 0A 20 20 20 20 20 20 57 48 49 4C 45 1;.. WHILE
0147E0: 20 28 69 20 3C 20 52 4F 55 4E 44 28 53 51 52 54 (i < ROUND(SQRT
0147F0: 28 6E 29 29 29 20 41 4E 44 20 70 72 69 6D 74 61 (n))) AND primta
014800: 6C 20 44 4F 0D 0A 20 20 20 20 20 20 20 20 42 45 l DO.. BE
014810: 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 69 GIN.. i
014820: 20 3A 3D 20 69 20 2B 20 31 3B 0D 0A 20 20 20 20 := i + 1;..
014830: 20 20 20 20 20 20 49 46 20 6E 20 4D 4F 44 20 69 IF n MOD i
014840: 20 3D 20 30 0D 0A 20 20 20 20 20 20 20 20 20 20 = 0..
014850: 20 20 54 48 45 4E 20 70 72 69 6D 74 61 6C 20 3A THEN primtal :
014860: 3D 20 46 41 4C 53 45 3B 0D 0A 20 20 20 20 20 20 = FALSE;..
014870: 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 70 72 END;.. pr
014880: 69 6D 20 3A 3D 20 70 72 69 6D 74 61 6C 3B 0D 0A im := primtal;..
014890: 20 20 20 20 20 20 49 46 20 6E 20 3D 20 31 0D 0A IF n = 1..
0148A0: 20 20 20 20 20 20 20 20 54 48 45 4E 20 70 72 69 THEN pri
0148B0: 6D 20 3A 3D 20 46 41 4C 53 45 3B 0D 0A 20 20 20 m := FALSE;..
0148C0: 20 45 4E 44 3B 0D 0A 20 20 20 20 0D 0A 20 20 42 END;.. .. B
0148D0: 45 47 49 4E 0D 0A 20 20 20 20 57 52 49 54 45 28 EGIN.. WRITE(
0148E0: 43 4C 52 48 4F 4D 29 3B 0D 0A 20 20 20 20 57 52 CLRHOM);.. WR
0148F0: 49 54 45 28 27 54 61 73 74 20 61 6E 74 61 6C 3A ITE('Tast antal:
014900: 20 20 20 20 20 43 41 53 45 20 63 68 20 4F 46 0D CASE ch OF.
014910: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
014920: 20 27 49 27 2C 20 27 69 27 20 3A 20 42 45 47 49 'I', 'i' : BEGI
014930: 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 N..
014940: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
014950: 4E 45 57 28 70 70 29 3B 0D 0A 20 20 20 20 20 20 NEW(pp);..
014960: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
014970: 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E 3B 0D WRITELN;.
014980: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
014990: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 52 WR
0149A0: 49 54 45 28 27 4E 61 76 6E 3A 20 27 29 3B 20 52 ITE('Navn: '); R
0149B0: 45 41 44 4C 4E 28 70 70 5E 2E 6E 61 76 6E 29 3B EADLN(pp^.navn);
0149C0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
0149D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 W
0149E0: 52 49 54 45 28 27 41 64 72 65 73 73 65 3A 20 27 RITE('Adresse: '
0149F0: 29 3B 20 52 45 41 44 4C 4E 28 70 70 5E 2E 61 64 ); READLN(pp^.ad
014A00: 72 65 73 73 65 29 3B 0D 0A 20 20 20 20 20 20 20 resse);..
014A10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
014A20: 20 20 20 20 20 20 70 70 5E 2E 6E 61 65 73 74 65 pp^.naeste
014A30: 20 3A 3D 20 4E 49 4C 3B 0D 0A 20 20 20 20 20 20 := NIL;..
014A40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
014A50: 20 20 20 20 20 20 20 69 6E 64 73 61 65 74 28 74 indsaet(t
014A60: 6F 70 2C 20 70 70 29 3B 0D 0A 20 20 20 20 20 20 op, pp);..
014A70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
014A80: 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 END;..
014A90: 20 20 20 20 20 20 20 20 20 20 20 27 46 27 2C 20 'F',
014AA0: 27 66 27 20 3A 20 42 45 47 49 4E 0D 0A 20 20 20 'f' : BEGIN..
014AB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
014AC0: 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4C WRITEL
014AD0: 4E 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 N;..
014AE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
014AF0: 20 57 52 49 54 45 28 27 48 76 65 6D 20 73 6B 61 WRITE('Hvem ska
014B00: 20 27 29 3B 20 52 45 41 44 4C 4E 28 61 6E 74 61 '); READLN(anta
014B10: 6C 29 3B 0D 0A 20 20 20 20 46 4F 52 20 69 20 3A l);.. FOR i :
014B20: 3D 20 31 20 54 4F 20 61 6E 74 61 6C 20 44 4F 0D = 1 TO antal DO.
014B30: 0A 20 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 . BEGIN..
014B40: 20 20 20 20 20 20 49 46 20 69 20 4D 4F 44 20 35 IF i MOD 5
014B50: 30 20 3D 20 31 20 0D 0A 20 20 20 20 20 20 20 20 0 = 1 ..
014B60: 20 20 54 48 45 4E 20 0D 0A 20 20 20 20 20 20 20 THEN ..
014B70: 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 BEGIN..
014B80: 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4C WRITEL
014B90: 4E 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 N;..
014BA0: 20 20 57 52 49 54 45 28 69 20 3A 20 34 2C 20 27 WRITE(i : 4, '
014BB0: 20 20 20 20 27 29 3B 0D 0A 20 20 20 20 20 20 20 ');..
014BC0: 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 END;..
014BD0: 20 20 20 49 46 20 70 72 69 6D 28 69 29 0D 0A 20 IF prim(i)..
014BE0: 20 20 20 20 20 20 20 20 20 54 48 45 4E 20 57 52 THEN WR
014BF0: 49 54 45 28 27 50 27 29 0D 0A 20 20 20 20 20 20 ITE('P')..
014C00: 20 20 20 20 45 4C 53 45 20 57 52 49 54 45 28 27 ELSE WRITE('
014C10: 2E 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 49 46 .');.. IF
014C20: 20 69 20 4D 4F 44 20 31 30 20 3D 20 30 0D 0A 20 i MOD 10 = 0..
014C30: 20 20 20 20 20 20 20 20 20 54 48 45 4E 20 57 52 THEN WR
014C40: 49 54 45 28 27 20 27 29 3B 0D 0A 20 20 20 20 20 ITE(' ');..
014C50: 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 57 52 49 END;.. WRI
014C60: 54 45 4C 4E 3B 0D 0A 20 20 45 4E 44 2E 0D 0A 1A TELN;.. END....
014C70: 49 54 45 28 27 50 27 29 0D 0A 20 20 20 20 20 20 ITE('P')..
014C80: 0E 02 00 38 38 92 7C 10 28 28 28 38 38 10 FE 10 ...88.|.(((88...
014C90: 28 44 82 38 38 12 7C 90 28 24 22 38 38 90 7C 12 (D.88.|.($"88.|.
014CA0: 28 48 88 00 3C 18 3C 3C 3C 18 00 3C FF FF 18 0C (H..<.<<<..<....
014CB0: 18 30 18 18 3C 7E 18 18 7E 3C 18 00 24 66 FF 66 .0..<~..~<..$f.f
014CC0: 24 00 00 E5 A0 01 00 00 FC 1A 0B 16 F6 41 BC 70 $............A.p
014CD0: 7B ED EB 8F 57 F1 F7 4D DB 53 EC BD 86 62 B8 0F {...W..M.S...b..
014CE0: F2 AD 8B E9 04 0F 1C 8E 9C 8D 33 68 38 72 2C DE ..........3h8r,.
014CF0: F5 C5 3A 1C AD 4F CD 0F B9 79 32 15 AD C1 F1 ED ..:..O...y2.....
014D00: 6C 20 66 6A 65 72 6E 65 73 3A 20 27 29 3B 0D 0A l fjernes: ');..
014D10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
014D20: 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 41 REA
014D30: 44 4C 4E 28 75 64 5E 2E 6E 61 76 6E 29 3B 0D 0A DLN(ud^.navn);..
014D40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
014D50: 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6A 65 fje
014D60: 72 6E 28 74 6F 70 2C 20 75 64 29 3B 0D 0A 20 20 rn(top, ud);..
014D70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
014D80: 20 20 20 20 20 20 20 20 20 45 4E 44 3B 0D 0A 20 END;..
014D90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 '
014DA0: 55 27 2C 20 27 75 27 20 3A 20 75 64 73 6B 72 69 U', 'u' : udskri
014DB0: 76 28 74 6F 70 29 3B 0D 0A 20 20 20 20 20 20 20 v(top);..
014DC0: 20 20 20 20 20 20 20 20 20 27 50 27 2C 20 27 70 'P', 'p
014DD0: 27 20 3A 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 ' : BEGIN..
014DE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
014DF0: 20 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E 3B WRITELN;
014E00: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
014E10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 W
014E20: 52 49 54 45 28 27 41 6E 74 61 6C 20 70 6F 73 74 RITE('Antal post
014E30: 65 72 3A 20 27 2C 20 70 6F 73 74 61 6E 74 61 6C er: ', postantal
014E40: 28 74 6F 70 29 2C 20 27 20 27 29 3B 0D 0A 20 20 (top), ' ');..
014E50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
014E60: 20 20 20 20 20 20 20 20 20 20 20 72 65 74 75 72 retur
014E70: 6E 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 n;..
014E80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 E
014E90: 4E 44 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 ND;..
014EA0: 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 20 END;..
014EB0: 20 20 20 20 20 55 4E 54 49 4C 20 63 68 20 49 4E UNTIL ch IN
014EC0: 20 28 2E 27 41 27 2C 20 27 61 27 2E 29 3B 0D 0A (.'A', 'a'.);..
014ED0: 20 20 20 20 20 20 20 20 20 20 45 4E 44 2E 20 28 END. (
014EE0: 2A 20 70 6F 73 74 5F 61 6E 74 20 2A 29 0D 0A 1A * post_ant *)...
014EF0: 6E 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 n;..
014F00: 50 52 4F 47 52 41 4D 20 70 72 69 6D 74 61 6C 3B PROGRAM primtal;
014F10: 0D 0A 0D 0A 20 20 28 2A 20 50 72 6F 67 72 61 6D .... (* Program
014F20: 6D 65 74 20 75 6E 64 65 72 73 7C 67 65 72 2C 20 met unders|ger,
014F30: 6F 6D 20 65 74 20 6F 70 67 69 76 65 74 20 74 61 om et opgivet ta
014F40: 6C 20 65 72 20 65 74 20 70 72 69 6D 74 61 6C 20 l er et primtal
014F50: 2A 29 0D 0A 20 20 0D 0A 20 20 56 41 52 0D 0A 20 *).. .. VAR..
014F60: 20 20 20 74 61 6C 20 2C 20 67 72 61 65 6E 73 65 tal , graense
014F70: 2C 20 64 69 76 69 73 6F 72 20 3A 20 49 4E 54 45 , divisor : INTE
014F80: 47 45 52 3B 0D 0A 20 20 20 20 70 72 69 6D 74 61 GER;.. primta
014F90: 6C 20 3A 20 42 4F 4F 4C 45 41 4E 3B 0D 0A 20 20 l : BOOLEAN;..
014FA0: 0D 0A 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 57 .. BEGIN.. W
014FB0: 52 49 54 45 28 43 4C 52 48 4F 4D 29 3B 0D 0A 20 RITE(CLRHOM);..
014FC0: 20 20 20 57 52 49 54 45 28 27 48 76 69 6C 6B 65 WRITE('Hvilke
014FD0: 74 20 68 65 6C 74 61 6C 20 73 6B 61 6C 20 75 6E t heltal skal un
014FE0: 64 65 72 73 7C 67 65 73 3A 20 27 29 3B 20 52 45 ders|ges: '); RE
014FF0: 41 44 4C 4E 28 74 61 6C 29 3B 0D 0A 20 20 20 20 ADLN(tal);..
015000: 70 72 69 6D 74 61 6C 20 3A 3D 20 46 41 4C 53 45 primtal := FALSE
015010: 3B 0D 0A 20 20 20 20 49 46 20 74 61 6C 20 3E 20 ;.. IF tal >
015020: 31 0D 0A 20 20 20 20 20 20 54 48 45 4E 0D 0A 20 1.. THEN..
015030: 20 20 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 BEGIN..
015040: 20 20 20 20 20 20 20 20 70 72 69 6D 74 61 6C 20 primtal
015050: 3A 3D 20 54 52 55 45 3B 0D 0A 20 20 20 20 20 20 := TRUE;..
015060: 20 20 20 20 67 72 61 65 6E 73 65 20 3A 3D 20 54 graense := T
015070: 52 55 4E 43 28 53 51 52 54 28 74 61 6C 29 2B 31 RUNC(SQRT(tal)+1
015080: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 49 46 );.. IF
015090: 20 28 74 61 6C 20 4D 4F 44 20 32 20 3D 20 30 29 (tal MOD 2 = 0)
0150A0: 20 41 4E 44 20 28 74 61 6C 20 3E 20 32 29 0D 0A AND (tal > 2)..
0150B0: 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4E THEN
0150C0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
0150D0: 42 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 BEGIN..
0150E0: 20 20 20 20 20 20 20 70 72 69 6D 74 61 6C 20 3A primtal :
0150F0: 3D 20 46 41 4C 53 45 3B 0D 0A 20 20 20 20 20 20 = FALSE;..
015100: 20 20 20 20 20 20 20 20 50 52 4F 47 52 41 4D 20 PROGRAM
015110: 70 72 65 64 65 66 3B 0D 0A 20 20 20 20 20 20 20 predef;..
015120: 20 0D 0A 20 20 20 20 20 20 20 20 20 20 42 45 47 .. BEG
015130: 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 IN..
015140: 49 46 20 43 4C 52 48 4F 4D 20 3D 20 27 27 0D 0A IF CLRHOM = ''..
015150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 48 TH
015160: 45 4E 20 57 52 49 54 45 4C 4E 28 27 41 4B 27 29 EN WRITELN('AK')
015170: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
015180: 45 4C 53 45 20 57 52 49 54 45 4C 4E 28 27 4F 4B ELSE WRITELN('OK
015190: 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 ');..
0151A0: 20 49 46 20 43 4C 52 45 4F 53 20 3D 20 27 27 0D IF CLREOS = ''.
0151B0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 . T
0151C0: 48 45 4E 20 57 52 49 54 45 4C 4E 28 27 41 4B 27 HEN WRITELN('AK'
0151D0: 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 )..
0151E0: 20 45 4C 53 45 20 57 52 49 54 45 4C 4E 28 27 4F ELSE WRITELN('O
0151F0: 4B 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 K');..
015200: 20 20 49 46 20 43 4C 52 45 4F 4C 20 3D 20 27 27 IF CLREOL = ''
015210: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
015220: 54 48 45 4E 20 57 52 49 54 45 4C 4E 28 27 41 4B THEN WRITELN('AK
015230: 27 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 ')..
015240: 20 20 45 4C 53 45 20 57 52 49 54 45 4C 4E 28 27 ELSE WRITELN('
015250: 4F 4B 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 OK');..
015260: 20 20 20 49 46 20 49 4E 53 4C 49 4E 20 3D 20 27 IF INSLIN = '
015270: 27 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 '..
015280: 20 54 48 45 4E 20 57 52 49 54 45 4C 4E 28 27 41 THEN WRITELN('A
015290: 4B 27 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20 K')..
0152A0: 20 20 20 45 4C 53 45 20 57 52 49 54 45 4C 4E 28 ELSE WRITELN(
0152B0: 27 4F 4B 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 'OK');..
0152C0: 20 20 20 20 49 46 20 44 45 4C 4C 49 4E 20 3D 20 IF DELLIN =
0152D0: 27 27 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 ''..
0152E0: 20 20 54 48 45 4E 20 57 52 49 54 45 4C 4E 28 27 THEN WRITELN('
0152F0: 41 4B 27 29 0D 0A 20 20 20 20 20 20 20 20 20 20 AK')..
015300: 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4C WRITEL
015310: 4E 28 74 61 6C 2C 20 27 20 65 72 20 65 74 20 6C N(tal, ' er et l
015320: 69 67 65 20 74 61 6C 27 29 3B 0D 0A 20 20 20 20 ige tal');..
015330: 20 20 20 20 20 20 20 20 20 20 45 4E 44 3B 0D 0A END;..
015340: 20 20 20 20 20 20 20 20 20 20 64 69 76 69 73 6F diviso
015350: 72 20 3A 3D 20 31 3B 0D 0A 20 20 20 20 20 20 20 r := 1;..
015360: 20 20 20 49 46 20 28 74 61 6C 20 3C 3E 20 33 29 IF (tal <> 3)
015370: 20 41 4E 44 20 28 74 61 6C 20 3E 20 32 29 0D 0A AND (tal > 2)..
015380: 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4E THEN
015390: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
0153A0: 57 48 49 4C 45 20 70 72 69 6D 74 61 6C 20 41 4E WHILE primtal AN
0153B0: 44 20 28 64 69 76 69 73 6F 72 20 3C 3D 20 67 72 D (divisor <= gr
0153C0: 61 65 6E 73 65 29 20 44 4F 0D 0A 20 20 20 20 20 aense) DO..
0153D0: 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4E BEGIN
0153E0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
0153F0: 20 20 20 20 64 69 76 69 73 6F 72 20 3A 3D 20 64 divisor := d
015400: 69 76 69 73 6F 72 20 2B 31 3B 0D 0A 20 20 20 20 ivisor +1;..
015410: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 IF
015420: 20 28 74 61 6C 20 4D 4F 44 20 64 69 76 69 73 6F (tal MOD diviso
015430: 72 29 20 3D 20 30 0D 0A 20 20 20 20 20 20 20 20 r) = 0..
015440: 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4E THEN
015450: 20 70 72 69 6D 74 61 6C 20 3A 3D 20 46 41 4C 53 primtal := FALS
015460: 45 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 E;..
015470: 20 20 20 20 20 20 49 46 20 4E 4F 54 20 70 72 69 IF NOT pri
015480: 6D 74 61 6C 0D 0A 20 20 20 20 20 20 20 20 20 20 mtal..
015490: 20 20 20 20 20 20 20 20 20 20 54 48 45 4E 20 57 THEN W
0154A0: 52 49 54 45 4C 4E 28 74 61 6C 2C 20 27 20 68 61 RITELN(tal, ' ha
0154B0: 72 20 27 2C 20 64 69 76 69 73 6F 72 2C 20 27 20 r ', divisor, '
0154C0: 73 6F 6D 20 64 69 76 69 73 6F 72 27 29 3B 0D 0A som divisor');..
0154D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0154E0: 45 4E 44 3B 0D 0A 20 20 20 20 20 20 20 20 45 4E END;.. EN
0154F0: 44 3B 0D 0A 20 20 20 20 49 46 20 70 72 69 6D 74 D;.. IF primt
015500: 20 20 20 20 45 4C 53 45 20 57 52 49 54 45 4C 4E ELSE WRITELN
015510: 28 27 4F 4B 27 29 3B 0D 0A 20 20 20 20 20 20 20 ('OK');..
015520: 20 20 20 20 20 49 46 20 52 56 53 4F 4E 20 3D 20 IF RVSON =
015530: 27 27 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 ''..
015540: 20 20 54 48 45 4E 20 57 52 49 54 45 4C 4E 28 27 THEN WRITELN('
015550: 41 4B 27 29 0D 0A 20 20 20 20 20 20 20 20 20 20 AK')..
015560: 20 20 20 20 45 4C 53 45 20 57 52 49 54 45 4C 4E ELSE WRITELN
015570: 28 27 4F 4B 27 29 3B 0D 0A 20 20 20 20 20 20 20 ('OK');..
015580: 20 20 20 20 20 49 46 20 52 56 53 4F 46 46 20 3D IF RVSOFF =
015590: 20 27 27 0D 0A 20 20 20 20 20 20 20 20 20 20 20 ''..
0155A0: 20 20 20 54 48 45 4E 20 57 52 49 54 45 4C 4E 28 THEN WRITELN(
0155B0: 27 41 4B 27 29 0D 0A 20 20 20 20 20 20 20 20 20 'AK')..
0155C0: 20 20 20 20 20 45 4C 53 45 20 57 52 49 54 45 4C ELSE WRITEL
0155D0: 4E 28 27 4F 4B 27 29 3B 0D 0A 20 20 20 20 20 20 N('OK');..
0155E0: 20 20 20 20 45 4E 44 2E 0D 0A 0D 0A 1A 45 4C 4E END......ELN
0155F0: 28 27 4F 4B 27 29 3B 0D 0A 20 20 20 20 20 20 20 ('OK');..
015600: 20 68 61 72 20 76 75 6E 64 65 74 20 27 2C 0D 0A har vundet ',..
015610: 20 20 20 20 20 20 20 20 20 20 20 20 62 73 65 6A bsej
015620: 72 20 2F 20 61 6E 74 61 6C 20 2A 20 31 30 30 20 r / antal * 100
015630: 3A 20 35 20 3A 20 32 2C 20 27 20 25 27 29 3B 0D : 5 : 2, ' %');.
015640: 0A 20 20 45 4E 44 2E 0D 0A 1A 20 27 2C 0D 0A 20 . END.... ',..
015650: 20 20 20 20 20 20 20 20 20 20 20 61 73 65 6A 72 asejr
015660: 20 2F 20 61 6E 74 61 6C 20 2A 20 31 30 30 20 3A / antal * 100 :
015670: 20 35 20 3A 20 32 2C 20 27 20 25 20 6F 67 20 42 5 : 2, ' % og B
015680: A0 00 00 DE 1E E5 AA 3B F9 34 BB 5E 54 07 DB 4F .......;.4.^T..O
015690: B1 A6 76 9A 58 33 4B 40 95 69 71 EF 55 B7 F1 34 ..v.X3K@.iq.U..4
0156A0: B0 9C E8 97 B9 F3 E7 DA 4E D0 7C D2 AB 18 71 8D ........N.|...q.
0156B0: A7 B2 83 A8 EB 77 55 39 EB 71 64 14 A5 92 E0 D4 .....wU9.qd.....
0156C0: FD 0E B2 85 7D D2 13 CD 44 92 1C 2B 4E 9B CE 38 ....}...D..+N..8
0156D0: C4 7C 45 52 41 2C 22 2A 2E 42 41 4B 22 0D 31 2C .|ERA,"*.BAK".1,
0156E0: 30 3A 42 4F 52 44 45 52 20 31 30 0D 1C 7C E2 D5 0:BORDER 10..|..
0156F0: 55 8E 52 C6 0D 38 4C 53 64 F9 A5 91 63 4C B3 95 U.R..8LSd...cL..
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: 61 6C 0D 0A 20 20 20 20 20 20 54 48 45 4E 20 57 al.. THEN W
015810: 52 49 54 45 4C 4E 28 74 61 6C 2C 20 27 20 65 72 RITELN(tal, ' er
015820: 20 65 74 20 70 72 69 6D 74 61 6C 27 29 0D 0A 20 et primtal')..
015830: 20 20 20 20 20 45 4C 53 45 20 57 52 49 54 45 4C ELSE WRITEL
015840: 4E 28 74 61 6C 2C 20 27 20 65 72 20 69 6B 6B 65 N(tal, ' er ikke
015850: 20 65 74 20 70 72 69 6D 74 61 6C 27 29 3B 0D 0A et primtal');..
015860: 20 20 45 4E 44 2E 0D 0A 1A 20 20 20 20 20 45 4E END.... EN
015870: 44 3B 0D 0A 20 20 20 20 49 46 20 70 72 69 6D 74 D;.. IF primt
015880: 65 20 3E 3D 20 36 0D 0A 20 20 20 20 20 20 54 48 e >= 6.. TH
015890: 45 4E 0D 0A 20 20 20 20 20 20 20 20 42 45 47 49 EN.. BEGI
0158A0: 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 47 4F 54 N.. GOT
0158B0: 4F 58 59 28 33 38 2C 20 31 32 29 3B 20 57 52 49 OXY(38, 12); WRI
0158C0: 54 45 28 27 53 4C 55 54 27 29 3B 0D 0A 20 20 20 TE('SLUT');..
0158D0: 20 20 20 20 20 20 20 47 4F 54 4F 58 59 28 30 2C GOTOXY(0,
0158E0: 20 32 30 29 3B 0D 0A 20 20 20 20 20 20 20 20 45 20);.. E
0158F0: 4E 44 3B 0D 0A 20 20 20 20 0D 0A 20 20 20 20 57 ND;.. .. W
015900: 52 49 54 45 4C 4E 3B 0D 0A 20 20 45 4E 44 2E 0D RITELN;.. END..
015910: 0A 1A 0D 0A 20 20 20 20 20 20 20 20 42 45 47 49 .... BEGI
015920: 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 47 4F 54 N.. GOT
015930: 4F 58 59 28 33 38 2C 20 31 32 29 3B 20 57 52 49 OXY(38, 12); WRI
015940: 54 45 28 27 53 4C 55 54 27 29 3B 0D 0A 20 20 20 TE('SLUT');..
015950: 20 20 20 20 20 20 20 47 4F 54 4F 58 59 28 30 2C GOTOXY(0,
015960: 20 32 30 29 3B 0D 0A 20 20 20 20 20 20 20 20 45 20);.. E
015970: 4E 44 3B 0D 0A 20 20 20 20 0D 0A 20 20 20 20 57 ND;.. .. W
015980: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
015990: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0159A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0159B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0159C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0159D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0159E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0159F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
015A00: 91 96 8B DF 96 91 DF 8B 97 9A DF 9B 90 92 9A D2 ................
015A10: 8C 97 9E 8F 9A 9B DF 97 9E 02 93 8C D1 DF AB 97 ................
015A20: 9A DF 8A 91 96 8B DF 9E 02 8F B7 9A 9E 8D 8C DF ................
015A30: 8B 90 DF 9D 9A 92 9E 9B 9A DF 90 99 DF 8C 90 92 ................
015A40: 9A DF 94 96 91 9B DF 90 99 DF 96 91 9B 9A 8C 8B ................
015A50: 8D 8A 9C 8B 9E 9D 93 9A EB 92 9E 8B 9A 8D 96 9E ................
015A60: 93 D1 02 EB 95 BA 87 96 8B 8C C1 EB B1 90 8D 8B ................
015A70: 97 C1 BB 90 92 9A 9B DF B7 9E 02 93 C6 FF A6 90 ................
015A80: 8A DF 9E 8D 9A DF 9E 8B DF 8B 97 9A DF 8C 9A 9C ................
015A90: 8A 8D 96 8B 86 DF 9C 97 9A 9C 94 8F 90 96 91 8B ................
015AA0: D1 EB AB 97 8D 90 8A 98 97 DF 8B 88 90 DF 97 8A ................
015AB0: 98 9A DF 98 9E 8B 9A 8C D3 DF 86 90 8A DF 9C 9E ................
015AC0: 91 DF 8C 02 9A CD DF 8B 97 9A EB 9A 9B 98 9A DF ................
015AD0: 90 99 DF 8B 97 9A DF 9C 96 8B 86 D1 EB AC 90 92 ................
015AE0: 9A DF 8C 8B 9E 96 8D 8C DF 93 9A 9E 9B DF 8A 8F ................
015AF0: D1 DF AB 97 9A 8D 9A DF 96 8C DF 9E 93 8C 90 DF ................
015B00: 9E EB 98 8A 9E 8D 9B D8 8C DF 97 8A 8B DF 97 9A ................
015B10: 8D 9A D1 02 EB 8F BA 87 96 8B 8C C1 EB B1 90 8D ................
015B20: 8B 97 C1 AB 8A 02 91 A1 9A 93 DF A8 9E 93 94 EB ................
015B30: BA 9E 8C 8B DF C1 B8 9E 8B 9A 8C DF 9E 91 9B DF ................
015B40: 9D 9A 86 90 91 9B EB AA 8F 03 DF 98 C1 AA 91 94 ................
015B50: 91 90 88 91 FF A6 90 8A DF 9E 8D 9A DF 96 91 DF ................
015B60: 9E DF 9D 9E 02 8D AC 9A 91 DF 88 9E 8C 8B 9A 93 ................
015B70: 9E 91 9B D1 DF AB 97 9A EB 98 8D 90 8A 91 9B DF ................
015B80: 96 8C DF 98 8D 9A 86 DF 9A 9E 8D 8B 97 D3 DF 8B ................
015B90: 90 8B 9E 02 93 B2 86 DF 96 91 99 9A 8D 8B 96 93 ................
015BA0: 9A D1 AB 97 9A DF 93 9E 91 9B 8C 9C 9E 8F 9A DF ................
015BB0: 96 8C DF 8B 97 9E 8B DF 90 99 DF 93 90 88 DF 9B ................
015BC0: 8D 9A 9E 8D 86 EB 97 96 02 93 82 8C D1 02 EB FF ................
015BD0: BA 87 96 8B 8C C1 EB B1 90 8D 8B 97 C1 AA 91 94 ................
015BE0: 91 90 88 91 EB AC 90 8A 8B 97 C1 AA 91 94 91 90 ................
015BF0: 88 91 EB BA 9E 8C 8B DF C1 AA 91 94 91 90 88 91 ................
015C00: 8B 96 91 98 DF 96 8C DF EB 9E 93 8C 90 DF 92 9E ................
015C10: 9B 9A DF 90 99 DF 8B 97 96 8C DF 99 93 90 9E 8B ................
015C20: 96 91 98 DF 98 93 9E 02 8C 89 D1 DF AB 97 9A D1 ................
015C30: EB 99 93 02 90 96 8D DF 96 8C DF 8F 93 8A 8C 97 ................
015C40: 93 86 DF 9C 9E 8D 8F 9A 8B 9A 9B D1 02 EB 91 BA ................
015C50: 87 96 8B 8C C1 EB BA 9E 8C 8B DF C1 DF B8 93 9E ................
015C60: 02 8C 84 DF AC 8B 8D 02 9A 9D 8B EB FF A6 90 8A ................
015C70: DF 9E 8D 9A DF 90 91 DF 9E DF 8C 8F 9E 8D 94 93 ................
015C80: 96 91 98 DF 98 93 9E 02 8C 84 DF 8C 8B 8D 02 9A ................
015C90: 97 8B 88 9E 86 D1 DF BE 93 8B 97 90 8A 98 97 DF ................
015CA0: 96 8B DF 96 8C DF 8C 92 02 90 8B 8B 97 D3 DF 8B ................
015CB0: 97 9A DF 98 93 9E 02 8C 84 EB 98 93 96 02 8B 9E ................
015CC0: 9A 8D 8C DF 93 96 94 9A DF 9C 8D 86 8C 8B 9E 93 ................
015CD0: D1 DF BE DF 99 8D 96 9A 91 9B 93 86 DF 99 02 90 ................
015CE0: 96 9B EB 9B 96 8C 8F 9A 91 8C 9A 8D DF 8C 9E 86 ................
015CF0: 8C D3 EB DF DD B7 9A 02 93 D2 90 D1 DF B6 8B DF ................
015D00: 96 8C DF 92 86 DF 8F 93 9A 9E 8C 8A 8D 9A DF 9E ................
015D10: 91 9B DF 97 90 91 90 8A 8D DF 8B 90 DF 8F 8D 90 ................
015D20: 89 96 9B 9A DF 86 90 8A DF 88 96 8B 97 DF 9C 90 ................
015D30: 91 8C 8A 92 9E 9D 93 9A 8C D1 DD EB AC 90 92 9A ................
015D40: DF 8C 8B 9A 8F 8C DF 93 9A 9E 9B D1 02 EB AB BA ................
015D50: 87 96 8B 8C C1 EB B1 90 8D 8B 97 C1 DF B2 9E 96 ................
015D60: 91 DF AC 8F 9E 9C 9A 8F 90 8D 8B DF BE 8D 9A 9E ................
015D70: EB AC 90 8A 8B 97 C1 DF AB 8A 02 91 A2 9A 93 88 ................
015D80: 9E 93 94 EB BA 9E 8C 8B DF C1 DF B2 9A 8B 9E 93 ................
015D90: 90 91 DF BD 9E 8D EB A8 9A 8C 8B DF C1 DF B9 02 ................
015DA0: 90 AB 9B DF BC 90 91 8C 8A 92 8F 8B 96 90 91 DF ................
015DB0: BE 8D 9A 9E EB BB 90 88 91 DF C1 DF BB 90 92 9A ................
015DC0: DF BE 8D 9A 9E FF A6 90 8A DF 9E 8D 9A 02 DF E0 ................
015DD0: 96 91 DF 8B 97 9A DF B2 9A 8B 9E 93 90 91 DF BD ................
015DE0: 9E 8D D1 DF AB 97 96 8C DF 96 8C DF 9E DF EB DD ................
015DF0: 8C 97 9E 9B 86 DD DF 9E 8D 9A 9E DF 99 8D 9A 8E ................
015E00: 50 52 4F 47 52 41 4D 20 70 79 74 68 61 67 6F 3B PROGRAM pythago;
015E10: 0D 0A 0D 0A 20 20 28 2A 20 50 79 74 68 61 67 6F .... (* Pythago
015E20: 72 7B 69 73 6B 65 20 74 61 6C 73 7B 74 20 2A 29 r{iske tals{t *)
015E30: 0D 0A 20 20 0D 0A 20 20 56 41 52 0D 0A 20 20 20 .. .. VAR..
015E40: 20 6D 61 78 2C 20 61 2C 20 62 2C 20 63 20 3A 20 max, a, b, c :
015E50: 49 4E 54 45 47 45 52 3B 0D 0A 20 20 0D 0A 20 20 INTEGER;.. ..
015E60: 42 45 47 49 4E 0D 0A 20 20 20 20 57 52 49 54 45 BEGIN.. WRITE
015E70: 28 43 4C 52 48 4F 4D 29 3B 0D 0A 20 20 20 20 57 (CLRHOM);.. W
015E80: 52 49 54 45 28 27 49 6E 64 74 61 73 74 20 7C 76 RITE('Indtast |v
015E90: 65 72 73 74 65 20 67 72 7B 6E 73 65 20 66 6F 72 erste gr{nse for
015EA0: 20 74 61 6C 6C 65 6E 65 3A 20 27 29 3B 20 52 45 tallene: '); RE
015EB0: 41 44 4C 4E 28 6D 61 78 29 3B 0D 0A 20 20 20 20 ADLN(max);..
015EC0: 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 57 52 WRITELN;.. WR
015ED0: 49 54 45 4C 4E 28 27 20 20 20 41 20 20 20 20 20 ITELN(' A
015EE0: 20 42 20 20 20 20 20 20 20 43 27 29 3B 0D 0A 20 B C');..
015EF0: 20 20 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 WRITELN;..
015F00: 20 46 4F 52 20 63 20 3A 3D 20 31 20 54 4F 20 6D FOR c := 1 TO m
015F10: 61 78 20 44 4F 0D 0A 20 20 20 20 20 20 46 4F 52 ax DO.. FOR
015F20: 20 62 20 3A 3D 20 31 20 54 4F 20 63 20 44 4F 0D b := 1 TO c DO.
015F30: 0A 20 20 20 20 20 20 20 20 46 4F 52 20 61 20 3A . FOR a :
015F40: 3D 20 31 20 54 4F 20 62 20 44 4F 0D 0A 20 20 20 = 1 TO b DO..
015F50: 20 20 20 20 20 20 20 49 46 20 61 20 2A 20 61 20 IF a * a
015F60: 2B 20 62 20 2A 20 62 20 3D 20 63 20 2A 20 63 0D + b * b = c * c.
015F70: 0A 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 . THE
015F80: 4E 20 57 52 49 54 45 4C 4E 28 61 20 3A 20 34 2C N WRITELN(a : 4,
015F90: 20 62 20 3A 20 37 2C 20 63 20 3A 20 38 29 3B 0D b : 7, c : 8);.
015FA0: 0A 20 20 45 4E 44 2E 0D 0A 1A 20 63 20 44 4F 0D . END.... c DO.
015FB0: 0A 20 20 20 20 20 20 20 20 46 4F 52 20 61 20 3A . FOR a :
015FC0: 3D 20 31 20 54 4F 20 62 20 44 4F 0D 0A 20 20 20 = 1 TO b DO..
015FD0: 20 20 20 20 20 20 20 49 46 20 61 20 2A 20 61 20 IF a * a
015FE0: 2B 20 62 20 2A 20 62 20 3D 20 63 20 2A 20 63 0D + b * b = c * c.
015FF0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 . THE
016000: 50 52 4F 47 52 41 4D 20 70 72 69 6E 74 65 72 3B PROGRAM printer;
016010: 0D 0A 0D 0A 20 20 42 45 47 49 4E 0D 0A 20 20 20 .... BEGIN..
016020: 20 57 52 49 54 45 28 43 4C 52 48 4F 4D 29 3B 0D WRITE(CLRHOM);.
016030: 0A 20 20 20 20 57 52 49 54 45 4C 4E 28 4C 53 54 . WRITELN(LST
016040: 2C 20 27 20 20 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D , ' --------
016050: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
016060: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
016070: 2D 2D 2D 2D 2D 2D 2D 2D 27 2C 0D 0A 20 20 20 20 --------',..
016080: 20 20 20 20 20 20 20 20 27 2D 2D 2D 2D 2D 2D 2D '-------
016090: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 27 29 3B -------------');
0160A0: 0D 0A 20 20 20 20 57 52 49 54 45 4C 4E 28 4C 53 .. WRITELN(LS
0160B0: 54 2C 20 27 20 20 20 20 20 66 6F 72 6C 61 67 65 T, ' forlage
0160C0: 74 20 73 79 73 74 69 6D 65 20 61 2F 73 20 20 20 t systime a/s
0160D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0160E0: 20 20 20 20 20 20 20 20 27 2C 0D 0A 20 20 20 20 ',..
0160F0: 20 20 20 20 20 20 20 20 27 66 6F 72 6C 61 67 65 'forlage
016100: 74 20 73 79 73 74 69 6D 65 20 20 61 2F 73 27 29 t systime a/s')
016110: 3B 0D 0A 20 20 20 20 57 52 49 54 45 4C 4E 28 4C ;.. WRITELN(L
016120: 53 54 29 3B 0D 0A 20 20 20 20 57 52 49 54 45 4C ST);.. WRITEL
016130: 4E 28 4C 53 54 29 3B 0D 0A 20 20 20 20 57 52 49 N(LST);.. WRI
016140: 54 45 4C 4E 28 4C 53 54 2C 20 27 20 20 20 20 20 TELN(LST, '
016150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
016160: 20 20 20 20 20 20 20 20 20 20 20 20 50 20 41 20 P A
016170: 53 20 43 20 41 20 4C 20 20 20 20 20 20 20 20 27 S C A L '
016180: 29 3B 0D 0A 20 20 20 20 57 52 49 54 45 4C 4E 28 );.. WRITELN(
016190: 4C 53 54 29 3B 0D 0A 20 20 20 20 57 52 49 54 45 LST);.. WRITE
0161A0: 4C 4E 28 4C 53 54 2C 20 27 20 20 20 20 20 20 20 LN(LST, '
0161B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0161C0: 20 45 6E 20 67 72 75 6E 64 6C 7B 67 67 65 6E 64 En grundl{ggend
0161D0: 65 20 69 6E 64 66 7C 72 69 6E 67 20 69 27 29 3B e indf|ring i');
0161E0: 0D 0A 20 20 20 20 57 52 49 54 45 4C 4E 28 4C 53 .. WRITELN(LS
0161F0: 54 2C 20 27 20 20 20 20 20 20 20 20 20 20 20 20 T, '
016200: 02 93 DC D1 EB B6 8B DF 8C 9E 86 8C D3 EB DD B7 ................
016210: 96 DF 8B 97 9A 8D 9A D1 DF B6 8B DF 96 8C DF 92 ................
016220: 86 DF 98 8D 9A 9E 8B DF 97 90 91 90 8A 8D DF 9E ................
016230: 91 9B EB DF 8F 93 9A 9E 8C 8A 8D 9A DF 8B 90 DF ................
016240: 8F 8D 90 89 96 9B 9A DF 86 90 8A DF 88 96 8B 97 ................
016250: EB DF 9C 90 91 8C 8A 92 9E 9D 93 9A 8C D1 DD 02 ................
016260: EB 8F BA 87 96 8B 8C C1 EB AC 90 8A 8B 97 C1 AC ................
016270: 93 02 9A 97 8F DF BE 8D 9A 9E EB BA 9E 8C 8B DF ................
016280: C1 BC 90 92 8F 8A 8B 9A 8D DF AD 02 90 8A 92 EB ................
016290: A8 9A 8C 8B DF C1 B5 9E 02 9C A1 8A 85 96 FF A6 ................
0162A0: 90 8A DF 9E 8D 9A DF 96 91 DF 9E DF 9B 8A 8C 8B ................
0162B0: 86 DF 9C 90 92 8F 8A 8B 9A 8D DF 8D 02 90 9D 92 ................
0162C0: D1 DF B0 91 9A DF 90 99 8B 97 9A DF 8B 9A 8D 92 ................
0162D0: 96 91 9E 93 8C DF 96 8C DF 8C 8B 96 02 93 9B DF ................
0162E0: 88 90 8D 94 96 91 98 DF 9E 91 9B DF 9A 92 96 8B ................
0162F0: 8C 9E DF 8C 90 99 8B DF 97 8A 02 92 8F 96 91 98 ................
016300: DF 91 90 96 8C 9A D1 DF B6 8B DF 93 02 90 AF 94 ................
016310: 8C DF 93 96 94 9A DF 9E 91 EB 90 93 9B DF AC 96 ................
016320: 91 96 8B 8D 9E 91 DF 92 90 9B 9A 93 DF 88 96 8B ................
016330: 97 DF 9E DF 91 9A 88 DF 8D 9A 8F 93 9E 9C 02 9A ................
016340: 9F 91 8B 94 9A 86 9D 90 9E 8D 9B D1 EB AB 90 DF ................
016350: 8B 97 9A DF 9A 9E 8C 8B DF 96 8C DF 9E DF 92 9E ................
016360: 02 8C 99 96 89 9A DF AC 9A 9C 8A D2 A9 9E 8A 93 ................
016370: 8B EB 9D 9A 97 96 91 9B DF 9E DF 9B 02 90 82 8D ................
016380: D1 02 EB F6 BA 87 96 8B 8C C1 EB B1 90 8D 8B 97 ................
016390: C1 AA 91 94 91 90 88 91 EB BA 9E 8C 8B DF C1 A9 ................
0163A0: 9E 8A 93 8B EB A8 9A 8C 8B DF C1 B3 96 89 96 91 ................
0163B0: 98 DF AE 8A 9E 8D 8B 9A 8D 8C FF A6 90 8A DF 9E ................
0163C0: 8D 9A DF 96 91 DF 8B 97 9A DF 8C 9A 9C 8A 8D 96 ................
0163D0: 8B 86 DF 89 9E 8A 93 8B D1 DF AB 97 9A 8D 9A DF ................
0163E0: 96 8C DF 9E DF 92 9A 8B 9E 93 DF 8B 9E 9D 93 9A ................
0163F0: DF 96 91 DF 8B 97 9A DF 92 96 02 9B 8C 93 9A DF ................
016400: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
016410: 70 72 6F 67 72 61 6D 6D 65 72 69 6E 67 73 73 70 programmeringssp
016420: 72 6F 67 65 74 20 20 20 27 29 3B 0D 0A 20 20 20 roget ');..
016430: 20 57 52 49 54 45 4C 4E 28 4C 53 54 29 3B 0D 0A WRITELN(LST);..
016440: 20 20 20 20 57 52 49 54 45 4C 4E 28 4C 53 54 2C WRITELN(LST,
016450: 20 27 20 20 20 20 20 20 20 20 20 20 20 20 20 20 '
016460: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 P
016470: 20 6F 20 6C 20 79 20 50 20 61 20 73 20 63 20 61 o l y P a s c a
016480: 20 6C 20 20 20 20 27 29 3B 0D 0A 20 20 20 20 57 l ');.. W
016490: 52 49 54 45 4C 4E 28 4C 53 54 29 3B 0D 0A 20 20 RITELN(LST);..
0164A0: 20 20 57 52 49 54 45 4C 4E 28 4C 53 54 29 3B 0D WRITELN(LST);.
0164B0: 0A 20 20 20 20 57 52 49 54 45 4C 4E 28 4C 53 54 . WRITELN(LST
0164C0: 2C 20 27 20 20 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D , ' --------
0164D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0164E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0164F0: 2D 2D 2D 2D 2D 2D 2D 2D 27 2C 0D 0A 20 20 20 20 --------',..
016500: 20 20 20 20 20 20 20 20 27 2D 2D 2D 2D 2D 2D 2D '-------
016510: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 27 29 3B -------------');
016520: 0D 0A 20 20 45 4E 44 2E 0D 0A 1A 53 54 29 3B 0D .. END....ST);.
016530: 0A 20 20 20 20 57 52 49 54 45 4C 4E 28 4C 53 54 . WRITELN(LST
016540: 2C 20 27 20 20 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D , ' --------
016550: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
016560: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
016570: 2D 2D 2D 2D 2D 2D 2D 2D 27 2C 0D 0A 20 20 20 20 --------',..
016580: 03 01 50 09 41 00 02 2A 52 60 58 44 44 4F 53 20 ..P.A..*R`XDDOS
016590: 43 50 2F 4D 20 20 20 20 20 20 20 20 20 20 20 20 CP/M
0165A0: 24 00 05 1F 03 B3 00 7F 00 80 00 20 00 00 00 02 $.......... ....
0165B0: 03 01 50 09 C1 00 02 2A 52 60 58 44 44 4F 53 20 ..P....*R`XDDOS
0165C0: 44 41 54 41 20 20 20 20 20 34 A4 04 00 5E 34 A3 DATA 4...^4£
0165D0: 00 01 C9 00 00 C9 00 00 C3 BB F2 C9 00 00 C3 72 ...............r
0165E0: 9E C3 85 9E C3 7E 9E C9 00 00 C9 00 00 00 00 00 .....~..........
0165F0: 00 00 FC 00 01 00 01 00 01 52 55 4E 22 44 49 53 .........RUN"DIS
016600: 20 20 20 20 20 20 20 20 50 52 4F 47 52 41 4D 20 PROGRAM
016610: 71 75 69 63 6B 73 6F 72 3B 0D 0A 20 20 20 20 20 quicksor;..
016620: 20 20 20 0D 0A 20 20 20 20 20 20 20 20 43 4F 4E .. CON
016630: 53 54 0D 0A 20 20 20 20 20 20 20 20 20 20 61 6E ST.. an
016640: 74 61 6C 20 3D 20 31 30 30 30 3B 0D 0A 20 20 20 tal = 1000;..
016650: 20 20 20 20 20 0D 0A 20 20 20 20 20 20 20 20 54 .. T
016660: 59 50 45 0D 0A 20 20 20 20 20 20 20 20 20 20 74 YPE.. t
016670: 61 62 65 6C 74 79 70 65 20 3D 20 41 52 52 41 59 abeltype = ARRAY
016680: 28 2E 31 20 2E 2E 20 61 6E 74 61 6C 2E 29 20 4F (.1 .. antal.) O
016690: 46 20 49 4E 54 45 47 45 52 3B 0D 0A 20 20 20 20 F INTEGER;..
0166A0: 20 20 20 20 0D 0A 20 20 20 20 20 20 20 20 56 41 .. VA
0166B0: 52 0D 0A 20 20 20 20 20 20 20 20 20 20 6E 2C 20 R.. n,
0166C0: 6D 61 78 2C 20 69 20 3A 20 49 4E 54 45 47 45 52 max, i : INTEGER
0166D0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 74 61 62 ;.. tab
0166E0: 65 6C 20 3A 20 74 61 62 65 6C 74 79 70 65 3B 0D el : tabeltype;.
0166F0: 0A 20 20 20 20 20 20 20 20 0D 0A 20 20 20 20 20 . ..
016700: 20 20 20 50 52 4F 43 45 44 55 52 45 20 73 6F 72 PROCEDURE sor
016710: 74 65 72 28 76 65 6E 73 74 72 65 2C 20 68 6F 65 ter(venstre, hoe
016720: 6A 72 65 3A 20 49 4E 54 45 47 45 52 3B 20 56 41 jre: INTEGER; VA
016730: 52 20 76 65 6B 74 6F 72 20 3A 20 74 61 62 65 6C R vektor : tabel
016740: 74 79 70 65 29 3B 0D 0A 20 20 20 20 20 20 20 20 type);..
016750: 0D 0A 20 20 20 20 20 20 20 20 20 20 56 41 52 0D .. VAR.
016760: 0A 20 20 20 20 20 20 20 20 20 20 20 20 76 2C 20 . v,
016770: 68 2C 20 6D 69 64 74 2C 20 62 79 74 20 3A 20 49 h, midt, byt : I
016780: 4E 54 45 47 45 52 3B 0D 0A 20 20 20 20 20 20 20 NTEGER;..
016790: 20 0D 0A 20 20 20 20 20 20 20 20 20 20 42 45 47 .. BEG
0167A0: 49 4E 20 28 2A 20 73 6F 72 74 65 72 20 2A 29 0D IN (* sorter *).
0167B0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 76 20 3A . v :
0167C0: 3D 20 76 65 6E 73 74 72 65 3B 0D 0A 20 20 20 20 = venstre;..
0167D0: 20 20 20 20 20 20 20 20 68 20 3A 3D 20 68 6F 65 h := hoe
0167E0: 6A 72 65 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 jre;..
0167F0: 20 20 6D 69 64 74 20 3A 3D 20 76 65 6B 74 6F 72 midt := vektor
016800: 20 20 20 20 20 20 20 20 50 52 4F 47 52 41 4D 20 PROGRAM
016810: 70 72 6F 64 75 6B 74 3B 0D 0A 20 20 20 20 20 20 produkt;..
016820: 20 20 0D 0A 20 20 20 20 20 20 20 20 56 41 52 0D .. VAR.
016830: 0A 20 20 20 20 20 20 20 20 20 20 69 2C 20 6A 20 . i, j
016840: 3A 20 49 4E 54 45 47 45 52 3B 0D 0A 20 20 20 20 : INTEGER;..
016850: 20 20 20 20 20 20 0D 0A 20 20 20 20 20 20 20 20 ..
016860: 42 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 BEGIN..
016870: 20 46 4F 52 20 69 20 3A 3D 20 31 20 54 4F 20 31 FOR i := 1 TO 1
016880: 30 20 44 4F 0D 0A 20 20 20 20 20 20 20 20 20 20 0 DO..
016890: 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 BEGIN..
0168A0: 20 20 20 20 20 20 20 46 4F 52 20 6A 20 3A 3D 20 FOR j :=
0168B0: 31 20 54 4F 20 31 30 20 44 4F 0D 0A 20 20 20 20 1 TO 10 DO..
0168C0: 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 WRIT
0168D0: 45 28 69 20 2A 20 6A 20 3A 20 34 29 3B 0D 0A 20 E(i * j : 4);..
0168E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 WRI
0168F0: 54 45 4C 4E 3B 0D 0A 20 20 20 20 20 20 20 20 20 TELN;..
016900: 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 20 END;..
016910: 20 45 4E 44 2E 0D 0A 1A 0A 20 20 20 20 20 20 20 END.....
016920: 20 20 20 20 20 20 20 46 4F 52 20 6A 20 3A 3D 20 FOR j :=
016930: 31 20 54 4F 20 31 30 20 44 4F 0D 0A 20 20 20 20 1 TO 10 DO..
016940: 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 WRIT
016950: 45 28 69 20 2A 20 6A 20 3A 20 34 29 3B 0D 0A 20 E(i * j : 4);..
016960: 20 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 WRI
016970: 54 45 4C 4E 3B 0D 0A 20 20 20 20 20 20 20 20 20 TELN;..
016980: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016990: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0169A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0169B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0169C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0169D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0169E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0169F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
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: 28 2E 28 76 20 2B 20 68 29 20 44 49 56 20 32 2E (.(v + h) DIV 2.
016B10: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 );..
016B20: 52 45 50 45 41 54 0D 0A 20 20 20 20 20 20 20 20 REPEAT..
016B30: 20 20 20 20 20 20 57 48 49 4C 45 20 76 65 6B 74 WHILE vekt
016B40: 6F 72 28 2E 76 2E 29 20 3C 20 6D 69 64 74 20 44 or(.v.) < midt D
016B50: 4F 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 O..
016B60: 20 20 20 76 20 3A 3D 20 76 20 2B 20 31 3B 0D 0A v := v + 1;..
016B70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 48 WH
016B80: 49 4C 45 20 6D 69 64 74 20 3C 20 76 65 6B 74 6F ILE midt < vekto
016B90: 72 28 2E 68 2E 29 20 44 4F 0D 0A 20 20 20 20 20 r(.h.) DO..
016BA0: 20 20 20 20 20 20 20 20 20 20 20 68 20 3A 3D 20 h :=
016BB0: 68 20 2D 20 31 3B 0D 0A 20 20 20 20 20 20 20 20 h - 1;..
016BC0: 20 20 20 20 20 20 49 46 20 76 20 3C 3D 20 68 0D IF v <= h.
016BD0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
016BE0: 20 54 48 45 4E 0D 0A 20 20 20 20 20 20 20 20 20 THEN..
016BF0: 20 20 20 20 20 20 20 20 20 42 45 47 49 4E 0D 0A BEGIN..
016C00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
016C10: 20 20 20 20 62 79 74 20 3A 3D 20 76 65 6B 74 6F byt := vekto
016C20: 72 28 2E 76 2E 29 3B 0D 0A 20 20 20 20 20 20 20 r(.v.);..
016C30: 20 20 20 20 20 20 20 20 20 20 20 20 20 76 65 6B vek
016C40: 74 6F 72 28 2E 76 2E 29 20 3A 3D 20 76 65 6B 74 tor(.v.) := vekt
016C50: 6F 72 28 2E 68 2E 29 3B 0D 0A 20 20 20 20 20 20 or(.h.);..
016C60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 76 65 ve
016C70: 6B 74 6F 72 28 2E 68 2E 29 20 3A 3D 20 62 79 74 ktor(.h.) := byt
016C80: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ;..
016C90: 20 20 20 20 20 20 20 76 20 3A 3D 20 76 20 2B 20 v := v +
016CA0: 31 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 1;..
016CB0: 20 20 20 20 20 20 20 20 68 20 3A 3D 20 68 20 2D h := h -
016CC0: 20 31 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 1;..
016CD0: 20 20 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 END;..
016CE0: 20 20 20 20 20 20 20 20 20 55 4E 54 49 4C 20 76 UNTIL v
016CF0: 20 3E 20 68 3B 0D 0A 20 20 20 20 20 20 20 20 20 > h;..
016D00: 50 52 4F 47 52 41 4D 20 72 65 6E 74 65 64 61 67 PROGRAM rentedag
016D10: 3B 0D 0A 0D 0A 28 2A 20 53 61 6D 74 6C 69 67 65 ;....(* Samtlige
016D20: 20 6D 7D 6E 65 64 65 72 20 73 7B 74 74 65 73 20 m}neder s{ttes
016D30: 74 69 6C 20 33 30 20 64 61 67 65 20 69 20 64 65 til 30 dage i de
016D40: 74 74 65 20 70 72 6F 67 72 61 6D 20 2A 29 0D 0A tte program *)..
016D50: 0D 0A 20 20 54 59 50 45 0D 0A 20 20 20 20 73 74 .. TYPE.. st
016D60: 72 34 20 3D 20 53 54 52 49 4E 47 28 2E 34 2E 29 r4 = STRING(.4.)
016D70: 3B 0D 0A 20 20 20 20 64 61 74 6F 70 6F 73 74 20 ;.. datopost
016D80: 3D 20 52 45 43 4F 52 44 0D 0A 20 20 20 20 20 20 = RECORD..
016D90: 20 20 20 20 20 20 20 20 20 20 20 64 61 67 20 2C dag ,
016DA0: 20 6D 61 61 6E 65 64 20 2C 20 61 61 72 20 3A 20 maaned , aar :
016DB0: 49 4E 54 45 47 45 52 3B 0D 0A 20 20 20 20 20 20 INTEGER;..
016DC0: 20 20 20 20 20 20 20 20 20 45 4E 44 3B 0D 0A 20 END;..
016DD0: 20 0D 0A 20 20 56 41 52 0D 0A 20 20 20 20 73 74 .. VAR.. st
016DE0: 72 65 6E 67 20 3A 20 73 74 72 34 3B 0D 0A 20 20 reng : str4;..
016DF0: 20 20 64 61 74 6F 20 3A 20 64 61 74 6F 70 6F 73 dato : datopos
016E00: 74 3B 0D 0A 20 20 20 20 74 65 73 74 2C 20 64 61 t;.. test, da
016E10: 74 6F 6E 75 6D 6D 65 72 2C 20 72 65 6E 74 65 64 tonummer, rented
016E20: 61 67 65 20 3A 20 49 4E 54 45 47 45 52 3B 0D 0A age : INTEGER;..
016E30: 20 20 0D 0A 20 20 42 45 47 49 4E 0D 0A 20 20 20 .. BEGIN..
016E40: 20 57 52 49 54 45 28 43 4C 52 48 4F 4D 29 3B 0D WRITE(CLRHOM);.
016E50: 0A 20 20 20 20 57 49 54 48 20 64 61 74 6F 20 44 . WITH dato D
016E60: 4F 0D 0A 20 20 20 20 20 20 42 45 47 49 4E 0D 0A O.. BEGIN..
016E70: 20 20 20 20 20 20 20 20 52 45 50 45 41 54 0D 0A REPEAT..
016E80: 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 28 WRITE(
016E90: 27 54 61 73 74 20 64 61 74 6F 20 28 31 20 2D 20 'Tast dato (1 -
016EA0: 33 31 29 3A 20 27 29 3B 0D 0A 20 20 20 20 20 20 31): ');..
016EB0: 20 20 20 20 42 55 46 4C 45 4E 20 3A 3D 20 32 3B BUFLEN := 2;
016EC0: 0D 0A 20 20 20 20 20 20 20 20 20 20 52 45 41 44 .. READ
016ED0: 4C 4E 28 73 74 72 65 6E 67 29 3B 0D 0A 20 20 20 LN(streng);..
016EE0: 20 20 20 20 20 20 20 56 41 4C 28 73 74 72 65 6E VAL(stren
016EF0: 67 2C 20 64 61 67 2C 20 74 65 73 74 29 3B 0D 0A g, dag, test);..
016F00: 20 20 20 49 46 20 76 65 6E 73 74 72 65 20 3C 20 IF venstre <
016F10: 68 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 h..
016F20: 20 54 48 45 4E 20 73 6F 72 74 65 72 28 76 65 6E THEN sorter(ven
016F30: 73 74 72 65 2C 20 68 2C 20 76 65 6B 74 6F 72 29 stre, h, vektor)
016F40: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 49 ;.. I
016F50: 46 20 76 20 3C 20 68 6F 65 6A 72 65 0D 0A 20 20 F v < hoejre..
016F60: 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4E THEN
016F70: 20 73 6F 72 74 65 72 28 76 2C 20 68 6F 65 6A 72 sorter(v, hoejr
016F80: 65 2C 20 76 65 6B 74 6F 72 29 3B 0D 0A 20 20 20 e, vektor);..
016F90: 20 20 20 20 20 20 20 45 4E 44 3B 20 28 2A 20 73 END; (* s
016FA0: 6F 72 74 65 72 20 2A 29 0D 0A 20 20 20 20 20 20 orter *)..
016FB0: 20 20 0D 0A 20 20 20 20 20 20 20 20 42 45 47 49 .. BEGI
016FC0: 4E 20 28 2A 20 71 75 69 63 6B 73 6F 72 20 2A 29 N (* quicksor *)
016FD0: 0D 0A 20 20 20 20 20 20 20 20 20 20 57 52 49 54 .. WRIT
016FE0: 45 28 43 48 52 28 31 32 29 29 3B 0D 0A 20 20 20 E(CHR(12));..
016FF0: 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E 28 27 WRITELN('
017000: 50 72 6F 67 72 61 6D 6D 65 74 20 66 69 6E 64 65 Programmet finde
017010: 72 20 6E 20 74 69 6C 66 7B 6C 64 69 67 65 20 68 r n tilf{ldige h
017020: 65 6C 65 20 74 61 6C 20 66 72 61 20 31 27 2C 0D ele tal fra 1',.
017030: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
017040: 20 20 20 27 20 74 69 6C 20 6D 61 78 20 6F 67 20 ' til max og
017050: 73 6F 72 74 65 72 65 72 20 64 65 6D 2E 27 29 3B sorterer dem.');
017060: 0D 0A 20 20 20 20 20 20 20 20 20 20 57 52 49 54 .. WRIT
017070: 45 4C 4E 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 ELN;..
017080: 57 52 49 54 45 28 27 54 61 73 74 20 61 6E 74 61 WRITE('Tast anta
017090: 6C 6C 65 74 20 6E 20 28 6D 61 78 20 31 30 30 30 llet n (max 1000
0170A0: 29 3A 20 27 29 3B 20 52 45 41 44 4C 4E 28 6E 29 ): '); READLN(n)
0170B0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 57 52 49 ;.. WRI
0170C0: 54 45 28 27 54 61 73 74 20 64 65 6E 20 7C 76 72 TE('Tast den |vr
0170D0: 65 20 67 72 7B 6E 73 65 20 6D 61 78 3A 20 27 29 e gr{nse max: ')
0170E0: 3B 20 52 45 41 44 4C 4E 28 6D 61 78 29 3B 0D 0A ; READLN(max);..
0170F0: 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4C WRITEL
017100: 20 20 20 20 20 20 20 20 55 4E 54 49 4C 20 28 74 UNTIL (t
017110: 65 73 74 20 3D 20 30 29 20 41 4E 44 20 28 31 20 est = 0) AND (1
017120: 3C 3D 20 64 61 67 29 20 41 4E 44 20 28 64 61 67 <= dag) AND (dag
017130: 20 3C 3D 20 33 31 29 3B 20 20 0D 0A 20 20 20 20 <= 31); ..
017140: 20 20 20 20 52 45 50 45 41 54 0D 0A 20 20 20 20 REPEAT..
017150: 20 20 20 20 20 20 57 52 49 54 45 28 27 54 61 73 WRITE('Tas
017160: 74 20 6D 7D 6E 65 64 20 28 31 20 2D 20 31 32 29 t m}ned (1 - 12)
017170: 3A 20 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 : ');..
017180: 20 42 55 46 4C 45 4E 20 3A 3D 20 32 3B 0D 0A 20 BUFLEN := 2;..
017190: 20 20 20 20 20 20 20 20 20 52 45 41 44 4C 4E 28 READLN(
0171A0: 73 74 72 65 6E 67 29 3B 0D 0A 20 20 20 20 20 20 streng);..
0171B0: 20 20 20 20 56 41 4C 28 73 74 72 65 6E 67 2C 20 VAL(streng,
0171C0: 6D 61 61 6E 65 64 2C 20 74 65 73 74 29 3B 0D 0A maaned, test);..
0171D0: 20 20 20 20 20 20 20 20 55 4E 54 49 4C 20 28 74 UNTIL (t
0171E0: 65 73 74 20 3D 20 30 29 20 41 4E 44 20 28 31 20 est = 0) AND (1
0171F0: 3C 3D 20 6D 61 61 6E 65 64 29 20 41 4E 44 20 28 <= maaned) AND (
017200: 6D 61 61 6E 65 64 20 3C 3D 20 31 32 29 3B 0D 0A maaned <= 12);..
017210: 20 20 20 20 20 20 20 20 52 45 50 45 41 54 20 0D REPEAT .
017220: 0A 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 . WRITE
017230: 28 27 54 61 73 74 20 7D 72 20 28 31 39 30 30 20 ('Tast }r (1900
017240: 2D 20 32 31 30 30 29 3A 20 27 29 3B 0D 0A 20 20 - 2100): ');..
017250: 20 20 20 20 20 20 20 20 42 55 46 4C 45 4E 20 3A BUFLEN :
017260: 3D 20 34 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 = 4;..
017270: 52 45 41 44 4C 4E 28 73 74 72 65 6E 67 29 3B 0D READLN(streng);.
017280: 0A 20 20 20 20 20 20 20 20 20 20 56 41 4C 28 73 . VAL(s
017290: 74 72 65 6E 67 2C 20 61 61 72 2C 20 74 65 73 74 treng, aar, test
0172A0: 29 3B 0D 0A 20 20 20 20 20 20 20 20 55 4E 54 49 );.. UNTI
0172B0: 4C 20 28 74 65 73 74 20 3D 20 30 29 20 41 4E 44 L (test = 0) AND
0172C0: 20 28 31 39 30 30 20 3C 3D 20 61 61 72 29 20 41 (1900 <= aar) A
0172D0: 4E 44 20 28 61 61 72 20 3C 3D 20 32 31 30 30 29 ND (aar <= 2100)
0172E0: 3B 0D 0A 20 20 20 20 20 20 20 20 49 46 20 64 61 ;.. IF da
0172F0: 67 20 3D 20 33 31 0D 0A 20 20 20 20 20 20 20 20 g = 31..
017300: 4E 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 57 52 N;.. WR
017310: 49 54 45 4C 4E 28 27 46 7C 6C 67 65 6E 64 65 20 ITELN('F|lgende
017320: 74 61 6C 20 76 69 6C 20 62 6C 69 76 65 20 73 6F tal vil blive so
017330: 72 74 65 72 65 74 3A 27 29 3B 0D 0A 20 20 20 20 rteret:');..
017340: 20 20 20 20 20 20 46 4F 52 20 69 20 3A 3D 20 31 FOR i := 1
017350: 20 54 4F 20 6E 20 44 4F 0D 0A 20 20 20 20 20 20 TO n DO..
017360: 20 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 BEGIN..
017370: 20 20 20 20 20 20 20 20 20 20 20 74 61 62 65 6C tabel
017380: 28 2E 69 2E 29 20 3A 3D 20 52 41 4E 44 4F 4D 28 (.i.) := RANDOM(
017390: 6D 61 78 29 20 2B 20 31 3B 0D 0A 20 20 20 20 20 max) + 1;..
0173A0: 20 20 20 20 20 20 20 20 20 57 52 49 54 45 28 74 WRITE(t
0173B0: 61 62 65 6C 28 2E 69 2E 29 3A 35 29 3B 0D 0A 20 abel(.i.):5);..
0173C0: 20 20 20 20 20 20 20 20 20 20 20 45 4E 44 3B 0D END;.
0173D0: 0A 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 . WRITE
0173E0: 4C 4E 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 57 LN;.. W
0173F0: 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 20 20 20 RITELN;..
017400: 20 20 20 73 6F 72 74 65 72 28 31 2C 20 6E 2C 20 sorter(1, n,
017410: 74 61 62 65 6C 29 3B 0D 0A 20 20 20 20 20 20 20 tabel);..
017420: 20 20 20 57 52 49 54 45 4C 4E 28 27 48 65 72 20 WRITELN('Her
017430: 65 72 20 74 61 6C 6C 65 6E 65 20 73 6F 72 74 65 er tallene sorte
017440: 72 65 74 3A 27 29 3B 0D 0A 20 20 20 20 20 20 20 ret:');..
017450: 20 20 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 WRITELN;..
017460: 20 20 20 20 20 20 20 46 4F 52 20 69 20 3A 3D 20 FOR i :=
017470: 31 20 54 4F 20 6E 20 44 4F 0D 0A 20 20 20 20 20 1 TO n DO..
017480: 20 20 20 20 20 20 20 57 52 49 54 45 28 74 61 62 WRITE(tab
017490: 65 6C 28 2E 69 2E 29 3A 35 29 3B 0D 0A 20 20 20 el(.i.):5);..
0174A0: 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E 3B 0D WRITELN;.
0174B0: 0A 20 20 20 20 20 20 20 20 45 4E 44 2E 20 28 2A . END. (*
0174C0: 20 71 75 69 63 6B 73 6F 72 20 2A 29 0D 0A 1A 20 quicksor *)...
0174D0: 20 20 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 WRITELN;..
0174E0: 20 20 20 20 20 20 20 46 4F 52 20 69 20 3A 3D 20 FOR i :=
0174F0: 31 20 54 4F 20 6E 20 44 4F 0D 0A 20 20 20 20 20 1 TO n DO..
017500: 20 20 54 48 45 4E 20 64 61 67 20 3A 3D 20 33 30 THEN dag := 30
017510: 3B 0D 0A 20 20 20 20 20 20 20 20 49 46 20 28 6D ;.. IF (m
017520: 61 61 6E 65 64 20 3D 20 31 32 29 20 41 4E 44 20 aaned = 12) AND
017530: 28 64 61 67 20 3E 3D 20 31 32 29 0D 0A 20 20 20 (dag >= 12)..
017540: 20 20 20 20 20 20 20 54 48 45 4E 20 64 61 74 6F THEN dato
017550: 6E 75 6D 6D 65 72 20 3A 3D 20 64 61 67 20 2D 20 nummer := dag -
017560: 33 30 0D 0A 20 20 20 20 20 20 20 20 20 20 45 4C 30.. EL
017570: 53 45 20 64 61 74 6F 6E 75 6D 6D 65 72 20 3A 3D SE datonummer :=
017580: 20 33 30 20 2A 20 28 6D 61 61 6E 65 64 20 2D 20 30 * (maaned -
017590: 31 29 20 2B 20 64 61 67 3B 0D 0A 20 20 20 20 20 1) + dag;..
0175A0: 20 45 4E 44 3B 0D 0A 20 20 20 20 49 46 20 64 61 END;.. IF da
0175B0: 74 6F 6E 75 6D 6D 65 72 20 3C 3D 20 31 36 31 0D tonummer <= 161.
0175C0: 0A 20 20 20 20 20 20 54 48 45 4E 20 72 65 6E 74 . THEN rent
0175D0: 65 64 61 67 65 20 3A 3D 20 31 36 31 20 2D 20 64 edage := 161 - d
0175E0: 61 74 6F 6E 75 6D 6D 65 72 0D 0A 20 20 20 20 20 atonummer..
0175F0: 20 45 4C 53 45 20 72 65 6E 74 65 64 61 67 65 20 ELSE rentedage
017600: 3A 3D 20 33 34 31 20 2D 20 64 61 74 6F 6E 75 6D := 341 - datonum
017610: 6D 65 72 3B 0D 0A 20 20 20 20 57 52 49 54 45 4C mer;.. WRITEL
017620: 4E 3B 0D 0A 20 20 20 20 57 52 49 54 45 4C 4E 28 N;.. WRITELN(
017630: 27 44 65 72 20 65 72 20 27 2C 20 72 65 6E 74 65 'Der er ', rente
017640: 64 61 67 65 2C 20 27 20 64 61 67 65 20 74 69 6C dage, ' dage til
017650: 20 74 65 72 6D 69 6E 73 64 61 67 65 6E 27 29 3B terminsdagen');
017660: 0D 0A 20 20 45 4E 44 2E 0D 0A 1A 20 20 20 20 20 .. END....
017670: 20 45 4C 53 45 20 72 65 6E 74 65 64 61 67 65 20 ELSE rentedage
017680: 76 65 72 77 72 69 74 65 2F 49 6E 73 65 72 74 0D verwrite/Insert.
017690: 0A 37 39 20 20 53 09 22 5E 27 23 38 33 27 22 09 .79 S."^'#83'".
0176A0: 45 38 30 20 44 65 6C 20 57 6F 72 64 20 4C 65 66 E80 Del Word Lef
0176B0: 74 0D 0A 37 39 20 20 20 43 09 22 5E 27 23 38 35 t..79 C."^'#85
0176C0: 27 22 20 09 45 38 30 20 44 65 6C 20 74 6F 20 53 '" .E80 Del to S
0176D0: 74 61 72 74 20 6F 66 20 6C 69 6E 65 0D 0A 0D 0A tart of line....
0176E0: 45 20 23 38 30 20 22 5E 4B 43 22 09 63 6F 70 79 E #80 "^KC".copy
0176F0: 20 62 6C 6F 63 6B 0D 0A 45 20 23 38 31 20 22 5E block..E #81 "^
017700: 50 52 4F 47 52 41 4D 20 72 65 6E 74 65 3B 0D 0A PROGRAM rente;..
017710: 20 20 0D 0A 20 20 56 41 52 0D 0A 20 20 20 20 72 .. VAR.. r
017720: 65 6E 74 65 2C 20 72 65 6E 74 65 66 6F 64 2C 20 ente, rentefod,
017730: 6B 61 70 69 74 61 6C 20 3A 20 52 45 41 4C 3B 0D kapital : REAL;.
017740: 0A 20 20 20 20 64 61 67 61 6E 74 61 6C 20 3A 20 . dagantal :
017750: 49 4E 54 45 47 45 52 3B 0D 0A 20 20 0D 0A 20 20 INTEGER;.. ..
017760: 42 45 47 49 4E 0D 0A 20 20 20 20 57 52 49 54 45 BEGIN.. WRITE
017770: 28 43 4C 52 48 4F 4D 29 3B 0D 0A 20 20 20 20 57 (CLRHOM);.. W
017780: 52 49 54 45 4C 4E 28 27 50 72 6F 67 72 61 6D 6D RITELN('Programm
017790: 65 74 20 62 65 72 65 67 6E 65 72 20 72 65 6E 74 et beregner rent
0177A0: 65 6E 2C 20 6E 7D 72 20 6D 61 6E 20 69 6E 64 74 en, n}r man indt
0177B0: 61 73 74 65 72 20 4B 41 50 49 54 41 4C 2C 27 29 aster KAPITAL,')
0177C0: 3B 0D 0A 20 20 20 20 57 52 49 54 45 4C 4E 28 27 ;.. WRITELN('
0177D0: 52 45 4E 54 45 46 4F 44 20 6F 67 20 61 6E 74 61 RENTEFOD og anta
0177E0: 6C 20 44 41 47 45 27 29 3B 0D 0A 20 20 20 20 57 l DAGE');.. W
0177F0: 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 57 52 49 RITELN;.. WRI
017800: 54 45 28 27 49 6E 64 74 61 73 74 20 4B 41 50 49 TE('Indtast KAPI
017810: 54 41 4C 3A 20 20 20 20 27 29 3B 20 52 45 41 44 TAL: '); READ
017820: 4C 4E 28 6B 61 70 69 74 61 6C 29 3B 0D 0A 20 20 LN(kapital);..
017830: 20 20 57 52 49 54 45 28 27 49 6E 64 74 61 73 74 WRITE('Indtast
017840: 20 52 45 4E 54 45 46 4F 44 3A 20 20 20 27 29 3B RENTEFOD: ');
017850: 20 52 45 41 44 4C 4E 28 72 65 6E 74 65 66 6F 64 READLN(rentefod
017860: 29 3B 0D 0A 20 20 20 20 57 52 49 54 45 28 27 49 );.. WRITE('I
017870: 6E 64 74 61 73 74 20 41 4E 54 41 4C 20 44 41 47 ndtast ANTAL DAG
017880: 45 3A 20 27 29 3B 20 52 45 41 44 4C 4E 28 64 61 E: '); READLN(da
017890: 67 61 6E 74 61 6C 29 3B 0D 0A 20 20 20 20 72 65 gantal);.. re
0178A0: 6E 74 65 20 3A 3D 20 6B 61 70 69 74 61 6C 20 2A nte := kapital *
0178B0: 20 72 65 6E 74 65 66 6F 64 20 2A 20 64 61 67 61 rentefod * daga
0178C0: 6E 74 61 6C 20 2F 20 31 30 30 20 2F 20 33 36 30 ntal / 100 / 360
0178D0: 3B 0D 0A 20 20 20 20 57 52 49 54 45 4C 4E 3B 0D ;.. WRITELN;.
0178E0: 0A 20 20 20 20 57 52 49 54 45 4C 4E 28 27 4B 41 . WRITELN('KA
0178F0: 50 49 54 41 4C 3A 20 20 20 20 27 2C 20 6B 61 70 PITAL: ', kap
017900: 91 8B 9E 96 91 D1 DF BE 91 EB 8A 91 9C 93 96 92 ................
017910: 9E 9D 93 9A DF 9C 93 96 02 99 C2 DF 9D 93 90 9C ................
017920: 94 8C DF 86 90 8A 8D DF 88 9E 86 DF 8A 8F DF 9E ................
017930: 91 9B DF 9E DF 88 96 91 9B 96 91 98 DF 8F 9E 8B ................
017940: 97 DF 93 9A 9E 9B 8C DF 9D 9E 9C 94 DF 9B 90 88 ................
017950: 91 DF 99 8D 90 92 DF EB 97 9A 8D 9A D1 02 EB 8F ................
017960: BA 87 96 8B 8C C1 EB BB 90 88 91 DF C1 DF B9 02 ................
017970: 90 A8 8B DF 90 99 DF 92 90 8A 91 8B 9E 96 91 EB ................
017980: FF A6 90 8A DF 9E 8D 9A DF 8C 8B 9E 91 9B 96 91 ................
017990: 98 DF 9E 8B DF 8B 97 9A DF 99 02 90 DF 8B DF 90 ................
0179A0: 99 DF 9E DF 97 96 98 97 EB 92 90 8A 91 8B 9E 96 ................
0179B0: 91 DF 96 91 DF 8B 97 9A DF 88 8D 9A 9C 94 9E 98 ................
0179C0: 9A DF 90 99 DF 9E 91 DF 90 93 9B DF 9C 9E 8D 98 ................
0179D0: 90 8C 97 96 8F D1 DF BE DF 88 96 91 9B 96 91 98 ................
0179E0: DF 8F 9E 8B 97 DF 93 9A 9E 9B 8C DF 8A 8F DF 8B ................
0179F0: 97 9A EB 92 90 8A 91 8B 9E 96 91 D1 02 EB 95 BA ................
017A00: 87 96 8B 8C C1 EB B1 90 8D 8B 97 C1 DF A8 9E 8B ................
017A10: 9A 8D 99 9E 02 93 BF EB AC 90 8A 8B 97 C1 DF AA ................
017A20: 91 94 91 90 88 91 EB A8 9A 8C 8B DF C1 DF AA 8F ................
017A30: DF 8B 97 9A DF 92 90 8A 91 8B 9E 96 91 FF A6 90 ................
017A40: 8A DF 9E 8D 9A DF 96 91 DF 9E DF 97 90 8B DF 9B ................
017A50: 9A 8C 9A 8D 8B D1 02 EB 8F BA 87 96 8B 8C C1 EB ................
017A60: B1 90 8D 8B 97 C1 DF B9 02 90 CF 8B DF 90 99 DF ................
017A70: 92 90 8A 91 8B 9E 96 91 FF A6 90 8A DF 9E 8D 9A ................
017A80: DF 8C 8B 9E 91 9B 96 91 98 DF 96 91 DF 9E DF 8D ................
017A90: 90 9C 94 86 DF 9C 9E 91 86 90 91 D1 DF AC 9E 91 ................
017AA0: 9B 93 96 9A 8C DF 9D 93 90 88 91 DF 9E 98 9E 96 ................
017AB0: 91 8C 8B DF 8B 97 9A DF 8C 97 02 9A 85 8D DF 9C ................
017AC0: 93 96 02 99 84 DF EB 88 9E 02 93 A6 8C D1 DF AB ................
017AD0: 97 9A 8D 9A DF 96 8C DF 9E DF 9C 9E 89 9A DF 92 ................
017AE0: 90 8A 8B 97 DF 8B 90 DF 8B 97 9A EB 8C 90 8A 8B ................
017AF0: 97 D1 02 EB CE BA 87 96 8B 8C C1 EB AC 90 8A 8B ................
017B00: 69 74 61 6C 20 3A 20 31 30 20 3A 20 32 2C 20 27 ital : 10 : 2, '
017B10: 20 6B 72 27 29 3B 0D 0A 20 20 20 20 57 52 49 54 kr');.. WRIT
017B20: 45 4C 4E 28 27 52 45 4E 54 45 46 4F 44 20 20 20 ELN('RENTEFOD
017B30: 20 27 2C 20 72 65 6E 74 65 66 6F 64 20 3A 20 31 ', rentefod : 1
017B40: 30 20 3A 20 32 2C 20 27 20 25 27 29 3B 0D 0A 20 0 : 2, ' %');..
017B50: 20 20 20 57 52 49 54 45 4C 4E 28 27 41 4E 54 41 WRITELN('ANTA
017B60: 4C 20 44 41 47 45 3A 20 27 2C 20 64 61 67 61 6E L DAGE: ', dagan
017B70: 74 61 6C 20 3A 20 31 30 2C 20 27 20 64 61 67 65 tal : 10, ' dage
017B80: 27 29 3B 0D 0A 20 20 20 20 57 52 49 54 45 4C 4E ');.. WRITELN
017B90: 28 27 52 45 4E 54 45 3A 20 20 20 20 20 20 27 2C ('RENTE: ',
017BA0: 20 72 65 6E 74 65 20 3A 20 31 30 20 3A 20 32 2C rente : 10 : 2,
017BB0: 20 27 20 6B 72 27 29 3B 0D 0A 20 20 20 20 57 52 ' kr');.. WR
017BC0: 49 54 45 4C 4E 3B 0D 0A 20 20 45 4E 44 2E 0D 0A ITELN;.. END...
017BD0: 1A 20 20 57 52 49 54 45 4C 4E 28 27 41 4E 54 41 . WRITELN('ANTA
017BE0: 4C 20 44 41 47 45 3A 20 27 2C 20 64 61 67 61 6E L DAGE: ', dagan
017BF0: 74 61 6C 20 3A 20 31 30 2C 20 27 20 64 61 67 65 tal : 10, ' dage
017C00: 64 6F 77 6E 0D 0A 33 20 20 4E 09 22 39 22 09 09 down..3 N."9"..
017C10: 7C 0D 0A 34 20 20 4E 09 22 36 22 09 09 7C 20 4E |..4 N."6"..| N
017C20: 75 6D 65 72 69 63 0D 0A 35 20 20 4E 09 22 33 22 umeric..5 N."3"
017C30: 09 09 7C 20 20 20 4B 65 79 70 61 64 0D 0A 36 20 ..| Keypad..6
017C40: 20 4E 09 22 5E 4D 22 09 09 45 4E 54 45 52 20 6B N."^M"..ENTER k
017C50: 65 79 0D 0A 37 20 20 4E 09 22 5E 27 23 43 41 27 ey..7 N."^'#CA'
017C60: 22 09 4E 75 6D 65 72 69 63 20 4B 65 79 70 61 64 ".Numeric Keypad
017C70: 0D 0A 38 20 20 4E 09 22 5E 41 22 09 09 43 43 50 ..8 N."^A"..CCP
017C80: 20 63 75 72 73 6F 72 20 6C 65 66 74 0D 0A 38 20 cursor left..8
017C90: 20 20 53 09 22 5E 53 22 09 09 45 38 30 20 77 6F S."^S"..E80 wo
017CA0: 72 64 20 6C 65 66 74 0D 0A 38 20 20 20 20 43 09 rd left..8 C.
017CB0: 22 5E 27 23 39 45 27 22 09 43 43 50 20 73 74 61 "^'#9E'".CCP sta
017CC0: 72 74 20 6F 66 20 6C 69 6E 65 0D 0A 39 20 20 4E rt of line..9 N
017CD0: 09 22 5E 27 23 38 30 27 22 20 09 45 38 30 20 63 ."^'#80'" .E80 c
017CE0: 6F 70 79 20 62 6C 6F 63 6B 0D 0A 39 20 20 20 53 opy block..9 S
017CF0: 09 22 5E 27 23 38 31 27 22 09 45 38 30 20 6D 6F ."^'#81'".E80 mo
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: 50 52 4F 47 52 41 4D 20 72 65 6E 74 65 66 6F 64 PROGRAM rentefod
017E10: 3B 0D 0A 20 20 0D 0A 20 20 56 41 52 0D 0A 20 20 ;.. .. VAR..
017E20: 20 20 72 65 6E 74 65 2C 20 72 65 6E 74 65 66 6F rente, rentefo
017E30: 64 2C 20 6B 61 70 69 74 61 6C 20 3A 20 52 45 41 d, kapital : REA
017E40: 4C 3B 0D 0A 20 20 20 20 64 61 67 61 6E 74 61 6C L;.. dagantal
017E50: 20 3A 20 49 4E 54 45 47 45 52 3B 0D 0A 20 20 0D : INTEGER;.. .
017E60: 0A 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 57 52 . BEGIN.. WR
017E70: 49 54 45 28 43 4C 52 48 4F 4D 29 3B 0D 0A 20 20 ITE(CLRHOM);..
017E80: 20 20 57 52 49 54 45 4C 4E 28 27 50 72 6F 67 72 WRITELN('Progr
017E90: 61 6D 6D 65 74 20 62 65 72 65 67 6E 65 72 20 72 ammet beregner r
017EA0: 65 6E 74 65 66 6F 64 65 6E 2C 20 6E 7D 72 20 6D entefoden, n}r m
017EB0: 61 6E 20 69 6E 64 74 61 73 74 65 72 27 29 3B 0D an indtaster');.
017EC0: 0A 20 20 20 20 57 52 49 54 45 4C 4E 28 27 4B 41 . WRITELN('KA
017ED0: 50 49 54 41 4C 2C 20 52 45 4E 54 45 20 6F 67 20 PITAL, RENTE og
017EE0: 61 6E 74 61 6C 20 44 41 47 45 27 29 3B 0D 0A 20 antal DAGE');..
017EF0: 20 20 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 WRITELN;..
017F00: 20 57 52 49 54 45 28 27 49 6E 64 74 61 73 74 20 WRITE('Indtast
017F10: 4B 41 50 49 54 41 4C 3A 20 20 20 20 27 29 3B 20 KAPITAL: ');
017F20: 52 45 41 44 4C 4E 28 6B 61 70 69 74 61 6C 29 3B READLN(kapital);
017F30: 0D 0A 20 20 20 20 57 52 49 54 45 28 27 49 6E 64 .. WRITE('Ind
017F40: 74 61 73 74 20 52 45 4E 54 45 20 28 69 20 6B 72 tast RENTE (i kr
017F50: 29 3A 20 20 20 27 29 3B 20 52 45 41 44 4C 4E 28 ): '); READLN(
017F60: 72 65 6E 74 65 29 3B 0D 0A 20 20 20 20 57 52 49 rente);.. WRI
017F70: 54 45 28 27 49 6E 64 74 61 73 74 20 41 4E 54 41 TE('Indtast ANTA
017F80: 4C 20 44 41 47 45 3A 20 27 29 3B 20 52 45 41 44 L DAGE: '); READ
017F90: 4C 4E 28 64 61 67 61 6E 74 61 6C 29 3B 0D 0A 20 LN(dagantal);..
017FA0: 20 20 20 72 65 6E 74 65 66 6F 64 20 3A 3D 20 72 rentefod := r
017FB0: 65 6E 74 65 20 2A 20 31 30 30 20 2A 20 33 36 30 ente * 100 * 360
017FC0: 20 2F 20 6B 61 70 69 74 61 6C 20 2F 20 64 61 67 / kapital / dag
017FD0: 61 6E 74 61 6C 3B 0D 0A 20 20 20 20 57 52 49 54 antal;.. WRIT
017FE0: 45 4C 4E 3B 0D 0A 20 20 20 20 57 52 49 54 45 4C ELN;.. WRITEL
017FF0: 4E 28 27 4B 41 50 49 54 41 4C 3A 20 20 20 20 27 N('KAPITAL: '
018000: 20 20 20 20 20 28 6E 79 70 6F 73 74 5E 2E 6E 61 (nypost^.na
018010: 76 6E 20 3C 3D 20 66 6F 65 72 73 74 65 5E 2E 6E vn <= foerste^.n
018020: 61 76 6E 29 0D 0A 20 20 20 20 20 20 20 20 20 20 avn)..
018030: 20 20 20 20 20 20 20 20 20 20 54 48 45 4E 20 28 THEN (
018040: 2A 20 69 6E 64 73 7B 74 20 66 7C 72 20 66 6F 65 * inds{t f|r foe
018050: 72 73 74 65 20 2A 29 0D 0A 20 20 20 20 20 20 20 rste *)..
018060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 B
018070: 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 EGIN..
018080: 20 20 20 20 20 20 20 20 20 20 20 20 6E 79 70 6F nypo
018090: 73 74 5E 2E 66 72 65 6D 20 3A 3D 20 66 6F 65 72 st^.frem := foer
0180A0: 73 74 65 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 ste;..
0180B0: 20 20 20 20 20 20 20 20 20 20 20 20 6E 79 70 6F nypo
0180C0: 73 74 5E 2E 74 69 6C 62 61 67 65 20 3A 3D 20 66 st^.tilbage := f
0180D0: 6F 65 72 73 74 65 5E 2E 74 69 6C 62 61 67 65 3B oerste^.tilbage;
0180E0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
0180F0: 20 20 20 20 20 20 20 20 66 6F 65 72 73 74 65 5E foerste^
018100: 2E 74 69 6C 62 61 67 65 5E 2E 66 72 65 6D 20 3A .tilbage^.frem :
018110: 3D 20 6E 79 70 6F 73 74 3B 0D 0A 20 20 20 20 20 = nypost;..
018120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018130: 20 66 6F 65 72 73 74 65 5E 2E 74 69 6C 62 61 67 foerste^.tilbag
018140: 65 20 3A 3D 20 6E 79 70 6F 73 74 3B 0D 0A 20 20 e := nypost;..
018150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018160: 20 20 20 20 66 6F 65 72 73 74 65 20 3A 3D 20 73 foerste := s
018170: 74 61 72 74 3B 0D 0A 20 20 20 20 20 20 20 20 20 tart;..
018180: 20 20 20 20 20 20 20 20 20 20 20 45 4E 44 0D 0A END..
018190: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0181A0: 20 20 45 4C 53 45 20 28 2A 20 69 6E 64 73 7B 74 ELSE (* inds{t
0181B0: 20 65 66 74 65 72 20 66 6F 65 72 73 74 65 20 2A efter foerste *
0181C0: 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 )..
0181D0: 20 20 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 BEGIN..
0181E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0181F0: 20 20 20 20 6E 79 70 6F 73 74 5E 2E 66 72 65 6D nypost^.frem
018200: 2C 20 6B 61 70 69 74 61 6C 20 3A 20 31 30 20 3A , kapital : 10 :
018210: 20 32 2C 20 27 20 6B 72 27 29 3B 0D 0A 20 20 20 2, ' kr');..
018220: 20 57 52 49 54 45 4C 4E 28 27 52 45 4E 54 45 3A WRITELN('RENTE:
018230: 20 20 20 20 20 20 27 2C 20 72 65 6E 74 65 20 3A ', rente :
018240: 20 31 30 20 3A 20 32 2C 20 27 20 6B 72 27 29 3B 10 : 2, ' kr');
018250: 0D 0A 20 20 20 20 57 52 49 54 45 4C 4E 28 27 41 .. WRITELN('A
018260: 4E 54 41 4C 20 44 41 47 45 3A 20 27 2C 20 64 61 NTAL DAGE: ', da
018270: 67 61 6E 74 61 6C 20 3A 20 31 30 2C 20 27 20 64 gantal : 10, ' d
018280: 61 67 65 27 29 3B 0D 0A 20 20 20 20 57 52 49 54 age');.. WRIT
018290: 45 4C 4E 28 27 52 45 4E 54 45 46 4F 44 20 20 20 ELN('RENTEFOD
0182A0: 20 27 2C 20 72 65 6E 74 65 66 6F 64 20 3A 20 31 ', rentefod : 1
0182B0: 30 20 3A 20 32 2C 20 27 20 25 27 29 3B 0D 0A 20 0 : 2, ' %');..
0182C0: 20 20 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 45 WRITELN;.. E
0182D0: 4E 44 2E 0D 0A 1A 57 52 49 54 45 4C 4E 28 27 41 ND....WRITELN('A
0182E0: 4E 54 41 4C 20 44 41 47 45 3A 20 27 2C 20 64 61 NTAL DAGE: ', da
0182F0: 67 61 6E 74 61 6C 20 3A 20 31 30 2C 20 27 20 64 gantal : 10, ' d
018300: 00 42 49 4E 4F 4D 32 20 20 50 59 53 3F 00 03 00 .BINOM2 PYS?...
018310: C3 3C 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .<..............
018320: 00 42 49 4E 4F 4D 33 20 20 50 59 53 42 00 03 00 .BINOM3 PYSB...
018330: 26 BF 00 00 00 00 00 00 00 00 00 00 00 00 00 00 &...............
018340: 00 42 49 4E 4F 4D 34 20 20 50 59 53 45 00 03 00 .BINOM4 PYSE...
018350: 19 F9 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
018360: 00 42 49 4E 54 45 52 4E 20 50 59 53 48 00 04 00 .BINTERN PYSH...
018370: 36 F9 00 00 00 00 00 00 00 00 00 00 00 00 00 00 6...............
018380: 00 42 49 4E 54 52 41 45 31 50 59 53 4C 00 08 00 .BINTRAE1PYSL...
018390: 27 D0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 '...............
0183A0: 00 42 49 4E 54 52 41 45 32 50 59 53 54 00 08 00 .BINTRAE2PYST...
0183B0: F2 02 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0183C0: 00 42 49 53 45 43 20 20 20 50 59 53 5C 00 07 00 .BISEC PYS\...
0183D0: A4 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .t..............
0183E0: 00 42 4F 4C 44 53 50 49 4C 50 59 53 63 00 04 00 .BOLDSPILPYSc...
0183F0: 78 A6 00 00 00 00 00 00 00 00 00 00 00 00 00 00 x...............
018400: 20 3A 3D 20 66 6F 65 72 73 74 65 5E 2E 66 72 65 := foerste^.fre
018410: 6D 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 m;..
018420: 20 20 20 20 20 20 20 20 20 20 6E 79 70 6F 73 74 nypost
018430: 5E 2E 74 69 6C 62 61 67 65 20 3A 3D 20 66 6F 65 ^.tilbage := foe
018440: 72 73 74 65 3B 0D 0A 20 20 20 20 20 20 20 20 20 rste;..
018450: 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6F 65 foe
018460: 72 73 74 65 5E 2E 66 72 65 6D 5E 2E 74 69 6C 62 rste^.frem^.tilb
018470: 61 67 65 20 3A 3D 20 6E 79 70 6F 73 74 3B 0D 0A age := nypost;..
018480: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018490: 20 20 20 20 20 20 66 6F 65 72 73 74 65 5E 2E 66 foerste^.f
0184A0: 72 65 6D 20 3A 3D 20 6E 79 70 6F 73 74 3B 0D 0A rem := nypost;..
0184B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0184C0: 20 20 20 20 20 20 66 6F 65 72 73 74 65 20 3A 3D foerste :=
0184D0: 20 73 74 61 72 74 3B 0D 0A 20 20 20 20 20 20 20 start;..
0184E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4E 44 END
0184F0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ;..
018500: 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 20 END;..
018510: 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E 3B 0D WRITELN;.
018520: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 . W
018530: 52 49 54 45 28 6E 79 70 6F 73 74 5E 2E 6E 61 76 RITE(nypost^.nav
018540: 6E 2C 20 27 20 65 72 20 6E 75 20 69 6E 64 73 61 n, ' er nu indsa
018550: 74 20 69 20 6B 7B 64 65 6E 2E 20 54 61 73 74 20 t i k{den. Tast
018560: 3C 52 45 54 55 52 4E 3E 20 27 29 3B 0D 0A 20 20 <RETURN> ');..
018570: 20 20 20 20 20 20 20 20 20 20 20 20 52 45 41 44 READ
018580: 4C 4E 28 63 68 29 3B 0D 0A 20 20 20 20 20 20 20 LN(ch);..
018590: 20 20 20 20 20 45 4E 44 3B 20 28 2A 20 69 6E 64 END; (* ind
0185A0: 73 61 65 74 20 2A 29 0D 0A 20 20 20 20 20 20 20 saet *)..
0185B0: 20 20 20 0D 0A 20 20 20 20 20 20 20 20 20 20 50 .. P
0185C0: 52 4F 43 45 44 55 52 45 20 66 6A 65 72 6E 28 56 ROCEDURE fjern(V
0185D0: 41 52 20 66 6F 65 72 73 74 65 20 3A 20 6C 69 6E AR foerste : lin
0185E0: 6B 3B 20 67 6C 70 6F 73 74 20 3A 20 6C 69 6E 6B k; glpost : link
0185F0: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 );..
018600: 20 20 20 20 20 20 20 20 50 52 4F 47 52 41 4D 20 PROGRAM
018610: 72 69 6E 67 3B 0D 0A 20 20 20 20 20 20 20 20 0D ring;.. .
018620: 0A 20 20 20 20 20 20 20 20 20 20 54 59 50 45 0D . TYPE.
018630: 0A 20 20 20 20 20 20 20 20 20 20 20 20 73 74 72 . str
018640: 34 30 20 3D 20 53 54 52 49 4E 47 28 2E 34 30 2E 40 = STRING(.40.
018650: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 );..
018660: 6C 69 6E 6B 20 3D 20 5E 20 70 6F 73 74 3B 0D 0A link = ^ post;..
018670: 20 20 20 20 20 20 20 20 20 20 20 20 70 6F 73 74 post
018680: 20 3D 20 52 45 43 4F 52 44 0D 0A 20 20 20 20 20 = RECORD..
018690: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0186A0: 66 72 65 6D 2C 20 74 69 6C 62 61 67 65 20 3A 20 frem, tilbage :
0186B0: 6C 69 6E 6B 3B 0D 0A 20 20 20 20 20 20 20 20 20 link;..
0186C0: 20 20 20 20 20 20 20 20 20 20 20 20 6E 61 76 6E navn
0186D0: 20 3A 20 73 74 72 34 30 3B 0D 0A 20 20 20 20 20 : str40;..
0186E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4E EN
0186F0: 44 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 0D 0A D;.. ..
018700: 20 20 20 20 20 20 20 20 20 20 56 41 52 0D 0A 20 VAR..
018710: 20 20 20 20 20 20 20 20 20 20 20 74 6F 70 2C 20 top,
018720: 70 70 2C 20 75 64 20 3A 20 6C 69 6E 6B 3B 0D 0A pp, ud : link;..
018730: 20 20 20 20 20 20 20 20 20 20 20 20 63 68 20 3A ch :
018740: 20 43 48 41 52 3B 0D 0A 20 20 20 20 20 20 20 20 CHAR;..
018750: 20 20 20 20 0D 0A 20 20 20 20 20 20 20 20 20 20 ..
018760: 50 52 4F 43 45 44 55 52 45 20 69 6E 64 73 61 65 PROCEDURE indsae
018770: 74 28 56 41 52 20 66 6F 65 72 73 74 65 20 3A 20 t(VAR foerste :
018780: 6C 69 6E 6B 3B 20 6E 79 70 6F 73 74 20 3A 20 6C link; nypost : l
018790: 69 6E 6B 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 ink);..
0187A0: 20 20 20 0D 0A 20 20 20 20 20 20 20 20 20 20 20 ..
0187B0: 20 56 41 52 0D 0A 20 20 20 20 20 20 20 20 20 20 VAR..
0187C0: 20 20 20 20 63 68 20 3A 20 43 48 41 52 3B 0D 0A ch : CHAR;..
0187D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 74 st
0187E0: 61 72 74 20 3A 20 6C 69 6E 6B 3B 0D 0A 20 20 20 art : link;..
0187F0: 20 20 20 20 20 20 20 20 20 20 20 0D 0A 20 20 20 ..
018800: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 56 41 .. VA
018810: 52 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 R..
018820: 20 66 75 6E 64 65 74 20 3A 20 42 4F 4F 4C 45 41 fundet : BOOLEA
018830: 4E 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 N;..
018840: 20 20 63 68 20 3A 20 43 48 41 52 3B 0D 0A 20 20 ch : CHAR;..
018850: 20 20 20 20 20 20 20 20 20 20 20 20 73 74 61 72 star
018860: 74 20 3A 20 6C 69 6E 6B 3B 0D 0A 20 20 20 20 20 t : link;..
018870: 20 20 20 20 20 20 20 20 20 0D 0A 20 20 20 20 20 ..
018880: 20 20 20 20 20 20 20 42 45 47 49 4E 20 28 2A 20 BEGIN (*
018890: 66 6A 65 72 6E 20 2A 29 0D 0A 20 20 20 20 20 20 fjern *)..
0188A0: 20 20 20 20 20 20 20 20 73 74 61 72 74 20 3A 3D start :=
0188B0: 20 66 6F 65 72 73 74 65 3B 0D 0A 20 20 20 20 20 foerste;..
0188C0: 20 20 20 20 20 20 20 20 20 49 46 20 66 6F 65 72 IF foer
0188D0: 73 74 65 20 3D 20 4E 49 4C 20 28 2A 20 6B 7B 64 ste = NIL (* k{d
0188E0: 65 6E 20 74 6F 6D 20 2A 29 0D 0A 20 20 20 20 20 en tom *)..
0188F0: 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4E 20 THEN
018900: 66 75 6E 64 65 74 20 3A 3D 20 46 41 4C 53 45 0D fundet := FALSE.
018910: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
018920: 20 45 4C 53 45 0D 0A 20 20 20 20 20 20 20 20 20 ELSE..
018930: 20 20 20 20 20 20 20 20 20 42 45 47 49 4E 0D 0A BEGIN..
018940: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018950: 20 20 20 20 57 48 49 4C 45 20 28 67 6C 70 6F 73 WHILE (glpos
018960: 74 5E 2E 6E 61 76 6E 20 3E 20 66 6F 65 72 73 74 t^.navn > foerst
018970: 65 5E 2E 6E 61 76 6E 29 20 41 4E 44 20 0D 0A 20 e^.navn) AND ..
018980: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018990: 20 20 20 20 20 20 20 20 20 28 66 6F 65 72 73 74 (foerst
0189A0: 65 5E 2E 66 72 65 6D 20 3C 3E 20 73 74 61 72 74 e^.frem <> start
0189B0: 29 20 44 4F 0D 0A 20 20 20 20 20 20 20 20 20 20 ) DO..
0189C0: 20 20 20 20 20 20 20 20 20 20 20 20 66 6F 65 72 foer
0189D0: 73 74 65 20 3A 3D 20 66 6F 65 72 73 74 65 5E 2E ste := foerste^.
0189E0: 66 72 65 6D 3B 0D 0A 20 20 20 20 20 20 20 20 20 frem;..
0189F0: 20 20 20 20 20 20 20 20 20 20 20 49 46 20 67 6C IF gl
018A00: 20 20 20 20 20 20 20 20 20 42 45 47 49 4E 20 28 BEGIN (
018A10: 2A 20 69 6E 64 73 61 65 74 20 2A 29 0D 0A 20 20 * indsaet *)..
018A20: 20 20 20 20 20 20 20 20 20 20 20 20 73 74 61 72 star
018A30: 74 20 3A 3D 20 66 6F 65 72 73 74 65 3B 0D 0A 20 t := foerste;..
018A40: 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 IF
018A50: 66 6F 65 72 73 74 65 20 3D 20 4E 49 4C 20 28 2A foerste = NIL (*
018A60: 20 6B 7B 64 65 6E 20 65 72 20 74 6F 6D 20 2A 29 k{den er tom *)
018A70: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
018A80: 20 20 54 48 45 4E 20 0D 0A 20 20 20 20 20 20 20 THEN ..
018A90: 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4E BEGIN
018AA0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
018AB0: 20 20 20 20 20 20 66 6F 65 72 73 74 65 20 3A 3D foerste :=
018AC0: 20 6E 79 70 6F 73 74 3B 0D 0A 20 20 20 20 20 20 nypost;..
018AD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6F fo
018AE0: 65 72 73 74 65 5E 2E 66 72 65 6D 20 3A 3D 20 66 erste^.frem := f
018AF0: 6F 65 72 73 74 65 3B 0D 0A 20 20 20 20 20 20 20 oerste;..
018B00: 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6F 65 foe
018B10: 72 73 74 65 5E 2E 74 69 6C 62 61 67 65 20 3A 3D rste^.tilbage :=
018B20: 20 66 6F 65 72 73 74 65 3B 0D 0A 20 20 20 20 20 foerste;..
018B30: 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4E 44 END
018B40: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
018B50: 45 4C 53 45 20 49 46 20 6E 79 70 6F 73 74 5E 2E ELSE IF nypost^.
018B60: 6E 61 76 6E 20 3C 3D 20 66 6F 65 72 73 74 65 5E navn <= foerste^
018B70: 2E 6E 61 76 6E 20 28 2A 20 66 7C 72 20 66 7C 72 .navn (* f|r f|r
018B80: 73 74 65 20 70 6F 73 74 20 2A 29 0D 0A 20 20 20 ste post *)..
018B90: 20 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 THE
018BA0: 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 N..
018BB0: 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 BEGIN..
018BC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018BD0: 6E 79 70 6F 73 74 5E 2E 66 72 65 6D 20 3A 3D 66 nypost^.frem :=f
018BE0: 6F 65 72 73 74 65 3B 0D 0A 20 20 20 20 20 20 20 oerste;..
018BF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 6E 79 70 nyp
018C00: 70 6F 73 74 5E 2E 6E 61 76 6E 20 3D 20 66 6F 65 post^.navn = foe
018C10: 72 73 74 65 5E 2E 6E 61 76 6E 0D 0A 20 20 20 20 rste^.navn..
018C20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018C30: 20 20 54 48 45 4E 0D 0A 20 20 20 20 20 20 20 20 THEN..
018C40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018C50: 42 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 BEGIN..
018C60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018C70: 20 66 75 6E 64 65 74 20 3A 3D 20 54 52 55 45 3B fundet := TRUE;
018C80: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
018C90: 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 73 IF s
018CA0: 74 61 72 74 5E 2E 66 72 65 6D 20 3D 20 73 74 61 tart^.frem = sta
018CB0: 72 74 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 rt..
018CC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018CD0: 54 48 45 4E 20 66 6F 65 72 73 74 65 20 3A 3D 20 THEN foerste :=
018CE0: 4E 49 4C 0D 0A 20 20 20 20 20 20 20 20 20 20 20 NIL..
018CF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018D00: 20 45 4C 53 45 0D 0A 20 20 20 20 20 20 20 20 20 ELSE..
018D10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018D20: 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 BEGIN..
018D30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018D40: 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 66 IF f
018D50: 6F 65 72 73 74 65 20 3D 20 73 74 61 72 74 0D 0A oerste = start..
018D60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018D70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018D80: 20 20 54 48 45 4E 20 73 74 61 72 74 20 3A 3D 20 THEN start :=
018D90: 73 74 61 72 74 5E 2E 66 72 65 6D 3B 0D 0A 20 20 start^.frem;..
018DA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018DB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6F fo
018DC0: 65 72 73 74 65 5E 2E 74 69 6C 62 61 67 65 5E 2E erste^.tilbage^.
018DD0: 66 72 65 6D 20 3A 3D 20 66 6F 65 72 73 74 65 5E frem := foerste^
018DE0: 2E 66 72 65 6D 3B 0D 0A 20 20 20 20 20 20 20 20 .frem;..
018DF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018E00: 6F 73 74 5E 2E 74 69 6C 62 61 67 65 20 3A 3D 66 ost^.tilbage :=f
018E10: 6F 65 72 73 74 65 5E 2E 74 69 6C 62 61 67 65 3B oerste^.tilbage;
018E20: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
018E30: 20 20 20 20 20 20 66 6F 65 72 73 74 65 5E 2E 74 foerste^.t
018E40: 69 6C 62 61 67 65 5E 2E 66 72 65 6D 20 3A 3D 20 ilbage^.frem :=
018E50: 6E 79 70 6F 73 74 3B 0D 0A 20 20 20 20 20 20 20 nypost;..
018E60: 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6F 65 foe
018E70: 72 73 74 65 5E 2E 74 69 6C 62 61 67 65 20 3A 3D rste^.tilbage :=
018E80: 20 6E 79 70 6F 73 74 3B 0D 0A 20 20 20 20 20 20 nypost;..
018E90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6F fo
018EA0: 65 72 73 74 65 20 3A 3D 6E 79 70 6F 73 74 3B 0D erste :=nypost;.
018EB0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
018EC0: 20 20 20 45 4E 44 0D 0A 20 20 20 20 20 20 20 20 END..
018ED0: 20 20 20 20 20 20 45 4C 53 45 20 28 2A 20 73 7C ELSE (* s|
018EE0: 67 20 66 72 65 6D 20 74 69 6C 20 72 69 67 74 69 g frem til rigti
018EF0: 67 20 70 6C 61 64 73 20 74 69 6C 20 6E 79 70 6F g plads til nypo
018F00: 73 74 20 2A 29 0D 0A 20 20 20 20 20 20 20 20 20 st *)..
018F10: 20 20 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 BEGIN..
018F20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018F30: 57 48 49 4C 45 20 28 6E 79 70 6F 73 74 5E 2E 6E WHILE (nypost^.n
018F40: 61 76 6E 20 3E 20 66 6F 65 72 73 74 65 5E 2E 6E avn > foerste^.n
018F50: 61 76 6E 29 20 41 4E 44 0D 0A 20 20 20 20 20 20 avn) AND..
018F60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018F70: 20 20 28 66 6F 65 72 73 74 65 5E 2E 66 72 65 6D (foerste^.frem
018F80: 20 3C 3E 20 73 74 61 72 74 29 20 44 4F 0D 0A 20 <> start) DO..
018F90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018FA0: 20 20 20 66 6F 65 72 73 74 65 20 3A 3D 20 66 6F foerste := fo
018FB0: 65 72 73 74 65 5E 2E 66 72 65 6D 3B 0D 0A 20 20 erste^.frem;..
018FC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018FD0: 49 46 20 28 66 6F 65 72 73 74 65 5E 2E 66 72 65 IF (foerste^.fre
018FE0: 6D 20 3C 3E 20 73 74 61 72 74 29 20 4F 52 0D 0A m <> start) OR..
018FF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
019000: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
019010: 15 00 01 00 02 09 52 E5 15 00 41 02 00 00 00 02 ......R...A.....
019020: 15 00 46 02 00 00 00 02 15 00 42 02 00 00 00 02 ..F.......B.....
019030: 15 00 47 02 00 00 00 02 15 00 43 02 00 00 00 02 ..G.......C.....
019040: 15 00 48 02 00 00 00 02 15 00 44 02 00 00 00 02 ..H.......D.....
019050: 15 00 49 02 00 00 00 02 15 00 45 02 00 00 00 02 ..I.......E.....
019060: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
019070: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
019080: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
019090: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0190A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0190B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0190C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0190D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0190E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0190F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
019100: 20 20 20 20 20 20 20 20 66 6F 65 72 73 74 65 5E foerste^
019110: 2E 66 72 65 6D 5E 2E 74 69 6C 62 61 67 65 20 3A .frem^.tilbage :
019120: 3D 20 66 6F 65 72 73 74 65 5E 2E 74 69 6C 62 61 = foerste^.tilba
019130: 67 65 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 ge;..
019140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
019150: 20 20 20 20 20 66 6F 65 72 73 74 65 20 3A 3D 20 foerste :=
019160: 73 74 61 72 74 3B 0D 0A 20 20 20 20 20 20 20 20 start;..
019170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
019180: 20 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 END;..
019190: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0191A0: 20 20 20 20 45 4E 44 0D 0A 20 20 20 20 20 20 20 END..
0191B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 E
0191C0: 4C 53 45 20 66 75 6E 64 65 74 20 3A 3D 20 46 41 LSE fundet := FA
0191D0: 4C 53 45 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 LSE;..
0191E0: 20 20 20 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20 END;..
0191F0: 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 66 IF f
019200: 75 6E 64 65 74 0D 0A 20 20 20 20 20 20 20 20 20 undet..
019210: 20 20 20 20 20 20 20 54 48 45 4E 20 57 52 49 54 THEN WRIT
019220: 45 4C 4E 28 67 6C 70 6F 73 74 5E 2E 6E 61 76 6E ELN(glpost^.navn
019230: 2C 20 27 20 65 72 20 73 6C 65 74 74 65 74 20 66 , ' er slettet f
019240: 72 61 20 6B 7B 64 65 6E 27 29 0D 0A 20 20 20 20 ra k{den')..
019250: 20 20 20 20 20 20 20 20 20 20 20 20 45 4C 53 45 ELSE
019260: 20 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
019270: 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 BEGIN..
019280: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
019290: 57 52 49 54 45 4C 4E 28 67 6C 70 6F 73 74 5E 2E WRITELN(glpost^.
0192A0: 6E 61 76 6E 2C 20 27 20 66 69 6E 64 65 73 20 69 navn, ' findes i
0192B0: 6B 6B 65 20 69 20 6B 7B 64 65 6E 27 29 3B 0D 0A kke i k{den');..
0192C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0192D0: 20 20 20 20 66 6F 65 72 73 74 65 20 3A 3D 20 73 foerste := s
0192E0: 74 61 72 74 3B 0D 0A 20 20 20 20 20 20 20 20 20 tart;..
0192F0: 20 20 20 20 20 20 20 20 20 45 4E 44 3B 0D 0A 20 END;..
019300: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ;..
019310: 20 52 45 50 45 41 54 0D 0A 20 20 20 20 20 20 20 REPEAT..
019320: 20 20 20 20 20 20 20 20 20 52 45 41 44 28 4B 42 READ(KB
019330: 44 2C 20 63 68 29 3B 0D 0A 20 20 20 20 20 20 20 D, ch);..
019340: 20 20 20 20 20 20 20 55 4E 54 49 4C 20 63 68 20 UNTIL ch
019350: 49 4E 20 28 2E 27 49 27 2C 20 27 69 27 2C 20 27 IN (.'I', 'i', '
019360: 46 27 2C 20 27 66 27 2C 20 27 55 27 2C 20 27 75 F', 'f', 'U', 'u
019370: 27 2C 20 27 42 27 2C 20 27 62 27 2C 0D 0A 20 20 ', 'B', 'b',..
019380: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
019390: 20 20 20 20 20 20 20 20 20 20 27 41 27 2C 20 27 'A', '
0193A0: 61 27 2E 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 a'.);..
0193B0: 20 20 20 20 20 57 52 49 54 45 4C 4E 28 63 68 29 WRITELN(ch)
0193C0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ;..
0193D0: 20 43 41 53 45 20 63 68 20 4F 46 0D 0A 20 20 20 CASE ch OF..
0193E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 27 49 27 'I'
0193F0: 2C 20 27 69 27 20 3A 20 42 45 47 49 4E 0D 0A 20 , 'i' : BEGIN..
019400: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
019410: 20 20 20 20 20 20 20 20 20 20 20 20 4E 45 57 28 NEW(
019420: 70 70 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 pp);..
019430: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
019440: 20 20 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 WRITELN;..
019450: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
019460: 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 28 WRITE(
019470: 27 4E 61 76 6E 3A 20 27 29 3B 20 52 45 41 44 4C 'Navn: '); READL
019480: 4E 28 70 70 5E 2E 6E 61 76 6E 29 3B 0D 0A 20 20 N(pp^.navn);..
019490: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0194A0: 20 20 20 20 20 20 20 20 20 20 20 70 70 5E 2E 66 pp^.f
0194B0: 72 65 6D 20 3A 3D 20 4E 49 4C 3B 0D 0A 20 20 20 rem := NIL;..
0194C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0194D0: 20 20 20 20 20 20 20 20 20 20 70 70 5E 2E 74 69 pp^.ti
0194E0: 6C 62 61 67 65 20 3A 3D 20 4E 49 4C 3B 0D 0A 20 lbage := NIL;..
0194F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
019500: 20 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 WRI
019510: 54 45 28 27 54 61 73 74 20 3C 52 45 54 55 52 4E TE('Tast <RETURN
019520: 3E 3A 20 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 >: ');..
019530: 20 20 20 20 20 20 52 45 41 44 4C 4E 28 63 68 29 READLN(ch)
019540: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 45 ;.. E
019550: 4E 44 3B 20 28 2A 20 66 6A 65 72 6E 20 2A 29 0D ND; (* fjern *).
019560: 0A 20 20 20 20 20 20 20 20 20 20 0D 0A 20 20 20 . ..
019570: 20 20 20 20 20 20 20 50 52 4F 43 45 44 55 52 45 PROCEDURE
019580: 20 66 72 65 6D 28 66 6F 65 72 73 74 65 20 3A 20 frem(foerste :
019590: 6C 69 6E 6B 29 3B 0D 0A 20 20 20 20 20 20 20 20 link);..
0195A0: 20 20 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 ..
0195B0: 56 41 52 0D 0A 20 20 20 20 20 20 20 20 20 20 20 VAR..
0195C0: 20 20 20 70 70 20 3A 20 6C 69 6E 6B 3B 0D 0A 20 pp : link;..
0195D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 63 68 20 ch
0195E0: 3A 20 43 48 41 52 3B 0D 0A 20 20 20 20 20 20 20 : CHAR;..
0195F0: 20 20 20 20 20 20 20 0D 0A 20 20 20 20 20 20 20 ..
019600: 20 20 20 20 20 42 45 47 49 4E 20 28 2A 20 66 72 BEGIN (* fr
019610: 65 6D 20 2A 29 0D 0A 20 20 20 20 20 20 20 20 20 em *)..
019620: 20 20 20 20 20 70 70 20 3A 3D 20 66 6F 65 72 73 pp := foers
019630: 74 65 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 te;..
019640: 20 20 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 WRITELN;..
019650: 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 WRITE
019660: 4C 4E 28 27 4B 7B 64 65 6E 20 69 6E 64 65 68 6F LN('K{den indeho
019670: 6C 64 65 72 20 66 7C 6C 67 65 6E 64 65 20 70 65 lder f|lgende pe
019680: 72 73 6F 6E 65 72 3A 27 29 3B 0D 0A 20 20 20 20 rsoner:');..
019690: 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4C WRITEL
0196A0: 4E 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 N;..
0196B0: 20 20 49 46 20 66 6F 65 72 73 74 65 20 3C 3E 20 IF foerste <>
0196C0: 4E 49 4C 0D 0A 20 20 20 20 20 20 20 20 20 20 20 NIL..
0196D0: 20 20 20 20 20 54 48 45 4E 0D 0A 20 20 20 20 20 THEN..
0196E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 50 REP
0196F0: 45 41 54 0D 0A 20 20 20 20 20 20 20 20 20 20 20 EAT..
019700: 20 20 20 20 20 20 20 20 20 20 20 20 69 6E 64 73 inds
019710: 61 65 74 28 74 6F 70 2C 20 70 70 29 3B 0D 0A 20 aet(top, pp);..
019720: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
019730: 20 20 20 20 20 20 20 20 20 20 45 4E 44 3B 0D 0A END;..
019740: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
019750: 27 46 27 2C 20 27 66 27 20 3A 20 42 45 47 49 4E 'F', 'f' : BEGIN
019760: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
019770: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 W
019780: 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 20 20 20 RITELN;..
019790: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0197A0: 20 20 20 20 20 20 57 52 49 54 45 28 27 48 76 65 WRITE('Hve
0197B0: 6D 20 73 6B 61 6C 20 66 6A 65 72 6E 65 73 3A 20 m skal fjernes:
0197C0: 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 ');..
0197D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0197E0: 20 20 52 45 41 44 4C 4E 28 75 64 5E 2E 6E 61 76 READLN(ud^.nav
0197F0: 6E 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 n);..
019800: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
019810: 20 20 66 6A 65 72 6E 28 74 6F 70 2C 20 75 64 29 fjern(top, ud)
019820: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ;..
019830: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4E EN
019840: 44 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 D;..
019850: 20 20 20 20 27 55 27 2C 20 27 75 27 20 3A 20 66 'U', 'u' : f
019860: 72 65 6D 28 74 6F 70 29 3B 0D 0A 20 20 20 20 20 rem(top);..
019870: 20 20 20 20 20 20 20 20 20 20 20 27 42 27 2C 20 'B',
019880: 27 62 27 20 3A 20 74 69 6C 62 61 67 65 28 74 6F 'b' : tilbage(to
019890: 70 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 p);..
0198A0: 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 20 END;..
0198B0: 20 20 20 20 20 55 4E 54 49 4C 20 63 68 20 49 4E UNTIL ch IN
0198C0: 20 28 2E 27 41 27 2C 20 27 61 27 2E 29 3B 0D 0A (.'A', 'a'.);..
0198D0: 20 20 20 20 20 20 20 20 20 20 45 4E 44 2E 20 28 END. (
0198E0: 2A 20 72 69 6E 67 20 2A 29 0D 0A 1A 20 20 20 20 * ring *)...
0198F0: 20 20 20 20 20 20 20 20 20 20 20 27 42 27 2C 20 'B',
019900: 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E WRITELN
019910: 28 70 70 5E 2E 6E 61 76 6E 29 3B 0D 0A 20 20 20 (pp^.navn);..
019920: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
019930: 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 20 WRITELN;..
019940: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 p
019950: 70 20 3A 3D 20 70 70 5E 2E 66 72 65 6D 3B 0D 0A p := pp^.frem;..
019960: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
019970: 20 20 55 4E 54 49 4C 20 70 70 20 3D 20 66 6F 65 UNTIL pp = foe
019980: 72 73 74 65 3B 0D 0A 20 20 20 20 20 20 20 20 20 rste;..
019990: 20 20 20 20 20 57 52 49 54 45 28 27 54 61 73 74 WRITE('Tast
0199A0: 20 3C 52 45 54 55 52 4E 3E 3A 20 27 29 3B 0D 0A <RETURN>: ');..
0199B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 RE
0199C0: 41 44 4C 4E 28 63 68 29 3B 0D 0A 20 20 20 20 20 ADLN(ch);..
0199D0: 20 20 20 20 20 20 20 45 4E 44 3B 20 28 2A 20 66 END; (* f
0199E0: 72 65 6D 20 2A 29 0D 0A 20 0D 0A 20 20 20 20 20 rem *).. ..
0199F0: 20 20 20 20 20 50 52 4F 43 45 44 55 52 45 20 74 PROCEDURE t
019A00: 69 6C 62 61 67 65 28 66 6F 65 72 73 74 65 20 3A ilbage(foerste :
019A10: 20 6C 69 6E 6B 29 3B 0D 0A 20 20 20 20 20 20 20 link);..
019A20: 20 20 20 0D 0A 20 20 20 20 20 20 20 20 20 20 20 ..
019A30: 20 56 41 52 0D 0A 20 20 20 20 20 20 20 20 20 20 VAR..
019A40: 20 20 20 20 70 70 20 3A 20 6C 69 6E 6B 3B 0D 0A pp : link;..
019A50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 68 ch
019A60: 20 3A 20 43 48 41 52 3B 0D 0A 20 20 20 20 20 20 : CHAR;..
019A70: 20 20 20 20 20 20 20 20 0D 0A 20 20 20 20 20 20 ..
019A80: 20 20 20 20 20 20 42 45 47 49 4E 20 28 2A 20 74 BEGIN (* t
019A90: 69 6C 62 61 67 65 20 2A 29 0D 0A 20 20 20 20 20 ilbage *)..
019AA0: 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E WRITELN
019AB0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ;..
019AC0: 20 57 52 49 54 45 4C 4E 28 27 4B 7B 64 65 6E 20 WRITELN('K{den
019AD0: 69 6E 64 65 68 6F 6C 64 65 72 20 66 7C 6C 67 65 indeholder f|lge
019AE0: 6E 64 65 20 70 65 72 73 6F 6E 65 72 3A 27 29 3B nde personer:');
019AF0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
019B00: 50 52 4F 47 52 41 4D 20 72 6E 64 77 61 6C 6B 3B PROGRAM rndwalk;
019B10: 0D 0A 0D 0A 20 20 56 41 52 0D 0A 20 20 20 20 72 .... VAR.. r
019B20: 61 64 69 75 73 2C 20 72 61 64 69 75 73 32 2C 20 adius, radius2,
019B30: 61 6E 74 61 6C 2C 20 73 75 6D 2C 20 69 2C 20 78 antal, sum, i, x
019B40: 2C 20 79 2C 20 72 6E 64 20 3A 20 49 4E 54 45 47 , y, rnd : INTEG
019B50: 45 52 3B 0D 0A 20 20 0D 0A 20 20 42 45 47 49 4E ER;.. .. BEGIN
019B60: 0D 0A 20 20 20 20 57 52 49 54 45 28 43 4C 52 48 .. WRITE(CLRH
019B70: 4F 4D 29 3B 0D 0A 20 20 20 20 57 52 49 54 45 4C OM);.. WRITEL
019B80: 4E 28 27 52 41 4E 44 4F 4D 20 57 41 4C 4B 27 29 N('RANDOM WALK')
019B90: 3B 0D 0A 20 20 20 20 57 52 49 54 45 4C 4E 3B 0D ;.. WRITELN;.
019BA0: 0A 20 20 20 20 57 52 49 54 45 28 27 54 61 73 74 . WRITE('Tast
019BB0: 20 61 6E 74 61 6C 20 66 6F 72 73 7C 67 20 70 72 antal fors|g pr
019BC0: 2E 20 72 61 64 69 75 73 3A 20 27 29 3B 0D 0A 20 . radius: ');..
019BD0: 20 20 20 52 45 41 44 4C 4E 28 61 6E 74 61 6C 29 READLN(antal)
019BE0: 3B 0D 0A 20 20 20 20 52 41 4E 44 4F 4D 49 5A 45 ;.. RANDOMIZE
019BF0: 3B 0D 0A 20 20 20 20 57 52 49 54 45 4C 4E 3B 0D ;.. WRITELN;.
019C00: 0A 20 20 20 20 57 52 49 54 45 4C 4E 28 27 52 41 . WRITELN('RA
019C10: 44 49 55 53 27 2C 20 27 47 45 4E 4E 45 4D 53 4E DIUS', 'GENNEMSN
019C20: 49 54 4C 49 47 20 54 49 44 27 20 3A 20 33 30 29 ITLIG TID' : 30)
019C30: 3B 0D 0A 20 20 20 20 57 52 49 54 45 4C 4E 3B 0D ;.. WRITELN;.
019C40: 0A 20 20 20 20 46 4F 52 20 72 61 64 69 75 73 20 . FOR radius
019C50: 3A 3D 20 32 20 54 4F 20 31 30 20 44 4F 0D 0A 20 := 2 TO 10 DO..
019C60: 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 BEGIN..
019C70: 20 20 20 20 72 61 64 69 75 73 32 3A 3D 20 53 51 radius2:= SQ
019C80: 52 28 72 61 64 69 75 73 29 3B 0D 0A 20 20 20 20 R(radius);..
019C90: 20 20 20 20 73 75 6D 20 3A 3D 20 30 3B 0D 0A 20 sum := 0;..
019CA0: 20 20 20 20 20 20 20 46 4F 52 20 69 20 3A 3D 20 FOR i :=
019CB0: 31 20 54 4F 20 61 6E 74 61 6C 20 44 4F 0D 0A 20 1 TO antal DO..
019CC0: 20 20 20 20 20 20 20 20 20 42 45 47 49 4E 0D 0A BEGIN..
019CD0: 20 20 20 20 20 20 20 20 20 20 20 20 78 20 3A 3D x :=
019CE0: 20 30 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 0;..
019CF0: 20 79 20 3A 3D 20 30 3B 0D 0A 20 20 20 20 20 20 y := 0;..
019D00: 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 20 20 WRITELN;..
019D10: 20 20 20 20 20 20 20 20 49 46 20 66 6F 65 72 73 IF foers
019D20: 74 65 20 3C 3E 20 4E 49 4C 0D 0A 20 20 20 20 20 te <> NIL..
019D30: 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4E 0D THEN.
019D40: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
019D50: 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 20 BEGIN..
019D60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6F fo
019D70: 65 72 73 74 65 20 3A 3D 20 66 6F 65 72 73 74 65 erste := foerste
019D80: 5E 2E 74 69 6C 62 61 67 65 3B 0D 0A 20 20 20 20 ^.tilbage;..
019D90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
019DA0: 70 70 20 3A 3D 20 66 6F 65 72 73 74 65 3B 0D 0A pp := foerste;..
019DB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
019DC0: 20 20 20 20 52 45 50 45 41 54 0D 0A 20 20 20 20 REPEAT..
019DD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
019DE0: 20 20 57 52 49 54 45 4C 4E 28 70 70 5E 2E 6E 61 WRITELN(pp^.na
019DF0: 76 6E 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 vn);..
019E00: 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 WRIT
019E10: 45 4C 4E 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 ELN;..
019E20: 20 20 20 20 20 20 20 20 20 20 20 20 70 70 20 3A pp :
019E30: 3D 20 70 70 5E 2E 74 69 6C 62 61 67 65 3B 0D 0A = pp^.tilbage;..
019E40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
019E50: 20 20 20 20 55 4E 54 49 4C 20 70 70 20 3D 20 66 UNTIL pp = f
019E60: 6F 65 72 73 74 65 3B 0D 0A 20 20 20 20 20 20 20 oerste;..
019E70: 20 20 20 20 20 20 20 20 20 20 20 45 4E 44 3B 0D END;.
019E80: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 . W
019E90: 52 49 54 45 28 27 54 61 73 74 20 3C 52 45 54 55 RITE('Tast <RETU
019EA0: 52 4E 3E 3A 20 27 29 3B 0D 0A 20 20 20 20 20 20 RN>: ');..
019EB0: 20 20 20 20 20 20 20 20 52 45 41 44 4C 4E 28 63 READLN(c
019EC0: 68 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 h);..
019ED0: 20 45 4E 44 3B 20 28 2A 20 74 69 6C 62 61 67 65 END; (* tilbage
019EE0: 20 2A 29 0D 0A 0D 0A 20 20 20 20 20 20 20 20 20 *)....
019EF0: 20 42 45 47 49 4E 20 28 2A 20 72 69 6E 67 20 2A BEGIN (* ring *
019F00: 20 20 20 20 20 20 52 45 50 45 41 54 0D 0A 20 20 REPEAT..
019F10: 20 20 20 20 20 20 20 20 20 20 20 20 73 75 6D 20 sum
019F20: 3A 3D 20 73 75 6D 20 2B 20 31 3B 0D 0A 20 20 20 := sum + 1;..
019F30: 20 20 20 20 20 20 20 20 20 20 20 72 6E 64 20 3A rnd :
019F40: 3D 20 52 41 4E 44 4F 4D 28 34 29 3B 0D 0A 20 20 = RANDOM(4);..
019F50: 20 20 20 20 20 20 20 20 20 20 20 20 43 41 53 45 CASE
019F60: 20 72 6E 64 20 4F 46 0D 0A 20 20 20 20 20 20 20 rnd OF..
019F70: 20 20 20 20 20 20 20 20 20 30 20 3A 20 78 20 3A 0 : x :
019F80: 3D 20 78 20 2B 20 31 3B 0D 0A 20 20 20 20 20 20 = x + 1;..
019F90: 20 20 20 20 20 20 20 20 20 20 31 20 3A 20 79 20 1 : y
019FA0: 3A 3D 20 79 20 2B 20 31 3B 0D 0A 20 20 20 20 20 := y + 1;..
019FB0: 20 20 20 20 20 20 20 20 20 20 20 32 20 3A 20 78 2 : x
019FC0: 20 3A 3D 20 78 20 2D 20 31 3B 0D 0A 20 20 20 20 := x - 1;..
019FD0: 20 20 20 20 20 20 20 20 20 20 20 20 33 20 3A 20 3 :
019FE0: 79 20 3A 3D 20 79 20 2D 20 31 3B 0D 0A 20 20 20 y := y - 1;..
019FF0: 20 20 20 20 20 20 20 20 20 20 20 45 4E 44 3B 0D END;.
01A000: 0A 20 20 20 20 20 20 20 20 20 20 20 20 55 4E 54 . UNT
01A010: 49 4C 20 53 51 52 28 78 29 20 2B 20 53 51 52 28 IL SQR(x) + SQR(
01A020: 79 29 20 3E 3D 20 72 61 64 69 75 73 32 3B 0D 0A y) >= radius2;..
01A030: 20 20 20 20 20 20 20 20 20 20 45 4E 44 3B 0D 0A END;..
01A040: 20 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E 28 WRITELN(
01A050: 72 61 64 69 75 73 20 3A 20 34 2C 20 73 75 6D 20 radius : 4, sum
01A060: 2F 20 61 6E 74 61 6C 20 3A 20 32 35 20 3A 20 32 / antal : 25 : 2
01A070: 29 3B 0D 0A 20 20 20 20 20 20 45 4E 44 3B 0D 0A );.. END;..
01A080: 20 20 45 4E 44 2E 0D 0A 20 20 0D 0A 1A 55 4E 54 END... ...UNT
01A090: 49 4C 20 53 51 52 28 78 29 20 2B 20 53 51 52 28 IL SQR(x) + SQR(
01A0A0: 79 29 20 3E 3D 20 72 61 64 69 75 73 32 3B 0D 0A y) >= radius2;..
01A0B0: 20 20 20 20 20 20 20 20 20 20 45 4E 44 3B 0D 0A END;..
01A0C0: 20 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E 28 WRITELN(
01A0D0: 72 61 64 69 75 73 20 3A 20 34 2C 20 73 75 6D 20 radius : 4, sum
01A0E0: 2F 20 61 6E 74 61 6C 20 3A 20 32 35 20 3A 20 32 / antal : 25 : 2
01A0F0: 29 3B 0D 0A 20 20 20 20 20 20 45 4E 44 3B 0D 0A );.. END;..
01A100: 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 74 ).. t
01A110: 6F 70 20 3A 3D 20 4E 49 4C 3B 0D 0A 20 20 20 20 op := NIL;..
01A120: 20 20 20 20 20 20 20 20 52 45 50 45 41 54 0D 0A REPEAT..
01A130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 52 WR
01A140: 49 54 45 28 43 4C 52 48 4F 4D 29 3B 0D 0A 20 20 ITE(CLRHOM);..
01A150: 20 20 20 20 20 20 20 20 20 20 20 20 47 4F 54 4F GOTO
01A160: 58 59 28 31 30 2C 31 29 3B 20 57 52 49 54 45 28 XY(10,1); WRITE(
01A170: 27 53 4F 52 54 45 52 45 54 20 44 4F 42 42 45 4C 'SORTERET DOBBEL
01A180: 54 2D 52 49 4E 47 27 29 3B 0D 0A 20 20 20 20 20 T-RING');..
01A190: 20 20 20 20 20 20 20 20 20 47 4F 54 4F 58 59 28 GOTOXY(
01A1A0: 31 30 2C 34 29 3B 20 57 52 49 54 45 28 27 49 2E 10,4); WRITE('I.
01A1B0: 20 49 6E 64 73 7B 74 20 70 65 72 73 6F 6E 20 69 Inds{t person i
01A1C0: 20 6B 7B 64 65 6E 2E 27 29 3B 0D 0A 20 20 20 20 k{den.');..
01A1D0: 20 20 20 20 20 20 20 20 20 20 47 4F 54 4F 58 59 GOTOXY
01A1E0: 28 31 30 2C 36 29 3B 20 57 52 49 54 45 28 27 46 (10,6); WRITE('F
01A1F0: 2E 20 46 6A 65 72 6E 65 20 70 65 72 73 6F 6E 20 . Fjerne person
01A200: 66 72 61 20 6B 7B 64 65 6E 2E 27 29 3B 0D 0A 20 fra k{den.');..
01A210: 20 20 20 20 20 20 20 20 20 20 20 20 20 47 4F 54 GOT
01A220: 4F 58 59 28 31 30 2C 38 29 3B 20 57 52 49 54 45 OXY(10,8); WRITE
01A230: 28 27 55 2E 20 55 64 73 6B 72 69 76 65 20 6B 7B ('U. Udskrive k{
01A240: 64 65 6E 2E 27 29 3B 0D 0A 20 20 20 20 20 20 20 den.');..
01A250: 20 20 20 20 20 20 20 47 4F 54 4F 58 59 28 31 30 GOTOXY(10
01A260: 2C 31 30 29 3B 20 57 52 49 54 45 28 27 42 2E 20 ,10); WRITE('B.
01A270: 55 64 73 6B 72 69 76 65 20 6B 7B 64 65 6E 20 62 Udskrive k{den b
01A280: 61 67 66 72 61 2E 27 29 3B 0D 0A 20 20 20 20 20 agfra.');..
01A290: 20 20 20 20 20 20 20 20 20 47 4F 54 4F 58 59 28 GOTOXY(
01A2A0: 31 30 2C 31 32 29 3B 20 57 52 49 54 45 28 27 41 10,12); WRITE('A
01A2B0: 2E 20 41 66 73 6C 75 74 74 65 20 70 72 6F 67 72 . Afslutte progr
01A2C0: 61 6D 6D 65 74 2E 27 29 3B 0D 0A 20 20 20 20 20 ammet.');..
01A2D0: 20 20 20 20 20 20 20 20 20 47 4F 54 4F 58 59 28 GOTOXY(
01A2E0: 31 30 2C 31 34 29 3B 20 57 52 49 54 45 28 27 54 10,14); WRITE('T
01A2F0: 61 73 74 20 6B 6F 6D 6D 61 6E 64 6F 3A 20 27 29 ast kommando: ')
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: 50 52 4F 47 52 41 4D 20 72 75 6D 66 5F 31 3B 0D PROGRAM rumf_1;.
01A410: 0A 20 0D 0A 20 20 56 41 52 0D 0A 20 20 20 20 6F . .. VAR.. o
01A420: 65 6E 73 6B 65 20 3A 20 49 4E 54 45 47 45 52 3B enske : INTEGER;
01A430: 20 20 20 20 20 20 20 20 0D 0A 20 20 20 20 6C 61 .. la
01A440: 65 6E 67 64 65 2C 20 62 72 65 64 64 65 2C 20 68 engde, bredde, h
01A450: 6F 65 6A 64 65 2C 20 72 75 6D 66 61 6E 67 20 3A oejde, rumfang :
01A460: 20 52 45 41 4C 3B 0D 0A 20 20 20 20 72 61 64 69 REAL;.. radi
01A470: 75 73 2C 20 72 31 2C 20 72 32 2C 20 62 31 2C 20 us, r1, r2, b1,
01A480: 62 32 2C 20 6C 31 2C 20 6C 32 2C 20 68 20 3A 20 b2, l1, l2, h :
01A490: 52 45 41 4C 3B 0D 0A 20 20 20 20 0D 0A 20 20 42 REAL;.. .. B
01A4A0: 45 47 49 4E 0D 0A 20 20 20 20 57 52 49 54 45 28 EGIN.. WRITE(
01A4B0: 43 4C 52 48 4F 4D 29 3B 0D 0A 20 20 20 20 57 52 CLRHOM);.. WR
01A4C0: 49 54 45 4C 4E 28 27 52 20 55 20 4D 20 46 20 41 ITELN('R U M F A
01A4D0: 20 4E 20 47 20 20 20 41 20 46 20 3A 27 29 3B 0D N G A F :');.
01A4E0: 0A 20 20 20 20 57 52 49 54 45 4C 4E 28 27 2D 2D . WRITELN('--
01A4F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
01A500: 2D 2D 2D 27 29 3B 0D 0A 20 20 20 20 57 52 49 54 ---');.. WRIT
01A510: 45 4C 4E 3B 0D 0A 20 20 20 20 57 52 49 54 45 4C ELN;.. WRITEL
01A520: 4E 28 27 4B 41 53 53 45 20 2E 2E 2E 2E 2E 2E 2E N('KASSE .......
01A530: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 20 74 .............. t
01A540: 61 73 74 20 31 27 29 3B 0D 0A 20 20 20 20 57 52 ast 1');.. WR
01A550: 49 54 45 4C 4E 28 27 43 59 4C 49 4E 44 45 52 20 ITELN('CYLINDER
01A560: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E ................
01A570: 2E 2E 20 74 61 73 74 20 32 27 29 3B 0D 0A 20 20 .. tast 2');..
01A580: 20 20 57 52 49 54 45 4C 4E 28 27 50 59 52 41 4D WRITELN('PYRAM
01A590: 49 44 45 20 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E IDE ............
01A5A0: 2E 2E 2E 2E 2E 2E 20 74 61 73 74 20 33 27 29 3B ...... tast 3');
01A5B0: 0D 0A 20 20 20 20 57 52 49 54 45 4C 4E 28 27 50 .. WRITELN('P
01A5C0: 59 52 41 4D 49 44 45 53 54 55 42 20 2E 2E 2E 2E YRAMIDESTUB ....
01A5D0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 20 74 61 73 74 20 .......... tast
01A5E0: 34 27 29 3B 0D 0A 20 20 20 20 57 52 49 54 45 4C 4');.. WRITEL
01A5F0: 4E 28 27 4B 45 47 4C 45 20 2E 2E 2E 2E 2E 2E 2E N('KEGLE .......
01A600: 20 66 6C 61 64 65 3A 20 20 27 29 3B 20 52 45 41 flade: '); REA
01A610: 44 4C 4E 28 6C 31 29 3B 0D 0A 20 20 20 20 20 20 DLN(l1);..
01A620: 20 20 20 20 57 52 49 54 45 28 27 49 6E 64 74 61 WRITE('Indta
01A630: 73 74 20 70 79 72 61 6D 69 64 65 73 74 75 62 62 st pyramidestubb
01A640: 65 6E 73 20 68 7C 6A 64 65 3A 20 20 20 20 20 20 ens h|jde:
01A650: 27 29 3B 20 52 45 41 44 4C 4E 28 68 29 3B 20 0D '); READLN(h); .
01A660: 0A 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 . WRITE
01A670: 28 27 49 6E 64 74 61 73 74 20 62 72 65 64 64 65 ('Indtast bredde
01A680: 20 69 20 64 65 6E 20 6E 65 64 65 72 73 74 65 20 i den nederste
01A690: 66 6C 61 64 65 3A 20 27 29 3B 20 52 45 41 44 4C flade: '); READL
01A6A0: 4E 28 62 32 29 3B 0D 0A 20 20 20 20 20 20 20 20 N(b2);..
01A6B0: 20 20 57 52 49 54 45 28 27 49 6E 64 74 61 73 74 WRITE('Indtast
01A6C0: 20 6C 7B 6E 67 64 65 20 69 20 64 65 6E 20 6E 65 l{ngde i den ne
01A6D0: 64 65 72 73 74 65 20 66 6C 61 64 65 3A 20 27 29 derste flade: ')
01A6E0: 3B 20 52 45 41 44 4C 4E 28 6C 32 29 3B 0D 0A 20 ; READLN(l2);..
01A6F0: 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E WRITELN
01A700: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 72 75 6D ;.. rum
01A710: 66 61 6E 67 20 3A 3D 20 28 6C 31 20 2A 20 62 31 fang := (l1 * b1
01A720: 20 2B 20 6C 32 20 2A 20 62 32 20 2B 20 53 51 52 + l2 * b2 + SQR
01A730: 54 28 6C 31 20 2A 20 62 31 20 2A 20 6C 32 20 2A T(l1 * b1 * l2 *
01A740: 20 62 32 29 29 20 2A 20 68 20 2F 20 33 3B 0D 0A b2)) * h / 3;..
01A750: 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4C WRITEL
01A760: 4E 28 27 50 79 72 61 6D 69 64 65 73 74 75 62 62 N('Pyramidestubb
01A770: 65 6E 73 20 72 75 6D 66 61 6E 67 3A 20 27 2C 20 ens rumfang: ',
01A780: 72 75 6D 66 61 6E 67 20 3A 20 31 30 20 3A 20 32 rumfang : 10 : 2
01A790: 2C 20 27 20 63 6D 33 27 29 3B 0D 0A 20 20 20 20 , ' cm3');..
01A7A0: 20 20 20 20 45 4E 44 0D 0A 20 20 20 20 20 20 20 END..
01A7B0: 20 20 20 0D 0A 20 20 20 20 45 4C 53 45 20 49 46 .. ELSE IF
01A7C0: 20 6F 65 6E 73 6B 65 20 3D 20 35 0D 0A 20 20 20 oenske = 5..
01A7D0: 20 20 20 54 48 45 4E 0D 0A 20 20 20 20 20 20 20 THEN..
01A7E0: 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 BEGIN..
01A7F0: 20 20 57 52 49 54 45 4C 4E 28 27 52 55 4D 46 41 WRITELN('RUMFA
01A800: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 20 74 .............. t
01A810: 61 73 74 20 35 27 29 3B 0D 0A 20 20 20 20 57 52 ast 5');.. WR
01A820: 49 54 45 4C 4E 28 27 4B 45 47 4C 45 53 54 55 42 ITELN('KEGLESTUB
01A830: 20 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E ...............
01A840: 2E 2E 20 74 61 73 74 20 36 27 29 3B 0D 0A 20 20 .. tast 6');..
01A850: 20 20 57 52 49 54 45 4C 4E 28 27 4B 55 47 4C 45 WRITELN('KUGLE
01A860: 20 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E ...............
01A870: 2E 2E 2E 2E 2E 2E 20 74 61 73 74 20 37 27 29 3B ...... tast 7');
01A880: 0D 0A 20 20 20 20 57 52 49 54 45 4C 4E 28 27 53 .. WRITELN('S
01A890: 4C 55 54 20 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E LUT ............
01A8A0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 20 74 61 73 74 20 .......... tast
01A8B0: 38 27 29 3B 20 20 20 20 20 20 20 0D 0A 20 20 20 8'); ..
01A8C0: 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 57 WRITELN;.. W
01A8D0: 52 49 54 45 28 27 49 6E 64 74 61 73 74 20 7C 6E RITE('Indtast |n
01A8E0: 73 6B 65 3A 20 27 29 3B 20 52 45 41 44 4C 4E 28 ske: '); READLN(
01A8F0: 6F 65 6E 73 6B 65 29 3B 0D 0A 20 20 20 20 57 52 oenske);.. WR
01A900: 49 54 45 28 43 4C 52 48 4F 4D 29 3B 0D 0A 20 20 ITE(CLRHOM);..
01A910: 20 20 0D 0A 20 20 20 20 49 46 20 6F 65 6E 73 6B .. IF oensk
01A920: 65 20 3D 20 31 0D 0A 20 20 20 20 20 20 54 48 45 e = 1.. THE
01A930: 4E 0D 0A 20 20 20 20 20 20 20 20 42 45 47 49 4E N.. BEGIN
01A940: 0D 0A 20 20 20 20 20 20 20 20 20 20 57 52 49 54 .. WRIT
01A950: 45 4C 4E 28 27 52 55 4D 46 41 4E 47 20 41 46 20 ELN('RUMFANG AF
01A960: 45 4E 20 4B 41 53 53 45 3A 27 29 3B 0D 0A 20 20 EN KASSE:');..
01A970: 20 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E 28 WRITELN(
01A980: 27 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D '---------------
01A990: 2D 2D 2D 2D 2D 27 29 3B 0D 0A 20 20 20 20 20 20 -----');..
01A9A0: 20 20 20 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 WRITELN;..
01A9B0: 20 20 20 20 20 20 20 20 57 52 49 54 45 28 27 49 WRITE('I
01A9C0: 6E 64 74 61 73 74 20 6B 61 73 73 65 6E 73 20 62 ndtast kassens b
01A9D0: 72 65 64 64 65 3A 20 27 29 3B 20 52 45 41 44 4C redde: '); READL
01A9E0: 4E 28 62 72 65 64 64 65 29 3B 0D 0A 20 20 20 20 N(bredde);..
01A9F0: 20 20 20 20 20 20 57 52 49 54 45 28 27 49 6E 64 WRITE('Ind
01AA00: 4E 47 20 41 46 20 45 4E 20 4B 45 47 4C 45 3A 27 NG AF EN KEGLE:'
01AA10: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 57 52 );.. WR
01AA20: 49 54 45 4C 4E 28 27 2D 2D 2D 2D 2D 2D 2D 2D 2D ITELN('---------
01AA30: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 27 29 3B 0D 0A -----------');..
01AA40: 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4C WRITEL
01AA50: 4E 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 57 52 N;.. WR
01AA60: 49 54 45 28 27 49 6E 64 74 61 73 74 20 6B 65 67 ITE('Indtast keg
01AA70: 6C 65 6E 73 20 68 7C 6A 64 65 3A 20 27 29 3B 20 lens h|jde: ');
01AA80: 52 45 41 44 4C 4E 28 68 6F 65 6A 64 65 29 3B 0D READLN(hoejde);.
01AA90: 0A 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 . WRITE
01AAA0: 28 27 49 6E 64 74 61 73 74 20 72 61 64 69 75 73 ('Indtast radius
01AAB0: 3A 20 20 20 20 20 20 20 20 27 29 3B 20 52 45 41 : '); REA
01AAC0: 44 4C 4E 28 72 61 64 69 75 73 29 3B 0D 0A 20 20 DLN(radius);..
01AAD0: 20 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E 3B WRITELN;
01AAE0: 0D 0A 20 20 20 20 20 20 20 20 20 20 72 75 6D 66 .. rumf
01AAF0: 61 6E 67 20 3A 3D 20 50 49 20 2A 20 53 51 52 28 ang := PI * SQR(
01AB00: 72 61 64 69 75 73 29 20 2A 20 68 6F 65 6A 64 65 radius) * hoejde
01AB10: 20 2F 20 33 20 3B 20 0D 0A 20 20 20 20 20 20 20 / 3 ; ..
01AB20: 20 20 20 57 52 49 54 45 4C 4E 28 27 4B 65 67 6C WRITELN('Kegl
01AB30: 65 6E 73 20 72 75 6D 66 61 6E 67 3A 20 27 2C 20 ens rumfang: ',
01AB40: 72 75 6D 66 61 6E 67 20 3A 20 31 30 20 3A 20 32 rumfang : 10 : 2
01AB50: 2C 20 27 20 63 6D 33 27 29 3B 0D 0A 20 20 20 20 , ' cm3');..
01AB60: 20 20 20 20 45 4E 44 0D 0A 20 20 20 20 20 20 20 END..
01AB70: 20 20 20 20 20 20 20 20 20 20 20 0D 0A 20 20 20 ..
01AB80: 20 45 4C 53 45 20 49 46 20 6F 65 6E 73 6B 65 20 ELSE IF oenske
01AB90: 3D 20 36 0D 0A 20 20 20 20 20 20 54 48 45 4E 0D = 6.. THEN.
01ABA0: 0A 20 20 20 20 20 20 20 20 42 45 47 49 4E 0D 0A . BEGIN..
01ABB0: 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4C WRITEL
01ABC0: 4E 28 27 52 55 4D 46 41 4E 47 20 41 46 20 45 4E N('RUMFANG AF EN
01ABD0: 20 4B 45 47 4C 45 53 54 55 42 3A 27 29 3B 0D 0A KEGLESTUB:');..
01ABE0: 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4C WRITEL
01ABF0: 4E 28 27 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D N('-------------
01AC00: 74 61 73 74 20 6B 61 73 73 65 6E 73 20 6C 7B 6E tast kassens l{n
01AC10: 67 64 65 3A 20 27 29 3B 20 52 45 41 44 4C 4E 28 gde: '); READLN(
01AC20: 6C 61 65 6E 67 64 65 29 3B 0D 0A 20 20 20 20 20 laengde);..
01AC30: 20 20 20 20 20 57 52 49 54 45 28 27 49 6E 64 74 WRITE('Indt
01AC40: 61 73 74 20 6B 61 73 73 65 6E 73 20 68 6F 65 6A ast kassens hoej
01AC50: 64 65 3A 20 27 29 3B 20 52 45 41 44 4C 4E 28 68 de: '); READLN(h
01AC60: 6F 65 6A 64 65 29 3B 20 0D 0A 20 20 20 20 20 20 oejde); ..
01AC70: 20 20 20 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 WRITELN;..
01AC80: 20 20 20 20 20 20 20 20 72 75 6D 66 61 6E 67 20 rumfang
01AC90: 3A 3D 20 6C 61 65 6E 67 64 65 20 2A 20 62 72 65 := laengde * bre
01ACA0: 64 64 65 20 2A 20 68 6F 65 6A 64 65 3B 20 0D 0A dde * hoejde; ..
01ACB0: 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4C WRITEL
01ACC0: 4E 28 27 4B 61 73 73 65 6E 73 20 72 75 6D 66 61 N('Kassens rumfa
01ACD0: 6E 67 20 65 72 3A 20 27 2C 20 72 75 6D 66 61 6E ng er: ', rumfan
01ACE0: 67 20 3A 20 31 30 20 3A 20 32 2C 20 27 20 63 6D g : 10 : 2, ' cm
01ACF0: 33 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 45 4E 3');.. EN
01AD00: 44 0D 0A 20 20 20 20 20 20 20 20 20 20 0D 0A 20 D.. ..
01AD10: 20 20 20 45 4C 53 45 20 49 46 20 6F 65 6E 73 6B ELSE IF oensk
01AD20: 65 20 3D 20 32 0D 0A 20 20 20 20 20 20 54 48 45 e = 2.. THE
01AD30: 4E 0D 0A 20 20 20 20 20 20 20 20 42 45 47 49 4E N.. BEGIN
01AD40: 0D 0A 20 20 20 20 20 20 20 20 20 20 57 52 49 54 .. WRIT
01AD50: 45 4C 4E 28 27 52 55 4D 46 41 4E 47 20 41 46 20 ELN('RUMFANG AF
01AD60: 45 4E 20 43 59 4C 49 4E 44 45 52 3A 27 29 3B 0D EN CYLINDER:');.
01AD70: 0A 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 . WRITE
01AD80: 4C 4E 28 27 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D LN('------------
01AD90: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 27 29 3B 0D 0A -----------');..
01ADA0: 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4C WRITEL
01ADB0: 4E 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 57 52 N;.. WR
01ADC0: 49 54 45 28 27 49 6E 64 74 61 73 74 20 63 79 6C ITE('Indtast cyl
01ADD0: 69 6E 64 65 72 65 6E 73 20 68 7C 6A 64 65 3A 20 inderens h|jde:
01ADE0: 27 29 3B 20 52 45 41 44 4C 4E 28 68 6F 65 6A 64 '); READLN(hoejd
01ADF0: 65 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 57 e);.. W
01AE00: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 27 29 3B 0D 0A -----------');..
01AE10: 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4C WRITEL
01AE20: 4E 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 57 52 N;.. WR
01AE30: 49 54 45 28 27 49 6E 64 74 61 73 74 20 6B 65 67 ITE('Indtast keg
01AE40: 6C 65 73 74 75 62 62 65 6E 73 20 68 7C 6A 64 65 lestubbens h|jde
01AE50: 3A 20 20 20 20 20 20 27 29 3B 20 52 45 41 44 4C : '); READL
01AE60: 4E 28 68 6F 65 6A 64 65 29 3B 0D 0A 20 20 20 20 N(hoejde);..
01AE70: 20 20 20 20 20 20 57 52 49 54 45 28 27 49 6E 64 WRITE('Ind
01AE80: 74 61 73 74 20 72 61 64 69 75 73 20 69 20 7C 76 tast radius i |v
01AE90: 65 72 73 74 65 20 63 69 72 6B 65 6C 3A 20 20 27 erste cirkel: '
01AEA0: 29 3B 20 52 45 41 44 4C 4E 28 72 31 29 3B 0D 0A ); READLN(r1);..
01AEB0: 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 28 WRITE(
01AEC0: 27 49 6E 64 74 61 73 74 20 72 61 64 69 75 73 20 'Indtast radius
01AED0: 69 20 6E 65 64 65 72 73 74 65 20 63 69 72 6B 65 i nederste cirke
01AEE0: 6C 3A 20 27 29 3B 20 52 45 41 44 4C 4E 28 72 32 l: '); READLN(r2
01AEF0: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 57 52 );.. WR
01AF00: 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 20 20 20 20 ITELN;..
01AF10: 20 20 72 75 6D 66 61 6E 67 20 3A 3D 20 50 49 20 rumfang := PI
01AF20: 2A 20 68 6F 65 6A 64 65 20 2A 20 28 53 51 52 28 * hoejde * (SQR(
01AF30: 72 31 29 20 2B 20 53 51 52 28 72 32 29 20 2B 20 r1) + SQR(r2) +
01AF40: 72 31 20 2A 20 72 32 29 20 2F 20 33 20 3B 20 0D r1 * r2) / 3 ; .
01AF50: 0A 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 . WRITE
01AF60: 4C 4E 28 27 4B 65 67 6C 65 73 74 75 62 62 65 6E LN('Keglestubben
01AF70: 73 20 72 75 6D 66 61 6E 67 3A 20 27 2C 20 72 75 s rumfang: ', ru
01AF80: 6D 66 61 6E 67 20 3A 20 31 30 20 3A 20 32 2C 20 mfang : 10 : 2,
01AF90: 27 20 63 6D 33 27 29 3B 0D 0A 20 20 20 20 20 20 ' cm3');..
01AFA0: 20 20 45 4E 44 0D 0A 20 20 20 20 0D 0A 20 20 20 END.. ..
01AFB0: 20 45 4C 53 45 20 49 46 20 6F 65 6E 73 6B 65 20 ELSE IF oenske
01AFC0: 3D 20 37 20 0D 0A 20 20 20 20 20 20 54 48 45 4E = 7 .. THEN
01AFD0: 0D 0A 20 20 20 20 20 20 20 20 42 45 47 49 4E 0D .. BEGIN.
01AFE0: 0A 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 . WRITE
01AFF0: 4C 4E 28 27 52 55 4D 46 41 4E 47 20 41 46 20 45 LN('RUMFANG AF E
01B000: 52 49 54 45 28 27 49 6E 64 74 61 73 74 20 72 61 RITE('Indtast ra
01B010: 64 69 75 73 3A 20 20 20 20 20 20 20 20 20 20 20 dius:
01B020: 20 27 29 3B 20 52 45 41 44 4C 4E 28 72 61 64 69 '); READLN(radi
01B030: 75 73 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 us);..
01B040: 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 20 20 WRITELN;..
01B050: 20 20 20 20 72 75 6D 66 61 6E 67 20 3A 3D 20 50 rumfang := P
01B060: 49 20 2A 20 53 51 52 28 72 61 64 69 75 73 29 20 I * SQR(radius)
01B070: 2A 20 68 6F 65 6A 64 65 3B 20 0D 0A 20 20 20 20 * hoejde; ..
01B080: 20 20 20 20 20 20 57 52 49 54 45 4C 4E 28 27 43 WRITELN('C
01B090: 79 6C 69 6E 64 65 72 65 6E 73 20 72 75 6D 66 61 ylinderens rumfa
01B0A0: 6E 67 3A 20 27 2C 72 75 6D 66 61 6E 67 20 3A 20 ng: ',rumfang :
01B0B0: 31 30 20 3A 20 32 2C 20 27 20 63 6D 33 27 29 3B 10 : 2, ' cm3');
01B0C0: 0D 0A 20 20 20 20 20 20 20 20 45 4E 44 0D 0A 20 .. END..
01B0D0: 20 20 20 20 20 20 20 20 20 0D 0A 20 20 20 20 45 .. E
01B0E0: 4C 53 45 20 49 46 20 6F 65 6E 73 6B 65 20 3D 20 LSE IF oenske =
01B0F0: 33 0D 0A 20 20 20 20 20 20 54 48 45 4E 0D 0A 20 3.. THEN..
01B100: 20 20 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 BEGIN..
01B110: 20 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E 28 WRITELN(
01B120: 27 52 55 4D 46 41 4E 47 20 41 46 20 45 4E 20 50 'RUMFANG AF EN P
01B130: 59 52 41 4D 49 44 45 3A 27 29 3B 0D 0A 20 20 20 YRAMIDE:');..
01B140: 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E 28 27 WRITELN('
01B150: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
01B160: 2D 2D 2D 2D 2D 2D 2D 27 29 3B 0D 0A 20 20 20 20 -------');..
01B170: 20 20 20 20 20 20 57 52 49 54 45 4C 4E 3B 0D 0A WRITELN;..
01B180: 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 28 WRITE(
01B190: 27 49 6E 64 74 61 73 74 20 70 79 72 61 6D 69 64 'Indtast pyramid
01B1A0: 65 6E 73 20 68 7C 6A 64 65 3A 20 20 20 20 20 20 ens h|jde:
01B1B0: 27 29 3B 20 52 45 41 44 4C 4E 28 68 6F 65 6A 64 '); READLN(hoejd
01B1C0: 65 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 57 e);.. W
01B1D0: 52 49 54 45 28 27 49 6E 64 74 61 73 74 20 62 72 RITE('Indtast br
01B1E0: 65 64 64 65 6E 20 69 20 67 72 75 6E 64 66 6C 61 edden i grundfla
01B1F0: 64 65 6E 3A 20 27 29 3B 20 52 45 41 44 4C 4E 28 den: '); READLN(
01B200: 4E 20 4B 55 47 4C 45 3A 27 29 3B 0D 0A 20 20 20 N KUGLE:');..
01B210: 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E 28 27 WRITELN('
01B220: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
01B230: 2D 2D 2D 2D 27 29 3B 0D 0A 20 20 20 20 20 20 20 ----');..
01B240: 20 20 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 WRITELN;..
01B250: 20 20 20 20 20 20 20 57 52 49 54 45 28 27 49 6E WRITE('In
01B260: 64 74 61 73 74 20 6B 75 67 6C 65 6E 73 20 72 61 dtast kuglens ra
01B270: 64 69 75 73 3A 20 27 29 3B 20 52 45 41 44 4C 4E dius: '); READLN
01B280: 28 72 61 64 69 75 73 29 3B 0D 0A 20 20 20 20 20 (radius);..
01B290: 20 20 20 20 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 WRITELN;..
01B2A0: 20 20 20 20 20 20 20 20 20 72 75 6D 66 61 6E 67 rumfang
01B2B0: 20 3A 3D 20 34 20 2A 20 50 49 20 2A 20 72 61 64 := 4 * PI * rad
01B2C0: 69 75 73 20 2A 20 72 61 64 69 75 73 20 2A 20 72 ius * radius * r
01B2D0: 61 64 69 75 73 20 2F 20 33 3B 0D 0A 20 20 20 20 adius / 3;..
01B2E0: 20 20 20 20 20 20 57 52 49 54 45 4C 4E 28 27 4B WRITELN('K
01B2F0: 75 67 6C 65 6E 73 20 72 75 6D 66 61 6E 67 3A 20 uglens rumfang:
01B300: 27 2C 20 72 75 6D 66 61 6E 67 20 3A 20 31 30 20 ', rumfang : 10
01B310: 3A 20 32 2C 20 27 20 63 6D 33 27 29 3B 0D 0A 20 : 2, ' cm3');..
01B320: 20 20 20 20 20 20 20 45 4E 44 0D 0A 20 20 20 20 END..
01B330: 0D 0A 20 20 20 20 45 4C 53 45 20 49 46 20 6F 65 .. ELSE IF oe
01B340: 6E 73 6B 65 20 3D 20 38 0D 0A 20 20 20 20 20 20 nske = 8..
01B350: 54 48 45 4E 0D 0A 20 20 20 20 20 20 20 20 42 45 THEN.. BE
01B360: 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 47 GIN.. G
01B370: 4F 54 4F 58 59 28 32 30 2C 20 31 32 29 3B 0D 0A OTOXY(20, 12);..
01B380: 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 28 WRITE(
01B390: 27 53 7D 20 73 6C 75 74 74 65 72 20 76 69 20 66 'S} slutter vi f
01B3A0: 6F 72 20 69 20 64 61 67 21 27 29 3B 0D 0A 20 20 or i dag!');..
01B3B0: 20 20 20 20 20 20 20 20 47 4F 54 4F 58 59 28 32 GOTOXY(2
01B3C0: 30 2C 20 31 33 29 3B 0D 0A 20 20 20 20 20 20 20 0, 13);..
01B3D0: 20 20 20 57 52 49 54 45 28 27 2D 2D 2D 2D 2D 2D WRITE('------
01B3E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
01B3F0: 2D 2D 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 --');..
01B400: 62 72 65 64 64 65 29 3B 0D 0A 20 20 20 20 20 20 bredde);..
01B410: 20 20 20 20 57 52 49 54 45 28 27 49 6E 64 74 61 WRITE('Indta
01B420: 73 74 20 6C 7B 6E 67 64 65 6E 20 69 20 67 72 75 st l{ngden i gru
01B430: 6E 64 66 6C 61 64 65 6E 3A 20 27 29 3B 20 52 45 ndfladen: '); RE
01B440: 41 44 4C 4E 28 6C 61 65 6E 67 64 65 29 3B 0D 0A ADLN(laengde);..
01B450: 20 20 20 20 20 20 20 20 20 20 72 75 6D 66 61 6E rumfan
01B460: 67 20 3A 3D 20 68 6F 65 6A 64 65 20 2A 20 6C 61 g := hoejde * la
01B470: 65 6E 67 64 65 20 2A 20 62 72 65 64 64 65 20 2F engde * bredde /
01B480: 20 33 20 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 3 ;..
01B490: 57 52 49 54 45 4C 4E 28 27 50 79 72 61 6D 69 64 WRITELN('Pyramid
01B4A0: 65 6E 73 20 72 75 6D 66 61 6E 67 3A 20 27 2C 20 ens rumfang: ',
01B4B0: 72 75 6D 66 61 6E 67 20 3A 20 31 30 20 3A 20 32 rumfang : 10 : 2
01B4C0: 2C 20 27 20 63 6D 33 27 29 3B 0D 0A 20 20 20 20 , ' cm3');..
01B4D0: 20 20 20 20 45 4E 44 0D 0A 20 20 20 20 0D 0A 20 END.. ..
01B4E0: 20 20 20 45 4C 53 45 20 49 46 20 6F 65 6E 73 6B ELSE IF oensk
01B4F0: 65 20 3D 20 34 0D 0A 20 20 20 20 20 20 54 48 45 e = 4.. THE
01B500: 4E 0D 0A 20 20 20 20 20 20 20 20 42 45 47 49 4E N.. BEGIN
01B510: 0D 0A 20 20 20 20 20 20 20 20 20 20 57 52 49 54 .. WRIT
01B520: 45 4C 4E 28 27 52 55 4D 46 41 4E 47 20 41 46 20 ELN('RUMFANG AF
01B530: 45 4E 20 50 59 52 41 4D 49 44 45 53 54 55 42 3A EN PYRAMIDESTUB:
01B540: 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 57 ');.. W
01B550: 52 49 54 45 4C 4E 28 27 2D 2D 2D 2D 2D 2D 2D 2D RITELN('--------
01B560: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
01B570: 2D 2D 2D 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 ---');..
01B580: 20 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 WRITELN;..
01B590: 20 20 20 20 20 20 57 52 49 54 45 28 27 49 6E 64 WRITE('Ind
01B5A0: 74 61 73 74 20 62 72 65 64 64 65 20 69 20 64 65 tast bredde i de
01B5B0: 6E 20 7C 76 65 72 73 74 65 20 66 6C 61 64 65 3A n |verste flade:
01B5C0: 20 20 27 29 3B 20 52 45 41 44 4C 4E 28 62 31 29 '); READLN(b1)
01B5D0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 57 52 49 ;.. WRI
01B5E0: 54 45 28 27 49 6E 64 74 61 73 74 20 6C 7B 6E 67 TE('Indtast l{ng
01B5F0: 64 65 20 69 20 64 65 6E 20 7C 76 65 72 73 74 65 de i den |verste
01B600: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
01B610: 17 00 01 00 02 09 52 E5 17 00 41 02 00 00 00 02 ......R...A.....
01B620: 17 00 46 02 00 00 00 02 17 00 42 02 00 00 00 02 ..F.......B.....
01B630: 17 00 47 02 00 00 00 02 17 00 43 02 00 00 00 02 ..G.......C.....
01B640: 17 00 48 02 00 00 00 02 17 00 44 02 00 00 00 02 ..H.......D.....
01B650: 17 00 49 02 00 00 00 02 17 00 45 02 00 00 00 02 ..I.......E.....
01B660: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B670: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B680: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B690: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B6A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B6B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B6C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B6D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B6E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B6F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B700: 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 20 WRITELN;..
01B710: 20 20 20 45 4E 44 20 0D 0A 0D 0A 20 20 20 20 45 END .... E
01B720: 4C 53 45 0D 0A 20 20 20 20 20 20 57 52 49 54 45 LSE.. WRITE
01B730: 4C 4E 28 27 44 75 20 68 61 72 20 74 61 73 74 65 LN('Du har taste
01B740: 74 20 66 6F 72 6B 65 72 74 21 20 50 72 7C 76 20 t forkert! Pr|v
01B750: 69 67 65 6E 21 27 29 3B 0D 0A 20 20 20 20 0D 0A igen!');.. ..
01B760: 20 20 20 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 WRITELN;..
01B770: 45 4E 44 2E 0D 0A 1A 20 20 20 20 20 20 20 20 20 END....
01B780: 00 42 55 42 42 4C 45 33 20 50 59 53 7F 00 05 00 .BUBBLE3 PYS....
01B790: B0 F8 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B7A0: 00 43 45 4C 53 49 55 53 20 50 59 53 84 00 03 00 .CELSIUS PYS....
01B7B0: 14 F6 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B7C0: 00 43 48 45 43 4B 31 20 20 50 59 53 87 00 05 00 .CHECK1 PYS....
01B7D0: 8F 4D 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .M..............
01B7E0: 00 43 48 45 43 4B 32 20 20 50 59 53 8C 00 04 00 .CHECK2 PYS....
01B7F0: 7B B8 00 00 00 00 00 00 00 00 00 00 00 00 00 00 {...............
01B800: 00 43 48 45 43 4B 33 20 20 50 59 53 90 00 03 00 .CHECK3 PYS....
01B810: 72 02 00 00 00 00 00 00 00 00 00 00 00 00 00 00 r...............
01B820: 00 43 50 52 20 20 20 20 20 50 59 53 93 00 08 00 .CPR PYS....
01B830: 0C FA 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B840: 00 43 50 52 44 41 54 4F 20 50 59 53 9B 00 05 00 .CPRDATO PYS....
01B850: 01 65 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .e..............
01B860: 00 43 50 52 44 41 54 4F 32 50 59 53 A0 00 06 00 .CPRDATO2PYS....
01B870: 0F DF 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B880: 00 43 50 52 4E 55 4D 52 45 50 59 53 A6 00 04 00 .CPRNUMREPYS....
01B890: 40 EA 00 00 00 00 00 00 00 00 00 00 00 00 00 00 @...............
01B8A0: 00 43 52 41 50 53 32 20 20 50 59 53 AA 00 05 00 .CRAPS2 PYS....
01B8B0: 86 3F 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .?..............
01B8C0: 00 44 45 4D 4F 4C 45 4E 20 50 59 53 AF 00 02 00 .DEMOLEN PYS....
01B8D0: FA 90 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B8E0: 00 44 45 4D 4F 5F 53 54 52 50 59 53 B1 00 02 00 .DEMO_STRPYS....
01B8F0: 86 10 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B900: 61 64 65 6E 3A 20 27 29 3B 20 52 45 41 44 4C 4E aden: '); READLN
01B910: 28 6C 61 65 6E 67 64 65 29 3B 0D 0A 20 20 20 20 (laengde);..
01B920: 20 20 20 20 20 20 20 72 75 6D 66 61 6E 67 20 3A rumfang :
01B930: 3D 20 68 6F 65 6A 64 65 20 2A 20 6C 61 65 6E 67 = hoejde * laeng
01B940: 64 65 20 2A 20 62 72 65 64 64 65 20 2F 20 33 20 de * bredde / 3
01B950: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 57 52 ;.. WR
01B960: 49 54 45 4C 4E 28 27 50 79 72 61 6D 69 64 65 6E ITELN('Pyramiden
01B970: 73 20 72 75 6D 66 61 6E 67 3A 20 27 2C 20 72 75 s rumfang: ', ru
01B980: 6D 66 61 6E 67 20 3A 20 31 30 20 3A 20 32 2C 20 mfang : 10 : 2,
01B990: 27 20 63 6D 33 27 29 3B 0D 0A 20 20 20 20 20 20 ' cm3');..
01B9A0: 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 0D 0A END;.. ..
01B9B0: 20 20 20 20 20 20 34 3A 20 42 45 47 49 4E 0D 0A 4: BEGIN..
01B9C0: 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 WRITE
01B9D0: 4C 4E 28 27 52 55 4D 46 41 4E 47 20 41 46 20 45 LN('RUMFANG AF E
01B9E0: 4E 20 50 59 52 41 4D 49 44 45 53 54 55 42 3A 27 N PYRAMIDESTUB:'
01B9F0: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 57 );.. W
01BA00: 52 49 54 45 4C 4E 28 27 2D 2D 2D 2D 2D 2D 2D 2D RITELN('--------
01BA10: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
01BA20: 2D 2D 2D 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 ---');..
01BA30: 20 20 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 WRITELN;..
01BA40: 20 20 20 20 20 20 20 20 57 52 49 54 45 28 27 49 WRITE('I
01BA50: 6E 64 74 61 73 74 20 62 72 65 64 64 65 20 69 20 ndtast bredde i
01BA60: 64 65 6E 20 7C 76 65 72 73 74 65 20 66 6C 61 64 den |verste flad
01BA70: 65 3A 20 20 27 29 3B 20 52 45 41 44 4C 4E 28 62 e: '); READLN(b
01BA80: 31 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 1);..
01BA90: 57 52 49 54 45 28 27 49 6E 64 74 61 73 74 20 6C WRITE('Indtast l
01BAA0: 7B 6E 67 64 65 20 69 20 64 65 6E 20 7C 76 65 72 {ngde i den |ver
01BAB0: 73 74 65 20 66 6C 61 64 65 3A 20 20 27 29 3B 20 ste flade: ');
01BAC0: 52 45 41 44 4C 4E 28 6C 31 29 3B 0D 0A 20 20 20 READLN(l1);..
01BAD0: 20 20 20 20 20 20 20 20 57 52 49 54 45 28 27 49 WRITE('I
01BAE0: 6E 64 74 61 73 74 20 70 79 72 61 6D 69 64 65 73 ndtast pyramides
01BAF0: 74 75 62 62 65 6E 73 20 68 7C 6A 64 65 3A 20 20 tubbens h|jde:
01BB00: 50 52 4F 47 52 41 4D 20 72 75 6D 66 5F 32 3B 0D PROGRAM rumf_2;.
01BB10: 0A 20 0D 0A 20 20 56 41 52 0D 0A 20 20 20 20 6F . .. VAR.. o
01BB20: 65 6E 73 6B 65 20 3A 20 49 4E 54 45 47 45 52 3B enske : INTEGER;
01BB30: 20 20 20 20 20 20 20 20 0D 0A 20 20 20 20 6C 61 .. la
01BB40: 65 6E 67 64 65 2C 20 62 72 65 64 64 65 2C 20 68 engde, bredde, h
01BB50: 6F 65 6A 64 65 2C 20 72 75 6D 66 61 6E 67 20 3A oejde, rumfang :
01BB60: 20 52 45 41 4C 3B 0D 0A 20 20 20 20 72 61 64 69 REAL;.. radi
01BB70: 75 73 2C 20 72 31 2C 20 72 32 2C 20 62 31 2C 20 us, r1, r2, b1,
01BB80: 62 32 2C 20 6C 31 2C 20 6C 32 2C 20 68 20 3A 20 b2, l1, l2, h :
01BB90: 52 45 41 4C 3B 0D 0A 20 20 20 20 0D 0A 20 20 42 REAL;.. .. B
01BBA0: 45 47 49 4E 0D 0A 20 20 20 20 57 52 49 54 45 28 EGIN.. WRITE(
01BBB0: 43 4C 52 48 4F 4D 29 3B 0D 0A 20 20 20 20 57 52 CLRHOM);.. WR
01BBC0: 49 54 45 4C 4E 28 27 52 20 55 20 4D 20 46 20 41 ITELN('R U M F A
01BBD0: 20 4E 20 47 20 20 20 41 20 46 20 3A 27 29 3B 0D N G A F :');.
01BBE0: 0A 20 20 20 20 57 52 49 54 45 4C 4E 28 27 2D 2D . WRITELN('--
01BBF0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
01BC00: 2D 2D 2D 27 29 3B 0D 0A 20 20 20 20 57 52 49 54 ---');.. WRIT
01BC10: 45 4C 4E 3B 0D 0A 20 20 20 20 57 52 49 54 45 4C ELN;.. WRITEL
01BC20: 4E 28 27 4B 41 53 53 45 20 2E 2E 2E 2E 2E 2E 2E N('KASSE .......
01BC30: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 20 74 .............. t
01BC40: 61 73 74 20 31 27 29 3B 0D 0A 20 20 20 20 57 52 ast 1');.. WR
01BC50: 49 54 45 4C 4E 28 27 43 59 4C 49 4E 44 45 52 20 ITELN('CYLINDER
01BC60: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E ................
01BC70: 2E 2E 20 74 61 73 74 20 32 27 29 3B 0D 0A 20 20 .. tast 2');..
01BC80: 20 20 57 52 49 54 45 4C 4E 28 27 50 59 52 41 4D WRITELN('PYRAM
01BC90: 49 44 45 20 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E IDE ............
01BCA0: 2E 2E 2E 2E 2E 2E 20 74 61 73 74 20 33 27 29 3B ...... tast 3');
01BCB0: 0D 0A 20 20 20 20 57 52 49 54 45 4C 4E 28 27 50 .. WRITELN('P
01BCC0: 59 52 41 4D 49 44 45 53 54 55 42 20 2E 2E 2E 2E YRAMIDESTUB ....
01BCD0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 20 74 61 73 74 20 .......... tast
01BCE0: 34 27 29 3B 0D 0A 20 20 20 20 57 52 49 54 45 4C 4');.. WRITEL
01BCF0: 4E 28 27 4B 45 47 4C 45 20 2E 2E 2E 2E 2E 2E 2E N('KEGLE .......
01BD00: 20 20 20 20 27 29 3B 20 52 45 41 44 4C 4E 28 68 '); READLN(h
01BD10: 29 3B 20 0D 0A 20 20 20 20 20 20 20 20 20 20 20 ); ..
01BD20: 57 52 49 54 45 28 27 49 6E 64 74 61 73 74 20 62 WRITE('Indtast b
01BD30: 72 65 64 64 65 20 69 20 64 65 6E 20 6E 65 64 65 redde i den nede
01BD40: 72 73 74 65 20 66 6C 61 64 65 3A 20 27 29 3B 20 rste flade: ');
01BD50: 52 45 41 44 4C 4E 28 62 32 29 3B 0D 0A 20 20 20 READLN(b2);..
01BD60: 20 20 20 20 20 20 20 20 57 52 49 54 45 28 27 49 WRITE('I
01BD70: 6E 64 74 61 73 74 20 6C 7B 6E 67 64 65 20 69 20 ndtast l{ngde i
01BD80: 64 65 6E 20 6E 65 64 65 72 73 74 65 20 66 6C 61 den nederste fla
01BD90: 64 65 3A 20 27 29 3B 20 52 45 41 44 4C 4E 28 6C de: '); READLN(l
01BDA0: 32 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 2);..
01BDB0: 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 20 20 WRITELN;..
01BDC0: 20 20 20 20 20 72 75 6D 66 61 6E 67 20 3A 3D 20 rumfang :=
01BDD0: 28 6C 31 20 2A 20 62 31 20 2B 20 6C 32 20 2A 20 (l1 * b1 + l2 *
01BDE0: 62 32 20 2B 20 53 51 52 54 28 6C 31 20 2A 20 62 b2 + SQRT(l1 * b
01BDF0: 31 20 2A 20 6C 32 20 2A 20 62 32 29 29 20 2A 20 1 * l2 * b2)) *
01BE00: 68 20 2F 20 33 3B 0D 0A 20 20 20 20 20 20 20 20 h / 3;..
01BE10: 20 20 20 57 52 49 54 45 4C 4E 28 27 50 79 72 61 WRITELN('Pyra
01BE20: 6D 69 64 65 73 74 75 62 62 65 6E 73 20 72 75 6D midestubbens rum
01BE30: 66 61 6E 67 3A 20 27 2C 20 72 75 6D 66 61 6E 67 fang: ', rumfang
01BE40: 20 3A 20 31 30 20 3A 20 32 2C 20 27 20 63 6D 33 : 10 : 2, ' cm3
01BE50: 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 45 4E ');.. EN
01BE60: 44 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 0D D;.. .
01BE70: 0A 20 20 20 20 20 20 35 3A 20 42 45 47 49 4E 0D . 5: BEGIN.
01BE80: 0A 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 . WRIT
01BE90: 45 4C 4E 28 27 52 55 4D 46 41 4E 47 20 41 46 20 ELN('RUMFANG AF
01BEA0: 45 4E 20 4B 45 47 4C 45 3A 27 29 3B 0D 0A 20 20 EN KEGLE:');..
01BEB0: 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E WRITELN
01BEC0: 28 27 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ('--------------
01BED0: 2D 2D 2D 2D 2D 2D 27 29 3B 0D 0A 20 20 20 20 20 ------');..
01BEE0: 20 20 20 20 20 20 57 52 49 54 45 4C 4E 3B 0D 0A WRITELN;..
01BEF0: 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 WRITE
01BF00: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 20 74 .............. t
01BF10: 61 73 74 20 35 27 29 3B 0D 0A 20 20 20 20 57 52 ast 5');.. WR
01BF20: 49 54 45 4C 4E 28 27 4B 45 47 4C 45 53 54 55 42 ITELN('KEGLESTUB
01BF30: 20 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E ...............
01BF40: 2E 2E 20 74 61 73 74 20 36 27 29 3B 0D 0A 20 20 .. tast 6');..
01BF50: 20 20 57 52 49 54 45 4C 4E 28 27 4B 55 47 4C 45 WRITELN('KUGLE
01BF60: 20 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E ...............
01BF70: 2E 2E 2E 2E 2E 2E 20 74 61 73 74 20 37 27 29 3B ...... tast 7');
01BF80: 0D 0A 20 20 20 20 57 52 49 54 45 4C 4E 28 27 53 .. WRITELN('S
01BF90: 4C 55 54 20 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E LUT ............
01BFA0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 20 74 61 73 74 20 .......... tast
01BFB0: 38 27 29 3B 20 20 20 20 20 20 20 0D 0A 20 20 20 8'); ..
01BFC0: 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 57 WRITELN;.. W
01BFD0: 52 49 54 45 28 27 49 6E 64 74 61 73 74 20 7C 6E RITE('Indtast |n
01BFE0: 73 6B 65 3A 20 27 29 3B 20 52 45 41 44 4C 4E 28 ske: '); READLN(
01BFF0: 6F 65 6E 73 6B 65 29 3B 0D 0A 20 20 20 20 57 52 oenske);.. WR
01C000: 49 54 45 28 43 4C 52 48 4F 4D 29 3B 0D 0A 20 20 ITE(CLRHOM);..
01C010: 20 20 0D 0A 20 20 20 20 43 41 53 45 20 6F 65 6E .. CASE oen
01C020: 73 6B 65 20 4F 46 0D 0A 0D 0A 20 20 20 20 20 20 ske OF....
01C030: 31 3A 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 20 1: BEGIN..
01C040: 20 20 20 20 20 57 52 49 54 45 4C 4E 28 27 52 55 WRITELN('RU
01C050: 4D 46 41 4E 47 20 41 46 20 45 4E 20 4B 41 53 53 MFANG AF EN KASS
01C060: 45 3A 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 E:');..
01C070: 20 20 57 52 49 54 45 4C 4E 28 27 2D 2D 2D 2D 2D WRITELN('-----
01C080: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 27 ---------------'
01C090: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 57 );.. W
01C0A0: 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 20 20 20 RITELN;..
01C0B0: 20 20 20 20 57 52 49 54 45 28 27 49 6E 64 74 61 WRITE('Indta
01C0C0: 73 74 20 6B 61 73 73 65 6E 73 20 62 72 65 64 64 st kassens bredd
01C0D0: 65 3A 20 27 29 3B 20 52 45 41 44 4C 4E 28 62 72 e: '); READLN(br
01C0E0: 65 64 64 65 29 3B 0D 0A 20 20 20 20 20 20 20 20 edde);..
01C0F0: 20 20 20 57 52 49 54 45 28 27 49 6E 64 74 61 73 WRITE('Indtas
01C100: 28 27 49 6E 64 74 61 73 74 20 6B 65 67 6C 65 6E ('Indtast keglen
01C110: 73 20 68 7C 6A 64 65 3A 20 27 29 3B 20 52 45 41 s h|jde: '); REA
01C120: 44 4C 4E 28 68 6F 65 6A 64 65 29 3B 0D 0A 20 20 DLN(hoejde);..
01C130: 20 20 20 20 20 20 20 20 20 57 52 49 54 45 28 27 WRITE('
01C140: 49 6E 64 74 61 73 74 20 72 61 64 69 75 73 3A 20 Indtast radius:
01C150: 20 20 20 20 20 20 20 27 29 3B 20 52 45 41 44 4C '); READL
01C160: 4E 28 72 61 64 69 75 73 29 3B 0D 0A 20 20 20 20 N(radius);..
01C170: 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E 3B 0D WRITELN;.
01C180: 0A 20 20 20 20 20 20 20 20 20 20 20 72 75 6D 66 . rumf
01C190: 61 6E 67 20 3A 3D 20 50 49 20 2A 20 53 51 52 28 ang := PI * SQR(
01C1A0: 72 61 64 69 75 73 29 20 2A 20 68 6F 65 6A 64 65 radius) * hoejde
01C1B0: 20 2F 20 33 20 3B 20 0D 0A 20 20 20 20 20 20 20 / 3 ; ..
01C1C0: 20 20 20 20 57 52 49 54 45 4C 4E 28 27 4B 65 67 WRITELN('Keg
01C1D0: 6C 65 6E 73 20 72 75 6D 66 61 6E 67 3A 20 27 2C lens rumfang: ',
01C1E0: 20 72 75 6D 66 61 6E 67 20 3A 20 31 30 20 3A 20 rumfang : 10 :
01C1F0: 32 2C 20 27 20 63 6D 33 27 29 3B 0D 0A 20 20 20 2, ' cm3');..
01C200: 20 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 END;..
01C210: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0D .
01C220: 0A 20 20 20 20 20 20 36 3A 20 42 45 47 49 4E 0D . 6: BEGIN.
01C230: 0A 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 . WRIT
01C240: 45 4C 4E 28 27 52 55 4D 46 41 4E 47 20 41 46 20 ELN('RUMFANG AF
01C250: 45 4E 20 4B 45 47 4C 45 53 54 55 42 3A 27 29 3B EN KEGLESTUB:');
01C260: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 57 52 49 .. WRI
01C270: 54 45 4C 4E 28 27 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D TELN('----------
01C280: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 27 29 --------------')
01C290: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 57 52 ;.. WR
01C2A0: 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 20 20 20 20 ITELN;..
01C2B0: 20 20 20 57 52 49 54 45 28 27 49 6E 64 74 61 73 WRITE('Indtas
01C2C0: 74 20 6B 65 67 6C 65 73 74 75 62 62 65 6E 73 20 t keglestubbens
01C2D0: 68 7C 6A 64 65 3A 20 20 20 20 20 20 27 29 3B 20 h|jde: ');
01C2E0: 52 45 41 44 4C 4E 28 68 6F 65 6A 64 65 29 3B 0D READLN(hoejde);.
01C2F0: 0A 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 . WRIT
01C300: 74 20 6B 61 73 73 65 6E 73 20 6C 7B 6E 67 64 65 t kassens l{ngde
01C310: 3A 20 27 29 3B 20 52 45 41 44 4C 4E 28 6C 61 65 : '); READLN(lae
01C320: 6E 67 64 65 29 3B 0D 0A 20 20 20 20 20 20 20 20 ngde);..
01C330: 20 20 20 57 52 49 54 45 28 27 49 6E 64 74 61 73 WRITE('Indtas
01C340: 74 20 6B 61 73 73 65 6E 73 20 68 6F 65 6A 64 65 t kassens hoejde
01C350: 3A 20 27 29 3B 20 52 45 41 44 4C 4E 28 68 6F 65 : '); READLN(hoe
01C360: 6A 64 65 29 3B 20 0D 0A 20 20 20 20 20 20 20 20 jde); ..
01C370: 20 20 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 WRITELN;..
01C380: 20 20 20 20 20 20 20 20 72 75 6D 66 61 6E 67 20 rumfang
01C390: 3A 3D 20 6C 61 65 6E 67 64 65 20 2A 20 62 72 65 := laengde * bre
01C3A0: 64 64 65 20 2A 20 68 6F 65 6A 64 65 3B 20 0D 0A dde * hoejde; ..
01C3B0: 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 WRITE
01C3C0: 4C 4E 28 27 4B 61 73 73 65 6E 73 20 72 75 6D 66 LN('Kassens rumf
01C3D0: 61 6E 67 20 65 72 3A 20 27 2C 20 72 75 6D 66 61 ang er: ', rumfa
01C3E0: 6E 67 20 3A 20 31 30 20 3A 20 32 2C 20 27 20 63 ng : 10 : 2, ' c
01C3F0: 6D 33 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 m3');..
01C400: 45 4E 44 3B 0D 0A 20 20 20 20 20 20 20 20 20 0D END;.. .
01C410: 0A 20 20 20 20 20 20 32 3A 20 42 45 47 49 4E 0D . 2: BEGIN.
01C420: 0A 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 . WRIT
01C430: 45 4C 4E 28 27 52 55 4D 46 41 4E 47 20 41 46 20 ELN('RUMFANG AF
01C440: 45 4E 20 43 59 4C 49 4E 44 45 52 3A 27 29 3B 0D EN CYLINDER:');.
01C450: 0A 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 . WRIT
01C460: 45 4C 4E 28 27 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ELN('-----------
01C470: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 27 29 3B 0D ------------');.
01C480: 0A 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 . WRIT
01C490: 45 4C 4E 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 ELN;..
01C4A0: 20 57 52 49 54 45 28 27 49 6E 64 74 61 73 74 20 WRITE('Indtast
01C4B0: 63 79 6C 69 6E 64 65 72 65 6E 73 20 68 7C 6A 64 cylinderens h|jd
01C4C0: 65 3A 20 27 29 3B 20 52 45 41 44 4C 4E 28 68 6F e: '); READLN(ho
01C4D0: 65 6A 64 65 29 3B 0D 0A 20 20 20 20 20 20 20 20 ejde);..
01C4E0: 20 20 20 57 52 49 54 45 28 27 49 6E 64 74 61 73 WRITE('Indtas
01C4F0: 74 20 72 61 64 69 75 73 3A 20 20 20 20 20 20 20 t radius:
01C500: 45 28 27 49 6E 64 74 61 73 74 20 72 61 64 69 75 E('Indtast radiu
01C510: 73 20 69 20 7C 76 65 72 73 74 65 20 63 69 72 6B s i |verste cirk
01C520: 65 6C 3A 20 20 27 29 3B 20 52 45 41 44 4C 4E 28 el: '); READLN(
01C530: 72 31 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 r1);..
01C540: 20 57 52 49 54 45 28 27 49 6E 64 74 61 73 74 20 WRITE('Indtast
01C550: 72 61 64 69 75 73 20 69 20 6E 65 64 65 72 73 74 radius i nederst
01C560: 65 20 63 69 72 6B 65 6C 3A 20 27 29 3B 20 52 45 e cirkel: '); RE
01C570: 41 44 4C 4E 28 72 32 29 3B 0D 0A 20 20 20 20 20 ADLN(r2);..
01C580: 20 20 20 20 20 20 57 52 49 54 45 4C 4E 3B 0D 0A WRITELN;..
01C590: 20 20 20 20 20 20 20 20 20 20 20 72 75 6D 66 61 rumfa
01C5A0: 6E 67 20 3A 3D 20 50 49 20 2A 20 68 6F 65 6A 64 ng := PI * hoejd
01C5B0: 65 20 2A 20 28 53 51 52 28 72 31 29 20 2B 20 53 e * (SQR(r1) + S
01C5C0: 51 52 28 72 32 29 20 2B 20 72 31 20 2A 20 72 32 QR(r2) + r1 * r2
01C5D0: 29 20 2F 20 33 20 3B 20 0D 0A 20 20 20 20 20 20 ) / 3 ; ..
01C5E0: 20 20 20 20 20 57 52 49 54 45 4C 4E 28 27 4B 65 WRITELN('Ke
01C5F0: 67 6C 65 73 74 75 62 62 65 6E 73 20 72 75 6D 66 glestubbens rumf
01C600: 61 6E 67 3A 20 27 2C 20 72 75 6D 66 61 6E 67 20 ang: ', rumfang
01C610: 3A 20 31 30 20 3A 20 32 2C 20 27 20 63 6D 33 27 : 10 : 2, ' cm3'
01C620: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 45 4E 44 );.. END
01C630: 3B 0D 0A 20 20 20 20 20 0D 0A 20 20 20 20 20 20 ;.. ..
01C640: 37 3A 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 20 7: BEGIN..
01C650: 20 20 20 20 20 57 52 49 54 45 4C 4E 28 27 52 55 WRITELN('RU
01C660: 4D 46 41 4E 47 20 41 46 20 45 4E 20 4B 55 47 4C MFANG AF EN KUGL
01C670: 45 3A 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 E:');..
01C680: 20 20 57 52 49 54 45 4C 4E 28 27 2D 2D 2D 2D 2D WRITELN('-----
01C690: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 27 ---------------'
01C6A0: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 57 );.. W
01C6B0: 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 20 20 20 RITELN;..
01C6C0: 20 20 20 20 57 52 49 54 45 28 27 49 6E 64 74 61 WRITE('Indta
01C6D0: 73 74 20 6B 75 67 6C 65 6E 73 20 72 61 64 69 75 st kuglens radiu
01C6E0: 73 3A 20 27 29 3B 20 52 45 41 44 4C 4E 28 72 61 s: '); READLN(ra
01C6F0: 64 69 75 73 29 3B 0D 0A 20 20 20 20 20 20 20 20 dius);..
01C700: 20 20 20 20 20 27 29 3B 20 52 45 41 44 4C 4E 28 '); READLN(
01C710: 72 61 64 69 75 73 29 3B 0D 0A 20 20 20 20 20 20 radius);..
01C720: 20 20 20 20 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 WRITELN;..
01C730: 20 20 20 20 20 20 20 20 20 20 72 75 6D 66 61 6E rumfan
01C740: 67 20 3A 3D 20 50 49 20 2A 20 53 51 52 28 72 61 g := PI * SQR(ra
01C750: 64 69 75 73 29 20 2A 20 68 6F 65 6A 64 65 3B 20 dius) * hoejde;
01C760: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 57 52 49 .. WRI
01C770: 54 45 4C 4E 28 27 43 79 6C 69 6E 64 65 72 65 6E TELN('Cylinderen
01C780: 73 20 72 75 6D 66 61 6E 67 3A 20 27 2C 72 75 6D s rumfang: ',rum
01C790: 66 61 6E 67 20 3A 20 31 30 20 3A 20 32 2C 20 27 fang : 10 : 2, '
01C7A0: 20 63 6D 33 27 29 3B 0D 0A 20 20 20 20 20 20 20 cm3');..
01C7B0: 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 20 20 END;..
01C7C0: 20 20 0D 0A 20 20 20 20 20 20 33 3A 20 42 45 47 .. 3: BEG
01C7D0: 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 57 IN.. W
01C7E0: 52 49 54 45 4C 4E 28 27 52 55 4D 46 41 4E 47 20 RITELN('RUMFANG
01C7F0: 41 46 20 45 4E 20 50 59 52 41 4D 49 44 45 3A 27 AF EN PYRAMIDE:'
01C800: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 57 );.. W
01C810: 52 49 54 45 4C 4E 28 27 2D 2D 2D 2D 2D 2D 2D 2D RITELN('--------
01C820: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 27 ---------------'
01C830: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 57 );.. W
01C840: 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 20 20 20 RITELN;..
01C850: 20 20 20 20 57 52 49 54 45 28 27 49 6E 64 74 61 WRITE('Indta
01C860: 73 74 20 70 79 72 61 6D 69 64 65 6E 73 20 68 7C st pyramidens h|
01C870: 6A 64 65 3A 20 20 20 20 20 20 27 29 3B 20 52 45 jde: '); RE
01C880: 41 44 4C 4E 28 68 6F 65 6A 64 65 29 3B 0D 0A 20 ADLN(hoejde);..
01C890: 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 28 WRITE(
01C8A0: 27 49 6E 64 74 61 73 74 20 62 72 65 64 64 65 6E 'Indtast bredden
01C8B0: 20 69 20 67 72 75 6E 64 66 6C 61 64 65 6E 3A 20 i grundfladen:
01C8C0: 27 29 3B 20 52 45 41 44 4C 4E 28 62 72 65 64 64 '); READLN(bredd
01C8D0: 65 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 e);..
01C8E0: 57 52 49 54 45 28 27 49 6E 64 74 61 73 74 20 6C WRITE('Indtast l
01C8F0: 7B 6E 67 64 65 6E 20 69 20 67 72 75 6E 64 66 6C {ngden i grundfl
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 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 WRITELN;..
01CA10: 20 20 20 20 20 20 20 20 72 75 6D 66 61 6E 67 20 rumfang
01CA20: 3A 3D 20 34 20 2A 20 50 49 20 2A 20 72 61 64 69 := 4 * PI * radi
01CA30: 75 73 20 2A 20 72 61 64 69 75 73 20 2A 20 72 61 us * radius * ra
01CA40: 64 69 75 73 20 2F 20 33 3B 0D 0A 20 20 20 20 20 dius / 3;..
01CA50: 20 20 20 20 20 20 57 52 49 54 45 4C 4E 28 27 4B WRITELN('K
01CA60: 75 67 6C 65 6E 73 20 72 75 6D 66 61 6E 67 3A 20 uglens rumfang:
01CA70: 27 2C 20 72 75 6D 66 61 6E 67 20 3A 20 31 30 20 ', rumfang : 10
01CA80: 3A 20 32 2C 20 27 20 63 6D 33 27 29 3B 0D 0A 20 : 2, ' cm3');..
01CA90: 20 20 20 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20 END;..
01CAA0: 20 20 20 0D 0A 20 20 20 20 20 20 38 3A 20 42 45 .. 8: BE
01CAB0: 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 GIN..
01CAC0: 47 4F 54 4F 58 59 28 32 30 2C 20 31 32 29 3B 0D GOTOXY(20, 12);.
01CAD0: 0A 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 . WRIT
01CAE0: 45 28 27 53 7D 20 73 6C 75 74 74 65 72 20 76 69 E('S} slutter vi
01CAF0: 20 66 6F 72 20 69 20 64 61 67 21 27 29 3B 0D 0A for i dag!');..
01CB00: 20 20 20 20 20 20 20 20 20 20 20 47 4F 54 4F 58 GOTOX
01CB10: 59 28 32 30 2C 20 31 33 29 3B 0D 0A 20 20 20 20 Y(20, 13);..
01CB20: 20 20 20 20 20 20 20 57 52 49 54 45 28 27 2D 2D WRITE('--
01CB30: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
01CB40: 2D 2D 2D 2D 2D 2D 27 29 3B 0D 0A 20 20 20 20 20 ------');..
01CB50: 20 20 20 20 20 20 57 52 49 54 45 4C 4E 3B 0D 0A WRITELN;..
01CB60: 20 20 20 20 20 20 20 20 20 45 4E 44 3B 0D 0A 20 END;..
01CB70: 20 20 20 20 20 0D 0A 20 20 20 20 4F 54 48 45 52 .. OTHER
01CB80: 57 49 53 45 0D 0A 20 20 20 20 20 20 57 52 49 54 WISE.. WRIT
01CB90: 45 4C 4E 28 27 44 75 20 68 61 72 20 74 61 73 74 ELN('Du har tast
01CBA0: 65 74 20 66 6F 72 6B 65 72 74 21 20 50 72 7C 76 et forkert! Pr|v
01CBB0: 20 69 67 65 6E 21 27 29 3B 0D 0A 20 20 20 20 45 igen!');.. E
01CBC0: 4E 44 3B 0D 0A 20 20 20 20 0D 0A 20 20 20 20 57 ND;.. .. W
01CBD0: 52 49 54 45 4C 4E 3B 0D 0A 20 20 45 4E 44 2E 0D RITELN;.. END..
01CBE0: 0A 1A 20 20 20 20 20 20 20 45 4E 44 3B 0D 0A 20 .. END;..
01CBF0: 20 20 20 20 20 0D 0A 20 20 20 20 4F 54 48 45 52 .. OTHER
01CC00: 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 46 4F END;.. FO
01CC10: 52 20 69 20 3A 3D 20 31 20 54 4F 20 35 20 44 4F R i := 1 TO 5 DO
01CC20: 0D 0A 20 20 20 20 20 20 20 20 57 52 49 54 45 28 .. WRITE(
01CC30: 73 63 6F 72 65 66 69 6C 2C 20 73 63 6F 72 65 29 scorefil, score)
01CC40: 3B 0D 0A 20 20 20 20 20 20 43 4C 4F 53 45 28 73 ;.. CLOSE(s
01CC50: 63 6F 72 65 66 69 6C 29 0D 0A 20 20 20 20 45 4E corefil).. EN
01CC60: 44 3B 20 28 2A 20 6F 70 72 65 74 20 2A 29 0D 0A D; (* opret *)..
01CC70: 20 20 0D 0A 20 20 50 52 4F 43 45 44 55 52 45 20 .. PROCEDURE
01CC80: 75 70 64 61 74 65 28 73 63 6F 72 65 20 3A 20 73 update(score : s
01CC90: 63 6F 72 65 74 79 70 65 29 3B 0D 0A 20 20 0D 0A coretype);.. ..
01CCA0: 20 20 20 20 54 59 50 45 0D 0A 20 20 20 20 20 20 TYPE..
01CCB0: 6C 69 73 74 65 74 79 70 65 20 3D 20 41 52 52 41 listetype = ARRA
01CCC0: 59 28 2E 31 20 2E 2E 20 36 2E 29 20 4F 46 20 73 Y(.1 .. 6.) OF s
01CCD0: 63 6F 72 65 74 79 70 65 3B 0D 0A 20 20 20 20 0D coretype;.. .
01CCE0: 0A 20 20 20 20 56 41 52 0D 0A 20 20 20 20 20 20 . VAR..
01CCF0: 6C 69 73 74 65 20 3A 20 6C 69 73 74 65 74 79 70 liste : listetyp
01CD00: 65 3B 0D 0A 20 20 20 20 20 20 62 79 74 20 3A 20 e;.. byt :
01CD10: 73 63 6F 72 65 74 79 70 65 3B 0D 0A 20 20 20 20 scoretype;..
01CD20: 20 20 69 20 3A 20 49 4E 54 45 47 45 52 3B 0D 0A i : INTEGER;..
01CD30: 20 20 20 20 0D 0A 20 20 20 20 42 45 47 49 4E 20 .. BEGIN
01CD40: 28 2A 20 75 70 64 61 74 65 20 2A 29 0D 0A 20 20 (* update *)..
01CD50: 20 20 20 20 41 53 53 49 47 4E 28 73 63 6F 72 65 ASSIGN(score
01CD60: 66 69 6C 2C 20 27 48 49 53 43 4F 52 45 2E 44 41 fil, 'HISCORE.DA
01CD70: 54 27 29 3B 0D 0A 20 20 20 20 20 20 52 45 53 45 T');.. RESE
01CD80: 54 28 73 63 6F 72 65 66 69 6C 29 3B 0D 0A 20 20 T(scorefil);..
01CD90: 20 20 20 20 46 4F 52 20 69 20 3A 3D 20 31 20 54 FOR i := 1 T
01CDA0: 4F 20 35 20 44 4F 0D 0A 20 20 20 20 20 20 20 20 O 5 DO..
01CDB0: 52 45 41 44 28 73 63 6F 72 65 66 69 6C 2C 20 6C READ(scorefil, l
01CDC0: 69 73 74 65 28 2E 69 2E 29 29 3B 0D 0A 20 20 20 iste(.i.));..
01CDD0: 20 20 20 43 4C 4F 53 45 28 73 63 6F 72 65 66 69 CLOSE(scorefi
01CDE0: 6C 29 3B 0D 0A 20 20 20 20 20 20 6C 69 73 74 65 l);.. liste
01CDF0: 28 2E 36 2E 29 20 3A 3D 20 73 63 6F 72 65 3B 0D (.6.) := score;.
01CE00: 04 03 78 05 02 0A 01 06 46 1F 55 58 02 06 D2 48 ..x.....F.UX...H
01CE10: 09 04 58 08 02 48 0A 03 58 08 02 48 09 04 2A 19 ..X..H..X..H..*.
01CE20: 04 46 79 56 58 0B 04 48 0E 04 58 08 04 48 05 03 .FyVX..H..X..H..
01CE30: 58 0C 02 48 06 03 2A 1C 02 46 D9 51 58 09 04 48 X..H..*..F.QX..H
01CE40: 11 02 58 0E 04 48 09 05 58 06 04 48 09 04 58 06 ..X..H..X..H..X.
01CE50: 02 48 07 04 2A 15 01 C6 2E 57 58 08 06 48 08 07 .H..*....WX..H..
01CE60: 58 02 02 88 2A 03 06 38 46 14 81 0C 02 00 AE 0E X...*..8F.......
01CE70: 2C F0 04 0E 80 C6 0E 92 46 FA 6A 46 BE A6 46 F0 ,.......F.jF..F.
01CE80: 88 46 C8 74 46 78 7E 46 32 9C 46 1E 6A 46 0A 88 .F.tFx~F2.F.jF..
01CE90: 46 14 B0 46 78 B7 46 5A 85 58 00 02 68 02 01 96 F..Fx.FZ.X..h...
01CEA0: 48 02 00 46 A4 8D 46 90 65 46 E0 5B C6 26 6F C6 H..F..F.eF.[.&o.
01CEB0: 26 B5 58 00 02 68 02 01 8F 48 02 00 46 E8 B7 46 &.X..h...H..F..F
01CEC0: 84 A3 46 5C 5D 46 48 B7 04 40 A9 D5 8D 1A 8E 1B .£F\]FH..@......
01CED0: 8E 1C 8E 1D 8E 1E 8E 1F 8E 20 8E 21 8E 22 8E 23 ......... .!.".#
01CEE0: 8E 24 8E 25 8E 26 8E 27 8E 28 8E 29 8E 8B 8F 8C .$.%.&.'.(.)....
01CEF0: 8F 8D 8F 8E 03 8F FF 83 90 84 90 85 90 86 90 87 ................
01CF00: 90 A3 91 A4 91 A5 91 A6 91 A7 91 A8 91 A9 91 AA .£..............
01CF10: 91 AB 91 9F 95 A0 95 A1 95 A2 95 A3 95 A4 95 A5 ...........£....
01CF20: 95 A6 95 51 98 52 98 53 98 54 98 55 98 56 98 A4 ...Q.R.S.T.U.V..
01CF30: 99 A5 99 BE 9B BF 9B C0 9B C1 9B C2 9B C3 9B C4 ................
01CF40: 9B C5 9B C6 9B C7 9B 51 9D 52 9D 53 9D 54 9D 55 .......Q.R.S.T.U
01CF50: 9D 4A 9F 6E A0 6F A0 70 A0 71 A0 72 A0 73 A0 74 .J.n.o.p.q.r.s.t
01CF60: A0 75 A0 76 A0 77 A0 78 A0 79 A0 7A A0 7B A0 BF .u.v.w.x.y.z.{..
01CF70: A1 C0 A1 C1 A1 C2 A3 A1 C3 A1 C4 A1 C5 A1 C6 A1 ......£.........
01CF80: C7 A1 C8 A1 C9 A1 CA A1 CB A1 CC A1 CD A1 CE A1 ................
01CF90: CF A1 1E A3 1F A3 20 A3 21 A3 02 FF 84 01 1A 12 ...£.£ £!£......
01CFA0: 18 02 01 83 1A 12 18 02 01 83 1A 12 18 02 01 83 ................
01CFB0: 1A 12 18 02 01 83 1A 12 18 02 01 83 1A 12 18 02 ................
01CFC0: 01 83 1A 12 18 02 01 83 1A 12 18 02 01 83 1A 12 ................
01CFD0: 18 02 01 83 1A 12 18 02 01 83 1A 12 18 02 01 83 ................
01CFE0: 1A 12 18 02 01 83 1A 12 18 02 01 83 1A 12 18 02 ................
01CFF0: 01 83 1A 12 18 02 01 8D 1A 12 18 01 80 1A 0C 04 ................
01D000: 0A 20 20 20 20 20 20 69 20 3A 3D 20 36 3B 0D 0A . i := 6;..
01D010: 20 20 20 20 20 20 57 48 49 4C 45 20 69 20 3E 20 WHILE i >
01D020: 31 20 44 4F 0D 0A 20 20 20 20 20 20 20 20 42 45 1 DO.. BE
01D030: 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 49 GIN.. I
01D040: 46 20 6C 69 73 74 65 28 2E 69 2E 29 2E 70 6F 69 F liste(.i.).poi
01D050: 6E 74 73 20 3E 20 6C 69 73 74 65 28 2E 69 20 2D nts > liste(.i -
01D060: 20 31 2E 29 2E 70 6F 69 6E 74 73 0D 0A 20 20 20 1.).points..
01D070: 20 20 20 20 20 20 20 20 20 54 48 45 4E 0D 0A 20 THEN..
01D080: 20 20 20 20 20 20 20 20 20 20 20 20 20 42 45 47 BEG
01D090: 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 IN..
01D0A0: 20 20 20 20 62 79 74 20 3A 3D 20 6C 69 73 74 65 byt := liste
01D0B0: 28 2E 69 2E 29 3B 0D 0A 20 20 20 20 20 20 20 20 (.i.);..
01D0C0: 20 20 20 20 20 20 20 20 6C 69 73 74 65 28 2E 69 liste(.i
01D0D0: 2E 29 20 3A 3D 20 6C 69 73 74 65 28 2E 69 20 2D .) := liste(.i -
01D0E0: 20 31 2E 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 1.);..
01D0F0: 20 20 20 20 20 20 20 6C 69 73 74 65 28 2E 69 20 liste(.i
01D100: 2D 20 31 2E 29 20 3A 3D 20 62 79 74 3B 0D 0A 20 - 1.) := byt;..
01D110: 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4E 44 END
01D120: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 69 20 3A ;.. i :
01D130: 3D 20 69 20 2D 20 31 3B 0D 0A 20 20 20 20 20 20 = i - 1;..
01D140: 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 52 45 END;.. RE
01D150: 57 52 49 54 45 28 73 63 6F 72 65 66 69 6C 29 3B WRITE(scorefil);
01D160: 0D 0A 20 20 20 20 20 20 46 4F 52 20 69 20 3A 3D .. FOR i :=
01D170: 20 31 20 54 4F 20 35 20 44 4F 0D 0A 20 20 20 20 1 TO 5 DO..
01D180: 20 20 20 20 57 52 49 54 45 28 73 63 6F 72 65 66 WRITE(scoref
01D190: 69 6C 2C 20 6C 69 73 74 65 28 2E 69 2E 29 29 3B il, liste(.i.));
01D1A0: 0D 0A 20 20 20 20 20 20 43 4C 4F 53 45 28 73 63 .. CLOSE(sc
01D1B0: 6F 72 65 66 69 6C 29 3B 0D 0A 20 20 20 20 45 4E orefil);.. EN
01D1C0: 44 3B 20 28 2A 20 75 70 64 61 74 65 20 2A 29 0D D; (* update *).
01D1D0: 0A 20 20 0D 0A 20 20 50 52 4F 43 45 44 55 52 45 . .. PROCEDURE
01D1E0: 20 6C 61 65 73 3B 0D 0A 20 20 20 20 0D 0A 20 20 laes;.. ..
01D1F0: 20 20 56 41 52 0D 0A 20 20 20 20 20 20 69 20 3A VAR.. i :
01D200: 50 52 4F 47 52 41 4D 20 73 61 6D 72 65 6E 74 65 PROGRAM samrente
01D210: 3B 0D 0A 20 20 0D 0A 20 20 56 41 52 0D 0A 20 20 ;.. .. VAR..
01D220: 20 20 73 74 61 72 74 6B 61 70 69 74 61 6C 2C 20 startkapital,
01D230: 73 6C 75 74 6B 61 70 69 74 61 6C 2C 20 72 65 6E slutkapital, ren
01D240: 74 65 66 6F 64 20 3A 20 52 45 41 4C 3B 0D 0A 20 tefod : REAL;..
01D250: 20 20 20 74 65 72 6D 69 6E 65 72 20 3A 20 49 4E terminer : IN
01D260: 54 45 47 45 52 3B 0D 0A 20 20 0D 0A 20 20 42 45 TEGER;.. .. BE
01D270: 47 49 4E 0D 0A 20 20 20 20 57 52 49 54 45 28 43 GIN.. WRITE(C
01D280: 4C 52 48 4F 4D 29 3B 0D 0A 20 20 20 20 57 52 49 LRHOM);.. WRI
01D290: 54 45 4C 4E 28 27 50 72 6F 67 72 61 6D 6D 65 74 TELN('Programmet
01D2A0: 20 62 65 72 65 67 6E 65 72 20 53 4C 55 54 4B 41 beregner SLUTKA
01D2B0: 50 49 54 41 4C 45 4E 2C 20 6E 7D 72 20 6D 61 6E PITALEN, n}r man
01D2C0: 20 69 6E 64 74 61 73 74 65 72 27 29 3B 0D 0A 20 indtaster');..
01D2D0: 20 20 20 57 52 49 54 45 4C 4E 28 27 53 54 41 52 WRITELN('STAR
01D2E0: 54 4B 41 50 49 54 41 4C 2C 20 52 45 4E 54 45 46 TKAPITAL, RENTEF
01D2F0: 4F 44 20 6F 67 20 61 6E 74 61 6C 20 54 45 52 4D OD og antal TERM
01D300: 49 4E 45 52 27 29 3B 0D 0A 20 20 20 20 57 52 49 INER');.. WRI
01D310: 54 45 4C 4E 3B 0D 0A 20 20 20 20 57 52 49 54 45 TELN;.. WRITE
01D320: 28 27 49 6E 64 74 61 73 74 20 53 54 41 52 54 4B ('Indtast STARTK
01D330: 41 50 49 54 41 4C 3A 20 20 20 20 27 29 3B 20 52 APITAL: '); R
01D340: 45 41 44 4C 4E 28 73 74 61 72 74 6B 61 70 69 74 EADLN(startkapit
01D350: 61 6C 29 3B 0D 0A 20 20 20 20 57 52 49 54 45 28 al);.. WRITE(
01D360: 27 49 6E 64 74 61 73 74 20 52 45 4E 54 45 46 4F 'Indtast RENTEFO
01D370: 44 3A 20 20 20 20 20 20 20 20 27 29 3B 20 52 45 D: '); RE
01D380: 41 44 4C 4E 28 72 65 6E 74 65 66 6F 64 29 3B 0D ADLN(rentefod);.
01D390: 0A 20 20 20 20 57 52 49 54 45 28 27 49 6E 64 74 . WRITE('Indt
01D3A0: 61 73 74 20 41 4E 54 41 4C 20 54 45 52 4D 49 4E ast ANTAL TERMIN
01D3B0: 45 52 3A 20 20 27 29 3B 20 52 45 41 44 4C 4E 28 ER: '); READLN(
01D3C0: 74 65 72 6D 69 6E 65 72 29 3B 0D 0A 20 20 20 20 terminer);..
01D3D0: 73 6C 75 74 6B 61 70 69 74 61 6C 20 3A 3D 20 73 slutkapital := s
01D3E0: 74 61 72 74 6B 61 70 69 74 61 6C 20 2A 20 45 58 tartkapital * EX
01D3F0: 50 28 74 65 72 6D 69 6E 65 72 20 2A 20 4C 4E 28 P(terminer * LN(
01D400: 20 49 4E 54 45 47 45 52 3B 0D 0A 20 20 20 20 20 INTEGER;..
01D410: 20 73 63 6F 72 65 20 3A 20 73 63 6F 72 65 74 79 score : scorety
01D420: 70 65 3B 0D 0A 20 20 20 20 20 20 0D 0A 20 20 20 pe;.. ..
01D430: 20 42 45 47 49 4E 20 28 2A 20 6C 61 65 73 20 2A BEGIN (* laes *
01D440: 29 0D 0A 20 20 20 20 20 20 41 53 53 49 47 4E 28 ).. ASSIGN(
01D450: 73 63 6F 72 65 66 69 6C 2C 20 27 48 49 53 43 4F scorefil, 'HISCO
01D460: 52 45 2E 44 41 54 27 29 3B 0D 0A 20 20 20 20 20 RE.DAT');..
01D470: 20 52 45 53 45 54 28 73 63 6F 72 65 66 69 6C 29 RESET(scorefil)
01D480: 3B 0D 0A 20 20 20 20 20 20 46 4F 52 20 69 20 3A ;.. FOR i :
01D490: 3D 20 31 20 54 4F 20 35 20 44 4F 0D 0A 20 20 20 = 1 TO 5 DO..
01D4A0: 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 BEGIN..
01D4B0: 20 20 20 20 20 20 52 45 41 44 28 73 63 6F 72 65 READ(score
01D4C0: 66 69 6C 2C 20 73 63 6F 72 65 29 3B 0D 0A 20 20 fil, score);..
01D4D0: 20 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E 28 WRITELN(
01D4E0: 73 63 6F 72 65 2E 70 6F 69 6E 74 73 20 3A 20 34 score.points : 4
01D4F0: 2C 20 27 20 20 27 2C 20 73 63 6F 72 65 2E 6E 61 , ' ', score.na
01D500: 76 6E 29 3B 0D 0A 20 20 20 20 20 20 20 20 45 4E vn);.. EN
01D510: 44 3B 0D 0A 20 20 20 20 20 20 43 4C 4F 53 45 28 D;.. CLOSE(
01D520: 73 63 6F 72 65 66 69 6C 29 3B 0D 0A 20 20 20 20 scorefil);..
01D530: 45 4E 44 3B 20 28 2A 20 6C 61 65 73 20 2A 29 0D END; (* laes *).
01D540: 0A 20 20 20 20 0D 0A 20 20 42 45 47 49 4E 20 28 . .. BEGIN (
01D550: 2A 20 73 63 6F 72 65 20 2A 29 0D 0A 20 20 20 20 * score *)..
01D560: 57 52 49 54 45 28 43 4C 52 48 4F 4D 29 3B 0D 0A WRITE(CLRHOM);..
01D570: 20 20 20 20 57 52 49 54 45 28 27 53 6B 61 6C 20 WRITE('Skal
01D580: 68 69 67 68 73 63 6F 72 65 2D 6C 69 73 74 65 6E highscore-listen
01D590: 20 6F 70 72 65 74 74 65 73 20 28 6A 2F 6E 29 3A oprettes (j/n):
01D5A0: 20 27 29 3B 20 0D 0A 20 20 20 20 52 45 50 45 41 '); .. REPEA
01D5B0: 54 0D 0A 20 20 20 20 20 20 52 45 41 44 28 4B 42 T.. READ(KB
01D5C0: 44 2C 20 63 68 29 3B 0D 0A 20 20 20 20 55 4E 54 D, ch);.. UNT
01D5D0: 49 4C 20 28 63 68 20 3D 20 27 6A 27 29 20 4F 52 IL (ch = 'j') OR
01D5E0: 20 28 63 68 20 3D 20 27 6E 27 29 3B 0D 0A 20 20 (ch = 'n');..
01D5F0: 20 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 WRITELN;..
01D600: 31 20 2B 20 72 65 6E 74 65 66 6F 64 20 2F 20 31 1 + rentefod / 1
01D610: 30 30 29 29 3B 0D 0A 20 20 20 20 57 52 49 54 45 00));.. WRITE
01D620: 4C 4E 3B 0D 0A 20 20 20 20 57 52 49 54 45 4C 4E LN;.. WRITELN
01D630: 28 27 53 54 41 52 54 4B 41 50 49 54 41 4C 3A 20 ('STARTKAPITAL:
01D640: 20 20 27 2C 20 73 74 61 72 74 6B 61 70 69 74 61 ', startkapita
01D650: 6C 20 3A 20 31 30 20 3A 20 32 2C 20 27 20 6B 72 l : 10 : 2, ' kr
01D660: 27 29 3B 0D 0A 20 20 20 20 57 52 49 54 45 4C 4E ');.. WRITELN
01D670: 28 27 52 45 4E 54 45 46 4F 44 20 20 20 20 20 20 ('RENTEFOD
01D680: 20 20 27 2C 20 72 65 6E 74 65 66 6F 64 20 3A 20 ', rentefod :
01D690: 31 30 20 3A 20 32 2C 20 27 20 25 27 29 3B 0D 0A 10 : 2, ' %');..
01D6A0: 20 20 20 20 57 52 49 54 45 4C 4E 28 27 41 4E 54 WRITELN('ANT
01D6B0: 41 4C 20 54 45 52 4D 49 4E 45 52 3A 20 27 2C 20 AL TERMINER: ',
01D6C0: 74 65 72 6D 69 6E 65 72 20 3A 20 31 30 2C 20 27 terminer : 10, '
01D6D0: 20 74 65 72 6D 69 6E 65 72 27 29 3B 0D 0A 20 20 terminer');..
01D6E0: 20 20 57 52 49 54 45 4C 4E 28 27 53 4C 55 54 4B WRITELN('SLUTK
01D6F0: 41 50 49 54 41 4C 3A 20 20 20 20 27 2C 20 73 6C APITAL: ', sl
01D700: 75 74 6B 61 70 69 74 61 6C 20 3A 20 31 30 20 3A utkapital : 10 :
01D710: 20 32 2C 20 27 20 6B 72 27 29 3B 0D 0A 20 20 20 2, ' kr');..
01D720: 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 45 4E 44 WRITELN;.. END
01D730: 2E 0D 0A 1A 45 52 4D 49 4E 45 52 3A 20 27 2C 20 ....ERMINER: ',
01D740: 74 65 72 6D 69 6E 65 72 20 3A 20 31 30 2C 20 27 terminer : 10, '
01D750: 20 74 65 72 6D 69 6E 65 72 27 29 3B 0D 0A 20 20 terminer');..
01D760: 20 20 57 52 49 54 45 4C 4E 28 27 53 4C 55 54 4B WRITELN('SLUTK
01D770: 41 50 49 54 41 4C 3A 20 20 20 20 27 2C 20 73 6C APITAL: ', sl
01D780: 00 46 49 4C 4B 4F 50 49 20 50 59 53 ED 00 04 00 .FILKOPI PYS....
01D790: B8 D2 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01D7A0: 00 46 4C 41 44 45 20 20 20 50 59 53 F1 00 03 00 .FLADE PYS....
01D7B0: 32 7D 00 00 00 00 00 00 00 00 00 00 00 00 00 00 2}..............
01D7C0: 00 46 4C 45 54 4E 49 4E 47 50 59 53 F4 00 09 00 .FLETNINGPYS....
01D7D0: BB 7A 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .z..............
01D7E0: 00 46 4F 52 4B 4F 52 54 20 50 59 53 FD 00 04 00 .FORKORT PYS....
01D7F0: 18 AC 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01D800: 49 46 20 63 68 20 3D 20 27 6A 27 20 54 48 45 4E IF ch = 'j' THEN
01D810: 20 6F 70 72 65 74 3B 0D 0A 20 20 20 20 57 52 49 opret;.. WRI
01D820: 54 45 28 27 4E 61 76 6E 3A 20 28 30 20 73 74 6F TE('Navn: (0 sto
01D830: 70 70 65 72 29 3A 20 27 29 3B 20 52 45 41 44 4C pper): '); READL
01D840: 4E 28 73 63 6F 72 65 2E 6E 61 76 6E 29 3B 0D 0A N(score.navn);..
01D850: 20 20 20 20 57 48 49 4C 45 20 73 63 6F 72 65 2E WHILE score.
01D860: 6E 61 76 6E 20 3C 3E 20 27 30 27 20 44 4F 0D 0A navn <> '0' DO..
01D870: 20 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 BEGIN..
01D880: 20 20 20 20 20 57 52 49 54 45 28 27 50 6F 69 6E WRITE('Poin
01D890: 74 73 20 20 20 20 20 20 20 20 20 20 20 3A 20 27 ts : '
01D8A0: 29 3B 20 52 45 41 44 4C 4E 28 73 63 6F 72 65 2E ); READLN(score.
01D8B0: 70 6F 69 6E 74 73 29 3B 0D 0A 20 20 20 20 20 20 points);..
01D8C0: 20 20 75 70 64 61 74 65 28 73 63 6F 72 65 29 3B update(score);
01D8D0: 0D 0A 20 20 20 20 20 20 20 20 57 52 49 54 45 28 .. WRITE(
01D8E0: 27 4E 61 76 6E 3A 20 28 30 20 73 74 6F 70 70 65 'Navn: (0 stoppe
01D8F0: 72 29 3A 20 27 29 3B 20 52 45 41 44 4C 4E 28 73 r): '); READLN(s
01D900: 63 6F 72 65 2E 6E 61 76 6E 29 3B 0D 0A 20 20 20 core.navn);..
01D910: 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 57 52 49 END;.. WRI
01D920: 54 45 28 27 53 6B 61 6C 20 68 69 67 68 73 63 6F TE('Skal highsco
01D930: 72 65 2D 6C 69 73 74 65 6E 20 6C 7B 73 65 73 20 re-listen l{ses
01D940: 28 6A 2F 6E 29 3A 20 27 29 3B 0D 0A 20 20 20 20 (j/n): ');..
01D950: 52 45 50 45 41 54 0D 0A 20 20 20 20 20 20 52 45 REPEAT.. RE
01D960: 41 44 28 4B 42 44 2C 20 63 68 29 3B 0D 0A 20 20 AD(KBD, ch);..
01D970: 20 20 55 4E 54 49 4C 20 28 63 68 20 3D 20 27 6A UNTIL (ch = 'j
01D980: 27 29 20 4F 52 20 28 63 68 20 3D 20 27 6E 27 29 ') OR (ch = 'n')
01D990: 3B 0D 0A 20 20 20 20 57 52 49 54 45 4C 4E 3B 0D ;.. WRITELN;.
01D9A0: 0A 20 20 20 20 49 46 20 63 68 20 3D 20 27 6A 27 . IF ch = 'j'
01D9B0: 0D 0A 20 20 20 20 20 20 54 48 45 4E 20 6C 61 65 .. THEN lae
01D9C0: 73 3B 0D 0A 20 20 45 4E 44 2E 20 28 2A 20 73 63 s;.. END. (* sc
01D9D0: 6F 72 65 20 2A 29 0D 0A 1A 20 20 20 20 20 52 45 ore *)... RE
01D9E0: 41 44 28 4B 42 44 2C 20 63 68 29 3B 0D 0A 20 20 AD(KBD, ch);..
01D9F0: 20 20 55 4E 54 49 4C 20 28 63 68 20 3D 20 27 6A UNTIL (ch = 'j
01DA00: 50 52 4F 47 52 41 4D 20 73 63 6F 72 65 3B 0D 0A PROGRAM score;..
01DA10: 0D 0A 20 20 54 59 50 45 0D 0A 20 20 20 20 73 63 .. TYPE.. sc
01DA20: 6F 72 65 74 79 70 65 20 3D 20 52 45 43 4F 52 44 oretype = RECORD
01DA30: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
01DA40: 20 20 20 20 70 6F 69 6E 74 73 20 3A 20 49 4E 54 points : INT
01DA50: 45 47 45 52 3B 0D 0A 20 20 20 20 20 20 20 20 20 EGER;..
01DA60: 20 20 20 20 20 20 20 20 20 6E 61 76 6E 20 3A 20 navn :
01DA70: 53 54 52 49 4E 47 28 2E 33 30 2E 29 3B 0D 0A 20 STRING(.30.);..
01DA80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 E
01DA90: 4E 44 3B 0D 0A 20 20 20 20 73 63 6F 72 65 66 69 ND;.. scorefi
01DAA0: 6C 74 79 70 65 20 3D 20 46 49 4C 45 20 4F 46 20 ltype = FILE OF
01DAB0: 73 63 6F 72 65 74 79 70 65 3B 0D 0A 20 20 0D 0A scoretype;.. ..
01DAC0: 20 20 56 41 52 0D 0A 20 20 20 20 73 63 6F 72 65 VAR.. score
01DAD0: 20 3A 20 73 63 6F 72 65 74 79 70 65 3B 0D 0A 20 : scoretype;..
01DAE0: 20 20 20 73 63 6F 72 65 66 69 6C 20 3A 20 73 63 scorefil : sc
01DAF0: 6F 72 65 66 69 6C 74 79 70 65 3B 0D 0A 20 20 20 orefiltype;..
01DB00: 20 63 68 20 3A 20 43 48 41 52 3B 0D 0A 20 20 0D ch : CHAR;.. .
01DB10: 0A 20 20 50 52 4F 43 45 44 55 52 45 20 6F 70 72 . PROCEDURE opr
01DB20: 65 74 3B 0D 0A 20 20 0D 0A 20 20 20 20 56 41 52 et;.. .. VAR
01DB30: 0D 0A 20 20 20 20 20 20 69 20 3A 20 49 4E 54 45 .. i : INTE
01DB40: 47 45 52 3B 0D 0A 20 20 20 20 0D 0A 20 20 20 20 GER;.. ..
01DB50: 42 45 47 49 4E 20 28 2A 20 6F 70 72 65 74 20 2A BEGIN (* opret *
01DB60: 29 0D 0A 20 20 20 20 20 20 41 53 53 49 47 4E 28 ).. ASSIGN(
01DB70: 73 63 6F 72 65 66 69 6C 2C 20 27 48 49 53 43 4F scorefil, 'HISCO
01DB80: 52 45 2E 44 41 54 27 29 3B 0D 0A 20 20 20 20 20 RE.DAT');..
01DB90: 20 52 45 57 52 49 54 45 28 73 63 6F 72 65 66 69 REWRITE(scorefi
01DBA0: 6C 29 3B 0D 0A 20 20 20 20 20 20 57 49 54 48 20 l);.. WITH
01DBB0: 73 63 6F 72 65 20 44 4F 0D 0A 20 20 20 20 20 20 score DO..
01DBC0: 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 BEGIN..
01DBD0: 20 20 20 70 6F 69 6E 74 73 20 3A 3D 20 30 3B 0D points := 0;.
01DBE0: 0A 20 20 20 20 20 20 20 20 20 20 6E 61 76 6E 20 . navn
01DBF0: 3A 3D 20 27 4E 4E 27 3B 0D 0A 20 20 20 20 20 20 := 'NN';..
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: FE 10 C2 E5 02 C9 21 00 06 11 DD C2 3E 30 F5 06 ......!.....>0..
01DD10: 1A 7E E6 AA 4F CB 2F E6 55 B1 12 13 7E E6 55 4F .~..O./.U...~.UO
01DD20: 17 E6 AA B1 12 13 23 10 E8 EB 01 CC 07 09 D2 25 ......#........%
01DD30: 03 01 50 C0 09 EB F1 CB 47 C2 30 03 01 E6 FF 09 ..P.....G.0.....
01DD40: 3D C2 FE 02 C9 00 1A 01 0B 14 03 06 11 0C 18 0F =...............
01DD50: 18 0F 0A 0D 1A 0C 1A 00 10 18 06 09 08 0F 14 03 ................
01DD60: 02 12 00 0E 19 00 00 00 00 00 00 00 00 00 00 00 ................
01DD70: 00 00 00 00 00 00 01 02 04 06 07 09 0B 0C 0E 0F ................
01DD80: 11 12 14 16 18 1B 1E 22 28 22 1E 1B 18 16 14 12 ......."("......
01DD90: 11 0F 0E 0C 0B 09 07 06 04 02 01 00 05 15 17 13 ................
01DDA0: 12 02 19 0A 0E 0C 0D 07 05 15 17 13 12 02 19 0A ................
01DDB0: 0E 0C 0D 07 05 15 17 13 12 02 19 0A 0E 0C 0D 07 ................
01DDC0: 05 15 17 13 12 02 19 0A 0E 0C 0D 07 54 45 4E 4E ............TENN
01DDD0: 49 53 2E 53 43 52 00 00 00 00 00 00 11 10 27 1B IS.SCR........'.
01DDE0: 7A B3 C2 CF 03 06 0A 21 BC 03 11 00 C0 CD 77 BC z......!......w.
01DDF0: 21 00 10 CD 83 BC CD 7A BC 21 55 03 CD E3 02 3A !......z.!U....:
01DE00: 00 10 57 DD 21 01 10 FD 21 00 C0 FD E5 E1 7C B5 ..W.!...!.....|.
01DE10: CA 2A 04 DD 7E 00 BA CA 14 04 FD 77 00 DD 23 FD .*..~......w..#.
01DE20: 23 C3 FB 03 DD 7E 01 DD 46 02 DD 23 DD 23 DD 23 #....~..F..#.#.#
01DE30: FD 77 00 FD 23 10 F9 C3 FB 03 21 45 03 CD E3 02 .w..#.....!E....
01DE40: 21 3E 04 11 40 00 01 C0 00 ED B0 C3 40 00 06 0A !>..@.......@...
01DE50: 21 57 00 11 00 C0 CD 77 BC 21 00 03 CD 83 BC CD !W.....w.!......
01DE60: 7A BC C3 29 24 54 45 4E 4E 49 53 2E 30 30 30 3F z..)$TENNIS.000?
01DE70: 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F ????????????????
01DE80: 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F ????????????????
01DE90: 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F ????????????????
01DEA0: 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F ????????????????
01DEB0: 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F ????????????????
01DEC0: 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F ????????????????
01DED0: 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F ????????????????
01DEE0: 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F ????????????????
01DEF0: 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F ????????????????
01DF00: 74 20 61 3A 20 27 29 3B 20 52 45 41 44 4C 4E 28 t a: '); READLN(
01DF10: 61 29 3B 0D 0A 20 20 20 20 57 52 49 54 45 28 27 a);.. WRITE('
01DF20: 54 61 73 74 20 68 7C 6A 72 65 20 65 6E 64 70 75 Tast h|jre endpu
01DF30: 6E 6B 74 20 62 3A 20 20 20 20 27 29 3B 20 52 45 nkt b: '); RE
01DF40: 41 44 4C 4E 28 62 29 3B 0D 0A 20 20 20 20 57 52 ADLN(b);.. WR
01DF50: 49 54 45 28 27 54 61 73 74 20 64 65 6E 20 7C 6E ITE('Tast den |n
01DF60: 73 6B 65 64 65 20 72 65 6C 61 74 69 76 65 20 6E skede relative n
01DF70: 7C 6A 61 67 74 69 67 68 65 64 3A 20 27 29 3B 20 |jagtighed: ');
01DF80: 52 45 41 44 4C 4E 28 65 70 73 29 3B 0D 0A 20 20 READLN(eps);..
01DF90: 20 20 57 52 49 54 45 4C 4E 28 27 41 72 65 61 6C WRITELN('Areal
01DFA0: 65 74 20 65 72 3A 20 27 2C 20 69 6E 74 65 67 72 et er: ', integr
01DFB0: 61 6C 28 61 2C 20 62 2C 20 65 70 73 29 20 3A 20 al(a, b, eps) :
01DFC0: 31 30 20 3A 20 36 29 3B 0D 0A 20 20 45 4E 44 2E 10 : 6);.. END.
01DFD0: 0D 0A 1A 28 27 54 61 73 74 20 64 65 6E 20 7C 6E ...('Tast den |n
01DFE0: 73 6B 65 64 65 20 72 65 6C 61 74 69 76 65 20 6E skede relative n
01DFF0: 7C 6A 61 67 74 69 67 68 65 64 3A 20 27 29 3B 20 |jagtighed: ');
01E000: 00 49 4E 54 45 52 48 59 50 50 59 53 34 01 05 00 .INTERHYPPYS4...
01E010: 46 24 00 00 00 00 00 00 00 00 00 00 00 00 00 00 F$..............
01E020: 00 49 4E 56 45 52 53 20 20 50 59 53 39 01 04 00 .INVERS PYS9...
01E030: FA 67 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .g..............
01E040: 00 4A 4F 55 52 4E 41 4C 20 50 59 53 3D 01 04 00 .JOURNAL PYS=...
01E050: DE 2E 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01E060: 00 4B 41 45 44 45 32 20 20 50 59 53 41 01 0A 00 .KAEDE2 PYSA...
01E070: 0E 31 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .1..............
01E080: 00 4B 41 45 44 45 33 20 20 50 59 53 4B 01 09 00 .KAEDE3 PYSK...
01E090: 5D 85 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ]...............
01E0A0: 00 4B 41 45 44 45 34 20 20 50 59 53 54 01 0A 00 .KAEDE4 PYST...
01E0B0: 72 B6 00 00 00 00 00 00 00 00 00 00 00 00 00 00 r...............
01E0C0: 00 4B 41 4C 4B 55 20 20 20 50 59 53 5E 01 09 00 .KALKU PYS^...
01E0D0: F5 39 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .9..............
01E0E0: 00 4B 41 4E 4E 49 42 41 4C 50 59 53 67 01 0A 00 .KANNIBALPYSg...
01E0F0: BA 16 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01E100: 50 52 4F 47 52 41 4D 20 73 66 64 3B 0D 0A 20 20 PROGRAM sfd;..
01E110: 0D 0A 20 20 56 41 52 0D 0A 20 20 20 20 74 61 6C .. VAR.. tal
01E120: 31 2C 20 74 61 6C 32 20 3A 20 49 4E 54 45 47 45 1, tal2 : INTEGE
01E130: 52 3B 0D 0A 20 20 0D 0A 20 20 46 55 4E 43 54 49 R;.. .. FUNCTI
01E140: 4F 4E 20 66 61 65 6C 6C 65 73 28 6E 2C 20 6D 20 ON faelles(n, m
01E150: 3A 20 49 4E 54 45 47 45 52 29 20 3A 20 49 4E 54 : INTEGER) : INT
01E160: 45 47 45 52 3B 0D 0A 20 20 20 20 0D 0A 20 20 20 EGER;.. ..
01E170: 20 42 45 47 49 4E 20 28 2A 20 66 61 65 6C 6C 65 BEGIN (* faelle
01E180: 73 20 2A 29 0D 0A 20 20 20 20 20 20 49 46 20 6D s *).. IF m
01E190: 20 3D 20 30 0D 0A 20 20 20 20 20 20 20 20 54 48 = 0.. TH
01E1A0: 45 4E 20 66 61 65 6C 6C 65 73 20 3A 3D 20 6E 0D EN faelles := n.
01E1B0: 0A 20 20 20 20 20 20 20 20 45 4C 53 45 20 66 61 . ELSE fa
01E1C0: 65 6C 6C 65 73 20 3A 3D 20 66 61 65 6C 6C 65 73 elles := faelles
01E1D0: 28 6D 2C 20 6E 20 4D 4F 44 20 6D 29 3B 0D 0A 20 (m, n MOD m);..
01E1E0: 20 20 20 45 4E 44 3B 20 28 2A 20 66 61 65 6C 6C END; (* faell
01E1F0: 65 73 20 2A 29 0D 0A 20 20 0D 0A 20 20 42 45 47 es *).. .. BEG
01E200: 49 4E 20 28 2A 20 73 66 64 20 2A 29 0D 0A 20 20 IN (* sfd *)..
01E210: 20 20 57 52 49 54 45 28 43 4C 52 48 4F 4D 29 3B WRITE(CLRHOM);
01E220: 0D 0A 20 20 20 20 57 52 49 54 45 28 27 49 6E 64 .. WRITE('Ind
01E230: 74 61 73 74 20 31 2E 20 74 61 6C 20 3A 20 27 29 tast 1. tal : ')
01E240: 3B 20 52 45 41 44 4C 4E 28 74 61 6C 31 29 3B 0D ; READLN(tal1);.
01E250: 0A 20 20 20 20 57 52 49 54 45 28 27 49 6E 64 74 . WRITE('Indt
01E260: 61 73 74 20 32 2E 20 74 61 6C 20 3A 20 27 29 3B ast 2. tal : ');
01E270: 20 52 45 41 44 4C 4E 28 74 61 6C 32 29 3B 0D 0A READLN(tal2);..
01E280: 20 20 20 20 57 52 49 54 45 4C 4E 28 27 53 74 7C WRITELN('St|
01E290: 72 73 74 65 20 66 7B 6C 6C 65 73 20 64 69 76 69 rste f{lles divi
01E2A0: 73 6F 72 20 66 6F 72 20 27 2C 20 74 61 6C 31 2C sor for ', tal1,
01E2B0: 20 27 20 6F 67 20 27 2C 20 74 61 6C 32 2C 20 27 ' og ', tal2, '
01E2C0: 20 65 72 20 27 2C 0D 0A 20 20 20 20 20 20 20 20 er ',..
01E2D0: 20 20 20 20 66 61 65 6C 6C 65 73 28 74 61 6C 31 faelles(tal1
01E2E0: 2C 20 74 61 6C 32 29 29 3B 0D 0A 20 20 45 4E 44 , tal2));.. END
01E2F0: 2E 20 28 2A 20 73 66 64 20 2A 29 0D 0A 1A 0D 0A . (* sfd *).....
01E300: 4B C3 E9 BC 21 05 00 22 6E BE C9 21 00 00 22 6E K...!.."n..!.."n
01E310: BE 21 7A BE 7E 36 00 B7 C8 C3 84 BB 2A 79 BE 7C .!z.~6......*y.|
01E320: 2F A5 C8 32 7A BE C3 81 BB AF 18 02 3E FF 32 79 /..2z.......>.2y
01E330: BE C9 21 03 3D 22 7B BE E6 7F 47 21 00 88 04 18 ..!.="{...G!....
01E340: 05 7E 23 3C 20 FB 10 F9 7E 23 FE FF C8 B7 F2 98 .~#< ...~#......
01E350: 05 E5 CD 9D 05 E1 18 F0 CD 09 06 18 EB FE FE 28 ...............(
01E360: 5B FE FD 28 5C 26 00 6A FE FB 28 0E 6B FE FA 28 [..(\&.j..(.k..(
01E370: 09 62 FE F8 28 38 FE F9 20 BE C5 D5 16 00 01 F0 .b..(8.. .......
01E380: D8 CD DF 05 01 18 FC CD DF 05 01 9C FF CD DF 05 ................
01E390: 01 F6 FF CD DF 05 7D C6 30 CD 09 06 D1 C1 C9 3E ......}.0......>
01E3A0: FF 3C 09 38 FC ED 42 B2 C8 16 30 B2 18 1B C5 06 .<.8..B...0.....
01E3B0: 06 7E 23 FE 20 C4 09 06 10 F7 C1 C9 3A 68 BE B7 .~#. .......:h..
01E3C0: C8 79 C6 41 CD 09 06 3E 3A C5 D5 E5 4F 2A 7B BE .y.A...>:...O*{.
01E3D0: CD 1E 00 E1 D1 C1 C9 3E FF 32 7D BE 01 FF 80 21 .......>.2}....!
01E3E0: 81 BE 11 F2 06 CD EF BC 21 7F BE C3 DA BC CD 91 ........!.......
01E3F0: 06 20 0B C5 3E 10 CD 72 05 C1 78 C3 72 05 AF 32 . ..>..r..x.r..2
01E400: 8B BE CD 96 06 CD 91 06 0E 07 CA 03 3D AF 32 8A ............=.2.
01E410: BE CD FD 07 3E FF 32 8A BE C9 CD 91 06 3E 10 CA ....>.2......>..
01E420: 72 05 AF 32 8A BE CD E9 06 CD 91 06 C8 3A 68 BE r..2.........:h.
01E430: B7 20 10 3A 7E BE 4F 06 11 3A E3 BE D6 10 CD 96 . .:~.O..:......
01E440: 06 18 66 CD 91 06 C8 CD CF 06 18 5D 79 32 7E BE ..f........]y2~.
01E450: C9 3A 7D BE B7 C9 F5 78 21 8C BE 06 05 36 20 23 .:}....x!....6 #
01E460: 10 FB 22 DC BE 21 C4 06 CD 75 05 CD CF 06 F1 32 .."..!...u.....2
01E470: DE BE 21 8C BE 22 DC BE 7E FE FF C4 34 07 D0 CD ..!.."..~...4...
01E480: 16 07 18 F4 2A DC BE 71 23 36 FF 22 DC BE C9 CD ....*..q#6."....
01E490: 4B 05 CD E1 08 CD 78 BB 22 88 BE 2A E2 BE 2C 26 K.....x."..*..,&
01E4A0: 01 CD 75 BB 3E 12 C3 5A BB 2A 88 BE CD 75 BB C3 ..u.>..Z.*...u..
01E4B0: 44 05 3A 8A BE B7 C8 CD 34 07 DC 16 07 38 F8 D5 D.:.....4....8..
01E4C0: 0E 4F 6B 11 01 00 62 CD B5 09 D1 CD 14 0A 05 21 .Ok...b........!
01E4D0: 8B BE 34 7E A0 C0 2A DC BE 7E FE FF 20 04 21 8C ..4~..*..~.. .!.
01E4E0: BE 7E 23 22 DC BE 4F EB 24 2C CD 75 BB EB 79 CD .~#"..O.$,.u..y.
01E4F0: 5A BB 37 C9 ED 5B E2 BE 3A DE BE 14 BA 15 D0 57 Z.7..[..:......W
01E500: C0 00 00 40 80 C0 00 00 00 00 C0 00 00 40 80 00 ...@.........@..
01E510: 40 80 C0 40 80 C0 00 80 40 80 C0 00 00 40 80 C0 @..@....@....@..
01E520: 00 00 00 00 C0 C0 C0 C0 80 00 40 80 C0 40 80 C0 ..........@..@..
01E530: 00 00 40 80 C0 C0 C0 C0 80 C0 00 00 00 00 C0 C0 ..@.............
01E540: C0 C0 80 00 40 80 C0 40 80 C0 00 00 40 80 C0 C0 ....@..@....@...
01E550: C0 C0 80 C0 00 00 00 00 C0 C0 C0 C0 80 00 40 80 ..............@.
01E560: C0 40 80 C0 00 00 40 80 C0 C0 C0 C0 80 C0 00 00 .@....@.........
01E570: 00 00 C0 C0 C0 C0 80 00 40 80 C0 40 80 C0 00 00 ........@..@....
01E580: 40 80 C0 00 00 40 80 C0 00 00 00 00 C0 00 00 40 @....@.........@
01E590: 80 00 40 80 C0 40 80 C0 00 00 40 80 C0 00 00 40 ..@..@....@....@
01E5A0: 80 C0 00 00 00 00 C0 00 00 40 80 00 40 80 C0 40 .........@..@..@
01E5B0: 80 C0 00 00 40 80 C0 00 00 40 80 C0 00 00 40 80 ....@....@....@.
01E5C0: C0 00 00 40 80 00 40 80 C0 40 80 C0 00 00 40 80 ...@..@..@....@.
01E5D0: C0 00 00 40 80 C0 C0 C0 C0 80 C0 00 00 40 80 00 ...@.........@..
01E5E0: 40 80 C0 40 80 C0 00 00 40 80 C0 00 00 40 80 C0 @..@....@....@..
01E5F0: C0 C0 C0 80 C0 00 00 40 80 00 40 80 C0 40 80 C0 .......@..@..@..
01E600: 00 00 40 80 C0 00 00 40 80 40 C0 C0 C0 00 C0 00 ..@....@.@......
01E610: 00 40 80 00 40 80 C0 45 80 00 00 00 00 00 00 00 .@..@..E........
01E620: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01E630: 00 40 80 00 00 00 00 00 00 00 00 00 00 00 00 00 .@..............
01E640: 00 00 00 00 00 00 00 00 00 00 00 40 C0 C0 C0 C0 ...........@....
01E650: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 ................
01E660: C0 C0 C0 C0 C0 C0 40 C0 C0 C0 C0 C0 C0 C0 C0 C0 ......@.........
01E670: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 80 ................
01E680: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01E690: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01E6A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01E6B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01E6C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01E6D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01E6E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01E6F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01E700: 50 52 4F 47 52 41 4D 20 73 6B 61 65 72 6D 3B 0D PROGRAM skaerm;.
01E710: 0A 0D 0A 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 ... BEGIN..
01E720: 57 52 49 54 45 28 43 4C 52 48 4F 4D 29 3B 0D 0A WRITE(CLRHOM);..
01E730: 20 20 20 20 57 52 49 54 45 4C 4E 28 27 20 20 20 WRITELN('
01E740: 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D --------------
01E750: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
01E760: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
01E770: 2D 2D 27 2C 0D 0A 20 20 20 20 20 20 20 20 20 20 --',..
01E780: 20 20 27 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D '-------------
01E790: 2D 2D 2D 2D 2D 2D 2D 27 29 3B 0D 0A 20 20 20 20 -------');..
01E7A0: 57 52 49 54 45 4C 4E 28 27 20 20 20 20 20 66 6F WRITELN(' fo
01E7B0: 72 6C 61 67 65 74 20 73 79 73 74 69 6D 65 20 61 rlaget systime a
01E7C0: 2F 73 20 20 20 20 20 20 20 20 20 20 20 20 20 20 /s
01E7D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 27 2C 0D ',.
01E7E0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 27 66 6F . 'fo
01E7F0: 72 6C 61 67 65 74 20 73 79 73 74 69 6D 65 20 20 rlaget systime
01E800: 61 2F 73 27 29 3B 0D 0A 20 20 20 20 57 52 49 54 a/s');.. WRIT
01E810: 45 4C 4E 3B 0D 0A 20 20 20 20 57 52 49 54 45 4C ELN;.. WRITEL
01E820: 4E 3B 0D 0A 20 20 20 20 57 52 49 54 45 4C 4E 28 N;.. WRITELN(
01E830: 27 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 '
01E840: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01E850: 20 20 50 20 41 20 53 20 43 20 41 20 4C 20 20 20 P A S C A L
01E860: 20 20 20 20 20 27 29 3B 0D 0A 20 20 20 20 57 52 ');.. WR
01E870: 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 57 52 49 54 ITELN;.. WRIT
01E880: 45 4C 4E 28 27 20 20 20 20 20 20 20 20 20 20 20 ELN('
01E890: 20 20 20 20 20 20 20 20 20 20 20 20 20 45 6E 20 En
01E8A0: 67 72 75 6E 64 6C 7B 67 67 65 6E 64 65 20 69 6E grundl{ggende in
01E8B0: 64 66 7C 72 69 6E 67 20 69 27 29 3B 0D 0A 20 20 df|ring i');..
01E8C0: 20 20 57 52 49 54 45 4C 4E 28 27 20 20 20 20 20 WRITELN('
01E8D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01E8E0: 20 20 20 20 20 20 20 70 72 6F 67 72 61 6D 6D 65 programme
01E8F0: 72 69 6E 67 73 73 70 72 6F 67 65 74 20 20 20 27 ringssproget '
01E900: 50 52 4F 47 52 41 4D 20 73 69 6D 70 73 6F 6E 3B PROGRAM simpson;
01E910: 0D 0A 0D 0A 20 20 56 41 52 0D 0A 20 20 20 20 61 .... VAR.. a
01E920: 2C 20 62 2C 20 65 70 73 20 3A 20 52 45 41 4C 3B , b, eps : REAL;
01E930: 0D 0A 20 20 0D 0A 20 20 46 55 4E 43 54 49 4F 4E .. .. FUNCTION
01E940: 20 66 28 78 20 3A 20 52 45 41 4C 29 20 3A 20 52 f(x : REAL) : R
01E950: 45 41 4C 3B 0D 0A 20 20 0D 0A 20 20 20 20 42 45 EAL;.. .. BE
01E960: 47 49 4E 0D 0A 20 20 20 20 20 20 66 20 3A 3D 20 GIN.. f :=
01E970: 31 20 2F 20 53 51 52 54 28 32 20 2A 20 50 49 29 1 / SQRT(2 * PI)
01E980: 20 2A 20 45 58 50 28 2D 20 78 20 2A 20 78 20 2F * EXP(- x * x /
01E990: 20 32 29 3B 0D 0A 20 20 20 20 45 4E 44 3B 0D 0A 2);.. END;..
01E9A0: 20 20 0D 0A 20 20 46 55 4E 43 54 49 4F 4E 20 69 .. FUNCTION i
01E9B0: 6E 74 65 67 72 61 6C 28 61 2C 20 62 2C 20 65 70 ntegral(a, b, ep
01E9C0: 73 69 6C 6F 6E 20 3A 20 52 45 41 4C 29 20 3A 20 silon : REAL) :
01E9D0: 52 45 41 4C 3B 0D 0A 20 20 20 20 0D 0A 20 20 20 REAL;.. ..
01E9E0: 20 56 41 52 0D 0A 20 20 20 20 20 20 78 2C 20 6E VAR.. x, n
01E9F0: 79 73 75 6D 2C 20 67 6C 73 75 6D 2C 20 68 2C 20 ysum, glsum, h,
01EA00: 73 75 6D 31 2C 20 73 75 6D 32 20 3A 20 52 45 41 sum1, sum2 : REA
01EA10: 4C 3B 0D 0A 20 20 20 20 20 20 69 2C 20 6E 20 3A L;.. i, n :
01EA20: 20 49 4E 54 45 47 45 52 3B 0D 0A 20 20 20 20 0D INTEGER;.. .
01EA30: 0A 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 . BEGIN..
01EA40: 20 20 6E 20 3A 3D 20 31 3B 0D 0A 20 20 20 20 20 n := 1;..
01EA50: 20 6E 79 73 75 6D 20 3A 3D 20 28 66 28 61 29 20 nysum := (f(a)
01EA60: 2B 20 66 28 62 29 29 20 2A 20 28 62 20 2D 20 61 + f(b)) * (b - a
01EA70: 29 20 2F 20 32 3B 0D 0A 20 20 20 20 20 20 52 45 ) / 2;.. RE
01EA80: 50 45 41 54 0D 0A 20 20 20 20 20 20 20 20 67 6C PEAT.. gl
01EA90: 73 75 6D 20 3A 3D 20 6E 79 73 75 6D 3B 0D 0A 20 sum := nysum;..
01EAA0: 20 20 20 20 20 20 20 6E 20 3A 3D 20 6E 20 2A 20 n := n *
01EAB0: 32 3B 0D 0A 20 20 20 20 20 20 20 20 68 20 3A 3D 2;.. h :=
01EAC0: 20 28 62 20 2D 20 61 29 20 2F 20 6E 3B 0D 0A 20 (b - a) / n;..
01EAD0: 20 20 20 20 20 20 20 78 20 3A 3D 20 61 3B 0D 0A x := a;..
01EAE0: 20 20 20 20 20 20 20 20 73 75 6D 31 20 3A 3D 20 sum1 :=
01EAF0: 30 3B 0D 0A 20 20 20 20 20 20 20 20 46 4F 52 20 0;.. FOR
01EB00: 29 3B 0D 0A 20 20 20 20 57 52 49 54 45 4C 4E 3B );.. WRITELN;
01EB10: 0D 0A 20 20 20 20 57 52 49 54 45 4C 4E 28 27 20 .. WRITELN('
01EB20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01EB30: 20 20 20 20 20 20 20 20 20 20 20 20 50 20 6F 20 P o
01EB40: 6C 20 79 20 50 20 61 20 73 20 63 20 61 20 6C 20 l y P a s c a l
01EB50: 20 20 20 27 29 3B 0D 0A 20 20 20 20 57 52 49 54 ');.. WRIT
01EB60: 45 4C 4E 3B 0D 0A 20 20 20 20 57 52 49 54 45 4C ELN;.. WRITEL
01EB70: 4E 3B 0D 0A 20 20 20 20 57 52 49 54 45 4C 4E 28 N;.. WRITELN(
01EB80: 27 20 20 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ' ----------
01EB90: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
01EBA0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
01EBB0: 2D 2D 2D 2D 2D 2D 27 2C 0D 0A 20 20 20 20 20 20 ------',..
01EBC0: 20 20 20 20 20 20 27 2D 2D 2D 2D 2D 2D 2D 2D 2D '---------
01EBD0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 27 29 3B 0D 0A -----------');..
01EBE0: 20 20 45 4E 44 2E 0D 0A 1A 20 57 52 49 54 45 4C END.... WRITEL
01EBF0: 4E 3B 0D 0A 20 20 20 20 57 52 49 54 45 4C 4E 28 N;.. WRITELN(
01EC00: 00 4D 45 4E 55 46 49 4C 20 50 59 53 9D 01 10 00 .MENUFIL PYS....
01EC10: 34 80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 4...............
01EC20: 00 4D 4F 52 53 45 31 20 20 50 59 53 AD 01 05 00 .MORSE1 PYS....
01EC30: 44 D8 00 00 00 00 00 00 00 00 00 00 00 00 00 00 D...............
01EC40: 00 4D 4F 52 53 45 32 20 20 50 59 53 B2 01 07 00 .MORSE2 PYS....
01EC50: EE 8A 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01EC60: 00 4E 41 56 4E 53 4F 45 47 50 59 53 B9 01 08 00 .NAVNSOEGPYS....
01EC70: CB E0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01EC80: 00 4E 41 56 4E 53 4F 52 54 50 59 53 C1 01 05 00 .NAVNSORTPYS....
01EC90: 1D 68 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .h..............
01ECA0: 00 4E 59 47 41 41 52 44 20 50 59 53 C6 01 05 00 .NYGAARD PYS....
01ECB0: 68 4E 00 00 00 00 00 00 00 00 00 00 00 00 00 00 hN..............
01ECC0: 00 4F 52 44 48 59 50 20 20 50 59 53 CB 01 09 00 .ORDHYP PYS....
01ECD0: 49 D5 00 00 00 00 00 00 00 00 00 00 00 00 00 00 I...............
01ECE0: 00 4F 56 45 52 46 5F 31 20 50 59 53 D4 01 07 00 .OVERF_1 PYS....
01ECF0: 37 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 7...............
01ED00: 69 20 3A 3D 20 31 20 54 4F 20 6E 20 44 49 56 20 i := 1 TO n DIV
01ED10: 32 20 2D 20 31 20 44 4F 0D 0A 20 20 20 20 20 20 2 - 1 DO..
01ED20: 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 BEGIN..
01ED30: 20 20 20 20 20 20 20 78 20 3A 3D 20 78 20 2B 20 x := x +
01ED40: 32 20 2A 20 68 3B 0D 0A 20 20 20 20 20 20 20 20 2 * h;..
01ED50: 20 20 20 20 73 75 6D 31 20 3A 3D 20 73 75 6D 31 sum1 := sum1
01ED60: 20 2B 20 66 28 78 29 3B 0D 0A 20 20 20 20 20 20 + f(x);..
01ED70: 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 END;..
01ED80: 20 20 78 20 3A 3D 20 61 20 2D 20 68 3B 0D 0A 20 x := a - h;..
01ED90: 20 20 20 20 20 20 20 73 75 6D 32 20 3A 3D 20 30 sum2 := 0
01EDA0: 3B 0D 0A 20 20 20 20 20 20 20 20 46 4F 52 20 69 ;.. FOR i
01EDB0: 20 3A 3D 20 31 20 54 4F 20 6E 20 44 49 56 20 32 := 1 TO n DIV 2
01EDC0: 20 44 4F 0D 0A 20 20 20 20 20 20 20 20 20 20 42 DO.. B
01EDD0: 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 EGIN..
01EDE0: 20 20 58 20 3A 3D 20 78 20 2B 20 32 20 2A 20 68 X := x + 2 * h
01EDF0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 73 ;.. s
01EE00: 75 6D 32 20 3A 3D 20 73 75 6D 32 20 2B 20 66 28 um2 := sum2 + f(
01EE10: 78 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 45 x);.. E
01EE20: 4E 44 3B 0D 0A 20 20 20 20 20 20 20 20 6E 79 73 ND;.. nys
01EE30: 75 6D 20 3A 3D 20 28 66 28 61 29 20 2B 20 66 28 um := (f(a) + f(
01EE40: 62 29 20 2B 20 32 20 2A 20 73 75 6D 31 20 2B 20 b) + 2 * sum1 +
01EE50: 34 20 2A 20 73 75 6D 32 29 20 2A 20 68 20 2F 20 4 * sum2) * h /
01EE60: 33 3B 0D 0A 20 20 20 20 20 20 55 4E 54 49 4C 20 3;.. UNTIL
01EE70: 41 42 53 28 67 6C 73 75 6D 2D 6E 79 73 75 6D 29 ABS(glsum-nysum)
01EE80: 20 2F 20 41 42 53 28 6E 79 73 75 6D 29 20 3C 3D / ABS(nysum) <=
01EE90: 20 65 70 73 69 6C 6F 6E 3B 0D 0A 20 20 20 20 20 epsilon;..
01EEA0: 20 69 6E 74 65 67 72 61 6C 20 3A 3D 20 6E 79 73 integral := nys
01EEB0: 75 6D 3B 0D 0A 20 20 20 20 45 4E 44 3B 0D 0A 20 um;.. END;..
01EEC0: 20 0D 0A 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 .. BEGIN..
01EED0: 57 52 49 54 45 28 43 4C 52 48 4F 4D 29 3B 0D 0A WRITE(CLRHOM);..
01EEE0: 20 20 20 20 57 52 49 54 45 28 27 54 61 73 74 20 WRITE('Tast
01EEF0: 76 65 6E 73 74 72 65 20 65 6E 64 65 70 75 6E 6B venstre endepunk
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: 20 20 20 20 20 20 20 20 50 52 4F 47 52 41 4D 20 PROGRAM
01F010: 73 6F 65 67 3B 0D 0A 20 20 20 20 20 20 20 20 0D soeg;.. .
01F020: 0A 20 20 20 20 20 20 20 20 28 2A 20 53 45 41 52 . (* SEAR
01F030: 43 48 20 20 20 20 20 20 20 20 20 20 20 20 20 20 CH
01F040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A *
01F050: 29 0D 0A 20 20 20 20 20 20 20 20 28 2A 20 50 72 ).. (* Pr
01F060: 6F 67 72 61 6D 6D 65 74 20 75 6E 64 65 72 73 7C ogrammet unders|
01F070: 67 65 72 2C 20 6F 6D 20 65 74 20 67 69 76 65 74 ger, om et givet
01F080: 20 2A 29 0D 0A 20 20 20 20 20 20 20 20 28 2A 20 *).. (*
01F090: 74 61 6C 20 66 69 6E 64 65 73 20 69 20 65 6E 20 tal findes i en
01F0A0: 76 65 6B 74 6F 72 20 61 66 20 74 61 6C 20 20 20 vektor af tal
01F0B0: 20 20 20 2A 29 0D 0A 20 20 20 20 20 20 20 20 0D *).. .
01F0C0: 0A 20 20 20 20 20 20 20 20 43 4F 4E 53 54 0D 0A . CONST..
01F0D0: 20 20 20 20 20 20 20 20 20 20 61 6E 74 61 6C 20 antal
01F0E0: 3D 20 32 30 30 3B 0D 0A 20 20 20 20 20 20 20 20 = 200;..
01F0F0: 0D 0A 20 20 20 20 20 20 20 20 54 59 50 45 0D 0A .. TYPE..
01F100: 20 20 20 20 20 20 20 20 20 20 76 65 6B 74 6F 72 vektor
01F110: 20 3D 20 41 52 52 41 59 28 2E 31 20 2E 2E 20 61 = ARRAY(.1 .. a
01F120: 6E 74 61 6C 2E 29 20 4F 46 20 49 4E 54 45 47 45 ntal.) OF INTEGE
01F130: 52 3B 0D 0A 20 20 20 20 20 20 20 20 0D 0A 20 20 R;.. ..
01F140: 20 20 20 20 20 20 56 41 52 0D 0A 20 20 20 20 20 VAR..
01F150: 20 20 20 20 20 76 20 3A 20 76 65 6B 74 6F 72 3B v : vektor;
01F160: 0D 0A 20 20 20 20 20 20 20 20 20 20 69 2C 20 74 .. i, t
01F170: 61 6C 2C 20 6E 72 20 3A 20 49 4E 54 45 47 45 52 al, nr : INTEGER
01F180: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 66 75 6E ;.. fun
01F190: 64 65 74 20 3A 20 42 4F 4F 4C 45 41 4E 3B 0D 0A det : BOOLEAN;..
01F1A0: 20 20 20 20 20 20 20 20 0D 0A 20 20 20 20 20 20 ..
01F1B0: 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 BEGIN..
01F1C0: 20 20 20 52 41 4E 44 4F 4D 49 5A 45 3B 0D 0A 20 RANDOMIZE;..
01F1D0: 20 20 20 20 20 20 20 20 20 57 52 49 54 45 28 43 WRITE(C
01F1E0: 48 52 28 31 32 29 2C 27 56 69 20 66 61 62 72 69 HR(12),'Vi fabri
01F1F0: 6B 65 72 65 72 20 65 6E 20 76 65 6B 74 6F 72 3A kerer en vektor:
01F200: 6C 74 79 70 65 29 3B 0D 0A 20 20 20 20 20 20 20 ltype);..
01F210: 20 20 20 0D 0A 20 20 20 20 56 41 52 0D 0A 20 20 .. VAR..
01F220: 20 20 20 20 6E 61 65 73 74 65 2C 20 69 2C 20 6A naeste, i, j
01F230: 2C 20 6D 69 64 74 2C 20 76 2C 20 68 20 3A 20 49 , midt, v, h : I
01F240: 4E 54 45 47 45 52 3B 0D 0A 20 20 20 20 0D 0A 20 NTEGER;.. ..
01F250: 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 20 BEGIN..
01F260: 46 4F 52 20 69 3A 3D 20 76 65 6E 73 74 72 65 20 FOR i:= venstre
01F270: 2B 20 31 20 54 4F 20 68 6F 65 6A 72 65 20 44 4F + 1 TO hoejre DO
01F280: 0D 0A 20 20 20 20 20 20 20 20 42 45 47 49 4E 0D .. BEGIN.
01F290: 0A 20 20 20 20 20 20 20 20 20 20 6E 61 65 73 74 . naest
01F2A0: 65 20 3A 3D 20 76 65 6B 74 6F 72 28 2E 69 2E 29 e := vektor(.i.)
01F2B0: 3B 20 28 2A 20 6E 61 65 73 74 65 20 73 6B 61 6C ; (* naeste skal
01F2C0: 20 70 7D 20 70 6C 61 64 73 20 2A 29 20 0D 0A 20 p} plads *) ..
01F2D0: 20 20 20 20 20 20 20 20 20 76 20 3A 3D 20 76 65 v := ve
01F2E0: 6E 73 74 72 65 3B 0D 0A 20 20 20 20 20 20 20 20 nstre;..
01F2F0: 20 20 68 20 3A 3D 20 69 20 2D 20 31 3B 0D 0A 20 h := i - 1;..
01F300: 20 20 20 20 20 20 20 20 20 57 48 49 4C 45 20 76 WHILE v
01F310: 20 3C 3D 20 68 20 44 4F 0D 0A 20 20 20 20 20 20 <= h DO..
01F320: 20 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 BEGIN..
01F330: 20 20 20 20 20 20 20 20 20 20 20 6D 69 64 74 20 midt
01F340: 3A 3D 20 28 76 20 2B 20 68 29 20 44 49 56 20 32 := (v + h) DIV 2
01F350: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ;..
01F360: 20 49 46 20 6E 61 65 73 74 65 20 3C 20 76 65 6B IF naeste < vek
01F370: 74 6F 72 28 2E 6D 69 64 74 2E 29 0D 0A 20 20 20 tor(.midt.)..
01F380: 20 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 THE
01F390: 4E 20 68 20 3A 3D 20 6D 69 64 74 20 2D 20 31 0D N h := midt - 1.
01F3A0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
01F3B0: 20 45 4C 53 45 20 76 20 3A 3D 20 6D 69 64 74 20 ELSE v := midt
01F3C0: 2B 20 31 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 + 1;..
01F3D0: 20 20 45 4E 44 3B 20 28 2A 20 57 48 49 4C 45 20 END; (* WHILE
01F3E0: 2A 29 0D 0A 20 20 20 20 20 20 20 20 20 20 46 4F *).. FO
01F3F0: 52 20 6A 20 3A 3D 20 69 20 2D 20 31 20 44 4F 57 R j := i - 1 DOW
01F400: 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 57 ');.. W
01F410: 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 20 20 20 RITELN;..
01F420: 20 20 20 46 4F 52 20 69 20 3A 3D 20 31 20 54 4F FOR i := 1 TO
01F430: 20 61 6E 74 61 6C 20 44 4F 0D 0A 20 20 20 20 20 antal DO..
01F440: 20 20 20 20 20 20 20 76 28 2E 69 2E 29 20 3A 3D v(.i.) :=
01F450: 20 52 41 4E 44 4F 4D 28 31 30 30 30 29 3B 0D 0A RANDOM(1000);..
01F460: 20 20 20 20 20 20 20 20 20 20 46 4F 52 20 69 20 FOR i
01F470: 3A 3D 20 31 20 54 4F 20 61 6E 74 61 6C 20 44 4F := 1 TO antal DO
01F480: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 57 52 .. WR
01F490: 49 54 45 28 76 28 2E 69 2E 29 3A 34 29 3B 0D 0A ITE(v(.i.):4);..
01F4A0: 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4C WRITEL
01F4B0: 4E 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 57 52 N;.. WR
01F4C0: 49 54 45 28 27 54 61 73 74 20 64 65 74 20 67 69 ITE('Tast det gi
01F4D0: 76 6E 65 20 74 61 6C 3A 20 27 29 3B 20 52 45 41 vne tal: '); REA
01F4E0: 44 4C 4E 28 74 61 6C 29 3B 0D 0A 20 20 20 20 20 DLN(tal);..
01F4F0: 20 20 20 20 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 WRITELN;..
01F500: 20 20 20 20 20 20 20 20 20 66 75 6E 64 65 74 20 fundet
01F510: 3A 3D 20 46 41 4C 53 45 3B 0D 0A 20 20 20 20 20 := FALSE;..
01F520: 20 20 20 20 20 69 20 3A 3D 20 30 3B 0D 0A 20 20 i := 0;..
01F530: 20 20 20 20 20 20 20 20 52 45 50 45 41 54 0D 0A REPEAT..
01F540: 20 20 20 20 20 20 20 20 20 20 20 20 69 20 3A 3D i :=
01F550: 20 69 20 2B 20 31 3B 0D 0A 20 20 20 20 20 20 20 i + 1;..
01F560: 20 20 20 20 20 49 46 20 74 61 6C 20 3D 20 76 28 IF tal = v(
01F570: 2E 69 2E 29 0D 0A 20 20 20 20 20 20 20 20 20 20 .i.)..
01F580: 20 20 20 20 54 48 45 4E 0D 0A 20 20 20 20 20 20 THEN..
01F590: 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4E 0D BEGIN.
01F5A0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
01F5B0: 20 20 20 6E 72 20 3A 3D 20 69 3B 0D 0A 20 20 20 nr := i;..
01F5C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 f
01F5D0: 75 6E 64 65 74 20 3A 3D 20 54 52 55 45 3B 0D 0A undet := TRUE;..
01F5E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01F5F0: 45 4E 44 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 END;..
01F600: 4E 54 4F 20 76 20 44 4F 0D 0A 20 20 20 20 20 20 NTO v DO..
01F610: 20 20 20 20 20 20 76 65 6B 74 6F 72 28 2E 6A 20 vektor(.j
01F620: 2B 20 31 2E 29 20 3A 3D 20 76 65 6B 74 6F 72 28 + 1.) := vektor(
01F630: 2E 6A 2E 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 .j.);..
01F640: 20 76 65 6B 74 6F 72 28 2E 76 2E 29 20 3A 3D 20 vektor(.v.) :=
01F650: 6E 61 65 73 74 65 3B 0D 0A 20 20 20 20 20 20 20 naeste;..
01F660: 20 45 4E 44 3B 20 28 2A 20 46 4F 52 20 69 20 2A END; (* FOR i *
01F670: 29 0D 0A 20 20 20 20 45 4E 44 3B 0D 0A 20 20 0D ).. END;.. .
01F680: 0A 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 57 52 . BEGIN.. WR
01F690: 49 54 45 28 43 4C 52 48 4F 4D 29 3B 0D 0A 20 20 ITE(CLRHOM);..
01F6A0: 20 20 57 52 49 54 45 28 27 46 72 61 20 68 76 69 WRITE('Fra hvi
01F6B0: 6C 6B 65 6E 20 66 69 6C 20 73 6B 61 6C 20 74 61 lken fil skal ta
01F6C0: 6C 6C 65 6E 65 20 69 6E 64 6C 7B 73 65 73 3A 20 llene indl{ses:
01F6D0: 27 29 3B 0D 0A 20 20 20 20 52 45 41 44 4C 4E 28 ');.. READLN(
01F6E0: 66 69 6C 6E 61 76 6E 29 3B 0D 0A 20 20 20 20 41 filnavn);.. A
01F6F0: 53 53 49 47 4E 28 69 6E 64 66 69 6C 2C 20 66 69 SSIGN(indfil, fi
01F700: 6C 6E 61 76 6E 29 3B 0D 0A 20 20 20 20 52 45 53 lnavn);.. RES
01F710: 45 54 28 69 6E 64 66 69 6C 29 3B 0D 0A 20 20 20 ET(indfil);..
01F720: 20 69 20 3A 3D 20 30 3B 0D 0A 20 20 20 20 73 75 i := 0;.. su
01F730: 6D 20 3A 3D 20 30 2E 30 3B 0D 0A 20 20 20 20 6B m := 0.0;.. k
01F740: 76 61 64 72 61 74 73 75 6D 20 3A 3D 20 30 2E 30 vadratsum := 0.0
01F750: 3B 0D 0A 20 20 20 20 57 48 49 4C 45 20 4E 4F 54 ;.. WHILE NOT
01F760: 20 45 4F 46 28 69 6E 64 66 69 6C 29 20 44 4F 0D EOF(indfil) DO.
01F770: 0A 20 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 . BEGIN..
01F780: 20 20 20 20 20 20 69 20 3A 3D 20 69 20 2B 20 31 i := i + 1
01F790: 3B 0D 0A 20 20 20 20 20 20 20 20 52 45 41 44 28 ;.. READ(
01F7A0: 69 6E 64 66 69 6C 2C 20 74 61 62 65 6C 28 2E 69 indfil, tabel(.i
01F7B0: 2E 29 29 3B 0D 0A 20 20 20 20 20 20 20 20 73 75 .));.. su
01F7C0: 6D 20 3A 3D 20 73 75 6D 20 2B 20 74 61 62 65 6C m := sum + tabel
01F7D0: 28 2E 69 2E 29 3B 0D 0A 20 20 20 20 20 20 20 20 (.i.);..
01F7E0: 6B 76 61 64 72 61 74 73 75 6D 20 3A 3D 20 6B 76 kvadratsum := kv
01F7F0: 61 64 72 61 74 73 75 6D 20 2B 20 53 51 52 28 74 adratsum + SQR(t
01F800: 55 4E 54 49 4C 20 28 69 20 3D 20 61 6E 74 61 6C UNTIL (i = antal
01F810: 29 20 4F 52 20 66 75 6E 64 65 74 3B 0D 0A 20 20 ) OR fundet;..
01F820: 20 20 20 20 20 20 20 20 49 46 20 66 75 6E 64 65 IF funde
01F830: 74 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 54 t.. T
01F840: 48 45 4E 20 57 52 49 54 45 4C 4E 28 74 61 6C 2C HEN WRITELN(tal,
01F850: 20 27 20 73 74 7D 72 20 73 6F 6D 20 6E 72 2E 20 ' st}r som nr.
01F860: 27 2C 20 6E 72 2C 20 27 20 69 20 76 65 6B 74 6F ', nr, ' i vekto
01F870: 72 65 6E 27 29 0D 0A 20 20 20 20 20 20 20 20 20 ren')..
01F880: 20 20 20 45 4C 53 45 20 57 52 49 54 45 4C 4E 28 ELSE WRITELN(
01F890: 74 61 6C 2C 20 27 20 66 69 6E 64 65 73 20 69 6B tal, ' findes ik
01F8A0: 6B 65 20 62 6C 61 6E 64 74 20 74 61 6C 6C 65 6E ke blandt tallen
01F8B0: 65 20 69 20 76 65 6B 74 6F 72 65 6E 27 29 3B 0D e i vektoren');.
01F8C0: 0A 20 20 20 20 20 20 20 20 45 4E 44 2E 0D 0A 1A . END....
01F8D0: 20 27 20 73 74 7D 72 20 73 6F 6D 20 6E 72 2E 20 ' st}r som nr.
01F8E0: 27 2C 20 6E 72 2C 20 27 20 69 20 76 65 6B 74 6F ', nr, ' i vekto
01F8F0: 72 65 6E 27 29 0D 0A 20 20 20 20 20 20 20 20 20 ren')..
01F900: 00 50 4F 53 54 5F 41 4E 54 50 59 53 16 02 0B 00 .POST_ANTPYS....
01F910: 26 B6 00 00 00 00 00 00 00 00 00 00 00 00 00 00 &...............
01F920: 00 50 52 45 44 45 46 20 20 50 59 53 21 02 02 00 .PREDEF PYS!...
01F930: 9E AD 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01F940: 00 50 52 49 4D 46 4F 52 44 50 59 53 23 02 04 00 .PRIMFORDPYS#...
01F950: FD D1 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01F960: 00 50 52 49 4D 54 41 4C 20 50 59 53 27 02 04 00 .PRIMTAL PYS'...
01F970: E7 4B 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .K..............
01F980: 00 50 52 49 4E 54 45 52 20 50 59 53 2B 02 02 00 .PRINTER PYS+...
01F990: D5 20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 . ..............
01F9A0: 00 50 52 4F 44 55 4B 54 20 50 59 53 2D 02 02 00 .PRODUKT PYS-...
01F9B0: 04 EB 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01F9C0: 00 50 59 54 48 41 47 4F 20 50 59 53 2F 02 03 00 .PYTHAGO PYS/...
01F9D0: CE 92 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01F9E0: 00 51 55 49 43 4B 53 4F 52 50 59 53 32 02 06 00 .QUICKSORPYS2...
01F9F0: 3B B0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ;...............
01FA00: 61 62 65 6C 28 2E 69 2E 29 29 3B 0D 0A 20 20 20 abel(.i.));..
01FA10: 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 6E 20 3A END;.. n :
01FA20: 3D 20 69 3B 0D 0A 20 20 20 20 6D 69 64 64 65 6C = i;.. middel
01FA30: 74 61 6C 20 3A 3D 20 73 75 6D 20 2F 20 6E 3B 0D tal := sum / n;.
01FA40: 0A 20 20 20 20 76 61 72 69 61 6E 73 20 3A 3D 20 . varians :=
01FA50: 28 6B 76 61 64 72 61 74 73 75 6D 20 2D 20 73 75 (kvadratsum - su
01FA60: 6D 20 2A 20 73 75 6D 20 2F 20 6E 29 20 2F 20 28 m * sum / n) / (
01FA70: 6E 20 2D 20 31 29 3B 0D 0A 20 20 20 20 73 70 72 n - 1);.. spr
01FA80: 65 64 6E 69 6E 67 20 3A 3D 20 53 51 52 54 28 76 edning := SQRT(v
01FA90: 61 72 69 61 6E 73 29 3B 0D 0A 20 20 20 20 73 6F arians);.. so
01FAA0: 72 74 65 72 28 31 2C 20 6E 2C 20 74 61 62 65 6C rter(1, n, tabel
01FAB0: 29 3B 0D 0A 20 20 20 20 6D 69 6E 64 73 74 65 76 );.. mindstev
01FAC0: 61 65 72 64 69 20 3A 3D 20 74 61 62 65 6C 28 2E aerdi := tabel(.
01FAD0: 31 2E 29 3B 0D 0A 20 20 20 20 73 74 6F 65 72 73 1.);.. stoers
01FAE0: 74 65 76 61 65 72 64 69 20 3A 3D 20 74 61 62 65 tevaerdi := tabe
01FAF0: 6C 28 2E 6E 2E 29 3B 0D 0A 20 20 20 20 76 61 72 l(.n.);.. var
01FB00: 69 61 74 69 6F 6E 73 62 72 65 64 64 65 20 3A 3D iationsbredde :=
01FB10: 20 73 74 6F 65 72 73 74 65 76 61 65 72 64 69 20 stoerstevaerdi
01FB20: 2D 20 6D 69 6E 64 73 74 65 76 61 65 72 64 69 3B - mindstevaerdi;
01FB30: 0D 0A 20 20 20 20 6B 76 61 72 74 69 6C 31 20 3A .. kvartil1 :
01FB40: 3D 20 74 61 62 65 6C 28 2E 52 4F 55 4E 44 28 6E = tabel(.ROUND(n
01FB50: 20 2F 20 34 20 2B 20 30 2E 34 39 39 39 39 29 2E / 4 + 0.49999).
01FB60: 29 3B 0D 0A 20 20 20 20 6D 65 64 69 61 6E 20 3A );.. median :
01FB70: 3D 20 74 61 62 65 6C 28 2E 52 4F 55 4E 44 28 6E = tabel(.ROUND(n
01FB80: 20 2F 20 32 20 2B 20 30 2E 34 39 39 39 39 29 2E / 2 + 0.49999).
01FB90: 29 3B 0D 0A 20 20 20 20 6B 76 61 72 74 69 6C 33 );.. kvartil3
01FBA0: 20 3A 3D 20 74 61 62 65 6C 28 2E 52 4F 55 4E 44 := tabel(.ROUND
01FBB0: 28 6E 20 2A 20 33 20 2F 20 34 20 2B 20 30 2E 34 (n * 3 / 4 + 0.4
01FBC0: 39 39 39 39 29 2E 29 3B 0D 0A 20 20 20 20 57 52 9999).);.. WR
01FBD0: 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 57 52 49 54 ITELN;.. WRIT
01FBE0: 45 4C 4E 28 27 4F 62 73 65 72 76 61 74 69 6F 6E ELN('Observation
01FBF0: 73 73 7B 74 74 65 74 73 20 73 74 7C 72 72 65 6C ss{ttets st|rrel
01FC00: 00 00 66 DB DB DB 66 00 3C 42 81 99 81 42 3C 00 ..f...f.<B...B<.
01FC10: FE C6 C0 C0 C0 C0 C0 00 10 38 38 6C 6C C6 FE 00 .........88ll...
01FC20: 3C 42 A5 99 A5 42 3C 00 00 00 00 24 18 24 00 00 <B...B<....$.$..
01FC30: 00 00 18 00 7E 00 18 00 00 00 18 18 00 66 66 00 ....~........ff.
01FC40: FE 6C 6C 6C 6C 6C 6C 00 18 18 18 18 7E 3C 18 00 .llllll.....~<..
01FC50: FE C6 60 30 60 C6 FE 00 00 20 60 FE FE 60 20 00 ..`0`.... `..` .
01FC60: 00 08 0C FE FE 0C 08 00 00 18 18 7E 18 18 7E 00 ...........~..~.
01FC70: 00 24 66 FF FF 66 24 00 7C C6 C6 C6 C6 6C EE 00 .$f..f$.|....l..
01FC80: 00 00 73 DE CC DE 73 00 7C C6 C6 FC C6 C6 F8 C0 ..s...s.|.......
01FC90: 66 66 3C 66 66 66 3C 00 3C 60 3C 66 66 66 3C 00 ff<fff<.<`<fff<.
01FCA0: 00 00 1E 30 7C 30 1E 00 38 6C C6 FE C6 6C 38 00 ...0|0..8l...l8.
01FCB0: 00 C0 60 30 38 6C C6 00 00 00 66 66 66 7C 60 60 ..`08l....fff|``
01FCC0: 00 00 FE 6C 6C 6C 6C 00 00 00 3C 66 66 7C 60 60 ...llll...<ff|``
01FCD0: 00 00 7E D8 D8 D8 70 00 00 73 CE 18 18 18 0C 00 ..~...p..s......
01FCE0: 03 06 3C 66 66 3C 60 C0 00 E6 3C 18 38 6C C7 00 ..<ff<`...<.8l..
01FCF0: 03 06 66 66 66 3C 60 C0 00 00 66 C3 DB DB 7E 00 ..fff<`...f...~.
01FD00: 00 00 00 00 00 00 00 00 18 18 18 18 18 00 18 00 ................
01FD10: 6C 6C 6C 00 00 00 00 00 6C 6C FE 6C FE 6C 6C 00 lll.....ll.l.ll.
01FD20: 18 3E 58 3C 1A 7C 18 00 00 C6 CC 18 30 66 C6 00 .>X<.|......0f..
01FD30: 38 6C 38 76 DC CC 76 00 18 18 18 00 00 00 00 00 8l8v..v.........
01FD40: 0C 18 30 30 30 18 0C 00 30 18 0C 0C 0C 18 30 00 ..000...0.....0.
01FD50: 00 66 3C FF 3C 66 00 00 00 18 18 7E 18 18 00 00 .f<.<f.....~....
01FD60: 00 00 00 00 00 18 18 30 00 00 00 7E 00 00 00 00 .......0...~....
01FD70: 00 00 00 00 00 18 18 00 06 0C 18 30 60 C0 80 00 ...........0`...
01FD80: 38 6C CE D6 E6 6C 38 00 18 38 18 18 18 18 7E 00 8l...l8..8....~.
01FD90: 3C 66 06 3C 60 66 7E 00 3C 66 06 1C 06 66 3C 00 <f.<`f~.<f...f<.
01FDA0: 1C 3C 6C CC FE 0C 1E 00 7E 62 60 7C 06 66 3C 00 .<l.....~b`|.f<.
01FDB0: 3C 66 60 7C 66 66 3C 00 7E 66 06 0C 18 18 18 00 <f`|ff<.~f......
01FDC0: 3C 66 66 3C 66 66 3C 00 3C 66 66 3E 06 66 3C 00 <ff<ff<.<ff>.f<.
01FDD0: 00 00 18 18 00 18 18 00 00 00 18 18 00 18 18 30 ...............0
01FDE0: 0C 18 30 60 30 18 0C 00 00 00 7E 00 7E 00 00 00 ..0`0.....~.~...
01FDF0: 60 30 18 0C 18 30 60 00 3C 66 66 0C 18 00 18 00 `0...0`.<ff.....
01FE00: 73 65 3A 20 27 2C 20 6E 29 3B 0D 0A 20 20 20 20 se: ', n);..
01FE10: 57 52 49 54 45 4C 4E 28 27 4D 69 6E 64 73 74 65 WRITELN('Mindste
01FE20: 76 7B 72 64 69 3A 20 20 20 20 20 20 20 20 20 20 v{rdi:
01FE30: 20 20 20 20 20 20 20 20 27 2C 20 6D 69 6E 64 73 ', minds
01FE40: 74 65 76 61 65 72 64 69 29 3B 0D 0A 20 20 20 20 tevaerdi);..
01FE50: 57 52 49 54 45 4C 4E 28 27 53 74 7C 72 73 74 65 WRITELN('St|rste
01FE60: 76 7B 72 64 69 3A 20 20 20 20 20 20 20 20 20 20 v{rdi:
01FE70: 20 20 20 20 20 20 20 20 27 2C 20 73 74 6F 65 72 ', stoer
01FE80: 73 74 65 76 61 65 72 64 69 29 3B 0D 0A 20 20 20 stevaerdi);..
01FE90: 20 57 52 49 54 45 4C 4E 28 27 56 61 72 69 61 74 WRITELN('Variat
01FEA0: 69 6F 6E 73 62 72 65 64 64 65 3A 20 20 20 20 20 ionsbredde:
01FEB0: 20 20 20 20 20 20 20 20 20 27 2C 20 76 61 72 69 ', vari
01FEC0: 61 74 69 6F 6E 73 62 72 65 64 64 65 29 3B 0D 0A ationsbredde);..
01FED0: 20 20 20 20 57 52 49 54 45 4C 4E 28 27 4E 65 64 WRITELN('Ned
01FEE0: 72 65 20 6B 76 61 72 74 69 6C 3A 20 20 20 20 20 re kvartil:
01FEF0: 20 20 20 20 20 20 20 20 20 20 20 20 27 2C 20 6B ', k
01FF00: 76 61 72 74 69 6C 31 29 3B 0D 0A 20 20 20 20 57 vartil1);.. W
01FF10: 52 49 54 45 4C 4E 28 27 4D 65 64 69 61 6E 3A 20 RITELN('Median:
01FF20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01FF30: 20 20 20 20 20 20 20 27 2C 20 6D 65 64 69 61 6E ', median
01FF40: 29 3B 0D 0A 20 20 20 20 57 52 49 54 45 4C 4E 28 );.. WRITELN(
01FF50: 27 5C 76 72 65 20 6B 76 61 72 74 69 6C 3A 20 20 '\vre kvartil:
01FF60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01FF70: 27 2C 20 6B 76 61 72 74 69 6C 33 29 3B 0D 0A 20 ', kvartil3);..
01FF80: 20 20 20 57 52 49 54 45 4C 4E 28 27 4D 69 64 64 WRITELN('Midd
01FF90: 65 6C 74 61 6C 3A 20 20 20 20 20 20 20 20 20 20 eltal:
01FFA0: 20 20 20 20 20 20 20 20 20 20 20 27 2C 20 6D 69 ', mi
01FFB0: 64 64 65 6C 74 61 6C 20 3A 20 38 20 3A 20 32 29 ddeltal : 8 : 2)
01FFC0: 3B 0D 0A 20 20 20 20 57 52 49 54 45 4C 4E 28 27 ;.. WRITELN('
01FFD0: 56 61 72 69 61 6E 73 3A 20 20 20 20 20 20 20 20 Varians:
01FFE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 '
01FFF0: 2C 20 76 61 72 69 61 6E 73 20 3A 20 38 20 3A 20 , varians : 8 :
020000: 50 52 4F 47 52 41 4D 20 73 74 61 74 66 69 6C 3B PROGRAM statfil;
020010: 0D 0A 0D 0A 20 20 43 4F 4E 53 54 0D 0A 20 20 20 .... CONST..
020020: 20 6D 61 78 20 3D 20 35 30 30 3B 0D 0A 20 20 20 max = 500;..
020030: 0D 0A 20 20 54 59 50 45 0D 0A 20 20 20 20 74 61 .. TYPE.. ta
020040: 62 65 6C 74 79 70 65 20 3D 20 41 52 52 41 59 28 beltype = ARRAY(
020050: 2E 31 20 2E 2E 20 6D 61 78 2E 29 20 4F 46 20 49 .1 .. max.) OF I
020060: 4E 54 45 47 45 52 3B 0D 0A 20 20 20 20 73 74 72 NTEGER;.. str
020070: 31 34 20 3D 20 53 54 52 49 4E 47 28 2E 31 34 2E 14 = STRING(.14.
020080: 29 3B 0D 0A 20 20 20 20 66 69 6C 74 79 70 65 20 );.. filtype
020090: 3D 20 46 49 4C 45 20 4F 46 20 49 4E 54 45 47 45 = FILE OF INTEGE
0200A0: 52 3B 0D 0A 20 20 0D 0A 20 20 56 41 52 0D 0A 20 R;.. .. VAR..
0200B0: 20 20 20 74 61 62 65 6C 2C 20 6F 62 73 2C 20 68 tabel, obs, h
0200C0: 79 70 20 3A 20 74 61 62 65 6C 74 79 70 65 3B 0D yp : tabeltype;.
0200D0: 0A 20 20 20 20 66 69 6C 6E 61 76 6E 20 3A 20 73 . filnavn : s
0200E0: 74 72 31 34 3B 0D 0A 20 20 20 20 69 6E 64 66 69 tr14;.. indfi
0200F0: 6C 20 3A 20 66 69 6C 74 79 70 65 3B 0D 0A 20 20 l : filtype;..
020100: 20 20 69 2C 20 6A 2C 20 6E 2C 20 61 6E 74 61 6C i, j, n, antal
020110: 2C 20 6B 75 6D 68 79 70 2C 20 6B 76 61 72 74 69 , kumhyp, kvarti
020120: 6C 31 2C 20 6D 65 64 69 61 6E 2C 20 6B 76 61 72 l1, median, kvar
020130: 74 69 6C 33 20 3A 20 49 4E 54 45 47 45 52 3B 0D til3 : INTEGER;.
020140: 0A 20 20 20 20 6D 69 6E 64 73 74 65 76 61 65 72 . mindstevaer
020150: 64 69 2C 20 73 74 6F 65 72 73 74 65 76 61 65 72 di, stoerstevaer
020160: 64 69 2C 20 76 61 72 69 61 74 69 6F 6E 73 62 72 di, variationsbr
020170: 65 64 64 65 20 3A 20 49 4E 54 45 47 45 52 3B 0D edde : INTEGER;.
020180: 0A 20 20 20 20 73 75 6D 2C 20 6B 76 61 64 72 61 . sum, kvadra
020190: 74 73 75 6D 2C 20 6D 69 64 64 65 6C 74 61 6C 2C tsum, middeltal,
0201A0: 20 76 61 72 69 61 6E 73 2C 20 73 70 72 65 64 6E varians, spredn
0201B0: 69 6E 67 20 3A 20 52 45 41 4C 3B 0D 0A 20 20 0D ing : REAL;.. .
0201C0: 0A 20 20 50 52 4F 43 45 44 55 52 45 20 73 6F 72 . PROCEDURE sor
0201D0: 74 65 72 28 76 65 6E 73 74 72 65 2C 20 68 6F 65 ter(venstre, hoe
0201E0: 6A 72 65 20 3A 20 49 4E 54 45 47 45 52 3B 20 56 jre : INTEGER; V
0201F0: 41 52 20 76 65 6B 74 6F 72 20 3A 20 74 61 62 65 AR vektor : tabe
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: 32 29 3B 0D 0A 20 20 20 20 57 52 49 54 45 4C 4E 2);.. WRITELN
020310: 28 27 53 70 72 65 64 6E 69 6E 67 3A 20 20 20 20 ('Spredning:
020320: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
020330: 20 27 2C 20 73 70 72 65 64 6E 69 6E 67 20 3A 20 ', spredning :
020340: 38 20 3A 20 32 29 3B 0D 0A 20 20 20 20 46 4F 52 8 : 2);.. FOR
020350: 20 69 20 3A 3D 20 32 20 54 4F 20 6E 20 44 4F 0D i := 2 TO n DO.
020360: 0A 20 20 20 20 20 20 68 79 70 28 2E 69 2E 29 20 . hyp(.i.)
020370: 3A 3D 20 30 3B 0D 0A 20 20 20 20 6A 20 3A 3D 20 := 0;.. j :=
020380: 31 3B 0D 0A 20 20 20 20 6F 62 73 28 2E 6A 2E 29 1;.. obs(.j.)
020390: 20 3A 3D 20 74 61 62 65 6C 28 2E 31 2E 29 3B 0D := tabel(.1.);.
0203A0: 0A 20 20 20 20 68 79 70 28 2E 6A 2E 29 20 3A 3D . hyp(.j.) :=
0203B0: 20 31 3B 0D 0A 20 20 20 20 46 4F 52 20 69 20 3A 1;.. FOR i :
0203C0: 3D 20 32 20 54 4F 20 20 6E 20 44 4F 0D 0A 20 20 = 2 TO n DO..
0203D0: 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 BEGIN..
0203E0: 20 20 20 49 46 20 74 61 62 65 6C 28 2E 69 2E 29 IF tabel(.i.)
0203F0: 20 3C 3E 20 74 61 62 65 6C 28 2E 69 20 2D 20 31 <> tabel(.i - 1
020400: 2E 29 0D 0A 20 20 20 20 20 20 20 20 20 20 54 48 .).. TH
020410: 45 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 EN..
020420: 42 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 BEGIN..
020430: 20 20 20 20 20 6A 20 3A 3D 20 6A 20 2B 20 31 3B j := j + 1;
020440: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
020450: 6F 62 73 28 2E 6A 2E 29 20 3A 3D 20 74 61 62 65 obs(.j.) := tabe
020460: 6C 28 2E 69 2E 29 3B 0D 0A 20 20 20 20 20 20 20 l(.i.);..
020470: 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 END;..
020480: 20 20 20 68 79 70 28 2E 6A 2E 29 20 3A 3D 20 68 hyp(.j.) := h
020490: 79 70 28 2E 6A 2E 29 20 2B 20 31 3B 0D 0A 20 20 yp(.j.) + 1;..
0204A0: 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 61 6E END;.. an
0204B0: 74 61 6C 20 3A 3D 20 6A 3B 0D 0A 20 20 20 20 6B tal := j;.. k
0204C0: 75 6D 68 79 70 20 3A 3D 20 30 3B 0D 0A 20 20 20 umhyp := 0;..
0204D0: 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 57 WRITELN;.. W
0204E0: 52 49 54 45 4C 4E 28 27 4F 62 73 2E 76 7B 72 64 RITELN('Obs.v{rd
0204F0: 69 20 20 20 48 79 70 70 69 67 68 65 64 20 20 20 i Hyppighed
020500: 20 20 20 20 20 20 20 20 50 52 4F 47 52 41 4D 20 PROGRAM
020510: 73 75 6D 62 72 6F 65 6B 3B 0D 0A 20 20 20 20 20 sumbroek;..
020520: 20 20 20 0D 0A 20 20 20 20 20 20 20 20 20 20 56 .. V
020530: 41 52 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 AR..
020540: 74 31 2C 20 74 32 2C 20 6E 31 2C 20 6E 32 20 3A t1, t2, n1, n2 :
020550: 20 49 4E 54 45 47 45 52 3B 0D 0A 20 20 20 20 20 INTEGER;..
020560: 20 20 20 20 20 0D 0A 20 20 20 20 20 20 20 20 20 ..
020570: 20 50 52 4F 43 45 44 55 52 45 20 66 6F 72 6B 6F PROCEDURE forko
020580: 72 74 28 56 41 52 20 74 61 65 6C 6C 65 72 2C 20 rt(VAR taeller,
020590: 6E 61 65 76 6E 65 72 20 3A 20 49 4E 54 45 47 45 naevner : INTEGE
0205A0: 52 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 0D R);.. .
0205B0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 56 41 52 . VAR
0205C0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
0205D0: 74 61 65 6C 6C 65 72 6B 6F 70 69 2C 20 6E 61 65 taellerkopi, nae
0205E0: 76 6E 65 72 6B 6F 70 69 2C 20 72 65 73 74 20 3A vnerkopi, rest :
0205F0: 20 49 4E 54 45 47 45 52 3B 0D 0A 20 20 20 20 20 INTEGER;..
020600: 20 20 20 20 20 20 20 0D 0A 20 20 20 20 20 20 20 ..
020610: 20 20 20 20 20 42 45 47 49 4E 20 28 2A 20 66 6F BEGIN (* fo
020620: 72 6B 6F 72 74 20 2A 29 0D 0A 20 20 20 20 20 20 rkort *)..
020630: 20 20 20 20 20 20 20 20 74 61 65 6C 6C 65 72 6B taellerk
020640: 6F 70 69 20 3A 3D 20 74 61 65 6C 6C 65 72 3B 0D opi := taeller;.
020650: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6E . n
020660: 61 65 76 6E 65 72 6B 6F 70 69 20 3A 3D 20 6E 61 aevnerkopi := na
020670: 65 76 6E 65 72 3B 0D 0A 20 20 20 20 20 20 20 20 evner;..
020680: 20 20 20 20 20 20 52 45 50 45 41 54 0D 0A 20 20 REPEAT..
020690: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 re
0206A0: 73 74 20 3A 3D 20 74 61 65 6C 6C 65 72 6B 6F 70 st := taellerkop
0206B0: 69 20 4D 4F 44 20 6E 61 65 76 6E 65 72 6B 6F 70 i MOD naevnerkop
0206C0: 69 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 i;..
0206D0: 20 20 20 20 74 61 65 6C 6C 65 72 6B 6F 70 69 20 taellerkopi
0206E0: 3A 3D 20 6E 61 65 76 6E 65 72 6B 6F 70 69 3B 0D := naevnerkopi;.
0206F0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
020700: 46 72 65 6B 76 65 6E 73 20 20 20 4B 75 6D 2E 48 Frekvens Kum.H
020710: 79 70 2E 20 20 20 4B 75 6D 2E 46 72 65 6B 76 2E yp. Kum.Frekv.
020720: 27 29 3B 0D 0A 20 20 20 20 57 52 49 54 45 4C 4E ');.. WRITELN
020730: 3B 0D 0A 20 20 20 20 46 4F 52 20 6A 20 3A 3D 20 ;.. FOR j :=
020740: 31 20 54 4F 20 61 6E 74 61 6C 20 44 4F 0D 0A 20 1 TO antal DO..
020750: 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 BEGIN..
020760: 20 20 20 20 6B 75 6D 68 79 70 20 3A 3D 20 6B 75 kumhyp := ku
020770: 6D 68 79 70 20 2B 20 68 79 70 28 2E 6A 2E 29 3B mhyp + hyp(.j.);
020780: 0D 0A 20 20 20 20 20 20 20 20 57 52 49 54 45 4C .. WRITEL
020790: 4E 28 6F 62 73 28 2E 6A 2E 29 20 3A 20 36 2C 20 N(obs(.j.) : 6,
0207A0: 68 79 70 28 2E 6A 2E 29 20 3A 20 31 33 2C 20 68 hyp(.j.) : 13, h
0207B0: 79 70 28 2E 6A 2E 29 20 2F 20 6E 20 3A 20 31 32 yp(.j.) / n : 12
0207C0: 20 3A 20 32 2C 0D 0A 20 20 20 20 20 20 20 20 20 : 2,..
0207D0: 20 20 20 20 20 20 20 6B 75 6D 68 79 70 20 3A 20 kumhyp :
0207E0: 39 2C 20 6B 75 6D 68 79 70 20 2F 20 6E 20 3A 20 9, kumhyp / n :
0207F0: 31 33 20 3A 20 32 29 3B 0D 0A 20 20 20 20 20 20 13 : 2);..
020800: 45 4E 44 3B 0D 0A 20 20 45 4E 44 2E 0D 0A 1A 1A END;.. END.....
020810: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
020820: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
020830: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
020840: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
020850: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
020860: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
020870: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
020880: 00 53 4F 45 47 20 20 20 20 50 59 53 76 02 05 00 .SOEG PYSv...
020890: 77 25 00 00 00 00 00 00 00 00 00 00 00 00 00 00 w%..............
0208A0: 00 53 54 41 54 46 49 4C 20 50 59 53 7B 02 0A 00 .STATFIL PYS{...
0208B0: BC 52 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .R..............
0208C0: 00 53 54 41 54 49 53 54 49 50 59 53 85 02 04 00 .STATISTIPYS....
0208D0: 86 C6 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0208E0: 00 53 55 4D 42 52 4F 45 4B 50 59 53 89 02 04 00 .SUMBROEKPYS....
0208F0: D1 B2 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
020900: 20 6E 61 65 76 6E 65 72 6B 6F 70 69 20 3A 3D 20 naevnerkopi :=
020910: 72 65 73 74 3B 0D 0A 20 20 20 20 20 20 20 20 20 rest;..
020920: 20 20 20 20 20 55 4E 54 49 4C 20 6E 61 65 76 6E UNTIL naevn
020930: 65 72 6B 6F 70 69 20 3D 20 30 3B 20 28 2A 20 74 erkopi = 0; (* t
020940: 61 65 6C 6C 65 72 6B 6F 70 69 20 65 72 20 6E 75 aellerkopi er nu
020950: 20 73 66 64 20 2A 29 0D 0A 20 20 20 20 20 20 20 sfd *)..
020960: 20 20 20 20 20 20 20 74 61 65 6C 6C 65 72 20 3A taeller :
020970: 3D 20 74 61 65 6C 6C 65 72 20 44 49 56 20 74 61 = taeller DIV ta
020980: 65 6C 6C 65 72 6B 6F 70 69 3B 0D 0A 20 20 20 20 ellerkopi;..
020990: 20 20 20 20 20 20 20 20 20 20 6E 61 65 76 6E 65 naevne
0209A0: 72 20 3A 3D 20 6E 61 65 76 6E 65 72 20 44 49 56 r := naevner DIV
0209B0: 20 74 61 65 6C 6C 65 72 6B 6F 70 69 3B 0D 0A 20 taellerkopi;..
0209C0: 20 20 20 20 20 20 20 20 20 20 20 45 4E 44 3B 20 END;
0209D0: 28 2A 20 66 6F 72 6B 6F 72 74 20 2A 29 0D 0A 20 (* forkort *)..
0209E0: 20 20 20 20 20 20 20 20 20 20 20 0D 0A 20 20 20 ..
0209F0: 20 20 20 20 20 20 20 42 45 47 49 4E 20 28 2A 20 BEGIN (*
020A00: 73 75 6D 62 72 6F 65 6B 20 2A 29 0D 0A 20 20 20 sumbroek *)..
020A10: 20 20 20 20 20 20 20 20 20 57 52 49 54 45 28 43 WRITE(C
020A20: 48 52 28 31 32 29 2C 20 27 54 61 73 74 20 66 7C HR(12), 'Tast f|
020A30: 72 73 74 65 20 62 72 7C 6B 73 20 74 7B 6C 6C 65 rste br|ks t{lle
020A40: 72 20 6F 67 20 6E 7B 76 6E 65 72 3A 20 27 29 3B r og n{vner: ');
020A50: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 52 45 .. RE
020A60: 41 44 4C 4E 28 74 31 2C 20 6E 31 29 3B 0D 0A 20 ADLN(t1, n1);..
020A70: 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 WRITE
020A80: 28 27 54 61 73 74 20 61 6E 64 65 6E 20 62 72 7C ('Tast anden br|
020A90: 6B 73 20 74 7B 6C 6C 65 72 20 6F 67 20 6E 7B 76 ks t{ller og n{v
020AA0: 6E 65 72 3A 20 27 29 3B 0D 0A 20 20 20 20 20 20 ner: ');..
020AB0: 20 20 20 20 20 20 52 45 41 44 4C 4E 28 74 32 2C READLN(t2,
020AC0: 20 6E 32 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 n2);..
020AD0: 20 20 20 57 52 49 54 45 28 74 31 2C 20 27 2F 27 WRITE(t1, '/'
020AE0: 2C 20 6E 31 2C 20 27 20 2B 20 27 2C 20 74 32 2C , n1, ' + ', t2,
020AF0: 20 27 2F 27 2C 20 6E 32 2C 20 27 20 3D 20 27 29 '/', n2, ' = ')
020B00: 36 35 34 33 32 31 C3 24 F6 C3 E4 F8 C3 F2 F8 C3 654321.$........
020B10: FA F8 00 00 00 00 00 00 00 4E FA 00 00 00 00 00 .........N......
020B20: 00 C3 77 F7 79 21 00 00 22 28 FA 39 22 66 FB 31 ..w.y!.."(.9"f.1
020B30: 66 FB 21 CB F8 E5 FE 0C D2 94 F7 32 DF FB 21 86 f.!........2..!.
020B40: F6 06 00 09 09 7E 23 66 6F E9 43 4F 50 59 52 49 .....~#fo.COPYRI
020B50: 47 48 54 20 28 43 29 20 31 39 38 32 2C 20 44 49 GHT (C) 1982, DI
020B60: 47 49 54 41 4C 20 52 45 53 45 41 52 43 48 20 31 GITAL RESEARCH 1
020B70: 35 31 32 38 32 00 00 00 00 00 00 00 00 00 00 00 51282...........
020B80: C9 7D 32 B6 FB 7C 32 B8 FB C9 1C 3F 17 3F D6 3E .}2..|2....?.?.>
020B90: CB 3E 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .>..............
020BA0: 64 FF FF BE 1F BF FB BE FD BE 80 4C 02 1C 3F 17 d..........L..?.
020BB0: 3F D6 3E CB 3E 01 00 00 00 00 00 00 00 00 00 00 ?.>.>...........
020BC0: 00 00 00 7F FF 7A BF 9A BF FB BE FD BE 80 4E 02 .....z........N.
020BD0: D5 5E 23 56 EB D1 C9 9C 89 60 89 F4 89 D4 89 02 .^#V.....`......
020BE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 53 FF 00 .............S..
020BF0: 00 89 3C FB BE FD BE FF FF 00 00 00 00 00 00 00 ..<.............
020C00: 3F E1 D8 EB 20 D0 21 00 00 C9 3A E7 FB FE FF C8 ?... .!...:.....
020C10: 3A F0 BE 4F C3 FB 00 21 86 00 18 03 21 89 00 DD :..O...!....!...
020C20: E5 E5 D5 CD 4D 3F 38 10 FE 08 47 C5 3A F2 BE 57 ....M?8...G.:..W
020C30: 3A F4 BE 5F C4 0A 3F C1 D1 E1 DD E1 3E 00 D8 20 :.._..?.....>..
020C40: DE 78 EE 08 28 05 FE 09 3E 02 C8 3D C9 E5 CD 76 .x..(...>..=...v
020C50: 3F 2A F0 BE 7C B7 20 0A 4D 21 FA BE 7E B9 71 C4 ?*..|. .M!..~.q.
020C60: FE 00 3A F1 BE 4F 3A F4 BE 5F 3A F2 BE 57 3A F9 ..:..O:.._:..W:.
020C70: BE 47 2A F6 BE C9 21 0C 00 19 CD D0 3F E5 DD E1 .G*...!.....?...
020C80: C9 ED 43 F6 BE 3A 58 FE 32 F9 BE C9 69 60 7A B3 ..C..:X.2...i`z.
020C90: C8 EB 09 6E 26 00 C9 11 F8 FF 18 03 11 F6 FF 3A ...n&..........:
020CA0: F0 BE CD BB 3E E5 19 CD D0 3F D1 1B 1B 1A 32 F1 ....>....?....2.
020CB0: BE 13 13 E9 79 32 F8 BE C9 AF C9 21 2F FE 87 8D ....y2.....!/...
020CC0: 6F 8C 95 67 C3 D0 3F AF 32 FA BE C9 CD E6 00 B7 o..g..?.2.......
020CD0: C0 11 B5 3F 12 C9 DD E5 D5 CD 4E 3F DD 7E 1A B7 ...?......N?.~..
020CE0: 37 20 13 CD 92 00 30 0E 01 FF FD 09 38 05 EB 01 7 ....0.....8...
020CF0: A4 FF 09 3E 06 3F E1 DD E1 47 11 00 00 E5 D4 0A ...>.?...G......
020D00: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 74 ;.. t
020D10: 31 20 3A 3D 20 74 31 20 2A 20 6E 32 20 2B 20 74 1 := t1 * n2 + t
020D20: 32 20 2A 20 6E 31 3B 20 28 2A 20 4F 62 73 3A 20 2 * n1; (* Obs:
020D30: 66 61 72 65 20 66 6F 72 20 6F 76 65 72 66 6C 6F fare for overflo
020D40: 77 20 2A 29 0D 0A 20 20 20 20 20 20 20 20 20 20 w *)..
020D50: 20 20 6E 31 20 3A 3D 20 6E 31 20 2A 20 6E 32 3B n1 := n1 * n2;
020D60: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 66 6F .. fo
020D70: 72 6B 6F 72 74 28 74 31 2C 20 6E 31 29 3B 0D 0A rkort(t1, n1);..
020D80: 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 WRIT
020D90: 45 4C 4E 28 74 31 2C 20 27 2F 27 2C 20 6E 31 29 ELN(t1, '/', n1)
020DA0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 45 4E 44 ;.. END
020DB0: 2E 20 28 2A 20 73 75 6D 62 72 6F 65 6B 20 2A 29 . (* sumbroek *)
020DC0: 0D 0A 1A 29 0D 0A 20 20 20 20 20 20 20 20 20 20 ...)..
020DD0: 20 20 6E 31 20 3A 3D 20 6E 31 20 2A 20 6E 32 3B n1 := n1 * n2;
020DE0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 66 6F .. fo
020DF0: 72 6B 6F 72 74 28 74 31 2C 20 6E 31 29 3B 0D 0A rkort(t1, n1);..
020E00: 00 55 44 36 20 20 20 20 20 50 59 53 AB 02 03 00 .UD6 PYS....
020E10: BD CC 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
020E20: 00 55 50 43 41 53 45 20 20 50 59 53 AE 02 04 00 .UPCASE PYS....
020E30: 34 1E 00 00 00 00 00 00 00 00 00 00 00 00 00 00 4...............
020E40: 00 56 41 52 45 46 49 4C 20 50 59 53 B2 02 15 00 .VAREFIL PYS....
020E50: 2F 6C 00 00 00 00 00 00 00 00 00 00 00 00 00 00 /l..............
020E60: 00 56 41 52 45 50 4F 53 54 50 59 53 C7 02 06 00 .VAREPOSTPYS....
020E70: BE BE 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
020E80: 00 56 41 52 45 52 31 20 20 50 59 53 CD 02 03 00 .VARER1 PYS....
020E90: ED F0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
020EA0: 00 56 41 52 45 52 32 20 20 50 59 53 D0 02 03 00 .VARER2 PYS....
020EB0: C7 EA 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
020EC0: 00 56 4F 4B 41 4C 45 52 20 50 59 53 D3 02 07 00 .VOKALER PYS....
020ED0: 9B 83 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
020EE0: FF 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 . ....
020EF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
020F00: 50 52 4F 47 52 41 4D 20 73 74 61 74 69 73 74 69 PROGRAM statisti
020F10: 3B 0D 0A 20 20 0D 0A 20 20 54 59 50 45 0D 0A 20 ;.. .. TYPE..
020F20: 20 20 20 61 72 72 61 79 31 30 30 20 3D 20 41 52 array100 = AR
020F30: 52 41 59 28 2E 31 20 2E 2E 20 31 30 30 2E 29 20 RAY(.1 .. 100.)
020F40: 4F 46 20 52 45 41 4C 3B 0D 0A 20 20 20 20 73 74 OF REAL;.. st
020F50: 72 32 30 20 3D 20 53 54 52 49 4E 47 28 2E 32 30 r20 = STRING(.20
020F60: 2E 29 3B 0D 0A 20 20 20 20 0D 0A 20 20 56 41 52 .);.. .. VAR
020F70: 0D 0A 20 20 20 20 74 61 62 65 6C 20 3A 20 61 72 .. tabel : ar
020F80: 72 61 79 31 30 30 3B 0D 0A 20 20 20 20 73 74 72 ray100;.. str
020F90: 65 6E 67 20 3A 20 73 74 72 32 30 3B 0D 0A 20 20 eng : str20;..
020FA0: 20 20 6E 2C 20 61 6E 74 61 6C 2C 20 74 65 73 74 n, antal, test
020FB0: 20 3A 20 49 4E 54 45 47 45 52 3B 0D 0A 20 20 20 : INTEGER;..
020FC0: 20 78 2C 20 6D 69 64 64 65 6C 74 61 6C 2C 20 76 x, middeltal, v
020FD0: 61 72 69 61 6E 73 2C 20 73 70 72 65 64 6E 69 6E arians, sprednin
020FE0: 67 2C 20 73 75 6D 2C 20 6B 76 61 64 72 61 74 73 g, sum, kvadrats
020FF0: 75 6D 20 3A 20 52 45 41 4C 3B 0D 0A 20 20 0D 0A um : REAL;.. ..
021000: 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 57 52 49 BEGIN.. WRI
021010: 54 45 28 43 4C 52 48 4F 4D 29 3B 0D 0A 20 20 20 TE(CLRHOM);..
021020: 20 57 52 49 54 45 4C 4E 28 27 49 6E 64 74 61 73 WRITELN('Indtas
021030: 74 20 74 61 6C 20 28 5E 20 73 74 6F 70 70 65 72 t tal (^ stopper
021040: 29 3A 27 29 3B 0D 0A 20 20 20 20 73 75 6D 20 3A ):');.. sum :
021050: 3D 20 30 3B 0D 0A 20 20 20 20 6B 76 61 64 72 61 = 0;.. kvadra
021060: 74 73 75 6D 20 3A 3D 20 30 3B 0D 0A 20 20 20 20 tsum := 0;..
021070: 6E 20 3A 3D 20 30 3B 0D 0A 20 20 20 20 57 52 49 n := 0;.. WRI
021080: 54 45 28 27 3A 20 27 29 3B 0D 0A 20 20 20 20 52 TE(': ');.. R
021090: 45 41 44 4C 4E 28 73 74 72 65 6E 67 29 3B 0D 0A EADLN(streng);..
0210A0: 20 20 20 20 57 48 49 4C 45 20 73 74 72 65 6E 67 WHILE streng
0210B0: 20 3C 3E 20 27 5E 27 20 44 4F 0D 0A 20 20 20 20 <> '^' DO..
0210C0: 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 BEGIN..
0210D0: 20 56 41 4C 28 73 74 72 65 6E 67 2C 20 78 2C 20 VAL(streng, x,
0210E0: 74 65 73 74 29 3B 0D 0A 20 20 20 20 20 20 20 20 test);..
0210F0: 49 46 20 74 65 73 74 20 3D 20 30 0D 0A 20 20 20 IF test = 0..
021100: CD 77 22 C3 3A 3C CD 20 34 3A 9E 37 3C C2 13 34 .w".:<. 4:.7<..4
021110: CD 52 21 E1 F1 B7 C2 ED 33 C9 CD 48 FC CD A5 1D .R!.....3..H....
021120: 3A 90 37 B7 C8 3E 04 C3 FF 37 EB 7E FE 63 D0 EB :.7..>...7.~.c..
021130: 21 9C FB 85 6F EB 23 7E FE FE D2 45 34 EB 5E 23 !...o.#~...E4.^#
021140: 56 EB C3 29 33 47 23 7E 12 04 C8 23 13 7E 12 C9 V..)3G#~...#.~..
021150: 21 B0 34 E5 EB 7E FE 1B C8 FE 0C C2 62 34 11 8B !.4..~......b4..
021160: 34 D5 FE 09 C2 6B 34 11 90 34 D5 E5 23 23 4E 23 4....k4..4..##N#
021170: 46 23 5E 23 56 23 7E 23 66 6F E3 7E E5 6F 87 85 F#^#V#~#fo.~.o..
021180: C0 24 FE 81 D2 C0 24 32 E6 FB C9 7B 32 E7 FB C9 .$....$2...{2...
021190: CD 67 2D 2A 77 37 EB CD DE 22 01 00 00 1A B7 CA .g-*w7..."......
0211A0: AA 33 1F D2 A2 33 03 C3 9E 33 13 2B 7D B4 C2 9D .3...3...3.+}...
0211B0: 33 2A 85 37 23 7D 91 6F 7C 98 67 3A 82 37 4F AF 3*.7#}.o|.g:.7O.
0211C0: CD F6 1C EB 2A 19 F6 73 23 72 23 77 C9 21 B3 FB ....*..s#r#w.!..
0211D0: 7E F6 80 77 1C C2 2F 12 7E F6 40 77 C3 2F 12 CD ~..w../.~.@w./..
0211E0: 2F 2E CD 48 FC CD A5 1D 2A 65 37 3E 10 3D 29 D2 /..H....*e7>.=).
0211F0: 15 34 F5 E5 5F CD 67 2D 3A DF FB FE 30 CA 06 34 .4.._.g-:...0..4
021200: 19 EB 22 D8 FB C3 B6 21 CD 6B 2D 2A 77 37 C3 29 .."....!.k-*w7.)
021210: 33 2A 63 37 C3 29 33 CD 2D 26 CD 7D 3C CD A4 26 3*c7.)3.-&.}<..&
021220: C3 80 23 CD 6B 2D 2A 73 37 22 9F 1C C9 3A 9E 37 ..#.k-*s7"...:.7
021230: FE FF C2 3B 33 3A E0 FB C3 72 19 E6 0F 32 E0 FB ...;3:...r...2..
021240: C9 CD 9A 2D CD CE 1F C3 B9 2C CD 9A 2D CD CE 1F ...-.....,..-...
021250: C3 C2 2C CD 9A 2D C3 13 2D EB 7D 2F 5F 7C 2F 2A ..,..-..-.}/_|/*
021260: 65 37 A4 57 7D A3 5F 2A 63 37 EB 22 65 37 7D A3 e7.W}£_*c7."e7}£
021270: 6F 7C A2 67 22 63 37 3E FF 32 A9 37 C9 7B B7 CA o|.g"c7>.2.7.{..
021280: C2 97 32 3E FF 32 15 F6 CD 16 28 C2 97 32 CD F0 ..2>.2....(..2..
021290: 23 CD 87 25 C3 C0 24 CD B1 2F EB 2A 19 F6 01 08 #..%..$../.*....
0212A0: 00 09 EB 1A E6 E0 C2 AB 32 3E 80 32 E4 37 F5 CD ........2>.2.7..
0212B0: 99 2F F1 77 CD 42 2F 70 CD 19 36 CD 2B 25 C8 0E ./.w.B/p..6.+%..
0212C0: 08 CD 12 30 B7 C2 D2 32 3A E4 37 77 CD 9A 21 CD ...0...2:.7w..!.
0212D0: 41 21 0E 50 CD 7B 31 0E 20 CD 32 30 C0 CD E2 2F A!.P.{1. .20.../
0212E0: C3 57 2A 3E 08 4F 32 A0 1C CD C0 24 C3 B8 1C CD .W*>.O2....$....
0212F0: 7D 3C C3 52 26 2A 65 37 C3 29 33 3A A4 37 C3 72 }<.R&*e7.)3:.7.r
021300: 20 20 20 20 20 20 20 54 48 45 4E 0D 0A 20 20 20 THEN..
021310: 20 20 20 20 20 20 20 20 20 42 45 47 49 4E 0D 0A BEGIN..
021320: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6E 20 n
021330: 3A 3D 20 6E 20 2B 20 31 3B 0D 0A 20 20 20 20 20 := n + 1;..
021340: 20 20 20 20 20 20 20 20 20 73 75 6D 20 3A 3D 20 sum :=
021350: 73 75 6D 20 2B 20 78 3B 0D 0A 20 20 20 20 20 20 sum + x;..
021360: 20 20 20 20 20 20 20 20 6B 76 61 64 72 61 74 73 kvadrats
021370: 75 6D 20 3A 3D 20 6B 76 61 64 72 61 74 73 75 6D um := kvadratsum
021380: 20 2B 20 53 51 52 28 78 29 3B 0D 0A 20 20 20 20 + SQR(x);..
021390: 20 20 20 20 20 20 20 20 45 4E 44 0D 0A 20 20 20 END..
0213A0: 20 20 20 20 20 20 20 45 4C 53 45 20 57 52 49 54 ELSE WRIT
0213B0: 45 4C 4E 28 27 55 6C 6F 76 6C 69 67 74 20 74 61 ELN('Ulovligt ta
0213C0: 6C 20 2D 20 6F 6D 20 69 67 65 6E 21 27 29 3B 0D l - om igen!');.
0213D0: 0A 20 20 20 20 20 20 20 20 57 52 49 54 45 28 27 . WRITE('
0213E0: 3A 20 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 52 : ');.. R
0213F0: 45 41 44 4C 4E 28 73 74 72 65 6E 67 29 3B 0D 0A EADLN(streng);..
021400: 20 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 END;..
021410: 6D 69 64 64 65 6C 74 61 6C 20 3A 3D 20 73 75 6D middeltal := sum
021420: 20 2F 20 6E 3B 0D 0A 20 20 20 20 76 61 72 69 61 / n;.. varia
021430: 6E 73 20 3A 3D 20 28 6B 76 61 64 72 61 74 73 75 ns := (kvadratsu
021440: 6D 20 2D 20 53 51 52 28 73 75 6D 29 20 2F 20 6E m - SQR(sum) / n
021450: 29 20 2F 20 28 6E 20 2D 20 31 29 3B 0D 0A 20 20 ) / (n - 1);..
021460: 20 20 73 70 72 65 64 6E 69 6E 67 20 3A 3D 20 53 spredning := S
021470: 51 52 54 28 76 61 72 69 61 6E 73 29 3B 0D 0A 20 QRT(varians);..
021480: 20 20 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 WRITELN;..
021490: 20 57 52 49 54 45 4C 4E 28 27 4D 69 64 64 65 6C WRITELN('Middel
0214A0: 74 61 6C 3A 20 27 2C 20 6D 69 64 64 65 6C 74 61 tal: ', middelta
0214B0: 6C 20 3A 20 38 20 3A 20 34 29 3B 0D 0A 20 20 20 l : 8 : 4);..
0214C0: 20 57 52 49 54 45 4C 4E 28 27 53 70 72 65 64 6E WRITELN('Spredn
0214D0: 69 6E 67 3A 20 27 2C 20 73 70 72 65 64 6E 69 6E ing: ', sprednin
0214E0: 67 20 3A 20 38 20 3A 20 34 29 3B 0D 0A 20 20 45 g : 8 : 4);.. E
0214F0: 4E 44 2E 0D 0A 1A 72 69 61 6E 73 29 3B 0D 0A 20 ND....rians);..
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: 50 52 4F 47 52 41 4D 20 74 61 62 65 6C 3B 0D 0A PROGRAM tabel;..
021610: 20 20 0D 0A 20 20 43 4F 4E 53 54 0D 0A 20 20 20 .. CONST..
021620: 20 73 74 61 72 74 20 3D 20 31 2E 30 3B 0D 0A 20 start = 1.0;..
021630: 20 20 20 73 6C 75 74 20 3D 20 33 2E 30 3B 0D 0A slut = 3.0;..
021640: 20 20 20 20 73 70 72 69 6E 67 20 3D 20 30 2E 31 spring = 0.1
021650: 3B 0D 0A 20 20 0D 0A 20 20 56 41 52 0D 0A 20 20 ;.. .. VAR..
021660: 20 20 78 20 3A 20 52 45 41 4C 3B 0D 0A 20 20 20 x : REAL;..
021670: 20 69 20 3A 20 49 4E 54 45 47 45 52 3B 0D 0A 20 i : INTEGER;..
021680: 20 20 20 20 20 0D 0A 20 20 42 45 47 49 4E 0D 0A .. BEGIN..
021690: 20 20 20 20 57 52 49 54 45 28 43 4C 52 48 4F 4D WRITE(CLRHOM
0216A0: 29 3B 0D 0A 20 20 20 20 57 52 49 54 45 4C 4E 28 );.. WRITELN(
0216B0: 27 78 27 20 3A 20 31 30 2C 20 27 78 5E 28 31 2F 'x' : 10, 'x^(1/
0216C0: 32 29 27 20 3A 20 31 30 2C 20 27 78 5E 28 31 2F 2)' : 10, 'x^(1/
0216D0: 33 29 27 20 3A 20 31 30 2C 20 27 78 5E 32 27 20 3)' : 10, 'x^2'
0216E0: 3A 20 31 30 2C 20 27 78 5E 33 27 20 3A 20 31 30 : 10, 'x^3' : 10
0216F0: 29 3B 0D 0A 20 20 20 20 78 20 3A 3D 20 73 74 61 );.. x := sta
021700: 72 74 3B 0D 0A 20 20 20 20 69 20 3A 3D 20 31 3B rt;.. i := 1;
021710: 0D 0A 20 20 20 20 52 45 50 45 41 54 0D 0A 20 20 .. REPEAT..
021720: 20 20 20 20 49 46 20 69 20 4D 4F 44 20 35 20 3D IF i MOD 5 =
021730: 20 31 0D 0A 20 20 20 20 20 20 20 20 54 48 45 4E 1.. THEN
021740: 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 20 WRITELN;..
021750: 20 57 52 49 54 45 4C 4E 28 78 20 3A 20 31 30 20 WRITELN(x : 10
021760: 3A 20 35 2C 20 53 51 52 54 28 78 29 20 3A 20 31 : 5, SQRT(x) : 1
021770: 30 20 3A 20 35 2C 20 45 58 50 28 4C 4E 28 78 29 0 : 5, EXP(LN(x)
021780: 20 2F 20 33 29 20 3A 20 31 30 20 3A 20 35 2C 0D / 3) : 10 : 5,.
021790: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 . S
0217A0: 51 52 28 78 29 20 3A 20 31 30 20 3A 20 35 2C 20 QR(x) : 10 : 5,
0217B0: 53 51 52 28 78 29 20 2A 20 78 20 3A 20 31 30 20 SQR(x) * x : 10
0217C0: 3A 20 35 29 3B 0D 0A 20 20 20 20 20 20 78 20 3A : 5);.. x :
0217D0: 3D 20 78 20 2B 20 73 70 72 69 6E 67 3B 0D 0A 20 = x + spring;..
0217E0: 20 20 20 20 20 69 20 3A 3D 20 69 20 2B 20 31 3B i := i + 1;
0217F0: 0D 0A 20 20 20 20 55 4E 54 49 4C 20 78 20 3E 20 .. UNTIL x >
021800: 53 53 53 20 20 20 20 43 43 43 43 43 43 43 20 20 SSS CCCCCCC
021810: 20 41 41 20 20 20 20 20 20 41 41 20 20 20 4C 4C AA AA LL
021820: 4C 4C 4C 4C 4C 27 29 3B 0D 0A 45 4E 44 2E 0D 0A LLLLL');..END...
021830: 1A 20 20 20 20 20 53 53 20 20 20 20 43 43 20 20 . SS CC
021840: 20 20 20 20 20 20 41 41 20 20 20 20 20 20 41 41 AA AA
021850: 20 20 20 4C 4C 27 29 3B 0D 0A 20 20 57 52 49 54 LL');.. WRIT
021860: 45 4C 4E 28 27 50 50 20 20 20 20 20 20 20 41 41 ELN('PP AA
021870: 20 20 20 20 20 20 41 41 20 20 20 53 53 53 53 53 AA SSSSS
021880: AB 1B E4 1C E7 E5 CE 82 EE 79 0D D8 8C F3 69 4B .........y....iK
021890: 0B F3 B0 E6 66 38 E6 D5 79 58 6D 7E DC 7B EB CC ....f8..yXm~.{..
0218A0: AE F4 7A F8 F3 CD 3D 05 70 35 8A FC 24 F3 59 7B ..z...=.p5..$.Y{
0218B0: F2 72 7C 46 64 81 80 C6 E7 5A B9 5D 61 FD A5 6F .r|Fd....Z.]a..o
0218C0: 06 AB 87 6A 8A FC F8 3C 5A 05 B2 2D 71 6F B2 FD ...j...<Z..-qo..
0218D0: 76 31 B2 77 82 AF 74 A0 47 38 E4 21 FA 71 6B 54 v1.w..t.G8.!.qkT
0218E0: 10 AA 29 83 86 AF DE 53 5A 39 DE 6B DD D8 0E 9B ..)....SZ9.k....
0218F0: 62 77 E0 A6 C5 4E 92 B6 7F BE 8C 65 C2 22 0B 62 bw...N.....e.".b
021900: AF CF 53 6C B1 7F 92 D8 E9 35 2A 4B 4C 34 0D 14 ..Sl.....5*KL4..
021910: D5 21 97 05 50 19 D6 7A A5 E5 7C 96 CC D6 4C DA .!..P..z..|...L.
021920: 34 CE 64 2E BF 79 B6 97 24 35 A9 44 76 EC 5F 4E 4.d..y..$5.Dv._N
021930: 16 DF 3D 5E CA 65 B0 CD AC 6B 27 6A 15 63 0D C9 ..=^.e...k'j.c..
021940: 71 E4 49 D4 F4 96 1C 13 D7 B9 6A D0 C1 99 C9 3F q.I.......j....?
021950: C9 74 17 FC 20 0F D2 1A 1A 1A 1A 1A 1A 1A 1A 1A .t.. ...........
021960: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
021970: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
021980: 76 FD 54 52 45 47 52 55 50 2E 50 41 53 5B 32 38 v.TREGRUP.PAS[28
021990: 2F 30 31 2F 31 39 39 31 5D 00 11 10 00 05 ED 77 /01/1991]......w
0219A0: 3B 3D 1C 3E 5F 5F 55 FE FE 7B FE 37 9F FF D7 17 ;=.>__U..{.7....
0219B0: 2F 94 B6 B1 BE AB DE F1 E2 73 E3 00 F6 A8 FE DE /........s......
0219C0: D4 E0 51 C7 AB BB 65 3B A7 D8 C1 D9 6E 29 E4 F6 ..Q...e;....n)..
0219D0: 71 62 2A A1 5E 24 F0 60 52 C4 88 EE FF 17 5B BD qb*.^$.`R.....[.
0219E0: B5 7C 11 BC 7F 13 02 36 94 14 3D FF 39 88 FD BD .|.....6..=.9...
0219F0: 73 A1 6F 74 26 F1 9A 6A 02 FA FE 6E 24 E2 88 68 s.ot&..j...n$..h
021A00: 73 6C 75 74 3B 0D 0A 20 20 45 4E 44 2E 0D 0A 1A slut;.. END....
021A10: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 . S
021A20: 51 52 28 78 29 20 3A 20 31 30 20 3A 20 35 2C 20 QR(x) : 10 : 5,
021A30: 53 51 52 28 78 29 20 2A 20 78 20 3A 20 31 30 20 SQR(x) * x : 10
021A40: 3A 20 35 29 3B 0D 0A 20 20 20 20 20 20 78 20 3A : 5);.. x :
021A50: 3D 20 78 20 2B 20 73 70 72 69 6E 67 3B 0D 0A 20 = x + spring;..
021A60: 20 20 20 20 20 69 20 3A 3D 20 69 20 2B 20 31 3B i := i + 1;
021A70: 0D 0A 20 20 20 20 55 4E 54 49 4C 20 78 20 3E 20 .. UNTIL x >
021A80: 76 FD 54 52 45 43 49 46 52 45 2E 50 41 53 5B 32 v.TRECIFRE.PAS[2
021A90: 38 2F 30 31 2F 31 39 39 31 5D 00 11 10 00 05 ED 8/01/1991]......
021AA0: 77 3B 3D 1C 3E 5F 5F 55 FE FE 7B FD BF 3F 85 E5 w;=.>__U..{..?..
021AB0: DF 17 2F 94 B6 AF BE A9 E0 C0 B1 18 06 B5 45 EF ../...........E.
021AC0: AF ED 47 12 AB 1C FA 7D 68 B0 CD 78 42 E2 85 6C ..G....}h..xB..l
021AD0: FA 33 66 42 7D 3E C7 7A 97 06 34 30 21 69 62 B9 .3fB}>.z..40!ib.
021AE0: 04 4F 36 67 3B BF 13 F8 32 2F 65 67 1D 5C 46 BB .O6g;...2/eg.\F.
021AF0: 3A 58 DA 34 AB A9 BE E9 46 27 DE B9 D3 93 F6 CC :X.4....F'......
021B00: F9 39 0E 15 91 0F AC BC 0C 16 FF BB 62 DF EF E9 .9..........b...
021B10: 9D D2 1F 36 E6 B6 5C CB 34 92 15 44 9C 2D 4C 7A ...6..\.4..D.-Lz
021B20: C0 1E B4 77 45 12 6F 4E A4 3F 8F 89 4D 0E EC D3 ...wE.oN.?..M...
021B30: 13 93 67 E3 B7 1B C5 BC 11 89 1E 40 C6 07 F7 7C ..g........@...|
021B40: 03 42 03 1F 94 68 11 AD C0 68 07 33 08 1D 22 34 .B...h...h.3.."4
021B50: CE 17 27 99 48 02 54 9A 1D 5A 93 7B 45 89 CA 4F ..'.H.T..Z.{E..O
021B60: A2 F7 68 82 9E 84 9A C1 E3 27 74 8A 11 EF 44 A4 ..h......'t...D.
021B70: 95 FB BC 24 12 FD 40 DC 87 06 C1 DE 08 35 7B 05 ...$..@......5{.
021B80: 0E A2 78 F8 20 2C E8 14 B4 CE FB E4 77 EF 95 BD ..x. ,......w...
021B90: FC 80 6E 0B FC B7 4D AF 6F 9E B2 21 69 F6 0B D2 ..n...M.o..!i...
021BA0: C1 5D FE DD 74 90 0C 72 55 8C 45 86 12 40 8A FF .]..t..rU.E..@..
021BB0: CF 63 75 83 FA 5A F0 C5 90 4B 7C E4 7A 7A 92 50 .cu..Z...K|.zz.P
021BC0: 1A F1 3A 2B 8E 11 A0 4E B3 8C 65 83 FA 85 D4 08 ..:+...N..e.....
021BD0: 17 3D E3 F2 04 97 99 80 68 1C 19 56 35 87 CA A4 .=......h..V5...
021BE0: FE 83 46 5D FB E1 0F 75 91 A2 B7 88 DD C6 B9 09 ..F]...u........
021BF0: CA E2 F4 A7 17 58 08 0A 04 67 A9 19 73 DE 44 22 .....X...g..s.D"
021C00: 20 20 20 20 20 20 20 20 50 52 4F 47 52 41 4D 20 PROGRAM
021C10: 74 65 72 6E 69 6E 67 32 3B 0D 0A 20 20 20 20 20 terning2;..
021C20: 20 20 20 0D 0A 20 20 20 20 20 20 20 20 28 2A 20 .. (*
021C30: 4B 61 73 74 20 6D 65 64 20 74 6F 20 74 65 72 6E Kast med to tern
021C40: 69 6E 67 65 72 2E 20 48 79 70 70 69 67 68 65 64 inger. Hyppighed
021C50: 73 66 6F 72 64 65 6C 69 6E 67 20 66 6F 72 20 73 sfordeling for s
021C60: 75 6D 6D 65 6E 20 2A 29 0D 0A 20 20 20 20 20 20 ummen *)..
021C70: 20 20 0D 0A 20 20 20 20 20 20 20 20 54 59 50 45 .. TYPE
021C80: 0D 0A 20 20 20 20 20 20 20 20 20 20 6F 65 6A 65 .. oeje
021C90: 73 75 6D 20 3D 20 32 20 2E 2E 20 31 32 3B 0D 0A sum = 2 .. 12;..
021CA0: 20 20 20 20 20 20 20 20 20 20 6F 65 6A 65 68 79 oejehy
021CB0: 70 70 69 67 68 65 64 20 3D 20 41 52 52 41 59 28 ppighed = ARRAY(
021CC0: 2E 6F 65 6A 65 73 75 6D 2E 29 20 4F 46 20 49 4E .oejesum.) OF IN
021CD0: 54 45 47 45 52 3B 0D 0A 20 20 20 20 20 20 20 20 TEGER;..
021CE0: 0D 0A 20 20 20 20 20 20 20 20 56 41 52 0D 0A 20 .. VAR..
021CF0: 20 20 20 20 20 20 20 20 20 73 75 6D 20 3A 20 6F sum : o
021D00: 65 6A 65 73 75 6D 3B 0D 0A 20 20 20 20 20 20 20 ejesum;..
021D10: 20 20 20 68 79 70 70 69 67 68 65 64 20 3A 20 6F hyppighed : o
021D20: 65 6A 65 68 79 70 70 69 67 68 65 64 3B 0D 0A 20 ejehyppighed;..
021D30: 20 20 20 20 20 20 20 20 20 6B 61 73 74 31 2C 20 kast1,
021D40: 6B 61 73 74 32 2C 20 69 2C 20 61 6E 74 61 6C 20 kast2, i, antal
021D50: 3A 20 49 4E 54 45 47 45 52 3B 0D 0A 20 20 20 20 : INTEGER;..
021D60: 20 20 20 20 0D 0A 20 20 20 20 20 20 20 20 42 45 .. BE
021D70: 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 52 GIN.. R
021D80: 41 4E 44 4F 4D 49 5A 45 3B 0D 0A 20 20 20 20 20 ANDOMIZE;..
021D90: 20 20 20 20 20 57 52 49 54 45 28 43 48 52 28 31 WRITE(CHR(1
021DA0: 32 29 2C 20 27 49 6E 64 74 61 73 74 20 61 6E 74 2), 'Indtast ant
021DB0: 61 6C 20 6B 61 73 74 3A 20 27 29 3B 20 52 45 41 al kast: '); REA
021DC0: 44 4C 4E 28 61 6E 74 61 6C 29 3B 0D 0A 20 20 20 DLN(antal);..
021DD0: 20 20 20 20 20 20 20 46 4F 52 20 73 75 6D 20 3A FOR sum :
021DE0: 3D 20 32 20 54 4F 20 31 32 20 44 4F 0D 0A 20 20 = 2 TO 12 DO..
021DF0: 20 20 20 20 20 20 20 20 20 20 68 79 70 70 69 67 hyppig
021E00: 50 52 4F 47 52 41 4D 20 74 61 6C 66 6F 65 6C 67 PROGRAM talfoelg
021E10: 3B 0D 0A 0D 0A 20 20 56 41 52 0D 0A 20 20 20 20 ;.... VAR..
021E20: 61 2C 20 74 61 65 6C 6C 65 72 20 3A 20 49 4E 54 a, taeller : INT
021E30: 45 47 45 52 3B 0D 0A 20 20 0D 0A 20 20 42 45 47 EGER;.. .. BEG
021E40: 49 4E 0D 0A 20 20 20 20 57 52 49 54 45 28 43 4C IN.. WRITE(CL
021E50: 52 48 4F 4D 29 3B 0D 0A 20 20 20 20 57 52 49 54 RHOM);.. WRIT
021E60: 45 28 27 49 6E 64 74 61 73 74 20 61 3A 20 27 29 E('Indtast a: ')
021E70: 3B 0D 0A 20 20 20 20 52 45 41 44 4C 4E 28 61 29 ;.. READLN(a)
021E80: 3B 0D 0A 20 20 20 20 74 61 65 6C 6C 65 72 20 3A ;.. taeller :
021E90: 3D 20 31 3B 0D 0A 20 20 20 20 57 52 49 54 45 28 = 1;.. WRITE(
021EA0: 61 20 3A 20 35 29 3B 0D 0A 20 20 20 20 57 48 49 a : 5);.. WHI
021EB0: 4C 45 20 61 20 3C 3E 20 31 20 44 4F 0D 0A 20 20 LE a <> 1 DO..
021EC0: 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 BEGIN..
021ED0: 20 20 20 74 61 65 6C 6C 65 72 20 3A 3D 20 74 61 taeller := ta
021EE0: 65 6C 6C 65 72 20 2B 20 31 3B 0D 0A 20 20 20 20 eller + 1;..
021EF0: 20 20 20 20 49 46 20 4F 44 44 28 61 29 0D 0A 20 IF ODD(a)..
021F00: 20 20 20 20 20 20 20 20 20 54 48 45 4E 20 61 20 THEN a
021F10: 3A 3D 20 33 20 2A 20 61 20 2B 20 31 0D 0A 20 20 := 3 * a + 1..
021F20: 20 20 20 20 20 20 20 20 45 4C 53 45 20 61 20 3A ELSE a :
021F30: 3D 20 61 20 44 49 56 20 32 3B 0D 0A 20 20 20 20 = a DIV 2;..
021F40: 20 20 20 20 57 52 49 54 45 28 61 20 3A 20 35 29 WRITE(a : 5)
021F50: 3B 0D 0A 20 20 20 20 20 20 45 4E 44 3B 0D 0A 20 ;.. END;..
021F60: 20 20 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 WRITELN;..
021F70: 20 57 52 49 54 45 4C 4E 28 27 46 7C 6C 67 65 6E WRITELN('F|lgen
021F80: 20 68 61 72 20 6C 7B 6E 67 64 65 6E 20 27 2C 20 har l{ngden ',
021F90: 74 61 65 6C 6C 65 72 20 2D 31 29 3B 0D 0A 20 20 taeller -1);..
021FA0: 45 4E 44 2E 0D 0A 1A 20 45 4C 53 45 20 61 20 3A END.... ELSE a :
021FB0: 3D 20 61 20 44 49 56 20 32 3B 0D 0A 20 20 20 20 = a DIV 2;..
021FC0: 20 20 20 20 57 52 49 54 45 28 61 20 3A 20 35 29 WRITE(a : 5)
021FD0: 3B 0D 0A 20 20 20 20 20 20 45 4E 44 3B 0D 0A 20 ;.. END;..
021FE0: 20 20 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 WRITELN;..
021FF0: 20 57 52 49 54 45 4C 4E 28 27 46 7C 6C 67 65 6E WRITELN('F|lgen
022000: 68 65 64 28 2E 73 75 6D 2E 29 20 3A 3D 20 30 3B hed(.sum.) := 0;
022010: 0D 0A 20 20 20 20 20 20 20 20 20 20 46 4F 52 20 .. FOR
022020: 69 20 3A 3D 20 31 20 54 4F 20 61 6E 74 61 6C 20 i := 1 TO antal
022030: 44 4F 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 DO..
022040: 42 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 BEGIN..
022050: 20 20 20 20 20 6B 61 73 74 31 20 3A 3D 20 52 41 kast1 := RA
022060: 4E 44 4F 4D 28 36 29 20 2B 20 31 3B 0D 0A 20 20 NDOM(6) + 1;..
022070: 20 20 20 20 20 20 20 20 20 20 20 20 6B 61 73 74 kast
022080: 32 20 3A 3D 20 52 41 4E 44 4F 4D 28 36 29 20 2B 2 := RANDOM(6) +
022090: 20 31 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 1;..
0220A0: 20 20 20 73 75 6D 20 3A 3D 20 6B 61 73 74 31 20 sum := kast1
0220B0: 2B 20 6B 61 73 74 32 3B 0D 0A 20 20 20 20 20 20 + kast2;..
0220C0: 20 20 20 20 20 20 20 20 68 79 70 70 69 67 68 65 hyppighe
0220D0: 64 28 2E 73 75 6D 2E 29 20 3A 3D 20 68 79 70 70 d(.sum.) := hypp
0220E0: 69 67 68 65 64 28 2E 73 75 6D 2E 29 20 2B 20 31 ighed(.sum.) + 1
0220F0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 45 ;.. E
022100: 4E 44 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 57 ND;.. W
022110: 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 20 20 20 RITELN;..
022120: 20 20 20 57 52 49 54 45 4C 4E 28 27 53 55 4D 20 WRITELN('SUM
022130: 20 20 20 48 59 50 50 49 47 48 45 44 27 29 3B 0D HYPPIGHED');.
022140: 0A 20 20 20 20 20 20 20 20 20 20 46 4F 52 20 73 . FOR s
022150: 75 6D 20 3A 3D 20 32 20 54 4F 20 31 32 20 44 4F um := 2 TO 12 DO
022160: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 57 52 .. WR
022170: 49 54 45 4C 4E 28 73 75 6D 3A 32 2C 20 68 79 70 ITELN(sum:2, hyp
022180: 70 69 67 68 65 64 28 2E 73 75 6D 2E 29 3A 31 31 pighed(.sum.):11
022190: 29 3B 0D 0A 20 20 20 20 20 20 20 20 45 4E 44 2E );.. END.
0221A0: 0D 0A 1A 57 52 49 54 45 4C 4E 28 27 53 55 4D 20 ...WRITELN('SUM
0221B0: 20 20 20 48 59 50 50 49 47 48 45 44 27 29 3B 0D HYPPIGHED');.
0221C0: 0A 20 20 20 20 20 20 20 20 20 20 46 4F 52 20 73 . FOR s
0221D0: 75 6D 20 3A 3D 20 32 20 54 4F 20 31 32 20 44 4F um := 2 TO 12 DO
0221E0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 57 52 .. WR
0221F0: 49 54 45 4C 4E 28 73 75 6D 3A 32 2C 20 68 79 70 ITELN(sum:2, hyp
022200: 0F 0F 47 7E E6 FC E1 2E 06 7C C2 B0 2C 21 20 00 ..G~.....|..,! .
022210: 19 77 3A DF FB FE 63 CA 6B 2C D5 CD E8 21 D1 CA .w:...c.k,...!..
022220: 5B 2C 21 0E 00 19 78 96 E6 3F C2 5B 2C 21 0C 00 [,!...x..?.[,!..
022230: 19 7E B9 CA A4 2C CD 86 23 C2 5B 2C C5 CD 97 23 .~...,..#.[,...#
022240: C1 B9 D2 50 2C D1 D5 1C C2 50 2C 1C D1 C3 76 19 ...P,....P,...v.
022250: 71 4F CD 2D 27 CD FD 26 C3 A1 2C C5 D5 CD 3D 27 qO.-'..&..,...='
022260: D1 C1 2E 03 3A 9F 1C 3C CA B0 2C CD 03 28 21 0C ....:..<..,..(!.
022270: 00 19 E5 56 71 23 23 7E 5F D5 E6 40 B0 77 CD DA ...Vq##~_..@.w..
022280: 37 CD B6 21 D1 3A A8 37 57 D5 CD 4D 29 DA BA 2B 7..!.:.7W..M)..+
022290: CA 9B 2B 3E 02 CD FF 37 C3 BA 2B CD B6 21 CD 0C ..+>...7..+..!..
0222A0: 1E 3E 01 CD 54 FC CD 4A 21 C1 C5 3A AB 37 21 83 .>..T..J!..:.7!.
0222B0: 37 A6 CA B7 2B 0E 00 CD 9E 1D C1 78 21 A5 37 BE 7...+......x!.7.
0222C0: DA C7 2B 77 34 0E 02 0D 0D C2 CF 2B CD 50 2A CD ..+w4......+.P*.
0222D0: 57 2A C2 DE 2B CD 50 2A CD DC 1C C3 82 1F CD D5 W*..+.P*........
0222E0: 1C C3 82 1F C5 2A DB FB EB 21 21 00 19 7E E6 7F .....*...!!..~..
0222F0: F5 7E 17 23 7E 17 E6 1F 4F 7E E6 F0 23 B6 0F 0F .~.#~...O~..#...
022300: CD 46 20 73 C3 0F 2B 4F 06 00 09 09 73 23 72 0E .F s..+O....s#r.
022310: 02 C5 CD F2 1E 3A DF FB FE 28 C2 84 2B 79 3D 3D .....:...(..+y==
022320: C2 84 2B C1 F5 2A AB 37 E5 21 90 37 5E 1C 57 D5 ..+..*.7.!.7^.W.
022330: 2A 79 37 5E 23 56 EB E5 CD 78 3A D1 C2 37 2B EB *y7^#V...x:..7+.
022340: 3D 32 94 37 77 CD BC 21 D1 D5 AF 77 23 14 F2 4B =2.7w..!...w#..K
022350: 2B 57 1D C2 4B 2B 2A B1 37 0E 02 22 AB 37 C5 CD +W..K+*.7..".7..
022360: 4A 21 CD 0C 1E AF CD 54 FC C1 CD 9E 1D 2A AB 37 J!.....T.....*.7
022370: D1 D5 19 3A 83 37 A5 0E 00 C2 5B 2B E1 E1 22 AB ...:.7....[+..".
022380: CD 2B 20 CD EE 21 CD 53 30 CD 58 1F 3A A8 37 FE .+ ..!.S0.X.:.7.
022390: 80 DA 9C 2A CD 71 28 3A 9F 1C B7 C0 CD E0 1E CA ...*.q(:........
0223A0: BA 2A 21 AA 37 11 95 37 0E 03 CD 1F 1D CA B5 2A .*!.7..7.......*
0223B0: 3E FF 32 94 37 0E 00 C3 11 2B CD DC 1C CD A4 1E >.2.7....+......
0223C0: 32 9F 37 01 00 00 B7 CA D1 2A 4F 0B CD CC 1E 44 2.7......*O....D
0223D0: 4D CD B8 25 7D B4 C2 DE 2A 3E 02 C3 72 19 22 AB M..%}...*>..r.".
0223E0: 37 22 96 37 AF 32 94 37 3A AA 37 32 95 37 EB 2A 7".7.2.7:.72.7.*
0223F0: DB FB 01 10 00 09 3A A3 37 B7 3A 9F 37 CA 07 2B ......:£7.:.7..+
022400: 50 52 4F 47 52 41 4D 20 74 72 65 63 69 66 72 65 PROGRAM trecifre
022410: 3B 0D 0A 0D 0A 20 20 56 41 52 0D 0A 20 20 20 20 ;.... VAR..
022420: 74 61 6C 20 3A 20 52 45 41 4C 3B 0D 0A 20 20 20 tal : REAL;..
022430: 20 66 65 6C 74 65 72 20 3A 20 49 4E 54 45 47 45 felter : INTEGE
022440: 52 3B 0D 0A 20 20 0D 0A 20 20 50 52 4F 43 45 44 R;.. .. PROCED
022450: 55 52 45 20 74 72 65 63 69 66 28 74 61 6C 20 3A URE trecif(tal :
022460: 20 52 45 41 4C 3B 20 66 65 6C 74 65 72 20 3A 20 REAL; felter :
022470: 49 4E 54 45 47 45 52 29 3B 0D 0A 20 20 0D 0A 20 INTEGER);.. ..
022480: 20 20 20 56 41 52 0D 0A 20 20 20 20 20 20 64 65 VAR.. de
022490: 63 69 6D 61 6C 65 72 2C 20 68 65 6C 2C 20 6D 65 cimaler, hel, me
0224A0: 6C 6C 65 6D 72 75 6D 2C 20 73 70 61 63 65 2C 20 llemrum, space,
0224B0: 69 20 3A 20 49 4E 54 45 47 45 52 3B 0D 0A 20 20 i : INTEGER;..
0224C0: 20 20 20 20 68 65 6C 64 65 6C 2C 20 64 65 63 64 heldel, decd
0224D0: 65 6C 20 3A 20 52 45 41 4C 3B 0D 0A 20 20 20 20 el : REAL;..
0224E0: 20 20 64 65 63 69 6D 61 6C 73 74 72 65 6E 67 20 decimalstreng
0224F0: 3A 20 53 54 52 49 4E 47 28 2E 32 2E 29 3B 0D 0A : STRING(.2.);..
022500: 20 20 20 20 20 20 68 65 6C 73 74 72 65 6E 67 20 helstreng
022510: 3A 20 53 54 52 49 4E 47 28 2E 31 36 2E 29 3B 0D : STRING(.16.);.
022520: 0A 20 20 20 20 20 20 66 6F 72 74 65 67 6E 20 3A . fortegn :
022530: 20 42 4F 4F 4C 45 41 4E 3B 0D 0A 20 20 20 20 0D BOOLEAN;.. .
022540: 0A 20 20 20 20 42 45 47 49 4E 20 28 2A 20 74 72 . BEGIN (* tr
022550: 65 63 69 66 20 2A 29 0D 0A 20 20 20 20 20 20 49 ecif *).. I
022560: 46 20 74 61 6C 20 3C 20 30 0D 0A 20 20 20 20 20 F tal < 0..
022570: 20 20 20 54 48 45 4E 20 66 6F 72 74 65 67 6E 20 THEN fortegn
022580: 3A 3D 20 54 52 55 45 0D 0A 20 20 20 20 20 20 20 := TRUE..
022590: 20 45 4C 53 45 20 66 6F 72 74 65 67 6E 20 3A 3D ELSE fortegn :=
0225A0: 20 46 41 4C 53 45 3B 0D 0A 20 20 20 20 20 20 74 FALSE;.. t
0225B0: 61 6C 20 3A 3D 20 41 42 53 28 74 61 6C 29 3B 0D al := ABS(tal);.
0225C0: 0A 20 20 20 20 20 20 74 61 6C 20 3A 3D 20 49 4E . tal := IN
0225D0: 54 28 74 61 6C 20 2A 20 31 30 30 20 2B 20 30 2E T(tal * 100 + 0.
0225E0: 35 29 20 2F 20 31 30 30 3B 0D 0A 20 20 20 20 20 5) / 100;..
0225F0: 20 68 65 6C 64 65 6C 20 3A 3D 20 49 4E 54 28 74 heldel := INT(t
022600: 50 52 4F 47 52 41 4D 20 74 65 67 6E 3B 0D 0A 0D PROGRAM tegn;...
022610: 0A 42 45 47 49 4E 0D 0A 20 20 57 52 49 54 45 4C .BEGIN.. WRITEL
022620: 4E 28 27 50 50 50 50 50 50 20 20 20 20 20 20 20 N('PPPPPP
022630: 41 41 20 20 20 20 20 20 20 53 53 53 53 53 53 53 AA SSSSSSS
022640: 53 20 20 20 20 43 43 43 43 43 43 43 20 20 20 20 S CCCCCCC
022650: 20 20 20 41 41 20 20 20 20 20 20 20 4C 4C 27 29 AA LL')
022660: 3B 0D 0A 20 20 57 52 49 54 45 4C 4E 28 27 50 50 ;.. WRITELN('PP
022670: 20 20 20 50 50 20 20 20 20 20 41 41 41 41 20 20 PP AAAA
022680: 20 20 20 20 53 53 20 20 20 20 20 20 20 20 20 20 SS
022690: 43 43 20 20 20 20 20 20 20 20 20 20 20 41 41 41 CC AAA
0226A0: 41 20 20 20 20 20 20 4C 4C 27 29 3B 0D 0A 20 20 A LL');..
0226B0: 57 52 49 54 45 4C 4E 28 27 50 50 20 20 20 50 50 WRITELN('PP PP
0226C0: 20 20 20 20 41 41 20 20 41 41 20 20 20 20 20 53 AA AA S
0226D0: 53 20 20 20 20 20 20 20 20 20 20 43 43 20 20 20 S CC
0226E0: 20 20 20 20 20 20 20 41 41 20 20 41 41 20 20 20 AA AA
0226F0: 20 20 4C 4C 27 29 3B 0D 0A 20 20 57 52 49 54 45 LL');.. WRITE
022700: 4C 4E 28 27 50 50 50 50 50 50 20 20 20 20 41 41 LN('PPPPPP AA
022710: 20 20 20 20 41 41 20 20 20 20 53 53 53 53 53 53 AA SSSSSS
022720: 53 53 20 20 20 20 43 43 20 20 20 20 20 20 20 20 SS CC
022730: 20 41 41 20 20 20 20 41 41 20 20 20 20 4C 4C 27 AA AA LL'
022740: 29 3B 0D 0A 20 20 57 52 49 54 45 4C 4E 28 27 50 );.. WRITELN('P
022750: 50 20 20 20 20 20 20 20 20 41 41 41 41 41 41 41 P AAAAAAA
022760: 41 20 20 20 20 20 20 20 20 20 20 53 53 20 20 20 A SS
022770: 20 43 43 20 20 20 20 20 20 20 20 20 41 41 41 41 CC AAAA
022780: 41 41 41 41 20 20 20 20 4C 4C 27 29 3B 0D 0A 20 AAAA LL');..
022790: 20 57 52 49 54 45 4C 4E 28 27 50 50 20 20 20 20 WRITELN('PP
0227A0: 20 20 20 41 41 20 20 20 20 20 20 41 41 20 20 20 AA AA
0227B0: 20 20 20 20 20 20 53 53 20 20 20 20 43 43 20 20 SS CC
0227C0: 20 20 20 20 20 20 41 41 20 20 20 20 20 20 41 41 AA AA
0227D0: 20 20 20 4C 4C 27 29 3B 0D 0A 20 20 57 52 49 54 LL');.. WRIT
0227E0: 45 4C 4E 28 27 50 50 20 20 20 20 20 20 20 41 41 ELN('PP AA
0227F0: 20 20 20 20 20 20 41 41 20 20 20 53 53 53 53 53 AA SSSSS
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: 61 6C 29 3B 0D 0A 20 20 20 20 20 20 64 65 63 64 al);.. decd
022910: 65 6C 20 3A 3D 20 74 61 6C 20 2D 20 68 65 6C 64 el := tal - held
022920: 65 6C 3B 0D 0A 20 20 20 20 20 20 64 65 63 69 6D el;.. decim
022930: 61 6C 65 72 20 3A 3D 20 54 52 55 4E 43 28 64 65 aler := TRUNC(de
022940: 63 64 65 6C 20 2A 20 31 30 30 20 2B 20 30 2E 35 cdel * 100 + 0.5
022950: 29 3B 0D 0A 20 20 20 20 20 20 49 46 20 64 65 63 );.. IF dec
022960: 69 6D 61 6C 65 72 20 3E 3D 31 30 0D 0A 20 20 20 imaler >=10..
022970: 20 20 20 20 20 54 48 45 4E 20 53 54 52 28 64 65 THEN STR(de
022980: 63 69 6D 61 6C 65 72 20 3A 20 32 2C 20 64 65 63 cimaler : 2, dec
022990: 69 6D 61 6C 73 74 72 65 6E 67 29 0D 0A 20 20 20 imalstreng)..
0229A0: 20 20 20 20 20 45 4C 53 45 0D 0A 20 20 20 20 20 ELSE..
0229B0: 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 BEGIN..
0229C0: 20 20 20 20 20 20 20 20 53 54 52 28 64 65 63 69 STR(deci
0229D0: 6D 61 6C 65 72 20 3A 20 31 2C 20 64 65 63 69 6D maler : 1, decim
0229E0: 61 6C 73 74 72 65 6E 67 29 3B 0D 0A 20 20 20 20 alstreng);..
0229F0: 20 20 20 20 20 20 20 20 64 65 63 69 6D 61 6C 73 decimals
022A00: 74 72 65 6E 67 20 3A 3D 20 27 30 27 20 2B 20 64 treng := '0' + d
022A10: 65 63 69 6D 61 6C 73 74 72 65 6E 67 3B 0D 0A 20 ecimalstreng;..
022A20: 20 20 20 20 20 20 20 20 20 45 4E 44 3B 0D 0A 20 END;..
022A30: 20 20 20 20 20 49 46 20 68 65 6C 64 65 6C 20 3E IF heldel >
022A40: 20 30 0D 0A 20 20 20 20 20 20 20 20 54 48 45 4E 0.. THEN
022A50: 20 68 65 6C 20 3A 3D 20 54 52 55 4E 43 28 4C 4E hel := TRUNC(LN
022A60: 28 68 65 6C 64 65 6C 29 20 2F 20 4C 4E 28 31 30 (heldel) / LN(10
022A70: 29 29 20 2B 31 0D 0A 20 20 20 20 20 20 20 20 45 )) +1.. E
022A80: 4C 53 45 20 68 65 6C 20 3A 3D 20 31 3B 0D 0A 20 LSE hel := 1;..
022A90: 20 20 20 20 20 53 54 52 28 68 65 6C 64 65 6C 20 STR(heldel
022AA0: 3A 20 31 36 2C 20 68 65 6C 73 74 72 65 6E 67 29 : 16, helstreng)
022AB0: 3B 0D 0A 20 20 20 20 20 20 49 46 20 68 65 6C 20 ;.. IF hel
022AC0: 3E 20 31 0D 0A 20 20 20 20 20 20 20 20 54 48 45 > 1.. THE
022AD0: 4E 20 68 65 6C 73 74 72 65 6E 67 20 3A 3D 20 43 N helstreng := C
022AE0: 4F 50 59 28 68 65 6C 73 74 72 65 6E 67 2C 20 31 OPY(helstreng, 1
022AF0: 2C 20 31 29 20 2B 20 43 4F 50 59 28 68 65 6C 73 , 1) + COPY(hels
022B00: 50 52 4F 47 52 41 4D 20 74 72 65 6B 61 6E 74 3B PROGRAM trekant;
022B10: 0D 0A 20 20 0D 0A 20 20 54 59 50 45 0D 0A 20 20 .. .. TYPE..
022B20: 20 20 74 61 6C 70 61 72 20 3D 20 52 45 43 4F 52 talpar = RECOR
022B30: 44 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 D..
022B40: 20 20 78 2C 20 79 20 3A 20 52 45 41 4C 3B 0D 0A x, y : REAL;..
022B50: 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4E 44 END
022B60: 3B 0D 0A 20 20 20 20 74 61 6C 73 61 65 74 20 3D ;.. talsaet =
022B70: 20 41 52 52 41 59 28 2E 31 20 2E 2E 20 33 2E 29 ARRAY(.1 .. 3.)
022B80: 20 4F 46 20 74 61 6C 70 61 72 3B 0D 0A 20 20 20 OF talpar;..
022B90: 20 73 69 64 65 20 3D 20 41 52 52 41 59 28 2E 31 side = ARRAY(.1
022BA0: 20 2E 2E 20 33 2E 29 20 4F 46 20 52 45 41 4C 3B .. 3.) OF REAL;
022BB0: 0D 0A 20 20 56 41 52 0D 0A 20 20 20 20 70 6B 74 .. VAR.. pkt
022BC0: 2C 20 76 20 3A 20 74 61 6C 73 61 65 74 3B 0D 0A , v : talsaet;..
022BD0: 20 20 20 20 73 69 20 3A 20 73 69 64 65 3B 0D 0A si : side;..
022BE0: 20 20 20 20 73 2C 20 61 72 65 61 6C 20 3A 20 52 s, areal : R
022BF0: 45 41 4C 3B 0D 0A 20 20 20 20 69 20 3A 20 49 4E EAL;.. i : IN
022C00: 54 45 47 45 52 3B 0D 0A 20 20 0D 0A 20 20 42 45 TEGER;.. .. BE
022C10: 47 49 4E 0D 0A 20 20 20 20 57 52 49 54 45 28 43 GIN.. WRITE(C
022C20: 4C 52 48 4F 4D 29 3B 0D 0A 20 20 20 20 46 4F 52 LRHOM);.. FOR
022C30: 20 69 20 3A 3D 20 31 20 54 4F 20 33 20 44 4F 0D i := 1 TO 3 DO.
022C40: 0A 20 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 . BEGIN..
022C50: 20 20 20 20 20 20 57 52 49 54 45 28 27 54 61 73 WRITE('Tas
022C60: 74 20 27 2C 20 69 2C 20 27 2E 20 70 75 6E 6B 74 t ', i, '. punkt
022C70: 73 20 66 7C 72 73 74 65 6B 6F 6F 72 64 69 6E 61 s f|rstekoordina
022C80: 74 3A 20 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 t: ');..
022C90: 52 45 41 44 4C 4E 28 70 6B 74 28 2E 69 2E 29 2E READLN(pkt(.i.).
022CA0: 78 29 3B 0D 0A 20 20 20 20 20 20 20 20 57 52 49 x);.. WRI
022CB0: 54 45 28 27 54 61 73 74 20 27 2C 20 69 2C 20 27 TE('Tast ', i, '
022CC0: 2E 20 70 75 6E 6B 74 73 20 61 6E 64 65 6E 6B 6F . punkts andenko
022CD0: 6F 72 64 69 6E 61 74 3A 20 20 27 29 3B 0D 0A 20 ordinat: ');..
022CE0: 20 20 20 20 20 20 20 52 45 41 44 4C 4E 28 70 6B READLN(pk
022CF0: 74 28 2E 69 2E 29 2E 79 29 3B 0D 0A 20 20 20 20 t(.i.).y);..
022D00: 74 72 65 6E 67 2C 20 33 2C 20 68 65 6C 20 2D 31 treng, 3, hel -1
022D10: 29 0D 0A 20 20 20 20 20 20 20 20 45 4C 53 45 20 ).. ELSE
022D20: 68 65 6C 73 74 72 65 6E 67 20 3A 3D 20 43 4F 50 helstreng := COP
022D30: 59 28 68 65 6C 73 74 72 65 6E 67 2C 20 31 2C 20 Y(helstreng, 1,
022D40: 31 29 3B 0D 0A 20 20 20 20 20 20 6D 65 6C 6C 65 1);.. melle
022D50: 6D 72 75 6D 20 3A 3D 20 28 68 65 6C 20 2D 20 31 mrum := (hel - 1
022D60: 29 20 44 49 56 20 33 3B 0D 0A 20 20 20 20 20 20 ) DIV 3;..
022D70: 73 70 61 63 65 20 3A 3D 20 66 65 6C 74 65 72 20 space := felter
022D80: 2D 20 68 65 6C 20 2D 20 6D 65 6C 6C 65 6D 72 75 - hel - mellemru
022D90: 6D 20 2D 20 33 3B 0D 0A 20 20 20 20 20 20 49 46 m - 3;.. IF
022DA0: 20 66 6F 72 74 65 67 6E 0D 0A 20 20 20 20 20 20 fortegn..
022DB0: 20 20 54 48 45 4E 20 73 70 61 63 65 20 3A 3D 20 THEN space :=
022DC0: 73 70 61 63 65 20 2D 31 3B 0D 0A 20 20 20 20 20 space -1;..
022DD0: 20 49 46 20 73 70 61 63 65 20 3C 20 30 0D 0A 20 IF space < 0..
022DE0: 20 20 20 20 20 20 20 54 48 45 4E 20 73 70 61 63 THEN spac
022DF0: 65 20 3A 3D 20 30 3B 0D 0A 20 20 20 20 20 20 46 e := 0;.. F
022E00: 4F 52 20 69 20 3A 3D 20 31 20 54 4F 20 73 70 61 OR i := 1 TO spa
022E10: 63 65 20 44 4F 0D 0A 20 20 20 20 20 20 20 20 57 ce DO.. W
022E20: 52 49 54 45 28 27 20 27 29 3B 0D 0A 20 20 20 20 RITE(' ');..
022E30: 20 20 49 46 20 66 6F 72 74 65 67 6E 0D 0A 20 20 IF fortegn..
022E40: 20 20 20 20 20 20 54 48 45 4E 20 57 52 49 54 45 THEN WRITE
022E50: 28 27 2D 27 29 3B 0D 0A 20 20 20 20 20 20 46 4F ('-');.. FO
022E60: 52 20 69 20 3A 3D 20 31 20 54 4F 20 68 65 6C 20 R i := 1 TO hel
022E70: 44 4F 0D 0A 20 20 20 20 20 20 20 20 42 45 47 49 DO.. BEGI
022E80: 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 57 52 49 N.. WRI
022E90: 54 45 28 43 4F 50 59 28 68 65 6C 73 74 72 65 6E TE(COPY(helstren
022EA0: 67 2C 20 69 2C 20 31 29 29 3B 0D 0A 20 20 20 20 g, i, 1));..
022EB0: 20 20 20 20 20 20 49 46 20 28 28 68 65 6C 20 2D IF ((hel -
022EC0: 20 69 29 20 4D 4F 44 20 33 20 3D 20 30 29 20 41 i) MOD 3 = 0) A
022ED0: 4E 44 20 28 69 20 3C 20 68 65 6C 29 0D 0A 20 20 ND (i < hel)..
022EE0: 20 20 20 20 20 20 20 20 20 20 54 48 45 4E 20 57 THEN W
022EF0: 52 49 54 45 28 27 20 27 29 3B 0D 0A 20 20 20 20 RITE(' ');..
022F00: 20 20 45 4E 44 3B 0D 0A 20 20 20 20 46 4F 52 20 END;.. FOR
022F10: 69 20 3A 3D 20 31 20 54 4F 20 33 20 44 4F 0D 0A i := 1 TO 3 DO..
022F20: 20 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 BEGIN..
022F30: 20 20 20 20 20 57 52 49 54 45 4C 4E 28 69 2C 20 WRITELN(i,
022F40: 27 2E 20 70 75 6E 6B 74 73 20 66 7C 72 73 74 65 '. punkts f|rste
022F50: 6B 6F 6F 72 64 69 6E 61 74 3A 20 27 2C 20 70 6B koordinat: ', pk
022F60: 74 28 2E 69 2E 29 2E 78 20 3A 20 36 20 3A 20 33 t(.i.).x : 6 : 3
022F70: 29 3B 0D 0A 20 20 20 20 20 20 20 20 57 52 49 54 );.. WRIT
022F80: 45 4C 4E 28 69 2C 20 27 2E 20 70 75 6E 6B 74 73 ELN(i, '. punkts
022F90: 20 61 6E 64 65 6E 6B 6F 6F 72 64 69 6E 61 74 3A andenkoordinat:
022FA0: 20 20 27 2C 20 70 6B 74 28 2E 69 2E 29 2E 79 20 ', pkt(.i.).y
022FB0: 3A 20 36 20 3A 20 33 29 3B 0D 0A 20 20 20 20 20 : 6 : 3);..
022FC0: 20 45 4E 44 3B 0D 0A 20 20 20 20 76 28 2E 31 2E END;.. v(.1.
022FD0: 29 2E 78 20 3A 3D 20 70 6B 74 28 2E 32 2E 29 2E ).x := pkt(.2.).
022FE0: 78 20 2D 20 70 6B 74 28 2E 31 2E 29 2E 78 3B 0D x - pkt(.1.).x;.
022FF0: 0A 20 20 20 20 76 28 2E 31 2E 29 2E 79 20 3A 3D . v(.1.).y :=
023000: 20 70 6B 74 28 2E 32 2E 29 2E 79 20 2D 20 70 6B pkt(.2.).y - pk
023010: 74 28 2E 31 2E 29 2E 79 3B 0D 0A 20 20 20 20 76 t(.1.).y;.. v
023020: 28 2E 32 2E 29 2E 78 20 3A 3D 20 70 6B 74 28 2E (.2.).x := pkt(.
023030: 33 2E 29 2E 78 20 2D 20 70 6B 74 28 2E 32 2E 29 3.).x - pkt(.2.)
023040: 2E 78 3B 0D 0A 20 20 20 20 76 28 2E 32 2E 29 2E .x;.. v(.2.).
023050: 79 20 3A 3D 20 70 6B 74 28 2E 33 2E 29 2E 79 20 y := pkt(.3.).y
023060: 2D 20 70 6B 74 28 2E 32 2E 29 2E 79 3B 0D 0A 20 - pkt(.2.).y;..
023070: 20 20 20 76 28 2E 33 2E 29 2E 78 20 3A 3D 20 70 v(.3.).x := p
023080: 6B 74 28 2E 31 2E 29 2E 78 20 2D 20 70 6B 74 28 kt(.1.).x - pkt(
023090: 2E 33 2E 29 2E 78 3B 0D 0A 20 20 20 20 76 28 2E .3.).x;.. v(.
0230A0: 33 2E 29 2E 79 20 3A 3D 20 70 6B 74 28 2E 31 2E 3.).y := pkt(.1.
0230B0: 29 2E 79 20 2D 20 70 6B 74 28 2E 33 2E 29 2E 79 ).y - pkt(.3.).y
0230C0: 3B 0D 0A 20 20 20 20 46 4F 52 20 69 20 3A 3D 20 ;.. FOR i :=
0230D0: 31 20 54 4F 20 33 20 44 4F 0D 0A 20 20 20 20 20 1 TO 3 DO..
0230E0: 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 BEGIN..
0230F0: 73 69 28 2E 69 2E 29 20 3A 3D 20 53 51 52 54 28 si(.i.) := SQRT(
023100: 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 END;..
023110: 57 52 49 54 45 28 27 2E 27 29 3B 0D 0A 20 20 20 WRITE('.');..
023120: 20 20 20 57 52 49 54 45 28 64 65 63 69 6D 61 6C WRITE(decimal
023130: 73 74 72 65 6E 67 29 3B 0D 0A 20 20 20 20 45 4E streng);.. EN
023140: 44 3B 20 28 2A 20 74 72 65 63 69 66 20 2A 29 0D D; (* trecif *).
023150: 0A 20 20 20 20 0D 0A 20 20 42 45 47 49 4E 20 28 . .. BEGIN (
023160: 2A 20 74 72 65 63 69 66 72 65 20 2A 29 0D 0A 20 * trecifre *)..
023170: 20 20 20 57 52 49 54 45 28 43 4C 52 48 4F 4D 29 WRITE(CLRHOM)
023180: 3B 0D 0A 20 20 20 20 52 45 50 45 41 54 0D 0A 20 ;.. REPEAT..
023190: 20 20 20 20 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 WRITELN;..
0231A0: 20 20 20 20 20 57 52 49 54 45 28 27 49 6E 64 74 WRITE('Indt
0231B0: 61 73 74 20 65 74 20 74 61 6C 20 28 5E 43 20 73 ast et tal (^C s
0231C0: 74 6F 70 70 65 72 29 3A 20 27 29 3B 20 52 45 41 topper): '); REA
0231D0: 44 4C 4E 28 74 61 6C 29 3B 0D 0A 20 20 20 20 20 DLN(tal);..
0231E0: 20 57 52 49 54 45 28 27 49 6E 64 74 61 73 74 20 WRITE('Indtast
0231F0: 66 65 6C 74 6C 7B 6E 67 64 65 6E 3A 20 27 29 3B feltl{ngden: ');
023200: 20 52 45 41 44 4C 4E 28 66 65 6C 74 65 72 29 3B READLN(felter);
023210: 0D 0A 20 20 20 20 20 20 74 72 65 63 69 66 28 74 .. trecif(t
023220: 61 6C 2C 20 66 65 6C 74 65 72 29 3B 0D 0A 20 20 al, felter);..
023230: 20 20 55 4E 54 49 4C 20 46 41 4C 53 45 3B 0D 0A UNTIL FALSE;..
023240: 20 20 45 4E 44 2E 20 28 2A 20 74 72 65 63 69 66 END. (* trecif
023250: 72 65 20 2A 29 0D 0A 1A 3B 0D 0A 20 20 20 20 20 re *)...;..
023260: 20 57 52 49 54 45 28 27 49 6E 64 74 61 73 74 20 WRITE('Indtast
023270: 66 65 6C 74 6C 7B 6E 67 64 65 6E 3A 20 27 29 3B feltl{ngden: ');
023280: 76 FD 54 52 45 4B 41 4E 54 2E 50 41 53 5B 32 38 v.TREKANT.PAS[28
023290: 2F 30 31 2F 31 39 39 31 5D 00 11 10 00 05 ED 77 /01/1991]......w
0232A0: 3B 3D 1C 3E 5F 5F 55 FE FE 7B FE BE BF C5 EF 17 ;=.>__U..{......
0232B0: 2F 94 BE AF 18 03 EF 78 F1 39 F6 40 7B 54 57 B9 /......x.9.@{TW.
0232C0: FB 7E A8 5E 53 C7 A6 7D 6F 37 0A 8F 3A 38 29 47 .~.^S..}o7..:8)G
0232D0: 20 40 B6 D4 81 C3 89 06 1D C0 EB 5A 47 B3 C1 B9 @.........ZG...
0232E0: 1D 8A 0B E8 4A 64 84 FE D5 BB AF 04 85 8C EB F1 ....Jd..........
0232F0: EC 36 5B 8D DB A3 1B 3B 7B 17 66 E8 3D 09 32 85 .6[..£.;{.f.=.2.
023300: 53 51 52 28 76 28 2E 69 2E 29 2E 78 29 20 2B 20 SQR(v(.i.).x) +
023310: 53 51 52 28 76 28 2E 69 2E 29 2E 79 29 29 3B 0D SQR(v(.i.).y));.
023320: 0A 20 20 20 20 20 20 20 20 57 52 49 54 45 4C 4E . WRITELN
023330: 28 27 53 69 64 65 20 27 2C 20 69 2C 20 27 20 68 ('Side ', i, ' h
023340: 61 72 20 6C 7B 6E 67 64 65 6E 3A 20 27 2C 20 73 ar l{ngden: ', s
023350: 69 28 2E 69 2E 29 20 3A 20 36 20 3A 20 33 29 3B i(.i.) : 6 : 3);
023360: 20 20 0D 0A 20 20 20 20 20 20 45 4E 44 3B 0D 0A .. END;..
023370: 20 20 20 20 73 20 3A 3D 20 28 73 69 28 2E 31 2E s := (si(.1.
023380: 29 20 2B 20 73 69 28 2E 32 2E 29 20 2B 20 73 69 ) + si(.2.) + si
023390: 28 2E 33 2E 29 29 20 2F 20 32 3B 0D 0A 20 20 20 (.3.)) / 2;..
0233A0: 20 61 72 65 61 6C 20 3A 3D 20 53 51 52 54 28 73 areal := SQRT(s
0233B0: 20 2A 20 28 73 20 2D 20 73 69 28 2E 31 2E 29 29 * (s - si(.1.))
0233C0: 20 2A 20 28 73 20 2D 20 73 69 28 2E 32 2E 29 29 * (s - si(.2.))
0233D0: 20 2A 20 28 73 20 2D 20 73 69 28 2E 33 2E 29 29 * (s - si(.3.))
0233E0: 29 3B 0D 0A 20 20 20 20 57 52 49 54 45 4C 4E 28 );.. WRITELN(
0233F0: 27 41 72 65 61 6C 20 62 65 73 74 65 6D 74 20 76 'Areal bestemt v
023400: 2E 68 2E 61 2E 20 48 65 72 6F 6E 73 20 66 6F 72 .h.a. Herons for
023410: 6D 65 6C 3A 20 27 2C 20 61 72 65 61 6C 20 3A 20 mel: ', areal :
023420: 36 20 3A 20 33 29 3B 0D 0A 20 20 20 20 61 72 65 6 : 3);.. are
023430: 61 6C 20 3A 3D 20 31 20 2F 20 32 20 2A 20 61 62 al := 1 / 2 * ab
023440: 73 28 76 28 2E 31 2E 29 2E 78 20 2A 20 76 28 2E s(v(.1.).x * v(.
023450: 32 2E 29 2E 79 20 2D 20 76 28 2E 31 2E 29 2E 79 2.).y - v(.1.).y
023460: 20 2A 20 76 28 2E 32 2E 29 2E 78 29 3B 0D 0A 20 * v(.2.).x);..
023470: 20 20 20 57 52 49 54 45 4C 4E 28 27 41 72 65 61 WRITELN('Area
023480: 6C 20 62 65 73 74 65 6D 74 20 76 2E 68 2E 61 20 l bestemt v.h.a
023490: 64 65 74 65 72 6D 69 6E 61 6E 74 6D 65 74 6F 64 determinantmetod
0234A0: 65 6E 3A 20 27 2C 20 61 72 65 61 6C 20 3A 20 36 en: ', areal : 6
0234B0: 20 3A 20 33 29 3B 0D 0A 20 20 45 4E 44 2E 0D 0A : 3);.. END...
0234C0: 1A 28 76 28 2E 31 2E 29 2E 78 20 2A 20 76 28 2E .(v(.1.).x * v(.
0234D0: 32 2E 29 2E 79 20 2D 20 76 28 2E 31 2E 29 2E 79 2.).y - v(.1.).y
0234E0: 20 2A 20 76 28 2E 32 2E 29 2E 78 29 3B 0D 0A 20 * v(.2.).x);..
0234F0: 20 20 20 57 52 49 54 45 4C 4E 28 27 41 72 65 61 WRITELN('Area
023500: 50 52 4F 47 52 41 4D 20 74 72 65 67 72 75 70 3B PROGRAM tregrup;
023510: 0D 0A 0D 0A 20 20 54 59 50 45 0D 0A 20 20 20 20 .... TYPE..
023520: 73 74 72 36 20 3D 20 53 54 52 49 4E 47 28 2E 36 str6 = STRING(.6
023530: 2E 29 3B 0D 0A 20 20 0D 0A 20 20 56 41 52 0D 0A .);.. .. VAR..
023540: 20 20 20 20 73 74 72 65 6E 67 31 2C 20 73 74 72 streng1, str
023550: 65 6E 67 32 20 3A 20 73 74 72 36 3B 0D 0A 20 20 eng2 : str6;..
023560: 20 20 69 2C 20 6C 61 65 6E 67 64 65 2C 20 6E 2C i, laengde, n,
023570: 20 6E 6B 6F 70 69 20 3A 20 49 4E 54 45 47 45 52 nkopi : INTEGER
023580: 3B 0D 0A 20 20 20 20 66 6F 72 74 65 67 6E 20 3A ;.. fortegn :
023590: 20 42 4F 4F 4C 45 41 4E 3B 0D 0A 20 20 20 20 0D BOOLEAN;.. .
0235A0: 0A 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 57 52 . BEGIN.. WR
0235B0: 49 54 45 28 43 4C 52 48 4F 4D 29 3B 0D 0A 20 20 ITE(CLRHOM);..
0235C0: 20 20 52 45 50 45 41 54 0D 0A 20 20 20 20 20 20 REPEAT..
0235D0: 57 52 49 54 45 28 27 49 6E 64 74 61 73 74 20 65 WRITE('Indtast e
0235E0: 74 20 68 65 6C 74 61 6C 20 28 30 20 73 74 6F 70 t heltal (0 stop
0235F0: 70 65 72 29 3A 20 27 29 3B 20 52 45 41 44 4C 4E per): '); READLN
023600: 28 6E 29 3B 0D 0A 20 20 20 20 20 20 6E 6B 6F 70 (n);.. nkop
023610: 69 20 3A 3D 20 6E 3B 0D 0A 20 20 20 20 20 20 66 i := n;.. f
023620: 6F 72 74 65 67 6E 20 3A 3D 20 6E 20 3C 20 30 3B ortegn := n < 0;
023630: 0D 0A 20 20 20 20 20 20 6E 20 3A 3D 20 61 62 73 .. n := abs
023640: 28 6E 29 3B 0D 0A 20 20 20 20 20 20 53 54 52 28 (n);.. STR(
023650: 6E 2C 20 73 74 72 65 6E 67 31 29 3B 0D 0A 20 20 n, streng1);..
023660: 20 20 20 20 6C 61 65 6E 67 64 65 20 3A 3D 20 4C laengde := L
023670: 45 4E 28 73 74 72 65 6E 67 31 29 3B 0D 0A 20 20 EN(streng1);..
023680: 20 20 20 20 73 74 72 65 6E 67 32 20 3A 3D 20 27 streng2 := '
023690: 27 3B 0D 0A 20 20 20 20 20 20 46 4F 52 20 69 20 ';.. FOR i
0236A0: 3A 3D 20 31 20 54 4F 20 6C 61 65 6E 67 64 65 20 := 1 TO laengde
0236B0: 44 4F 0D 0A 20 20 20 20 20 20 20 20 42 45 47 49 DO.. BEGI
0236C0: 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 73 74 72 N.. str
0236D0: 65 6E 67 32 20 3A 3D 20 73 74 72 65 6E 67 31 28 eng2 := streng1(
0236E0: 2E 6C 61 65 6E 67 64 65 20 2B 20 31 20 2D 20 69 .laengde + 1 - i
0236F0: 2E 29 20 2B 20 73 74 72 65 6E 67 32 3B 0D 0A 20 .) + streng2;..
023700: 11 33 17 33 23 33 2D 33 41 33 4A 33 53 33 40 2D .3.3#3-3A3J3S3@-
023710: 59 33 75 19 75 19 4A 33 C0 24 75 19 75 19 7D 33 Y3u.u.J3.$u.u.}3
023720: 8B 33 90 33 CD 33 DF 33 2A 34 50 34 E8 33 C8 34 .3.3.3.3*4P4.3.4
023730: A6 35 1F 36 28 36 64 36 F1 36 FE 36 13 37 1E 37 .5.6(6d6.6.6.7.7
023740: 27 37 7B 19 89 19 95 19 95 19 41 1C 67 1C 58 1C '7{.......A.g.X.
023750: 4A 1C 00 00 00 00 76 1C 85 1C 91 1C FE 98 C0 21 J.....v........!
023760: 29 33 E5 2A DB FB 5E 23 56 D5 23 5E 23 56 E1 EB )3.*..^#V.#^#V..
023770: E5 AF 77 23 01 0B 20 CD 6C 11 01 04 00 CD 6C 11 ..w#.. .l.....l.
023780: 21 4A 10 09 09 5E 23 56 EB CD 80 11 C1 3A E7 FB !J...^#V.....:..
023790: B7 C0 C3 23 12 14 15 21 22 28 00 43 4F 50 59 52 ...#...!"(.COPYR
0237A0: 49 47 48 54 20 28 43 29 20 31 39 38 32 2C 20 44 IGHT (C) 1982, D
0237B0: 49 47 49 54 41 4C 20 52 45 53 45 41 52 43 48 20 IGITAL RESEARCH
0237C0: 31 35 31 32 38 32 2F 12 C2 12 28 14 01 19 12 FC 151282/...(.....
0237D0: 80 FB 07 19 2B 19 31 19 37 19 C8 15 3D 19 7D 30 ....+.1.7...=.}0
0237E0: 83 30 96 30 A0 30 87 31 9B 31 EC 31 F5 31 FB 31 .0.0.0.1.1.1.1.1
0237F0: 04 32 0D 32 EF 32 F5 32 FB 32 01 33 08 33 D3 20 .2.2.2.2.2.3.3.
023800: 36 35 34 33 32 31 EB 22 DB FB EB 79 32 DF FB FE 654321."...y2...
023810: 0E DA 3B 0F 21 00 00 22 98 37 3A DA FB 32 A4 37 ..;.!..".7:..2.7
023820: 3D 32 BC 37 3A E6 FB 3D CA 3B 0F 21 95 0F 7E B7 =2.7:..=.;.!..~.
023830: CA 3B 0F B9 CA 34 12 23 C3 2E 0F 7B 32 9E 37 21 .;...4.#...{2.7!
023840: 00 00 22 9F 1C 22 DD FB 39 22 32 12 21 3B 37 E5 ..".."..9"2.!;7.
023850: 79 FE 33 D2 5D 0F 4B 21 C6 0F C3 6F 0F FE 80 D2 y.3.].K!...o....
023860: 5C 10 D6 62 DA C0 24 FE 0F D2 C0 24 21 2C 10 5F \..b..$....$!,._
023870: 16 00 19 19 5E 23 56 2A DB FB EB E9 06 00 C5 0D ....^#V*........
023880: C3 1A 04 00 00 00 C3 1B 01 C3 06 00 07 00 00 00 ................
023890: 4C 4F 41 44 45 52 20 20 FF 00 00 79 FE 3B C2 09 LOADER ...y.;..
0238A0: 01 C1 C5 21 00 00 39 31 BE 03 22 9A 03 C5 EB 22 ...!..91.."...."
0238B0: 98 03 7C B5 F5 CC 00 02 F1 C4 30 02 D1 21 00 01 ..|.......0..!..
0238C0: 7E FE C9 CA 9E 01 7A 3D B3 C2 5F 01 3A 0D 01 B7 ~.....z=.._.:...
0238D0: C2 5F 01 2A 0A 01 22 06 00 22 94 03 CD F8 01 2A ._.*.."..".....*
0238E0: 9A 03 F9 AF 6F 67 C9 11 FE 00 2A 9A 03 F9 E1 E5 ....og....*.....
0238F0: 25 7C B5 EB 7D 44 C0 0E 09 11 53 03 CD 05 00 C3 %|..}D....S.....
023900: 20 20 20 20 20 20 20 20 20 49 46 20 28 69 20 3D IF (i =
023910: 20 33 29 20 41 4E 44 20 28 6C 61 65 6E 67 64 65 3) AND (laengde
023920: 20 3E 20 33 29 0D 0A 20 20 20 20 20 20 20 20 20 > 3)..
023930: 20 20 20 54 48 45 4E 20 73 74 72 65 6E 67 32 20 THEN streng2
023940: 3A 3D 20 27 20 27 20 2B 20 73 74 72 65 6E 67 32 := ' ' + streng2
023950: 3B 0D 0A 20 20 20 20 20 20 20 20 45 4E 44 3B 0D ;.. END;.
023960: 0A 20 20 20 20 20 20 57 52 49 54 45 28 6E 6B 6F . WRITE(nko
023970: 70 69 2C 20 27 20 6B 61 6E 20 73 6B 72 69 76 65 pi, ' kan skrive
023980: 73 20 73 7D 6C 65 64 65 73 3A 20 27 29 3B 0D 0A s s}ledes: ');..
023990: 20 20 20 20 20 20 49 46 20 66 6F 72 74 65 67 6E IF fortegn
0239A0: 0D 0A 20 20 20 20 20 20 20 20 54 48 45 4E 20 57 .. THEN W
0239B0: 52 49 54 45 28 27 2D 27 29 3B 0D 0A 20 20 20 20 RITE('-');..
0239C0: 20 20 57 52 49 54 45 4C 4E 28 73 74 72 65 6E 67 WRITELN(streng
0239D0: 32 29 3B 0D 0A 20 20 20 20 20 20 57 52 49 54 45 2);.. WRITE
0239E0: 4C 4E 3B 0D 0A 20 20 20 20 55 4E 54 49 4C 20 6E LN;.. UNTIL n
0239F0: 6B 6F 70 69 20 3D 20 30 3B 0D 0A 20 20 45 4E 44 kopi = 0;.. END
023A00: 2E 0D 0A 1A 6C 65 64 65 73 3A 20 27 29 3B 0D 0A ....ledes: ');..
023A10: 20 20 20 20 20 20 49 46 20 66 6F 72 74 65 67 6E IF fortegn
023A20: 0D 0A 20 20 20 20 20 20 20 20 54 48 45 4E 20 57 .. THEN W
023A30: 52 49 54 45 28 27 2D 27 29 3B 0D 0A 20 20 20 20 RITE('-');..
023A40: 20 20 57 52 49 54 45 4C 4E 28 73 74 72 65 6E 67 WRITELN(streng
023A50: 32 29 3B 0D 0A 20 20 20 20 20 20 57 52 49 54 45 2);.. WRITE
023A60: 4C 4E 3B 0D 0A 20 20 20 20 55 4E 54 49 4C 20 6E LN;.. UNTIL n
023A70: 6B 6F 70 69 20 3D 20 30 3B 0D 0A 20 20 45 4E 44 kopi = 0;.. END
023A80: BE 4E 6D D0 C3 DC 86 59 B6 A5 C2 A5 0E AB CC D5 .Nm....Y........
023A90: 9E 2A 0B DD B1 43 98 A8 C3 5E FB 72 99 75 8D 38 .*...C...^.r.u.8
023AA0: 2E 55 4B AE 71 AA F6 D6 81 C6 81 C1 84 40 F8 B4 .UK.q........@..
023AB0: 05 58 9C 91 E3 2B 63 9E 81 FD 33 38 9C 2D 51 5A .X...+c...38.-QZ
023AC0: C3 5B D8 16 BE 8E 67 62 6D E7 D4 66 CB 86 62 FF .[....gbm..f..b.
023AD0: 09 1E 2C DA 67 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ..,.g...........
023AE0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
023AF0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
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: 50 52 4F 47 52 41 4D 20 74 72 69 67 6F 6E 6F 6D PROGRAM trigonom
023C10: 3B 0D 0A 0D 0A 20 20 56 41 52 0D 0A 20 20 20 20 ;.... VAR..
023C20: 67 72 61 64 74 61 6C 2C 20 72 61 64 69 61 6E 74 gradtal, radiant
023C30: 61 6C 20 3A 20 52 45 41 4C 3B 0D 0A 20 20 0D 0A al : REAL;.. ..
023C40: 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 57 52 49 BEGIN.. WRI
023C50: 54 45 28 43 4C 52 48 4F 4D 29 3B 0D 0A 20 20 20 TE(CLRHOM);..
023C60: 20 57 52 49 54 45 4C 4E 28 27 50 72 6F 67 72 61 WRITELN('Progra
023C70: 6D 6D 65 74 20 62 65 72 65 67 6E 65 72 20 43 4F mmet beregner CO
023C80: 53 49 4E 55 53 2C 20 53 49 4E 55 53 20 6F 67 20 SINUS, SINUS og
023C90: 54 41 4E 47 45 4E 53 27 29 3B 0D 0A 20 20 20 20 TANGENS');..
023CA0: 57 52 49 54 45 4C 4E 28 27 74 69 6C 20 65 74 20 WRITELN('til et
023CB0: 76 69 6C 6B 7D 72 6C 69 67 74 20 69 6E 64 74 61 vilk}rligt indta
023CC0: 73 74 65 74 20 67 72 61 64 74 61 6C 27 29 3B 0D stet gradtal');.
023CD0: 0A 20 20 20 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 . WRITELN;..
023CE0: 20 20 20 57 52 49 54 45 28 27 49 6E 64 74 61 73 WRITE('Indtas
023CF0: 74 20 47 52 41 44 74 61 6C 3A 20 27 29 3B 20 52 t GRADtal: '); R
023D00: 45 41 44 4C 4E 28 67 72 61 64 74 61 6C 29 3B 0D EADLN(gradtal);.
023D10: 0A 20 20 20 20 72 61 64 69 61 6E 74 61 6C 20 3A . radiantal :
023D20: 3D 20 67 72 61 64 74 61 6C 20 2A 20 50 49 20 2F = gradtal * PI /
023D30: 20 31 38 30 3B 0D 0A 20 20 20 20 57 52 49 54 45 180;.. WRITE
023D40: 4C 4E 3B 0D 0A 20 20 20 20 57 52 49 54 45 4C 4E LN;.. WRITELN
023D50: 28 27 43 4F 53 28 27 2C 20 67 72 61 64 74 61 6C ('COS(', gradtal
023D60: 20 3A 20 36 20 3A 20 32 2C 20 27 29 3D 20 27 2C : 6 : 2, ')= ',
023D70: 20 43 4F 53 28 72 61 64 69 61 6E 74 61 6C 29 20 COS(radiantal)
023D80: 3A 20 37 20 3A 20 34 29 3B 0D 0A 20 20 20 20 57 : 7 : 4);.. W
023D90: 52 49 54 45 4C 4E 28 27 53 49 4E 28 27 2C 20 67 RITELN('SIN(', g
023DA0: 72 61 64 74 61 6C 20 3A 20 36 20 3A 20 32 2C 20 radtal : 6 : 2,
023DB0: 27 29 3D 20 27 2C 20 53 49 4E 28 72 61 64 69 61 ')= ', SIN(radia
023DC0: 6E 74 61 6C 29 20 3A 20 37 20 3A 20 34 29 3B 0D ntal) : 7 : 4);.
023DD0: 0A 20 20 20 20 57 52 49 54 45 4C 4E 28 27 54 41 . WRITELN('TA
023DE0: 4E 28 27 2C 20 67 72 61 64 74 61 6C 20 3A 20 36 N(', gradtal : 6
023DF0: 20 3A 20 32 2C 20 27 29 3D 20 27 2C 20 0D 0A 20 : 2, ')= ', ..
023E00: 20 20 20 20 57 52 49 54 45 28 27 49 6E 64 74 61 WRITE('Indta
023E10: 73 74 20 65 6E 20 74 65 6B 73 74 20 28 69 6E 67 st en tekst (ing
023E20: 65 6E 20 74 65 6B 73 74 20 73 74 6F 70 70 65 72 en tekst stopper
023E30: 29 3A 20 27 29 3B 0D 0A 20 20 20 20 20 20 42 55 ): ');.. BU
023E40: 46 4C 45 4E 20 3A 3D 20 34 30 3B 0D 0A 20 20 20 FLEN := 40;..
023E50: 20 20 20 52 45 41 44 4C 4E 28 73 74 72 65 6E 67 READLN(streng
023E60: 29 3B 0D 0A 20 20 20 20 20 20 57 52 49 54 45 4C );.. WRITEL
023E70: 4E 28 27 27 27 27 2C 20 73 74 72 65 6E 67 2C 20 N('''', streng,
023E80: 27 27 27 20 6B 61 6E 20 6F 67 73 7D 20 73 6B 72 ''' kan ogs} skr
023E90: 69 76 65 73 3A 20 27 29 3B 0D 0A 20 20 20 20 20 ives: ');..
023EA0: 20 57 52 49 54 45 4C 4E 28 75 70 70 65 72 63 61 WRITELN(upperca
023EB0: 73 65 28 73 74 72 65 6E 67 29 29 3B 0D 0A 20 20 se(streng));..
023EC0: 20 20 20 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 WRITELN;..
023ED0: 20 20 55 4E 54 49 4C 20 28 73 74 72 65 6E 67 20 UNTIL (streng
023EE0: 3D 20 27 27 29 3B 0D 0A 20 20 45 4E 44 2E 20 28 = '');.. END. (
023EF0: 2A 20 75 70 63 61 73 65 20 2A 29 0D 0A 1A 2C 20 * upcase *)...,
023F00: 76 FD 56 41 52 45 46 49 4C 2E 50 41 53 5B 32 38 v.VAREFIL.PAS[28
023F10: 2F 30 31 2F 31 39 39 31 5D 00 11 10 00 05 ED 77 /01/1991]......w
023F20: 3B 3D 1C 3E 5F 5F 54 01 EB FE 7B FE 1F 3F B7 17 ;=.>__T...{..?..
023F30: 2F 94 BE B1 18 03 E6 E1 76 3B BD EB 10 45 98 D0 /.......v;...E..
023F40: D7 DE F0 0A 8E 3D 1B FD D4 DC 88 82 B7 C7 89 CF .....=..........
023F50: 8E 0F FE A4 5D D1 7E 7F BF EB 38 7E 55 25 84 89 ....].~...8~U%..
023F60: BC EA 30 AE 10 A4 8A 40 FE 3F F5 6F AE 9F ED A3 ..0....@.?.o...£
023F70: 94 2A 80 0B 8F 88 DE 9D 7B F7 98 30 59 AC 25 25 .*......{..0Y.%%
023F80: 86 2B BA 97 BC 84 EE 24 FD CF 6A A7 40 D7 BE 9C .+.....$..j.@...
023F90: 27 B0 1C 75 1D 2E CB 71 BB 4B 81 FA 21 A8 DF 66 '..u...q.K..!..f
023FA0: 99 9D 06 C3 05 F8 65 3C B6 2E F5 4A C3 36 BA 13 ......e<...J.6..
023FB0: AF F0 11 B8 92 7A CC D6 B4 01 A2 CC 8F 19 D6 95 .....z..........
023FC0: 9F A3 60 B0 FD 0B D5 CC 8F A4 85 2B BC 3E F0 42 .£`........+.>.B
023FD0: E7 C0 0F FE 6B 9E B2 C0 F9 D8 34 6A 7E DD EC 15 ....k.....4j~...
023FE0: 61 AB 61 CF 23 C2 00 F7 92 01 64 AF E8 28 94 17 a.a.#.....d..(..
023FF0: A7 43 F7 DB B5 2C 41 4B 4C A7 85 2A E2 9A 3A 08 .C...,AKL..*..:.
024000: 20 20 20 20 20 20 20 20 20 20 20 53 49 4E 28 72 SIN(r
024010: 61 64 69 61 6E 74 61 6C 29 20 2F 20 43 4F 53 28 adiantal) / COS(
024020: 72 61 64 69 61 6E 74 61 6C 29 20 3A 20 37 20 3A radiantal) : 7 :
024030: 20 34 29 3B 0D 0A 20 20 20 20 57 52 49 54 45 4C 4);.. WRITEL
024040: 4E 3B 0D 0A 20 20 45 4E 44 2E 0D 0A 1A 29 3B 0D N;.. END....);.
024050: 0A 20 20 20 20 57 52 49 54 45 4C 4E 28 27 54 41 . WRITELN('TA
024060: 4E 28 27 2C 20 67 72 61 64 74 61 6C 20 3A 20 36 N(', gradtal : 6
024070: 20 3A 20 32 2C 20 27 29 3D 20 27 2C 20 0D 0A 20 : 2, ')= ', ..
024080: DF 33 D9 09 15 62 E7 50 14 64 93 1E EA E6 5D F7 .3...b.P.d....].
024090: 8A A6 C7 81 9B 11 FB 65 A8 36 61 28 C4 F0 BD F1 .......e.6a(....
0240A0: F4 15 B5 6E 28 74 00 C9 07 D5 CE AB 11 C8 24 0D ...n(t........$.
0240B0: 7C 79 B3 FD 2D 40 A4 71 C9 DF 1A 7F 4C 13 C8 5B |y..-@.q....L..[
0240C0: CC 0B 81 74 BB 9D F2 23 45 F0 0B 8E A1 24 A3 27 ...t...#E....$£'
0240D0: 4A 90 04 83 FE FA 57 C7 4E 27 3F B4 03 5F C3 72 J.....W.N'?.._.r
0240E0: 1B BE 16 EB 9A 52 A9 49 C6 89 AB 54 37 9C 36 22 .....R.I...T7.6"
0240F0: 1C 02 80 F7 88 4A 57 26 09 C2 FD C3 C4 E4 FC 81 .....JW&........
024100: C3 CE 1D 87 8F CC C9 76 D4 85 38 85 F8 1E 77 90 .......v..8...w.
024110: BB 59 A4 46 5F E2 9F 04 E2 A8 04 9A 41 D8 EA FB .Y.F_.......A...
024120: 56 5D FE 7E 1E 3D 7C 1C 8D B2 FF 44 83 A1 1A 1A V].~.=|....D....
024130: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
024140: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
024150: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
024160: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
024170: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
024180: 76 FD 55 44 36 2E 50 41 53 5B 32 38 2F 30 31 2F v.UD6.PAS[28/01/
024190: 31 39 39 31 5D 00 11 10 00 05 ED 77 3B 3D 1C 3E 1991]......w;=.>
0241A0: 5F 5F 55 FF F7 70 38 B9 7C A5 CD C6 CB 69 7D 89 __U..p8.|....i}.
0241B0: FC FC FC 6D 7D 7F 7A 5F 7F FA B8 07 CF FB 61 4E ...m}.z_......aN
0241C0: BD 5F E2 F3 EC 0B 55 4F 36 45 9D 7C 21 65 15 6C ._....UO6E.|!e.l
0241D0: 69 30 E7 CD BD A9 40 1F B6 D9 D9 46 36 91 E0 8F i0....@....F6...
0241E0: E9 C2 2F D0 3C 52 4D D2 A2 E3 D7 64 31 56 2B EC ../.<RM....d1V+.
0241F0: 83 18 4F FC 18 0F E3 45 86 16 1B 71 9A 6E 22 7A ..O....E...q.n"z
024200: 50 52 4F 47 52 41 4D 20 76 61 72 65 66 69 6C 3B PROGRAM varefil;
024210: 0D 0A 20 20 0D 0A 20 20 43 4F 4E 53 54 0D 0A 20 .. .. CONST..
024220: 20 20 20 76 61 72 65 6D 61 78 20 3D 20 35 30 30 varemax = 500
024230: 3B 0D 0A 20 20 0D 0A 20 20 54 59 50 45 0D 0A 20 ;.. .. TYPE..
024240: 20 20 20 70 61 72 70 6F 73 74 20 3D 20 52 45 43 parpost = REC
024250: 4F 52 44 0D 0A 20 20 20 20 20 20 20 20 20 20 20 ORD..
024260: 20 20 20 20 20 76 61 72 65 6E 75 6D 6D 65 72 2C varenummer,
024270: 20 70 6F 73 74 6E 75 6D 6D 65 72 20 3A 20 49 4E postnummer : IN
024280: 54 45 47 45 52 3B 0D 0A 20 20 20 20 20 20 20 20 TEGER;..
024290: 20 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 END;..
0242A0: 69 6E 64 65 78 74 79 70 65 20 3D 20 41 52 52 41 indextype = ARRA
0242B0: 59 28 2E 31 20 2E 2E 20 76 61 72 65 6D 61 78 2E Y(.1 .. varemax.
0242C0: 29 20 4F 46 20 70 61 72 70 6F 73 74 3B 0D 0A 20 ) OF parpost;..
0242D0: 20 20 20 73 74 72 33 30 20 3D 20 53 54 52 49 4E str30 = STRIN
0242E0: 47 28 2E 33 30 2E 29 3B 0D 0A 20 20 20 20 76 61 G(.30.);.. va
0242F0: 72 65 70 6F 73 74 20 3D 20 52 45 43 4F 52 44 0D repost = RECORD.
024300: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
024310: 20 20 6E 72 20 3A 20 49 4E 54 45 47 45 52 3B 0D nr : INTEGER;.
024320: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
024330: 20 20 6E 61 76 6E 20 3A 20 73 74 72 33 30 3B 0D navn : str30;.
024340: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
024350: 20 20 70 72 69 73 20 3A 20 52 45 41 4C 3B 0D 0A pris : REAL;..
024360: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
024370: 20 62 65 68 6F 6C 64 6E 69 6E 67 2C 20 6D 69 6E beholdning, min
024380: 69 6D 75 6D 20 3A 20 49 4E 54 45 47 45 52 3B 0D imum : INTEGER;.
024390: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
0243A0: 45 4E 44 3B 0D 0A 20 20 20 20 0D 0A 20 20 56 41 END;.. .. VA
0243B0: 52 0D 0A 20 20 20 20 69 6E 64 65 78 20 3A 20 69 R.. index : i
0243C0: 6E 64 65 78 74 79 70 65 3B 0D 0A 20 20 20 20 69 ndextype;.. i
0243D0: 6E 64 65 78 66 69 6C 20 3A 20 46 49 4C 45 20 4F ndexfil : FILE O
0243E0: 46 20 70 61 72 70 6F 73 74 3B 0D 0A 20 20 20 20 F parpost;..
0243F0: 61 72 74 69 6B 65 6C 66 69 6C 20 3A 20 46 49 4C artikelfil : FIL
024400: 50 52 4F 47 52 41 4D 20 75 64 36 3B 0D 0A 0D 0A PROGRAM ud6;....
024410: 28 2A 20 50 72 6F 67 72 61 6D 6D 65 74 20 76 69 (* Programmet vi
024420: 73 65 72 20 69 6E 64 6C 7B 73 6E 69 6E 67 20 76 ser indl{sning v
024430: 69 61 20 74 61 73 74 61 74 75 72 65 74 20 2A 29 ia tastaturet *)
024440: 0D 0A 28 2A 20 6F 67 20 75 64 6C 7B 73 6E 69 6E ..(* og udl{snin
024450: 67 20 70 7D 20 70 72 69 6E 74 65 72 65 6E 20 20 g p} printeren
024460: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
024470: 2A 29 0D 0A 0D 0A 56 41 52 0D 0A 20 20 61 6E 74 *)....VAR.. ant
024480: 61 6C 3A 20 49 4E 54 45 47 45 52 3B 0D 0A 20 20 al: INTEGER;..
024490: 65 6E 68 65 64 73 70 72 69 73 3A 20 52 45 41 4C enhedspris: REAL
0244A0: 3B 0D 0A 20 20 76 61 72 65 6E 61 76 6E 3A 20 53 ;.. varenavn: S
0244B0: 54 52 49 4E 47 28 2E 32 35 2E 29 3B 0D 0A 20 20 TRING(.25.);..
0244C0: 20 20 0D 0A 42 45 47 49 4E 0D 0A 20 20 57 52 49 ..BEGIN.. WRI
0244D0: 54 45 28 43 48 52 28 31 32 29 2C 27 54 61 73 74 TE(CHR(12),'Tast
0244E0: 20 76 61 72 65 6E 73 20 6E 61 76 6E 3A 20 27 29 varens navn: ')
0244F0: 3B 0D 0A 20 20 52 45 41 44 4C 4E 28 76 61 72 65 ;.. READLN(vare
024500: 6E 61 76 6E 29 3B 0D 0A 20 20 57 52 49 54 45 28 navn);.. WRITE(
024510: 27 54 61 73 74 20 61 6E 74 61 6C 20 65 6E 68 65 'Tast antal enhe
024520: 64 65 72 3A 20 27 29 3B 0D 0A 20 20 52 45 41 44 der: ');.. READ
024530: 4C 4E 28 61 6E 74 61 6C 29 3B 0D 0A 20 20 57 52 LN(antal);.. WR
024540: 49 54 45 28 27 54 61 73 74 20 76 61 72 65 6E 73 ITE('Tast varens
024550: 20 65 6E 68 65 64 73 70 72 69 73 3A 20 27 29 3B enhedspris: ');
024560: 20 52 45 41 44 4C 4E 28 65 6E 68 65 64 73 70 72 READLN(enhedspr
024570: 69 73 29 3B 0D 0A 20 20 57 52 49 54 45 4C 4E 3B is);.. WRITELN;
024580: 0D 0A 20 20 57 52 49 54 45 4C 4E 28 4C 53 54 2C .. WRITELN(LST,
024590: 27 56 61 72 65 6E 61 76 6E 3A 27 2C 76 61 72 65 'Varenavn:',vare
0245A0: 6E 61 76 6E 3A 32 32 29 3B 0D 0A 20 20 57 52 49 navn:22);.. WRI
0245B0: 54 45 4C 4E 28 4C 53 54 2C 27 41 6E 74 61 6C 20 TELN(LST,'Antal
0245C0: 76 61 72 65 72 3A 20 20 20 20 20 20 20 20 20 27 varer: '
0245D0: 2C 61 6E 74 61 6C 3A 31 30 29 3B 0D 0A 20 20 57 ,antal:10);.. W
0245E0: 52 49 54 45 4C 4E 28 4C 53 54 2C 27 56 61 72 65 RITELN(LST,'Vare
0245F0: 6E 73 20 65 6E 68 65 64 73 70 72 69 73 3A 20 20 ns enhedspris:
024600: 45 20 4F 46 20 76 61 72 65 70 6F 73 74 3B 0D 0A E OF varepost;..
024610: 20 20 20 20 70 6F 73 74 61 6E 74 61 6C 2C 20 69 postantal, i
024620: 20 3A 20 49 4E 54 45 47 45 52 3B 0D 0A 20 20 20 : INTEGER;..
024630: 20 63 68 20 3A 20 43 48 41 52 3B 0D 0A 20 20 0D ch : CHAR;.. .
024640: 0A 20 20 50 52 4F 43 45 44 55 52 45 20 73 6F 72 . PROCEDURE sor
024650: 74 65 72 3B 0D 0A 20 20 20 20 0D 0A 20 20 20 20 ter;.. ..
024660: 56 41 52 0D 0A 20 20 20 20 20 20 73 6C 75 74 20 VAR.. slut
024670: 3A 20 42 4F 4F 4C 45 41 4E 3B 0D 0A 20 20 20 20 : BOOLEAN;..
024680: 20 20 62 79 74 20 3A 20 70 61 72 70 6F 73 74 3B byt : parpost;
024690: 0D 0A 20 20 20 20 20 20 69 2C 20 6A 20 3A 20 49 .. i, j : I
0246A0: 4E 54 45 47 45 52 3B 0D 0A 20 20 20 20 20 20 0D NTEGER;.. .
0246B0: 0A 20 20 20 20 42 45 47 49 4E 20 28 2A 20 73 6F . BEGIN (* so
0246C0: 72 74 65 72 20 2A 29 0D 0A 20 20 20 20 20 20 69 rter *).. i
0246D0: 20 3A 3D 20 70 6F 73 74 61 6E 74 61 6C 3B 0D 0A := postantal;..
0246E0: 20 20 20 20 20 20 52 45 50 45 41 54 0D 0A 20 20 REPEAT..
0246F0: 20 20 20 20 20 20 69 20 3A 3D 20 69 20 2D 20 31 i := i - 1
024700: 3B 0D 0A 20 20 20 20 20 20 20 20 73 6C 75 74 20 ;.. slut
024710: 3A 3D 20 54 52 55 45 3B 0D 0A 20 20 20 20 20 20 := TRUE;..
024720: 20 20 46 4F 52 20 6A 20 3A 3D 20 31 20 54 4F 20 FOR j := 1 TO
024730: 69 20 44 4F 0D 0A 20 20 20 20 20 20 20 20 20 20 i DO..
024740: 49 46 20 69 6E 64 65 78 28 2E 6A 2E 29 2E 76 61 IF index(.j.).va
024750: 72 65 6E 75 6D 6D 65 72 20 3E 20 69 6E 64 65 78 renummer > index
024760: 28 2E 6A 20 2B 20 31 2E 29 2E 76 61 72 65 6E 75 (.j + 1.).varenu
024770: 6D 6D 65 72 0D 0A 20 20 20 20 20 20 20 20 20 20 mmer..
024780: 20 20 54 48 45 4E 0D 0A 20 20 20 20 20 20 20 20 THEN..
024790: 20 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 BEGIN..
0247A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 73 6C 75 slu
0247B0: 74 20 3A 3D 20 46 41 4C 53 45 3B 0D 0A 20 20 20 t := FALSE;..
0247C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 62 79 74 byt
0247D0: 20 3A 3D 20 69 6E 64 65 78 28 2E 6A 2E 29 3B 0D := index(.j.);.
0247E0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
0247F0: 20 69 6E 64 65 78 28 2E 6A 2E 29 20 3A 3D 20 69 index(.j.) := i
024800: 20 27 2C 65 6E 68 65 64 73 70 72 69 73 3A 31 30 ',enhedspris:10
024810: 3A 32 29 3B 0D 0A 20 20 57 52 49 54 45 4C 4E 28 :2);.. WRITELN(
024820: 4C 53 54 2C 27 53 61 6D 6C 65 74 20 70 72 69 73 LST,'Samlet pris
024830: 3A 20 20 20 20 20 20 20 20 20 27 2C 61 6E 74 61 : ',anta
024840: 6C 2A 65 6E 68 65 64 73 70 72 69 73 3A 31 30 3A l*enhedspris:10:
024850: 32 29 3B 0D 0A 45 4E 44 2E 0D 0A 1A 1A 1A 1A 1A 2);..END........
024860: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
024870: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
024880: 1D 51 42 C4 16 4A C6 F9 13 93 6F 72 0F F1 A1 C2 .QB..J....or....
024890: 86 FF 8E 30 88 F7 67 0F 15 BD C0 96 6B 4D 21 F4 ...0..g.....kM!.
0248A0: 43 18 88 4D 3F 0E 11 E3 12 35 E5 CE 38 D6 8C 55 C..M?....5..8..U
0248B0: 79 E1 F5 E5 CB 6D EE 32 1D 2A 80 0B 8F BF 7C 3C y....m.2.*....|<
0248C0: F3 F7 DD 49 05 00 35 80 1F AD 1A 1A 1A 1A 1A 1A ...I..5.........
0248D0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0248E0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0248F0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
024900: 76 FD 55 50 43 41 53 45 2E 50 41 53 5B 32 38 2F v.UPCASE.PAS[28/
024910: 30 31 2F 31 39 39 31 5D 00 11 10 00 05 ED 77 3B 01/1991]......w;
024920: 3D 1C 3E 5F 5F 55 FF FD 7B 7D 7F DF 7F 17 2F 94 =.>__U..{}..../.
024930: B6 B3 BE AD DE F1 E2 73 E3 00 F6 A8 B9 FF 7F 37 .......s.......7
024940: DB AA 78 F5 77 6C A7 F4 FB 18 3B 2D C5 65 3C 9E ..x.wl....;-.e<.
024950: CE 2C 49 54 2B C4 DE 0C 0A 53 F1 2D C7 E3 E2 FE .,IT+....S.-....
024960: 25 C8 5D 36 1F E8 77 E8 79 B0 28 B0 9E 4E 93 97 %.]6..w.y.(..N..
024970: 90 6B 62 13 F4 0E 48 F9 F0 9A 7B 06 2F A7 92 2C .kb...H...{./..,
024980: 67 CE 28 9D DC 89 36 0C 57 2D 5F 2C 12 CC DA C9 g.(...6.W-_,....
024990: 45 12 34 E6 40 83 09 17 B6 DA 53 8A 67 3D 34 87 E.4.@.....S.g=4.
0249A0: 19 53 3B 62 DC C8 82 96 64 B4 62 69 13 B7 62 63 .S;b....d.bi..bc
0249B0: 51 EB 16 99 46 93 C1 E7 10 A4 40 22 22 02 7C 86 Q...F.....@"".|.
0249C0: E9 81 71 9A 1A 9F 04 82 19 70 61 91 05 57 CD 41 ..q......pa..W.A
0249D0: 52 40 72 A1 A0 2A E1 36 29 3D 3E 8B E9 14 B4 B9 R@r..*.6)=>.....
0249E0: 5A 40 F6 A7 28 9C 90 A3 A4 0F E0 C4 B3 DB 9E F7 Z@..(..£........
0249F0: 78 FC 30 29 9A 8C B6 F1 83 22 A7 F2 57 D6 86 7A x.0)....."..W..z
024A00: 6E 64 65 78 28 2E 6A 20 2B 20 31 2E 29 3B 0D 0A ndex(.j + 1.);..
024A10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
024A20: 69 6E 64 65 78 28 2E 6A 20 2B 20 31 2E 29 20 3A index(.j + 1.) :
024A30: 3D 20 62 79 74 3B 0D 0A 20 20 20 20 20 20 20 20 = byt;..
024A40: 20 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 END;..
024A50: 20 20 55 4E 54 49 4C 20 28 69 20 3D 20 31 29 20 UNTIL (i = 1)
024A60: 4F 52 20 73 6C 75 74 3B 0D 0A 20 20 20 20 45 4E OR slut;.. EN
024A70: 44 3B 20 28 2A 20 73 6F 72 74 65 72 20 2A 29 0D D; (* sorter *).
024A80: 0A 20 20 0D 0A 20 20 50 52 4F 43 45 44 55 52 45 . .. PROCEDURE
024A90: 20 72 65 74 75 72 3B 0D 0A 20 20 0D 0A 20 20 20 retur;.. ..
024AA0: 20 56 41 52 0D 0A 20 20 20 20 20 20 63 68 20 3A VAR.. ch :
024AB0: 20 43 48 41 52 3B 0D 0A 20 20 20 20 0D 0A 20 20 CHAR;.. ..
024AC0: 20 20 42 45 47 49 4E 20 28 2A 20 72 65 74 75 72 BEGIN (* retur
024AD0: 20 2A 29 0D 0A 20 20 20 20 20 20 57 52 49 54 45 *).. WRITE
024AE0: 28 27 54 61 73 74 20 3C 52 45 54 55 52 3E 3A 20 ('Tast <RETUR>:
024AF0: 27 29 3B 0D 0A 20 20 20 20 20 20 52 45 50 45 41 ');.. REPEA
024B00: 54 0D 0A 20 20 20 20 20 20 20 20 52 45 41 44 28 T.. READ(
024B10: 4B 42 44 2C 20 63 68 29 3B 0D 0A 20 20 20 20 20 KBD, ch);..
024B20: 20 55 4E 54 49 4C 20 63 68 20 3D 20 43 48 52 28 UNTIL ch = CHR(
024B30: 31 33 29 3B 0D 0A 20 20 20 20 45 4E 44 3B 20 28 13);.. END; (
024B40: 2A 20 72 65 74 75 72 2A 29 0D 0A 20 20 0D 0A 20 * retur*).. ..
024B50: 20 50 52 4F 43 45 44 55 52 45 20 6F 70 72 65 74 PROCEDURE opret
024B60: 3B 0D 0A 20 20 0D 0A 20 20 20 20 56 41 52 0D 0A ;.. .. VAR..
024B70: 20 20 20 20 20 20 76 61 72 65 66 69 6C 6E 61 76 varefilnav
024B80: 6E 2C 20 69 6E 64 65 78 66 69 6C 6E 61 76 6E 20 n, indexfilnavn
024B90: 3A 20 53 54 52 49 4E 47 28 2E 31 34 2E 29 3B 0D : STRING(.14.);.
024BA0: 0A 20 20 20 20 0D 0A 20 20 20 20 42 45 47 49 4E . .. BEGIN
024BB0: 20 28 2A 20 6F 70 72 65 74 20 2A 29 0D 0A 20 20 (* opret *)..
024BC0: 20 20 20 20 57 52 49 54 45 28 43 4C 52 48 4F 4D WRITE(CLRHOM
024BD0: 29 3B 0D 0A 20 20 20 20 20 20 47 4F 54 4F 58 59 );.. GOTOXY
024BE0: 28 35 2C 20 32 29 3B 20 57 52 49 54 45 28 27 48 (5, 2); WRITE('H
024BF0: 76 61 64 20 73 6B 61 6C 20 64 65 74 20 6E 79 65 vad skal det nye
024C00: 50 52 4F 47 52 41 4D 20 75 70 63 61 73 65 3B 0D PROGRAM upcase;.
024C10: 0A 0D 0A 20 20 54 59 50 45 0D 0A 20 20 20 20 73 ... TYPE.. s
024C20: 74 72 34 30 20 3D 20 53 54 52 49 4E 47 28 2E 34 tr40 = STRING(.4
024C30: 30 2E 29 3B 0D 0A 20 20 0D 0A 20 20 56 41 52 0D 0.);.. .. VAR.
024C40: 0A 20 20 20 20 73 74 72 65 6E 67 20 3A 20 73 74 . streng : st
024C50: 72 34 30 3B 0D 0A 20 20 0D 0A 20 20 46 55 4E 43 r40;.. .. FUNC
024C60: 54 49 4F 4E 20 75 70 70 65 72 63 61 73 65 28 73 TION uppercase(s
024C70: 74 72 20 3A 20 73 74 72 34 30 29 20 3A 20 73 74 tr : str40) : st
024C80: 72 34 30 3B 0D 0A 20 20 0D 0A 20 20 20 20 56 41 r40;.. .. VA
024C90: 52 0D 0A 20 20 20 20 20 20 69 20 3A 20 49 4E 54 R.. i : INT
024CA0: 45 47 45 52 3B 0D 0A 20 20 20 20 20 20 73 20 3A EGER;.. s :
024CB0: 20 73 74 72 34 30 3B 0D 0A 20 20 20 20 0D 0A 20 str40;.. ..
024CC0: 20 20 20 42 45 47 49 4E 20 28 2A 20 75 70 70 65 BEGIN (* uppe
024CD0: 72 63 61 73 65 20 2A 29 0D 0A 20 20 20 20 20 20 rcase *)..
024CE0: 73 20 3A 3D 20 27 27 3B 0D 0A 20 20 20 20 20 20 s := '';..
024CF0: 46 4F 52 20 69 20 3A 3D 20 31 20 54 4F 20 4C 45 FOR i := 1 TO LE
024D00: 4E 28 73 74 72 29 20 44 4F 0D 0A 20 20 20 20 20 N(str) DO..
024D10: 20 20 20 49 46 20 28 27 61 27 20 3C 3D 20 73 74 IF ('a' <= st
024D20: 72 28 2E 69 2E 29 29 20 41 4E 44 20 28 73 74 72 r(.i.)) AND (str
024D30: 28 2E 69 2E 29 20 3C 3D 20 27 7D 27 29 0D 0A 20 (.i.) <= '}')..
024D40: 20 20 20 20 20 20 20 20 20 54 48 45 4E 20 73 20 THEN s
024D50: 3A 3D 20 73 20 2B 20 43 48 52 28 4F 52 44 28 73 := s + CHR(ORD(s
024D60: 74 72 28 2E 69 2E 29 29 20 2D 20 33 32 29 0D 0A tr(.i.)) - 32)..
024D70: 20 20 20 20 20 20 20 20 20 20 45 4C 53 45 20 73 ELSE s
024D80: 20 3A 3D 20 73 20 2B 20 73 74 72 28 2E 69 2E 29 := s + str(.i.)
024D90: 3B 0D 0A 20 20 20 20 20 20 75 70 70 65 72 63 61 ;.. upperca
024DA0: 73 65 20 3A 3D 20 73 3B 0D 0A 20 20 20 20 45 4E se := s;.. EN
024DB0: 44 3B 20 28 2A 20 75 70 70 65 72 63 61 73 65 20 D; (* uppercase
024DC0: 2A 29 0D 0A 20 20 0D 0A 20 20 42 45 47 49 4E 20 *).. .. BEGIN
024DD0: 28 2A 20 75 70 63 61 73 65 20 2A 29 0D 0A 20 20 (* upcase *)..
024DE0: 20 20 57 52 49 54 45 28 43 4C 52 48 4F 4D 29 3B WRITE(CLRHOM);
024DF0: 0D 0A 20 20 20 20 52 45 50 45 41 54 0D 0A 20 20 .. REPEAT..
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: 20 76 61 72 65 6B 61 72 74 6F 74 65 6B 20 68 65 varekartotek he
024F10: 64 64 65 3A 20 27 29 3B 0D 0A 20 20 20 20 20 20 dde: ');..
024F20: 52 45 41 44 28 76 61 72 65 66 69 6C 6E 61 76 6E READ(varefilnavn
024F30: 29 3B 0D 0A 20 20 20 20 20 20 47 4F 54 4F 58 59 );.. GOTOXY
024F40: 28 35 2C 20 34 29 3B 20 57 52 49 54 45 28 27 48 (5, 4); WRITE('H
024F50: 76 61 64 20 73 6B 61 6C 20 69 6E 64 65 78 66 69 vad skal indexfi
024F60: 6C 65 6E 20 68 65 64 64 65 3A 20 27 29 3B 0D 0A len hedde: ');..
024F70: 20 20 20 20 20 20 52 45 41 44 28 69 6E 64 65 78 READ(index
024F80: 66 69 6C 6E 61 76 6E 29 3B 0D 0A 20 20 20 20 20 filnavn);..
024F90: 20 41 53 53 49 47 4E 28 61 72 74 69 6B 65 6C 66 ASSIGN(artikelf
024FA0: 69 6C 2C 20 76 61 72 65 66 69 6C 6E 61 76 6E 29 il, varefilnavn)
024FB0: 3B 0D 0A 20 20 20 20 20 20 41 53 53 49 47 4E 28 ;.. ASSIGN(
024FC0: 69 6E 64 65 78 66 69 6C 2C 20 69 6E 64 65 78 66 indexfil, indexf
024FD0: 69 6C 6E 61 76 6E 29 3B 0D 0A 20 20 20 20 20 20 ilnavn);..
024FE0: 52 45 57 52 49 54 45 28 61 72 74 69 6B 65 6C 66 REWRITE(artikelf
024FF0: 69 6C 29 3B 0D 0A 20 20 20 20 20 20 52 45 57 52 il);.. REWR
025000: 49 54 45 28 69 6E 64 65 78 66 69 6C 29 3B 0D 0A ITE(indexfil);..
025010: 20 20 20 20 20 20 70 6F 73 74 61 6E 74 61 6C 20 postantal
025020: 3A 3D 20 30 3B 0D 0A 20 20 20 20 20 20 47 4F 54 := 0;.. GOT
025030: 4F 58 59 28 35 2C 20 36 29 3B 20 0D 0A 20 20 20 OXY(5, 6); ..
025040: 20 20 20 57 52 49 54 45 28 76 61 72 65 66 69 6C WRITE(varefil
025050: 6E 61 76 6E 2C 20 27 20 6F 67 20 27 2C 20 69 6E navn, ' og ', in
025060: 64 65 78 66 69 6C 6E 61 76 6E 2C 20 27 20 65 72 dexfilnavn, ' er
025070: 20 6E 75 20 6F 70 72 65 74 74 65 74 27 29 3B 0D nu oprettet');.
025080: 0A 20 20 20 20 20 20 47 4F 54 4F 58 59 28 35 2C . GOTOXY(5,
025090: 20 38 29 3B 0D 0A 20 20 20 20 20 20 72 65 74 75 8);.. retu
0250A0: 72 3B 0D 0A 20 20 20 20 45 4E 44 3B 20 28 2A 20 r;.. END; (*
0250B0: 6F 70 72 65 74 20 2A 29 0D 0A 20 20 0D 0A 20 20 opret *).. ..
0250C0: 50 52 4F 43 45 44 55 52 45 20 68 76 69 6C 6B 65 PROCEDURE hvilke
0250D0: 66 69 6C 65 72 3B 0D 0A 20 20 0D 0A 20 20 20 20 filer;.. ..
0250E0: 56 41 52 0D 0A 20 20 20 20 20 20 76 61 72 65 66 VAR.. varef
0250F0: 69 6C 6E 61 76 6E 2C 20 69 6E 64 65 78 66 69 6C ilnavn, indexfil
025100: 52 3B 0D 0A 20 20 20 20 20 20 63 68 20 3A 20 43 R;.. ch : C
025110: 48 41 52 3B 0D 0A 20 20 20 20 20 20 69 20 3A 20 HAR;.. i :
025120: 49 4E 54 45 47 45 52 3B 0D 0A 20 20 20 20 20 20 INTEGER;..
025130: 0D 0A 20 20 20 20 42 45 47 49 4E 20 28 2A 20 73 .. BEGIN (* s
025140: 6C 65 74 20 2A 29 0D 0A 20 20 20 20 20 20 57 52 let *).. WR
025150: 49 54 45 28 43 4C 52 48 4F 4D 29 3B 0D 0A 20 20 ITE(CLRHOM);..
025160: 20 20 20 20 47 4F 54 4F 58 59 28 35 2C 20 32 29 GOTOXY(5, 2)
025170: 3B 20 57 52 49 54 45 28 27 54 61 73 74 20 76 61 ; WRITE('Tast va
025180: 72 65 6E 75 6D 6D 65 72 3A 20 27 29 3B 0D 0A 20 renummer: ');..
025190: 20 20 20 20 20 52 45 41 44 28 6E 75 6D 6D 65 72 READ(nummer
0251A0: 29 3B 0D 0A 20 20 20 20 20 20 69 20 3A 3D 20 30 );.. i := 0
0251B0: 3B 0D 0A 20 20 20 20 20 20 52 45 50 45 41 54 0D ;.. REPEAT.
0251C0: 0A 20 20 20 20 20 20 20 20 69 20 3A 3D 20 69 20 . i := i
0251D0: 2B 20 31 3B 0D 0A 20 20 20 20 20 20 55 4E 54 49 + 1;.. UNTI
0251E0: 4C 20 28 69 6E 64 65 78 28 2E 69 2E 29 2E 76 61 L (index(.i.).va
0251F0: 72 65 6E 75 6D 6D 65 72 20 3E 3D 20 6E 75 6D 6D renummer >= numm
025200: 65 72 29 20 4F 52 20 28 69 20 3D 20 70 6F 73 74 er) OR (i = post
025210: 61 6E 74 61 6C 29 3B 0D 0A 20 20 20 20 20 20 49 antal);.. I
025220: 46 20 69 6E 64 65 78 28 2E 69 2E 29 2E 76 61 72 F index(.i.).var
025230: 65 6E 75 6D 6D 65 72 20 3C 3E 20 6E 75 6D 6D 65 enummer <> numme
025240: 72 0D 0A 20 20 20 20 20 20 20 20 54 48 45 4E 0D r.. THEN.
025250: 0A 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4E . BEGIN
025260: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 47 4F .. GO
025270: 54 4F 58 59 28 35 2C 20 34 29 3B 20 57 52 49 54 TOXY(5, 4); WRIT
025280: 45 28 27 44 65 74 74 65 20 76 61 72 65 6E 75 6D E('Dette varenum
025290: 6D 65 72 20 66 69 6E 64 65 73 20 69 6B 6B 65 27 mer findes ikke'
0252A0: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 45 4E );.. EN
0252B0: 44 0D 0A 20 20 20 20 20 20 20 20 45 4C 53 45 0D D.. ELSE.
0252C0: 0A 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4E . BEGIN
0252D0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 53 45 .. SE
0252E0: 45 4B 28 61 72 74 69 6B 65 6C 66 69 6C 2C 20 69 EK(artikelfil, i
0252F0: 6E 64 65 78 28 2E 69 2E 29 2E 70 6F 73 74 6E 75 ndex(.i.).postnu
025300: 6E 61 76 6E 20 3A 20 53 54 52 49 4E 47 28 2E 31 navn : STRING(.1
025310: 34 2E 29 3B 0D 0A 20 20 20 20 20 20 69 20 3A 20 4.);.. i :
025320: 49 4E 54 45 47 45 52 3B 0D 0A 20 20 20 20 0D 0A INTEGER;.. ..
025330: 20 20 20 20 42 45 47 49 4E 20 28 2A 20 68 76 69 BEGIN (* hvi
025340: 6C 6B 65 66 69 6C 65 72 20 2A 29 0D 0A 20 20 20 lkefiler *)..
025350: 20 20 20 57 52 49 54 45 28 43 4C 52 48 4F 4D 29 WRITE(CLRHOM)
025360: 3B 0D 0A 20 20 20 20 20 20 47 4F 54 4F 58 59 28 ;.. GOTOXY(
025370: 35 2C 20 32 29 3B 20 57 52 49 54 45 28 27 48 76 5, 2); WRITE('Hv
025380: 61 64 20 68 65 64 64 65 72 20 76 61 72 65 6B 61 ad hedder vareka
025390: 72 74 6F 74 65 6B 65 74 3A 20 27 29 3B 0D 0A 20 rtoteket: ');..
0253A0: 20 20 20 20 20 52 45 41 44 4C 4E 28 76 61 72 65 READLN(vare
0253B0: 66 69 6C 6E 61 76 6E 29 3B 0D 0A 20 20 20 20 20 filnavn);..
0253C0: 20 47 4F 54 4F 58 59 28 35 2C 20 34 29 3B 20 57 GOTOXY(5, 4); W
0253D0: 52 49 54 45 28 27 48 76 61 64 20 68 65 64 64 65 RITE('Hvad hedde
0253E0: 72 20 64 65 74 73 20 69 6E 64 65 78 66 69 6C 3A r dets indexfil:
0253F0: 20 27 29 3B 0D 0A 20 20 20 20 20 20 52 45 41 44 ');.. READ
025400: 4C 4E 28 69 6E 64 65 78 66 69 6C 6E 61 76 6E 29 LN(indexfilnavn)
025410: 3B 0D 0A 20 20 20 20 20 20 41 53 53 49 47 4E 28 ;.. ASSIGN(
025420: 61 72 74 69 6B 65 6C 66 69 6C 2C 20 76 61 72 65 artikelfil, vare
025430: 66 69 6C 6E 61 76 6E 29 3B 0D 0A 20 20 20 20 20 filnavn);..
025440: 20 41 53 53 49 47 4E 28 69 6E 64 65 78 66 69 6C ASSIGN(indexfil
025450: 2C 20 69 6E 64 65 78 66 69 6C 6E 61 76 6E 29 3B , indexfilnavn);
025460: 0D 0A 20 20 20 20 20 20 52 45 53 45 54 28 61 72 .. RESET(ar
025470: 74 69 6B 65 6C 66 69 6C 29 3B 0D 0A 20 20 20 20 tikelfil);..
025480: 20 20 52 45 53 45 54 28 69 6E 64 65 78 66 69 6C RESET(indexfil
025490: 29 3B 0D 0A 20 20 20 20 20 20 69 20 3A 3D 20 30 );.. i := 0
0254A0: 3B 0D 0A 20 20 20 20 20 20 57 48 49 4C 45 20 4E ;.. WHILE N
0254B0: 4F 54 20 45 4F 46 28 69 6E 64 65 78 66 69 6C 29 OT EOF(indexfil)
0254C0: 20 44 4F 0D 0A 20 20 20 20 20 20 20 20 42 45 47 DO.. BEG
0254D0: 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 69 20 IN.. i
0254E0: 3A 3D 20 69 20 2B 20 31 3B 0D 0A 20 20 20 20 20 := i + 1;..
0254F0: 20 20 20 20 20 52 45 41 44 28 69 6E 64 65 78 66 READ(indexf
025500: 6D 6D 65 72 29 3B 0D 0A 20 20 20 20 20 20 20 20 mmer);..
025510: 20 20 20 20 52 45 41 44 28 61 72 74 69 6B 65 6C READ(artikel
025520: 66 69 6C 2C 20 76 61 72 65 29 3B 0D 0A 20 20 20 fil, vare);..
025530: 20 20 20 20 20 20 20 20 20 53 45 45 4B 28 61 72 SEEK(ar
025540: 74 69 6B 65 6C 66 69 6C 2C 20 69 6E 64 65 78 28 tikelfil, index(
025550: 2E 69 2E 29 2E 70 6F 73 74 6E 75 6D 6D 65 72 29 .i.).postnummer)
025560: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 47 ;.. G
025570: 4F 54 4F 58 59 28 35 2C 20 34 29 3B 20 57 52 49 OTOXY(5, 4); WRI
025580: 54 45 28 27 53 6B 61 6C 20 27 27 27 2C 20 76 61 TE('Skal ''', va
025590: 72 65 2E 6E 61 76 6E 2C 20 27 27 27 20 73 6C 65 re.navn, ''' sle
0255A0: 74 74 65 73 20 28 4A 2F 4E 29 3A 20 27 29 3B 0D ttes (J/N): ');.
0255B0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 52 45 50 . REP
0255C0: 45 41 54 0D 0A 20 20 20 20 20 20 20 20 20 20 20 EAT..
0255D0: 20 20 20 52 45 41 44 28 4B 42 44 2C 20 63 68 29 READ(KBD, ch)
0255E0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 55 ;.. U
0255F0: 4E 54 49 4C 20 63 68 20 49 4E 20 28 2E 27 4A 27 NTIL ch IN (.'J'
025600: 2C 20 27 6A 27 2C 20 27 4E 27 2C 20 27 6E 27 2E , 'j', 'N', 'n'.
025610: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 );..
025620: 49 46 20 63 68 20 49 4E 20 28 2E 27 4A 27 2C 20 IF ch IN (.'J',
025630: 27 6A 27 2E 29 0D 0A 20 20 20 20 20 20 20 20 20 'j'.)..
025640: 20 20 20 20 20 54 48 45 4E 0D 0A 20 20 20 20 20 THEN..
025650: 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4E BEGIN
025660: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
025670: 20 20 20 20 76 61 72 65 2E 6E 72 20 3A 3D 20 2D vare.nr := -
025680: 31 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 1;..
025690: 20 20 20 20 20 20 57 52 49 54 45 28 61 72 74 69 WRITE(arti
0256A0: 6B 65 6C 66 69 6C 2C 20 76 61 72 65 29 3B 0D 0A kelfil, vare);..
0256B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0256C0: 20 20 69 6E 64 65 78 28 2E 69 2E 29 2E 76 61 72 index(.i.).var
0256D0: 65 6E 75 6D 6D 65 72 20 3A 3D 20 2D 31 3B 0D 0A enummer := -1;..
0256E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0256F0: 45 4E 44 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 END;..
025700: 69 6C 2C 20 69 6E 64 65 78 28 2E 69 2E 29 29 3B il, index(.i.));
025710: 0D 0A 20 20 20 20 20 20 20 20 45 4E 44 3B 0D 0A .. END;..
025720: 20 20 20 20 20 20 70 6F 73 74 61 6E 74 61 6C 20 postantal
025730: 3A 3D 20 69 3B 0D 0A 20 20 20 20 20 20 47 4F 54 := i;.. GOT
025740: 4F 58 59 28 35 2C 20 36 29 3B 0D 0A 20 20 20 20 OXY(5, 6);..
025750: 20 20 72 65 74 75 72 3B 0D 0A 20 20 20 20 45 4E retur;.. EN
025760: 44 3B 20 28 2A 20 68 76 69 6C 6B 65 66 69 6C 65 D; (* hvilkefile
025770: 72 20 2A 29 0D 0A 20 20 0D 0A 20 20 50 52 4F 43 r *).. .. PROC
025780: 45 44 55 52 45 20 75 64 73 6B 72 69 76 3B 0D 0A EDURE udskriv;..
025790: 20 20 20 20 0D 0A 20 20 20 20 56 41 52 0D 0A 20 .. VAR..
0257A0: 20 20 20 20 20 75 64 66 69 6C 20 3A 20 54 45 58 udfil : TEX
0257B0: 54 3B 0D 0A 20 20 20 20 20 20 75 64 6E 61 76 6E T;.. udnavn
0257C0: 20 3A 20 53 54 52 49 4E 47 28 2E 34 2E 29 3B 0D : STRING(.4.);.
0257D0: 0A 20 20 20 20 20 20 76 61 72 65 20 3A 20 76 61 . vare : va
0257E0: 72 65 70 6F 73 74 3B 0D 0A 20 20 20 20 20 20 63 repost;.. c
0257F0: 68 20 3A 20 43 48 41 52 3B 0D 0A 20 20 20 20 20 h : CHAR;..
025800: 20 69 20 3A 20 49 4E 54 45 47 45 52 3B 0D 0A 20 i : INTEGER;..
025810: 20 20 20 20 20 20 20 0D 0A 20 20 20 20 42 45 47 .. BEG
025820: 49 4E 20 28 2A 20 75 64 73 6B 72 69 76 20 2A 29 IN (* udskriv *)
025830: 0D 0A 20 20 20 20 20 20 57 52 49 54 45 28 43 4C .. WRITE(CL
025840: 52 48 4F 4D 29 3B 0D 0A 20 20 20 20 20 20 47 4F RHOM);.. GO
025850: 54 4F 58 59 28 35 2C 20 32 29 3B 20 57 52 49 54 TOXY(5, 2); WRIT
025860: 45 28 27 5C 6E 73 6B 65 73 20 75 64 73 6B 72 69 E('\nskes udskri
025870: 66 74 20 70 7D 20 73 6B 7B 72 6D 20 65 6C 6C 65 ft p} sk{rm elle
025880: 72 20 70 72 69 6E 74 65 72 20 28 53 2F 50 29 3A r printer (S/P):
025890: 20 27 29 3B 0D 0A 20 20 20 20 20 20 52 45 50 45 ');.. REPE
0258A0: 41 54 0D 0A 20 20 20 20 20 20 20 20 52 45 41 44 AT.. READ
0258B0: 28 4B 42 44 2C 20 63 68 29 3B 0D 0A 20 20 20 20 (KBD, ch);..
0258C0: 20 20 55 4E 54 49 4C 20 63 68 20 49 4E 20 28 2E UNTIL ch IN (.
0258D0: 27 53 27 2C 20 27 73 27 2C 20 27 50 27 2C 20 27 'S', 's', 'P', '
0258E0: 70 27 2E 29 3B 0D 0A 20 20 20 20 20 20 57 52 49 p'.);.. WRI
0258F0: 54 45 4C 4E 28 63 68 29 3B 0D 0A 20 20 20 20 20 TELN(ch);..
025900: 45 4E 44 3B 0D 0A 20 20 20 20 20 20 73 6F 72 74 END;.. sort
025910: 65 72 3B 0D 0A 20 20 20 20 20 20 47 4F 54 4F 58 er;.. GOTOX
025920: 59 28 35 2C 20 36 29 3B 0D 0A 20 20 20 20 20 20 Y(5, 6);..
025930: 72 65 74 75 72 3B 0D 0A 20 20 20 20 45 4E 44 3B retur;.. END;
025940: 20 28 2A 20 73 6C 65 74 20 2A 29 0D 0A 20 20 0D (* slet *).. .
025950: 0A 20 20 50 52 4F 43 45 44 55 52 45 20 72 65 74 . PROCEDURE ret
025960: 3B 0D 0A 20 20 0D 0A 20 20 20 20 56 41 52 0D 0A ;.. .. VAR..
025970: 20 20 20 20 20 20 6E 75 6D 6D 65 72 20 3A 20 49 nummer : I
025980: 4E 54 45 47 45 52 3B 0D 0A 20 20 20 20 20 20 76 NTEGER;.. v
025990: 61 72 65 20 3A 20 76 61 72 65 70 6F 73 74 3B 0D are : varepost;.
0259A0: 0A 20 20 20 20 20 20 63 68 20 3A 20 43 48 41 52 . ch : CHAR
0259B0: 3B 0D 0A 20 20 20 20 20 20 69 20 3A 20 49 4E 54 ;.. i : INT
0259C0: 45 47 45 52 3B 0D 0A 20 20 20 20 20 20 0D 0A 20 EGER;.. ..
0259D0: 20 20 20 42 45 47 49 4E 20 28 2A 20 72 65 74 20 BEGIN (* ret
0259E0: 2A 29 0D 0A 20 20 20 20 20 20 57 52 49 54 45 28 *).. WRITE(
0259F0: 43 4C 52 48 4F 4D 29 3B 0D 0A 20 20 20 20 20 20 CLRHOM);..
025A00: 47 4F 54 4F 58 59 28 35 2C 20 32 29 3B 20 57 52 GOTOXY(5, 2); WR
025A10: 49 54 45 28 27 54 61 73 74 20 76 61 72 65 6E 75 ITE('Tast varenu
025A20: 6D 6D 65 72 3A 20 27 29 3B 0D 0A 20 20 20 20 20 mmer: ');..
025A30: 20 52 45 41 44 28 6E 75 6D 6D 65 72 29 3B 0D 0A READ(nummer);..
025A40: 20 20 20 20 20 20 69 20 3A 3D 20 30 3B 0D 0A 20 i := 0;..
025A50: 20 20 20 20 20 52 45 50 45 41 54 0D 0A 20 20 20 REPEAT..
025A60: 20 20 20 20 20 69 20 3A 3D 20 69 20 2B 20 31 3B i := i + 1;
025A70: 0D 0A 20 20 20 20 20 20 55 4E 54 49 4C 20 28 69 .. UNTIL (i
025A80: 6E 64 65 78 28 2E 69 2E 29 2E 76 61 72 65 6E 75 ndex(.i.).varenu
025A90: 6D 6D 65 72 20 3E 3D 20 6E 75 6D 6D 65 72 29 20 mmer >= nummer)
025AA0: 4F 52 20 28 69 20 3D 20 70 6F 73 74 61 6E 74 61 OR (i = postanta
025AB0: 6C 29 3B 0D 0A 20 20 20 20 20 20 49 46 20 69 6E l);.. IF in
025AC0: 64 65 78 28 2E 69 2E 29 2E 76 61 72 65 6E 75 6D dex(.i.).varenum
025AD0: 6D 65 72 20 3C 3E 20 6E 75 6D 6D 65 72 0D 0A 20 mer <> nummer..
025AE0: 20 20 20 20 20 20 20 54 48 45 4E 0D 0A 20 20 20 THEN..
025AF0: 20 20 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 BEGIN..
025B00: 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 20 WRITELN;..
025B10: 20 49 46 20 63 68 20 49 4E 20 28 2E 27 53 27 2C IF ch IN (.'S',
025B20: 20 27 73 27 2E 29 0D 0A 20 20 20 20 20 20 20 20 's'.)..
025B30: 54 48 45 4E 20 75 64 6E 61 76 6E 20 3A 3D 20 27 THEN udnavn := '
025B40: 43 4F 4E 3A 27 0D 0A 20 20 20 20 20 20 20 20 45 CON:'.. E
025B50: 4C 53 45 20 75 64 6E 61 76 6E 20 3A 3D 20 27 4C LSE udnavn := 'L
025B60: 53 54 3A 27 3B 0D 0A 20 20 20 20 20 20 41 53 53 ST:';.. ASS
025B70: 49 47 4E 28 75 64 66 69 6C 2C 20 75 64 6E 61 76 IGN(udfil, udnav
025B80: 6E 29 3B 0D 0A 20 20 20 20 20 20 52 45 57 52 49 n);.. REWRI
025B90: 54 45 28 75 64 66 69 6C 29 3B 0D 0A 20 20 20 20 TE(udfil);..
025BA0: 20 20 69 20 3A 3D 20 30 3B 0D 0A 20 20 20 20 20 i := 0;..
025BB0: 20 57 48 49 4C 45 20 69 20 3C 20 70 6F 73 74 61 WHILE i < posta
025BC0: 6E 74 61 6C 20 44 4F 0D 0A 20 20 20 20 20 20 20 ntal DO..
025BD0: 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 BEGIN..
025BE0: 20 20 69 20 3A 3D 20 69 20 2B 20 31 3B 0D 0A 20 i := i + 1;..
025BF0: 20 20 20 20 20 20 20 20 20 49 46 20 69 6E 64 65 IF inde
025C00: 78 28 2E 69 2E 29 2E 76 61 72 65 6E 75 6D 6D 65 x(.i.).varenumme
025C10: 72 20 3E 20 30 0D 0A 20 20 20 20 20 20 20 20 20 r > 0..
025C20: 20 20 20 54 48 45 4E 0D 0A 20 20 20 20 20 20 20 THEN..
025C30: 20 20 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 BEGIN..
025C40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 45 SE
025C50: 45 4B 28 61 72 74 69 6B 65 6C 66 69 6C 2C 20 69 EK(artikelfil, i
025C60: 6E 64 65 78 28 2E 69 2E 29 2E 70 6F 73 74 6E 75 ndex(.i.).postnu
025C70: 6D 6D 65 72 29 3B 0D 0A 20 20 20 20 20 20 20 20 mmer);..
025C80: 20 20 20 20 20 20 20 20 52 45 41 44 28 61 72 74 READ(art
025C90: 69 6B 65 6C 66 69 6C 2C 20 76 61 72 65 29 3B 0D ikelfil, vare);.
025CA0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
025CB0: 20 57 49 54 48 20 76 61 72 65 20 44 4F 0D 0A 20 WITH vare DO..
025CC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
025CD0: 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 BEGIN..
025CE0: 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 WRIT
025CF0: 45 4C 4E 28 75 64 66 69 6C 2C 20 27 20 20 20 20 ELN(udfil, '
025D00: 20 20 20 20 20 20 20 20 20 20 47 4F 54 4F 58 59 GOTOXY
025D10: 28 35 2C 20 34 29 3B 20 57 52 49 54 45 28 27 44 (5, 4); WRITE('D
025D20: 65 74 74 65 20 76 61 72 65 6E 75 6D 6D 65 72 20 ette varenummer
025D30: 66 69 6E 64 65 73 20 69 6B 6B 65 27 29 3B 0D 0A findes ikke');..
025D40: 20 20 20 20 20 20 20 20 20 20 45 4E 44 0D 0A 20 END..
025D50: 20 20 20 20 20 20 20 45 4C 53 45 0D 0A 20 20 20 ELSE..
025D60: 20 20 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 BEGIN..
025D70: 20 20 20 20 20 20 20 20 20 20 53 45 45 4B 28 61 SEEK(a
025D80: 72 74 69 6B 65 6C 66 69 6C 2C 20 69 6E 64 65 78 rtikelfil, index
025D90: 28 2E 69 2E 29 2E 70 6F 73 74 6E 75 6D 6D 65 72 (.i.).postnummer
025DA0: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 );..
025DB0: 52 45 41 44 28 61 72 74 69 6B 65 6C 66 69 6C 2C READ(artikelfil,
025DC0: 20 76 61 72 65 29 3B 0D 0A 20 20 20 20 20 20 20 vare);..
025DD0: 20 20 20 20 20 53 45 45 4B 28 61 72 74 69 6B 65 SEEK(artike
025DE0: 6C 66 69 6C 2C 20 69 6E 64 65 78 28 2E 69 2E 29 lfil, index(.i.)
025DF0: 2E 70 6F 73 74 6E 75 6D 6D 65 72 29 3B 0D 0A 20 .postnummer);..
025E00: 20 20 20 20 20 20 20 20 20 20 20 57 49 54 48 20 WITH
025E10: 76 61 72 65 20 44 4F 0D 0A 20 20 20 20 20 20 20 vare DO..
025E20: 20 20 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 BEGIN..
025E30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 4F GO
025E40: 54 4F 58 59 28 35 2C 20 34 29 3B 20 57 52 49 54 TOXY(5, 4); WRIT
025E50: 45 28 27 4E 20 56 61 72 65 6E 61 76 6E 3A 20 27 E('N Varenavn: '
025E60: 2C 20 6E 61 76 6E 29 3B 0D 0A 20 20 20 20 20 20 , navn);..
025E70: 20 20 20 20 20 20 20 20 20 20 47 4F 54 4F 58 59 GOTOXY
025E80: 28 35 2C 20 36 29 3B 20 57 52 49 54 45 28 27 50 (5, 6); WRITE('P
025E90: 20 45 6E 68 65 64 73 70 72 69 73 3A 20 27 2C 20 Enhedspris: ',
025EA0: 70 72 69 73 20 3A 20 37 20 3A 20 32 29 3B 0D 0A pris : 7 : 2);..
025EB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
025EC0: 47 4F 54 4F 58 59 28 35 2C 20 38 29 3B 20 57 52 GOTOXY(5, 8); WR
025ED0: 49 54 45 28 27 42 20 56 61 72 65 62 65 68 6F 6C ITE('B Varebehol
025EE0: 64 6E 69 6E 67 3A 20 27 2C 20 62 65 68 6F 6C 64 dning: ', behold
025EF0: 6E 69 6E 67 29 3B 0D 0A 20 20 20 20 20 20 20 20 ning);..
025F00: 20 20 56 61 72 65 6E 75 6D 6D 65 72 3A 20 27 2C Varenummer: ',
025F10: 20 6E 72 20 3A 20 37 2C 0D 0A 20 20 20 20 20 20 nr : 7,..
025F20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
025F30: 20 20 20 20 20 20 27 20 20 20 56 61 72 65 3A 20 ' Vare:
025F40: 27 2C 20 6E 61 76 6E 29 3B 0D 0A 20 20 20 20 20 ', navn);..
025F50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 W
025F60: 52 49 54 45 4C 4E 28 75 64 66 69 6C 2C 20 27 20 RITELN(udfil, '
025F70: 20 20 20 20 20 45 6E 68 65 64 73 70 72 69 73 3A Enhedspris:
025F80: 20 27 2C 20 70 72 69 73 20 3A 20 37 20 3A 20 32 ', pris : 7 : 2
025F90: 2C 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ,..
025FA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 '
025FB0: 20 20 20 42 65 68 6F 6C 64 6E 69 6E 67 3A 20 27 Beholdning: '
025FC0: 2C 20 62 65 68 6F 6C 64 6E 69 6E 67 20 3A 20 36 , beholdning : 6
025FD0: 2C 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ,..
025FE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 '
025FF0: 20 20 20 4D 69 6E 69 6D 75 6D 73 62 65 68 6F 6C Minimumsbehol
026000: 64 6E 69 6E 67 3A 20 27 2C 20 6D 69 6E 69 6D 75 dning: ', minimu
026010: 6D 20 3A 20 36 29 3B 0D 0A 20 20 20 20 20 20 20 m : 6);..
026020: 20 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 WRI
026030: 54 45 4C 4E 28 75 64 66 69 6C 29 3B 0D 0A 20 20 TELN(udfil);..
026040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
026050: 45 4E 44 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 END;..
026060: 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 END;..
026070: 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 57 52 END;.. WR
026080: 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 20 20 72 65 ITELN;.. re
026090: 74 75 72 3B 0D 0A 20 20 20 20 45 4E 44 3B 20 28 tur;.. END; (
0260A0: 2A 75 64 73 6B 72 69 76 20 2A 29 0D 0A 20 20 0D *udskriv *).. .
0260B0: 0A 20 20 50 52 4F 43 45 44 55 52 45 20 73 6C 65 . PROCEDURE sle
0260C0: 74 3B 0D 0A 20 20 20 20 0D 0A 20 20 20 20 56 41 t;.. .. VA
0260D0: 52 0D 0A 20 20 20 20 20 20 76 61 72 65 20 3A 20 R.. vare :
0260E0: 76 61 72 65 70 6F 73 74 3B 0D 0A 20 20 20 20 20 varepost;..
0260F0: 20 6E 75 6D 6D 65 72 20 3A 20 49 4E 54 45 47 45 nummer : INTEGE
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: 20 20 20 20 20 20 20 20 47 4F 54 4F 58 59 28 35 GOTOXY(5
026210: 2C 20 31 30 29 3B 20 57 52 49 54 45 28 27 4D 20 , 10); WRITE('M
026220: 4D 69 6E 69 6D 75 6D 73 62 65 68 6F 6C 64 6E 69 Minimumsbeholdni
026230: 6E 67 3A 20 27 2C 20 6D 69 6E 69 6D 75 6D 29 3B ng: ', minimum);
026240: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
026250: 20 20 47 4F 54 4F 58 59 28 35 2C 20 31 32 29 3B GOTOXY(5, 12);
026260: 20 57 52 49 54 45 28 27 46 20 46 5B 52 44 49 47 WRITE('F F[RDIG
026270: 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 ');..
026280: 20 20 20 20 20 52 45 50 45 41 54 0D 0A 20 20 20 REPEAT..
026290: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 G
0262A0: 4F 54 4F 58 59 28 30 2C 20 31 34 29 3B 20 57 52 OTOXY(0, 14); WR
0262B0: 49 54 45 28 43 4C 52 45 4F 53 29 3B 0D 0A 20 20 ITE(CLREOS);..
0262C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0262D0: 47 4F 54 4F 58 59 28 35 2C 20 31 34 29 3B 20 57 GOTOXY(5, 14); W
0262E0: 52 49 54 45 28 27 54 61 73 74 20 6B 6F 6D 6D 61 RITE('Tast komma
0262F0: 6E 64 6F 20 28 4E 2F 50 2F 42 2F 4D 2F 46 29 3A ndo (N/P/B/M/F):
026300: 20 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 ');..
026310: 20 20 20 20 20 20 20 20 52 45 50 45 41 54 0D 0A REPEAT..
026320: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
026330: 20 20 20 20 52 45 41 44 28 4B 42 44 2C 20 63 68 READ(KBD, ch
026340: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 );..
026350: 20 20 20 20 20 20 55 4E 54 49 4C 20 63 68 20 49 UNTIL ch I
026360: 4E 20 28 2E 27 4E 27 2C 20 27 6E 27 2C 20 27 50 N (.'N', 'n', 'P
026370: 27 2C 20 27 70 27 2C 20 27 42 27 2C 20 27 62 27 ', 'p', 'B', 'b'
026380: 2C 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ,..
026390: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0263A0: 20 20 20 27 4D 27 2C 20 27 6D 27 2C 20 27 46 27 'M', 'm', 'F'
0263B0: 2C 20 27 66 27 2E 29 3B 0D 0A 20 20 20 20 20 20 , 'f'.);..
0263C0: 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 WRIT
0263D0: 45 28 63 68 29 3B 0D 0A 20 20 20 20 20 20 20 20 E(ch);..
0263E0: 20 20 20 20 20 20 20 20 20 20 49 46 20 4E 4F 54 IF NOT
0263F0: 20 28 63 68 20 49 4E 20 28 2E 27 46 27 2C 20 27 (ch IN (.'F', '
026400: 6E 75 6D 6D 65 72 2E 29 2E 76 61 72 65 6E 75 6D nummer.).varenum
026410: 6D 65 72 20 3A 3D 20 6E 75 6D 6D 65 72 3B 0D 0A mer := nummer;..
026420: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
026430: 69 6E 64 65 78 28 2E 69 6E 64 65 78 6E 75 6D 6D index(.indexnumm
026440: 65 72 2E 29 2E 70 6F 73 74 6E 75 6D 6D 65 72 20 er.).postnummer
026450: 3A 3D 20 70 6F 73 74 61 6E 74 61 6C 20 2D 20 31 := postantal - 1
026460: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ;..
026470: 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 20 20 20 END;..
026480: 20 20 20 57 49 54 48 20 6E 79 76 61 72 65 20 44 WITH nyvare D
026490: 4F 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 O..
0264A0: 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 BEGIN..
0264B0: 20 20 20 20 20 20 20 20 6E 72 20 3A 3D 20 6E 75 nr := nu
0264C0: 6D 6D 65 72 3B 0D 0A 20 20 20 20 20 20 20 20 20 mmer;..
0264D0: 20 20 20 20 20 20 20 47 4F 54 4F 58 59 28 35 2C GOTOXY(5,
0264E0: 20 34 29 3B 20 57 52 49 54 45 28 27 56 61 72 65 4); WRITE('Vare
0264F0: 6E 61 76 6E 3A 20 27 29 3B 0D 0A 20 20 20 20 20 navn: ');..
026500: 20 20 20 20 20 20 20 20 20 20 20 52 45 41 44 28 READ(
026510: 6E 61 76 6E 29 3B 0D 0A 20 20 20 20 20 20 20 20 navn);..
026520: 20 20 20 20 20 20 20 20 47 4F 54 4F 58 59 28 35 GOTOXY(5
026530: 2C 20 36 29 3B 20 57 52 49 54 45 28 27 45 6E 68 , 6); WRITE('Enh
026540: 65 64 73 70 72 69 73 3A 20 27 29 3B 0D 0A 20 20 edspris: ');..
026550: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 RE
026560: 41 44 28 70 72 69 73 29 3B 0D 0A 20 20 20 20 20 AD(pris);..
026570: 20 20 20 20 20 20 20 20 20 20 20 47 4F 54 4F 58 GOTOX
026580: 59 28 35 2C 20 38 29 3B 20 57 52 49 54 45 28 27 Y(5, 8); WRITE('
026590: 56 61 72 65 62 65 68 6F 6C 64 6E 69 6E 67 3A 20 Varebeholdning:
0265A0: 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 ');..
0265B0: 20 20 20 20 20 52 45 41 44 28 62 65 68 6F 6C 64 READ(behold
0265C0: 6E 69 6E 67 29 3B 0D 0A 20 20 20 20 20 20 20 20 ning);..
0265D0: 20 20 20 20 20 20 20 20 47 4F 54 4F 58 59 28 35 GOTOXY(5
0265E0: 2C 20 31 30 29 3B 20 57 52 49 54 45 28 27 4D 69 , 10); WRITE('Mi
0265F0: 6E 69 6D 75 6D 73 62 65 68 6F 6C 64 6E 69 6E 67 nimumsbeholdning
026600: 66 27 2E 29 29 0D 0A 20 20 20 20 20 20 20 20 20 f'.))..
026610: 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4E 0D THEN.
026620: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
026630: 20 20 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 BEGIN..
026640: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
026650: 20 20 20 20 20 20 47 4F 54 4F 58 59 28 35 2C 20 GOTOXY(5,
026660: 31 36 29 3B 20 57 52 49 54 45 28 27 54 61 73 74 16); WRITE('Tast
026670: 20 6E 79 20 76 7B 72 64 69 3A 20 27 29 3B 0D 0A ny v{rdi: ');..
026680: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
026690: 20 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 END;..
0266A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 41 CA
0266B0: 53 45 20 63 68 20 4F 46 0D 0A 20 20 20 20 20 20 SE ch OF..
0266C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 4E 'N
0266D0: 27 2C 20 27 6E 27 20 3A 20 52 45 41 44 28 6E 61 ', 'n' : READ(na
0266E0: 76 6E 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 vn);..
0266F0: 20 20 20 20 20 20 20 20 20 20 27 50 27 2C 20 27 'P', '
026700: 70 27 20 3A 20 52 45 41 44 28 70 72 69 73 29 3B p' : READ(pris);
026710: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
026720: 20 20 20 20 20 20 27 42 27 2C 20 27 62 27 20 3A 'B', 'b' :
026730: 20 52 45 41 44 28 62 65 68 6F 6C 64 6E 69 6E 67 READ(beholdning
026740: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 );..
026750: 20 20 20 20 20 20 20 20 27 4D 27 2C 20 27 6D 27 'M', 'm'
026760: 20 3A 20 52 45 41 44 28 6D 69 6E 69 6D 75 6D 29 : READ(minimum)
026770: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ;..
026780: 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 END;..
026790: 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 IF
0267A0: 4E 4F 54 20 28 63 68 20 49 4E 20 28 2E 27 46 27 NOT (ch IN (.'F'
0267B0: 2C 20 27 66 27 2E 29 29 0D 0A 20 20 20 20 20 20 , 'f'.))..
0267C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 48 TH
0267D0: 45 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 EN..
0267E0: 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4E 0D BEGIN.
0267F0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
026800: 3A 20 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 : ');..
026810: 20 20 20 20 20 20 20 52 45 41 44 28 6D 69 6E 69 READ(mini
026820: 6D 75 6D 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 mum);..
026830: 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 END;..
026840: 20 20 20 20 20 20 20 53 45 45 4B 28 61 72 74 69 SEEK(arti
026850: 6B 65 6C 66 69 6C 2C 20 69 6E 64 65 78 28 2E 69 kelfil, index(.i
026860: 6E 64 65 78 6E 75 6D 6D 65 72 2E 29 2E 70 6F 73 ndexnummer.).pos
026870: 74 6E 75 6D 6D 65 72 29 3B 0D 0A 20 20 20 20 20 tnummer);..
026880: 20 20 20 20 20 20 20 57 52 49 54 45 28 61 72 74 WRITE(art
026890: 69 6B 65 6C 66 69 6C 2C 20 6E 79 76 61 72 65 29 ikelfil, nyvare)
0268A0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 73 ;.. s
0268B0: 6F 72 74 65 72 3B 0D 0A 20 20 20 20 20 20 20 20 orter;..
0268C0: 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 47 4F END;.. GO
0268D0: 54 4F 58 59 28 35 2C 20 31 32 29 3B 0D 0A 20 20 TOXY(5, 12);..
0268E0: 20 20 20 20 72 65 74 75 72 3B 0D 0A 20 20 20 20 retur;..
0268F0: 45 4E 44 3B 20 28 2A 20 69 6E 64 73 61 65 74 20 END; (* indsaet
026900: 2A 29 0D 0A 20 20 0D 0A 20 20 42 45 47 49 4E 20 *).. .. BEGIN
026910: 28 2A 20 76 61 72 65 66 69 6C 20 2A 29 0D 0A 20 (* varefil *)..
026920: 20 20 20 57 52 49 54 45 28 43 4C 52 48 4F 4D 29 WRITE(CLRHOM)
026930: 3B 0D 0A 20 20 20 20 47 4F 54 4F 58 59 28 35 2C ;.. GOTOXY(5,
026940: 20 32 29 3B 20 57 52 49 54 45 28 27 56 20 41 20 2); WRITE('V A
026950: 52 20 45 20 52 20 45 20 47 20 49 20 53 20 54 20 R E R E G I S T
026960: 45 20 52 27 29 3B 0D 0A 20 20 20 20 47 4F 54 4F E R');.. GOTO
026970: 58 59 28 35 2C 20 34 29 3B 20 57 52 49 54 45 28 XY(5, 4); WRITE(
026980: 27 53 6B 61 6C 20 64 65 72 20 6F 70 72 65 74 74 'Skal der oprett
026990: 65 73 20 65 74 20 6E 79 74 20 76 61 72 65 72 65 es et nyt varere
0269A0: 67 69 73 74 65 72 20 28 4A 2F 4E 29 3A 20 27 29 gister (J/N): ')
0269B0: 3B 0D 0A 20 20 20 20 52 45 50 45 41 54 0D 0A 20 ;.. REPEAT..
0269C0: 20 20 20 20 20 52 45 41 44 28 4B 42 44 2C 20 63 READ(KBD, c
0269D0: 68 29 3B 0D 0A 20 20 20 20 55 4E 54 49 4C 20 63 h);.. UNTIL c
0269E0: 68 20 49 4E 20 28 2E 27 4A 27 2C 20 27 6A 27 2C h IN (.'J', 'j',
0269F0: 20 27 4E 27 2C 20 27 6E 27 2E 29 3B 0D 0A 20 20 'N', 'n'.);..
026A00: 20 20 20 20 20 20 20 20 20 47 4F 54 4F 58 59 28 GOTOXY(
026A10: 35 2C 20 31 38 29 3B 0D 0A 20 20 20 20 20 20 20 5, 18);..
026A20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
026A30: 20 72 65 74 75 72 3B 0D 0A 20 20 20 20 20 20 20 retur;..
026A40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 E
026A50: 4E 44 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 ND;..
026A60: 20 20 20 20 20 55 4E 54 49 4C 20 63 68 20 49 4E UNTIL ch IN
026A70: 20 28 2E 27 46 27 2C 20 27 66 27 2E 29 3B 0D 0A (.'F', 'f'.);..
026A80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
026A90: 57 52 49 54 45 28 61 72 74 69 6B 65 6C 66 69 6C WRITE(artikelfil
026AA0: 2C 20 76 61 72 65 29 3B 0D 0A 20 20 20 20 20 20 , vare);..
026AB0: 20 20 20 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20 END;..
026AC0: 20 20 20 20 20 20 20 20 45 4E 44 3B 0D 0A 20 20 END;..
026AD0: 20 20 45 4E 44 3B 20 28 2A 20 72 65 74 20 2A 29 END; (* ret *)
026AE0: 0D 0A 20 20 0D 0A 20 20 50 52 4F 43 45 44 55 52 .. .. PROCEDUR
026AF0: 45 20 69 6E 64 73 61 65 74 3B 0D 0A 20 20 0D 0A E indsaet;.. ..
026B00: 20 20 20 20 56 41 52 0D 0A 20 20 20 20 20 20 6E VAR.. n
026B10: 79 76 61 72 65 20 3A 20 76 61 72 65 70 6F 73 74 yvare : varepost
026B20: 3B 0D 0A 20 20 20 20 20 20 69 6E 64 65 78 6E 75 ;.. indexnu
026B30: 6D 6D 65 72 2C 20 6E 75 6D 6D 65 72 2C 20 69 20 mmer, nummer, i
026B40: 3A 20 49 4E 54 45 47 45 52 3B 0D 0A 20 20 20 20 : INTEGER;..
026B50: 0D 0A 20 20 20 20 42 45 47 49 4E 20 28 2A 20 69 .. BEGIN (* i
026B60: 6E 64 73 61 65 74 20 2A 29 0D 0A 20 20 20 20 20 ndsaet *)..
026B70: 20 57 52 49 54 45 28 43 4C 52 48 4F 4D 29 3B 0D WRITE(CLRHOM);.
026B80: 0A 20 20 20 20 20 20 47 4F 54 4F 58 59 28 35 2C . GOTOXY(5,
026B90: 20 30 29 3B 20 57 52 49 54 45 28 27 4E 59 20 56 0); WRITE('NY V
026BA0: 41 52 45 20 49 20 4C 41 47 45 52 52 45 47 49 53 ARE I LAGERREGIS
026BB0: 54 45 52 45 54 27 29 3B 0D 0A 20 20 20 20 20 20 TERET');..
026BC0: 47 4F 54 4F 58 59 28 35 2C 20 32 29 3B 20 57 52 GOTOXY(5, 2); WR
026BD0: 49 54 45 28 27 54 61 73 74 20 76 61 72 65 6E 75 ITE('Tast varenu
026BE0: 6D 6D 65 72 3A 20 27 29 3B 0D 0A 20 20 20 20 20 mmer: ');..
026BF0: 20 52 45 41 44 4C 4E 28 6E 75 6D 6D 65 72 29 3B READLN(nummer);
026C00: 20 20 49 46 20 63 68 20 49 4E 20 28 2E 27 4A 27 IF ch IN (.'J'
026C10: 2C 20 27 6A 27 2E 29 0D 0A 20 20 20 20 20 20 54 , 'j'.).. T
026C20: 48 45 4E 20 6F 70 72 65 74 0D 0A 20 20 20 20 20 HEN opret..
026C30: 20 45 4C 53 45 20 68 76 69 6C 6B 65 66 69 6C 65 ELSE hvilkefile
026C40: 72 3B 0D 0A 20 20 20 20 52 45 50 45 41 54 0D 0A r;.. REPEAT..
026C50: 20 20 20 20 20 20 57 52 49 54 45 28 43 4C 52 48 WRITE(CLRH
026C60: 4F 4D 29 3B 0D 0A 20 20 20 20 20 20 47 4F 54 4F OM);.. GOTO
026C70: 58 59 28 35 2C 20 32 29 3B 20 57 52 49 54 45 28 XY(5, 2); WRITE(
026C80: 27 56 20 41 20 52 20 45 20 52 20 45 20 47 20 49 'V A R E R E G I
026C90: 20 53 20 54 20 45 20 52 27 29 3B 0D 0A 20 20 20 S T E R');..
026CA0: 20 20 20 47 4F 54 4F 58 59 28 35 2C 20 36 29 3B GOTOXY(5, 6);
026CB0: 20 57 52 49 54 45 28 27 55 20 55 64 73 6B 72 69 WRITE('U Udskri
026CC0: 76 65 20 68 65 6C 65 20 76 61 72 65 72 65 67 69 ve hele vareregi
026CD0: 73 74 65 72 65 74 27 29 3B 0D 0A 20 20 20 20 20 steret');..
026CE0: 20 47 4F 54 4F 58 59 28 35 2C 20 38 29 3B 20 57 GOTOXY(5, 8); W
026CF0: 52 49 54 45 28 27 4C 20 4C 7B 73 65 20 65 6C 6C RITE('L L{se ell
026D00: 65 72 20 72 65 74 74 65 20 65 6E 20 76 61 72 65 er rette en vare
026D10: 70 6F 73 74 27 29 3B 0D 0A 20 20 20 20 20 20 47 post');.. G
026D20: 4F 54 4F 58 59 28 35 2C 20 31 30 29 3B 20 57 52 OTOXY(5, 10); WR
026D30: 49 54 45 28 27 53 20 53 6C 65 74 74 65 20 65 6E ITE('S Slette en
026D40: 20 76 61 72 65 70 6F 73 74 27 29 3B 0D 0A 20 20 varepost');..
026D50: 20 20 20 20 47 4F 54 4F 58 59 28 35 2C 20 31 32 GOTOXY(5, 12
026D60: 29 3B 20 57 52 49 54 45 28 27 49 20 49 6E 64 73 ); WRITE('I Inds
026D70: 7B 74 74 65 20 65 6E 20 6E 79 20 76 61 72 65 70 {tte en ny varep
026D80: 6F 73 74 27 29 3B 0D 0A 20 20 20 20 20 20 47 4F ost');.. GO
026D90: 54 4F 58 59 28 35 2C 20 31 34 29 3B 20 57 52 49 TOXY(5, 14); WRI
026DA0: 54 45 28 27 41 20 41 66 73 6C 75 74 74 65 20 70 TE('A Afslutte p
026DB0: 72 6F 67 72 61 6D 6B 7C 72 73 6C 65 6E 27 29 3B rogramk|rslen');
026DC0: 0D 0A 20 20 20 20 20 20 47 4F 54 4F 58 59 28 35 .. GOTOXY(5
026DD0: 2C 20 31 38 29 3B 20 57 52 49 54 45 28 27 54 61 , 18); WRITE('Ta
026DE0: 73 74 20 6B 6F 6D 6D 61 6E 64 6F 20 28 55 2F 4C st kommando (U/L
026DF0: 2F 53 2F 49 2F 41 29 3A 20 27 29 3B 0D 0A 20 20 /S/I/A): ');..
026E00: 0D 0A 20 20 20 20 20 20 28 2A 20 46 69 6E 64 65 .. (* Finde
026E10: 73 20 76 61 72 65 6E 20 69 20 66 6F 72 76 65 6A s varen i forvej
026E20: 65 6E 3F 20 2A 29 0D 0A 20 20 20 20 20 20 69 20 en? *).. i
026E30: 3A 3D 20 31 3B 0D 0A 20 20 20 20 20 20 57 48 49 := 1;.. WHI
026E40: 4C 45 20 28 69 6E 64 65 78 28 2E 69 2E 29 2E 76 LE (index(.i.).v
026E50: 61 72 65 6E 75 6D 6D 65 72 20 3C 20 6E 75 6D 6D arenummer < numm
026E60: 65 72 29 20 41 4E 44 20 28 69 20 3C 20 70 6F 73 er) AND (i < pos
026E70: 74 61 6E 74 61 6C 29 20 44 4F 0D 0A 20 20 20 20 tantal) DO..
026E80: 20 20 20 20 69 20 3A 3D 20 69 20 2B 20 31 3B 0D i := i + 1;.
026E90: 0A 20 20 20 20 20 20 49 46 20 69 6E 64 65 78 28 . IF index(
026EA0: 2E 69 2E 29 2E 76 61 72 65 6E 75 6D 6D 65 72 20 .i.).varenummer
026EB0: 3D 20 6E 75 6D 6D 65 72 0D 0A 20 20 20 20 20 20 = nummer..
026EC0: 20 20 54 48 45 4E 0D 0A 20 20 20 20 20 20 20 20 THEN..
026ED0: 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 BEGIN..
026EE0: 20 20 20 20 20 47 4F 54 4F 58 59 28 35 2C 20 34 GOTOXY(5, 4
026EF0: 29 3B 20 57 52 49 54 45 28 27 44 65 74 74 65 20 ); WRITE('Dette
026F00: 76 61 72 65 6E 75 6D 6D 65 72 20 66 69 6E 64 65 varenummer finde
026F10: 73 20 61 6C 6C 65 72 65 64 65 27 29 3B 0D 0A 20 s allerede');..
026F20: 20 20 20 20 20 20 20 20 20 45 4E 44 0D 0A 20 20 END..
026F30: 20 20 20 20 20 20 45 4C 53 45 0D 0A 20 20 20 20 ELSE..
026F40: 20 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 BEGIN..
026F50: 20 20 20 20 20 20 20 20 20 49 46 20 70 6F 73 74 IF post
026F60: 61 6E 74 61 6C 20 3D 20 30 20 28 2A 20 48 65 6C antal = 0 (* Hel
026F70: 74 20 74 6F 6D 74 20 72 65 67 69 73 74 65 72 20 t tomt register
026F80: 2A 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 *)..
026F90: 20 20 54 48 45 4E 0D 0A 20 20 20 20 20 20 20 20 THEN..
026FA0: 20 20 20 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 BEGIN..
026FB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
026FC0: 20 70 6F 73 74 61 6E 74 61 6C 20 3A 3D 20 31 3B postantal := 1;
026FD0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
026FE0: 20 20 20 20 69 6E 64 65 78 6E 75 6D 6D 65 72 20 indexnummer
026FF0: 3A 3D 20 31 3B 0D 0A 20 20 20 20 20 20 20 20 20 := 1;..
027000: 20 20 20 20 52 45 50 45 41 54 0D 0A 20 20 20 20 REPEAT..
027010: 20 20 20 20 52 45 41 44 28 4B 42 44 2C 20 63 68 READ(KBD, ch
027020: 29 3B 0D 0A 20 20 20 20 20 20 55 4E 54 49 4C 20 );.. UNTIL
027030: 63 68 20 49 4E 20 28 2E 27 55 27 2C 20 27 75 27 ch IN (.'U', 'u'
027040: 2C 20 27 4C 27 2C 20 27 6C 27 2C 20 27 53 27 2C , 'L', 'l', 'S',
027050: 20 27 73 27 2C 20 27 49 27 2C 20 27 69 27 2C 20 's', 'I', 'i',
027060: 27 41 27 2C 20 27 61 27 2E 29 3B 0D 0A 20 20 20 'A', 'a'.);..
027070: 20 20 20 57 52 49 54 45 28 63 68 29 3B 0D 0A 20 WRITE(ch);..
027080: 20 20 20 20 20 43 41 53 45 20 63 68 20 4F 46 0D CASE ch OF.
027090: 0A 20 20 20 20 20 20 20 20 27 55 27 2C 20 27 75 . 'U', 'u
0270A0: 27 20 3A 20 75 64 73 6B 72 69 76 3B 0D 0A 20 20 ' : udskriv;..
0270B0: 20 20 20 20 20 20 27 4C 27 2C 20 27 6C 27 20 3A 'L', 'l' :
0270C0: 20 72 65 74 3B 0D 0A 20 20 20 20 20 20 20 20 27 ret;.. '
0270D0: 53 27 2C 20 27 73 27 20 3A 20 73 6C 65 74 3B 0D S', 's' : slet;.
0270E0: 0A 20 20 20 20 20 20 20 20 27 49 27 2C 20 27 69 . 'I', 'i
0270F0: 27 20 3A 20 69 6E 64 73 61 65 74 3B 0D 0A 20 20 ' : indsaet;..
027100: 20 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 55 4E END;.. UN
027110: 54 49 4C 20 63 68 20 49 4E 20 28 2E 27 41 27 2C TIL ch IN (.'A',
027120: 20 27 61 27 2E 29 3B 0D 0A 20 20 20 20 53 45 45 'a'.);.. SEE
027130: 4B 28 69 6E 64 65 78 66 69 6C 2C 20 30 29 3B 0D K(indexfil, 0);.
027140: 0A 20 20 20 20 46 4F 52 20 69 20 3A 3D 20 31 20 . FOR i := 1
027150: 54 4F 20 70 6F 73 74 61 6E 74 61 6C 20 44 4F 0D TO postantal DO.
027160: 0A 20 20 20 20 20 20 57 52 49 54 45 28 69 6E 64 . WRITE(ind
027170: 65 78 66 69 6C 2C 20 69 6E 64 65 78 28 2E 69 2E exfil, index(.i.
027180: 29 29 3B 0D 0A 20 20 20 20 43 4C 4F 53 45 28 61 ));.. CLOSE(a
027190: 72 74 69 6B 65 6C 66 69 6C 29 3B 0D 0A 20 20 20 rtikelfil);..
0271A0: 20 43 4C 4F 53 45 28 69 6E 64 65 78 66 69 6C 29 CLOSE(indexfil)
0271B0: 3B 0D 0A 20 20 20 20 57 52 49 54 45 4C 4E 3B 0D ;.. WRITELN;.
0271C0: 0A 20 20 45 4E 44 2E 20 28 2A 20 76 61 72 65 66 . END. (* varef
0271D0: 69 6C 20 2A 29 0D 0A 1A 1A 1A 1A 1A 1A 1A 1A 1A il *)...........
0271E0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0271F0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
027200: 20 20 20 20 20 20 20 20 20 69 6E 64 65 78 28 2E index(.
027210: 31 2E 29 2E 76 61 72 65 6E 75 6D 6D 65 72 20 3A 1.).varenummer :
027220: 3D 20 6E 75 6D 6D 65 72 3B 0D 0A 20 20 20 20 20 = nummer;..
027230: 20 20 20 20 20 20 20 20 20 20 20 20 20 69 6E 64 ind
027240: 65 78 28 2E 31 2E 29 2E 70 6F 73 74 6E 75 6D 6D ex(.1.).postnumm
027250: 65 72 20 3A 3D 20 30 3B 0D 0A 20 20 20 20 20 20 er := 0;..
027260: 20 20 20 20 20 20 20 20 20 20 45 4E 44 0D 0A 20 END..
027270: 20 20 20 20 20 20 20 20 20 20 20 45 4C 53 45 20 ELSE
027280: 49 46 20 69 6E 64 65 78 28 2E 31 2E 29 2E 76 61 IF index(.1.).va
027290: 72 65 6E 75 6D 6D 65 72 20 3C 20 30 20 28 2A 20 renummer < 0 (*
0272A0: 47 6C 20 70 6F 73 74 20 6B 61 6E 20 62 72 75 67 Gl post kan brug
0272B0: 65 73 20 2A 29 0D 0A 20 20 20 20 20 20 20 20 20 es *)..
0272C0: 20 20 20 20 20 54 48 45 4E 0D 0A 20 20 20 20 20 THEN..
0272D0: 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4E BEGIN
0272E0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
0272F0: 20 20 20 20 69 6E 64 65 78 6E 75 6D 6D 65 72 20 indexnummer
027300: 3A 3D 20 31 3B 0D 0A 20 20 20 20 20 20 20 20 20 := 1;..
027310: 20 20 20 20 20 20 20 20 20 69 6E 64 65 78 28 2E index(.
027320: 31 2E 29 2E 76 61 72 65 6E 75 6D 6D 65 72 20 3A 1.).varenummer :
027330: 3D 20 6E 75 6D 6D 65 72 3B 0D 0A 20 20 20 20 20 = nummer;..
027340: 20 20 20 20 20 20 20 20 20 20 20 45 4E 44 0D 0A END..
027350: 20 20 20 20 20 20 20 20 20 20 20 20 45 4C 53 45 ELSE
027360: 20 28 2A 20 54 69 6C 66 7C 6A 20 6E 79 20 70 6F (* Tilf|j ny po
027370: 73 74 20 2A 29 0D 0A 20 20 20 20 20 20 20 20 20 st *)..
027380: 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 BEGIN..
027390: 20 20 20 20 20 20 20 20 20 20 20 20 70 6F 73 74 post
0273A0: 61 6E 74 61 6C 20 3A 3D 20 70 6F 73 74 61 6E 74 antal := postant
0273B0: 61 6C 20 2B 20 31 3B 0D 0A 20 20 20 20 20 20 20 al + 1;..
0273C0: 20 20 20 20 20 20 20 20 20 69 6E 64 65 78 6E 75 indexnu
0273D0: 6D 6D 65 72 20 3A 3D 20 70 6F 73 74 61 6E 74 61 mmer := postanta
0273E0: 6C 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 l;..
0273F0: 20 20 20 20 69 6E 64 65 78 28 2E 69 6E 64 65 78 index(.index
027400: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
027410: 21 00 01 00 02 09 52 E5 21 00 41 02 00 00 00 02 !.....R.!.A.....
027420: 21 00 46 02 00 00 00 02 21 00 42 02 00 00 00 02 !.F.....!.B.....
027430: 21 00 47 02 00 00 00 02 21 00 43 02 00 00 00 02 !.G.....!.C.....
027440: 21 00 48 02 00 00 00 02 21 00 44 02 00 00 00 02 !.H.....!.D.....
027450: 21 00 49 02 00 00 00 02 21 00 45 02 00 00 00 02 !.I.....!.E.....
027460: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
027470: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
027480: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
027490: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0274A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0274B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0274C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0274D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0274E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0274F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
027500: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027510: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027520: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027530: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027540: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027550: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027560: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027570: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027580: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027590: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0275A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0275B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0275C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0275D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0275E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0275F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027600: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027610: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027620: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027630: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027640: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027650: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027660: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027670: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027680: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027690: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0276A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0276B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0276C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0276D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0276E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0276F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027700: 20 20 20 20 20 20 20 20 50 52 4F 47 52 41 4D 20 PROGRAM
027710: 76 61 72 65 72 31 3B 0D 0A 20 20 20 20 20 20 20 varer1;..
027720: 20 0D 0A 20 20 20 20 20 20 20 20 56 41 52 0D 0A .. VAR..
027730: 20 20 20 20 20 20 20 20 20 20 6E 75 6D 6D 65 72 nummer
027740: 20 3A 20 49 4E 54 45 47 45 52 3B 0D 0A 20 20 20 : INTEGER;..
027750: 20 20 20 20 20 0D 0A 20 20 20 20 20 20 20 20 42 .. B
027760: 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 EGIN..
027770: 57 52 49 54 45 28 43 48 52 28 31 32 29 2C 27 49 WRITE(CHR(12),'I
027780: 6E 64 74 61 73 74 20 76 61 72 65 6E 75 6D 6D 65 ndtast varenumme
027790: 72 3A 20 27 29 3B 20 52 45 41 44 4C 4E 28 6E 75 r: '); READLN(nu
0277A0: 6D 6D 65 72 29 3B 0D 0A 20 20 20 20 20 20 20 20 mmer);..
0277B0: 20 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 WRITELN;..
0277C0: 20 20 20 20 20 20 49 46 20 6E 75 6D 6D 65 72 20 IF nummer
0277D0: 3C 20 31 20 0D 0A 20 20 20 20 20 20 20 20 20 20 < 1 ..
0277E0: 20 20 54 48 45 4E 20 57 52 49 54 45 4C 4E 28 6E THEN WRITELN(n
0277F0: 75 6D 6D 65 72 3A 33 2C 27 20 65 72 20 65 74 20 ummer:3,' er et
027800: 75 6C 6F 76 6C 69 67 74 20 76 61 72 65 6E 75 6D ulovligt varenum
027810: 6D 65 72 27 29 0D 0A 20 20 20 20 20 20 20 20 20 mer')..
027820: 20 45 4C 53 45 20 49 46 20 6E 75 6D 6D 65 72 20 ELSE IF nummer
027830: 3C 3D 20 32 30 20 0D 0A 20 20 20 20 20 20 20 20 <= 20 ..
027840: 20 20 20 20 54 48 45 4E 20 57 52 49 54 45 28 27 THEN WRITE('
027850: 56 61 72 65 20 6E 75 6D 6D 65 72 3A 20 27 2C 6E Vare nummer: ',n
027860: 75 6D 6D 65 72 3A 33 2C 27 20 6C 69 67 67 65 72 ummer:3,' ligger
027870: 20 69 20 76 61 72 65 67 72 75 70 70 65 20 31 2E i varegruppe 1.
027880: 27 29 0D 0A 20 20 20 20 20 20 20 20 20 20 45 4C ').. EL
027890: 53 45 20 49 46 20 6E 75 6D 6D 65 72 20 3C 3D 20 SE IF nummer <=
0278A0: 34 30 20 0D 0A 20 20 20 20 20 20 20 20 20 20 20 40 ..
0278B0: 20 54 48 45 4E 20 57 52 49 54 45 28 27 56 61 72 THEN WRITE('Var
0278C0: 65 20 6E 75 6D 6D 65 72 3A 20 27 2C 6E 75 6D 6D e nummer: ',numm
0278D0: 65 72 3A 33 2C 27 20 6C 69 67 67 65 72 20 69 20 er:3,' ligger i
0278E0: 76 61 72 65 67 72 75 70 70 65 20 32 2E 27 29 0D varegruppe 2.').
0278F0: 0A 20 20 20 20 20 20 20 20 20 20 45 4C 53 45 20 . ELSE
027900: 50 52 4F 47 52 41 4D 20 76 61 72 65 70 6F 73 74 PROGRAM varepost
027910: 3B 0D 0A 0D 0A 20 20 43 4F 4E 53 54 0D 0A 20 20 ;.... CONST..
027920: 20 20 6D 61 78 20 3D 20 31 30 30 3B 0D 0A 20 20 max = 100;..
027930: 0D 0A 20 20 54 59 50 45 0D 0A 20 20 20 20 73 74 .. TYPE.. st
027940: 72 33 30 20 3D 20 53 54 52 49 4E 47 28 2E 33 30 r30 = STRING(.30
027950: 2E 29 3B 0D 0A 20 20 20 20 73 74 72 35 20 3D 20 .);.. str5 =
027960: 53 54 52 49 4E 47 28 2E 35 2E 29 3B 0D 0A 20 20 STRING(.5.);..
027970: 20 20 76 61 72 65 20 3D 20 52 45 43 4F 52 44 0D vare = RECORD.
027980: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 6E 75 . nu
027990: 6D 6D 65 72 20 3A 20 49 4E 54 45 47 45 52 3B 0D mmer : INTEGER;.
0279A0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 6E 61 . na
0279B0: 76 6E 20 3A 20 73 74 72 33 30 3B 0D 0A 20 20 20 vn : str30;..
0279C0: 20 20 20 20 20 20 20 20 20 20 70 72 69 73 20 3A pris :
0279D0: 20 52 45 41 4C 3B 0D 0A 20 20 20 20 20 20 20 20 REAL;..
0279E0: 20 20 20 20 20 61 6E 74 61 6C 20 3A 20 49 4E 54 antal : INT
0279F0: 45 47 45 52 3B 0D 0A 20 20 20 20 20 20 20 20 20 EGER;..
027A00: 20 20 45 4E 44 3B 0D 0A 20 20 20 20 76 61 72 65 END;.. vare
027A10: 6B 61 72 74 6F 74 65 6B 20 3D 20 41 52 52 41 59 kartotek = ARRAY
027A20: 28 2E 31 20 2E 2E 20 6D 61 78 2E 29 20 4F 46 20 (.1 .. max.) OF
027A30: 76 61 72 65 3B 0D 0A 20 20 0D 0A 20 20 56 41 52 vare;.. .. VAR
027A40: 0D 0A 20 20 20 20 61 72 74 69 6B 65 6C 20 3A 20 .. artikel :
027A50: 76 61 72 65 6B 61 72 74 6F 74 65 6B 3B 0D 0A 20 varekartotek;..
027A60: 20 20 20 61 6E 74 61 6C 2C 20 69 2C 20 74 65 73 antal, i, tes
027A70: 74 31 20 3A 20 49 4E 54 45 47 45 52 3B 0D 0A 20 t1 : INTEGER;..
027A80: 20 20 20 73 74 72 65 6E 67 20 3A 20 73 74 72 35 streng : str5
027A90: 3B 0D 0A 20 20 0D 0A 20 20 42 45 47 49 4E 0D 0A ;.. .. BEGIN..
027AA0: 20 20 20 20 57 52 49 54 45 28 43 4C 52 48 4F 4D WRITE(CLRHOM
027AB0: 29 3B 0D 0A 20 20 20 20 57 52 49 54 45 4C 4E 28 );.. WRITELN(
027AC0: 27 49 6E 64 74 61 73 74 20 6F 70 6C 79 73 6E 69 'Indtast oplysni
027AD0: 6E 67 65 72 20 74 69 6C 20 76 61 72 65 6B 61 72 nger til varekar
027AE0: 74 6F 74 65 6B 65 74 3A 27 29 3B 0D 0A 20 20 20 toteket:');..
027AF0: 20 69 20 3A 3D 20 30 3B 0D 0A 20 20 20 20 52 45 i := 0;.. RE
027B00: 49 46 20 6E 75 6D 6D 65 72 20 3C 3D 20 36 30 20 IF nummer <= 60
027B10: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 54 48 .. TH
027B20: 45 4E 20 57 52 49 54 45 28 27 56 61 72 65 20 6E EN WRITE('Vare n
027B30: 75 6D 6D 65 72 3A 20 27 2C 6E 75 6D 6D 65 72 3A ummer: ',nummer:
027B40: 33 2C 27 20 6C 69 67 67 65 72 20 69 20 76 61 72 3,' ligger i var
027B50: 65 67 72 75 70 70 65 20 33 2E 27 29 0D 0A 20 20 egruppe 3.')..
027B60: 20 20 20 20 20 20 20 20 45 4C 53 45 20 49 46 20 ELSE IF
027B70: 6E 75 6D 6D 65 72 20 3C 3D 20 38 30 20 0D 0A 20 nummer <= 80 ..
027B80: 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4E 20 THEN
027B90: 57 52 49 54 45 28 27 56 61 72 65 20 6E 75 6D 6D WRITE('Vare numm
027BA0: 65 72 3A 20 27 2C 6E 75 6D 6D 65 72 3A 33 2C 27 er: ',nummer:3,'
027BB0: 20 6C 69 67 67 65 72 20 69 20 76 61 72 65 67 72 ligger i varegr
027BC0: 75 70 70 65 20 34 2E 27 29 0D 0A 20 20 20 20 20 uppe 4.')..
027BD0: 20 20 20 20 20 45 4C 53 45 20 49 46 20 6E 75 6D ELSE IF num
027BE0: 6D 65 72 20 3C 3D 20 31 30 30 0D 0A 20 20 20 20 mer <= 100..
027BF0: 20 20 20 20 20 20 20 20 54 48 45 4E 20 57 52 49 THEN WRI
027C00: 54 45 28 27 56 61 72 65 20 6E 75 6D 6D 65 72 3A TE('Vare nummer:
027C10: 20 27 2C 6E 75 6D 6D 65 72 3A 33 2C 27 20 6C 69 ',nummer:3,' li
027C20: 67 67 65 72 20 69 20 76 61 72 65 67 72 75 70 70 gger i varegrupp
027C30: 65 20 35 2E 27 29 0D 0A 20 20 20 20 20 20 20 20 e 5.')..
027C40: 20 20 45 4C 53 45 20 20 57 52 49 54 45 28 6E 75 ELSE WRITE(nu
027C50: 6D 6D 65 72 3A 33 2C 27 20 65 72 20 65 74 20 75 mmer:3,' er et u
027C60: 6C 6F 76 6C 69 67 74 20 76 61 72 65 6E 75 6D 6D lovligt varenumm
027C70: 65 72 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 er');..
027C80: 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 20 WRITELN;..
027C90: 20 20 20 45 4E 44 2E 0D 0A 20 20 20 20 20 20 0D END... .
027CA0: 0A 1A 65 72 20 69 20 76 61 72 65 67 72 75 70 70 ..er i varegrupp
027CB0: 65 20 35 2E 27 29 0D 0A 20 20 20 20 20 20 20 20 e 5.')..
027CC0: 20 20 45 4C 53 45 20 20 57 52 49 54 45 28 6E 75 ELSE WRITE(nu
027CD0: 6D 6D 65 72 3A 33 2C 27 20 65 72 20 65 74 20 75 mmer:3,' er et u
027CE0: 6C 6F 76 6C 69 67 74 20 76 61 72 65 6E 75 6D 6D lovligt varenumm
027CF0: 65 72 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 er');..
027D00: 50 45 41 54 0D 0A 20 20 20 20 20 20 69 20 3A 3D PEAT.. i :=
027D10: 20 69 20 2B 20 31 3B 0D 0A 20 20 20 20 20 20 57 i + 1;.. W
027D20: 52 49 54 45 4C 4E 3B 0D 0A 20 20 20 20 20 20 57 RITELN;.. W
027D30: 49 54 48 20 61 72 74 69 6B 65 6C 28 2E 69 2E 29 ITH artikel(.i.)
027D40: 20 44 4F 0D 0A 20 20 20 20 20 20 20 20 42 45 47 DO.. BEG
027D50: 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 52 45 IN.. RE
027D60: 50 45 41 54 0D 0A 20 20 20 20 20 20 20 20 20 20 PEAT..
027D70: 20 20 57 52 49 54 45 28 27 54 61 73 74 20 76 61 WRITE('Tast va
027D80: 72 65 6E 75 6D 6D 65 72 20 28 5E 20 73 74 6F 70 renummer (^ stop
027D90: 70 65 72 29 3A 20 27 29 3B 0D 0A 20 20 20 20 20 per): ');..
027DA0: 20 20 20 20 20 20 20 42 55 46 4C 45 4E 20 3A 3D BUFLEN :=
027DB0: 20 35 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 5;..
027DC0: 20 52 45 41 44 4C 4E 28 73 74 72 65 6E 67 29 3B READLN(streng);
027DD0: 20 20 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 ..
027DE0: 56 41 4C 28 73 74 72 65 6E 67 2C 20 6E 75 6D 6D VAL(streng, numm
027DF0: 65 72 2C 20 74 65 73 74 31 29 3B 0D 0A 20 20 20 er, test1);..
027E00: 20 20 20 20 20 20 20 55 4E 54 49 4C 20 28 74 65 UNTIL (te
027E10: 73 74 31 20 3D 20 30 29 20 4F 52 20 28 73 74 72 st1 = 0) OR (str
027E20: 65 6E 67 20 3D 20 27 5E 27 29 3B 0D 0A 20 20 20 eng = '^');..
027E30: 20 20 20 20 20 20 20 49 46 20 73 74 72 65 6E 67 IF streng
027E40: 20 3C 3E 20 27 5E 27 20 0D 0A 20 20 20 20 20 20 <> '^' ..
027E50: 20 20 20 20 20 20 54 48 45 4E 0D 0A 20 20 20 20 THEN..
027E60: 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4E 0D BEGIN.
027E70: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
027E80: 20 57 52 49 54 45 28 27 54 61 73 74 20 76 61 72 WRITE('Tast var
027E90: 65 6E 61 76 6E 3A 20 20 20 20 20 20 20 20 20 20 enavn:
027EA0: 20 20 20 20 20 27 29 3B 0D 0A 20 20 20 20 20 20 ');..
027EB0: 20 20 20 20 20 20 20 20 20 20 52 45 41 44 4C 4E READLN
027EC0: 28 6E 61 76 6E 29 3B 0D 0A 20 20 20 20 20 20 20 (navn);..
027ED0: 20 20 20 20 20 20 20 20 20 52 45 50 45 41 54 0D REPEAT.
027EE0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
027EF0: 20 20 20 57 52 49 54 45 28 27 54 61 73 74 20 65 WRITE('Tast e
027F00: 20 20 20 20 20 20 50 52 4F 47 52 41 4D 20 76 61 PROGRAM va
027F10: 72 65 72 32 3B 0D 0A 20 20 20 20 20 20 0D 0A 20 rer2;.. ..
027F20: 20 20 20 20 20 56 41 52 0D 0A 20 20 20 20 20 20 VAR..
027F30: 20 20 6E 75 6D 6D 65 72 20 3A 20 49 4E 54 45 47 nummer : INTEG
027F40: 45 52 3B 0D 0A 20 20 20 20 20 20 20 20 0D 0A 20 ER;.. ..
027F50: 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 BEGIN..
027F60: 20 20 20 20 57 52 49 54 45 28 43 48 52 28 31 32 WRITE(CHR(12
027F70: 29 2C 20 27 49 6E 64 74 61 73 74 20 76 61 72 65 ), 'Indtast vare
027F80: 6E 75 6D 6D 65 72 3A 20 27 29 3B 20 52 45 41 44 nummer: '); READ
027F90: 4C 4E 28 6E 75 6D 6D 65 72 29 3B 0D 0A 20 20 20 LN(nummer);..
027FA0: 20 20 20 20 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 WRITELN;..
027FB0: 20 20 20 20 20 20 20 57 52 49 54 45 28 27 56 61 WRITE('Va
027FC0: 72 65 20 6E 75 6D 6D 65 72 3A 20 27 2C 20 6E 75 re nummer: ', nu
027FD0: 6D 6D 65 72 3A 33 2C 20 27 20 6C 69 67 67 65 72 mmer:3, ' ligger
027FE0: 20 69 20 76 61 72 65 67 72 75 70 70 65 20 27 29 i varegruppe ')
027FF0: 3B 0D 0A 20 20 20 20 20 20 20 20 43 41 53 45 20 ;.. CASE
028000: 6E 75 6D 6D 65 72 20 4F 46 0D 0A 20 20 20 20 20 nummer OF..
028010: 20 20 20 20 20 31 20 20 2E 2E 20 32 30 20 20 3A 1 .. 20 :
028020: 20 57 52 49 54 45 4C 4E 28 27 31 27 29 3B 0D 0A WRITELN('1');..
028030: 20 20 20 20 20 20 20 20 20 20 32 31 20 2E 2E 20 21 ..
028040: 34 30 20 20 3A 20 57 52 49 54 45 4C 4E 28 27 32 40 : WRITELN('2
028050: 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 34 ');.. 4
028060: 31 20 2E 2E 20 36 30 20 20 3A 20 57 52 49 54 45 1 .. 60 : WRITE
028070: 4C 4E 28 27 33 27 29 3B 0D 0A 20 20 20 20 20 20 LN('3');..
028080: 20 20 20 20 36 31 20 2E 2E 20 38 30 20 20 3A 20 61 .. 80 :
028090: 57 52 49 54 45 4C 4E 28 27 34 27 29 3B 0D 0A 20 WRITELN('4');..
0280A0: 20 20 20 20 20 20 20 20 20 38 31 20 2E 2E 20 31 81 .. 1
0280B0: 30 30 20 3A 20 57 52 49 54 45 4C 4E 28 27 35 27 00 : WRITELN('5'
0280C0: 29 3B 0D 0A 20 20 20 20 20 20 20 20 4F 54 48 45 );.. OTHE
0280D0: 52 57 49 53 45 0D 0A 20 20 20 20 20 20 20 20 20 RWISE..
0280E0: 20 57 52 49 54 45 4C 4E 28 27 20 2A 2A 2A 20 46 WRITELN(' *** F
0280F0: 6F 72 6B 65 72 74 20 76 61 72 65 6E 75 6D 6D 65 orkert varenumme
028100: 6E 68 65 64 73 70 72 69 73 3A 20 20 20 20 20 20 nhedspris:
028110: 20 20 20 20 20 20 20 27 29 3B 0D 0A 20 20 20 20 ');..
028120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 RE
028130: 41 44 4C 4E 28 73 74 72 65 6E 67 29 3B 0D 0A 20 ADLN(streng);..
028140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
028150: 20 56 41 4C 28 73 74 72 65 6E 67 2C 20 70 72 69 VAL(streng, pri
028160: 73 2C 20 74 65 73 74 31 29 3B 0D 0A 20 20 20 20 s, test1);..
028170: 20 20 20 20 20 20 20 20 20 20 20 20 55 4E 54 49 UNTI
028180: 4C 20 28 74 65 73 74 31 20 3D 20 30 29 20 41 4E L (test1 = 0) AN
028190: 44 20 28 70 72 69 73 20 3E 20 30 29 3B 0D 0A 20 D (pris > 0);..
0281A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 R
0281B0: 45 50 45 41 54 0D 0A 20 20 20 20 20 20 20 20 20 EPEAT..
0281C0: 20 20 20 20 20 20 20 20 20 57 52 49 54 45 28 27 WRITE('
0281D0: 54 61 73 74 20 76 61 72 65 62 65 68 6F 6C 64 6E Tast varebeholdn
0281E0: 69 6E 67 3A 20 20 20 20 20 20 20 20 20 27 29 3B ing: ');
0281F0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
028200: 20 20 20 20 42 55 46 4C 45 4E 20 3A 3D 20 35 3B BUFLEN := 5;
028210: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
028220: 20 20 20 20 52 45 41 44 4C 4E 28 73 74 72 65 6E READLN(stren
028230: 67 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 g);..
028240: 20 20 20 20 20 20 20 56 41 4C 28 73 74 72 65 6E VAL(stren
028250: 67 2C 20 61 6E 74 61 6C 2C 20 74 65 73 74 31 29 g, antal, test1)
028260: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ;..
028270: 20 20 20 55 4E 54 49 4C 20 74 65 73 74 31 20 3D UNTIL test1 =
028280: 20 30 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 0;..
028290: 20 20 20 45 4E 44 3B 0D 0A 20 20 20 20 20 20 20 END;..
0282A0: 20 45 4E 44 3B 0D 0A 20 20 20 20 55 4E 54 49 4C END;.. UNTIL
0282B0: 20 28 73 74 72 65 6E 67 20 3D 20 27 5E 27 29 20 (streng = '^')
0282C0: 4F 52 20 28 69 20 3D 20 6D 61 78 29 3B 0D 0A 20 OR (i = max);..
0282D0: 20 20 20 28 2A 20 4E 75 20 75 64 73 6B 72 69 76 (* Nu udskriv
0282E0: 65 73 20 6B 61 72 74 6F 74 65 6B 65 74 20 2A 29 es kartoteket *)
0282F0: 0D 0A 20 20 20 20 49 46 20 73 74 72 65 6E 67 20 .. IF streng
028300: 72 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 45 4E r');.. EN
028310: 44 3B 0D 0A 20 20 20 20 20 20 45 4E 44 2E 0D 0A D;.. END...
028320: 1A 20 20 20 20 20 20 20 20 38 31 20 2E 2E 20 31 . 81 .. 1
028330: 30 30 20 3A 20 57 52 49 54 45 4C 4E 28 27 35 27 00 : WRITELN('5'
028340: 29 3B 0D 0A 20 20 20 20 20 20 20 20 4F 54 48 45 );.. OTHE
028350: 52 57 49 53 45 0D 0A 20 20 20 20 20 20 20 20 20 RWISE..
028360: 20 57 52 49 54 45 4C 4E 28 27 20 2A 2A 2A 20 46 WRITELN(' *** F
028370: 6F 72 6B 65 72 74 20 76 61 72 65 6E 75 6D 6D 65 orkert varenumme
028380: 0E BF 65 5B 18 7F 5B 81 3E DB 58 A7 18 42 5F 19 ..e[..[.>.X..B_.
028390: 07 F0 B4 D9 BE FF 5B 9C B8 7C 15 53 68 70 83 73 ......[..|.Shp.s
0283A0: A7 C3 AF 9E EC 86 BF 19 67 32 9C 29 38 48 7B 27 ........g2.)8H{'
0283B0: 9B 21 85 2A B7 61 95 09 E2 80 C7 51 3E 2C 77 4E .!.*.a.....Q>,wN
0283C0: C0 B8 18 09 AC 70 23 42 BF E7 40 9A A9 DC 71 38 .....p#B..@...q8
0283D0: 7D 78 4D E4 EF 51 BD 04 59 77 26 BD ED C2 3B 16 }xM..Q..Yw&...;.
0283E0: F5 F4 3F CB 85 AC 44 DD B0 1D A4 5C 69 69 B9 87 ..?...D....\ii..
0283F0: AC E9 BA D7 63 B4 A9 90 D3 AA 5C 26 0F 71 C4 07 ....c.....\&.q..
028400: 9F 52 0E CF A6 A3 41 4A 26 40 F2 93 EF 1D CC 4B .R...£AJ&@.....K
028410: A8 3A DB 5A D9 A2 F0 3F 63 A4 27 31 32 EA 11 6F .:.Z...?c.'12..o
028420: 29 4E 15 74 EF B9 A5 6A 32 1C A2 49 DC 89 44 A4 )N.t...j2..I..D.
028430: B2 DB 6B 7C 54 D8 E8 50 03 6E E2 D4 45 E9 D3 56 ..k|T..P.n..E..V
028440: F0 D9 A1 BF 5C BF F9 D2 D4 5F D9 27 59 7F 95 7A ....\...._.'Y..z
028450: 78 F9 92 15 DE A8 01 02 01 48 91 D4 86 F5 8C 78 x........H.....x
028460: 59 BA 30 59 7A 7E EF CF 86 E3 C7 23 8B 29 82 26 Y.0Yz~.....#.).&
028470: 5A 6C 06 A7 72 CB 88 DA 2B 4A 47 B7 24 92 F1 8E Zl..r...+JG.$...
028480: 2F BD 79 03 B6 3F 3A F1 23 FE C4 D3 CD 82 DE 40 /.y..?:.#......@
028490: B0 1C 44 43 EB B0 2D 22 11 33 43 4D D3 29 EC D6 ..DC..-".3CM.)..
0284A0: 80 27 38 37 CA 5F 28 2C EF ED 3D 7D B3 61 28 CC .'87._(,..=}.a(.
0284B0: 0D 6D 51 B3 35 35 80 D7 19 46 D7 A1 F1 63 5D B6 .mQ.55...F...c].
0284C0: 31 23 05 B9 62 B3 E0 20 48 AE 7F 37 F6 16 66 3F 1#..b.. H..7..f?
0284D0: 86 92 BF DC 87 94 B1 CD 4C 75 5D 63 37 64 AC AC ........Lu]c7d..
0284E0: F3 08 AD 45 2F E2 D6 6C 49 C2 58 D2 86 26 4B 55 ...E/..lI.X..&KU
0284F0: 44 BC A5 4B 56 48 B6 35 5D 1C FF 51 1E 98 1F AB D..KVH.5]..Q....
028500: 3D 20 27 5E 27 0D 0A 20 20 20 20 20 20 54 48 45 = '^'.. THE
028510: 4E 20 61 6E 74 61 6C 20 3A 3D 20 69 20 2D 20 31 N antal := i - 1
028520: 0D 0A 20 20 20 20 20 20 45 4C 53 45 20 61 6E 74 .. ELSE ant
028530: 61 6C 20 3A 3D 20 6D 61 78 3B 0D 0A 20 20 20 20 al := max;..
028540: 46 4F 52 20 69 20 3A 3D 20 31 20 54 4F 20 61 6E FOR i := 1 TO an
028550: 74 61 6C 20 44 4F 0D 0A 20 20 20 20 20 20 57 49 tal DO.. WI
028560: 54 48 20 61 72 74 69 6B 65 6C 28 2E 69 2E 29 20 TH artikel(.i.)
028570: 44 4F 0D 0A 20 20 20 20 20 20 20 20 42 45 47 49 DO.. BEGI
028580: 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 57 52 49 N.. WRI
028590: 54 45 4C 4E 3B 0D 0A 20 20 20 20 20 20 20 20 20 TELN;..
0285A0: 20 57 52 49 54 45 4C 4E 28 27 41 72 74 69 6B 65 WRITELN('Artike
0285B0: 6C 6E 75 6D 6D 65 72 3A 20 27 2C 20 6E 75 6D 6D lnummer: ', numm
0285C0: 65 72 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 er);..
0285D0: 57 52 49 54 45 4C 4E 28 27 41 72 74 69 6B 65 6C WRITELN('Artikel
0285E0: 6E 61 76 6E 3A 20 20 20 27 2C 20 6E 61 76 6E 29 navn: ', navn)
0285F0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 57 52 49 ;.. WRI
028600: 54 45 4C 4E 28 27 41 72 74 69 6B 65 6C 70 72 69 TELN('Artikelpri
028610: 73 3A 20 20 20 27 2C 20 70 72 69 73 20 3A 20 37 s: ', pris : 7
028620: 20 3A 20 32 29 3B 0D 0A 20 20 20 20 20 20 20 20 : 2);..
028630: 20 20 57 52 49 54 45 4C 4E 28 27 41 72 74 69 6B WRITELN('Artik
028640: 65 6C 61 6E 74 61 6C 3A 20 20 27 2C 20 61 6E 74 elantal: ', ant
028650: 61 6C 29 3B 0D 0A 20 20 20 20 20 20 20 20 45 4E al);.. EN
028660: 44 3B 0D 0A 20 20 45 4E 44 2E 0D 0A 1A 76 6E 29 D;.. END....vn)
028670: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 57 52 49 ;.. WRI
028680: 8E 67 42 A9 CA 32 84 61 D3 26 C9 AB 4A A4 9A 94 .gB..2.a.&..J...
028690: 98 77 5C 93 F7 02 24 F8 28 AC 46 DC 04 AC E4 DE .w\...$.(.F.....
0286A0: D9 EC 86 F7 EE 67 83 1B FE A9 E7 D5 55 AF 84 E3 .....g......U...
0286B0: 94 CF 96 37 C6 C8 D2 9D 14 8F 69 0D 9E 41 9C DD ...7......i..A..
0286C0: 15 B0 1C 27 DD 6B E5 79 32 CC 28 B4 A0 AF EE C3 ...'.k.y2.(.....
0286D0: 52 59 FB 3C 87 E1 67 1A 7E 05 69 42 E9 90 7D CC RY.<..g.~.iB..}.
0286E0: 15 29 95 94 84 44 CE 65 29 8B 44 85 74 FB 44 6F .)...D.e).D.t.Do
0286F0: 7E 9F 75 75 91 D0 88 78 A9 CC B8 1C E9 FA 2B 64 ~.uu...x......+d
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: 50 52 4F 47 52 41 4D 20 76 6F 6B 61 6C 65 72 3B PROGRAM vokaler;
028810: 0D 0A 0D 0A 20 20 43 4F 4E 53 54 0D 0A 20 20 20 .... CONST..
028820: 20 6C 69 6E 69 65 61 6E 74 61 6C 20 3D 20 31 30 linieantal = 10
028830: 30 3B 0D 0A 20 20 20 20 6C 69 6E 69 65 62 72 65 0;.. liniebre
028840: 64 64 65 20 3D 20 36 38 3B 0D 0A 20 20 0D 0A 20 dde = 68;.. ..
028850: 20 54 59 50 45 0D 0A 20 20 20 20 74 65 6B 73 74 TYPE.. tekst
028860: 61 72 72 61 79 20 3D 20 41 52 52 41 59 28 2E 31 array = ARRAY(.1
028870: 20 2E 2E 20 6C 69 6E 69 65 61 6E 74 61 6C 2C 20 .. linieantal,
028880: 31 20 2E 2E 20 6C 69 6E 69 65 62 72 65 64 64 65 1 .. liniebredde
028890: 2E 29 20 4F 46 20 43 48 41 52 3B 0D 0A 20 20 20 .) OF CHAR;..
0288A0: 20 74 65 67 6E 20 3D 20 53 45 54 20 4F 46 20 43 tegn = SET OF C
0288B0: 48 41 52 3B 0D 0A 20 20 20 20 73 74 72 20 3D 20 HAR;.. str =
0288C0: 53 54 52 49 4E 47 28 2E 6C 69 6E 69 65 62 72 65 STRING(.liniebre
0288D0: 64 64 65 2E 29 3B 0D 0A 20 20 20 20 0D 0A 20 20 dde.);.. ..
0288E0: 56 41 52 0D 0A 20 20 20 20 74 65 6B 73 74 20 3A VAR.. tekst :
0288F0: 20 74 65 6B 73 74 61 72 72 61 79 3B 0D 0A 20 20 tekstarray;..
028900: 20 20 6B 6F 6E 73 6F 6E 61 6E 74 65 72 2C 20 76 konsonanter, v
028910: 6F 6B 61 6C 65 72 2C 20 63 69 66 72 65 20 3A 20 okaler, cifre :
028920: 74 65 67 6E 3B 0D 0A 20 20 20 20 74 65 6B 73 74 tegn;.. tekst
028930: 6C 69 6E 69 65 20 3A 20 73 74 72 3B 0D 0A 20 20 linie : str;..
028940: 20 20 69 2C 20 6A 2C 20 6C 69 6E 69 65 2C 20 70 i, j, linie, p
028950: 6F 73 69 74 69 6F 6E 20 3A 20 49 4E 54 45 47 45 osition : INTEGE
028960: 52 3B 0D 0A 20 20 20 20 61 6E 74 61 6C 76 6F 6B R;.. antalvok
028970: 61 6C 65 72 2C 20 61 6E 74 61 6C 6B 6F 6E 73 6F aler, antalkonso
028980: 6E 61 6E 74 65 72 2C 20 61 6E 74 61 6C 63 69 66 nanter, antalcif
028990: 72 65 20 3A 20 49 4E 54 45 47 45 52 3B 0D 0A 20 re : INTEGER;..
0289A0: 20 20 20 63 68 20 3A 20 43 48 41 52 3B 0D 0A 20 ch : CHAR;..
0289B0: 20 0D 0A 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 .. BEGIN..
0289C0: 76 6F 6B 61 6C 65 72 20 3A 3D 20 28 2E 20 27 41 vokaler := (. 'A
0289D0: 27 2C 20 27 45 27 2C 20 27 49 27 2C 20 27 4F 27 ', 'E', 'I', 'O'
0289E0: 2C 20 27 55 27 2C 20 27 59 27 2C 20 27 5B 27 2C , 'U', 'Y', '[',
0289F0: 20 27 5C 27 2C 20 27 5D 27 2C 0D 0A 20 20 20 20 '\', ']',..
028A00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028A10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028A20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028A30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028A40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028A50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028A60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028A70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028A80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028A90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028AA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028AB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028AC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028AD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028AE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028AF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028B00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028B10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028B20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028B30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028B40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028B50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028B60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028B70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028B80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028B90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028BA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028BB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028BC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028BD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028BE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028BF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028C00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 61 'a
028C10: 27 2C 20 27 65 27 2C 20 27 69 27 2C 20 27 6F 27 ', 'e', 'i', 'o'
028C20: 2C 20 27 75 27 2C 20 27 79 27 2C 20 27 7B 27 2C , 'u', 'y', '{',
028C30: 20 27 7C 27 2C 20 27 7D 27 20 2E 29 3B 0D 0A 20 '|', '}' .);..
028C40: 20 20 20 6B 6F 6E 73 6F 6E 61 6E 74 65 72 20 3A konsonanter :
028C50: 3D 20 28 28 2E 20 27 41 27 20 2E 2E 20 27 5D 27 = ((. 'A' .. ']'
028C60: 20 2E 29 20 2D 20 76 6F 6B 61 6C 65 72 29 0D 0A .) - vokaler)..
028C70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
028C80: 20 2B 20 28 28 2E 20 27 61 27 20 2E 2E 20 27 7D + ((. 'a' .. '}
028C90: 27 20 2E 29 20 2D 20 76 6F 6B 61 6C 65 72 29 3B ' .) - vokaler);
028CA0: 0D 0A 20 20 20 20 63 69 66 72 65 20 3A 3D 20 28 .. cifre := (
028CB0: 2E 20 27 30 27 20 2E 2E 20 27 39 27 20 2E 29 3B . '0' .. '9' .);
028CC0: 0D 0A 20 20 20 20 0D 0A 20 20 20 20 57 52 49 54 .. .. WRIT
028CD0: 45 28 43 4C 52 48 4F 4D 29 3B 0D 0A 20 20 20 20 E(CLRHOM);..
028CE0: 57 52 49 54 45 4C 4E 28 27 44 75 20 6B 61 6E 20 WRITELN('Du kan
028CF0: 6E 75 20 69 6E 64 74 61 73 74 65 20 65 6E 20 74 nu indtaste en t
028D00: 65 6B 73 74 20 70 7D 20 6D 61 78 69 6D 61 6C 74 ekst p} maximalt
028D10: 20 27 2C 0D 0A 20 20 20 20 20 20 20 20 20 20 20 ',..
028D20: 20 6C 69 6E 69 65 61 6E 74 61 6C 2C 20 27 20 6C linieantal, ' l
028D30: 69 6E 69 65 72 2E 27 29 3B 0D 0A 20 20 20 20 57 inier.');.. W
028D40: 52 49 54 45 4C 4E 28 27 48 76 65 72 20 6C 69 6E RITELN('Hver lin
028D50: 69 65 20 65 72 20 70 7D 20 6D 61 78 69 6D 61 6C ie er p} maximal
028D60: 74 20 27 2C 20 6C 69 6E 69 65 62 72 65 64 64 65 t ', liniebredde
028D70: 2C 20 27 20 74 65 67 6E 2E 27 29 3B 0D 0A 20 20 , ' tegn.');..
028D80: 20 20 57 52 49 54 45 4C 4E 28 27 49 6E 64 74 61 WRITELN('Indta
028D90: 73 74 6E 69 6E 67 65 6E 20 61 66 73 6C 75 74 74 stningen afslutt
028DA0: 65 73 20 76 65 64 20 61 74 20 69 6E 64 74 61 73 es ved at indtas
028DB0: 74 65 20 27 27 5E 27 27 20 73 6F 6D 20 66 7C 72 te ''^'' som f|r
028DC0: 73 74 65 20 6F 67 20 27 29 3B 0D 0A 20 20 20 20 ste og ');..
028DD0: 57 52 49 54 45 4C 4E 28 27 65 6E 65 73 74 65 20 WRITELN('eneste
028DE0: 74 65 67 6E 20 70 7D 20 65 6E 20 6C 69 6E 69 65 tegn p} en linie
028DF0: 27 29 3B 0D 0A 20 20 20 20 57 52 49 54 45 4C 4E ');.. WRITELN
028E00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028E10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028E20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028E30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028E40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028E50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028E60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028E70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028E80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028E90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028EA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028EB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028EC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028ED0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028EE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028EF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028F00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028F10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028F20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028F30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028F40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028F50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028F60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028F70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028F80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028F90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028FA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028FB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028FC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028FD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028FE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028FF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029000: 3B 0D 0A 20 20 20 20 6C 69 6E 69 65 20 3A 3D 20 ;.. linie :=
029010: 30 3B 0D 0A 20 20 20 20 52 45 50 45 41 54 0D 0A 0;.. REPEAT..
029020: 20 20 20 20 20 20 6C 69 6E 69 65 20 3A 3D 20 6C linie := l
029030: 69 6E 69 65 20 2B 20 31 3B 0D 0A 20 20 20 20 20 inie + 1;..
029040: 20 57 52 49 54 45 28 27 4C 69 6E 69 65 27 2C 20 WRITE('Linie',
029050: 6C 69 6E 69 65 20 3A 20 34 2C 20 27 3A 20 27 29 linie : 4, ': ')
029060: 3B 0D 0A 20 20 20 20 20 20 42 55 46 4C 45 4E 20 ;.. BUFLEN
029070: 3A 3D 20 6C 69 6E 69 65 62 72 65 64 64 65 3B 0D := liniebredde;.
029080: 0A 20 20 20 20 20 20 52 45 41 44 4C 4E 28 74 65 . READLN(te
029090: 6B 73 74 6C 69 6E 69 65 29 3B 0D 0A 20 20 20 20 kstlinie);..
0290A0: 20 20 49 46 20 74 65 6B 73 74 6C 69 6E 69 65 20 IF tekstlinie
0290B0: 3C 3E 20 27 5E 27 0D 0A 20 20 20 20 20 20 20 20 <> '^'..
0290C0: 54 48 45 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 THEN..
0290D0: 42 45 47 49 4E 0D 0A 20 20 20 20 20 20 20 20 20 BEGIN..
0290E0: 20 20 20 46 4F 52 20 70 6F 73 69 74 69 6F 6E 20 FOR position
0290F0: 3A 3D 20 31 20 54 4F 20 4C 45 4E 28 74 65 6B 73 := 1 TO LEN(teks
029100: 74 6C 69 6E 69 65 29 20 44 4F 0D 0A 20 20 20 20 tlinie) DO..
029110: 20 20 20 20 20 20 20 20 20 20 74 65 6B 73 74 28 tekst(
029120: 2E 6C 69 6E 69 65 2C 20 70 6F 73 69 74 69 6F 6E .linie, position
029130: 2E 29 20 3A 3D 20 43 4F 50 59 28 74 65 6B 73 74 .) := COPY(tekst
029140: 6C 69 6E 69 65 2C 20 70 6F 73 69 74 69 6F 6E 2C linie, position,
029150: 20 31 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 1);..
029160: 20 20 46 4F 52 20 69 20 3A 3D 20 70 6F 73 69 74 FOR i := posit
029170: 69 6F 6E 20 2B 20 31 20 54 4F 20 6C 69 6E 69 65 ion + 1 TO linie
029180: 62 72 65 64 64 65 20 44 4F 0D 0A 20 20 20 20 20 bredde DO..
029190: 20 20 20 20 20 20 20 20 20 74 65 6B 73 74 28 2E tekst(.
0291A0: 6C 69 6E 69 65 2C 20 69 2E 29 20 3A 3D 20 27 20 linie, i.) := '
0291B0: 27 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 45 4E ';.. EN
0291C0: 44 3B 0D 0A 20 20 20 20 55 4E 54 49 4C 20 28 74 D;.. UNTIL (t
0291D0: 65 6B 73 74 6C 69 6E 69 65 20 3D 20 27 5E 27 29 ekstlinie = '^')
0291E0: 20 4F 52 20 28 6C 69 6E 69 65 20 3D 20 6C 69 6E OR (linie = lin
0291F0: 69 65 61 6E 74 61 6C 29 3B 0D 0A 20 20 20 20 49 ieantal);.. I
029200: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029210: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029220: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029230: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029240: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029250: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029260: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029270: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029280: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029290: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0292A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0292B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0292C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0292D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0292E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0292F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029300: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029310: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029320: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029330: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029340: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029350: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029360: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029370: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029380: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029390: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0293A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0293B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0293C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0293D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0293E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0293F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029400: 46 20 74 65 6B 73 74 6C 69 6E 69 65 20 3D 20 27 F tekstlinie = '
029410: 5E 27 0D 0A 20 20 20 20 20 20 54 48 45 4E 20 6C ^'.. THEN l
029420: 69 6E 69 65 20 3A 3D 20 6C 69 6E 69 65 20 2D 20 inie := linie -
029430: 31 3B 0D 0A 20 20 20 20 61 6E 74 61 6C 76 6F 6B 1;.. antalvok
029440: 61 6C 65 72 20 3A 3D 20 30 3B 0D 0A 20 20 20 20 aler := 0;..
029450: 61 6E 74 61 6C 6B 6F 6E 73 6F 6E 61 6E 74 65 72 antalkonsonanter
029460: 20 3A 3D 20 30 3B 0D 0A 20 20 20 20 61 6E 74 61 := 0;.. anta
029470: 6C 63 69 66 72 65 20 3A 3D 20 30 3B 0D 0A 20 20 lcifre := 0;..
029480: 20 20 46 4F 52 20 69 20 3A 3D 20 31 20 54 4F 20 FOR i := 1 TO
029490: 6C 69 6E 69 65 20 44 4F 0D 0A 20 20 20 20 20 20 linie DO..
0294A0: 46 4F 52 20 6A 20 3A 3D 20 31 20 54 4F 20 6C 69 FOR j := 1 TO li
0294B0: 6E 69 65 62 72 65 64 64 65 20 44 4F 0D 0A 20 20 niebredde DO..
0294C0: 20 20 20 20 20 20 42 45 47 49 4E 0D 0A 20 20 20 BEGIN..
0294D0: 20 20 20 20 20 20 20 63 68 20 3A 3D 20 74 65 6B ch := tek
0294E0: 73 74 28 2E 69 2C 20 6A 2E 29 3B 0D 0A 20 20 20 st(.i, j.);..
0294F0: 20 20 20 20 20 20 20 49 46 20 63 68 20 49 4E 20 IF ch IN
029500: 76 6F 6B 61 6C 65 72 0D 0A 20 20 20 20 20 20 20 vokaler..
029510: 20 20 20 20 20 54 48 45 4E 20 61 6E 74 61 6C 76 THEN antalv
029520: 6F 6B 61 6C 65 72 20 3A 3D 20 61 6E 74 61 6C 76 okaler := antalv
029530: 6F 6B 61 6C 65 72 20 2B 20 31 3B 0D 0A 20 20 20 okaler + 1;..
029540: 20 20 20 20 20 20 20 49 46 20 63 68 20 49 4E 20 IF ch IN
029550: 6B 6F 6E 73 6F 6E 61 6E 74 65 72 0D 0A 20 20 20 konsonanter..
029560: 20 20 20 20 20 20 20 20 20 54 48 45 4E 20 61 6E THEN an
029570: 74 61 6C 6B 6F 6E 73 6F 6E 61 6E 74 65 72 20 3A talkonsonanter :
029580: 3D 20 61 6E 74 61 6C 6B 6F 6E 73 6F 6E 61 6E 74 = antalkonsonant
029590: 65 72 20 2B 20 31 3B 0D 0A 20 20 20 20 20 20 20 er + 1;..
0295A0: 20 20 20 49 46 20 63 68 20 49 4E 20 63 69 66 72 IF ch IN cifr
0295B0: 65 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 54 e.. T
0295C0: 48 45 4E 20 61 6E 74 61 6C 63 69 66 72 65 20 3A HEN antalcifre :
0295D0: 3D 20 61 6E 74 61 6C 63 69 66 72 65 20 2B 20 31 = antalcifre + 1
0295E0: 3B 0D 0A 20 20 20 20 20 20 20 20 45 4E 44 3B 0D ;.. END;.
0295F0: 0A 20 20 20 20 57 52 49 54 45 4C 4E 3B 0D 0A 20 . WRITELN;..
029600: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029610: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029620: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029630: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029640: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029650: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029660: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029670: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029680: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029690: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0296A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0296B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0296C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0296D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0296E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0296F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029700: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029710: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029720: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029730: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029740: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029750: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029760: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029770: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029780: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029790: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0297A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0297B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0297C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0297D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0297E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0297F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029800: 20 20 20 57 52 49 54 45 4C 4E 28 27 44 65 6E 20 WRITELN('Den
029810: 69 6E 64 74 61 73 74 65 64 65 20 74 65 6B 73 74 indtastede tekst
029820: 20 69 6E 64 65 68 6F 6C 64 65 72 20 66 7C 6C 67 indeholder f|lg
029830: 65 6E 64 65 3A 27 29 3B 0D 0A 20 20 20 20 57 52 ende:');.. WR
029840: 49 54 45 4C 4E 28 27 41 6E 74 61 6C 20 76 6F 6B ITELN('Antal vok
029850: 61 6C 65 72 3A 20 20 20 20 20 20 27 2C 20 61 6E aler: ', an
029860: 74 61 6C 76 6F 6B 61 6C 65 72 20 3A 20 36 29 3B talvokaler : 6);
029870: 0D 0A 20 20 20 20 57 52 49 54 45 4C 4E 28 27 41 .. WRITELN('A
029880: 6E 74 61 6C 20 6B 6F 6E 73 6F 6E 61 6E 74 65 72 ntal konsonanter
029890: 3A 20 20 27 2C 20 61 6E 74 61 6C 6B 6F 6E 73 6F : ', antalkonso
0298A0: 6E 61 6E 74 65 72 20 3A 20 36 29 3B 0D 0A 20 20 nanter : 6);..
0298B0: 20 20 57 52 49 54 45 4C 4E 28 27 41 6E 74 61 6C WRITELN('Antal
0298C0: 20 63 69 66 72 65 3A 20 20 20 20 20 20 20 20 27 cifre: '
0298D0: 2C 20 61 6E 74 61 6C 63 69 66 72 65 20 3A 20 36 , antalcifre : 6
0298E0: 29 3B 0D 0A 20 20 20 20 57 52 49 54 45 4C 4E 3B );.. WRITELN;
0298F0: 0D 0A 20 20 45 4E 44 2E 0D 0A 1A 4C 4E 28 27 41 .. END....LN('A
029900: 39 9A 56 DB 74 28 C7 8B D1 D3 2E 68 1B 1B 26 46 9.V.t(.....h..&F
029910: 73 C4 2C 0E 44 AD 2A 40 76 7F EF C2 7E CF 1D 8B s.,.D.*@v...~...
029920: C3 FA EF 1D 63 5B 8B A4 67 30 57 B3 87 A2 99 B8 ....c[..g0W.....
029930: AC 35 72 F5 D8 8D 44 E8 3B 67 DC EA 17 61 79 BE .5r...D.;g...ay.
029940: 87 53 B8 B8 D3 8B 11 EE 6C 17 61 50 01 34 B8 FC .S......l.aP.4..
029950: 30 34 E1 9A CC 2E 77 0C 3C 51 C3 33 58 E1 AF 4A 04....w.<Q.3X..J
029960: 80 E6 50 A2 F9 14 59 E0 34 CD 1A 0F 91 A8 D1 F5 ..P...Y.4.......
029970: 46 82 0C F1 4B 9D 70 B1 9A 7D A2 E4 14 7B 64 1F F...K.p..}...{d.
029980: B3 19 CF 91 95 B1 9F 1D 8D 55 9C 6D E1 60 AE 45 .........U.m.`.E
029990: C9 D8 2D 5D 8D C6 7E 26 68 9E 3E BE 59 E2 97 E5 ..-]..~&h.>.Y...
0299A0: 23 66 B3 CB 85 D6 B2 B0 8E 0E 46 5D 23 81 BA AE #f........F]#...
0299B0: 9E 3D 2F 74 0A F0 61 65 8A EF 2D 3C 51 5E 0C B4 .=/t..ae..-<Q^..
0299C0: F2 5E 41 29 79 B3 44 C6 3F F9 30 96 25 D5 19 91 .^A)y.D.?.0.%...
0299D0: 01 99 0D 24 E3 84 E3 95 48 86 73 A6 70 62 43 AD ...$....H.s.pbC.
0299E0: A2 2D 91 0E 57 BE 06 C5 46 A0 FB 02 75 E2 53 63 .-..W...F...u.Sc
0299F0: A3 59 2A D5 3D C2 E6 5D 63 8E E5 AD 0E DD 7C 99 £Y*.=..]c.....|.
029A00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
029A10: 23 00 01 00 02 09 52 E5 23 00 41 02 00 00 00 02 #.....R.#.A.....
029A20: 23 00 46 02 00 00 00 02 23 00 42 02 00 00 00 02 #.F.....#.B.....
029A30: 23 00 47 02 00 00 00 02 23 00 43 02 00 00 00 02 #.G.....#.C.....
029A40: 23 00 48 02 00 00 00 02 23 00 44 02 00 00 00 02 #.H.....#.D.....
029A50: 23 00 49 02 00 00 00 02 23 00 45 02 00 00 00 02 #.I.....#.E.....
029A60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029A70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029A80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029A90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029AA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029AB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029AC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029AD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029AE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029AF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029B00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029B10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029B20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029B30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029B40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029B50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029B60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029B70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029B80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029B90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029BA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029BB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029BC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029BD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029BE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029BF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029C00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029C10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029C20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029C30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029C40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029C50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029C60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029C70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029C80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029C90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029CA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029CB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029CC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029CD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029CE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029CF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029D00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029D10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029D20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029D30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029D40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029D50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029D60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029D70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029D80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029D90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029DA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029DB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029DC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029DD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029DE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029DF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029E00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029E10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029E20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029E30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029E40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029E50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029E60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029E70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029E80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029E90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029EA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029EB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029EC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029ED0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029EE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029EF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029F00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029F10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029F20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029F30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029F40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029F50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029F60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029F70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029F80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029F90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029FA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029FB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029FC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029FD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029FE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029FF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A0A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A0B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A0C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A0D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A0E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A0F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A1A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A1B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A1C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A1D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A1E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A1F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A200: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A210: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A220: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A230: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A240: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A250: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A260: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A270: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A280: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A290: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A2A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A2B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A2C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A2D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A2E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A2F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A300: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A310: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A320: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A330: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A340: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A350: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A360: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A370: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A380: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A390: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A3A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A3B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A3C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A3D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A3E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A3F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A400: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A410: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A420: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A430: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A440: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A450: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A460: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A470: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A480: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A490: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A4A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A4B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A4C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A4D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A4E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A4F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A500: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A510: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A520: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A530: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A540: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A550: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A560: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A570: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A580: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A590: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A5A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A5B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A5C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A5D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A5E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A5F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A600: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A610: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A620: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A630: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A640: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A650: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A660: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A670: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A680: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A690: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A6A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A6B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A6C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A6D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A6E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A6F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A700: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A710: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A720: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A730: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A740: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A750: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A760: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A770: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A780: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A790: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A7A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A7B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A7C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A7D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A7E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A7F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A800: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A810: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A820: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A830: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A840: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A850: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A860: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A870: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A880: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A890: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A8A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A8B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A8C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A8D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A8E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A8F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A900: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A910: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A920: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A930: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A940: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A950: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A960: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A970: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A980: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A990: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A9A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A9B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A9C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A9D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A9E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A9F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AA00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AA10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AA20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AA30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AA40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AA50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AA60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AA70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AA80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AA90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AAA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AAB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AAC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AAD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AAE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AAF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AB00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AB10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AB20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AB30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AB40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AB50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AB60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AB70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AB80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AB90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ABA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ABB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ABC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ABD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ABE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ABF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AC00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AC10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AC20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AC30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AC40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AC50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AC60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AC70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AC80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AC90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ACA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ACB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ACC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ACD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ACE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ACF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AD00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
02AD10: 24 00 01 00 02 09 52 E5 24 00 41 02 00 00 00 02 $.....R.$.A.....
02AD20: 24 00 46 02 00 00 00 02 24 00 42 02 00 00 00 02 $.F.....$.B.....
02AD30: 24 00 47 02 00 00 00 02 24 00 43 02 00 00 00 02 $.G.....$.C.....
02AD40: 24 00 48 02 00 00 00 02 24 00 44 02 00 00 00 02 $.H.....$.D.....
02AD50: 24 00 49 02 00 00 00 02 24 00 45 02 00 00 00 02 $.I.....$.E.....
02AD60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02AD70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02AD80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02AD90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02ADA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02ADB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02ADC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02ADD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02ADE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02ADF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02AE00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AE10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AE20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AE30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AE40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AE50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AE60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AE70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AE80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AE90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AEA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AEB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AEC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AED0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AEE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AEF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AF00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AF10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AF20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AF30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AF40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AF50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AF60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AF70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AF80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AF90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AFA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AFB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AFC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AFD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AFE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AFF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B0A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B0B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B0C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B0D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B0E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B0F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B1A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B1B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B1C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B1D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B1E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B1F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B200: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B210: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B220: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B230: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B240: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B250: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B260: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B270: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B280: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B290: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B2A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B2B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B2C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B2D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B2E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B2F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B300: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B310: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B320: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B330: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B340: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B350: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B360: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B370: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B380: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B390: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B3A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B3B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B3C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B3D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B3E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B3F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B400: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B410: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B420: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B430: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B440: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B450: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B460: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B470: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B480: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B490: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B4A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B4B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B4C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B4D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B4E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B4F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B500: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B510: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B520: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B530: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B540: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B550: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B560: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B570: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B580: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B590: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B5A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B5B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B5C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B5D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B5E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B5F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B600: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B610: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B620: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B630: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B640: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B650: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B660: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B670: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B680: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B690: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B6A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B6B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B6C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B6D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B6E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B6F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B700: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B710: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B720: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B730: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B740: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B750: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B760: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B770: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B780: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B790: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B7A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B7B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B7C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B7D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B7E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B7F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B800: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B810: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B820: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B830: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B840: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B850: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B860: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B870: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B880: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B890: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B8A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B8B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B8C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B8D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B8E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B8F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B900: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B910: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B920: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B930: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B940: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B950: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B960: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B970: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B980: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B990: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B9A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B9B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B9C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B9D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B9E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B9F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BA00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BA10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BA20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BA30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BA40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BA50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BA60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BA70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BA80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BA90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BAA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BAB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BAC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BAD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BAE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BAF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BB00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BB10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BB20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BB30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BB40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BB50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BB60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BB70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BB80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BB90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BBA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BBB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BBC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BBD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BBE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BBF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BC00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BC10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BC20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BC30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BC40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BC50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BC60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BC70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BC80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BC90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BCA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BCB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BCC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BCD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BCE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BCF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BD00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BD10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BD20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BD30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BD40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BD50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BD60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BD70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BD80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BD90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BDA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BDB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BDC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BDD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BDE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BDF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BE00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BE10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BE20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BE30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BE40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BE50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BE60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BE70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BE80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BE90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BEA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BEB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BEC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BED0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BEE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BEF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BF00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BF10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BF20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BF30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BF40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BF50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BF60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BF70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BF80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BF90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BFA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BFB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BFC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BFD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BFE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BFF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C000: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
02C010: 25 00 01 00 02 09 52 E5 25 00 41 02 00 00 00 02 %.....R.%.A.....
02C020: 25 00 46 02 00 00 00 02 25 00 42 02 00 00 00 02 %.F.....%.B.....
02C030: 25 00 47 02 00 00 00 02 25 00 43 02 00 00 00 02 %.G.....%.C.....
02C040: 25 00 48 02 00 00 00 02 25 00 44 02 00 00 00 02 %.H.....%.D.....
02C050: 25 00 49 02 00 00 00 02 25 00 45 02 00 00 00 02 %.I.....%.E.....
02C060: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C070: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C080: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C090: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C0A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C0B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C0C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C0D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C0E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C0F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C1A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C1B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C1C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C1D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C1E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C1F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C200: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C210: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C220: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C230: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C240: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C250: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C260: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C270: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C280: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C290: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C2A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C2B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C2C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C2D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C2E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C2F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C300: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C310: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C320: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C330: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C340: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C350: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C360: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C370: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C380: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C390: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C3A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C3B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C3C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C3D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C3E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C3F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C400: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C410: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C420: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C430: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C440: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C450: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C460: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C470: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C480: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C490: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C4A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C4B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C4C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C4D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C4E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C4F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C500: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C510: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C520: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C530: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C540: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C550: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C560: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C570: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C580: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C590: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C5A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C5B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C5C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C5D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C5E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C5F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C600: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C610: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C620: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C630: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C640: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C650: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C660: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C670: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C680: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C690: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C6A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C6B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C6C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C6D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C6E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C6F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C700: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C710: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C720: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C730: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C740: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C750: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C760: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C770: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C780: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C790: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C7A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C7B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C7C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C7D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C7E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C7F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C800: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C810: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C820: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C830: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C840: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C850: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C860: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C870: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C880: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C890: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C8A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C8B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C8C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C8D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C8E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C8F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C900: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C910: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C920: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C930: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C940: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C950: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C960: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C970: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C980: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C990: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C9A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C9B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C9C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C9D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C9E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C9F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CA00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CA10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CA20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CA30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CA40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CA50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CA60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CA70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CA80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CA90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CAA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CAB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CAC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CAD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CAE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CAF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CB00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CB10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CB20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CB30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CB40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CB50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CB60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CB70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CB80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CB90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CBA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CBB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CBC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CBD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CBE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CBF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CC00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CC10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CC20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CC30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CC40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CC50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CC60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CC70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CC80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CC90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CCA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CCB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CCC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CCD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CCE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CCF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CD00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CD10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CD20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CD30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CD40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CD50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CD60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CD70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CD80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CD90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CDA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CDB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CDC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CDD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CDE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CDF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CE00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CE10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CE20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CE30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CE40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CE50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CE60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CE70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CE80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CE90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CEA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CEB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CEC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CED0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CEE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CEF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CF00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CF10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CF20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CF30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CF40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CF50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CF60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CF70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CF80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CF90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CFA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CFB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CFC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CFD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CFE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CFF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D0A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D0B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D0C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D0D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D0E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D0F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D1A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D1B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D1C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D1D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D1E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D1F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D200: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D210: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D220: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D230: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D240: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D250: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D260: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D270: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D280: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D290: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D2A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D2B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D2C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D2D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D2E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D2F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D300: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
02D310: 26 00 01 00 02 09 52 E5 26 00 41 02 00 00 00 02 &.....R.&.A.....
02D320: 26 00 46 02 00 00 00 02 26 00 42 02 00 00 00 02 &.F.....&.B.....
02D330: 26 00 47 02 00 00 00 02 26 00 43 02 00 00 00 02 &.G.....&.C.....
02D340: 26 00 48 02 00 00 00 02 26 00 44 02 00 00 00 02 &.H.....&.D.....
02D350: 26 00 49 02 00 00 00 02 26 00 45 02 00 00 00 02 &.I.....&.E.....
02D360: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D370: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D380: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D390: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D3A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D3B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D3C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D3D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D3E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D3F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D400: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D410: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D420: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D430: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D440: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D450: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D460: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D470: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D480: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D490: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D4A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D4B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D4C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D4D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D4E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D4F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D500: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D510: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D520: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D530: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D540: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D550: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D560: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D570: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D580: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D590: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D5A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D5B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D5C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D5D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D5E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D5F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D600: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D610: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D620: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D630: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D640: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D650: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D660: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D670: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D680: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D690: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D6A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D6B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D6C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D6D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D6E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D6F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D700: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D710: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D720: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D730: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D740: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D750: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D760: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D770: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D780: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D790: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D7A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D7B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D7C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D7D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D7E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D7F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D800: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D810: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D820: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D830: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D840: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D850: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D860: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D870: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D880: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D890: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D8A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D8B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D8C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D8D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D8E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D8F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D900: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D910: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D920: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D930: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D940: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D950: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D960: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D970: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D980: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D990: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D9A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D9B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D9C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D9D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D9E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D9F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DA00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DA10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DA20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DA30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DA40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DA50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DA60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DA70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DA80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DA90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DAA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DAB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DAC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DAD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DAE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DAF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DB00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DB10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DB20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DB30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DB40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DB50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DB60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DB70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DB80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DB90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DBA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DBB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DBC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DBD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DBE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DBF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DC00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DC10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DC20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DC30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DC40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DC50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DC60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DC70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DC80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DC90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DCA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DCB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DCC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DCD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DCE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DCF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DD00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DD10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DD20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DD30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DD40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DD50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DD60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DD70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DD80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DD90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DDA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DDB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DDC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DDD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DDE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DDF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DE00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DE10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DE20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DE30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DE40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DE50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DE60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DE70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DE80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DE90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DEA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DEB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DEC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DED0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DEE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DEF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DF00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DF10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DF20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DF30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DF40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DF50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DF60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DF70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DF80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DF90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DFA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DFB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DFC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DFD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DFE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DFF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E0A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E0B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E0C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E0D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E0E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E0F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E1A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E1B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E1C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E1D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E1E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E1F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E200: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E210: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E220: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E230: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E240: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E250: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E260: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E270: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E280: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E290: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E2A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E2B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E2C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E2D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E2E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E2F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E300: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E310: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E320: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E330: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E340: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E350: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E360: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E370: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E380: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E390: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E3A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E3B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E3C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E3D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E3E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E3F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E400: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E410: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E420: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E430: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E440: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E450: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E460: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E470: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E480: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E490: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E4A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E4B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E4C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E4D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E4E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E4F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E500: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E510: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E520: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E530: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E540: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E550: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E560: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E570: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E580: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E590: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E5A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E5B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E5C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E5D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E5E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E5F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E600: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
02E610: 27 00 01 00 02 09 52 E5 27 00 41 02 00 00 00 02 '.....R.'.A.....
02E620: 27 00 46 02 00 00 00 02 27 00 42 02 00 00 00 02 '.F.....'.B.....
02E630: 27 00 47 02 00 00 00 02 27 00 43 02 00 00 00 02 '.G.....'.C.....
02E640: 27 00 48 02 00 00 00 02 27 00 44 02 00 00 00 02 '.H.....'.D.....
02E650: 27 00 49 02 00 00 00 02 27 00 45 02 00 00 00 02 '.I.....'.E.....
02E660: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E670: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E680: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E690: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E6A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E6B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E6C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E6D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E6E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E6F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E700: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E710: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E720: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E730: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E740: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E750: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E760: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E770: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E780: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E790: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E7A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E7B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E7C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E7D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E7E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E7F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E800: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E810: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E820: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E830: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E840: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E850: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E860: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E870: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E880: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E890: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E8A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E8B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E8C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E8D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E8E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E8F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E900: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E910: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E920: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E930: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E940: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E950: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E960: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E970: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E980: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E990: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E9A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E9B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E9C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E9D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E9E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E9F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EA00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EA10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EA20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EA30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EA40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EA50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EA60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EA70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EA80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EA90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EAA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EAB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EAC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EAD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EAE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EAF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EB00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EB10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EB20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EB30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EB40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EB50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EB60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EB70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EB80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EB90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EBA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EBB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EBC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EBD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EBE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EBF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EC00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EC10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EC20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EC30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EC40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EC50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EC60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EC70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EC80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EC90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ECA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ECB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ECC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ECD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ECE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ECF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ED00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ED10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ED20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ED30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ED40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ED50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ED60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ED70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ED80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ED90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EDA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EDB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EDC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EDD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EDE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EDF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EE00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EE10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EE20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EE30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EE40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EE50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EE60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EE70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EE80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EE90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EEA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EEB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EEC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EED0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EEE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EEF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EF00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EF10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EF20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EF30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EF40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EF50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EF60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EF70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EF80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EF90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EFA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EFB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EFC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EFD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EFE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EFF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F0A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F0B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F0C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F0D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F0E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F0F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F1A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F1B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F1C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F1D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F1E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F1F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F200: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F210: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F220: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F230: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F240: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F250: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F260: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F270: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F280: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F290: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F2A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F2B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F2C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F2D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F2E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F2F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F300: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F310: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F320: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F330: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F340: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F350: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F360: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F370: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F380: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F390: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F3A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F3B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F3C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F3D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F3E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F3F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F400: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F410: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F420: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F430: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F440: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F450: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F460: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F470: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F480: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F490: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F4A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F4B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F4C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F4D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F4E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F4F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F500: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F510: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F520: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F530: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F540: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F550: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F560: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F570: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F580: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F590: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F5A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F5B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F5C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F5D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F5E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F5F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F600: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F610: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F620: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F630: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F640: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F650: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F660: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F670: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F680: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F690: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F6A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F6B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F6C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F6D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F6E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F6F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F700: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F710: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F720: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F730: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F740: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F750: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F760: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F770: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F780: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F790: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F7A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F7B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F7C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F7D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F7E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F7F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F800: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F810: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F820: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F830: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F840: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F850: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F860: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F870: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F880: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F890: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F8A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F8B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F8C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F8D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F8E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F8F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
RESULT OF SEARCH :
PRO=115 CHEA=0 COD=0 MUSI=0 COP=15 GRA=96 WRIT=763 198=5 199=9 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 RAFBGCHDIEBUBBLE3 PASC10CPM3 EMS
C10CPM3 EMSHCELSIUS PAS CHECK1 PAS!"CHECK2 PAS#CHECK3 PAS$CPR PAS %&'(CP
RDATO PAS)*CPRDATO2PAS+,PERSON PAS-.PERSONERPASP/012345678POST1 PAS9POSTKOPIP
AS0POSTANTPAS(ABCDPREDEF PASEA86 2xA2AO!!r(rAr rg!+p+p## P+p+p!gi$P/x6T+r+s+q+
r+sx)y12xH47.fwC(I7( R(ErwZ.aBy'Jy-by3O"SZ2Xyy8zyyX/ 2Yyyy!.Zaiax7KZ*XX(x8x0zPRI
MFORDPASFPRIMTAL PASGHPRINTER PASIPRODUKT PASJPYTHAGO PASKQUICKSORPASLMRENTE P
ASNRENTEDAGPASOPRENTEFODPASQRING PAS8RSTUVWXRNDWALK PASYRUMF1 PAS(ZRUMF2 PA
S(abcSAMRENTEPASdSCORE PASefgSFD PASh xX(xxf0 YyX x7x yxyYyyh"6vogQK£ypAhE
4# 2h-Mly*iKy 8*Dy(!ZDU!pZ!Z*D!"iF##0##V*7cbY32U 02kU 0*joMU U U U 5 9"yxwvurqp
olkJjifieldmNM£LKJIHEErDCBA10!r!lBSIMPSON PASijSKAERM PASkSOEG PASlmSTATFIL
PAS nopqSTATISTIPASrSUMBROEKPASstTABEL PASuTALFOELGPASvTEGN PASwTERNING2PAS
xTRECIFREPASyzTREGRUP PASTREKANT PASTRIGONOMPASTYPE COMUD6 PASK!"n!"n!z6*
y/2z2y!"G!# #((&j(k(b(8 08B0# hyAO*2!! rxr222r2h Ofy2x!6 #"!u2!"4*q#6"Kx"*,&uZ*u
D48Okb !4* !#"O$,uyZ7WUPCASE PASVAREFIL PASXVAREPOSTPASVARER1 PASVARER2 PASVO
KALER PAS2*2222/2!""&2(!6 2C!O *eo(%"*Miy,"-(.$z0%MZ2%L-H$7,4%W-,*g&."$0!*0kz0b"
*eo,$u"Zli,G*U&o,xDZ(Wl&,Plgg,$uZ!w28OG 2(( 2 8x/Gy/OOOzW12 !I!6! !!!!!)!/!1!R!!
/w!Aw!XYGw% !#Z 8 This program will not run in this environment. Press any ke
y £Z mEK£pc/BgrO!!"!H2PY!B!2 RAFBGCHDIE8,MNi(,O!,!Pq, O WXOzg 0/(0O/O, zWg
zWg+ 2oo&b W W Nwy##n&)))###£### 2!06#! /#foVVV onf"cn"2I6fffffffffflffflbhxhbbh
xhffffffffxflxlfbfffvfflfffZfffffffffffl88lfff2f0000000xvfffffvf60x00xfffff8fffl
xl8lfffffffffvv00006fffffffll8lfffL2pppv8ll8I6o2ng"2j"2!"ox2a" zWxGz8/WxO*!!17 !
!!!CmyO!$(A*R$(*RZ( &!,( !%. !7 C x( 6 V F# Z 0!667F, Z 0r6 Vyz0/GVyVzV$$$''
$$$$$' $$$$$$$$ '$$$$' '$$$$$$$$$$$$$$$$$$$$$$$$xvfff8D8ff8DD8t44408l8DLTLRDb
3ff3f3f0ff6000fff08l FIFf&I88ll888ffBfUQQQ Q .- y #7(( (#7#7 7m VyVV!x0xw#
+r$ $ O##V###F##V VyV Wx08Q y*((*!/w ,!y2&T))!!VI x VI£ x I*0ff000fff0fffff
fffffffffffff0ff000fff0ffffffffffffffffffffffxffzf2Lfvnf2Lff2Lfff000f02L0xv0f080
ff0ffffxvfff8fffffff0xv0f080ff0ffffffffxvfff8ffffffflnxvzf2Lfff2Lxv2Lff00$$ not
ready writprotected seek failno msing addmark bad fmat unknown CP/M Plus Amstr
ad Consumer Electronics plcv ., 61K TPA12s1 serial portK M Pleasput f inton pan
y key not ready Driv drive track or theress , e isdata - RetryIgn Cancelsect
dc err*!/VCRT LPT SIO 2Cy*X!***l***** **2Y2Xy"##*s1d#VX2KC2s1dK2!28"9!2"*
2".! CYY(B0O!YZ!x ffBB88llBB$$ffllllll0 $ff$lssffffffff008ll808lfffllllffpsff8l
ffffllllllllX0f8l8vv00000ff008ll88fffflbffffffffffff00000ff RAFBGCHDIEztwC*9"!"
921d1Nj$#2###82#*7!""++"729C4w"*7#Vz!7c!c! Jw"*q769 !-*7"7*7""! 2*i7#V+ (d!7K*7
*))7K7) O"!w OWGzO7VxGyOGxwq*7d*i7#V7w7w7"72d#29&22#! )xBB+"o2777"9OG#Qozg# "
"!2*%DM**+))H#+#77o77007*",!."*K6*.og"($Kt2(*f*(DQ"(QKQKQQ"%Q9*7*7"7*7x"7xm*7#V*
7 s#r*7*7s#r*77Y4Y*7*7#ng *7 s#r #Va9##7)0"7xx!"7"7"7X9C*79*7"7979!79999*7"7x"78
*9"g7*397Oi9H97Gi9a967G/O*77*7W7T88a9886*77X9)!77T-q9k-8!77868wq9X9)6#7!!*$K*"x!
*!$hKKK#w*NK*NK#V#N#F!xQGQx3bqo5p5"""*!yb!G*!NK2!,"**NK6 +OK2$#V#N#FxNp$pGjxjY#A
QFQKKK ! 669BK! OS7X8#V!"778!8#V*7 8"7"7x8!7!*7X8*78Q9727279"7!"X98#cdfg!"()*N!7
r)!7N/!)z£*)3"!"X7*7w7w#7w*2*D(06/62#(//.66666w6/27#07w!/6p6!76N654321$Nwy!"(9"f
1f!2!#foCOPYRIGHT (C) 1982, DIGITAL RESEARCH 15128222dLzN#V !O!!M8GW x(v* M!qO
WG*!CX2izn&2y2!/og2N7 08G 7w6/B/p/!g-s.r--�S6)6/w-s.$-&F#pN#!£7455Op#5-*6!#5p$
*6 (#52(/0/0//./w*o#q55""5 6!$4X5#wO'7'g5w#w#6##)"5 *g5G++!o#T! 6* *#K"G*xr--&x.
.+$ ,7,$$( !S0# w*) *) (AIFbh)))y2!2!CC *!I 0"!!8+w7) /I/ !xog ( 6'i1d!""&"!
&GS" g.""c!$*#"+'ww*)0! + 9 b # RAFBGCHDIEw" 474R!3H77c!o#E4#V)3G##!4b44k44##N
#F##V##foo$$22g-*w7"333+3*7#og7O*s#r#w!w/w//.H*e7)4g-04"!k-*w7)3*c7)3-&&#k-*s7"7
3r2-,-,--//*e7W£*c7"e7£og"c72722(2#%$/*227/wB/p6+%027w!A!P1 20/W*O2$R&*e7)37r7O
**AO7*x*yp!7V+*Wy/27o)7B* 4!gOEK wK w279 7272*)F67/G7)7)O*G7)OzW))7)*7)BKN") z)y
G7!7)vq(vvM))!T!"777G7O7h)277r)yy/W!77l)'w##27(4(((7((((&A!X27rK 7w++wv4#O(57v4-
'&(!27X(-c*27Z T --&(&!32#20Y2s.Y2/Y2/Y2.7.(!A!s.27202$%// -A!'41k--11Z T -1*o"!
"!!#O#$"716%- 127$A!s.v10N10N1v1$%/W1+%0v1w !v1$%/r1/r1.7r1.27+%A!20r!Z32!"!g-72
T --&0227&0!7w (27*6#$&0!O0w71*!"*o+"v! (*!b7"#$" r#w#r# L(J0 L(v %wb O#('w''''
''#' # x'#'w'''''w wb "!!$!'x'w676#+w#w+'w2 K !'OFq-'y&l'Np&#g5£7'$#( %$&%#H&&27
x..#&)7&O#w!$#&b ++V * )#Os++r) u/G*g7!x0*o7y 7/G## 60K F6##N6#/2p##q/#*w#2*p !*
"v *w#) 6#////0!N#Fx/T### / / *4/# '/ 4/!7*/ /33G# P/v/dv/6 y//2 !7)#w*"#.0.!7F
w../.7w !"227 ./*w%"!Gw#%*#$%&+ *9&2# &*w-&x..$H&"70&*7##2%%H&$E%## %7%60%w!"$%P
Y*7z%BKN"%y%N"%%p"y%!& 2 ($*7w#$*" (#$27$#% k%7( s.%*9&%%s.%/%.%#G7$27x$# W$7$$$
272G$"Grx$$7$27$$##$*$$*"2""!$.603!!i ."!6*e7)Q.!7Q-X.-.k-*7#V!! .*o7s.q7w 2727
-*27w#27wZ !""272*2727-27k-*w X!-/.!6X!*W#x#Ws+p+q7r#r#r#- ,, -$2- ,!!q#p#w27wW*
e7 3-!7s7!7x-Q-"*&,.,(.,A!rr##sr+(+c*N!OGG!Goy27k$"!$*7*$i $ O$27W$W$$27$y$$x $$
$$$N7r7/GyOOA +# #y27£7x#o&7WOE7#N/*"7y227##" R!X!"DM*w76#x #*o7w*7*w7s#r*i76#6"
*7"7"!j *7!8#8# t#n#"v 8#*o7wn#TKK""*w7"w7""w7 £7"N" N#Fy"*7h"#"*7#!6"*q7"G.,!
wck,!,!x,!,#,#P,P,vqO-'&,'.,(!Vq##w7!7WM)++7+!TJ!7!7+x!7+w4 +P*W*+P**!!#O#F s+O
s#r(+y+*7!7W*y7#Vx7+27w!w#K+WK+*7"7J!T*77+"+ !S0X7*q(*!77*27+27*ODM%*r"7"727727*
£77+ RAFBGCHDIE!"""*7*#" "&"27! 0"!+!!yWiDM*w7b"N"p"w"DM*w7e! #V#27!9 !"7*y7!*
7X8*!!"*g7*K!wb ##w#w!!r!#G#!*q7#!7!7 !7 $!6k-!"27*q7N1q*7!*7!*y7#V7t!6 #Vozg*7*
7g *u7*7 R!22 Z3w*q7ww7c7 *7#*i7s#r* 7!72+2*jx.#NzW!2W!5xzm*#wO2!*(5WjM2x*(+
w"(j!%"(-*$PW2xMs92*9x+qx2**&2+o#"&!+6MW2x*(+"(w2*2*(+w"(G)e77O!*c77O 2 *g77o$*
K 6wK w**i7#zi r+s7O7w47wr##rp# go*g7 #G 1*q77*w** * r 27"77O7G27!7w*zWw+ !z#*
!**G!O27m#O&t2772gDM*70MD"7!*MD$7O!7N7 GO7 *£7n#fo27O"77O*7"7+2 5*(o#"(M*(Uoj*(
#"(!*6s!+6+xo2#w2.+.2-!%"(2*!"&!*42-G2+22*N#G22GH)+62,!- ,!+*(L#Bxz**(Or ! O(*(
2**!#!""*(#wxH!)6"&! x!7s#r#p*k7N#F*m7#V#F*77Oy9*7+"*7yP#9*7*7DM"7*k7s#r*m7s#r#p
yox*k7w#w*m7w#w#w27'27*Oy*e7 0!77!72*7*"74#4#4)77 # w#*J#V#"i7##"k7##"m7###"o7
#"q7##"7!s7 )*s7!7)*7!£7667rrorFile Exists in Filename27a."725757772272zWzW )75y
5 6y(O7yI e zz#! Gxwwz!wzxzzG/xy!4 n!6Gx P Pn6t6! 6t6u)!*"r*r"!g!*fD! 6t!rO(
CP/M Error On Disk I/OInvalid DriveRead/Only FileRead/Only DiskPassword EFun
ction File !,$"h!9"f!27t!HgoO**7A2/0!d61#d p#w#6 !66 *#!)6.#) O(BDOS wM 2
*7w#6#7 .,!45#Raip# l ss llsMAw#M.sM! !)3"!z£rs#V#N#FxNo(#ry %z$rr6r9rMDo!6!h n
t2 r62rz£*9x)**(+"(w++2+2+p!" RAFBGCHDIE33#3-3A3J3S3-Y3uuJ3$uu33333*4P43456(6d
66677'7AgXJv!)3*#V##Vw# ll!J#V#!"(COPYRIGHT (C) 1982, DIGITAL RESEARCH 151282/(+
170000111112 222233 654321"y2!"72727!4#.27!""9"2!7y3K!ob$$!,#V* LOADER y!91""0!
z * ""*og*%DS ! 6 *.pr x,!2 s 2 ! D ! .44 #4"l * 2 a7 7 w!Y #! *l "l " U #D T
!6*%.w#w! 6 r 6 #w.6#6#t#6.wo*.s#r.rm. #V45+ w#w.f.5A "l " l F# !(!(x.+"l ! !
G8* #1A *l g #I*l *l 0qXx#N#F#4#V*.w*DM!&*.& ks#rr+6.""1*D.45.F..#Vx.s#rz 6#N#f
i%$g1vvp3g"TX3*jP#R#Lgbk#N#Fk$&Zcx#oo1!!"w*wWx#&*.s*" Cannot load Program$22128
2 COPYR '82 DRI AXQXX#k#*jT# wy#! 4 !*hywy/w*hw*hIE %0 #*A !g 6* *A *l " 0q"
l x0 xG#Gs&&% o$! #x #Enter User # $No File$ required$ERASE $ (Y/N) $ Press R
ETURN to Continue $ (User 0)$NON-SYSTEM FILE(S) EXIST$ $$$ SUBbHA$DH A!"
$$2M X XXS1-!j 1".2.2 Xck*kb .$.w.6#w.6#w.61. .w.p T+.! y.w2g !PROFILE.S!+2 !+d
O! w+w+ w!5cp mN .+w.2 9 ! ## !7 ! x*l " !ZX! 6 zz 6 %2p 2r DIR TYPE ERASE
RENAME DIRSYS USER u"Qpr AR N !M 545x 6 oG! 2M xff! 2 lfR LL I* * AYl ! 6&%* "
l 45wA IN SUBMIT COM!! 6 #"l !c O!r g. yv -Ti!B I!p#VCOM SUB PRL y!c !" * %.
2P#!g 4*l +"l 2 "Qx2Sl "Tx2V!q p .2* og$2.w#w#w#w. .w#ww ! #49w#$ A I! 6 ! #6m
RAFBGCHDIE1CP/M Version 3.0COPYRIGHT 1982, DIGITAL RESEARCH151282654321 Pres
s RETURN to Continue $ ERROR Not typed $Password $No File$ BDOS Bad Sector$ I
nvalid Drive$Currently Opened$Password Error$ERROR $Invalid or missing delimiter
(s) $Try 'PAGE' or 'NO PAGE' $Requires CP/M 3.0$Enter file $ $ERROR Invalid fil
e name. $11u"*0*HJO/4(N2i!6 *&6!6!4*&i#V##foywOGLxAwO.O6.ae#6g33yy#q#p#w!!#*6w33
3333.33,#w#6 O O 6.,/a3 FFiN#Fogo&ogz#Wa**&**& *&w2!6+6!" !" "Ogl,v!6W ***#"
*N*#"*O* H*#"!6 *P!6*#"**H$*A0*#"**HT*G*#"**H*E*#" **H/22!6!6O2 PROGRAM bub
ble3 (* Programmet sorterer en rkke tal ved bubblesort-metode
n *) (* Bubblesort med flag *)
(* Udskriften kommer p skrmen *)
CONST max 100 TYPE vektor ARRAY(.
1 .. max.) OF INTEGER VAR v vektor i,
j, byt INTEGER slut BOOLEAN BEGIN R
A. -v! q* &! p+q* ! s+p+q* w#6* * #" N#Fy! p+q* ! p+q* ! p+q* ! p+q* ! q* &-
! p+q* ! q 2 ! 6 1! q 2 ! 6 1! r+s+q 2 ! 6* #s#r 1m % %!% s+q+p+q% 2% *" $ w*" #
"" p52& a& & & XXl c!' 6!' 62( *' &l( w( 6( (NDOMIZE FOR i 1 TO m
ax DO (* Vi finder frst nogle tal *) v(.i.) RANDOM(200)
WRITELN(CLRHOM, 'De usorterede tal er') FOR i 1 TO max DO
WRITE(v(.i.) 4) WRITELN i max REPEAT
i i - 1 slut TRUE FOR j 1 TO i DO
IF v(.j.) v(.j + 1.) THEN BEGIN
slut FALSE $' ' 2' O!l6 ( /!' 42( !) q)
R) c) t) ) !+ p+q** ** O%%!, 6!, , .%*, &** 2- *- M%!, 4!. q. . 1!0 p+q*/ H*/
#"/ */ K!2 p+q!3 6#63 *1 s!4 6!3 4*1 #"1 4 2!52 %!6!6l2!6"**2%byt v(.j.)
v(.j.) v(.j + 1.) v(.j + 1.) byt
END UNTIL (i 1) OR slut WRITELN WRI
TELN('De sorterede tal er') FOR i 1 TO max DO WRITE(v(.
i.) 4) WRITELN END. Xl2" %*M*! 6!6/H!6!*&2!652 *M%!4w26 6
6 o&"7 E"9 G" I" " "A "C .*7 DM -J 2X%X*9 E)* G)* I)* )*A )*C )! e .* - 26 * *
H *#" ! RAFBGCHDIE position i IF position 0 (* Fej
lagtigt tegn fundet *) THEN BEGIN
GOTOXY(27 + position, 8) WRITE('') G
OTOXY(27 + position, 9) WRITE('Fejlagtigt tegn - Tast RETURN'
) READLN(retur) END UNTIL positio
n 0 GOTOXY(10, 9) WRITE('Cifrene er ') FOR i
1 TO maxtegn DO BEPROGRAM celsius VAR celsius, fahrenheit
, reamur REAL BEGIN WRITE(CLRHOM) WRITELN('Programmet udskrive
r REAMUR- og FAHRENHEIT-gradtallene,') WRITELN('nr man indtaster gradtallet
for CELSIUS') WRITELN WRITE('Indtast CELSIUS ') READLN(celsius)
reamur celsius * 0.8 fahrenheit celsius * 1.8 + 32 WRITELN WRIT
ELN('Celsius ', celsius 7 2) WRITELN('Reamur ', reamur 7 2)
WRITELN('Fahrenheit ', fahrenheit GIN v(.i.) ORD(cstreng(.i.))
- ORD('0') WRITE(v(.i.) 2) END WRITELN
END. v(.i.) ORD(cstreng(.i.)) - ORD('0') WRITE(v(.i.)
2) END WRITEL.AIL$YV%j 6a#owKh%gFlVG"HvRENTEDAG.PAS28/01
/1991wUZloVkojAh(kg4G,etw 7 2) WRITELN END. 7 2) WRITELN('Reamur
', reamur 7 2) WRITELN('Fahrenheit ', fahrenheit PROGRAM check2
FUNCTION laestal(min, max INTEGER) INTEGER TYPE str5 STRIN
G(.5.) VAR streng str5 ok BOOLEAN heltal, test
, i INTEGER BEGIN (* laestal *) REPEAT BUFLEN 5
READ(streng) VAL(streng, heltal, test) ok (test 0) AND
(min heltal) AND (heltal max) IF NOT ok (* slet svaret *)
THEN FOR i 1 TO LEN(streng) DO WRITE PROGRAM
check1 CONST maxtegn 10 TYPE
cifre 0 .. 9 vektor ARRAY(.1 .. maxtegn.) OF cifre
cifferstreng STRING(.maxtegn.) VAR i, posi
tion INTEGER v vektor cstreng cifferstreng r
etur CHAR BEGIN REPEAT WRITE(CLRHO
M) GOTOXY(10, 5) WRITE('Indtast et helt tal p ', max(C
HR(8), ' ', CHR(8)) UNTIL ok WRITELN laestal heltal E
ND (* laestal *) BEGIN (* check2 *) WRITE('Tast et tal fra 10 til 5
00 ') WRITELN(laestal(10, 500)) END. (* check2 *) ) BEGIN (* ch
eck$A*RSo$A*R xtegn, ' cifre.') GOTOXY(10, 7) WRITE('T
ast tallet her ') FOR i 1 TO maxtegn DO WRITE(' ')
WRITE('') BUFLEN maxtegn GOTOXY(28, 7)
READLN(cstreng) position 0 FOR i LEN(cst
reng) TO maxtegn DO cstreng cstreng + ' ' FOR i ma
xtegn DOWNTO 1 DO IF (cstreng(.i.) '0') OR (cstreng(.i.) '9')
THEN R A F B G C H D I E PROGRAM check3 TYPE str40
STRING(.40.) charset SET OF CHAR FUNCTION laestegn(ledetekst s
tr40 gyldigtegn charset) CHAR VAR ch CHAR BEGIN
(* laestegn *) WRITE(ledetekst) REPEAT READ(KBD, ch)
UNTIL ch IN gyldigtegn WRITELN(ch) laestegn ch END (* lae
stegn *) BEGIN (* check3 *) WRITELN(laestegn('Vlg et af flgende te
gn (4 m k) ', (.'4', '', 'm', 'k'.) WRITE(CLRHOM)
slut FALSE GOTOXY(10, 3) WRITE('Pro
grammet afbrydes ved at taste 0') GOTOXY(10, 5) WR
ITE('Et CPR-nummer angives p formen ddmmaaxxxx') GOTOXY(10, 7)
WRITE('Tast CPR-nummer ') BUFLEN maxtegn
GOTOXY(28, 7) READLN(cprst) IF cprs
t '0' THEN slut TRUE IF )) WRITELN(laeste
gn('Slut (j/n) ', (.'J', 'j', 'N', 'n'.))) WRITELN(laestegn('Tast et ciffer
', (.'0' .. '9'.))) 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&$sNOT slut THEN
BEGIN position 0 F
OR i LEN(cprst) TO maxtegn DO cprst cprst + ' '
FOR i maxtegn DOWNTO 1 DO IF (cprst(.i.)
'0') OR (cprst(.i.) '9') THEN position i
IF position 0 (* Fejlagtigt tegn fundet *) THE
N BEGIN GOTO PROGRAM c
pr CONST maxtegn 10 TYPE
cifre 0 .. 9 cprcifre ARRAY(.1 .. maxtegn.) OF cifre
cprstreng STRING(.maxtegn.) VAR i, position
INTEGER cprst cprstreng ciffer cprcifre ch
CHAR slut BOOLEAN FUNCTION cprok(nummer cprcif
re) BOOLEAN VAR sum, dag, maaned, aar, XY(27
+ position, 8) WRITE(' Fejlagtigt tegn - Tast RETURN'
) READLN(ch) END
END UNTIL (position 0) OR slut IF NOT slut
THEN BEGIN FOR i 1 TO maxtegn
DO ciffer(.i.) ORD(cprst(.i.)) - ORD('0')
GOTOXY(10, 11) WRITE(cprst) IF cprok(ciffer)
i INTEGER test BOOLEAN BEGIN (* cp
rok *) sum 0 test TRUE FOR i 1 TO 7 DO
sum sum + nummer(.11 - i.) * i FOR i 2 TO 4 DO
sum sum + nummer(.5 - i.) * i IF sum MOD 11 0
THEN test FALSE dag nummer(.1.) * 10+ nummer(.2.)
maaned nummer(.3.) * 10 + nummer(.4.) aar nummer(.5.) * 10
+ numTHEN WRITE(' er OK.') ELSE WRITE(' er ikke i orden.')
WRITE(' Tast RETURN ') READLN(ch) END
UNTIL slut END. (* cpr *) WRITE(' Tast RETUR
N ') READ h30Hs0TDoWiU9BTSN7JWjZ n£p93gw7+7oMu) pb.mer(.6.) IF (dag
0) OR (dag 31) OR (maaned 0) OR (maaned 12) THEN test FALSE
IF ((maaned 4) OR (maaned 6) OR (maaned 9) OR
(maaned 11)) AND (dag 31) THEN test FALSE IF (maa
ned 2) AND (dag 29) AND ((aar MOD 4 0) OR (aar 0)) THEN test f
alse cprok test END (* cprok *)
BEGIN (* cpr *) REPEAT REPEAT RAFBGCHDIEPROGRAM cprdato
2 TYPE str6 STRING(.6.) arr ARRAY(.1 .. 6.) OF INTEGER
VAR str str6 cif arr g, h, i, datosum, gsum, hsum, isum, check
, j INTEGER dag, maaned, aar INTEGER ok BOOLEAN BEGIN
WRITE(CLRHOM) REPEAT REPEAT GOTOXY(10, 5) WRITE('
Indtast en dato sledes DDMM') GOTOXY(35, 6) WRITE(CLREOL)
BUFLEN 6 READLN(str) ok TRUE IF PROGRAM cprdat
o TYPE str6 STRING(.6.) arr ARRAY(.1 .. 6.) OF INTEGER
VAR str str6 cif arr g, h, i, datosum, gsum, hsum, isum, check
, j INTEGER ok BOOLEAN BEGIN WRITE(CLRHOM) REPEAT
GOTOXY(10, 5) WRITE('Indtast en dato sledes DDMM') GOTOXY(35, 6
) WRITE(CLREOL) BUFLEN 6 READLN(str) ok TRUE
IF LEN(str) 6 THEN ok FALSE ELSE LEN(str) 6
THEN ok FALSE ELSE FOR j 1 TO 6 DO
IF (str(.j.) '0') OR ('9' str(.j.)) THEN ok FALSE
UNTIL ok FOR j 1 TO 6 DO cif(.j.) ORD(str(.j.)) - ORD('0')
dag cif(.1.) * 10 + cif(.2.) maaned cif(.3.) * 10 + cif(.4.)
aar cif(.5.) * 10 + cif(.6.) IF (dag 0) OR (dag 31) OR (maaned 0)
OR (maaned 12) THEN ok FALSE IF ((maaned 4) OFOR j 1 TO 6 D
O IF (str(.j.) '0') OR ('9' str(.j.)) THEN ok FAL
SE UNTIL ok FOR j 1 TO 6 DO cif(.j.) ORD(str(.j.)) - ORD('0')
datosum cif(.1.) * 4 + cif(.2.) * 3 + cif(.3.) * 2 + cif(.
4.) * 7 + cif(.5.) * 6 + cif(.6.) * 5 WRITELN FOR g 0 TO 9 DO
BEGIN gsum datosum + g * 4 FOR h 0 TO 9 DO BEGIN
hsum gsum + h * 3 FOR i 0 TO 9 DO R (maaned 6
) OR (maaned 9) OR (maaned 11)) AND (dag 31)
THEN ok FALSE IF (dag 29) AND (maaned 2) AND ((aar MOD 4 0) OR (aar
0)) THEN ok FALSE UNTIL ok datosum cif(.1.) * 4 + ci
f(.2.) * 3 + cif(.3.) * 2 + cif(.4.) * 7 + cif(.5.) * 6 + cif(.6.
) * 5 WRITELN FOR g 0 TO 9 DO BEGIN gsum datosum + g
* 4 FOR h 0 TO 9 DO BEGIN hsum gsum
BEGIN isum hsum + i * 2 FOR check 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, ' ')
END END ENDRUN"DISC h.$# (7NOJIb4u5o/Lt#s$*#Dy+&cq
V)E+ h * 3 FOR i 0 TO 9 DO BEGIN i
sum hsum + i * 2 FOR check 0 TO 9 DO IF (i
sum + check) MOD 11 0 THEN WRITE(str, '-', g, h, i, check,
' ') END END END WRITELN END.
THEN WRITE(str, '-', g, h, i, check, ' ')vRNDWALK. 28/01/1991wUo/MGT
QEg 'c.AF5cRY9.oY RAFBGCHDIE PROGRAM personnr VAR
nr STRING11 i1,i2,i3,tal,ta
l1,tal2,tal3 integer z
real p,q integer
BEGIN writeln('tast personnummer')
readln( nr ) tal1 0 tal2 0 tal3 0 z 0 tal 0
p ord(nr7) q arvetype oejenfarve oejenfarvetyp
e END personregister ARRAY(.1 .. max.) OF personpost
VAR person personregister antal INTEGER PROCEDURE retur
VAR ch CHAR BEGIN (* retur *) WRITELN
WRITE('Tast RETURN ') BUFLEN 0 READLN END (* retur *)
PROCEDURE soegkoen VAR i INTEGER soegkoen koenty
pe ch CHAR f len(nr) IF (p 45) AND (q 11)
THEN BEGIN FOR i1 1 TO 3 DO
tal1 tal1 + ((ord(nri1)
- 48) * (5 -i1)) END
BEGIN FOR i2 4 TO 6 DO
tal2 tal2 + ((ord(nr
i2) - 48) * (11 - i2)) undet BOOLEAN BEGIN (* soe
gkoen *) REPEAT GOTOXY(0, 20) WRITE('Tast kn (m/k) ')
WRITE(CHR(8)) BUFLEN 1 READ(ch) UNTIL (ch 'm
') OR (ch 'k') IF ch 'm' THEN soegkoen mand ELSE soe
gkoen kvinde GOTOXY(0, 22) WRITELN('Flgende personer er af det sg
te kn') fundet FALSE FOR i 1 TO antal DO IF person(.i.)
.koen soegkoen THEN END BEGIN
FOR i3 8 TO 11 DO
tal3 tal3 + ((ord(nri3) - 48) * (12 - i3)) END
tal tal1 + tal2 +tal3
z tal MOD 11 IF z 0 THEN
writeln('Personnummeret er korrekt ' , nr )
ELSE write BEGIN
WRITELN(person(.i.).navn) fundet TRUE END I
F NOT fundet THEN WRITELN('Der er ingen personer af det sgte kn')
retur END (* soegkoen *) PROCEDURE soeghoejde VAR
i, soeghoejde, test INTEGER fundet BOOLEAN str str3
BEGIN (* soeghoejde *) REPEAT GOTOXY(0, 20) WRI
TE('Tast hjde ') BUFLEN 3 READLN(str) ln('Dette er et forker
t personnr ',nr) END. WRITEL
N END. x down 3 N"9" 4 N"6" Numeric 5 N"3" Keypad 6 N"M"ENTER key
7 N"'#CA'"Numeric Keypad 8 N"A"CCP cursor left 8 S"S"E80 word left 8
C"'#9E'"CCP start of line 9 N"'#80'" E80 copy block 9 S"'#81'"E80 mo
VAL(str, soeghoejde, test) UNTIL (test 0) AND (100 soeghoejde) AND (s
oeghoejde 220) GOTOXY(0, 22) WRITELN('Flgende personer har hjden
', soeghoejde, '') fundet FALSE FOR i 1 TO antal DO IF
person(.i.).hoejde soeghoejde THEN BEGIN
WRITELN(person(.i.).navn) fundet TRUE END I
F NOT fundet THEN WRITELN('Der er ingen personer med denne hjde') PROG
RAM personer CONST max 100 TYPE str30 STRING(.30.)
str3 STRING(.3.) koentype (mand, kvinde) haarfarvetype (lysblond, m
oerkeblond, hvidt, brunt, sort, roedt, graat, skaldet)
oejenfarvetype (blaa, graa, brune, groenne) personpost RECORD
navn str30 koen koentype ho
ejde INTEGER vaegt INTEGER haarfarve
haarf R A F B G C H D I E retur END (* soeghoejde *) PROCEDUR
E soegvaegt VAR i, soegvaegt, test INTEGER fundet BO
OLEAN str str3 BEGIN (* soegvaegt *) REPEAT
GOTOXY(0, 20) WRITE('Tast vaegt ') BUFLEN 3 READLN(
str) VAL(str, soegvaegt, test) UNTIL (test 0) AND (30 soegvaeg
t) AND (soegvaegt 200) GOTOXY(0, 22) WRITELN('Flgende personer ha
r vgten ', soegvaegt, '') '1' soegoejenfarve blaa '2' soegoejen
farve graa '3' soegoejenfarve brune '4' soegoejenfarve gr
oenne END WRITELN WRITELN('Flgende personer har denne jenfa
rve') fundet FALSE FOR i 1 TO antal DO IF person(.i.).o
ejenfarve soegoejenfarve THEN BEGIN WRIT
ELN(person(.i.).navn) fundet TRUE END IF NOT
fundet THE fundet FALSE FOR i 1 TO antal DO IF
person(.i.).vaegt soegvaegt THEN BEGIN
WRITELN(person(.i.).navn) fundet TRUE END IF
NOT fundet THEN WRITELN('Der er ingen personer med denne vgt')
retur END (* soegvaegt *) PROCEDURE soeghaarfarve VAR
i INTEGER soeghaarfarve haarfarvetype ch CHAR fundet
BOOLEAN BEGIN (N WRITELN('Der er ingen personer med denne jenfarve')
retur END (* soegoejenfarve *) PROCEDURE indlaes V
AR i, test INTEGER str str3 ch CHAR BEGIN (*
indlaes *) WRITE(CLRHOM) i 0 WRITELN('Indtastning af oplys
ninger til personkartotek') WRITELN REPEAT i i + 1
WITH person(.i.) DO BEGIN WRITE('Indtast navn ( stop
per) ') BUFLEN 30* soeghaarfarve *) REPEAT GOTOXY(
0, 20) WRITELN('Tast hrfarve 1. Lysblond 2. Mrkeblond 3. Hvidt ')
WRITE('4. Brunt 5. Sort 6. Rdt 7. Grt 8. Skaldet ') BUFLEN
1 WRITE(CHR(8)) READ(ch) UNTIL ('1' ch) AND (ch '8')
CASE ch OF '1' soeghaarfarve lysblond '2' soeghaarf
arve moerkeblond '3' soeghaarfarve hvidt '4' soeghaarfarve
brunt '5' s READLN(navn) IF navn ''
THEN BEGIN WRITELN
WRITE('Tast kn (m/k) ') REPEAT WRIT
E(CHR(8)) BUFLEN 1 READ(ch)
UNTIL (ch 'm') OR (ch 'k') IF ch 'm'
THEN koen mand ELSE koen kvinde
WRITELN oeghaarfarve sort '6' soeghaarfarve
roedt '7' soeghaarfarve graat '8' soeghaarfarve skaldet
END WRITELN WRITELN('Flgende personer har denne hrfarve')
fundet FALSE FOR i 1 TO antal DO IF person(.i.).haarfarve
soeghaarfarve THEN BEGIN WRITELN(person(
.i.).navn) fundet TRUE END IF NOT fundet
THEN WRITELN('Der er WRITELN REPEAT
WRITE('Tast hjde ') BUFLEN 3 READL
N(str) VAL(str, hoejde, test) UNTIL (tes
t 0) AND (100 hoejde) AND (hoejde 220) WRITELN
REPEAT WRITE('Tast vaegt ') BU
FLEN 3 READLN(str) VAL(str, vaegt, te
st) UNTIL (test ingen personer med denne hrfarve') ret
ur END (* soeghaarfarve *) PROCEDURE soegoejenfarve VAR
i INTEGER soegoejenfarve oejenfarvetype ch CHAR fund
et BOOLEAN BEGIN (* soegoejenfarve *) REPEAT GOTOXY(
0, 20) WRITE('Tast jenfarve 1. Bl 2. Gr 3. Brune 4. Grnne ')
BUFLEN 1 WRITE(CHR(8)) READLN(ch) UNTIL ('1' ch) A
ND (ch '4') CASE ch OF RAFBGCHDIE 0) AND (30 vaegt) AND (vaegt 2
00) WRITELN WRITELN('Tast hrfarve 1. Lysbl
ond 2. Mrkeblond ', '3. Hvidt ')
WRITE('4. Brunt 5. Sort 6. Rdt 7. Grt 8. Skaldet ') RE
PEAT BUFLEN 1 WRITE(CHR(8))
READ(ch) UNTIL ('1' ch) AND (ch '8')
CASE ch OF '1' haarfarv '5' soegoejenfa
rve END UNTIL ch '6' WRITELN END (* menu *)
BEGIN (* personer *) indlaes menu END. (* personer *) "4"Numeric k
eypad 66 N S"'27'"CCP esc 66 C"C"CCP abort 68 S"'#84'"E80 toggle Auto Ind
ent 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 "e lysblond
'2' haarfarve moerkeblond '3' haarfarve hvid
t '4' haarfarve brunt '5' haarfarve
sort '6' haarfarve roedt '7' haar
farve graat '8' haarfarve skaldet END
WRITELN WRITELN WRITE(
'Tast jenfarve 1. Bl 2. Gr 3. Brune ', PROGRAM post1 VAR
vaegt INTEGER porto REAL BEGIN WRITE(CLRHOM) GOTOXY(0,
2) WRITELN(' P o s t t a k s t e r i D a n m a r k p r ',
' 1 . j u n i 1 9 8 4') WRITE(' -----------------------------------
--------------', '-------------------------') GOTOXY(0, 5)
WRITE(' Indtast brevets vgt i gram ') READLN(vaegt) CASE vaegt OF 0
.. 20 porto 270 21 .. 100 porto 370 '4.
Grnne ') REPEAT BUFLEN 1
WRITE(CHR(8)) READ(ch) UNTIL ('1
' ch) AND (ch '4') CASE ch OF '1' oej
enfarve blaa '2' oejenfarve graa '3
' oejenfarve brune '4' oejenfarve groenne
END WRITELN WRITEL101 .. 250 porto
550 251 .. 500 porto 900 501 .. 1000 porto 1300 END
GOTOXY(0, 10) IF (0 vaegt) AND (vaegt 1000) THEN BEGIN
WRITE(' Brevets vgt ', vaegt 4, ' gr') GOTOXY(0, 12)
WRITE(' Porto ', porto / 100 5 2, ' kr') END
ELSE WRITE(' Ulovlig brevvgt!') GOTOXY(0, 20) END. ', porto
/ 100 5 2, ' kr') END ELSE WRITN E
ND END UNTIL (person(.i.).navn '') OR (i max) IF pers
on(.i.).navn '' THEN antal i - 1 ELSE antal max END (*
indlaes *) PROCEDURE menu VAR ch CHAR BEGIN
(* menu *) REPEAT WRITE(CLRHOM) GOTOXY(5, 2) WRITE('Hva
d nsker du at sge efter') GOTOXY(5, 5) WRITE('1. Kn') GOTOXY(5
, 7) WRITE('2. Hjde') GOTOXY(5, 9) WRITE('3. Vgt') PROGRAM postk
opi TYPE str40 STRING(.40.) link
post post RECORD naeste link
navn str40 adresse str40
END VAR ud, top, topkopi, pp link
ch CHAR PROCEDURE return
VAR ch CHAR BEGIN (* return
GOTOXY(5, 11) WRITE('4. Hrfarve') GOTOXY(5, 13) WRITE('5. jenfarve')
GOTOXY(5, 15) WRITE('6. Afslutte programmet') REPEAT
GOTOXY(5, 18) WRITE('Tast nummeret p den nskede funktion ') WRITE(CH
R(8)) (* Backspace *) BUFLEN 1 READ(ch) UNTIL ('
1' ch) AND (ch '6') CASE ch OF '1' soegkoen '2
' soeghoejde '3' soegvaegt '4' soeghaarfarve RAFBGCH
DIE *) WRITE('Tast RETURN ') REPEAT
READ(KBD, ch) UNTIL ch CHR(13) WRITELN
END (* return *) FUNCTION postantal(foerste link)
INTEGER VAR taeller INTEGER
BEGIN (* postantal *) IF foerste NIL
THEN postantal 0 ELSE BEGIN
taeller 1 NIL DO BEGIN WRITELN(pp.nav
n) WRITELN(pp.adresse) WRITELN
pp pp.naeste END return EN
D (* udskriv *) PROCEDURE kopi(top1 link VAR top2 link)
VAR p, bund link i, ant
al INTEGER BEGIN (* kopi *) IF top1
NIL T WHILE foerste.naeste NIL DO
BEGIN taeller taeller + 1
foerste foerste.naeste END
postantal taeller END END (* postantal *)
PROCEDURE indsaet(VAR foerste link nypost link)
BEGIN (* indsaet *) IF foerste NIL (* kden er tom
*) THEN foerste HEN top2 NIL ELSE
BEGIN NEW(top2) top2 top1
bund top2 antal postantal(top1)
FOR i 2 TO antal DO BEGIN NEW(p)
top1 top1.naeste p top1
bund.naeste p bund p E
ND END nypost ELSE IF nypost.navn foerst
e.navn (* fr frste post *) THEN BEGIN
nypost.naeste foerste foerste nypost
WRITELN WRITE(nypost.navn, ' er nu indsat i k
den. ') return END ELSE (
* find rigtig plads til nypost via rekursivt kald *) indsaet(fo
erste.naeste, nypost) END (* END (* kopi *)
BEGIN (* postkopi *) top NIL NEW(ud)
REPEAT WRITE(CLRHOM) GOTOXY(10, 4) WRITE('SORTE
RET KDE') GOTOXY(10, 7) WRITE('I. Indst person i kden.')
GOTOXY(10, 9) WRITE('F. Fjerne person fra kden.') GOTOXY(1
0, 11) WRITE('U. Udskrive kden.') GOTOXY(10, 13) WRITE('A. Afslut
te programmet.') GOTOXY(10, 15) WRIT indsaet *)
PROCEDURE fjern(VAR foerste link glpost link)
BEGIN (* fjern *) IF foerste NIL (* kden tom *)
THEN WRITELN(glpost.navn, ' findes ikke i kden')
ELSE IF foerste.navn glpost.navn (* fjern post 1 *) THE
N BEGIN foerste foerste.naeste
WRITE(glpost.navn, ' er slettet fra kden. ') E ('P. Udskrive
postantal.') GOTOXY(10, 17) WRITE('K. Kopier kden.')
GOTOXY(10, 19) WRITE('Tast kommando ') REPEAT
READ(KBD, ch) UNTIL ch IN (.'I', 'i', 'F', 'f', 'U', 'u', 'P',
'p', 'K', 'k', 'A', 'a'.) WRITELN(ch
) CASE ch OF 'I', 'i' BEGIN
NEW(pp) WRITELN
return END ELSE (* Sg efter
navnet via rekursivt kald *) fjern(foerste.naeste, glpost)
END (* fjern *) PROCEDURE udskriv(foerste link)
VAR pp link
BEGIN (* udskriv *) pp foerste WRITELN
WRITELN('Kden indeholder flgende personer') WRITELN
WHILE pp RAFBGCHDIE WRITE('Navn ') READLN(pp.navn)
WRITE('Adresse ') READLN(pp.adresse)
pp.naeste NIL indsaet(top, pp)
END 'F', 'f' BEGIN WR
ITELN WRITE('Hvem skal fjernes ')
READLN(ud.navn) fjern(top, ud)
END ELSE IF nypost.navn foer
ste.navn (* fr frste post *) THEN BEGIN
nypost.naeste foerste foerste nypost
WRITELN WRITE(nypost.navn, ' er nu indsat i
kden. ') return END ELSE
(* find rigtig plads til nypost via rekursivt kald *) indsaet(
foerste.naeste, nypost) END (* indsaet 'U', 'u' udskriv(top)
'P', 'p' BEGIN WRITELN
WRITE('Antal poster ', postantal(top), ' ')
return END 'K', 'k'
BEGIN kopi(top, topkopi)
udskriv(topkopi) END END
UNTIL ch IN (.'A', 'a'.) END. (* postkopi *) ) *)
PROCEDURE fjern(VAR foerste link glpost link)
BEGIN (* fjern *) IF foerste NIL (* kden tom *)
THEN WRITELN(glpost.navn, ' findes ikke i kden')
ELSE IF foerste.navn glpost.navn (* fjern post 1 *)
THEN BEGIN foerste foerste.naeste
WRITE(glpost.navn, ' er slettet fra kden. ')
PROGRAM postant TYPE str40 STRING(.
40.) link post post RECORD na
este link navn str40 adresse str4
0 END VAR ud, top, pp l
ink ch CHAR PROCEDURE return
VAR ch CHAR BEGIN (* ret
urn *) return END ELSE (* Sg efter n
avnet via rekursivt kald *) fjern(foerste.naeste, glpost)
END (* fjern *) PROCEDURE udskriv(foerste link)
VAR pp link
BEGIN (* udskriv *) pp foerste WRITELN
WRITELN('Kden indeholder flgende personer') WRITELN
WHILE pp NIL D WRITE('Tast RETURN ') REPEAT
READ(KBD, ch) UNTIL ch CHR(13) WRI
TELN END (* return *) FUNCTION postantal(foe
rste link) INTEGER VAR taeller INTEGER
BEGIN (* postantal *) IF foerste NIL
THEN postantal 0 ELSE BEGIN
taeller 1 O BEGIN
WRITELN(pp.navn) WRITELN(pp.adresse) WRITE
LN pp pp.naeste END return
END (* udskriv *) BEGIN (* postant *)
top NIL NEW(ud) REPEAT WRITE(CLR
HOM) GOTOXY(10, 4) WRITE('SORTERET KDE') GOTOXY(10
, 7) WRITE('I. Indst person i kden.') WHILE foerste.naeste NIL
DO BEGIN taeller taeller + 1
foerste foerste.naeste END
postantal taeller END END (* postantal
*) PROCEDURE indsaet(VAR foerste link nypost link)
BEGIN (* indsaet *) IF foerste NIL (* kd
en er tom *) THEN foerste nypost RAFBGCHDIE GOTOXY(
10, 9) WRITE('F. Fjerne person fra kden.') GOTOXY(10, 11) WRITE('
U. Udskrive kden.') GOTOXY(10, 13) WRITE('A. Afslutte programmet.
') GOTOXY(10, 15) WRITE ('P. Udskrive postantal.')
GOTOXY(10, 17) WRITE('Tast kommando ') REPEAT R
EAD(KBD, ch) UNTIL ch IN (.'I', 'i', 'F', 'f', 'U', 'u', 'P', 'p'
, 'A', 'a'.) WRITELN(ch) P
ROGRAM primford VAR i, antal INTEGER FUNCTION prim(n INTEGER)
BOOLEAN VAR i INTEGER primtal BOOLEAN BEGI
N primtal TRUE i 1 WHILE (i ROUND(SQRT(n))) AND primtal
DO BEGIN i i + 1 IF n MOD i 0 THEN
primtal FALSE END prim primtal IF n 1 THEN p
rim FALSE END BEGIN WRITE(CLRHOM) WRITE('Tast antal
CASE ch OF 'I', 'i' BEGIN NEW(p
p) WRITELN WRITE('Na
vn ') READLN(pp.navn) WRITE('Adresse ') READLN(pp.
adresse) pp.naeste NIL
indsaet(top, pp) END 'F', 'f'
BEGIN WRITELN WRITE(
'Hvem ska ') READLN(antal) FOR i 1 TO antal DO BEGIN IF i
MOD 50 1 THEN BEGIN WRITELN
WRITE(i 4, ' ') END IF prim(i) THEN WR
ITE('P') ELSE WRITE('.') IF i MOD 10 0 THEN WRIT
E(' ') END WRITELN END. ITE('P') 88(((88(D88($"88(H0$ff
$ApWMSb3h8r,Oy2l fjernes ') READLN(ud.navn)
fjern(top, ud) END
'U', 'u' udskriv(top) 'P', 'p' BEGIN
WRITELN WRITE('Antal poster ', posta
ntal(top), ' ') return
END END UNTIL ch IN (.'A', 'a'.) END. (*
postant *) n PROGRAM primtal (* Programmet undersger, om et
opgivet tal er et primtal *) VAR tal , graense, divisor INTEGER
primtal BOOLEAN BEGIN WRITE(CLRHOM) WRITE('Hvilket heltal sk
al undersges ') READLN(tal) primtal FALSE IF tal 1 THEN
BEGIN primtal TRUE graense TRUNC(SQRT(tal)+1)
IF (tal MOD 2 0) AND (tal 2) THEN BEGIN
primtal FALSE PROGRAM predef BE
GIN IF CLRHOM '' THEN WRITELN('AK')
ELSE WRITELN('OK') IF CLREOS '' THEN WRITELN('AK')
ELSE WRITELN('OK') IF CLREOL '' THEN
WRITELN('AK') ELSE WRITELN('OK') IF INSLIN ''
THEN WRITELN('AK') ELSE WRITELN('OK') IF
DELLIN '' THEN WRITELN('AK') WRITELN(tal, '
er et lige tal') END divisor 1 IF (tal 3
) AND (tal 2) THEN WHILE primtal AND (divisor grae
nse) DO BEGIN divisor divisor +1
IF (tal MOD divisor) 0 THEN primtal FALSE
IF NOT primtal THEN WRITELN(tal, ' har ', divi
sor, ' som divisor') END END IF primt ELSE WRI
TELN('OK') IF RVSON '' THEN WRITELN('AK')
ELSE WRITELN('OK') IF RVSOFF '' THEN WRITELN(
'AK') ELSE WRITELN('OK') END. ELN('OK') ha
r vundet ', bsejr / antal * 100 5 2, ' %') END. ',
asejr / antal * 100 5 2, ' % og B4TOvX3KiqU4NqwU9qdD+N8ERA,"*.BAK" 1,0BORD
ER 10 UR 8LSdcL RAFBGCHDIEal THEN WRITELN(tal, ' er et primtal')
ELSE WRITELN(tal, ' er ikke et primtal') END. END IF primte 6
THEN BEGIN GOTOXY(38, 12) WRITE('SLUT') GOTOX
Y(0, 20) END WRITELN END. BEGIN GOT
OXY(38, 12) WRITE('SLUT') GOTOXY(0, 20) END WPROG
RAM pythago (* Pythagoriske talst *) VAR max, a, b, c INTEGER
BEGIN WRITE(CLRHOM) WRITE('Indtast verste grnse for tallene ')
READLN(max) WRITELN WRITELN(' A B C') WRITELN F
OR c 1 TO max DO FOR b 1 TO c DO FOR a 1 TO b DO I
F a * a + b * b c * c THEN WRITELN(a 4, b 7, c 8) END. c D
O FOR a 1 TO b DO IF a * a + b * b c * c THEP
ROGRAM printer BEGIN WRITE(CLRHOM) WRITELN(LST, ' -----------
-------------------------------------', '--------------------')
WRITELN(LST, ' forlaget systime a/s ',
'forlaget systime a/s') WRITELN(LST) WRITELN(LST) WRITELN(LS
T, ' P A S C A L ') WRITELN(LST)
WRITELN(LST, ' En grundlggende indfring i') WRITEL
N(LST, ' programmeringssproget ') WRITELN(LST)
WRITELN(LST, ' P o l y P a s c a l ')
WRITELN(LST) WRITELN(LST) WRITELN(LST, ' -------------------------
-----------------------', '--------------------') END. ST)
WRITELN(LST, ' ------------------------------------------------', PA*R
XDDOS CP/M $ P*RXDDOS DATA 44£rRUN"DIS PROGRAM quicksor
CONST antal 1000 TYPE
tabeltype ARRAY(.1 .. antal.) OF INTEGER VAR n,
max, i INTEGER tabel tabeltype PROCEDURE sorter(
venstre, hoejre INTEGER VAR vektor tabeltype) VAR
v, h, midt, byt INTEGER BEGIN (* sorter *)
v venstre h hoejre midt vektor PROGRAM pr
odukt VAR i, j INTEGER BEGIN
FOR i 1 TO 10 DO BEGIN FOR j 1 TO 10 D
O WRITE(i * j 4) WRITELN END
END. FOR j 1 TO 10 DO WRITE(i * j 4)
WRITELN RAFBGCHDIE(.(v + h) DIV 2.) REPEAT
WHILE vektor(.v.) midt DO v v + 1
WHILE midt vektor(.h.) DO h h - 1 IF v h
THEN BEGIN byt vektor(.v
.) vektor(.v.) vektor(.h.) vektor(.h.
) byt v v + 1 h h - 1
END UNTIL v h PROGRAM rentedag (* Samtlige mned
er sttes til 30 dage i dette program *) TYPE str4 STRING(.4.) da
topost RECORD dag , maaned , aar INTEGER END
VAR streng str4 dato datopost test, datonummer, renteda
ge INTEGER BEGIN WRITE(CLRHOM) WITH dato DO BEGIN
REPEAT WRITE('Tast dato (1 - 31) ') BUFLEN 2
READLN(streng) VAL(streng, dag, test) IF venstre h
THEN sorter(venstre, h, vektor) IF v hoejre TH
EN sorter(v, hoejre, vektor) END (* sorter *) BEGI
N (* quicksor *) WRITE(CHR(12)) WRITELN('Programmet finder
n tilfldige hele tal fra 1', ' til max og sorterer dem.')
WRITELN WRITE('Tast antallet n (max 1000) ') READLN(n)
WRITE('Tast den vre grnse max ') READLN(max) WRITEL UNTI
L (test 0) AND (1 dag) AND (dag 31) REPEAT WRITE('Tast
mned (1 - 12) ') BUFLEN 2 READLN(streng) VAL(s
treng, maaned, test) UNTIL (test 0) AND (1 maaned) AND (maaned 12)
REPEAT WRITE('Tast r (1900 - 2100) ') BUFLEN 4
READLN(streng) VAL(streng, aar, test) UNTIL (test
0) AND (1900 aar) AND (aar 2100) IF dag 31 N WR
ITELN('Flgende tal vil blive sorteret') FOR i 1 TO n DO
BEGIN tabel(.i.) RANDOM(max) + 1 WRITE(tabel(.i.
)5) END WRITELN WRITELN sorter(1,
n, tabel) WRITELN('Her er tallene sorteret') WRITELN
FOR i 1 TO n DO WRITE(tabel(.i.)5) WRITELN
END. (* quicksor *) WRITELN FOR i 1 TO n DO THEN dag
30 IF (maaned 12) AND (dag 12) THEN datonummer dag - 30
ELSE datonummer 30 * (maaned - 1) + dag END IF datonumm
er 161 THEN rentedage 161 - datonummer ELSE rentedage 341 - dat
onummer WRITELN WRITELN('Der er ', rentedage, ' dage til terminsdagen'
) END. ELSE rentedage verwrite/Insert 79 S"'#83'"E80 Del Word Left
79 C"'#85'" E80 Del to Start of line E #80 "KC"copy block E #81 "PROGRAM r
ente VAR rente, rentefod, kapital REAL dagantal INTEGER
BEGIN WRITE(CLRHOM) WRITELN('Programmet beregner renten, nr man indt
aster KAPITAL,') WRITELN('RENTEFOD og antal DAGE') WRITELN WRITE(
'Indtast KAPITAL ') READLN(kapital) WRITE('Indtast RENTEFOD ') READLN(
rentefod) WRITE('Indtast ANTAL DAGE ') READLN(dagantal) rente kapital
* rentefod * dagantal / 100 / 360 WRITELN WRITELN('KAPITAL ', kapi
tal 10 2, ' kr') WRITELN('RENTEFOD ', rentefod 10 2, ' %') WRIT
ELN('ANTAL DAGE ', dagantal 10, ' dage') WRITELN('RENTE ', rente 10
2, ' kr') WRITELN END. WRITELN('ANTAL DAGE ', dagantal 10, ' dagedo
wn 3 N"9" 4 N"6" Numeric 5 N"3" Keypad 6 N"M"ENTER key 7 N"'#CA'"Num
eric Keypad 8 N"A"CCP cursor left 8 S"S"E80 word left 8 C"'#9E'"CCP sta
rt of line 9 N"'#80'" E80 copy block 9 S"'#81'"E80 mo RAFBGCHDIEPROGRAM re
ntefod VAR rente, rentefod, kapital REAL dagantal INTEGER
BEGIN WRITE(CLRHOM) WRITELN('Programmet beregner rentefoden, nr ma
n indtaster') WRITELN('KAPITAL, RENTE og antal DAGE') WRITELN WRI
TE('Indtast KAPITAL ') READLN(kapital) WRITE('Indtast RENTE (i kr) ')
READLN(rente) WRITE('Indtast ANTAL DAGE ') READLN(dagantal) rentefod
rente * 100 * 360 / kapital / dagantal WRITELN WRITELN('KAPITAL '
(nypost.navn foerste.navn) THEN (* indst fr foerste *)
BEGIN nypost.frem foerste
nypost.tilbage foerste.tilbage foerste.t
ilbage.frem nypost foerste.tilbage nypost
foerste start END ELSE (* ind
st efter foerste *) BEGIN nypost.fre
m, kapital 10 2, ' kr') WRITELN('RENTE ', rente 10 2, ' kr')
WRITELN('ANTAL DAGE ', dagantal 10, ' dage') WRITELN('RENTEFOD ', rente
fod 10 2, ' %') WRITELN END. WRITELN('ANTAL DAGE ', dagantal 10, ' d
BINOM2 PYSBINOM3 PYSB&BINOM4 PYSEBINTERN PYSH6BINTRAE1PYSL'BINTRAE2PYSTBISEC
PYStBOLDSPILPYScx foerste.frem nypost.tilbage foerste
foerste.frem.tilbage nypost foer
ste.frem nypost foerste start END
END WRITELN WRITE(nypost.navn, '
er nu indsat i kden. Tast RETURN ') READLN(ch) END (
* indsaet *) PROCEDURE fjern(VAR foerste link glpost li
nk) PROGRAM ring TYPE str
40 STRING(.40.) link post post RECORD
frem, tilbage link navn str40
END VAR top, pp, ud link c
h CHAR PROCEDURE indsaet(VAR foerste link nypost lin
k) VAR ch CHAR start
link VAR fundet BOOLEAN
ch CHAR start link BEGIN
(* fjern *) start foerste IF foerste NIL (* kden
tom *) THEN fundet FALSE ELSE
BEGIN WHILE (glpost.navn foerste.navn) AND
(foerste.frem start) DO foerste foers
te.frem IF gl BEGIN (* indsaet *) st
art foerste IF foerste NIL (* kden er tom *) T
HEN BEGIN foerste nypost
foerste.frem foerste foerste.tilbage foerste
END ELSE IF nypost.navn foerste.navn (* fr frste
post *) THEN BEGIN nypo
st.frem foerste nyppost.navn foerste.navn
THEN BEGIN fundet TR
UE IF start.frem start
THEN foerste NIL ELSE
BEGIN IF foerste start
THEN start start.frem foerste.t
ilbage.frem foerste.frem ost.tilbage foerste.tilbage
foerste.tilbage.frem nypost foerste.ti
lbage nypost foerste nypost END
ELSE (* sg frem til rigtig plads til nypost *) BEGIN
WHILE (nypost.navn foerste.navn) AND
(foerste.frem start) DO foerste foerste.frem
IF (foerste.frem start) OR RAFBGCHDIE foerste.
frem.tilbage foerste.tilbage foerste start
END END
ELSE fundet FALSE END IF fundet
THEN WRITELN(glpost.navn, ' er slettet fra kden') ELSE
BEGIN WRITELN(glpost.navn, ' findes ik
ke i kden') foerste start END
REPEAT READ(KBD, ch) UNTIL ch IN (.'I',
'i', 'F', 'f', 'U', 'u', 'B', 'b', 'A', 'a'.)
WRITELN(ch) CASE ch OF 'I', 'i' BEGI
N NEW(pp) WRITELN
WRITE('Navn ') READLN(pp.navn)
pp.frem NIL pp.tilbage NIL
WRITE('Tast RETURN ') READLN(ch)
END (* fjern *) PROCEDURE frem(foerste link)
VAR pp link ch CHAR
BEGIN (* frem *) pp foerste WRITEL
N WRITELN('Kden indeholder flgende personer') WRIT
ELN IF foerste NIL THEN REPE
AT indsaet(top, pp) END
'F', 'f' BEGIN WRITELN
WRITE('Hvem skal fjernes ') READL
N(ud.navn) fjern(top, ud)
END 'U', 'u' frem(top) 'B', 'b' tilbage(
top) END UNTIL ch IN (.'A', 'a'.) END. (*
ring *) 'B', WRITELN(pp.navn) WRI
TELN pp pp.frem UNTIL pp foerste
WRITE('Tast RETURN ') READLN(ch) END (* fr
em *) PROCEDURE tilbage(foerste link) VA
R pp link ch CHAR B
EGIN (* tilbage *) WRITELN WRITELN('Kden indeholde
r flgende personer') PROGRAM rndwalk VAR radius, radius
2, antal, sum, i, x, y, rnd INTEGER BEGIN WRITE(CLRHOM) WRITEL
N('RANDOM WALK') WRITELN WRITE('Tast antal forsg pr. radius ') RE
ADLN(antal) RANDOMIZE WRITELN WRITELN('RADIUS', 'GENNEMSNITLIG TI
D' 30) WRITELN FOR radius 2 TO 10 DO BEGIN radius2 S
QR(radius) sum 0 FOR i 1 TO antal DO BEGIN
x 0 y 0 WRITELN IF foerste NIL
THEN BEGIN foerste foerste
.tilbage pp foerste REPEAT
WRITELN(pp.navn) WRITELN
pp pp.tilbage UNTIL pp foerste END
WRITE('Tast RETURN ') READLN(ch) END
(* tilbage *) BEGIN (* ring * REPEAT sum sum
+ 1 rnd RANDOM(4) CASE rnd OF 0
x x + 1 1 y y + 1 2 x x - 1
3 y y - 1 END UNTIL SQR(x) + SQR(y) radius2
END WRITELN(radius 4, sum / antal 25 2) END END
. UNTIL SQR(x) + SQR(y) radius2 END WRITELN(radius 4,
sum / antal 25 2) END ) top NIL REPEAT
WRITE(CLRHOM) GOTOXY(10,1) WRITE('SORTERET DOBBELT-RI
NG') GOTOXY(10,4) WRITE('I. Indst person i kden.')
GOTOXY(10,6) WRITE('F. Fjerne person fra kden.') GOTOXY(10,8) WR
ITE('U. Udskrive kden.') GOTOXY(10,10) WRITE('B. Udskrive kden ba
gfra.') GOTOXY(10,12) WRITE('A. Afslutte programmet.')
GOTOXY(10,14) WRITE('Tast kommando ') RAFBGCHDIEPROGRAM rumf1 VAR
oenske INTEGER laengde, bredde, hoejde, rumfang REAL radi
us, r1, r2, b1, b2, l1, l2, h REAL BEGIN WRITE(CLRHOM) WRITE
LN('R U M F A N G A F ') WRITELN('---------------------') WRITELN
WRITELN('KASSE ..................... tast 1') WRITELN('CYLINDER ........
.......... tast 2') WRITELN('PYRAMIDE .................. tast 3') WRIT
ELN('PYRAMIDESTUB .............. tast 4') WRITELN('KEGLE ....... flade ')
READLN(l1) WRITE('Indtast pyramidestubbens hjde ') READLN(h)
WRITE('Indtast bredde i den nederste flade ') READLN(b2) WRI
TE('Indtast lngde i den nederste flade ') READLN(l2) WRITELN
rumfang (l1 * b1 + l2 * b2 + SQRT(l1 * b1 * l2 * b2)) * h / 3 WRI
TELN('Pyramidestubbens rumfang ', rumfang 10 2, ' cm3') END
ELSE IF oenske 5 THEN BEGIN WRITELN('RUMFA..
............ tast 5') WRITELN('KEGLESTUB ................. tast 6') WR
ITELN('KUGLE ..................... tast 7') WRITELN('SLUT .................
..... tast 8') WRITELN WRITE('Indtast nske ') READLN(oenske)
WRITE(CLRHOM) IF oenske 1 THEN BEGIN W
RITELN('RUMFANG AF EN KASSE') WRITELN('--------------------')
WRITELN WRITE('Indtast kassens bredde ') READLN(bredde)
WRITE('IndNG AF EN KEGLE') WRITELN('--------------------')
WRITELN WRITE('Indtast keglens hjde ') READLN(hoejde) W
RITE('Indtast radius ') READLN(radius) WRITELN rumf
ang PI * SQR(radius) * hoejde / 3 WRITELN('Keglens rumfang ', rumf
ang 10 2, ' cm3') END ELSE IF oenske 6
THEN BEGIN WRITELN('RUMFANG AF EN KEGLESTUB')
WRITELN('-------------tast kassens lngde ') READLN(laengde) WRITE('In
dtast kassens hoejde ') READLN(hoejde) WRITELN rumfang l
aengde * bredde * hoejde WRITELN('Kassens rumfang er ', rumfang 10
2, ' cm3') END ELSE IF oenske 2 THEN
BEGIN WRITELN('RUMFANG AF EN CYLINDER') WRITELN('--------
---------------') WRITELN WRITE('Indtast cylinderens hjde
') READLN(hoejde) W-----------') WRITELN WRITE(
'Indtast keglestubbens hjde ') READLN(hoejde) WRITE('Indtast rad
ius i verste cirkel ') READLN(r1) WRITE('Indtast radius i nederste c
irkel ') READLN(r2) WRITELN rumfang PI * hoejde * (SQR(r1
) + SQR(r2) + r1 * r2) / 3 WRITELN('Keglestubbens rumfang ', rumfan
g 10 2, ' cm3') END ELSE IF oenske 7 THEN
BEGIN WRITELN('RUMFANG AF ERITE('Indtast radius ') READL
N(radius) WRITELN rumfang PI * SQR(radius) * hoejde
WRITELN('Cylinderens rumfang ',rumfang 10 2, ' cm3') END
ELSE IF oenske 3 THEN BEGIN WRITELN('RUM
FANG AF EN PYRAMIDE') WRITELN('-----------------------') W
RITELN WRITE('Indtast pyramidens hjde ') READLN(hoejde)
WRITE('Indtast bredden i grundfladen ') READLN(N KUGLE') WRITELN('
--------------------') WRITELN WRITE('Indtast kuglens radi
us ') READLN(radius) WRITELN rumfang 4 * PI * radius * ra
dius * radius / 3 WRITELN('Kuglens rumfang ', rumfang 10 2, ' cm3')
END ELSE IF oenske 8 THEN BEGIN
GOTOXY(20, 12) WRITE('S slutter vi for i dag!') GOTOXY(20
, 13) WRITE('------------------------') bredde)
WRITE('Indtast lngden i grundfladen ') READLN(laengde) rumfang hoejd
e * laengde * bredde / 3 WRITELN('Pyramidens rumfang ', rumfang 10
2, ' cm3') END ELSE IF oenske 4 THEN BEGIN
WRITELN('RUMFANG AF EN PYRAMIDESTUB') WRITELN('----------
-----------------') WRITELN WRITE('Indtast bredde i den ve
rste flade ') READLN(b1) WRITE('Indtast lngde i den verste RAFBGCHD
IE WRITELN END ELSE WRITELN('Du har tastet forkert! Prv
igen!') WRITELN END. BUBBLE3 PYSCELSIUS PYSCHECK1 PYSMC
HECK2 PYSCHECK3 PYSrCPR PYSCPRDATO PYSeCPRDATO2PYSCPRNUMREPYSCRAPS2 PYSDE
MOLEN PYSDEMOSTRPYSaden ') READLN(laengde) rumfang hoejde * laengde
* bredde / 3 WRITELN('Pyramidens rumfang ', rumfang 10 2, ' cm3'
) END 4 BEGIN WRITELN('RUMFANG AF EN PYRAMID
ESTUB') WRITELN('---------------------------') WRITELN
WRITE('Indtast bredde i den verste flade ') READLN(b1) W
RITE('Indtast lngde i den verste flade ') READLN(l1) WRITE('Indtast
pyramidestubbens hjde PROGRAM rumf2 VAR oenske INTEGER
laengde, bredde, hoejde, rumfang REAL radius, r1, r2, b1, b2, l1, l2, h
REAL BEGIN WRITE(CLRHOM) WRITELN('R U M F A N G A F ')
WRITELN('---------------------') WRITELN WRITELN('KASSE ............
......... tast 1') WRITELN('CYLINDER .................. tast 2') WRITE
LN('PYRAMIDE .................. tast 3') WRITELN('PYRAMIDESTUB ............
.. tast 4') WRITELN('KEGLE ....... ') READLN(h) WRITE('Indt
ast bredde i den nederste flade ') READLN(b2) WRITE('Indtast lngde i
den nederste flade ') READLN(l2) WRITELN rumfang (l1 *
b1 + l2 * b2 + SQRT(l1 * b1 * l2 * b2)) * h / 3 WRITELN('Pyramidest
ubbens rumfang ', rumfang 10 2, ' cm3') END 5 BE
GIN WRITELN('RUMFANG AF EN KEGLE') WRITELN('------------
--------') WRITELN WRITE.............. tast 5') WRI
TELN('KEGLESTUB ................. tast 6') WRITELN('KUGLE .................
.... tast 7') WRITELN('SLUT ...................... tast 8') WRI
TELN WRITE('Indtast nske ') READLN(oenske) WRITE(CLRHOM) CA
SE oenske OF 1 BEGIN WRITELN('RUMFANG AF EN KASSE')
WRITELN('--------------------') WRITELN WRITE('Indt
ast kassens bredde ') READLN(bredde) WRITE('Indtas('Indtast keglens
hjde ') READLN(hoejde) WRITE('Indtast radius ') READLN(radius
) WRITELN rumfang PI * SQR(radius) * hoejde / 3
WRITELN('Keglens rumfang ', rumfang 10 2, ' cm3') END
6 BEGIN WRITELN('RUMFANG AF EN KEGLESTUB')
WRITELN('------------------------') WRITELN WRIT
E('Indtast keglestubbens hjde ') READLN(hoejde) WRITt kassens l
ngde ') READLN(laengde) WRITE('Indtast kassens hoejde ') READLN(hoej
de) WRITELN rumfang laengde * bredde * hoejde
WRITELN('Kassens rumfang er ', rumfang 10 2, ' cm3') END
2 BEGIN WRITELN('RUMFANG AF EN CYLINDER') WR
ITELN('-----------------------') WRITELN WRITE('Indtast
cylinderens hjde ') READLN(hoejde) WRITE('Indtast radius E('In
dtast radius i verste cirkel ') READLN(r1) WRITE('Indtast radius i
nederste cirkel ') READLN(r2) WRITELN rumfang PI * hoej
de * (SQR(r1) + SQR(r2) + r1 * r2) / 3 WRITELN('Keglestubbens rumf
ang ', rumfang 10 2, ' cm3') END 7 BEGIN W
RITELN('RUMFANG AF EN KUGLE') WRITELN('--------------------')
WRITELN WRITE('Indtast kuglens radius ') READLN(radius)
') READLN(radius) WRITELN rumfang PI * SQR(radi
us) * hoejde WRITELN('Cylinderens rumfang ',rumfang 10 2, ' cm3')
END 3 BEGIN WRITELN('RUMFANG AF EN PYR
AMIDE') WRITELN('-----------------------') WRITELN
WRITE('Indtast pyramidens hjde ') READLN(hoejde) WRITE('
Indtast bredden i grundfladen ') READLN(bredde) WRITE('Indtast lngde
n i grundfl RAFBGCHDIE WRITELN rumfang 4 * PI * radius * radius
* radius / 3 WRITELN('Kuglens rumfang ', rumfang 10 2, ' cm3')
END 8 BEGIN GOTOXY(20, 12) WRITE('S
slutter vi for i dag!') GOTOXY(20, 13) WRITE('---------
---------------') WRITELN END OTHERWISE
WRITELN('Du har tastet forkert! Prv igen!') END WRITELN END
. END OTHER END FOR i 1 TO 5 DO WRITE(sco
refil, score) CLOSE(scorefil) END (* opret *) PROCEDURE updat
e(score scoretype) TYPE listetype ARRAY(.1 .. 6.) OF scoretype
VAR liste listetype byt scoretype i INTEGER
BEGIN (* update *) ASSIGN(scorefil, 'HISCORE.DAT') RESE
T(scorefil) FOR i 1 TO 5 DO READ(scorefil, liste(.i.)) C
LOSE(scorefil) liste(.6.) score x FUXHXH XH*FyVXHXHXH*FQXHXHXHXH*.WXHX*8
F,FjFFFtFxF2FjF FFxFZXhHFFeF&o&XhHFF£FFH !"#$%&'()££QRSTUVQRSTUJnopqrstuvwxyz£££
£!£ i 6 WHILE i 1 DO BEGIN IF liste(.i.).poi
nts liste(.i - 1.).points THEN BEGIN
byt liste(.i.) liste(.i.) liste(.i - 1.)
liste(.i - 1.) byt END i i - 1 END R
EWRITE(scorefil) FOR i 1 TO 5 DO WRITE(scorefil, liste(.i.))
CLOSE(scorefil) END (* update *) PROCEDURE laes VAR
i PROGRAM samrente VAR startkapital, slutkapital, rentefod R
EAL terminer INTEGER BEGIN WRITE(CLRHOM) WRITELN('Program
met beregner SLUTKAPITALEN, nr man indtaster') WRITELN('STARTKAPITAL, RENTE
FOD og antal TERMINER') WRITELN WRITE('Indtast STARTKAPITAL ') READ
LN(startkapital) WRITE('Indtast RENTEFOD ') READLN(rentefod) WR
ITE('Indtast ANTAL TERMINER ') READLN(terminer) slutkapital startkapital
* EXP(terminer * LN( INTEGER score scoretype BEGIN (* laes
*) ASSIGN(scorefil, 'HISCORE.DAT') RESET(scorefil) FOR i 1
TO 5 DO BEGIN READ(scorefil, score) WRITELN(scor
e.points 4, ' ', score.navn) END CLOSE(scorefil) END (* l
aes *) BEGIN (* score *) WRITE(CLRHOM) WRITE('Skal highscore-
listen oprettes (j/n) ') REPEAT READ(KBD, ch) UNTIL (ch 'j')
OR (ch 'n') WRITELN 1 + rentefod / 100)) WRITELN WRITELN('S
TARTKAPITAL ', startkapital 10 2, ' kr') WRITELN('RENTEFOD ', re
ntefod 10 2, ' %') WRITELN('ANTAL TERMINER ', terminer 10, ' terminer')
WRITELN('SLUTKAPITAL ', slutkapital 10 2, ' kr') WRITELN END.
ERMINER ', terminer 10, ' terminer') WRITELN('SLUTKAPITAL ', slFILKOPI
PYSFLADE PYS2FLETNINGPYSzFORKORT PYSIF ch 'j' THEN opret WRITE('Navn (0
stopper) ') READLN(score.navn) WHILE score.navn '0' DO BEGIN
WRITE('Points ') READLN(score.points) update(score)
WRITE('Navn (0 stopper) ') READLN(score.navn) END WRITE('Skal h
ighscore-listen lses (j/n) ') REPEAT READ(KBD, ch) UNTIL (ch '
j') OR (ch 'n') WRITELN IF ch 'j' THEN laes END. (* score
*) READ(KBD, ch) UNTIL (ch 'jPROGRAM score TYPE scoretype
RECORD points INTEGER navn STRING(.30.)
END scorefiltype FILE OF scoretype VAR score
scoretype scorefil scorefiltype ch CHAR PROCEDURE opret
VAR i INTEGER BEGIN (* opret *) ASSIGN(scorefil,
'HISCORE.DAT') REWRITE(scorefil) WITH score DO BEGIN
points 0 navn 'NN' RAFBGCHDIE!0O/UUO#%PG0 "("
TENNIS.SCR'z !w!z!UW!!*w##F###w#!E! !Ww!z)$TENNIS.000t a ') READLN(a) W
RITE('Tast hjre endpunkt b ') READLN(b) WRITE('Tast den nskede relative
njagtighed ') READLN(eps) WRITELN('Arealet er ', integral(a, b, eps) 10 6
) END. ('Tast den nskede relative njagtighed ') INTERHYPPYS4F$INVERS PYS9gJ
OURNAL PYS.KAEDE2 PYSA 1KAEDE3 PYSKKAEDE4 PYST rKALKU PYS9KANNIBALPYSg PROG
RAM sfd VAR tal1, tal2 INTEGER FUNCTION faelles(n, m INTEGE
R) INTEGER BEGIN (* faelles *) IF m 0 THEN faelles
n ELSE faelles faelles(m, n MOD m) END (* faelles *) BEGI
N (* sfd *) WRITE(CLRHOM) WRITE('Indtast 1. tal ') READLN(tal1)
WRITE('Indtast 2. tal ') READLN(tal2) WRITELN('Strste flles divisor for ',
tal1, ' og ', tal2, ' er ', faelles(tal1, tal2)) END. (* sfd *)
K!"n!"n!z6*y/2z2y!"G!# #((&j(k(b(8 08B0# hyAO*2!! rxr222r2h Ofy2x!6 #"!u2!"4
*q#6"Kx"*,&uZ*uD48Okb !4* !#"O$,uyZ7WEPROGRAM skaerm BEGIN WRITE(CLRHO
M) WRITELN(' ------------------------------------------------',
'--------------------') WRITELN(' forlaget systime a/s
', 'forlaget systime a/s') WRITELN WRITE
LN WRITELN(' P A S C A L ') WRI
TELN WRITELN(' En grundlggende indfring i') WRI
TELN(' programmeringssproget 'PROGRAM simpson
VAR a, b, eps REAL FUNCTION f(x REAL) REAL BEGIN
f 1 / SQRT(2 * PI) * EXP(- x * x / 2) END FUNCTION integral(a, b, e
psilon REAL) REAL VAR x, nysum, glsum, h, sum1, sum2 REAL
i, n INTEGER BEGIN n 1 nysum (f(a) + f(b)) * (
b - a) / 2 REPEAT glsum nysum n n * 2 h (b
- a) / n x a sum1 0 FOR ) WRITELN WRITELN
(' P o l y P a s c a l ') WRITELN WRITE
LN WRITELN(' ------------------------------------------------',
'--------------------') END. WRITELN WRITELN(MENUFIL PYS4MORSE1
PYSDMORSE2 PYSNAVNSOEGPYSNAVNSORTPYShNYGAARD PYShNORDHYP PYSIOVERF1 PYS7i 1
TO n DIV 2 - 1 DO BEGIN x x + 2 * h sum1
sum1 + f(x) END x a - h sum2 0 FOR i 1
TO n DIV 2 DO BEGIN X x + 2 * h sum2 sum2
+ f(x) END nysum (f(a) + f(b) + 2 * sum1 + 4 * sum2) * h /
3 UNTIL ABS(glsum-nysum) / ABS(nysum) epsilon integral nysum
END BEGIN WRITE(CLRHOM) WRITE('Tast venstre endepunk RAFBGC
HDIE PROGRAM soeg (* SEARCH
*) (* Programmet undersger, om et givet *) (* tal findes i e
n vektor af tal *) CONST antal 200
TYPE vektor ARRAY(.1 .. antal.) OF INTEGER
VAR v vektor i, tal, nr INTEGER fundet B
OOLEAN BEGIN RANDOMIZE WRITE(CHR(12),'V
i fabrikerer en vektorltype) VAR naeste, i, j, midt, v,
h INTEGER BEGIN FOR i venstre + 1 TO hoejre DO BEGIN
naeste vektor(.i.) (* naeste skal p plads *) v venstre
h i - 1 WHILE v h DO BEGIN
midt (v + h) DIV 2 IF naeste vektor(.midt.) TH
EN h midt - 1 ELSE v midt + 1 END (* WHILE *)
FOR j i - 1 DOW') WRITELN FOR i 1 TO antal DO
v(.i.) RANDOM(1000) FOR i 1 TO antal DO WR
ITE(v(.i.)4) WRITELN WRITE('Tast det givne tal ') READLN(t
al) WRITELN fundet FALSE i 0 REPEA
T i i + 1 IF tal v(.i.) THEN
BEGIN nr i fundet TRUE
END NTO v DO vektor(.j + 1.) vektor(.j.)
vektor(.v.) naeste END (* FOR i *) END BEGIN WR
ITE(CLRHOM) WRITE('Fra hvilken fil skal tallene indlses ') READLN(filn
avn) ASSIGN(indfil, filnavn) RESET(indfil) i 0 sum 0.0
kvadratsum 0.0 WHILE NOT EOF(indfil) DO BEGIN i i + 1
READ(indfil, tabel(.i.)) sum sum + tabel(.i.) kvadrat
sum kvadratsum + SQR(tUNTIL (i antal) OR fundet IF fundet
THEN WRITELN(tal, ' str som nr. ', nr, ' i vektoren') ELSE WRIT
ELN(tal, ' findes ikke blandt tallene i vektoren') END. ' str som nr.
', nr, ' i vektoren') POSTANTPYS&PREDEF PYS!PRIMFORDPYS#PRIMTAL PYS'
KPRINTER PYS+ PRODUKT PYS-PYTHAGO PYS/QUICKSORPYS2abel(.i.)) END n
i middeltal sum / n varians (kvadratsum - sum * sum / n) / (n - 1)
spredning SQRT(varians) sorter(1, n, tabel) mindstevaerdi tabel(
.1.) stoerstevaerdi tabel(.n.) variationsbredde stoerstevaerdi - min
dstevaerdi kvartil1 tabel(.ROUND(n / 4 + 0.49999).) median tabel(.RO
UND(n / 2 + 0.49999).) kvartil3 tabel(.ROUND(n * 3 / 4 + 0.49999).) W
RITELN WRITELN('Observationssttets strrelffBB88llBB$$ffllllll0 $ff$lssffff
ffff008ll808lfffllllffpsff8lffffllllllllX0f8l8vv00000ff008ll88fffflbffffffffffff
00000ffse ', n) WRITELN('Mindstevrdi ', mindstevaerdi)
WRITELN('Strstevrdi ', stoerstevaerdi) WRITELN('Variatio
nsbredde ', variationsbredde) WRITELN('Nedre kvartil
', kvartil1) WRITELN('Median ', median)
WRITELN('vre kvartil ', kvartil3) WRITELN('Middeltal
', middeltal 8 2) WRITELN('Varians '
, varians 8 PROGRAM statfil CONST max 500 TYPE tabelty
pe ARRAY(.1 .. max.) OF INTEGER str14 STRING(.14.) filtype FILE OF
INTEGER VAR tabel, obs, hyp tabeltype filnavn str14 indf
il filtype i, j, n, antal, kumhyp, kvartil1, median, kvartil3 INTEGER
mindstevaerdi, stoerstevaerdi, variationsbredde INTEGER sum, kvadratsum,
middeltal, varians, spredning REAL PROCEDURE sorter(venstre, hoejre IN
TEGER VAR vektor tabe RAFBGCHDIE2) WRITELN('Spredning
', spredning 8 2) FOR i 2 TO n DO hyp(.i.) 0 j 1 obs
(.j.) tabel(.1.) hyp(.j.) 1 FOR i 2 TO n DO BEGIN
IF tabel(.i.) tabel(.i - 1.) THEN BEGIN
j j + 1 obs(.j.) tabel(.i.) END hyp(.j.)
hyp(.j.) + 1 END antal j kumhyp 0 WRITELN WRITELN(
'Obs.vrdi Hyppighed PROGRAM sumbroek VAR
t1, t2, n1, n2 INTEGER PROCEDURE forkort(VAR tael
ler, naevner INTEGER) VAR taellerkopi,
naevnerkopi, rest INTEGER BEGIN (* forkort *)
taellerkopi taeller naevnerkopi naevner
REPEAT rest taellerkopi MOD naevnerkopi tael
lerkopi naevnerkopi Frekvens Kum.Hyp. Kum.Frekv.') WRI
TELN FOR j 1 TO antal DO BEGIN kumhyp kumhyp + hyp(.j.)
WRITELN(obs(.j.) 6, hyp(.j.) 13, hyp(.j.) / n 12 2,
kumhyp 9, kumhyp / n 13 2) END END. SOEG PYSvw%STATFIL PYS RST
ATISTIPYSSUMBROEKPYS naevnerkopi rest UNTIL naevnerkopi 0 (* ta
ellerkopi er nu sfd *) taeller taeller DIV taellerkopi
naevner naevner DIV taellerkopi END (* forkort *)
BEGIN (* sumbroek *) WRITE(CHR(12), 'Tast frste brks
tller og nvner ') READLN(t1, n1) WRITE('Tast anden br
ks tller og nvner ') READLN(t2, n2) WRITE(t1, '/', n1,
' + ', t2, '/', n2, ' ')654321$Nwy!"(9"f1f!2!#foCOPYRIGHT (C) 1982, DIGITAL RE
SEARCH 15128222dLzN#VS !O!!M8GW x(v* M!qOWG*!CX2izn&2y2!/og2N7 08G
t1 t1 * n2 + t2 * n1 (* Obs fare for overflow *) n1 n1 * n2
forkort(t1, n1) WRITELN(t1, '/', n1) END. (*
sumbroek *) ) n1 n1 * n2 forkort(t1, n1) UD6 PY
SUPCASE PYS4VAREFIL PYS/lVAREPOSTPYSVARER1 PYSVARER2 PYSVOKALER PYS
PROGRAM statisti TYPE array100 ARRAY(.1 .. 100.) OF REAL str2
0 STRING(.20.) VAR tabel array100 streng str20 n, ant
al, test INTEGER x, middeltal, varians, spredning, sum, kvadratsum REAL
BEGIN WRITE(CLRHOM) WRITELN('Indtast tal ( stopper)') sum
0 kvadratsum 0 n 0 WRITE(' ') READLN(streng) WHILE st
reng '' DO BEGIN VAL(streng, x, test) IF test 0 w
" 474R!3H77c!o#E4#V)3G##!4b44k44##N#F##V##foo$$22g-*w7"333+3*7#og7O*s#r#w!w/w//.
H*e7)4g-04"!k-*w7)3*c7)3-&&#k-*s7"73r2-,-,--//*e7W£*c7"e7£og"c72722(2#%$/*227/wB
/p6+%027w!A!P1 20/W*O2$R&*e7)37r THEN BEGIN n
n + 1 sum sum + x kvadratsum kvadratsum + SQR(x
) END ELSE WRITELN('Ulovligt tal - om igen!') W
RITE(' ') READLN(streng) END middeltal sum / n varian
s (kvadratsum - SQR(sum) / n) / (n - 1) spredning SQRT(varians) WRIT
ELN WRITELN('Middeltal ', middeltal 8 4) WRITELN('Spredning ', spred
ning 8 4) END. rians) RAFBGCHDIEPROGRAM tabel CONST start
1.0 slut 3.0 spring 0.1 VAR x REAL i INTEGER
BEGIN WRITE(CLRHOM) WRITELN('x' 10, 'x(1/2)' 10, 'x(1/3)' 1
0, 'x2' 10, 'x3' 10) x start i 1 REPEAT IF i MOD 5 1
THEN WRITELN WRITELN(x 10 5, SQRT(x) 10 5, EXP(LN(x) / 3) 1
0 5, SQR(x) 10 5, SQR(x) * x 10 5) x x + spring
i i + 1 UNTIL x SSS CCCCCCC AA AA LLLLLLL') END. SS
CC AA AA LL') WRITELN('PP AA AA SSSSSy iKf8yXm
zp5$YrFdZaojZ-qov1wtG8!qkT)SZ9kbwNe"bSl5*KL4 !PzL4d.y$5DvNek'jc qIjt vTREGRUP.PA
S28/01/1991wU7/sQen)qb*$R69sot&jn$hslut END. SQR(x) 10 5, S
QR(x) * x 10 5) x x + spring i i + 1 UNTIL x vTRECIFRE.P
AS28/01/1991wU/EGhxBl3fBz40!ibO6g2/egFX4F'9b64D-LzwEoNMgBhh3"4'HTZEOh'tD$5x ,wnM
o!itrUEcuZKzzP+NehV5FuX gsD" PROGRAM terning2 (* Kast
med to terninger. Hyppighedsfordeling for summen *) TYPE
oejesum 2 .. 12 oejehyppighed ARRAY(.oejesum.) OF INTEGER
VAR sum oejesum hyppighed oejehyppighed
kast1, kast2, i, antal INTEGER BEGIN
RANDOMIZE WRITE(CHR(12), 'Indtast antal kast ') READLN(antal)
FOR sum 2 TO 12 DO hyppigPROGRAM talfoelg VAR a, tae
ller INTEGER BEGIN WRITE(CLRHOM) WRITE('Indtast a ') READ
LN(a) taeller 1 WRITE(a 5) WHILE a 1 DO BEGIN
taeller taeller + 1 IF ODD(a) THEN a 3 * a + 1
ELSE a a DIV 2 WRITE(a 5) END WRITELN WRITELN('Flgen
har lngden ', taeller -1) END. ELSE a a DIV 2 WRITE(a 5)
END WRITELN WRITELN('Flgenhed(.sum.) 0 FOR i 1 TO antal
DO BEGIN kast1 RANDOM(6) + 1 kast2
RANDOM(6) + 1 sum kast1 + kast2 hyppighed(.sum.)
hyppighed(.sum.) + 1 END WRITELN WRITELN('SU
M HYPPIGHED') FOR sum 2 TO 12 DO WRITELN(sum2, hyppi
ghed(.sum.)11) END. WRITELN('SUM HYPPIGHED') FOR sum 2
TO 12 DO WRITELN(sum2, hypG.,! wck,!,!x,!,#,#P,P,vqO-'&,'.,(!Vq##w7
!7WM)++7+!TJ!7!7+x!7+w4 +P*W*+P**!!#O#F s+Os#r(+y+*7!7W*y7#Vx7+27w!w#K+WK+*7"7J
!T*77+"+ !S0X7*q(*!77*27+27*ODM%*r"7"727727*£77+PROGRAM trecifre VAR t
al REAL felter INTEGER PROCEDURE trecif(tal REAL felter INTEGER)
VAR decimaler, hel, mellemrum, space, i INTEGER heldel,
decdel REAL decimalstreng STRING(.2.) helstreng STRING(.16.)
fortegn BOOLEAN BEGIN (* trecif *) IF tal 0 T
HEN fortegn TRUE ELSE fortegn FALSE tal ABS(tal) tal
INT(tal * 100 + 0.5) / 100 heldel INT(tPROGRAM tegn BEGIN WRITELN(
'PPPPPP AA SSSSSSSS CCCCCCC AA LL') WRITELN('PP
PP AAAA SS CC AAAA LL') WRITELN('PP PP
AA AA SS CC AA AA LL') WRITELN('PPPPPP AA A
A SSSSSSSS CC AA AA LL') WRITELN('PP AAAAAAAA
SS CC AAAAAAAA LL') WRITELN('PP AA AA S
S CC AA AA LL') WRITELN('PP AA AA SSSSS RAFBGC
HDIEal) decdel tal - heldel decimaler TRUNC(decdel * 100 + 0.5)
IF decimaler 10 THEN STR(decimaler 2, decimalstreng) E
LSE BEGIN STR(decimaler 1, decimalstreng)
decimalstreng '0' + decimalstreng END IF heldel 0 T
HEN hel TRUNC(LN(heldel) / LN(10)) +1 ELSE hel 1 STR(heldel 1
6, helstreng) IF hel 1 THEN helstreng COPY(helstreng, 1, 1) +
COPY(helsPROGRAM trekant TYPE talpar RECORD x, y R
EAL END talsaet ARRAY(.1 .. 3.) OF talpar side ARRAY(.
1 .. 3.) OF REAL VAR pkt, v talsaet si side s, areal REAL
i INTEGER BEGIN WRITE(CLRHOM) FOR i 1 TO 3 DO BEGI
N WRITE('Tast ', i, '. punkts frstekoordinat ') READLN(pkt(.i.
).x) WRITE('Tast ', i, '. punkts andenkoordinat ') READLN(pkt
(.i.).y) treng, 3, hel -1) ELSE helstreng COPY(helstreng, 1, 1)
mellemrum (hel - 1) DIV 3 space felter - hel - mellemrum - 3
IF fortegn THEN space space -1 IF space 0 THEN spa
ce 0 FOR i 1 TO space DO WRITE(' ') IF fortegn
THEN WRITE('-') FOR i 1 TO hel DO BEGIN WRITE(COPY(
helstreng, i, 1)) IF ((hel - i) MOD 3 0) AND (i hel) T
HEN WRITE(' ') END FOR i 1 TO 3 DO BEGIN WRITELN(i,
'. punkts frstekoordinat ', pkt(.i.).x 6 3) WRITELN(i, '. punkts and
enkoordinat ', pkt(.i.).y 6 3) END v(.1.).x pkt(.2.).x - pkt(.1.
).x v(.1.).y pkt(.2.).y - pkt(.1.).y v(.2.).x pkt(.3.).x - pkt(.2.).
x v(.2.).y pkt(.3.).y - pkt(.2.).y v(.3.).x pkt(.1.).x - pkt(.3.).x
v(.3.).y pkt(.1.).y - pkt(.3.).y FOR i 1 TO 3 DO BEGIN
si(.i.) SQRT( END WRITE('.') WRITE(decimalstreng) END
(* trecif *) BEGIN (* trecifre *) WRITE(CLRHOM) REPEAT
WRITELN WRITE('Indtast et tal (C stopper) ') READLN(tal) WRITE('I
ndtast feltlngden ') READLN(felter) trecif(tal, felter) UNTIL FALSE
END. (* trecifre *) WRITE('Indtast feltlngden ')vTREKANT.PAS28/01/19
91wU/x9TWSo7 8)G ZGJd6£f2SQR(v(.i.).x) + SQR(v(.i.).y)) WRITELN('Side '
, i, ' har lngden ', si(.i.) 6 3) END s (si(.1.) + si(.2.) + si
(.3.)) / 2 areal SQRT(s * (s - si(.1.)) * (s - si(.2.)) * (s - si(.3.)))
WRITELN('Areal bestemt v.h.a. Herons formel ', areal 6 3) areal 1 /
2 * abs(v(.1.).x * v(.2.).y - v(.1.).y * v(.2.).x) WRITELN('Areal bestemt v
.h.a determinantmetoden ', areal 6 3) END. (v(.1.).x * v(.2.).y - v(.1.).y
* v(.2.).x) WRITELN('AreaPROGRAM tregrup TYPE str6 STRING(.6.)
VAR streng1, streng2 str6 i, laengde, n, nkopi INTEGER f
ortegn BOOLEAN BEGIN WRITE(CLRHOM) REPEAT WRITE('Indt
ast et heltal (0 stopper) ') READLN(n) nkopi n fortegn n 0
n abs(n) STR(n, streng1) laengde LEN(streng1) streng2
'' FOR i 1 TO laengde DO BEGIN streng2 streng1(.la
engde + 1 - i.) + streng2 33#3-3A3J3S3-Y3uuJ3$uu33333*4P43456(6d66677'7AgXJv!)
3*#V##Vw# ll!J#V#!"(COPYRIGHT (C) 1982, DIGITAL RESEARCH 151282/(+170000111112 2
22233 654321"y2!"72727!4#.27!""9"2!7y3K!ob$$!,#V* LOADER y!91""0!z * ""*og*%DS
IF (i 3) AND (laengde 3) THEN streng2 ' ' + streng2
END WRITE(nkopi, ' kan skrives sledes ') IF fortegn
THEN WRITE('-') WRITELN(streng2) WRITELN UNTIL nkopi 0 EN
D. ledes ') IF fortegn THEN WRITE('-') WRITELN(streng2)
WRITELN UNTIL nkopi 0 ENDNmY*Cru8.UKqX+c38-QZgbmfb,g RAFBGCHDIE
PROGRAM trigonom VAR gradtal, radiantal REAL BEGIN WRITE(
CLRHOM) WRITELN('Programmet beregner COSINUS, SINUS og TANGENS') WRITE
LN('til et vilkrligt indtastet gradtal') WRITELN WRITE('Indtast GRADta
l ') READLN(gradtal) radiantal gradtal * PI / 180 WRITELN WRITEL
N('COS(', gradtal 6 2, ') ', COS(radiantal) 7 4) WRITELN('SIN(', gradta
l 6 2, ') ', SIN(radiantal) 7 4) WRITELN('TAN(', gradtal 6 2, ') ',
WRITE('Indtast en tekst (ingen tekst stopper) ') BUFLEN 40
READLN(streng) WRITELN('''', streng, ''' kan ogs skrives ') WRITEL
N(uppercase(streng)) WRITELN UNTIL (streng '') END. (* upcase *)
, vVAREFIL.PAS28/01/1991wT/vE 8U%0o£*0Y%%+$j'u.qK!fe.J6z£+Bk4jaa#d(C,AKL*
SIN(radiantal) / COS(radiantal) 7 4) WRITELN END. ) WRITEL
N('TAN(', gradtal 6 2, ') ', 3bPde6a(n(t$ y-qLt#E$£'JWN'rRIT76"JW&v8wYFAVDv
UD6.PAS28/01/1991wUp8imzaNUO6E!eli0F6/RMd1V+OEqn"zPROGRAM varefil CONST
varemax 500 TYPE parpost RECORD varenummer, p
ostnummer INTEGER END indextype ARRAY(.1 .. varemax.) OF p
arpost str30 STRING(.30.) varepost RECORD nr INTE
GER navn str30 pris REAL
beholdning, minimum INTEGER END VAR index index
type indexfil FILE OF parpost artikelfil FILPROGRAM ud6 (* Progra
mmet viser indlsning via tastaturet *) (* og udlsning p printeren
*) VAR antal INTEGER enhedspris REAL varenavn STRING(.25.)
BEGIN WRITE(CHR(12),'Tast varens navn ') READLN(varenavn) WRITE('Tast
antal enheder ') READLN(antal) WRITE('Tast varens enhedspris ') READLN(en
hedspris) WRITELN WRITELN(LST,'Varenavn',varenavn22) WRITELN(LST,'Antal
varer ',antal10) WRITELN(LST,'Varens enhedspris E OF varepost
postantal, i INTEGER ch CHAR PROCEDURE sorter VAR
slut BOOLEAN byt parpost i, j INTEGER BEGIN (* s
orter *) i postantal REPEAT i i - 1 slut TRUE
FOR j 1 TO i DO IF index(.j.).varenummer index(.j + 1.).v
arenummer THEN BEGIN slut FALSE
byt index(.j.) index(.j.) i ',enhedspris102)
WRITELN(LST,'Samlet pris ',antal*enhedspris102) END. QBJor0gkM!CM58U
ym2*I5vUPCASE.PAS28/01/1991wU/s7xwl-e,IT+ S-%6wy(NkbH/,g(6W-,E4Sg4SbdbibcQF""qpa
WARr*6)Z(£x0)"Wzndex(.j + 1.) index(.j + 1.) byt
END UNTIL (i 1) OR slut END (* sorter *) PROCEDURE retur
VAR ch CHAR BEGIN (* retur *) WRITE('Tast RETU
R ') REPEAT READ(KBD, ch) UNTIL ch CHR(13) END (* r
etur*) PROCEDURE opret VAR varefilnavn, indexfilnavn STR
ING(.14.) BEGIN (* opret *) WRITE(CLRHOM) GOTOXY(5, 2)
WRITE('Hvad skal det nyePROGRAM upcase TYPE str40 STRING(.40.)
VAR streng str40 FUNCTION uppercase(str str40) str40 VA
R i INTEGER s str40 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 + str(.i.)
uppercase s END (* uppercase *) BEGIN (* upcase *) WRITE
(CLRHOM) REPEAT RAFBGCHDIE varekartotek hedde ') READ(varefilna
vn) GOTOXY(5, 4) WRITE('Hvad skal indexfilen hedde ') READ(indexfi
lnavn) ASSIGN(artikelfil, varefilnavn) ASSIGN(indexfil, indexfilna
vn) REWRITE(artikelfil) REWRITE(indexfil) postantal 0
GOTOXY(5, 6) WRITE(varefilnavn, ' og ', indexfilnavn, ' er nu oprette
t') GOTOXY(5, 8) retur END (* opret *) PROCEDURE hvilk
efiler VAR varefilnavn, indexfilR ch CHAR i INTE
GER BEGIN (* slet *) WRITE(CLRHOM) GOTOXY(5, 2) WRITE
('Tast varenummer ') READ(nummer) i 0 REPEAT i i
+ 1 UNTIL (index(.i.).varenummer nummer) OR (i postantal) IF in
dex(.i.).varenummer nummer THEN BEGIN GOTOXY(5
, 4) WRITE('Dette varenummer findes ikke') END ELSE
BEGIN SEEK(artikelfil, index(.i.).postnunavn STRING(.14.)
i INTEGER BEGIN (* hvilkefiler *) WRITE(CLRHOM) GOTO
XY(5, 2) WRITE('Hvad hedder varekartoteket ') READLN(varefilnavn)
GOTOXY(5, 4) WRITE('Hvad hedder dets indexfil ') READLN(indexfilnavn)
ASSIGN(artikelfil, varefilnavn) ASSIGN(indexfil, indexfilnavn)
RESET(artikelfil) RESET(indexfil) i 0 WHILE NOT EOF(index
fil) DO BEGIN i i + 1 READ(indexfmmer)
READ(artikelfil, vare) SEEK(artikelfil, index(.i.).postnummer)
GOTOXY(5, 4) WRITE('Skal ''', vare.navn, ''' slettes (J/N) ')
REPEAT READ(KBD, ch) UNTIL ch IN (.'J', 'j',
'N', 'n'.) IF ch IN (.'J', 'j'.) THEN
BEGIN vare.nr -1 WRITE(artikelfil, va
re) index(.i.).varenummer -1 END
il, index(.i.)) END postantal i GOTOXY(5, 6) ret
ur END (* hvilkefiler *) PROCEDURE udskriv VAR udf
il TEXT udnavn STRING(.4.) vare varepost ch CHAR
i INTEGER BEGIN (* udskriv *) WRITE(CLRHOM) GOTOX
Y(5, 2) WRITE('nskes udskrift p skrm eller printer (S/P) ') REPEAT
READ(KBD, ch) UNTIL ch IN (.'S', 's', 'P', 'p'.) WRITELN(ch)
END sorter GOTOXY(5, 6) retur END (* slet *)
PROCEDURE ret VAR nummer INTEGER vare varepost
ch CHAR i INTEGER BEGIN (* ret *) WRITE(CLRHOM)
GOTOXY(5, 2) WRITE('Tast varenummer ') READ(nummer) i 0
REPEAT i i + 1 UNTIL (index(.i.).varenummer nummer) OR (i
postantal) IF index(.i.).varenummer nummer THEN BEGI
N WRITELN IF ch IN (.'S', 's'.) THEN udnavn 'CON'
ELSE udnavn 'LST' ASSIGN(udfil, udnavn) REWRITE(udfil) i
0 WHILE i postantal DO BEGIN i i + 1 IF
index(.i.).varenummer 0 THEN BEGIN
SEEK(artikelfil, index(.i.).postnummer) READ(artikelfil, vare)
WITH vare DO BEGIN WRI
TELN(udfil, ' GOTOXY(5, 4) WRITE('Dette varenummer findes ikke')
END ELSE BEGIN SEEK(artikelfil, index(
.i.).postnummer) READ(artikelfil, vare) SEEK(artikelfi
l, index(.i.).postnummer) WITH vare DO BEGIN
GOTOXY(5, 4) WRITE('N Varenavn ', navn) GOTOXY(5, 6)
WRITE('P Enhedspris ', pris 7 2) GOTOXY(5, 8) WRITE('B Varebe
holdning ', beholdning) Varenummer ', nr 7,
' Vare ', navn) WRITELN(udfil, ' Enhedspris ',
pris 7 2, ' Beholdning ', beholdning 6,
' Minimumsbeholdning ', minimum 6)
WRITELN(udfil) END END END W
RITELN retur END (*udskriv *) PROCEDURE slet VAR
vare varepost nummer INTEGE R A F B G C H D I E GOTOXY(5
, 10) WRITE('M Minimumsbeholdning ', minimum) GOTOXY(5, 12) WRI
TE('F FRDIG') REPEAT GOTOXY(0, 14) WRITE(CLR
EOS) GOTOXY(5, 14) WRITE('Tast kommando (N/P/B/M/F) ')
REPEAT READ(KBD, ch) UNTIL
ch IN (.'N', 'n', 'P', 'p', 'B', 'b', 'M', 'm',
'F', 'f'.) WRITE(ch) IF NOT (ch IN (.'F',
'nummer.).varenummer nummer index(.indexnummer.).postnummer
postantal - 1 END WITH nyvare DO BEGI
N nr nummer GOTOXY(5, 4) WRITE('Varenavn ')
READ(navn) GOTOXY(5, 6) WRITE('Enhedspris ')
READ(pris) GOTOXY(5, 8) WRITE('Varebeholdning ')
READ(beholdning) GOTOXY(5, 10) WRITE('Minimum
sbeholdningf'.)) THEN BEGIN
GOTOXY(5, 16) WRITE('Tast ny vrdi ') END
CASE ch OF 'N', 'n' READ(navn)
'P', 'p' READ(pris) 'B', 'b' READ(beholdnin
g) 'M', 'm' READ(minimum) END
IF NOT (ch IN (.'F', 'f'.)) THEN
BEGIN ') READ(minimum) E
ND SEEK(artikelfil, index(.indexnummer.).postnummer) W
RITE(artikelfil, nyvare) sorter END GOTOXY(5, 12)
retur END (* indsaet *) BEGIN (* varefil *) WRITE(CLRHO
M) GOTOXY(5, 2) WRITE('V A R E R E G I S T E R') GOTOXY(5, 4) WRITE('S
kal der oprettes et nyt vareregister (J/N) ') REPEAT READ(KBD, ch)
UNTIL ch IN (.'J', 'j', 'N', 'n'.) GOTOXY(5, 18)
retur END UNTIL ch IN (.'F', '
f'.) WRITE(artikelfil, vare) END END
END (* ret *) PROCEDURE indsaet VAR nyvare varepost
indexnummer, nummer, i INTEGER BEGIN (* indsaet *) WR
ITE(CLRHOM) GOTOXY(5, 0) WRITE('NY VARE I LAGERREGISTERET') GOTOXY
(5, 2) WRITE('Tast varenummer ') READLN(nummer) IF ch IN (.'J', 'j'.)
THEN opret ELSE hvilkefiler REPEAT WRITE(CLRHOM)
GOTOXY(5, 2) WRITE('V A R E R E G I S T E R') GOTOXY(5, 6) WRITE('U Udskr
ive hele vareregisteret') GOTOXY(5, 8) WRITE('L Lse eller rette en varepo
st') GOTOXY(5, 10) WRITE('S Slette en varepost') GOTOXY(5, 12) WRI
TE('I Indstte en ny varepost') GOTOXY(5, 14) WRITE('A Afslutte programkrs
len') GOTOXY(5, 18) WRITE('Tast kommando (U/L/S/I/A) ') (* Fin
des varen i forvejen *) i 1 WHILE (index(.i.).varenummer nummer)
AND (i postantal) DO i i + 1 IF index(.i.).varenummer nummer
THEN BEGIN GOTOXY(5, 4) WRITE('Dette varenumme
r findes allerede') END ELSE BEGIN I
F postantal 0 (* Helt tomt register *) THEN BEG
IN postantal 1 indexnummer 1
REPEAT READ(KBD, ch) UNTIL ch IN (.'U', 'u', 'L', 'l', 'S', '
s', 'I', 'i', 'A', 'a'.) WRITE(ch) CASE ch OF 'U', 'u' u
dskriv 'L', 'l' ret 'S', 's' slet 'I', 'i' indsaet
END UNTIL ch IN (.'A', 'a'.) SEEK(indexfil, 0) FOR i 1 T
O postantal DO WRITE(indexfil, index(.i.)) CLOSE(artikelfil) CL
OSE(indexfil) WRITELN END. (* varefil *) index(.1.).varenummer
nummer index(.1.).postnummer 0 END
ELSE IF index(.1.).varenummer 0 (* Gl post kan bruges *)
THEN BEGIN indexnummer 1
index(.1.).varenummer nummer END ELSE (* Tilfj n
y post *) BEGIN postantal postantal + 1
indexnummer postantal index(.index !R!A!F!B!G!C!H!D
!I!E PROGRAM varer1 VAR nummer INTEGER
BEGIN WRITE(CHR(12),'Indtast varenummer ') READLN(num
mer) WRITELN IF nummer 1 THEN WRITELN(numme
r3,' er et ulovligt varenummer') ELSE IF nummer 20 THE
N WRITE('Vare nummer ',nummer3,' ligger i varegruppe 1.') ELSE IF num
mer 40 THEN WRITE('Vare nummer ',nummer3,' ligger i varegruppe 2.
') ELSE PROGRAM varepost CONST max 100 TYPE st
r30 STRING(.30.) str5 STRING(.5.) vare RECORD nummer
INTEGER navn str30 pris REAL antal
INTEGER END varekartotek ARRAY(.1 .. max.) OF vare VAR
artikel varekartotek antal, i, test1 INTEGER streng str5
BEGIN WRITE(CLRHOM) WRITELN('Indtast oplysninger til varekartoteket
') i 0 REIF nummer 60 THEN WRITE('Vare nummer ',nummer
3,' ligger i varegruppe 3.') ELSE IF nummer 80 THEN WR
ITE('Vare nummer ',nummer3,' ligger i varegruppe 4.') ELSE IF nummer
100 THEN WRITE('Vare nummer ',nummer3,' ligger i varegruppe 5.')
ELSE WRITE(nummer3,' er et ulovligt varenummer') WRITELN
END. er i varegruppe 5.') ELSE WRITE(nummer3,' er e
t ulovligt varenummer') PEAT i i + 1 WRITELN WIT
H artikel(.i.) DO BEGIN REPEAT WRITE('Tast vare
nummer ( stopper) ') BUFLEN 5 READLN(streng)
VAL(streng, nummer, test1) UNTIL (test1 0) OR (streng '')
IF streng '' THEN BEGIN
WRITE('Tast varenavn ') READLN(navn)
REPEAT WRITE('Tast e PROGRAM varer2
VAR nummer INTEGER BEGIN WRITE(CHR(12), 'Ind
tast varenummer ') READLN(nummer) WRITELN WRITE('Vare nummer '
, nummer3, ' ligger i varegruppe ') CASE nummer OF 1 .. 20
WRITELN('1') 21 .. 40 WRITELN('2') 41 .. 60 WRITELN(
'3') 61 .. 80 WRITELN('4') 81 .. 100 WRITELN('5')
OTHERWISE WRITELN(' *** Forkert varenummenhedspris ')
READLN(streng) VAL(streng, pris, test1)
UNTIL (test1 0) AND (pris 0) REPEAT
WRITE('Tast varebeholdning ') BUFLEN 5
READLN(streng) VAL(streng, antal, test1)
UNTIL test1 0 END END UNTIL (streng
'') OR (i max) (* Nu udskrives kartoteket *) IF streng r') E
ND END. 81 .. 100 WRITELN('5') OTHERWISE WR
ITELN(' *** Forkert varenummeeXBShpsg2)8H'!*aQ,wNp#Bq8xMQYw&Diic&qR£AJ&KZc'12o)N
tj2IDkTPnEV'YzxHxY0Yz#)&Zlr+JG$/y#DC-"3CM)'87(,a( mQ55Fc1#b H7fLuc7dE/lIX&KUDKVH
5Q '' THEN antal i - 1 ELSE antal max FOR i 1 TO antal DO
WITH artikel(.i.) DO BEGIN WRITELN WRITELN
('Artikelnummer ', nummer) WRITELN('Artikelnavn ', navn)
WRITELN('Artikelpris ', pris 7 2) WRITELN('Artikelantal ', anta
l) END END. vn) WRIgB2a&Jw$(FgU7i A'ky2(RYgiB)De)DtDouux
+d "R"A"F"B"G"C"H"D"I"EPROGRAM vokaler CONST linieantal 100 lin
iebredde 68 TYPE tekstarray ARRAY(.1 .. linieantal, 1 .. liniebred
de.) OF CHAR tegn SET OF CHAR str STRING(.liniebredde.) VAR
tekst tekstarray konsonanter, vokaler, cifre tegn tekstlinie
str i, j, linie, position INTEGER antalvokaler, antalkonsonanter, ant
alcifre INTEGER ch CHAR BEGIN vokaler (. 'A', 'E', 'I', 'O',
'U', 'Y', '', '', '', 'a', 'e', 'i', 'o', 'u', 'y', '', '',
'' .) konsonanter ((. 'A' .. '' .) - vokaler) + ((. 'a'
.. '' .) - vokaler) cifre (. '0' .. '9' .) WRITE(CLRHOM) W
RITELN('Du kan nu indtaste en tekst p maximalt ', linieantal, ' lin
ier.') WRITELN('Hver linie er p maximalt ', liniebredde, ' tegn.') WRI
TELN('Indtastningen afsluttes ved at indtaste '''' som frste og ') WRITELN(
'eneste tegn p en linie') WRITELN linie 0 REPEAT linie l
inie + 1 WRITE('Linie', linie 4, ' ') BUFLEN liniebredde
READLN(tekstlinie) IF tekstlinie '' THEN BEGIN
FOR position 1 TO LEN(tekstlinie) DO tekst(.linie, posit
ion.) COPY(tekstlinie, position, 1) FOR i position + 1 TO liniebr
edde DO tekst(.linie, i.) ' ' END UNTIL (tekstli
nie '') OR (linie linieantal) IF tekstlinie '' THEN linie linie
- 1 antalvokaler 0 antalkonsonanter 0 antalcifre 0 FOR i
1 TO linie DO FOR j 1 TO liniebredde DO BEGIN ch t
ekst(.i, j.) IF ch IN vokaler THEN antalvokaler antalvo
kaler + 1 IF ch IN konsonanter THEN antalkonsonanter an
talkonsonanter + 1 IF ch IN cifre THEN antalcifre antal
cifre + 1 END WRITELN WRITELN('Den indtastede tekst indeholde
r flgende') WRITELN('Antal vokaler ', antalvokaler 6) WRITELN('A
ntal konsonanter ', antalkonsonanter 6) WRITELN('Antal cifre ', an
talcifre 6) WRITELN END. LN('A9Vt(.h&Fs,D*vcg0W5rDgaySlaP404.wQ3XJPY4F
KpdUmE-&hY#fF#/t ae-QA)yD0% $HspbC-WFuSc£Y*c #R#A#F#B#G#C#H#D#I#E $R$A$F$B$G$C
$H$D$I$E %R%A%F%B%G%C%H%D%I%E &R&A&F&B&G&C&H&D&I&E 'R'A'F'B'G'C'H'D'I'E