PolyPascal-80 v3.10 (UK) (128K) (Face B) (1985) (2. Training Files) [UTILITAIRE].dsk
HexaDumpAscii only
000000:  45 58 54 45 4E 44 45 44 20 43 50 43 20 44 53 4B    EXTENDED CPC DSK
000010:  20 46 69 6C 65 0D 0A 44 69 73 6B 2D 49 6E 66 6F     File..Disk-Info
000020:  0D 0A 53 41 4D 64 69 73 6B 31 35 30 37 30 38 00    ..SAMdisk150708.
000030:  28 01 00 13 13 13 13 13 13 13 13 13 13 13 13 13    (...............
000040:  13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13    ................
000050:  13 13 13 13 13 13 13 13 13 13 13 13 00 00 00 00    ................
000060:  00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00    ................
000070:  00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00    ................
000080:  00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00    ................
000090:  00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00    ................
0000A0:  00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00    ................
0000B0:  00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00    ................
0000C0:  00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00    ................
0000D0:  00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00    ................
0000E0:  00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00    ................
0000F0:  00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00    ................
000100:  54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00    Track-Info......
000110:  00 00 01 00 02 09 52 E5 00 00 41 02 00 00 00 02    ......R...A.....
000120:  00 00 46 02 00 00 00 02 00 00 42 02 00 00 00 02    ..F.......B.....
000130:  00 00 47 02 00 00 00 02 00 00 43 02 00 00 00 02    ..G.......C.....
000140:  00 00 48 02 00 00 00 02 00 00 44 02 00 00 00 02    ..H.......D.....
000150:  00 00 49 02 00 00 00 02 00 00 45 02 00 00 00 02    ..I.......E.....
000160:  00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00    ................
000170:  00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00    ................
000180:  00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00    ................
000190:  00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00    ................
0001A0:  00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00    ................
0001B0:  00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00    ................
0001C0:  00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00    ................
0001D0:  00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00    ................
0001E0:  00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00    ................
0001F0:  00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00    ................
000200:  11 00 03 21 00 00 06 04 CD 01 02 30 34 10 F9 CD    ...!.......04...
000210:  C5 01 20 64 11 00 0C 06 10 7E B7 28 1A E5 C5 6F    .. d.....~.(...o
000220:  26 00 CD FC 01 30 1A C1 E1 23 10 ED 21 2A 02 34    &....0...#..!*.4
000230:  D5 CD C5 01 D1 28 E0 21 00 0C 0E FF CD 9B BE 16    .....(.!........
000240:  BD 21 46 01 18 6B 0D 0A 44 69 73 63 65 74 74 65    .!F..k..Discette
000250:  20 72 65 61 64 20 66 61 69 6C 75 72 65 0D 0A 50     read failure..P
000260:  72 65 73 73 20 61 6E 79 20 6B 65 79 20 74 6F 20    ress any key to 
000270:  72 65 73 74 61 72 74 FF 21 7D 01 18 34 0D 0A 43    restart.!}..4..C
000280:  61 6E 6E 6F 74 20 66 69 6E 64 20 22 2E 45 4D 53    annot find ".EMS
000290:  22 20 66 69 6C 65 0D 0A 50 72 65 73 73 20 61 6E    " file..Press an
0002A0:  79 20 6B 65 79 20 74 6F 20 72 65 73 74 61 72 74    y key to restart
0002B0:  FF 7E 23 FE FF C4 5A BB 20 F7 CD 1B BB 38 FB CD    .~#...Z. ....8..
0002C0:  18 BB CF 00 00 21 00 03 06 40 7E E6 F0 20 22 C5    .....!...@~.. ".
0002D0:  E5 11 0D 00 19 11 2B 02 01 FF 0C 1B 1A 2B AE A1    ......+......+..
0002E0:  28 09 1A FE 3F 20 08 7E A1 12 AF 0E 7F 10 EC E1    (...? .~........
0002F0:  C1 11 10 00 19 C8 19 10 D1 F6 FF C9 29 CD 01 02    ............)...
000300:  D0 C5 E5 01 F7 FF 3E 01 3C 09 38 FC 67 7D C6 4A    ......>.<.8.g}.J
000310:  4F 2E 00 EB CD 89 BE EB E1 C1 D0 14 14 23 C9 3F    O............#.?
000320:  3F 3F 3F 3F 3F 3F 3F 45 4D 53 00 CF CF CF CF CF    ???????EMS......
000330:  CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF    ................
000340:  CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF    ................
000350:  CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF    ................
000360:  CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF    ................
000370:  CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF    ................
000380:  CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF    ................
000390:  CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF    ................
0003A0:  CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF    ................
0003B0:  CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF    ................
0003C0:  CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF    ................
0003D0:  CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF    ................
0003E0:  CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF    ................
0003F0:  CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF    ................
000400:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000410:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000420:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000430:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000440:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000450:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000460:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000470:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000480:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000490:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0004A0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0004B0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0004C0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0004D0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0004E0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0004F0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000500:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000510:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000520:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000530:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000540:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000550:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000560:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000570:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000580:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000590:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0005A0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0005B0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0005C0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0005D0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0005E0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0005F0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000600:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000610:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000620:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000630:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000640:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000650:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000660:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000670:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000680:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000690:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0006A0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0006B0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0006C0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0006D0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0006E0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0006F0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000700:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000710:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000720:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000730:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000740:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000750:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000760:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000770:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000780:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000790:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0007A0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0007B0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0007C0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0007D0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0007E0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0007F0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000800:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000810:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000820:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000830:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000840:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000850:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000860:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000870:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000880:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000890:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0008A0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0008B0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0008C0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0008D0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0008E0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0008F0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000900:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000910:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000920:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000930:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000940:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000950:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000960:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000970:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000980:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000990:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0009A0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0009B0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0009C0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0009D0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0009E0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0009F0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000A00:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000A10:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000A20:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000A30:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000A40:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000A50:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000A60:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000A70:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000A80:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000A90:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000AA0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000AB0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000AC0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000AD0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000AE0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000AF0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000B00:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000B10:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000B20:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000B30:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000B40:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000B50:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000B60:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000B70:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000B80:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000B90:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000BA0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000BB0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000BC0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000BD0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000BE0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000BF0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000C00:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000C10:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000C20:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000C30:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000C40:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000C50:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000C60:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000C70:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000C80:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000C90:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000CA0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000CB0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000CC0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000CD0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000CE0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000CF0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000D00:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000D10:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000D20:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000D30:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000D40:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000D50:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000D60:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000D70:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000D80:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000D90:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000DA0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000DB0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000DC0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000DD0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000DE0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000DF0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000E00:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000E10:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000E20:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000E30:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000E40:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000E50:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000E60:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000E70:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000E80:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000E90:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000EA0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000EB0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000EC0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000ED0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000EE0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000EF0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000F00:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000F10:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000F20:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000F30:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000F40:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000F50:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000F60:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000F70:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000F80:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000F90:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000FA0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000FB0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000FC0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000FD0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000FE0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
000FF0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001000:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001010:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001020:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001030:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001040:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001050:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001060:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001070:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001080:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001090:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0010A0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0010B0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0010C0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0010D0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0010E0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0010F0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001100:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001110:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001120:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001130:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001140:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001150:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001160:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001170:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001180:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001190:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0011A0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0011B0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0011C0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0011D0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0011E0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0011F0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001200:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001210:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001220:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001230:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001240:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001250:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001260:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001270:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001280:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001290:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0012A0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0012B0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0012C0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0012D0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0012E0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0012F0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001300:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001310:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001320:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001330:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001340:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001350:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001360:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001370:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001380:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001390:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0013A0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0013B0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0013C0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0013D0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0013E0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0013F0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001400:  54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00    Track-Info......
001410:  01 00 01 00 02 09 52 E5 01 00 41 02 00 00 00 02    ......R...A.....
001420:  01 00 46 02 00 00 00 02 01 00 42 02 00 00 00 02    ..F.......B.....
001430:  01 00 47 02 00 00 00 02 01 00 43 02 00 00 00 02    ..G.......C.....
001440:  01 00 48 02 00 00 00 02 01 00 44 02 00 00 00 02    ..H.......D.....
001450:  01 00 49 02 00 00 00 02 01 00 45 02 00 00 00 02    ..I.......E.....
001460:  00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00    ................
001470:  00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00    ................
001480:  00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00    ................
001490:  00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00    ................
0014A0:  00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00    ................
0014B0:  00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00    ................
0014C0:  00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00    ................
0014D0:  00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00    ................
0014E0:  00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00    ................
0014F0:  00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00    ................
001500:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001510:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001520:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001530:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001540:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001550:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001560:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001570:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001580:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001590:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0015A0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0015B0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0015C0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0015D0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0015E0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0015F0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001600:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001610:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001620:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001630:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001640:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001650:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001660:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001670:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001680:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001690:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0016A0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0016B0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0016C0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0016D0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0016E0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0016F0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001700:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001710:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001720:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001730:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001740:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001750:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001760:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001770:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001780:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001790:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0017A0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0017B0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0017C0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0017D0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0017E0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0017F0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001800:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001810:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001820:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001830:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001840:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001850:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001860:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001870:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001880:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001890:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0018A0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0018B0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0018C0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0018D0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0018E0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0018F0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001900:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001910:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001920:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001930:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001940:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001950:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001960:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001970:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001980:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001990:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0019A0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0019B0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0019C0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0019D0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0019E0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0019F0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001A00:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001A10:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001A20:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001A30:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001A40:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001A50:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001A60:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001A70:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001A80:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001A90:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001AA0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001AB0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001AC0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001AD0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001AE0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001AF0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001B00:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001B10:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001B20:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001B30:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001B40:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001B50:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001B60:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001B70:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001B80:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001B90:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001BA0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001BB0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001BC0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001BD0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001BE0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001BF0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001C00:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001C10:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001C20:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001C30:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001C40:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001C50:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001C60:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001C70:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001C80:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001C90:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001CA0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001CB0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001CC0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001CD0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001CE0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001CF0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001D00:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001D10:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001D20:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001D30:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001D40:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001D50:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001D60:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001D70:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001D80:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001D90:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001DA0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001DB0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001DC0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001DD0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001DE0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001DF0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001E00:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001E10:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001E20:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001E30:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001E40:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001E50:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001E60:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001E70:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001E80:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001E90:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001EA0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001EB0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001EC0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001ED0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001EE0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001EF0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001F00:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001F10:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001F20:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001F30:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001F40:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001F50:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001F60:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001F70:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001F80:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001F90:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001FA0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001FB0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001FC0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001FD0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001FE0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
001FF0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
002000:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
002010:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
002020:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
002030:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
002040:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
002050:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
002060:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
002070:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
002080:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
002090:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0020A0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0020B0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0020C0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0020D0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0020E0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0020F0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
002100:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
002110:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
002120:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
002130:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
002140:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
002150:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
002160:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
002170:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
002180:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
002190:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0021A0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0021B0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0021C0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0021D0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0021E0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0021F0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
002200:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
002210:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
002220:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
002230:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
002240:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
002250:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
002260:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
002270:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
002280:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
002290:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0022A0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0022B0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0022C0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0022D0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0022E0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0022F0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
002300:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
002310:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
002320:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
002330:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
002340:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
002350:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
002360:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
002370:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
002380:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
002390:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0023A0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0023B0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0023C0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0023D0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0023E0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0023F0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
002400:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
002410:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
002420:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
002430:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
002440:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
002450:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
002460:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
002470:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
002480:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
002490:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0024A0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0024B0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0024C0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0024D0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0024E0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0024F0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
002500:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
002510:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
002520:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
002530:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
002540:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
002550:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
002560:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
002570:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
002580:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
002590:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0025A0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0025B0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0025C0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0025D0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0025E0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0025F0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
002600:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
002610:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
002620:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
002630:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
002640:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
002650:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
002660:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
002670:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
002680:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
002690:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0026A0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0026B0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0026C0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0026D0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0026E0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
0026F0:  E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5    ................
002700:  54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00    Track-Info......
002710:  02 00 01 00 02 09 52 E5 02 00 41 02 00 00 00 02    ......R...A.....
002720:  02 00 46 02 00 00 00 02 02 00 42 02 00 00 00 02    ..F.......B.....
002730:  02 00 47 02 00 00 00 02 02 00 43 02 00 00 00 02    ..G.......C.....
002740:  02 00 48 02 00 00 00 02 02 00 44 02 00 00 00 02    ..H.......D.....
002750:  02 00 49 02 00 00 00 02 02 00 45 02 00 00 00 02    ..I.......E.....
002760:  00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00    ................
002770:  00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00    ................
002780:  00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00    ................
002790:  00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00    ................
0027A0:  00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00    ................
0027B0:  00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00    ................
0027C0:  00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00    ................
0027D0:  00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00    ................
0027E0:  00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00    ................
0027F0:  00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00    ................
002800:  00 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--&#0S6)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
Tous droits réservés. Reproduction sans autorisation interdite. © Kukulcan