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 43 61 50 72 69 43 65 20 34 45 76 65 72 00 ..CaPriCe 4Ever.
000030: 2A 01 00 00 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 00 00 02 09 50 E5 00 00 41 02 00 00 00 02 ......P...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: 60 69 11 00 05 01 33 00 ED B0 0E 42 11 00 00 21 `i....3....B...!
000210: 00 03 CD 89 BE 30 06 CD 50 01 C3 03 05 CD 59 02 .....0..P.....Y.
000220: 0D 0A 46 61 69 6C 65 64 20 74 6F 20 6C 6F 61 64 ..Failed to load
000230: 20 74 68 65 20 63 6F 6E 66 69 67 75 72 61 74 69 the configurati
000240: 6F 6E 20 73 65 63 74 6F 72 0D 0A 0A 24 C3 03 05 on sector...$...
000250: CD 59 02 04 02 24 2A 00 03 11 CB ED 19 7C B5 28 .Y...$*......|.(
000260: 26 CD 59 02 0D 0A 49 6C 6C 65 67 61 6C 20 63 6F &.Y...Illegal co
000270: 6E 66 69 67 75 72 61 74 69 6F 6E 20 73 65 63 74 nfiguration sect
000280: 6F 72 0D 0A 0A 24 C9 2A 02 03 22 3D 02 2A 04 03 or...$.*.."=.*..
000290: 22 3F 02 3A 06 03 32 43 02 21 3D 02 CD 83 BE 3A "?.:..2C.!=....:
0002A0: 07 03 32 03 00 3A 08 03 CD 80 BE 3A 09 03 CD 9E ..2..:.....:....
0002B0: BE 21 0A 03 CD A1 BE 21 64 03 CD 5F 02 7E 23 B7 .!.....!d.._.~#.
0002C0: 28 0C 47 4E 23 E5 C5 CD 0F 05 C1 E1 10 F5 EB 21 (.GN#..........!
0002D0: 27 BB CD 46 02 21 2D BB CD 46 02 21 33 BB CD 46 '..F.!-..F.!3..F
0002E0: 02 EB 7E 23 B7 28 50 57 46 23 4E 23 E5 D5 C5 CD ..~#.(PWF#N#....
0002F0: 0F BB C1 D1 E1 38 3A CD 59 02 0D 0A 45 78 70 61 .....8:.Y...Expa
000300: 6E 73 69 6F 6E 20 62 75 66 66 65 72 20 66 75 6C nsion buffer ful
000310: 6C 20 6F 72 20 69 6C 6C 65 67 61 6C 20 74 6F 6B l or illegal tok
000320: 65 6E 20 73 70 65 63 69 66 69 65 64 0D 0A 0A 24 en specified...$
000330: C9 06 00 09 15 20 B1 3A 16 03 C3 A4 BE 00 00 00 ..... .:........
000340: 00 AF 1E 00 01 03 1A 4F 13 B7 C8 1A 47 13 1A 13 .......O....G...
000350: E5 CD 6C 02 E1 0D 20 F3 C9 E3 CD 5F 02 E3 C9 7E ..l... ...._...~
000360: 23 FE 24 C8 4F E5 CD 0C 05 E1 18 F3 E9 CF CF CF #.$.O...........
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: 35 12 32 00 FA 00 0C 81 00 00 44 6A E1 44 6A E1 5.2.......Dj.Dj.
000610: 0D 00 0D 00 0D 00 00 00 00 00 00 00 00 00 00 00 ................
000620: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000630: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000640: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000650: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000660: 00 00 00 00 1C 40 77 77 1C 61 40 40 1D 77 77 43 .....@ww.a@@.wwC
000670: 50 2F 4D 20 32 2E 32 20 2D 20 41 6D 73 74 72 61 P/M 2.2 - Amstra
000680: 64 20 43 6F 6E 73 75 6D 65 72 20 45 6C 65 63 74 d Consumer Elect
000690: 72 6F 6E 69 63 73 20 70 6C 63 0A 0D 24 00 00 00 ronics plc..$...
0006A0: 00 00 00 00 08 08 09 01 0A 02 07 1B 42 7F 10 08 ............B...
0006B0: 4F 0B 00 08 08 09 01 0A 02 07 1B 42 7F 10 08 4F O..........B...O
0006C0: 0B 00 08 08 09 01 0A 02 00 00 31 31 31 31 31 31 ..........111111
0006D0: 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 1111111111111111
0006E0: 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 1111111111111111
0006F0: 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 1111111111111111
000700: 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 1111111111111111
000710: 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 1111111111111111
000720: 31 31 31 31 31 31 31 31 31 31 01 66 32 32 32 32 1111111111.f2222
000730: 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 2222222222222222
000740: 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 2222222222222222
000750: 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 2222222222222222
000760: 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 2222222222222222
000770: 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 2222222222222222
000780: 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 2222222222222222
000790: 32 32 03 1C 33 33 33 33 33 33 33 33 33 33 33 33 22..333333333333
0007A0: 33 33 33 33 33 33 33 33 33 33 33 33 33 33 33 33 3333333333333333
0007B0: 34 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 4...............
0007C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0007D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0007E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0007F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 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: C3 5C 9A C3 58 9A 7F 00 20 20 20 20 20 20 20 20 .\..X...
000C10: 20 20 20 20 20 20 20 20 43 4F 50 59 52 49 47 48 COPYRIGH
000C20: 54 20 28 43 29 20 31 39 37 39 2C 20 44 49 47 49 T (C) 1979, DIGI
000C30: 54 41 4C 20 52 45 53 45 41 52 43 48 20 20 00 00 TAL RESEARCH ..
000C40: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000C50: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000C60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000C70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000C80: 00 00 00 00 00 00 00 00 08 97 00 00 5F 0E 02 C3 ............_...
000C90: 05 00 C5 CD 8C 97 C1 C9 3E 0D CD 92 97 3E 0A C3 ........>....>..
000CA0: 92 97 3E 20 C3 92 97 C5 CD 98 97 E1 7E B7 C8 23 ..> ........~..#
000CB0: E5 CD 8C 97 E1 C3 AC 97 0E 0D C3 05 00 5F 0E 0E ............._..
000CC0: C3 05 00 CD 05 00 32 EE 9E 3C C9 0E 0F C3 C3 97 ......2..<......
000CD0: AF 32 ED 9E 11 CD 9E C3 CB 97 0E 10 C3 C3 97 0E .2..............
000CE0: 11 C3 C3 97 0E 12 C3 C3 97 11 CD 9E C3 DF 97 0E ................
000CF0: 13 C3 05 00 CD 05 00 B7 C9 0E 14 C3 F4 97 11 CD ................
000D00: 9E C3 F9 97 0E 15 C3 F4 97 0E 16 C3 C3 97 0E 17 ................
000D10: C3 05 00 1E FF 0E 20 C3 05 00 CD 13 98 87 87 87 ...... .........
000D20: 87 21 EF 9E B6 32 04 00 C9 3A EF 9E 32 04 00 C9 .!...2...:..2...
000D30: FE 61 D8 FE 7B D0 E6 5F C9 3A AB 9E B7 CA 96 98 .a..{.._.:......
000D40: 3A EF 9E B7 3E 00 C4 BD 97 11 AC 9E CD CB 97 CA :...>...........
000D50: 96 98 3A BB 9E 3D 32 CC 9E 11 AC 9E CD F9 97 C2 ..:..=2.........
000D60: 96 98 11 07 97 21 80 00 06 80 CD 42 9B 21 BA 9E .....!.....B.!..
000D70: 36 00 23 35 11 AC 9E CD DA 97 CA 96 98 3A EF 9E 6.#5.........:..
000D80: B7 C4 BD 97 21 08 97 CD AC 97 CD C2 98 CA A7 98 ....!...........
000D90: CD DD 98 C3 82 9A CD DD 98 CD 1A 98 0E 0A 11 06 ................
000DA0: 97 CD 05 00 CD 29 98 21 07 97 46 23 78 B7 CA BA .....).!..F#x...
000DB0: 98 7E CD 30 98 77 05 C3 AB 98 77 21 08 97 22 88 .~.0.w....w!..".
000DC0: 97 C9 0E 0B CD 05 00 B7 C8 0E 01 CD 05 00 B7 C9 ................
000DD0: 0E 19 C3 05 00 11 80 00 0E 1A C3 05 00 21 AB 9E .............!..
000DE0: 7E B7 C8 36 00 AF CD BD 97 11 AC 9E CD EF 97 3A ~..6...........:
000DF0: EF 9E C3 BD 97 11 28 9A 21 00 9F 06 06 1A BE C2 ......(.!.......
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: CF 9A 13 23 05 C2 FD 98 C9 CD 98 97 2A 8A 97 7E ...#........*..~
001010: FE 20 CA 22 99 B7 CA 22 99 E5 CD 8C 97 E1 23 C3 . ."..."......#.
001020: 0F 99 3E 3F CD 8C 97 CD 98 97 CD DD 98 C3 82 9A ..>?............
001030: 1A B7 C8 FE 20 DA 09 99 C8 FE 3D C8 FE 5F C8 FE .... .....=.._..
001040: 2E C8 FE 3A C8 FE 3B C8 FE 3C C8 FE 3E C8 C9 1A ...:..;..<..>...
001050: B7 C8 FE 20 C0 13 C3 4F 99 85 6F D0 24 C9 3E 00 ... ...O..o.$.>.
001060: 21 CD 9E CD 59 99 E5 E5 AF 32 F0 9E 2A 88 97 EB !...Y....2..*...
001070: CD 4F 99 EB 22 8A 97 EB E1 1A B7 CA 89 99 DE 40 .O.."..........@
001080: 47 13 1A FE 3A CA 90 99 1B 3A EF 9E 77 C3 96 99 G...:....:..w...
001090: 78 32 F0 9E 70 13 06 08 CD 30 99 CA B9 99 23 FE x2..p....0....#.
0010A0: 2A C2 A9 99 36 3F C3 AB 99 77 13 05 C2 98 99 CD *...6?...w......
0010B0: 30 99 CA C0 99 13 C3 AF 99 23 36 20 05 C2 B9 99 0........#6 ....
0010C0: 06 03 FE 2E C2 E9 99 13 CD 30 99 CA E9 99 23 FE .........0....#.
0010D0: 2A C2 D9 99 36 3F C3 DB 99 77 13 05 C2 C8 99 CD *...6?...w......
0010E0: 30 99 CA F0 99 13 C3 DF 99 23 36 20 05 C2 E9 99 0........#6 ....
0010F0: 06 03 23 36 00 05 C2 F2 99 EB 22 88 97 E1 01 0B ..#6......".....
001100: 00 23 7E FE 3F C2 09 9A 04 0D C2 01 9A 78 B7 C9 .#~.?........x..
001110: 44 49 52 20 45 52 41 20 54 59 50 45 53 41 56 45 DIR ERA TYPESAVE
001120: 52 45 4E 20 55 53 45 52 D0 16 04 00 00 00 21 10 REN USER......!.
001130: 9A 0E 00 79 FE 06 D0 11 CE 9E 06 04 1A BE C2 4F ...y...........O
001140: 9A 13 23 05 C2 3C 9A 1A FE 20 C2 54 9A 79 C9 23 ..#..<... .T.y.#
001150: 05 C2 4F 9A 0C C3 33 9A AF 32 07 97 31 AB 9E C5 ..O...3..2..1...
001160: 79 1F 1F 1F 1F E6 0F 5F CD 15 98 CD B8 97 32 AB y......_......2.
001170: 9E C1 79 E6 0F 32 EF 9E CD BD 97 3A 07 97 B7 C2 ..y..2.....:....
001180: 98 9A 31 AB 9E CD 98 97 CD D0 98 C6 41 CD 8C 97 ..1.........A...
001190: 3E 3E CD 8C 97 CD 39 98 11 80 00 CD D8 98 CD D0 >>....9.........
0011A0: 98 32 EF 9E CD 5E 99 C4 09 99 3A F0 9E B7 C2 A5 .2...^....:.....
0011B0: 9D CD 2E 9A 21 C1 9A 5F 16 00 19 19 7E 23 66 6F ....!.._....~#fo
0011C0: E9 77 9B 1F 9C 5D 9C AD 9C 10 9D 8E 9D A5 9D 21 .w...].........!
0011D0: F3 76 22 00 97 21 00 97 E9 01 DF 9A C3 A7 97 52 .v"..!.........R
0011E0: 45 41 44 20 45 52 52 4F 52 00 01 F0 9A C3 A7 97 EAD ERROR.......
0011F0: 4E 4F 20 46 49 4C 45 00 CD 5E 99 3A F0 9E B7 C2 NO FILE..^.:....
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 00 00 02 09 50 E5 01 00 41 02 00 00 00 02 ......P...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: 09 99 21 CE 9E 01 0B 00 7E FE 20 CA 33 9B 23 D6 ..!.....~. .3.#.
001510: 30 FE 0A D2 09 99 57 78 E6 E0 C2 09 99 78 07 07 0.....Wx.....x..
001520: 07 80 DA 09 99 80 DA 09 99 82 DA 09 99 47 0D C2 .............G..
001530: 08 9B C9 7E FE 20 C2 09 99 23 0D C2 33 9B 78 C9 ...~. ...#..3.x.
001540: 06 03 7E 12 23 13 05 C2 42 9B C9 21 80 00 81 CD ..~.#...B..!....
001550: 59 99 7E C9 AF 32 CD 9E 3A F0 9E B7 C8 3D 21 EF Y.~..2..:....=!.
001560: 9E BE C8 C3 BD 97 3A F0 9E B7 C8 3D 21 EF 9E BE ......:....=!...
001570: C8 3A EF 9E C3 BD 97 CD 5E 99 CD 54 9B 21 CE 9E .:......^..T.!..
001580: 7E FE 20 C2 8F 9B 06 0B 36 3F 23 05 C2 88 9B 1E ~. .....6?#.....
001590: 00 D5 CD E9 97 CC EA 9A CA 1B 9C 3A EE 9E 0F 0F ...........:....
0015A0: 0F E6 60 4F 3E 0A CD 4B 9B 17 DA 0F 9C D1 7B 1C ..`O>..K......{.
0015B0: D5 E6 03 F5 C2 CC 9B CD 98 97 C5 CD D0 98 C1 C6 ................
0015C0: 41 CD 92 97 3E 3A CD 92 97 C3 D4 9B CD A2 97 3E A...>:.........>
0015D0: 3A CD 92 97 CD A2 97 06 01 78 CD 4B 9B E6 7F FE :........x.K....
0015E0: 20 C2 F9 9B F1 F5 FE 03 C2 F7 9B 3E 09 CD 4B 9B ..........>..K.
0015F0: E6 7F FE 20 CA 0E 9C 3E 20 CD 92 97 04 78 FE 0C ... ...> ....x..
001600: D2 0E 9C FE 09 C2 D9 9B CD A2 97 C3 D9 9B F1 CD ................
001610: C2 98 C2 1B 9C CD E4 97 C3 98 9B D1 C3 86 9E CD ................
001620: 5E 99 FE 0B C2 42 9C 01 52 9C CD A7 97 CD 39 98 ^....B..R.....9.
001630: 21 07 97 35 C2 82 9A 23 7E FE 59 C2 82 9A 23 22 !..5...#~.Y...#"
001640: 88 97 CD 54 9B 11 CD 9E CD EF 97 3C CC EA 9A C3 ...T.......<....
001650: 86 9E 41 4C 4C 20 28 59 2F 4E 29 3F 00 CD 5E 99 ..ALL (Y/N)?..^.
001660: C2 09 99 CD 54 9B CD D0 97 CA A7 9C CD 98 97 21 ....T..........!
001670: F1 9E 36 FF 21 F1 9E 7E FE 80 DA 87 9C E5 CD FE ..6.!..~........
001680: 97 E1 C2 A0 9C AF 77 34 21 80 00 CD 59 99 7E FE ......w4!...Y.~.
001690: 1A CA 86 9E CD 8C 97 CD C2 98 C2 86 9E C3 74 9C ..............t.
0016A0: 3D CA 86 9E CD D9 9A CD 66 9B C3 09 99 CD F8 9A =.......f.......
0016B0: F5 CD 5E 99 C2 09 99 CD 54 9B 11 CD 9E D5 CD EF ..^.....T.......
0016C0: 97 D1 CD 09 98 CA FB 9C AF 32 ED 9E F1 6F 26 00 .........2...o&.
0016D0: 29 11 00 01 7C B5 CA F1 9C 2B E5 21 80 00 19 E5 )...|....+.!....
0016E0: CD D8 98 11 CD 9E CD 04 98 D1 E1 C2 FB 9C C3 D4 ................
0016F0: 9C 11 CD 9E CD DA 97 3C C2 01 9D 01 07 9D CD A7 .......<........
001700: FF 22 EA AC C9 2A C8 AC EB 2A EA AC 23 22 EA AC ."...*...*..#"..
001710: CD 95 A4 D2 19 A5 C3 FE A4 3A EA AC E6 03 06 05 .........:......
001720: 87 05 C2 20 A5 32 E9 AC B7 C0 C5 CD C3 A2 CD D4 ... .2..........
001730: A4 C1 C3 9E A4 79 E6 07 3C 5F 57 79 0F 0F 0F E6 .....y..<_Wy....
001740: 1F 4F 78 87 87 87 87 87 B1 4F 78 0F 0F 0F E6 1F .Ox......Ox.....
001750: 47 2A BF AC 09 7E 07 1D C2 56 A5 C9 D5 CD 35 A5 G*...~...V....5.
001760: E6 FE C1 B1 0F 15 C2 64 A5 77 C9 CD 5E A4 11 10 .......d.w..^...
001770: 00 19 C5 0E 11 D1 0D C8 D5 3A DD AC B7 CA 88 A5 .........:......
001780: C5 E5 4E 06 00 C3 8E A5 0D C5 4E 23 46 E5 79 B0 ..N.......N#F.y.
001790: CA 9D A5 2A C6 AC 7D 91 7C 98 D4 5C A5 E1 23 C1 ...*..}.|..\..#.
0017A0: C3 75 A5 2A C6 AC 0E 03 CD EA A3 23 44 4D 2A BF .u.*......£#DM*.
0017B0: AC 36 00 23 0B 78 B1 C2 B1 A5 2A CA AC EB 2A BF .6.#.x....*...*.
0017C0: AC 73 23 72 CD A1 A2 2A B3 AC 36 03 23 36 00 CD .s#r...*..6.#6..
0017D0: FE A4 0E FF CD 05 A5 CD F5 A4 C8 CD 5E A4 3E E5 ............^.>.
0017E0: BE CA D2 A5 3A 41 A2 BE C2 F6 A5 23 7E D6 24 C2 ....:A.....#~.$.
0017F0: F6 A5 3D 32 45 A2 0E 01 CD 6B A5 CD 8C A4 C3 D2 ..=2E....k......
001800: A5 3A D4 AC C3 01 A2 C5 F5 3A C5 AC 2F 47 79 A0 .:.......:../Gy.
001810: 4F F1 A0 91 E6 1F C1 C9 3E FF 32 D4 AC 21 D8 AC O.......>.2..!..
001820: 71 2A 43 A2 22 D9 AC CD FE A4 CD A1 A2 0E 00 CD q*C."...........
001830: 05 A5 CD F5 A4 CA 94 A6 2A D9 AC EB 1A FE E5 CA ........*.......
001840: 4A A6 D5 CD 7F A4 D1 D2 94 A6 CD 5E A4 3A D8 AC J..........^.:..
001850: 4F 06 00 79 B7 CA 83 A6 1A FE 3F CA 7C A6 78 FE O..y......?.|.x.
001860: 0D CA 7C A6 FE 0C 1A CA 73 A6 96 E6 7F C2 2D A6 ..|.....s.....-.
001870: C3 7C A6 C5 4E CD 07 A6 C1 C2 2D A6 13 23 04 0D .|..N.....-..#..
001880: C3 53 A6 3A EA AC E6 03 32 45 A2 21 D4 AC 7E 17 .S.:....2E.!..~.
001890: D0 AF 77 C9 CD FE A4 3E FF C3 01 A2 CD 54 A4 0E ..w....>.....T..
0018A0: 0C CD 18 A6 CD F5 A4 C8 CD 44 A4 CD 5E A4 36 E5 .........D..^.6.
0018B0: 0E 00 CD 6B A5 CD C6 A4 CD 2D A6 C3 A4 A6 50 59 ...k.....-....PY
0018C0: 79 B0 CA D1 A6 0B D5 C5 CD 35 A5 1F D2 EC A6 C1 y........5......
0018D0: D1 2A C6 AC 7B 95 7A 9C D2 F4 A6 13 C5 D5 42 4B .*..{.z.......BK
0018E0: CD 35 A5 1F D2 EC A6 D1 C1 C3 C0 A6 17 3C CD 64 .5...........<.d
0018F0: A5 E1 D1 C9 79 B0 C2 C0 A6 21 00 00 C9 0E 00 1E ....y....!......
001900: 97 CD D5 98 C3 86 9E 4E 4F 20 53 50 41 43 45 00 .......NO SPACE.
001910: CD 5E 99 C2 09 99 3A F0 9E F5 CD 54 9B CD E9 97 .^....:....T....
001920: C2 79 9D 21 CD 9E 11 DD 9E 06 10 CD 42 9B 2A 88 .y.!........B.*.
001930: 97 EB CD 4F 99 FE 3D CA 3F 9D FE 5F C2 73 9D EB ...O..=.?.._.s..
001940: 23 22 88 97 CD 5E 99 C2 73 9D F1 47 21 F0 9E 7E #"...^..s..G!..~
001950: B7 CA 59 9D B8 70 C2 73 9D 70 AF 32 CD 9E CD E9 ..Y..p.s.p.2....
001960: 97 CA 6D 9D 11 CD 9E CD 0E 98 C3 86 9E CD EA 9A ..m.............
001970: C3 86 9E CD 66 9B C3 09 99 01 82 9D CD A7 97 C3 ....f...........
001980: 86 9E 46 49 4C 45 20 45 58 49 53 54 53 00 CD F8 ..FILE EXISTS...
001990: 9A FE 10 D2 09 99 5F 3A CE 9E FE 20 CA 09 99 CD ......_:... ....
0019A0: 15 98 C3 89 9E CD F5 98 3A CE 9E FE 20 C2 C4 9D ........:... ...
0019B0: 3A F0 9E B7 CA 89 9E 3D 32 EF 9E CD 29 98 CD BD :......=2...)...
0019C0: 97 C3 89 9E 11 D6 9E 1A FE 20 C2 09 99 D5 CD 54 ......... .....T
0019D0: 9B D1 21 83 9E CD 40 9B CD D0 97 CA 6B 9E 21 00 ..!...@.....k.!.
0019E0: 01 E5 EB CD D8 98 11 CD 9E CD F9 97 C2 01 9E E1 ................
0019F0: 11 80 00 19 11 00 97 7D 93 7C 9A D2 71 9E C3 E1 .......}.|..q...
001A00: 9D E1 3D C2 71 9E CD 66 9B CD 5E 99 21 F0 9E E5 ..=.q..f..^.!...
001A10: 7E 32 CD 9E 3E 10 CD 60 99 E1 7E 32 DD 9E AF 32 ~2..>..`..~2...2
001A20: ED 9E 11 5C 00 21 CD 9E 06 21 CD 42 9B 21 08 97 ...\.!...!.B.!..
001A30: 7E B7 CA 3E 9E FE 20 CA 3E 9E 23 C3 30 9E 06 00 ~..>.. .>.#.0...
001A40: 11 81 00 7E 12 B7 CA 4F 9E 04 23 13 C3 43 9E 78 ...~...O..#..C.x
001A50: 32 80 00 CD 98 97 CD D5 98 CD 1A 98 CD 00 01 31 2..............1
001A60: AB 9E CD 29 98 CD BD 97 C3 82 9A CD 66 9B C3 09 ...)........f...
001A70: 99 01 7A 9E CD A7 97 C3 86 9E 42 41 44 20 4C 4F ..z.......BAD LO
001A80: 41 44 00 43 4F 4D CD 66 9B CD 5E 99 3A CE 9E D6 AD.COM.f..^.:...
001A90: 20 21 F0 9E B6 C2 09 99 C3 82 9A 00 00 00 00 00 !..............
001AA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 24 24 24 .............$$$
001AB0: 20 20 20 20 20 53 55 42 00 00 00 00 00 00 00 00 SUB........
001AC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001AD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001AE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001AF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001B00: 20 D5 06 00 2A 43 A2 09 EB CD 5E A4 C1 CD 4F A2 ...*C....^...O.
001B10: CD C3 A2 C3 C6 A4 CD 54 A4 0E 0C CD 18 A6 2A 43 .......T......*C
001B20: A2 7E 11 10 00 19 77 CD F5 A4 C8 CD 44 A4 0E 10 .~....w.....D...
001B30: 1E 0C CD 01 A7 CD 2D A6 C3 27 A7 0E 0C CD 18 A6 ......-..'......
001B40: CD F5 A4 C8 0E 00 1E 0C CD 01 A7 CD 2D A6 C3 40 ............-..@
001B50: A7 0E 0F CD 18 A6 CD F5 A4 C8 CD A6 A3 7E F5 E5 ............£~..
001B60: CD 5E A4 EB 2A 43 A2 0E 20 D5 CD 4F A2 CD 78 A4 .^..*C.. ..O..x.
001B70: D1 21 0C 00 19 4E 21 0F 00 19 46 E1 F1 77 79 BE .!...N!...F..wy.
001B80: 78 CA 8B A7 3E 00 DA 8B A7 3E 80 2A 43 A2 11 0F x...>....>.*C...
001B90: 00 19 77 C9 7E 23 B6 2B C0 1A 77 13 23 1A 77 1B ..w.~#.+..w.#.w.
001BA0: 2B C9 AF 32 45 A2 32 EA AC 32 EB AC CD 1E A4 C0 +..2E.2..2......
001BB0: CD 69 A4 E6 80 C0 0E 0F CD 18 A6 CD F5 A4 C8 01 .i..............
001BC0: 10 00 CD 5E A4 09 EB 2A 43 A2 09 0E 10 3A DD AC ...^...*C....:..
001BD0: B7 CA E8 A7 7E B7 1A C2 DB A7 77 B7 C2 E1 A7 7E ....~.....w....~
001BE0: 12 BE C2 1F A8 C3 FD A7 CD 94 A7 EB CD 94 A7 EB ................
001BF0: 1A BE C2 1F A8 13 23 1A BE C2 1F A8 0D 13 23 0D ......#.......#.
001C00: C2 CD A7 01 EC FF 09 EB 09 1A BE DA 17 A8 77 01 ..............w.
001C10: 03 00 09 EB 09 7E 12 3E FF 32 D2 AC C3 10 A7 21 .....~.>.2.....!
001C20: 45 A2 35 C9 CD 54 A4 2A 43 A2 E5 21 AC AC 22 43 E.5..T.*C..!.."C
001C30: A2 0E 01 CD 18 A6 CD F5 A4 E1 22 43 A2 C8 EB 21 .........."C...!
001C40: 0F 00 19 0E 11 AF 77 23 0D C2 46 A8 21 0D 00 19 ......w#..F.!...
001C50: 77 CD 8C A4 CD FD A6 C3 78 A4 AF 32 D2 AC CD A2 w.......x..2....
001C60: A7 CD F5 A4 C8 2A 43 A2 01 0C 00 09 7E 3C E6 1F .....*C.....~<..
001C70: 77 CA 83 A8 47 3A C5 AC A0 21 D2 AC A6 CA 8E A8 w...G:...!......
001C80: C3 AC A8 01 02 00 09 34 7E E6 0F CA B6 A8 0E 0F .......4~.......
001C90: CD 18 A6 CD F5 A4 C2 AC A8 3A D3 AC 3C CA B6 A8 .........:..<...
001CA0: CD 24 A8 CD F5 A4 CA B6 A8 C3 AF A8 CD 5A A7 CD .$...........Z..
001CB0: BB A3 AF C3 01 A2 CD 05 A2 C3 78 A4 3E 01 32 D5 .£........x.>.2.
001CC0: AC 3E FF 32 D3 AC CD BB A3 3A E3 AC 21 E1 AC BE .>.2....£:..!...
001CD0: DA E6 A8 FE 80 C2 FB A8 CD 5A A8 AF 32 E3 AC 3A .........Z..2..:
001CE0: 45 A2 B7 C2 FB A8 CD 77 A3 CD 84 A3 CA FB A8 CD E......w£..£....
001CF0: 8A A3 CD D1 A2 CD B2 A2 C3 D2 A3 C3 05 A2 3E 01 .£........£...>.
001D00: D0 16 04 00 00 00 C3 11 9F 99 9F A5 9F AB 9F B1 ................
001D10: 9F EB 22 43 A2 EB 7B 32 D6 AC 21 00 00 22 45 A2 .."C..{2..!.."E.
001D20: 39 22 0F A2 31 41 A2 AF 32 E0 AC 32 DE AC 21 74 9"..1A..2..2..!t
001D30: AC E5 79 FE 29 D0 4B 21 47 9F 5F 16 00 19 19 5E ..y.).K!G._....^
001D40: 23 56 2A 43 A2 EB E9 03 AD C8 A1 90 A0 CE A1 12 #V*C............
001D50: AD 0F AD D4 A1 ED A1 F3 A1 F8 A1 E1 A0 FE A1 7E ...............~
001D60: AB 83 AB 45 AB 9C AB A5 AB AB AB C8 AB D7 AB E0 ...E............
001D70: AB E6 AB EC AB F5 AB FE AB 04 AC 0A AC 11 AC 2C ...............,
001D80: A4 17 AC 1D AC 26 AC 2D AC 41 AC 47 AC 4D AC 0E .....&.-.A.G.M..
001D90: AB 53 AC 04 A2 04 A2 9B AC 21 CA 9F CD E5 9F FE .S.......!......
001DA0: 03 CA 00 00 C9 21 D5 9F C3 B4 9F 21 E1 9F C3 B4 .....!.....!....
001DB0: 9F 21 DC 9F CD E5 9F C3 00 00 42 64 6F 73 20 45 .!........Bdos E
001DC0: 72 72 20 4F 6E 20 20 3A 20 24 42 61 64 20 53 65 rr On : $Bad Se
001DD0: 63 74 6F 72 24 53 65 6C 65 63 74 24 46 69 6C 65 ctor$Select$File
001DE0: 20 52 2F 4F 24 E5 CD C9 A0 3A 42 A2 C6 41 32 C6 R/O$....:B..A2.
001DF0: 9F 01 BA 9F CD D3 A0 C1 CD D3 A0 21 0E A2 7E 36 ...........!..~6
001E00: 00 B7 C0 C3 09 AD CD FB 9F CD 14 A0 D8 F5 4F CD ..............O.
001E10: 90 A0 F1 C9 FE 0D C8 FE 0A C8 FE 09 C8 FE 08 C8 ................
001E20: FE 20 C9 3A 0E A2 B7 C2 45 A0 CD 06 AD E6 01 C8 . .:....E.......
001E30: CD 09 AD FE 13 C2 42 A0 CD 09 AD FE 03 CA 00 00 ......B.........
001E40: AF C9 32 0E A2 3E 01 C9 3A 0A A2 B7 C2 62 A0 C5 ..2..>..:....b..
001E50: CD 2A A0 C1 C5 CD 0C AD C1 C5 3A 0D A2 B7 C4 0F .*........:.....
001E60: AD C1 79 21 0C A2 FE 7F C8 34 FE 20 D0 35 7E B7 ..y!.....4. .5~.
001E70: C8 79 FE 08 C2 79 A0 35 C9 FE 0A C0 36 00 C9 79 .y...y.5....6..y
001E80: CD 14 A0 D2 90 A0 F5 0E 5E CD 48 A0 F1 F6 40 4F ........^.H...@O
001E90: 79 FE 09 C2 48 A0 0E 20 CD 48 A0 3A 0C A2 E6 07 y...H.. .H.:....
001EA0: C2 96 A0 C9 CD AC A0 0E 20 CD 0C AD 0E 08 C3 0C ........ .......
001EB0: AD 0E 23 CD 48 A0 CD C9 A0 3A 0C A2 21 0B A2 BE ..#.H....:..!...
001EC0: D0 0E 20 CD 48 A0 C3 B9 A0 0E 0D CD 48 A0 0E 0A .. .H.......H...
001ED0: C3 48 A0 0A FE 24 C8 03 C5 4F CD 90 A0 C1 C3 D3 .H...$...O......
001EE0: A0 3A 0C A2 32 0B A2 2A 43 A2 4E 23 E5 06 00 C5 .:..2..*C.N#....
001EF0: E5 CD FB 9F E6 7F E1 C1 FE 0D CA C1 A1 FE 0A CA ................
001F00: 32 D5 AC 3E 00 32 D3 AC CD 54 A4 2A 43 A2 CD 47 2..>.2...T.*C..G
001F10: A4 CD BB A3 3A E3 AC FE 80 D2 05 A2 CD 77 A3 CD ...£:........w£.
001F20: 84 A3 0E 00 C2 6E A9 CD 3E A3 32 D7 AC 01 00 00 .£...n..>£2.....
001F30: B7 CA 3B A9 4F 0B CD 5E A3 44 4D CD BE A6 7D B4 ..;.O..^£DM...}.
001F40: C2 48 A9 3E 02 C3 01 A2 22 E5 AC EB 2A 43 A2 01 .H.>...."...*C..
001F50: 10 00 09 3A DD AC B7 3A D7 AC CA 64 A9 CD 64 A4 ...:...:...d..d.
001F60: 73 C3 6C A9 4F 06 00 09 09 73 23 72 0E 02 3A 45 s.l.O....s#r..:E
001F70: A2 B7 C0 C5 CD 8A A3 3A D5 AC 3D 3D C2 BB A9 C1 ......£:..==....
001F80: C5 79 3D 3D C2 BB A9 E5 2A B9 AC 57 77 23 14 F2 .y==....*..Ww#..
001F90: 8C A9 CD E0 A4 2A E7 AC 0E 02 22 E5 AC C5 CD D1 .....*....".....
001FA0: A2 C1 CD B8 A2 2A E5 AC 0E 00 3A C4 AC 47 A5 B8 .....*....:..G..
001FB0: 23 C2 9A A9 E1 22 E5 AC CD DA A4 CD D1 A2 C1 C5 #...."..........
001FC0: CD B8 A2 C1 3A E3 AC 21 E1 AC BE DA D2 A9 77 34 ....:..!......w4
001FD0: 0E 02 00 00 21 00 97 F5 CD 69 A4 E6 7F 77 F1 FE ....!....i...w..
001FE0: 7F C2 00 AA 3A D5 AC FE 01 C2 00 AA CD D2 A3 CD ....:.........£.
001FF0: 5A A8 21 45 A2 7E B7 C2 FE A9 3D 32 E3 AC 36 00 Z.!E.~....=2..6.
002000: C3 D2 A3 AF 32 D5 AC C5 2A 43 A2 EB 21 21 00 19 ..£.2...*C..!!..
002010: 7E E6 7F F5 7E 17 23 7E 17 E6 1F 4F 7E 1F 1F 1F ~...~.#~...O~...
002020: 1F E6 0F 47 F1 23 6E 2C 2D 2E 06 C2 8B AA 21 20 ...G.#n,-.....!
002030: 00 19 77 21 0C 00 19 79 96 C2 47 AA 21 0E 00 19 ..w!...y..G.!...
002040: 78 96 E6 7F CA 7F AA C5 D5 CD A2 A7 D1 C1 2E 03 x...............
002050: 3A 45 A2 3C CA 84 AA 21 0C 00 19 71 21 0E 00 19 :E.<...!...q!...
002060: 70 CD 51 A7 3A 45 A2 3C C2 7F AA C1 C5 2E 04 0C p.Q.:E.<........
002070: CA 84 AA CD 24 A8 2E 05 3A 45 A2 3C CA 84 AA C1 ....$...:E.<....
002080: AF C3 01 A2 E5 CD 69 A4 36 C0 E1 C1 7D 32 45 A2 ......i.6...}2E.
002090: C3 78 A4 0E FF CD 03 AA CC C1 A8 C9 0E 00 CD 03 .x..............
0020A0: AA CC 03 A9 C9 EB 19 4E 06 00 21 0C 00 19 7E 0F .......N..!...~.
0020B0: E6 80 81 4F 3E 00 88 47 7E 0F E6 0F 80 47 21 0E ...O>..G~....G!.
0020C0: 00 19 7E 87 87 87 87 F5 80 47 F5 E1 7D E1 B5 E6 ..~......G..}...
0020D0: 01 C9 0E 0C CD 18 A6 2A 43 A2 11 21 00 19 E5 72 .......*C..!...r
0020E0: 23 72 23 72 CD F5 A4 CA 0C AB CD 5E A4 11 0F 00 #r#r.......^....
0020F0: CD A5 AA E1 E5 5F 79 96 23 78 9E 23 7B 9E DA 06 ....._y.#x.#{...
002100: C1 A1 FE 08 C2 16 A1 78 B7 CA EF A0 05 3A 0C A2 .......x.....:..
002110: 32 0A A2 C3 70 A1 FE 7F C2 26 A1 3E 08 C3 07 A1 2...p....&.>....
002120: 7E 05 2B C3 A9 A1 FE 05 C2 37 A1 C5 E5 CD C9 A0 ~.+......7......
002130: AF 32 0B A2 C3 F1 A0 FE 10 C2 48 A1 E5 21 0D A2 .2........H..!..
002140: 3E 01 96 77 E1 C3 EF A0 FE 18 C2 5F A1 E1 3A 0B >..w......._..:.
002150: A2 21 0C A2 BE D2 E1 A0 35 CD A4 A0 C3 4E A1 FE .!......5....N..
002160: 15 C2 6B A1 CD B1 A0 E1 C3 E1 A0 FE 12 C2 A6 A1 ..k.............
002170: C5 CD B1 A0 C1 E1 E5 C5 78 B7 CA 8A A1 23 4E 05 ........x....#N.
002180: C5 E5 CD 7F A0 E1 C1 C3 78 A1 E5 3A 0A A2 B7 CA ........x..:....
002190: F1 A0 21 0C A2 96 32 0A A2 CD A4 A0 21 0A A2 35 ..!...2.....!..5
0021A0: C2 99 A1 C3 F1 A0 23 77 04 C5 E5 4F CD 7F A0 E1 ......#w...O....
0021B0: C1 7E FE 03 78 C2 BD A1 FE 01 CA 00 00 B9 DA EF .~..x...........
0021C0: A0 E1 70 0E 0D C3 48 A0 CD 06 A0 C3 01 A2 CD 15 ..p...H.........
0021D0: AD C3 01 A2 79 3C CA E0 A1 3C CA 06 AD C3 0C AD ....y<...<......
0021E0: CD 06 AD B7 CA 91 AC CD 09 AD C3 01 A2 3A 03 00 .............:..
0021F0: C3 01 A2 21 03 00 71 C9 EB 4D 44 C3 D3 A0 CD 23 ...!..q..MD....#
002200: A0 32 45 A2 C9 3E 01 C3 01 A2 00 00 00 00 00 00 .2E..>..........
002210: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002220: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002230: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002240: 00 00 00 00 00 00 00 21 0B 9F 5E 23 56 EB E9 0C .......!..^#V...
002250: 0D C8 1A 77 13 23 C3 50 A2 3A 42 A2 4F CD 1B AD ...w.#.P.:B.O...
002260: 7C B5 C8 5E 23 56 23 22 B3 AC 23 23 22 B5 AC 23 |..^#V#"..##"..#
002270: 23 22 B7 AC 23 23 EB 22 D0 AC 21 B9 AC 0E 08 CD #"..##."..!.....
002280: 4F A2 2A BB AC EB 21 C1 AC 0E 0F CD 4F A2 2A C6 O.*...!.....O.*.
002290: AC 7C 21 DD AC 36 FF B7 CA 9D A2 36 00 3E FF B7 .|!..6.....6.>..
0022A0: C9 CD 18 AD AF 2A B5 AC 77 23 77 2A B7 AC 77 23 .....*..w#w*..w#
0022B0: 77 C9 CD 27 AD C3 BB A2 CD 2A AD B7 C8 21 09 9F w..'.....*...!..
0022C0: C3 4A A2 2A EA AC 0E 02 CD EA A3 22 E5 AC 22 EC .J.*......£"..".
0022D0: AC 21 E5 AC 4E 23 46 2A B7 AC 5E 23 56 2A B5 AC .!..N#F*..^#V*..
0022E0: 7E 23 66 6F 79 93 78 9A D2 FA A2 E5 2A C1 AC 7B ~#foy.x.....*..{
0022F0: 95 5F 7A 9C 57 E1 2B C3 E4 A2 E5 2A C1 AC 19 DA ._z.W.+....*....
002300: AB 73 2B 70 2B 71 CD 2D A6 C3 E4 AA E1 C9 2A 43 .s+p+q.-......*C
002310: A2 11 20 00 CD A5 AA 21 21 00 19 71 23 70 23 77 .. ....!!..q#p#w
002320: C9 2A AF AC 3A 42 A2 4F CD EA A3 E5 EB CD 59 A2 .*..:B.O..£...Y.
002330: E1 CC 47 A2 7D 1F D8 2A AF AC 4D 44 CD 0B A4 22 ..G.}..*..MD..."
002340: AF AC C3 A3 A5 3A D6 AC 21 42 A2 BE C8 77 C3 21 ...£.:..!B...w.!
002350: AB 3E FF 32 DE AC 2A 43 A2 7E E6 1F 3D 32 D6 AC .>.2..*C.~..=2..
002360: FE 1E D2 75 AB 3A 42 A2 32 DF AC 7E 32 E0 AC E6 ...u.:B.2..~2...
002370: E0 77 CD 45 AB 3A 41 A2 2A 43 A2 B6 77 C9 3E 22 .w.E.:A.*C..w.>"
002380: C3 01 A2 21 00 00 22 AD AC 22 AF AC AF 32 42 A2 ...!..".."...2B.
002390: 21 80 00 22 B1 AC CD DA A4 C3 21 AB CD 72 A4 CD !.."......!..r..
0023A0: 51 AB C3 51 A7 CD 51 AB C3 A2 A7 0E 00 EB 7E FE Q..Q..Q.......~.
0023B0: 3F CA C2 AB CD A6 A3 7E FE 3F C4 72 A4 CD 51 AB ?.....£~.?.r..Q.
0023C0: 0E 0F CD 18 A6 C3 E9 A4 2A D9 AC 22 43 A2 CD 51 ........*.."C..Q
0023D0: AB CD 2D A6 C3 E9 A4 CD 51 AB CD 9C A6 C3 01 A6 ..-.....Q.......
0023E0: CD 51 AB C3 BC A8 CD 51 AB C3 FE A8 CD 72 A4 CD .Q.....Q.....r..
0023F0: 51 AB C3 24 A8 CD 51 AB CD 16 A7 C3 01 A6 2A AF Q..$..Q.......*.
002400: AC C3 29 AC 3A 42 A2 C3 01 A2 EB 22 B1 AC C3 DA ..).:B....."....
002410: A4 2A BF AC C3 29 AC 2A AD AC C3 29 AC CD 51 AB .*...).*...)..Q.
002420: CD 3B A7 C3 01 A6 2A BB AC 22 45 A2 C9 3A D6 AC .;....*.."E..:..
002430: FE FF C2 3B AC 3A 41 A2 C3 01 A2 E6 1F 32 41 A2 ...;.:A......2A.
002440: C9 CD 51 AB C3 93 AA CD 51 AB C3 9C AA CD 51 AB ..Q.....Q.....Q.
002450: C3 D2 AA 2A 43 A2 7D 2F 5F 7C 2F 2A AF AC A4 57 ...*C.}/_|/*...W
002460: 7D A3 5F 2A AD AC EB 22 AF AC 7D A3 6F 7C A2 67 }£_*..."..}£o|.g
002470: 22 AD AC C9 3A DE AC B7 CA 91 AC 2A 43 A2 36 00 "...:......*C.6.
002480: 3A E0 AC B7 CA 91 AC 77 3A DF AC 32 D6 AC CD 45 :......w:..2...E
002490: AB 2A 0F A2 F9 2A 45 A2 7D 44 C9 CD 51 AB 3E 02 .*...*E.}D..Q.>.
0024A0: 32 D5 AC 0E 00 CD 07 AA CC 03 A9 C9 E5 00 00 00 2...............
0024B0: 00 80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0024C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0024D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0024E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0024F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002500: 0F A3 79 95 78 9C DA 0F A3 EB E1 23 C3 FA A2 E1 .£y.x...£..#....
002510: C5 D5 E5 EB 2A CE AC 19 44 4D CD 1E AD D1 2A B5 ....*...DM....*.
002520: AC 73 23 72 D1 2A B7 AC 73 23 72 C1 79 93 4F 78 .s#r.*..s#r.y.Ox
002530: 9A 47 2A D0 AC EB CD 30 AD 4D 44 C3 21 AD 21 C3 .G*....0.MD.!.!.
002540: AC 4E 3A E3 AC B7 1F 0D C2 45 A3 47 3E 08 96 4F .N:......E£G>..O
002550: 3A E2 AC 0D CA 5C A3 B7 17 C3 53 A3 80 C9 2A 43 :....\£...S£..*C
002560: A2 11 10 00 19 09 3A DD AC B7 CA 71 A3 6E 26 00 ......:....q£n&.
002570: C9 09 5E 23 56 EB C9 CD 3E A3 4F 06 00 CD 5E A3 ..^#V...>£O...^£
002580: 22 E5 AC C9 2A E5 AC 7D B4 C9 3A C3 AC 2A E5 AC "...*..}..:..*..
002590: 29 3D C2 90 A3 22 E7 AC 3A C4 AC 4F 3A E3 AC A1 )=..£"..:..O:...
0025A0: B5 6F 22 E5 AC C9 2A 43 A2 11 0C 00 19 C9 2A 43 .o"...*C......*C
0025B0: A2 11 0F 00 19 EB 21 11 00 19 C9 CD AE A3 7E 32 ......!......£~2
0025C0: E3 AC EB 7E 32 E1 AC CD A6 A3 3A C5 AC A6 32 E2 ...~2....£:...2.
0025D0: AC C9 CD AE A3 3A D5 AC FE 02 C2 DE A3 AF 4F 3A ....£:......£.O:
0025E0: E3 AC 81 77 EB 3A E1 AC 77 C9 0C 0D C8 7C B7 1F ...w.:..w....|..
0025F0: 67 7D 1F 6F C3 EB A3 0E 80 2A B9 AC AF 86 23 0D g}.o..£..*....#.
002600: C2 FD A3 C9 0C 0D C8 29 C3 05 A4 C5 3A 42 A2 4F ..£....)....:B.O
002610: 21 01 00 CD 04 A4 C1 79 B5 6F 78 B4 67 C9 2A AD !......y.ox.g.*.
002620: AC 3A 42 A2 4F CD EA A3 7D E6 01 C9 21 AD AC 4E .:B.O..£}...!..N
002630: 23 46 CD 0B A4 22 AD AC 2A C8 AC 23 EB 2A B3 AC #F..."..*..#.*..
002640: 73 23 72 C9 CD 5E A4 11 09 00 19 7E 17 D0 21 0F s#r..^.....~..!.
002650: 9F C3 4A A2 CD 1E A4 C8 21 0D 9F C3 4A A2 2A B9 ..J.....!...J.*.
002660: AC 3A E9 AC 85 6F D0 24 C9 2A 43 A2 11 0E 00 19 .:...o.$.*C.....
002670: 7E C9 CD 69 A4 36 00 C9 CD 69 A4 F6 80 77 C9 2A ~..i.6...i...w.*
002680: EA AC EB 2A B3 AC 7B 96 23 7A 9E C9 CD 7F A4 D8 ...*..{.#z......
002690: 13 72 2B 73 C9 7B 95 6F 7A 9C 67 C9 0E FF 2A EC .r+s.{.oz.g...*.
0026A0: AC EB 2A CC AC CD 95 A4 D0 C5 CD F7 A3 2A BD AC ..*.........£*..
0026B0: EB 2A EC AC 19 C1 0C CA C4 A4 BE C8 CD 7F A4 D0 .*..............
0026C0: CD 2C A4 C9 77 C9 CD 9C A4 CD E0 A4 0E 01 CD B8 .,..w...........
0026D0: A2 C3 DA A4 CD E0 A4 CD B2 A2 21 B1 AC C3 E3 A4 ..........!.....
0026E0: 21 B9 AC 4E 23 46 C3 24 AD 2A B9 AC EB 2A B1 AC !..N#F.$.*...*..
0026F0: 0E 80 C3 4F A2 21 EA AC 7E 23 BE C0 3C C9 21 FF ...O.!..~#..<.!.
002700: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
002710: 02 00 00 00 02 09 50 E5 02 00 41 02 00 00 00 02 ......P...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 48 41 54 43 48 20 20 20 48 47 48 00 00 00 16 .HATCH HGH....
002810: 02 03 04 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002820: 00 50 4F 4C 59 47 4F 4E 20 48 47 48 00 00 00 23 .POLYGON HGH...#
002830: 05 06 07 08 09 00 00 00 00 00 00 00 00 00 00 00 ................
002840: 00 4B 45 52 4E 45 4C 31 20 53 59 53 00 00 00 69 .KERNEL1 SYS...i
002850: 0A 0B 0C 0D 0E 0F 10 11 12 13 14 15 16 17 00 00 ................
002860: 00 4D 4F 44 50 4F 4C 59 20 48 47 48 00 00 00 12 .MODPOLY HGH....
002870: 18 19 1A 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002880: 00 47 52 41 50 48 49 58 20 53 59 53 00 00 00 70 .GRAPHIX SYS...p
002890: 25 56 57 58 59 5A 5B 5C 5D 5E 5F 60 61 62 00 00 %VWXYZ[\]^_`ab..
0028A0: 00 57 49 4E 44 4F 57 53 20 53 59 53 00 00 00 49 .WINDOWS SYS...I
0028B0: 1B 1C 1D 1E 1F 20 21 22 23 24 00 00 00 00 00 00 ..... !"#$......
0028C0: 00 53 43 52 45 45 4E 49 4F 43 4F 4D 00 00 00 80 .SCREENIOCOM....
0028D0: 26 27 28 29 2A 2B 2C 2D 2E 2F 30 31 32 33 63 64 &'()*+,-./0123cd
0028E0: 00 53 43 52 45 45 4E 49 4F 43 4F 4D 01 00 00 49 .SCREENIOCOM...I
0028F0: 65 66 67 68 69 6A 6B 6C 6D 6E 00 00 00 00 00 00 efghijklmn......
002900: 00 43 49 52 43 53 45 47 4D 48 47 48 00 00 00 26 .CIRCSEGMHGH...&
002910: 34 35 36 37 38 00 00 00 00 00 00 00 00 00 00 00 45678...........
002920: 00 50 49 45 20 20 20 20 20 48 47 48 00 00 00 0E .PIE HGH....
002930: 39 3A 00 00 00 00 00 00 00 00 00 00 00 00 00 00 9:..............
002940: 00 48 49 53 54 4F 47 52 4D 48 47 48 00 00 00 1D .HISTOGRMHGH....
002950: 3B 3C 3D 3E 00 00 00 00 00 00 00 00 00 00 00 00 ;<=>............
002960: 00 4B 45 52 4E 45 4C 20 20 53 59 53 00 00 00 4B .KERNEL SYS...K
002970: 3F 40 41 42 43 44 45 46 47 48 00 00 00 00 00 00 ?@ABCDEFGH......
002980: 00 42 45 5A 49 45 52 20 20 48 47 48 00 00 00 12 .BEZIER HGH....
002990: 49 4A 4B 00 00 00 00 00 00 00 00 00 00 00 00 00 IJK.............
0029A0: 00 53 50 4C 49 4E 45 20 20 48 47 48 00 00 00 1C .SPLINE HGH....
0029B0: 4C 4D 4E 4F 00 00 00 00 00 00 00 00 00 00 00 00 LMNO............
0029C0: 00 34 58 36 20 20 20 20 20 46 4F 4E 00 00 00 04 .4X6 FON....
0029D0: 50 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 P...............
0029E0: 00 46 49 4E 44 57 52 4C 44 48 47 48 00 00 00 0D .FINDWRLDHGH....
0029F0: 51 52 00 00 00 00 00 00 00 00 00 00 00 00 00 00 QR..............
002A00: 20 20 20 20 20 20 20 20 20 20 20 20 42 4F 52 4C BORL
002A10: 41 4E 44 20 49 6E 74 65 72 6E 61 74 69 6F 6E 61 AND Internationa
002A20: 6C 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 l
002A30: 20 20 20 2A 29 0D 0A 28 2A 20 20 20 20 20 20 20 *)..(*
002A40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
002A50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
002A60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
002A70: 20 20 2A 29 0D 0A 28 2A 2A 2A 2A 2A 2A 2A 2A 2A *)..(*********
002A80: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
002A90: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
002AA0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
002AB0: 2A 2A 29 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 65 **)....procedure
002AC0: 20 48 61 74 63 68 28 58 5F 31 2C 59 5F 31 2C 58 Hatch(X_1,Y_1,X
002AD0: 5F 32 2C 59 5F 32 2C 44 65 6C 74 61 3A 72 65 61 _2,Y_2,Delta:rea
002AE0: 6C 29 3B 0D 0A 20 20 76 61 72 20 78 31 2C 79 31 l);.. var x1,y1
002AF0: 2C 78 32 2C 79 32 3A 69 6E 74 65 67 65 72 3B 0D ,x2,y2:integer;.
002B00: 0A 20 20 20 20 20 20 44 69 72 65 63 74 4D 6F 64 . DirectMod
002B10: 65 4C 6F 63 2C 44 75 6D 6D 79 3A 62 6F 6F 6C 65 eLoc,Dummy:boole
002B20: 61 6E 3B 0D 0A 0D 0A 20 20 70 72 6F 63 65 64 75 an;.... procedu
002B30: 72 65 20 48 61 74 63 68 44 69 72 65 63 74 28 78 re HatchDirect(x
002B40: 31 2C 79 31 2C 78 32 2C 79 32 2C 44 65 6C 74 61 1,y1,x2,y2,Delta
002B50: 3A 69 6E 74 65 67 65 72 29 3B 0D 0A 20 20 20 20 :integer);..
002B60: 76 61 72 20 69 2C 79 73 74 2C 79 65 6E 2C 63 6F var i,yst,yen,co
002B70: 75 6E 74 3A 69 6E 74 65 67 65 72 3B 0D 0A 20 20 unt:integer;..
002B80: 20 20 20 20 20 20 58 31 52 65 66 4C 6F 63 2C 58 X1RefLoc,X
002B90: 32 52 65 66 4C 6F 63 2C 59 31 52 65 66 4C 6F 63 2RefLoc,Y1RefLoc
002BA0: 2C 59 32 52 65 66 4C 6F 63 3A 69 6E 74 65 67 65 ,Y2RefLoc:intege
002BB0: 72 3B 0D 0A 20 20 20 20 20 20 20 20 44 69 72 65 r;.. Dire
002BC0: 63 74 4D 6F 64 65 4C 6F 63 2C 43 6C 69 70 70 69 ctModeLoc,Clippi
002BD0: 6E 67 4C 6F 63 3A 62 6F 6F 6C 65 61 6E 3B 0D 0A ngLoc:boolean;..
002BE0: 20 20 20 20 20 20 20 20 58 31 44 2C 59 31 44 2C X1D,Y1D,
002BF0: 58 32 44 2C 59 32 44 3A 20 69 6E 74 65 67 65 72 X2D,Y2D: integer
002C00: 00 54 59 50 45 44 45 46 20 53 59 53 00 00 00 14 .TYPEDEF SYS....
002C10: 53 54 55 00 00 00 00 00 00 00 00 00 00 00 00 00 STU.............
002C20: 00 54 47 44 45 4D 4F 20 20 43 4F 4D 00 00 00 00 .TGDEMO COM....
002C30: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002C40: 00 44 45 4D 4F 20 20 20 20 50 49 43 00 00 00 80 .DEMO PIC....
002C50: 86 87 88 89 8A 8B 8C 8D 8E 8F 90 91 92 93 94 95 ................
002C60: 00 42 45 5A 49 44 45 4D 4F 43 4F 4D 00 00 00 80 .BEZIDEMOCOM....
002C70: 6F 70 71 72 73 74 75 76 77 78 79 81 82 83 84 85 opqrstuvwxy.....
002C80: 00 42 45 5A 49 44 45 4D 4F 43 4F 4D 01 00 00 80 .BEZIDEMOCOM....
002C90: 96 97 98 99 9A 9B 9C 9D 9E 9F A0 A1 A2 A3 A4 A5 .............£..
002CA0: 00 42 45 5A 49 44 45 4D 4F 43 4F 4D 02 00 00 24 .BEZIDEMOCOM...$
002CB0: A6 A7 A8 A9 AA 00 00 00 00 00 00 00 00 00 00 00 ................
002CC0: 00 41 58 49 53 20 20 20 20 48 47 48 00 00 00 37 .AXIS HGH...7
002CD0: 7A 7B 7C 7D 7E 7F 80 00 00 00 00 00 00 00 00 00 z{|}~...........
002CE0: 00 53 41 56 53 43 52 20 20 24 24 24 00 00 00 00 .SAVSCR $$$....
002CF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002D00: E5 45 58 32 20 20 20 20 20 42 41 53 00 00 00 03 .EX2 BAS....
002D10: 5E 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ^...............
002D20: E5 52 4F 49 4E 54 49 4D 45 44 45 4D 01 00 00 50 .ROINTIMEDEM...P
002D30: 6F 70 71 72 73 74 75 76 77 78 00 00 00 00 00 00 opqrstuvwx......
002D40: E5 52 4F 49 4E 54 49 4D 45 44 45 4D 00 00 00 80 .ROINTIMEDEM....
002D50: 5F 60 61 62 63 64 65 66 67 68 69 6A 6B 6C 6D 6E _`abcdefghijklmn
002D60: E5 52 49 54 44 45 4D 4F 20 42 49 4E 00 00 00 59 .RITDEMO BIN...Y
002D70: 79 7A 7B 7C 7D 7E 7F 80 81 82 83 84 00 00 00 00 yz{|}~..........
002D80: E5 44 49 53 43 20 20 20 20 42 41 53 00 00 00 80 .DISC BAS....
002D90: 85 86 87 88 89 8A 8B 8C 8D 8E 8F 90 91 92 93 94 ................
002DA0: E5 44 49 53 43 20 20 20 20 42 41 53 01 00 00 1E .DISC BAS....
002DB0: 95 96 97 98 00 00 00 00 00 00 00 00 00 00 00 00 ................
002DC0: E5 4C 49 52 45 38 32 35 36 20 20 20 00 00 00 0F .LIRE8256 ....
002DD0: 99 9A 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002DE0: E5 38 32 35 36 20 20 20 20 4B 45 59 00 00 00 01 .8256 KEY....
002DF0: 9B 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002E00: 3B 0D 0A 0D 0A 20 20 20 20 62 65 67 69 6E 20 7B ;.... begin {
002E10: 20 48 61 74 63 68 44 69 72 65 63 74 20 7D 0D 0A HatchDirect }..
002E20: 20 20 20 20 20 20 69 66 20 44 65 6C 74 61 3C 3E if Delta<>
002E30: 30 20 74 68 65 6E 0D 0A 20 20 20 20 20 20 20 62 0 then.. b
002E40: 65 67 69 6E 0D 0A 20 20 20 20 20 20 20 20 48 61 egin.. Ha
002E50: 74 63 68 47 6C 62 3A 3D 74 72 75 65 3B 0D 0A 20 tchGlb:=true;..
002E60: 20 20 20 20 20 20 20 44 69 72 65 63 74 4D 6F 64 DirectMod
002E70: 65 4C 6F 63 3A 3D 44 69 72 65 63 74 4D 6F 64 65 eLoc:=DirectMode
002E80: 47 6C 62 3B 0D 0A 20 20 20 20 20 20 20 20 44 69 Glb;.. Di
002E90: 72 65 63 74 4D 6F 64 65 47 6C 62 3A 3D 74 72 75 rectModeGlb:=tru
002EA0: 65 3B 0D 0A 20 20 20 20 20 20 20 20 43 6C 69 70 e;.. Clip
002EB0: 70 69 6E 67 4C 6F 63 3A 3D 43 6C 69 70 70 69 6E pingLoc:=Clippin
002EC0: 67 47 6C 62 3B 0D 0A 20 20 20 20 20 20 20 20 43 gGlb;.. C
002ED0: 6C 69 70 70 69 6E 67 47 6C 62 3A 3D 74 72 75 65 lippingGlb:=true
002EE0: 3B 0D 0A 20 20 20 20 20 20 20 20 58 31 52 65 66 ;.. X1Ref
002EF0: 4C 6F 63 3A 3D 58 31 52 65 66 47 6C 62 3B 0D 0A Loc:=X1RefGlb;..
002F00: 20 20 20 20 20 20 20 20 58 31 52 65 66 47 6C 62 X1RefGlb
002F10: 3A 3D 78 31 3B 0D 0A 20 20 20 20 20 20 20 20 58 :=x1;.. X
002F20: 32 52 65 66 4C 6F 63 3A 3D 58 32 52 65 66 47 6C 2RefLoc:=X2RefGl
002F30: 62 3B 0D 0A 20 20 20 20 20 20 20 20 58 32 52 65 b;.. X2Re
002F40: 66 47 6C 62 3A 3D 78 32 3B 0D 0A 20 20 20 20 20 fGlb:=x2;..
002F50: 20 20 20 59 31 52 65 66 4C 6F 63 3A 3D 59 31 52 Y1RefLoc:=Y1R
002F60: 65 66 47 6C 62 3B 0D 0A 20 20 20 20 20 20 20 20 efGlb;..
002F70: 59 31 52 65 66 47 6C 62 3A 3D 79 31 3B 0D 0A 20 Y1RefGlb:=y1;..
002F80: 20 20 20 20 20 20 20 59 32 52 65 66 4C 6F 63 3A Y2RefLoc:
002F90: 3D 59 32 52 65 66 47 6C 62 3B 0D 0A 20 20 20 20 =Y2RefGlb;..
002FA0: 20 20 20 20 59 32 52 65 66 47 6C 62 3A 3D 79 32 Y2RefGlb:=y2
002FB0: 3B 0D 0A 20 20 20 20 20 20 20 20 79 73 74 3A 3D ;.. yst:=
002FC0: 79 31 2B 44 65 6C 74 61 3B 0D 0A 20 20 20 20 20 y1+Delta;..
002FD0: 20 20 20 79 65 6E 3A 3D 79 31 2D 78 32 2B 78 31 yen:=y1-x2+x1
002FE0: 2B 44 65 6C 74 61 3B 0D 0A 20 20 20 20 20 20 20 +Delta;..
002FF0: 20 69 66 20 44 65 6C 74 61 3C 30 20 74 68 65 6E if Delta<0 then
003000: E5 54 47 44 45 4D 4F 30 20 49 4E 43 00 00 00 0A .TGDEMO0 INC....
003010: 9C 9D 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003020: E5 54 55 52 42 4F 20 20 20 24 24 24 00 00 00 00 .TURBO $$$....
003030: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003040: E5 54 47 44 45 4D 4F 30 20 24 24 24 00 00 00 00 .TGDEMO0 $$$....
003050: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0030A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0030B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0030C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0030D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0030E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0030F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0031A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0031B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0031C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0031D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0031E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0031F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003200: 0D 0A 20 20 20 20 20 20 20 20 20 62 65 67 69 6E .. begin
003210: 0D 0A 20 20 20 20 20 20 20 20 20 20 44 65 6C 74 .. Delt
003220: 61 3A 3D 2D 44 65 6C 74 61 3B 0D 0A 20 20 20 20 a:=-Delta;..
003230: 20 20 20 20 20 20 69 3A 3D 79 73 74 3B 0D 0A 20 i:=yst;..
003240: 20 20 20 20 20 20 20 20 20 79 73 74 3A 3D 79 65 yst:=ye
003250: 6E 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 79 65 n;.. ye
003260: 6E 3A 3D 69 3B 0D 0A 20 20 20 20 20 20 20 20 20 n:=i;..
003270: 65 6E 64 3B 0D 0A 20 20 20 20 20 20 20 20 63 6F end;.. co
003280: 75 6E 74 3A 3D 28 79 32 2D 79 31 2B 78 32 2D 78 unt:=(y2-y1+x2-x
003290: 31 2B 78 32 2D 78 31 29 20 64 69 76 20 44 65 6C 1+x2-x1) div Del
0032A0: 74 61 3B 0D 0A 20 20 20 20 20 20 20 20 66 6F 72 ta;.. for
0032B0: 20 69 3A 3D 31 20 74 6F 20 63 6F 75 6E 74 2D 31 i:=1 to count-1
0032C0: 20 64 6F 0D 0A 20 20 20 20 20 20 20 20 20 62 65 do.. be
0032D0: 67 69 6E 0D 0A 20 20 20 20 20 20 20 20 20 20 58 gin.. X
0032E0: 31 44 3A 3D 78 31 3B 0D 0A 20 20 20 20 20 20 20 1D:=x1;..
0032F0: 20 20 20 59 31 44 3A 3D 79 73 74 3B 0D 0A 20 20 Y1D:=yst;..
003300: 20 20 20 20 20 20 20 20 58 32 44 3A 3D 78 32 3B X2D:=x2;
003310: 0D 0A 20 20 20 20 20 20 20 20 20 20 59 32 44 3A .. Y2D:
003320: 3D 79 65 6E 3B 0D 0A 20 20 20 20 20 20 20 20 20 =yen;..
003330: 20 69 66 20 63 6C 69 70 28 58 31 44 2C 59 31 44 if clip(X1D,Y1D
003340: 2C 58 32 44 2C 59 32 44 29 20 74 68 65 6E 20 44 ,X2D,Y2D) then D
003350: 72 61 77 4C 69 6E 65 28 58 31 44 2C 59 31 44 2C rawLine(X1D,Y1D,
003360: 58 32 44 2C 59 32 44 29 3B 0D 0A 20 20 20 20 20 X2D,Y2D);..
003370: 20 20 20 20 20 79 73 74 3A 3D 79 73 74 2B 44 65 yst:=yst+De
003380: 6C 74 61 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 lta;..
003390: 79 65 6E 3A 3D 79 65 6E 2B 44 65 6C 74 61 3B 0D yen:=yen+Delta;.
0033A0: 0A 20 20 20 20 20 20 20 20 20 65 6E 64 3B 0D 0A . end;..
0033B0: 20 20 20 20 20 20 20 20 43 6C 69 70 70 69 6E 67 Clipping
0033C0: 47 6C 62 3A 3D 43 6C 69 70 70 69 6E 67 4C 6F 63 Glb:=ClippingLoc
0033D0: 3B 0D 0A 20 20 20 20 20 20 20 20 48 61 74 63 68 ;.. Hatch
0033E0: 47 6C 62 3A 3D 66 61 6C 73 65 3B 0D 0A 20 20 20 Glb:=false;..
0033F0: 20 20 20 20 20 58 31 52 65 66 47 6C 62 3A 3D 58 X1RefGlb:=X
003400: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003410: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003420: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003430: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003440: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003450: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003460: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003470: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003480: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003490: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0034A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0034B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
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: 31 52 65 66 4C 6F 63 3B 0D 0A 20 20 20 20 20 20 1RefLoc;..
003610: 20 20 58 32 52 65 66 47 6C 62 3A 3D 58 32 52 65 X2RefGlb:=X2Re
003620: 66 4C 6F 63 3B 0D 0A 20 20 20 20 20 20 20 20 59 fLoc;.. Y
003630: 31 52 65 66 47 6C 62 3A 3D 59 31 52 65 66 4C 6F 1RefGlb:=Y1RefLo
003640: 63 3B 0D 0A 20 20 20 20 20 20 20 20 59 32 52 65 c;.. Y2Re
003650: 66 47 6C 62 3A 3D 59 32 52 65 66 4C 6F 63 3B 0D fGlb:=Y2RefLoc;.
003660: 0A 20 20 20 20 20 20 20 20 44 69 72 65 63 74 4D . DirectM
003670: 6F 64 65 47 6C 62 3A 3D 44 69 72 65 63 74 4D 6F odeGlb:=DirectMo
003680: 64 65 4C 6F 63 3B 0D 0A 20 20 20 20 20 20 20 65 deLoc;.. e
003690: 6E 64 3B 0D 0A 20 20 20 20 65 6E 64 3B 20 7B 20 nd;.. end; {
0036A0: 48 61 74 63 68 44 69 72 65 63 74 20 7D 0D 0A 0D HatchDirect }...
0036B0: 0A 20 20 62 65 67 69 6E 20 7B 20 48 61 74 63 68 . begin { Hatch
0036C0: 20 7D 0D 0A 20 20 20 20 69 66 20 44 69 72 65 63 }.. if Direc
0036D0: 74 4D 6F 64 65 47 6C 62 20 74 68 65 6E 0D 0A 20 tModeGlb then..
0036E0: 20 20 20 20 20 48 61 74 63 68 44 69 72 65 63 74 HatchDirect
0036F0: 28 74 72 75 6E 63 28 58 5F 31 29 2C 74 72 75 6E (trunc(X_1),trun
003700: 63 28 59 5F 31 29 2C 74 72 75 6E 63 28 58 5F 32 c(Y_1),trunc(X_2
003710: 29 2C 74 72 75 6E 63 28 59 5F 32 29 2C 74 72 75 ),trunc(Y_2),tru
003720: 6E 63 28 44 65 6C 74 61 29 29 0D 0A 20 20 20 20 nc(Delta))..
003730: 65 6C 73 65 0D 0A 20 20 20 20 20 62 65 67 69 6E else.. begin
003740: 0D 0A 20 20 20 20 20 20 44 69 72 65 63 74 4D 6F .. DirectMo
003750: 64 65 4C 6F 63 3A 3D 44 69 72 65 63 74 4D 6F 64 deLoc:=DirectMod
003760: 65 47 6C 62 3B 0D 0A 20 20 20 20 20 20 44 69 72 eGlb;.. Dir
003770: 65 63 74 4D 6F 64 65 47 6C 62 3A 3D 74 72 75 65 ectModeGlb:=true
003780: 3B 0D 0A 20 20 20 20 20 20 78 31 3A 3D 57 69 6E ;.. x1:=Win
003790: 64 6F 77 58 28 58 5F 31 29 3B 0D 0A 20 20 20 20 dowX(X_1);..
0037A0: 20 20 79 31 3A 3D 57 69 6E 64 6F 77 59 28 59 5F y1:=WindowY(Y_
0037B0: 31 29 3B 0D 0A 20 20 20 20 20 20 78 32 3A 3D 57 1);.. x2:=W
0037C0: 69 6E 64 6F 77 58 28 58 5F 32 29 3B 0D 0A 20 20 indowX(X_2);..
0037D0: 20 20 20 20 79 32 3A 3D 57 69 6E 64 6F 77 59 28 y2:=WindowY(
0037E0: 59 5F 32 29 3B 0D 0A 20 20 20 20 20 20 44 75 6D Y_2);.. Dum
0037F0: 6D 79 3A 3D 63 6C 69 70 28 78 31 2C 79 31 2C 78 my:=clip(x1,y1,x
003800: 28 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A (***************
003810: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
003820: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
003830: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 29 0D 0A 28 ************)..(
003840: 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 *
003850: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
003860: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
003870: 20 20 20 20 20 20 20 20 20 20 2A 29 0D 0A 28 2A *)..(*
003880: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
003890: 54 55 52 42 4F 20 47 52 41 50 48 49 58 20 76 65 TURBO GRAPHIX ve
0038A0: 72 73 69 6F 6E 20 31 2E 30 35 41 20 20 20 20 20 rsion 1.05A
0038B0: 20 20 20 20 20 20 20 20 20 2A 29 0D 0A 28 2A 20 *)..(*
0038C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0038D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0038E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0038F0: 20 20 20 20 20 20 20 20 2A 29 0D 0A 28 2A 20 20 *)..(*
003900: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
003910: 20 20 43 72 6F 73 73 68 61 74 63 68 20 6D 6F 64 Crosshatch mod
003920: 75 6C 65 20 20 20 20 20 20 20 20 20 20 20 20 20 ule
003930: 20 20 20 20 20 20 20 2A 29 0D 0A 28 2A 20 20 20 *)..(*
003940: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4D M
003950: 6F 64 75 6C 65 20 76 65 72 73 69 6F 6E 20 20 31 odule version 1
003960: 2E 30 30 41 20 20 20 20 20 20 20 20 20 20 20 20 .00A
003970: 20 20 20 20 20 20 2A 29 0D 0A 28 2A 20 20 20 20 *)..(*
003980: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
003990: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0039A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0039B0: 20 20 20 20 20 2A 29 0D 0A 28 2A 20 20 20 20 20 *)..(*
0039C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 43 6F 70 Cop
0039D0: 79 72 69 67 68 74 20 28 43 29 20 31 39 38 35 20 yright (C) 1985
0039E0: 62 79 20 20 20 20 20 20 20 20 20 20 20 20 20 20 by
0039F0: 20 20 20 20 2A 29 0D 0A 28 2A 20 20 20 20 20 20 *)..(*
003A00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
003A10: 03 00 00 00 02 09 50 E5 03 00 41 02 00 00 00 02 ......P...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: 32 2C 79 31 29 3B 0D 0A 20 20 20 20 20 20 44 75 2,y1);.. Du
003B10: 6D 6D 79 3A 3D 63 6C 69 70 28 78 31 2C 79 31 2C mmy:=clip(x1,y1,
003B20: 78 31 2C 79 32 29 3B 0D 0A 20 20 20 20 20 20 48 x1,y2);.. H
003B30: 61 74 63 68 44 69 72 65 63 74 28 78 31 2C 79 31 atchDirect(x1,y1
003B40: 2C 78 32 2C 79 32 2C 74 72 75 6E 63 28 44 65 6C ,x2,y2,trunc(Del
003B50: 74 61 29 29 3B 0D 0A 20 20 20 20 20 20 44 69 72 ta));.. Dir
003B60: 65 63 74 4D 6F 64 65 47 6C 62 3A 3D 44 69 72 65 ectModeGlb:=Dire
003B70: 63 74 4D 6F 64 65 4C 6F 63 3B 0D 0A 20 20 20 20 ctModeLoc;..
003B80: 20 65 6E 64 3B 0D 0A 20 20 65 6E 64 3B 20 7B 20 end;.. end; {
003B90: 48 61 74 63 68 20 7D 0D 0A 1A E5 E5 E5 E5 E5 E5 Hatch }.........
003BA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003BB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003BC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003BD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003BE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003BF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003C00: 63 28 59 5F 31 29 2C 74 72 75 6E 63 28 58 5F 32 c(Y_1),trunc(X_2
003C10: 29 2C 74 72 75 6E 63 28 59 5F 32 29 2C 74 72 75 ),trunc(Y_2),tru
003C20: 6E 63 28 44 65 6C 74 61 29 29 0D 0A 20 20 20 20 nc(Delta))..
003C30: 65 6C 73 65 0D 0A 20 20 20 20 20 62 65 67 69 6E else.. begin
003C40: 0D 0A 20 20 20 20 20 20 44 69 72 65 63 74 4D 6F .. DirectMo
003C50: 64 65 4C 6F 63 3A 3D 44 69 72 65 63 74 4D 6F 64 deLoc:=DirectMod
003C60: 65 47 6C 62 3B 0D 0A 20 20 20 20 20 20 44 69 72 eGlb;.. Dir
003C70: 65 63 74 4D 6F 64 65 47 6C 62 3A 3D 74 72 75 65 ectModeGlb:=true
003C80: 3B 0D 0A 20 20 20 20 20 20 78 31 3A 3D 57 69 6E ;.. x1:=Win
003C90: 64 6F 77 58 28 58 5F 31 29 3B 0D 0A 20 20 20 20 dowX(X_1);..
003CA0: 20 20 79 31 3A 3D 57 69 6E 64 6F 77 59 28 59 5F y1:=WindowY(Y_
003CB0: 31 29 3B 0D 0A 20 20 20 20 20 20 78 32 3A 3D 57 1);.. x2:=W
003CC0: 69 6E 64 6F 77 58 28 58 5F 32 29 3B 0D 0A 20 20 indowX(X_2);..
003CD0: 20 20 20 20 79 32 3A 3D 57 69 6E 64 6F 77 59 28 y2:=WindowY(
003CE0: 59 5F 32 29 3B 0D 0A 20 20 20 20 20 20 44 75 6D Y_2);.. Dum
003CF0: 6D 79 3A 3D 63 6C 69 70 28 78 31 2C 79 31 2C 78 my:=clip(x1,y1,x
003D00: 69 72 65 63 74 4D 6F 64 65 47 6C 62 3B 0D 0A 20 irectModeGlb;..
003D10: 20 20 20 20 20 44 69 72 65 63 74 4D 6F 64 65 47 DirectModeG
003D20: 6C 62 3A 3D 74 72 75 65 3B 0D 0A 20 20 20 20 20 lb:=true;..
003D30: 20 41 75 74 6F 43 6C 69 70 3A 3D 28 4E 50 6F 69 AutoClip:=(NPoi
003D40: 6E 74 73 3C 30 29 3B 0D 0A 20 20 20 20 20 20 4E nts<0);.. N
003D50: 50 6F 69 6E 74 73 3A 3D 61 62 73 28 4E 50 6F 69 Points:=abs(NPoi
003D60: 6E 74 73 29 3B 0D 0A 20 20 20 20 20 20 58 4F 73 nts);.. XOs
003D70: 31 3A 3D 31 3B 0D 0A 20 20 20 20 20 20 58 4F 73 1:=1;.. XOs
003D80: 32 3A 3D 31 3B 0D 0A 20 20 20 20 20 20 59 4F 73 2:=1;.. YOs
003D90: 31 3A 3D 36 3B 0D 0A 20 20 20 20 20 20 59 4F 73 1:=6;.. YOs
003DA0: 32 3A 3D 36 3B 0D 0A 20 20 20 20 20 20 69 66 20 2:=6;.. if
003DB0: 41 78 69 73 47 6C 62 20 74 68 65 6E 0D 0A 20 20 AxisGlb then..
003DC0: 20 20 20 20 20 62 65 67 69 6E 0D 0A 20 20 20 20 begin..
003DD0: 20 20 20 20 58 4F 73 31 3A 3D 34 3B 0D 0A 20 20 XOs1:=4;..
003DE0: 20 20 20 20 20 20 58 4F 73 32 3A 3D 32 3B 0D 0A XOs2:=2;..
003DF0: 20 20 20 20 20 20 20 20 59 4F 73 31 3A 3D 36 3B YOs1:=6;
003E00: 0D 0A 20 20 20 20 20 20 20 20 59 4F 73 32 3A 3D .. YOs2:=
003E10: 31 34 3B 0D 0A 20 20 20 20 20 20 20 20 69 66 20 14;.. if
003E20: 28 28 28 58 32 52 65 66 47 6C 62 2B 37 2D 58 4F (((X2RefGlb+7-XO
003E30: 73 32 2D 58 31 52 65 66 47 6C 62 2B 58 4F 73 32 s2-X1RefGlb+XOs2
003E40: 29 20 3E 20 28 58 4F 73 31 2B 58 4F 73 32 29 20 ) > (XOs1+XOs2)
003E50: 73 68 6C 20 31 29 20 61 6E 64 0D 0A 20 20 20 20 shl 1) and..
003E60: 20 20 20 20 20 20 20 28 59 32 52 65 66 47 6C 62 (Y2RefGlb
003E70: 2D 59 4F 73 32 2D 59 31 52 65 66 47 6C 62 2B 59 -YOs2-Y1RefGlb+Y
003E80: 4F 73 31 20 3E 20 28 59 4F 73 31 2B 59 4F 73 32 Os1 > (YOs1+YOs2
003E90: 29 20 73 68 6C 20 31 29 29 20 74 68 65 6E 0D 0A ) shl 1)) then..
003EA0: 20 20 20 20 20 20 20 20 20 62 65 67 69 6E 0D 0A begin..
003EB0: 20 20 20 20 20 20 20 20 20 20 58 31 52 65 66 4C X1RefL
003EC0: 6F 63 3A 3D 58 31 52 65 66 47 6C 62 3B 0D 0A 20 oc:=X1RefGlb;..
003ED0: 20 20 20 20 20 20 20 20 20 78 31 3A 3D 58 31 52 x1:=X1R
003EE0: 65 66 47 6C 62 2B 58 4F 73 31 2B 58 31 47 6C 62 efGlb+XOs1+X1Glb
003EF0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 59 31 52 ;.. Y1R
003F00: 28 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A (***************
003F10: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
003F20: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
003F30: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 29 0D 0A 28 ************)..(
003F40: 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 *
003F50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
003F60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
003F70: 20 20 20 20 20 20 20 20 20 20 2A 29 0D 0A 28 2A *)..(*
003F80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
003F90: 54 55 52 42 4F 20 47 52 41 50 48 49 58 20 76 65 TURBO GRAPHIX ve
003FA0: 72 73 69 6F 6E 20 31 2E 30 35 41 20 20 20 20 20 rsion 1.05A
003FB0: 20 20 20 20 20 20 20 20 20 2A 29 0D 0A 28 2A 20 *)..(*
003FC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
003FD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
003FE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
003FF0: 20 20 20 20 20 20 20 20 2A 29 0D 0A 28 2A 20 20 *)..(*
004000: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
004010: 50 6F 6C 79 67 6F 6E 20 64 72 61 77 69 6E 67 20 Polygon drawing
004020: 6D 6F 64 75 6C 65 20 20 20 20 20 20 20 20 20 20 module
004030: 20 20 20 20 20 20 20 2A 29 0D 0A 28 2A 20 20 20 *)..(*
004040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
004050: 4D 6F 64 75 6C 65 20 76 65 72 73 69 6F 6E 20 31 Module version 1
004060: 2E 30 35 41 20 20 20 20 20 20 20 20 20 20 20 20 .05A
004070: 20 20 20 20 20 20 2A 29 0D 0A 28 2A 20 20 20 20 *)..(*
004080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
004090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0040A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0040B0: 20 20 20 20 20 2A 29 0D 0A 28 2A 20 20 20 20 20 *)..(*
0040C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 43 6F 70 Cop
0040D0: 79 72 69 67 68 74 20 28 43 29 20 31 39 38 35 20 yright (C) 1985
0040E0: 62 79 20 20 20 20 20 20 20 20 20 20 20 20 20 20 by
0040F0: 20 20 20 20 2A 29 0D 0A 28 2A 20 20 20 20 20 20 *)..(*
004100: 65 66 4C 6F 63 3A 3D 59 31 52 65 66 47 6C 62 3B efLoc:=Y1RefGlb;
004110: 0D 0A 20 20 20 20 20 20 20 20 20 20 79 31 3A 3D .. y1:=
004120: 59 31 52 65 66 47 6C 62 2B 59 4F 73 31 2B 59 31 Y1RefGlb+YOs1+Y1
004130: 47 6C 62 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 Glb;..
004140: 58 32 52 65 66 4C 6F 63 3A 3D 58 32 52 65 66 47 X2RefLoc:=X2RefG
004150: 6C 62 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 78 lb;.. x
004160: 32 3A 3D 58 32 52 65 66 47 6C 62 2D 58 4F 73 32 2:=X2RefGlb-XOs2
004170: 2D 58 32 47 6C 62 3B 0D 0A 20 20 20 20 20 20 20 -X2Glb;..
004180: 20 20 20 59 32 52 65 66 4C 6F 63 3A 3D 59 32 52 Y2RefLoc:=Y2R
004190: 65 66 47 6C 62 3B 0D 0A 20 20 20 20 20 20 20 20 efGlb;..
0041A0: 20 20 79 32 3A 3D 59 32 52 65 66 47 6C 62 2D 59 y2:=Y2RefGlb-Y
0041B0: 4F 73 32 2D 59 32 47 6C 62 3B 0D 0A 20 20 20 20 Os2-Y2Glb;..
0041C0: 20 20 20 20 20 20 52 65 44 65 66 69 6E 65 57 69 ReDefineWi
0041D0: 6E 64 6F 77 28 57 69 6E 64 6F 77 4E 64 78 47 6C ndow(WindowNdxGl
0041E0: 62 2C 78 31 2C 79 31 2C 78 32 2C 79 32 29 3B 0D b,x1,y1,x2,y2);.
0041F0: 0A 20 20 20 20 20 20 20 20 20 20 53 65 6C 65 63 . Selec
004200: 74 57 69 6E 64 6F 77 28 57 69 6E 64 6F 77 4E 64 tWindow(WindowNd
004210: 78 47 6C 62 29 3B 0D 0A 20 20 20 20 20 20 20 20 xGlb);..
004220: 20 20 41 78 69 73 47 6C 62 20 3A 3D 20 74 72 75 AxisGlb := tru
004230: 65 3B 0D 0A 20 20 20 20 20 20 20 20 20 65 6E 64 e;.. end
004240: 3B 0D 0A 20 20 20 20 20 20 20 65 6E 64 3B 0D 0A ;.. end;..
004250: 20 20 20 20 20 20 50 6C 6F 74 4C 69 6E 65 3A 3D PlotLine:=
004260: 28 4C 69 6E 65 3E 3D 30 29 3B 0D 0A 20 20 20 20 (Line>=0);..
004270: 20 20 50 6C 6F 74 53 79 6D 62 6F 6C 3A 3D 28 4C PlotSymbol:=(L
004280: 69 6E 65 3C 3E 30 29 3B 0D 0A 20 20 20 20 20 20 ine<>0);..
004290: 4C 69 6E 65 3A 3D 61 62 73 28 4C 69 6E 65 29 3B Line:=abs(Line);
0042A0: 0D 0A 20 20 20 20 20 20 53 63 61 6C 65 3A 3D 61 .. Scale:=a
0042B0: 62 73 28 53 63 61 6C 65 29 3B 0D 0A 20 20 20 20 bs(Scale);..
0042C0: 20 20 69 66 20 4C 69 6E 65 73 3C 30 20 74 68 65 if Lines<0 the
0042D0: 6E 20 44 65 6C 74 61 59 3A 3D 74 72 75 6E 63 28 n DeltaY:=trunc(
0042E0: 31 2E 30 2F 28 61 62 73 28 59 31 57 6C 64 47 6C 1.0/(abs(Y1WldGl
0042F0: 62 29 2B 61 62 73 28 59 32 57 6C 64 47 6C 62 29 b)+abs(Y2WldGlb)
004300: 20 20 20 20 20 20 20 20 20 20 20 20 42 4F 52 4C BORL
004310: 41 4E 44 20 49 6E 74 65 72 6E 61 74 69 6F 6E 61 AND Internationa
004320: 6C 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 l
004330: 20 20 20 2A 29 0D 0A 28 2A 20 20 20 20 20 20 20 *)..(*
004340: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
004350: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
004360: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
004370: 20 20 2A 29 0D 0A 28 2A 2A 2A 2A 2A 2A 2A 2A 2A *)..(*********
004380: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
004390: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
0043A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
0043B0: 2A 2A 29 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 65 **)....procedure
0043C0: 20 44 72 61 77 50 6F 6C 79 67 6F 6E 28 41 3A 50 DrawPolygon(A:P
0043D0: 6C 6F 74 41 72 72 61 79 3B 0D 0A 20 20 20 20 20 lotArray;..
0043E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0043F0: 20 49 30 2C 4E 50 6F 69 6E 74 73 2C 4C 69 6E 65 I0,NPoints,Line
004400: 2C 53 63 61 6C 65 2C 4C 69 6E 65 73 3A 69 6E 74 ,Scale,Lines:int
004410: 65 67 65 72 29 3B 0D 0A 20 20 76 61 72 20 69 2C eger);.. var i,
004420: 78 31 2C 78 32 2C 79 31 2C 79 32 2C 58 4F 66 66 x1,x2,y1,y2,XOff
004430: 73 65 74 2C 59 4F 66 66 73 65 74 3A 69 6E 74 65 set,YOffset:inte
004440: 67 65 72 3B 0D 0A 20 20 20 20 20 20 58 31 52 65 ger;.. X1Re
004450: 66 4C 6F 63 2C 59 31 52 65 66 4C 6F 63 2C 58 32 fLoc,Y1RefLoc,X2
004460: 52 65 66 4C 6F 63 2C 59 32 52 65 66 4C 6F 63 3A RefLoc,Y2RefLoc:
004470: 69 6E 74 65 67 65 72 3B 0D 0A 20 20 20 20 20 20 integer;..
004480: 44 65 6C 74 61 59 2C 58 4F 73 31 2C 58 4F 73 32 DeltaY,XOs1,XOs2
004490: 2C 59 4F 73 31 2C 59 4F 73 32 3A 69 6E 74 65 67 ,YOs1,YOs2:integ
0044A0: 65 72 3B 0D 0A 20 20 20 20 20 20 41 75 74 6F 43 er;.. AutoC
0044B0: 6C 69 70 2C 44 69 72 65 63 74 4D 6F 64 65 4C 6F lip,DirectModeLo
0044C0: 63 2C 50 6C 6F 74 4C 69 6E 65 2C 50 6C 6F 74 53 c,PlotLine,PlotS
0044D0: 79 6D 62 6F 6C 3A 62 6F 6F 6C 65 61 6E 3B 0D 0A ymbol:boolean;..
0044E0: 20 20 20 20 20 20 58 31 4C 6F 63 2C 59 31 4C 6F X1Loc,Y1Lo
0044F0: 63 2C 58 32 4C 6F 63 2C 59 32 4C 6F 63 3A 69 6E c,X2Loc,Y2Loc:in
004500: 29 20 2A 0D 0A 20 20 20 20 20 20 20 20 20 20 20 ) *..
004510: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
004520: 20 20 20 61 62 73 28 59 31 57 6C 64 47 6C 62 29 abs(Y1WldGlb)
004530: 20 2A 20 61 62 73 28 59 32 52 65 66 47 6C 62 2D * abs(Y2RefGlb-
004540: 59 31 52 65 66 47 6C 62 29 29 2B 31 0D 0A 20 20 Y1RefGlb))+1..
004550: 20 20 20 20 65 6C 73 65 20 44 65 6C 74 61 59 3A else DeltaY:
004560: 3D 30 3B 0D 0A 20 20 20 20 20 20 69 66 20 28 4E =0;.. if (N
004570: 50 6F 69 6E 74 73 3C 32 29 20 61 6E 64 20 4D 65 Points<2) and Me
004580: 73 73 61 67 65 47 6C 62 20 74 68 65 6E 0D 0A 20 ssageGlb then..
004590: 20 20 20 20 20 20 20 77 72 69 74 65 6C 6E 28 27 writeln('
0045A0: 3C 44 72 61 77 50 6F 6C 79 67 6F 6E 3E 3A 20 74 <DrawPolygon>: t
0045B0: 6F 6F 20 66 65 77 20 64 61 74 61 20 70 61 69 72 oo few data pair
0045C0: 73 20 20 2D 3E 20 28 4E 50 6F 69 6E 74 73 29 20 s -> (NPoints)
0045D0: 3E 3D 20 32 27 29 0D 0A 20 20 20 20 20 20 65 6C >= 2').. el
0045E0: 73 65 0D 0A 20 20 20 20 20 20 20 62 65 67 69 6E se.. begin
0045F0: 0D 0A 20 20 20 20 20 20 20 20 78 31 3A 3D 57 69 .. x1:=Wi
004600: 6E 64 6F 77 58 28 41 5B 49 30 2C 31 5D 29 3B 0D ndowX(A[I0,1]);.
004610: 0A 20 20 20 20 20 20 20 20 79 31 3A 3D 59 32 52 . y1:=Y2R
004620: 65 66 47 6C 62 2B 59 31 52 65 66 47 6C 62 2D 57 efGlb+Y1RefGlb-W
004630: 69 6E 64 6F 77 59 28 41 5B 49 30 2C 32 5D 29 3B indowY(A[I0,2]);
004640: 0D 0A 20 20 20 20 20 20 20 20 44 72 61 77 49 74 .. DrawIt
004650: 65 6D 28 78 31 2C 79 31 29 3B 0D 0A 20 20 20 20 em(x1,y1);..
004660: 20 20 20 20 69 66 20 41 62 73 28 4C 69 6E 65 73 if Abs(Lines
004670: 29 3D 31 20 74 68 65 6E 0D 0A 20 20 20 20 20 20 )=1 then..
004680: 20 20 20 20 69 66 20 41 75 74 6F 43 6C 69 70 20 if AutoClip
004690: 74 68 65 6E 20 44 72 61 77 4C 69 6E 65 43 6C 69 then DrawLineCli
0046A0: 70 70 65 64 28 78 31 2C 59 32 52 65 66 47 6C 62 pped(x1,Y2RefGlb
0046B0: 2D 44 65 6C 74 61 59 2C 78 31 2C 79 31 29 0D 0A -DeltaY,x1,y1)..
0046C0: 20 20 20 20 20 20 20 20 20 20 65 6C 73 65 20 44 else D
0046D0: 72 61 77 4C 69 6E 65 28 78 31 2C 59 32 52 65 66 rawLine(x1,Y2Ref
0046E0: 47 6C 62 2D 44 65 6C 74 61 59 2C 78 31 2C 79 31 Glb-DeltaY,x1,y1
0046F0: 29 3B 0D 0A 20 20 20 20 20 20 20 20 66 6F 72 20 );.. for
004700: 74 65 67 65 72 3B 0D 0A 0D 0A 20 20 70 72 6F 63 teger;.... proc
004710: 65 64 75 72 65 20 44 72 61 77 50 6F 69 6E 74 43 edure DrawPointC
004720: 6C 69 70 70 65 64 28 78 2C 79 3A 69 6E 74 65 67 lipped(x,y:integ
004730: 65 72 29 3B 0D 0A 20 20 20 20 62 65 67 69 6E 0D er);.. begin.
004740: 0A 20 20 20 20 20 20 69 66 20 28 78 31 3E 58 31 . if (x1>X1
004750: 52 65 66 47 6C 62 20 73 68 6C 20 33 29 20 61 6E RefGlb shl 3) an
004760: 64 20 28 78 32 3C 58 32 52 65 66 47 6C 62 20 73 d (x2<X2RefGlb s
004770: 68 6C 20 33 2B 37 29 20 74 68 65 6E 0D 0A 20 20 hl 3+7) then..
004780: 20 20 20 20 20 20 69 66 20 28 79 31 3E 59 31 52 if (y1>Y1R
004790: 65 66 47 6C 62 29 20 61 6E 64 20 28 79 32 3C 59 efGlb) and (y2<Y
0047A0: 32 52 65 66 47 6C 62 29 20 74 68 65 6E 20 64 70 2RefGlb) then dp
0047B0: 28 78 2C 79 29 3B 0D 0A 20 20 20 20 65 6E 64 3B (x,y);.. end;
0047C0: 0D 0A 0D 0A 20 20 70 72 6F 63 65 64 75 72 65 20 .... procedure
0047D0: 44 72 61 77 49 74 65 6D 28 58 2C 59 3A 69 6E 74 DrawItem(X,Y:int
0047E0: 65 67 65 72 29 3B 0D 0A 20 20 20 20 76 61 72 20 eger);.. var
0047F0: 4C 69 6E 65 53 74 79 6C 65 4C 6F 63 3A 69 6E 74 LineStyleLoc:int
004800: 65 67 65 72 3B 0D 0A 0D 0A 20 20 20 20 62 65 67 eger;.... beg
004810: 69 6E 0D 0A 20 20 20 20 20 20 4C 69 6E 65 53 74 in.. LineSt
004820: 79 6C 65 4C 6F 63 3A 3D 4C 69 6E 65 53 74 79 6C yleLoc:=LineStyl
004830: 65 47 6C 62 3B 0D 0A 20 20 20 20 20 20 53 65 74 eGlb;.. Set
004840: 4C 69 6E 65 53 74 79 6C 65 28 30 29 3B 0D 0A 20 LineStyle(0);..
004850: 20 20 20 20 20 63 61 73 65 20 4C 69 6E 65 20 6F case Line o
004860: 66 0D 0A 20 20 20 20 20 20 20 20 32 3A 20 44 72 f.. 2: Dr
004870: 61 77 43 72 6F 73 73 44 69 61 67 28 58 2C 59 2C awCrossDiag(X,Y,
004880: 53 63 61 6C 65 29 3B 0D 0A 20 20 20 20 20 20 20 Scale);..
004890: 20 33 2C 34 3A 20 44 72 61 77 53 71 75 61 72 65 3,4: DrawSquare
0048A0: 43 28 58 2D 53 63 61 6C 65 2C 59 2B 53 63 61 6C C(X-Scale,Y+Scal
0048B0: 65 2C 58 2B 53 63 61 6C 65 2C 59 2D 53 63 61 6C e,X+Scale,Y-Scal
0048C0: 65 2C 28 4C 69 6E 65 3D 34 29 29 3B 0D 0A 20 20 e,(Line=4));..
0048D0: 20 20 20 20 20 20 35 3A 20 44 72 61 77 44 69 61 5: DrawDia
0048E0: 6D 6F 6E 64 28 58 2C 59 2C 53 63 61 6C 65 2B 31 mond(X,Y,Scale+1
0048F0: 29 3B 0D 0A 20 20 20 20 20 20 20 20 36 3A 20 44 );.. 6: D
004900: 69 3A 3D 49 30 2B 31 20 74 6F 20 4E 50 6F 69 6E i:=I0+1 to NPoin
004910: 74 73 20 64 6F 0D 0A 20 20 20 20 20 20 20 20 20 ts do..
004920: 62 65 67 69 6E 0D 0A 20 20 20 20 20 20 20 20 20 begin..
004930: 20 78 32 3A 3D 57 69 6E 64 6F 77 58 28 41 5B 69 x2:=WindowX(A[i
004940: 2C 31 5D 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 ,1]);..
004950: 20 79 32 3A 3D 59 32 52 65 66 47 6C 62 2B 59 31 y2:=Y2RefGlb+Y1
004960: 52 65 66 47 6C 62 2D 57 69 6E 64 6F 77 59 28 41 RefGlb-WindowY(A
004970: 5B 69 2C 32 5D 29 3B 0D 0A 20 20 20 20 20 20 20 [i,2]);..
004980: 20 20 20 44 72 61 77 49 74 65 6D 28 78 32 2C 79 DrawItem(x2,y
004990: 32 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 69 2);.. i
0049A0: 66 20 41 62 73 28 4C 69 6E 65 73 29 3D 31 20 74 f Abs(Lines)=1 t
0049B0: 68 65 6E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 hen..
0049C0: 20 69 66 20 41 75 74 6F 43 6C 69 70 20 74 68 65 if AutoClip the
0049D0: 6E 20 44 72 61 77 4C 69 6E 65 43 6C 69 70 70 65 n DrawLineClippe
0049E0: 64 28 78 32 2C 59 32 52 65 66 47 6C 62 2D 44 65 d(x2,Y2RefGlb-De
0049F0: 6C 74 61 59 2C 78 32 2C 79 32 29 0D 0A 20 20 20 ltaY,x2,y2)..
004A00: 20 20 20 20 20 20 20 20 20 65 6C 73 65 20 44 72 else Dr
004A10: 61 77 4C 69 6E 65 28 78 32 2C 59 32 52 65 66 47 awLine(x2,Y2RefG
004A20: 6C 62 2D 44 65 6C 74 61 59 2C 78 32 2C 79 32 29 lb-DeltaY,x2,y2)
004A30: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 69 66 20 ;.. if
004A40: 50 6C 6F 74 4C 69 6E 65 20 74 68 65 6E 0D 0A 20 PlotLine then..
004A50: 20 20 20 20 20 20 20 20 20 20 20 69 66 20 41 75 if Au
004A60: 74 6F 43 6C 69 70 20 74 68 65 6E 20 44 72 61 77 toClip then Draw
004A70: 4C 69 6E 65 43 6C 69 70 70 65 64 28 78 31 2C 79 LineClipped(x1,y
004A80: 31 2C 78 32 2C 79 32 29 0D 0A 20 20 20 20 20 20 1,x2,y2)..
004A90: 20 20 20 20 20 20 65 6C 73 65 20 44 72 61 77 4C else DrawL
004AA0: 69 6E 65 28 78 31 2C 79 31 2C 78 32 2C 79 32 29 ine(x1,y1,x2,y2)
004AB0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 78 31 3A ;.. x1:
004AC0: 3D 78 32 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 =x2;..
004AD0: 79 31 3A 3D 79 32 3B 0D 0A 20 20 20 20 20 20 20 y1:=y2;..
004AE0: 20 20 65 6E 64 3B 0D 0A 20 20 20 20 20 20 20 65 end;.. e
004AF0: 6E 64 3B 0D 0A 20 20 20 20 20 20 69 66 20 41 78 nd;.. if Ax
004B00: 72 61 77 57 79 65 28 58 2C 59 2C 53 63 61 6C 65 rawWye(X,Y,Scale
004B10: 2B 31 29 3B 0D 0A 20 20 20 20 20 20 20 20 31 3A +1);.. 1:
004B20: 20 44 72 61 77 43 72 6F 73 73 28 58 2C 59 2C 53 DrawCross(X,Y,S
004B30: 63 61 6C 65 29 3B 0D 0A 20 20 20 20 20 20 20 20 cale);..
004B40: 38 3A 20 44 72 61 77 43 69 72 63 6C 65 44 69 72 8: DrawCircleDir
004B50: 65 63 74 28 58 2C 59 2C 53 63 61 6C 65 2B 31 2C ect(X,Y,Scale+1,
004B60: 46 61 6C 73 65 29 3B 0D 0A 20 20 20 20 20 20 20 False);..
004B70: 20 39 3A 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 9: begin..
004B80: 20 20 20 20 20 20 20 20 50 6C 6F 74 4C 69 6E 65 PlotLine
004B90: 3A 3D 66 61 6C 73 65 3B 0D 0A 20 20 20 20 20 20 :=false;..
004BA0: 20 20 20 20 20 20 20 69 66 20 41 75 74 6F 43 6C if AutoCl
004BB0: 69 70 20 74 68 65 6E 20 44 72 61 77 50 6F 69 6E ip then DrawPoin
004BC0: 74 43 6C 69 70 70 65 64 28 58 2C 59 29 0D 0A 20 tClipped(X,Y)..
004BD0: 20 20 20 20 20 20 20 20 20 20 20 20 65 6C 73 65 else
004BE0: 20 64 70 28 58 2C 59 29 3B 0D 0A 20 20 20 20 20 dp(X,Y);..
004BF0: 20 20 20 20 20 20 65 6E 64 3B 0D 0A 20 20 20 20 end;..
004C00: 20 20 20 20 37 3A 20 44 72 61 77 53 74 61 72 28 7: DrawStar(
004C10: 58 2C 59 2C 53 63 61 6C 65 29 3B 0D 0A 20 20 20 X,Y,Scale);..
004C20: 20 20 20 20 65 6E 64 3B 0D 0A 20 20 20 20 20 20 end;..
004C30: 53 65 74 4C 69 6E 65 53 74 79 6C 65 28 4C 69 6E SetLineStyle(Lin
004C40: 65 53 74 79 6C 65 4C 6F 63 29 3B 0D 0A 20 20 20 eStyleLoc);..
004C50: 20 65 6E 64 3B 0D 0A 0D 0A 20 20 62 65 67 69 6E end;.... begin
004C60: 0D 0A 20 20 20 20 69 66 20 61 62 73 28 4E 50 6F .. if abs(NPo
004C70: 69 6E 74 73 2D 49 30 29 3E 3D 32 20 74 68 65 6E ints-I0)>=2 then
004C80: 0D 0A 20 20 20 20 20 62 65 67 69 6E 0D 0A 20 20 .. begin..
004C90: 20 20 20 20 58 31 4C 6F 63 20 3A 3D 20 58 31 47 X1Loc := X1G
004CA0: 6C 62 3B 0D 0A 20 20 20 20 20 20 59 31 4C 6F 63 lb;.. Y1Loc
004CB0: 20 3A 3D 20 59 31 47 6C 62 3B 0D 0A 20 20 20 20 := Y1Glb;..
004CC0: 20 20 58 32 4C 6F 63 20 3A 3D 20 58 32 47 6C 62 X2Loc := X2Glb
004CD0: 3B 0D 0A 20 20 20 20 20 20 59 32 4C 6F 63 20 3A ;.. Y2Loc :
004CE0: 3D 20 59 32 47 6C 62 3B 0D 0A 20 20 20 20 20 20 = Y2Glb;..
004CF0: 44 69 72 65 63 74 4D 6F 64 65 4C 6F 63 3A 3D 44 DirectModeLoc:=D
004D00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
004D10: 04 00 00 00 02 09 50 E5 04 00 41 02 00 00 00 02 ......P...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: 69 73 47 6C 62 20 74 68 65 6E 0D 0A 20 20 20 20 isGlb then..
004E10: 20 20 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 20 begin..
004E20: 20 20 52 65 44 65 66 69 6E 65 57 69 6E 64 6F 77 ReDefineWindow
004E30: 28 57 69 6E 64 6F 77 4E 64 78 47 6C 62 2C 58 31 (WindowNdxGlb,X1
004E40: 52 65 66 4C 6F 63 2C 59 31 52 65 66 4C 6F 63 2C RefLoc,Y1RefLoc,
004E50: 58 32 52 65 66 4C 6F 63 2C 59 32 52 65 66 4C 6F X2RefLoc,Y2RefLo
004E60: 63 29 3B 0D 0A 20 20 20 20 20 20 20 20 53 65 6C c);.. Sel
004E70: 65 63 74 57 69 6E 64 6F 77 28 57 69 6E 64 6F 77 ectWindow(Window
004E80: 4E 64 78 47 6C 62 29 3B 0D 0A 20 20 20 20 20 20 NdxGlb);..
004E90: 20 20 58 31 47 6C 62 20 3A 3D 20 58 31 4C 6F 63 X1Glb := X1Loc
004EA0: 3B 0D 0A 20 20 20 20 20 20 20 20 59 31 47 6C 62 ;.. Y1Glb
004EB0: 20 3A 3D 20 59 31 4C 6F 63 3B 0D 0A 20 20 20 20 := Y1Loc;..
004EC0: 20 20 20 20 58 32 47 6C 62 20 3A 3D 20 58 32 4C X2Glb := X2L
004ED0: 6F 63 3B 0D 0A 20 20 20 20 20 20 20 20 59 32 47 oc;.. Y2G
004EE0: 6C 62 20 3A 3D 20 59 32 4C 6F 63 3B 0D 0A 20 20 lb := Y2Loc;..
004EF0: 20 20 20 20 20 20 41 78 69 73 47 6C 62 3A 3D 66 AxisGlb:=f
004F00: 61 6C 73 65 3B 0D 0A 20 20 20 20 20 20 20 65 6E alse;.. en
004F10: 64 3B 0D 0A 20 20 20 20 20 20 44 69 72 65 63 74 d;.. Direct
004F20: 4D 6F 64 65 47 6C 62 3A 3D 44 69 72 65 63 74 4D ModeGlb:=DirectM
004F30: 6F 64 65 4C 6F 63 3B 0D 0A 20 20 20 20 20 65 6E odeLoc;.. en
004F40: 64 0D 0A 20 20 20 20 65 6C 73 65 20 65 72 72 6F d.. else erro
004F50: 72 28 31 38 2C 34 29 3B 0D 0A 20 20 65 6E 64 3B r(18,4);.. end;
004F60: 0D 0A 1A E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
004F70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
004F80: 31 2C 78 32 2C 79 32 29 0D 0A 20 20 20 20 20 20 1,x2,y2)..
004F90: 20 20 20 20 20 20 65 6C 73 65 20 44 72 61 77 4C else DrawL
004FA0: 69 6E 65 28 78 31 2C 79 31 2C 78 32 2C 79 32 29 ine(x1,y1,x2,y2)
004FB0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 78 31 3A ;.. x1:
004FC0: 3D 78 32 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 =x2;..
004FD0: 79 31 3A 3D 79 32 3B 0D 0A 20 20 20 20 20 20 20 y1:=y2;..
004FE0: 20 20 65 6E 64 3B 0D 0A 20 20 20 20 20 20 20 65 end;.. e
004FF0: 6E 64 3B 0D 0A 20 20 20 20 20 20 69 66 20 41 78 nd;.. if Ax
005000: 20 20 20 20 20 20 20 20 20 20 69 79 31 3A 3D 69 iy1:=i
005010: 6E 73 69 64 65 28 79 31 2C 59 31 52 65 66 47 6C nside(y1,Y1RefGl
005020: 62 2C 59 32 52 65 66 47 6C 62 29 3B 0D 0A 20 20 b,Y2RefGlb);..
005030: 20 20 20 20 20 20 20 20 69 79 32 3A 3D 69 6E 73 iy2:=ins
005040: 69 64 65 28 79 32 2C 59 31 52 65 66 47 6C 62 2C ide(y2,Y1RefGlb,
005050: 59 32 52 65 66 47 6C 62 29 3B 0D 0A 20 20 20 20 Y2RefGlb);..
005060: 20 20 20 20 65 6E 64 3B 0D 0A 20 20 20 20 20 20 end;..
005070: 20 20 69 66 20 79 31 3C 3E 79 32 20 74 68 65 6E if y1<>y2 then
005080: 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 20 20 20 begin..
005090: 20 20 69 66 20 69 79 31 3C 3E 30 20 74 68 65 6E if iy1<>0 then
0050A0: 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 20 20 20 begin..
0050B0: 20 20 20 20 69 66 20 69 79 31 3C 30 20 74 68 65 if iy1<0 the
0050C0: 6E 20 64 75 6D 6D 79 3A 3D 59 31 52 65 66 47 6C n dummy:=Y1RefGl
0050D0: 62 20 65 6C 73 65 20 64 75 6D 6D 79 3A 3D 59 32 b else dummy:=Y2
0050E0: 52 65 66 47 6C 62 3B 0D 0A 20 20 20 20 20 20 20 RefGlb;..
0050F0: 20 20 20 20 20 69 66 20 78 31 3C 3E 78 32 20 74 if x1<>x2 t
005100: 68 65 6E 20 78 31 3A 3D 78 31 2B 74 72 75 6E 63 hen x1:=x1+trunc
005110: 28 28 78 32 2D 78 31 29 2F 28 79 32 2D 79 31 29 ((x2-x1)/(y2-y1)
005120: 2A 28 64 75 6D 6D 79 2D 79 31 29 29 3B 0D 0A 20 *(dummy-y1));..
005130: 20 20 20 20 20 20 20 20 20 20 20 79 31 3A 3D 64 y1:=d
005140: 75 6D 6D 79 3B 0D 0A 20 20 20 20 20 20 20 20 20 ummy;..
005150: 20 65 6E 64 3B 0D 0A 20 20 20 20 20 20 20 20 20 end;..
005160: 20 69 66 20 69 79 32 3C 3E 30 20 74 68 65 6E 20 if iy2<>0 then
005170: 62 65 67 69 6E 0D 0A 20 20 20 20 20 20 20 20 20 begin..
005180: 20 20 20 69 66 20 69 79 32 3C 30 20 74 68 65 6E if iy2<0 then
005190: 20 64 75 6D 6D 79 3A 3D 59 31 52 65 66 47 6C 62 dummy:=Y1RefGlb
0051A0: 20 65 6C 73 65 20 64 75 6D 6D 79 3A 3D 59 32 52 else dummy:=Y2R
0051B0: 65 66 47 6C 62 3B 0D 0A 20 20 20 20 20 20 20 20 efGlb;..
0051C0: 20 20 20 20 69 66 20 78 31 3C 3E 78 32 20 74 68 if x1<>x2 th
0051D0: 65 6E 20 78 32 3A 3D 78 31 2B 74 72 75 6E 63 28 en x2:=x1+trunc(
0051E0: 28 78 32 2D 78 31 29 2F 28 79 32 2D 79 31 29 2A (x2-x1)/(y2-y1)*
0051F0: 28 64 75 6D 6D 79 2D 79 31 29 29 3B 0D 0A 20 20 (dummy-y1));..
005200: 15 C3 29 15 3A 42 0B C3 01 0B EB 22 B1 15 C3 DA ..).:B....."....
005210: 0D 2A BF 15 C3 29 15 2A AD 15 C3 29 15 CD 51 14 .*...).*...)..Q.
005220: CD 3B 10 C3 01 0F 2A BB 15 22 45 0B C9 3A D6 15 .;....*.."E..:..
005230: FE FF C2 3B 15 3A 41 0B C3 01 0B E6 1F 32 41 0B ...;.:A......2A.
005240: C9 CD 51 14 C3 93 13 CD 51 14 C3 9C 13 CD 51 14 ..Q.....Q.....Q.
005250: C3 D2 13 2A 43 0B 7D 2F 5F 7C 2F 2A AF 15 A4 57 ...*C.}/_|/*...W
005260: 7D A3 5F 2A AD 15 EB 22 AF 15 7D A3 6F 7C A2 67 }£_*..."..}£o|.g
005270: 22 AD 15 C9 3A DE 15 B7 CA 91 15 2A 43 0B 36 00 "...:......*C.6.
005280: 3A E0 15 B7 CA 91 15 77 3A DF 15 32 D6 15 CD 45 :......w:..2...E
005290: 14 2A 0F 0B F9 2A 45 0B 7D 44 C9 CD 51 14 3E 02 .*...*E.}D..Q.>.
0052A0: 32 D5 15 0E 00 CD 07 13 CC 03 12 C9 E5 00 00 00 2...............
0052B0: 00 80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0052C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0052D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0052E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0052F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005300: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005310: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005320: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005330: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005340: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005350: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005360: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005370: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005380: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005390: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0053A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0053B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0053C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0053D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0053E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0053F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005400: 20 20 20 20 20 20 20 20 20 20 79 32 3A 3D 64 75 y2:=du
005410: 6D 6D 79 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 mmy;..
005420: 65 6E 64 3B 0D 0A 20 20 20 20 20 20 20 20 65 6E end;.. en
005430: 64 3B 0D 0A 20 20 20 20 20 20 20 20 69 79 31 3A d;.. iy1:
005440: 3D 69 6E 73 69 64 65 28 79 31 2C 59 31 52 65 66 =inside(y1,Y1Ref
005450: 47 6C 62 2C 59 32 52 65 66 47 6C 62 29 3B 0D 0A Glb,Y2RefGlb);..
005460: 20 20 20 20 20 20 20 20 69 79 32 3A 3D 69 6E 73 iy2:=ins
005470: 69 64 65 28 79 32 2C 59 31 52 65 66 47 6C 62 2C ide(y2,Y1RefGlb,
005480: 59 32 52 65 66 47 6C 62 29 3B 0D 0A 20 20 20 20 Y2RefGlb);..
005490: 20 20 20 20 69 66 20 28 69 79 31 3C 3E 30 29 20 if (iy1<>0)
0054A0: 6F 72 20 28 69 79 32 3C 3E 30 29 20 74 68 65 6E or (iy2<>0) then
0054B0: 20 43 6C 69 70 4C 6F 63 3A 3D 66 61 6C 73 65 3B ClipLoc:=false;
0054C0: 0D 0A 20 20 20 20 20 20 20 20 69 66 20 43 6C 69 .. if Cli
0054D0: 70 4C 6F 63 20 74 68 65 6E 20 62 65 67 69 6E 0D pLoc then begin.
0054E0: 0A 20 20 20 20 20 20 20 20 20 20 69 78 31 3A 3D . ix1:=
0054F0: 69 6E 73 69 64 65 28 78 31 2C 58 31 4C 6F 63 2C inside(x1,X1Loc,
005500: 58 32 4C 6F 63 29 3B 0D 0A 20 20 20 20 20 20 20 X2Loc);..
005510: 20 20 20 69 78 32 3A 3D 69 6E 73 69 64 65 28 78 ix2:=inside(x
005520: 32 2C 58 31 4C 6F 63 2C 58 32 4C 6F 63 29 3B 0D 2,X1Loc,X2Loc);.
005530: 0A 20 20 20 20 20 20 20 20 20 20 69 66 20 28 69 . if (i
005540: 78 32 3C 3E 30 29 20 6F 72 20 28 69 78 31 3C 3E x2<>0) or (ix1<>
005550: 30 29 20 74 68 65 6E 20 43 6C 69 70 4C 6F 63 3A 0) then ClipLoc:
005560: 3D 66 61 6C 73 65 3B 0D 0A 20 20 20 20 20 20 20 =false;..
005570: 20 65 6E 64 3B 0D 0A 20 20 20 20 20 20 20 20 63 end;.. c
005580: 6C 69 70 3A 3D 43 6C 69 70 4C 6F 63 3B 0D 0A 20 lip:=ClipLoc;..
005590: 20 20 20 20 20 65 6E 64 3B 0D 0A 20 20 20 20 65 end;.. e
0055A0: 6E 64 3B 0D 0A 20 20 65 6E 64 3B 0D 0A 0D 0A 70 nd;.. end;....p
0055B0: 72 6F 63 65 64 75 72 65 20 44 72 61 77 50 6F 69 rocedure DrawPoi
0055C0: 6E 74 28 78 72 2C 79 72 3A 72 65 61 6C 29 3B 0D nt(xr,yr:real);.
0055D0: 0A 20 20 76 61 72 20 78 2C 79 3A 69 6E 74 65 67 . var x,y:integ
0055E0: 65 72 3B 0D 0A 20 20 62 65 67 69 6E 0D 0A 20 20 er;.. begin..
0055F0: 20 20 69 66 20 44 69 72 65 63 74 4D 6F 64 65 47 if DirectModeG
005600: 70 72 6F 63 65 64 75 72 65 20 72 65 73 65 74 77 procedure resetw
005610: 69 6E 64 6F 77 73 3B 0D 0A 76 61 72 20 69 3A 69 indows;..var i:i
005620: 6E 74 65 67 65 72 3B 0D 0A 20 20 62 65 67 69 6E nteger;.. begin
005630: 0D 0A 20 20 20 20 66 6F 72 20 69 3A 3D 31 20 74 .. for i:=1 t
005640: 6F 20 4D 61 78 57 69 6E 64 6F 77 73 47 6C 62 20 o MaxWindowsGlb
005650: 64 6F 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 20 do begin..
005660: 44 65 66 69 6E 65 57 69 6E 64 6F 77 28 69 2C 30 DefineWindow(i,0
005670: 2C 30 2C 58 4D 61 78 47 6C 62 2C 59 4D 61 78 47 ,0,XMaxGlb,YMaxG
005680: 6C 62 29 3B 0D 0A 20 20 20 20 20 20 52 65 6D 6F lb);.. Remo
005690: 76 65 48 65 61 64 65 72 28 69 29 3B 0D 0A 20 20 veHeader(i);..
0056A0: 20 20 65 6E 64 3B 0D 0A 20 20 20 20 53 65 6C 65 end;.. Sele
0056B0: 63 74 57 69 6E 64 6F 77 28 31 29 3B 0D 0A 20 20 ctWindow(1);..
0056C0: 65 6E 64 3B 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 end;....procedur
0056D0: 65 20 52 65 73 65 74 57 6F 72 6C 64 73 3B 0D 0A e ResetWorlds;..
0056E0: 20 20 76 61 72 20 69 3A 69 6E 74 65 67 65 72 3B var i:integer;
0056F0: 0D 0A 20 20 62 65 67 69 6E 0D 0A 20 20 20 20 66 .. begin.. f
005700: 6F 72 20 69 3A 3D 31 20 74 6F 20 4D 61 78 57 6F or i:=1 to MaxWo
005710: 72 6C 64 73 47 6C 62 20 64 6F 20 44 65 66 69 6E rldsGlb do Defin
005720: 65 57 6F 72 6C 64 28 69 2C 30 2C 30 2C 58 53 63 eWorld(i,0,0,XSc
005730: 72 65 65 6E 4D 61 78 47 6C 62 2C 59 4D 61 78 47 reenMaxGlb,YMaxG
005740: 6C 62 29 3B 0D 0A 20 20 20 20 53 65 6C 65 63 74 lb);.. Select
005750: 57 6F 72 6C 64 28 31 29 3B 0D 0A 20 20 20 20 53 World(1);.. S
005760: 65 6C 65 63 74 57 69 6E 64 6F 77 28 57 69 6E 64 electWindow(Wind
005770: 6F 77 4E 64 78 47 6C 62 29 3B 0D 0A 20 20 65 6E owNdxGlb);.. en
005780: 64 3B 0D 0A 0D 0A 66 75 6E 63 74 69 6F 6E 20 63 d;....function c
005790: 6C 69 70 28 76 61 72 20 78 31 2C 79 31 2C 78 32 lip(var x1,y1,x2
0057A0: 2C 79 32 3A 69 6E 74 65 67 65 72 29 3A 62 6F 6F ,y2:integer):boo
0057B0: 6C 65 61 6E 3B 0D 0A 20 20 76 61 72 20 69 78 31 lean;.. var ix1
0057C0: 2C 69 79 31 2C 69 78 32 2C 69 79 32 2C 64 75 6D ,iy1,ix2,iy2,dum
0057D0: 6D 79 2C 58 31 4C 6F 63 2C 58 32 4C 6F 63 3A 69 my,X1Loc,X2Loc:i
0057E0: 6E 74 65 67 65 72 3B 0D 0A 20 20 20 20 20 20 43 nteger;.. C
0057F0: 6C 69 70 4C 6F 63 3A 62 6F 6F 6C 65 61 6E 3B 0D lipLoc:boolean;.
005800: 6C 62 20 74 68 65 6E 20 64 70 28 74 72 75 6E 63 lb then dp(trunc
005810: 28 78 72 29 2C 74 72 75 6E 63 28 79 72 29 29 0D (xr),trunc(yr)).
005820: 0A 20 20 20 20 65 6C 73 65 20 62 65 67 69 6E 0D . else begin.
005830: 0A 20 20 20 20 20 20 78 3A 3D 57 69 6E 64 6F 77 . x:=Window
005840: 58 28 78 72 29 3B 20 79 3A 3D 57 69 6E 64 6F 77 X(xr); y:=Window
005850: 59 28 79 72 29 3B 0D 0A 20 20 20 20 20 20 69 66 Y(yr);.. if
005860: 20 43 6C 69 70 70 69 6E 67 47 6C 62 20 74 68 65 ClippingGlb the
005870: 6E 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 20 20 n begin..
005880: 20 69 66 20 28 78 3E 3D 58 31 52 65 66 47 6C 62 if (x>=X1RefGlb
005890: 20 73 68 6C 20 33 29 20 61 6E 64 20 28 78 3C 58 shl 3) and (x<X
0058A0: 32 52 65 66 47 6C 62 20 73 68 6C 20 33 2B 37 29 2RefGlb shl 3+7)
0058B0: 20 74 68 65 6E 0D 0A 20 20 20 20 20 20 20 20 20 then..
0058C0: 20 69 66 20 28 79 3E 3D 59 31 52 65 66 47 6C 62 if (y>=Y1RefGlb
0058D0: 29 20 61 6E 64 20 28 79 3C 3D 59 32 52 65 66 47 ) and (y<=Y2RefG
0058E0: 6C 62 29 20 74 68 65 6E 20 64 70 28 78 2C 79 29 lb) then dp(x,y)
0058F0: 3B 0D 0A 20 20 20 20 20 20 65 6E 64 0D 0A 20 20 ;.. end..
005900: 20 20 20 20 65 6C 73 65 20 64 70 28 78 2C 79 29 else dp(x,y)
005910: 3B 0D 0A 20 20 20 20 65 6E 64 3B 0D 0A 20 20 65 ;.. end;.. e
005920: 6E 64 3B 0D 0A 0D 0A 66 75 6E 63 74 69 6F 6E 20 nd;....function
005930: 50 6F 69 6E 74 44 72 61 77 6E 28 78 72 2C 79 72 PointDrawn(xr,yr
005940: 3A 72 65 61 6C 29 3A 62 6F 6F 6C 65 61 6E 3B 0D :real):boolean;.
005950: 0A 20 20 62 65 67 69 6E 0D 0A 20 20 20 20 69 66 . begin.. if
005960: 20 44 69 72 65 63 74 4D 6F 64 65 47 6C 62 20 74 DirectModeGlb t
005970: 68 65 6E 20 50 6F 69 6E 74 44 72 61 77 6E 3A 3D hen PointDrawn:=
005980: 50 44 28 74 72 75 6E 63 28 78 72 29 2C 74 72 75 PD(trunc(xr),tru
005990: 6E 63 28 79 72 29 29 0D 0A 20 20 20 20 65 6C 73 nc(yr)).. els
0059A0: 65 20 50 6F 69 6E 74 44 72 61 77 6E 3A 3D 50 44 e PointDrawn:=PD
0059B0: 28 57 69 6E 64 6F 77 58 28 78 72 29 2C 57 69 6E (WindowX(xr),Win
0059C0: 64 6F 77 59 28 79 72 29 29 3B 0D 0A 20 20 65 6E dowY(yr));.. en
0059D0: 64 3B 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 65 20 d;....procedure
0059E0: 44 72 61 77 4C 69 6E 65 44 69 72 65 63 74 28 78 DrawLineDirect(x
0059F0: 31 2C 79 31 2C 78 32 2C 79 32 3A 69 6E 74 65 67 1,y1,x2,y2:integ
005A00: 0A 0D 0A 20 20 66 75 6E 63 74 69 6F 6E 20 69 6E ... function in
005A10: 73 69 64 65 28 78 2C 78 78 31 2C 78 78 32 3A 69 side(x,xx1,xx2:i
005A20: 6E 74 65 67 65 72 29 3A 69 6E 74 65 67 65 72 3B nteger):integer;
005A30: 0D 0A 20 20 20 20 62 65 67 69 6E 0D 0A 20 20 20 .. begin..
005A40: 20 20 20 69 6E 73 69 64 65 3A 3D 30 3B 0D 0A 20 inside:=0;..
005A50: 20 20 20 20 20 69 66 20 78 3C 78 78 31 20 74 68 if x<xx1 th
005A60: 65 6E 20 69 6E 73 69 64 65 3A 3D 2D 31 20 65 6C en inside:=-1 el
005A70: 73 65 20 69 66 20 78 3E 78 78 32 20 74 68 65 6E se if x>xx2 then
005A80: 20 69 6E 73 69 64 65 3A 3D 31 3B 0D 0A 20 20 20 inside:=1;..
005A90: 20 65 6E 64 3B 0D 0A 0D 0A 20 20 62 65 67 69 6E end;.... begin
005AA0: 0D 0A 20 20 20 20 63 6C 69 70 3A 3D 74 72 75 65 .. clip:=true
005AB0: 3B 0D 0A 20 20 20 20 43 6C 69 70 4C 6F 63 3A 3D ;.. ClipLoc:=
005AC0: 74 72 75 65 3B 0D 0A 20 20 20 20 69 66 20 43 6C true;.. if Cl
005AD0: 69 70 70 69 6E 67 47 6C 62 20 74 68 65 6E 20 62 ippingGlb then b
005AE0: 65 67 69 6E 0D 0A 20 20 20 20 20 20 69 66 20 48 egin.. if H
005AF0: 61 74 63 68 47 6C 62 20 74 68 65 6E 20 62 65 67 atchGlb then beg
005B00: 69 6E 20 58 31 4C 6F 63 3A 3D 58 31 52 65 66 47 in X1Loc:=X1RefG
005B10: 6C 62 3B 20 58 32 4C 6F 63 3A 3D 58 32 52 65 66 lb; X2Loc:=X2Ref
005B20: 47 6C 62 3B 20 65 6E 64 0D 0A 20 20 20 20 20 20 Glb; end..
005B30: 65 6C 73 65 20 62 65 67 69 6E 20 58 31 4C 6F 63 else begin X1Loc
005B40: 3A 3D 58 31 52 65 66 47 6C 62 20 73 68 6C 20 33 :=X1RefGlb shl 3
005B50: 3B 20 58 32 4C 6F 63 3A 3D 58 32 52 65 66 47 6C ; X2Loc:=X2RefGl
005B60: 62 20 73 68 6C 20 33 20 2B 37 3B 20 65 6E 64 3B b shl 3 +7; end;
005B70: 0D 0A 20 20 20 20 20 20 69 78 31 3A 3D 69 6E 73 .. ix1:=ins
005B80: 69 64 65 28 78 31 2C 58 31 4C 6F 63 2C 58 32 4C ide(x1,X1Loc,X2L
005B90: 6F 63 29 3B 0D 0A 20 20 20 20 20 20 69 79 31 3A oc);.. iy1:
005BA0: 3D 69 6E 73 69 64 65 28 79 31 2C 59 31 52 65 66 =inside(y1,Y1Ref
005BB0: 47 6C 62 2C 59 32 52 65 66 47 6C 62 29 3B 0D 0A Glb,Y2RefGlb);..
005BC0: 20 20 20 20 20 20 69 78 32 3A 3D 69 6E 73 69 64 ix2:=insid
005BD0: 65 28 78 32 2C 58 31 4C 6F 63 2C 58 32 4C 6F 63 e(x2,X1Loc,X2Loc
005BE0: 29 3B 0D 0A 20 20 20 20 20 20 69 79 32 3A 3D 69 );.. iy2:=i
005BF0: 6E 73 69 64 65 28 79 32 2C 59 31 52 65 66 47 6C nside(y2,Y1RefGl
005C00: 65 72 29 3B 0D 0A 20 20 20 20 76 61 72 20 78 2C er);.. var x,
005C10: 79 2C 44 65 6C 74 61 58 2C 44 65 6C 74 61 59 2C y,DeltaX,DeltaY,
005C20: 58 53 74 65 70 2C 59 53 74 65 70 2C 64 69 72 65 XStep,YStep,dire
005C30: 63 74 69 6F 6E 3A 69 6E 74 65 67 65 72 3B 0D 0A ction:integer;..
005C40: 0D 0A 20 20 42 45 47 49 4E 0D 0A 20 20 20 20 69 .. BEGIN.. i
005C50: 66 20 6C 69 6E 65 73 74 79 6C 65 47 6C 62 3D 30 f linestyleGlb=0
005C60: 20 74 68 65 6E 20 62 65 67 69 6E 0D 0A 20 20 20 then begin..
005C70: 20 20 20 20 47 52 41 5F 4D 4F 56 45 5F 41 42 53 GRA_MOVE_ABS
005C80: 4F 4C 55 54 45 28 58 31 2C 59 31 29 3B 0D 0A 20 OLUTE(X1,Y1);..
005C90: 20 20 20 20 20 20 47 52 41 5F 4C 49 4E 45 5F 41 GRA_LINE_A
005CA0: 42 53 4F 4C 55 54 45 28 58 32 2C 59 32 29 3B 0D BSOLUTE(X2,Y2);.
005CB0: 0A 20 20 20 20 65 6E 64 0D 0A 20 20 20 20 65 6C . end.. el
005CC0: 73 65 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 20 se begin..
005CD0: 78 3A 3D 78 31 3B 20 79 3A 3D 79 31 3B 0D 0A 20 x:=x1; y:=y1;..
005CE0: 20 20 20 20 20 58 53 74 65 70 3A 3D 31 3B 20 59 XStep:=1; Y
005CF0: 53 74 65 70 3A 3D 31 3B 0D 0A 20 20 20 20 20 20 Step:=1;..
005D00: 69 66 20 78 31 3E 78 32 20 74 68 65 6E 20 58 53 if x1>x2 then XS
005D10: 74 65 70 3A 3D 2D 31 3B 0D 0A 20 20 20 20 20 20 tep:=-1;..
005D20: 69 66 20 79 31 3E 79 32 20 74 68 65 6E 20 59 53 if y1>y2 then YS
005D30: 74 65 70 3A 3D 2D 31 3B 0D 0A 20 20 20 20 20 20 tep:=-1;..
005D40: 44 65 6C 74 61 58 3A 3D 61 62 73 28 78 32 2D 78 DeltaX:=abs(x2-x
005D50: 31 29 3B 0D 0A 20 20 20 20 20 20 44 65 6C 74 61 1);.. Delta
005D60: 59 3A 3D 61 62 73 28 79 32 2D 79 31 29 3B 0D 0A Y:=abs(y2-y1);..
005D70: 20 20 20 20 20 20 69 66 20 44 65 6C 74 61 58 3D if DeltaX=
005D80: 30 20 74 68 65 6E 20 64 69 72 65 63 74 69 6F 6E 0 then direction
005D90: 3A 3D 2D 31 0D 0A 20 20 20 20 20 20 65 6C 73 65 :=-1.. else
005DA0: 20 64 69 72 65 63 74 69 6F 6E 3A 3D 30 3B 0D 0A direction:=0;..
005DB0: 20 20 20 20 20 20 77 68 69 6C 65 20 6E 6F 74 20 while not
005DC0: 28 28 78 3D 78 32 29 20 61 6E 64 20 28 79 3D 79 ((x=x2) and (y=y
005DD0: 32 29 29 20 64 6F 20 62 65 67 69 6E 0D 0A 20 20 2)) do begin..
005DE0: 20 20 20 20 20 20 43 6E 74 47 6C 62 3A 3D 28 43 CntGlb:=(C
005DF0: 6E 74 47 6C 62 2B 31 29 20 61 6E 64 20 37 3B 0D ntGlb+1) and 7;.
005E00: 62 2C 59 32 52 65 66 47 6C 62 29 3B 0D 0A 20 20 b,Y2RefGlb);..
005E10: 20 20 20 20 69 66 20 28 69 78 31 20 6F 72 20 69 if (ix1 or i
005E20: 78 32 20 6F 72 20 69 79 31 20 6F 72 20 69 79 32 x2 or iy1 or iy2
005E30: 29 3C 3E 30 20 74 68 65 6E 20 62 65 67 69 6E 0D )<>0 then begin.
005E40: 0A 20 20 20 20 20 20 20 20 69 66 20 78 31 3C 3E . if x1<>
005E50: 78 32 20 74 68 65 6E 20 62 65 67 69 6E 0D 0A 20 x2 then begin..
005E60: 20 20 20 20 20 20 20 20 20 69 66 20 69 78 31 3C if ix1<
005E70: 3E 30 20 74 68 65 6E 20 62 65 67 69 6E 0D 0A 20 >0 then begin..
005E80: 20 20 20 20 20 20 20 20 20 20 20 69 66 20 69 78 if ix
005E90: 31 3C 30 20 74 68 65 6E 20 64 75 6D 6D 79 3A 3D 1<0 then dummy:=
005EA0: 58 31 4C 6F 63 20 65 6C 73 65 20 64 75 6D 6D 79 X1Loc else dummy
005EB0: 3A 3D 58 32 4C 6F 63 3B 0D 0A 20 20 20 20 20 20 :=X2Loc;..
005EC0: 20 20 20 20 20 20 69 66 20 79 32 3C 3E 79 31 20 if y2<>y1
005ED0: 74 68 65 6E 20 79 31 3A 3D 79 31 2B 74 72 75 6E then y1:=y1+trun
005EE0: 63 28 28 79 32 2D 79 31 29 2F 28 78 32 2D 78 31 c((y2-y1)/(x2-x1
005EF0: 29 2A 28 64 75 6D 6D 79 2D 78 31 29 29 3B 0D 0A )*(dummy-x1));..
005F00: 20 20 20 20 20 20 20 20 20 20 20 20 78 31 3A 3D x1:=
005F10: 64 75 6D 6D 79 3B 0D 0A 20 20 20 20 20 20 20 20 dummy;..
005F20: 20 20 65 6E 64 3B 0D 0A 20 20 20 20 20 20 20 20 end;..
005F30: 20 20 69 66 20 28 69 78 32 3C 3E 30 29 20 61 6E if (ix2<>0) an
005F40: 64 20 28 78 31 3C 3E 78 32 29 20 74 68 65 6E 20 d (x1<>x2) then
005F50: 62 65 67 69 6E 0D 0A 20 20 20 20 20 20 20 20 20 begin..
005F60: 20 20 20 69 66 20 69 78 32 3C 30 20 74 68 65 6E if ix2<0 then
005F70: 20 64 75 6D 6D 79 3A 3D 58 31 4C 6F 63 20 65 6C dummy:=X1Loc el
005F80: 73 65 20 64 75 6D 6D 79 3A 3D 58 32 4C 6F 63 3B se dummy:=X2Loc;
005F90: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 69 66 .. if
005FA0: 20 79 32 3C 3E 79 31 20 74 68 65 6E 20 79 32 3A y2<>y1 then y2:
005FB0: 3D 79 31 2B 74 72 75 6E 63 28 28 79 32 2D 79 31 =y1+trunc((y2-y1
005FC0: 29 2F 28 78 32 2D 78 31 29 2A 28 64 75 6D 6D 79 )/(x2-x1)*(dummy
005FD0: 2D 78 31 29 29 3B 0D 0A 20 20 20 20 20 20 20 20 -x1));..
005FE0: 20 20 20 20 78 32 3A 3D 64 75 6D 6D 79 3B 0D 0A x2:=dummy;..
005FF0: 20 20 20 20 20 20 20 20 20 20 65 6E 64 3B 0D 0A end;..
006000: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
006010: 05 00 00 00 02 09 50 E5 05 00 41 02 00 00 00 02 ......P...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: 0A 20 20 20 20 20 20 20 20 69 66 20 4C 69 6E 65 . if Line
006110: 53 74 79 6C 65 41 72 72 61 79 47 6C 62 5B 43 6E StyleArrayGlb[Cn
006120: 74 47 6C 62 5D 20 74 68 65 6E 20 64 70 28 78 2C tGlb] then dp(x,
006130: 79 29 3B 0D 0A 20 20 20 20 20 20 20 20 69 66 20 y);.. if
006140: 64 69 72 65 63 74 69 6F 6E 3C 30 20 74 68 65 6E direction<0 then
006150: 20 62 65 67 69 6E 20 79 3A 3D 79 2B 59 53 74 65 begin y:=y+YSte
006160: 70 3B 20 64 69 72 65 63 74 69 6F 6E 3A 3D 64 69 p; direction:=di
006170: 72 65 63 74 69 6F 6E 2B 44 65 6C 74 61 58 3B 20 rection+DeltaX;
006180: 65 6E 64 0D 0A 20 20 20 20 20 20 20 20 65 6C 73 end.. els
006190: 65 20 62 65 67 69 6E 20 78 3A 3D 78 2B 58 53 74 e begin x:=x+XSt
0061A0: 65 70 3B 20 64 69 72 65 63 74 69 6F 6E 3A 3D 64 ep; direction:=d
0061B0: 69 72 65 63 74 69 6F 6E 2D 44 65 6C 74 61 59 3B irection-DeltaY;
0061C0: 20 65 6E 64 3B 0D 0A 20 20 20 20 20 20 65 6E 64 end;.. end
0061D0: 3B 0D 0A 20 20 20 20 65 6E 64 3B 0D 0A 20 20 65 ;.. end;.. e
0061E0: 6E 64 3B 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 65 nd;....procedure
0061F0: 20 44 72 61 77 4C 69 6E 65 44 69 72 65 63 74 43 DrawLineDirectC
006200: 6C 69 70 70 65 64 28 78 31 2C 79 31 2C 78 32 2C lipped(x1,y1,x2,
006210: 79 32 3A 69 6E 74 65 67 65 72 29 3B 0D 0A 20 20 y2:integer);..
006220: 62 65 67 69 6E 0D 0A 20 20 20 20 20 49 66 20 63 begin.. If c
006230: 6C 69 70 28 78 31 2C 79 31 2C 78 32 2C 79 32 29 lip(x1,y1,x2,y2)
006240: 20 74 68 65 6E 20 44 72 61 77 4C 69 6E 65 44 69 then DrawLineDi
006250: 72 65 63 74 28 78 31 2C 79 31 2C 78 32 2C 79 32 rect(x1,y1,x2,y2
006260: 29 3B 0D 0A 20 20 65 6E 64 3B 0D 0A 0D 0A 0D 0A );.. end;......
006270: 70 72 6F 63 65 64 75 72 65 20 44 72 61 77 4C 69 procedure DrawLi
006280: 6E 65 28 78 31 2C 79 31 2C 78 32 2C 79 32 3A 72 ne(x1,y1,x2,y2:r
006290: 65 61 6C 29 3B 0D 0A 20 20 62 65 67 69 6E 0D 0A eal);.. begin..
0062A0: 20 20 20 20 69 66 20 44 69 72 65 63 74 4D 6F 64 if DirectMod
0062B0: 65 47 6C 62 20 74 68 65 6E 0D 0A 20 20 20 20 20 eGlb then..
0062C0: 20 44 72 61 77 4C 69 6E 65 44 69 72 65 63 74 28 DrawLineDirect(
0062D0: 74 72 75 6E 63 28 78 31 29 2C 74 72 75 6E 63 28 trunc(x1),trunc(
0062E0: 79 31 29 2C 74 72 75 6E 63 28 78 32 29 2C 74 72 y1),trunc(x2),tr
0062F0: 75 6E 63 28 79 32 29 29 0D 0A 20 20 20 20 65 6C unc(y2)).. el
006300: 69 72 65 63 74 4D 6F 64 65 4C 6F 63 3A 62 6F 6F irectModeLoc:boo
006310: 6C 65 61 6E 3B 0D 0A 20 20 62 65 67 69 6E 20 7B lean;.. begin {
006320: 20 44 72 61 77 43 69 72 63 6C 65 20 7D 0D 0A 20 DrawCircle }..
006330: 20 20 20 44 69 72 65 63 74 4D 6F 64 65 4C 6F 63 DirectModeLoc
006340: 3A 3D 44 69 72 65 63 74 4D 6F 64 65 47 6C 62 3B :=DirectModeGlb;
006350: 0D 0A 20 20 20 20 44 69 72 65 63 74 4D 6F 64 65 .. DirectMode
006360: 47 6C 62 3A 3D 54 72 75 65 3B 0D 0A 20 20 20 20 Glb:=True;..
006370: 69 66 20 44 69 72 65 63 74 4D 6F 64 65 4C 6F 63 if DirectModeLoc
006380: 20 74 68 65 6E 20 44 72 61 77 43 69 72 63 6C 65 then DrawCircle
006390: 44 69 72 65 63 74 28 74 72 75 6E 63 28 58 5F 52 Direct(trunc(X_R
0063A0: 29 2C 74 72 75 6E 63 28 59 5F 52 29 2C 74 72 75 ),trunc(Y_R),tru
0063B0: 6E 63 28 78 72 61 64 69 75 73 29 2C 54 72 75 65 nc(xradius),True
0063C0: 29 0D 0A 20 20 20 20 65 6C 73 65 20 44 72 61 77 ).. else Draw
0063D0: 43 69 72 63 6C 65 44 69 72 65 63 74 28 57 69 6E CircleDirect(Win
0063E0: 64 6F 77 58 28 58 5F 52 29 2C 57 69 6E 64 6F 77 dowX(X_R),Window
0063F0: 59 28 59 5F 52 29 2C 74 72 75 6E 63 28 78 72 61 Y(Y_R),trunc(xra
006400: 64 69 75 73 2A 31 30 30 2E 30 29 2C 46 61 6C 73 dius*100.0),Fals
006410: 65 29 3B 0D 0A 20 20 20 20 44 69 72 65 63 74 4D e);.. DirectM
006420: 6F 64 65 47 6C 62 3A 3D 44 69 72 65 63 74 4D 6F odeGlb:=DirectMo
006430: 64 65 4C 6F 63 3B 0D 0A 20 20 65 6E 64 3B 0D 0A deLoc;.. end;..
006440: 0D 0A 70 72 6F 63 65 64 75 72 65 20 44 72 61 77 ..procedure Draw
006450: 43 72 6F 73 73 28 78 31 2C 79 31 2C 73 63 61 6C Cross(x1,y1,scal
006460: 65 3A 69 6E 74 65 67 65 72 29 3B 0D 0A 20 20 62 e:integer);.. b
006470: 65 67 69 6E 0D 0A 20 20 20 20 44 72 61 77 4C 69 egin.. DrawLi
006480: 6E 65 43 6C 69 70 70 65 64 28 78 31 2D 73 63 61 neClipped(x1-sca
006490: 6C 65 2C 79 31 2C 78 31 2B 73 63 61 6C 65 2B 32 le,y1,x1+scale+2
0064A0: 2C 79 31 29 3B 0D 0A 20 20 20 20 44 72 61 77 4C ,y1);.. DrawL
0064B0: 69 6E 65 43 6C 69 70 70 65 64 28 78 31 2C 79 31 ineClipped(x1,y1
0064C0: 2D 73 63 61 6C 65 2C 78 31 2C 79 31 2B 73 63 61 -scale,x1,y1+sca
0064D0: 6C 65 2B 31 29 3B 0D 0A 20 20 65 6E 64 3B 0D 0A le+1);.. end;..
0064E0: 0D 0A 70 72 6F 63 65 64 75 72 65 20 44 72 61 77 ..procedure Draw
0064F0: 43 72 6F 73 73 44 69 61 67 28 78 2C 79 2C 73 63 CrossDiag(x,y,sc
006500: 73 65 0D 0A 20 20 20 20 20 20 44 72 61 77 4C 69 se.. DrawLi
006510: 6E 65 44 69 72 65 63 74 43 6C 69 70 70 65 64 28 neDirectClipped(
006520: 77 69 6E 64 6F 77 58 28 78 31 29 2C 77 69 6E 64 windowX(x1),wind
006530: 6F 77 59 28 79 31 29 2C 57 69 6E 64 6F 77 58 28 owY(y1),WindowX(
006540: 78 32 29 2C 57 69 6E 64 6F 77 59 28 79 32 29 29 x2),WindowY(y2))
006550: 3B 0D 0A 20 20 65 6E 64 3B 0D 0A 0D 0A 70 72 6F ;.. end;....pro
006560: 63 65 64 75 72 65 20 44 72 61 77 4C 69 6E 65 43 cedure DrawLineC
006570: 6C 69 70 70 65 64 28 78 31 2C 79 31 2C 78 32 2C lipped(x1,y1,x2,
006580: 79 32 3A 69 6E 74 65 67 65 72 29 3B 0D 0A 20 20 y2:integer);..
006590: 62 65 67 69 6E 0D 0A 20 20 20 20 20 69 66 20 63 begin.. if c
0065A0: 6C 69 70 28 78 31 2C 79 31 2C 78 32 2C 79 32 29 lip(x1,y1,x2,y2)
0065B0: 20 74 68 65 6E 20 44 72 61 77 4C 69 6E 65 28 78 then DrawLine(x
0065C0: 31 2C 79 31 2C 78 32 2C 79 32 29 3B 0D 0A 20 20 1,y1,x2,y2);..
0065D0: 65 6E 64 3B 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 end;....procedur
0065E0: 65 20 44 72 61 77 53 71 72 28 78 31 2C 79 31 2C e DrawSqr(x1,y1,
0065F0: 78 32 2C 79 32 3A 69 6E 74 65 67 65 72 3B 20 66 x2,y2:integer; f
006600: 69 6C 6C 3A 62 6F 6F 6C 65 61 6E 29 3B 0D 0A 76 ill:boolean);..v
006610: 61 72 20 69 3A 69 6E 74 65 67 65 72 3B 0D 0A 62 ar i:integer;..b
006620: 65 67 69 6E 0D 0A 20 20 20 69 66 20 6E 6F 74 20 egin.. if not
006630: 66 69 6C 6C 20 74 68 65 6E 20 62 65 67 69 6E 0D fill then begin.
006640: 0A 20 20 20 20 20 20 44 72 61 77 4C 69 6E 65 28 . DrawLine(
006650: 78 31 2C 79 31 2C 78 32 2C 79 31 29 3B 0D 0A 20 x1,y1,x2,y1);..
006660: 20 20 20 20 20 44 72 61 77 4C 69 6E 65 28 78 32 DrawLine(x2
006670: 2C 79 31 2C 78 32 2C 79 32 29 3B 0D 0A 20 20 20 ,y1,x2,y2);..
006680: 20 20 20 44 72 61 77 4C 69 6E 65 28 78 31 2C 79 DrawLine(x1,y
006690: 32 2C 78 32 2C 79 32 29 3B 0D 0A 20 20 20 20 20 2,x2,y2);..
0066A0: 20 44 72 61 77 4C 69 6E 65 28 78 31 2C 79 32 2C DrawLine(x1,y2,
0066B0: 78 31 2C 79 31 29 3B 0D 0A 20 20 20 65 6E 64 0D x1,y1);.. end.
0066C0: 0A 20 20 20 65 6C 73 65 20 66 6F 72 20 69 3A 3D . else for i:=
0066D0: 79 31 20 74 6F 20 79 32 20 64 6F 20 44 72 61 77 y1 to y2 do Draw
0066E0: 6C 69 6E 65 28 78 31 2C 69 2C 78 32 2C 69 29 3B line(x1,i,x2,i);
0066F0: 0D 0A 65 6E 64 3B 0D 0A 0D 0A 70 72 6F 63 65 64 ..end;....proced
006700: 61 6C 65 3A 69 6E 74 65 67 65 72 29 3B 0D 0A 20 ale:integer);..
006710: 20 62 65 67 69 6E 0D 0A 20 20 20 20 44 72 61 77 begin.. Draw
006720: 4C 69 6E 65 43 6C 69 70 70 65 64 28 78 2D 73 63 LineClipped(x-sc
006730: 61 6C 65 2C 79 2B 73 63 61 6C 65 2C 78 2B 73 63 ale,y+scale,x+sc
006740: 61 6C 65 2B 31 2C 79 2D 73 63 61 6C 65 2D 31 29 ale+1,y-scale-1)
006750: 3B 0D 0A 20 20 20 20 44 72 61 77 4C 69 6E 65 43 ;.. DrawLineC
006760: 6C 69 70 70 65 64 28 78 2D 73 63 61 6C 65 2C 79 lipped(x-scale,y
006770: 2D 73 63 61 6C 65 2C 78 2B 73 63 61 6C 65 2B 31 -scale,x+scale+1
006780: 2C 79 2B 73 63 61 6C 65 2B 31 29 3B 0D 0A 20 20 ,y+scale+1);..
006790: 65 6E 64 3B 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 end;....procedur
0067A0: 65 20 44 72 61 77 44 69 61 6D 6F 6E 64 28 78 2C e DrawDiamond(x,
0067B0: 79 2C 73 63 61 6C 65 3A 69 6E 74 65 67 65 72 29 y,scale:integer)
0067C0: 3B 0D 0A 20 20 62 65 67 69 6E 0D 0A 20 20 20 20 ;.. begin..
0067D0: 44 72 61 77 4C 69 6E 65 43 6C 69 70 70 65 64 28 DrawLineClipped(
0067E0: 78 2D 73 63 61 6C 65 2C 79 2C 78 2C 79 2D 73 63 x-scale,y,x,y-sc
0067F0: 61 6C 65 2D 31 29 3B 0D 0A 20 20 20 20 44 72 61 ale-1);.. Dra
006800: 77 4C 69 6E 65 43 6C 69 70 70 65 64 28 78 2C 79 wLineClipped(x,y
006810: 2D 73 63 61 6C 65 2B 31 2C 78 2B 73 63 61 6C 65 -scale+1,x+scale
006820: 2C 79 2B 31 29 3B 0D 0A 20 20 20 20 44 72 61 77 ,y+1);.. Draw
006830: 4C 69 6E 65 43 6C 69 70 70 65 64 28 78 2B 73 63 LineClipped(x+sc
006840: 61 6C 65 2C 79 2B 31 2C 78 2C 79 2B 73 63 61 6C ale,y+1,x,y+scal
006850: 65 29 3B 0D 0A 20 20 20 20 44 72 61 77 4C 69 6E e);.. DrawLin
006860: 65 43 6C 69 70 70 65 64 28 78 2C 79 2B 73 63 61 eClipped(x,y+sca
006870: 6C 65 2C 78 2D 73 63 61 6C 65 2C 79 29 3B 0D 0A le,x-scale,y);..
006880: 20 20 65 6E 64 3B 0D 0A 0D 0A 70 72 6F 63 65 64 end;....proced
006890: 75 72 65 20 44 72 61 77 53 74 61 72 28 78 2C 79 ure DrawStar(x,y
0068A0: 2C 73 63 61 6C 65 3A 69 6E 74 65 67 65 72 29 3B ,scale:integer);
0068B0: 0D 0A 20 20 62 65 67 69 6E 0D 0A 20 20 20 20 44 .. begin.. D
0068C0: 72 61 77 4C 69 6E 65 43 6C 69 70 70 65 64 28 78 rawLineClipped(x
0068D0: 2D 73 63 61 6C 65 2C 79 2B 73 63 61 6C 65 2C 78 -scale,y+scale,x
0068E0: 2B 73 63 61 6C 65 2B 31 2C 79 2D 73 63 61 6C 65 +scale+1,y-scale
0068F0: 2D 31 29 3B 0D 0A 20 20 20 20 44 72 61 77 4C 69 -1);.. DrawLi
006900: 75 72 65 20 44 72 61 77 53 71 75 61 72 65 43 28 ure DrawSquareC(
006910: 78 31 2C 79 31 2C 78 32 2C 79 32 3A 69 6E 74 65 x1,y1,x2,y2:inte
006920: 67 65 72 3B 20 66 69 6C 6C 3A 62 6F 6F 6C 65 61 ger; fill:boolea
006930: 6E 29 3B 0D 0A 20 20 62 65 67 69 6E 0D 0A 20 20 n);.. begin..
006940: 20 20 69 66 20 63 6C 69 70 28 78 31 2C 79 32 2C if clip(x1,y2,
006950: 78 32 2C 79 31 29 20 74 68 65 6E 20 64 72 61 77 x2,y1) then draw
006960: 73 71 72 28 78 31 2C 79 32 2C 78 32 2C 79 31 2C sqr(x1,y2,x2,y1,
006970: 66 69 6C 6C 29 3B 0D 0A 20 20 65 6E 64 3B 0D 0A fill);.. end;..
006980: 0D 0A 70 72 6F 63 65 64 75 72 65 20 44 72 61 77 ..procedure Draw
006990: 53 71 75 61 72 65 28 58 31 2C 59 31 2C 58 32 2C Square(X1,Y1,X2,
0069A0: 59 32 3A 72 65 61 6C 3B 20 66 69 6C 6C 3A 62 6F Y2:real; fill:bo
0069B0: 6F 6C 65 61 6E 29 3B 0D 0A 20 20 76 61 72 20 44 olean);.. var D
0069C0: 69 72 65 63 74 4D 6F 64 65 4C 6F 63 3A 62 6F 6F irectModeLoc:boo
0069D0: 6C 65 61 6E 3B 0D 0A 20 20 62 65 67 69 6E 0D 0A lean;.. begin..
0069E0: 20 20 20 20 69 66 20 44 69 72 65 63 74 4D 6F 64 if DirectMod
0069F0: 65 47 6C 62 20 74 68 65 6E 20 44 72 61 77 53 71 eGlb then DrawSq
006A00: 72 28 74 72 75 6E 63 28 58 31 29 2C 74 72 75 6E r(trunc(X1),trun
006A10: 63 28 59 31 29 2C 74 72 75 6E 63 28 58 32 29 2C c(Y1),trunc(X2),
006A20: 74 72 75 6E 63 28 59 32 29 2C 66 69 6C 6C 29 0D trunc(Y2),fill).
006A30: 0A 20 20 20 20 65 6C 73 65 20 62 65 67 69 6E 0D . else begin.
006A40: 0A 20 20 20 20 20 20 44 69 72 65 63 74 4D 6F 64 . DirectMod
006A50: 65 4C 6F 63 3A 3D 44 69 72 65 63 74 4D 6F 64 65 eLoc:=DirectMode
006A60: 47 6C 62 3B 0D 0A 20 20 20 20 20 20 44 69 72 65 Glb;.. Dire
006A70: 63 74 4D 6F 64 65 47 6C 62 3A 3D 74 72 75 65 3B ctModeGlb:=true;
006A80: 0D 0A 20 20 20 20 20 20 64 72 61 77 53 71 75 61 .. drawSqua
006A90: 72 65 43 28 57 69 6E 64 6F 77 58 28 78 31 29 2C reC(WindowX(x1),
006AA0: 57 69 6E 64 6F 77 59 28 79 31 29 2C 57 69 6E 64 WindowY(y1),Wind
006AB0: 6F 77 58 28 78 32 29 2C 57 69 6E 64 6F 77 59 28 owX(x2),WindowY(
006AC0: 79 32 29 2C 66 69 6C 6C 29 3B 0D 0A 20 20 20 20 y2),fill);..
006AD0: 20 20 44 69 72 65 63 74 4D 6F 64 65 47 6C 62 3A DirectModeGlb:
006AE0: 3D 44 69 72 65 63 74 4D 6F 64 65 4C 6F 63 3B 0D =DirectModeLoc;.
006AF0: 0A 20 20 20 20 20 65 6E 64 3B 0D 0A 20 20 65 6E . end;.. en
006B00: 6E 65 43 6C 69 70 70 65 64 28 78 2D 73 63 61 6C neClipped(x-scal
006B10: 65 2C 79 2D 73 63 61 6C 65 2C 78 2B 73 63 61 6C e,y-scale,x+scal
006B20: 65 2B 31 2C 79 2B 73 63 61 6C 65 2B 31 29 3B 0D e+1,y+scale+1);.
006B30: 0A 20 20 20 20 44 72 61 77 4C 69 6E 65 43 6C 69 . DrawLineCli
006B40: 70 70 65 64 28 78 2D 73 63 61 6C 65 2D 32 2C 79 pped(x-scale-2,y
006B50: 2C 78 2B 73 63 61 6C 65 2B 34 2C 79 29 3B 0D 0A ,x+scale+4,y);..
006B60: 20 20 65 6E 64 3B 0D 0A 0D 0A 70 72 6F 63 65 64 end;....proced
006B70: 75 72 65 20 44 72 61 77 57 79 65 28 78 2C 79 2C ure DrawWye(x,y,
006B80: 73 63 61 6C 65 3A 69 6E 74 65 67 65 72 29 3B 0D scale:integer);.
006B90: 0A 20 20 62 65 67 69 6E 0D 0A 20 20 20 20 44 72 . begin.. Dr
006BA0: 61 77 4C 69 6E 65 43 6C 69 70 70 65 64 28 78 2D awLineClipped(x-
006BB0: 73 63 61 6C 65 2C 79 2D 73 63 61 6C 65 2C 78 2C scale,y-scale,x,
006BC0: 79 29 3B 0D 0A 20 20 20 20 44 72 61 77 4C 69 6E y);.. DrawLin
006BD0: 65 43 6C 69 70 70 65 64 28 78 2B 73 63 61 6C 65 eClipped(x+scale
006BE0: 2C 79 2D 73 63 61 6C 65 2C 78 2C 79 29 3B 0D 0A ,y-scale,x,y);..
006BF0: 20 20 20 20 44 72 61 77 4C 69 6E 65 43 6C 69 70 DrawLineClip
006C00: 70 65 64 28 78 2C 79 2C 78 2C 79 2B 73 63 61 6C ped(x,y,x,y+scal
006C10: 65 29 3B 0D 0A 20 20 65 6E 64 3B 0D 0A 0D 0A 70 e);.. end;....p
006C20: 72 6F 63 65 64 75 72 65 20 44 72 61 77 41 73 63 rocedure DrawAsc
006C30: 69 69 28 76 61 72 20 78 2C 79 3A 69 6E 74 65 67 ii(var x,y:integ
006C40: 65 72 3B 20 73 69 7A 65 2C 63 68 3A 62 79 74 65 er; size,ch:byte
006C50: 29 3B 0D 0A 20 20 76 61 72 20 78 31 72 65 66 2C );.. var x1ref,
006C60: 78 32 72 65 66 2C 78 70 6F 73 2C 79 70 6F 73 2C x2ref,xpos,ypos,
006C70: 78 73 74 61 72 74 2C 79 73 74 61 72 74 2C 78 65 xstart,ystart,xe
006C80: 6E 64 2C 79 65 6E 64 2C 78 78 2C 79 79 3A 20 69 nd,yend,xx,yy: i
006C90: 6E 74 65 67 65 72 3B 0D 0A 20 20 20 20 20 20 63 nteger;.. c
006CA0: 68 61 72 62 79 74 65 3A 20 62 79 74 65 3B 0D 0A harbyte: byte;..
006CB0: 20 20 62 65 67 69 6E 0D 0A 20 20 20 20 78 31 72 begin.. x1r
006CC0: 65 66 3A 3D 58 31 52 65 66 47 6C 62 20 73 68 6C ef:=X1RefGlb shl
006CD0: 20 33 3B 0D 0A 20 20 20 20 78 32 72 65 66 3A 3D 3;.. x2ref:=
006CE0: 58 32 52 65 66 47 6C 62 20 73 68 6C 20 33 2B 37 X2RefGlb shl 3+7
006CF0: 3B 0D 0A 20 20 20 20 66 6F 72 20 79 70 6F 73 3A ;.. for ypos:
006D00: 64 3B 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 65 20 d;....procedure
006D10: 44 72 61 77 43 69 72 63 6C 65 44 69 72 65 63 74 DrawCircleDirect
006D20: 28 78 72 2C 79 72 2C 72 3A 69 6E 74 65 67 65 72 (xr,yr,r:integer
006D30: 3B 20 44 69 72 65 63 74 4D 6F 64 65 4C 6F 63 3A ; DirectModeLoc:
006D40: 20 62 6F 6F 6C 65 61 6E 29 3B 0D 0A 20 20 63 6F boolean);.. co
006D50: 6E 73 74 20 6E 3D 31 34 3B 0D 0A 20 20 74 79 70 nst n=14;.. typ
006D60: 65 20 43 69 72 63 20 3D 20 61 72 72 61 79 20 5B e Circ = array [
006D70: 31 2E 2E 6E 5D 20 6F 66 20 69 6E 74 65 67 65 72 1..n] of integer
006D80: 3B 0D 0A 20 20 63 6F 6E 73 74 20 78 3A 43 69 72 ;.. const x:Cir
006D90: 63 3D 28 30 2C 31 32 31 2C 32 33 39 2C 33 35 35 c=(0,121,239,355
006DA0: 2C 34 36 35 2C 35 36 38 2C 36 36 33 2C 37 34 39 ,465,568,663,749
006DB0: 2C 38 32 33 2C 38 38 35 2C 39 33 35 2C 39 37 31 ,823,885,935,971
006DC0: 2C 39 39 33 2C 31 30 30 30 29 3B 0D 0A 20 20 76 ,993,1000);.. v
006DD0: 61 72 20 69 2C 78 6B 31 2C 78 6B 32 2C 79 6B 31 ar i,xk1,xk2,yk1
006DE0: 2C 79 6B 32 3A 69 6E 74 65 67 65 72 3B 0D 0A 20 ,yk2:integer;..
006DF0: 20 20 20 20 20 78 66 61 63 74 2C 79 66 61 63 74 xfact,yfact
006E00: 3A 72 65 61 6C 3B 0D 0A 0D 0A 20 20 50 72 6F 63 :real;.... Proc
006E10: 65 64 75 72 65 20 44 72 61 77 4C 69 6E 77 28 78 edure DrawLinw(x
006E20: 31 2C 79 31 2C 78 32 2C 79 32 3A 69 6E 74 65 67 1,y1,x2,y2:integ
006E30: 65 72 29 3B 0D 0A 20 20 62 65 67 69 6E 0D 0A 20 er);.. begin..
006E40: 20 20 20 20 69 66 20 44 69 72 65 63 74 6D 6F 64 if Directmod
006E50: 65 4C 6F 63 20 74 68 65 6E 20 44 72 61 77 4C 69 eLoc then DrawLi
006E60: 6E 65 28 78 31 2C 79 31 2C 78 32 2C 79 32 29 0D ne(x1,y1,x2,y2).
006E70: 0A 20 20 20 20 20 65 6C 73 65 20 44 72 61 77 4C . else DrawL
006E80: 69 6E 65 43 6C 69 70 70 65 64 28 78 31 2C 79 31 ineClipped(x1,y1
006E90: 2C 78 32 2C 79 32 29 3B 0D 0A 20 20 65 6E 64 3B ,x2,y2);.. end;
006EA0: 0D 0A 0D 0A 20 20 62 65 67 69 6E 0D 0A 20 20 20 .... begin..
006EB0: 20 78 66 61 63 74 3A 3D 61 62 73 28 72 2A 30 2E xfact:=abs(r*0.
006EC0: 30 30 31 29 3B 0D 0A 20 20 20 20 79 66 61 63 74 001);.. yfact
006ED0: 3A 3D 78 66 61 63 74 2A 41 73 70 65 63 74 47 6C :=xfact*AspectGl
006EE0: 62 3B 0D 0A 20 20 20 20 69 66 20 78 66 61 63 74 b;.. if xfact
006EF0: 3E 30 2E 30 20 74 68 65 6E 20 62 65 67 69 6E 0D >0.0 then begin.
006F00: 3D 30 20 74 6F 20 35 20 64 6F 20 62 65 67 69 6E =0 to 5 do begin
006F10: 0D 0A 20 20 20 20 20 20 43 68 61 72 42 79 74 65 .. CharByte
006F20: 3A 3D 28 43 68 61 72 53 65 74 5B 63 68 2C 28 37 :=(CharSet[ch,(7
006F30: 2D 79 70 6F 73 29 20 73 68 72 20 31 5D 20 73 68 -ypos) shr 1] sh
006F40: 72 20 28 28 79 70 6F 73 20 61 6E 64 20 31 29 20 r ((ypos and 1)
006F50: 73 68 6C 20 32 29 29 20 61 6E 64 20 24 30 46 3B shl 2)) and $0F;
006F60: 0D 0A 20 20 20 20 20 20 66 6F 72 20 78 70 6F 73 .. for xpos
006F70: 3A 3D 30 20 74 6F 20 33 20 64 6F 0D 0A 20 20 20 :=0 to 3 do..
006F80: 20 20 20 20 20 69 66 20 28 43 68 61 72 42 79 74 if (CharByt
006F90: 65 20 73 68 72 20 28 33 2D 78 70 6F 73 29 29 20 e shr (3-xpos))
006FA0: 61 6E 64 20 31 3C 3E 30 20 74 68 65 6E 20 62 65 and 1<>0 then be
006FB0: 67 69 6E 0D 0A 20 20 20 20 20 20 20 20 20 20 78 gin.. x
006FC0: 73 74 61 72 74 3A 3D 78 2B 78 70 6F 73 2A 73 69 start:=x+xpos*si
006FD0: 7A 65 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 78 ze;.. x
006FE0: 65 6E 64 3A 3D 78 73 74 61 72 74 2B 73 69 7A 65 end:=xstart+size
006FF0: 2D 31 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 79 -1;.. y
007000: 73 74 61 72 74 3A 3D 79 2B 31 2B 28 79 70 6F 73 start:=y+1+(ypos
007010: 2D 32 29 2A 73 69 7A 65 3B 0D 0A 20 20 20 20 20 -2)*size;..
007020: 20 20 20 20 20 79 65 6E 64 3A 3D 79 73 74 61 72 yend:=ystar
007030: 74 2B 73 69 7A 65 2D 31 3B 0D 0A 20 20 20 20 20 t+size-1;..
007040: 20 20 20 20 20 69 66 20 43 6C 69 70 70 69 6E 67 if Clipping
007050: 47 6C 62 20 74 68 65 6E 20 62 65 67 69 6E 0D 0A Glb then begin..
007060: 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 78 if x
007070: 73 74 61 72 74 3C 78 31 72 65 66 20 74 68 65 6E start<x1ref then
007080: 20 78 73 74 61 72 74 3A 3D 78 31 72 65 66 3B 0D xstart:=x1ref;.
007090: 0A 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 . if
0070A0: 78 65 6E 64 3E 78 32 72 65 66 20 74 68 65 6E 20 xend>x2ref then
0070B0: 78 65 6E 64 3A 3D 78 32 72 65 66 3B 0D 0A 20 20 xend:=x2ref;..
0070C0: 20 20 20 20 20 20 20 20 20 20 69 66 20 79 73 74 if yst
0070D0: 61 72 74 3C 59 31 52 65 66 47 6C 62 20 74 68 65 art<Y1RefGlb the
0070E0: 6E 20 79 73 74 61 72 74 3A 3D 59 31 52 65 66 47 n ystart:=Y1RefG
0070F0: 6C 62 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 lb;..
007100: 0A 20 20 20 20 20 20 78 6B 31 3A 3D 74 72 75 6E . xk1:=trun
007110: 63 28 78 5B 31 5D 2A 78 66 61 63 74 2B 30 2E 35 c(x[1]*xfact+0.5
007120: 29 3B 0D 0A 20 20 20 20 20 20 79 6B 31 3A 3D 74 );.. yk1:=t
007130: 72 75 6E 63 28 78 5B 6E 5D 2A 79 66 61 63 74 2B runc(x[n]*yfact+
007140: 30 2E 35 29 3B 0D 0A 20 20 20 20 20 20 66 6F 72 0.5);.. for
007150: 20 69 3A 3D 32 20 74 6F 20 6E 20 64 6F 20 62 65 i:=2 to n do be
007160: 67 69 6E 0D 0A 20 20 20 20 20 20 20 20 78 6B 32 gin.. xk2
007170: 3A 3D 74 72 75 6E 63 28 78 5B 69 5D 2A 78 66 61 :=trunc(x[i]*xfa
007180: 63 74 2B 30 2E 35 29 3B 0D 0A 20 20 20 20 20 20 ct+0.5);..
007190: 20 20 79 6B 32 3A 3D 74 72 75 6E 63 28 78 5B 6E yk2:=trunc(x[n
0071A0: 2D 69 2B 31 5D 2A 79 66 61 63 74 2B 30 2E 35 29 -i+1]*yfact+0.5)
0071B0: 3B 0D 0A 20 20 20 20 20 20 20 20 44 72 61 77 4C ;.. DrawL
0071C0: 69 6E 77 28 78 72 2D 78 6B 31 2C 79 72 2B 79 6B inw(xr-xk1,yr+yk
0071D0: 31 2C 78 72 2D 78 6B 32 2C 79 72 2B 79 6B 32 29 1,xr-xk2,yr+yk2)
0071E0: 3B 0D 0A 20 20 20 20 20 20 20 20 44 72 61 77 4C ;.. DrawL
0071F0: 69 6E 77 28 78 72 2B 78 6B 31 2C 79 72 2B 79 6B inw(xr+xk1,yr+yk
007200: 31 2C 78 72 2B 78 6B 32 2C 79 72 2B 79 6B 32 29 1,xr+xk2,yr+yk2)
007210: 3B 0D 0A 20 20 20 20 20 20 20 20 44 72 61 77 4C ;.. DrawL
007220: 69 6E 77 28 78 72 2B 78 6B 31 2C 79 72 2D 79 6B inw(xr+xk1,yr-yk
007230: 31 2B 31 2C 78 72 2B 78 6B 32 2C 79 72 2D 79 6B 1+1,xr+xk2,yr-yk
007240: 32 2B 31 29 3B 0D 0A 20 20 20 20 20 20 20 20 44 2+1);.. D
007250: 72 61 77 4C 69 6E 77 28 78 72 2D 78 6B 31 2C 79 rawLinw(xr-xk1,y
007260: 72 2D 79 6B 31 2B 31 2C 78 72 2D 78 6B 32 2C 79 r-yk1+1,xr-xk2,y
007270: 72 2D 79 6B 32 2B 31 29 3B 0D 0A 20 20 20 20 20 r-yk2+1);..
007280: 20 20 20 78 6B 31 3A 3D 78 6B 32 3B 20 79 6B 31 xk1:=xk2; yk1
007290: 3A 3D 79 6B 32 3B 0D 0A 20 20 20 20 20 20 65 6E :=yk2;.. en
0072A0: 64 3B 0D 0A 20 20 20 20 65 6E 64 0D 0A 20 20 20 d;.. end..
0072B0: 20 65 6C 73 65 20 64 70 28 78 72 2C 79 72 29 3B else dp(xr,yr);
0072C0: 0D 0A 20 20 65 6E 64 3B 0D 0A 0D 0A 70 72 6F 63 .. end;....proc
0072D0: 65 64 75 72 65 20 44 72 61 77 43 69 72 63 6C 65 edure DrawCircle
0072E0: 28 58 5F 52 2C 59 5F 52 2C 78 72 61 64 69 75 73 (X_R,Y_R,xradius
0072F0: 3A 72 65 61 6C 29 3B 0D 0A 20 20 76 61 72 20 44 :real);.. var D
007300: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
007310: 06 00 00 00 02 09 50 E5 06 00 41 02 00 00 00 02 ......P...A.....
007320: 06 00 46 02 00 00 00 02 06 00 42 02 00 00 00 02 ..F.......B.....
007330: 06 00 47 02 00 00 00 02 06 00 43 02 00 00 00 02 ..G.......C.....
007340: 06 00 48 02 00 00 00 02 06 00 44 02 00 00 00 02 ..H.......D.....
007350: 06 00 49 02 00 00 00 02 06 00 45 02 00 00 00 02 ..I.......E.....
007360: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007370: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007380: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007390: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0073A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0073B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0073C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0073D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0073E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0073F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007400: 20 69 66 20 79 65 6E 64 3E 59 32 52 65 66 47 6C if yend>Y2RefGl
007410: 62 20 74 68 65 6E 20 79 65 6E 64 3A 3D 59 32 52 b then yend:=Y2R
007420: 65 66 47 6C 62 3B 0D 0A 20 20 20 20 20 20 20 20 efGlb;..
007430: 20 20 65 6E 64 3B 0D 0A 20 20 20 20 20 20 20 20 end;..
007440: 20 20 66 6F 72 20 79 79 3A 3D 79 73 74 61 72 74 for yy:=ystart
007450: 20 74 6F 20 79 65 6E 64 20 64 6F 20 66 6F 72 20 to yend do for
007460: 78 78 3A 3D 78 73 74 61 72 74 20 74 6F 20 78 65 xx:=xstart to xe
007470: 6E 64 20 64 6F 20 64 70 28 78 78 2C 79 79 29 3B nd do dp(xx,yy);
007480: 0D 0A 20 20 20 20 20 20 20 20 65 6E 64 3B 0D 0A .. end;..
007490: 20 20 20 20 20 65 6E 64 3B 0D 0A 20 20 20 20 20 end;..
0074A0: 78 3A 3D 78 2B 73 69 7A 65 2A 36 3B 0D 0A 20 20 x:=x+size*6;..
0074B0: 20 65 6E 64 3B 0D 0A 0D 0A 70 72 6F 63 65 64 75 end;....procedu
0074C0: 72 65 20 44 72 61 77 54 65 78 74 28 78 2C 79 2C re DrawText(x,y,
0074D0: 73 63 61 6C 65 3A 69 6E 74 65 67 65 72 3B 74 78 scale:integer;tx
0074E0: 74 3A 77 72 6B 73 74 72 69 6E 67 29 3B 0D 0A 20 t:wrkstring);..
0074F0: 20 76 61 72 20 4C 69 6E 65 53 74 79 6C 65 4C 6F var LineStyleLo
007500: 63 2C 63 6F 64 65 2C 41 73 63 69 69 56 61 6C 75 c,code,AsciiValu
007510: 65 2C 53 74 72 69 6E 67 4C 65 6E 2C 69 2C 53 79 e,StringLen,i,Sy
007520: 6D 62 6F 6C 53 63 61 6C 65 2C 53 79 6D 62 6F 6C mbolScale,Symbol
007530: 43 6F 64 65 3A 69 6E 74 65 67 65 72 3B 0D 0A 20 Code:integer;..
007540: 20 20 20 20 20 44 69 72 65 63 74 4D 6F 64 65 4C DirectModeL
007550: 6F 63 3A 62 6F 6F 6C 65 61 6E 3B 0D 0A 20 20 62 oc:boolean;.. b
007560: 65 67 69 6E 0D 0A 20 20 20 20 44 69 72 65 63 74 egin.. Direct
007570: 4D 6F 64 65 4C 6F 63 3A 3D 44 69 72 65 63 74 4D ModeLoc:=DirectM
007580: 6F 64 65 47 6C 62 3B 0D 0A 20 20 20 20 44 69 72 odeGlb;.. Dir
007590: 65 63 74 4D 6F 64 65 47 6C 62 3A 3D 74 72 75 65 ectModeGlb:=true
0075A0: 3B 0D 0A 20 20 20 20 4C 69 6E 65 53 74 79 6C 65 ;.. LineStyle
0075B0: 4C 6F 63 3A 3D 4C 69 6E 65 73 74 79 6C 65 47 6C Loc:=LinestyleGl
0075C0: 62 3B 0D 0A 20 20 20 20 53 65 74 4C 69 6E 65 53 b;.. SetLineS
0075D0: 74 79 6C 65 28 30 29 3B 0D 0A 20 20 20 20 53 74 tyle(0);.. St
0075E0: 72 69 6E 67 4C 65 6E 3A 3D 6C 65 6E 67 74 68 28 ringLen:=length(
0075F0: 74 78 74 29 3B 0D 0A 20 20 20 20 69 3A 3D 31 3B txt);.. i:=1;
007600: 20 79 6C 32 3A 3D 79 6C 32 2B 68 65 61 64 65 72 yl2:=yl2+header
007610: 53 69 7A 65 47 6C 62 3B 0D 0A 20 20 20 20 20 20 SizeGlb;..
007620: 20 20 20 20 52 65 44 65 66 69 6E 65 57 69 6E 64 ReDefineWind
007630: 6F 77 28 57 69 6E 64 6F 77 4E 64 78 47 6C 62 2C ow(WindowNdxGlb,
007640: 58 31 52 65 66 47 6C 62 2C 59 6C 31 2C 58 32 52 X1RefGlb,Yl1,X2R
007650: 65 66 47 6C 62 2C 59 6C 32 29 3B 0D 0A 20 20 20 efGlb,Yl2);..
007660: 20 20 20 20 20 20 20 53 65 6C 65 63 74 57 69 6E SelectWin
007670: 64 6F 77 28 57 69 6E 64 6F 77 4E 64 78 47 6C 62 dow(WindowNdxGlb
007680: 29 3B 0D 0A 20 20 20 20 20 20 20 20 65 6E 64 3B );.. end;
007690: 0D 0A 20 20 20 20 20 20 20 20 69 66 20 54 6F 70 .. if Top
0076A0: 47 6C 62 20 74 68 65 6E 20 62 65 67 69 6E 0D 0A Glb then begin..
0076B0: 20 20 20 20 20 20 20 20 20 20 79 6C 31 3A 3D 59 yl1:=Y
0076C0: 31 52 65 66 47 6C 62 2B 48 65 61 64 65 72 53 69 1RefGlb+HeaderSi
0076D0: 7A 65 47 6C 62 3B 20 79 6C 32 3A 3D 59 32 52 65 zeGlb; yl2:=Y2Re
0076E0: 66 47 6C 62 3B 0D 0A 20 20 20 20 20 20 20 20 20 fGlb;..
0076F0: 20 59 31 48 64 72 3A 3D 59 31 52 65 66 47 6C 62 Y1Hdr:=Y1RefGlb
007700: 3B 20 59 32 48 64 72 3A 3D 59 31 52 65 66 47 6C ; Y2Hdr:=Y1RefGl
007710: 62 2B 48 65 61 64 65 72 53 69 7A 65 47 6C 62 2D b+HeaderSizeGlb-
007720: 31 3B 0D 0A 20 20 20 20 20 20 20 20 65 6E 64 0D 1;.. end.
007730: 0A 20 20 20 20 20 20 20 20 65 6C 73 65 20 62 65 . else be
007740: 67 69 6E 0D 0A 20 20 20 20 20 20 20 20 20 20 79 gin.. y
007750: 6C 31 3A 3D 59 31 52 65 66 47 6C 62 3B 20 79 6C l1:=Y1RefGlb; yl
007760: 32 3A 3D 59 32 52 65 66 47 6C 62 2D 48 65 61 64 2:=Y2RefGlb-Head
007770: 65 72 53 69 7A 65 47 6C 62 3B 0D 0A 20 20 20 20 erSizeGlb;..
007780: 20 20 20 20 20 20 59 31 48 64 72 3A 3D 59 32 52 Y1Hdr:=Y2R
007790: 65 66 47 6C 62 2D 48 65 61 64 65 72 53 69 7A 65 efGlb-HeaderSize
0077A0: 47 6C 62 2B 31 3B 20 59 32 48 64 72 3A 3D 59 32 Glb+1; Y2Hdr:=Y2
0077B0: 52 65 66 47 6C 62 3B 0D 0A 20 20 20 20 20 20 20 RefGlb;..
0077C0: 20 65 6E 64 3B 0D 0A 20 20 20 20 20 20 20 20 74 end;.. t
0077D0: 6F 70 3A 3D 54 6F 70 47 6C 62 3B 0D 0A 20 20 20 op:=TopGlb;..
0077E0: 20 20 20 20 20 52 65 44 65 66 69 6E 65 57 69 6E ReDefineWin
0077F0: 64 6F 77 28 57 69 6E 64 6F 77 4E 64 78 47 6C 62 dow(WindowNdxGlb
007800: 0D 0A 20 20 20 20 77 68 69 6C 65 20 69 3C 3D 53 .. while i<=S
007810: 74 72 69 6E 67 4C 65 6E 20 64 6F 20 62 65 67 69 tringLen do begi
007820: 6E 0D 0A 20 20 20 20 20 20 41 73 63 69 69 56 61 n.. AsciiVa
007830: 6C 75 65 3A 3D 6F 72 64 28 74 78 74 5B 69 5D 29 lue:=ord(txt[i])
007840: 3B 0D 0A 20 20 20 20 20 20 69 66 20 41 73 63 69 ;.. if Asci
007850: 69 56 61 6C 75 65 3D 32 37 20 74 68 65 6E 20 62 iValue=27 then b
007860: 65 67 69 6E 0D 0A 20 20 20 20 20 20 20 20 53 79 egin.. Sy
007870: 6D 62 6F 6C 53 63 61 6C 65 3A 3D 73 63 61 6C 65 mbolScale:=scale
007880: 3B 0D 0A 20 20 20 20 20 20 20 20 69 3A 3D 69 2B ;.. i:=i+
007890: 31 3B 0D 0A 20 20 20 20 20 20 20 20 69 66 20 69 1;.. if i
0078A0: 3C 3D 53 74 72 69 6E 67 4C 65 6E 20 74 68 65 6E <=StringLen then
0078B0: 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 20 20 20 begin..
0078C0: 20 20 76 61 6C 28 74 78 74 5B 69 5D 2C 53 79 6D val(txt[i],Sym
0078D0: 62 6F 6C 43 6F 64 65 2C 63 6F 64 65 29 3B 0D 0A bolCode,code);..
0078E0: 20 20 20 20 20 20 20 20 20 20 69 66 20 28 69 2B if (i+
0078F0: 32 3C 3D 53 74 72 69 6E 67 4C 65 6E 29 20 61 6E 2<=StringLen) an
007900: 64 20 28 6F 72 64 28 74 78 74 5B 69 2B 31 5D 29 d (ord(txt[i+1])
007910: 3D 36 34 29 20 74 68 65 6E 20 62 65 67 69 6E 0D =64) then begin.
007920: 0A 20 20 20 20 20 20 20 20 20 20 20 20 76 61 6C . val
007930: 28 74 78 74 5B 69 2B 32 5D 2C 53 79 6D 62 6F 6C (txt[i+2],Symbol
007940: 53 63 61 6C 65 2C 63 6F 64 65 29 3B 0D 0A 20 20 Scale,code);..
007950: 20 20 20 20 20 20 20 20 20 20 69 3A 3D 69 2B 32 i:=i+2
007960: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 65 6E 64 ;.. end
007970: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 63 61 73 ;.. cas
007980: 65 20 53 79 6D 62 6F 6C 43 6F 64 65 20 6F 66 0D e SymbolCode of.
007990: 0A 20 20 20 20 20 20 20 20 20 20 20 20 31 3A 44 . 1:D
0079A0: 72 61 77 43 72 6F 73 73 28 78 2B 53 79 6D 62 6F rawCross(x+Symbo
0079B0: 6C 53 63 61 6C 65 2C 79 2B 73 63 61 6C 65 2C 53 lScale,y+scale,S
0079C0: 79 6D 62 6F 6C 53 63 61 6C 65 29 3B 0D 0A 20 20 ymbolScale);..
0079D0: 20 20 20 20 20 20 20 20 20 20 32 3A 44 72 61 77 2:Draw
0079E0: 43 72 6F 73 73 44 69 61 67 28 78 2B 53 79 6D 62 CrossDiag(x+Symb
0079F0: 6F 6C 53 63 61 6C 65 2C 79 2B 73 63 61 6C 65 2C olScale,y+scale,
007A00: 2C 58 31 52 65 66 47 6C 62 2C 79 6C 31 2C 58 32 ,X1RefGlb,yl1,X2
007A10: 52 65 66 47 6C 62 2C 79 6C 32 29 3B 0D 0A 20 20 RefGlb,yl2);..
007A20: 20 20 20 20 20 20 53 65 6C 65 63 74 57 69 6E 64 SelectWind
007A30: 6F 77 28 57 69 6E 64 6F 77 4E 64 78 47 6C 62 29 ow(WindowNdxGlb)
007A40: 3B 0D 0A 20 20 20 20 20 20 20 20 44 72 61 77 48 ;.. DrawH
007A50: 65 61 64 65 72 42 61 63 6B 67 72 6F 75 6E 64 28 eaderBackground(
007A60: 59 31 48 64 72 2C 59 32 48 64 72 29 3B 0D 0A 20 Y1Hdr,Y2Hdr);..
007A70: 20 20 20 20 20 20 20 43 6F 6C 6F 72 47 6C 62 28 ColorGlb(
007A80: 32 35 35 2D 67 65 74 43 6F 6C 6F 72 29 3B 0D 0A 255-getColor);..
007A90: 20 20 20 20 20 20 20 20 44 72 61 77 54 65 78 74 DrawText
007AA0: 28 78 6C 31 2B 32 2B 28 78 6C 32 2D 78 6C 31 2D (xl1+2+(xl2-xl1-
007AB0: 6C 65 6E 67 74 68 28 68 65 61 64 65 72 29 2A 36 length(header)*6
007AC0: 29 20 73 68 72 20 31 2C 59 31 48 64 72 2B 33 2C ) shr 1,Y1Hdr+3,
007AD0: 31 2C 68 65 61 64 65 72 29 3B 0D 0A 20 20 20 20 1,header);..
007AE0: 20 20 20 20 44 72 61 77 53 71 75 61 72 65 28 78 DrawSquare(x
007AF0: 6C 31 2C 59 31 48 64 72 2C 78 6C 32 2C 59 32 48 l1,Y1Hdr,xl2,Y2H
007B00: 64 72 2C 66 61 6C 73 65 29 3B 0D 0A 20 20 20 20 dr,false);..
007B10: 20 20 20 20 43 6F 6C 6F 72 47 6C 62 28 32 35 35 ColorGlb(255
007B20: 2D 47 65 74 43 6F 6C 6F 72 29 3B 0D 0A 20 20 20 -GetColor);..
007B30: 20 20 20 20 20 44 72 61 77 53 71 75 61 72 65 28 DrawSquare(
007B40: 78 6C 31 2C 59 31 52 65 66 47 6C 62 2C 78 6C 32 xl1,Y1RefGlb,xl2
007B50: 2C 59 32 52 65 66 47 6C 62 2C 66 61 6C 73 65 29 ,Y2RefGlb,false)
007B60: 3B 0D 0A 20 20 20 20 20 20 20 20 64 72 61 77 6E ;.. drawn
007B70: 3A 3D 74 72 75 65 3B 0D 0A 20 20 20 20 20 20 65 :=true;.. e
007B80: 6E 64 3B 0D 0A 20 20 20 20 65 6E 64 3B 0D 0A 0D nd;.. end;...
007B90: 0A 20 20 62 65 67 69 6E 0D 0A 20 20 20 20 44 69 . begin.. Di
007BA0: 72 65 63 74 4D 6F 64 65 4C 6F 63 3A 3D 44 69 72 rectModeLoc:=Dir
007BB0: 65 63 74 4D 6F 64 65 47 6C 62 3B 0D 0A 20 20 20 ectModeGlb;..
007BC0: 20 44 69 72 65 63 74 4D 6F 64 65 47 6C 62 3A 3D DirectModeGlb:=
007BD0: 74 72 75 65 3B 0D 0A 20 20 20 20 43 6C 69 70 4C true;.. ClipL
007BE0: 6F 63 3A 3D 43 6C 69 70 70 69 6E 67 47 6C 62 3B oc:=ClippingGlb;
007BF0: 0D 0A 20 20 20 20 43 6C 69 70 70 69 6E 67 47 6C .. ClippingGl
007C00: 53 79 6D 62 6F 6C 53 63 61 6C 65 29 3B 0D 0A 20 SymbolScale);..
007C10: 20 20 20 20 20 20 20 20 20 20 20 33 2C 34 3A 20 3,4:
007C20: 44 72 61 77 53 71 75 61 72 65 43 28 78 2C 79 2B DrawSquareC(x,y+
007C30: 28 53 79 6D 62 6F 6C 53 63 61 6C 65 20 73 68 6C (SymbolScale shl
007C40: 20 31 29 2D 31 2C 78 2B 28 53 79 6D 62 6F 6C 53 1)-1,x+(SymbolS
007C50: 63 61 6C 65 20 73 68 6C 20 31 29 2C 0D 0A 20 20 cale shl 1),..
007C60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
007C70: 20 20 20 20 20 20 20 20 20 20 20 79 2D 31 2C 28 y-1,(
007C80: 53 79 6D 62 6F 6C 43 6F 64 65 3D 34 29 29 3B 0D SymbolCode=4));.
007C90: 0A 20 20 20 20 20 20 20 20 20 20 20 20 35 3A 62 . 5:b
007CA0: 65 67 69 6E 0D 0A 20 20 20 20 20 20 20 20 20 20 egin..
007CB0: 20 20 20 20 20 20 44 72 61 77 44 69 61 6D 6F 6E DrawDiamon
007CC0: 64 28 78 2B 74 72 75 6E 63 28 31 2E 35 2A 53 79 d(x+trunc(1.5*Sy
007CD0: 6D 62 6F 6C 53 63 61 6C 65 29 2C 79 2B 53 79 6D mbolScale),y+Sym
007CE0: 62 6F 6C 53 63 61 6C 65 2D 31 2C 53 79 6D 62 6F bolScale-1,Symbo
007CF0: 6C 53 63 61 6C 65 2B 31 29 3B 0D 0A 20 20 20 20 lScale+1);..
007D00: 20 20 20 20 20 20 20 20 20 20 20 20 78 3A 3D 78 x:=x
007D10: 2B 53 79 6D 62 6F 6C 53 63 61 6C 65 3B 0D 0A 20 +SymbolScale;..
007D20: 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6E 64 end
007D30: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 36 ;.. 6
007D40: 3A 44 72 61 77 57 79 65 28 78 2B 53 79 6D 62 6F :DrawWye(x+Symbo
007D50: 6C 53 63 61 6C 65 2C 79 2B 53 79 6D 62 6F 6C 53 lScale,y+SymbolS
007D60: 63 61 6C 65 2D 31 2C 53 79 6D 62 6F 6C 53 63 61 cale-1,SymbolSca
007D70: 6C 65 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 le);..
007D80: 20 20 37 3A 62 65 67 69 6E 0D 0A 20 20 20 20 20 7:begin..
007D90: 20 20 20 20 20 20 20 20 20 20 20 44 72 61 77 53 DrawS
007DA0: 74 61 72 28 78 2B 53 79 6D 62 6F 6C 53 63 61 6C tar(x+SymbolScal
007DB0: 65 20 73 68 6C 20 31 2C 79 2B 53 79 6D 62 6F 6C e shl 1,y+Symbol
007DC0: 53 63 61 6C 65 2D 31 2C 53 79 6D 62 6F 6C 53 63 Scale-1,SymbolSc
007DD0: 61 6C 65 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 ale);..
007DE0: 20 20 20 20 20 20 20 78 3A 3D 78 2B 53 79 6D 62 x:=x+Symb
007DF0: 6F 6C 53 63 61 6C 65 20 73 68 6C 20 31 3B 0D 0A olScale shl 1;..
007E00: 62 3A 3D 66 61 6C 73 65 3B 0D 0A 20 20 20 20 78 b:=false;.. x
007E10: 6C 31 3A 3D 58 31 52 65 66 47 6C 62 20 73 68 6C l1:=X1RefGlb shl
007E20: 20 33 3B 0D 0A 20 20 20 20 78 6C 32 3A 3D 58 32 3;.. xl2:=X2
007E30: 52 65 66 47 6C 62 20 73 68 6C 20 33 2B 37 3B 0D RefGlb shl 3+7;.
007E40: 0A 20 20 20 20 77 69 74 68 20 77 69 6E 64 6F 77 . with window
007E50: 5B 57 69 6E 64 6F 77 4E 64 78 47 6C 62 5D 20 64 [WindowNdxGlb] d
007E60: 6F 0D 0A 20 20 20 20 20 20 69 66 20 28 28 48 65 o.. if ((He
007E70: 61 64 65 72 47 6C 62 29 20 61 6E 64 20 28 6C 65 aderGlb) and (le
007E80: 6E 67 74 68 28 68 65 61 64 65 72 29 3E 30 29 29 ngth(header)>0))
007E90: 20 61 6E 64 20 28 79 32 2D 79 31 3E 48 65 61 64 and (y2-y1>Head
007EA0: 65 72 53 69 7A 65 47 6C 62 29 20 61 6E 64 0D 0A erSizeGlb) and..
007EB0: 20 20 20 20 20 20 20 20 20 28 28 6C 65 6E 67 74 ((lengt
007EC0: 68 28 68 65 61 64 65 72 29 2A 36 29 3C 61 62 73 h(header)*6)<abs
007ED0: 28 78 6C 32 2D 78 6C 31 29 2D 34 29 20 74 68 65 (xl2-xl1)-4) the
007EE0: 6E 0D 0A 20 20 20 20 20 20 20 20 44 72 61 77 48 n.. DrawH
007EF0: 65 61 64 65 72 0D 0A 20 20 20 20 20 20 65 6C 73 eader.. els
007F00: 65 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 20 20 e begin..
007F10: 20 64 72 61 77 6E 3A 3D 66 61 6C 73 65 3B 0D 0A drawn:=false;..
007F20: 20 20 20 20 20 20 20 20 44 72 61 77 53 71 75 61 DrawSqua
007F30: 72 65 28 78 6C 31 2C 59 31 52 65 66 47 6C 62 2C re(xl1,Y1RefGlb,
007F40: 78 6C 32 2C 59 32 52 65 66 47 6C 62 2C 66 61 6C xl2,Y2RefGlb,fal
007F50: 73 65 29 3B 0D 0A 20 20 20 20 20 20 65 6E 64 3B se);.. end;
007F60: 0D 0A 20 20 20 20 44 69 72 65 63 74 4D 6F 64 65 .. DirectMode
007F70: 47 6C 62 3A 3D 44 69 72 65 63 74 4D 6F 64 65 4C Glb:=DirectModeL
007F80: 6F 63 3B 0D 0A 20 20 20 20 43 6C 69 70 70 69 6E oc;.. Clippin
007F90: 67 47 6C 62 3A 3D 43 6C 69 70 4C 6F 63 3B 0D 0A gGlb:=ClipLoc;..
007FA0: 20 20 65 6E 64 3B 0D 0A 0D 0A 70 72 6F 63 65 64 end;....proced
007FB0: 75 72 65 20 68 61 72 64 63 6F 70 79 28 69 6E 76 ure hardcopy(inv
007FC0: 65 72 73 65 3A 62 6F 6F 6C 65 61 6E 3B 6D 6F 64 erse:boolean;mod
007FD0: 65 3A 62 79 74 65 29 3B 20 7B 20 45 50 53 4F 4E e:byte); { EPSON
007FE0: 20 7D 0D 0A 20 20 76 61 72 20 69 2C 6A 2C 74 6F }.. var i,j,to
007FF0: 70 3A 69 6E 74 65 67 65 72 3B 0D 0A 20 20 20 20 p:integer;..
008000: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6E en
008010: 64 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 d;..
008020: 38 3A 44 72 61 77 43 69 72 63 6C 65 44 69 72 65 8:DrawCircleDire
008030: 63 74 28 78 2B 53 79 6D 62 6F 6C 53 63 61 6C 65 ct(x+SymbolScale
008040: 2C 79 2B 28 53 79 6D 62 6F 6C 53 63 61 6C 65 20 ,y+(SymbolScale
008050: 73 68 72 20 31 29 2C 53 79 6D 62 6F 6C 53 63 61 shr 1),SymbolSca
008060: 6C 65 2B 31 2C 46 61 6C 73 65 29 3B 0D 0A 20 20 le+1,False);..
008070: 20 20 20 20 20 20 20 20 65 6E 64 3B 0D 0A 20 20 end;..
008080: 20 20 20 20 20 20 20 20 78 3A 3D 78 2B 33 2A 53 x:=x+3*S
008090: 79 6D 62 6F 6C 53 63 61 6C 65 3B 0D 0A 20 20 20 ymbolScale;..
0080A0: 20 20 20 20 20 20 20 53 79 6D 62 6F 6C 53 63 61 SymbolSca
0080B0: 6C 65 3A 3D 73 63 61 6C 65 3B 0D 0A 20 20 20 20 le:=scale;..
0080C0: 20 20 20 20 65 6E 64 3B 0D 0A 20 20 20 20 20 20 end;..
0080D0: 65 6E 64 0D 0A 20 20 20 20 20 20 65 6C 73 65 20 end.. else
0080E0: 44 72 61 77 41 73 63 69 69 28 78 2C 79 2C 73 63 DrawAscii(x,y,sc
0080F0: 61 6C 65 2C 41 73 63 69 69 56 61 6C 75 65 29 3B ale,AsciiValue);
008100: 0D 0A 20 20 20 20 20 20 69 3A 3D 69 2B 31 3B 0D .. i:=i+1;.
008110: 0A 20 20 20 20 65 6E 64 3B 0D 0A 20 20 20 20 44 . end;.. D
008120: 69 72 65 63 74 4D 6F 64 65 47 6C 62 3A 3D 44 69 irectModeGlb:=Di
008130: 72 65 63 74 4D 6F 64 65 4C 6F 63 3B 0D 0A 20 20 rectModeLoc;..
008140: 20 20 53 65 74 4C 69 6E 65 53 74 79 6C 65 28 4C SetLineStyle(L
008150: 69 6E 65 53 74 79 6C 65 4C 6F 63 29 3B 0D 0A 20 ineStyleLoc);..
008160: 20 65 6E 64 3B 0D 0A 0D 0A 70 72 6F 63 65 64 75 end;....procedu
008170: 72 65 20 44 72 61 77 54 65 78 74 57 28 78 2C 79 re DrawTextW(x,y
008180: 3A 72 65 61 6C 3B 20 73 63 61 6C 65 3A 69 6E 74 :real; scale:int
008190: 65 67 65 72 3B 20 74 78 74 3A 77 72 6B 73 74 72 eger; txt:wrkstr
0081A0: 69 6E 67 29 3B 0D 0A 20 20 62 65 67 69 6E 0D 0A ing);.. begin..
0081B0: 20 20 20 20 69 66 20 44 69 72 65 63 74 4D 6F 64 if DirectMod
0081C0: 65 47 6C 62 20 74 68 65 6E 20 44 72 61 77 54 65 eGlb then DrawTe
0081D0: 78 74 28 74 72 75 6E 63 28 78 29 2C 74 72 75 6E xt(trunc(x),trun
0081E0: 63 28 79 29 2C 73 63 61 6C 65 2C 74 78 74 29 0D c(y),scale,txt).
0081F0: 0A 20 20 20 20 65 6C 73 65 20 44 72 61 77 54 65 . else DrawTe
008200: 20 20 43 6F 6C 6F 72 4C 6F 63 2C 50 72 69 6E 74 ColorLoc,Print
008210: 42 79 74 65 3A 62 79 74 65 3B 0D 0A 0D 0A 20 20 Byte:byte;....
008220: 70 72 6F 63 65 64 75 72 65 20 64 6F 6C 69 6E 65 procedure doline
008230: 28 74 6F 70 3A 69 6E 74 65 67 65 72 29 3B 0D 0A (top:integer);..
008240: 20 20 20 20 66 75 6E 63 74 69 6F 6E 20 43 6F 6E function Con
008250: 73 74 72 75 63 74 42 79 74 65 28 6A 2C 69 3A 69 structByte(j,i:i
008260: 6E 74 65 67 65 72 29 3A 62 79 74 65 3B 0D 0A 20 nteger):byte;..
008270: 20 20 20 20 20 63 6F 6E 73 74 20 42 69 74 73 3A const Bits:
008280: 61 72 72 61 79 20 5B 30 2E 2E 37 5D 20 6F 66 20 array [0..7] of
008290: 62 79 74 65 3D 28 31 32 38 2C 36 34 2C 33 32 2C byte=(128,64,32,
0082A0: 31 36 2C 38 2C 34 2C 32 2C 31 29 3B 0D 0A 20 20 16,8,4,2,1);..
0082B0: 20 20 20 20 76 61 72 20 43 42 79 74 65 2C 6B 3A var CByte,k:
0082C0: 62 79 74 65 3B 0D 0A 20 20 20 20 20 20 62 65 67 byte;.. beg
0082D0: 69 6E 0D 0A 20 20 20 20 20 20 20 20 69 3A 3D 69 in.. i:=i
0082E0: 20 73 68 6C 20 33 3B 0D 0A 20 20 20 20 20 20 20 shl 3;..
0082F0: 20 43 42 79 74 65 3A 3D 30 3B 0D 0A 20 20 20 20 CByte:=0;..
008300: 20 20 20 20 66 6F 72 20 6B 3A 3D 30 20 74 6F 20 for k:=0 to
008310: 74 6F 70 20 64 6F 0D 0A 20 20 20 20 20 20 20 20 top do..
008320: 20 20 69 66 20 50 44 28 6A 2C 69 2B 6B 29 20 74 if PD(j,i+k) t
008330: 68 65 6E 20 43 42 79 74 65 3A 3D 43 42 79 74 65 hen CByte:=CByte
008340: 20 6F 72 20 42 69 74 73 5B 6B 5D 3B 0D 0A 20 20 or Bits[k];..
008350: 20 20 20 20 20 20 43 6F 6E 73 74 72 75 63 74 42 ConstructB
008360: 79 74 65 3A 3D 43 42 79 74 65 3B 0D 0A 20 20 20 yte:=CByte;..
008370: 20 20 20 65 6E 64 3B 0D 0A 20 20 20 20 62 65 67 end;.. beg
008380: 69 6E 0D 0A 20 20 20 20 20 20 69 66 20 6D 6F 64 in.. if mod
008390: 65 3D 31 20 74 68 65 6E 20 77 72 69 74 65 28 6C e=1 then write(l
0083A0: 73 74 2C 5E 5B 27 4C 27 29 0D 0A 20 20 20 20 20 st,^['L')..
0083B0: 20 65 6C 73 65 20 77 72 69 74 65 28 6C 73 74 2C else write(lst,
0083C0: 5E 5B 27 2A 27 2C 63 68 72 28 6D 6F 64 65 29 29 ^['*',chr(mode))
0083D0: 3B 0D 0A 20 20 20 20 20 20 77 72 69 74 65 28 6C ;.. write(l
0083E0: 73 74 2C 63 68 72 28 6C 6F 28 58 53 63 72 65 65 st,chr(lo(XScree
0083F0: 6E 4D 61 78 47 6C 62 2B 31 29 29 2C 63 68 72 28 nMaxGlb+1)),chr(
008400: 78 74 28 57 69 6E 64 6F 77 58 28 78 29 2C 57 69 xt(WindowX(x),Wi
008410: 6E 64 6F 77 59 28 79 29 2C 73 63 61 6C 65 2C 74 ndowY(y),scale,t
008420: 78 74 29 3B 0D 0A 20 20 65 6E 64 3B 0D 0A 0D 0A xt);.. end;....
008430: 70 72 6F 63 65 64 75 72 65 20 44 72 61 77 42 6F procedure DrawBo
008440: 72 64 65 72 3B 0D 0A 20 20 76 61 72 20 43 6C 69 rder;.. var Cli
008450: 70 4C 6F 63 2C 44 69 72 65 63 74 4D 6F 64 65 4C pLoc,DirectModeL
008460: 6F 63 3A 62 6F 6F 6C 65 61 6E 3B 0D 0A 20 20 20 oc:boolean;..
008470: 20 20 20 78 6C 31 2C 78 6C 32 3A 69 6E 74 65 67 xl1,xl2:integ
008480: 65 72 3B 0D 0A 0D 0A 20 20 70 72 6F 63 65 64 75 er;.... procedu
008490: 72 65 20 44 72 61 77 48 65 61 64 65 72 42 61 63 re DrawHeaderBac
0084A0: 6B 67 72 6F 75 6E 64 28 79 31 2C 79 32 3A 69 6E kground(y1,y2:in
0084B0: 74 65 67 65 72 29 3B 0D 0A 20 20 20 20 76 61 72 teger);.. var
0084C0: 20 69 3A 69 6E 74 65 67 65 72 3B 0D 0A 20 20 20 i:integer;..
0084D0: 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 20 66 6F begin.. fo
0084E0: 72 20 69 3A 3D 79 31 20 74 6F 20 79 32 20 64 6F r i:=y1 to y2 do
0084F0: 20 44 72 61 77 53 74 72 61 69 67 68 74 28 78 6C DrawStraight(xl
008500: 31 2C 78 6C 32 2C 69 29 3B 0D 0A 20 20 20 20 65 1,xl2,i);.. e
008510: 6E 64 3B 0D 0A 0D 0A 20 20 70 72 6F 63 65 64 75 nd;.... procedu
008520: 72 65 20 44 72 61 77 48 65 61 64 65 72 3B 0D 0A re DrawHeader;..
008530: 20 20 20 20 76 61 72 20 59 31 48 64 72 2C 59 32 var Y1Hdr,Y2
008540: 48 64 72 2C 79 6C 31 2C 79 6C 32 3A 69 6E 74 65 Hdr,yl1,yl2:inte
008550: 67 65 72 3B 0D 0A 20 20 20 20 62 65 67 69 6E 0D ger;.. begin.
008560: 0A 20 20 20 20 20 20 77 69 74 68 20 77 69 6E 64 . with wind
008570: 6F 77 5B 57 69 6E 64 6F 77 4E 64 78 47 6C 62 5D ow[WindowNdxGlb]
008580: 20 64 6F 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 do begin..
008590: 20 20 20 79 6C 31 3A 3D 79 31 52 65 66 47 6C 62 yl1:=y1RefGlb
0085A0: 3B 20 79 6C 32 3A 3D 79 32 52 65 66 47 6C 62 3B ; yl2:=y2RefGlb;
0085B0: 0D 0A 20 20 20 20 20 20 20 20 69 66 20 64 72 61 .. if dra
0085C0: 77 6E 20 74 68 65 6E 20 62 65 67 69 6E 0D 0A 20 wn then begin..
0085D0: 20 20 20 20 20 20 20 20 20 69 66 20 74 6F 70 20 if top
0085E0: 74 68 65 6E 20 79 6C 31 3A 3D 79 6C 31 2D 48 65 then yl1:=yl1-He
0085F0: 61 64 65 72 53 69 7A 65 47 6C 62 20 65 6C 73 65 aderSizeGlb else
008600: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
008610: 07 00 00 00 02 09 50 E5 07 00 41 02 00 00 00 02 ......P...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: 48 69 28 58 53 63 72 65 65 6E 4D 61 78 47 6C 62 Hi(XScreenMaxGlb
008710: 2B 31 29 29 29 3B 0D 0A 20 20 20 20 20 20 66 6F +1)));.. fo
008720: 72 20 6A 3A 3D 30 20 74 6F 20 58 53 63 72 65 65 r j:=0 to XScree
008730: 6E 4D 61 78 47 6C 62 20 64 6F 20 62 65 67 69 6E nMaxGlb do begin
008740: 0D 0A 20 20 20 20 20 20 20 20 50 72 69 6E 74 42 .. PrintB
008750: 79 74 65 3A 3D 43 6F 6E 73 74 72 75 63 74 42 79 yte:=ConstructBy
008760: 74 65 28 6A 2C 69 29 3B 0D 0A 20 20 20 20 20 20 te(j,i);..
008770: 20 20 69 66 20 69 6E 76 65 72 73 65 20 74 68 65 if inverse the
008780: 6E 20 50 72 69 6E 74 42 79 74 65 3A 3D 6E 6F 74 n PrintByte:=not
008790: 20 50 72 69 6E 74 42 79 74 65 3B 0D 0A 20 20 20 PrintByte;..
0087A0: 20 20 20 20 20 77 72 69 74 65 28 6C 73 74 2C 63 write(lst,c
0087B0: 68 72 28 50 72 69 6E 74 42 79 74 65 29 29 3B 0D hr(PrintByte));.
0087C0: 0A 20 20 20 20 20 20 65 6E 64 3B 0D 0A 20 20 20 . end;..
0087D0: 20 20 20 69 66 20 6D 6F 64 65 3C 3E 34 20 74 68 if mode<>4 th
0087E0: 65 6E 20 77 72 69 74 65 6C 6E 28 6C 73 74 29 3B en writeln(lst);
0087F0: 0D 0A 20 20 20 20 65 6E 64 3B 0D 0A 0D 0A 20 20 .. end;....
008800: 62 65 67 69 6E 0D 0A 20 20 20 20 74 6F 70 3A 3D begin.. top:=
008810: 37 3B 0D 0A 20 20 20 20 43 6F 6C 6F 72 4C 6F 63 7;.. ColorLoc
008820: 3A 3D 47 65 74 43 6F 6C 6F 72 3B 0D 0A 20 20 20 :=GetColor;..
008830: 20 43 6F 6C 6F 72 47 6C 62 28 32 35 35 29 3B 0D ColorGlb(255);.
008840: 0A 20 20 20 20 6D 6F 64 65 3A 3D 6D 6F 64 65 20 . mode:=mode
008850: 61 6E 64 20 37 3B 0D 0A 20 20 20 20 69 66 20 28 and 7;.. if (
008860: 6D 6F 64 65 3D 35 29 20 6F 72 20 28 6D 6F 64 65 mode=5) or (mode
008870: 3D 30 29 20 74 68 65 6E 20 6D 6F 64 65 3A 3D 34 =0) then mode:=4
008880: 3B 0D 0A 20 20 20 20 77 72 69 74 65 28 6C 73 74 ;.. write(lst
008890: 2C 5E 5B 27 33 27 23 32 34 29 3B 0D 0A 20 20 20 ,^['3'#24);..
0088A0: 20 66 6F 72 20 69 3A 3D 30 20 74 6F 20 28 28 59 for i:=0 to ((Y
0088B0: 4D 61 78 47 6C 62 2B 31 29 20 73 68 72 20 33 29 MaxGlb+1) shr 3)
0088C0: 2D 31 20 64 6F 20 64 6F 6C 69 6E 65 28 37 29 3B -1 do doline(7);
0088D0: 0D 0A 20 20 20 20 69 3A 3D 28 28 59 4D 61 78 47 .. i:=((YMaxG
0088E0: 6C 62 2B 31 29 20 73 68 72 20 33 29 3B 0D 0A 20 lb+1) shr 3);..
0088F0: 20 20 20 69 66 20 28 59 4D 61 78 47 6C 62 2B 31 if (YMaxGlb+1
008900: 20 20 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 20 begin..
008910: 20 20 58 3A 3D 58 30 2B 43 2A 28 41 5B 69 2C 31 X:=X0+C*(A[i,1
008920: 5D 2D 58 30 29 2D 53 2A 28 41 5B 69 2C 32 5D 2D ]-X0)-S*(A[i,2]-
008930: 59 30 29 3B 0D 0A 20 20 20 20 20 20 20 20 41 5B Y0);.. A[
008940: 69 2C 32 5D 3A 3D 59 30 2B 53 2A 28 41 5B 69 2C i,2]:=Y0+S*(A[i,
008950: 31 5D 2D 58 30 29 2B 43 2A 28 41 5B 69 2C 32 5D 1]-X0)+C*(A[i,2]
008960: 2D 59 30 29 3B 0D 0A 20 20 20 20 20 20 20 20 41 -Y0);.. A
008970: 5B 69 2C 31 5D 3A 3D 58 3B 0D 0A 20 20 20 20 20 [i,1]:=X;..
008980: 20 20 65 6E 64 3B 0D 0A 20 20 20 20 20 65 6E 64 end;.. end
008990: 0D 0A 20 20 20 20 65 6C 73 65 20 65 72 72 6F 72 .. else error
0089A0: 28 38 2C 34 29 3B 0D 0A 20 20 65 6E 64 3B 0D 0A (8,4);.. end;..
0089B0: 0D 0A 70 72 6F 63 65 64 75 72 65 20 52 6F 74 61 ..procedure Rota
0089C0: 74 65 50 6F 6C 79 67 6F 6E 28 76 61 72 20 41 3A tePolygon(var A:
0089D0: 50 6C 6F 74 41 72 72 61 79 3B 0D 0A 20 20 20 20 PlotArray;..
0089E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0089F0: 20 20 20 20 4E 50 6F 69 6E 74 73 3A 69 6E 74 65 NPoints:inte
008A00: 67 65 72 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 ger;..
008A10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 68 Th
008A20: 65 74 61 3A 72 65 61 6C 29 3B 0D 0A 20 20 76 61 eta:real);.. va
008A30: 72 20 58 30 2C 59 30 3A 72 65 61 6C 3B 0D 0A 20 r X0,Y0:real;..
008A40: 20 20 20 20 20 69 3A 69 6E 74 65 67 65 72 3B 0D i:integer;.
008A50: 0A 0D 0A 20 20 62 65 67 69 6E 0D 0A 20 20 20 20 ... begin..
008A60: 58 30 3A 3D 30 2E 30 3B 0D 0A 20 20 20 20 59 30 X0:=0.0;.. Y0
008A70: 3A 3D 30 2E 30 3B 0D 0A 20 20 20 20 66 6F 72 20 :=0.0;.. for
008A80: 69 3A 3D 31 20 74 6F 20 4E 50 6F 69 6E 74 73 20 i:=1 to NPoints
008A90: 64 6F 0D 0A 20 20 20 20 20 62 65 67 69 6E 0D 0A do.. begin..
008AA0: 20 20 20 20 20 20 58 30 3A 3D 58 30 2B 41 5B 69 X0:=X0+A[i
008AB0: 2C 31 5D 3B 0D 0A 20 20 20 20 20 20 59 30 3A 3D ,1];.. Y0:=
008AC0: 59 30 2B 41 5B 69 2C 32 5D 3B 0D 0A 20 20 20 20 Y0+A[i,2];..
008AD0: 20 65 6E 64 3B 0D 0A 20 20 20 20 52 6F 74 61 74 end;.. Rotat
008AE0: 65 50 6F 6C 79 67 6F 6E 41 62 6F 75 74 28 41 2C ePolygonAbout(A,
008AF0: 4E 50 6F 69 6E 74 73 2C 54 68 65 74 61 2C 58 30 NPoints,Theta,X0
008B00: 29 20 61 6E 64 20 37 3C 3E 30 20 74 68 65 6E 20 ) and 7<>0 then
008B10: 64 6F 6C 69 6E 65 28 28 59 4D 61 78 47 6C 62 2B doline((YMaxGlb+
008B20: 31 29 20 61 6E 64 20 37 29 3B 0D 0A 20 20 20 20 1) and 7);..
008B30: 77 72 69 74 65 6C 6E 28 6C 73 74 2C 5E 5B 27 32 writeln(lst,^['2
008B40: 27 29 3B 0D 0A 20 20 20 20 43 6F 6C 6F 72 47 6C ');.. ColorGl
008B50: 62 28 43 6F 6C 6F 72 4C 6F 63 29 3B 0D 0A 20 20 b(ColorLoc);..
008B60: 65 6E 64 3B 0D 0A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A end;............
008B70: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
008B80: 6E 20 50 72 69 6E 74 42 79 74 65 3A 3D 6E 6F 74 n PrintByte:=not
008B90: 20 50 72 69 6E 74 42 79 74 65 3B 0D 0A 20 20 20 PrintByte;..
008BA0: 20 20 20 20 20 77 72 69 74 65 28 6C 73 74 2C 63 write(lst,c
008BB0: 68 72 28 50 72 69 6E 74 42 79 74 65 29 29 3B 0D hr(PrintByte));.
008BC0: 0A 20 20 20 20 20 20 65 6E 64 3B 0D 0A 20 20 20 . end;..
008BD0: 20 20 20 69 66 20 6D 6F 64 65 3C 3E 34 20 74 68 if mode<>4 th
008BE0: 65 6E 20 77 72 69 74 65 6C 6E 28 6C 73 74 29 3B en writeln(lst);
008BF0: 0D 0A 20 20 20 20 65 6E 64 3B 0D 0A 0D 0A 20 20 .. end;....
008C00: 62 65 67 69 6E 0D 0A 20 20 20 20 74 6F 70 3A 3D begin.. top:=
008C10: 37 3B 0D 0A 20 20 20 20 43 6F 6C 6F 72 4C 6F 63 7;.. ColorLoc
008C20: 3A 3D 47 65 74 43 6F 6C 6F 72 3B 0D 0A 20 20 20 :=GetColor;..
008C30: 20 43 6F 6C 6F 72 47 6C 62 28 32 35 35 29 3B 0D ColorGlb(255);.
008C40: 0A 20 20 20 20 6D 6F 64 65 3A 3D 6D 6F 64 65 20 . mode:=mode
008C50: 61 6E 64 20 37 3B 0D 0A 20 20 20 20 69 66 20 28 and 7;.. if (
008C60: 6D 6F 64 65 3D 35 29 20 6F 72 20 28 6D 6F 64 65 mode=5) or (mode
008C70: 3D 30 29 20 74 68 65 6E 20 6D 6F 64 65 3A 3D 34 =0) then mode:=4
008C80: 3B 0D 0A 20 20 20 20 77 72 69 74 65 28 6C 73 74 ;.. write(lst
008C90: 2C 5E 5B 27 33 27 23 32 34 29 3B 0D 0A 20 20 20 ,^['3'#24);..
008CA0: 20 66 6F 72 20 69 3A 3D 30 20 74 6F 20 28 28 59 for i:=0 to ((Y
008CB0: 4D 61 78 47 6C 62 2B 31 29 20 73 68 72 20 33 29 MaxGlb+1) shr 3)
008CC0: 2D 31 20 64 6F 20 64 6F 6C 69 6E 65 28 37 29 3B -1 do doline(7);
008CD0: 0D 0A 20 20 20 20 69 3A 3D 28 28 59 4D 61 78 47 .. i:=((YMaxG
008CE0: 6C 62 2B 31 29 20 73 68 72 20 33 29 3B 0D 0A 20 lb+1) shr 3);..
008CF0: 20 20 20 69 66 20 28 59 4D 61 78 47 6C 62 2B 31 if (YMaxGlb+1
008D00: 2F 4E 50 6F 69 6E 74 73 2C 59 30 2F 4E 50 6F 69 /NPoints,Y0/NPoi
008D10: 6E 74 73 29 3B 0D 0A 20 20 65 6E 64 3B 0D 0A 0D nts);.. end;...
008D20: 0A 70 72 6F 63 65 64 75 72 65 20 54 72 61 6E 73 .procedure Trans
008D30: 6C 61 74 65 50 6F 6C 79 67 6F 6E 28 76 61 72 20 latePolygon(var
008D40: 41 3A 50 6C 6F 74 41 72 72 61 79 3B 0D 0A 20 20 A:PlotArray;..
008D50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
008D60: 20 20 20 20 20 20 20 20 20 4E 3A 69 6E 74 65 67 N:integ
008D70: 65 72 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 er;..
008D80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
008D90: 44 65 6C 74 61 58 2C 44 65 6C 74 61 59 3A 72 65 DeltaX,DeltaY:re
008DA0: 61 6C 29 3B 0D 0A 20 20 76 61 72 20 69 3A 69 6E al);.. var i:in
008DB0: 74 65 67 65 72 3B 0D 0A 0D 0A 20 20 62 65 67 69 teger;.... begi
008DC0: 6E 0D 0A 20 20 20 20 4E 3A 3D 61 62 73 28 4E 29 n.. N:=abs(N)
008DD0: 3B 0D 0A 20 20 20 20 69 66 20 4E 3E 3D 32 20 74 ;.. if N>=2 t
008DE0: 68 65 6E 0D 0A 20 20 20 20 20 20 66 6F 72 20 69 hen.. for i
008DF0: 3A 3D 31 20 74 6F 20 4E 20 64 6F 0D 0A 20 20 20 :=1 to N do..
008E00: 20 20 20 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 begin..
008E10: 20 20 20 41 5B 69 2C 31 5D 3A 3D 41 5B 69 2C 31 A[i,1]:=A[i,1
008E20: 5D 2B 44 65 6C 74 61 58 3B 0D 0A 20 20 20 20 20 ]+DeltaX;..
008E30: 20 20 20 41 5B 69 2C 32 5D 3A 3D 41 5B 69 2C 32 A[i,2]:=A[i,2
008E40: 5D 2B 44 65 6C 74 61 59 3B 0D 0A 20 20 20 20 20 ]+DeltaY;..
008E50: 20 20 65 6E 64 0D 0A 20 20 20 20 65 6C 73 65 20 end.. else
008E60: 65 72 72 6F 72 28 39 2C 34 29 3B 0D 0A 20 20 65 error(9,4);.. e
008E70: 6E 64 3B 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 65 nd;....procedure
008E80: 20 53 63 61 6C 65 50 6F 6C 79 67 6F 6E 28 76 61 ScalePolygon(va
008E90: 72 20 41 3A 50 6C 6F 74 41 72 72 61 79 3B 0D 0A r A:PlotArray;..
008EA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
008EB0: 20 20 20 20 20 20 20 4E 3A 69 6E 74 65 67 65 72 N:integer
008EC0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ;..
008ED0: 20 20 20 20 20 20 20 20 20 20 53 63 61 6C 65 58 ScaleX
008EE0: 2C 53 63 61 6C 65 59 3A 72 65 61 6C 29 3B 0D 0A ,ScaleY:real);..
008EF0: 20 20 76 61 72 20 69 3A 69 6E 74 65 67 65 72 3B var i:integer;
008F00: CD 0A 0C 2A 06 1D 4D CD CB 0B 01 BA 01 CD FA 0B ...*..M.........
008F10: 2A 21 1D 4D CD CB 0B CD EF 0B 31 6D 1A 21 0D 1D *!.M......1m.!..
008F20: 36 01 21 07 1D 36 00 21 0C 1D 36 00 CD C6 18 3A 6.!..6.!..6....:
008F30: 0C 1C 32 08 1D 0E 45 CD D5 18 1F D2 62 03 CD BD ..2...E.....b...
008F40: 15 21 65 1B 3A 64 1B BE CA 5C 03 3A 04 00 E6 F0 .!e.:d...\.:....
008F50: F5 3A 65 1B E6 0F C1 48 B1 32 04 00 CD 07 0D C3 .:e....H.2......
008F60: EE 0A 0E 48 CD D5 18 1F D2 86 03 CD BD 15 3A 65 ...H..........:e
008F70: 1B 32 21 1D 3A 64 1B 32 65 1B 3A 21 1D 32 64 1B .2!.:d.2e.:!.2d.
008F80: C3 BB 02 C3 EE 0A 3A 21 1D FE 49 C2 AC 05 21 8A ......:!..I...!.
008F90: 1B 3A 0C 1C 96 D6 01 9F F5 3A 07 1D D6 00 D6 01 .:.......:......
008FA0: 9F C1 48 A1 32 0C 1D 1F D2 AE 03 CD 58 11 3A 68 ..H.2.......X.:h
008FB0: 1B 32 69 1B CD 03 16 1F D2 90 05 3A 21 1D FE 00 .2i........:!...
008FC0: CA 8D 05 3A 21 1D D6 15 D6 01 9F F5 3A 21 1D D6 ...:!.......:!..
008FD0: 18 D6 01 9F C1 48 B1 F5 3A 21 1D D6 12 D6 01 9F .....H..:!......
008FE0: C1 48 B1 1F D2 2C 04 21 00 00 22 1C 1D 21 20 1D .H...,.!.."..! .
008FF0: 36 00 23 7E FE 12 C2 02 04 CD EF 0B CD 46 17 C3 6.#~.........F..
009000: 29 04 CD B7 12 CD 58 14 3A 21 1D FE 15 C2 19 04 ).....X.:!......
009010: CD EF 0B CD 58 11 C3 29 04 3A 69 1B 21 68 1B BE ....X..).:i.!h..
009020: D2 29 04 CD 39 0B C3 19 04 C3 65 05 3A 21 1D FE .)..9.....e.:!..
009030: 08 C2 CA 04 3A 68 1B 32 6A 1B 4F 3E 00 B9 D2 46 ....:h.2j.O>...F
009040: 04 0E 20 CD 4C 10 3E 01 21 22 1D CD 05 1A 9F F5 .. .L.>.!"......
009050: 3A 69 1B 21 6A 1B 96 9F C1 48 A1 1F D2 BC 04 2A :i.!j....H.....*
009060: 22 1D 2B 01 4D 1D 09 7E FE 0A CA BC 04 CD B2 13 ".+.M..~........
009070: 21 66 1B 36 01 21 68 1B 36 00 21 00 00 22 1C 1D !f.6.!h.6.!.."..
009080: 21 20 1D 36 00 CD 46 17 21 66 1B 36 00 3A 68 1B ! .6..F.!f.6.:h.
009090: 32 6B 1B 21 69 1B BE D2 A0 04 3A 69 1B 32 6B 1B 2k.!i.....:i.2k.
0090A0: 3A 6A 1B 32 68 1B 3A 6B 1B 21 68 1B BE D2 B6 04 :j.2h.:k.!h.....
0090B0: CD 39 0B C3 A6 04 3A 68 1B 32 6A 1B 21 21 1D 36 .9....:h.2j.!!.6
0090C0: 00 3A 6A 1B 32 68 1B C3 65 05 3A 21 1D FE 7F C2 .:j.2h..e.:!....
0090D0: 0A 05 3E 01 11 22 1D CD FA 19 B5 C2 E1 04 C3 F5 ..>.."..........
0090E0: 02 CD B2 13 2A 22 1D 01 4D 1D 09 7E 32 21 1D 4F ....*"..M..~2!.O
0090F0: CD CB 0B 3A 21 1D FE 0A C2 02 05 2A 10 1C 2B 22 ...:!......*..+"
009100: 0D 0A 0D 0A 20 20 20 62 65 67 69 6E 0D 0A 20 20 .... begin..
009110: 20 20 4E 3A 3D 61 62 73 28 4E 29 3B 0D 0A 20 20 N:=abs(N);..
009120: 20 20 69 66 20 4E 3E 3D 32 20 74 68 65 6E 0D 0A if N>=2 then..
009130: 20 20 20 20 20 20 66 6F 72 20 69 3A 3D 31 20 74 for i:=1 t
009140: 6F 20 4E 20 64 6F 0D 0A 20 20 20 20 20 20 20 62 o N do.. b
009150: 65 67 69 6E 0D 0A 20 20 20 20 20 20 20 20 41 5B egin.. A[
009160: 69 2C 31 5D 3A 3D 41 5B 69 2C 31 5D 2A 53 63 61 i,1]:=A[i,1]*Sca
009170: 6C 65 58 3B 0D 0A 20 20 20 20 20 20 20 20 41 5B leX;.. A[
009180: 69 2C 32 5D 3A 3D 41 5B 69 2C 32 5D 2A 53 63 61 i,2]:=A[i,2]*Sca
009190: 6C 65 59 3B 0D 0A 20 20 20 20 20 20 20 65 6E 64 leY;.. end
0091A0: 0D 0A 20 20 20 20 65 6C 73 65 20 65 72 72 6F 72 .. else error
0091B0: 28 31 30 2C 34 29 3B 0D 0A 20 20 65 6E 64 3B 0D (10,4);.. end;.
0091C0: 0A 1A E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0091D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0091E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0091F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
009200: 20 20 20 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 begin..
009210: 20 20 20 41 5B 69 2C 31 5D 3A 3D 41 5B 69 2C 31 A[i,1]:=A[i,1
009220: 5D 2B 44 65 6C 74 61 58 3B 0D 0A 20 20 20 20 20 ]+DeltaX;..
009230: 20 20 20 41 5B 69 2C 32 5D 3A 3D 41 5B 69 2C 32 A[i,2]:=A[i,2
009240: 5D 2B 44 65 6C 74 61 59 3B 0D 0A 20 20 20 20 20 ]+DeltaY;..
009250: 20 20 65 6E 64 0D 0A 20 20 20 20 65 6C 73 65 20 end.. else
009260: 65 72 72 6F 72 28 39 2C 34 29 3B 0D 0A 20 20 65 error(9,4);.. e
009270: 6E 64 3B 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 65 nd;....procedure
009280: 20 53 63 61 6C 65 50 6F 6C 79 67 6F 6E 28 76 61 ScalePolygon(va
009290: 72 20 41 3A 50 6C 6F 74 41 72 72 61 79 3B 0D 0A r A:PlotArray;..
0092A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0092B0: 20 20 20 20 20 20 20 4E 3A 69 6E 74 65 67 65 72 N:integer
0092C0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ;..
0092D0: 20 20 20 20 20 20 20 20 20 20 53 63 61 6C 65 58 ScaleX
0092E0: 2C 53 63 61 6C 65 59 3A 72 65 61 6C 29 3B 0D 0A ,ScaleY:real);..
0092F0: 20 20 76 61 72 20 69 3A 69 6E 74 65 67 65 72 3B var i:integer;
009300: 28 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A (***************
009310: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
009320: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
009330: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 29 0D 0A 28 ************)..(
009340: 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 *
009350: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
009360: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
009370: 20 20 20 20 20 20 20 20 20 20 2A 29 0D 0A 28 2A *)..(*
009380: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
009390: 54 55 52 42 4F 20 47 52 41 50 48 49 58 20 76 65 TURBO GRAPHIX ve
0093A0: 72 73 69 6F 6E 20 31 2E 30 35 41 20 20 20 20 20 rsion 1.05A
0093B0: 20 20 20 20 20 20 20 20 20 2A 29 0D 0A 28 2A 20 *)..(*
0093C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0093D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0093E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0093F0: 20 20 20 20 20 20 20 20 2A 29 0D 0A 28 2A 20 20 *)..(*
009400: 20 20 20 20 20 20 20 20 20 20 20 20 20 50 6F 6C Pol
009410: 79 67 6F 6E 20 6D 6F 64 69 66 69 63 61 74 69 6F ygon modificatio
009420: 6E 20 6D 6F 64 75 6C 65 20 20 20 20 20 20 20 20 n module
009430: 20 20 20 20 20 20 20 2A 29 0D 0A 28 2A 20 20 20 *)..(*
009440: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4D M
009450: 6F 64 75 6C 65 20 76 65 72 73 69 6F 6E 20 20 31 odule version 1
009460: 2E 30 30 41 20 20 20 20 20 20 20 20 20 20 20 20 .00A
009470: 20 20 20 20 20 20 2A 29 0D 0A 28 2A 20 20 20 20 *)..(*
009480: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
009490: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0094A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0094B0: 20 20 20 20 20 2A 29 0D 0A 28 2A 20 20 20 20 20 *)..(*
0094C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 43 6F 70 Cop
0094D0: 79 72 69 67 68 74 20 28 43 29 20 31 39 38 35 20 yright (C) 1985
0094E0: 62 79 20 20 20 20 20 20 20 20 20 20 20 20 20 20 by
0094F0: 20 20 20 20 2A 29 0D 0A 28 2A 20 20 20 20 20 20 *)..(*
009500: 1B 3A 1A 1C C9 2A 65 1B 4D CD E7 0C 0E 07 21 62 .:...*e.M.....!b
009510: 1B CD D3 19 2B EB 21 1C 1C 73 7B FE FF C2 21 0F ....+.!..s{...!.
009520: C9 CD 66 0F 21 1B 1C 36 00 3A 1C 1C 21 1B 1C BE ..f.!..6.:..!...
009530: DA 62 0F 2A 62 1B EB 2A 5E 1B 19 44 4D CD F7 0C .b.*b..*^..DM...
009540: 01 3D 1B CD 85 0C FE 00 CA 4E 0F CD 2D 0D 11 80 .=.......N..-...
009550: 00 2A 62 1B 19 22 62 1B 3A 1B 1C 3C 32 1B 1C C2 .*b.."b.:..<2...
009560: 29 0F CD 66 0F C9 21 00 00 22 62 1B C9 21 1D 1C )..f..!.."b..!..
009570: 71 01 39 1B 11 62 1B CD ED 19 DA 80 0F CD 05 0F q.9..b..........
009580: 2A 62 1B EB 2A 5E 1B 19 3A 1D 1C 77 2A 62 1B 23 *b..*^..:..w*b.#
009590: 22 62 1B C9 21 1E 1C 71 3A 36 1B FE 80 DA B6 0F "b..!..q:6......
0095A0: CD 5A 0E 01 95 1A CD 85 0C FE 00 CA B1 0F CD 2D .Z.............-
0095B0: 0D 21 36 1B 36 00 2A 36 1B 26 00 01 B6 1A 09 3A .!6.6.*6.&.....:
0095C0: 1E 1C 77 3A 36 1B 3C 32 36 1B C9 21 4A 1B 36 00 ..w:6.<26..!J.6.
0095D0: 2A 62 1B 7D E6 7F FE 00 CA EA 0F 3A 4A 1B 3C 32 *b.}.......:J.<2
0095E0: 4A 1B 0E 1A CD 6D 0F C3 D0 0F CD 05 0F 01 3D 1B J....m........=.
0095F0: CD 3F 0C 3A 78 1B FE FF C2 FE 0F CD 2D 0D 01 9A .?.:x.......-...
009600: 01 CD 3A 0D CD 3B 10 2A 64 1B 4D CD E7 0C 2E 10 ..:..;.*d.M.....
009610: 11 3D 1B 01 5C 00 0A 12 03 13 2D C2 16 10 01 3D .=..\.....-....=
009620: 1B CD A8 0C CD 3B 10 01 9D 01 CD 3A 0D 2A 65 1B .....;.....:.*e.
009630: 4D CD E7 0C 01 3D 1B CD A8 0C C9 2E 10 11 4D 1B M....=........M.
009640: 01 3D 1B 0A 12 03 13 2D C2 43 10 C9 21 0E 1D 71 .=.....-.C..!..q
009650: 3A 07 1D FE 00 CA 59 10 C9 2A 0E 1D 4D CD CB 0B :.....Y..*..M...
009660: C9 21 11 1D 71 3A 11 1D D6 61 9F 2F F5 3E 7A 21 .!..q:...a./.>z!
009670: 11 1D 96 9F 2F C1 48 A1 C9 21 12 1D 71 2A 12 1D ..../.H..!..q*..
009680: 4D CD 61 10 1F D2 8E 10 3A 12 1D E6 5F C9 3A 12 M.a.....:..._.:.
009690: 1D C9 21 13 1D 71 3A 0F 1D 1F D2 A5 10 2A 13 1D ..!..q:......*..
0096A0: 4D CD 79 10 C9 3A 13 1D C9 21 15 1D 70 2B 71 21 M.y..:...!..p+q!
0096B0: 10 27 22 18 1D 21 17 1D 36 00 3E 00 11 18 1D CD .'"..!..6.>.....
0096C0: FA 19 B5 CA 18 11 2A 14 1D EB 2A 18 1D CD AA 19 ......*...*.....
0096D0: 7B 32 16 1D 2A 14 1D EB 2A 18 1D CD AA 19 22 14 {2..*...*.....".
0096E0: 1D 2A 18 1D EB 21 0A 00 CD AA 19 EB 22 18 1D 3A .*...!......"..:
0096F0: 16 1D D6 00 C6 FF 9F 21 17 1D B6 1F D2 10 11 21 .......!.......!
009700: 20 20 20 20 20 20 20 20 20 20 20 20 42 4F 52 4C BORL
009710: 41 4E 44 20 49 6E 74 65 72 6E 61 74 69 6F 6E 61 AND Internationa
009720: 6C 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 l
009730: 20 20 20 2A 29 0D 0A 28 2A 20 20 20 20 20 20 20 *)..(*
009740: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
009750: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
009760: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
009770: 20 20 2A 29 0D 0A 28 2A 2A 2A 2A 2A 2A 2A 2A 2A *)..(*********
009780: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
009790: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
0097A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
0097B0: 2A 2A 29 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 65 **)....procedure
0097C0: 20 52 6F 74 61 74 65 50 6F 6C 79 67 6F 6E 41 62 RotatePolygonAb
0097D0: 6F 75 74 28 56 61 72 20 41 3A 50 6C 6F 74 41 72 out(Var A:PlotAr
0097E0: 72 61 79 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 ray;..
0097F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
009800: 20 20 20 4E 50 6F 69 6E 74 73 3A 69 6E 74 65 67 NPoints:integ
009810: 65 72 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 er;..
009820: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
009830: 20 20 54 68 65 74 61 2C 58 30 2C 59 30 3A 72 65 Theta,X0,Y0:re
009840: 61 6C 29 3B 0D 0A 20 20 76 61 72 20 43 2C 53 2C al);.. var C,S,
009850: 58 2C 50 68 3A 72 65 61 6C 3B 0D 0A 20 20 20 20 X,Ph:real;..
009860: 20 20 69 3A 69 6E 74 65 67 65 72 3B 0D 0A 0D 0A i:integer;....
009870: 20 20 62 65 67 69 6E 0D 0A 20 20 20 20 69 66 20 begin.. if
009880: 4E 50 6F 69 6E 74 73 3E 3D 32 20 74 68 65 6E 0D NPoints>=2 then.
009890: 0A 20 20 20 20 20 62 65 67 69 6E 0D 0A 20 20 20 . begin..
0098A0: 20 20 20 50 68 3A 3D 50 69 2F 31 38 30 2E 30 2A Ph:=Pi/180.0*
0098B0: 54 68 65 74 61 3B 0D 0A 20 20 20 20 20 20 43 3A Theta;.. C:
0098C0: 3D 63 6F 73 28 50 68 29 3B 0D 0A 20 20 20 20 20 =cos(Ph);..
0098D0: 20 53 3A 3D 73 69 6E 28 50 68 29 3B 0D 0A 20 20 S:=sin(Ph);..
0098E0: 20 20 20 20 66 6F 72 20 69 3A 3D 31 20 74 6F 20 for i:=1 to
0098F0: 4E 50 6F 69 6E 74 73 20 64 6F 0D 0A 20 20 20 20 NPoints do..
009900: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
009910: 08 00 00 00 02 09 50 E5 08 00 41 02 00 00 00 02 ......P...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: 28 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A (***************
009A10: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
009A20: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
009A30: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 29 0D 0A 28 ************)..(
009A40: 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 *
009A50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
009A60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
009A70: 20 20 20 20 20 20 20 20 20 20 2A 29 0D 0A 28 2A *)..(*
009A80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
009A90: 54 55 52 42 4F 20 47 52 41 50 48 49 58 20 76 65 TURBO GRAPHIX ve
009AA0: 72 73 69 6F 6E 20 31 2E 30 35 41 20 20 20 20 20 rsion 1.05A
009AB0: 20 20 20 20 20 20 20 20 20 2A 29 0D 0A 28 2A 20 *)..(*
009AC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
009AD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
009AE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
009AF0: 20 20 20 20 20 20 20 20 2A 29 0D 0A 28 2A 20 20 *)..(*
009B00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
009B10: 20 20 57 69 6E 64 6F 77 69 6E 67 20 73 79 73 74 Windowing syst
009B20: 65 6D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 em
009B30: 20 20 20 20 20 20 20 2A 29 0D 0A 28 2A 20 20 20 *)..(*
009B40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4D M
009B50: 6F 64 75 6C 65 20 76 65 72 73 69 6F 6E 20 20 31 odule version 1
009B60: 2E 30 30 41 20 20 20 20 20 20 20 20 20 20 20 20 .00A
009B70: 20 20 20 20 20 20 2A 29 0D 0A 28 2A 20 20 20 20 *)..(*
009B80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
009B90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
009BA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
009BB0: 20 20 20 20 20 2A 29 0D 0A 28 2A 20 20 20 20 20 *)..(*
009BC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 43 6F 70 Cop
009BD0: 79 72 69 67 68 74 20 28 43 29 20 31 39 38 35 20 yright (C) 1985
009BE0: 62 79 20 20 20 20 20 20 20 20 20 20 20 20 20 20 by
009BF0: 20 20 20 20 2A 29 0D 0A 28 2A 20 20 20 20 20 20 *)..(*
009C00: 20 20 20 20 20 20 53 65 6C 65 63 74 57 69 6E 64 SelectWind
009C10: 6F 77 28 57 69 6E 64 6F 77 4E 64 78 47 6C 62 29 ow(WindowNdxGlb)
009C20: 3B 0D 0A 20 20 20 20 20 20 20 20 65 6E 64 3B 0D ;.. end;.
009C30: 0A 20 20 20 20 20 20 65 6E 64 3B 0D 0A 20 20 20 . end;..
009C40: 20 65 6E 64 3B 0D 0A 0D 0A 20 20 20 20 70 72 6F end;.... pro
009C50: 63 65 64 75 72 65 20 6D 6F 76 65 76 65 72 30 3B cedure movever0;
009C60: 0D 0A 20 20 20 20 62 65 67 69 6E 0D 0A 20 20 20 .. begin..
009C70: 20 20 20 69 66 20 28 59 31 52 65 66 47 6C 62 2B if (Y1RefGlb+
009C80: 64 65 6C 74 61 20 3C 20 30 29 20 6F 72 20 28 59 delta < 0) or (Y
009C90: 32 52 65 66 47 6C 62 2B 64 65 6C 74 61 20 3E 20 2RefGlb+delta >
009CA0: 59 4D 61 78 47 6C 62 29 20 74 68 65 6E 20 45 72 YMaxGlb) then Er
009CB0: 72 6F 72 28 32 33 2C 37 29 0D 0A 20 20 20 20 20 ror(23,7)..
009CC0: 20 65 6C 73 65 20 62 65 67 69 6E 0D 0A 20 20 20 else begin..
009CD0: 20 20 20 20 20 66 6F 72 20 6F 75 74 65 72 3A 3D for outer:=
009CE0: 31 20 74 6F 20 61 62 73 28 64 65 6C 74 61 29 20 1 to abs(delta)
009CF0: 64 69 76 20 56 53 74 65 70 47 6C 62 20 64 6F 20 div VStepGlb do
009D00: 4D 6F 76 65 56 65 72 31 28 56 53 74 65 70 47 6C MoveVer1(VStepGl
009D10: 62 29 3B 0D 0A 20 20 20 20 20 20 20 20 69 66 20 b);.. if
009D20: 61 62 73 28 64 65 6C 74 61 29 20 6D 6F 64 20 56 abs(delta) mod V
009D30: 53 74 65 70 47 6C 62 3C 3E 30 20 74 68 65 6E 20 StepGlb<>0 then
009D40: 4D 6F 76 65 56 65 72 31 28 61 62 73 28 64 65 6C MoveVer1(abs(del
009D50: 74 61 29 20 6D 6F 64 20 56 53 74 65 70 47 6C 62 ta) mod VStepGlb
009D60: 29 3B 0D 0A 20 20 20 20 20 20 65 6E 64 3B 0D 0A );.. end;..
009D70: 20 20 20 20 65 6E 64 3B 0D 0A 0D 0A 20 20 62 65 end;.... be
009D80: 67 69 6E 0D 0A 20 20 20 20 69 66 20 64 65 6C 74 gin.. if delt
009D90: 61 3C 3E 30 20 74 68 65 6E 20 62 65 67 69 6E 0D a<>0 then begin.
009DA0: 0A 20 20 20 20 20 20 64 69 72 65 63 74 69 6F 6E . direction
009DB0: 3A 3D 31 3B 0D 0A 20 20 20 20 20 20 69 66 20 64 :=1;.. if d
009DC0: 65 6C 74 61 3C 30 20 74 68 65 6E 20 64 69 72 65 elta<0 then dire
009DD0: 63 74 69 6F 6E 3A 3D 2D 31 3B 0D 0A 20 20 20 20 ction:=-1;..
009DE0: 20 20 77 69 74 68 20 77 69 6E 64 6F 77 5B 57 69 with window[Wi
009DF0: 6E 64 6F 77 4E 64 78 47 6C 62 5D 20 64 6F 0D 0A ndowNdxGlb] do..
009E00: 20 20 20 20 20 20 20 20 20 20 20 20 42 4F 52 4C BORL
009E10: 41 4E 44 20 49 6E 74 65 72 6E 61 74 69 6F 6E 61 AND Internationa
009E20: 6C 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 l
009E30: 20 20 20 2A 29 0D 0A 28 2A 20 20 20 20 20 20 20 *)..(*
009E40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
009E50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
009E60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
009E70: 20 20 2A 29 0D 0A 28 2A 20 20 20 20 20 20 20 20 *)..(*
009E80: 20 20 20 6D 6F 64 69 66 69 65 64 20 66 6F 72 20 modified for
009E90: 74 68 65 20 53 63 68 6E 65 69 64 65 72 20 43 50 the Schneider CP
009EA0: 43 36 31 32 38 20 20 20 20 20 20 20 20 20 20 20 C6128
009EB0: 20 2A 29 0D 0A 28 2A 20 20 20 20 20 20 20 20 20 *)..(*
009EC0: 20 20 20 20 20 20 62 79 20 48 45 49 4D 53 4F 45 by HEIMSOE
009ED0: 54 48 20 53 6F 66 74 77 61 72 65 20 4D 75 6E 69 TH Software Muni
009EE0: 63 68 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ch
009EF0: 2A 29 0D 0A 28 2A 20 20 20 20 20 20 20 20 20 20 *)..(*
009F00: 20 20 20 20 20 20 56 65 72 73 69 6F 6E 20 31 2E Version 1.
009F10: 30 20 2F 20 32 35 2E 31 31 2E 31 39 38 35 20 20 0 / 25.11.1985
009F20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A *
009F30: 29 0D 0A 28 2A 20 20 20 20 20 20 20 20 20 20 20 )..(*
009F40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
009F50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
009F60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 29 *)
009F70: 0D 0A 28 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ..(*************
009F80: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
009F90: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
009FA0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 29 0D **************).
009FB0: 0A 0D 0A 70 72 6F 63 65 64 75 72 65 20 4D 6F 76 ...procedure Mov
009FC0: 65 68 6F 72 56 65 72 28 64 65 6C 74 61 3A 69 6E ehorVer(delta:in
009FD0: 74 65 67 65 72 3B 20 68 6F 72 2C 46 69 6C 6C 4F teger; hor,FillO
009FE0: 75 74 3A 62 6F 6F 6C 65 61 6E 29 3B 0D 0A 20 20 ut:boolean);..
009FF0: 76 61 72 20 64 69 72 65 63 74 69 6F 6E 2C 6F 75 var direction,ou
00A000: 20 20 20 20 20 20 20 20 69 66 20 64 72 61 77 6E if drawn
00A010: 20 74 68 65 6E 0D 0A 20 20 20 20 20 20 20 20 20 then..
00A020: 20 69 66 20 74 6F 70 20 74 68 65 6E 20 59 31 52 if top then Y1R
00A030: 65 66 47 6C 62 3A 3D 59 31 52 65 66 47 6C 62 2D efGlb:=Y1RefGlb-
00A040: 48 65 61 64 65 72 53 69 7A 65 47 6C 62 0D 0A 20 HeaderSizeGlb..
00A050: 20 20 20 20 20 20 20 20 20 65 6C 73 65 20 59 32 else Y2
00A060: 52 65 66 47 6C 62 3A 3D 59 32 52 65 66 47 6C 62 RefGlb:=Y2RefGlb
00A070: 2B 48 65 61 64 65 72 53 69 7A 65 47 6C 62 3B 0D +HeaderSizeGlb;.
00A080: 0A 20 20 20 20 20 20 69 66 20 68 6F 72 20 74 68 . if hor th
00A090: 65 6E 20 6D 6F 76 65 68 6F 72 31 20 65 6C 73 65 en movehor1 else
00A0A0: 20 6D 6F 76 65 76 65 72 30 3B 0D 0A 20 20 20 20 movever0;..
00A0B0: 20 20 77 69 74 68 20 77 69 6E 64 6F 77 5B 57 69 with window[Wi
00A0C0: 6E 64 6F 77 4E 64 78 47 6C 62 5D 20 64 6F 0D 0A ndowNdxGlb] do..
00A0D0: 20 20 20 20 20 20 20 20 69 66 20 64 72 61 77 6E if drawn
00A0E0: 20 74 68 65 6E 0D 0A 20 20 20 20 20 20 20 20 20 then..
00A0F0: 20 69 66 20 74 6F 70 20 74 68 65 6E 20 59 31 52 if top then Y1R
00A100: 65 66 47 6C 62 3A 3D 59 31 52 65 66 47 6C 62 2B efGlb:=Y1RefGlb+
00A110: 48 65 61 64 65 72 53 69 7A 65 47 6C 62 0D 0A 20 HeaderSizeGlb..
00A120: 20 20 20 20 20 20 20 20 20 65 6C 73 65 20 59 32 else Y2
00A130: 52 65 66 47 6C 62 3A 3D 59 32 52 65 66 47 6C 62 RefGlb:=Y2RefGlb
00A140: 2D 48 65 61 64 65 72 53 69 7A 65 47 6C 62 3B 0D -HeaderSizeGlb;.
00A150: 0A 20 20 20 20 65 6E 64 3B 0D 0A 20 20 65 6E 64 . end;.. end
00A160: 3B 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 65 20 4D ;....procedure M
00A170: 6F 76 65 48 6F 72 28 64 65 6C 74 61 3A 69 6E 74 oveHor(delta:int
00A180: 65 67 65 72 3B 20 46 69 6C 6C 4F 75 74 3A 62 6F eger; FillOut:bo
00A190: 6F 6C 65 61 6E 29 3B 0D 0A 62 65 67 69 6E 20 6D olean);..begin m
00A1A0: 6F 76 65 68 6F 72 76 65 72 28 64 65 6C 74 61 2C ovehorver(delta,
00A1B0: 74 72 75 65 2C 66 69 6C 6C 6F 75 74 29 3B 20 65 true,fillout); e
00A1C0: 6E 64 3B 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 65 nd;....procedure
00A1D0: 20 4D 6F 76 65 56 65 72 28 64 65 6C 74 61 3A 69 MoveVer(delta:i
00A1E0: 6E 74 65 67 65 72 3B 20 46 69 6C 6C 4F 75 74 3A nteger; FillOut:
00A1F0: 62 6F 6F 6C 65 61 6E 29 3B 0D 0A 62 65 67 69 6E boolean);..begin
00A200: 74 65 72 2C 69 2C 58 4C 65 6E 3A 69 6E 74 65 67 ter,i,XLen:integ
00A210: 65 72 3B 0D 0A 0D 0A 20 20 70 72 6F 63 65 64 75 er;.... procedu
00A220: 72 65 20 4D 6F 76 65 56 65 72 31 28 56 53 74 65 re MoveVer1(VSte
00A230: 70 3A 20 69 6E 74 65 67 65 72 29 3B 0D 0A 20 20 p: integer);..
00A240: 76 61 72 20 73 6F 75 72 63 65 2C 64 65 73 74 2C var source,dest,
00A250: 6D 6F 64 75 3A 69 6E 74 65 67 65 72 3B 0D 0A 20 modu:integer;..
00A260: 20 20 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 20 begin..
00A270: 69 66 20 64 69 72 65 63 74 69 6F 6E 3D 2D 31 20 if direction=-1
00A280: 74 68 65 6E 20 62 65 67 69 6E 0D 0A 20 20 20 20 then begin..
00A290: 20 20 20 20 20 6D 6F 64 75 3A 3D 30 3B 20 64 65 modu:=0; de
00A2A0: 73 74 3A 3D 79 32 72 65 66 67 6C 62 2D 76 73 74 st:=y2refglb-vst
00A2B0: 65 70 3B 0D 0A 20 20 20 20 20 20 20 20 20 73 6F ep;.. so
00A2C0: 75 72 63 65 3A 3D 79 32 72 65 66 67 6C 62 3B 0D urce:=y2refglb;.
00A2D0: 0A 20 20 20 20 20 20 65 6E 64 0D 0A 20 20 20 20 . end..
00A2E0: 20 20 65 6C 73 65 20 62 65 67 69 6E 0D 0A 20 20 else begin..
00A2F0: 20 20 20 20 20 20 20 6D 6F 64 75 3A 3D 31 3B 20 modu:=1;
00A300: 64 65 73 74 3A 3D 79 31 72 65 66 67 6C 62 2B 76 dest:=y1refglb+v
00A310: 73 74 65 70 3B 0D 0A 20 20 20 20 20 20 20 20 20 step;..
00A320: 73 6F 75 72 63 65 3A 3D 79 31 72 65 66 67 6C 62 source:=y1refglb
00A330: 3B 0D 0A 20 20 20 20 20 20 65 6E 64 3B 0D 0A 20 ;.. end;..
00A340: 20 20 20 20 20 58 4C 65 6E 3A 3D 58 32 52 65 66 XLen:=X2Ref
00A350: 47 6C 62 2D 58 31 52 65 66 47 6C 62 2B 31 3B 0D Glb-X1RefGlb+1;.
00A360: 0A 20 20 20 20 20 20 42 4C 4F 43 4B 4D 4F 56 45 . BLOCKMOVE
00A370: 28 6D 6F 64 75 2C 78 31 72 65 66 67 6C 62 2C 79 (modu,x1refglb,y
00A380: 31 72 65 66 67 6C 62 2C 78 32 72 65 66 67 6C 62 1refglb,x2refglb
00A390: 2C 79 32 72 65 66 67 6C 62 2C 76 73 74 65 70 2C ,y2refglb,vstep,
00A3A0: 66 69 6C 6C 6F 75 74 29 3B 0D 0A 20 20 20 20 20 fillout);..
00A3B0: 20 69 3A 3D 53 6F 75 72 63 65 3B 0D 0A 20 20 20 i:=Source;..
00A3C0: 20 20 20 69 66 20 6E 6F 74 20 46 69 6C 6C 4F 75 if not FillOu
00A3D0: 74 20 74 68 65 6E 0D 0A 20 20 20 20 20 20 20 20 t then..
00A3E0: 77 68 69 6C 65 20 69 3C 3E 64 65 73 74 20 64 6F while i<>dest do
00A3F0: 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 20 20 20 begin..
00A400: 20 6D 6F 76 65 68 6F 72 76 65 72 28 64 65 6C 74 movehorver(delt
00A410: 61 2C 66 61 6C 73 65 2C 66 69 6C 6C 6F 75 74 29 a,false,fillout)
00A420: 3B 20 65 6E 64 3B 0D 0A 0D 0A 70 72 6F 63 65 64 ; end;....proced
00A430: 75 72 65 20 43 6F 70 79 57 69 6E 64 6F 77 28 66 ure CopyWindow(f
00A440: 72 6F 6D 2C 74 75 3A 62 79 74 65 3B 0D 0A 20 20 rom,tu:byte;..
00A450: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00A460: 20 20 20 78 31 2C 79 31 3A 69 6E 74 65 67 65 72 x1,y1:integer
00A470: 29 3B 0D 0A 20 20 76 61 72 20 69 2C 58 4C 65 6E );.. var i,XLen
00A480: 2C 59 4C 65 6E 3A 69 6E 74 65 67 65 72 3B 0D 0A ,YLen:integer;..
00A490: 0D 0A 20 20 62 65 67 69 6E 0D 0A 20 20 20 20 69 .. begin.. i
00A4A0: 66 20 28 78 31 3C 30 29 20 6F 72 20 28 79 31 3C f (x1<0) or (y1<
00A4B0: 30 29 20 74 68 65 6E 20 65 72 72 6F 72 28 31 37 0) then error(17
00A4C0: 2C 33 29 0D 0A 20 20 20 20 65 6C 73 65 20 62 65 ,3).. else be
00A4D0: 67 69 6E 0D 0A 20 20 20 20 20 20 77 69 74 68 20 gin.. with
00A4E0: 77 69 6E 64 6F 77 5B 57 69 6E 64 6F 77 4E 64 78 window[WindowNdx
00A4F0: 47 6C 62 5D 20 64 6F 0D 0A 20 20 20 20 20 20 20 Glb] do..
00A500: 20 69 66 20 64 72 61 77 6E 20 74 68 65 6E 0D 0A if drawn then..
00A510: 20 20 20 20 20 20 20 20 20 20 69 66 20 74 6F 70 if top
00A520: 20 74 68 65 6E 20 59 31 52 65 66 47 6C 62 3A 3D then Y1RefGlb:=
00A530: 59 31 52 65 66 47 6C 62 2D 48 65 61 64 65 72 53 Y1RefGlb-HeaderS
00A540: 69 7A 65 47 6C 62 0D 0A 20 20 20 20 20 20 20 20 izeGlb..
00A550: 20 20 65 6C 73 65 20 59 32 52 65 66 47 6C 62 3A else Y2RefGlb:
00A560: 3D 59 32 52 65 66 47 6C 62 2B 48 65 61 64 65 72 =Y2RefGlb+Header
00A570: 53 69 7A 65 47 6C 62 3B 0D 0A 20 20 20 20 20 20 SizeGlb;..
00A580: 58 4C 65 6E 3A 3D 58 32 52 65 66 47 6C 62 2D 58 XLen:=X2RefGlb-X
00A590: 31 52 65 66 47 6C 62 3B 0D 0A 20 20 20 20 20 20 1RefGlb;..
00A5A0: 59 4C 65 6E 3A 3D 59 32 52 65 66 47 6C 62 2D 59 YLen:=Y2RefGlb-Y
00A5B0: 31 52 65 66 47 6C 62 3B 0D 0A 20 20 20 20 20 20 1RefGlb;..
00A5C0: 69 66 20 78 31 2B 58 4C 65 6E 3E 58 4D 61 78 47 if x1+XLen>XMaxG
00A5D0: 6C 62 20 74 68 65 6E 20 58 4C 65 6E 3A 3D 58 4D lb then XLen:=XM
00A5E0: 61 78 47 6C 62 2D 78 31 3B 0D 0A 20 20 20 20 20 axGlb-x1;..
00A5F0: 20 69 66 20 79 31 2B 59 4C 65 6E 3E 59 4D 61 78 if y1+YLen>YMax
00A600: 20 20 20 53 43 52 5F 46 49 4C 4C 43 68 61 72 28 SCR_FILLChar(
00A610: 6E 6F 74 20 47 65 74 43 6F 6C 6F 72 2C 78 6C 65 not GetColor,xle
00A620: 6E 2C 78 31 72 65 66 67 6C 62 2C 69 29 3B 0D 0A n,x1refglb,i);..
00A630: 20 20 20 20 20 20 20 20 20 20 20 69 3A 3D 69 2B i:=i+
00A640: 64 69 72 65 63 74 69 6F 6E 3B 0D 0A 20 20 20 20 direction;..
00A650: 20 20 20 20 65 6E 64 0D 0A 20 20 20 20 20 20 65 end.. e
00A660: 6C 73 65 0D 0A 20 20 20 20 20 20 20 20 77 68 69 lse.. whi
00A670: 6C 65 20 69 3C 3E 64 65 73 74 20 64 6F 20 62 65 le i<>dest do be
00A680: 67 69 6E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 gin..
00A690: 53 43 52 5F 4D 4F 56 45 5F 42 59 54 45 4C 49 4E SCR_MOVE_BYTELIN
00A6A0: 45 28 78 6C 65 6E 2C 78 31 72 65 66 67 6C 62 2C E(xlen,x1refglb,
00A6B0: 69 2C 78 31 72 65 66 67 6C 62 2C 69 2C 32 2C 31 i,x1refglb,i,2,1
00A6C0: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 69 );.. i
00A6D0: 3A 3D 69 2B 64 69 72 65 63 74 69 6F 6E 3B 0D 0A :=i+direction;..
00A6E0: 20 20 20 20 20 20 20 20 65 6E 64 3B 0D 0A 20 20 end;..
00A6F0: 20 20 20 20 52 65 44 65 66 69 6E 65 57 69 6E 64 ReDefineWind
00A700: 6F 77 28 57 69 6E 64 6F 77 4E 64 78 47 6C 62 2C ow(WindowNdxGlb,
00A710: 58 31 52 65 66 47 6C 62 2C 59 31 52 65 66 47 6C X1RefGlb,Y1RefGl
00A720: 62 2B 56 53 74 65 70 2A 64 69 72 65 63 74 69 6F b+VStep*directio
00A730: 6E 2C 58 32 52 65 66 47 6C 62 2C 59 32 52 65 66 n,X2RefGlb,Y2Ref
00A740: 47 6C 62 2B 56 53 74 65 70 2A 64 69 72 65 63 74 Glb+VStep*direct
00A750: 69 6F 6E 29 3B 0D 0A 20 20 20 20 20 20 53 65 6C ion);.. Sel
00A760: 65 63 74 57 69 6E 64 6F 77 28 57 69 6E 64 6F 77 ectWindow(Window
00A770: 4E 64 78 47 6C 62 29 3B 0D 0A 20 20 20 20 65 6E NdxGlb);.. en
00A780: 64 3B 0D 0A 0D 0A 20 20 20 20 70 72 6F 63 65 64 d;.... proced
00A790: 75 72 65 20 6D 6F 76 65 68 6F 72 31 3B 0D 0A 20 ure movehor1;..
00A7A0: 20 20 20 76 61 72 20 6D 6F 64 75 2C 78 67 3A 69 var modu,xg:i
00A7B0: 6E 74 65 67 65 72 3B 0D 0A 20 20 20 20 62 65 67 nteger;.. beg
00A7C0: 69 6E 0D 0A 20 20 20 20 20 20 69 66 20 28 58 31 in.. if (X1
00A7D0: 52 65 66 47 6C 62 2B 64 65 6C 74 61 20 3C 20 30 RefGlb+delta < 0
00A7E0: 29 20 6F 72 20 28 58 32 52 65 66 47 6C 62 2B 64 ) or (X2RefGlb+d
00A7F0: 65 6C 74 61 20 3E 20 58 4D 61 78 47 6C 62 29 20 elta > XMaxGlb)
00A800: 47 6C 62 20 74 68 65 6E 20 59 4C 65 6E 3A 3D 59 Glb then YLen:=Y
00A810: 4D 61 78 47 6C 62 2D 79 31 3B 0D 0A 20 20 20 20 MaxGlb-y1;..
00A820: 20 20 58 4C 65 6E 3A 3D 58 4C 65 6E 2B 31 3B 0D XLen:=XLen+1;.
00A830: 0A 20 20 20 20 20 20 66 6F 72 20 69 3A 3D 30 20 . for i:=0
00A840: 74 6F 20 59 4C 65 6E 20 64 6F 0D 0A 20 20 20 20 to YLen do..
00A850: 20 20 20 20 53 43 52 5F 4D 4F 56 45 5F 42 59 54 SCR_MOVE_BYT
00A860: 45 4C 49 4E 45 28 78 6C 65 6E 2C 78 31 72 65 66 ELINE(xlen,x1ref
00A870: 67 6C 62 2C 79 31 72 65 66 67 6C 62 2B 69 2C 78 glb,y1refglb+i,x
00A880: 31 72 65 66 67 6C 62 2C 79 31 2B 69 2C 66 72 6F 1refglb,y1+i,fro
00A890: 6D 2C 74 75 29 3B 0D 0A 20 20 20 20 20 20 77 69 m,tu);.. wi
00A8A0: 74 68 20 77 69 6E 64 6F 77 5B 57 69 6E 64 6F 77 th window[Window
00A8B0: 4E 64 78 47 6C 62 5D 20 64 6F 0D 0A 20 20 20 20 NdxGlb] do..
00A8C0: 20 20 20 20 69 66 20 64 72 61 77 6E 20 74 68 65 if drawn the
00A8D0: 6E 0D 0A 20 20 20 20 20 20 20 20 20 20 69 66 20 n.. if
00A8E0: 74 6F 70 20 74 68 65 6E 20 59 31 52 65 66 47 6C top then Y1RefGl
00A8F0: 62 3A 3D 59 31 52 65 66 47 6C 62 2B 48 65 61 64 b:=Y1RefGlb+Head
00A900: 65 72 53 69 7A 65 47 6C 62 0D 0A 20 20 20 20 20 erSizeGlb..
00A910: 20 20 20 20 20 65 6C 73 65 20 59 32 52 65 66 47 else Y2RefG
00A920: 6C 62 3A 3D 59 32 52 65 66 47 6C 62 2D 48 65 61 lb:=Y2RefGlb-Hea
00A930: 64 65 72 53 69 7A 65 47 6C 62 3B 0D 0A 20 20 20 derSizeGlb;..
00A940: 20 20 65 6E 64 3B 0D 0A 20 20 65 6E 64 3B 0D 0A end;.. end;..
00A950: 0D 0A 70 72 6F 63 65 64 75 72 65 20 53 61 76 65 ..procedure Save
00A960: 57 69 6E 64 6F 77 28 6E 3A 69 6E 74 65 67 65 72 Window(n:integer
00A970: 3B 46 69 6C 65 4E 61 6D 65 3A 77 72 6B 73 74 72 ;FileName:wrkstr
00A980: 69 6E 67 29 3B 0D 0A 20 20 76 61 72 20 69 2C 6A ing);.. var i,j
00A990: 2C 73 65 63 70 74 72 2C 78 6C 65 6E 3A 69 6E 74 ,secptr,xlen:int
00A9A0: 65 67 65 72 3B 0D 0A 20 20 20 20 20 20 57 3A 57 eger;.. W:W
00A9B0: 69 6E 64 6F 77 54 79 70 65 3B 0D 0A 0D 0A 20 20 indowType;....
00A9C0: 62 65 67 69 6E 0D 0A 20 20 20 20 57 3A 3D 77 69 begin.. W:=wi
00A9D0: 6E 64 6F 77 5B 6E 5D 3B 0D 0A 20 20 20 20 61 73 ndow[n];.. as
00A9E0: 73 69 67 6E 28 75 6E 69 66 69 6C 65 2C 46 69 6C sign(unifile,Fil
00A9F0: 65 4E 61 6D 65 29 3B 0D 0A 20 20 20 20 7B 24 49 eName);.. {$I
00AA00: 74 68 65 6E 20 45 72 72 6F 72 28 32 34 2C 37 29 then Error(24,7)
00AA10: 0D 0A 20 20 20 20 20 20 65 6C 73 65 20 62 65 67 .. else beg
00AA20: 69 6E 0D 0A 20 20 20 20 20 20 20 20 66 6F 72 20 in.. for
00AA30: 6F 75 74 65 72 3A 3D 31 20 74 6F 20 61 62 73 28 outer:=1 to abs(
00AA40: 64 65 6C 74 61 29 20 64 6F 20 62 65 67 69 6E 0D delta) do begin.
00AA50: 0A 20 20 20 20 20 20 20 20 20 20 69 66 20 64 69 . if di
00AA60: 72 65 63 74 69 6F 6E 3D 2D 31 20 74 68 65 6E 20 rection=-1 then
00AA70: 62 65 67 69 6E 20 78 67 3A 3D 78 32 72 65 66 67 begin xg:=x2refg
00AA80: 6C 62 3B 20 6D 6F 64 75 3A 3D 33 3B 20 65 6E 64 lb; modu:=3; end
00AA90: 0D 0A 20 20 20 20 20 20 20 20 20 20 65 6C 73 65 .. else
00AAA0: 20 62 65 67 69 6E 20 78 67 3A 3D 78 31 72 65 66 begin xg:=x1ref
00AAB0: 67 6C 62 3B 20 6D 6F 64 75 3A 3D 32 3B 20 65 6E glb; modu:=2; en
00AAC0: 64 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 56 66 d;.. Vf
00AAD0: 69 6C 6C 5F 62 79 74 65 5F 6C 69 6E 65 28 79 32 ill_byte_line(y2
00AAE0: 72 65 66 67 6C 62 2D 79 31 72 65 66 67 6C 62 2B refglb-y1refglb+
00AAF0: 31 2C 78 67 2C 79 31 72 65 66 67 6C 62 2C 66 69 1,xg,y1refglb,fi
00AB00: 6C 6C 6F 75 74 29 3B 0D 0A 20 20 20 20 20 20 20 llout);..
00AB10: 20 20 20 42 4C 4F 43 4B 4D 4F 56 45 28 6D 6F 64 BLOCKMOVE(mod
00AB20: 75 2C 78 31 72 65 66 67 6C 62 2C 79 31 72 65 66 u,x1refglb,y1ref
00AB30: 67 6C 62 2C 78 32 72 65 66 67 6C 62 2C 79 32 72 glb,x2refglb,y2r
00AB40: 65 66 67 6C 62 2C 31 2C 66 69 6C 6C 6F 75 74 29 efglb,1,fillout)
00AB50: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 53 43 52 ;.. SCR
00AB60: 5F 43 4F 50 59 5F 56 45 52 54 49 4B 41 4C 5F 42 _COPY_VERTIKAL_B
00AB70: 59 54 45 4C 49 4E 45 28 79 32 72 65 66 67 6C 62 YTELINE(y2refglb
00AB80: 2D 79 31 72 65 66 67 6C 62 2B 31 2C 78 67 2C 79 -y1refglb+1,xg,y
00AB90: 31 72 65 66 67 6C 62 29 3B 0D 0A 20 20 20 20 20 1refglb);..
00ABA0: 20 20 20 20 20 52 65 44 65 66 69 6E 65 57 69 6E ReDefineWin
00ABB0: 64 6F 77 28 57 69 6E 64 6F 77 4E 64 78 47 6C 62 dow(WindowNdxGlb
00ABC0: 2C 58 31 52 65 66 47 6C 62 2B 64 69 72 65 63 74 ,X1RefGlb+direct
00ABD0: 69 6F 6E 2C 59 31 52 65 66 47 6C 62 2C 58 32 52 ion,Y1RefGlb,X2R
00ABE0: 65 66 47 6C 62 2B 64 69 72 65 63 74 69 6F 6E 2C efGlb+direction,
00ABF0: 59 32 52 65 66 47 6C 62 29 3B 0D 0A 20 20 20 20 Y2RefGlb);..
00AC00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
00AC10: 09 00 00 00 02 09 50 E5 09 00 41 02 00 00 00 02 ......P...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: 2D 7D 20 72 65 77 72 69 74 65 28 75 6E 69 66 69 -} rewrite(unifi
00AD10: 6C 65 29 3B 20 7B 24 49 2B 7D 0D 0A 20 20 20 20 le); {$I+}..
00AD20: 69 66 20 49 4F 52 65 73 75 6C 74 3C 3E 30 20 74 if IOResult<>0 t
00AD30: 68 65 6E 20 45 72 72 6F 72 28 32 35 2C 35 29 0D hen Error(25,5).
00AD40: 0A 20 20 20 20 65 6C 73 65 20 62 65 67 69 6E 0D . else begin.
00AD50: 0A 20 20 20 20 20 20 6D 6F 76 65 28 77 2C 75 6E . move(w,un
00AD60: 69 62 75 66 66 2C 73 69 7A 65 6F 66 28 57 29 29 ibuff,sizeof(W))
00AD70: 3B 0D 0A 20 20 20 20 20 20 73 65 63 70 74 72 3A ;.. secptr:
00AD80: 3D 73 69 7A 65 6F 66 28 57 29 3B 0D 0A 20 20 20 =sizeof(W);..
00AD90: 20 20 20 77 69 74 68 20 57 20 64 6F 20 62 65 67 with W do beg
00ADA0: 69 6E 0D 0A 20 20 20 20 20 20 20 20 69 66 20 64 in.. if d
00ADB0: 72 61 77 6E 20 74 68 65 6E 0D 0A 20 20 20 20 20 rawn then..
00ADC0: 20 20 20 20 20 69 66 20 74 6F 70 20 74 68 65 6E if top then
00ADD0: 20 79 31 3A 3D 79 31 2D 48 65 61 64 65 72 53 69 y1:=y1-HeaderSi
00ADE0: 7A 65 47 6C 62 0D 0A 20 20 20 20 20 20 20 20 20 zeGlb..
00ADF0: 20 65 6C 73 65 20 79 32 3A 3D 79 32 2B 48 65 61 else y2:=y2+Hea
00AE00: 64 65 72 53 69 7A 65 47 6C 62 3B 0D 0A 20 20 20 derSizeGlb;..
00AE10: 20 20 20 20 20 78 6C 65 6E 3A 3D 78 32 2D 78 31 xlen:=x2-x1
00AE20: 2B 31 3B 0D 0A 20 20 20 20 20 20 20 20 66 6F 72 +1;.. for
00AE30: 20 69 3A 3D 79 31 20 74 6F 20 79 32 20 64 6F 20 i:=y1 to y2 do
00AE40: 62 65 67 69 6E 0D 0A 20 20 20 20 20 20 20 20 20 begin..
00AE50: 20 53 43 52 5F 52 45 41 44 5F 42 59 54 45 4C 49 SCR_READ_BYTELI
00AE60: 4E 45 28 78 6C 65 6E 2C 75 6E 69 62 75 66 66 5B NE(xlen,unibuff[
00AE70: 73 65 63 70 74 72 5D 2C 78 31 2C 69 29 3B 0D 0A secptr],x1,i);..
00AE80: 20 20 20 20 20 20 20 20 20 20 73 65 63 70 74 72 secptr
00AE90: 3A 3D 73 65 63 70 74 72 2B 78 6C 65 6E 3B 0D 0A :=secptr+xlen;..
00AEA0: 20 20 20 20 20 20 20 20 20 20 69 66 20 73 65 63 if sec
00AEB0: 70 74 72 3E 31 32 37 20 74 68 65 6E 20 62 65 67 ptr>127 then beg
00AEC0: 69 6E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 in..
00AED0: 62 6C 6F 63 6B 77 72 69 74 65 28 75 6E 69 66 69 blockwrite(unifi
00AEE0: 6C 65 2C 75 6E 69 62 75 66 66 5B 30 5D 2C 31 29 le,unibuff[0],1)
00AEF0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 6D ;.. m
00AF00: 31 2E 2E 4D 61 78 57 69 6E 64 6F 77 47 6C 62 5D 1..MaxWindowGlb]
00AF10: 29 20 74 68 65 6E 20 65 72 72 6F 72 28 31 35 2C ) then error(15,
00AF20: 32 29 0D 0A 20 20 20 20 20 65 6C 73 65 20 62 65 2).. else be
00AF30: 67 69 6E 0D 0A 20 20 20 20 20 20 20 20 69 66 20 gin.. if
00AF40: 73 74 61 63 6B 5B 77 69 6E 5D 2E 63 6F 6E 74 65 stack[win].conte
00AF50: 6E 74 73 20 74 68 65 6E 20 43 6C 65 61 72 57 69 nts then ClearWi
00AF60: 6E 64 6F 77 73 74 61 63 6B 28 77 69 6E 29 3B 0D ndowstack(win);.
00AF70: 0A 20 20 20 20 20 20 20 20 53 61 76 65 57 69 6E . SaveWin
00AF80: 64 6F 77 28 77 69 6E 2C 27 77 69 6E 66 2E 27 2B dow(win,'winf.'+
00AF90: 63 68 72 28 77 69 6E 2B 24 33 30 29 29 3B 0D 0A chr(win+$30));..
00AFA0: 20 20 20 20 20 20 20 20 77 69 74 68 20 73 74 61 with sta
00AFB0: 63 6B 5B 77 69 6E 5D 2C 77 20 64 6F 20 62 65 67 ck[win],w do beg
00AFC0: 69 6E 0D 0A 20 20 20 20 20 20 20 20 20 20 77 3A in.. w:
00AFD0: 3D 77 69 6E 64 6F 77 5B 77 69 6E 5D 3B 0D 0A 20 =window[win];..
00AFE0: 20 20 20 20 20 20 20 20 20 63 6F 6E 74 65 6E 74 content
00AFF0: 73 3A 3D 74 72 75 65 3B 0D 0A 20 20 20 20 20 20 s:=true;..
00B000: 20 20 65 6E 64 3B 0D 0A 20 20 20 20 20 65 6E 64 end;.. end
00B010: 3B 0D 0A 20 20 65 6E 64 3B 0D 0A 0D 0A 70 72 6F ;.. end;....pro
00B020: 63 65 64 75 72 65 20 52 65 73 74 6F 72 65 57 69 cedure RestoreWi
00B030: 6E 64 6F 77 28 77 69 6E 2C 44 65 6C 74 61 58 2C ndow(win,DeltaX,
00B040: 44 65 6C 74 61 59 3A 69 6E 74 65 67 65 72 29 3B DeltaY:integer);
00B050: 0D 0A 20 20 76 61 72 20 69 2C 58 4C 65 6E 2C 79 .. var i,XLen,y
00B060: 2C 79 30 2C 79 39 2C 41 3A 69 6E 74 65 67 65 72 ,y0,y9,A:integer
00B070: 3B 0D 0A 20 20 20 20 20 20 77 31 3A 57 69 6E 64 ;.. w1:Wind
00B080: 6F 77 54 79 70 65 3B 0D 0A 20 20 62 65 67 69 6E owType;.. begin
00B090: 0D 0A 20 20 20 20 69 66 20 6E 6F 74 20 28 77 69 .. if not (wi
00B0A0: 6E 20 69 6E 20 5B 31 2E 2E 4D 61 78 57 69 6E 64 n in [1..MaxWind
00B0B0: 6F 77 73 47 6C 62 5D 29 20 74 68 65 6E 20 65 72 owsGlb]) then er
00B0C0: 72 6F 72 28 31 36 2C 32 29 0D 0A 20 20 20 20 65 ror(16,2).. e
00B0D0: 6C 73 65 20 77 69 74 68 20 73 74 61 63 6B 5B 61 lse with stack[a
00B0E0: 62 73 28 77 69 6E 29 5D 20 64 6F 20 62 65 67 69 bs(win)] do begi
00B0F0: 6E 0D 0A 20 20 20 20 20 20 57 31 3A 3D 57 3B 0D n.. W1:=W;.
00B100: 6F 76 65 28 75 6E 69 62 75 66 66 5B 31 32 38 5D ove(unibuff[128]
00B110: 2C 75 6E 69 62 75 66 66 5B 30 5D 2C 31 32 38 29 ,unibuff[0],128)
00B120: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 73 ;.. s
00B130: 65 63 70 74 72 3A 3D 73 65 63 70 74 72 2D 31 32 ecptr:=secptr-12
00B140: 38 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 65 6E 8;.. en
00B150: 64 3B 0D 0A 20 20 20 20 20 20 20 20 65 6E 64 3B d;.. end;
00B160: 0D 0A 20 20 20 20 20 20 20 20 69 66 20 73 65 63 .. if sec
00B170: 70 74 72 3C 3E 30 20 74 68 65 6E 20 62 6C 6F 63 ptr<>0 then bloc
00B180: 6B 77 72 69 74 65 28 75 6E 69 66 69 6C 65 2C 75 kwrite(unifile,u
00B190: 6E 69 62 75 66 66 5B 30 5D 2C 31 29 3B 0D 0A 20 nibuff[0],1);..
00B1A0: 20 20 20 20 20 65 6E 64 3B 0D 0A 20 20 20 20 20 end;..
00B1B0: 20 63 6C 6F 73 65 28 75 6E 69 66 69 6C 65 29 3B close(unifile);
00B1C0: 0D 0A 20 20 20 20 65 6E 64 3B 0D 0A 20 20 65 6E .. end;.. en
00B1D0: 64 3B 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 65 20 d;....procedure
00B1E0: 4C 6F 61 64 57 69 6E 64 6F 77 28 6E 2C 78 70 6F LoadWindow(n,xpo
00B1F0: 73 2C 79 70 6F 73 3A 69 6E 74 65 67 65 72 3B 20 s,ypos:integer;
00B200: 46 69 6C 65 4E 61 6D 65 3A 77 72 6B 73 74 72 69 FileName:wrkstri
00B210: 6E 67 29 3B 0D 0A 20 20 76 61 72 20 69 2C 73 65 ng);.. var i,se
00B220: 63 70 74 72 2C 78 6C 65 6E 3A 69 6E 74 65 67 65 cptr,xlen:intege
00B230: 72 3B 0D 0A 20 20 20 20 20 20 57 3A 57 69 6E 64 r;.. W:Wind
00B240: 6F 77 54 79 70 65 3B 0D 0A 20 20 20 20 20 20 73 owType;.. s
00B250: 65 63 6F 6E 64 3A 62 6F 6F 6C 65 61 6E 3B 0D 0A econd:boolean;..
00B260: 0D 0A 20 20 62 65 67 69 6E 0D 0A 20 20 20 20 61 .. begin.. a
00B270: 73 73 69 67 6E 28 75 6E 69 66 69 6C 65 2C 46 69 ssign(unifile,Fi
00B280: 6C 65 4E 61 6D 65 29 3B 0D 0A 20 20 20 20 7B 24 leName);.. {$
00B290: 49 2D 7D 20 72 65 73 65 74 28 75 6E 69 66 69 6C I-} reset(unifil
00B2A0: 65 29 3B 20 7B 24 49 2B 7D 0D 0A 20 20 20 20 69 e); {$I+}.. i
00B2B0: 66 20 49 4F 52 65 73 75 6C 74 3C 3E 30 20 74 68 f IOResult<>0 th
00B2C0: 65 6E 20 45 72 72 6F 72 28 31 32 2C 35 29 0D 0A en Error(12,5)..
00B2D0: 20 20 20 20 65 6C 73 65 20 62 65 67 69 6E 0D 0A else begin..
00B2E0: 20 20 20 20 20 20 42 6C 6F 63 6B 52 65 61 64 28 BlockRead(
00B2F0: 75 6E 69 66 69 6C 65 2C 75 6E 69 62 75 66 66 5B unifile,unibuff[
00B300: 0A 20 20 20 20 20 20 69 66 20 6E 6F 74 20 43 6F . if not Co
00B310: 6E 74 65 6E 74 73 20 74 68 65 6E 20 65 72 72 6F ntents then erro
00B320: 72 28 31 36 2C 32 29 0D 0A 20 20 20 20 20 20 65 r(16,2).. e
00B330: 6C 73 65 20 77 69 74 68 20 57 31 20 64 6F 20 62 lse with W1 do b
00B340: 65 67 69 6E 0D 0A 20 20 20 20 20 20 20 20 20 78 egin.. x
00B350: 31 3A 3D 78 31 2B 44 65 6C 74 61 58 3B 0D 0A 20 1:=x1+DeltaX;..
00B360: 20 20 20 20 20 20 20 20 78 32 3A 3D 78 32 2B 44 x2:=x2+D
00B370: 65 6C 74 61 58 3B 0D 0A 20 20 20 20 20 20 20 20 eltaX;..
00B380: 20 79 31 3A 3D 79 31 2B 44 65 6C 74 61 59 3B 0D y1:=y1+DeltaY;.
00B390: 0A 20 20 20 20 20 20 20 20 20 79 32 3A 3D 79 32 . y2:=y2
00B3A0: 2B 44 65 6C 74 61 59 3B 0D 0A 20 20 20 20 20 20 +DeltaY;..
00B3B0: 20 20 20 69 66 20 64 72 61 77 6E 20 61 6E 64 20 if drawn and
00B3C0: 74 6F 70 20 74 68 65 6E 20 79 30 3A 3D 79 31 2D top then y0:=y1-
00B3D0: 48 65 61 64 65 72 53 69 7A 65 47 6C 62 20 65 6C HeaderSizeGlb el
00B3E0: 73 65 20 79 30 3A 3D 79 31 3B 0D 0A 20 20 20 20 se y0:=y1;..
00B3F0: 20 20 20 20 20 69 66 20 28 58 31 3E 3D 30 29 20 if (X1>=0)
00B400: 61 6E 64 20 28 58 31 3C 3D 58 4D 61 78 47 6C 62 and (X1<=XMaxGlb
00B410: 29 20 61 6E 64 20 28 58 32 3E 3D 30 29 20 61 6E ) and (X2>=0) an
00B420: 64 20 28 58 32 3C 3D 58 4D 61 78 47 6C 62 29 20 d (X2<=XMaxGlb)
00B430: 61 6E 64 0D 0A 20 20 20 20 20 20 20 20 20 20 20 and..
00B440: 28 59 31 3E 3D 30 29 20 61 6E 64 20 28 59 31 3C (Y1>=0) and (Y1<
00B450: 3D 59 4D 61 78 47 6C 62 29 20 61 6E 64 20 28 59 =YMaxGlb) and (Y
00B460: 32 3E 3D 30 29 20 61 6E 64 20 28 59 32 3C 3D 59 2>=0) and (Y2<=Y
00B470: 4D 61 78 47 6C 62 29 20 74 68 65 6E 0D 0A 20 20 MaxGlb) then..
00B480: 20 20 20 20 20 20 20 20 20 6C 6F 61 64 57 69 6E loadWin
00B490: 64 6F 77 28 77 69 6E 2C 78 31 2C 79 30 2C 27 77 dow(win,x1,y0,'w
00B4A0: 69 6E 66 2E 27 2B 63 68 72 28 77 69 6E 2B 24 33 inf.'+chr(win+$3
00B4B0: 30 29 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 69 0));.. i
00B4C0: 66 20 77 69 6E 3C 30 20 74 68 65 6E 20 43 6C 65 f win<0 then Cle
00B4D0: 61 72 57 69 6E 64 6F 77 53 74 61 63 6B 28 61 62 arWindowStack(ab
00B4E0: 73 28 77 69 6E 29 29 3B 0D 0A 20 20 20 20 20 20 s(win));..
00B4F0: 20 20 20 69 66 20 77 69 6E 3D 57 69 6E 64 6F 77 if win=Window
00B500: 30 5D 2C 31 29 3B 0D 0A 20 20 20 20 20 20 6D 6F 0],1);.. mo
00B510: 76 65 28 75 6E 69 62 75 66 66 2C 57 2C 73 69 7A ve(unibuff,W,siz
00B520: 65 6F 66 28 57 29 29 3B 0D 0A 20 20 20 20 20 20 eof(W));..
00B530: 73 65 63 70 74 72 3A 3D 73 69 7A 65 6F 66 28 57 secptr:=sizeof(W
00B540: 29 3B 0D 0A 20 20 20 20 20 20 73 65 63 6F 6E 64 );.. second
00B550: 3A 3D 66 61 6C 73 65 3B 0D 0A 20 20 20 20 20 20 :=false;..
00B560: 77 69 6E 64 6F 77 5B 6E 5D 3A 3D 57 3B 0D 0A 20 window[n]:=W;..
00B570: 20 20 20 20 20 77 69 74 68 20 57 20 64 6F 20 62 with W do b
00B580: 65 67 69 6E 0D 0A 20 20 20 20 20 20 20 20 69 66 egin.. if
00B590: 20 64 72 61 77 6E 20 74 68 65 6E 0D 0A 20 20 20 drawn then..
00B5A0: 20 20 20 20 20 20 20 69 66 20 74 6F 70 20 74 68 if top th
00B5B0: 65 6E 20 79 31 3A 3D 79 31 2D 48 65 61 64 65 72 en y1:=y1-Header
00B5C0: 53 69 7A 65 47 6C 62 0D 0A 20 20 20 20 20 20 20 SizeGlb..
00B5D0: 20 20 20 65 6C 73 65 20 79 32 3A 3D 79 32 2B 48 else y2:=y2+H
00B5E0: 65 61 64 65 72 53 69 7A 65 47 6C 62 3B 0D 0A 20 eaderSizeGlb;..
00B5F0: 20 20 20 20 20 20 20 78 6C 65 6E 3A 3D 78 32 2D xlen:=x2-
00B600: 78 31 2B 31 3B 0D 0A 20 20 20 20 20 20 20 20 69 x1+1;.. i
00B610: 66 20 78 70 6F 73 3E 3D 30 20 74 68 65 6E 20 62 f xpos>=0 then b
00B620: 65 67 69 6E 0D 0A 20 20 20 20 20 20 20 20 20 20 egin..
00B630: 78 32 3A 3D 78 70 6F 73 2B 78 32 2D 78 31 3B 0D x2:=xpos+x2-x1;.
00B640: 0A 20 20 20 20 20 20 20 20 20 20 78 31 3A 3D 78 . x1:=x
00B650: 70 6F 73 3B 0D 0A 20 20 20 20 20 20 20 20 65 6E pos;.. en
00B660: 64 3B 0D 0A 20 20 20 20 20 20 20 20 69 66 20 79 d;.. if y
00B670: 70 6F 73 3E 3D 30 20 74 68 65 6E 20 62 65 67 69 pos>=0 then begi
00B680: 6E 0D 0A 20 20 20 20 20 20 20 20 20 20 79 32 3A n.. y2:
00B690: 3D 79 70 6F 73 2B 79 32 2D 79 31 3B 0D 0A 20 20 =ypos+y2-y1;..
00B6A0: 20 20 20 20 20 20 20 20 79 31 3A 3D 79 70 6F 73 y1:=ypos
00B6B0: 3B 0D 0A 20 20 20 20 20 20 20 20 65 6E 64 3B 0D ;.. end;.
00B6C0: 0A 20 20 20 20 20 20 20 20 69 66 20 28 78 31 3C . if (x1<
00B6D0: 30 29 20 6F 72 20 28 79 31 3C 30 29 20 6F 72 20 0) or (y1<0) or
00B6E0: 28 78 32 3E 58 4D 61 78 47 6C 62 29 20 6F 72 20 (x2>XMaxGlb) or
00B6F0: 28 79 32 3E 59 4D 61 78 47 6C 62 29 20 74 68 65 (y2>YMaxGlb) the
00B700: 4E 64 78 47 6C 62 20 74 68 65 6E 20 53 65 6C 65 NdxGlb then Sele
00B710: 63 74 57 69 6E 64 6F 77 28 77 69 6E 29 3B 0D 0A ctWindow(win);..
00B720: 20 20 20 20 20 20 20 20 20 77 69 6E 64 6F 77 5B window[
00B730: 77 69 6E 5D 3A 3D 77 31 3B 0D 0A 20 20 20 20 20 win]:=w1;..
00B740: 20 65 6E 64 3B 0D 0A 20 20 20 20 65 6E 64 3B 0D end;.. end;.
00B750: 0A 20 20 65 6E 64 3B 0D 0A 0D 0A 76 61 72 20 57 . end;....var W
00B760: 50 6F 69 6E 74 65 72 46 69 6C 65 3A 66 69 6C 65 PointerFile:file
00B770: 20 6F 66 20 57 69 6E 64 6F 77 54 79 70 65 3B 0D of WindowType;.
00B780: 0A 0D 0A 70 72 6F 63 65 64 75 72 65 20 53 61 76 ...procedure Sav
00B790: 65 57 69 6E 64 6F 77 53 74 61 63 6B 28 46 69 6C eWindowStack(Fil
00B7A0: 65 4E 61 6D 65 3A 77 72 6B 73 74 72 69 6E 67 29 eName:wrkstring)
00B7B0: 3B 0D 0A 76 61 72 20 69 3A 69 6E 74 65 67 65 72 ;..var i:integer
00B7C0: 3B 0D 0A 20 20 62 65 67 69 6E 0D 0A 20 20 20 20 ;.. begin..
00B7D0: 61 73 73 69 67 6E 28 57 50 6F 69 6E 74 65 72 46 assign(WPointerF
00B7E0: 69 6C 65 2C 46 69 6C 65 4E 61 6D 65 2B 27 2E 70 ile,FileName+'.p
00B7F0: 74 72 27 29 3B 0D 0A 20 20 20 20 7B 24 49 2D 7D tr');.. {$I-}
00B800: 20 72 65 77 72 69 74 65 28 57 50 6F 69 6E 74 65 rewrite(WPointe
00B810: 72 46 69 6C 65 29 3B 20 7B 24 49 2B 7D 0D 0A 20 rFile); {$I+}..
00B820: 20 20 20 69 66 20 49 4F 52 65 73 75 6C 74 3C 3E if IOResult<>
00B830: 30 20 74 68 65 6E 20 45 72 72 6F 72 28 32 36 2C 0 then Error(26,
00B840: 35 29 0D 0A 20 20 20 20 65 6C 73 65 20 62 65 67 5).. else beg
00B850: 69 6E 0D 0A 20 20 20 20 20 20 66 6F 72 20 69 3A in.. for i:
00B860: 3D 31 20 74 6F 20 4D 61 78 57 69 6E 64 6F 77 73 =1 to MaxWindows
00B870: 47 6C 62 20 64 6F 20 77 72 69 74 65 28 57 50 6F Glb do write(WPo
00B880: 69 6E 74 65 72 46 69 6C 65 2C 73 74 61 63 6B 5B interFile,stack[
00B890: 69 5D 2E 57 29 3B 0D 0A 20 20 20 20 20 20 63 6C i].W);.. cl
00B8A0: 6F 73 65 28 57 50 6F 69 6E 74 65 72 46 69 6C 65 ose(WPointerFile
00B8B0: 29 3B 0D 0A 20 20 20 20 65 6E 64 3B 0D 0A 20 20 );.. end;..
00B8C0: 65 6E 64 3B 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 end;....procedur
00B8D0: 65 20 4C 6F 61 64 57 69 6E 64 6F 77 53 74 61 63 e LoadWindowStac
00B8E0: 6B 28 46 69 6C 65 4E 61 6D 65 3A 77 72 6B 73 74 k(FileName:wrkst
00B8F0: 72 69 6E 67 29 3B 0D 0A 76 61 72 20 69 3A 69 6E ring);..var i:in
00B900: 6E 20 65 72 72 6F 72 28 31 32 2C 33 29 0D 0A 20 n error(12,3)..
00B910: 20 20 20 20 20 20 20 65 6C 73 65 20 62 65 67 69 else begi
00B920: 6E 0D 0A 20 20 20 20 20 20 20 20 20 20 66 6F 72 n.. for
00B930: 20 69 3A 3D 79 31 20 74 6F 20 79 32 20 64 6F 20 i:=y1 to y2 do
00B940: 62 65 67 69 6E 0D 0A 20 20 20 20 20 20 20 20 20 begin..
00B950: 20 20 20 69 66 20 28 73 65 63 70 74 72 2B 78 6C if (secptr+xl
00B960: 65 6E 3E 31 32 37 29 20 61 6E 64 20 6E 6F 74 20 en>127) and not
00B970: 73 65 63 6F 6E 64 20 61 6E 64 20 6E 6F 74 20 65 second and not e
00B980: 6F 66 28 75 6E 69 66 69 6C 65 29 20 74 68 65 6E of(unifile) then
00B990: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 62 .. b
00B9A0: 65 67 69 6E 0D 0A 20 20 20 20 20 20 20 20 20 20 egin..
00B9B0: 20 20 20 20 42 6C 6F 63 6B 52 65 61 64 28 75 6E BlockRead(un
00B9C0: 69 66 69 6C 65 2C 75 6E 69 62 75 66 66 5B 31 32 ifile,unibuff[12
00B9D0: 38 5D 2C 31 29 3B 0D 0A 20 20 20 20 20 20 20 20 8],1);..
00B9E0: 20 20 20 20 20 20 73 65 63 6F 6E 64 3A 3D 74 72 second:=tr
00B9F0: 75 65 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 ue;..
00BA00: 20 65 6E 64 3B 0D 0A 20 20 20 20 20 20 20 20 20 end;..
00BA10: 20 20 20 53 43 52 5F 57 52 49 54 45 5F 42 59 54 SCR_WRITE_BYT
00BA20: 45 4C 49 4E 45 28 78 6C 65 6E 2C 75 6E 69 62 75 ELINE(xlen,unibu
00BA30: 66 66 5B 73 65 63 70 74 72 5D 2C 78 31 2C 69 29 ff[secptr],x1,i)
00BA40: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 73 ;.. s
00BA50: 65 63 70 74 72 3A 3D 73 65 63 70 74 72 2B 78 6C ecptr:=secptr+xl
00BA60: 65 6E 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 en;..
00BA70: 20 69 66 20 73 65 63 70 74 72 3E 31 32 37 20 74 if secptr>127 t
00BA80: 68 65 6E 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 hen begin..
00BA90: 20 20 20 20 20 20 20 20 20 6D 6F 76 65 28 75 6E move(un
00BAA0: 69 62 75 66 66 5B 31 32 38 5D 2C 75 6E 69 62 75 ibuff[128],unibu
00BAB0: 66 66 5B 30 5D 2C 31 32 38 29 3B 0D 0A 20 20 20 ff[0],128);..
00BAC0: 20 20 20 20 20 20 20 20 20 20 20 73 65 63 70 74 secpt
00BAD0: 72 3A 3D 73 65 63 70 74 72 2D 31 32 38 3B 0D 0A r:=secptr-128;..
00BAE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 65 se
00BAF0: 63 6F 6E 64 3A 3D 66 61 6C 73 65 3B 0D 0A 20 20 cond:=false;..
00BB00: 74 65 67 65 72 3B 0D 0A 20 20 62 65 67 69 6E 0D teger;.. begin.
00BB10: 0A 20 20 20 20 61 73 73 69 67 6E 28 57 50 6F 69 . assign(WPoi
00BB20: 6E 74 65 72 46 69 6C 65 2C 46 69 6C 65 4E 61 6D nterFile,FileNam
00BB30: 65 2B 27 2E 70 74 72 27 29 3B 0D 0A 20 20 20 20 e+'.ptr');..
00BB40: 7B 24 49 2D 7D 20 72 65 73 65 74 28 57 50 6F 69 {$I-} reset(WPoi
00BB50: 6E 74 65 72 46 69 6C 65 29 3B 20 7B 24 49 2B 7D nterFile); {$I+}
00BB60: 0D 0A 20 20 20 20 69 66 20 49 4F 52 65 73 75 6C .. if IOResul
00BB70: 74 3D 30 20 74 68 65 6E 20 62 65 67 69 6E 0D 0A t=0 then begin..
00BB80: 20 20 20 20 20 20 66 6F 72 20 69 3A 3D 31 20 74 for i:=1 t
00BB90: 6F 20 4D 61 78 57 69 6E 64 6F 77 73 47 6C 62 20 o MaxWindowsGlb
00BBA0: 64 6F 20 72 65 61 64 28 57 50 6F 69 6E 74 65 72 do read(WPointer
00BBB0: 46 69 6C 65 2C 73 74 61 63 6B 5B 69 5D 2E 57 29 File,stack[i].W)
00BBC0: 3B 0D 0A 20 20 20 20 20 20 63 6C 6F 73 65 28 57 ;.. close(W
00BBD0: 50 6F 69 6E 74 65 72 46 69 6C 65 29 3B 0D 0A 20 PointerFile);..
00BBE0: 20 20 20 65 6E 64 0D 0A 20 20 20 20 65 6C 73 65 end.. else
00BBF0: 20 65 72 72 6F 72 28 32 31 2C 35 29 3B 0D 0A 20 error(21,5);..
00BC00: 20 65 6E 64 3B 0D 0A 0D 0A 70 72 6F 63 65 64 75 end;....procedu
00BC10: 72 65 20 49 6E 76 65 72 74 57 69 6E 64 6F 77 3B re InvertWindow;
00BC20: 0D 0A 20 20 76 61 72 20 69 2C 6A 3A 69 6E 74 65 .. var i,j:inte
00BC30: 67 65 72 3B 0D 0A 20 20 62 65 67 69 6E 0D 0A 20 ger;.. begin..
00BC40: 20 20 20 69 3A 3D 79 31 72 65 66 67 6C 62 3B 20 i:=y1refglb;
00BC50: 6A 3A 3D 79 32 72 65 66 67 6C 62 3B 0D 0A 20 20 j:=y2refglb;..
00BC60: 20 20 77 69 74 68 20 77 69 6E 64 6F 77 5B 57 69 with window[Wi
00BC70: 6E 64 6F 77 4E 64 78 47 6C 62 5D 20 64 6F 0D 0A ndowNdxGlb] do..
00BC80: 20 20 20 20 20 20 69 66 20 64 72 61 77 6E 20 74 if drawn t
00BC90: 68 65 6E 0D 0A 20 20 20 20 20 20 20 20 69 66 20 hen.. if
00BCA0: 74 6F 70 20 74 68 65 6E 20 69 3A 3D 59 31 52 65 top then i:=Y1Re
00BCB0: 66 47 6C 62 2D 48 65 61 64 65 72 53 69 7A 65 47 fGlb-HeaderSizeG
00BCC0: 6C 62 0D 0A 20 20 20 20 20 20 20 20 65 6C 73 65 lb.. else
00BCD0: 20 6A 3A 3D 59 32 52 65 66 47 6C 62 2B 48 65 61 j:=Y2RefGlb+Hea
00BCE0: 64 65 72 53 69 7A 65 47 6C 62 3B 0D 0A 20 20 20 derSizeGlb;..
00BCF0: 20 49 4E 56 45 52 54 42 4C 4F 43 4B 28 78 31 72 INVERTBLOCK(x1r
00BD00: 20 20 20 20 20 20 20 20 20 20 65 6E 64 3B 0D 0A end;..
00BD10: 20 20 20 20 20 20 20 20 20 20 65 6E 64 3B 0D 0A end;..
00BD20: 20 20 20 20 20 20 20 20 65 6E 64 3B 0D 0A 20 20 end;..
00BD30: 20 20 20 20 65 6E 64 3B 0D 0A 20 20 20 20 20 20 end;..
00BD40: 63 6C 6F 73 65 28 75 6E 69 66 69 6C 65 29 3B 0D close(unifile);.
00BD50: 0A 20 20 20 20 65 6E 64 3B 0D 0A 20 20 65 6E 64 . end;.. end
00BD60: 3B 0D 0A 0D 0A 66 75 6E 63 74 69 6F 6E 20 57 69 ;....function Wi
00BD70: 6E 64 6F 77 53 69 7A 65 28 77 69 6E 3A 69 6E 74 ndowSize(win:int
00BD80: 65 67 65 72 29 3A 69 6E 74 65 67 65 72 3B 0D 0A eger):integer;..
00BD90: 20 20 76 61 72 0D 0A 20 20 20 20 57 53 3A 20 69 var.. WS: i
00BDA0: 6E 74 65 67 65 72 3B 0D 0A 0D 0A 20 20 62 65 67 nteger;.... beg
00BDB0: 69 6E 0D 0A 20 20 20 20 57 53 3A 3D 2D 31 3B 0D in.. WS:=-1;.
00BDC0: 0A 20 20 20 20 69 66 20 6E 6F 74 20 28 77 69 6E . if not (win
00BDD0: 20 69 6E 20 5B 31 2E 2E 4D 61 78 57 69 6E 64 6F in [1..MaxWindo
00BDE0: 77 73 47 6C 62 5D 29 20 74 68 65 6E 20 65 72 72 wsGlb]) then err
00BDF0: 6F 72 28 31 33 2C 32 29 0D 0A 20 20 20 20 65 6C or(13,2).. el
00BE00: 73 65 20 77 69 74 68 20 77 69 6E 64 6F 77 5B 77 se with window[w
00BE10: 69 6E 5D 20 64 6F 20 62 65 67 69 6E 0D 0A 20 20 in] do begin..
00BE20: 20 20 20 20 57 53 3A 3D 28 79 32 2D 79 31 2B 31 WS:=(y2-y1+1
00BE30: 29 2A 28 78 32 2D 78 31 2B 31 29 3B 0D 0A 20 20 )*(x2-x1+1);..
00BE40: 20 20 20 20 69 66 20 44 72 61 77 6E 20 74 68 65 if Drawn the
00BE50: 6E 20 57 53 3A 3D 57 53 2B 48 65 61 64 65 72 53 n WS:=WS+HeaderS
00BE60: 69 7A 65 47 6C 62 2A 28 78 32 2D 78 31 2B 31 29 izeGlb*(x2-x1+1)
00BE70: 3B 0D 0A 20 20 20 20 20 20 57 53 3A 3D 28 57 53 ;.. WS:=(WS
00BE80: 2B 24 37 66 29 20 41 6E 64 20 24 46 46 38 30 3B +$7f) And $FF80;
00BE90: 0D 0A 20 20 20 20 65 6E 64 3B 0D 0A 20 20 20 20 .. end;..
00BEA0: 57 69 6E 64 6F 77 53 69 7A 65 3A 3D 57 53 3B 0D WindowSize:=WS;.
00BEB0: 0A 20 20 65 6E 64 3B 0D 0A 0D 0A 0D 0A 70 72 6F . end;......pro
00BEC0: 63 65 64 75 72 65 20 53 74 6F 72 65 57 69 6E 64 cedure StoreWind
00BED0: 6F 77 28 77 69 6E 3A 69 6E 74 65 67 65 72 29 3B ow(win:integer);
00BEE0: 0D 0A 20 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 .. begin..
00BEF0: 69 66 20 6E 6F 74 20 28 77 69 6E 20 69 6E 20 5B if not (win in [
00BF00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
00BF10: 0A 00 00 00 02 09 50 E5 0A 00 41 02 00 00 00 02 ......P...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: 65 66 67 6C 62 2C 69 2C 78 32 72 65 66 67 6C 62 efglb,i,x2refglb
00C010: 2C 6A 29 3B 0D 0A 20 20 65 6E 64 3B 0D 0A 1A 1A ,j);.. end;....
00C020: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
00C030: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
00C040: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
00C050: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
00C060: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
00C070: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
00C080: 20 20 20 20 20 20 66 6F 72 20 69 3A 3D 31 20 74 for i:=1 t
00C090: 6F 20 4D 61 78 57 69 6E 64 6F 77 73 47 6C 62 20 o MaxWindowsGlb
00C0A0: 64 6F 20 72 65 61 64 28 57 50 6F 69 6E 74 65 72 do read(WPointer
00C0B0: 46 69 6C 65 2C 73 74 61 63 6B 5B 69 5D 2E 57 29 File,stack[i].W)
00C0C0: 3B 0D 0A 20 20 20 20 20 20 63 6C 6F 73 65 28 57 ;.. close(W
00C0D0: 50 6F 69 6E 74 65 72 46 69 6C 65 29 3B 0D 0A 20 PointerFile);..
00C0E0: 20 20 20 65 6E 64 0D 0A 20 20 20 20 65 6C 73 65 end.. else
00C0F0: 20 65 72 72 6F 72 28 32 31 2C 35 29 3B 0D 0A 20 error(21,5);..
00C100: 20 65 6E 64 3B 0D 0A 0D 0A 70 72 6F 63 65 64 75 end;....procedu
00C110: 72 65 20 49 6E 76 65 72 74 57 69 6E 64 6F 77 3B re InvertWindow;
00C120: 0D 0A 20 20 76 61 72 20 69 2C 6A 3A 69 6E 74 65 .. var i,j:inte
00C130: 67 65 72 3B 0D 0A 20 20 62 65 67 69 6E 0D 0A 20 ger;.. begin..
00C140: 20 20 20 69 3A 3D 79 31 72 65 66 67 6C 62 3B 20 i:=y1refglb;
00C150: 6A 3A 3D 79 32 72 65 66 67 6C 62 3B 0D 0A 20 20 j:=y2refglb;..
00C160: 20 20 77 69 74 68 20 77 69 6E 64 6F 77 5B 57 69 with window[Wi
00C170: 6E 64 6F 77 4E 64 78 47 6C 62 5D 20 64 6F 0D 0A ndowNdxGlb] do..
00C180: 20 20 20 20 20 20 69 66 20 64 72 61 77 6E 20 74 if drawn t
00C190: 68 65 6E 0D 0A 20 20 20 20 20 20 20 20 69 66 20 hen.. if
00C1A0: 74 6F 70 20 74 68 65 6E 20 69 3A 3D 59 31 52 65 top then i:=Y1Re
00C1B0: 66 47 6C 62 2D 48 65 61 64 65 72 53 69 7A 65 47 fGlb-HeaderSizeG
00C1C0: 6C 62 0D 0A 20 20 20 20 20 20 20 20 65 6C 73 65 lb.. else
00C1D0: 20 6A 3A 3D 59 32 52 65 66 47 6C 62 2B 48 65 61 j:=Y2RefGlb+Hea
00C1E0: 64 65 72 53 69 7A 65 47 6C 62 3B 0D 0A 20 20 20 derSizeGlb;..
00C1F0: 20 49 4E 56 45 52 54 42 4C 4F 43 4B 28 78 31 72 INVERTBLOCK(x1r
00C200: 01 12 13 F1 10 ED C9 01 0A 64 21 6B 01 C3 35 02 .........d!k..5.
00C210: 21 7B 01 C3 35 02 11 03 00 CD 5F 03 E6 01 18 06 !{..5....._.....
00C220: 11 06 00 CD 5F 03 6F 26 00 C9 11 12 00 18 F4 11 ...._.o&........
00C230: 0C 00 18 08 11 0F 00 18 03 11 09 00 E1 C1 E5 3A ...............:
00C240: DD 00 B7 28 1A D5 C5 CD A0 00 7C B5 28 0F CD E1 ...(......|.(...
00C250: 03 FE 13 20 08 CD E1 03 FE 03 CA D4 20 C1 D1 2A ... ........ ..*
00C260: 01 00 19 E9 22 D2 00 78 32 DD 00 79 B7 28 0B 3E ...."..x2..y.(.>
00C270: C3 32 38 00 21 FB 1F 22 39 00 21 A5 03 11 A0 00 .28.!.."9.!.....
00C280: 01 18 00 ED B0 21 BD 03 11 B8 00 01 0C 00 ED B0 .....!..........
00C290: AF 6F 67 32 D0 00 22 D4 00 22 D6 00 3E 7E 32 D1 .og2..".."..>~2.
00C2A0: 00 32 E0 00 C9 C3 16 03 C3 20 03 C3 39 03 C3 2F .2....... ..9../
00C2B0: 03 C3 34 03 C3 2A 03 C3 39 03 C3 20 03 C1 00 82 ..4..*..9.. ....
00C2C0: 00 43 00 C4 00 C5 00 C1 00 C5 D5 E5 DD E5 FD E5 .C..............
00C2D0: F5 6F 26 00 E5 CD A6 00 F1 FD E1 DD E1 E1 D1 C1 .o&.............
00C2E0: C9 C5 D5 E5 DD E5 FD E5 CD A3 00 7D 18 EB 0E FF .........£.}....
00C2F0: 18 0C 0E 00 ED 5B D2 00 13 1A FE 20 28 FA 21 65 .....[..... (.!e
00C300: 00 06 03 CD 7B 04 1A CD A6 04 FE 41 38 12 FE 51 ....{......A8..Q
00C310: 30 0E 47 13 1A FE 3A 20 06 78 D6 40 13 18 02 1B 0.G...: .x.@....
00C320: AF 21 5C 00 77 23 0C 0D 28 19 1A CD 82 04 20 13 .!\.w#..(..... .
00C330: FE 3F 28 0F FE 2A 28 0B FE 2E 28 07 06 0B CD 77 .?(..*(...(....w
00C340: 04 18 10 06 08 CD 5E 04 1A FE 2E 20 06 13 06 03 ......^.... ....
00C350: CD 5E 04 21 68 00 06 18 36 00 23 10 FB C9 1A 0C .^.!h...6.#.....
00C360: 0D 28 08 FE 3F 28 09 FE 2A 28 0B CD 82 04 28 0B .(..?(..*(....(.
00C370: 77 23 13 10 E9 C9 13 3E 3F 18 02 3E 20 77 23 10 w#.....>?..> w#.
00C380: FC C9 CD A6 04 FE 20 38 0D E5 C5 21 98 04 01 0E ...... 8...!....
00C390: 00 ED B1 C1 E1 C9 BF C9 20 2E 2C 3B 3A 3D 3F 2A ........ .,;:=?*
00C3A0: 5B 5D 3C 3E 7B 7D FE 61 D8 FE 7B D0 D6 20 C9 7C []<>{}.a..{.. .|
00C3B0: CD B4 04 7D F5 1F 1F 1F 1F CD BD 04 F1 E6 0F C6 ...}............
00C3C0: 90 27 CE 40 27 C3 C9 03 AF 37 CB 7C C0 7C B7 7D .'.@'....7.|.|.}
00C3D0: C8 3E FF C9 32 D8 00 C5 CD AF 1E C1 2A 06 00 B7 .>..2.......*...
00C3E0: ED 42 DA A8 20 EB D1 F9 01 00 FC 09 22 C6 00 AF .B.. ......."...
00C3F0: 6F 67 22 CE 00 32 DC 00 3E C3 32 D9 00 21 DE 20 og"..2..>.2..!.
00C400: C3 08 1B CD B0 18 3E FF 32 6C 18 C3 7F 1B 79 FE ......>.2l....y.
00C410: 05 CA 7F 1B FE 06 C2 1E 1B 3C 4F C3 B9 1A FE 08 .........<O.....
00C420: C4 85 1B C3 B9 1A FE 11 CC 85 1B 68 26 00 C3 71 ...........h&..q
00C430: 1B 3A 85 01 FE 04 C2 50 1B 3A 89 01 FE 24 CA 4A .:.....P.:...$.J
00C440: 1B CD 85 1B 21 00 00 C3 71 1B 2A D2 01 C3 71 1B ....!...q.*...q.
00C450: CD 46 13 CD 49 13 C2 64 1B 3E 50 CD 18 02 CD 4C .F..I..d.>P....L
00C460: 13 C3 6E 1B CD 52 13 E6 07 3E 55 CC 18 02 CD 58 ..n..R...>U....X
00C470: 13 3A 6C 18 B7 CC 85 1B AF 32 6C 18 CD 93 18 CD .:l......2l.....
00C480: 06 11 C3 2A 1A E5 3E 45 CD 18 02 E1 C9 CD 52 13 ...*..>E......R.
00C490: B7 CA B5 1D C9 00 00 00 00 00 00 00 00 00 00 00 ................
00C4A0: AF 32 CF 01 CD 43 13 CD 03 11 CD 03 02 21 00 00 .2...C.......!..
00C4B0: 22 EB 20 22 D0 01 22 D2 01 22 ED 20 CD 06 11 3A ". ".."..". ...:
00C4C0: 85 01 FE 02 CA BC 1B FE 04 C2 DD 1B 3A 89 01 FE ............:...
00C4D0: 2A C2 31 1F CD 00 20 C2 7C 1F C3 52 1F FE 01 C2 *.1... .|..R....
00C4E0: 7C 1F CD A6 15 CA 30 1C CD 46 13 CD 49 13 C2 FE |.....0..F..I...
00C4F0: 1B CD 4C 13 3A CF 01 B7 C4 D7 20 C3 0C 1C CD 52 ..L.:..... ....R
00C500: 13 FE 06 C2 0C 1C CD E3 20 C3 52 1F 2A EB 20 7D ........ .R.*. }
00C510: B4 C4 DD 20 2A D6 01 22 EB 20 CD 06 11 3A 85 01 ... *..". ...:..
00C520: FE 04 C2 BF 1B 3A 89 01 FE 3A C2 BF 1B C3 BC 1B .....:...:......
00C530: FE 11 C2 D7 1D 58 16 00 1B 21 43 1C 19 19 5E 23 .....X...!C...^#
00C540: 66 6B E9 5B 1C A9 1C C0 1C DE 1C 15 1D 18 1D 1E fk.[............
00C550: 1D 40 1D 87 1D 8D 1D A7 1D CE 1D CD 0A 20 CD 06 .@........... ..
00C560: 11 3A 85 01 FE 03 C2 8C 1C 3A 88 01 3D CA 8C 1C .:.......:..=...
00C570: 47 04 04 21 89 01 05 CA 86 1C C5 46 23 E5 CD 48 G..!.......F#..H
00C580: 20 E1 C1 C3 76 1C CD 06 11 C3 9B 1C CD 63 18 2A ...v........c.*
00C590: C9 01 7C B7 C4 D1 20 45 CD 48 20 CD F9 1F CD BA ..|... E.H .....
00C5A0: 1E FE 2C CA 5E 1C C3 31 1F CD 0A 20 CD A6 20 CD ..,.^..1... .. .
00C5B0: D1 1E EB 2A D2 01 19 22 D2 01 22 D0 01 C3 31 1F ...*...".."...1.
00C5C0: CD 0A 20 CD D1 1E E5 45 CD 48 20 E1 44 CD 48 20 .. ....E.H .D.H
00C5D0: CD F9 1F CD BA 1E FE 2C CA C3 1C C3 31 1F CD 0A .......,....1...
00C5E0: 20 CD A6 20 3A 0C 01 FE 20 C2 31 1F CD D1 1E 3A .. :... .1....:
00C5F0: 0C 01 FE 20 C2 FA 1C 22 ED 20 3E 20 32 0C 01 CD ... ...". > 2...
00C600: 22 DA 00 EB 22 CC 00 E9 E5 2A C6 00 B7 ED 42 22 "..."....*....B"
00C610: C6 00 ED 5B C4 00 B7 ED 52 19 EB E1 DA 75 1D ED ...[....R....u..
00C620: B0 C9 2A C6 00 ED B0 22 C6 00 D9 C9 5E 23 56 23 ..*...."....^#V#
00C630: D5 5E 23 56 23 4E 23 46 E1 C9 DD E1 EB 1A 4F 06 .^#V#N#F......O.
00C640: 00 2F 6F 26 FF 39 F9 EB 03 ED B0 DD E9 D1 1A 4F ./o&.9.........O
00C650: 06 00 2F 6F 26 FF 39 F9 EB 03 ED B0 E9 DD E1 EB ../o&.9.........
00C660: 21 E0 FF 39 F9 EB C5 04 05 28 05 AF 12 13 10 FC !..9.....(......
00C670: ED B0 C1 3E 20 90 91 28 06 47 AF 12 13 10 FC DD ...> ..(.G......
00C680: E9 DD E1 21 E0 FF 39 F9 06 20 AF 77 23 10 FC DD ...!..9.. .w#...
00C690: E9 DD E1 45 CD BA 05 B6 77 DD E9 DD E1 D1 7D 93 ...E....w.....}.
00C6A0: 38 F7 3C 4F 43 CD BA 05 5F 41 AF B3 CB 23 30 06 8.<OC..._A...#0.
00C6B0: B6 77 23 AF 1E 01 10 F3 18 DD 78 E6 F8 0F 0F 0F .w#.......x.....
00C6C0: C6 02 6F 26 00 39 78 E6 07 3C 47 AF 37 17 10 FD ..o&.9x..<G.7...
00C6D0: C9 E5 D9 EB E3 73 23 72 23 D1 73 23 72 23 71 23 .....s#r#.s#r#q#
00C6E0: 70 C9 DD E1 78 EB 21 00 00 44 39 4E E5 09 23 E3 p...x.!..D9N..#.
00C6F0: B9 38 01 79 12 13 23 B7 28 03 4F ED B0 E1 F9 DD .8.y..#.(.O.....
00C700: E9 DD E1 78 21 00 00 44 39 4E E5 09 23 5E 23 56 ...x!..D9N..#^#V
00C710: 18 DC DD E1 EB 68 26 00 44 39 ED B0 21 20 00 39 .....h&.D9..! .9
00C720: F9 DD E9 DD E1 21 20 00 39 5E 23 56 68 26 00 44 .....! .9^#Vh&.D
00C730: 39 ED B0 21 22 00 18 E7 DD E1 EB 78 2F 6F 26 FF 9..!"......x/o&.
00C740: 39 F9 70 23 48 06 00 EB ED B0 DD E9 B7 ED 52 19 9.p#H.........R.
00C750: D8 3E 90 C3 27 20 B7 ED 52 B7 ED 42 30 03 09 19 .>..' ..R..B0...
00C760: C9 3E 91 C3 27 20 B7 ED 52 EB 13 EA 71 06 F0 18 .>..' ..R...q...
00C770: 01 F8 11 00 00 C9 D5 EB B7 ED 52 EB E1 18 EB B7 ..........R.....
00C780: ED 52 21 01 00 C8 2B C9 CD DF 0B 18 F5 CD B0 09 .R!...+.........
00C790: 18 F0 B7 ED 52 21 01 00 C0 2B C9 CD DF 0B 18 F5 ....R!...+......
00C7A0: CD B0 09 18 F0 CD 72 07 21 01 00 D0 2B C9 CD DF ......r.!...+...
00C7B0: 0B 18 F5 CD B0 09 18 F0 CD 72 07 21 01 00 C8 D8 .........r.!....
00C7C0: 2B C9 CD DF 0B 18 F4 CD B0 09 18 EF CD 72 07 21 +............r.!
00C7D0: 00 00 C8 D8 23 C9 CD DF 0B 18 F4 CD B0 09 18 EF ....#...........
00C7E0: CD 72 07 21 01 00 D8 2B C9 CD DF 0B 18 F5 CD B0 .r.!...+........
00C7F0: 09 18 F0 54 5D 4B 42 EB 21 00 00 7A B7 3E 10 20 ...T]KB.!..z.>.
00C800: 28 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A (***************
00C810: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
00C820: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
00C830: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 29 0D 0A 28 ************)..(
00C840: 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 *
00C850: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00C860: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00C870: 20 20 20 20 20 20 20 20 20 20 2A 29 0D 0A 28 2A *)..(*
00C880: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00C890: 54 55 52 42 4F 20 47 52 41 50 48 49 58 20 76 65 TURBO GRAPHIX ve
00C8A0: 72 73 69 6F 6E 20 31 2E 30 35 41 20 20 20 20 20 rsion 1.05A
00C8B0: 20 20 20 20 20 20 20 20 20 2A 29 0D 0A 28 2A 20 *)..(*
00C8C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00C8D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00C8E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00C8F0: 20 20 20 20 20 20 20 20 2A 29 0D 0A 28 2A 20 20 *)..(*
00C900: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00C910: 20 20 47 72 61 70 68 69 63 73 20 6D 6F 64 75 6C Graphics modul
00C920: 65 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 e
00C930: 20 20 20 20 20 20 20 2A 29 0D 0A 28 2A 20 20 20 *)..(*
00C940: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4D M
00C950: 6F 64 75 6C 65 20 76 65 72 73 69 6F 6E 20 20 31 odule version 1
00C960: 2E 30 33 41 20 20 20 20 20 20 20 20 20 20 20 20 .03A
00C970: 20 20 20 20 20 20 2A 29 0D 0A 28 2A 20 20 20 20 *)..(*
00C980: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00C990: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00C9A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00C9B0: 20 20 20 20 20 2A 29 0D 0A 28 2A 20 20 20 20 20 *)..(*
00C9C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 43 6F 70 Cop
00C9D0: 79 72 69 67 68 74 20 28 43 29 20 31 39 38 35 20 yright (C) 1985
00C9E0: 62 79 20 20 20 20 20 20 20 20 20 20 20 20 20 20 by
00C9F0: 20 20 20 20 2A 29 0D 0A 28 2A 20 20 20 20 20 20 *)..(*
00CA00: 03 53 3E 08 29 EB 29 EB 30 01 09 3D 20 F6 C9 7C .S>.).).0..= ..|
00CA10: B5 CA 03 0A 7C AA F5 CD 80 07 EB CD 80 07 EB 44 ....|..........D
00CA20: 4D AF 67 6F 3E 11 ED 6A ED 42 30 02 09 37 3F CB M.go>..j.B0..7?.
00CA30: 13 CB 12 3D 20 F0 EB F1 F0 18 48 E5 CD 92 07 CB ...= .....H.....
00CA40: 3C CB 1D D1 EB CD 0F 07 EB CB 7A C8 18 35 CD 61 <.........z..5.a
00CA50: 07 C8 29 10 FD C9 CD 61 07 C8 CB 3C CB 1D 10 FA ..)....a...<....
00CA60: C9 EB 7A B7 20 08 7B FE 10 30 03 47 B7 C9 AF 67 ..z. .{..0.G...g
00CA70: 6F C9 EB 7C AA 7C FA 7E 07 BA C0 7D BB C9 17 C9 o..|.|.~...}....
00CA80: CB 7C C8 7C 2F 67 7D 2F 6F 23 C9 7D E6 01 6F 26 .|.|/g}/o#.}..o&
00CA90: 00 C9 ED 4B CA 00 ED 5B C8 00 C5 D5 78 41 4A 53 ...K...[....xAJS
00CAA0: 1E 00 1F CB 18 CB 19 CB 1A CB 1B E1 19 EB E1 ED ................
00CAB0: 4A 44 4D 21 E9 62 19 22 C8 00 EB 21 19 36 ED 4A JDM!.b."...!.6.J
00CAC0: 22 CA 00 44 4D C9 06 00 11 10 27 CD E2 07 11 E8 "..DM.....'.....
00CAD0: 03 CD E2 07 11 64 00 CD E2 07 1E 0A CD E2 07 7D .....d.........}
00CAE0: 18 0D AF 3C ED 52 30 FB 19 04 3D 20 02 05 C8 C6 ...<.R0...= ....
00CAF0: 30 DD 77 00 DD 23 C9 DD 7E 00 D6 24 4F 21 00 00 0.w..#..~..$O!..
00CB00: 20 02 DD 23 DD 7E 00 CD A6 04 D6 30 38 29 FE 0A ..#.~.....08)..
00CB10: 38 0E 0C 0D 20 21 D6 07 FE 0A 38 1B FE 10 30 17 8... !....8...0.
00CB20: 54 5D 29 D8 29 D8 0C 0D 20 02 54 5D 19 D8 29 D8 T]).)... .T]..).
00CB30: 5F 16 00 19 D8 18 CB 79 B7 C8 7C 87 C9 DD E1 E1 _......y..|.....
00CB40: E5 7D 26 00 23 39 4E 81 38 1C 77 EB 21 00 00 44 .}&.#9N.8.w.!..D
00CB50: ED 42 39 F9 EB E5 03 ED B0 EB E1 2B 1B 4F 03 ED .B9........+.O..
00CB60: B8 EB 23 F9 DD E9 3E 10 C3 29 20 DD E1 CD C8 04 ..#...>..) .....
00CB70: 57 E1 CD DD 09 5F E1 E5 7D 93 38 1A 14 15 28 16 W...._..}.8...(.
00CB80: BA 38 16 4A 06 00 60 39 7B 82 54 5D 3D 6F 60 39 .8.J..`9{.T]=o`9
00CB90: 79 ED B8 EB 18 09 AF 18 03 3C 6B 2D 26 00 39 77 y........<k-&.9w
00CBA0: F9 DD E9 DD E1 E1 E5 7D 26 00 23 39 F9 6F 26 00 .......}&.#9.o&.
00CBB0: DD E9 DD E1 21 00 00 54 39 5E 4B 23 E5 19 5E 43 ....!..T9^K#..^C
00CBC0: 23 E5 19 E5 FD E1 D1 E1 79 90 38 10 3C 4F C5 D5 #.......y.8.<O..
00CBD0: E5 1A BE 28 0C E1 D1 C1 23 0D 20 F2 21 00 00 18 ...(....#. .!...
00CBE0: 0E 23 13 10 EC D1 E1 C1 21 00 00 39 EB ED 52 FD .#......!..9..R.
00CBF0: F9 DD E9 DD E1 CD C8 04 4F E1 CD DD 09 5F E1 7E ........O...._.~
00CC00: 20 20 20 20 20 20 20 20 20 20 20 20 42 4F 52 4C BORL
00CC10: 41 4E 44 20 49 6E 74 65 72 6E 61 74 69 6F 6E 61 AND Internationa
00CC20: 6C 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 l
00CC30: 20 20 20 2A 29 0D 0A 28 2A 20 20 20 20 20 20 20 *)..(*
00CC40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00CC50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00CC60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00CC70: 20 20 2A 29 0D 0A 28 2A 20 20 20 20 20 20 20 20 *)..(*
00CC80: 20 20 20 4D 6F 64 69 66 69 65 64 20 66 6F 72 20 Modified for
00CC90: 74 68 65 20 20 53 63 68 6E 65 69 64 65 72 20 43 the Schneider C
00CCA0: 50 43 20 36 31 32 38 20 20 20 20 20 20 20 20 20 PC 6128
00CCB0: 20 2A 29 0D 0A 28 2A 20 20 20 20 20 20 20 20 20 *)..(*
00CCC0: 20 20 20 20 20 20 62 79 20 48 45 49 4D 53 4F 45 by HEIMSOE
00CCD0: 54 48 20 53 6F 66 74 77 61 72 65 20 20 4D 75 6E TH Software Mun
00CCE0: 69 63 68 20 20 20 20 20 20 20 20 20 20 20 20 20 ich
00CCF0: 2A 29 0D 0A 28 2A 20 20 20 20 20 20 20 20 20 20 *)..(*
00CD00: 20 20 20 20 20 20 20 56 65 72 73 69 6F 6E 20 31 Version 1
00CD10: 2E 30 20 2F 20 20 32 35 2E 31 31 2E 31 39 38 35 .0 / 25.11.1985
00CD20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A *
00CD30: 29 0D 0A 28 2A 20 20 20 20 20 20 20 20 20 20 20 )..(*
00CD40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00CD50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00CD60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 29 *)
00CD70: 0D 0A 28 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ..(*************
00CD80: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
00CD90: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
00CDA0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 29 0D **************).
00CDB0: 0A 0D 0A 63 6F 6E 73 74 20 58 4D 61 78 47 6C 62 ...const XMaxGlb
00CDC0: 20 3D 20 37 39 3B 20 20 20 20 20 20 20 20 20 20 = 79;
00CDD0: 20 20 20 20 20 20 20 7B 6E 6F 6D 62 72 65 20 64 {nombre d
00CDE0: 27 6F 63 74 65 74 73 20 2D 31 20 64 61 6E 73 20 'octets -1 dans
00CDF0: 75 6E 65 20 6C 69 67 6E 65 20 65 63 72 61 6E 7D une ligne ecran}
00CE00: 93 38 1B 0C 0D 28 17 91 38 12 F5 7E 91 77 06 00 .8...(..8..~.w..
00CE10: 50 19 54 5D 09 F1 3C 4F ED B0 18 02 1D 73 DD E9 P.T]..<O.....s..
00CE20: DD E1 CD DD 09 4F D1 ED 53 E8 00 21 00 00 39 1A .....O..S..!..9.
00CE30: F5 86 38 03 B8 38 01 78 12 F1 57 5E 91 38 2F 3C ..8..8.x..W^.8/<
00CE40: 6F 7A 83 38 04 B8 7D 38 08 78 93 38 26 91 38 23 oz.8..}8.x.8&.8#
00CE50: 3C B7 28 1F C5 D5 2A E8 00 5F 1D 16 00 42 19 09 <.(...*.._...B..
00CE60: D1 D5 E5 50 19 EB E1 4F ED B8 D1 C1 18 05 7A 3C ...P...O......z<
00CE70: 28 19 4F 78 91 3C BB 38 01 7B B7 28 0E 2A E8 00 (.Ox.<.8.{.(.*..
00CE80: 06 00 09 EB 21 01 00 39 4F ED B0 21 00 00 54 39 ....!..9O..!..T9
00CE90: 5E 13 19 F9 DD E9 DD E1 E1 2D C2 66 08 6C 26 00 ^........-.f.l&.
00CEA0: DD E9 21 02 00 54 39 5E 13 19 7E 36 01 23 77 C9 ..!..T9^..~6.#w.
00CEB0: 21 04 00 54 39 5E 4B 23 E5 19 5E 43 23 E5 19 E5 !..T9^K#..^C#...
00CEC0: FD E1 D1 E1 AF B8 28 04 B9 20 08 78 B9 E1 D1 FD ......(.. .x....
00CED0: F9 D5 E9 1A BE 20 F6 23 13 05 0D 18 E7 7C B7 20 ..... .#.....|.
00CEE0: 03 7D B7 C0 3E 11 C3 29 20 CD 0D 0A D0 3E 01 C3 .}..>..) ....>..
00CEF0: 27 20 CD 81 0A 18 F5 CD AC 0F CD 97 0A 18 ED D9 ' ..............
00CF00: 7D B7 D9 3E 02 CA 27 20 CD F5 0A 18 DF D9 CB 78 }..>..' .......x
00CF10: D9 C2 88 0A D9 7D B7 D9 C8 D9 C5 D5 E5 D9 7D B7 .....}........}.
00CF20: 20 05 D9 CB B8 18 54 C5 CB F8 AF 08 D9 CB F8 7D .....T........}
00CF30: D9 95 28 13 30 06 ED 44 08 3D 08 D9 CD 7A 0B 2C ..(.0..D.=...z.,
00CF40: 3D 20 F9 08 28 01 D9 F1 E6 80 20 0F CD 92 0B 30 = ..(..... ....0
00CF50: 25 CD 7B 0B B7 2C 20 1E 37 18 20 CD C6 0B 3F F5 %.{.., .7. ...?.
00CF60: 28 10 38 01 D9 CD AC 0B CB 78 20 09 CD 86 0B 2D (.8......x ....-
00CF70: 20 F6 CD 72 0B F1 38 02 CB B8 B7 D9 E1 D1 C1 D9 ..r..8.........
00CF80: C9 D9 CB 78 D9 C2 14 0A CD 8F 0A CD 14 0A D8 2C ...x...........,
00CF90: 2D C8 78 EE 80 47 C9 D9 7D B7 D9 CA 72 0B 7D B7 -.x..G..}...r.}.
00CFA0: C8 D9 85 D9 CD 4D 0B C5 D5 E5 DD 39 CD 72 0B D9 .....M.....9.r..
00CFB0: 2E 05 D9 3E 08 DD 23 DD 6E 00 08 CB 1D 30 03 CD ...>..#.n....0..
00CFC0: 92 0B CD 7B 0B 08 3D 20 F1 D9 2D D9 20 E5 DD 6E ...{..= ..-. ..n
00CFD0: FB CB 78 20 09 08 CD 87 0B 2C 2D 28 01 2D F1 F1 ..x .....,-(.-..
00CFE0: F1 B7 08 F1 D9 C1 E1 D9 DD E1 CB B8 B0 47 2C 2D .............G,-
00CFF0: CC 72 0B 08 C9 7D B7 C8 D9 95 D9 3F CD 4D 0B E5 .r...}.....?.M..
00D000: C3 E2 20 CD AB 43 6F 70 79 72 69 67 68 74 20 28 .. ..Copyright (
00D010: 43 29 20 31 39 38 35 20 42 4F 52 4C 41 4E 44 20 C) 1985 BORLAND
00D020: 49 6E 63 00 04 00 A1 42 00 00 00 00 00 00 00 00 Inc....B........
00D030: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D040: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D050: 00 00 00 0C 61 6D 73 74 72 61 64 20 36 31 32 38 ....amstrad 6128
00D060: 43 34 36 34 2F 36 36 34 50 18 00 00 1C 00 0D 0D C464/664P.......
00D070: 1C 01 01 01 1D 03 03 1B 1B 1B D5 00 1C 01 00 00 ................
00D080: 1C 00 17 17 1D 17 17 EF 9E CD BD 04 1B 59 00 00 .............Y..
00D090: 00 00 00 00 00 00 00 00 00 00 00 01 20 20 04 03 ............ ..
00D0A0: 00 00 02 1B 45 00 00 00 00 00 00 00 00 00 02 1B ....E...........
00D0B0: 4C 00 00 00 02 1B 4D 00 00 00 00 00 02 1B 4B 00 L.....M.......K.
00D0C0: 00 00 02 1B 71 00 00 00 02 1B 70 00 00 00 00 00 ....q.....p.....
00D0D0: 7E B7 37 C8 23 F5 E5 7E CD E8 01 E1 F1 3D C8 18 ~.7.#..~.....=..
00D0E0: F3 CD 00 02 0D 0A 00 C9 6F E5 CD A6 00 C9 FE 80 ........o.......
00D0F0: DC 6B 02 D4 84 02 E6 7F 18 EE E5 21 EE 01 18 04 .k.........!....
00D100: E5 21 E8 01 22 13 02 E1 E3 F5 C5 D5 7E 23 B7 28 .!..".......~#.(
00D110: 07 E5 CD E8 01 E1 18 F4 D1 C1 F1 E3 C9 7D B4 C8 .............}..
00D120: 3A 24 01 87 87 87 E3 E3 E3 E3 C5 01 D2 04 C1 3D :$.............=
00D130: 20 F4 2B 18 E8 CD D0 01 D8 2A CE 01 18 DF F5 C5 .+......*......
00D140: D5 E5 21 A8 01 CD 35 02 21 A2 01 CD D0 01 2A BA ..!...5.!.....*.
00D150: 01 D4 1D 02 E1 D1 C1 F1 C9 F5 C5 D5 E5 21 B4 01 .............!..
00D160: 18 E9 F5 C5 D5 E5 21 AE 01 18 E0 F5 3A E0 00 B7 ......!.....:...
00D170: 28 10 C5 D5 E5 AF 32 E0 00 21 C8 01 CD 35 02 E1 (.....2..!...5..
00D180: D1 C1 F1 C9 F5 3A E0 00 FE FF 28 F6 C5 D5 E5 3E .....:....(....>
00D190: FF 32 E0 00 21 C2 01 18 E3 F5 C5 D5 E5 21 BC 01 .2..!........!..
00D1A0: 18 DA F5 C5 D5 E5 E5 11 F0 00 21 8B 01 01 10 00 ..........!.....
00D1B0: ED B0 D1 3A 9E 01 4F 3A 9C 01 82 D5 CD DC 02 D1 ...:..O:........
00D1C0: 3A 9F 01 4F 3A 9D 01 83 CD DC 02 21 F0 00 CD D0 :..O:......!....
00D1D0: 01 2A A0 01 CD 1D 02 E1 D1 C1 F1 C9 21 F0 00 06 .*..........!...
00D1E0: 00 09 EB 21 9B 01 34 35 28 02 12 C9 1B 1B 21 0A ...!..45(.....!.
00D1F0: 03 06 03 2B 0E 2F 0C 96 30 FC 86 F5 79 FE 30 28 ...+./..0...y.0(
00D200: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
00D210: 0B 00 00 00 02 09 4E E5 0B 00 41 02 00 00 00 02 ......N...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: E5 E5 DD 39 D9 2E 05 D9 3E 08 08 CD C6 0B 38 03 ...9....>.....8.
00D310: CD AC 0B 3F CB 15 08 3D 20 0C DD 75 05 DD 2B D9 ...?...= ..u..+.
00D320: 2D D9 28 0E 3E 08 CD 86 0B 30 DF 08 CD AC 0B B7 -.(.>....0......
00D330: 18 E1 CD 86 0B 38 04 CD C6 0B 3F E1 D1 C1 CB 78 .....8....?....x
00D340: 20 05 CD 87 0B 18 9A 2C 20 97 37 18 95 38 06 C6 ......, .7..8..
00D350: 80 38 06 18 1B C6 80 38 17 6F DD E3 D9 E5 C5 78 .8.....8.o.....x
00D360: CB F8 D9 A8 E6 80 F5 CB F8 DD E5 DD 21 00 00 C9 ............!...
00D370: E1 D8 AF 6F 47 4F 57 5F 67 C9 B7 CB 18 CB 19 CB ...oGOW_g.......
00D380: 1A CB 1B CB 1C C9 B7 CB 14 CB 13 CB 12 CB 11 CB ................
00D390: 10 C9 7C D9 84 D9 67 7B D9 8B D9 5F 7A D9 8A D9 ..|...g{..._z...
00D3A0: 57 79 D9 89 D9 4F 78 D9 88 D9 47 C9 7C D9 94 D9 Wy...Ox...G.|...
00D3B0: 67 7B D9 9B D9 5F 7A D9 9A D9 57 79 D9 99 D9 4F g{..._z...Wy...O
00D3C0: 78 D9 98 D9 47 C9 78 D9 B8 D9 C0 79 D9 B9 D9 C0 x...G.x....y....
00D3D0: 7A D9 BA D9 C0 7B D9 BB D9 C0 7C D9 BC D9 C9 D9 z....{....|.....
00D3E0: 78 D9 A8 F2 E9 0B 78 17 C9 CB 78 28 06 CD F3 0B x.....x...x(....
00D3F0: C8 3F C9 7D D9 BD D9 C0 B7 C8 C3 C6 0B 7D D6 81 .?.}.........}..
00D400: DA 72 0B 3C FE 28 D0 D9 C5 D5 E5 08 CD 72 0B 08 .r.<.(.......r..
00D410: 37 CD 7B 0B 3D 20 F9 D9 7C D9 A4 D9 67 7B D9 A3 7.{.= ..|...g{.£
00D420: D9 5F 7A D9 A2 D9 57 79 D9 A1 D9 4F 78 D9 A0 D9 ._z...Wy...Ox...
00D430: 47 C3 7B 0A D9 C5 D5 E5 D9 CD AC 0F D9 CD FD 0B G.{.............
00D440: D9 CD 81 0A 18 EB 7D B7 C8 CB 78 3E 03 C2 27 20 ......}...x>..'
00D450: CD AC 0F 7D C6 80 CB 2F C6 80 6F D6 14 F5 D9 C5 ...}.../..o.....
00D460: D5 E5 CD F5 0A CD 0D 0A 2D C5 D5 E5 CD 81 0A 7D ........-......}
00D470: E1 D1 C1 D9 E1 D1 C1 E3 BC E3 30 E3 F1 D9 C9 D9 ..........0.....
00D480: CD 8E 0F 2D CD 81 0A D9 CD 8E 0F 2C D9 7D FE 6C ...-.......,.}.l
00D490: D8 C5 CB B8 CD DF 0B C1 38 09 CD F5 0A CD 34 0C ........8.....4.
00D4A0: CD 97 0A CB 78 28 03 CD 0D 0A D9 2D D9 CD DF 0B ....x(.....-....
00D4B0: F5 38 03 CD 81 0A D9 2D D9 CD DF 0B 38 05 D9 2C .8.....-....8..,
00D4C0: CD 81 0A 7D FE 6C 38 3B D9 01 AA 2A 11 AA AA 21 ...}.l8;...*...!
00D4D0: 7F AA CD 97 0A DD E5 DD 21 07 0D 3E 05 CD 34 0F ........!..>..4.
00D4E0: DD E1 CD AC 0F CD 97 0A CD 97 0A C5 D5 E5 D9 CD ................
00D4F0: AC 0F 2D 2D D9 2D CD 0D 0A D9 E1 D1 C1 D9 CD 81 ..--.-..........
00D500: E1 03 77 1E 01 FE 08 28 36 FE 7F 28 32 1D FE 18 ..w....(6..(2...
00D510: 28 2D FE 1B 28 29 FE 1A 28 36 FE 0D 28 38 FE 20 (-..()..(6..(8.
00D520: 30 11 FE 03 20 D9 3A DD 00 B7 28 D3 DD 2A E4 00 0... .:...(..*..
00D530: C3 16 20 79 BA 28 C8 7E 14 23 CD C9 03 18 C0 15 .. y.(.~.#......
00D540: FA FD 14 2B CD 00 02 08 20 08 00 1D 28 B1 18 EF ...+.... ...(...
00D550: 04 05 28 AB 18 04 04 05 20 04 36 1A 18 08 CD E1 ..(..... .6.....
00D560: 01 36 0D 23 36 0A 23 22 D6 00 C9 2A E2 00 3A D0 .6.#6.#"...*..:.
00D570: 00 B7 20 79 7E CB 6F 20 70 E6 0F 20 2E 23 23 7E .. y~.o p.. .##~
00D580: B7 F2 97 15 0E 14 E5 CD BA 19 E1 28 08 E5 11 2E ...........(....
00D590: 00 19 36 1A E1 AF 77 34 C6 2E 5F 16 00 19 7E FE ..6...w4.._...~.
00D5A0: 1A 20 3D 2A E2 00 23 23 35 18 35 3D 20 1B 2A D4 . =*..##5.5= .*.
00D5B0: 00 ED 5B D6 00 B7 ED 52 38 05 06 FF CD EA 14 2A ..[....R8......*
00D5C0: D4 00 7E 23 22 D4 00 18 17 3D 20 06 CD A3 00 7D ..~#"....= ..£.}
00D5D0: 18 0E 3D 3D 20 06 CD AF 00 7D 18 04 CD B5 00 7D ..== ....}.....}
00D5E0: 2A E2 00 CB EE 23 77 2B C9 23 7E 2B C9 3E 1A C9 *....#w+.#~+.>..
00D5F0: E5 2A E2 00 7E E6 0F FE 06 28 27 CD 6B 15 FE 21 .*..~....('.k..!
00D600: 30 08 FE 1A 28 04 CB AE 18 F1 11 5D 00 06 1E C5 0...(......]....
00D610: D5 CD 6B 15 D1 C1 FE 21 38 06 CB AE 12 13 10 EF ..k....!8.......
00D620: AF 12 E1 C9 DD 21 5D 00 DD 7E 00 B7 C8 06 00 FE .....!]..~......
00D630: 2D C0 04 DD 23 C9 38 05 DD 7E 00 B7 C8 3E 10 32 -...#.8..~...>.2
00D640: D0 00 37 C9 E5 CD 6B 15 CB AE E1 77 C9 3E AF 4F ..7...k....w.>.O
00D650: C5 CD F0 15 C1 CD 24 16 C8 C5 E5 CD F7 07 D1 C1 ......$.........
00D660: CD 36 16 D8 05 CC 83 07 EB 73 0C 0D 20 02 23 72 .6.......s.. .#r
00D670: EB C9 CD F0 15 CD 24 16 C8 C5 E5 CD A3 11 D9 E1 ......$.....£...
00D680: C1 CD 36 16 D8 05 D9 CC 8F 0A D9 C3 D1 05 E5 EB ..6.............
00D690: 0E 00 C5 D5 CD 6B 15 D1 C1 FE 0D 28 0B FE 1A 28 .....k.....(...(
00D6A0: 07 CB AE 0C 13 12 10 EA E1 71 C9 CD 6B 15 FE 1A .........q..k...
00D6B0: 28 13 CB AE FE 0A 28 0D FE 0D 20 EF CD 6B 15 FE (.....(... ..k..
00D6C0: 0A 20 02 CB AE C9 2A E2 00 4F 3A D0 00 B7 C0 7E . ....*..O:....~
00D6D0: E6 0F 20 10 23 23 E5 7E C6 2E 5F 16 00 19 71 E1 .. .##.~.._...q.
00D6E0: 34 F0 18 28 FE 06 28 15 E1 06 00 C5 E5 3D CA A6 4..(..(......=..
00D6F0: 00 3D 3D CA A9 00 3D CA AC 00 C3 B2 00 2A E8 00 .==...=......*..
00D700: 0A 2C 2C F1 2C 2D C8 D8 78 EE 80 47 C9 67 AA 3F .,,.,-..x..G.g.?
00D710: 2B 32 D7 6E B6 2A 1D EF 38 74 0D D0 00 0D D0 7A +2.n.*..8t.....z
00D720: 88 88 88 88 08 7E AB AA AA AA AA 2C 2D 3E 04 CA .....~.....,->..
00D730: 27 20 CB 78 C2 27 20 D9 CD 98 0F D9 7D 2E 81 95 ' .x.' .....}...
00D740: F5 CD F5 0A D9 CD 86 0F D9 CD 81 0A C5 D5 E5 D9 ................
00D750: 2C CD 0D 0A D9 E1 D1 C1 CD F5 0A DD E5 DD 21 8C ,.............!.
00D760: 0D 3E 06 CD 34 0F DD E1 2C D9 CD A2 0F 2D D9 CD .>..4...,....-..
00D770: 0D 0A F1 C5 D5 E5 6F 26 00 30 01 25 CD 08 10 D9 ......o&.0.%....
00D780: 2C CD 97 0A D9 E1 D1 C1 CD 0D 0A 7D FE 67 DA 72 ,..........}.g.r
00D790: 0B C9 7D 8A 9D D8 89 1D 7D E9 A2 8B 2E 3A 7D 8E ..}.....}....:}.
00D7A0: E3 38 8E 63 7E 49 92 24 49 12 7E CD CC CC CC 4C .8.c~I.$I.~....L
00D7B0: 7F AB AA AA AA 2A D9 CD A2 0F D9 B7 CB 78 F5 CB .....*.......x..
00D7C0: B8 CD F5 0A 7D FE 88 30 47 C5 D5 E5 2C CD D0 0F ....}..0G...,...
00D7D0: E5 CB 3C CB 1D 7D E1 F5 CD 08 10 2C 2D 28 01 2D ..<..}.....,-(.-
00D7E0: D9 F1 E1 D1 C1 F5 CD 81 0A DD E5 DD 21 10 0E 3E ............!..>
00D7F0: 08 CD 49 0F DD E1 F1 30 0A F5 D9 CD 98 0F D9 CD ..I....0........
00D800: 97 0A F1 85 6F 38 09 F1 C8 D9 CD 86 0F C3 F5 0A ....o8..........
00D810: E1 3E 01 C3 27 20 6D 2E 1D 11 60 31 70 46 2C FE .>..' m...`1pF,.
00D820: E5 7F 74 36 7C 89 84 21 77 53 3C FF C3 2E 7A D2 ..t6|..!wS<...z.
00D830: 7D 5B 95 1D 7C 25 B8 46 58 63 7E 16 FC EF FD 75 }[..|%.FXc~....u
00D840: 80 D2 F7 17 72 31 7D B7 C8 DD E5 D9 CD 86 0F D9 ....r1}.........
00D850: AF CB 78 28 03 3C CB B8 F5 CD DF 0B 38 08 D9 CD ..x(.<......8...
00D860: F5 0A F1 CB FF F5 D9 01 CF 06 11 8E E9 21 7E 4A .............!~J
00D870: D9 CD DF 0B 30 05 CD 2E 0F 18 4F DD 21 CE 0E 3E ....0.....O.!..>
00D880: 02 08 D9 11 12 00 DD 19 CD 73 0F D9 CD DF 0B 38 .........s.....8
00D890: 0B 08 3D 20 EC D9 11 0C 00 DD 19 D9 D9 CD 6E 0F ..= ..........n.
00D8A0: CB F8 CD 0D 0A C5 D5 E5 CD 73 0F CD 97 0A D9 CD .........s......
00D8B0: 86 0F CD 0D 0A D9 E1 D1 C1 CD F5 0A DD E5 CD 2E ................
00D8C0: 0F DD E1 D9 CD 6E 0F CD 0D 0A F1 17 30 0A F5 D9 .....n......0...
00D8D0: CD 8E 0F 2D CD 81 0A F1 DD E1 CB 4F C8 CB F8 C9 ...-.......O....
00D8E0: 7F E7 CF CC 13 54 7F F6 F4 A2 30 09 7F 6A C1 91 .....T....0..j..
00D8F0: 0A 06 80 B5 9E 8A 6F 44 80 82 2C 3A CD 13 80 6A ......oD..,:...j
00D900: 3A EA 00 BE C8 34 5E 16 00 19 71 C9 2A E2 00 23 :....4^...q.*..#
00D910: 23 7E B7 C8 36 00 0E 15 CD BA 19 C8 3E F0 32 D0 #~..6.......>.2.
00D920: 00 C9 7D C3 C6 16 C1 D1 C5 DD 2A D2 00 CB 7C 28 ..}.......*...|(
00D930: 06 CD 83 07 EB 18 0E EB CB 7C 28 09 CD 83 07 DD .........|(.....
00D940: 36 00 2D DD 23 D5 CD C6 07 E1 CD C8 04 ED 5B D2 6.-.#.........[.
00D950: 00 DD E5 E1 B7 ED 52 4D EB 91 38 0E 28 0C 47 E5 ......RM..8.(.G.
00D960: 3E 20 C5 CD C6 16 C1 10 F7 E1 41 04 05 C8 7E C5 > ........A...~.
00D970: E5 CD C6 16 E1 C1 23 18 F3 C1 D1 D9 E1 D1 C1 D9 ......#.........
00D980: C5 DD 2A D2 00 D5 CD 27 10 18 BE C1 D1 C5 CD C8 ..*....'........
00D990: 04 CB 43 21 A1 17 0E 04 20 BF 21 A5 17 0E 05 18 ..C!.... .!.....
00D9A0: B8 54 52 55 45 46 41 4C 53 45 CD C8 04 21 02 00 .TRUEFALSE...!..
00D9B0: 39 4E 23 CD 59 17 D1 F9 D5 C9 E1 7E 23 B7 28 0C 9N#.Y......~#.(.
00D9C0: 47 7E C5 E5 CD C6 16 E1 C1 23 10 F5 E9 3E 0D CD G~.......#...>..
00D9D0: C6 16 3E 0A C3 C6 16 11 0D 01 18 0D 11 0D 00 18 ..>.............
00D9E0: 08 11 1A 01 18 03 11 1A 00 22 E2 00 CB 7E 28 1C ........."...~(.
00D9F0: D5 CD 6B 15 D1 BB 28 10 FE 1A 28 0C FE 21 30 0C ..k...(...(..!0.
00DA00: 14 15 28 08 CB AE 18 E8 21 01 00 C9 21 00 00 C9 ..(.....!...!...
00DA10: 3E AF 32 E8 00 ED 53 E6 00 CD 7A 18 3A D0 00 B7 >.2...S...z.:...
00DA20: C0 CD 30 14 3A D0 00 B7 C0 2A E2 00 36 D0 23 23 ..0.:....*..6.##
00DA30: 77 11 06 00 19 77 23 77 11 24 00 19 77 23 77 11 w....w#w.$..w#w.
00DA40: D6 FF 19 3A E8 00 B7 20 1B E5 01 04 00 AF CD 09 ...:... ........
00DA50: 19 E1 23 23 4E 23 46 2A E6 00 B7 ED 42 C8 3E 90 ..##N#F*....B.>.
00DA60: 32 D0 00 C9 E5 AF 77 23 77 23 ED 5B E6 00 73 23 2.....w#w#.[..s#
00DA70: 72 E1 01 04 00 3E 03 C3 09 19 22 E2 00 7E E6 C0 r....>...."..~..
00DA80: C8 CD AE 19 2A E2 00 11 2D 00 19 AF 77 23 77 11 ....*...-...w#w.
00DA90: D4 FF 19 77 23 23 01 04 00 3E 01 CD 09 19 CD AE ...w##...>......
00DAA0: 19 C3 81 14 E3 22 E4 00 E3 22 E2 00 7E E6 C0 C0 ....."..."..~...
00DAB0: 3E 04 32 D0 00 C9 3A D0 00 B7 C0 E5 CD 5A 1A EB >.2...:......Z..
00DAC0: B7 ED 52 E1 30 10 AF CD 09 19 2A E2 00 11 08 00 ..R.0.....*.....
00DAD0: 19 34 C0 23 34 C9 3E 99 32 D0 00 C9 3A D0 00 B7 .4.#4.>.2...:...
00DAE0: C0 E5 CD 5A 1A B7 ED 52 3E 01 20 10 2A E2 00 11 ...Z...R>. .*...
00DAF0: 04 00 19 34 20 04 23 34 28 08 3E 03 E1 CD 09 19 ...4 .#4(.>.....
00DB00: C1 91 0A 06 81 00 00 00 00 00 80 21 A2 DA 0F 49 ...........!...I
00DB10: 7D E8 A2 8B 2E BA 7D 8E E3 38 8E 63 7E 49 92 24 }.....}..8.c~I.$
00DB20: 49 92 7E CD CC CC CC 4C 7F AB AA AA AA AA DD 21 I.~....L.......!
00DB30: 0A 0F 3E 05 C5 D5 E5 F5 CD AC 0F CD 97 0A F1 CD ..>.............
00DB40: 49 0F D9 E1 D1 C1 C3 97 0A F5 D9 CD 6E 0F 18 10 I...........n...
00DB50: F5 D9 C5 D5 E5 CD 6E 0F CD 0D 0A D9 E1 D1 C1 D9 ......n.........
00DB60: CD 97 0A F1 3D 20 E9 D9 CD 86 0F C3 0D 0A 11 06 ....= ..........
00DB70: 00 DD 19 DD 6E 00 DD 66 01 DD 5E 02 DD 56 03 DD ....n..f..^..V..
00DB80: 4E 04 DD 46 05 C9 21 81 00 44 4C 54 5C C9 01 0F N..F..!..DLT\...
00DB90: 49 11 A2 DA 21 82 21 C9 01 04 35 11 33 F3 21 81 I...!.!...5.3.!.
00DBA0: FA C9 01 72 31 11 F7 17 21 80 D2 C9 C5 D5 E5 D9 ...r1...!.......
00DBB0: E1 D1 C1 C9 CD 92 07 21 80 00 3E 20 CB 78 20 0D .......!..> .x .
00DBC0: CB 23 CB 12 CB 11 CB 10 2D 3D 20 F0 6F CB B8 C9 .#......-= .o...
00DBD0: CB 78 D9 CD 86 0F 28 02 CB F8 2D CD 0D 0A B7 CB .x....(...-.....
00DBE0: 7D 28 1C CB 78 08 CB F8 3E 8F BD 38 16 28 06 CD }(..x...>..8.(..
00DBF0: 7A 0B 2C 18 F3 CD 7A 0B 08 60 69 C8 C3 83 07 21 z.,...z..`i....!
00DC00: 00 00 C9 3E 92 C3 27 20 7C B5 CA 72 0B CB 7C 08 ...>..' |..r..|.
00DC10: CD 80 07 3E 90 29 3D CB 7C 28 FA 44 4D 11 00 00 ...>.)=.|(.DM...
00DC20: 62 6F 08 C0 CB B8 C9 CD C8 04 EB 1E 00 38 04 FE bo...........8..
00DC30: 19 38 18 1D CD C8 04 D9 CB 78 D9 16 07 28 01 14 .8.......x...(..
00DC40: 92 30 01 AF FE 09 38 02 3E 09 3C 57 D5 D9 FD 21 .0....8.>.<W...!
00DC50: 5D 00 DD E5 CD EB 10 DD E1 D1 4F 7A 3C CB 7B 20 ].........Oz<.{
00DC60: 10 81 F2 6B 10 FD 36 00 00 18 0B FE 0C 38 02 3E ...k..6......8.>
00DC70: 0B D5 CD 80 11 D1 CB 78 28 05 3E 2D CD E5 10 CB .......x(.>-....
00DC80: 7B 28 03 61 0E 00 CB 79 28 05 CD E3 10 18 07 CD {(.a...y(.......
00DC90: D9 10 0D F2 8F 10 7A B7 28 17 3E 2E CD E5 10 0C ......z.(.>.....
00DCA0: 28 06 CD E3 10 15 20 F7 15 FA B1 10 CD D9 10 18 (..... .........
00DCB0: F7 CB 7B C8 3E 45 CD E5 10 3E 2B CB 7C 28 06 7C ..{.>E...>+.|(.|
00DCC0: ED 44 67 3E 2D CD E5 10 7C 06 2F 04 D6 0A 30 FB .Dg>-...|./...0.
00DCD0: C6 3A DD 70 00 DD 23 18 0C FD 7E 00 FD 23 B7 20 .:.p..#...~..#.
00DCE0: 04 FD 2B 3E 30 DD 77 00 DD 23 C9 FD E5 2C 2D 20 ..+>0.w..#...,-
00DCF0: 0E 06 0C FD 36 00 30 FD 23 10 F8 AF C3 7D 11 C5 ....6.0.#....}..
00DD00: 18 C8 E1 3E F2 32 D0 00 C9 32 E9 00 EB 2A E2 00 ...>.2...2...*..
00DD10: CB 66 28 2F CB A6 3A E9 00 CB 47 28 18 23 23 7E .f(/..:...G(.##~
00DD20: 2B 2B B7 20 10 3A E9 00 CB 4F 20 17 78 B7 20 13 ++. .:...O .x. .
00DD30: 79 B7 FA 43 19 C5 D5 0E 21 CD BA 19 D1 C1 20 51 y..C....!..... Q
00DD40: 2A E2 00 3A E9 00 CB 47 28 02 CB EE 23 23 7E C6 *..:...G(...##~.
00DD50: 2E D5 5F 16 00 19 D1 D6 2E CD 9A 19 ED A0 E2 66 .._............f
00DD60: 19 3C F2 5C 19 3D 3C CD 9A 19 2A E2 00 23 23 E6 .<.\.=<...*..##.
00DD70: 7F 77 20 16 C5 D5 E5 CD AE 19 E1 D1 C1 20 15 D5 .w .......... ..
00DD80: 11 2B 00 19 D1 34 20 02 23 34 78 B1 C2 0D 19 EB .+...4 .#4x.....
00DD90: C9 3E 99 01 3E F0 32 D0 00 C9 F5 3A E9 00 CB 47 .>..>.2....:...G
00DDA0: 28 01 EB F1 C9 22 E2 00 CD AE 19 C8 18 E6 0E 22 (...."........."
00DDB0: 2A E2 00 CB E6 CB 6E C8 CB AE 2A E2 00 E5 C5 11 *.....n...*.....
00DDC0: 30 00 19 EB 0E 1A CD 05 00 C1 E1 11 0C 00 19 EB 0...............
00DDD0: CD 05 00 B7 C9 C1 D1 ED 53 E2 00 C5 E5 CD 5A 1A ........S.....Z.
00DDE0: D1 B7 ED 52 38 40 2A E2 00 01 06 00 09 4E 23 46 ...R8@*......N#F
00DDF0: 23 73 23 72 CD 2C 1A 01 04 00 09 30 01 13 7D E6 #s#r.,.....0..}.
00DE00: 7F 29 EB ED 6A EB 53 5C 2A E2 00 23 23 77 01 2B .)..j.S\*..##w.+
00DE10: 00 09 4E 23 46 EB B7 ED 42 09 C8 D5 E5 CD AE 19 ..N#F...B.......
00DE20: D1 E1 72 2B 73 C9 3E 91 32 D0 00 C9 D5 D9 E1 D9 ..r+s.>.2.......
00DE30: 21 00 00 54 5D 3E 10 29 EB ED 6A EB D9 29 D9 30 !..T]>.)..j..).0
00DE40: 04 09 30 01 13 3D 20 EF C9 CD 5D 1A B7 ED 52 21 ..0..= ...]...R!
00DE50: 00 00 C0 23 C9 CD 5D 1A EB C9 2A E2 00 11 04 00 ...#..]...*.....
00DE60: 19 5E 23 56 23 D5 4E 23 46 23 5E 23 56 E1 C9 3E .^#V#.N#F#^#V..>
00DE70: AF 32 E8 00 CD B0 1A 3A D0 00 B7 C0 CD 30 14 3A .2.....:.....0.:
00DE80: D0 00 B7 C0 2A E2 00 36 C0 E5 11 0C 00 19 EB 0E ....*..6........
00DE90: 23 CD 05 00 E1 11 2D 00 19 AF 4E 77 23 46 77 11 #.....-...Nw#Fw.
00DEA0: D6 FF 19 71 23 70 23 36 80 23 77 23 77 23 77 C9 ...q#p#6.#w#w#w.
00DEB0: 22 E2 00 7E E6 C0 C8 C3 81 14 3E 22 18 02 3E 21 "..~......>"..>!
00DEC0: 44 4D 21 F0 00 22 E6 00 DD E1 D1 E1 DD E5 C5 CD DM!.."..........
00DED0: FD 1A C1 3A D0 00 B7 C0 2A F0 00 ED 42 C8 3A E9 ...:....*...B.:.
00DEE0: 00 FE 21 3E 99 28 02 3E F0 32 D0 00 C9 3E 22 18 ..!>.(.>.2...>".
00DEF0: 02 3E 21 22 E6 00 DD E1 C1 D1 E1 DD E5 32 E9 00 .>!".........2..
00DF00: CB B8 7D D9 D6 80 6F 9F 67 11 4D 00 CD F5 06 11 ..}...o.g.M.....
00DF10: 05 00 19 7C FE D9 20 01 3C FD 77 00 ED 44 CD 40 ...|.. .<.w..D.@
00DF20: 12 7D FE 81 30 06 CD B3 12 FD 35 00 CB F8 3E 84 .}..0.....5...>.
00DF30: 95 2E 00 28 08 CD 7A 0B CB 1D 3D 20 F8 FD 7E 00 ...(..z...= ..~.
00DF40: F5 3E 0C 08 78 1F 1F 1F 1F E6 0F C6 30 FD 77 00 .>..x.......0.w.
00DF50: FD 23 78 E6 0F 47 C5 D5 E5 CB 25 CD 87 0B CB 25 .#x..G....%....%
00DF60: CD 87 0B EB E3 19 D1 E3 ED 5A EB E1 E3 ED 4A 44 .........Z....JD
00DF70: 4D E1 CB 25 CD 87 0B 08 3D 20 C8 F1 C1 FD E1 C9 M..%....= ......
00DF80: FD E5 E1 5F 16 00 19 7E 36 00 FE 35 D8 1D FA 9C ..._...~6..5....
00DF90: 11 2B 7E 3C 77 FE 3A D8 36 00 18 F1 36 31 23 36 .+~<w.:.6...61#6
00DFA0: 00 0C C9 D9 01 00 00 D9 CD 72 0B DD 7E 00 CD A6 .........r..~...
00DFB0: 04 FE 2E 20 0C D9 CB 70 37 C0 CB F0 D9 DD 23 18 ... ...p7.....#.
00DFC0: EA FE 45 28 21 CD 39 12 30 54 08 CD B3 12 D8 08 ..E(!.9.0T......
00DFD0: D9 C5 6F 26 00 CD 08 10 CD E9 09 D9 C1 D8 CB 70 ..o&...........p
00DFE0: 28 01 0D D9 18 D7 CD 1E 12 D8 D9 CB E0 DD 23 DD (.............#.
00DFF0: 7E 00 FE 2B 28 06 FE 2D 20 04 CB E8 DD 23 CD 36 ~..+(..- ....#.6
00E000: 12 3F D8 4F DD 23 CD 36 12 30 0A DD 23 57 79 87 .?.O.#.6.0..#Wy.
00E010: 87 81 87 82 4F CB 68 28 04 79 ED 44 4F D9 D9 79 ....O.h(.y.DO..y
00E020: C6 80 FE 5A D8 FE A6 3F D8 C5 DD E5 79 CD 40 12 ...Z...?....y.@.
00E030: DD E1 D9 C1 D9 C9 DD 7E 00 D6 30 3F D0 FE 0A C9 .......~..0?....
00E040: F5 B7 F2 47 12 ED 44 F5 CB 3F CB 3F 3C 21 FA FF ...G..D..?.?<!..
00E050: 11 06 00 19 3D 20 FC EB DD 21 77 12 DD 19 CD 73 ....= ...!w....s
00E060: 0F F1 E6 03 28 08 F5 CD B3 12 F1 3D 20 F8 F1 B7 ....(......= ...
00E070: F2 97 0A D9 C3 F5 0A 81 00 00 00 00 00 8E 00 00 ................
00E080: 00 40 1C 9B 00 00 20 BC 3E A8 00 10 A5 D4 68 B6 .@.... .>.....h.
00E090: 04 BF C9 1B 0E C3 AC C5 EB 78 2D D0 CD CE 1B C2 .........x-.....
00E0A0: 53 DE F9 78 39 3F 01 EB 2B A8 AD C5 1D F8 C9 7B S..x9?..+......{
00E0B0: CE 97 40 7D B7 C8 CB F8 C5 D5 7C CD 7A 0B CD 7A ..@}......|.z..z
00E0C0: 0B 84 67 E3 ED 5A EB E1 E3 ED 4A 44 4D E1 30 06 ..g..Z....JDM.0.
00E0D0: CD 7B 0B 2C 37 C8 7D C6 03 6F CB B8 C9 0E 01 18 .{.,7.}..o......
00E0E0: 02 0E 00 CD 3F 13 1A BE 20 08 23 13 10 F8 79 EE ....?... .#...y.
00E0F0: 01 4F 21 40 00 39 F9 69 26 00 DD E9 0E 01 18 02 .O!@.9.i&.......
00E100: 22 E2 00 7E E6 C0 CA B0 18 2A E6 00 AF 77 23 77 "..~.....*...w#w
00E110: 78 B1 28 39 C5 D5 0E 1A CD 05 00 2A E2 00 11 0C x.(9.......*....
00E120: 00 19 EB 3A E9 00 4F CD 05 00 D1 C1 B7 20 1E D5 ...:..O...... ..
00E130: 2A E2 00 11 2D 00 19 34 20 02 23 34 D1 21 80 00 *...-..4 .#4.!..
00E140: 19 EB 2A E6 00 34 20 02 23 34 0B 18 C3 2A E2 00 ..*..4 .#4...*..
00E150: 11 2D 00 19 4E 23 46 11 DA FF 19 71 23 70 11 FC .-..N#F....q#p..
00E160: FF 19 56 2B 5E EB B7 ED 42 D0 EB 71 23 70 C9 C1 ..V+^...B..q#p..
00E170: D1 ED 53 E2 00 C5 E5 CD 5A 1A D1 B7 ED 52 DA 26 ..S.....Z....R.&
00E180: 1A 2A E2 00 01 08 00 09 73 23 72 01 24 00 09 73 .*......s#r.$..s
00E190: 23 72 C9 CD 4C 1C C0 11 0C 00 19 EB 0E 13 CD 05 #r..L...........
00E1A0: 00 3C C0 18 3F FD E1 2A D2 00 06 10 CD E2 05 AF .<..?..*........
00E1B0: 12 E1 FD E5 CD 4C 1C C0 E5 CD F2 03 E1 E5 11 1C .....L..........
00E1C0: 00 19 EB 21 5C 00 01 0C 00 ED B0 E1 11 0C 00 19 ...!\...........
00E1D0: E5 EB 0E 17 CD 05 00 D1 3C 28 09 21 5C 00 01 24 ........<(.!\..$
00E1E0: 00 ED B0 C9 3E 01 32 D0 00 C9 3E AF 32 E8 00 CD ....>.2...>.2...
00E1F0: 4C 1C C0 3A D8 00 B7 3E 21 28 EB 2A E2 00 11 0C L..:...>!(.*....
00E200: 00 19 11 5C 00 01 24 00 ED B0 11 5C 00 0E 0F CD ...\..$....\....
00E210: 05 00 3C 28 CF 21 33 1C 11 B0 00 01 19 00 ED B0 ..<(.!3.........
00E220: 11 00 01 3A E8 00 B7 20 04 ED 5B 01 01 31 00 01 ...:... ..[..1..
00E230: C3 B0 00 D5 0E 1A CD 05 00 11 5C 00 0E 14 CD 05 ..........\.....
00E240: 00 D1 21 80 00 19 EB B7 28 E9 18 37 22 E2 00 7E ..!.....(..7"..~
00E250: E6 0F C8 3E 20 32 D0 00 C9 22 E6 00 ED 53 E8 00 ...> 2..."...S..
00E260: EB E1 22 E2 00 4E 73 23 46 72 EB B7 ED 42 28 5A .."..Ns#Fr...B(Z
00E270: EB 23 11 5C 00 3A DC 00 12 13 01 0B 00 ED B0 06 .#.\.:..........
00E280: 18 AF 12 13 10 FC E5 11 5C 00 0E 0F CD 05 00 D1 ........\.......
00E290: 3C 28 3F 2A E6 00 22 7D 00 ED 4B E8 00 C5 D5 0E <(?*.."}..K.....
00E2A0: 1A CD 05 00 11 5C 00 0E 21 CD 05 00 D1 C1 B7 20 .....\..!......
00E2B0: 21 2A 7D 00 23 22 7D 00 21 80 00 19 EB 0B 78 B1 !*}.#"}.!.....x.
00E2C0: 20 DB 11 5C 00 0E 10 CD 05 00 2A E2 00 11 0D 00 ..\......*.....
00E2D0: 19 E9 DD 2A E2 00 3E F0 C3 29 20 CD C8 04 FE 11 ...*..>..) .....
00E2E0: D0 32 DC 00 C9 22 F0 00 EB E1 E3 22 F2 00 13 13 .2..."....."....
00E2F0: 13 7B E6 FC 5F 21 DE 00 22 F8 00 DD 2A DE 00 DD .{.._!.."...*...
00E300: 0E 00 CD 3F 13 0D 20 01 EB 0E 00 1A B6 BE 20 E2 ...?.. ....... .
00E310: 23 13 10 F7 0E 01 18 DA CD 3F 13 1A B6 77 23 13 #........?...w#.
00E320: 10 F9 EB F9 DD E9 CD 3F 13 1A 2F A6 77 23 13 10 .......?../.w#..
00E330: F8 18 EF CD 3F 13 1A A6 77 23 13 10 F9 18 E3 FD ....?...w#......
00E340: E1 DD E1 21 00 00 39 EB 21 20 00 45 39 FD E9 DD ...!..9.! .E9...
00E350: E1 21 21 00 39 7E B7 28 03 AF 18 06 2B 46 CD BA .!!.9~.(....+F..
00E360: 05 A6 21 22 00 39 F9 21 00 00 28 01 23 DD E9 3E ..!".9.!..(.#..>
00E370: AF 32 E8 00 FD E1 2A D2 00 06 10 CD E2 05 AF 12 .2....*.........
00E380: E1 22 E2 00 FD E5 7C B7 20 06 3E 22 32 D0 00 C9 ."....|. .>"2...
00E390: 3A E8 00 B7 28 0A CD B6 13 20 05 2A E2 00 77 C9 :...(.... .*..w.
00E3A0: CD F2 03 2A E2 00 36 00 11 0C 00 19 EB 21 5C 00 ...*..6......!\.
00E3B0: 01 24 00 ED B0 C9 06 06 21 E6 13 C5 E5 06 03 ED .$......!.......
00E3C0: 5B D2 00 13 1A FE 20 28 FA 1A CD A6 04 96 28 0A [..... (......(.
00E3D0: E1 C1 11 04 00 19 10 E3 B7 C9 23 13 10 EB C1 C1 ..........#.....
00E3E0: 1A FE 3A C0 7E C9 43 4F 4E C1 54 52 4D C1 4B 42 ..:.~.CON.TRM.KB
00E3F0: 44 82 4C 53 54 43 41 55 58 C4 55 53 52 C5 3E AF D.LSTCAUX.USR.>.
00E400: 32 E8 00 CD 69 14 3A D0 00 B7 C0 2A E2 00 CB AE 2...i.:....*....
00E410: 7E E6 0F C0 CD 30 14 3A D0 00 B7 C0 2A E2 00 3A ~....0.:....*..:
00E420: E8 00 B7 01 80 80 28 03 01 40 00 71 23 23 70 C9 ......(..@.q##p.
00E430: CD 5A 14 2A E2 00 11 0C 00 19 EB 3A E8 00 B7 01 .Z.*.......:....
00E440: 0F 01 28 0A D5 0E 13 CD 05 00 D1 01 16 F1 C5 CD ..(.............
00E450: 05 00 C1 3C C0 78 32 D0 00 C9 2A E2 00 11 18 00 ...<.x2...*.....
00E460: 19 06 18 36 00 23 10 FB C9 22 E2 00 7E E6 0F C0 ...6.#..."..~...
00E470: CB 76 28 0A 3E 1A CD C6 16 CD 0C 17 18 03 CB 7E .v(.>..........~
00E480: C8 2A E2 00 E5 11 0C 00 19 EB 0E 10 CD 05 00 E1 .*..............
00E490: 3C 20 05 3E FF 32 D0 00 36 00 C9 E3 22 E4 00 E3 < .>.2..6..."...
00E4A0: E5 21 C2 00 22 E2 00 E1 C9 E3 22 E4 00 E3 22 E2 .!.."....."...".
00E4B0: 00 CB 7E C0 3E 02 32 D0 00 C9 E3 22 E4 00 E3 22 ..~.>.2...."..."
00E4C0: E2 00 CB 76 C0 3E 03 32 D0 00 C9 3E AF E3 22 E4 ...v.>.2...>..".
00E4D0: 00 E3 E5 21 C2 00 22 E2 00 CB AE F5 CD E8 14 F1 ...!..".........
00E4E0: B7 28 03 CD E1 01 E1 C9 06 00 21 D1 00 7E FE 7F .(........!..~..
00E4F0: 38 02 3E 7E 4F 36 7E 2A D2 00 22 D4 00 16 00 CD 8.>~O6~*..".....
00E500: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
00E510: 0C 00 00 00 02 09 4E E5 0C 00 41 02 00 00 00 02 ......N...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: 6E 02 DD 66 03 7D B4 28 48 ED 52 30 0F DD 6E 00 n..f.}.(H.R0..n.
00E610: DD 66 01 E5 DD 22 F8 00 DD E1 18 E3 20 0A DD 5E .f..."...... ..^
00E620: 00 DD 56 01 DD E5 18 1B 4D 44 DD 6E 00 DD 66 01 ..V.....MD.n..f.
00E630: DD E5 DD 19 DD 75 00 DD 74 01 DD 71 02 DD 70 03 .....u..t..q..p.
00E640: DD E5 D1 2A F8 00 73 23 72 D1 2A F2 00 73 23 72 ...*..s#r.*..s#r
00E650: C9 DD E5 E1 19 22 C4 00 2A F0 00 01 04 00 09 DD ....."..*.......
00E660: E5 C1 09 DA 75 1D ED 4B C6 00 ED 42 01 00 00 21 ....u..K...B...!
00E670: 00 00 DA 30 1D 3E FF C3 27 20 EB E1 E3 7E 23 66 ...0.>..' ...~#f
00E680: 6F 13 13 13 7B E6 FC 5F EB 22 F0 00 2A DE 00 E5 o...{.._."..*...
00E690: DD E1 B7 ED 52 30 52 DD 6E 00 DD 66 01 E5 B7 ED ....R0R.n..f....
00E6A0: 52 30 04 DD E1 18 F0 E1 D5 FD E1 ED 4B F0 00 FD R0..........K...
00E6B0: 71 02 FD 70 03 FD 75 00 FD 74 01 DD 73 00 DD 72 q..p..u..t..s..r
00E6C0: 01 DD E5 E1 DD 4E 02 DD 46 03 CD 04 1E 28 09 DD .....N..F....(..
00E6D0: 5E 00 DD 56 01 D5 DD E1 DD E5 E1 DD 4E 02 DD 46 ^..V........N..F
00E6E0: 03 DD 5E 00 DD 56 01 18 1B 2A DE 00 ED 53 DE 00 ..^..V...*...S..
00E6F0: D5 DD E1 DD 75 00 DD 74 01 ED 4B F0 00 DD 71 02 ....u..t..K...q.
00E700: DD 70 03 EB 09 B7 ED 52 C0 D5 FD E1 2A C4 00 B7 .p.....R....*...
00E710: ED 52 28 1B FD 7E 00 DD 77 00 FD 7E 01 DD 77 01 .R(..~..w..~..w.
00E720: FD 6E 02 FD 66 03 09 DD 75 02 DD 74 03 AF C9 DD .n..f...u..t....
00E730: E5 E1 22 C4 00 06 04 36 00 23 10 FB C9 CD 4B 1E .."....6.#....K.
00E740: 2A F4 00 C9 CD 4B 1E 2A F6 00 C9 21 00 00 22 F4 *....K.*...!..".
00E750: 00 22 F6 00 DD 2A DE 00 DD 4E 02 DD 46 03 79 B0 ."...*...N..F.y.
00E760: 28 1E 2A F4 00 09 22 F4 00 2A F6 00 B7 ED 42 30 (.*..."..*....B0
00E770: 04 ED 43 F6 00 DD 6E 00 DD 66 01 E5 DD E1 18 D8 ..C...n..f......
00E780: 2A C6 00 01 FB FF 09 ED 5B C4 00 B7 ED 52 D8 EB *.......[....R..
00E790: 2A F4 00 19 22 F4 00 2A F6 00 B7 ED 52 D0 ED 53 *..."..*....R..S
00E7A0: F6 00 C9 ED 5B C4 00 73 23 72 C9 5E 23 56 EB 22 ....[..s#r.^#V."
00E7B0: C4 00 22 DE 00 06 04 36 00 23 10 FB C9 3E AF 4F .."....6.#...>.O
00E7C0: 22 E8 00 AF 77 32 D0 00 78 32 EA 00 2A E2 00 22 "...w2..x2..*.."
00E7D0: ED 00 21 46 1F 22 E2 00 E1 22 E4 00 E1 0C 0D 20 ..!F."...".....
00E7E0: 05 CD 26 17 18 03 CD 79 17 2A ED 00 22 E2 00 2A ..&....y.*.."..*
00E7F0: E4 00 E9 3E AF 32 EC 00 22 E8 00 2A E2 00 22 ED ...>.2.."..*..".
00E800: BE 1A CD F1 1F E5 21 00 00 D1 CD 7F 06 CB 45 CA ......!.......E.
00E810: 12 27 21 AE E2 E5 21 A7 E3 E5 2A EB E0 E5 21 7F .'!...!...*...!.
00E820: 00 D1 7C A2 67 7D A3 6F D1 19 E5 2A F9 E0 CD 64 ..|.g}£o...*...d
00E830: 1F 21 76 E3 E5 21 A7 E3 E5 21 02 00 CD BA 1A CD .!v..!...!......
00E840: F1 1F E5 21 00 00 D1 CD 7F 06 CB 45 CA 4F 27 C9 ...!.......E.O'.
00E850: FD E1 E1 22 DD E0 E1 22 DF E0 E1 22 E1 E0 E1 22 ..."..."..."..."
00E860: E3 E0 E1 22 E5 E0 E1 22 E7 E0 E1 22 E9 E0 FD E5 ..."..."..."....
00E870: 2A DF E0 E5 21 02 00 D1 CD 7F 06 E5 2A DD E0 E5 *...!.......*...
00E880: 21 02 00 D1 CD 7F 06 D1 7D A3 6F CB 45 CA B1 27 !.......}£o.E..'
00E890: 2A E9 E0 E5 2A E7 E0 E5 2A E5 E0 E5 CD 31 26 2A *...*...*....1&*
00E8A0: E9 E0 E5 2A E3 E0 E5 2A E1 E0 E5 CD B0 26 C3 9A ...*...*.....&..
00E8B0: 28 2A DF E0 E5 21 02 00 D1 CD 7F 06 E5 2A DD E0 (*...!.......*..
00E8C0: E5 21 01 00 D1 CD 7F 06 D1 7D A3 6F CB 45 CA 0A .!.......}£o.E..
00E8D0: 28 2A E9 E0 E5 2A E7 E0 E5 2A E5 E0 E5 CD 31 26 (*...*...*....1&
00E8E0: 21 01 00 E5 21 AE E2 E5 21 00 00 E5 2A E3 E0 E5 !...!...!...*...
00E8F0: 21 03 00 D1 CD 4E 07 E5 2A E1 E0 E5 CD E9 25 E5 !....N..*.....%.
00E900: 2A E9 E0 E5 CD A7 24 C3 9A 28 2A DF E0 E5 21 01 *.....$..(*...!.
00E910: 00 D1 CD 7F 06 E5 2A DD E0 E5 21 02 00 D1 CD 7F ......*...!.....
00E920: 06 D1 7D A3 6F CB 45 CA 63 28 21 00 00 E5 2A E7 ..}£o.E.c(!...*.
00E930: E0 E5 21 03 00 D1 CD 4E 07 E5 2A E5 E0 E5 CD E9 ..!....N..*.....
00E940: 25 E5 21 01 00 E5 21 AE E2 E5 2A E9 E0 E5 CD A7 %.!...!...*.....
00E950: 24 2A E9 E0 E5 2A E3 E0 E5 2A E1 E0 E5 CD B0 26 $*...*...*.....&
00E960: C3 9A 28 21 00 00 E5 2A E7 E0 E5 21 03 00 D1 CD ..(!...*...!....
00E970: 4E 07 E5 2A E5 E0 E5 CD E9 25 E5 21 00 00 E5 2A N..*.....%.!...*
00E980: E3 E0 E5 21 03 00 D1 CD 4E 07 E5 2A E1 E0 E5 CD ...!....N..*....
00E990: E9 25 E5 2A E9 E0 E5 CD A7 24 C9 FD E1 E1 22 CD .%.*.....$....".
00E9A0: E0 E1 22 CF E0 E1 22 D1 E0 E1 22 D3 E0 FD E5 21 .."..."..."....!
00E9B0: AE E2 E5 2A D1 E0 E5 2A D3 E0 CD 4E 1F 21 01 00 ...*...*...N.!..
00E9C0: E5 21 AE E2 E5 21 00 00 E5 2A CF E0 E5 21 03 00 .!...!...*...!..
00E9D0: D1 CD 4E 07 E5 2A CD E0 E5 CD E9 25 E5 2A D1 E0 ..N..*.....%.*..
00E9E0: E5 CD A7 24 C9 FD E1 E1 22 BF E0 E1 22 C1 E0 E1 ...$...."..."...
00E9F0: 22 C3 E0 FD E5 21 00 00 E5 2A C3 E0 E5 21 03 00 "....!...*...!..
00EA00: 00 21 46 1F 22 E2 00 E1 22 E4 00 E1 22 EA 00 21 .!F."..."..."..!
00EA10: 5C 00 06 1E CD E2 05 AF 12 2A EA 00 3A EC 00 B7 \........*..:...
00EA20: 20 05 CD 4E 16 18 03 CD 72 16 21 D0 00 7E 36 00 ..N....r.!..~6.
00EA30: B7 67 6F 28 08 DD E5 E1 11 5C 00 ED 52 EB 2A E8 .go(.....\..R.*.
00EA40: 00 73 23 72 18 A3 C6 00 ED 5F 32 CB 00 C9 EB DD .s#r.£..._2.....
00EA50: E1 C1 E1 78 B1 28 0B 73 0B 78 B1 28 05 54 5D 13 ...x.(.s.x.(.T].
00EA60: ED B0 DD E9 44 4D DD E1 D1 E1 78 B1 28 F4 ED 52 ....DM....x.(..R
00EA70: 19 30 ED 0B 09 EB 09 EB 03 ED B8 DD E9 55 14 15 .0...........U..
00EA80: 28 03 CD 9D 1F DD E1 4F 06 00 2F 6F 26 FF 39 F9 (......O../o&.9.
00EA90: 71 23 EB 0C 0D 28 02 ED B0 DD E9 16 00 21 80 00 q#...(.......!..
00EAA0: 3E 1F 46 B8 30 02 06 1F 23 0E 00 04 05 28 0D 7E >.F.0...#....(.~
00EAB0: FE 20 28 04 FE 09 20 04 23 05 18 EF 5D 04 05 28 . (... .#...]..(
00EAC0: 0D 7E FE 20 28 08 FE 09 28 04 23 05 18 EF 7D 93 .~. (...(.#...}.
00EAD0: 28 04 0C 15 20 D5 69 26 00 54 C9 D1 C1 D5 2D 61 (... .i&.T....-a
00EAE0: 25 C3 A2 02 7D CD A6 04 6F C9 2A 01 00 19 19 19 %...}...o.*.....
00EAF0: E9 21 D0 00 7E 36 00 6F 26 00 C9 CD 16 03 7C B5 .!..~6.o&.....|.
00EB00: C8 3A DD 00 F5 AF 32 DD 00 CD 20 03 F1 32 DD 00 .:....2... ..2..
00EB10: 7D FE 03 C0 DD E1 11 01 00 18 11 3A D0 00 B7 C8 }..........:....
00EB20: DD E1 5F 16 01 18 05 DD E1 5F 16 02 D5 CD 7A 03 .._......_....z.
00EB30: D1 AF 32 DD 00 2A CE 00 7C B5 DD E5 E1 ED 4B CC ..2..*..|.....K.
00EB40: 00 ED 42 01 15 00 09 22 CE 00 B7 20 07 D5 D5 E5 ..B...."... ....
00EB50: CD D9 00 D1 7A B7 20 14 CD 00 02 5E 43 0D 0A 55 ....z. ....^C..U
00EB60: 73 65 72 20 62 72 65 61 6B 00 18 2B 3D 20 0B CD ser break..+= ..
00EB70: 00 02 0D 0A 49 2F 4F 00 18 0E CD 00 02 0D 0A 52 ....I/O........R
00EB80: 75 6E 2D 74 69 6D 65 00 CD 00 02 20 65 72 72 6F un-time.... erro
00EB90: 72 20 00 7B CD B4 04 CD 00 02 2C 20 50 43 3D 00 r .{......, PC=.
00EBA0: 2A CE 00 CD AF 04 18 15 CD 00 02 4E 6F 74 20 65 *..........Not e
00EBB0: 6E 6F 75 67 68 20 6D 65 6D 6F 72 79 00 CD 00 02 nough memory....
00EBC0: 0D 0A 50 72 6F 67 72 61 6D 20 61 62 6F 72 74 65 ..Program aborte
00EBD0: 64 0D 0A 00 3A D8 00 B7 CA 8E 27 C3 00 00 E1 D1 d...:.....'.....
00EBE0: D1 E9 31 00 01 21 C2 F2 01 00 FF CD 64 03 21 65 ..1..!......d.!e
00EBF0: 65 11 88 D7 01 42 F3 3E 01 CD D4 04 C3 EC 64 01 e....B.>......d.
00EC00: D1 CD 4E 07 E5 2A C1 E0 E5 CD E9 25 E5 21 01 00 ..N..*.....%.!..
00EC10: E5 21 AE E2 E5 2A BF E0 E5 CD A7 24 21 00 00 E5 .!...*.....$!...
00EC20: 2A BF E0 D1 CD 66 06 7A B3 CA 58 29 D5 22 B5 E0 *....f.z..X)."..
00EC30: 21 AE E2 E5 2A B5 E0 D1 19 E5 21 AE E2 E5 2A B5 !...*.....!...*.
00EC40: E0 D1 19 6E 26 00 7D 2F 6F 7C 2F 67 EB E1 73 2A ...n&.}/o|/g..s*
00EC50: B5 E0 23 D1 1B C3 27 29 21 01 00 E5 21 AE E2 E5 ..#...')!...!...
00EC60: 21 00 00 E5 2A C3 E0 E5 21 03 00 D1 CD 4E 07 E5 !...*...!....N..
00EC70: 2A C1 E0 E5 CD E9 25 E5 2A BF E0 E5 CD A7 24 C9 *.....%.*.....$.
00EC80: FD E1 E1 22 AD E0 E1 22 AF E0 E1 22 B1 E0 E1 22 ..."..."..."..."
00EC90: B3 E0 FD E5 21 00 00 E5 2A AF E0 E5 21 03 00 D1 ....!...*...!...
00ECA0: CD 4E 07 E5 2A AD E0 E5 CD E9 25 E5 21 01 00 E5 .N..*.....%.!...
00ECB0: 2A B1 E0 E5 2A B3 E0 E5 CD A7 24 C9 FD E1 E1 22 *...*.....$...."
00ECC0: 9D E0 E1 22 9F E0 E1 22 A1 E0 E1 22 A3 E0 FD E5 ..."..."..."£...
00ECD0: 21 01 00 E5 2A A1 E0 E5 21 00 00 E5 2A 9F E0 E5 !...*...!...*...
00ECE0: 21 03 00 D1 CD 4E 07 E5 2A 9D E0 E5 CD E9 25 E5 !....N..*.....%.
00ECF0: 2A A3 E0 E5 CD A7 24 C9 FD E1 E1 7D 32 8E E0 E1 *£....$....}2...
00ED00: 22 8F E0 E1 22 91 E0 E1 22 93 E0 FD E5 2A 8E E0 "..."..."....*..
00ED10: 26 00 CB 45 CA C8 2A 2A 8F E0 22 84 E0 21 00 00 &..E..**.."..!..
00ED20: E5 2A 93 E0 E5 21 01 00 D1 EB B7 ED 52 D1 CD 66 .*...!......R..f
00ED30: 06 7A B3 CA C5 2A D5 22 80 E0 2A 91 E0 E5 21 03 .z...*."..*...!.
00ED40: 00 D1 CD 4E 07 E5 2A 84 E0 E5 CD E9 25 E5 21 00 ...N..*.....%.!.
00ED50: 40 D1 EB B7 ED 52 22 82 E0 21 76 E3 E5 2A 82 E0 @....R"..!v..*..
00ED60: E5 21 07 00 D1 CD 56 07 CD 6F 1B CD 1B 20 21 76 .!....V..o... !v
00ED70: E3 E5 21 A7 E3 E5 21 01 00 CD BE 1A CD F1 1F E5 ..!...!.........
00ED80: 21 00 00 D1 CD 7F 06 CB 45 CA 8C 2A 21 AE E2 E5 !.......E..*!...
00ED90: 2A 80 E0 D1 19 E5 21 A7 E3 E5 2A 82 E0 E5 21 7F *.....!...*...!.
00EDA0: 00 D1 7C A2 67 7D A3 6F D1 19 6E 26 00 EB E1 73 ..|.g}£o..n&...s
00EDB0: 2A 84 E0 E5 21 01 00 D1 19 22 84 E0 2A 80 E0 23 *...!...."..*..#
00EDC0: D1 1B C3 31 2A C3 E9 2A 21 AE E2 E5 2A 93 E0 E5 ...1*..*!...*...
00EDD0: 2A A7 E4 26 00 7D 2F 6F 7C 2F 67 E5 21 FF 00 D1 *..&.}/o|/g.!...
00EDE0: 7C A2 67 7D A3 6F CD 4E 1F C9 FD E1 E1 22 7A E0 |.g}£o.N....."z.
00EDF0: E1 22 7C E0 E1 22 7E E0 FD E5 21 AE E2 22 AA E4 ."|.."~...!.."..
00EE00: 07 34 78 36 2E 66 6F 6E 00 00 00 00 00 00 00 00 .4x6.fon........
00EE10: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00EE20: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00EE30: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00EE40: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00EE50: 00 E1 ED 73 B9 E1 31 CF E1 E5 F3 01 8E 7F 3E C1 ...s..1.......>.
00EE60: ED 79 ED 79 ED 4B A8 E4 ED 5B AA E4 2A AC E4 C9 .y.y.K...[..*...
00EE70: 01 8E 7F 3E C2 ED 79 FB ED 7B B9 E1 C9 CD D1 E1 ...>..y..{......
00EE80: ED B0 C3 F0 E1 CD D1 E1 1A 77 13 D5 CD 15 E2 D1 .........w......
00EE90: 10 F6 C3 F0 E1 11 00 08 19 CB 7C C8 11 B0 3F A7 ..........|...?.
00EEA0: ED 52 C9 11 00 08 A7 ED 52 CB 74 C0 11 B0 3F 19 .R......R.t...?.
00EEB0: C9 CD FD E1 2A AC E4 CD 15 E2 22 AC E4 2A AA E4 ....*....."..*..
00EEC0: CD 15 E2 22 AA E4 3A AE E4 3D 32 AE E4 20 E2 C9 ..."..:..=2.. ..
00EED0: CD FD E1 2A AC E4 CD 23 E2 22 AC E4 2A AA E4 CD ...*...#."..*...
00EEE0: 23 E2 22 AA E4 3A AE E4 3D 32 AE E4 20 E2 C9 CD #."..:..=2.. ...
00EEF0: D1 E1 7E 2F 77 23 0B 78 B1 20 F7 C3 F0 E1 C9 FD ..~/w#.x. ......
00EF00: E1 E1 22 AB E1 E1 22 AD E1 FD E5 21 00 40 E5 2A .."..."....!.@.*
00EF10: AB E1 E5 21 07 00 D1 7C A2 67 7D A3 6F E5 21 00 ...!...|.g}£o.!.
00EF20: 08 D1 CD F5 06 E5 2A AB E1 E5 21 03 00 D1 CD 56 ......*...!....V
00EF30: 07 E5 21 50 00 D1 CD F5 06 D1 19 E5 2A AD E1 D1 ..!P........*...
00EF40: 19 E5 21 FF 7F D1 7C A2 67 7D A3 6F D1 19 22 AF ..!...|.g}£o..".
00EF50: E1 2A AF E1 C9 FD E1 E1 7D 32 96 E1 E1 22 97 E1 .*......}2..."..
00EF60: E1 22 99 E1 E1 22 9B E1 E1 22 9D E1 E1 22 9F E1 ."..."..."..."..
00EF70: E1 22 A1 E1 FD E5 2A 9B E1 E5 2A 9F E1 D1 EB B7 ."....*...*.....
00EF80: ED 52 E5 21 01 00 D1 19 22 A8 E4 2A 99 E1 E5 2A .R.!...."..*...*
00EF90: 9D E1 D1 EB B7 ED 52 E5 21 01 00 D1 19 7D 32 AE ......R.!....}2.
00EFA0: E4 21 FD E1 E5 21 04 00 D1 19 E5 21 B0 00 EB E1 .!...!.....!....
00EFB0: 73 2A A1 E1 11 00 00 B7 ED 52 C2 E8 22 2A 9F E1 s*.......R.."*..
00EFC0: E5 2A 9D E1 E5 CD FF 21 22 AC E4 2A 9F E1 E5 2A .*.....!"..*...*
00EFD0: 9D E1 E5 2A 97 E1 D1 EB B7 ED 52 E5 CD FF 21 22 ...*......R...!"
00EFE0: AA E4 CD 31 E2 C3 7E 23 19 11 01 00 B7 ED 52 C2 ...1..~#......R.
00EFF0: 1A 23 2A 9F E1 E5 2A 99 E1 E5 CD FF 21 22 AC E4 .#*...*.....!"..
00F000: 2A 7C E0 E5 2A 7A E0 E5 CD FF 21 22 AC E4 2A 7E *|..*z....!"..*~
00F010: E0 7D 32 A9 E4 CD 05 E2 C9 21 78 BB E5 CD 1A 24 .}2......!x....$
00F020: 2A AD E4 26 00 22 70 E0 2A 70 E0 C9 21 78 BB E5 *..&."p.*p..!x..
00F030: CD 1A 24 2A AC E4 26 00 22 66 E0 2A 66 E0 C9 FD ..$*..&."f.*f...
00F040: E1 E1 22 5A E0 E1 22 5C E0 FD E5 CD 9B 14 21 1B .."Z.."\......!.
00F050: 00 CD 22 17 21 59 00 CD 22 17 2A 5A E0 E5 21 1F ..".!Y..".*Z..!.
00F060: 00 D1 19 CD 22 17 2A 5C E0 E5 21 1F 00 D1 19 CD ....".*\..!.....
00F070: 22 17 CD 1B 20 C9 C3 C4 30 FD E1 E1 22 50 E0 FD "... ...0..."P..
00F080: E5 2A 50 E0 E5 CD 81 05 21 01 00 E5 21 10 00 CD .*P.....!...!...
00F090: 9B 05 CD 4F 13 7D EE 01 6F CB 45 CA AC 2B 21 0E ...O.}..o.E..+!.
00F0A0: 00 E5 21 02 00 E5 CD 76 2B C3 14 2C 21 B5 E4 E5 ..!....v+..,!...
00F0B0: 2A 50 E0 2B 29 E5 29 E5 29 E5 29 E5 29 29 D1 19 *P.+).).).).))..
00F0C0: D1 19 D1 19 D1 19 D1 19 22 48 E0 2A 48 E0 22 4A ........"H.*H."J
00F0D0: E0 2A 48 E0 11 5D 00 19 6E 26 00 CB 45 CA 06 2C .*H..]..n&..E..,
00F0E0: 21 7E E2 E5 CD 4D 05 05 77 69 6E 66 2E 2A 50 E0 !~...M..winf.*P.
00F0F0: E5 21 30 00 D1 19 65 2E 01 E5 CD 3D 08 CD 70 13 .!0...e....=..p.
00F100: 21 7E E2 CD 93 1B 2A 48 E0 11 5D 00 19 E5 21 00 !~....*H..]...!.
00F110: 00 EB E1 73 C9 21 01 00 E5 21 10 00 D1 CD 66 06 ...s.!...!....f.
00F120: 7A B3 CA 39 2C D5 22 3E E0 2A 3E E0 E5 CD 79 2B z..9,.">.*>...y+
00F130: 2A 3E E0 23 D1 1B C3 20 2C C9 21 7B BB E5 CD 1A *>.#... ,.!{....
00F140: 24 CD 9B 14 21 1B 00 CD 22 17 21 31 00 CD 22 17 $...!...".!1..".
00F150: 21 1B 00 CD 22 17 21 78 00 CD 22 17 21 1B 00 CD !...".!x..".!...
00F160: 22 17 21 76 00 CD 22 17 CD 1B 20 21 76 E3 CD B0 ".!v.."... !v...
00F170: 1A 21 76 E3 CD 93 1B CD F1 1F E5 21 00 00 D1 CD .!v........!....
00F180: 7F 06 CB 45 CA 87 2C CD 15 2C C9 21 14 BC E5 CD ...E..,..,.!....
00F190: 1A 24 C9 CD 9B 14 21 1B 00 CD 22 17 21 79 00 CD .$....!...".!y..
00F1A0: 22 17 21 1B 00 CD 22 17 21 30 00 CD 22 17 21 1B ".!...".!0..".!.
00F1B0: 00 CD 22 17 21 77 00 CD 22 17 CD 1B 20 21 7E BB ..".!w.."... !~.
00F1C0: E5 CD 1A 24 CD 8B 2C 21 51 21 01 AD 00 11 D1 E1 ...$..,!Q!......
00F1D0: ED B0 21 76 E3 E5 CD 4D 05 0A 73 61 76 73 63 72 ..!v...M..savscr
00F1E0: 2E 24 24 24 CD 70 13 21 76 E3 CD 6F 1A CD 1B 20 .$$$.p.!v..o...
00F1F0: 21 A7 E3 E5 21 00 01 E5 21 00 00 CD 4E 1F 21 00 !...!...!...N.!.
00F200: 2A 9F E1 E5 2A 99 E1 E5 2A 97 E1 D1 19 E5 CD FF *...*...*.......
00F210: 21 22 AA E4 CD 50 E2 C3 7E 23 19 11 03 00 B7 ED !"...P..~#......
00F220: 52 C2 47 23 2A 9F E1 E5 2A 9D E1 E5 CD FF 21 22 R.G#*...*.....!"
00F230: AC E4 2A AC E4 E5 2A 97 E1 D1 EB B7 ED 52 22 AA ..*...*......R".
00F240: E4 CD 31 E2 C3 7E 23 19 11 02 00 B7 ED 52 C2 7E ..1..~#......R.~
00F250: 23 21 FD E1 E5 21 04 00 D1 19 E5 21 B8 00 EB E1 #!...!.....!....
00F260: 73 2A 9B E1 E5 2A 99 E1 E5 CD FF 21 22 AC E4 2A s*...*.....!"..*
00F270: AC E4 E5 2A 97 E1 D1 19 22 AA E4 CD 50 E2 C9 FD ...*...."...P...
00F280: E1 E1 22 86 E1 E1 22 88 E1 E1 22 8A E1 E1 22 8C .."..."..."...".
00F290: E1 FD E5 21 31 E2 E5 21 01 00 D1 19 E5 21 6F E2 ...!1..!.....!o.
00F2A0: 26 00 EB E1 73 21 31 E2 E5 21 02 00 D1 19 E5 21 &...s!1..!.....!
00F2B0: 6F E2 6C 26 00 EB E1 73 2A 88 E1 E5 2A 8C E1 D1 o.l&...s*...*...
00F2C0: EB B7 ED 52 E5 21 01 00 D1 19 22 A8 E4 2A 86 E1 ...R.!...."..*..
00F2D0: E5 2A 8A E1 D1 EB B7 ED 52 E5 21 01 00 D1 19 7D .*......R.!....}
00F2E0: 32 AE E4 2A 8C E1 E5 2A 8A E1 E5 CD FF 21 22 AC 2..*...*.....!".
00F2F0: E4 CD 31 E2 21 31 E2 E5 21 01 00 D1 19 E5 21 FD ..1.!1..!.....!.
00F300: E1 26 00 EB E1 73 21 31 E2 E5 21 02 00 D1 19 E5 .&...s!1..!.....
00F310: 21 FD E1 6C 26 00 EB E1 73 C9 FD E1 E1 22 7C E1 !..l&...s...."|.
00F320: FD E5 21 AF E4 E5 21 00 00 D1 19 E5 21 CD 00 EB ..!...!.....!...
00F330: E1 73 21 AF E4 E5 21 01 00 D1 19 E5 21 5A 00 EB .s!...!.....!Z..
00F340: E1 73 21 AF E4 E5 21 02 00 D1 19 E5 21 FC 00 EB .s!...!.....!...
00F350: E1 73 21 AF E4 E5 21 03 00 D1 19 E5 2A 7C E1 26 .s!...!.....*|.&
00F360: 00 EB E1 73 21 AF E4 E5 21 04 00 D1 19 E5 2A 7C ...s!...!.....*|
00F370: E1 6C 26 00 EB E1 73 21 AF E4 E5 21 05 00 D1 19 .l&...s!...!....
00F380: E5 21 C9 00 EB E1 73 3A AE E4 ED 4B A8 E4 ED 5B .!....s:...K...[
00F390: AA E4 2A AC E4 CD AF E4 32 AE E4 ED 43 A8 E4 ED ..*.....2...C...
00F3A0: 53 AA E4 22 AC E4 C9 FD E1 E1 22 6A E1 E1 22 6C S.."......"j.."l
00F3B0: E1 E1 22 6E E1 E1 22 70 E1 E1 22 72 E1 FD E5 2A .."n.."p.."r...*
00F3C0: 70 E1 22 5E E1 2A 6C E1 22 5C E1 2A 6A E1 22 60 p."^.*l."\.*j."`
00F3D0: E1 2A 6E E1 E5 21 08 00 D1 CD 4E 07 E5 2A 72 E1 .*n..!....N..*r.
00F3E0: D1 7C B2 67 7D B3 6F 22 5A E1 ED 4B 5A E1 CD 57 .|.g}.o"Z..KZ..W
00F3F0: FC 2A 5C E1 ED 4B 60 E1 ED 5B 5E E1 CD 4B FC C9 .*\..K`..[^..K..
00F400: 00 E5 21 3F 00 D1 CD 66 06 7A B3 CA 2C 2D D5 22 ..!?...f.z..,-."
00F410: 24 E0 21 76 E3 E5 21 A7 E3 E5 21 02 00 CD BA 1A $.!v..!...!.....
00F420: CD 1B 20 2A 24 E0 23 D1 1B C3 09 2D C9 FD E1 E1 .. *$.#....-....
00F430: 22 22 E0 FD E5 2A 22 E0 E5 CD 00 25 C9 FD E1 E1 ""...*"....%....
00F440: 22 18 E0 FD E5 2A 18 E0 7D 32 AE E4 21 E4 BB E5 "....*..}2..!...
00F450: CD 1A 24 C9 FD E1 E1 22 0C E0 E1 22 0E E0 FD E5 ..$...."..."....
00F460: 21 C7 00 E5 2A 0C E0 D1 EB B7 ED 52 E5 21 01 00 !...*......R.!..
00F470: D1 CD 4E 07 22 AC E4 2A 0E E0 22 AA E4 21 EA BB ..N."..*.."..!..
00F480: E5 CD 1A 24 C9 FD E1 E1 22 FF DF E1 22 01 E0 FD ...$...."..."...
00F490: E5 21 C7 00 E5 2A FF DF D1 EB B7 ED 52 E5 21 01 .!...*......R.!.
00F4A0: 00 D1 CD 4E 07 22 AC E4 2A 01 E0 22 AA E4 21 F0 ...N."..*.."..!.
00F4B0: BB E5 CD 1A 24 2A AE E4 26 00 E5 21 00 00 D1 CD ....$*..&..!....
00F4C0: 92 06 7D 32 03 E0 2A 03 E0 26 00 C9 FD E1 E1 11 ..}2..*..&......
00F4D0: EF DF 01 08 00 ED B0 FD E5 2A 84 F2 E5 2A 82 F2 .........*...*..
00F4E0: D1 CD 66 06 7A B3 CA 2C 2E D5 22 E5 DF 21 EF DF ..f.z..,.."..!..
00F4F0: E5 2A E5 DF E5 21 07 00 D1 7C A2 67 7D A3 6F D1 .*...!...|.g}£o.
00F500: 19 6E 26 00 E5 2A 86 F2 E5 2A 88 F2 D1 EB B7 ED .n&..*...*......
00F510: 52 E5 21 01 00 D1 19 E5 2A 88 F2 E5 2A E5 DF E5 R.!.....*...*...
00F520: CD 9B 28 2A E5 DF 23 D1 1B C3 E4 2D C9 FD E1 E1 ..(*..#....-....
00F530: 7D 32 E4 DF FD E5 21 D4 DF E5 21 08 00 E5 2A E4 }2....!...!...*.
00F540: DF 26 00 CD 4E 1F 21 D4 DF E5 CD CC 2D C9 FD E1 .&..N.!.....-...
00F550: E1 22 CE DF E1 22 D0 DF E1 22 D2 DF FD E5 2A D2 ."..."..."....*.
00F560: DF E5 2A CE DF E5 CD 23 25 2A D0 DF E5 2A CE DF ..*....#%*...*..
00F570: E5 CD 54 25 C9 FD E1 E1 22 C4 DF FD E5 CD F1 1F ..T%....".......
00F580: E5 21 00 00 D1 CD 92 06 CB 45 CA 98 2E 2A C4 DF .!.......E...*..
00F590: E5 21 05 00 E5 CD 76 2B C9 FD E1 06 50 21 6B DF .!....v+....P!k.
00F5A0: CD E2 05 FD E5 21 7E E2 E5 21 6B DF CD 3A 05 CD .....!~..!k..:..
00F5B0: 70 13 21 7E E2 CD 6F 1A 21 1B 00 E5 CD 75 2E 21 p.!~..o.!....u.!
00F5C0: 00 00 E5 21 7F 00 D1 CD 66 06 7A B3 CA FC 2E D5 ...!....f.z.....
00F5D0: 22 61 DF 2A 61 DF E5 21 A7 E3 E5 CD B7 25 21 7E "a.*a..!.....%!~
00F5E0: E2 E5 21 A7 E3 E5 21 01 00 CD BA 1A 21 1B 00 E5 ..!...!.....!...
00F5F0: CD 75 2E 2A 61 DF 23 D1 1B C3 CA 2E 21 7E E2 CD .u.*a.#.....!~..
00F600: FD E1 E1 7D 32 59 E1 FD E5 2A 59 E1 26 00 7D 32 ...}2Y...*Y.&.}2
00F610: A7 E4 2A 59 E1 26 00 7D 32 AE E4 21 DE BB E5 CD ..*Y.&.}2..!....
00F620: 1A 24 C9 FD E1 E1 22 4D E1 E1 22 4F E1 FD E5 21 .$...."M.."O...!
00F630: C7 00 E5 2A 4D E1 D1 EB B7 ED 52 E5 21 01 00 D1 ...*M.....R.!...
00F640: CD 4E 07 22 AC E4 2A 4F E1 22 AA E4 21 C0 BB E5 .N."..*O."..!...
00F650: CD 1A 24 C9 FD E1 E1 22 41 E1 E1 22 43 E1 FD E5 ..$...."A.."C...
00F660: 21 C7 00 E5 2A 41 E1 D1 EB B7 ED 52 E5 21 01 00 !...*A.....R.!..
00F670: D1 CD 4E 07 22 AC E4 2A 43 E1 22 AA E4 21 F6 BB ..N."..*C."..!..
00F680: E5 CD 1A 24 C9 FD E1 E1 22 35 E1 E1 22 37 E1 FD ...$...."5.."7..
00F690: E5 21 01 00 E5 2A 35 E1 E5 21 00 00 E5 2A 37 E1 .!...*5..!...*7.
00F6A0: E5 21 07 00 D1 CD 4E 07 E5 21 00 40 D1 19 E5 21 .!....N..!.@...!
00F6B0: 80 00 E5 CD A7 24 C9 FD E1 E1 22 25 E1 E1 22 27 .....$...."%.."'
00F6C0: E1 FD E5 21 00 00 E5 2A 27 E1 E5 21 07 00 D1 CD ...!...*'..!....
00F6D0: 4E 07 E5 21 00 40 D1 19 E5 21 01 00 E5 2A 25 E1 N..!.@...!...*%.
00F6E0: E5 21 80 00 E5 CD A7 24 C9 FD E1 E1 22 13 E1 E1 .!.....$...."...
00F6F0: 22 15 E1 FD E5 2A 15 E1 22 AA E4 21 C7 00 E5 2A "....*.."..!...*
00F700: 13 E1 D1 EB B7 ED 52 22 AC E4 21 1D BC E5 CD 1A ......R"..!.....
00F710: 24 2A AC E4 E5 21 FF 7F D1 7C A2 67 7D A3 6F E5 $*...!...|.g}£o.
00F720: 21 00 40 D1 7C B2 67 7D B3 6F 22 17 E1 2A 17 E1 !.@.|.g}.o"..*..
00F730: C9 FD E1 E1 22 05 E1 E1 22 07 E1 E1 22 09 E1 FD ...."..."..."...
00F740: E5 2A 07 E1 E5 21 03 00 D1 CD 4E 07 E5 2A 05 E1 .*...!....N..*..
00F750: E5 CD E9 25 E5 21 00 40 D1 EB B7 ED 52 22 FB E0 ...%.!.@....R"..
00F760: 21 76 E3 E5 2A FB E0 E5 21 07 00 D1 CD 56 07 CD !v..*...!....V..
00F770: 6F 1B 21 76 E3 E5 21 A7 E3 E5 21 02 00 CD BE 1A o.!v..!...!.....
00F780: CD F1 1F E5 21 00 00 D1 CD 7F 06 CB 45 CA 90 26 ....!.......E..&
00F790: 21 A7 E3 E5 2A FB E0 E5 21 7F 00 D1 7C A2 67 7D !...*...!...|.g}
00F7A0: A3 6F D1 19 E5 21 AE E2 E5 2A 09 E1 CD 64 1F C9 £o...!...*...d..
00F7B0: FD E1 E1 22 F5 E0 E1 22 F7 E0 E1 22 F9 E0 FD E5 ..."..."..."....
00F7C0: 2A F7 E0 E5 21 03 00 D1 CD 4E 07 E5 2A F5 E0 E5 *...!....N..*...
00F7D0: CD E9 25 E5 21 00 40 D1 EB B7 ED 52 22 EB E0 21 ..%.!.@....R"..!
00F7E0: 76 E3 E5 2A EB E0 E5 21 07 00 D1 CD 56 07 CD 6F v..*...!....V..o
00F7F0: 1B CD 1B 20 21 76 E3 E5 21 A7 E3 E5 21 02 00 CD ... !v..!...!...
00F800: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
00F810: 0D 00 00 00 02 09 50 E5 0D 00 41 02 00 00 00 02 ......P...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: B0 1A CD 1B 20 21 1B 00 E5 CD 75 2E C9 FD E1 E1 .... !....u.....
00F910: 22 5F DF FD E5 2A 5F DF 7D 32 A6 E3 C9 FD E1 06 "_...*_.}2......
00F920: 50 21 06 DF CD E2 05 FD E5 21 7E E2 E5 21 06 DF P!.......!~..!..
00F930: CD 3A 05 CD 70 13 21 7E E2 CD 70 1A 21 0B 00 E5 .:..p.!~..p.!...
00F940: CD 75 2E 21 00 00 E5 21 7F 00 D1 CD 66 06 7A B3 .u.!...!....f.z.
00F950: CA 7C 2F D5 22 FC DE 21 7E E2 E5 21 A7 E3 E5 21 .|/."..!~..!...!
00F960: 01 00 CD BE 1A CD 1B 20 2A FC DE E5 21 A7 E3 E5 ....... *...!...
00F970: CD 85 25 2A FC DE 23 D1 1B C3 4E 2F 21 7E E2 CD ..%*..#...N/!~..
00F980: B0 1A CD 1B 20 C9 21 76 E3 E5 21 00 00 CD 6F 1B .... .!v..!...o.
00F990: CD 1B 20 21 00 00 E5 21 7F 00 D1 CD 66 06 7A B3 .. !...!....f.z.
00F9A0: CA 01 30 D5 22 F2 DE 2A F2 DE E5 21 A7 E3 E5 CD ..0."..*...!....
00F9B0: B7 25 21 76 E3 E5 21 A7 E3 E5 21 80 00 D1 19 E5 .%!v..!...!.....
00F9C0: 21 01 00 CD BE 1A CD 1B 20 2A F2 DE E5 21 A7 E3 !....... *...!..
00F9D0: E5 21 80 00 D1 19 E5 CD 85 25 21 76 E3 E5 2A F2 .!.......%!v..*.
00F9E0: DE CD 6F 1B CD 1B 20 21 76 E3 E5 21 A7 E3 E5 21 ..o... !v..!...!
00F9F0: 01 00 CD BA 1A CD 1B 20 2A F2 DE 23 D1 1B C3 9E ....... *..#....
00FA00: 2F C9 21 76 E3 E5 21 00 00 CD 6F 1B CD 1B 20 21 /.!v..!...o... !
00FA10: 00 00 E5 21 7F 00 D1 CD 66 06 7A B3 CA 4C 30 D5 ...!....f.z..L0.
00FA20: 22 E8 DE 2A E8 DE E5 21 A7 E3 E5 CD B7 25 21 76 "..*...!.....%!v
00FA30: E3 E5 21 A7 E3 E5 21 01 00 CD BA 1A 21 0B 00 E5 ..!...!.....!...
00FA40: CD 75 2E 2A E8 DE 23 D1 1B C3 1A 30 C9 21 76 E3 .u.*..#....0.!v.
00FA50: E5 21 00 00 CD 6F 1B CD 1B 20 21 00 00 E5 21 7F .!...o... !...!.
00FA60: 00 D1 CD 66 06 7A B3 CA 97 30 D5 22 DE DE 21 76 ...f.z...0."..!v
00FA70: E3 E5 21 A7 E3 E5 21 01 00 CD BE 1A 21 0B 00 E5 ..!...!.....!...
00FA80: CD 75 2E 2A DE DE E5 21 A7 E3 E5 CD 85 25 2A DE .u.*...!.....%*.
00FA90: DE 23 D1 1B C3 65 30 C9 2A A6 E3 26 00 E5 21 02 .#...e0.*..&..!.
00FAA0: 00 D1 CD 7F 06 CB 45 CA B0 30 CD 4D 30 C3 B3 30 ......E..0.M0..0
00FAB0: CD 02 30 C9 21 00 40 22 A8 E4 21 00 40 22 AC E4 ..0.!.@"..!.@"..
00FAC0: CD 6F E2 C9 FD E1 E1 22 CA DE E1 22 CC DE FD E5 .o....."..."....
00FAD0: 2A CC DE E5 CD 81 05 21 00 00 E5 21 1B 00 CD 9B *......!...!....
00FAE0: 05 CD 4F 13 7D EE 01 6F CB 45 CA 32 31 CD 3A 2C ..O.}..o.E.21.:,
00FAF0: CD 9B 14 CD BA 17 28 46 41 54 41 4C 20 45 52 52 ......(FATAL ERR
00FB00: 28 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A (***************
00FB10: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
00FB20: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
00FB30: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 29 0D 0A 28 ************)..(
00FB40: 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 *
00FB50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00FB60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00FB70: 20 20 20 20 20 20 20 20 20 20 2A 29 0D 0A 28 2A *)..(*
00FB80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00FB90: 54 55 52 42 4F 20 47 52 41 50 48 49 58 20 76 65 TURBO GRAPHIX ve
00FBA0: 72 73 69 6F 6E 20 31 2E 30 35 41 20 20 20 20 20 rsion 1.05A
00FBB0: 20 20 20 20 20 20 20 20 20 2A 29 0D 0A 28 2A 20 *)..(*
00FBC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00FBD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00FBE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00FBF0: 20 20 20 20 20 20 20 20 2A 29 0D 0A 28 2A 20 20 *)..(*
00FC00: 20 20 20 20 20 20 20 20 20 20 20 20 43 69 72 63 Circ
00FC10: 6C 65 20 73 65 67 6D 65 6E 74 20 64 72 61 77 69 le segment drawi
00FC20: 6E 67 20 6D 6F 64 75 6C 65 20 20 20 20 20 20 20 ng module
00FC30: 20 20 20 20 20 20 20 2A 29 0D 0A 28 2A 20 20 20 *)..(*
00FC40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4D M
00FC50: 6F 64 75 6C 65 20 76 65 72 73 69 6F 6E 20 20 31 odule version 1
00FC60: 2E 30 30 41 20 20 20 20 20 20 20 20 20 20 20 20 .00A
00FC70: 20 20 20 20 20 20 2A 29 0D 0A 28 2A 20 20 20 20 *)..(*
00FC80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00FC90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00FCA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00FCB0: 20 20 20 20 20 2A 29 0D 0A 28 2A 20 20 20 20 20 *)..(*
00FCC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 43 6F 70 Cop
00FCD0: 79 72 69 67 68 74 20 28 43 29 20 31 39 38 35 20 yright (C) 1985
00FCE0: 62 79 20 20 20 20 20 20 20 20 20 20 20 20 20 20 by
00FCF0: 20 20 20 20 2A 29 0D 0A 28 2A 20 20 20 20 20 20 *)..(*
00FD00: 4F 52 20 31 3A 20 69 6C 6C 65 67 61 6C 20 70 72 OR 1: illegal pr
00FD10: 6F 63 65 64 75 72 65 20 6E 75 6D 62 65 72 20 2A ocedure number *
00FD20: CC DE E5 21 00 00 CD 26 17 CD CD 17 CD 1B 20 C3 ...!...&...... .
00FD30: D4 20 2A CA DE E5 CD 81 05 21 00 00 E5 21 07 00 . *......!...!..
00FD40: CD 9B 05 CD 4F 13 7D EE 01 6F CB 45 CA 8E 31 CD ....O.}..o.E..1.
00FD50: 3A 2C CD 9B 14 CD BA 17 22 46 41 54 41 4C 20 45 :,......"FATAL E
00FD60: 52 52 4F 52 20 32 3A 20 69 6C 6C 65 67 61 6C 20 RROR 2: illegal
00FD70: 65 72 72 6F 72 20 63 6F 64 65 20 2A CA DE E5 21 error code *...!
00FD80: 00 00 CD 26 17 CD CD 17 CD 1B 20 C3 D4 20 2A CA ...&...... .. *.
00FD90: DE 7D 32 65 F2 2A 69 F2 26 00 CB 45 CA A2 31 CD .}2e.*i.&..E..1.
00FDA0: 3A 2C 2A 6A F2 26 00 E5 2A 69 F2 26 00 D1 7D B3 :,*j.&..*i.&..}.
00FDB0: 6F CB 45 CA 6E 32 CD 19 2B 22 C0 DE CD 2C 2B 22 o.E.n2..+"...,+"
00FDC0: BE DE 21 01 00 E5 21 18 00 E5 CD 3F 2B CD 99 02 ..!...!....?+...
00FDD0: CD 9B 14 CD BA 17 15 54 75 72 62 6F 20 47 72 61 .......Turbo Gra
00FDE0: 70 68 69 78 20 65 72 72 6F 72 20 23 2A CA DE E5 phix error #*...
00FDF0: 21 00 00 CD 26 17 CD BA 17 0F 20 69 6E 20 70 72 !...&..... in pr
00FE00: 6F 63 65 64 75 72 65 20 23 2A CC DE E5 21 00 00 ocedure #*...!..
00FE10: CD 26 17 CD CD 17 CD 1B 20 2A 6A F2 26 00 CB 45 .&...... *j.&..E
00FE20: CA 6E 32 CD 99 02 CD 9B 14 21 28 00 CD 22 17 21 .n2......!(..".!
00FE30: 15 F2 E5 2A CA DE 29 D1 19 5E 23 56 EB CD 3A 05 ...*..)..^#V..:.
00FE40: 21 00 00 CD AA 17 CD BA 17 04 20 69 6E 20 21 25 !......... in !%
00FE50: F2 E5 2A CC DE 29 D1 19 5E 23 56 EB CD 3A 05 21 ..*..)..^#V..:.!
00FE60: 00 00 CD AA 17 21 29 00 CD 22 17 CD 1B 20 2A 6A .....!).."... *j
00FE70: F2 26 00 E5 2A 69 F2 26 00 D1 7D A3 6F CB 45 CA .&..*i.&..}£o.E.
00FE80: 88 32 C3 D4 20 C3 10 33 2A 69 F2 26 00 CB 45 CA .2.. ..3*i.&..E.
00FE90: 98 32 C3 D4 20 C3 10 33 2A 6A F2 26 00 CB 45 CA .2.. ..3*j.&..E.
00FEA0: 10 33 CD 9B 14 CD BA 17 0E 2E 20 20 48 69 74 20 .3........ Hit
00FEB0: 65 6E 74 65 72 3A 20 CD 1B 20 21 BA 00 CD A9 14 enter: .. !.....
00FEC0: 21 BD DE CD 44 16 CD 1B 20 2A BD DE 26 00 E5 21 !...D... *..&..!
00FED0: 0D 00 D1 CD 7F 06 E5 2A BD DE 26 00 E5 21 03 00 .......*..&..!..
00FEE0: D1 CD 7F 06 D1 7D B3 6F CB 45 CA BA 32 2A BD DE .....}.o.E..2*..
00FEF0: 26 00 E5 21 03 00 D1 CD 7F 06 CB 45 CA 05 33 CD &..!.......E..3.
00FF00: 20 20 20 20 20 20 20 20 20 20 20 20 42 4F 52 4C BORL
00FF10: 41 4E 44 20 49 6E 74 65 72 6E 61 74 69 6F 6E 61 AND Internationa
00FF20: 6C 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 l
00FF30: 20 20 20 2A 29 0D 0A 28 2A 20 20 20 20 20 20 20 *)..(*
00FF40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00FF50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00FF60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00FF70: 20 20 2A 29 0D 0A 28 2A 2A 2A 2A 2A 2A 2A 2A 2A *)..(*********
00FF80: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
00FF90: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
00FFA0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
00FFB0: 2A 2A 29 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 65 **)....procedure
00FFC0: 20 44 72 61 77 43 69 72 63 6C 65 53 65 67 6D 65 DrawCircleSegme
00FFD0: 6E 74 28 78 72 30 2C 79 72 30 3A 72 65 61 6C 3B nt(xr0,yr0:real;
00FFE0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
00FFF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 76 61 va
010000: 72 20 78 72 31 2C 79 72 31 3A 72 65 61 6C 3B 0D r xr1,yr1:real;.
010010: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
010020: 20 20 20 20 20 20 20 20 20 20 20 20 20 69 6E 6E inn
010030: 65 72 2C 6F 75 74 65 72 2C 70 68 69 2C 61 72 65 er,outer,phi,are
010040: 61 3A 72 65 61 6C 3B 0D 0A 20 20 20 20 20 20 20 a:real;..
010050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
010060: 20 20 20 20 20 74 78 74 3A 77 72 6B 73 74 72 69 txt:wrkstri
010070: 6E 67 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 ng;..
010080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
010090: 20 6F 70 74 69 6F 6E 2C 73 63 61 6C 65 3A 62 79 option,scale:by
0100A0: 74 65 29 3B 0D 0A 0D 0A 20 20 76 61 72 20 46 61 te);.... var Fa
0100B0: 6B 74 43 2C 46 61 6B 74 53 2C 43 44 75 6D 6D 79 ktC,FaktS,CDummy
0100C0: 2C 63 2C 73 2C 72 61 64 69 75 73 3A 20 72 65 61 ,c,s,radius: rea
0100D0: 6C 3B 0D 0A 20 20 20 20 20 20 50 68 69 31 2C 44 l;.. Phi1,D
0100E0: 65 6C 74 61 50 68 69 2C 43 6F 73 50 68 69 2C 53 eltaPhi,CosPhi,S
0100F0: 69 6E 50 68 69 2C 43 6F 73 44 70 68 69 2C 53 69 inPhi,CosDphi,Si
010100: 3A 2C C3 D4 20 2A C0 DE E5 2A BE DE E5 CD 3F 2B :,.. *...*....?+
010110: C9 21 00 00 7D 32 69 F2 C9 21 01 00 7D 32 69 F2 .!..}2i..!..}2i.
010120: C9 2A 65 F2 26 00 7D 32 AC DE 21 00 00 7D 32 65 .*e.&.}2..!..}2e
010130: F2 2A AC DE 26 00 C9 21 01 00 7D 32 6E F2 C9 21 .*..&..!..}2n..!
010140: 00 00 7D 32 6E F2 C9 21 01 00 7D 32 6D F2 C9 21 ..}2n..!..}2m..!
010150: 00 00 7D 32 6D F2 C9 21 01 00 7D 32 6A F2 C9 21 ..}2m..!..}2j..!
010160: 00 00 7D 32 6A F2 C9 21 01 00 7D 32 68 F2 C9 21 ..}2j..!..}2h..!
010170: 00 00 7D 32 68 F2 C9 21 01 00 7D 32 67 F2 C9 21 ..}2h..!..}2g..!
010180: 00 00 7D 32 67 F2 C9 FD E1 E1 22 52 DE FD E5 2A ..}2g....."R...*
010190: 52 DE E5 CD 81 05 21 01 00 E5 21 10 00 CD 9B 05 R.....!...!.....
0101A0: CD 4F 13 CB 45 CA F7 33 21 B4 EB E5 2A 52 DE 2B .O..E..3!...*R.+
0101B0: E5 29 29 E5 29 E5 29 E5 29 29 D1 19 D1 19 D1 19 .)).).).))......
0101C0: D1 19 D1 19 22 4A DE 2A 4A DE 11 59 00 19 E5 21 ...."J.*J..Y...!
0101D0: 00 00 EB E1 73 2A 4A DE 11 5A 00 19 E5 21 01 00 ....s*J..Z...!..
0101E0: EB E1 73 2A 4A DE 11 08 00 19 E5 CD 4D 05 00 06 ..s*J.......M...
0101F0: 50 CD 01 06 C3 02 34 21 16 00 E5 21 02 00 E5 CD P.....4!...!....
010200: 76 2B C9 21 FF 00 E5 CD 00 25 C9 21 00 00 E5 CD v+.!.....%.!....
010210: 00 25 C9 2A 7A F2 22 38 DE 2A 38 DE C9 2A 6D F2 .%.*z."8.*8..*m.
010220: 26 00 7D 32 2F DE 2A 2F DE 26 00 C9 2A 6E F2 26 &.}2/.*/.&..*n.&
010230: 00 7D EE 01 6F 7D 32 26 DE 2A 26 DE 26 00 C9 FD .}..o}2&.*&.&...
010240: E1 E1 D1 C1 D9 21 18 DE CD D1 05 FD E5 21 18 DE .....!.......!..
010250: CD 2C 05 C5 D5 E5 21 00 00 11 00 00 01 00 00 D9 .,....!.........
010260: E1 D1 C1 CD 9B 06 CB 45 CA 7A 34 21 18 DE CD 2C .......E.z4!...,
010270: 05 CB B8 D9 21 E6 F1 CD D1 05 C9 21 E6 F1 CD 2C ....!......!...,
010280: 05 D9 21 0A DE CD D1 05 21 0A DE CD 2C 05 C9 FD ..!.....!...,...
010290: E1 E1 D1 C1 D9 21 FC DD CD D1 05 FD E5 21 FC DD .....!.......!..
0102A0: CD 2C 05 C5 D5 E5 21 00 00 11 00 00 01 00 00 D9 .,....!.........
0102B0: E1 D1 C1 CD 9B 06 CB 45 CA DD 34 21 FC DD CD 2C .......E..4!...,
0102C0: 05 CB B8 C5 D5 E5 21 80 00 11 00 00 01 00 00 D9 ......!.........
0102D0: E1 D1 C1 CD FA 09 D9 21 E6 F1 CD D1 05 C9 21 E6 .......!......!.
0102E0: F1 CD 2C 05 C5 D5 E5 21 80 00 11 00 00 01 00 00 ..,....!........
0102F0: D9 E1 D1 C1 CD FF 09 D9 21 EE DD CD D1 05 21 EE ........!.....!.
010300: 6E 44 70 68 69 3A 72 65 61 6C 3B 0D 0A 20 20 20 nDphi:real;..
010310: 20 20 20 44 65 6C 74 61 58 2C 44 65 6C 74 61 59 DeltaX,DeltaY
010320: 2C 78 72 32 2C 79 72 32 2C 52 61 64 69 75 73 4C ,xr2,yr2,RadiusL
010330: 6F 63 2C 58 30 4C 6F 63 2C 59 30 4C 6F 63 2C 58 oc,X0Loc,Y0Loc,X
010340: 31 4C 6F 63 2C 59 31 4C 6F 63 3A 72 65 61 6C 3B 1Loc,Y1Loc:real;
010350: 0D 0A 20 20 20 20 20 20 69 2C 41 73 63 69 69 43 .. i,AsciiC
010360: 6F 64 65 2C 54 65 78 74 4C 65 6E 2C 6E 2C 78 30 ode,TextLen,n,x0
010370: 2C 79 30 2C 78 31 2C 79 31 2C 78 32 2C 79 32 3A ,y0,x1,y1,x2,y2:
010380: 69 6E 74 65 67 65 72 3B 0D 0A 20 20 20 20 20 20 integer;..
010390: 44 69 72 65 63 74 4D 6F 64 65 4C 6F 63 3A 62 6F DirectModeLoc:bo
0103A0: 6F 6C 65 61 6E 3B 0D 0A 20 20 20 20 20 20 54 65 olean;.. Te
0103B0: 6D 70 54 65 78 74 3A 77 72 6B 73 74 72 69 6E 67 mpText:wrkstring
0103C0: 3B 0D 0A 0D 0A 20 20 70 72 6F 63 65 64 75 72 65 ;.... procedure
0103D0: 20 43 6C 69 70 70 65 64 4C 69 6E 65 28 78 31 2C ClippedLine(x1,
0103E0: 79 31 2C 78 32 2C 79 32 3A 69 6E 74 65 67 65 72 y1,x2,y2:integer
0103F0: 29 3B 0D 0A 0D 0A 20 20 20 20 62 65 67 69 6E 0D );.... begin.
010400: 0A 20 20 20 20 20 20 69 66 20 63 6C 69 70 28 78 . if clip(x
010410: 31 2C 79 31 2C 78 32 2C 79 32 29 20 74 68 65 6E 1,y1,x2,y2) then
010420: 20 44 72 61 77 4C 69 6E 65 28 78 31 2C 79 31 2C DrawLine(x1,y1,
010430: 78 32 2C 79 32 29 3B 0D 0A 20 20 20 20 65 6E 64 x2,y2);.. end
010440: 3B 0D 0A 0D 0A 20 20 70 72 6F 63 65 64 75 72 65 ;.... procedure
010450: 20 43 6C 69 70 70 65 64 50 6F 69 6E 74 28 78 2C ClippedPoint(x,
010460: 79 3A 69 6E 74 65 67 65 72 29 3B 0D 0A 0D 0A 20 y:integer);....
010470: 20 20 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 20 begin..
010480: 69 66 20 43 6C 69 70 70 69 6E 67 47 6C 62 20 74 if ClippingGlb t
010490: 68 65 6E 0D 0A 20 20 20 20 20 20 20 62 65 67 69 hen.. begi
0104A0: 6E 0D 0A 20 20 20 20 20 20 20 20 69 66 20 28 78 n.. if (x
0104B0: 3E 3D 58 31 52 65 66 47 6C 62 20 73 68 6C 20 33 >=X1RefGlb shl 3
0104C0: 29 20 61 6E 64 20 28 78 3C 58 32 52 65 66 47 6C ) and (x<X2RefGl
0104D0: 62 20 73 68 6C 20 33 2B 37 29 20 74 68 65 6E 0D b shl 3+7) then.
0104E0: 0A 20 20 20 20 20 20 20 20 20 20 69 66 20 28 79 . if (y
0104F0: 3E 3D 59 31 52 65 66 47 6C 62 29 20 61 6E 64 20 >=Y1RefGlb) and
010500: DD CD 2C 05 C9 C3 0D 35 FF 88 F8 E4 EE FD E1 E1 ..,....5........
010510: 22 E4 DD FD E5 2A E4 DD E5 CD 81 05 21 00 00 E5 "....*......!...
010520: 21 04 00 CD 9B 05 CD 4F 13 7D EE 01 6F CB 45 CA !......O.}..o.E.
010530: 49 35 2A E4 DD E5 21 FF 00 D1 7C A2 67 7D A3 6F I5*...!...|.g}£o
010540: E5 21 00 01 D1 19 22 E4 DD 2A E4 DD 22 80 F2 2A .!...."..*.."..*
010550: E4 DD E5 21 05 00 D1 CD E0 06 CB 45 CA 6E 35 21 ...!.......E.n5!
010560: 08 35 E5 2A E4 DD D1 19 6E 26 00 22 E4 DD 21 00 .5.*....n&."..!.
010570: 00 E5 21 07 00 D1 CD 66 06 7A B3 CA BF 35 D5 22 ..!....f.z...5."
010580: DA DD 21 5D F2 E5 21 07 00 E5 2A DA DD D1 EB B7 ..!]..!...*.....
010590: ED 52 D1 19 E5 2A E4 DD E5 2A DA DD D1 CD 56 07 .R...*...*....V.
0105A0: E5 21 01 00 D1 7C A2 67 7D A3 6F E5 21 00 00 D1 .!...|.g}£o.!...
0105B0: CD 92 06 EB E1 73 2A DA DD 23 D1 1B C3 79 35 21 .....s*..#...y5!
0105C0: 07 00 7D 32 66 F2 C9 2A 80 F2 22 D8 DD 2A D8 DD ..}2f..*.."..*..
0105D0: C9 FD E1 E1 22 CE DD FD E5 2A CE DD E5 21 00 00 ...."....*...!..
0105E0: D1 CD CC 06 CB 45 CA EF 35 2A CE DD 22 70 F2 C9 .....E..5*.."p..
0105F0: 2A 70 F2 22 C4 DD 2A C4 DD C9 FD E1 06 50 21 69 *p."..*......P!i
010600: DD CD E2 05 E1 22 BA DD FD E5 2A BA DD E5 CD 81 ....."....*.....
010610: 05 21 01 00 E5 21 10 00 CD 9B 05 CD 4F 13 CB 45 .!...!......O..E
010620: CA 52 36 21 B4 EB E5 2A BA DD 2B E5 29 29 E5 29 .R6!...*..+.)).)
010630: E5 29 E5 29 29 D1 19 D1 19 D1 19 D1 19 D1 19 11 .).))...........
010640: 08 00 19 E5 21 69 DD CD 3A 05 06 50 CD 01 06 C3 ....!i..:..P....
010650: 5D 36 21 03 00 E5 21 02 00 E5 CD 76 2B C9 2A A6 ]6!...!....v+.*.
010660: E3 26 00 7D 32 60 DD 2A 60 DD 26 00 C9 FD E1 E1 .&.}2`.*`.&.....
010670: D1 C1 D9 21 3E DD CD D1 05 E1 D1 C1 D9 21 44 DD ...!>........!D.
010680: CD D1 05 E1 D1 C1 D9 21 4A DD CD D1 05 E1 D1 C1 .......!J.......
010690: D9 21 50 DD CD D1 05 E1 22 56 DD FD E5 21 50 DD .!P....."V...!P.
0106A0: CD 2C 05 C5 D5 E5 21 44 DD CD 2C 05 D9 E1 D1 C1 .,....!D..,.....
0106B0: CD 9B 06 E5 21 4A DD CD 2C 05 C5 D5 E5 21 3E DD ....!J..,....!>.
0106C0: CD 2C 05 D9 E1 D1 C1 CD 9B 06 D1 7D A3 6F E5 2A .,.........}£o.*
0106D0: 56 DD E5 CD 81 05 21 01 00 E5 21 04 00 CD 9B 05 V.....!...!.....
0106E0: CD 4F 13 D1 7D A3 6F CB 45 CA 5F 37 21 84 F1 E5 .O..}£o.E._7!...
0106F0: 2A 56 DD 2B 29 29 29 E5 29 D1 19 D1 19 22 36 DD *V.+))).)...."6.
010700: 28 79 3C 3D 59 32 52 65 66 47 6C 62 29 20 74 68 (y<=Y2RefGlb) th
010710: 65 6E 20 64 70 28 78 2C 79 29 3B 0D 0A 20 20 20 en dp(x,y);..
010720: 20 20 20 20 65 6E 64 0D 0A 20 20 20 20 20 20 65 end.. e
010730: 6C 73 65 20 64 70 28 78 2C 79 29 3B 0D 0A 20 20 lse dp(x,y);..
010740: 20 20 65 6E 64 3B 0D 0A 0D 0A 20 20 62 65 67 69 end;.... begi
010750: 6E 20 7B 20 44 72 61 77 43 69 72 63 6C 65 53 65 n { DrawCircleSe
010760: 67 6D 65 6E 74 20 7D 0D 0A 20 20 20 20 58 30 4C gment }.. X0L
010770: 6F 63 3A 3D 78 72 30 3B 0D 0A 20 20 20 20 59 30 oc:=xr0;.. Y0
010780: 4C 6F 63 3A 3D 79 72 30 3B 0D 0A 20 20 20 20 58 Loc:=yr0;.. X
010790: 31 4C 6F 63 3A 3D 78 72 31 3B 0D 0A 20 20 20 20 1Loc:=xr1;..
0107A0: 59 31 4C 6F 63 3A 3D 79 72 31 3B 0D 0A 20 20 20 Y1Loc:=yr1;..
0107B0: 20 52 61 64 69 75 73 4C 6F 63 3A 3D 73 71 72 74 RadiusLoc:=sqrt
0107C0: 28 73 71 72 28 58 31 4C 6F 63 2D 58 30 4C 6F 63 (sqr(X1Loc-X0Loc
0107D0: 29 2B 73 71 72 28 59 31 4C 6F 63 2D 59 30 4C 6F )+sqr(Y1Loc-Y0Lo
0107E0: 63 29 29 3B 0D 0A 20 20 20 20 69 66 20 52 61 64 c));.. if Rad
0107F0: 69 75 73 4C 6F 63 3E 30 2E 30 20 74 68 65 6E 0D iusLoc>0.0 then.
010800: 0A 20 20 20 20 20 62 65 67 69 6E 0D 0A 20 20 20 . begin..
010810: 20 20 20 6F 70 74 69 6F 6E 3A 3D 61 62 73 28 6F option:=abs(o
010820: 70 74 69 6F 6E 29 3B 0D 0A 20 20 20 20 20 20 69 ption);.. i
010830: 6E 6E 65 72 3A 3D 61 62 73 28 69 6E 6E 65 72 29 nner:=abs(inner)
010840: 3B 0D 0A 20 20 20 20 20 20 6F 75 74 65 72 3A 3D ;.. outer:=
010850: 61 62 73 28 6F 75 74 65 72 29 3B 0D 0A 20 20 20 abs(outer);..
010860: 20 20 20 73 63 61 6C 65 3A 3D 61 62 73 28 73 63 scale:=abs(sc
010870: 61 6C 65 29 3B 0D 0A 20 20 20 20 20 20 44 69 72 ale);.. Dir
010880: 65 63 74 4D 6F 64 65 4C 6F 63 3A 3D 44 69 72 65 ectModeLoc:=Dire
010890: 63 74 4D 6F 64 65 47 6C 62 3B 0D 0A 20 20 20 20 ctModeGlb;..
0108A0: 20 20 44 69 72 65 63 74 4D 6F 64 65 47 6C 62 3A DirectModeGlb:
0108B0: 3D 74 72 75 65 3B 0D 0A 20 20 20 20 20 20 70 68 =true;.. ph
0108C0: 69 3A 3D 70 68 69 2A 70 69 2F 31 38 30 2E 30 3B i:=phi*pi/180.0;
0108D0: 0D 0A 20 20 20 20 20 20 69 66 20 61 62 73 28 70 .. if abs(p
0108E0: 68 69 29 2F 28 32 2E 30 2A 70 69 29 3E 31 2E 30 hi)/(2.0*pi)>1.0
0108F0: 20 74 68 65 6E 20 70 68 69 3A 3D 32 2E 30 2A 70 then phi:=2.0*p
010900: 21 50 DD CD 2C 05 D9 2A 36 DD CD D1 05 2A 36 DD !P..,..*6....*6.
010910: 11 06 00 19 E5 21 3E DD CD 2C 05 D9 E1 CD D1 05 .....!>..,......
010920: 2A 36 DD 11 0C 00 19 E5 21 44 DD CD 2C 05 D9 E1 *6......!D..,...
010930: CD D1 05 2A 36 DD 11 12 00 19 E5 21 4A DD CD 2C ...*6......!J..,
010940: 05 D9 E1 CD D1 05 2A 56 DD E5 2A 7E F2 D1 CD CC ......*V..*~....
010950: 06 CB 45 CA 5C 37 2A 56 DD 22 7E F2 C3 91 37 2A ..E.\7*V."~...7*
010960: 56 DD E5 CD 81 05 21 01 00 E5 21 04 00 CD 9B 05 V.....!...!.....
010970: CD 4F 13 CB 45 CA 86 37 21 01 00 E5 21 03 00 E5 .O..E..7!...!...
010980: CD 76 2B C3 91 37 21 01 00 E5 21 02 00 E5 CD 76 .v+..7!...!....v
010990: 2B C9 FD E1 E1 22 34 DD FD E5 2A 34 DD E5 CD 81 +...."4...*4....
0109A0: 05 21 01 00 E5 2A 7E F2 CD 9B 05 CD 4F 13 CB 45 .!...*~.....O..E
0109B0: CA 0A 38 21 84 F1 E5 2A 34 DD 2B 29 29 29 E5 29 ..8!...*4.+))).)
0109C0: D1 19 D1 19 22 2C DD 2A 2C DD CD 2C 05 D9 21 B4 ....",.*,..,..!.
0109D0: F2 CD D1 05 2A 2C DD 11 06 00 19 CD 2C 05 D9 21 ....*,......,..!
0109E0: A8 F2 CD D1 05 2A 2C DD 11 0C 00 19 CD 2C 05 D9 .....*,......,..
0109F0: 21 AE F2 CD D1 05 2A 2C DD 11 12 00 19 CD 2C 05 !.....*,......,.
010A00: D9 21 A2 F2 CD D1 05 C3 15 38 21 02 00 E5 21 02 .!.......8!...!.
010A10: 00 E5 CD 76 2B C9 FD E1 E1 22 22 DD E1 22 24 DD ...v+...."".."$.
010A20: E1 22 26 DD E1 22 28 DD E1 22 2A DD FD E5 2A 2A ."&.."(.."*...**
010A30: DD E5 CD 81 05 21 01 00 E5 21 10 00 CD 9B 05 CD .....!...!......
010A40: 4F 13 E5 2A 28 DD E5 2A 24 DD D1 CD B8 06 D1 7D O..*(..*$......}
010A50: A3 6F E5 2A 26 DD E5 2A 22 DD D1 CD B8 06 D1 7D £o.*&..*"......}
010A60: A3 6F E5 2A 28 DD E5 21 00 00 D1 CD A5 06 D1 7D £o.*(..!.......}
010A70: A3 6F E5 2A 24 DD E5 21 4F 00 D1 CD B8 06 D1 7D £o.*$..!O......}
010A80: A3 6F E5 2A 26 DD E5 21 00 00 D1 CD A5 06 D1 7D £o.*&..!.......}
010A90: A3 6F E5 2A 22 DD E5 21 C7 00 D1 CD B8 06 D1 7D £o.*"..!.......}
010AA0: A3 6F CB 45 CA 19 39 21 B4 EB E5 2A 2A DD 2B E5 £o.E..9!...**.+.
010AB0: 29 29 E5 29 E5 29 E5 29 29 D1 19 D1 19 D1 19 D1 )).).).)).......
010AC0: 19 D1 19 22 1A DD 2A 28 DD EB 2A 1A DD 73 23 72 ..."..*(..*..s#r
010AD0: 2A 1A DD 11 02 00 19 E5 2A 26 DD EB E1 73 23 72 *.......*&...s#r
010AE0: 2A 1A DD 11 04 00 19 E5 2A 24 DD EB E1 73 23 72 *.......*$...s#r
010AF0: 2A 1A DD 11 06 00 19 E5 2A 22 DD EB E1 73 23 72 *.......*"...s#r
010B00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
010B10: 0E 00 00 00 02 09 50 E5 0E 00 41 02 00 00 00 02 ......P...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: 69 3B 0D 0A 20 20 20 20 20 20 6E 3A 3D 74 72 75 i;.. n:=tru
010C10: 6E 63 28 52 61 64 69 75 73 4C 6F 63 2A 61 62 73 nc(RadiusLoc*abs
010C20: 28 70 68 69 29 2F 39 2E 30 29 3B 0D 0A 20 20 20 (phi)/9.0);..
010C30: 20 20 20 69 66 20 6E 3C 32 20 74 68 65 6E 20 6E if n<2 then n
010C40: 3A 3D 32 3B 0D 0A 20 20 20 20 20 20 69 66 20 28 :=2;.. if (
010C50: 61 62 73 28 78 72 31 2D 78 72 30 29 3E 30 29 20 abs(xr1-xr0)>0)
010C60: 61 6E 64 20 28 61 62 73 28 79 72 31 2D 79 72 30 and (abs(yr1-yr0
010C70: 29 3E 30 29 20 74 68 65 6E 20 50 68 69 31 3A 3D )>0) then Phi1:=
010C80: 61 72 63 74 61 6E 28 28 79 72 31 2D 79 72 30 29 arctan((yr1-yr0)
010C90: 2F 28 78 72 31 2D 78 72 30 29 29 0D 0A 20 20 20 /(xr1-xr0))..
010CA0: 20 20 20 65 6C 73 65 20 69 66 20 78 72 31 2D 78 else if xr1-x
010CB0: 72 30 3D 30 20 74 68 65 6E 0D 0A 20 20 20 20 20 r0=0 then..
010CC0: 20 20 20 69 66 20 79 72 31 2D 79 72 30 3E 30 20 if yr1-yr0>0
010CD0: 74 68 65 6E 20 50 68 69 31 3A 3D 70 69 2F 32 2E then Phi1:=pi/2.
010CE0: 30 0D 0A 20 20 20 20 20 20 20 20 65 6C 73 65 20 0.. else
010CF0: 50 68 69 31 3A 3D 31 2E 35 2A 70 69 0D 0A 20 20 Phi1:=1.5*pi..
010D00: 20 20 20 20 65 6C 73 65 20 69 66 20 78 72 31 3E else if xr1>
010D10: 78 72 30 20 74 68 65 6E 20 50 68 69 31 3A 3D 30 xr0 then Phi1:=0
010D20: 2E 30 0D 0A 20 20 20 20 20 20 65 6C 73 65 20 50 .0.. else P
010D30: 68 69 31 3A 3D 70 69 3B 0D 0A 20 20 20 20 20 20 hi1:=pi;..
010D40: 44 65 6C 74 61 50 68 69 3A 3D 70 68 69 2F 28 6E DeltaPhi:=phi/(n
010D50: 2D 31 29 3B 0D 0A 20 20 20 20 20 20 63 3A 3D 31 -1);.. c:=1
010D60: 2E 30 3B 0D 0A 20 20 20 20 20 20 73 3A 3D 30 2E .0;.. s:=0.
010D70: 30 3B 0D 0A 20 20 20 20 20 20 43 6F 73 50 68 69 0;.. CosPhi
010D80: 3A 3D 63 6F 73 28 50 68 69 31 29 3B 0D 0A 20 20 :=cos(Phi1);..
010D90: 20 20 20 20 53 69 6E 50 68 69 3A 3D 73 69 6E 28 SinPhi:=sin(
010DA0: 50 68 69 31 29 3B 0D 0A 20 20 20 20 20 20 43 6F Phi1);.. Co
010DB0: 73 44 70 68 69 3A 3D 63 6F 73 28 44 65 6C 74 61 sDphi:=cos(Delta
010DC0: 50 68 69 29 3B 0D 0A 20 20 20 20 20 20 53 69 6E Phi);.. Sin
010DD0: 44 70 68 69 3A 3D 73 69 6E 28 44 65 6C 74 61 50 Dphi:=sin(DeltaP
010DE0: 68 69 29 3B 0D 0A 20 20 20 20 20 20 69 66 20 78 hi);.. if x
010DF0: 72 31 3C 78 72 30 20 74 68 65 6E 0D 0A 20 20 20 r1<xr0 then..
010E00: 65 78 74 28 78 32 2C 79 32 2C 73 63 61 6C 65 2C ext(x2,y2,scale,
010E10: 54 65 6D 70 54 65 78 74 29 3B 0D 0A 20 20 20 20 TempText);..
010E20: 20 20 20 65 6E 64 3B 0D 0A 20 20 20 20 20 20 78 end;.. x
010E30: 72 31 3A 3D 58 30 4C 6F 63 2B 46 61 6B 74 43 2A r1:=X0Loc+FaktC*
010E40: 52 61 64 69 75 73 4C 6F 63 2A 63 6F 73 28 70 68 RadiusLoc*cos(ph
010E50: 69 2B 50 68 69 31 29 3B 0D 0A 20 20 20 20 20 20 i+Phi1);..
010E60: 79 72 31 3A 3D 59 30 4C 6F 63 2B 46 61 6B 74 53 yr1:=Y0Loc+FaktS
010E70: 2A 52 61 64 69 75 73 4C 6F 63 2A 73 69 6E 28 70 *RadiusLoc*sin(p
010E80: 68 69 2B 50 68 69 31 29 3B 0D 0A 20 20 20 20 20 hi+Phi1);..
010E90: 20 44 69 72 65 63 74 4D 6F 64 65 47 6C 62 3A 3D DirectModeGlb:=
010EA0: 44 69 72 65 63 74 4D 6F 64 65 4C 6F 63 3B 0D 0A DirectModeLoc;..
010EB0: 20 20 20 20 20 65 6E 64 3B 0D 0A 20 20 65 6E 64 end;.. end
010EC0: 3B 0D 0A 1A E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ;...............
010ED0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010EE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010EF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010F00: 20 6F 70 74 69 6F 6E 20 6F 66 0D 0A 20 20 20 20 option of..
010F10: 20 20 20 20 20 20 31 3A 20 54 65 6D 70 54 65 78 1: TempTex
010F20: 74 3A 3D 74 78 74 3B 0D 0A 20 20 20 20 20 20 20 t:=txt;..
010F30: 20 20 20 32 3A 20 54 65 6D 70 54 65 78 74 3A 3D 2: TempText:=
010F40: 74 78 74 2B 54 65 6D 70 54 65 78 74 3B 0D 0A 20 txt+TempText;..
010F50: 20 20 20 20 20 20 20 7B 20 33 3A 20 54 65 6D 70 { 3: Temp
010F60: 54 65 78 74 3A 3D 54 65 6D 70 54 65 78 74 3B 20 Text:=TempText;
010F70: 7D 0D 0A 20 20 20 20 20 20 20 20 20 65 6E 64 3B }.. end;
010F80: 0D 0A 20 20 20 20 20 20 20 20 54 65 78 74 4C 65 .. TextLe
010F90: 6E 3A 3D 6C 65 6E 67 74 68 28 54 65 6D 70 54 65 n:=length(TempTe
010FA0: 78 74 29 3B 0D 0A 20 20 20 20 20 20 20 20 69 66 xt);.. if
010FB0: 20 78 32 3E 3D 78 30 20 74 68 65 6E 20 78 32 3A x2>=x0 then x2:
010FC0: 3D 78 32 2B 73 63 61 6C 65 2A 36 0D 0A 20 20 20 =x2+scale*6..
010FD0: 20 20 20 20 20 65 6C 73 65 20 78 32 3A 3D 78 32 else x2:=x2
010FE0: 2D 54 65 78 74 4C 65 6E 2A 36 2A 73 63 61 6C 65 -TextLen*6*scale
010FF0: 3B 0D 0A 20 20 20 20 20 20 20 20 44 72 61 77 54 ;.. DrawT
011000: 20 20 20 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 begin..
011010: 20 20 20 46 61 6B 74 53 3A 3D 2D 31 3B 0D 0A 20 FaktS:=-1;..
011020: 20 20 20 20 20 20 20 46 61 6B 74 43 3A 3D 2D 31 FaktC:=-1
011030: 3B 0D 0A 20 20 20 20 20 20 20 65 6E 64 0D 0A 20 ;.. end..
011040: 20 20 20 20 20 65 6C 73 65 0D 0A 20 20 20 20 20 else..
011050: 20 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 20 20 begin..
011060: 20 46 61 6B 74 53 3A 3D 31 3B 0D 0A 20 20 20 20 FaktS:=1;..
011070: 20 20 20 20 46 61 6B 74 43 3A 3D 31 3B 0D 0A 20 FaktC:=1;..
011080: 20 20 20 20 20 20 65 6E 64 3B 0D 0A 20 20 20 20 end;..
011090: 20 20 69 66 20 28 79 72 31 3D 79 72 30 29 20 61 if (yr1=yr0) a
0110A0: 6E 64 20 28 78 72 31 3C 78 72 30 29 20 74 68 65 nd (xr1<xr0) the
0110B0: 6E 0D 0A 20 20 20 20 20 20 20 62 65 67 69 6E 0D n.. begin.
0110C0: 0A 20 20 20 20 20 20 20 20 46 61 6B 74 43 3A 3D . FaktC:=
0110D0: 2D 46 61 6B 74 43 3B 0D 0A 20 20 20 20 20 20 20 -FaktC;..
0110E0: 20 46 61 6B 74 53 3A 3D 2D 46 61 6B 74 53 3B 0D FaktS:=-FaktS;.
0110F0: 0A 20 20 20 20 20 20 20 65 6E 64 3B 0D 0A 20 20 . end;..
011100: 20 20 20 20 69 66 20 61 72 65 61 3C 30 20 74 68 if area<0 th
011110: 65 6E 0D 0A 20 20 20 20 20 20 20 62 65 67 69 6E en.. begin
011120: 0D 0A 20 20 20 20 20 20 20 20 61 72 65 61 3A 3D .. area:=
011130: 61 62 73 28 61 72 65 61 29 3B 0D 0A 20 20 20 20 abs(area);..
011140: 20 20 20 20 44 65 6C 74 61 58 3A 3D 46 61 6B 74 DeltaX:=Fakt
011150: 43 2A 30 2E 33 2A 52 61 64 69 75 73 4C 6F 63 2A C*0.3*RadiusLoc*
011160: 63 6F 73 28 70 68 69 2F 32 2B 50 68 69 31 29 3B cos(phi/2+Phi1);
011170: 0D 0A 20 20 20 20 20 20 20 20 44 65 6C 74 61 59 .. DeltaY
011180: 3A 3D 74 72 75 6E 63 28 46 61 6B 74 53 2A 30 2E :=trunc(FaktS*0.
011190: 33 2A 41 73 70 65 63 74 47 6C 62 2A 52 61 64 69 3*AspectGlb*Radi
0111A0: 75 73 4C 6F 63 2A 73 69 6E 28 70 68 69 2F 32 2B usLoc*sin(phi/2+
0111B0: 50 68 69 31 29 2B 30 2E 35 29 3B 0D 0A 20 20 20 Phi1)+0.5);..
0111C0: 20 20 20 20 20 78 72 30 3A 3D 78 72 30 2B 44 65 xr0:=xr0+De
0111D0: 6C 74 61 58 3B 0D 0A 20 20 20 20 20 20 20 20 79 ltaX;.. y
0111E0: 72 30 3A 3D 79 72 30 2B 44 65 6C 74 61 59 3B 0D r0:=yr0+DeltaY;.
0111F0: 0A 20 20 20 20 20 20 20 65 6E 64 3B 0D 0A 20 20 . end;..
011200: 28 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A (***************
011210: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
011220: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
011230: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 29 0D 0A 28 ************)..(
011240: 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 *
011250: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
011260: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
011270: 20 20 20 20 20 20 20 20 20 20 2A 29 0D 0A 28 2A *)..(*
011280: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
011290: 54 55 52 42 4F 20 47 52 41 50 48 49 58 20 76 65 TURBO GRAPHIX ve
0112A0: 72 73 69 6F 6E 20 31 2E 30 35 41 20 20 20 20 20 rsion 1.05A
0112B0: 20 20 20 20 20 20 20 20 20 2A 29 0D 0A 28 2A 20 *)..(*
0112C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0112D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0112E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0112F0: 20 20 20 20 20 20 20 20 2A 29 0D 0A 28 2A 20 20 *)..(*
011300: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
011310: 20 20 20 50 69 65 20 63 68 61 72 74 20 6D 6F 64 Pie chart mod
011320: 75 6C 65 20 20 20 20 20 20 20 20 20 20 20 20 20 ule
011330: 20 20 20 20 20 20 20 2A 29 0D 0A 28 2A 20 20 20 *)..(*
011340: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4D M
011350: 6F 64 75 6C 65 20 76 65 72 73 69 6F 6E 20 20 31 odule version 1
011360: 2E 30 30 41 20 20 20 20 20 20 20 20 20 20 20 20 .00A
011370: 20 20 20 20 20 20 2A 29 0D 0A 28 2A 20 20 20 20 *)..(*
011380: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
011390: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0113A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0113B0: 20 20 20 20 20 2A 29 0D 0A 28 2A 20 20 20 20 20 *)..(*
0113C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 43 6F 70 Cop
0113D0: 79 72 69 67 68 74 20 28 43 29 20 31 39 38 35 20 yright (C) 1985
0113E0: 62 79 20 20 20 20 20 20 20 20 20 20 20 20 20 20 by
0113F0: 20 20 20 20 2A 29 0D 0A 28 2A 20 20 20 20 20 20 *)..(*
011400: 20 20 20 20 78 30 3A 3D 57 69 6E 64 6F 77 58 28 x0:=WindowX(
011410: 78 72 30 29 3B 0D 0A 20 20 20 20 20 20 79 30 3A xr0);.. y0:
011420: 3D 57 69 6E 64 6F 77 59 28 79 72 30 29 3B 0D 0A =WindowY(yr0);..
011430: 20 20 20 20 20 20 69 66 20 6E 6F 74 20 44 69 72 if not Dir
011440: 65 63 74 4D 6F 64 65 4C 6F 63 20 74 68 65 6E 20 ectModeLoc then
011450: 43 6C 69 70 70 65 64 50 6F 69 6E 74 28 78 30 2C ClippedPoint(x0,
011460: 79 30 29 20 65 6C 73 65 20 64 70 28 78 30 2C 79 y0) else dp(x0,y
011470: 30 29 3B 0D 0A 20 20 20 20 20 20 78 31 3A 3D 78 0);.. x1:=x
011480: 30 3B 0D 0A 20 20 20 20 20 20 79 31 3A 3D 79 30 0;.. y1:=y0
011490: 3B 0D 0A 20 20 20 20 20 20 66 6F 72 20 69 3A 3D ;.. for i:=
0114A0: 31 20 74 6F 20 6E 20 64 6F 0D 0A 20 20 20 20 20 1 to n do..
0114B0: 20 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 20 20 begin..
0114C0: 20 78 72 32 3A 3D 78 72 30 2B 46 61 6B 74 43 2A xr2:=xr0+FaktC*
0114D0: 52 61 64 69 75 73 4C 6F 63 2A 28 43 6F 73 50 68 RadiusLoc*(CosPh
0114E0: 69 2A 63 2D 53 69 6E 50 68 69 2A 73 29 3B 0D 0A i*c-SinPhi*s);..
0114F0: 20 20 20 20 20 20 20 20 78 32 3A 3D 57 69 6E 64 x2:=Wind
011500: 6F 77 58 28 78 72 32 29 3B 0D 0A 20 20 20 20 20 owX(xr2);..
011510: 20 20 20 79 72 32 3A 3D 79 72 30 2B 41 73 70 65 yr2:=yr0+Aspe
011520: 63 74 47 6C 62 2A 52 61 64 69 75 73 4C 6F 63 2A ctGlb*RadiusLoc*
011530: 46 61 6B 74 53 2A 28 53 69 6E 50 68 69 2A 63 2B FaktS*(SinPhi*c+
011540: 43 6F 73 50 68 69 2A 73 29 3B 0D 0A 20 20 20 20 CosPhi*s);..
011550: 20 20 20 20 79 32 3A 3D 57 69 6E 64 6F 77 59 28 y2:=WindowY(
011560: 79 72 32 29 3B 0D 0A 20 20 20 20 20 20 20 20 69 yr2);.. i
011570: 66 20 6E 6F 74 20 44 69 72 65 63 74 4D 6F 64 65 f not DirectMode
011580: 4C 6F 63 20 74 68 65 6E 20 43 6C 69 70 70 65 64 Loc then Clipped
011590: 4C 69 6E 65 28 78 31 2C 79 31 2C 78 32 2C 79 32 Line(x1,y1,x2,y2
0115A0: 29 0D 0A 20 20 20 20 20 20 20 20 65 6C 73 65 20 ).. else
0115B0: 44 72 61 77 4C 69 6E 65 28 78 31 2C 79 31 2C 78 DrawLine(x1,y1,x
0115C0: 32 2C 79 32 29 3B 0D 0A 20 20 20 20 20 20 20 20 2,y2);..
0115D0: 78 31 3A 3D 78 32 3B 0D 0A 20 20 20 20 20 20 20 x1:=x2;..
0115E0: 20 79 31 3A 3D 79 32 3B 0D 0A 20 20 20 20 20 20 y1:=y2;..
0115F0: 20 20 43 44 75 6D 6D 79 3A 3D 63 2A 43 6F 73 44 CDummy:=c*CosD
011600: 20 20 20 20 20 20 20 20 20 20 20 20 42 4F 52 4C BORL
011610: 41 4E 44 20 49 6E 74 65 72 6E 61 74 69 6F 6E 61 AND Internationa
011620: 6C 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 l
011630: 20 20 20 2A 29 0D 0A 28 2A 20 20 20 20 20 20 20 *)..(*
011640: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
011650: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
011660: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
011670: 20 20 2A 29 0D 0A 28 2A 2A 2A 2A 2A 2A 2A 2A 2A *)..(*********
011680: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
011690: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
0116A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
0116B0: 2A 2A 29 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 65 **)....procedure
0116C0: 20 44 72 61 77 43 61 72 74 50 69 65 28 58 31 2C DrawCartPie(X1,
0116D0: 59 31 2C 58 32 2C 59 32 2C 49 6E 6E 65 72 2C 4F Y1,X2,Y2,Inner,O
0116E0: 75 74 65 72 3A 72 65 61 6C 3B 0D 0A 20 20 20 20 uter:real;..
0116F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
011700: 20 20 41 3A 50 69 65 41 72 72 61 79 3B 0D 0A 20 A:PieArray;..
011710: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
011720: 20 20 20 20 20 4E 2C 50 72 69 6F 72 2C 53 63 61 N,Prior,Sca
011730: 6C 65 3A 69 6E 74 65 67 65 72 29 3B 0D 0A 20 20 le:integer);..
011740: 76 61 72 20 69 3A 69 6E 74 65 67 65 72 3B 0D 0A var i:integer;..
011750: 20 20 20 20 20 20 53 75 6D 2C 41 73 70 65 63 74 Sum,Aspect
011760: 4C 6F 63 3A 72 65 61 6C 3B 0D 0A 0D 0A 20 20 70 Loc:real;.... p
011770: 72 6F 63 65 64 75 72 65 20 44 43 53 28 4E 3A 20 rocedure DCS(N:
011780: 69 6E 74 65 67 65 72 29 3B 0D 0A 20 20 20 20 62 integer);.. b
011790: 65 67 69 6E 0D 0A 20 20 20 20 20 20 44 72 61 77 egin.. Draw
0117A0: 43 69 72 63 6C 65 53 65 67 6D 65 6E 74 28 58 31 CircleSegment(X1
0117B0: 2C 59 31 2C 58 32 2C 59 32 2C 49 6E 6E 65 72 2C ,Y1,X2,Y2,Inner,
0117C0: 4F 75 74 65 72 2C 61 62 73 28 41 5B 4E 5D 2E 61 Outer,abs(A[N].a
0117D0: 72 65 61 2F 53 75 6D 2A 33 36 30 29 2C 0D 0A 20 rea/Sum*360),..
0117E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0117F0: 20 20 20 20 20 20 20 41 5B 4E 5D 2E 61 72 65 61 A[N].area
011800: 70 68 69 2D 73 2A 53 69 6E 44 70 68 69 3B 0D 0A phi-s*SinDphi;..
011810: 20 20 20 20 20 20 20 20 73 3A 3D 73 2A 43 6F 73 s:=s*Cos
011820: 44 70 68 69 2B 63 2A 53 69 6E 44 70 68 69 3B 0D Dphi+c*SinDphi;.
011830: 0A 20 20 20 20 20 20 20 20 63 3A 3D 43 44 75 6D . c:=CDum
011840: 6D 79 3B 0D 0A 20 20 20 20 20 20 20 65 6E 64 3B my;.. end;
011850: 0D 0A 20 20 20 20 20 20 69 66 20 6E 6F 74 20 50 .. if not P
011860: 69 65 47 6C 62 20 74 68 65 6E 0D 0A 20 20 20 20 ieGlb then..
011870: 20 20 20 20 69 66 20 6E 6F 74 20 44 69 72 65 63 if not Direc
011880: 74 4D 6F 64 65 4C 6F 63 20 74 68 65 6E 20 43 6C tModeLoc then Cl
011890: 69 70 70 65 64 4C 69 6E 65 28 78 31 2C 79 31 2C ippedLine(x1,y1,
0118A0: 78 30 2C 79 30 29 0D 0A 20 20 20 20 20 20 20 20 x0,y0)..
0118B0: 65 6C 73 65 20 44 72 61 77 4C 69 6E 65 28 78 31 else DrawLine(x1
0118C0: 2C 79 31 2C 78 30 2C 79 30 29 3B 0D 0A 20 20 20 ,y1,x0,y0);..
0118D0: 20 20 20 69 66 20 28 6F 70 74 69 6F 6E 3E 30 29 if (option>0)
0118E0: 20 61 6E 64 20 28 70 68 69 3C 32 2E 30 2A 70 69 and (phi<2.0*pi
0118F0: 29 20 74 68 65 6E 0D 0A 20 20 20 20 20 20 20 62 ) then.. b
011900: 65 67 69 6E 0D 0A 20 20 20 20 20 20 20 20 78 72 egin.. xr
011910: 31 3A 3D 78 72 30 2B 46 61 6B 74 43 2A 52 61 64 1:=xr0+FaktC*Rad
011920: 69 75 73 4C 6F 63 2A 69 6E 6E 65 72 2A 63 6F 73 iusLoc*inner*cos
011930: 28 70 68 69 2F 32 2E 30 2B 50 68 69 31 29 3B 0D (phi/2.0+Phi1);.
011940: 0A 20 20 20 20 20 20 20 20 79 72 31 3A 3D 79 72 . yr1:=yr
011950: 30 2B 46 61 6B 74 53 2A 41 73 70 65 63 74 47 6C 0+FaktS*AspectGl
011960: 62 2A 52 61 64 69 75 73 4C 6F 63 2A 69 6E 6E 65 b*RadiusLoc*inne
011970: 72 2A 73 69 6E 28 70 68 69 2F 32 2E 30 2B 50 68 r*sin(phi/2.0+Ph
011980: 69 31 29 3B 0D 0A 20 20 20 20 20 20 20 20 78 72 i1);.. xr
011990: 32 3A 3D 78 72 30 2B 46 61 6B 74 43 2A 52 61 64 2:=xr0+FaktC*Rad
0119A0: 69 75 73 4C 6F 63 2A 6F 75 74 65 72 2A 63 6F 73 iusLoc*outer*cos
0119B0: 28 70 68 69 2F 32 2E 30 2B 50 68 69 31 29 3B 0D (phi/2.0+Phi1);.
0119C0: 0A 20 20 20 20 20 20 20 20 79 72 32 3A 3D 79 72 . yr2:=yr
0119D0: 30 2B 46 61 6B 74 53 2A 41 73 70 65 63 74 47 6C 0+FaktS*AspectGl
0119E0: 62 2A 52 61 64 69 75 73 4C 6F 63 2A 6F 75 74 65 b*RadiusLoc*oute
0119F0: 72 2A 73 69 6E 28 70 68 69 2F 32 2E 30 2B 50 68 r*sin(phi/2.0+Ph
011A00: 2C 41 5B 4E 5D 2E 74 65 78 74 2C 50 72 69 6F 72 ,A[N].text,Prior
011A10: 2C 53 63 61 6C 65 29 3B 0D 0A 20 20 20 20 65 6E ,Scale);.. en
011A20: 64 3B 0D 0A 0D 0A 20 20 62 65 67 69 6E 0D 0A 20 d;.... begin..
011A30: 20 20 20 41 73 70 65 63 74 4C 6F 63 3A 3D 41 73 AspectLoc:=As
011A40: 70 65 63 74 47 6C 62 3B 0D 0A 20 20 20 20 41 73 pectGlb;.. As
011A50: 70 65 63 74 47 6C 62 3A 3D 41 73 70 65 63 74 47 pectGlb:=AspectG
011A60: 6C 62 2A 42 58 47 6C 62 2F 42 59 47 6C 62 3B 0D lb*BXGlb/BYGlb;.
011A70: 0A 20 20 20 20 53 75 6D 3A 3D 30 2E 30 3B 0D 0A . Sum:=0.0;..
011A80: 20 20 20 20 66 6F 72 20 69 3A 3D 31 20 74 6F 20 for i:=1 to
011A90: 4E 20 64 6F 20 53 75 6D 3A 3D 53 75 6D 2B 61 62 N do Sum:=Sum+ab
011AA0: 73 28 41 5B 69 5D 2E 61 72 65 61 29 3B 0D 0A 20 s(A[i].area);..
011AB0: 20 20 20 66 6F 72 20 69 3A 3D 31 20 74 6F 20 4E for i:=1 to N
011AC0: 2D 31 20 64 6F 0D 0A 20 20 20 20 20 62 65 67 69 -1 do.. begi
011AD0: 6E 0D 0A 20 20 20 20 20 20 50 69 65 47 6C 62 3A n.. PieGlb:
011AE0: 3D 28 41 5B 69 5D 2E 61 72 65 61 3E 30 29 20 61 =(A[i].area>0) a
011AF0: 6E 64 20 28 41 5B 69 2B 31 5D 2E 61 72 65 61 3E nd (A[i+1].area>
011B00: 30 29 3B 0D 0A 20 20 20 20 20 20 44 43 53 28 69 0);.. DCS(i
011B10: 29 3B 0D 0A 20 20 20 20 20 65 6E 64 3B 0D 0A 20 );.. end;..
011B20: 20 20 20 50 69 65 47 6C 62 3A 3D 28 41 5B 4E 5D PieGlb:=(A[N]
011B30: 2E 61 72 65 61 3E 30 29 20 61 6E 64 20 28 41 5B .area>0) and (A[
011B40: 31 5D 2E 61 72 65 61 3E 30 29 3B 0D 0A 20 20 20 1].area>0);..
011B50: 20 44 43 53 28 4E 29 3B 0D 0A 20 20 20 20 50 69 DCS(N);.. Pi
011B60: 65 47 6C 62 3A 3D 74 72 75 65 3B 0D 0A 20 20 20 eGlb:=true;..
011B70: 20 41 73 70 65 63 74 47 6C 62 3A 3D 41 73 70 65 AspectGlb:=Aspe
011B80: 63 74 4C 6F 63 3B 0D 0A 20 20 65 6E 64 3B 0D 0A ctLoc;.. end;..
011B90: 0D 0A 70 72 6F 63 65 64 75 72 65 20 44 72 61 77 ..procedure Draw
011BA0: 50 6F 6C 61 72 50 69 65 28 58 31 2C 59 31 2C 52 PolarPie(X1,Y1,R
011BB0: 61 64 69 75 73 2C 41 6E 67 6C 65 2C 49 6E 6E 65 adius,Angle,Inne
011BC0: 72 2C 4F 75 74 65 72 3A 72 65 61 6C 3B 0D 0A 20 r,Outer:real;..
011BD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
011BE0: 20 20 20 20 20 20 41 3A 50 69 65 41 72 72 61 79 A:PieArray
011BF0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ;..
011C00: 69 31 29 3B 0D 0A 20 20 20 20 20 20 20 20 78 31 i1);.. x1
011C10: 3A 3D 57 69 6E 64 6F 77 58 28 78 72 31 29 3B 0D :=WindowX(xr1);.
011C20: 0A 20 20 20 20 20 20 20 20 79 31 3A 3D 57 69 6E . y1:=Win
011C30: 64 6F 77 59 28 79 72 31 29 3B 0D 0A 20 20 20 20 dowY(yr1);..
011C40: 20 20 20 20 78 32 3A 3D 57 69 6E 64 6F 77 58 28 x2:=WindowX(
011C50: 78 72 32 29 3B 0D 0A 20 20 20 20 20 20 20 20 79 xr2);.. y
011C60: 32 3A 3D 57 69 6E 64 6F 77 59 28 79 72 32 29 3B 2:=WindowY(yr2);
011C70: 0D 0A 20 20 20 20 20 20 20 20 69 66 20 6E 6F 74 .. if not
011C80: 20 44 69 72 65 63 74 4D 6F 64 65 4C 6F 63 20 74 DirectModeLoc t
011C90: 68 65 6E 20 43 6C 69 70 70 65 64 4C 69 6E 65 28 hen ClippedLine(
011CA0: 78 31 2C 79 31 2C 78 32 2C 79 32 29 0D 0A 20 20 x1,y1,x2,y2)..
011CB0: 20 20 20 20 20 20 65 6C 73 65 20 44 72 61 77 4C else DrawL
011CC0: 69 6E 65 28 78 31 2C 79 31 2C 78 32 2C 79 32 29 ine(x1,y1,x2,y2)
011CD0: 3B 0D 0A 20 20 20 20 20 20 20 20 73 74 72 28 61 ;.. str(a
011CE0: 72 65 61 3A 31 3A 32 2C 54 65 6D 70 54 65 78 74 rea:1:2,TempText
011CF0: 29 3B 0D 0A 20 20 20 20 20 20 20 20 63 61 73 65 );.. case
011D00: 20 6F 70 74 69 6F 6E 20 6F 66 0D 0A 20 20 20 20 option of..
011D10: 20 20 20 20 20 20 31 3A 20 54 65 6D 70 54 65 78 1: TempTex
011D20: 74 3A 3D 74 78 74 3B 0D 0A 20 20 20 20 20 20 20 t:=txt;..
011D30: 20 20 20 32 3A 20 54 65 6D 70 54 65 78 74 3A 3D 2: TempText:=
011D40: 74 78 74 2B 54 65 6D 70 54 65 78 74 3B 0D 0A 20 txt+TempText;..
011D50: 20 20 20 20 20 20 20 7B 20 33 3A 20 54 65 6D 70 { 3: Temp
011D60: 54 65 78 74 3A 3D 54 65 6D 70 54 65 78 74 3B 20 Text:=TempText;
011D70: 7D 0D 0A 20 20 20 20 20 20 20 20 20 65 6E 64 3B }.. end;
011D80: 0D 0A 20 20 20 20 20 20 20 20 54 65 78 74 4C 65 .. TextLe
011D90: 6E 3A 3D 6C 65 6E 67 74 68 28 54 65 6D 70 54 65 n:=length(TempTe
011DA0: 78 74 29 3B 0D 0A 20 20 20 20 20 20 20 20 69 66 xt);.. if
011DB0: 20 78 32 3E 3D 78 30 20 74 68 65 6E 20 78 32 3A x2>=x0 then x2:
011DC0: 3D 78 32 2B 73 63 61 6C 65 2A 36 0D 0A 20 20 20 =x2+scale*6..
011DD0: 20 20 20 20 20 65 6C 73 65 20 78 32 3A 3D 78 32 else x2:=x2
011DE0: 2D 54 65 78 74 4C 65 6E 2A 36 2A 73 63 61 6C 65 -TextLen*6*scale
011DF0: 3B 0D 0A 20 20 20 20 20 20 20 20 44 72 61 77 54 ;.. DrawT
011E00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
011E10: 0F 00 00 00 02 09 50 E5 0F 00 41 02 00 00 00 02 ......P...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 20 20 20 20 20 20 20 20 20 4E 2C 50 72 69 6F N,Prio
011F10: 72 2C 53 63 61 6C 65 3A 69 6E 74 65 67 65 72 29 r,Scale:integer)
011F20: 3B 0D 0A 20 20 62 65 67 69 6E 0D 0A 20 20 20 20 ;.. begin..
011F30: 41 6E 67 6C 65 3A 3D 41 6E 67 6C 65 2F 31 38 30 Angle:=Angle/180
011F40: 2A 50 69 3B 0D 0A 20 20 20 20 44 72 61 77 43 61 *Pi;.. DrawCa
011F50: 72 74 50 69 65 28 58 31 2C 59 31 2C 58 31 2B 43 rtPie(X1,Y1,X1+C
011F60: 6F 73 28 41 6E 67 6C 65 29 2A 52 61 64 69 75 73 os(Angle)*Radius
011F70: 2C 59 31 2B 53 69 6E 28 2D 41 6E 67 6C 65 29 2A ,Y1+Sin(-Angle)*
011F80: 52 61 64 69 75 73 7B 2A 41 73 70 65 63 74 47 6C Radius{*AspectGl
011F90: 62 2A 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 b*..
011FA0: 20 20 20 20 42 58 47 6C 62 2F 42 79 47 6C 62 7D BXGlb/ByGlb}
011FB0: 2C 49 6E 6E 65 72 2C 4F 75 74 65 72 2C 41 2C 4E ,Inner,Outer,A,N
011FC0: 2C 50 72 69 6F 72 2C 53 63 61 6C 65 29 3B 0D 0A ,Prior,Scale);..
011FD0: 20 20 65 6E 64 3B 0D 0A 1A 00 11 00 76 06 00 00 end;......v...
011FE0: 4D 4F 44 50 4F 4C 59 20 48 47 48 20 00 00 00 00 MODPOLY HGH ....
011FF0: 00 00 00 00 00 00 00 00 00 00 13 00 C2 08 00 00 ................
012000: 30 29 3B 0D 0A 20 20 20 20 20 20 44 43 53 28 69 0);.. DCS(i
012010: 29 3B 0D 0A 20 20 20 20 20 65 6E 64 3B 0D 0A 20 );.. end;..
012020: 20 20 20 50 69 65 47 6C 62 3A 3D 28 41 5B 4E 5D PieGlb:=(A[N]
012030: 2E 61 72 65 61 3E 30 29 20 61 6E 64 20 28 41 5B .area>0) and (A[
012040: 31 5D 2E 61 72 65 61 3E 30 29 3B 0D 0A 20 20 20 1].area>0);..
012050: 20 44 43 53 28 4E 29 3B 0D 0A 20 20 20 20 50 69 DCS(N);.. Pi
012060: 65 47 6C 62 3A 3D 74 72 75 65 3B 0D 0A 20 20 20 eGlb:=true;..
012070: 20 41 73 70 65 63 74 47 6C 62 3A 3D 41 73 70 65 AspectGlb:=Aspe
012080: 63 74 4C 6F 63 3B 0D 0A 20 20 65 6E 64 3B 0D 0A ctLoc;.. end;..
012090: 0D 0A 70 72 6F 63 65 64 75 72 65 20 44 72 61 77 ..procedure Draw
0120A0: 50 6F 6C 61 72 50 69 65 28 58 31 2C 59 31 2C 52 PolarPie(X1,Y1,R
0120B0: 61 64 69 75 73 2C 41 6E 67 6C 65 2C 49 6E 6E 65 adius,Angle,Inne
0120C0: 72 2C 4F 75 74 65 72 3A 72 65 61 6C 3B 0D 0A 20 r,Outer:real;..
0120D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0120E0: 20 20 20 20 20 20 41 3A 50 69 65 41 72 72 61 79 A:PieArray
0120F0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ;..
012100: 0A 20 20 20 20 20 20 78 31 3A 3D 58 31 52 65 66 . x1:=X1Ref
012110: 47 6C 62 20 73 68 6C 20 33 3B 0D 0A 20 20 20 20 Glb shl 3;..
012120: 20 20 59 52 65 66 3A 3D 74 72 75 6E 63 28 59 32 YRef:=trunc(Y2
012130: 52 65 66 47 6C 62 2B 59 31 52 65 66 47 6C 62 2D RefGlb+Y1RefGlb-
012140: 41 79 47 6C 62 29 3B 0D 0A 20 20 20 20 20 20 69 AyGlb);.. i
012150: 66 20 4E 65 67 61 74 69 76 65 20 74 68 65 6E 20 f Negative then
012160: 44 72 61 77 53 74 72 61 69 67 68 74 28 78 31 2C DrawStraight(x1,
012170: 58 32 52 65 66 47 6C 62 20 73 68 6C 20 33 2B 37 X2RefGlb shl 3+7
012180: 2C 59 52 65 66 29 3B 0D 0A 20 20 20 20 20 20 59 ,YRef);.. Y
012190: 41 78 69 73 3A 3D 59 31 52 65 66 47 6C 62 3B 0D Axis:=Y1RefGlb;.
0121A0: 0A 20 20 20 20 20 20 69 66 20 42 59 47 6C 62 3E . if BYGlb>
0121B0: 30 20 74 68 65 6E 20 59 41 78 69 73 3A 3D 59 32 0 then YAxis:=Y2
0121C0: 52 65 66 47 6C 62 3B 0D 0A 20 20 20 20 20 20 66 RefGlb;.. f
0121D0: 6F 72 20 69 3A 3D 31 20 74 6F 20 4E 50 6F 69 6E or i:=1 to NPoin
0121E0: 74 73 20 64 6F 0D 0A 20 20 20 20 20 20 20 62 65 ts do.. be
0121F0: 67 69 6E 0D 0A 20 20 20 20 20 20 20 20 78 32 3A gin.. x2:
012200: 3D 78 31 2B 44 65 6C 74 61 2B 42 61 6C 61 6E 63 =x1+Delta+Balanc
012210: 65 3B 0D 0A 20 20 20 20 20 20 20 20 79 3A 3D 41 e;.. y:=A
012220: 5B 69 2C 32 5D 3B 0D 0A 20 20 20 20 20 20 20 20 [i,2];..
012230: 69 66 20 6E 6F 74 20 4E 65 67 61 74 69 76 65 20 if not Negative
012240: 74 68 65 6E 20 79 3A 3D 61 62 73 28 79 29 3B 0D then y:=abs(y);.
012250: 0A 20 20 20 20 20 20 20 20 69 66 20 41 78 69 73 . if Axis
012260: 47 6C 62 20 74 68 65 6E 20 79 32 3A 3D 74 72 75 Glb then y2:=tru
012270: 6E 63 28 41 79 47 6C 62 2B 42 79 47 6C 62 2A 79 nc(AyGlb+ByGlb*y
012280: 29 0D 0A 20 20 20 20 20 20 20 20 65 6C 73 65 20 ).. else
012290: 79 32 3A 3D 74 72 75 6E 63 28 28 41 79 47 6C 62 y2:=trunc((AyGlb
0122A0: 2B 42 79 47 6C 62 2A 79 29 2A 30 2E 39 39 29 3B +ByGlb*y)*0.99);
0122B0: 0D 0A 20 20 20 20 20 20 20 20 79 32 3A 3D 59 32 .. y2:=Y2
0122C0: 52 65 66 47 6C 62 2B 59 31 52 65 66 47 6C 62 2D RefGlb+Y1RefGlb-
0122D0: 79 32 3B 0D 0A 20 20 20 20 20 20 20 20 69 66 20 y2;.. if
0122E0: 6E 6F 74 20 4E 65 67 61 74 69 76 65 20 74 68 65 not Negative the
0122F0: 6E 0D 0A 20 20 20 20 20 20 20 20 20 62 65 67 69 n.. begi
012300: 28 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A (***************
012310: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
012320: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
012330: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 29 0D 0A 28 ************)..(
012340: 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 *
012350: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
012360: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
012370: 20 20 20 20 20 20 20 20 20 20 2A 29 0D 0A 28 2A *)..(*
012380: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
012390: 54 55 52 42 4F 20 47 52 41 50 48 49 58 20 76 65 TURBO GRAPHIX ve
0123A0: 72 73 69 6F 6E 20 31 2E 30 35 41 20 20 20 20 20 rsion 1.05A
0123B0: 20 20 20 20 20 20 20 20 20 2A 29 0D 0A 28 2A 20 *)..(*
0123C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0123D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0123E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0123F0: 20 20 20 20 20 20 20 20 2A 29 0D 0A 28 2A 20 20 *)..(*
012400: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
012410: 20 48 69 73 74 6F 67 72 61 6D 6D 65 20 6D 6F 64 Histogramme mod
012420: 75 6C 65 20 20 20 20 20 20 20 20 20 20 20 20 20 ule
012430: 20 20 20 20 20 20 20 2A 29 0D 0A 28 2A 20 20 20 *)..(*
012440: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
012450: 4D 6F 64 75 6C 65 20 76 65 72 73 69 6F 6E 20 31 Module version 1
012460: 2E 30 35 41 20 20 20 20 20 20 20 20 20 20 20 20 .05A
012470: 20 20 20 20 20 20 2A 29 0D 0A 28 2A 20 20 20 20 *)..(*
012480: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
012490: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0124A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0124B0: 20 20 20 20 20 2A 29 0D 0A 28 2A 20 20 20 20 20 *)..(*
0124C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 43 6F 70 Cop
0124D0: 79 72 69 67 68 74 20 28 43 29 20 31 39 38 35 20 yright (C) 1985
0124E0: 62 79 20 20 20 20 20 20 20 20 20 20 20 20 20 20 by
0124F0: 20 20 20 20 2A 29 0D 0A 28 2A 20 20 20 20 20 20 *)..(*
012500: 6E 0D 0A 20 20 20 20 20 20 20 20 20 20 44 72 61 n.. Dra
012510: 77 4C 69 6E 65 28 78 31 2C 59 41 78 69 73 2C 78 wLine(x1,YAxis,x
012520: 31 2C 79 32 29 3B 0D 0A 20 20 20 20 20 20 20 20 1,y2);..
012530: 20 20 44 72 61 77 53 74 72 61 69 67 68 74 28 78 DrawStraight(x
012540: 31 2C 78 32 2C 79 32 29 3B 0D 0A 20 20 20 20 20 1,x2,y2);..
012550: 20 20 20 20 20 44 72 61 77 4C 69 6E 65 28 78 32 DrawLine(x2
012560: 2C 79 32 2C 78 32 2C 59 41 78 69 73 29 3B 0D 0A ,y2,x2,YAxis);..
012570: 20 20 20 20 20 20 20 20 20 20 69 66 20 48 61 74 if Hat
012580: 63 68 69 6E 67 20 74 68 65 6E 0D 0A 20 20 20 20 ching then..
012590: 20 20 20 20 20 20 20 20 69 66 20 6F 64 64 28 69 if odd(i
0125A0: 29 20 74 68 65 6E 20 68 61 74 63 68 28 78 31 2C ) then hatch(x1,
0125B0: 79 32 2C 78 32 2C 59 41 78 69 73 2C 48 61 74 63 y2,x2,YAxis,Hatc
0125C0: 68 53 74 79 6C 65 29 0D 0A 20 20 20 20 20 20 20 hStyle)..
0125D0: 20 20 20 20 20 65 6C 73 65 20 68 61 74 63 68 28 else hatch(
0125E0: 78 31 2C 79 32 2C 78 32 2C 59 41 78 69 73 2C 2D x1,y2,x2,YAxis,-
0125F0: 48 61 74 63 68 53 74 79 6C 65 29 3B 0D 0A 20 20 HatchStyle);..
012600: 20 20 20 20 20 20 20 65 6E 64 0D 0A 20 20 20 20 end..
012610: 20 20 20 20 65 6C 73 65 0D 0A 20 20 20 20 20 20 else..
012620: 20 20 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 20 begin..
012630: 20 20 20 20 44 72 61 77 4C 69 6E 65 28 78 31 2C DrawLine(x1,
012640: 59 52 65 66 2C 78 31 2C 79 32 29 3B 0D 0A 20 20 YRef,x1,y2);..
012650: 20 20 20 20 20 20 20 20 44 72 61 77 53 74 72 61 DrawStra
012660: 69 67 68 74 28 78 31 2C 78 32 2C 79 32 29 3B 0D ight(x1,x2,y2);.
012670: 0A 20 20 20 20 20 20 20 20 20 20 44 72 61 77 4C . DrawL
012680: 69 6E 65 28 78 32 2C 79 32 2C 78 32 2C 59 52 65 ine(x2,y2,x2,YRe
012690: 66 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 69 f);.. i
0126A0: 66 20 48 61 74 63 68 69 6E 67 20 74 68 65 6E 0D f Hatching then.
0126B0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 . if
0126C0: 59 52 65 66 2D 79 32 3C 30 20 74 68 65 6E 0D 0A YRef-y2<0 then..
0126D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 if
0126E0: 20 6F 64 64 28 69 29 20 74 68 65 6E 20 68 61 74 odd(i) then hat
0126F0: 63 68 28 78 31 2C 59 52 65 66 2C 78 32 2C 79 32 ch(x1,YRef,x2,y2
012700: 20 20 20 20 20 20 20 20 20 20 20 20 42 4F 52 4C BORL
012710: 41 4E 44 20 49 6E 74 65 72 6E 61 74 69 6F 6E 61 AND Internationa
012720: 6C 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 l
012730: 20 20 20 2A 29 0D 0A 28 2A 20 20 20 20 20 20 20 *)..(*
012740: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
012750: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
012760: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
012770: 20 20 2A 29 0D 0A 28 2A 2A 2A 2A 2A 2A 2A 2A 2A *)..(*********
012780: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
012790: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
0127A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
0127B0: 2A 2A 29 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 65 **)....procedure
0127C0: 20 44 72 61 77 48 69 73 74 6F 67 72 61 6D 28 41 DrawHistogram(A
0127D0: 3A 50 6C 6F 74 41 72 72 61 79 3B 0D 0A 20 20 20 :PlotArray;..
0127E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0127F0: 20 20 20 20 20 4E 50 6F 69 6E 74 73 3A 69 6E 74 NPoints:int
012800: 65 67 65 72 3B 0D 0A 20 20 20 20 20 20 20 20 20 eger;..
012810: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 48 H
012820: 61 74 63 68 69 6E 67 3A 62 6F 6F 6C 65 61 6E 3B atching:boolean;
012830: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
012840: 20 20 20 20 20 20 20 20 20 20 48 61 74 63 68 53 HatchS
012850: 74 79 6C 65 3A 69 6E 74 65 67 65 72 29 3B 0D 0A tyle:integer);..
012860: 0D 0A 20 20 76 61 72 20 78 31 2C 78 32 2C 79 32 .. var x1,x2,y2
012870: 2C 4E 50 69 78 65 6C 73 2C 44 65 6C 74 61 2C 4E ,NPixels,Delta,N
012880: 44 69 66 66 2C 59 52 65 66 3A 69 6E 74 65 67 65 Diff,YRef:intege
012890: 72 3B 0D 0A 20 20 20 20 20 20 4C 69 6E 65 53 74 r;.. LineSt
0128A0: 79 6C 65 4C 6F 63 2C 69 3A 69 6E 74 65 67 65 72 yleLoc,i:integer
0128B0: 3B 0D 0A 20 20 20 20 20 20 46 72 61 63 74 2C 73 ;.. Fract,s
0128C0: 2C 79 2C 59 41 78 69 73 3A 72 65 61 6C 3B 0D 0A ,y,YAxis:real;..
0128D0: 20 20 20 20 20 20 44 69 72 65 63 74 4D 6F 64 65 DirectMode
0128E0: 4C 6F 63 2C 4E 65 67 61 74 69 76 65 3A 62 6F 6F Loc,Negative:boo
0128F0: 6C 65 61 6E 3B 0D 0A 20 20 20 20 20 20 77 74 65 lean;.. wte
012900: 2C 48 61 74 63 68 53 74 79 6C 65 29 0D 0A 20 20 ,HatchStyle)..
012910: 20 20 20 20 20 20 20 20 20 20 20 20 65 6C 73 65 else
012920: 20 68 61 74 63 68 28 78 31 2C 59 52 65 66 2C 78 hatch(x1,YRef,x
012930: 32 2C 79 32 2C 2D 48 61 74 63 68 53 74 79 6C 65 2,y2,-HatchStyle
012940: 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 65 ).. e
012950: 6C 73 65 20 69 66 20 6F 64 64 28 69 29 20 74 68 lse if odd(i) th
012960: 65 6E 20 68 61 74 63 68 28 78 31 2C 79 32 2C 78 en hatch(x1,y2,x
012970: 32 2C 59 52 65 66 2C 48 61 74 63 68 53 74 79 6C 2,YRef,HatchStyl
012980: 65 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 e)..
012990: 65 6C 73 65 20 68 61 74 63 68 28 78 31 2C 79 32 else hatch(x1,y2
0129A0: 2C 78 32 2C 59 52 65 66 2C 2D 48 61 74 63 68 53 ,x2,YRef,-HatchS
0129B0: 74 79 6C 65 29 3B 0D 0A 20 20 20 20 20 20 20 20 tyle);..
0129C0: 20 65 6E 64 3B 0D 0A 20 20 20 20 20 20 20 20 78 end;.. x
0129D0: 31 3A 3D 78 32 3B 0D 0A 20 20 20 20 20 20 20 65 1:=x2;.. e
0129E0: 6E 64 3B 0D 0A 20 20 20 20 20 20 69 66 20 41 78 nd;.. if Ax
0129F0: 69 73 47 6C 62 20 74 68 65 6E 0D 0A 20 20 20 20 isGlb then..
012A00: 20 20 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 20 begin..
012A10: 20 20 77 69 6E 64 6F 77 5B 57 69 6E 64 6F 77 4E window[WindowN
012A20: 64 78 47 6C 62 5D 3A 3D 77 74 65 6D 70 3B 0D 0A dxGlb]:=wtemp;..
012A30: 20 20 20 20 20 20 20 20 53 65 6C 65 63 74 57 69 SelectWi
012A40: 6E 64 6F 77 28 57 69 6E 64 6F 77 4E 64 78 47 6C ndow(WindowNdxGl
012A50: 62 29 3B 0D 0A 20 20 20 20 20 20 20 20 58 31 47 b);.. X1G
012A60: 6C 62 20 3A 3D 20 58 31 4C 6F 63 3B 0D 0A 20 20 lb := X1Loc;..
012A70: 20 20 20 20 20 20 59 31 47 6C 62 20 3A 3D 20 59 Y1Glb := Y
012A80: 31 4C 6F 63 3B 0D 0A 20 20 20 20 20 20 20 20 58 1Loc;.. X
012A90: 32 47 6C 62 20 3A 3D 20 58 32 4C 6F 63 3B 0D 0A 2Glb := X2Loc;..
012AA0: 20 20 20 20 20 20 20 20 59 32 47 6C 62 20 3A 3D Y2Glb :=
012AB0: 20 59 32 4C 6F 63 3B 0D 0A 20 20 20 20 20 20 20 Y2Loc;..
012AC0: 20 41 78 69 73 47 6C 62 3A 3D 66 61 6C 73 65 3B AxisGlb:=false;
012AD0: 0D 0A 20 20 20 20 20 20 20 65 6E 64 3B 0D 0A 20 .. end;..
012AE0: 20 20 20 20 20 44 69 72 65 63 74 4D 6F 64 65 47 DirectModeG
012AF0: 6C 62 3A 3D 44 69 72 65 63 74 4D 6F 64 65 4C 6F lb:=DirectModeLo
012B00: 6D 70 3A 57 69 6E 64 6F 77 54 79 70 65 3B 0D 0A mp:WindowType;..
012B10: 20 20 20 20 20 20 58 31 4C 6F 63 2C 59 31 4C 6F X1Loc,Y1Lo
012B20: 63 2C 58 32 4C 6F 63 2C 59 32 4C 6F 63 3A 69 6E c,X2Loc,Y2Loc:in
012B30: 74 65 67 65 72 3B 0D 0A 0D 0A 20 20 66 75 6E 63 teger;.... func
012B40: 74 69 6F 6E 20 42 61 6C 61 6E 63 65 3A 69 6E 74 tion Balance:int
012B50: 65 67 65 72 3B 0D 0A 20 20 20 20 62 65 67 69 6E eger;.. begin
012B60: 0D 0A 20 20 20 20 20 20 42 61 6C 61 6E 63 65 3A .. Balance:
012B70: 3D 30 3B 0D 0A 20 20 20 20 20 20 73 3A 3D 73 2B =0;.. s:=s+
012B80: 46 72 61 63 74 3B 0D 0A 20 20 20 20 20 20 69 66 Fract;.. if
012B90: 20 73 3E 3D 30 2E 30 20 74 68 65 6E 0D 0A 20 20 s>=0.0 then..
012BA0: 20 20 20 20 20 62 65 67 69 6E 0D 0A 20 20 20 20 begin..
012BB0: 20 20 20 20 73 3A 3D 73 2D 31 2E 30 3B 0D 0A 20 s:=s-1.0;..
012BC0: 20 20 20 20 20 20 20 42 61 6C 61 6E 63 65 3A 3D Balance:=
012BD0: 31 3B 0D 0A 20 20 20 20 20 20 20 65 6E 64 3B 0D 1;.. end;.
012BE0: 0A 20 20 20 20 65 6E 64 3B 0D 0A 0D 0A 20 20 62 . end;.... b
012BF0: 65 67 69 6E 20 7B 20 48 69 73 74 6F 67 72 61 6D egin { Histogram
012C00: 6D 65 20 7D 0D 0A 20 20 20 20 69 66 20 61 62 73 me }.. if abs
012C10: 28 4E 50 6F 69 6E 74 73 29 3E 3D 32 20 74 68 65 (NPoints)>=2 the
012C20: 6E 0D 0A 20 20 20 20 20 62 65 67 69 6E 0D 0A 20 n.. begin..
012C30: 20 20 20 20 20 58 31 4C 6F 63 20 3A 3D 20 58 31 X1Loc := X1
012C40: 47 6C 62 3B 0D 0A 20 20 20 20 20 20 59 31 4C 6F Glb;.. Y1Lo
012C50: 63 20 3A 3D 20 59 31 47 6C 62 3B 0D 0A 20 20 20 c := Y1Glb;..
012C60: 20 20 20 58 32 4C 6F 63 20 3A 3D 20 58 32 47 6C X2Loc := X2Gl
012C70: 62 3B 0D 0A 20 20 20 20 20 20 59 32 4C 6F 63 20 b;.. Y2Loc
012C80: 3A 3D 20 59 32 47 6C 62 3B 0D 0A 20 20 20 20 20 := Y2Glb;..
012C90: 20 4C 69 6E 65 53 74 79 6C 65 4C 6F 63 3A 3D 4C LineStyleLoc:=L
012CA0: 69 6E 65 73 74 79 6C 65 47 6C 62 3B 0D 0A 20 20 inestyleGlb;..
012CB0: 20 20 20 20 53 65 74 4C 69 6E 65 53 74 79 6C 65 SetLineStyle
012CC0: 28 30 29 3B 0D 0A 20 20 20 20 20 20 69 66 20 41 (0);.. if A
012CD0: 78 69 73 47 6C 62 20 74 68 65 6E 0D 0A 20 20 20 xisGlb then..
012CE0: 20 20 20 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 begin..
012CF0: 20 20 20 77 74 65 6D 70 3A 3D 77 69 6E 64 6F 77 wtemp:=window
012D00: 63 3B 0D 0A 20 20 20 20 20 20 53 65 74 4C 69 6E c;.. SetLin
012D10: 65 53 74 79 6C 65 28 4C 69 6E 65 53 74 79 6C 65 eStyle(LineStyle
012D20: 4C 6F 63 29 3B 0D 0A 20 20 20 20 20 65 6E 64 0D Loc);.. end.
012D30: 0A 20 20 20 20 65 6C 73 65 20 65 72 72 6F 72 28 . else error(
012D40: 31 39 2C 34 29 3B 0D 0A 20 20 65 6E 64 3B 0D 0A 19,4);.. end;..
012D50: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
012D60: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
012D70: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
012D80: 65 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 e)..
012D90: 65 6C 73 65 20 68 61 74 63 68 28 78 31 2C 79 32 else hatch(x1,y2
012DA0: 2C 78 32 2C 59 52 65 66 2C 2D 48 61 74 63 68 53 ,x2,YRef,-HatchS
012DB0: 74 79 6C 65 29 3B 0D 0A 20 20 20 20 20 20 20 20 tyle);..
012DC0: 20 65 6E 64 3B 0D 0A 20 20 20 20 20 20 20 20 78 end;.. x
012DD0: 31 3A 3D 78 32 3B 0D 0A 20 20 20 20 20 20 20 65 1:=x2;.. e
012DE0: 6E 64 3B 0D 0A 20 20 20 20 20 20 69 66 20 41 78 nd;.. if Ax
012DF0: 69 73 47 6C 62 20 74 68 65 6E 0D 0A 20 20 20 20 isGlb then..
012E00: 20 20 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 20 begin..
012E10: 20 20 77 69 6E 64 6F 77 5B 57 69 6E 64 6F 77 4E window[WindowN
012E20: 64 78 47 6C 62 5D 3A 3D 77 74 65 6D 70 3B 0D 0A dxGlb]:=wtemp;..
012E30: 20 20 20 20 20 20 20 20 53 65 6C 65 63 74 57 69 SelectWi
012E40: 6E 64 6F 77 28 57 69 6E 64 6F 77 4E 64 78 47 6C ndow(WindowNdxGl
012E50: 62 29 3B 0D 0A 20 20 20 20 20 20 20 20 58 31 47 b);.. X1G
012E60: 6C 62 20 3A 3D 20 58 31 4C 6F 63 3B 0D 0A 20 20 lb := X1Loc;..
012E70: 20 20 20 20 20 20 59 31 47 6C 62 20 3A 3D 20 59 Y1Glb := Y
012E80: 31 4C 6F 63 3B 0D 0A 20 20 20 20 20 20 20 20 58 1Loc;.. X
012E90: 32 47 6C 62 20 3A 3D 20 58 32 4C 6F 63 3B 0D 0A 2Glb := X2Loc;..
012EA0: 20 20 20 20 20 20 20 20 59 32 47 6C 62 20 3A 3D Y2Glb :=
012EB0: 20 59 32 4C 6F 63 3B 0D 0A 20 20 20 20 20 20 20 Y2Loc;..
012EC0: 20 41 78 69 73 47 6C 62 3A 3D 66 61 6C 73 65 3B AxisGlb:=false;
012ED0: 0D 0A 20 20 20 20 20 20 20 65 6E 64 3B 0D 0A 20 .. end;..
012EE0: 20 20 20 20 20 44 69 72 65 63 74 4D 6F 64 65 47 DirectModeG
012EF0: 6C 62 3A 3D 44 69 72 65 63 74 4D 6F 64 65 4C 6F lb:=DirectModeLo
012F00: 5B 57 69 6E 64 6F 77 4E 64 78 47 6C 62 5D 3B 0D [WindowNdxGlb];.
012F10: 0A 20 20 20 20 20 20 20 20 52 65 44 65 66 69 6E . ReDefin
012F20: 65 57 69 6E 64 6F 77 28 57 69 6E 64 6F 77 4E 64 eWindow(WindowNd
012F30: 78 47 6C 62 2C 58 31 52 65 66 47 6C 62 2B 34 2B xGlb,X1RefGlb+4+
012F40: 58 31 47 6C 62 2C 59 31 52 65 66 47 6C 62 2B 36 X1Glb,Y1RefGlb+6
012F50: 2B 59 31 47 6C 62 2C 0D 0A 20 20 20 20 20 20 20 +Y1Glb,..
012F60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
012F70: 58 32 52 65 66 47 6C 62 2D 32 2D 58 32 47 6C 62 X2RefGlb-2-X2Glb
012F80: 2C 59 32 52 65 66 47 6C 62 2D 31 34 2D 59 32 47 ,Y2RefGlb-14-Y2G
012F90: 6C 62 29 3B 0D 0A 20 20 20 20 20 20 20 20 53 65 lb);.. Se
012FA0: 6C 65 63 74 57 69 6E 64 6F 77 28 57 69 6E 64 6F lectWindow(Windo
012FB0: 77 4E 64 78 47 6C 62 29 3B 0D 0A 20 20 20 20 20 wNdxGlb);..
012FC0: 20 20 20 41 78 69 73 47 6C 62 20 3A 3D 20 74 72 AxisGlb := tr
012FD0: 75 65 3B 0D 0A 20 20 20 20 20 20 20 65 6E 64 3B ue;.. end;
012FE0: 0D 0A 20 20 20 20 20 20 44 69 72 65 63 74 4D 6F .. DirectMo
012FF0: 64 65 4C 6F 63 3A 3D 44 69 72 65 63 74 4D 6F 64 deLoc:=DirectMod
013000: 65 47 6C 62 3B 0D 0A 20 20 20 20 20 20 44 69 72 eGlb;.. Dir
013010: 65 63 74 4D 6F 64 65 47 6C 62 3A 3D 74 72 75 65 ectModeGlb:=true
013020: 3B 0D 0A 20 20 20 20 20 20 4E 65 67 61 74 69 76 ;.. Negativ
013030: 65 3A 3D 4E 50 6F 69 6E 74 73 3C 30 3B 0D 0A 20 e:=NPoints<0;..
013040: 20 20 20 20 20 4E 50 6F 69 6E 74 73 3A 3D 61 62 NPoints:=ab
013050: 73 28 4E 50 6F 69 6E 74 73 29 3B 0D 0A 20 20 20 s(NPoints);..
013060: 20 20 20 4E 50 69 78 65 6C 73 3A 3D 28 58 32 52 NPixels:=(X2R
013070: 65 66 47 6C 62 2D 58 31 52 65 66 47 6C 62 29 20 efGlb-X1RefGlb)
013080: 73 68 6C 20 33 2B 37 3B 0D 0A 20 20 20 20 20 20 shl 3+7;..
013090: 44 65 6C 74 61 3A 3D 4E 50 69 78 65 6C 73 20 64 Delta:=NPixels d
0130A0: 69 76 20 4E 50 6F 69 6E 74 73 3B 0D 0A 20 20 20 iv NPoints;..
0130B0: 20 20 20 4E 44 69 66 66 3A 3D 4E 50 69 78 65 6C NDiff:=NPixel
0130C0: 73 2D 44 65 6C 74 61 2A 4E 50 6F 69 6E 74 73 3B s-Delta*NPoints;
0130D0: 0D 0A 20 20 20 20 20 20 46 72 61 63 74 3A 3D 4E .. Fract:=N
0130E0: 44 69 66 66 2F 4E 50 6F 69 6E 74 73 3B 0D 0A 20 Diff/NPoints;..
0130F0: 20 20 20 20 20 73 3A 3D 2D 46 72 61 63 74 3B 0D s:=-Fract;.
013100: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
013110: 10 00 00 00 02 09 50 E5 10 00 41 02 00 00 00 02 ......P...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: 28 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A (***************
013210: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
013220: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
013230: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 29 0D 0A 28 ************)..(
013240: 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 *
013250: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
013260: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
013270: 20 20 20 20 20 20 20 20 20 20 2A 29 0D 0A 28 2A *)..(*
013280: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
013290: 54 55 52 42 4F 20 47 52 41 50 48 49 58 20 76 65 TURBO GRAPHIX ve
0132A0: 72 73 69 6F 6E 20 31 2E 30 35 41 20 20 20 20 20 rsion 1.05A
0132B0: 20 20 20 20 20 20 20 20 20 2A 29 0D 0A 28 2A 20 *)..(*
0132C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
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 20 20 20 20 20 20
0132F0: 20 20 20 20 20 20 20 20 2A 29 0D 0A 28 2A 20 20 *)..(*
013300: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
013310: 47 72 61 70 68 69 63 73 20 73 79 73 74 65 6D 20 Graphics system
013320: 6B 65 72 6E 65 6C 20 20 20 20 20 20 20 20 20 20 kernel
013330: 20 20 20 20 20 20 20 2A 29 0D 0A 28 2A 20 20 20 *)..(*
013340: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
013350: 4D 6F 64 75 6C 65 20 76 65 72 73 69 6F 6E 20 31 Module version 1
013360: 2E 30 33 41 20 20 20 20 20 20 20 20 20 20 20 20 .03A
013370: 20 20 20 20 20 20 2A 29 0D 0A 28 2A 20 20 20 20 *)..(*
013380: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
013390: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0133A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0133B0: 20 20 20 20 20 2A 29 0D 0A 28 2A 20 20 20 20 20 *)..(*
0133C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 43 6F 70 Cop
0133D0: 79 72 69 67 68 74 20 28 43 29 20 31 39 38 35 20 yright (C) 1985
0133E0: 62 79 20 20 20 20 20 20 20 20 20 20 20 20 20 20 by
0133F0: 20 20 20 20 2A 29 0D 0A 28 2A 20 20 20 20 20 20 *)..(*
013400: 65 74 4D 65 73 73 61 67 65 4F 66 66 3B 0D 0A 20 etMessageOff;..
013410: 20 62 65 67 69 6E 20 4D 65 73 73 61 67 65 47 6C begin MessageGl
013420: 62 3A 3D 66 61 6C 73 65 3B 20 65 6E 64 3B 0D 0A b:=false; end;..
013430: 0D 0A 70 72 6F 63 65 64 75 72 65 20 53 65 74 48 ..procedure SetH
013440: 65 61 64 65 72 4F 6E 3B 0D 0A 20 20 62 65 67 69 eaderOn;.. begi
013450: 6E 20 48 65 61 64 65 72 47 6C 62 3A 3D 74 72 75 n HeaderGlb:=tru
013460: 65 3B 20 65 6E 64 3B 0D 0A 0D 0A 70 72 6F 63 65 e; end;....proce
013470: 64 75 72 65 20 53 65 74 48 65 61 64 65 72 4F 66 dure SetHeaderOf
013480: 66 3B 0D 0A 20 20 62 65 67 69 6E 20 48 65 61 64 f;.. begin Head
013490: 65 72 47 6C 62 3A 3D 66 61 6C 73 65 3B 20 65 6E erGlb:=false; en
0134A0: 64 3B 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 65 20 d;....procedure
0134B0: 53 65 74 48 65 61 64 65 72 54 6F 54 6F 70 3B 0D SetHeaderToTop;.
0134C0: 0A 20 20 62 65 67 69 6E 20 54 6F 70 47 6C 62 3A . begin TopGlb:
0134D0: 3D 74 72 75 65 3B 20 65 6E 64 3B 0D 0A 0D 0A 70 =true; end;....p
0134E0: 72 6F 63 65 64 75 72 65 20 53 65 74 48 65 61 64 rocedure SetHead
0134F0: 65 72 54 6F 42 6F 74 74 6F 6D 3B 0D 0A 20 20 62 erToBottom;.. b
013500: 65 67 69 6E 20 54 6F 70 47 6C 62 3A 3D 66 61 6C egin TopGlb:=fal
013510: 73 65 3B 20 65 6E 64 3B 0D 0A 0D 0A 70 72 6F 63 se; end;....proc
013520: 65 64 75 72 65 20 52 65 6D 6F 76 65 48 65 61 64 edure RemoveHead
013530: 65 72 28 69 3A 69 6E 74 65 67 65 72 29 3B 0D 0A er(i:integer);..
013540: 20 20 62 65 67 69 6E 0D 0A 20 20 20 20 69 66 20 begin.. if
013550: 69 20 69 6E 20 5B 31 2E 2E 4D 61 78 57 69 6E 64 i in [1..MaxWind
013560: 6F 77 73 47 6C 62 5D 20 74 68 65 6E 0D 0A 20 20 owsGlb] then..
013570: 20 20 20 20 77 69 74 68 20 77 69 6E 64 6F 77 5B with window[
013580: 69 5D 20 64 6F 20 62 65 67 69 6E 0D 0A 20 20 20 i] do begin..
013590: 20 20 20 20 20 64 72 61 77 6E 3A 3D 66 61 6C 73 drawn:=fals
0135A0: 65 3B 0D 0A 20 20 20 20 20 20 20 20 74 6F 70 3A e;.. top:
0135B0: 3D 74 72 75 65 3B 0D 0A 20 20 20 20 20 20 20 20 =true;..
0135C0: 68 65 61 64 65 72 3A 3D 27 27 3B 0D 0A 20 20 20 header:='';..
0135D0: 20 20 20 65 6E 64 0D 0A 20 20 20 20 65 6C 73 65 end.. else
0135E0: 20 65 72 72 6F 72 28 32 32 2C 32 29 3B 0D 0A 20 error(22,2);..
0135F0: 20 65 6E 64 3B 0D 0A 0D 0A 70 72 6F 63 65 64 75 end;....procedu
013600: 20 20 20 20 20 20 20 20 20 20 20 20 42 4F 52 4C BORL
013610: 41 4E 44 20 49 6E 74 65 72 6E 61 74 69 6F 6E 61 AND Internationa
013620: 6C 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 l
013630: 20 20 20 2A 29 0D 0A 28 2A 20 20 20 20 20 20 20 *)..(*
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 20 20 20
013660: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
013670: 20 20 2A 29 0D 0A 28 2A 20 20 20 20 20 20 20 20 *)..(*
013680: 20 20 20 20 6D 6F 64 69 66 69 65 64 20 66 6F 72 modified for
013690: 20 74 68 65 20 53 63 68 6E 65 69 64 65 72 20 43 the Schneider C
0136A0: 50 43 20 36 31 32 38 20 20 20 20 20 20 20 20 20 PC 6128
0136B0: 20 2A 29 0D 0A 28 2A 20 20 20 20 20 20 20 20 20 *)..(*
0136C0: 20 20 20 20 20 20 62 79 20 48 45 49 4D 53 4F 45 by HEIMSOE
0136D0: 54 48 20 53 6F 66 74 77 61 72 65 20 4D 75 6E 69 TH Software Muni
0136E0: 63 68 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ch
0136F0: 2A 29 0D 0A 28 2A 20 20 20 20 20 20 20 20 20 20 *)..(*
013700: 20 20 20 20 20 20 20 56 65 72 73 69 6F 6E 20 31 Version 1
013710: 2E 30 20 2F 20 32 35 2E 31 31 2E 31 39 38 35 20 .0 / 25.11.1985
013720: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A *
013730: 29 0D 0A 28 2A 20 20 20 20 20 20 20 20 20 20 20 )..(*
013740: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
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 20 20 20 2A 29 *)
013770: 0D 0A 28 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ..(*************
013780: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
013790: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
0137A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 29 0D **************).
0137B0: 0A 0D 0A 70 72 6F 63 65 64 75 72 65 20 65 72 72 ...procedure err
0137C0: 6F 72 20 7B 20 64 65 63 6C 61 72 65 64 20 69 6E or { declared in
0137D0: 20 47 52 41 50 48 49 58 2E 53 59 53 3A 20 28 45 GRAPHIX.SYS: (E
0137E0: 72 72 50 72 6F 63 2C 45 72 72 43 6F 64 65 3A 69 rrProc,ErrCode:i
0137F0: 6E 74 65 67 65 72 29 20 7D 3B 0D 0A 20 20 76 61 nteger) };.. va
013800: 72 65 20 53 65 74 43 6F 6C 6F 72 57 68 69 74 65 re SetColorWhite
013810: 3B 0D 0A 20 20 62 65 67 69 6E 20 43 6F 6C 6F 72 ;.. begin Color
013820: 47 6C 62 28 32 35 35 29 3B 20 65 6E 64 3B 0D 0A Glb(255); end;..
013830: 0D 0A 70 72 6F 63 65 64 75 72 65 20 53 65 74 43 ..procedure SetC
013840: 6F 6C 6F 72 42 6C 61 63 6B 3B 0D 0A 20 20 62 65 olorBlack;.. be
013850: 67 69 6E 20 43 6F 6C 6F 72 47 6C 62 28 30 29 3B gin ColorGlb(0);
013860: 20 65 6E 64 3B 0D 0A 0D 0A 66 75 6E 63 74 69 6F end;....functio
013870: 6E 20 47 65 74 57 69 6E 64 6F 77 3A 69 6E 74 65 n GetWindow:inte
013880: 67 65 72 3B 0D 0A 20 20 62 65 67 69 6E 20 47 65 ger;.. begin Ge
013890: 74 57 69 6E 64 6F 77 3A 3D 57 69 6E 64 6F 77 4E tWindow:=WindowN
0138A0: 64 78 47 6C 62 3B 20 65 6E 64 3B 0D 0A 0D 0A 66 dxGlb; end;....f
0138B0: 75 6E 63 74 69 6F 6E 20 63 6C 69 70 70 69 6E 67 unction clipping
0138C0: 3A 62 6F 6F 6C 65 61 6E 3B 0D 0A 20 20 62 65 67 :boolean;.. beg
0138D0: 69 6E 20 63 6C 69 70 70 69 6E 67 3A 3D 43 6C 69 in clipping:=Cli
0138E0: 70 70 69 6E 67 47 6C 62 3B 20 65 6E 64 3B 0D 0A ppingGlb; end;..
0138F0: 0D 0A 66 75 6E 63 74 69 6F 6E 20 57 69 6E 64 6F ..function Windo
013900: 77 4D 6F 64 65 3A 62 6F 6F 6C 65 61 6E 3B 0D 0A wMode:boolean;..
013910: 20 20 62 65 67 69 6E 20 57 69 6E 64 6F 77 4D 6F begin WindowMo
013920: 64 65 3A 3D 6E 6F 74 20 44 69 72 65 63 74 4D 6F de:=not DirectMo
013930: 64 65 47 6C 62 3B 20 65 6E 64 3B 0D 0A 0D 0A 70 deGlb; end;....p
013940: 72 6F 63 65 64 75 72 65 20 53 65 74 53 63 72 65 rocedure SetScre
013950: 65 6E 41 73 70 65 63 74 28 61 73 70 65 63 74 3A enAspect(aspect:
013960: 72 65 61 6C 29 3B 0D 0A 20 20 62 65 67 69 6E 20 real);.. begin
013970: 69 66 20 61 73 70 65 63 74 3C 3E 30 2E 30 20 74 if aspect<>0.0 t
013980: 68 65 6E 20 41 73 70 65 63 74 47 6C 62 3A 3D 61 hen AspectGlb:=a
013990: 62 73 28 61 73 70 65 63 74 29 3B 20 65 6E 64 3B bs(aspect); end;
0139A0: 0D 0A 0D 0A 66 75 6E 63 74 69 6F 6E 20 47 65 74 ....function Get
0139B0: 53 63 72 65 65 6E 41 73 70 65 63 74 3A 72 65 61 ScreenAspect:rea
0139C0: 6C 3B 0D 0A 20 20 62 65 67 69 6E 20 47 65 74 53 l;.. begin GetS
0139D0: 63 72 65 65 6E 41 73 70 65 63 74 3A 3D 41 73 70 creenAspect:=Asp
0139E0: 65 63 74 47 6C 62 3B 20 65 6E 64 3B 0D 0A 0D 0A ectGlb; end;....
0139F0: 70 72 6F 63 65 64 75 72 65 20 53 65 74 41 73 70 procedure SetAsp
013A00: 72 20 58 4C 6F 63 2C 59 4C 6F 63 3A 69 6E 74 65 r XLoc,YLoc:inte
013A10: 67 65 72 3B 0D 0A 20 20 20 20 20 20 63 68 3A 63 ger;.. ch:c
013A20: 68 61 72 3B 0D 0A 62 65 67 69 6E 0D 0A 20 20 69 har;..begin.. i
013A30: 66 20 6E 6F 74 20 28 45 72 72 50 72 6F 63 20 69 f not (ErrProc i
013A40: 6E 20 5B 30 2E 2E 4D 61 78 50 72 6F 63 73 47 6C n [0..MaxProcsGl
013A50: 62 5D 29 20 74 68 65 6E 20 62 65 67 69 6E 0D 0A b]) then begin..
013A60: 20 20 20 20 4C 65 61 76 65 47 72 61 70 68 69 63 LeaveGraphic
013A70: 3B 0D 0A 20 20 20 20 77 72 69 74 65 6C 6E 28 27 ;.. writeln('
013A80: 46 41 54 41 4C 20 45 52 52 4F 52 20 31 3A 20 69 FATAL ERROR 1: i
013A90: 6C 6C 65 67 61 6C 20 70 72 6F 63 65 64 75 72 65 llegal procedure
013AA0: 20 6E 75 6D 62 65 72 20 27 2C 45 72 72 50 72 6F number ',ErrPro
013AB0: 63 29 3B 0D 0A 20 20 20 20 68 61 6C 74 3B 0D 0A c);.. halt;..
013AC0: 20 20 65 6E 64 3B 0D 0A 20 20 69 66 20 6E 6F 74 end;.. if not
013AD0: 20 28 45 72 72 43 6F 64 65 20 69 6E 20 5B 30 2E (ErrCode in [0.
013AE0: 2E 4D 61 78 45 72 72 73 47 6C 62 5D 29 20 74 68 .MaxErrsGlb]) th
013AF0: 65 6E 20 62 65 67 69 6E 0D 0A 20 20 20 20 4C 65 en begin.. Le
013B00: 61 76 65 47 72 61 70 68 69 63 3B 0D 0A 20 20 20 aveGraphic;..
013B10: 20 77 72 69 74 65 6C 6E 28 27 46 41 54 41 4C 20 writeln('FATAL
013B20: 45 52 52 4F 52 20 32 3A 20 69 6C 6C 65 67 61 6C ERROR 2: illegal
013B30: 20 65 72 72 6F 72 20 63 6F 64 65 20 27 2C 45 72 error code ',Er
013B40: 72 43 6F 64 65 29 3B 0D 0A 20 20 20 20 68 61 6C rCode);.. hal
013B50: 74 3B 0D 0A 20 20 65 6E 64 3B 0D 0A 20 20 45 72 t;.. end;.. Er
013B60: 72 43 6F 64 65 47 6C 62 3A 3D 45 72 72 43 6F 64 rCodeGlb:=ErrCod
013B70: 65 3B 0D 0A 20 20 69 66 20 42 72 6B 47 6C 62 20 e;.. if BrkGlb
013B80: 74 68 65 6E 20 4C 65 61 76 65 47 72 61 70 68 69 then LeaveGraphi
013B90: 63 3B 0D 0A 20 20 69 66 20 4D 65 73 73 61 67 65 c;.. if Message
013BA0: 47 6C 62 20 6F 72 20 42 72 6B 47 6C 62 20 74 68 Glb or BrkGlb th
013BB0: 65 6E 20 62 65 67 69 6E 0D 0A 20 20 20 20 58 4C en begin.. XL
013BC0: 6F 63 3A 3D 58 54 65 78 74 47 6C 62 3B 0D 0A 20 oc:=XTextGlb;..
013BD0: 20 20 20 59 4C 6F 63 3A 3D 59 54 65 78 74 47 6C YLoc:=YTextGl
013BE0: 62 3B 0D 0A 20 20 20 20 47 6F 74 6F 58 59 28 31 b;.. GotoXY(1
013BF0: 2C 32 34 29 3B 0D 0A 20 20 20 20 43 6C 72 45 4F ,24);.. ClrEO
013C00: 65 63 74 28 61 73 70 65 63 74 3A 72 65 61 6C 29 ect(aspect:real)
013C10: 3B 0D 0A 20 20 62 65 67 69 6E 20 69 66 20 61 73 ;.. begin if as
013C20: 70 65 63 74 3C 3E 30 2E 30 20 74 68 65 6E 20 41 pect<>0.0 then A
013C30: 73 70 65 63 74 47 6C 62 3A 3D 61 62 73 28 61 73 spectGlb:=abs(as
013C40: 70 65 63 74 29 2A 41 73 70 65 63 74 46 61 63 74 pect)*AspectFact
013C50: 6F 72 3B 20 65 6E 64 3B 0D 0A 0D 0A 66 75 6E 63 or; end;....func
013C60: 74 69 6F 6E 20 47 65 74 41 73 70 65 63 74 3A 72 tion GetAspect:r
013C70: 65 61 6C 3B 0D 0A 20 20 62 65 67 69 6E 20 47 65 eal;.. begin Ge
013C80: 74 41 73 70 65 63 74 3A 3D 41 73 70 65 63 74 47 tAspect:=AspectG
013C90: 6C 62 2F 41 73 70 65 63 74 46 61 63 74 6F 72 3B lb/AspectFactor;
013CA0: 20 65 6E 64 3B 0D 0A 0D 0A 70 72 6F 63 65 64 75 end;....procedu
013CB0: 72 65 20 53 65 74 4C 69 6E 65 73 74 79 6C 65 28 re SetLinestyle(
013CC0: 6C 73 3A 69 6E 74 65 67 65 72 29 3B 0D 0A 20 20 ls:integer);..
013CD0: 76 61 72 20 69 3A 69 6E 74 65 67 65 72 3B 0D 0A var i:integer;..
013CE0: 20 20 63 6F 6E 73 74 20 6C 73 61 3A 61 72 72 61 const lsa:arra
013CF0: 79 20 5B 30 2E 2E 34 5D 20 6F 66 20 62 79 74 65 y [0..4] of byte
013D00: 3D 28 24 46 46 2C 24 38 38 2C 24 46 38 2C 24 45 =($FF,$88,$F8,$E
013D10: 34 2C 24 45 45 29 3B 0D 0A 20 20 62 65 67 69 6E 4,$EE);.. begin
013D20: 0D 0A 20 20 20 20 69 66 20 6E 6F 74 20 28 6C 73 .. if not (ls
013D30: 20 69 6E 20 5B 30 2E 2E 34 5D 29 20 74 68 65 6E in [0..4]) then
013D40: 20 6C 73 3A 3D 6C 73 20 61 6E 64 20 24 46 46 20 ls:=ls and $FF
013D50: 2B 20 24 31 30 30 3B 0D 0A 20 20 20 20 4C 69 6E + $100;.. Lin
013D60: 65 53 74 79 6C 65 47 6C 62 3A 3D 6C 73 3B 0D 0A eStyleGlb:=ls;..
013D70: 20 20 20 20 69 66 20 6C 73 3C 35 20 74 68 65 6E if ls<5 then
013D80: 20 6C 73 3A 3D 6C 73 61 5B 6C 73 5D 3B 0D 0A 20 ls:=lsa[ls];..
013D90: 20 20 20 66 6F 72 20 69 3A 3D 30 20 74 6F 20 37 for i:=0 to 7
013DA0: 20 64 6F 20 4C 69 6E 65 53 74 79 6C 65 41 72 72 do LineStyleArr
013DB0: 61 79 47 6C 62 5B 37 2D 69 5D 3A 3D 28 28 6C 73 ayGlb[7-i]:=((ls
013DC0: 20 73 68 72 20 69 29 20 61 6E 64 20 31 29 3C 3E shr i) and 1)<>
013DD0: 30 3B 0D 0A 20 20 20 20 43 6E 74 47 6C 62 3A 3D 0;.. CntGlb:=
013DE0: 37 3B 0D 0A 20 20 65 6E 64 3B 0D 0A 0D 0A 66 75 7;.. end;....fu
013DF0: 6E 63 74 69 6F 6E 20 47 65 74 4C 69 6E 65 73 74 nction GetLinest
013E00: 4C 3B 0D 0A 20 20 20 20 77 72 69 74 65 6C 6E 28 L;.. writeln(
013E10: 27 54 75 72 62 6F 20 47 72 61 70 68 69 78 20 65 'Turbo Graphix e
013E20: 72 72 6F 72 20 23 27 2C 45 72 72 43 6F 64 65 2C rror #',ErrCode,
013E30: 27 20 69 6E 20 70 72 6F 63 65 64 75 72 65 20 23 ' in procedure #
013E40: 27 2C 45 72 72 50 72 6F 63 29 3B 0D 0A 20 20 20 ',ErrProc);..
013E50: 20 69 66 20 4D 65 73 73 61 67 65 47 6C 62 20 74 if MessageGlb t
013E60: 68 65 6E 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 hen begin..
013E70: 20 43 6C 72 45 4F 4C 3B 0D 0A 20 20 20 20 20 20 ClrEOL;..
013E80: 77 72 69 74 65 28 27 28 27 2C 45 72 72 6F 72 43 write('(',ErrorC
013E90: 6F 64 65 5B 45 72 72 43 6F 64 65 5D 5E 2C 27 20 ode[ErrCode]^,'
013EA0: 69 6E 20 27 2C 45 72 72 6F 72 50 72 6F 63 5B 45 in ',ErrorProc[E
013EB0: 72 72 50 72 6F 63 5D 5E 2C 27 29 27 29 3B 0D 0A rrProc]^,')');..
013EC0: 20 20 20 20 65 6E 64 3B 0D 0A 20 20 65 6E 64 3B end;.. end;
013ED0: 0D 0A 20 20 69 66 20 4D 65 73 73 61 67 65 47 6C .. if MessageGl
013EE0: 62 20 61 6E 64 20 42 72 6B 47 6C 62 20 74 68 65 b and BrkGlb the
013EF0: 6E 20 68 61 6C 74 0D 0A 20 20 65 6C 73 65 20 69 n halt.. else i
013F00: 66 20 42 72 6B 47 6C 62 20 7B 20 61 6E 64 20 6E f BrkGlb { and n
013F10: 6F 74 20 4D 65 73 73 61 67 65 47 6C 62 20 7D 20 ot MessageGlb }
013F20: 74 68 65 6E 20 68 61 6C 74 0D 0A 20 20 65 6C 73 then halt.. els
013F30: 65 20 69 66 20 4D 65 73 73 61 67 65 47 6C 62 20 e if MessageGlb
013F40: 74 68 65 6E 20 62 65 67 69 6E 0D 0A 20 20 20 20 then begin..
013F50: 77 72 69 74 65 28 27 2E 20 20 48 69 74 20 65 6E write('. Hit en
013F60: 74 65 72 3A 20 27 29 3B 0D 0A 20 20 20 20 72 65 ter: ');.. re
013F70: 70 65 61 74 20 72 65 61 64 28 4B 62 64 2C 43 68 peat read(Kbd,Ch
013F80: 29 3B 20 75 6E 74 69 6C 20 28 43 68 3D 5E 4D 29 ); until (Ch=^M)
013F90: 20 6F 72 20 28 43 68 3D 5E 43 29 3B 0D 0A 20 20 or (Ch=^C);..
013FA0: 20 20 69 66 20 43 68 3D 5E 43 20 74 68 65 6E 20 if Ch=^C then
013FB0: 62 65 67 69 6E 20 4C 65 61 76 65 47 72 61 70 68 begin LeaveGraph
013FC0: 69 63 3B 20 68 61 6C 74 3B 20 65 6E 64 3B 0D 0A ic; halt; end;..
013FD0: 20 20 20 20 47 6F 74 6F 58 59 28 58 4C 6F 63 2C GotoXY(XLoc,
013FE0: 59 4C 6F 63 29 3B 0D 0A 20 20 65 6E 64 3B 0D 0A YLoc);.. end;..
013FF0: 65 6E 64 3B 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 end;....procedur
014000: 79 6C 65 3A 69 6E 74 65 67 65 72 3B 0D 0A 20 20 yle:integer;..
014010: 62 65 67 69 6E 20 47 65 74 4C 69 6E 65 73 74 79 begin GetLinesty
014020: 6C 65 3A 3D 4C 69 6E 65 73 74 79 6C 65 47 6C 62 le:=LinestyleGlb
014030: 3B 20 65 6E 64 3B 0D 0A 0D 0A 70 72 6F 63 65 64 ; end;....proced
014040: 75 72 65 20 53 65 74 56 53 74 65 70 28 76 73 3A ure SetVStep(vs:
014050: 69 6E 74 65 67 65 72 29 3B 0D 0A 20 20 62 65 67 integer);.. beg
014060: 69 6E 20 69 66 20 76 73 3E 30 20 74 68 65 6E 20 in if vs>0 then
014070: 56 53 74 65 70 47 6C 62 3A 3D 76 73 3B 20 65 6E VStepGlb:=vs; en
014080: 64 3B 0D 0A 0D 0A 66 75 6E 63 74 69 6F 6E 20 47 d;....function G
014090: 65 74 56 53 74 65 70 3A 69 6E 74 65 67 65 72 3B etVStep:integer;
0140A0: 0D 0A 20 20 62 65 67 69 6E 20 47 65 74 56 53 74 .. begin GetVSt
0140B0: 65 70 3A 3D 56 53 74 65 70 47 6C 62 3B 20 65 6E ep:=VStepGlb; en
0140C0: 64 3B 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 65 20 d;....procedure
0140D0: 44 65 66 69 6E 65 48 65 61 64 65 72 28 69 3A 69 DefineHeader(i:i
0140E0: 6E 74 65 67 65 72 3B 68 64 72 3A 77 72 6B 73 74 nteger;hdr:wrkst
0140F0: 72 69 6E 67 29 3B 0D 0A 20 20 62 65 67 69 6E 0D ring);.. begin.
014100: 0A 20 20 20 20 69 66 20 28 69 20 69 6E 20 5B 31 . if (i in [1
014110: 2E 2E 4D 61 78 57 69 6E 64 6F 77 73 47 6C 62 5D ..MaxWindowsGlb]
014120: 29 20 74 68 65 6E 20 77 69 6E 64 6F 77 5B 69 5D ) then window[i]
014130: 2E 68 65 61 64 65 72 3A 3D 48 64 72 20 65 6C 73 .header:=Hdr els
014140: 65 20 65 72 72 6F 72 28 33 2C 32 29 3B 0D 0A 20 e error(3,2);..
014150: 20 65 6E 64 3B 0D 0A 0D 0A 66 75 6E 63 74 69 6F end;....functio
014160: 6E 20 47 65 74 53 63 72 65 65 6E 3A 62 79 74 65 n GetScreen:byte
014170: 3B 0D 0A 20 20 62 65 67 69 6E 20 67 65 74 53 63 ;.. begin getSc
014180: 72 65 65 6E 3A 3D 61 63 74 75 61 6C 5F 53 63 72 reen:=actual_Scr
014190: 65 65 6E 3B 20 65 6E 64 3B 0D 0A 0D 0A 70 72 6F een; end;....pro
0141A0: 63 65 64 75 72 65 20 44 65 66 69 6E 65 57 6F 72 cedure DefineWor
0141B0: 6C 64 28 69 3A 69 6E 74 65 67 65 72 3B 0D 0A 20 ld(i:integer;..
0141C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0141D0: 20 20 20 20 20 58 5F 31 2C 59 5F 31 2C 58 5F 32 X_1,Y_1,X_2
0141E0: 2C 59 5F 32 3A 72 65 61 6C 29 3B 0D 0A 20 20 62 ,Y_2:real);.. b
0141F0: 65 67 69 6E 0D 0A 20 20 20 20 69 66 20 28 28 58 egin.. if ((X
014200: 65 20 53 65 74 42 72 65 61 6B 4F 66 66 3B 0D 0A e SetBreakOff;..
014210: 20 20 62 65 67 69 6E 20 42 72 6B 47 6C 62 3A 3D begin BrkGlb:=
014220: 66 61 6C 73 65 3B 20 65 6E 64 3B 0D 0A 0D 0A 70 false; end;....p
014230: 72 6F 63 65 64 75 72 65 20 53 65 74 42 72 65 61 rocedure SetBrea
014240: 6B 4F 6E 3B 0D 0A 20 20 62 65 67 69 6E 20 42 72 kOn;.. begin Br
014250: 6B 47 6C 62 3A 3D 74 72 75 65 3B 20 65 6E 64 3B kGlb:=true; end;
014260: 0D 0A 0D 0A 66 75 6E 63 74 69 6F 6E 20 47 65 74 ....function Get
014270: 45 72 72 6F 72 43 6F 64 65 3A 62 79 74 65 3B 0D ErrorCode:byte;.
014280: 0A 20 20 62 65 67 69 6E 20 47 65 74 45 72 72 6F . begin GetErro
014290: 72 43 6F 64 65 3A 3D 45 72 72 43 6F 64 65 47 6C rCode:=ErrCodeGl
0142A0: 62 3B 20 45 72 72 43 6F 64 65 47 6C 62 3A 3D 30 b; ErrCodeGlb:=0
0142B0: 3B 20 65 6E 64 3B 0D 0A 0D 0A 70 72 6F 63 65 64 ; end;....proced
0142C0: 75 72 65 20 53 65 74 57 69 6E 64 6F 77 4D 6F 64 ure SetWindowMod
0142D0: 65 4F 66 66 3B 0D 0A 20 20 62 65 67 69 6E 20 44 eOff;.. begin D
0142E0: 69 72 65 63 74 4D 6F 64 65 47 6C 62 3A 3D 74 72 irectModeGlb:=tr
0142F0: 75 65 3B 20 65 6E 64 3B 0D 0A 0D 0A 70 72 6F 63 ue; end;....proc
014300: 65 64 75 72 65 20 53 65 74 57 69 6E 64 6F 77 4D edure SetWindowM
014310: 6F 64 65 4F 6E 3B 0D 0A 20 20 62 65 67 69 6E 20 odeOn;.. begin
014320: 44 69 72 65 63 74 4D 6F 64 65 47 6C 62 3A 3D 66 DirectModeGlb:=f
014330: 61 6C 73 65 3B 20 65 6E 64 3B 0D 0A 0D 0A 70 72 alse; end;....pr
014340: 6F 63 65 64 75 72 65 20 53 65 74 43 6C 69 70 70 ocedure SetClipp
014350: 69 6E 67 4F 6E 3B 0D 0A 20 20 62 65 67 69 6E 20 ingOn;.. begin
014360: 43 6C 69 70 70 69 6E 67 47 6C 62 3A 3D 74 72 75 ClippingGlb:=tru
014370: 65 3B 20 65 6E 64 3B 0D 0A 0D 0A 70 72 6F 63 65 e; end;....proce
014380: 64 75 72 65 20 53 65 74 43 6C 69 70 70 69 6E 67 dure SetClipping
014390: 4F 66 66 3B 0D 0A 20 20 62 65 67 69 6E 20 43 6C Off;.. begin Cl
0143A0: 69 70 70 69 6E 67 47 6C 62 3A 3D 66 61 6C 73 65 ippingGlb:=false
0143B0: 3B 20 65 6E 64 3B 0D 0A 0D 0A 70 72 6F 63 65 64 ; end;....proced
0143C0: 75 72 65 20 53 65 74 4D 65 73 73 61 67 65 4F 6E ure SetMessageOn
0143D0: 3B 0D 0A 20 20 62 65 67 69 6E 20 4D 65 73 73 61 ;.. begin Messa
0143E0: 67 65 47 6C 62 3A 3D 74 72 75 65 3B 20 65 6E 64 geGlb:=true; end
0143F0: 3B 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 65 20 53 ;....procedure S
014400: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
014410: 11 00 00 00 02 09 50 E5 11 00 41 02 00 00 00 02 ......P...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: 5F 31 3C 3E 58 5F 32 29 20 61 6E 64 20 28 59 5F _1<>X_2) and (Y_
014510: 31 3C 3E 59 5F 32 29 29 20 61 6E 64 20 28 69 20 1<>Y_2)) and (i
014520: 69 6E 20 5B 31 2E 2E 4D 61 78 57 6F 72 6C 64 73 in [1..MaxWorlds
014530: 47 6C 62 5D 29 20 74 68 65 6E 0D 0A 20 20 20 20 Glb]) then..
014540: 20 20 77 69 74 68 20 77 6F 72 6C 64 5B 69 5D 20 with world[i]
014550: 64 6F 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 20 do begin..
014560: 20 20 78 31 3A 3D 58 5F 31 3B 79 31 3A 3D 59 5F x1:=X_1;y1:=Y_
014570: 32 3B 78 32 3A 3D 58 5F 32 3B 79 32 3A 3D 59 5F 2;x2:=X_2;y2:=Y_
014580: 31 3B 0D 0A 20 20 20 20 20 20 20 20 69 66 20 69 1;.. if i
014590: 3E 4D 61 78 57 6F 72 6C 64 47 6C 62 20 74 68 65 >MaxWorldGlb the
0145A0: 6E 20 4D 61 78 57 6F 72 6C 64 47 6C 62 3A 3D 69 n MaxWorldGlb:=i
0145B0: 3B 0D 0A 20 20 20 20 20 20 65 6E 64 0D 0A 20 20 ;.. end..
0145C0: 20 20 65 6C 73 65 20 69 66 20 69 20 69 6E 20 5B else if i in [
0145D0: 31 2E 2E 4D 61 78 57 6F 72 6C 64 73 47 6C 62 5D 1..MaxWorldsGlb]
0145E0: 20 74 68 65 6E 20 65 72 72 6F 72 28 31 2C 33 29 then error(1,3)
0145F0: 0D 0A 20 20 20 20 65 6C 73 65 20 65 72 72 6F 72 .. else error
014600: 28 31 2C 32 29 3B 0D 0A 20 20 65 6E 64 3B 0D 0A (1,2);.. end;..
014610: 0D 0A 70 72 6F 63 65 64 75 72 65 20 53 65 6C 65 ..procedure Sele
014620: 63 74 57 6F 72 6C 64 28 69 3A 69 6E 74 65 67 65 ctWorld(i:intege
014630: 72 29 3B 0D 0A 20 20 62 65 67 69 6E 0D 0A 20 20 r);.. begin..
014640: 20 20 69 66 20 28 69 20 69 6E 20 5B 31 2E 2E 4D if (i in [1..M
014650: 61 78 57 6F 72 6C 64 47 6C 62 5D 29 20 74 68 65 axWorldGlb]) the
014660: 6E 0D 0A 20 20 20 20 20 20 77 69 74 68 20 77 6F n.. with wo
014670: 72 6C 64 5B 69 5D 20 64 6F 20 20 62 65 67 69 6E rld[i] do begin
014680: 0D 0A 20 20 20 20 20 20 20 20 58 31 57 6C 64 47 .. X1WldG
014690: 6C 62 3A 3D 78 31 3B 20 59 31 57 6C 64 47 6C 62 lb:=x1; Y1WldGlb
0146A0: 3A 3D 79 31 3B 0D 0A 20 20 20 20 20 20 20 20 58 :=y1;.. X
0146B0: 32 57 6C 64 47 6C 62 3A 3D 78 32 3B 20 59 32 57 2WldGlb:=x2; Y2W
0146C0: 6C 64 47 6C 62 3A 3D 79 32 3B 0D 0A 20 20 20 20 ldGlb:=y2;..
0146D0: 20 20 65 6E 64 0D 0A 20 20 20 20 65 6C 73 65 20 end.. else
0146E0: 65 72 72 6F 72 28 32 2C 32 29 3B 0D 0A 20 20 65 error(2,2);.. e
0146F0: 6E 64 3B 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 65 nd;....procedure
014700: 47 6C 62 3B 0D 0A 20 20 20 20 20 20 20 20 41 79 Glb;.. Ay
014710: 47 6C 62 3A 3D 79 31 2D 59 31 57 6C 64 47 6C 62 Glb:=y1-Y1WldGlb
014720: 2A 42 79 47 6C 62 3B 0D 0A 20 20 20 20 20 20 20 *ByGlb;..
014730: 20 69 66 20 41 78 69 73 47 6C 62 20 74 68 65 6E if AxisGlb then
014740: 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 20 20 20 begin..
014750: 20 20 41 78 69 73 47 6C 62 3A 3D 66 61 6C 73 65 AxisGlb:=false
014760: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 58 31 47 ;.. X1G
014770: 6C 62 3A 3D 30 3B 20 59 31 47 6C 62 3A 3D 30 3B lb:=0; Y1Glb:=0;
014780: 0D 0A 20 20 20 20 20 20 20 20 20 20 58 32 47 6C .. X2Gl
014790: 62 3A 3D 30 3B 20 59 32 47 6C 62 3A 3D 30 3B 0D b:=0; Y2Glb:=0;.
0147A0: 0A 20 20 20 20 20 20 20 20 20 65 6E 64 3B 0D 0A . end;..
0147B0: 20 20 20 20 20 20 20 65 6E 64 0D 0A 20 20 20 20 end..
0147C0: 65 6C 73 65 20 65 72 72 6F 72 28 34 2C 32 29 3B else error(4,2);
0147D0: 0D 0A 20 20 65 6E 64 3B 0D 0A 0D 0A 66 75 6E 63 .. end;....func
0147E0: 74 69 6F 6E 20 57 69 6E 64 6F 77 58 28 78 3A 72 tion WindowX(x:r
0147F0: 65 61 6C 29 3A 69 6E 74 65 67 65 72 3B 0D 0A 20 eal):integer;..
014800: 20 62 65 67 69 6E 20 57 69 6E 64 6F 77 58 3A 3D begin WindowX:=
014810: 74 72 75 6E 63 28 41 78 47 6C 62 2B 42 78 47 6C trunc(AxGlb+BxGl
014820: 62 2A 78 29 3B 20 65 6E 64 3B 0D 0A 0D 0A 66 75 b*x); end;....fu
014830: 6E 63 74 69 6F 6E 20 57 69 6E 64 6F 77 59 28 79 nction WindowY(y
014840: 3A 72 65 61 6C 29 3A 69 6E 74 65 67 65 72 3B 0D :real):integer;.
014850: 0A 20 20 62 65 67 69 6E 20 57 69 6E 64 6F 77 59 . begin WindowY
014860: 3A 3D 74 72 75 6E 63 28 41 79 47 6C 62 2B 42 79 :=trunc(AyGlb+By
014870: 47 6C 62 2A 79 29 3B 20 65 6E 64 3B 0D 0A 0D 0A Glb*y); end;....
014880: 70 72 6F 63 65 64 75 72 65 20 49 6E 69 74 47 72 procedure InitGr
014890: 61 70 68 69 63 3B 0D 0A 20 20 76 61 72 20 66 69 aphic;.. var fi
0148A0: 6C 3A 66 69 6C 65 20 6F 66 20 43 68 61 72 41 72 l:file of CharAr
0148B0: 72 61 79 3B 0D 0A 20 20 20 20 20 20 74 66 69 6C ray;.. tfil
0148C0: 65 3A 74 65 78 74 3B 0D 0A 20 20 20 20 20 20 74 e:text;.. t
0148D0: 65 6D 70 3A 57 72 6B 53 74 72 69 6E 67 3B 0D 0A emp:WrkString;..
0148E0: 20 20 20 20 20 20 69 3A 69 6E 74 65 67 65 72 3B i:integer;
0148F0: 0D 0A 20 20 62 65 67 69 6E 0D 0A 20 20 20 20 47 .. begin.. G
014900: 20 52 65 44 65 66 69 6E 65 57 69 6E 64 6F 77 28 ReDefineWindow(
014910: 69 2C 58 5F 31 2C 59 5F 31 2C 58 5F 32 2C 59 5F i,X_1,Y_1,X_2,Y_
014920: 32 3A 69 6E 74 65 67 65 72 29 3B 0D 0A 20 20 62 2:integer);.. b
014930: 65 67 69 6E 0D 0A 20 20 20 20 69 66 20 28 69 20 egin.. if (i
014940: 69 6E 20 5B 31 2E 2E 4D 61 78 57 69 6E 64 6F 77 in [1..MaxWindow
014950: 73 47 6C 62 5D 29 20 61 6E 64 20 28 58 5F 31 3C sGlb]) and (X_1<
014960: 3D 58 5F 32 29 20 61 6E 64 20 28 59 5F 31 3C 3D =X_2) and (Y_1<=
014970: 59 5F 32 29 20 61 6E 64 0D 0A 20 20 20 20 20 20 Y_2) and..
014980: 20 28 58 5F 31 3E 3D 30 29 20 61 6E 64 20 28 58 (X_1>=0) and (X
014990: 5F 32 3C 3D 58 4D 61 78 47 6C 62 29 20 61 6E 64 _2<=XMaxGlb) and
0149A0: 20 28 59 5F 31 3E 3D 30 29 20 61 6E 64 20 28 59 (Y_1>=0) and (Y
0149B0: 5F 32 3C 3D 59 4D 61 78 47 6C 62 29 20 74 68 65 _2<=YMaxGlb) the
0149C0: 6E 0D 0A 20 20 20 20 20 20 77 69 74 68 20 77 69 n.. with wi
0149D0: 6E 64 6F 77 5B 69 5D 20 64 6F 20 62 65 67 69 6E ndow[i] do begin
0149E0: 0D 0A 20 20 20 20 20 20 20 20 78 31 3A 3D 58 5F .. x1:=X_
0149F0: 31 3B 20 79 31 3A 3D 59 5F 31 3B 0D 0A 20 20 20 1; y1:=Y_1;..
014A00: 20 20 20 20 20 78 32 3A 3D 58 5F 32 3B 20 79 32 x2:=X_2; y2
014A10: 3A 3D 59 5F 32 3B 0D 0A 20 20 20 20 20 20 20 20 :=Y_2;..
014A20: 69 66 20 69 3E 4D 61 78 57 69 6E 64 6F 77 47 6C if i>MaxWindowGl
014A30: 62 20 74 68 65 6E 20 4D 61 78 57 69 6E 64 6F 77 b then MaxWindow
014A40: 47 6C 62 3A 3D 69 3B 0D 0A 20 20 20 20 20 20 65 Glb:=i;.. e
014A50: 6E 64 0D 0A 20 20 20 20 65 6C 73 65 20 69 66 20 nd.. else if
014A60: 69 20 69 6E 20 5B 31 2E 2E 4D 61 78 57 69 6E 64 i in [1..MaxWind
014A70: 6F 77 73 47 6C 62 5D 20 74 68 65 6E 20 65 72 72 owsGlb] then err
014A80: 6F 72 28 33 2C 33 29 0D 0A 20 20 20 20 65 6C 73 or(3,3).. els
014A90: 65 20 65 72 72 6F 72 28 33 2C 32 29 3B 0D 0A 20 e error(3,2);..
014AA0: 20 65 6E 64 3B 0D 0A 0D 0A 70 72 6F 63 65 64 75 end;....procedu
014AB0: 72 65 20 44 65 66 69 6E 65 57 69 6E 64 6F 77 28 re DefineWindow(
014AC0: 69 2C 58 5F 31 2C 59 5F 31 2C 58 5F 32 2C 59 5F i,X_1,Y_1,X_2,Y_
014AD0: 32 3A 69 6E 74 65 67 65 72 29 3B 0D 0A 20 20 62 2:integer);.. b
014AE0: 65 67 69 6E 0D 0A 20 20 20 20 52 65 44 65 66 69 egin.. ReDefi
014AF0: 6E 65 57 69 6E 64 6F 77 28 69 2C 58 5F 31 2C 59 neWindow(i,X_1,Y
014B00: 6F 74 6F 58 59 28 31 2C 31 29 3B 0D 0A 20 20 20 otoXY(1,1);..
014B10: 20 4D 65 73 73 61 67 65 47 6C 62 3A 3D 54 72 75 MessageGlb:=Tru
014B20: 65 3B 0D 0A 20 20 20 20 42 72 6B 47 6C 62 3A 3D e;.. BrkGlb:=
014B30: 46 61 6C 73 65 3B 0D 0A 20 20 20 20 47 65 74 4D False;.. GetM
014B40: 65 6D 28 45 72 72 6F 72 50 72 6F 63 5B 30 5D 2C em(ErrorProc[0],
014B50: 31 36 29 3B 0D 0A 20 20 20 20 47 65 74 4D 65 6D 16);.. GetMem
014B60: 28 45 72 72 6F 72 43 6F 64 65 5B 30 5D 2C 32 34 (ErrorCode[0],24
014B70: 29 3B 0D 0A 20 20 20 20 45 72 72 6F 72 50 72 6F );.. ErrorPro
014B80: 63 5B 30 5D 5E 3A 3D 27 49 6E 69 74 47 72 61 70 c[0]^:='InitGrap
014B90: 68 69 63 27 3B 0D 0A 20 20 20 20 45 72 72 6F 72 hic';.. Error
014BA0: 43 6F 64 65 5B 30 5D 5E 3A 3D 27 45 52 52 4F 52 Code[0]^:='ERROR
014BB0: 2E 4D 53 47 20 6D 69 73 73 69 6E 67 27 3B 0D 0A .MSG missing';..
014BC0: 20 20 20 20 61 73 73 69 67 6E 28 74 66 69 6C 65 assign(tfile
014BD0: 2C 27 65 72 72 6F 72 2E 6D 73 67 27 29 3B 0D 0A ,'error.msg');..
014BE0: 20 20 20 20 7B 24 49 2D 7D 20 72 65 73 65 74 28 {$I-} reset(
014BF0: 74 66 69 6C 65 29 3B 20 7B 24 49 2B 7D 0D 0A 20 tfile); {$I+}..
014C00: 20 20 20 69 66 20 69 6F 72 65 73 75 6C 74 3D 30 if ioresult=0
014C10: 20 74 68 65 6E 20 62 65 67 69 6E 0D 0A 20 20 20 then begin..
014C20: 20 20 20 66 6F 72 20 69 3A 3D 30 20 74 6F 20 4D for i:=0 to M
014C30: 61 78 50 72 6F 63 73 47 6C 62 20 64 6F 20 62 65 axProcsGlb do be
014C40: 67 69 6E 0D 0A 20 20 20 20 20 20 20 20 72 65 61 gin.. rea
014C50: 64 6C 6E 28 74 66 69 6C 65 2C 74 65 6D 70 29 3B dln(tfile,temp);
014C60: 0D 0A 20 20 20 20 20 20 20 20 69 66 20 69 3C 3E .. if i<>
014C70: 30 20 74 68 65 6E 20 47 65 74 4D 65 6D 28 45 72 0 then GetMem(Er
014C80: 72 6F 72 50 72 6F 63 5B 69 5D 2C 6C 65 6E 67 74 rorProc[i],lengt
014C90: 68 28 74 65 6D 70 29 2B 31 29 3B 0D 0A 20 20 20 h(temp)+1);..
014CA0: 20 20 20 20 20 45 72 72 6F 72 50 72 6F 63 5B 69 ErrorProc[i
014CB0: 5D 5E 3A 3D 74 65 6D 70 3B 0D 0A 20 20 20 20 20 ]^:=temp;..
014CC0: 20 65 6E 64 3B 0D 0A 20 20 20 20 20 20 66 6F 72 end;.. for
014CD0: 20 69 3A 3D 30 20 74 6F 20 4D 61 78 45 72 72 73 i:=0 to MaxErrs
014CE0: 47 6C 62 20 64 6F 20 62 65 67 69 6E 0D 0A 20 20 Glb do begin..
014CF0: 20 20 20 20 20 20 72 65 61 64 6C 6E 28 74 66 69 readln(tfi
014D00: 5F 31 2C 58 5F 32 2C 59 5F 32 29 3B 0D 0A 20 20 _1,X_2,Y_2);..
014D10: 20 20 77 69 74 68 20 77 69 6E 64 6F 77 5B 69 5D with window[i]
014D20: 20 64 6F 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 do begin..
014D30: 20 68 65 61 64 65 72 3A 3D 27 27 3B 0D 0A 20 20 header:='';..
014D40: 20 20 20 20 74 6F 70 3A 3D 74 72 75 65 3B 0D 0A top:=true;..
014D50: 20 20 20 20 20 20 64 72 61 77 6E 3A 3D 66 61 6C drawn:=fal
014D60: 73 65 3B 0D 0A 20 20 20 20 20 65 6E 64 3B 0D 0A se;.. end;..
014D70: 20 20 65 6E 64 3B 0D 0A 0D 0A 66 75 6E 63 74 69 end;....functi
014D80: 6F 6E 20 54 65 78 74 4C 65 66 74 28 54 58 2C 42 on TextLeft(TX,B
014D90: 6F 75 6E 64 61 72 79 3A 69 6E 74 65 67 65 72 29 oundary:integer)
014DA0: 3A 69 6E 74 65 67 65 72 3B 0D 0A 20 20 76 61 72 :integer;.. var
014DB0: 20 54 4C 3A 69 6E 74 65 67 65 72 3B 0D 0A 20 20 TL:integer;..
014DC0: 62 65 67 69 6E 0D 0A 20 20 20 20 54 4C 3A 3D 28 begin.. TL:=(
014DD0: 28 54 58 2D 31 29 2A 28 28 58 53 63 72 65 65 6E (TX-1)*((XScreen
014DE0: 4D 61 78 47 6C 62 2B 31 29 20 64 69 76 20 38 30 MaxGlb+1) div 80
014DF0: 29 2D 42 6F 75 6E 64 61 72 79 29 20 64 69 76 20 )-Boundary) div
014E00: 38 3B 0D 0A 20 20 20 20 69 66 20 54 4C 3C 30 20 8;.. if TL<0
014E10: 74 68 65 6E 20 54 4C 3A 3D 30 0D 0A 20 20 20 20 then TL:=0..
014E20: 65 6C 73 65 20 69 66 20 54 4C 3E 58 4D 61 78 47 else if TL>XMaxG
014E30: 6C 62 20 74 68 65 6E 20 54 4C 3A 3D 58 4D 61 78 lb then TL:=XMax
014E40: 47 6C 62 3B 0D 0A 20 20 20 20 54 65 78 74 4C 65 Glb;.. TextLe
014E50: 66 74 3A 3D 54 4C 3B 0D 0A 20 20 65 6E 64 3B 0D ft:=TL;.. end;.
014E60: 0A 0D 0A 66 75 6E 63 74 69 6F 6E 20 54 65 78 74 ...function Text
014E70: 52 69 67 68 74 28 54 58 2C 42 6F 75 6E 64 61 72 Right(TX,Boundar
014E80: 79 3A 69 6E 74 65 67 65 72 29 3A 69 6E 74 65 67 y:integer):integ
014E90: 65 72 3B 0D 0A 20 20 76 61 72 20 54 52 3A 69 6E er;.. var TR:in
014EA0: 74 65 67 65 72 3B 0D 0A 20 20 62 65 67 69 6E 0D teger;.. begin.
014EB0: 0A 20 20 20 20 54 52 3A 3D 28 58 53 63 72 65 65 . TR:=(XScree
014EC0: 6E 4D 61 78 47 6C 62 2B 31 29 20 64 69 76 20 38 nMaxGlb+1) div 8
014ED0: 30 3B 0D 0A 20 20 20 20 54 52 3A 3D 28 54 58 2A 0;.. TR:=(TX*
014EE0: 54 52 2B 42 6F 75 6E 64 61 72 79 2D 31 29 20 64 TR+Boundary-1) d
014EF0: 69 76 20 38 3B 0D 0A 20 20 20 20 69 66 20 54 52 iv 8;.. if TR
014F00: 6C 65 2C 74 65 6D 70 29 3B 0D 0A 20 20 20 20 20 le,temp);..
014F10: 20 20 20 69 66 20 69 3C 3E 30 20 74 68 65 6E 20 if i<>0 then
014F20: 47 65 74 4D 65 6D 28 45 72 72 6F 72 43 6F 64 65 GetMem(ErrorCode
014F30: 5B 69 5D 2C 6C 65 6E 67 74 68 28 74 65 6D 70 29 [i],length(temp)
014F40: 2B 31 29 3B 0D 0A 20 20 20 20 20 20 20 20 45 72 +1);.. Er
014F50: 72 6F 72 43 6F 64 65 5B 69 5D 5E 3A 3D 74 65 6D rorCode[i]^:=tem
014F60: 70 3B 0D 0A 20 20 20 20 20 20 65 6E 64 3B 0D 0A p;.. end;..
014F70: 20 20 20 20 20 20 72 65 61 64 6C 6E 28 74 66 69 readln(tfi
014F80: 6C 65 2C 50 63 47 6C 62 29 3B 0D 0A 20 20 20 20 le,PcGlb);..
014F90: 20 20 63 6C 6F 73 65 28 74 66 69 6C 65 29 3B 0D close(tfile);.
014FA0: 0A 20 20 20 20 65 6E 64 0D 0A 20 20 20 20 65 6C . end.. el
014FB0: 73 65 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 20 se begin..
014FC0: 47 65 74 4D 65 6D 28 45 72 72 6F 72 50 72 6F 63 GetMem(ErrorProc
014FD0: 5B 31 5D 2C 31 34 29 3B 0D 0A 20 20 20 20 20 20 [1],14);..
014FE0: 45 72 72 6F 72 50 72 6F 63 5B 31 5D 5E 3A 3D 27 ErrorProc[1]^:='
014FF0: 2A 2A 20 55 4E 4B 4E 4F 57 4E 20 2A 2A 27 3B 0D ** UNKNOWN **';.
015000: 0A 20 20 20 20 20 20 66 6F 72 20 69 3A 3D 32 20 . for i:=2
015010: 74 6F 20 4D 61 78 50 72 6F 63 73 47 6C 62 20 64 to MaxProcsGlb d
015020: 6F 20 45 72 72 6F 72 50 72 6F 63 5B 69 5D 3A 3D o ErrorProc[i]:=
015030: 45 72 72 6F 72 50 72 6F 63 5B 31 5D 3B 0D 0A 20 ErrorProc[1];..
015040: 20 20 20 20 20 66 6F 72 20 69 3A 3D 31 20 74 6F for i:=1 to
015050: 20 4D 61 78 45 72 72 73 47 6C 62 20 64 6F 20 45 MaxErrsGlb do E
015060: 72 72 6F 72 43 6F 64 65 5B 69 5D 3A 3D 45 72 72 rrorCode[i]:=Err
015070: 6F 72 50 72 6F 63 5B 31 5D 3B 0D 0A 20 20 20 20 orProc[1];..
015080: 20 20 65 72 72 6F 72 28 30 2C 30 29 3B 0D 0A 20 error(0,0);..
015090: 20 20 20 65 6E 64 3B 0D 0A 20 20 20 20 66 6F 72 end;.. for
0150A0: 20 69 3A 3D 31 20 74 6F 20 4D 61 78 57 6F 72 6C i:=1 to MaxWorl
0150B0: 64 73 47 6C 62 20 64 6F 0D 0A 20 20 20 20 20 20 dsGlb do..
0150C0: 44 65 66 69 6E 65 57 6F 72 6C 64 28 69 2C 30 2C DefineWorld(i,0,
0150D0: 30 2C 58 53 63 72 65 65 6E 4D 61 78 47 6C 62 2C 0,XScreenMaxGlb,
0150E0: 59 4D 61 78 47 6C 62 29 3B 0D 0A 20 20 20 20 4D YMaxGlb);.. M
0150F0: 61 78 57 6F 72 6C 64 47 6C 62 3A 3D 31 3B 0D 0A axWorldGlb:=1;..
015100: 3C 30 20 74 68 65 6E 20 54 52 3A 3D 30 0D 0A 20 <0 then TR:=0..
015110: 20 20 20 65 6C 73 65 20 69 66 20 54 52 3E 58 4D else if TR>XM
015120: 61 78 47 6C 62 20 74 68 65 6E 20 54 52 3A 3D 58 axGlb then TR:=X
015130: 4D 61 78 47 6C 62 3B 0D 0A 20 20 20 20 54 65 78 MaxGlb;.. Tex
015140: 74 52 69 67 68 74 3A 3D 54 52 3B 0D 0A 20 20 65 tRight:=TR;.. e
015150: 6E 64 3B 0D 0A 0D 0A 66 75 6E 63 74 69 6F 6E 20 nd;....function
015160: 54 65 78 74 55 70 28 54 59 2C 42 6F 75 6E 64 61 TextUp(TY,Bounda
015170: 72 79 3A 69 6E 74 65 67 65 72 29 3A 69 6E 74 65 ry:integer):inte
015180: 67 65 72 3B 0D 0A 20 20 76 61 72 20 54 55 3A 69 ger;.. var TU:i
015190: 6E 74 65 67 65 72 3B 0D 0A 20 20 62 65 67 69 6E nteger;.. begin
0151A0: 0D 0A 20 20 20 20 54 55 3A 3D 28 54 59 2D 31 29 .. TU:=(TY-1)
0151B0: 2A 28 28 59 4D 61 78 47 6C 62 2B 31 29 20 44 69 *((YMaxGlb+1) Di
0151C0: 76 20 32 35 29 2D 42 6F 75 6E 64 61 72 79 3B 0D v 25)-Boundary;.
0151D0: 0A 20 20 20 20 69 66 20 54 55 3C 30 20 74 68 65 . if TU<0 the
0151E0: 6E 20 54 55 3A 3D 30 0D 0A 20 20 20 20 65 6C 73 n TU:=0.. els
0151F0: 65 20 69 66 20 54 55 3E 59 4D 61 78 47 6C 62 20 e if TU>YMaxGlb
015200: 74 68 65 6E 20 54 55 3A 3D 59 4D 61 78 47 6C 62 then TU:=YMaxGlb
015210: 3B 0D 0A 20 20 20 20 54 65 78 74 55 70 3A 3D 54 ;.. TextUp:=T
015220: 55 3B 0D 0A 20 20 65 6E 64 3B 0D 0A 0D 0A 66 75 U;.. end;....fu
015230: 6E 63 74 69 6F 6E 20 54 65 78 74 44 6F 77 6E 28 nction TextDown(
015240: 54 59 2C 42 6F 75 6E 64 61 72 79 3A 69 6E 74 65 TY,Boundary:inte
015250: 67 65 72 29 3A 69 6E 74 65 67 65 72 3B 0D 0A 20 ger):integer;..
015260: 20 76 61 72 20 54 44 3A 69 6E 74 65 67 65 72 3B var TD:integer;
015270: 0D 0A 20 20 62 65 67 69 6E 0D 0A 20 20 20 20 54 .. begin.. T
015280: 44 3A 3D 54 59 2A 28 28 59 4D 61 78 47 6C 62 2B D:=TY*((YMaxGlb+
015290: 31 29 20 44 69 76 20 32 35 29 2B 42 6F 75 6E 64 1) Div 25)+Bound
0152A0: 61 72 79 2D 31 3B 0D 0A 20 20 20 20 69 66 20 54 ary-1;.. if T
0152B0: 44 3C 30 20 74 68 65 6E 20 54 44 3A 3D 30 0D 0A D<0 then TD:=0..
0152C0: 20 20 20 20 65 6C 73 65 20 69 66 20 54 44 3E 59 else if TD>Y
0152D0: 4D 61 78 47 6C 62 20 74 68 65 6E 20 54 44 3A 3D MaxGlb then TD:=
0152E0: 59 4D 61 78 47 6C 62 3B 0D 0A 20 20 20 20 54 65 YMaxGlb;.. Te
0152F0: 78 74 44 6F 77 6E 3A 3D 54 44 3B 0D 0A 20 20 65 xtDown:=TD;.. e
015300: 20 20 20 20 66 6F 72 20 69 3A 3D 31 20 74 6F 20 for i:=1 to
015310: 4D 61 78 57 69 6E 64 6F 77 73 47 6C 62 20 64 6F MaxWindowsGlb do
015320: 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 20 44 65 begin.. De
015330: 66 69 6E 65 57 69 6E 64 6F 77 28 69 2C 30 2C 30 fineWindow(i,0,0
015340: 2C 58 4D 61 78 47 6C 62 2C 59 4D 61 78 47 6C 62 ,XMaxGlb,YMaxGlb
015350: 29 3B 0D 0A 20 20 20 20 20 20 77 69 74 68 20 73 );.. with s
015360: 74 61 63 6B 5B 69 5D 20 64 6F 20 62 65 67 69 6E tack[i] do begin
015370: 0D 0A 20 20 20 20 20 20 20 20 77 2E 73 69 7A 65 .. w.size
015380: 3A 3D 30 3B 0D 0A 20 20 20 20 20 20 20 20 63 6F :=0;.. co
015390: 6E 74 65 6E 74 73 3A 3D 66 61 6C 73 65 3B 0D 0A ntents:=false;..
0153A0: 20 20 20 20 20 20 65 6E 64 3B 0D 0A 20 20 20 20 end;..
0153B0: 20 20 52 65 6D 6F 76 65 48 65 61 64 65 72 28 69 RemoveHeader(i
0153C0: 29 3B 0D 0A 20 20 20 20 65 6E 64 3B 0D 0A 20 20 );.. end;..
0153D0: 20 20 4D 61 78 57 69 6E 64 6F 77 47 6C 62 3A 3D MaxWindowGlb:=
0153E0: 31 3B 0D 0A 20 20 20 20 61 73 73 69 67 6E 28 66 1;.. assign(f
0153F0: 69 6C 2C 43 68 61 72 46 69 6C 65 29 3B 0D 0A 20 il,CharFile);..
015400: 20 20 20 7B 24 49 2D 7D 20 72 65 73 65 74 28 66 {$I-} reset(f
015410: 69 6C 29 3B 20 7B 24 49 2B 7D 0D 0A 20 20 20 20 il); {$I+}..
015420: 69 66 20 69 6F 72 65 73 75 6C 74 3D 30 20 74 68 if ioresult=0 th
015430: 65 6E 20 72 65 61 64 28 66 69 6C 2C 43 68 61 72 en read(fil,Char
015440: 53 65 74 29 0D 0A 20 20 20 20 65 6C 73 65 20 65 Set).. else e
015450: 72 72 6F 72 28 30 2C 31 29 3B 0D 0A 20 20 20 20 rror(0,1);..
015460: 63 6C 6F 73 65 28 66 69 6C 29 3B 0D 0A 20 20 20 close(fil);..
015470: 20 42 72 6B 47 6C 62 3A 3D 74 72 75 65 3B 0D 0A BrkGlb:=true;..
015480: 20 20 20 20 53 65 6C 65 63 74 53 63 72 65 65 6E SelectScreen
015490: 28 31 29 3B 0D 0A 20 20 20 20 57 69 6E 64 6F 77 (1);.. Window
0154A0: 4E 64 78 47 6C 62 3A 3D 31 3B 0D 0A 20 20 20 20 NdxGlb:=1;..
0154B0: 53 65 6C 65 63 74 57 6F 72 6C 64 28 31 29 3B 0D SelectWorld(1);.
0154C0: 0A 20 20 20 20 53 65 6C 65 63 74 57 69 6E 64 6F . SelectWindo
0154D0: 77 28 31 29 3B 0D 0A 20 20 20 20 53 65 74 43 6F w(1);.. SetCo
0154E0: 6C 6F 72 57 68 69 74 65 3B 0D 0A 20 20 20 20 53 lorWhite;.. S
0154F0: 65 74 43 6C 69 70 70 69 6E 67 4F 6E 3B 0D 0A 20 etClippingOn;..
015500: 6E 64 3B 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 65 nd;....procedure
015510: 20 44 65 66 69 6E 65 54 65 78 74 57 69 6E 64 6F DefineTextWindo
015520: 77 28 69 2C 58 31 2C 59 31 2C 58 32 2C 59 32 2C w(i,X1,Y1,X2,Y2,
015530: 42 3A 69 6E 74 65 67 65 72 29 3B 0D 0A 20 20 62 B:integer);.. b
015540: 65 67 69 6E 0D 0A 20 20 20 20 44 65 66 69 6E 65 egin.. Define
015550: 57 69 6E 64 6F 77 28 69 2C 54 65 78 74 4C 65 66 Window(i,TextLef
015560: 74 28 58 31 2C 42 29 2C 54 65 78 74 55 70 28 59 t(X1,B),TextUp(Y
015570: 31 2C 42 29 2C 54 65 78 74 52 69 67 68 74 28 58 1,B),TextRight(X
015580: 32 2C 42 29 2C 54 65 78 74 44 6F 77 6E 28 59 32 2,B),TextDown(Y2
015590: 2C 42 29 29 3B 0D 0A 20 20 65 6E 64 3B 0D 0A 0D ,B));.. end;...
0155A0: 0A 70 72 6F 63 65 64 75 72 65 20 53 65 6C 65 63 .procedure Selec
0155B0: 74 57 69 6E 64 6F 77 28 69 3A 69 6E 74 65 67 65 tWindow(i:intege
0155C0: 72 29 3B 0D 0A 20 20 62 65 67 69 6E 0D 0A 20 20 r);.. begin..
0155D0: 20 20 69 66 20 28 69 20 69 6E 20 5B 31 2E 2E 4D if (i in [1..M
0155E0: 61 78 57 69 6E 64 6F 77 47 6C 62 5D 29 20 74 68 axWindowGlb]) th
0155F0: 65 6E 0D 0A 20 20 20 20 20 20 77 69 74 68 20 77 en.. with w
015600: 69 6E 64 6F 77 5B 69 5D 20 64 6F 20 62 65 67 69 indow[i] do begi
015610: 6E 0D 0A 20 20 20 20 20 20 20 20 57 69 6E 64 6F n.. Windo
015620: 77 4E 64 78 47 6C 62 3A 3D 69 3B 0D 0A 20 20 20 wNdxGlb:=i;..
015630: 20 20 20 20 20 58 31 52 65 66 47 6C 62 3A 3D 78 X1RefGlb:=x
015640: 31 3B 20 59 31 52 65 66 47 6C 62 3A 3D 79 31 3B 1; Y1RefGlb:=y1;
015650: 0D 0A 20 20 20 20 20 20 20 20 58 32 52 65 66 47 .. X2RefG
015660: 6C 62 3A 3D 78 32 3B 20 59 32 52 65 66 47 6C 62 lb:=x2; Y2RefGlb
015670: 3A 3D 79 32 3B 0D 0A 20 20 20 20 20 20 20 20 42 :=y2;.. B
015680: 78 47 6C 62 3A 3D 28 28 78 32 2D 78 31 29 20 73 xGlb:=((x2-x1) s
015690: 68 6C 20 33 2B 37 29 2F 28 58 32 57 6C 64 47 6C hl 3+7)/(X2WldGl
0156A0: 62 2D 58 31 57 6C 64 47 6C 62 29 3B 0D 0A 20 20 b-X1WldGlb);..
0156B0: 20 20 20 20 20 20 42 79 47 6C 62 3A 3D 28 79 32 ByGlb:=(y2
0156C0: 2D 79 31 29 2F 28 59 32 57 6C 64 47 6C 62 2D 59 -y1)/(Y2WldGlb-Y
0156D0: 31 57 6C 64 47 6C 62 29 3B 0D 0A 20 20 20 20 20 1WldGlb);..
0156E0: 20 20 20 41 78 47 6C 62 3A 3D 28 78 31 20 73 68 AxGlb:=(x1 sh
0156F0: 6C 20 33 29 2D 58 31 57 6C 64 47 6C 62 2A 42 78 l 3)-X1WldGlb*Bx
015700: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
015710: 12 00 00 00 02 09 50 E5 12 00 41 02 00 00 00 02 ......P...A.....
015720: 12 00 46 02 00 00 00 02 12 00 42 02 00 00 00 02 ..F.......B.....
015730: 12 00 47 02 00 00 00 02 12 00 43 02 00 00 00 02 ..G.......C.....
015740: 12 00 48 02 00 00 00 02 12 00 44 02 00 00 00 02 ..H.......D.....
015750: 12 00 49 02 00 00 00 02 12 00 45 02 00 00 00 02 ..I.......E.....
015760: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
015770: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
015780: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
015790: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0157A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0157B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0157C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0157D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0157E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0157F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
015800: 20 20 20 53 65 74 41 73 70 65 63 74 28 41 73 70 SetAspect(Asp
015810: 65 63 74 46 61 63 74 6F 72 29 3B 0D 0A 20 20 20 ectFactor);..
015820: 20 44 69 72 65 63 74 4D 6F 64 65 47 6C 62 3A 3D DirectModeGlb:=
015830: 66 61 6C 73 65 3B 0D 0A 20 20 20 20 50 69 65 47 false;.. PieG
015840: 6C 62 3A 3D 66 61 6C 73 65 3B 0D 0A 20 20 20 20 lb:=false;..
015850: 53 65 74 4D 65 73 73 61 67 65 4F 6E 3B 0D 0A 20 SetMessageOn;..
015860: 20 20 20 53 65 74 48 65 61 64 65 72 4F 66 66 3B SetHeaderOff;
015870: 0D 0A 20 20 20 20 53 65 74 48 65 61 64 65 72 54 .. SetHeaderT
015880: 6F 54 6F 70 3B 0D 0A 20 20 20 20 45 72 72 43 6F oTop;.. ErrCo
015890: 64 65 47 6C 62 3A 3D 30 3B 0D 0A 20 20 20 20 53 deGlb:=0;.. S
0158A0: 65 74 4C 69 6E 65 53 74 79 6C 65 28 30 29 3B 0D etLineStyle(0);.
0158B0: 0A 20 20 20 20 56 53 74 65 70 47 6C 62 3A 3D 49 . VStepGlb:=I
0158C0: 56 53 74 65 70 47 6C 62 3B 0D 0A 20 20 20 20 45 VStepGlb;.. E
0158D0: 6E 74 65 72 47 72 61 70 68 69 63 3B 0D 0A 20 20 nterGraphic;..
0158E0: 20 20 58 31 47 6C 62 3A 3D 30 3B 20 58 32 47 6C X1Glb:=0; X2Gl
0158F0: 62 3A 3D 30 3B 0D 0A 20 20 20 20 59 31 47 6C 62 b:=0;.. Y1Glb
015900: 3A 3D 30 3B 20 59 32 47 6C 62 3A 3D 30 3B 0D 0A :=0; Y2Glb:=0;..
015910: 20 20 20 20 41 78 69 73 47 6C 62 3A 3D 66 61 6C AxisGlb:=fal
015920: 73 65 3B 0D 0A 20 20 20 20 48 61 74 63 68 47 6C se;.. HatchGl
015930: 62 3A 3D 66 61 6C 73 65 3B 0D 0A 20 20 65 6E 64 b:=false;.. end
015940: 3B 0D 0A 0D 0A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ;...............
015950: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
015960: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
015970: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
015980: 20 20 20 20 53 65 6C 65 63 74 53 63 72 65 65 6E SelectScreen
015990: 28 31 29 3B 0D 0A 20 20 20 20 57 69 6E 64 6F 77 (1);.. Window
0159A0: 4E 64 78 47 6C 62 3A 3D 31 3B 0D 0A 20 20 20 20 NdxGlb:=1;..
0159B0: 53 65 6C 65 63 74 57 6F 72 6C 64 28 31 29 3B 0D SelectWorld(1);.
0159C0: 0A 20 20 20 20 53 65 6C 65 63 74 57 69 6E 64 6F . SelectWindo
0159D0: 77 28 31 29 3B 0D 0A 20 20 20 20 53 65 74 43 6F w(1);.. SetCo
0159E0: 6C 6F 72 57 68 69 74 65 3B 0D 0A 20 20 20 20 53 lorWhite;.. S
0159F0: 65 74 43 6C 69 70 70 69 6E 67 4F 6E 3B 0D 0A 20 etClippingOn;..
015A00: 61 78 43 6F 6E 74 72 50 6F 69 6E 74 73 2B 31 2C axContrPoints+1,
015A10: 31 5D 3B 0D 0A 20 20 20 20 20 20 20 20 53 75 6D 1];.. Sum
015A20: 59 3A 3D 41 5B 4D 61 78 43 6F 6E 74 72 50 6F 69 Y:=A[MaxContrPoi
015A30: 6E 74 73 2B 31 2C 32 5D 3B 0D 0A 20 20 20 20 20 nts+1,2];..
015A40: 20 20 20 66 6F 72 20 6E 3A 3D 4D 61 78 43 6F 6E for n:=MaxCon
015A50: 74 72 50 6F 69 6E 74 73 20 64 6F 77 6E 74 6F 20 trPoints downto
015A60: 31 20 64 6F 0D 0A 20 20 20 20 20 20 20 20 20 62 1 do.. b
015A70: 65 67 69 6E 0D 0A 20 20 20 20 20 20 20 20 20 20 egin..
015A80: 53 75 6D 58 3A 3D 63 6F 6D 62 69 5B 6E 2D 31 5D SumX:=combi[n-1]
015A90: 2A 41 5B 6E 2C 31 5D 2B 71 75 6F 74 2A 53 75 6D *A[n,1]+quot*Sum
015AA0: 58 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 53 75 X;.. Su
015AB0: 6D 59 3A 3D 63 6F 6D 62 69 5B 6E 2D 31 5D 2A 41 mY:=combi[n-1]*A
015AC0: 5B 6E 2C 32 5D 2B 71 75 6F 74 2A 53 75 6D 59 3B [n,2]+quot*SumY;
015AD0: 0D 0A 20 20 20 20 20 20 20 20 20 65 6E 64 3B 0D .. end;.
015AE0: 0A 20 20 20 20 20 20 20 65 6E 64 0D 0A 20 20 20 . end..
015AF0: 20 20 20 65 6C 73 65 0D 0A 20 20 20 20 20 20 20 else..
015B00: 62 65 67 69 6E 0D 0A 20 20 20 20 20 20 20 20 70 begin.. p
015B10: 72 6F 64 3A 3D 74 3B 0D 0A 20 20 20 20 20 20 20 rod:=t;..
015B20: 20 71 75 6F 74 3A 3D 70 72 6F 64 3B 0D 0A 20 20 quot:=prod;..
015B30: 20 20 20 20 20 20 66 6F 72 20 6E 3A 3D 31 20 74 for n:=1 t
015B40: 6F 20 4D 61 78 43 6F 6E 74 72 50 6F 69 6E 74 73 o MaxContrPoints
015B50: 2D 31 20 64 6F 20 70 72 6F 64 3A 3D 70 72 6F 64 -1 do prod:=prod
015B60: 2A 71 75 6F 74 3B 0D 0A 20 20 20 20 20 20 20 20 *quot;..
015B70: 71 75 6F 74 3A 3D 28 31 2D 74 29 2F 71 75 6F 74 quot:=(1-t)/quot
015B80: 3B 0D 0A 20 20 20 20 20 20 20 20 53 75 6D 58 3A ;.. SumX:
015B90: 3D 41 5B 31 2C 31 5D 3B 0D 0A 20 20 20 20 20 20 =A[1,1];..
015BA0: 20 20 53 75 6D 59 3A 3D 41 5B 31 2C 32 5D 3B 0D SumY:=A[1,2];.
015BB0: 0A 20 20 20 20 20 20 20 20 66 6F 72 20 6E 3A 3D . for n:=
015BC0: 31 20 74 6F 20 4D 61 78 43 6F 6E 74 72 50 6F 69 1 to MaxContrPoi
015BD0: 6E 74 73 20 64 6F 0D 0A 20 20 20 20 20 20 20 20 nts do..
015BE0: 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 20 20 20 begin..
015BF0: 20 20 53 75 6D 58 3A 3D 63 6F 6D 62 69 5B 6E 5D SumX:=combi[n]
015C00: 64 72 69 76 65 20 41 20 24 68 65 20 73 6F 75 72 drive A $he sour
015C10: 63 65 20 64 69 73 63 20 24 68 65 20 64 65 73 74 ce disc $he dest
015C20: 69 6E 61 74 69 6F 6E 20 64 69 73 63 20 24 74 68 ination disc $th
015C30: 65 6E 20 70 72 65 73 73 20 61 6E 79 20 6B 65 79 en press any key
015C40: 3A 5F 24 3A 20 74 72 61 63 6B 20 F1 20 73 65 63 :_$: track . sec
015C50: 74 6F 72 20 F0 24 20 74 85 63 6F 72 72 65 63 74 tor .$ t.correct
015C60: 6C 79 24 20 69 6E 73 65 72 74 20 61 20 43 50 2F ly$ insert a CP/
015C70: 4D 20 73 79 73 74 65 6D 20 64 69 73 63 20 69 6E M system disc in
015C80: 74 6F 20 64 72 69 76 65 20 41 20 24 5C 81 5C 24 to drive A $\.\$
015C90: 5C 5C 81 20 66 69 6E 69 73 68 65 64 5C 24 5C 5C \\. finished\$\\
015CA0: 81 20 61 62 61 6E 64 6F 6E 65 64 5C 24 83 86 24 . abandoned\$..$
015CB0: 5C 50 6C 65 61 73 65 89 86 24 82 73 74 61 72 74 \Please..$.start
015CC0: 65 64 24 82 63 6F 6D 70 6C 65 74 65 24 5C 46 6F ed$.complete$\Fo
015CD0: 72 6D 61 74 74 69 6E 67 20 77 68 69 6C 73 74 20 rmatting whilst
015CE0: 63 6F 70 79 69 6E 67 24 83 86 24 5C 50 6C 65 61 copying$..$\Plea
015CF0: 73 65 20 69 6E 73 65 72 74 20 64 65 73 74 69 6E se insert destin
015D00: 61 74 69 6F 6E 20 64 69 73 63 20 69 6E 74 6F 20 ation disc into
015D10: 64 72 69 76 65 20 41 20 86 24 5C 44 6F 20 79 6F drive A .$\Do yo
015D20: 75 20 77 61 6E 74 20 74 6F 20 63 6F 70 79 20 61 u want to copy a
015D30: 6E 6F 74 68 65 72 20 64 69 73 63 20 28 59 2F 4E nother disc (Y/N
015D40: 29 3A 5F 24 0D 0A 52 65 61 64 69 6E 67 20 74 72 ):_$..Reading tr
015D50: 61 63 6B 20 F1 12 0B 24 0D 0A 46 6F 72 6D 61 74 ack ...$..Format
015D60: 74 69 6E 67 20 74 72 61 63 6B 20 F1 12 0B 24 0D ting track ...$.
015D70: 0A 57 72 69 74 69 6E 67 20 74 72 61 63 6B 20 F1 .Writing track .
015D80: 12 0B 24 20 5E 43 2E 2E 2E 61 62 6F 72 74 65 64 ..$ ^C...aborted
015D90: 24 5C 42 61 64 20 66 6F 72 6D 61 74 20 6F 70 74 $\Bad format opt
015DA0: 69 6F 6E 20 28 79 6F 75 20 6D 61 79 20 6F 6E 6C ion (you may onl
015DB0: 79 20 65 6E 74 65 72 20 53 2C 20 56 2C 20 44 20 y enter S, V, D
015DC0: 6F 72 20 49 29 24 5C 49 6E 73 75 66 66 69 63 69 or I)$\Insuffici
015DD0: 65 6E 74 20 73 70 61 63 65 20 69 6E 20 54 50 41 ent space in TPA
015DE0: 24 5C 5C 59 6F 75 20 6D 75 73 74 20 69 6E 73 65 $\\You must inse
015DF0: 72 74 20 74 84 69 6E 74 6F 20 64 72 69 76 65 20 rt t.into drive
015E00: 2A 41 5B 6E 2B 31 2C 31 5D 2B 71 75 6F 74 2A 53 *A[n+1,1]+quot*S
015E10: 75 6D 58 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 umX;..
015E20: 53 75 6D 59 3A 3D 63 6F 6D 62 69 5B 6E 5D 2A 41 SumY:=combi[n]*A
015E30: 5B 6E 2B 31 2C 32 5D 2B 71 75 6F 74 2A 53 75 6D [n+1,2]+quot*Sum
015E40: 59 3B 0D 0A 20 20 20 20 20 20 20 20 20 65 6E 64 Y;.. end
015E50: 3B 0D 0A 20 20 20 20 20 20 20 65 6E 64 3B 0D 0A ;.. end;..
015E60: 20 20 20 20 20 20 42 5B 49 6E 74 50 6F 69 6E 74 B[IntPoint
015E70: 2C 31 5D 3A 3D 53 75 6D 58 2A 70 72 6F 64 3B 0D ,1]:=SumX*prod;.
015E80: 0A 20 20 20 20 20 20 42 5B 49 6E 74 50 6F 69 6E . B[IntPoin
015E90: 74 2C 32 5D 3A 3D 53 75 6D 59 2A 70 72 6F 64 3B t,2]:=SumY*prod;
015EA0: 0D 0A 20 20 20 20 20 65 6E 64 3B 0D 0A 20 20 65 .. end;.. e
015EB0: 6E 64 3B 0D 0A 1A E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 nd;.............
015EC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015ED0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015EE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015EF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
015F00: 62 65 67 69 6E 0D 0A 20 20 20 20 20 20 20 20 70 begin.. p
015F10: 72 6F 64 3A 3D 74 3B 0D 0A 20 20 20 20 20 20 20 rod:=t;..
015F20: 20 71 75 6F 74 3A 3D 70 72 6F 64 3B 0D 0A 20 20 quot:=prod;..
015F30: 20 20 20 20 20 20 66 6F 72 20 6E 3A 3D 31 20 74 for n:=1 t
015F40: 6F 20 4D 61 78 43 6F 6E 74 72 50 6F 69 6E 74 73 o MaxContrPoints
015F50: 2D 31 20 64 6F 20 70 72 6F 64 3A 3D 70 72 6F 64 -1 do prod:=prod
015F60: 2A 71 75 6F 74 3B 0D 0A 20 20 20 20 20 20 20 20 *quot;..
015F70: 71 75 6F 74 3A 3D 28 31 2D 74 29 2F 71 75 6F 74 quot:=(1-t)/quot
015F80: 3B 0D 0A 20 20 20 20 20 20 20 20 53 75 6D 58 3A ;.. SumX:
015F90: 3D 41 5B 31 2C 31 5D 3B 0D 0A 20 20 20 20 20 20 =A[1,1];..
015FA0: 20 20 53 75 6D 59 3A 3D 41 5B 31 2C 32 5D 3B 0D SumY:=A[1,2];.
015FB0: 0A 20 20 20 20 20 20 20 20 66 6F 72 20 6E 3A 3D . for n:=
015FC0: 31 20 74 6F 20 4D 61 78 43 6F 6E 74 72 50 6F 69 1 to MaxContrPoi
015FD0: 6E 74 73 20 64 6F 0D 0A 20 20 20 20 20 20 20 20 nts do..
015FE0: 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 20 20 20 begin..
015FF0: 20 20 53 75 6D 58 3A 3D 63 6F 6D 62 69 5B 6E 5D SumX:=combi[n]
016000: 28 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A (***************
016010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
016020: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
016030: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 29 0D 0A 28 ************)..(
016040: 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 *
016050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
016060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
016070: 20 20 20 20 20 20 20 20 20 20 2A 29 0D 0A 28 2A *)..(*
016080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
016090: 54 55 52 42 4F 20 47 52 41 50 48 49 58 20 76 65 TURBO GRAPHIX ve
0160A0: 72 73 69 6F 6E 20 31 2E 30 35 41 20 20 20 20 20 rsion 1.05A
0160B0: 20 20 20 20 20 20 20 20 20 2A 29 0D 0A 28 2A 20 *)..(*
0160C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
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 20 20 20 20 20 20 20 20
0160F0: 20 20 20 20 20 20 20 20 2A 29 0D 0A 28 2A 20 20 *)..(*
016100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 B
016110: 65 7A 69 65 72 20 70 6F 6C 79 6E 6F 6D 69 61 6C ezier polynomial
016120: 20 6D 6F 64 75 6C 65 20 20 20 20 20 20 20 20 20 module
016130: 20 20 20 20 20 20 20 2A 29 0D 0A 28 2A 20 20 20 *)..(*
016140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4D M
016150: 6F 64 75 6C 65 20 76 65 72 73 69 6F 6E 20 20 31 odule version 1
016160: 2E 30 30 41 20 20 20 20 20 20 20 20 20 20 20 20 .00A
016170: 20 20 20 20 20 20 2A 29 0D 0A 28 2A 20 20 20 20 *)..(*
016180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
016190: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0161A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0161B0: 20 20 20 20 20 2A 29 0D 0A 28 2A 20 20 20 20 20 *)..(*
0161C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 43 6F 70 Cop
0161D0: 79 72 69 67 68 74 20 28 43 29 20 31 39 38 35 20 yright (C) 1985
0161E0: 62 79 20 20 20 20 20 20 20 20 20 20 20 20 20 20 by
0161F0: 20 20 20 20 2A 29 0D 0A 28 2A 20 20 20 20 20 20 *)..(*
016200: 69 73 63 20 69 6E 74 6F 20 64 72 69 76 65 20 41 isc into drive A
016210: 20 24 5C 81 5C 24 5C 5C 81 20 66 69 6E 69 73 68 $\.\$\\. finish
016220: 65 64 5C 24 5C 5C 81 20 61 62 61 6E 64 6F 6E 65 ed\$\\. abandone
016230: 64 5C 24 83 86 24 5C 50 6C 65 61 73 65 89 86 24 d\$..$\Please..$
016240: 82 73 74 61 72 74 65 64 24 82 63 6F 6D 70 6C 65 .started$.comple
016250: 74 65 24 5C 46 6F 72 6D 61 74 74 69 6E 67 20 77 te$\Formatting w
016260: 68 69 6C 73 74 20 63 6F 70 79 69 6E 67 24 83 86 hilst copying$..
016270: 24 5C 50 6C 65 61 73 65 20 69 6E 73 65 72 74 20 $\Please insert
016280: 64 65 73 74 69 6E 61 74 69 6F 6E 20 64 69 73 63 destination disc
016290: 20 69 6E 74 6F 20 64 72 69 76 65 20 41 20 86 24 into drive A .$
0162A0: 5C 44 6F 20 79 6F 75 20 77 61 6E 74 20 74 6F 20 \Do you want to
0162B0: 63 68 65 63 6B 20 61 6E 6F 74 68 65 72 20 64 69 check another di
0162C0: 73 63 20 28 59 2F 4E 29 3A 5F 24 0D 0A 52 65 61 sc (Y/N):_$..Rea
0162D0: 64 69 6E 67 20 20 74 72 61 63 6B 20 F1 12 0B 24 ding track ...$
0162E0: 0D 0A 46 6F 72 6D 61 74 74 69 6E 67 20 74 72 61 ..Formatting tra
0162F0: 63 6B 20 F1 12 0B 24 0D 0A 43 68 65 63 6B 69 6E ck ...$..Checkin
016300: 67 20 74 72 61 63 6B 20 F1 12 0B 24 20 5E 43 2E g track ...$ ^C.
016310: 2E 2E 61 62 6F 72 74 65 64 24 5C 42 61 64 20 66 ..aborted$\Bad f
016320: 6F 72 6D 61 74 20 6F 70 74 69 6F 6E 20 28 79 6F ormat option (yo
016330: 75 20 6D 61 79 20 6F 6E 6C 79 20 65 6E 74 65 72 u may only enter
016340: 20 53 2C 20 56 2C 20 44 20 6F 72 20 49 29 24 5C S, V, D or I)$\
016350: 49 6E 73 75 66 66 69 63 69 65 6E 74 20 73 70 61 Insufficient spa
016360: 63 65 20 69 6E 20 54 50 41 24 5C 5C 59 6F 75 20 ce in TPA$\\You
016370: 6D 75 73 74 20 69 6E 73 65 72 74 20 74 84 69 6E must insert t.in
016380: 74 6F 20 64 72 69 76 65 20 41 5C 24 5C 5C 59 6F to drive A\$\\Yo
016390: 75 20 6D 75 73 74 20 69 6E 73 65 72 74 20 74 85 u must insert t.
0163A0: 69 6E 74 6F 20 64 72 69 76 65 20 41 5C 24 5C 5C into drive A\$\\
0163B0: 59 6F 75 20 6D 75 73 74 89 5C 24 5C 5C 54 85 69 You must.\$\\T.i
0163C0: 6E 20 64 72 69 76 65 20 41 20 6D 75 73 74 20 62 n drive A must b
0163D0: 65 20 77 72 69 74 65 2D 65 6E 61 62 6C 65 64 5C e write-enabled\
0163E0: 24 5C 54 84 69 73 20 6E 6F 74 20 61 20 43 50 2F $\T.is not a CP/
0163F0: 4D 20 73 79 73 74 65 6D 20 64 69 73 63 24 5C 54 M system disc$\T
016400: 20 20 20 20 20 20 20 20 20 20 20 20 42 4F 52 4C BORL
016410: 41 4E 44 20 49 6E 74 65 72 6E 61 74 69 6F 6E 61 AND Internationa
016420: 6C 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 l
016430: 20 20 20 2A 29 0D 0A 28 2A 20 20 20 20 20 20 20 *)..(*
016440: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
016450: 20 20 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 20
016470: 20 20 2A 29 0D 0A 28 2A 2A 2A 2A 2A 2A 2A 2A 2A *)..(*********
016480: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
016490: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
0164A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
0164B0: 2A 2A 29 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 65 **)....procedure
0164C0: 20 62 65 7A 69 65 72 28 41 3A 50 6C 6F 74 41 72 bezier(A:PlotAr
0164D0: 72 61 79 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 ray;..
0164E0: 20 20 20 20 20 20 20 4D 61 78 43 6F 6E 74 72 50 MaxContrP
0164F0: 6F 69 6E 74 73 3A 69 6E 74 65 67 65 72 3B 0D 0A oints:integer;..
016500: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
016510: 20 76 61 72 20 42 3A 50 6C 6F 74 41 72 72 61 79 var B:PlotArray
016520: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ;..
016530: 20 20 20 20 4D 61 78 49 6E 74 50 6F 69 6E 74 73 MaxIntPoints
016540: 3A 69 6E 74 65 67 65 72 29 3B 0D 0A 20 20 63 6F :integer);.. co
016550: 6E 73 74 20 4D 61 78 43 6F 6E 74 72 6F 6C 50 6F nst MaxControlPo
016560: 69 6E 74 73 3D 32 35 3B 0D 0A 20 20 74 79 70 65 ints=25;.. type
016570: 20 43 6F 6D 62 69 41 72 72 61 79 3D 61 72 72 61 CombiArray=arra
016580: 79 20 5B 30 2E 2E 4D 61 78 43 6F 6E 74 72 6F 6C y [0..MaxControl
016590: 50 6F 69 6E 74 73 5D 20 6F 66 20 72 65 61 6C 3B Points] of real;
0165A0: 0D 0A 20 20 76 61 72 20 6E 3A 69 6E 74 65 67 65 .. var n:intege
0165B0: 72 3B 0D 0A 20 20 20 20 20 20 43 6F 6E 74 72 50 r;.. ContrP
0165C0: 6F 69 6E 74 2C 49 6E 74 50 6F 69 6E 74 3A 69 6E oint,IntPoint:in
0165D0: 74 65 67 65 72 3B 0D 0A 20 20 20 20 20 20 74 2C teger;.. t,
0165E0: 53 75 6D 58 2C 53 75 6D 59 2C 70 72 6F 64 2C 44 SumX,SumY,prod,D
0165F0: 65 6C 74 61 54 2C 71 75 6F 74 3A 72 65 61 6C 3B eltaT,quot:real;
016600: 28 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A (***************
016610: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
016620: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
016630: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 29 0D 0A 28 ************)..(
016640: 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 *
016650: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
016660: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
016670: 20 20 20 20 20 20 20 20 20 20 2A 29 0D 0A 28 2A *)..(*
016680: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
016690: 54 55 52 42 4F 20 47 52 41 50 48 49 58 20 76 65 TURBO GRAPHIX ve
0166A0: 72 73 69 6F 6E 20 31 2E 30 35 41 20 20 20 20 20 rsion 1.05A
0166B0: 20 20 20 20 20 20 20 20 20 2A 29 0D 0A 28 2A 20 *)..(*
0166C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0166D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0166E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0166F0: 20 20 20 20 20 20 20 20 2A 29 0D 0A 28 2A 20 20 *)..(*
016700: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
016710: 20 43 75 62 69 63 20 73 70 6C 69 6E 65 20 6D 6F Cubic spline mo
016720: 64 75 6C 65 20 20 20 20 20 20 20 20 20 20 20 20 dule
016730: 20 20 20 20 20 20 20 2A 29 0D 0A 28 2A 20 20 20 *)..(*
016740: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4D M
016750: 6F 64 75 6C 65 20 76 65 72 73 69 6F 6E 20 20 31 odule version 1
016760: 2E 30 30 41 20 20 20 20 20 20 20 20 20 20 20 20 .00A
016770: 20 20 20 20 20 20 2A 29 0D 0A 28 2A 20 20 20 20 *)..(*
016780: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
016790: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0167A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0167B0: 20 20 20 20 20 2A 29 0D 0A 28 2A 20 20 20 20 20 *)..(*
0167C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 43 6F 70 Cop
0167D0: 79 72 69 67 68 74 20 28 43 29 20 31 39 38 35 20 yright (C) 1985
0167E0: 62 79 20 20 20 20 20 20 20 20 20 20 20 20 20 20 by
0167F0: 20 20 20 20 2A 29 0D 0A 28 2A 20 20 20 20 20 20 *)..(*
016800: 0D 0A 20 20 20 20 20 20 63 6F 6D 62 69 3A 43 6F .. combi:Co
016810: 6D 62 69 41 72 72 61 79 3B 0D 0A 0D 0A 20 20 62 mbiArray;.... b
016820: 65 67 69 6E 0D 0A 20 20 20 20 4D 61 78 43 6F 6E egin.. MaxCon
016830: 74 72 50 6F 69 6E 74 73 3A 3D 4D 61 78 43 6F 6E trPoints:=MaxCon
016840: 74 72 50 6F 69 6E 74 73 2D 31 3B 0D 0A 20 20 20 trPoints-1;..
016850: 20 44 65 6C 74 61 54 3A 3D 31 2E 30 2F 28 4D 61 DeltaT:=1.0/(Ma
016860: 78 49 6E 74 50 6F 69 6E 74 73 2D 31 29 3B 0D 0A xIntPoints-1);..
016870: 20 20 20 20 63 6F 6D 62 69 5B 30 5D 3A 3D 31 3B combi[0]:=1;
016880: 0D 0A 20 20 20 20 63 6F 6D 62 69 5B 4D 61 78 43 .. combi[MaxC
016890: 6F 6E 74 72 50 6F 69 6E 74 73 5D 3A 3D 31 3B 0D ontrPoints]:=1;.
0168A0: 0A 20 20 20 20 66 6F 72 20 6E 3A 3D 30 20 74 6F . for n:=0 to
0168B0: 20 4D 61 78 43 6F 6E 74 72 50 6F 69 6E 74 73 2D MaxContrPoints-
0168C0: 32 20 64 6F 0D 0A 20 20 20 20 20 20 63 6F 6D 62 2 do.. comb
0168D0: 69 5B 6E 2B 31 5D 3A 3D 63 6F 6D 62 69 5B 6E 5D i[n+1]:=combi[n]
0168E0: 2A 28 4D 61 78 43 6F 6E 74 72 50 6F 69 6E 74 73 *(MaxContrPoints
0168F0: 2D 6E 29 2F 28 6E 2B 31 29 3B 0D 0A 20 20 20 20 -n)/(n+1);..
016900: 66 6F 72 20 49 6E 74 50 6F 69 6E 74 3A 3D 31 20 for IntPoint:=1
016910: 74 6F 20 4D 61 78 49 6E 74 50 6F 69 6E 74 73 20 to MaxIntPoints
016920: 64 6F 0D 0A 20 20 20 20 20 62 65 67 69 6E 0D 0A do.. begin..
016930: 20 20 20 20 20 20 74 3A 3D 28 49 6E 74 50 6F 69 t:=(IntPoi
016940: 6E 74 2D 31 29 2A 44 65 6C 74 61 54 3B 0D 0A 20 nt-1)*DeltaT;..
016950: 20 20 20 20 20 69 66 20 74 3C 3D 30 2E 35 20 74 if t<=0.5 t
016960: 68 65 6E 0D 0A 20 20 20 20 20 20 20 62 65 67 69 hen.. begi
016970: 6E 0D 0A 20 20 20 20 20 20 20 20 70 72 6F 64 3A n.. prod:
016980: 3D 31 2E 30 2D 74 3B 0D 0A 20 20 20 20 20 20 20 =1.0-t;..
016990: 20 71 75 6F 74 3A 3D 70 72 6F 64 3B 0D 0A 20 20 quot:=prod;..
0169A0: 20 20 20 20 20 20 66 6F 72 20 6E 3A 3D 31 20 74 for n:=1 t
0169B0: 6F 20 4D 61 78 43 6F 6E 74 72 50 6F 69 6E 74 73 o MaxContrPoints
0169C0: 2D 31 20 64 6F 20 70 72 6F 64 3A 3D 70 72 6F 64 -1 do prod:=prod
0169D0: 2A 71 75 6F 74 3B 0D 0A 20 20 20 20 20 20 20 20 *quot;..
0169E0: 71 75 6F 74 3A 3D 74 2F 71 75 6F 74 3B 0D 0A 20 quot:=t/quot;..
0169F0: 20 20 20 20 20 20 20 53 75 6D 58 3A 3D 41 5B 4D SumX:=A[M
016A00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
016A10: 13 00 00 00 02 09 50 E5 13 00 41 02 00 00 00 02 ......P...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: 20 20 20 20 20 20 20 20 20 20 20 20 42 4F 52 4C BORL
016B10: 41 4E 44 20 49 6E 74 65 72 6E 61 74 69 6F 6E 61 AND Internationa
016B20: 6C 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 l
016B30: 20 20 20 2A 29 0D 0A 28 2A 20 20 20 20 20 20 20 *)..(*
016B40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
016B50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
016B60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
016B70: 20 20 2A 29 0D 0A 28 2A 2A 2A 2A 2A 2A 2A 2A 2A *)..(*********
016B80: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
016B90: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
016BA0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
016BB0: 2A 2A 29 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 65 **)....procedure
016BC0: 20 73 70 6C 69 6E 65 28 41 3A 50 6C 6F 74 41 72 spline(A:PlotAr
016BD0: 72 61 79 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 ray;..
016BE0: 20 20 20 20 20 20 20 4E 3A 69 6E 74 65 67 65 72 N:integer
016BF0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ;..
016C00: 20 20 20 20 58 31 2C 58 4D 3A 72 65 61 6C 3B 0D X1,XM:real;.
016C10: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
016C20: 20 20 76 61 72 20 42 3A 50 6C 6F 74 41 72 72 61 var B:PlotArra
016C30: 79 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 y;..
016C40: 20 20 20 20 20 4D 3A 69 6E 74 65 67 65 72 29 3B M:integer);
016C50: 0D 0A 20 20 63 6F 6E 73 74 20 4D 61 78 53 70 6C .. const MaxSpl
016C60: 69 6E 65 3D 35 30 3B 0D 0A 20 20 74 79 70 65 20 ine=50;.. type
016C70: 56 65 63 74 6F 72 20 3D 20 61 72 72 61 79 20 5B Vector = array [
016C80: 31 2E 2E 4D 61 78 53 70 6C 69 6E 65 5D 20 6F 66 1..MaxSpline] of
016C90: 20 72 65 61 6C 3B 0D 0A 20 20 76 61 72 20 78 2C real;.. var x,
016CA0: 79 2C 7A 3A 56 65 63 74 6F 72 3B 0D 0A 20 20 20 y,z:Vector;..
016CB0: 20 20 20 69 3A 69 6E 74 65 67 65 72 3B 0D 0A 20 i:integer;..
016CC0: 20 20 20 20 20 44 65 6C 74 61 58 3A 72 65 61 6C DeltaX:real
016CD0: 3B 0D 0A 0D 0A 20 20 70 72 6F 63 65 64 75 72 65 ;.... procedure
016CE0: 20 73 74 67 28 56 65 63 74 6F 72 31 2C 56 65 63 stg(Vector1,Vec
016CF0: 74 6F 72 32 2C 56 65 63 74 6F 72 33 3A 56 65 63 tor2,Vector3:Vec
016D00: 31 3E 3D 41 5B 31 2C 31 5D 29 20 61 6E 64 20 28 1>=A[1,1]) and (
016D10: 58 4D 3C 3D 41 5B 4E 2C 31 5D 29 29 20 61 6E 64 XM<=A[N,1])) and
016D20: 20 28 4D 3E 3D 32 29 20 74 68 65 6E 0D 0A 20 20 (M>=2) then..
016D30: 20 20 20 20 20 62 65 67 69 6E 0D 0A 20 20 20 20 begin..
016D40: 20 20 20 20 44 65 6C 74 61 58 3A 3D 28 58 4D 2D DeltaX:=(XM-
016D50: 58 31 29 2F 28 4D 2D 31 29 3B 0D 0A 20 20 20 20 X1)/(M-1);..
016D60: 20 20 20 20 66 6F 72 20 69 3A 3D 31 20 74 6F 20 for i:=1 to
016D70: 4E 20 64 6F 0D 0A 20 20 20 20 20 20 20 20 20 62 N do.. b
016D80: 65 67 69 6E 0D 0A 20 20 20 20 20 20 20 20 20 20 egin..
016D90: 58 5B 69 5D 3A 3D 41 5B 69 2C 31 5D 3B 0D 0A 20 X[i]:=A[i,1];..
016DA0: 20 20 20 20 20 20 20 20 20 59 5B 69 5D 3A 3D 41 Y[i]:=A
016DB0: 5B 69 2C 32 5D 3B 0D 0A 20 20 20 20 20 20 20 20 [i,2];..
016DC0: 20 65 6E 64 3B 0D 0A 20 20 20 20 20 20 20 20 66 end;.. f
016DD0: 6F 72 20 69 3A 3D 32 20 74 6F 20 4D 2D 31 20 64 or i:=2 to M-1 d
016DE0: 6F 20 5A 5B 69 5D 3A 3D 58 31 2B 28 69 2D 31 29 o Z[i]:=X1+(i-1)
016DF0: 2A 44 65 6C 74 61 58 3B 0D 0A 20 20 20 20 20 20 *DeltaX;..
016E00: 20 20 5A 5B 31 5D 3A 3D 58 31 3B 0D 0A 20 20 20 Z[1]:=X1;..
016E10: 20 20 20 20 20 5A 5B 4D 5D 3A 3D 58 4D 3B 0D 0A Z[M]:=XM;..
016E20: 20 20 20 20 20 20 20 20 73 69 61 28 58 2C 59 2C sia(X,Y,
016E30: 4E 2C 5A 2C 59 2C 4D 29 3B 0D 0A 20 20 20 20 20 N,Z,Y,M);..
016E40: 20 20 20 66 6F 72 20 69 3A 3D 31 20 74 6F 20 4D for i:=1 to M
016E50: 20 64 6F 0D 0A 20 20 20 20 20 20 20 20 20 62 65 do.. be
016E60: 67 69 6E 0D 0A 20 20 20 20 20 20 20 20 20 20 42 gin.. B
016E70: 5B 69 2C 31 5D 3A 3D 5A 5B 69 5D 3B 0D 0A 20 20 [i,1]:=Z[i];..
016E80: 20 20 20 20 20 20 20 20 42 5B 69 2C 32 5D 3A 3D B[i,2]:=
016E90: 59 5B 69 5D 3B 0D 0A 20 20 20 20 20 20 20 20 20 Y[i];..
016EA0: 65 6E 64 3B 0D 0A 20 20 20 20 20 20 20 65 6E 64 end;.. end
016EB0: 0D 0A 20 20 20 20 20 20 65 6C 73 65 20 65 72 72 .. else err
016EC0: 6F 72 28 32 30 2C 37 29 3B 0D 0A 20 20 20 20 20 or(20,7);..
016ED0: 65 6E 64 0D 0A 20 20 20 20 65 6C 73 65 20 65 72 end.. else er
016EE0: 72 6F 72 28 32 30 2C 34 29 3B 0D 0A 20 20 65 6E ror(20,4);.. en
016EF0: 64 3B 0D 0A 1A 00 00 00 00 00 13 00 C2 08 00 00 d;..............
016F00: 74 6F 72 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 tor;..
016F10: 20 20 20 20 20 20 76 61 72 20 56 65 63 74 6F 72 var Vector
016F20: 34 3A 56 65 63 74 6F 72 3B 0D 0A 20 20 20 20 20 4:Vector;..
016F30: 20 20 20 20 20 20 20 20 20 20 20 4E 50 74 73 3A NPts:
016F40: 69 6E 74 65 67 65 72 29 3B 0D 0A 20 20 20 20 76 integer);.. v
016F50: 61 72 20 69 3A 69 6E 74 65 67 65 72 3B 0D 0A 20 ar i:integer;..
016F60: 20 20 20 20 20 20 20 46 61 63 74 6F 72 3A 72 65 Factor:re
016F70: 61 6C 3B 0D 0A 0D 0A 20 20 20 20 62 65 67 69 6E al;.... begin
016F80: 0D 0A 20 20 20 20 20 20 66 6F 72 20 69 3A 3D 32 .. for i:=2
016F90: 20 74 6F 20 4E 50 74 73 20 64 6F 0D 0A 20 20 20 to NPts do..
016FA0: 20 20 20 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 begin..
016FB0: 20 20 20 46 61 63 74 6F 72 3A 3D 56 65 63 74 6F Factor:=Vecto
016FC0: 72 31 5B 69 2D 31 5D 2F 56 65 63 74 6F 72 32 5B r1[i-1]/Vector2[
016FD0: 69 2D 31 5D 3B 0D 0A 20 20 20 20 20 20 20 20 56 i-1];.. V
016FE0: 65 63 74 6F 72 32 5B 69 5D 3A 3D 56 65 63 74 6F ector2[i]:=Vecto
016FF0: 72 32 5B 69 5D 2D 46 61 63 74 6F 72 2A 56 65 63 r2[i]-Factor*Vec
017000: 74 6F 72 33 5B 69 2D 31 5D 3B 0D 0A 20 20 20 20 tor3[i-1];..
017010: 20 20 20 20 56 65 63 74 6F 72 34 5B 69 5D 3A 3D Vector4[i]:=
017020: 56 65 63 74 6F 72 34 5B 69 5D 2D 46 61 63 74 6F Vector4[i]-Facto
017030: 72 2A 56 65 63 74 6F 72 34 5B 69 2D 31 5D 3B 0D r*Vector4[i-1];.
017040: 0A 20 20 20 20 20 20 20 65 6E 64 3B 0D 0A 20 20 . end;..
017050: 20 20 20 20 56 65 63 74 6F 72 34 5B 4E 50 74 73 Vector4[NPts
017060: 5D 3A 3D 56 65 63 74 6F 72 34 5B 4E 50 74 73 5D ]:=Vector4[NPts]
017070: 2F 56 65 63 74 6F 72 32 5B 4E 50 74 73 5D 3B 0D /Vector2[NPts];.
017080: 0A 20 20 20 20 20 20 66 6F 72 20 69 3A 3D 31 20 . for i:=1
017090: 74 6F 20 4E 50 74 73 2D 31 20 64 6F 0D 0A 20 20 to NPts-1 do..
0170A0: 20 20 20 20 20 20 56 65 63 74 6F 72 34 5B 4E 50 Vector4[NP
0170B0: 74 73 2D 69 5D 3A 3D 28 56 65 63 74 6F 72 34 5B ts-i]:=(Vector4[
0170C0: 4E 50 74 73 2D 69 5D 2D 56 65 63 74 6F 72 33 5B NPts-i]-Vector3[
0170D0: 4E 50 74 73 2D 69 5D 2A 56 65 63 74 6F 72 34 5B NPts-i]*Vector4[
0170E0: 4E 50 74 73 2D 69 2B 31 5D 29 20 2F 0D 0A 20 20 NPts-i+1]) /..
0170F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
017100: B7 E3 4D E1 C9 CD 0D 0B 78 FE 01 3F C9 78 B7 C8 ..M.....x..?.x..
017110: 1A CD 2F 0B 3F D0 05 13 C3 0D 0B CD 25 0B C8 CD ../.?.......%...
017120: 2F 0B D8 B7 C9 78 B7 C8 05 B7 1A 13 C3 5A 0C FE /....x.......Z..
017130: 2C C8 FE 20 C8 FE 3D C8 37 C9 11 F9 25 3E FF 12 ,.. ..=.7...%>..
017140: 0E 0A CD 7C 0C 3E 0A CD 6D 0C 3E 08 CD 6D 0C 13 ...|.>..m.>..m..
017150: 1A 13 47 C9 CD 0D 0B C8 E5 21 00 00 CD 1B 0B D2 ..G......!......
017160: 78 0B CD 05 0C D2 81 0B D5 CD 0C 0C D1 DA 81 0B x...............
017170: 85 6F 8C 95 67 C3 5C 0B EB E3 EB CD 16 0C D1 9F .o..g.\.........
017180: C9 E1 3E 53 B7 C3 9B 0C D5 C5 21 00 00 44 CD 35 ..>S......!..D.5
017190: 0C 4F CD 05 0C D2 BB 0B E5 CD 0C 0C DA B2 0B 5F .O............._
0171A0: 16 00 19 DA B2 0B 04 CA B1 0B 79 CD 6D 0C C3 8E ..........y.m...
0171B0: 0B 05 E1 3E 07 CD 6D 0C C3 8E 0B 79 FE 0D C2 CE ...>..m....y....
0171C0: 0B 78 B7 CA CB 0B C1 3D C2 C6 0B C1 D1 C9 FE 08 .x.....=........
0171D0: 0E 01 CA E0 0B FE 7F CA E0 0B FE 18 C2 FD 0B 48 ...............H
0171E0: 78 B7 CA FD 0B 3E 08 CD 6D 0C 3E 20 CD 6D 0C 3E x....>..m.> .m.>
0171F0: 08 CD 6D 0C E1 05 0D C2 E5 0B C3 8E 0B 3E 07 CD ..m..........>..
017200: 6D 0C C3 8E 0B D6 30 3F D0 FE 0A C9 54 5D 29 D8 m.....0?....T]).
017210: 29 D8 19 D8 29 C9 7C BA C0 7D BB C9 CD 35 0C FE )...).|..}...5..
017220: 4E CA 32 0C FE 59 37 CA 32 0C 3E 07 CD 6D 0C C3 N.2..Y7.2.>..m..
017230: 1C 0C C3 6D 0C D5 C5 0E 06 1E FF CD 7C 0C B7 C2 ...m........|...
017240: 37 0C 0E 06 1E FF CD 7C 0C B7 CA 42 0C CD 5A 0C 7......|...B..Z.
017250: C1 D1 FE 03 C0 3E 09 C3 95 0C C5 F5 FE 61 DA 68 .....>.......a.h
017260: 0C FE 7B D2 68 0C E6 DF 47 F1 78 C1 C9 E5 D5 C5 ..{.h...G.x.....
017270: F5 5F 0E 02 CD 05 00 F1 C1 D1 E1 C9 E5 D5 C5 CD ._..............
017280: 05 00 C1 D1 E1 C9 CD 9B 0C C3 1C 0C F5 CD 9B 0C ................
017290: CD 35 0C F1 C9 CD 9B 0C C3 15 01 E5 D5 C5 F5 21 .5.............!
0172A0: EB 0D FE 65 D2 AB 0C B7 C2 AF 0C CD CD 0C C7 C5 ...e............
0172B0: 47 7E 23 FE 24 C2 B1 0C 7E 23 FE 24 CA B1 0C 05 G~#.$...~#.$....
0172C0: C2 B1 0C 2B C1 CD CD 0C F1 C1 D1 E1 C9 7E 23 B7 ...+.........~#.
0172D0: FA FD 0C FE 5C CA EB 0C FE 24 C4 6D 0C C2 CD 0C ....\....$.m....
0172E0: 7E 23 FE 24 C0 CD 6D 0C C3 CD 0C 3E 12 CD 6D 0C ~#.$..m....>..m.
0172F0: 3E 0D CD 6D 0C 3E 0A CD 6D 0C C3 CD 0C E5 21 CD >..m.>..m.....!.
017300: 20 20 20 20 20 20 20 56 65 63 74 6F 72 32 5B 4E Vector2[N
017310: 50 74 73 2D 69 5D 3B 0D 0A 20 20 20 20 65 6E 64 Pts-i];.. end
017320: 3B 0D 0A 0D 0A 20 20 70 72 6F 63 65 64 75 72 65 ;.... procedure
017330: 20 73 63 28 58 2C 59 3A 56 65 63 74 6F 72 3B 0D sc(X,Y:Vector;.
017340: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
017350: 76 61 72 20 5A 3A 56 65 63 74 6F 72 3B 0D 0A 20 var Z:Vector;..
017360: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4E 50 NP
017370: 74 73 3A 69 6E 74 65 67 65 72 29 3B 0D 0A 20 20 ts:integer);..
017380: 20 20 76 61 72 20 69 3A 69 6E 74 65 67 65 72 3B var i:integer;
017390: 0D 0A 20 20 20 20 20 20 20 20 44 2C 43 3A 56 65 .. D,C:Ve
0173A0: 63 74 6F 72 3B 0D 0A 0D 0A 20 20 20 20 62 65 67 ctor;.... beg
0173B0: 69 6E 0D 0A 20 20 20 20 20 20 44 5B 31 5D 3A 3D in.. D[1]:=
0173C0: 31 2E 30 3B 0D 0A 20 20 20 20 20 20 43 5B 31 5D 1.0;.. C[1]
0173D0: 3A 3D 30 2E 35 3B 0D 0A 20 20 20 20 20 20 5A 5B :=0.5;.. Z[
0173E0: 31 5D 3A 3D 30 2E 35 3B 0D 0A 20 20 20 20 20 20 1]:=0.5;..
0173F0: 66 6F 72 20 69 3A 3D 32 20 74 6F 20 4E 50 74 73 for i:=2 to NPts
017400: 2D 31 20 64 6F 0D 0A 20 20 20 20 20 20 20 62 65 -1 do.. be
017410: 67 69 6E 0D 0A 20 20 20 20 20 20 20 20 44 5B 69 gin.. D[i
017420: 5D 3A 3D 32 2E 30 2A 28 58 5B 69 2B 31 5D 2D 58 ]:=2.0*(X[i+1]-X
017430: 5B 69 2D 31 5D 29 3B 0D 0A 20 20 20 20 20 20 20 [i-1]);..
017440: 20 43 5B 69 5D 3A 3D 58 5B 69 2B 31 5D 2D 58 5B C[i]:=X[i+1]-X[
017450: 69 5D 3B 0D 0A 20 20 20 20 20 20 20 20 5A 5B 69 i];.. Z[i
017460: 5D 3A 3D 36 2E 30 2A 28 28 59 5B 69 2B 31 5D 2D ]:=6.0*((Y[i+1]-
017470: 59 5B 69 5D 29 2F 28 58 5B 69 2B 31 5D 2D 58 5B Y[i])/(X[i+1]-X[
017480: 69 5D 29 2D 28 59 5B 69 5D 2D 59 5B 69 2D 31 5D i])-(Y[i]-Y[i-1]
017490: 29 2F 28 58 5B 69 5D 2D 58 5B 69 2D 31 5D 29 29 )/(X[i]-X[i-1]))
0174A0: 3B 0D 0A 20 20 20 20 20 20 20 65 6E 64 3B 0D 0A ;.. end;..
0174B0: 20 20 20 20 20 20 44 5B 4E 50 74 73 5D 3A 3D 31 D[NPts]:=1
0174C0: 2E 30 3B 0D 0A 20 20 20 20 20 20 43 5B 4E 50 74 .0;.. C[NPt
0174D0: 73 2D 31 5D 3A 3D 30 2E 30 3B 0D 0A 20 20 20 20 s-1]:=0.0;..
0174E0: 20 20 43 5B 4E 50 74 73 5D 3A 3D 30 2E 30 3B 0D C[NPts]:=0.0;.
0174F0: 0A 20 20 20 20 20 20 5A 5B 4E 50 74 73 5D 3A 3D . Z[NPts]:=
017500: 01 00 1D 01 00 00 00 02 02 22 00 05 55 0A E9 75 ........."..U..u
017510: 4E 3C 72 09 42 90 07 B4 A4 00 02 22 02 44 42 04 N<r.B......".DB.
017520: 22 24 09 6F 69 00 27 20 42 00 00 00 07 00 02 00 "$.oi.' B.......
017530: 00 08 42 10 06 99 96 07 22 62 0F 42 96 0E 16 1E ..B....."b.B....
017540: 02 2F AA 0E 1E 8F 06 9E 87 08 42 1F 06 96 96 0E ./........B.....
017550: 17 96 02 00 20 42 00 20 01 24 21 00 F0 F0 08 42 .... B. .$!....B
017560: 48 02 02 1E 07 8B 96 09 9F 96 0E 9E 9E 07 88 87 H...............
017570: 0E 99 9E 0F 8E 8F 08 8E 8F 07 9B 87 09 9F 99 07 ................
017580: 22 27 04 A2 27 09 AC A9 0F 88 88 09 99 F9 09 9B "'..'...........
017590: D9 0F 99 9F 08 8E 9E 07 B9 96 09 AE 9E 0E 16 87 ................
0175A0: 02 22 27 0F 99 99 06 99 99 09 F9 99 09 96 99 06 ."'.............
0175B0: 66 99 0F 42 1F 07 44 47 01 24 80 0E 22 2E 00 00 f..B..DG.$.."...
0175C0: 96 F0 00 00 00 01 24 07 F1 E0 0E 99 E8 07 88 70 ......$........p
0175D0: 07 99 71 07 8F 60 04 4F 43 E1 79 71 09 99 E8 02 ..q..`.OC.yq....
0175E0: 22 02 25 11 01 05 65 44 02 22 22 09 9F 90 09 99 ".%...eD."".....
0175F0: E0 06 99 60 8E 99 E0 17 99 70 08 8C B0 0E 3C 70 ...`.....p....<p
017600: 02 54 F4 07 99 90 06 99 90 09 F9 90 09 96 90 84 .T..............
017610: 69 90 0F 42 F0 03 26 23 22 22 22 0C 46 4C 00 00 i..B..&#""".FL..
017620: A5 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017630: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017640: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017650: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017660: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017670: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017680: 00 00 00 00 3D C2 18 05 EB 4E 23 46 79 05 04 C9 ....=....N#Fy...
017690: CD 7D 00 C2 18 05 C9 17 17 17 E6 38 C9 17 17 17 .}.........8....
0176A0: 17 E6 30 C9 EB 2A 7A 06 EB 7B BE C2 AF 00 23 7A ..0..*z..{....#z
0176B0: BE C8 2B 2B 2B 0D C2 A5 00 0D C9 06 04 D5 11 7A ..+++..........z
0176C0: 06 1A BE C2 CA 00 23 13 05 C2 BD 00 D1 C9 23 05 ......#.......#.
0176D0: C2 CA 00 11 F8 FF 19 D1 13 0D C2 B7 00 0D C9 C5 ................
0176E0: CD 39 00 CA 18 05 0E 08 21 60 06 CD A0 00 C2 18 .9......!`......
0176F0: 05 0D 79 C1 C9 C5 CD 39 00 CA 18 05 0E 05 21 72 ..y....9......!r
017700: 30 2E 30 3B 0D 0A 20 20 20 20 20 20 73 74 67 28 0.0;.. stg(
017710: 43 2C 44 2C 43 2C 5A 2C 4E 50 74 73 29 3B 0D 0A C,D,C,Z,NPts);..
017720: 20 20 20 20 65 6E 64 3B 0D 0A 0D 0A 20 20 66 75 end;.... fu
017730: 6E 63 74 69 6F 6E 20 73 69 28 56 3A 72 65 61 6C nction si(V:real
017740: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ;..
017750: 20 58 2C 59 2C 5A 3A 56 65 63 74 6F 72 3B 0D 0A X,Y,Z:Vector;..
017760: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4E 50 NP
017770: 74 73 3A 69 6E 74 65 67 65 72 29 3A 72 65 61 6C ts:integer):real
017780: 3B 0D 0A 20 20 20 20 76 61 72 20 69 2C 6A 3A 69 ;.. var i,j:i
017790: 6E 74 65 67 65 72 3B 0D 0A 20 20 20 20 20 20 20 nteger;..
0177A0: 20 64 75 6D 6D 79 2C 61 69 2C 68 69 3A 72 65 61 dummy,ai,hi:rea
0177B0: 6C 3B 0D 0A 0D 0A 20 20 20 20 62 65 67 69 6E 0D l;.... begin.
0177C0: 0A 20 20 20 20 20 20 69 66 20 28 56 3E 58 5B 31 . if (V>X[1
0177D0: 5D 29 20 61 6E 64 20 28 56 3C 58 5B 4E 50 74 73 ]) and (V<X[NPts
0177E0: 5D 29 20 74 68 65 6E 0D 0A 20 20 20 20 20 20 20 ]) then..
0177F0: 62 65 67 69 6E 0D 0A 20 20 20 20 20 20 20 20 6A begin.. j
017800: 3A 3D 31 3B 0D 0A 20 20 20 20 20 20 20 20 72 65 :=1;.. re
017810: 70 65 61 74 0D 0A 20 20 20 20 20 20 20 20 20 20 peat..
017820: 6A 3A 3D 6A 2B 31 3B 0D 0A 20 20 20 20 20 20 20 j:=j+1;..
017830: 20 20 20 69 3A 3D 4E 50 74 73 2D 6A 3B 0D 0A 20 i:=NPts-j;..
017840: 20 20 20 20 20 20 20 20 20 64 75 6D 6D 79 3A 3D dummy:=
017850: 56 2D 58 5B 69 5D 3B 0D 0A 20 20 20 20 20 20 20 V-X[i];..
017860: 20 75 6E 74 69 6C 20 28 64 75 6D 6D 79 3E 3D 30 until (dummy>=0
017870: 2E 30 29 20 6F 72 20 28 69 3D 32 29 3B 0D 0A 20 .0) or (i=2);..
017880: 20 20 20 20 20 20 20 68 69 3A 3D 58 5B 69 2B 31 hi:=X[i+1
017890: 5D 2D 58 5B 69 5D 3B 0D 0A 20 20 20 20 20 20 20 ]-X[i];..
0178A0: 20 61 69 3A 3D 64 75 6D 6D 79 2A 28 5A 5B 69 2B ai:=dummy*(Z[i+
0178B0: 31 5D 2D 5A 5B 69 5D 29 2F 28 36 2E 30 2A 68 69 1]-Z[i])/(6.0*hi
0178C0: 29 2B 30 2E 35 2A 5A 5B 69 5D 3B 0D 0A 20 20 20 )+0.5*Z[i];..
0178D0: 20 20 20 20 20 61 69 3A 3D 64 75 6D 6D 79 2A 61 ai:=dummy*a
0178E0: 69 2B 28 59 5B 69 2B 31 5D 2D 59 5B 69 5D 29 2F i+(Y[i+1]-Y[i])/
0178F0: 68 69 2D 68 69 2A 28 32 2E 30 2A 5A 5B 69 5D 2B hi-hi*(2.0*Z[i]+
017900: 61 6C 20 63 6F 6D 6D 61 6E 64 20 62 75 66 66 65 al command buffe
017910: 72 3A 5F 24 1E 2A 2A 20 53 69 67 6E 2D 6F 6E 20 r:_$.** Sign-on
017920: 73 74 72 69 6E 67 20 65 6D 70 74 79 24 1E 53 69 string empty$.Si
017930: 67 6E 2D 6F 6E 20 73 74 72 69 6E 67 3A 5C 5C 24 gn-on string:\\$
017940: 5C 5C 45 6E 74 65 72 20 6E 65 77 20 73 69 67 6E \\Enter new sign
017950: 2D 6F 6E 20 73 74 72 69 6E 67 3A 5F 24 1E 2A 2A -on string:_$.**
017960: 20 50 72 69 6E 74 65 72 20 70 6F 77 65 72 2D 75 Printer power-u
017970: 70 20 73 74 72 69 6E 67 20 65 6D 70 74 79 24 1E p string empty$.
017980: 50 72 69 6E 74 65 72 20 70 6F 77 65 72 2D 75 70 Printer power-up
017990: 20 73 74 72 69 6E 67 3A 5C 5C 24 5C 5C 45 6E 74 string:\\$\\Ent
0179A0: 65 72 20 6E 65 77 20 70 72 69 6E 74 65 72 20 70 er new printer p
0179B0: 6F 77 65 72 2D 75 70 20 73 74 72 69 6E 67 3A 5F ower-up string:_
0179C0: 24 1E 4E 6F 20 6B 65 79 62 6F 61 72 64 20 74 72 $.No keyboard tr
0179D0: 61 6E 73 6C 61 74 69 6F 6E 73 20 73 65 74 24 1E anslations set$.
0179E0: 4B 65 79 62 6F 61 72 64 20 74 72 61 6E 73 6C 61 Keyboard transla
0179F0: 74 69 6F 6E 73 3A 5C 5C 4B 65 79 20 63 6F 64 65 tions:\\Key code
017A00: 20 20 20 20 4E 6F 72 6D 61 6C 20 20 20 20 20 20 Normal
017A10: 20 53 68 69 66 74 20 20 20 20 20 20 43 6F 6E 74 Shift Cont
017A20: 72 6F 6C 5C 24 5C 20 20 F0 20 20 20 20 20 20 20 rol\$\ .
017A30: 20 20 F1 20 20 20 20 20 20 20 24 20 20 F1 20 20 . $ .
017A40: 20 20 20 20 20 24 20 20 20 20 2D 20 20 20 20 20 $ -
017A50: 20 20 24 5C 5C 45 6E 74 65 72 20 72 65 71 75 69 $\\Enter requi
017A60: 72 65 64 20 63 6F 6D 6D 61 6E 64 20 66 72 6F 6D red command from
017A70: 3A 2D 5C 20 20 20 20 20 20 41 20 2D 20 41 64 64 :-\ A - Add
017A80: 20 6B 65 79 20 74 72 61 6E 73 6C 61 74 69 6F 6E key translation
017A90: 20 28 6B 65 79 20 6E 75 6D 62 65 72 2C 20 6E 6F (key number, no
017AA0: 72 6D 61 6C 2C 20 73 68 69 66 74 2C 20 63 6F 6E rmal, shift, con
017AB0: 74 72 6F 6C 29 5C 20 20 20 20 20 20 44 20 2D 20 trol)\ D -
017AC0: 44 65 6C 65 74 65 20 6B 65 79 20 74 72 61 6E 73 Delete key trans
017AD0: 6C 61 74 69 6F 6E 20 28 6B 65 79 20 6E 75 6D 62 lation (key numb
017AE0: 65 72 29 5C 20 20 20 20 20 20 43 20 2D 20 43 6C er)\ C - Cl
017AF0: 65 61 72 20 61 6C 6C 20 74 72 61 6E 73 6C 61 74 ear all translat
017B00: 5A 5B 69 2B 31 5D 29 2F 36 2E 30 3B 0D 0A 20 20 Z[i+1])/6.0;..
017B10: 20 20 20 20 20 20 73 69 3A 3D 64 75 6D 6D 79 2A si:=dummy*
017B20: 61 69 2B 59 5B 69 5D 3B 0D 0A 20 20 20 20 20 20 ai+Y[i];..
017B30: 20 65 6E 64 0D 0A 20 20 20 20 20 20 65 6C 73 65 end.. else
017B40: 20 69 66 20 56 3D 58 5B 31 5D 20 74 68 65 6E 20 if V=X[1] then
017B50: 73 69 3A 3D 59 5B 31 5D 0D 0A 20 20 20 20 20 20 si:=Y[1]..
017B60: 65 6C 73 65 20 73 69 3A 3D 59 5B 4E 50 74 73 5D else si:=Y[NPts]
017B70: 3B 0D 0A 20 20 20 20 65 6E 64 3B 0D 0A 0D 0A 20 ;.. end;....
017B80: 20 70 72 6F 63 65 64 75 72 65 20 73 69 61 28 58 procedure sia(X
017B90: 2C 59 3A 56 65 63 74 6F 72 3B 0D 0A 20 20 20 20 ,Y:Vector;..
017BA0: 20 20 20 20 20 20 20 20 20 20 20 20 4E 50 74 73 NPts
017BB0: 3A 69 6E 74 65 67 65 72 3B 0D 0A 20 20 20 20 20 :integer;..
017BC0: 20 20 20 20 20 20 20 20 20 20 20 58 49 6E 74 3A XInt:
017BD0: 56 65 63 74 6F 72 3B 0D 0A 20 20 20 20 20 20 20 Vector;..
017BE0: 20 20 20 20 20 20 20 20 20 76 61 72 20 59 49 6E var YIn
017BF0: 74 3A 56 65 63 74 6F 72 3B 0D 0A 20 20 20 20 20 t:Vector;..
017C00: 20 20 20 20 20 20 20 20 20 20 20 4E 3A 69 6E 74 N:int
017C10: 65 67 65 72 29 3B 0D 0A 20 20 20 20 76 61 72 20 eger);.. var
017C20: 69 3A 69 6E 74 65 67 65 72 3B 0D 0A 20 20 20 20 i:integer;..
017C30: 20 20 20 20 56 33 3A 56 65 63 74 6F 72 3B 0D 0A V3:Vector;..
017C40: 0D 0A 20 20 20 20 62 65 67 69 6E 0D 0A 20 20 20 .. begin..
017C50: 20 20 20 73 63 28 58 2C 59 2C 56 33 2C 4E 50 74 sc(X,Y,V3,NPt
017C60: 73 29 3B 0D 0A 20 20 20 20 20 20 66 6F 72 20 69 s);.. for i
017C70: 3A 3D 31 20 74 6F 20 4E 20 64 6F 20 59 49 6E 74 :=1 to N do YInt
017C80: 5B 69 5D 3A 3D 73 69 28 58 49 6E 74 5B 69 5D 2C [i]:=si(XInt[i],
017C90: 58 2C 59 2C 56 33 2C 4E 50 74 73 29 3B 0D 0A 20 X,Y,V3,NPts);..
017CA0: 20 20 20 65 6E 64 3B 0D 0A 0D 0A 20 20 62 65 67 end;.... beg
017CB0: 69 6E 20 7B 20 53 70 6C 69 6E 65 20 7D 0D 0A 20 in { Spline }..
017CC0: 20 20 20 69 66 20 28 61 62 73 28 4E 29 3E 3D 32 if (abs(N)>=2
017CD0: 29 20 61 6E 64 20 28 61 62 73 28 4D 29 3E 3D 32 ) and (abs(M)>=2
017CE0: 29 20 74 68 65 6E 0D 0A 20 20 20 20 20 62 65 67 ) then.. beg
017CF0: 69 6E 0D 0A 20 20 20 20 20 20 69 66 20 28 28 58 in.. if ((X
017D00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
017D10: 14 00 00 00 02 09 50 E5 14 00 41 02 00 00 00 02 ......P...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: 28 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A (***************
017E10: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
017E20: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
017E30: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 29 0D 0A 28 ************)..(
017E40: 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 *
017E50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
017E60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
017E70: 20 20 20 20 20 20 20 20 20 20 2A 29 0D 0A 28 2A *)..(*
017E80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
017E90: 54 55 52 42 4F 20 47 52 41 50 48 49 58 20 76 65 TURBO GRAPHIX ve
017EA0: 72 73 69 6F 6E 20 31 2E 30 35 41 20 20 20 20 20 rsion 1.05A
017EB0: 20 20 20 20 20 20 20 20 20 2A 29 0D 0A 28 2A 20 *)..(*
017EC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
017ED0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
017EE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
017EF0: 20 20 20 20 20 20 20 20 2A 29 0D 0A 28 2A 20 20 *)..(*
017F00: 20 20 20 20 20 20 20 20 20 57 6F 72 6C 64 20 63 World c
017F10: 6F 6F 72 64 69 6E 61 74 65 20 73 79 73 74 65 6D oordinate system
017F20: 20 66 69 6E 64 65 72 20 6D 6F 64 75 6C 65 20 20 finder module
017F30: 20 20 20 20 20 20 20 2A 29 0D 0A 28 2A 20 20 20 *)..(*
017F40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4D M
017F50: 6F 64 75 6C 65 20 76 65 72 73 69 6F 6E 20 20 31 odule version 1
017F60: 2E 30 30 41 20 20 20 20 20 20 20 20 20 20 20 20 .00A
017F70: 20 20 20 20 20 20 2A 29 0D 0A 28 2A 20 20 20 20 *)..(*
017F80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
017F90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
017FA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
017FB0: 20 20 20 20 20 2A 29 0D 0A 28 2A 20 20 20 20 20 *)..(*
017FC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 43 6F 70 Cop
017FD0: 79 72 69 67 68 74 20 28 43 29 20 31 39 38 35 20 yright (C) 1985
017FE0: 62 79 20 20 20 20 20 20 20 20 20 20 20 20 20 20 by
017FF0: 20 20 20 20 2A 29 0D 0A 28 2A 20 20 20 20 20 20 *)..(*
018000: 20 20 20 20 20 20 20 20 20 20 20 20 42 4F 52 4C BORL
018010: 41 4E 44 20 49 6E 74 65 72 6E 61 74 69 6F 6E 61 AND Internationa
018020: 6C 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 l
018030: 20 20 20 2A 29 0D 0A 28 2A 20 20 20 20 20 20 20 *)..(*
018040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018070: 20 20 2A 29 0D 0A 28 2A 2A 2A 2A 2A 2A 2A 2A 2A *)..(*********
018080: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
018090: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
0180A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
0180B0: 2A 2A 29 0D 0A 0D 0A 63 6F 6E 73 74 20 4D 61 78 **)....const Max
0180C0: 57 6F 72 6C 64 73 47 6C 62 3D 34 3B 0D 0A 20 20 WorldsGlb=4;..
0180D0: 20 20 20 20 4D 61 78 57 69 6E 64 6F 77 73 47 6C MaxWindowsGl
0180E0: 62 3D 31 36 3B 0D 0A 20 20 20 20 20 20 4D 61 78 b=16;.. Max
0180F0: 50 69 65 73 47 6C 62 3D 31 30 3B 0D 0A 20 20 20 PiesGlb=10;..
018100: 20 20 20 4D 61 78 50 6C 6F 74 47 6C 62 3D 31 30 MaxPlotGlb=10
018110: 30 3B 0D 0A 20 20 20 20 20 20 53 74 72 69 6E 67 0;.. String
018120: 53 69 7A 65 47 6C 62 3D 38 30 3B 0D 0A 20 20 20 SizeGlb=80;..
018130: 20 20 20 48 65 61 64 65 72 53 69 7A 65 47 6C 62 HeaderSizeGlb
018140: 3D 31 30 3B 0D 0A 20 20 20 20 20 20 52 61 6D 53 =10;.. RamS
018150: 63 72 65 65 6E 47 6C 62 3A 62 6F 6F 6C 65 61 6E creenGlb:boolean
018160: 3D 74 72 75 65 3B 0D 0A 20 20 20 20 20 20 43 68 =true;.. Ch
018170: 61 72 46 69 6C 65 3A 73 74 72 69 6E 67 5B 53 74 arFile:string[St
018180: 72 69 6E 67 53 69 7A 65 47 6C 62 5D 3D 27 34 78 ringSizeGlb]='4x
018190: 36 2E 66 6F 6E 27 3B 0D 0A 20 20 20 20 20 20 4D 6.fon';.. M
0181A0: 61 78 50 72 6F 63 73 47 6C 62 3D 32 37 3B 0D 0A axProcsGlb=27;..
0181B0: 20 20 20 20 20 20 4D 61 78 45 72 72 73 47 6C 62 MaxErrsGlb
0181C0: 3D 37 3B 0D 0A 0D 0A 74 79 70 65 20 20 77 72 6B =7;....type wrk
0181D0: 73 74 72 69 6E 67 3D 73 74 72 69 6E 67 5B 53 74 string=string[St
0181E0: 72 69 6E 67 53 69 7A 65 47 6C 62 5D 3B 0D 0A 20 ringSizeGlb];..
0181F0: 20 20 20 20 20 57 6F 72 6C 64 54 79 70 65 3D 72 WorldType=r
018200: 20 20 20 20 20 20 20 20 20 20 20 20 42 4F 52 4C BORL
018210: 41 4E 44 20 49 6E 74 65 72 6E 61 74 69 6F 6E 61 AND Internationa
018220: 6C 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 l
018230: 20 20 20 2A 29 0D 0A 28 2A 20 20 20 20 20 20 20 *)..(*
018240: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018250: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018260: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018270: 20 20 2A 29 0D 0A 28 2A 2A 2A 2A 2A 2A 2A 2A 2A *)..(*********
018280: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
018290: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
0182A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
0182B0: 2A 2A 29 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 65 **)....procedure
0182C0: 20 46 69 6E 64 57 6F 72 6C 64 28 69 3A 69 6E 74 FindWorld(i:int
0182D0: 65 67 65 72 3B 0D 0A 20 20 20 20 20 20 20 20 20 eger;..
0182E0: 20 20 20 20 20 20 20 20 20 20 20 41 3A 50 6C 6F A:Plo
0182F0: 74 41 72 72 61 79 3B 0D 0A 20 20 20 20 20 20 20 tArray;..
018300: 20 20 20 20 20 20 20 20 20 20 20 20 20 4E 50 6F NPo
018310: 69 6E 74 73 3A 69 6E 74 65 67 65 72 3B 0D 0A 20 ints:integer;..
018320: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018330: 20 20 20 53 63 61 6C 65 58 2C 53 63 61 6C 65 59 ScaleX,ScaleY
018340: 3A 72 65 61 6C 29 3B 0D 0A 20 20 76 61 72 20 58 :real);.. var X
018350: 4D 61 78 2C 59 4D 61 78 2C 58 4D 69 6E 2C 59 4D Max,YMax,XMin,YM
018360: 69 6E 3A 72 65 61 6C 3B 0D 0A 20 20 20 20 20 20 in:real;..
018370: 6A 3A 69 6E 74 65 67 65 72 3B 0D 0A 0D 0A 20 20 j:integer;....
018380: 62 65 67 69 6E 0D 0A 20 20 20 20 4E 50 6F 69 6E begin.. NPoin
018390: 74 73 3A 3D 61 62 73 28 4E 50 6F 69 6E 74 73 29 ts:=abs(NPoints)
0183A0: 3B 0D 0A 20 20 20 20 69 66 20 4E 50 6F 69 6E 74 ;.. if NPoint
0183B0: 73 3E 3D 32 20 74 68 65 6E 0D 0A 20 20 20 20 20 s>=2 then..
0183C0: 20 69 66 20 69 20 69 6E 20 5B 31 2E 2E 4D 61 78 if i in [1..Max
0183D0: 57 6F 72 6C 64 73 47 6C 62 5D 20 74 68 65 6E 0D WorldsGlb] then.
0183E0: 0A 20 20 20 20 20 20 20 62 65 67 69 6E 0D 0A 20 . begin..
0183F0: 20 20 20 20 20 20 20 58 4D 61 78 3A 3D 41 5B 31 XMax:=A[1
018400: 65 63 6F 72 64 0D 0A 20 20 20 20 20 20 20 20 20 ecord..
018410: 20 20 20 20 20 20 20 20 20 78 31 2C 79 31 2C 78 x1,y1,x
018420: 32 2C 79 32 3A 72 65 61 6C 3B 0D 0A 20 20 20 20 2,y2:real;..
018430: 20 20 20 20 20 20 20 20 20 20 20 20 65 6E 64 3B end;
018440: 0D 0A 20 20 20 20 20 20 57 69 6E 64 6F 77 54 79 .. WindowTy
018450: 70 65 3D 72 65 63 6F 72 64 0D 0A 20 20 20 20 20 pe=record..
018460: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 78 31 x1
018470: 2C 79 31 2C 78 32 2C 79 32 3A 69 6E 74 65 67 65 ,y1,x2,y2:intege
018480: 72 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 r;..
018490: 20 20 20 20 20 20 20 68 65 61 64 65 72 3A 77 72 header:wr
0184A0: 6B 73 74 72 69 6E 67 3B 0D 0A 20 20 20 20 20 20 kstring;..
0184B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 64 72 61 dra
0184C0: 77 6E 2C 74 6F 70 3A 62 6F 6F 6C 65 61 6E 3B 0D wn,top:boolean;.
0184D0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
0184E0: 20 20 20 20 73 69 7A 65 3A 69 6E 74 65 67 65 72 size:integer
0184F0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ;..
018500: 20 20 20 20 65 6E 64 3B 0D 0A 20 20 20 20 20 20 end;..
018510: 77 6F 72 6C 64 73 3D 61 72 72 61 79 20 5B 31 2E worlds=array [1.
018520: 2E 4D 61 78 57 6F 72 6C 64 73 47 6C 62 5D 20 6F .MaxWorldsGlb] o
018530: 66 20 57 6F 72 6C 64 54 79 70 65 3B 0D 0A 20 20 f WorldType;..
018540: 20 20 20 20 77 69 6E 64 6F 77 73 3D 61 72 72 61 windows=arra
018550: 79 20 5B 31 2E 2E 4D 61 78 57 69 6E 64 6F 77 73 y [1..MaxWindows
018560: 47 6C 62 5D 20 6F 66 20 57 69 6E 64 6F 77 54 79 Glb] of WindowTy
018570: 70 65 3B 0D 0A 20 20 20 20 20 20 50 6C 6F 74 41 pe;.. PlotA
018580: 72 72 61 79 3D 61 72 72 61 79 20 5B 31 2E 2E 4D rray=array [1..M
018590: 61 78 50 6C 6F 74 47 6C 62 2C 31 2E 2E 32 5D 20 axPlotGlb,1..2]
0185A0: 6F 66 20 72 65 61 6C 3B 0D 0A 20 20 20 20 20 20 of real;..
0185B0: 63 68 61 72 61 63 74 65 72 3D 61 72 72 61 79 20 character=array
0185C0: 5B 31 2E 2E 33 5D 20 6F 66 20 62 79 74 65 3B 0D [1..3] of byte;.
0185D0: 0A 20 20 20 20 20 20 43 68 61 72 41 72 72 61 79 . CharArray
0185E0: 3D 61 72 72 61 79 20 5B 33 32 2E 2E 31 32 36 5D =array [32..126]
0185F0: 20 6F 66 20 63 68 61 72 61 63 74 65 72 3B 0D 0A of character;..
018600: 2C 31 5D 3B 0D 0A 20 20 20 20 20 20 20 20 59 4D ,1];.. YM
018610: 61 78 3A 3D 41 5B 31 2C 32 5D 3B 0D 0A 20 20 20 ax:=A[1,2];..
018620: 20 20 20 20 20 58 4D 69 6E 3A 3D 58 4D 61 78 3B XMin:=XMax;
018630: 0D 0A 20 20 20 20 20 20 20 20 59 4D 69 6E 3A 3D .. YMin:=
018640: 59 4D 61 78 3B 0D 0A 20 20 20 20 20 20 20 20 66 YMax;.. f
018650: 6F 72 20 6A 3A 3D 32 20 74 6F 20 4E 50 6F 69 6E or j:=2 to NPoin
018660: 74 73 20 64 6F 0D 0A 20 20 20 20 20 20 20 20 20 ts do..
018670: 62 65 67 69 6E 0D 0A 20 20 20 20 20 20 20 20 20 begin..
018680: 20 69 66 20 41 5B 6A 2C 31 5D 3E 58 4D 61 78 20 if A[j,1]>XMax
018690: 74 68 65 6E 20 58 4D 61 78 3A 3D 41 5B 6A 2C 31 then XMax:=A[j,1
0186A0: 5D 0D 0A 20 20 20 20 20 20 20 20 20 20 65 6C 73 ].. els
0186B0: 65 20 69 66 20 41 5B 6A 2C 31 5D 3C 58 4D 69 6E e if A[j,1]<XMin
0186C0: 20 74 68 65 6E 20 58 4D 69 6E 3A 3D 41 5B 6A 2C then XMin:=A[j,
0186D0: 31 5D 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 69 1];.. i
0186E0: 66 20 41 5B 6A 2C 32 5D 3E 59 4D 61 78 20 74 68 f A[j,2]>YMax th
0186F0: 65 6E 20 59 4D 61 78 3A 3D 41 5B 6A 2C 32 5D 0D en YMax:=A[j,2].
018700: 0A 20 20 20 20 20 20 20 20 20 20 65 6C 73 65 20 . else
018710: 69 66 20 41 5B 6A 2C 32 5D 3C 59 4D 69 6E 20 74 if A[j,2]<YMin t
018720: 68 65 6E 20 59 4D 69 6E 3A 3D 41 5B 6A 2C 32 5D hen YMin:=A[j,2]
018730: 3B 0D 0A 20 20 20 20 20 20 20 20 20 65 6E 64 3B ;.. end;
018740: 0D 0A 20 20 20 20 20 20 20 20 53 63 61 6C 65 58 .. ScaleX
018750: 3A 3D 61 62 73 28 53 63 61 6C 65 58 29 3B 0D 0A :=abs(ScaleX);..
018760: 20 20 20 20 20 20 20 20 53 63 61 6C 65 59 3A 3D ScaleY:=
018770: 61 62 73 28 53 63 61 6C 65 59 29 3B 0D 0A 20 20 abs(ScaleY);..
018780: 20 20 20 20 20 20 58 4D 61 78 3A 3D 58 4D 61 78 XMax:=XMax
018790: 2A 53 63 61 6C 65 58 3B 0D 0A 20 20 20 20 20 20 *ScaleX;..
0187A0: 20 20 58 4D 69 6E 3A 3D 58 4D 69 6E 2A 53 63 61 XMin:=XMin*Sca
0187B0: 6C 65 58 3B 0D 0A 20 20 20 20 20 20 20 20 59 4D leX;.. YM
0187C0: 61 78 3A 3D 59 4D 61 78 2A 53 63 61 6C 65 59 3B ax:=YMax*ScaleY;
0187D0: 0D 0A 20 20 20 20 20 20 20 20 59 4D 69 6E 3A 3D .. YMin:=
0187E0: 59 4D 69 6E 2A 53 63 61 6C 65 59 3B 0D 0A 20 20 YMin*ScaleY;..
0187F0: 20 20 20 20 20 20 44 65 66 69 6E 65 57 6F 72 6C DefineWorl
018800: 20 20 20 20 20 20 50 69 65 54 79 70 65 3D 72 65 PieType=re
018810: 63 6F 72 64 0D 0A 20 20 20 20 20 20 20 20 20 20 cord..
018820: 20 20 20 20 20 20 61 72 65 61 3A 72 65 61 6C 3B area:real;
018830: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
018840: 20 20 74 65 78 74 3A 77 72 6B 73 74 72 69 6E 67 text:wrkstring
018850: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ;..
018860: 20 65 6E 64 3B 0D 0A 20 20 20 20 20 20 50 69 65 end;.. Pie
018870: 41 72 72 61 79 3D 61 72 72 61 79 20 5B 31 2E 2E Array=array [1..
018880: 4D 61 78 50 69 65 73 47 6C 62 5D 20 6F 66 20 50 MaxPiesGlb] of P
018890: 69 65 54 79 70 65 3B 0D 0A 20 20 20 20 20 20 42 ieType;.. B
0188A0: 61 63 6B 67 72 6F 75 6E 64 41 72 72 61 79 3D 61 ackgroundArray=a
0188B0: 72 72 61 79 20 5B 30 2E 2E 37 5D 20 6F 66 20 62 rray [0..7] of b
0188C0: 79 74 65 3B 0D 0A 20 20 20 20 20 20 4C 69 6E 65 yte;.. Line
0188D0: 53 74 79 6C 65 41 72 72 61 79 3D 61 72 72 61 79 StyleArray=array
0188E0: 20 5B 30 2E 2E 37 5D 20 6F 66 20 62 6F 6F 6C 65 [0..7] of boole
0188F0: 61 6E 3B 0D 0A 0D 0A 76 61 72 20 20 20 58 31 57 an;....var X1W
018900: 6C 64 47 6C 62 2C 58 32 57 6C 64 47 6C 62 2C 59 ldGlb,X2WldGlb,Y
018910: 31 57 6C 64 47 6C 62 2C 59 32 57 6C 64 47 6C 62 1WldGlb,Y2WldGlb
018920: 2C 41 78 47 6C 62 2C 41 79 47 6C 62 2C 42 78 47 ,AxGlb,AyGlb,BxG
018930: 6C 62 2C 42 79 47 6C 62 3A 72 65 61 6C 3B 0D 0A lb,ByGlb:real;..
018940: 20 20 20 20 20 20 58 31 52 65 66 47 6C 62 2C 58 X1RefGlb,X
018950: 32 52 65 66 47 6C 62 2C 59 31 52 65 66 47 6C 62 2RefGlb,Y1RefGlb
018960: 2C 59 32 52 65 66 47 6C 62 3A 69 6E 74 65 67 65 ,Y2RefGlb:intege
018970: 72 3B 0D 0A 20 20 20 20 20 20 4C 69 6E 65 73 74 r;.. Linest
018980: 79 6C 65 47 6C 62 2C 4D 61 78 57 6F 72 6C 64 47 yleGlb,MaxWorldG
018990: 6C 62 2C 4D 61 78 57 69 6E 64 6F 77 47 6C 62 2C lb,MaxWindowGlb,
0189A0: 57 69 6E 64 6F 77 4E 64 78 47 6C 62 3A 69 6E 74 WindowNdxGlb:int
0189B0: 65 67 65 72 3B 0D 0A 20 20 20 20 20 20 58 31 47 eger;.. X1G
0189C0: 6C 62 2C 58 32 47 6C 62 2C 59 31 47 6C 62 2C 59 lb,X2Glb,Y1Glb,Y
0189D0: 32 47 6C 62 3A 69 6E 74 65 67 65 72 3B 0D 0A 20 2Glb:integer;..
0189E0: 20 20 20 20 20 56 53 74 65 70 47 6C 62 3A 69 6E VStepGlb:in
0189F0: 74 65 67 65 72 3B 0D 0A 20 20 20 20 20 20 50 69 teger;.. Pi
018A00: 64 28 69 2C 58 4D 69 6E 2C 59 4D 69 6E 2C 58 4D d(i,XMin,YMin,XM
018A10: 61 78 2C 59 4D 61 78 29 3B 0D 0A 20 20 20 20 20 ax,YMax);..
018A20: 20 20 20 53 65 6C 65 63 74 57 6F 72 6C 64 28 69 SelectWorld(i
018A30: 29 3B 0D 0A 20 20 20 20 20 20 20 65 6E 64 0D 0A );.. end..
018A40: 20 20 20 20 20 20 65 6C 73 65 20 65 72 72 6F 72 else error
018A50: 28 37 2C 32 29 0D 0A 20 20 20 20 65 6C 73 65 20 (7,2).. else
018A60: 65 72 72 6F 72 28 37 2C 34 29 3B 0D 0A 20 20 65 error(7,4);.. e
018A70: 6E 64 3B 0D 0A 1A E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 nd;.............
018A80: 20 69 66 20 41 5B 6A 2C 31 5D 3E 58 4D 61 78 20 if A[j,1]>XMax
018A90: 74 68 65 6E 20 58 4D 61 78 3A 3D 41 5B 6A 2C 31 then XMax:=A[j,1
018AA0: 5D 0D 0A 20 20 20 20 20 20 20 20 20 20 65 6C 73 ].. els
018AB0: 65 20 69 66 20 41 5B 6A 2C 31 5D 3C 58 4D 69 6E e if A[j,1]<XMin
018AC0: 20 74 68 65 6E 20 58 4D 69 6E 3A 3D 41 5B 6A 2C then XMin:=A[j,
018AD0: 31 5D 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 69 1];.. i
018AE0: 66 20 41 5B 6A 2C 32 5D 3E 59 4D 61 78 20 74 68 f A[j,2]>YMax th
018AF0: 65 6E 20 59 4D 61 78 3A 3D 41 5B 6A 2C 32 5D 0D en YMax:=A[j,2].
018B00: 0A 20 20 20 20 20 20 20 20 20 20 65 6C 73 65 20 . else
018B10: 69 66 20 41 5B 6A 2C 32 5D 3C 59 4D 69 6E 20 74 if A[j,2]<YMin t
018B20: 68 65 6E 20 59 4D 69 6E 3A 3D 41 5B 6A 2C 32 5D hen YMin:=A[j,2]
018B30: 3B 0D 0A 20 20 20 20 20 20 20 20 20 65 6E 64 3B ;.. end;
018B40: 0D 0A 20 20 20 20 20 20 20 20 53 63 61 6C 65 58 .. ScaleX
018B50: 3A 3D 61 62 73 28 53 63 61 6C 65 58 29 3B 0D 0A :=abs(ScaleX);..
018B60: 20 20 20 20 20 20 20 20 53 63 61 6C 65 59 3A 3D ScaleY:=
018B70: 61 62 73 28 53 63 61 6C 65 59 29 3B 0D 0A 20 20 abs(ScaleY);..
018B80: 20 20 20 20 20 20 58 4D 61 78 3A 3D 58 4D 61 78 XMax:=XMax
018B90: 2A 53 63 61 6C 65 58 3B 0D 0A 20 20 20 20 20 20 *ScaleX;..
018BA0: 20 20 58 4D 69 6E 3A 3D 58 4D 69 6E 2A 53 63 61 XMin:=XMin*Sca
018BB0: 6C 65 58 3B 0D 0A 20 20 20 20 20 20 20 20 59 4D leX;.. YM
018BC0: 61 78 3A 3D 59 4D 61 78 2A 53 63 61 6C 65 59 3B ax:=YMax*ScaleY;
018BD0: 0D 0A 20 20 20 20 20 20 20 20 59 4D 69 6E 3A 3D .. YMin:=
018BE0: 59 4D 69 6E 2A 53 63 61 6C 65 59 3B 0D 0A 20 20 YMin*ScaleY;..
018BF0: 20 20 20 20 20 20 44 65 66 69 6E 65 57 6F 72 6C DefineWorl
018C00: 65 47 6C 62 2C 44 69 72 65 63 74 4D 6F 64 65 47 eGlb,DirectModeG
018C10: 6C 62 2C 43 6C 69 70 70 69 6E 67 47 6C 62 2C 41 lb,ClippingGlb,A
018C20: 78 69 73 47 6C 62 2C 48 61 74 63 68 47 6C 62 3A xisGlb,HatchGlb:
018C30: 62 6F 6F 6C 65 61 6E 3B 0D 0A 20 20 20 20 20 20 boolean;..
018C40: 4D 65 73 73 61 67 65 47 6C 62 2C 42 72 6B 47 6C MessageGlb,BrkGl
018C50: 62 2C 48 65 61 64 65 72 47 6C 62 2C 54 6F 70 47 b,HeaderGlb,TopG
018C60: 6C 62 3A 62 6F 6F 6C 65 61 6E 3B 0D 0A 20 20 20 lb:boolean;..
018C70: 20 20 20 43 6E 74 47 6C 62 3A 62 79 74 65 3B 0D CntGlb:byte;.
018C80: 0A 20 20 20 20 20 20 45 72 72 43 6F 64 65 47 6C . ErrCodeGl
018C90: 62 3A 62 79 74 65 3B 0D 0A 20 20 20 20 20 20 4C b:byte;.. L
018CA0: 69 6E 65 53 74 79 6C 65 41 72 72 61 79 47 6C 62 ineStyleArrayGlb
018CB0: 3A 4C 69 6E 65 53 74 79 6C 65 41 72 72 61 79 3B :LineStyleArray;
018CC0: 0D 0A 20 20 20 20 20 20 45 72 72 6F 72 50 72 6F .. ErrorPro
018CD0: 63 3A 61 72 72 61 79 20 5B 30 2E 2E 4D 61 78 50 c:array [0..MaxP
018CE0: 72 6F 63 73 47 6C 62 5D 20 6F 66 20 5E 57 72 6B rocsGlb] of ^Wrk
018CF0: 53 74 72 69 6E 67 3B 0D 0A 20 20 20 20 20 20 45 String;.. E
018D00: 72 72 6F 72 43 6F 64 65 3A 61 72 72 61 79 20 5B rrorCode:array [
018D10: 30 2E 2E 4D 61 78 45 72 72 73 47 6C 62 5D 20 6F 0..MaxErrsGlb] o
018D20: 66 20 5E 57 72 6B 53 74 72 69 6E 67 3B 0D 0A 20 f ^WrkString;..
018D30: 20 20 20 20 20 50 63 47 6C 62 3A 73 74 72 69 6E PcGlb:strin
018D40: 67 5B 34 30 5D 3B 0D 0A 20 20 20 20 20 20 41 73 g[40];.. As
018D50: 70 65 63 74 47 6C 62 3A 72 65 61 6C 3B 0D 0A 20 pectGlb:real;..
018D60: 20 20 20 20 20 47 72 61 66 42 61 73 65 3A 69 6E GrafBase:in
018D70: 74 65 67 65 72 3B 0D 0A 20 20 20 20 20 20 77 6F teger;.. wo
018D80: 72 6C 64 3A 77 6F 72 6C 64 73 3B 0D 0A 20 20 20 rld:worlds;..
018D90: 20 20 20 77 69 6E 64 6F 77 3A 77 69 6E 64 6F 77 window:window
018DA0: 73 3B 0D 0A 20 20 20 20 20 20 43 68 61 72 53 65 s;.. CharSe
018DB0: 74 3A 43 68 61 72 41 72 72 61 79 3B 0D 0A 1A 1A t:CharArray;....
018DC0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
018DD0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
018DE0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
018DF0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
018E00: 28 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A (***************
018E10: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
018E20: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
018E30: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 29 0D 0A 28 ************)..(
018E40: 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 *
018E50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018E60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018E70: 20 20 20 20 20 20 20 20 20 20 2A 29 0D 0A 28 2A *)..(*
018E80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018E90: 54 55 52 42 4F 20 47 52 41 50 48 49 58 20 76 65 TURBO GRAPHIX ve
018EA0: 72 73 69 6F 6E 20 31 2E 30 35 41 20 20 20 20 20 rsion 1.05A
018EB0: 20 20 20 20 20 20 20 20 20 2A 29 0D 0A 28 2A 20 *)..(*
018EC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018ED0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018EE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018EF0: 20 20 20 20 20 20 20 20 2A 29 0D 0A 28 2A 20 20 *)..(*
018F00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018F10: 54 79 70 65 20 64 65 66 69 6E 69 74 69 6F 6E 20 Type definition
018F20: 6D 6F 64 75 6C 65 20 20 20 20 20 20 20 20 20 20 module
018F30: 20 20 20 20 20 20 20 2A 29 0D 0A 28 2A 20 20 20 *)..(*
018F40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018F50: 4D 6F 64 75 6C 65 20 76 65 72 73 69 6F 6E 20 31 Module version 1
018F60: 2E 30 30 41 20 20 20 20 20 20 20 20 20 20 20 20 .00A
018F70: 20 20 20 20 20 20 2A 29 0D 0A 28 2A 20 20 20 20 *)..(*
018F80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018F90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018FA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018FB0: 20 20 20 20 20 2A 29 0D 0A 28 2A 20 20 20 20 20 *)..(*
018FC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 43 6F 70 Cop
018FD0: 79 72 69 67 68 74 20 28 43 29 20 31 39 38 35 20 yright (C) 1985
018FE0: 62 79 20 20 20 20 20 20 20 20 20 20 20 20 20 20 by
018FF0: 20 20 20 20 2A 29 0D 0A 28 2A 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 00 00 02 09 50 E5 15 00 41 02 00 00 00 02 ......P...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: D1 E1 C9 E5 D5 4F 3E FF CD 9B BE 80 BE F5 3E 01 .....O>.......>.
019110: CD 9B BE 98 BE F5 2A 01 00 11 18 00 19 1E 00 C5 ......*.........
019120: CD 6C 03 C1 7C B5 CA 56 03 11 0A 00 79 B7 CA 34 .l..|..V....y..4
019130: 03 11 1A 00 CD 91 01 21 0F 00 19 4E 23 46 1E FF .......!...N#F..
019140: 79 FE 41 16 00 CA 5A 03 FE 01 16 03 CA 5A 03 FE y.A...Z......Z..
019150: C1 16 02 CA 5A 03 16 04 1E 00 F1 CD 9B BE 98 BE ....Z...........
019160: F1 CD 9B BE 80 BE 7B 17 7A D1 E1 C9 E9 E5 21 6D ......{.z.....!m
019170: 0C CD A3 03 E1 D0 E5 D5 C5 11 6D 0C 01 00 02 1A ..£.......m.....
019180: BE C2 8C 03 23 13 0B 78 B1 C2 7F 03 C1 D1 E1 37 ....#..x.......7
019190: C8 3E 24 C3 A5 04 E5 CD 9B BE 89 BE 3E 25 D4 B3 .>$.........>%..
0191A0: 04 E1 C9 E5 CD 9B BE 89 BE 3E 26 D4 B3 04 E1 C9 .........>&.....
0191B0: E5 CD 9B BE 8C BE 3E 27 D4 B3 04 E1 C9 E5 CD 9B ......>'........
0191C0: BE 8F BE 3E 28 D4 B3 04 E1 C9 21 80 00 7E 47 B7 ...>(.....!..~G.
0191D0: CA DE 03 23 7E FE 20 C2 E0 03 05 C2 D3 03 3E 53 ...#~. .......>S
0191E0: 23 E5 21 00 04 46 23 BE CA F8 03 23 23 23 23 05 #.!..F#....####.
0191F0: C2 E7 03 3E 19 C3 B3 04 23 7E 23 46 23 4E E1 C9 ...>....#~#F#N..
019200: 04 53 00 09 41 56 01 09 41 44 02 09 C1 49 03 08 .S..AV..AD...I..
019210: 01 3E 12 CD AD 04 CD 27 02 D2 11 04 3E 0B C3 86 .>.....'....>...
019220: 04 3E 13 CD AD 04 CD 2E 02 D2 21 04 3E 0B C3 86 .>........!.>...
019230: 04 CD 4A 04 FE 4E CA 47 04 FE 59 37 CA 47 04 3E ..J..N.G..Y7.G.>
019240: 07 CD 86 04 C3 31 04 C3 86 04 CD 55 04 FE 03 C0 .....1.....U....
019250: 3E 18 C3 B3 04 D5 C5 0E 06 1E FF CD 95 04 B7 C2 >...............
019260: 57 04 0E 06 1E FF CD 95 04 B7 CA 62 04 CD 73 04 W..........b..s.
019270: C1 D1 C9 C5 F5 FE 61 DA 81 04 FE 7B D2 81 04 E6 ......a....{....
019280: DF 47 F1 78 C1 C9 E5 D5 C5 F5 5F 0E 02 CD 05 00 .G.x......_.....
019290: F1 C1 D1 E1 C9 E5 D5 C5 CD 05 00 C1 D1 E1 C9 CD ................
0192A0: C2 04 C3 31 04 CD C2 04 AF 32 6B 0B C9 CD C2 04 ...1.....2k.....
0192B0: C3 4A 04 CD C2 04 3A 69 0B B7 3E 23 C4 C2 04 C3 .J....:i..>#....
0192C0: 36 01 E5 D5 C5 F5 21 84 06 FE 2A D2 D2 04 B7 C2 6.....!...*.....
0192D0: D6 04 CD F4 04 C7 C5 47 7E 23 FE 24 C2 D8 04 7E .......G~#.$...~
0192E0: 23 FE 24 CA D8 04 05 C2 D8 04 2B C1 CD F4 04 F1 #.$.......+.....
0192F0: C1 D1 E1 C9 7E 23 B7 FA 24 05 FE 5C CA 12 05 FE ....~#..$..\....
019300: 20 6F 66 20 62 79 74 65 3B 20 20 7B 61 6C 6C 75 of byte; {allu
019310: 6D 65 20 6C 61 20 62 61 6E 71 75 65 20 56 69 64 me la banque Vid
019320: 65 6F 7D 0D 0A 76 61 72 20 61 73 73 74 61 63 6B eo}..var asstack
019330: 65 3A 20 69 6E 74 65 67 65 72 3B 0D 0A 76 61 72 e: integer;..var
019340: 20 61 73 73 74 61 63 6B 20 3A 20 61 72 72 61 79 asstack : array
019350: 5B 30 2E 2E 31 30 5D 20 6F 66 20 69 6E 74 65 67 [0..10] of integ
019360: 65 72 3B 0D 0A 0D 0A 0D 0A 7B 2D 2D 2D 2D 2D 2D er;......{------
019370: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
019380: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
019390: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0193A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0193B0: 2D 2D 2D 2D 7D 0D 0A 0D 0A 70 72 6F 63 65 64 75 ----}....procedu
0193C0: 72 65 20 76 69 64 65 6F 41 63 63 65 73 73 3B 0D re videoAccess;.
0193D0: 0A 62 65 67 69 6E 0D 0A 69 6E 6C 69 6E 65 28 20 .begin..inline(
0193E0: 24 65 31 2F 24 65 64 2F 24 37 33 2F 61 73 73 74 $e1/$ed/$73/asst
0193F0: 61 63 6B 2F 24 33 31 2F 61 73 73 74 61 63 6B 65 ack/$31/asstacke
019400: 2F 24 65 35 2F 20 20 20 20 7B 20 63 68 61 72 67 /$e5/ { charg
019410: 65 20 6C 61 20 70 69 6C 65 20 20 20 20 20 20 20 e la pile
019420: 20 20 20 20 20 20 20 7D 0D 0A 20 20 20 20 20 20 }..
019430: 20 20 24 66 33 2F 24 30 31 2F 24 38 65 2F 24 37 $f3/$01/$8e/$7
019440: 66 2F 24 33 65 2F 24 63 31 2F 24 65 64 2F 24 37 f/$3e/$c1/$ed/$7
019450: 39 2F 24 65 64 2F 24 37 39 2F 20 7B 20 61 6C 6C 9/$ed/$79/ { all
019460: 75 6D 65 20 6C 61 20 62 61 6E 71 75 65 20 76 69 ume la banque vi
019470: 64 65 6F 20 20 20 20 7D 0D 0A 20 20 20 20 20 20 deo }..
019480: 20 20 24 65 64 2F 24 34 62 2F 62 63 2F 24 65 64 $ed/$4b/bc/$ed
019490: 2F 24 35 62 2F 64 65 2F 24 32 61 2F 68 6C 2F 24 /$5b/de/$2a/hl/$
0194A0: 63 39 2F 20 20 20 20 20 20 20 20 7B 20 63 68 61 c9/ { cha
0194B0: 72 67 65 20 6C 65 73 20 50 61 72 61 6D 65 74 72 rge les Parametr
0194C0: 65 73 20 20 20 20 20 20 20 20 20 7D 0D 0A 20 20 es }..
0194D0: 20 20 20 20 20 20 24 30 31 2F 24 38 65 2F 24 37 $01/$8e/$7
0194E0: 66 2F 24 33 65 2F 24 63 32 2F 24 65 64 2F 24 37 f/$3e/$c2/$ed/$7
0194F0: 39 2F 24 66 62 2F 20 20 20 20 20 20 20 20 20 7B 9/$fb/ {
019500: 0D 0A 0D 0A 20 20 20 20 20 20 58 53 63 72 65 65 .... XScree
019510: 6E 4D 61 78 47 6C 62 20 3D 20 36 33 39 3B 20 20 nMaxGlb = 639;
019520: 20 20 20 20 20 20 20 7B 20 4E 6F 6D 62 72 65 20 { Nombre
019530: 64 65 20 50 49 58 45 4C 53 20 2D 31 20 64 61 6E de PIXELS -1 dan
019540: 73 20 75 6E 65 20 6C 69 67 6E 65 20 65 63 72 61 s une ligne ecra
019550: 6E 7D 0D 0A 20 20 20 20 20 20 59 4D 61 78 47 6C n}.. YMaxGl
019560: 62 20 3D 20 31 39 39 3B 20 20 20 20 20 20 20 20 b = 199;
019570: 20 20 20 20 20 20 20 20 20 20 20 20 20 7B 20 4E { N
019580: 6F 6D 62 72 65 20 64 65 20 6C 69 67 6E 65 73 20 ombre de lignes
019590: 2D 31 20 64 61 6E 73 20 6C 27 65 63 72 61 6E 20 -1 dans l'ecran
0195A0: 7D 0D 0A 20 20 20 20 20 20 49 56 53 74 65 70 47 }.. IVStepG
0195B0: 6C 62 20 3D 20 35 3B 20 20 20 20 20 20 20 20 20 lb = 5;
0195C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 7B 56 61 {Va
0195D0: 6C 65 75 72 20 69 6E 69 74 69 61 6C 65 20 70 6F leur initiale po
0195E0: 75 72 20 56 53 74 65 70 47 6C 62 7D 0D 0A 20 20 ur VStepGlb}..
0195F0: 20 20 20 20 53 63 72 65 65 6E 53 69 7A 65 47 6C ScreenSizeGl
019600: 62 20 3D 20 31 36 30 30 30 3B 20 20 20 20 20 20 b = 16000;
019610: 20 20 20 20 20 20 7B 54 61 69 6C 6C 65 20 74 6F {Taille to
019620: 74 61 6C 65 20 65 6E 20 6F 63 74 65 74 73 20 64 tale en octets d
019630: 65 20 6C 27 65 63 61 6E 7D 0D 0A 20 20 20 20 20 e l'ecan}..
019640: 20 4D 69 6E 46 6F 72 65 67 72 6F 75 6E 64 3D 30 MinForeground=0
019650: 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ;
019660: 20 20 20 7B 4C 61 20 70 6C 75 73 20 62 61 73 73 {La plus bass
019670: 65 20 63 6F 75 6C 65 75 72 20 61 75 74 6F 72 69 e couleur autori
019680: 73 65 65 20 65 6E 20 61 76 61 6E 74 20 70 6C 61 see en avant pla
019690: 6E 7D 0D 0A 20 20 20 20 20 20 4D 61 78 46 6F 72 n}.. MaxFor
0196A0: 65 67 72 6F 75 6E 64 3D 31 3B 20 20 20 20 20 20 eground=1;
0196B0: 20 20 20 20 20 20 20 20 20 20 20 20 7B 4C 61 20 {La
0196C0: 70 6C 75 73 20 68 61 75 74 65 20 63 6F 75 6C 65 plus haute coule
0196D0: 75 72 20 61 75 74 6F 72 69 73 65 65 20 65 6E 20 ur autorisee en
0196E0: 61 76 61 6E 74 20 70 6C 61 6E 7D 0D 0A 0D 0A 0D avant plan}.....
0196F0: 0A 20 20 20 20 20 20 4D 69 6E 42 61 63 6B 67 72 . MinBackgr
019700: 20 65 74 65 69 6E 74 20 6C 61 20 62 61 6E 71 75 eteint la banqu
019710: 65 20 76 69 64 65 6F 20 20 20 7D 0D 0A 20 20 20 e video }..
019720: 20 20 20 20 20 24 65 64 2F 24 37 62 2F 61 73 73 $ed/$7b/ass
019730: 74 61 63 6B 2F 24 63 39 2F 20 20 20 20 20 20 20 tack/$c9/
019740: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7B 20 {
019750: 72 65 63 68 61 72 67 65 20 6C 61 20 70 69 6C 65 recharge la pile
019760: 20 20 20 20 20 20 20 20 20 20 7D 0D 0A 20 20 20 }..
019770: 20 20 20 20 20 24 63 64 2F 62 61 6E 6B 6F 6E 2F $cd/bankon/
019780: 24 65 64 2F 24 62 30 2F 24 63 33 2F 62 61 6E 6B $ed/$b0/$c3/bank
019790: 6F 66 66 2F 20 20 20 20 20 20 20 20 20 20 7B 20 off/ {
0197A0: 64 65 70 6C 61 63 65 20 61 76 65 63 20 6C 64 69 deplace avec ldi
0197B0: 72 20 6F 75 20 4C 44 44 52 20 20 7D 0D 0A 20 20 r ou LDDR }..
0197C0: 20 20 20 20 20 20 24 63 64 2F 62 61 6E 6B 6F 6E $cd/bankon
0197D0: 2F 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 /
0197E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7B {
0197F0: 20 61 6C 6C 75 6D 65 20 6C 61 20 62 61 6E 71 75 allume la banqu
019800: 65 20 76 69 64 65 6F 20 20 20 20 7D 0D 0A 20 20 e video }..
019810: 20 20 20 20 20 20 24 31 61 2F 24 37 37 2F 24 31 $1a/$77/$1
019820: 33 2F 24 64 35 2F 24 63 64 2F 69 6E 63 6C 69 6E 3/$d5/$cd/inclin
019830: 2F 24 64 31 2F 24 31 30 2F 24 66 36 2F 20 20 7B /$d1/$10/$f6/ {
019840: 20 64 65 70 6C 61 63 65 20 75 6E 65 20 6C 69 67 deplace une lig
019850: 6E 65 20 76 65 72 74 69 63 61 6C 65 20 20 20 20 ne verticale
019860: 7D 0D 0A 20 20 20 20 20 20 20 20 24 63 33 2F 62 }.. $c3/b
019870: 61 6E 6B 6F 66 66 2F 20 20 20 20 20 20 20 20 20 ankoff/
019880: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
019890: 20 20 20 20 7B 20 65 74 65 69 6E 74 20 6C 61 20 { eteint la
0198A0: 62 61 6E 71 75 65 20 76 69 64 65 6F 20 20 20 7D banque video }
0198B0: 0D 0A 20 20 20 20 20 20 20 20 24 31 31 2F 24 30 .. $11/$0
0198C0: 30 2F 24 30 38 2F 24 31 39 2F 24 63 62 2F 24 37 0/$08/$19/$cb/$7
0198D0: 63 2F 24 63 38 2F 24 31 31 2F 24 62 30 2F 24 33 c/$c8/$11/$b0/$3
0198E0: 66 2F 20 7B 20 69 6E 63 72 65 6D 65 6E 74 65 20 f/ { incremente
0198F0: 75 6E 65 20 4C 69 67 6E 65 20 20 20 20 20 20 20 une Ligne
019900: 6F 75 6E 64 3D 30 3B 20 20 20 20 20 20 20 20 20 ound=0;
019910: 20 20 20 20 20 20 20 20 20 7B 6C 61 20 70 6C 75 {la plu
019920: 73 20 62 61 73 73 65 20 63 6F 75 6C 65 75 72 20 s basse couleur
019930: 61 75 74 6F 72 69 73 65 65 20 65 6E 20 61 72 72 autorisee en arr
019940: 69 65 72 65 20 70 6C 61 6E 7D 0D 0A 20 20 20 20 iere plan}..
019950: 20 20 4D 61 78 42 61 63 6B 67 72 6F 75 6E 64 3D MaxBackground=
019960: 31 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 1;
019970: 20 20 20 20 7B 6C 61 20 70 6C 75 73 20 68 61 75 {la plus hau
019980: 74 65 20 63 6F 75 6C 65 75 72 20 61 75 74 6F 72 te couleur autor
019990: 69 73 65 65 20 65 6E 20 61 72 72 69 65 72 65 20 isee en arriere
0199A0: 70 6C 61 6E 7D 0D 0A 20 20 20 20 20 20 41 73 70 plan}.. Asp
0199B0: 65 63 74 46 61 63 74 6F 72 3D 30 2E 35 3B 20 20 ectFactor=0.5;
0199C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0199D0: 7B 66 61 63 74 65 75 72 20 64 27 61 73 70 65 63 {facteur d'aspec
0199E0: 74 20 70 6F 75 72 20 75 6E 20 76 72 61 69 20 63 t pour un vrai c
0199F0: 65 72 63 6C 65 7D 0D 0A 0D 0A 74 79 70 65 20 46 ercle}....type F
019A00: 6F 6E 74 43 68 61 72 3D 61 72 72 61 79 20 5B 30 ontChar=array [0
019A10: 2E 2E 37 5D 20 6F 66 20 62 79 74 65 3B 0D 0A 20 ..7] of byte;..
019A20: 20 20 20 20 57 69 6E 64 6F 77 53 74 61 63 6B 52 WindowStackR
019A30: 65 63 6F 72 64 3D 72 65 63 6F 72 64 0D 0A 20 20 ecord=record..
019A40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
019A50: 20 20 20 20 20 20 20 77 20 3A 20 77 69 6E 64 6F w : windo
019A60: 77 74 79 70 65 3B 0D 0A 20 20 20 20 20 20 20 20 wtype;..
019A70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
019A80: 20 63 6F 6E 74 65 6E 74 73 3A 62 6F 6F 6C 65 61 contents:boolea
019A90: 6E 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 n;..
019AA0: 20 20 20 20 20 20 20 20 20 20 20 65 6E 64 3B 0D end;.
019AB0: 0A 20 20 20 20 20 73 74 61 63 6B 73 3D 61 72 72 . stacks=arr
019AC0: 61 79 5B 31 2E 2E 4D 61 78 57 69 6E 64 6F 77 73 ay[1..MaxWindows
019AD0: 47 6C 62 5D 20 6F 66 20 57 69 6E 64 6F 77 53 74 Glb] of WindowSt
019AE0: 61 63 6B 52 65 63 6F 72 64 3B 0D 0A 0D 0A 76 61 ackRecord;....va
019AF0: 72 20 20 43 6F 6E 4F 75 74 50 74 72 53 61 76 65 r ConOutPtrSave
019B00: 20 20 20 7D 0D 0A 20 20 20 20 20 20 20 20 24 61 }.. $a
019B10: 37 2F 24 65 64 2F 24 35 32 2F 24 63 39 2F 0D 0A 7/$ed/$52/$c9/..
019B20: 20 20 20 20 20 20 20 20 24 31 31 2F 24 30 30 2F $11/$00/
019B30: 24 30 38 2F 24 61 37 2F 24 65 64 2F 24 35 32 2F $08/$a7/$ed/$52/
019B40: 24 63 62 2F 24 37 34 2F 24 63 30 2F 24 31 31 2F $cb/$74/$c0/$11/
019B50: 20 7B 20 64 65 63 72 65 6D 65 6E 74 65 20 75 6E { decremente un
019B60: 65 20 4C 69 67 6E 65 20 20 20 20 20 20 20 20 20 e Ligne
019B70: 20 7D 0D 0A 20 20 20 20 20 20 20 20 24 62 30 2F }.. $b0/
019B80: 24 33 66 2F 24 31 39 2F 24 63 39 2F 0D 0A 20 20 $3f/$19/$c9/..
019B90: 20 20 20 20 20 20 24 63 64 2F 68 6D 6F 76 65 2F $cd/hmove/
019BA0: 24 32 61 2F 68 6C 2F 24 63 64 2F 69 6E 63 6C 69 $2a/hl/$cd/incli
019BB0: 6E 2F 24 32 32 2F 68 6C 2F 20 20 20 20 20 20 7B n/$22/hl/ {
019BC0: 20 74 72 61 6E 73 66 65 72 65 20 75 6E 20 62 6C transfere un bl
019BD0: 6F 63 20 65 6E 20 68 61 75 74 20 20 7D 0D 0A 20 oc en haut }..
019BE0: 20 20 20 20 20 20 20 24 32 61 2F 64 65 2F 24 63 $2a/de/$c
019BF0: 64 2F 69 6E 63 6C 69 6E 2F 24 32 32 2F 64 65 2F d/inclin/$22/de/
019C00: 24 33 61 2F 61 6B 6B 75 2F 0D 0A 20 20 20 20 20 $3a/akku/..
019C10: 20 20 20 24 33 64 2F 24 33 32 2F 61 6B 6B 75 2F $3d/$32/akku/
019C20: 24 32 30 2F 24 65 32 2F 24 63 39 2F 0D 0A 20 20 $20/$e2/$c9/..
019C30: 20 20 20 20 20 20 24 63 64 2F 68 6D 6F 76 65 2F $cd/hmove/
019C40: 24 32 61 2F 68 6C 2F 24 63 64 2F 64 65 63 6C 69 $2a/hl/$cd/decli
019C50: 6E 2F 24 32 32 2F 68 6C 2F 20 20 20 20 20 20 7B n/$22/hl/ {
019C60: 20 74 72 61 6E 73 66 65 72 65 20 75 6E 20 62 6C transfere un bl
019C70: 6F 63 20 65 6E 20 62 61 73 20 20 7D 0D 0A 20 20 oc en bas }..
019C80: 20 20 20 20 20 20 24 32 61 2F 64 65 2F 24 63 64 $2a/de/$cd
019C90: 2F 64 65 63 6C 69 6E 2F 24 32 32 2F 64 65 2F 24 /declin/$22/de/$
019CA0: 33 61 2F 61 6B 6B 75 2F 0D 0A 20 20 20 20 20 20 3a/akku/..
019CB0: 20 20 24 33 64 2F 24 33 32 2F 61 6B 6B 75 2F 24 $3d/$32/akku/$
019CC0: 32 30 2F 24 65 32 2F 24 63 39 2F 0D 0A 20 20 20 20/$e2/$c9/..
019CD0: 20 20 20 20 20 24 63 64 2F 62 61 6E 6B 6F 6E 2F $cd/bankon/
019CE0: 24 37 65 2F 24 32 66 2F 24 37 37 2F 24 32 33 2F $7e/$2f/$77/$23/
019CF0: 24 30 62 2F 24 37 38 2F 24 62 31 2F 20 20 7B 20 $0b/$78/$b1/ {
019D00: 3A 69 6E 74 65 67 65 72 3B 0D 0A 20 20 20 20 20 :integer;..
019D10: 73 74 61 63 6B 3A 73 74 61 63 6B 73 3B 0D 0A 0D stack:stacks;...
019D20: 0A 0D 0A 28 2A 2A 2A 2A 20 53 74 72 75 63 74 75 ...(**** Structu
019D30: 72 65 20 74 6F 20 43 61 6C 6C 20 53 79 73 74 65 re to Call Syste
019D40: 6D 20 2A 2A 2A 2A 2A 29 0D 0A 76 61 72 20 20 20 m *****)..var
019D50: 73 79 73 74 63 20 3A 20 61 72 72 61 79 5B 30 2E systc : array[0.
019D60: 2E 35 5D 20 6F 66 20 62 79 74 65 3B 0D 0A 20 20 .5] of byte;..
019D70: 20 20 20 20 61 6B 6B 75 20 20 3A 20 62 79 74 65 akku : byte
019D80: 3B 0D 0A 20 20 20 20 20 20 68 2C 6C 20 20 20 3A ;.. h,l :
019D90: 20 62 79 74 65 20 3B 0D 0A 20 20 20 20 20 20 64 byte ;.. d
019DA0: 2C 65 20 20 20 3A 20 62 79 74 65 20 3B 0D 0A 20 ,e : byte ;..
019DB0: 20 20 20 20 20 62 2C 63 20 20 20 3A 20 62 79 74 b,c : byt
019DC0: 65 20 3B 0D 0A 20 20 20 20 20 20 68 6C 20 20 20 e ;.. hl
019DD0: 20 3A 20 69 6E 74 65 67 65 72 20 61 62 73 6F 6C : integer absol
019DE0: 75 74 65 20 6C 3B 0D 0A 20 20 20 20 20 20 64 65 ute l;.. de
019DF0: 20 20 20 20 3A 20 69 6E 74 65 67 65 72 20 61 62 : integer ab
019E00: 73 6F 6C 75 74 65 20 65 3B 0D 0A 20 20 20 20 20 solute e;..
019E10: 20 62 63 20 20 20 20 3A 20 69 6E 74 65 67 65 72 bc : integer
019E20: 20 61 62 73 6F 6C 75 74 65 20 63 3B 0D 0A 0D 0A absolute c;....
019E30: 76 61 72 20 20 20 67 65 74 63 6F 6C 6F 72 20 3A var getcolor :
019E40: 20 62 79 74 65 3B 0D 0A 20 20 20 20 20 20 75 6E byte;.. un
019E50: 69 62 75 66 66 20 20 3A 20 61 72 72 61 79 5B 30 ibuff : array[0
019E60: 2E 2E 32 35 35 5D 20 6F 66 20 62 79 74 65 3B 0D ..255] of byte;.
019E70: 0A 20 20 20 20 20 20 41 63 74 75 61 6C 5F 53 63 . Actual_Sc
019E80: 72 65 65 6E 3A 62 79 74 65 3B 0D 0A 20 20 20 20 reen:byte;..
019E90: 20 20 73 61 76 73 63 72 66 69 6C 65 20 3A 20 66 savscrfile : f
019EA0: 69 6C 65 3B 0D 0A 20 20 20 20 20 20 75 6E 69 6C ile;.. unil
019EB0: 69 6E 65 20 3A 20 61 72 72 61 79 5B 30 2E 2E 31 ine : array[0..1
019EC0: 39 39 5D 20 6F 66 20 62 79 74 65 3B 0D 0A 20 20 99] of byte;..
019ED0: 20 20 20 20 75 6E 69 66 69 6C 65 20 3A 20 66 69 unifile : fi
019EE0: 6C 65 3B 0D 0A 0D 0A 76 61 72 20 69 6E 76 6C 69 le;....var invli
019EF0: 6E 20 20 3A 20 61 72 72 61 79 5B 30 2E 2E 31 34 n : array[0..14
019F00: 69 6E 76 65 72 73 65 20 75 6E 65 20 6C 69 67 6E inverse une lign
019F10: 65 20 20 20 20 20 20 20 20 20 20 20 20 20 7D 0D e }.
019F20: 0A 20 20 20 20 20 20 20 20 24 32 30 2F 24 66 37 . $20/$f7
019F30: 2F 24 63 33 2F 62 61 6E 6B 6F 66 66 0D 0A 20 20 /$c3/bankoff..
019F40: 20 20 20 20 29 3B 0D 0A 65 6E 64 3B 0D 0A 0D 0A );..end;....
019F50: 0D 0A 66 75 6E 63 74 69 6F 6E 20 76 61 64 72 28 ..function vadr(
019F60: 78 2C 79 3A 69 6E 74 65 67 65 72 29 3A 69 6E 74 x,y:integer):int
019F70: 65 67 65 72 3B 0D 0A 62 65 67 69 6E 0D 0A 20 20 eger;..begin..
019F80: 20 76 61 64 72 3A 3D 24 34 30 30 30 2B 28 28 28 vadr:=$4000+(((
019F90: 79 20 61 6E 64 20 37 29 2A 24 38 30 30 20 2B 20 y and 7)*$800 +
019FA0: 28 79 20 73 68 72 20 33 29 2A 38 30 20 2B 20 78 (y shr 3)*80 + x
019FB0: 29 20 61 6E 64 20 24 37 66 66 66 29 3B 0D 0A 65 ) and $7fff);..e
019FC0: 6E 64 3B 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 65 nd;....procedure
019FD0: 20 62 6C 6F 63 6B 6D 6F 76 65 28 74 79 70 2C 78 blockmove(typ,x
019FE0: 31 2C 79 31 2C 78 32 2C 79 32 2C 73 74 65 70 3A 1,y1,x2,y2,step:
019FF0: 69 6E 74 65 67 65 72 3B 66 69 6C 6C 3A 62 6F 6F integer;fill:boo
01A000: 6C 65 61 6E 29 3B 0D 0A 62 65 67 69 6E 0D 0A 20 lean);..begin..
01A010: 20 20 62 63 3A 3D 78 32 2D 78 31 2B 31 3B 20 61 bc:=x2-x1+1; a
01A020: 6B 6B 75 3A 3D 79 32 2D 79 31 2B 31 3B 0D 0A 20 kku:=y2-y1+1;..
01A030: 20 20 68 6D 6F 76 65 5B 34 5D 3A 3D 24 62 30 3B hmove[4]:=$b0;
01A040: 0D 0A 20 20 20 63 61 73 65 20 74 79 70 20 6F 66 .. case typ of
01A050: 0D 0A 20 20 20 20 20 30 3A 62 65 67 69 6E 20 68 .. 0:begin h
01A060: 6C 3A 3D 76 61 64 72 28 78 31 2C 79 31 29 3B 20 l:=vadr(x1,y1);
01A070: 64 65 3A 3D 76 61 64 72 28 78 31 2C 79 31 2D 73 de:=vadr(x1,y1-s
01A080: 74 65 70 29 3B 20 69 6E 6C 69 6E 65 28 24 63 64 tep); inline($cd
01A090: 2F 77 69 6E 64 75 70 29 3B 20 65 6E 64 3B 0D 0A /windup); end;..
01A0A0: 20 20 20 20 20 31 3A 62 65 67 69 6E 20 68 6C 3A 1:begin hl:
01A0B0: 3D 76 61 64 72 28 78 31 2C 79 32 29 3B 20 64 65 =vadr(x1,y2); de
01A0C0: 3A 3D 76 61 64 72 28 78 31 2C 79 32 2B 73 74 65 :=vadr(x1,y2+ste
01A0D0: 70 29 3B 20 69 6E 6C 69 6E 65 28 24 63 64 2F 77 p); inline($cd/w
01A0E0: 69 6E 64 64 6F 77 6E 29 3B 20 65 6E 64 3B 0D 0A inddown); end;..
01A0F0: 20 20 20 20 20 33 3A 62 65 67 69 6E 20 68 6C 3A 3:begin hl:
01A100: 5D 20 6F 66 20 62 79 74 65 3B 20 7B 69 6E 76 65 ] of byte; {inve
01A110: 72 73 65 20 6C 65 20 62 6C 6F 63 7D 0D 0A 76 61 rse le bloc}..va
01A120: 72 20 77 69 6E 64 64 6F 77 6E 3A 20 61 72 72 61 r winddown: arra
01A130: 79 5B 30 2E 2E 33 30 5D 20 6F 66 20 62 79 74 65 y[0..30] of byte
01A140: 3B 20 7B 64 65 73 63 65 6E 64 20 6C 61 20 66 65 ; {descend la fe
01A150: 6E 65 74 72 65 7D 0D 0A 76 61 72 20 77 69 6E 64 netre}..var wind
01A160: 75 70 20 20 3A 20 61 72 72 61 79 5B 30 2E 2E 33 up : array[0..3
01A170: 30 5D 20 6F 66 20 62 79 74 65 3B 20 7B 6D 6F 6E 0] of byte; {mon
01A180: 74 65 20 6C 61 20 66 65 6E 65 74 72 65 7D 0D 0A te la fenetre}..
01A190: 76 61 72 20 64 65 63 6C 69 6E 20 20 3A 20 61 72 var declin : ar
01A1A0: 72 61 79 5B 30 2E 2E 31 33 5D 20 6F 66 20 62 79 ray[0..13] of by
01A1B0: 74 65 3B 20 7B 64 65 63 72 65 6D 65 6E 74 65 20 te; {decremente
01A1C0: 20 4C 69 67 6E 65 2D 41 64 72 65 73 73 65 20 7D Ligne-Adresse }
01A1D0: 0D 0A 76 61 72 20 69 6E 63 6C 69 6E 20 20 3A 20 ..var inclin :
01A1E0: 61 72 72 61 79 5B 30 2E 2E 31 33 5D 20 6F 66 20 array[0..13] of
01A1F0: 62 79 74 65 3B 20 7B 69 6E 63 72 65 6D 65 6E 74 byte; {increment
01A200: 65 20 20 4C 69 67 6E 65 2D 41 64 72 65 73 73 65 e Ligne-Adresse
01A210: 20 7D 0D 0A 76 61 72 20 76 74 72 61 6E 73 20 20 }..var vtrans
01A220: 3A 20 61 72 72 61 79 5B 30 2E 2E 31 35 5D 20 6F : array[0..15] o
01A230: 66 20 62 79 74 65 3B 20 7B 74 72 61 6E 73 70 6F f byte; {transpo
01A240: 72 74 65 20 64 65 70 75 69 73 20 6C 61 20 6C 69 rte depuis la li
01A250: 67 6E 65 20 76 65 72 73 20 6C 61 20 56 69 64 65 gne vers la Vide
01A260: 6F 7D 0D 0A 76 61 72 20 68 6D 6F 76 65 20 20 20 o}..var hmove
01A270: 3A 20 61 72 72 61 79 5B 30 2E 2E 37 5D 20 6F 66 : array[0..7] of
01A280: 20 62 79 74 65 3B 20 20 7B 74 72 61 6E 73 66 65 byte; {transfe
01A290: 72 65 20 64 61 6E 73 20 6C 61 20 52 41 4D 2D 56 re dans la RAM-V
01A2A0: 49 44 45 4F 20 7D 0D 0A 76 61 72 20 62 61 6E 6B IDEO }..var bank
01A2B0: 6F 66 66 20 3A 20 61 72 72 61 79 5B 30 2E 2E 31 off : array[0..1
01A2C0: 32 5D 20 6F 66 20 62 79 74 65 3B 20 7B 65 74 65 2] of byte; {ete
01A2D0: 69 6E 74 20 6C 61 20 62 61 6E 71 75 65 20 56 69 int la banque Vi
01A2E0: 64 65 6F 7D 0D 0A 76 61 72 20 62 61 6E 6B 6F 6E deo}..var bankon
01A2F0: 20 20 3A 20 61 72 72 61 79 5B 30 2E 2E 33 30 5D : array[0..30]
01A300: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
01A310: 16 00 00 00 02 09 50 E5 16 00 41 02 00 00 00 02 ......P...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: 3D 76 61 64 72 28 78 31 2C 79 31 29 3B 20 64 65 =vadr(x1,y1); de
01A410: 3A 3D 68 6C 2D 73 74 65 70 3B 20 69 6E 6C 69 6E :=hl-step; inlin
01A420: 65 28 24 63 64 2F 77 69 6E 64 75 70 29 3B 20 65 e($cd/windup); e
01A430: 6E 64 3B 0D 0A 20 20 20 20 20 32 3A 62 65 67 69 nd;.. 2:begi
01A440: 6E 20 68 6D 6F 76 65 5B 34 5D 3A 3D 24 62 38 3B n hmove[4]:=$b8;
01A450: 20 68 6C 3A 3D 76 61 64 72 28 78 32 2C 79 32 29 hl:=vadr(x2,y2)
01A460: 3B 20 64 65 3A 3D 68 6C 2B 73 74 65 70 3B 20 69 ; de:=hl+step; i
01A470: 6E 6C 69 6E 65 28 24 63 64 2F 77 69 6E 64 64 6F nline($cd/winddo
01A480: 77 6E 29 3B 20 65 6E 64 3B 0D 0A 20 20 20 65 6E wn); end;.. en
01A490: 64 3B 0D 0A 65 6E 64 3B 0D 0A 0D 0A 70 72 6F 63 d;..end;....proc
01A4A0: 65 64 75 72 65 20 69 6E 76 65 72 74 62 6C 6F 63 edure invertbloc
01A4B0: 6B 28 78 31 2C 79 31 2C 78 32 2C 79 32 3A 69 6E k(x1,y1,x2,y2:in
01A4C0: 74 65 67 65 72 29 3B 0D 0A 62 65 67 69 6E 0D 0A teger);..begin..
01A4D0: 20 20 20 77 69 6E 64 75 70 5B 31 5D 3A 3D 6C 6F windup[1]:=lo
01A4E0: 28 61 64 64 72 28 69 6E 76 6C 69 6E 29 29 3B 0D (addr(invlin));.
01A4F0: 0A 20 20 20 77 69 6E 64 75 70 5B 32 5D 3A 3D 68 . windup[2]:=h
01A500: 69 28 61 64 64 72 28 69 6E 76 6C 69 6E 29 29 3B i(addr(invlin));
01A510: 0D 0A 20 20 20 62 63 3A 3D 78 32 2D 78 31 2B 31 .. bc:=x2-x1+1
01A520: 3B 0D 0A 20 20 20 61 6B 6B 75 3A 3D 79 32 2D 79 ;.. akku:=y2-y
01A530: 31 2B 31 3B 0D 0A 20 20 20 68 6C 3A 3D 76 61 64 1+1;.. hl:=vad
01A540: 72 28 78 31 2C 79 31 29 3B 0D 0A 20 20 20 69 6E r(x1,y1);.. in
01A550: 6C 69 6E 65 28 24 63 64 2F 77 69 6E 64 75 70 29 line($cd/windup)
01A560: 3B 0D 0A 20 20 20 77 69 6E 64 75 70 5B 31 5D 3A ;.. windup[1]:
01A570: 3D 6C 6F 28 61 64 64 72 28 68 6D 6F 76 65 29 29 =lo(addr(hmove))
01A580: 3B 0D 0A 20 20 20 77 69 6E 64 75 70 5B 32 5D 3A ;.. windup[2]:
01A590: 3D 68 69 28 61 64 64 72 28 68 6D 6F 76 65 29 29 =hi(addr(hmove))
01A5A0: 3B 0D 0A 65 6E 64 3B 0D 0A 0D 0A 0D 0A 70 72 6F ;..end;......pro
01A5B0: 63 65 64 75 72 65 20 73 79 73 74 65 6D 28 61 64 cedure system(ad
01A5C0: 64 72 65 73 73 3A 69 6E 74 65 67 65 72 29 3B 0D dress:integer);.
01A5D0: 0A 62 65 67 69 6E 0D 0A 20 20 20 73 79 73 74 63 .begin.. systc
01A5E0: 5B 30 5D 3A 3D 24 63 64 3B 0D 0A 20 20 20 73 79 [0]:=$cd;.. sy
01A5F0: 73 74 63 5B 31 5D 3A 3D 24 35 61 3B 0D 0A 20 20 stc[1]:=$5a;..
01A600: 72 6F 63 65 64 75 72 65 20 53 43 52 5F 4D 4F 56 rocedure SCR_MOV
01A610: 45 5F 42 59 54 45 4C 49 4E 45 28 78 6C 2C 78 31 E_BYTELINE(xl,x1
01A620: 2C 79 31 2C 78 32 2C 79 32 2C 73 31 2C 73 32 3A ,y1,x2,y2,s1,s2:
01A630: 69 6E 74 65 67 65 72 29 3B 0D 0A 62 65 67 69 6E integer);..begin
01A640: 0D 0A 20 20 20 69 66 20 28 73 31 3D 32 29 20 61 .. if (s1=2) a
01A650: 6E 64 20 28 73 32 3D 32 29 20 74 68 65 6E 20 62 nd (s2=2) then b
01A660: 65 67 69 6E 0D 0A 20 20 20 20 20 20 52 41 4D 5F egin.. RAM_
01A670: 47 45 54 5F 42 59 54 45 4C 49 4E 45 28 78 6C 2C GET_BYTELINE(xl,
01A680: 78 31 2C 79 31 29 3B 0D 0A 20 20 20 20 20 20 52 x1,y1);.. R
01A690: 41 4D 5F 50 55 54 5F 42 59 54 45 4C 49 4E 45 28 AM_PUT_BYTELINE(
01A6A0: 78 6C 2C 78 32 2C 79 32 29 3B 0D 0A 20 20 20 65 xl,x2,y2);.. e
01A6B0: 6E 64 0D 0A 20 20 20 65 6C 73 65 20 69 66 20 28 nd.. else if (
01A6C0: 73 31 3D 32 29 20 61 6E 64 20 28 73 32 3D 31 29 s1=2) and (s2=1)
01A6D0: 20 74 68 65 6E 20 62 65 67 69 6E 0D 0A 20 20 20 then begin..
01A6E0: 20 20 20 52 41 4D 5F 47 45 54 5F 42 59 54 45 4C RAM_GET_BYTEL
01A6F0: 49 4E 45 28 78 6C 2C 78 31 2C 79 31 29 3B 0D 0A INE(xl,x1,y1);..
01A700: 20 20 20 20 20 20 69 6E 74 65 72 5F 62 61 6E 6B inter_bank
01A710: 5F 6D 6F 76 65 28 31 2C 61 64 64 72 28 75 6E 69 _move(1,addr(uni
01A720: 6C 69 6E 65 29 2C 30 2C 53 43 52 5F 44 4F 54 5F line),0,SCR_DOT_
01A730: 50 4F 53 49 54 49 4F 4E 28 78 32 20 73 68 6C 20 POSITION(x2 shl
01A740: 33 2C 79 32 29 2C 78 6C 29 3B 0D 0A 20 20 20 65 3,y2),xl);.. e
01A750: 6E 64 0D 0A 20 20 20 65 6C 73 65 20 69 66 20 28 nd.. else if (
01A760: 73 31 3D 31 29 20 61 6E 64 20 28 73 32 3D 32 29 s1=1) and (s2=2)
01A770: 20 74 68 65 6E 20 62 65 67 69 6E 0D 0A 20 20 20 then begin..
01A780: 20 20 20 69 6E 74 65 72 5F 62 61 6E 6B 5F 6D 6F inter_bank_mo
01A790: 76 65 28 30 2C 53 43 52 5F 44 4F 54 5F 50 4F 53 ve(0,SCR_DOT_POS
01A7A0: 49 54 49 4F 4E 28 78 31 20 73 68 6C 20 33 2C 79 ITION(x1 shl 3,y
01A7B0: 31 29 2C 31 2C 61 64 64 72 28 75 6E 69 6C 69 6E 1),1,addr(unilin
01A7C0: 65 29 2C 78 6C 29 3B 0D 0A 20 20 20 20 20 20 52 e),xl);.. R
01A7D0: 41 4D 5F 50 55 54 5F 42 59 54 45 4C 49 4E 45 28 AM_PUT_BYTELINE(
01A7E0: 78 6C 2C 78 32 2C 79 32 29 3B 0D 0A 20 20 20 65 xl,x2,y2);.. e
01A7F0: 6E 64 0D 0A 20 20 20 65 6C 73 65 20 62 65 67 69 nd.. else begi
01A800: 20 73 79 73 74 63 5B 32 5D 3A 3D 24 66 63 3B 0D systc[2]:=$fc;.
01A810: 0A 20 20 20 73 79 73 74 63 5B 33 5D 3A 3D 6C 6F . systc[3]:=lo
01A820: 28 61 64 64 72 65 73 73 29 3B 0D 0A 20 20 20 73 (address);.. s
01A830: 79 73 74 63 5B 34 5D 3A 3D 68 69 28 61 64 64 72 ystc[4]:=hi(addr
01A840: 65 73 73 29 3B 0D 0A 20 20 20 73 79 73 74 63 5B ess);.. systc[
01A850: 35 5D 3A 3D 24 63 39 3B 0D 0A 20 20 20 69 6E 6C 5]:=$c9;.. inl
01A860: 69 6E 65 28 24 33 61 2F 61 6B 6B 75 2F 24 65 64 ine($3a/akku/$ed
01A870: 2F 24 34 62 2F 62 63 2F 24 65 64 2F 24 35 62 2F /$4b/bc/$ed/$5b/
01A880: 64 65 2F 24 32 61 2F 68 6C 2F 24 63 64 2F 73 79 de/$2a/hl/$cd/sy
01A890: 73 74 63 2F 0D 0A 20 20 20 20 20 20 20 20 20 20 stc/..
01A8A0: 24 33 32 2F 61 6B 6B 75 2F 24 65 64 2F 24 34 33 $32/akku/$ed/$43
01A8B0: 2F 62 63 2F 24 65 64 2F 24 35 33 2F 64 65 2F 24 /bc/$ed/$53/de/$
01A8C0: 32 32 2F 68 6C 29 3B 0D 0A 65 6E 64 3B 0D 0A 0D 22/hl);..end;...
01A8D0: 0A 70 72 6F 63 65 64 75 72 65 20 49 6E 74 65 72 .procedure Inter
01A8E0: 5F 42 61 6E 6B 5F 6D 6F 76 65 28 71 62 61 6E 6B _Bank_move(qbank
01A8F0: 2C 73 61 64 72 2C 7A 62 61 6E 6B 2C 65 61 64 72 ,sadr,zbank,eadr
01A900: 2C 63 6F 75 6E 74 3A 69 6E 74 65 67 65 72 29 3B ,count:integer);
01A910: 0D 0A 76 61 72 20 6C 2C 66 72 6F 6D 2C 74 75 2C ..var l,from,tu,
01A920: 62 61 6E 6B 3A 69 6E 74 65 67 65 72 3B 0D 0A 62 bank:integer;..b
01A930: 65 67 69 6E 0D 0A 20 20 20 66 72 6F 6D 3A 3D 73 egin.. from:=s
01A940: 61 64 72 3B 20 74 75 3A 3D 65 61 64 72 3B 20 6C adr; tu:=eadr; l
01A950: 3A 3D 63 6F 75 6E 74 3B 0D 0A 20 20 20 62 61 6E :=count;.. ban
01A960: 6B 3A 3D 28 7A 62 61 6E 6B 20 73 68 6C 20 38 29 k:=(zbank shl 8)
01A970: 20 6F 72 20 71 62 61 6E 6B 3B 0D 0A 20 20 20 69 or qbank;.. i
01A980: 6E 6C 69 6E 65 28 24 65 64 2F 24 34 62 2F 62 61 nline($ed/$4b/ba
01A990: 6E 6B 2F 24 63 64 2F 24 35 37 2F 24 66 63 2F 24 nk/$cd/$57/$fc/$
01A9A0: 32 61 2F 74 75 2F 24 65 64 2F 24 34 62 2F 6C 2F 2a/tu/$ed/$4b/l/
01A9B0: 24 65 64 2F 24 35 62 2F 66 72 6F 6D 2F 24 63 64 $ed/$5b/from/$cd
01A9C0: 2F 24 34 62 2F 24 66 63 29 3B 0D 0A 65 6E 64 3B /$4b/$fc);..end;
01A9D0: 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 65 20 43 4F ....procedure CO
01A9E0: 4C 4F 52 47 4C 42 28 69 6E 6B 3A 62 79 74 65 29 LORGLB(ink:byte)
01A9F0: 3B 0D 0A 62 65 67 69 6E 20 67 65 74 63 6F 6C 6F ;..begin getcolo
01AA00: 6E 0D 0A 20 20 20 20 20 20 69 6E 74 65 72 5F 62 n.. inter_b
01AA10: 61 6E 6B 5F 6D 6F 76 65 28 30 2C 53 43 52 5F 44 ank_move(0,SCR_D
01AA20: 4F 54 5F 50 4F 53 49 54 49 4F 4E 28 78 31 20 73 OT_POSITION(x1 s
01AA30: 68 6C 20 33 2C 79 31 29 2C 0D 0A 20 20 20 20 20 hl 3,y1),..
01AA40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01AA50: 20 30 2C 53 43 52 5F 44 4F 54 5F 50 4F 53 49 54 0,SCR_DOT_POSIT
01AA60: 49 4F 4E 28 78 32 20 73 68 6C 20 33 2C 79 32 29 ION(x2 shl 3,y2)
01AA70: 2C 78 6C 29 3B 0D 0A 20 20 20 65 6E 64 3B 0D 0A ,xl);.. end;..
01AA80: 65 6E 64 3B 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 end;....procedur
01AA90: 65 20 53 43 52 5F 46 49 4C 4C 43 48 41 52 28 69 e SCR_FILLCHAR(i
01AAA0: 6E 6B 2C 78 6C 2C 78 31 2C 79 31 3A 69 6E 74 65 nk,xl,x1,y1:inte
01AAB0: 67 65 72 29 3B 0D 0A 62 65 67 69 6E 0D 0A 20 20 ger);..begin..
01AAC0: 20 66 69 6C 6C 63 68 61 72 28 75 6E 69 6C 69 6E fillchar(unilin
01AAD0: 65 2C 78 6C 2C 69 6E 6B 29 3B 0D 0A 20 20 20 69 e,xl,ink);.. i
01AAE0: 6E 74 65 72 5F 62 61 6E 6B 5F 6D 6F 76 65 28 31 nter_bank_move(1
01AAF0: 2C 61 64 64 72 28 75 6E 69 6C 69 6E 65 29 2C 30 ,addr(uniline),0
01AB00: 2C 53 43 52 5F 44 4F 54 5F 50 4F 53 49 54 49 4F ,SCR_DOT_POSITIO
01AB10: 4E 28 78 31 20 73 68 6C 20 33 2C 79 31 29 2C 78 N(x1 shl 3,y1),x
01AB20: 6C 29 3B 0D 0A 65 6E 64 3B 0D 0A 0D 0A 70 72 6F l);..end;....pro
01AB30: 63 65 64 75 72 65 20 53 43 52 5F 49 4E 56 45 52 cedure SCR_INVER
01AB40: 54 5F 42 59 54 45 4C 49 4E 45 28 78 2C 79 2C 78 T_BYTELINE(x,y,x
01AB50: 6C 3A 69 6E 74 65 67 65 72 29 3B 0D 0A 76 61 72 l:integer);..var
01AB60: 20 69 3A 69 6E 74 65 67 65 72 3B 0D 0A 62 65 67 i:integer;..beg
01AB70: 69 6E 0D 0A 20 20 20 69 6E 74 65 72 5F 62 61 6E in.. inter_ban
01AB80: 6B 5F 6D 6F 76 65 28 30 2C 53 43 52 5F 44 4F 54 k_move(0,SCR_DOT
01AB90: 5F 50 4F 53 49 54 49 4F 4E 28 78 20 73 68 6C 20 _POSITION(x shl
01ABA0: 33 2C 79 29 2C 31 2C 61 64 64 72 28 75 6E 69 6C 3,y),1,addr(unil
01ABB0: 69 6E 65 29 2C 78 6C 29 3B 0D 0A 20 20 20 66 6F ine),xl);.. fo
01ABC0: 72 20 69 3A 3D 30 20 74 6F 20 78 6C 20 64 6F 20 r i:=0 to xl do
01ABD0: 75 6E 69 6C 69 6E 65 5B 69 5D 3A 3D 6E 6F 74 20 uniline[i]:=not
01ABE0: 75 6E 69 6C 69 6E 65 5B 69 5D 3B 0D 0A 20 20 20 uniline[i];..
01ABF0: 69 6E 74 65 72 5F 62 61 6E 6B 5F 6D 6F 76 65 28 inter_bank_move(
01AC00: 72 3A 3D 69 6E 6B 3B 20 61 6B 6B 75 3A 3D 69 6E r:=ink; akku:=in
01AC10: 6B 3B 20 73 79 73 74 65 6D 28 24 62 62 64 65 29 k; system($bbde)
01AC20: 3B 20 65 6E 64 3B 0D 0A 0D 0A 70 72 6F 63 65 64 ; end;....proced
01AC30: 75 72 65 20 47 52 41 5F 4D 4F 56 45 5F 41 42 53 ure GRA_MOVE_ABS
01AC40: 4F 4C 55 54 45 28 78 2C 79 3A 69 6E 74 65 67 65 OLUTE(x,y:intege
01AC50: 72 29 3B 0D 0A 62 65 67 69 6E 20 68 6C 3A 3D 28 r);..begin hl:=(
01AC60: 31 39 39 2D 79 29 20 73 68 6C 20 31 3B 20 64 65 199-y) shl 1; de
01AC70: 3A 3D 78 3B 20 73 79 73 74 65 6D 28 24 42 42 43 :=x; system($BBC
01AC80: 30 29 3B 20 65 6E 64 3B 0D 0A 0D 0A 70 72 6F 63 0); end;....proc
01AC90: 65 64 75 72 65 20 47 52 41 5F 4C 49 4E 45 5F 41 edure GRA_LINE_A
01ACA0: 42 53 4F 4C 55 54 45 28 78 2C 79 3A 69 6E 74 65 BSOLUTE(x,y:inte
01ACB0: 67 65 72 29 3B 0D 0A 62 65 67 69 6E 20 68 6C 3A ger);..begin hl:
01ACC0: 3D 28 31 39 39 2D 79 29 20 73 68 6C 20 31 3B 20 =(199-y) shl 1;
01ACD0: 64 65 3A 3D 78 3B 20 73 79 73 74 65 6D 28 24 42 de:=x; system($B
01ACE0: 42 46 36 29 3B 20 65 6E 64 3B 0D 0A 0D 0A 70 72 BF6); end;....pr
01ACF0: 6F 63 65 64 75 72 65 20 47 52 41 5F 50 55 54 5F ocedure GRA_PUT_
01AD00: 53 43 52 45 45 4E 42 4C 4F 43 4B 28 49 3A 49 4E SCREENBLOCK(I:IN
01AD10: 54 45 47 45 52 3B 76 61 72 20 75 6E 69 62 75 66 TEGER;var unibuf
01AD20: 66 29 3B 0D 0A 76 61 72 20 62 2C 7A 3A 69 6E 74 f);..var b,z:int
01AD30: 65 67 65 72 3B 0D 0A 62 65 67 69 6E 0D 0A 20 20 eger;..begin..
01AD40: 20 20 69 6E 74 65 72 5F 62 61 6E 6B 5F 6D 6F 76 inter_bank_mov
01AD50: 65 28 31 2C 61 64 64 72 28 75 6E 69 62 75 66 66 e(1,addr(unibuff
01AD60: 29 2C 30 2C 28 69 20 73 68 6C 20 37 29 2B 24 34 ),0,(i shl 7)+$4
01AD70: 30 30 30 2C 31 32 38 29 3B 0D 0A 65 6E 64 3B 0D 000,128);..end;.
01AD80: 0A 0D 0A 70 72 6F 63 65 64 75 72 65 20 47 52 41 ...procedure GRA
01AD90: 5F 47 45 54 5F 53 43 52 45 45 4E 42 4C 4F 43 4B _GET_SCREENBLOCK
01ADA0: 28 49 3A 49 4E 54 45 47 45 52 3B 76 61 72 20 75 (I:INTEGER;var u
01ADB0: 6E 69 62 75 66 66 29 3B 0D 0A 76 61 72 20 62 2C nibuff);..var b,
01ADC0: 7A 3A 69 6E 74 65 67 65 72 3B 0D 0A 62 65 67 69 z:integer;..begi
01ADD0: 6E 0D 0A 20 20 20 20 69 6E 74 65 72 5F 42 61 6E n.. inter_Ban
01ADE0: 6B 5F 6D 6F 76 65 28 30 2C 28 69 20 73 68 6C 20 k_move(0,(i shl
01ADF0: 37 29 2B 24 34 30 30 30 2C 31 2C 61 64 64 72 28 7)+$4000,1,addr(
01AE00: 31 2C 61 64 64 72 28 75 6E 69 6C 69 6E 65 29 2C 1,addr(uniline),
01AE10: 30 2C 53 43 52 5F 44 4F 54 5F 50 4F 53 49 54 49 0,SCR_DOT_POSITI
01AE20: 4F 4E 28 78 20 73 68 6C 20 33 2C 79 29 2C 78 6C ON(x shl 3,y),xl
01AE30: 29 3B 0D 0A 65 6E 64 3B 0D 0A 0D 0A 70 72 6F 63 );..end;....proc
01AE40: 65 64 75 72 65 20 53 43 52 5F 52 45 41 44 5F 42 edure SCR_READ_B
01AE50: 59 54 45 4C 49 4E 45 28 78 6C 3A 69 6E 74 65 67 YTELINE(xl:integ
01AE60: 65 72 3B 76 61 72 20 62 75 66 66 65 72 3B 78 2C er;var buffer;x,
01AE70: 79 3A 69 6E 74 65 67 65 72 29 3B 0D 0A 62 65 67 y:integer);..beg
01AE80: 69 6E 0D 0A 20 20 20 69 6E 74 65 72 5F 62 61 6E in.. inter_ban
01AE90: 6B 5F 6D 6F 76 65 28 30 2C 53 43 52 5F 44 4F 54 k_move(0,SCR_DOT
01AEA0: 5F 50 4F 53 49 54 49 4F 4E 28 78 20 73 68 6C 20 _POSITION(x shl
01AEB0: 33 2C 79 29 2C 31 2C 61 64 64 72 28 62 75 66 66 3,y),1,addr(buff
01AEC0: 65 72 29 2C 78 6C 29 3B 0D 0A 65 6E 64 3B 0D 0A er),xl);..end;..
01AED0: 0D 0A 70 72 6F 63 65 64 75 72 65 20 53 43 52 5F ..procedure SCR_
01AEE0: 57 52 49 54 45 5F 42 59 54 45 4C 49 4E 45 28 78 WRITE_BYTELINE(x
01AEF0: 6C 3A 69 6E 74 65 67 65 72 3B 76 61 72 20 62 75 l:integer;var bu
01AF00: 66 66 65 72 3B 78 2C 79 3A 69 6E 74 65 67 65 72 ffer;x,y:integer
01AF10: 29 3B 0D 0A 62 65 67 69 6E 0D 0A 20 20 20 69 6E );..begin.. in
01AF20: 74 65 72 5F 62 61 6E 6B 5F 6D 6F 76 65 28 31 2C ter_bank_move(1,
01AF30: 61 64 64 72 28 62 75 66 66 65 72 29 2C 30 2C 53 addr(buffer),0,S
01AF40: 43 52 5F 44 4F 54 5F 50 4F 53 49 54 49 4F 4E 28 CR_DOT_POSITION(
01AF50: 78 20 73 68 6C 20 33 2C 79 29 2C 78 6C 29 3B 0D x shl 3,y),xl);.
01AF60: 0A 65 6E 64 3B 0D 0A 0D 0A 70 72 6F 63 65 64 75 .end;....procedu
01AF70: 72 65 20 56 66 69 6C 6C 5F 62 79 74 65 5F 6C 69 re Vfill_byte_li
01AF80: 6E 65 28 78 6C 2C 78 31 2C 79 3A 69 6E 74 65 67 ne(xl,x1,y:integ
01AF90: 65 72 3B 66 69 6C 6C 3A 62 6F 6F 6C 65 61 6E 29 er;fill:boolean)
01AFA0: 3B 0D 0A 76 61 72 20 79 31 2C 73 61 64 72 2C 7A ;..var y1,sadr,z
01AFB0: 3A 69 6E 74 65 67 65 72 3B 0D 0A 62 65 67 69 6E :integer;..begin
01AFC0: 0D 0A 20 20 20 69 66 20 66 69 6C 6C 20 74 68 65 .. if fill the
01AFD0: 6E 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 20 79 n begin.. y
01AFE0: 31 3A 3D 79 3B 0D 0A 20 20 20 20 20 20 66 6F 72 1:=y;.. for
01AFF0: 20 7A 3A 3D 30 20 74 6F 20 78 6C 2D 31 20 64 6F z:=0 to xl-1 do
01B000: 75 6E 69 62 75 66 66 29 2C 31 32 38 29 3B 0D 0A unibuff),128);..
01B010: 65 6E 64 3B 0D 0A 0D 0A 66 75 6E 63 74 69 6F 6E end;....function
01B020: 20 53 43 52 5F 44 4F 54 5F 50 4F 53 49 54 49 4F SCR_DOT_POSITIO
01B030: 4E 28 78 2C 79 3A 69 6E 74 65 67 65 72 29 3A 69 N(x,y:integer):i
01B040: 6E 74 65 67 65 72 3B 0D 0A 62 65 67 69 6E 0D 0A nteger;..begin..
01B050: 20 20 20 64 65 3A 3D 78 3B 20 68 6C 3A 3D 28 31 de:=x; hl:=(1
01B060: 39 39 2D 79 29 3B 20 73 79 73 74 65 6D 28 24 42 99-y); system($B
01B070: 63 31 64 29 3B 20 53 43 52 5F 44 4F 54 5F 50 4F c1d); SCR_DOT_PO
01B080: 53 49 54 49 4F 4E 3A 3D 28 68 6C 20 61 6E 64 20 SITION:=(hl and
01B090: 24 37 66 66 66 29 20 6F 72 20 24 34 30 30 30 3B $7fff) or $4000;
01B0A0: 0D 0A 65 6E 64 3B 0D 0A 0D 0A 70 72 6F 63 65 64 ..end;....proced
01B0B0: 75 72 65 20 52 41 4D 5F 47 45 54 5F 42 59 54 45 ure RAM_GET_BYTE
01B0C0: 4C 49 4E 45 28 78 6C 2C 78 31 2C 79 31 3A 69 6E LINE(xl,x1,y1:in
01B0D0: 74 65 67 65 72 29 3B 0D 0A 7B 20 74 72 61 6E 73 teger);..{ trans
01B0E0: 66 65 72 65 20 75 6E 20 42 79 74 65 6C 69 6E 65 fere un Byteline
01B0F0: 20 64 65 20 52 61 6D 53 63 72 65 65 6E 20 61 20 de RamScreen a
01B100: 75 6E 69 6C 69 6E 65 7D 0D 0A 76 61 72 20 73 61 uniline}..var sa
01B110: 64 72 3A 69 6E 74 65 67 65 72 3B 0D 0A 62 65 67 dr:integer;..beg
01B120: 69 6E 0D 0A 20 20 20 73 61 64 72 3A 3D 53 43 52 in.. sadr:=SCR
01B130: 5F 44 4F 54 5F 50 4F 53 49 54 49 4F 4E 28 78 31 _DOT_POSITION(x1
01B140: 20 73 68 6C 20 33 2C 79 31 29 20 2D 20 24 34 30 shl 3,y1) - $40
01B150: 30 30 3B 0D 0A 20 20 20 7B 24 49 2D 7D 20 73 65 00;.. {$I-} se
01B160: 65 6B 28 73 61 76 73 63 72 66 69 6C 65 2C 73 61 ek(savscrfile,sa
01B170: 64 72 20 73 68 72 20 37 29 3B 0D 0A 20 20 20 62 dr shr 7);.. b
01B180: 6C 6F 63 6B 72 65 61 64 28 73 61 76 73 63 72 66 lockread(savscrf
01B190: 69 6C 65 2C 75 6E 69 62 75 66 66 2C 32 29 3B 7B ile,unibuff,2);{
01B1A0: 24 49 2B 7D 0D 0A 20 20 20 69 66 20 69 6F 72 65 $I+}.. if iore
01B1B0: 73 75 6C 74 3D 30 20 74 68 65 6E 20 62 65 67 69 sult=0 then begi
01B1C0: 6E 20 65 6E 64 3B 20 7B 20 72 65 6D 69 73 65 20 n end; { remise
01B1D0: 61 20 62 6C 61 6E 63 20 64 65 20 49 4F 52 65 73 a blanc de IORes
01B1E0: 75 6C 74 20 7D 0D 0A 20 20 20 6D 6F 76 65 28 75 ult }.. move(u
01B1F0: 6E 69 62 75 66 66 5B 73 61 64 72 20 61 6E 64 20 nibuff[sadr and
01B200: 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 20 20 73 begin.. s
01B210: 61 64 72 3A 3D 53 43 52 5F 44 4F 54 5F 50 4F 53 adr:=SCR_DOT_POS
01B220: 49 54 49 4F 4E 28 78 31 20 73 68 6C 20 33 2C 79 ITION(x1 shl 3,y
01B230: 31 29 20 2D 20 24 34 30 30 30 3B 0D 0A 20 20 20 1) - $4000;..
01B240: 20 20 20 20 73 65 65 6B 28 73 61 76 73 63 72 66 seek(savscrf
01B250: 69 6C 65 2C 73 61 64 72 20 73 68 72 20 37 29 3B ile,sadr shr 7);
01B260: 0D 0A 20 20 20 20 20 20 20 7B 24 49 2D 7D 20 62 .. {$I-} b
01B270: 6C 6F 63 6B 72 65 61 64 28 73 61 76 73 63 72 66 lockread(savscrf
01B280: 69 6C 65 2C 75 6E 69 62 75 66 66 2C 31 29 3B 7B ile,unibuff,1);{
01B290: 24 49 2B 7D 0D 0A 20 20 20 20 20 20 20 69 66 20 $I+}.. if
01B2A0: 69 6F 72 65 73 75 6C 74 3D 30 20 74 68 65 6E 20 ioresult=0 then
01B2B0: 62 65 67 69 6E 20 65 6E 64 3B 20 7B 20 72 65 6D begin end; { rem
01B2C0: 69 73 65 20 61 20 62 6C 61 6E 63 20 64 65 20 49 ise a blanc de I
01B2D0: 4F 52 65 73 75 6C 74 20 7D 0D 0A 20 20 20 20 20 OResult }..
01B2E0: 20 20 75 6E 69 6C 69 6E 65 5B 7A 5D 3A 3D 75 6E uniline[z]:=un
01B2F0: 69 62 75 66 66 5B 73 61 64 72 20 61 6E 64 20 24 ibuff[sadr and $
01B300: 37 66 5D 3B 0D 0A 20 20 20 20 20 20 20 79 31 3A 7f];.. y1:
01B310: 3D 79 31 2B 31 0D 0A 20 20 20 20 20 20 65 6E 64 =y1+1.. end
01B320: 3B 0D 0A 20 20 20 65 6E 64 0D 0A 20 20 20 65 6C ;.. end.. el
01B330: 73 65 20 66 69 6C 6C 63 68 61 72 28 75 6E 69 6C se fillchar(unil
01B340: 69 6E 65 2C 78 6C 2C 28 6E 6F 74 20 47 65 74 43 ine,xl,(not GetC
01B350: 6F 6C 6F 72 29 20 61 6E 64 20 24 46 46 29 3B 0D olor) and $FF);.
01B360: 0A 65 6E 64 3B 0D 0A 0D 0A 70 72 6F 63 65 64 75 .end;....procedu
01B370: 72 65 20 53 43 52 5F 43 6F 70 79 5F 56 65 72 74 re SCR_Copy_Vert
01B380: 69 6B 61 6C 5F 42 79 74 65 6C 69 6E 65 28 78 6C ikal_Byteline(xl
01B390: 2C 78 31 2C 79 3A 49 6E 74 65 67 65 72 29 3B 0D ,x1,y:Integer);.
01B3A0: 0A 62 65 67 69 6E 0D 0A 20 20 20 64 65 3A 3D 61 .begin.. de:=a
01B3B0: 64 64 72 28 75 6E 69 6C 69 6E 65 29 3B 20 68 6C ddr(uniline); hl
01B3C0: 3A 3D 76 61 64 72 28 78 31 2C 79 29 3B 20 62 3A :=vadr(x1,y); b:
01B3D0: 3D 78 6C 3B 20 69 6E 6C 69 6E 65 28 24 63 64 2F =xl; inline($cd/
01B3E0: 76 74 72 61 6E 73 29 3B 0D 0A 65 6E 64 3B 0D 0A vtrans);..end;..
01B3F0: 0D 0A 66 75 6E 63 74 69 6F 6E 20 58 74 65 78 74 ..function Xtext
01B400: 24 37 66 5D 2C 75 6E 69 6C 69 6E 65 2C 78 6C 29 $7f],uniline,xl)
01B410: 3B 0D 0A 65 6E 64 3B 0D 0A 0D 0A 70 72 6F 63 65 ;..end;....proce
01B420: 64 75 72 65 20 52 41 4D 5F 50 55 54 5F 42 59 54 dure RAM_PUT_BYT
01B430: 45 4C 49 4E 45 28 78 6C 2C 78 31 2C 79 31 3A 69 ELINE(xl,x1,y1:i
01B440: 6E 74 65 67 65 72 29 3B 0D 0A 7B 20 74 72 61 6E nteger);..{ tran
01B450: 73 66 65 72 65 20 75 6E 20 42 79 74 65 6C 69 6E sfere un Bytelin
01B460: 65 20 64 65 20 75 6E 69 6C 69 6E 65 20 61 20 52 e de uniline a R
01B470: 61 6D 53 63 72 65 65 6E 20 7D 0D 0A 76 61 72 20 amScreen }..var
01B480: 73 61 64 72 3A 69 6E 74 65 67 65 72 3B 0D 0A 62 sadr:integer;..b
01B490: 65 67 69 6E 0D 0A 20 20 20 73 61 64 72 3A 3D 53 egin.. sadr:=S
01B4A0: 43 52 5F 44 4F 54 5F 50 4F 53 49 54 49 4F 4E 28 CR_DOT_POSITION(
01B4B0: 78 31 20 73 68 6C 20 33 2C 79 31 29 20 2D 20 24 x1 shl 3,y1) - $
01B4C0: 34 30 30 30 3B 0D 0A 20 20 20 73 65 65 6B 28 73 4000;.. seek(s
01B4D0: 61 76 73 63 72 66 69 6C 65 2C 73 61 64 72 20 73 avscrfile,sadr s
01B4E0: 68 72 20 37 29 3B 0D 0A 20 20 20 7B 24 49 2D 7D hr 7);.. {$I-}
01B4F0: 20 62 6C 6F 63 6B 72 65 61 64 28 73 61 76 73 63 blockread(savsc
01B500: 72 66 69 6C 65 2C 75 6E 69 62 75 66 66 2C 32 29 rfile,unibuff,2)
01B510: 3B 7B 24 49 2B 7D 0D 0A 20 20 20 69 66 20 69 6F ;{$I+}.. if io
01B520: 72 65 73 75 6C 74 3D 30 20 74 68 65 6E 20 62 65 result=0 then be
01B530: 67 69 6E 20 65 6E 64 3B 20 7B 20 72 65 6D 69 73 gin end; { remis
01B540: 65 20 61 20 62 6C 61 6E 63 20 64 65 20 49 4F 52 e a blanc de IOR
01B550: 65 73 75 6C 74 20 7D 0D 0A 20 20 20 6D 6F 76 65 esult }.. move
01B560: 28 75 6E 69 6C 69 6E 65 2C 75 6E 69 62 75 66 66 (uniline,unibuff
01B570: 5B 73 61 64 72 20 61 6E 64 20 24 37 66 5D 2C 78 [sadr and $7f],x
01B580: 6C 29 3B 0D 0A 20 20 20 7B 24 49 2D 7D 20 62 6C l);.. {$I-} bl
01B590: 6F 63 6B 77 72 69 74 65 28 73 61 76 73 63 72 66 ockwrite(savscrf
01B5A0: 69 6C 65 2C 75 6E 69 62 75 66 66 2C 32 29 3B 7B ile,unibuff,2);{
01B5B0: 24 49 2B 7D 0D 0A 20 20 20 69 66 20 69 6F 72 65 $I+}.. if iore
01B5C0: 73 75 6C 74 3D 30 20 74 68 65 6E 20 62 65 67 69 sult=0 then begi
01B5D0: 6E 20 65 6E 64 3B 20 7B 20 72 65 6D 69 73 65 20 n end; { remise
01B5E0: 61 20 62 6C 61 6E 63 20 64 65 20 49 4F 52 65 73 a blanc de IORes
01B5F0: 75 6C 74 20 7D 0D 0A 65 6E 64 3B 0D 0A 0D 0A 70 ult }..end;....p
01B600: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
01B610: 17 00 00 00 02 09 50 E5 17 00 41 02 00 00 00 02 ......P...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: 47 6C 62 3A 69 6E 74 65 67 65 72 3B 0D 0A 62 65 Glb:integer;..be
01B710: 67 69 6E 20 73 79 73 74 65 6D 28 24 62 62 37 38 gin system($bb78
01B720: 29 3B 20 78 74 65 78 74 47 6C 62 3A 3D 68 3B 20 ); xtextGlb:=h;
01B730: 65 6E 64 3B 0D 0A 0D 0A 66 75 6E 63 74 69 6F 6E end;....function
01B740: 20 59 74 65 78 74 47 6C 62 3A 69 6E 74 65 67 65 YtextGlb:intege
01B750: 72 3B 0D 0A 62 65 67 69 6E 20 73 79 73 74 65 6D r;..begin system
01B760: 28 24 62 62 37 38 29 3B 20 79 74 65 78 74 47 6C ($bb78); ytextGl
01B770: 62 3A 3D 6C 3B 20 65 6E 64 3B 0D 0A 0D 0A 7B 2D b:=l; end;....{-
01B780: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
01B790: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
01B7A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
01B7B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
01B7C0: 2D 2D 2D 7D 0D 0A 70 72 6F 63 65 64 75 72 65 20 ---}..procedure
01B7D0: 47 6F 74 6F 58 59 28 78 2C 79 3A 69 6E 74 65 67 GotoXY(x,y:integ
01B7E0: 65 72 29 3B 0D 0A 7B 20 70 61 72 63 65 71 75 65 er);..{ parceque
01B7F0: 20 54 55 52 42 4F 20 70 6F 75 72 20 43 50 43 36 TURBO pour CPC6
01B800: 31 32 38 20 65 73 74 20 69 6E 73 74 61 6C 6C 65 128 est installe
01B810: 20 61 76 65 63 20 32 34 20 6C 69 67 6E 65 73 20 avec 24 lignes
01B820: 7D 0D 0A 62 65 67 69 6E 0D 0A 20 20 20 77 72 69 }..begin.. wri
01B830: 74 65 28 23 24 31 62 2C 27 59 27 2C 63 68 72 28 te(#$1b,'Y',chr(
01B840: 79 2B 24 31 66 29 2C 63 68 72 28 78 2B 24 31 66 y+$1f),chr(x+$1f
01B850: 29 29 3B 0D 0A 65 6E 64 3B 0D 0A 0D 0A 70 72 6F ));..end;....pro
01B860: 63 65 64 75 72 65 20 65 72 72 6F 72 28 45 72 72 cedure error(Err
01B870: 50 72 6F 63 2C 45 72 72 43 6F 64 65 3A 69 6E 74 Proc,ErrCode:int
01B880: 65 67 65 72 29 3B 20 66 6F 72 77 61 72 64 3B 20 eger); forward;
01B890: 7B 20 43 6F 64 65 20 65 6E 20 4B 45 52 4E 45 4C { Code en KERNEL
01B8A0: 2E 53 59 53 20 7D 0D 0A 0D 0A 20 70 72 6F 63 65 .SYS }.... proce
01B8B0: 64 75 72 65 20 43 6C 65 61 72 57 69 6E 64 6F 77 dure ClearWindow
01B8C0: 53 74 61 63 6B 28 77 69 6E 3A 69 6E 74 65 67 65 Stack(win:intege
01B8D0: 72 29 3B 0D 0A 20 20 62 65 67 69 6E 0D 0A 20 20 r);.. begin..
01B8E0: 20 20 20 69 66 20 6E 6F 74 20 28 77 69 6E 20 69 if not (win i
01B8F0: 6E 20 5B 31 2E 2E 4D 61 78 57 69 6E 64 6F 77 73 n [1..MaxWindows
01B900: 20 65 6E 64 3B 0D 0A 0D 0A 70 72 6F 63 65 64 75 end;....procedu
01B910: 72 65 20 49 4F 43 68 65 63 6B 28 6E 75 6D 3A 69 re IOCheck(num:i
01B920: 6E 74 65 67 65 72 29 3B 0D 0A 20 20 62 65 67 69 nteger);.. begi
01B930: 6E 0D 0A 20 20 20 20 69 66 20 69 6F 72 65 73 75 n.. if ioresu
01B940: 6C 74 3C 3E 30 20 74 68 65 6E 20 45 72 72 6F 72 lt<>0 then Error
01B950: 28 6E 75 6D 2C 35 29 3B 0D 0A 20 20 65 6E 64 3B (num,5);.. end;
01B960: 0D 0A 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 65 20 ......procedure
01B970: 53 61 76 65 53 63 72 65 65 6E 28 46 69 6C 65 4E SaveScreen(FileN
01B980: 61 6D 65 3A 77 72 6B 73 74 72 69 6E 67 29 3B 20 ame:wrkstring);
01B990: 20 7B 20 53 61 75 76 65 20 6C 27 65 63 72 61 6E { Sauve l'ecran
01B9A0: 20 63 6F 75 72 61 6E 74 20 73 75 72 20 6C 61 20 courant sur la
01B9B0: 64 69 73 71 75 65 74 74 65 0D 0A 20 20 20 20 20 disquette..
01B9C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01B9D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01B9E0: 20 20 20 20 20 20 20 20 65 6E 20 75 74 69 6C 69 en utili
01B9F0: 73 61 6E 74 20 46 69 6C 65 4E 61 6D 65 20 7D 0D sant FileName }.
01BA00: 0A 76 61 72 20 69 3A 69 6E 74 65 67 65 72 3B 0D .var i:integer;.
01BA10: 0A 62 65 67 69 6E 0D 0A 20 20 61 73 73 69 67 6E .begin.. assign
01BA20: 28 75 6E 69 66 69 6C 65 2C 46 69 6C 65 4E 61 6D (unifile,FileNam
01BA30: 65 29 3B 0D 0A 20 20 7B 24 49 2D 7D 20 72 65 77 e);.. {$I-} rew
01BA40: 72 69 74 65 28 75 6E 69 66 69 6C 65 29 3B 20 7B rite(unifile); {
01BA50: 24 49 2B 7D 0D 0A 20 20 49 4F 43 68 65 63 6B 28 $I+}.. IOCheck(
01BA60: 32 37 29 3B 0D 0A 20 20 66 6F 72 20 69 3A 3D 30 27);.. for i:=0
01BA70: 20 74 6F 20 31 32 37 20 64 6F 20 62 65 67 69 6E to 127 do begin
01BA80: 0D 0A 20 20 20 20 20 20 47 52 41 5F 47 45 54 5F .. GRA_GET_
01BA90: 53 43 52 45 45 4E 42 4C 4F 43 4B 28 49 2C 75 6E SCREENBLOCK(I,un
01BAA0: 69 62 75 66 66 29 3B 0D 0A 20 20 20 20 20 20 7B ibuff);.. {
01BAB0: 24 49 2D 7D 20 42 6C 6F 63 6B 77 72 69 74 65 28 $I-} Blockwrite(
01BAC0: 75 6E 69 66 69 6C 65 2C 75 6E 69 62 75 66 66 2C unifile,unibuff,
01BAD0: 31 29 3B 20 7B 24 49 2B 7D 0D 0A 20 20 20 20 20 1); {$I+}..
01BAE0: 20 49 4F 43 68 65 63 6B 28 32 37 29 3B 0D 0A 20 IOCheck(27);..
01BAF0: 20 65 6E 64 3B 0D 0A 20 20 63 6C 6F 73 65 28 75 end;.. close(u
01BB00: 47 6C 62 5D 29 20 74 68 65 6E 20 65 72 72 6F 72 Glb]) then error
01BB10: 28 31 34 2C 32 29 0D 0A 20 20 20 20 20 65 6C 73 (14,2).. els
01BB20: 65 20 77 69 74 68 20 73 74 61 63 6B 5B 77 69 6E e with stack[win
01BB30: 5D 2C 77 20 64 6F 20 62 65 67 69 6E 0D 0A 20 20 ],w do begin..
01BB40: 20 20 20 20 20 20 69 66 20 63 6F 6E 74 65 6E 74 if content
01BB50: 73 20 74 68 65 6E 20 62 65 67 69 6E 0D 0A 20 20 s then begin..
01BB60: 20 20 20 20 20 20 20 20 20 61 73 73 69 67 6E 28 assign(
01BB70: 75 6E 69 66 69 6C 65 2C 27 77 69 6E 66 2E 27 2B unifile,'winf.'+
01BB80: 63 68 72 28 77 69 6E 2B 24 33 30 29 29 3B 0D 0A chr(win+$30));..
01BB90: 20 20 20 20 20 20 20 20 20 20 20 65 72 61 73 65 erase
01BBA0: 28 75 6E 69 66 69 6C 65 29 3B 0D 0A 20 20 20 20 (unifile);..
01BBB0: 20 20 20 20 65 6E 64 3B 0D 0A 20 20 20 20 20 20 end;..
01BBC0: 20 20 63 6F 6E 74 65 6E 74 73 3A 3D 66 61 6C 73 contents:=fals
01BBD0: 65 3B 0D 0A 20 20 20 20 20 65 6E 64 3B 0D 0A 20 e;.. end;..
01BBE0: 20 65 6E 64 3B 0D 0A 0D 0A 70 72 6F 63 65 64 75 end;....procedu
01BBF0: 72 65 20 52 65 73 65 74 57 69 6E 64 6F 77 53 74 re ResetWindowSt
01BC00: 61 63 6B 3B 0D 0A 20 20 76 61 72 20 69 3A 69 6E ack;.. var i:in
01BC10: 74 65 67 65 72 3B 0D 0A 20 20 62 65 67 69 6E 0D teger;.. begin.
01BC20: 0A 20 20 20 20 66 6F 72 20 69 3A 3D 31 20 74 6F . for i:=1 to
01BC30: 20 4D 61 78 57 69 6E 64 6F 77 73 47 6C 62 20 64 MaxWindowsGlb d
01BC40: 6F 20 43 6C 65 61 72 57 69 6E 64 6F 77 53 74 61 o ClearWindowSta
01BC50: 63 6B 28 69 29 3B 0D 0A 20 20 65 6E 64 3B 0D 0A ck(i);.. end;..
01BC60: 0D 0A 70 72 6F 63 65 64 75 72 65 20 4C 65 61 76 ..procedure Leav
01BC70: 65 47 72 61 70 68 69 63 3B 20 20 20 20 20 20 20 eGraphic;
01BC80: 20 20 7B 20 65 74 65 69 6E 74 20 6C 65 20 6D 6F { eteint le mo
01BC90: 64 65 20 67 72 61 70 68 69 71 75 65 7D 0D 0A 20 de graphique}..
01BCA0: 20 62 65 67 69 6E 0D 0A 20 20 20 20 73 79 73 74 begin.. syst
01BCB0: 65 6D 28 24 62 62 37 62 29 3B 20 20 7B 63 75 72 em($bb7b); {cur
01BCC0: 73 65 75 72 20 74 65 78 74 65 20 70 65 72 6D 69 seur texte permi
01BCD0: 73 7D 0D 0A 20 20 20 20 77 72 69 74 65 28 23 24 s}.. write(#$
01BCE0: 31 62 2C 27 31 27 2C 23 24 31 62 2C 27 78 27 2C 1b,'1',#$1b,'x',
01BCF0: 23 24 31 62 2C 27 76 27 29 3B 0D 0A 20 20 20 20 #$1b,'v');..
01BD00: 6E 69 66 69 6C 65 29 3B 0D 0A 20 20 69 6F 63 68 nifile);.. ioch
01BD10: 65 63 6B 28 32 37 29 3B 0D 0A 65 6E 64 3B 0D 0A eck(27);..end;..
01BD20: 0D 0A 70 72 6F 63 65 64 75 72 65 20 53 65 6C 65 ..procedure Sele
01BD30: 63 74 53 63 72 65 65 6E 28 69 3A 69 6E 74 65 67 ctScreen(i:integ
01BD40: 65 72 29 3B 0D 0A 62 65 67 69 6E 20 61 63 74 75 er);..begin actu
01BD50: 61 6C 5F 73 63 72 65 65 6E 3A 3D 69 3B 20 65 6E al_screen:=i; en
01BD60: 64 3B 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 65 20 d;....procedure
01BD70: 4C 6F 61 64 53 63 72 65 65 6E 28 46 69 6C 65 4E LoadScreen(FileN
01BD80: 61 6D 65 3A 77 72 6B 73 74 72 69 6E 67 29 3B 20 ame:wrkstring);
01BD90: 20 7B 63 68 61 72 67 65 20 6C 27 65 63 72 61 6E {charge l'ecran
01BDA0: 20 64 65 70 75 69 73 20 6C 65 20 66 69 63 68 69 depuis le fichi
01BDB0: 65 72 20 46 69 6C 65 4E 61 6D 65 7D 0D 0A 76 61 er FileName}..va
01BDC0: 72 20 69 3A 69 6E 74 65 67 65 72 3B 0D 0A 62 65 r i:integer;..be
01BDD0: 67 69 6E 0D 0A 20 20 61 73 73 69 67 6E 28 75 6E gin.. assign(un
01BDE0: 69 66 69 6C 65 2C 46 69 6C 65 4E 61 6D 65 29 3B ifile,FileName);
01BDF0: 0D 0A 20 20 7B 24 49 2D 7D 20 72 65 73 65 74 28 .. {$I-} reset(
01BE00: 75 6E 69 66 69 6C 65 29 3B 20 7B 24 49 2B 7D 0D unifile); {$I+}.
01BE10: 0A 20 20 69 6F 63 68 65 63 6B 28 31 31 29 3B 0D . iocheck(11);.
01BE20: 0A 20 20 66 6F 72 20 69 3A 3D 30 20 74 6F 20 31 . for i:=0 to 1
01BE30: 32 37 20 64 6F 20 62 65 67 69 6E 0D 0A 20 20 20 27 do begin..
01BE40: 20 20 20 62 6C 6F 63 6B 72 65 61 64 28 75 6E 69 blockread(uni
01BE50: 66 69 6C 65 2C 75 6E 69 62 75 66 66 2C 31 29 3B file,unibuff,1);
01BE60: 0D 0A 20 20 20 20 20 20 47 52 41 5F 50 55 54 5F .. GRA_PUT_
01BE70: 53 43 52 45 45 4E 42 4C 4F 43 4B 28 49 2C 75 6E SCREENBLOCK(I,un
01BE80: 69 62 75 66 66 29 3B 0D 0A 20 20 65 6E 64 3B 0D ibuff);.. end;.
01BE90: 0A 20 20 63 6C 6F 73 65 28 75 6E 69 66 69 6C 65 . close(unifile
01BEA0: 29 3B 0D 0A 65 6E 64 3B 0D 0A 0D 0A 70 72 6F 63 );..end;....proc
01BEB0: 65 64 75 72 65 20 53 77 61 70 53 63 72 65 65 6E edure SwapScreen
01BEC0: 3B 0D 0A 76 61 72 20 69 3A 69 6E 74 65 67 65 72 ;..var i:integer
01BED0: 3B 0D 0A 62 65 67 69 6E 0D 0A 20 20 73 65 65 6B ;..begin.. seek
01BEE0: 28 73 61 76 73 63 72 66 69 6C 65 2C 30 29 3B 0D (savscrfile,0);.
01BEF0: 0A 20 20 66 6F 72 20 69 3A 3D 30 20 74 6F 20 31 . for i:=0 to 1
01BF00: 7B 24 49 2D 7D 20 63 6C 6F 73 65 28 73 61 76 73 {$I-} close(savs
01BF10: 63 72 66 69 6C 65 29 3B 20 65 72 61 73 65 28 73 crfile); erase(s
01BF20: 61 76 73 63 72 66 69 6C 65 29 3B 20 7B 24 49 2B avscrfile); {$I+
01BF30: 7D 0D 0A 20 20 20 20 69 66 20 69 6F 72 65 73 75 }.. if ioresu
01BF40: 6C 74 3D 30 20 74 68 65 6E 20 62 65 67 69 6E 20 lt=0 then begin
01BF50: 65 6E 64 3B 20 7B 20 72 65 6D 69 73 65 20 61 20 end; { remise a
01BF60: 62 6C 61 6E 63 20 64 65 20 49 4F 52 65 73 75 6C blanc de IOResul
01BF70: 74 20 7D 0D 0A 20 20 20 20 72 65 73 65 74 57 69 t }.. resetWi
01BF80: 6E 64 6F 77 53 74 61 63 6B 3B 0D 0A 20 20 45 6E ndowStack;.. En
01BF90: 64 3B 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 65 20 d;....procedure
01BFA0: 43 6C 65 61 72 53 63 72 65 65 6E 3B 0D 0A 20 20 ClearScreen;..
01BFB0: 62 65 67 69 6E 20 73 79 73 74 65 6D 28 24 62 63 begin system($bc
01BFC0: 31 34 29 3B 20 65 6E 64 3B 0D 0A 0D 0A 70 72 6F 14); end;....pro
01BFD0: 63 65 64 75 72 65 20 45 6E 74 65 72 47 72 61 70 cedure EnterGrap
01BFE0: 68 69 63 3B 20 20 20 20 20 20 20 20 20 7B 20 61 hic; { a
01BFF0: 6C 6C 75 6D 65 20 6C 65 20 6D 6F 64 65 20 67 72 llume le mode gr
01C000: 61 70 68 69 71 75 65 2C 76 69 64 65 20 6C 27 65 aphique,vide l'e
01C010: 63 72 61 6E 7D 0D 0A 20 20 76 61 72 20 69 3A 69 cran}.. var i:i
01C020: 6E 74 65 67 65 72 3B 0D 0A 20 20 62 65 67 69 6E nteger;.. begin
01C030: 0D 0A 20 20 20 20 77 72 69 74 65 28 23 24 31 62 .. write(#$1b
01C040: 2C 27 79 27 2C 23 24 31 62 2C 27 30 27 2C 23 24 ,'y',#$1b,'0',#$
01C050: 31 62 2C 27 77 27 29 3B 0D 0A 20 20 20 20 73 79 1b,'w');.. sy
01C060: 73 74 65 6D 28 24 62 62 37 65 29 3B 20 7B 20 63 stem($bb7e); { c
01C070: 75 72 73 65 75 72 20 74 65 78 74 65 20 6E 6F 6E urseur texte non
01C080: 20 70 65 72 6D 69 73 7D 0D 0A 20 20 20 20 43 6C permis}.. Cl
01C090: 65 61 72 53 63 72 65 65 6E 3B 0D 0A 20 20 20 20 earScreen;..
01C0A0: 69 6E 6C 69 6E 65 28 24 32 31 2F 76 69 64 65 6F inline($21/video
01C0B0: 41 63 63 65 73 73 2F 24 30 31 2F 31 37 33 2F 30 Access/$01/173/0
01C0C0: 2F 24 31 31 2F 62 61 6E 6B 6F 6E 2F 24 65 64 2F /$11/bankon/$ed/
01C0D0: 24 62 30 29 3B 0D 0A 20 20 20 20 61 73 73 69 67 $b0);.. assig
01C0E0: 6E 28 73 61 76 73 63 72 66 69 6C 65 2C 27 73 61 n(savscrfile,'sa
01C0F0: 76 73 63 72 2E 24 24 24 27 29 3B 0D 0A 20 20 20 vscr.$$$');..
01C100: 32 37 20 64 6F 20 62 65 67 69 6E 0D 0A 20 20 20 27 do begin..
01C110: 20 20 47 52 41 5F 47 45 54 5F 53 43 52 45 45 4E GRA_GET_SCREEN
01C120: 42 4C 4F 43 4B 28 49 2C 75 6E 69 62 75 66 66 29 BLOCK(I,unibuff)
01C130: 3B 0D 0A 20 20 20 20 20 62 6C 6F 63 6B 72 65 61 ;.. blockrea
01C140: 64 28 73 61 76 73 63 72 66 69 6C 65 2C 75 6E 69 d(savscrfile,uni
01C150: 62 75 66 66 5B 31 32 38 5D 2C 31 29 3B 0D 0A 20 buff[128],1);..
01C160: 20 20 20 20 47 52 41 5F 50 55 54 5F 53 43 52 45 GRA_PUT_SCRE
01C170: 45 4E 42 4C 4F 43 4B 28 49 2C 75 6E 69 62 75 66 ENBLOCK(I,unibuf
01C180: 66 5B 31 32 38 5D 29 3B 0D 0A 20 20 20 20 20 73 f[128]);.. s
01C190: 65 65 6B 28 73 61 76 73 63 72 66 69 6C 65 2C 69 eek(savscrfile,i
01C1A0: 29 3B 0D 0A 20 20 20 20 20 62 6C 6F 63 6B 77 72 );.. blockwr
01C1B0: 69 74 65 28 73 61 76 73 63 72 66 69 6C 65 2C 75 ite(savscrfile,u
01C1C0: 6E 69 62 75 66 66 2C 31 29 3B 0D 0A 20 20 65 6E nibuff,1);.. en
01C1D0: 64 3B 0D 0A 65 6E 64 3B 0D 0A 0D 0A 70 72 6F 63 d;..end;....proc
01C1E0: 65 64 75 72 65 20 47 65 74 5F 5F 53 63 72 65 65 edure Get__Scree
01C1F0: 6E 3B 0D 0A 76 61 72 20 69 3A 69 6E 74 65 67 65 n;..var i:intege
01C200: 72 3B 0D 0A 62 65 67 69 6E 0D 0A 20 20 73 65 65 r;..begin.. see
01C210: 6B 28 73 61 76 73 63 72 66 69 6C 65 2C 30 29 3B k(savscrfile,0);
01C220: 0D 0A 20 20 66 6F 72 20 69 3A 3D 30 20 74 6F 20 .. for i:=0 to
01C230: 31 32 37 20 64 6F 20 62 65 67 69 6E 0D 0A 20 20 127 do begin..
01C240: 20 20 20 20 47 52 41 5F 47 45 54 5F 53 43 52 45 GRA_GET_SCRE
01C250: 45 4E 42 4C 4F 43 4B 28 49 2C 75 6E 69 62 75 66 ENBLOCK(I,unibuf
01C260: 66 29 3B 0D 0A 20 20 20 20 20 20 7B 24 49 2D 7D f);.. {$I-}
01C270: 20 42 6C 6F 63 6B 77 72 69 74 65 28 73 61 76 73 Blockwrite(savs
01C280: 63 72 46 69 6C 65 2C 75 6E 69 62 75 66 66 2C 31 crFile,unibuff,1
01C290: 29 3B 20 7B 24 49 2B 7D 0D 0A 20 20 20 20 20 20 ); {$I+}..
01C2A0: 49 4F 43 68 65 63 6B 28 31 31 29 3B 0D 0A 20 20 IOCheck(11);..
01C2B0: 65 6E 64 3B 0D 0A 65 6E 64 3B 0D 0A 0D 0A 70 72 end;..end;....pr
01C2C0: 6F 63 65 64 75 72 65 20 50 75 74 5F 5F 53 63 72 ocedure Put__Scr
01C2D0: 65 65 6E 3B 0D 0A 76 61 72 20 69 3A 69 6E 74 65 een;..var i:inte
01C2E0: 67 65 72 3B 0D 0A 62 65 67 69 6E 0D 0A 20 20 73 ger;..begin.. s
01C2F0: 65 65 6B 28 73 61 76 73 63 72 66 69 6C 65 2C 30 eek(savscrfile,0
01C300: 20 72 65 77 72 69 74 65 28 73 61 76 73 63 72 66 rewrite(savscrf
01C310: 69 6C 65 29 3B 0D 0A 20 20 20 20 66 69 6C 6C 63 ile);.. fillc
01C320: 68 61 72 28 75 6E 69 62 75 66 66 2C 32 35 36 2C har(unibuff,256,
01C330: 30 29 3B 0D 0A 20 20 20 20 66 6F 72 20 69 3A 3D 0);.. for i:=
01C340: 30 20 74 6F 20 36 33 20 64 6F 20 62 6C 6F 63 6B 0 to 63 do block
01C350: 77 72 69 74 65 28 73 61 76 73 63 72 66 69 6C 65 write(savscrfile
01C360: 2C 75 6E 69 62 75 66 66 2C 32 29 3B 0D 0A 20 20 ,unibuff,2);..
01C370: 65 6E 64 3B 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 end;....procedur
01C380: 65 20 53 65 74 46 6F 72 65 67 72 6F 75 6E 64 43 e SetForegroundC
01C390: 6F 6C 6F 72 28 43 6F 6C 6F 72 3A 69 6E 74 65 67 olor(Color:integ
01C3A0: 65 72 29 3B 0D 0A 20 20 62 65 67 69 6E 20 63 6F er);.. begin co
01C3B0: 6C 6F 72 67 6C 62 28 43 4F 4C 4F 52 29 3B 20 65 lorglb(COLOR); e
01C3C0: 6E 64 3B 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 65 nd;....procedure
01C3D0: 20 53 65 74 42 61 63 6B 67 72 6F 75 6E 64 43 6F SetBackgroundCo
01C3E0: 6C 6F 72 28 43 6F 6C 6F 72 3A 69 6E 74 65 67 65 lor(Color:intege
01C3F0: 72 29 3B 0D 0A 20 20 62 65 67 69 6E 20 61 6B 6B r);.. begin akk
01C400: 75 3A 3D 63 6F 6C 6F 72 3B 20 73 79 73 74 65 6D u:=color; system
01C410: 28 24 62 62 65 34 29 3B 20 65 6E 64 3B 0D 0A 0D ($bbe4); end;...
01C420: 0A 70 72 6F 63 65 64 75 72 65 20 44 50 28 58 2C .procedure DP(X,
01C430: 59 3A 69 6E 74 65 67 65 72 29 3B 0D 0A 20 20 62 Y:integer);.. b
01C440: 65 67 69 6E 20 68 6C 3A 3D 28 31 39 39 2D 79 29 egin hl:=(199-y)
01C450: 20 73 68 6C 20 31 3B 20 64 65 3A 3D 78 3B 20 73 shl 1; de:=x; s
01C460: 79 73 74 65 6D 28 24 62 62 65 61 29 3B 20 65 6E ystem($bbea); en
01C470: 64 3B 0D 0A 0D 0A 66 75 6E 63 74 69 6F 6E 20 50 d;....function P
01C480: 44 28 78 2C 79 3A 69 6E 74 65 67 65 72 29 3A 62 D(x,y:integer):b
01C490: 6F 6F 6C 65 61 6E 3B 0D 0A 20 20 62 65 67 69 6E oolean;.. begin
01C4A0: 20 68 6C 3A 3D 28 31 39 39 2D 79 29 20 73 68 6C hl:=(199-y) shl
01C4B0: 20 31 3B 20 64 65 3A 3D 78 3B 20 73 79 73 74 65 1; de:=x; syste
01C4C0: 6D 28 24 62 62 46 30 29 3B 20 70 64 3A 3D 61 6B m($bbF0); pd:=ak
01C4D0: 6B 75 3C 3E 30 3B 20 65 6E 64 3B 0D 0A 0D 0A 70 ku<>0; end;....p
01C4E0: 72 6F 63 65 64 75 72 65 20 53 65 74 42 61 63 6B rocedure SetBack
01C4F0: 67 72 6F 75 6E 64 38 28 42 61 63 6B 67 72 6F 75 ground8(Backgrou
01C500: 29 3B 0D 0A 20 20 66 6F 72 20 69 3A 3D 30 20 74 );.. for i:=0 t
01C510: 6F 20 31 32 37 20 64 6F 20 62 65 67 69 6E 0D 0A o 127 do begin..
01C520: 20 20 20 20 20 20 7B 24 49 2D 7D 20 42 6C 6F 63 {$I-} Bloc
01C530: 6B 72 65 61 64 28 73 61 76 73 63 72 46 69 6C 65 kread(savscrFile
01C540: 2C 75 6E 69 62 75 66 66 2C 31 29 3B 20 7B 24 49 ,unibuff,1); {$I
01C550: 2B 7D 0D 0A 20 20 20 20 20 20 49 4F 43 68 65 63 +}.. IOChec
01C560: 6B 28 31 31 29 3B 0D 0A 20 20 20 20 20 20 47 52 k(11);.. GR
01C570: 41 5F 50 55 54 5F 53 43 52 45 45 4E 42 4C 4F 43 A_PUT_SCREENBLOC
01C580: 4B 28 49 2C 75 6E 69 62 75 66 66 29 3B 0D 0A 20 K(I,unibuff);..
01C590: 20 65 6E 64 3B 0D 0A 65 6E 64 3B 0D 0A 0D 0A 70 end;..end;....p
01C5A0: 72 6F 63 65 64 75 72 65 20 43 6F 70 79 53 63 72 rocedure CopyScr
01C5B0: 65 65 6E 3B 20 20 20 20 7B 20 43 6F 70 69 65 20 een; { Copie
01C5C0: 6C 65 20 63 6F 6E 74 65 6E 75 20 64 65 20 6C 27 le contenu de l'
01C5D0: 65 63 72 61 6E 20 63 6F 75 72 61 6E 74 20 64 61 ecran courant da
01C5E0: 6E 73 20 75 6E 20 61 75 74 72 65 20 65 63 72 61 ns un autre ecra
01C5F0: 6E 7D 0D 0A 62 65 67 69 6E 0D 0A 20 20 69 66 20 n}..begin.. if
01C600: 61 63 74 75 61 6C 5F 73 63 72 65 65 6E 3D 32 20 actual_screen=2
01C610: 74 68 65 6E 20 70 75 74 5F 5F 73 63 72 65 65 6E then put__screen
01C620: 20 65 6C 73 65 20 67 65 74 5F 5F 53 63 72 65 65 else get__Scree
01C630: 6E 3B 0D 0A 65 6E 64 3B 0D 0A 0D 0A 70 72 6F 63 n;..end;....proc
01C640: 65 64 75 72 65 20 49 6E 76 65 72 74 53 63 72 65 edure InvertScre
01C650: 65 6E 3B 0D 0A 62 65 67 69 6E 20 62 63 3A 3D 24 en;..begin bc:=$
01C660: 34 30 30 30 3B 20 68 6C 3A 3D 24 34 30 30 30 3B 4000; hl:=$4000;
01C670: 20 69 6E 6C 69 6E 65 28 24 63 64 2F 69 6E 76 6C inline($cd/invl
01C680: 69 6E 29 3B 20 65 6E 64 3B 0D 0A 1A 1A 1A 1A 1A in); end;.......
01C690: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
01C6A0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
01C6B0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
01C6C0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
01C6D0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
01C6E0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
01C6F0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
01C700: 6E 64 3A 42 61 63 6B 67 72 6F 75 6E 64 41 72 72 nd:BackgroundArr
01C710: 61 79 29 3B 0D 0A 20 20 76 61 72 20 69 3A 69 6E ay);.. var i:in
01C720: 74 65 67 65 72 3B 0D 0A 20 20 62 65 67 69 6E 0D teger;.. begin.
01C730: 0A 20 20 20 20 66 6F 72 20 69 3A 3D 59 31 52 65 . for i:=Y1Re
01C740: 66 47 6C 62 20 74 6F 20 59 32 52 65 66 47 6C 62 fGlb to Y2RefGlb
01C750: 20 64 6F 0D 0A 20 20 20 20 20 20 20 20 53 43 52 do.. SCR
01C760: 5F 46 49 4C 4C 43 48 41 52 28 42 61 63 6B 67 72 _FILLCHAR(Backgr
01C770: 6F 75 6E 64 5B 69 20 61 6E 64 20 37 5D 2C 58 32 ound[i and 7],X2
01C780: 52 65 66 47 6C 62 2D 58 31 52 65 66 47 6C 62 2B RefGlb-X1RefGlb+
01C790: 31 2C 78 31 72 65 66 67 6C 62 2C 69 29 3B 0D 0A 1,x1refglb,i);..
01C7A0: 20 20 65 6E 64 3B 0D 0A 0D 0A 70 72 6F 63 65 64 end;....proced
01C7B0: 75 72 65 20 53 65 74 42 61 63 6B 67 72 6F 75 6E ure SetBackgroun
01C7C0: 64 28 62 79 74 3A 62 79 74 65 29 3B 0D 0A 20 20 d(byt:byte);..
01C7D0: 76 61 72 20 62 6B 3A 42 61 63 6B 67 72 6F 75 6E var bk:Backgroun
01C7E0: 64 41 72 72 61 79 3B 0D 0A 20 20 62 65 67 69 6E dArray;.. begin
01C7F0: 0D 0A 20 20 20 20 66 69 6C 6C 63 68 61 72 28 62 .. fillchar(b
01C800: 6B 2C 38 2C 62 79 74 29 3B 0D 0A 20 20 20 20 53 k,8,byt);.. S
01C810: 65 74 42 61 63 6B 67 72 6F 75 6E 64 38 28 62 6B etBackground8(bk
01C820: 29 3B 0D 0A 20 20 65 6E 64 3B 0D 0A 0D 0A 70 72 );.. end;....pr
01C830: 6F 63 65 64 75 72 65 20 44 72 61 77 53 74 72 61 ocedure DrawStra
01C840: 69 67 68 74 28 78 31 2C 78 32 2C 79 3A 69 6E 74 ight(x1,x2,y:int
01C850: 65 67 65 72 29 3B 20 20 7B 20 74 72 61 63 65 20 eger); { trace
01C860: 75 6E 65 20 6C 69 67 6E 65 20 68 6F 72 69 7A 6F une ligne horizo
01C870: 6E 74 61 6C 65 20 64 65 70 75 69 73 0D 0A 20 20 ntale depuis..
01C880: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01C890: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01C8A0: 20 20 20 20 20 20 20 20 20 20 78 31 2C 79 20 74 x1,y t
01C8B0: 6F 20 78 32 2C 79 20 7D 0D 0A 20 20 62 65 67 69 o x2,y }.. begi
01C8C0: 6E 0D 0A 20 20 20 20 47 52 41 5F 4D 4F 56 45 5F n.. GRA_MOVE_
01C8D0: 41 42 53 4F 4C 55 54 45 28 58 31 2C 59 29 3B 0D ABSOLUTE(X1,Y);.
01C8E0: 0A 20 20 20 20 47 52 41 5F 4C 49 4E 45 5F 41 42 . GRA_LINE_AB
01C8F0: 53 4F 4C 55 54 45 28 58 32 2C 59 29 3B 0D 0A 20 SOLUTE(X2,Y);..
01C900: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
01C910: 18 00 00 00 02 09 4E E5 18 00 41 02 00 00 00 02 ......N...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: 2A 2A DD E5 2A 7C F2 D1 CD CC 06 CB 45 CA 16 39 **..*|......E..9
01CA10: 2A 2A DD 22 7C F2 C3 4B 39 2A 2A DD E5 CD 81 05 **."|..K9**.....
01CA20: 21 01 00 E5 21 10 00 CD 9B 05 CD 4F 13 CB 45 CA !...!......O..E.
01CA30: 40 39 21 03 00 E5 21 03 00 E5 CD 76 2B C3 4B 39 @9!...!....v+.K9
01CA40: 21 03 00 E5 21 02 00 E5 CD 76 2B C9 FD E1 E1 22 !...!....v+...."
01CA50: 10 DD E1 22 12 DD E1 22 14 DD E1 22 16 DD E1 22 ..."..."..."..."
01CA60: 18 DD FD E5 2A 18 DD E5 2A 16 DD E5 2A 14 DD E5 ....*...*...*...
01CA70: 2A 12 DD E5 2A 10 DD E5 CD 16 38 21 B4 EB E5 2A *...*.....8!...*
01CA80: 18 DD 2B E5 29 29 E5 29 E5 29 E5 29 29 D1 19 D1 ..+.)).).).))...
01CA90: 19 D1 19 D1 19 D1 19 22 08 DD 2A 08 DD 11 08 00 ......."..*.....
01CAA0: 19 E5 CD 4D 05 00 06 50 CD 01 06 2A 08 DD 11 5A ...M...P...*...Z
01CAB0: 00 19 E5 21 01 00 EB E1 73 2A 08 DD 11 59 00 19 ...!....s*...Y..
01CAC0: E5 21 00 00 EB E1 73 C9 FD E1 E1 22 02 DD E1 22 .!....s...."..."
01CAD0: 04 DD FD E5 2A 04 DD E5 21 01 00 D1 EB B7 ED 52 ....*...!......R
01CAE0: E5 21 7F 02 E5 21 01 00 D1 19 E5 21 50 00 D1 CD .!...!.....!P...
01CAF0: 0F 07 D1 CD F5 06 E5 2A 02 DD D1 EB B7 ED 52 E5 .......*......R.
01CB00: 21 08 00 D1 CD 0F 07 22 F8 DC 2A F8 DC E5 21 00 !......"..*...!.
01CB10: 00 D1 CD E0 06 CB 45 CA 23 3A 21 00 00 22 F8 DC ......E.#:!.."..
01CB20: C3 39 3A 2A F8 DC E5 21 4F 00 D1 CD CC 06 CB 45 .9:*...!O......E
01CB30: CA 39 3A 21 4F 00 22 F8 DC 2A F8 DC 22 06 DD 2A .9:!O."..*.."..*
01CB40: 06 DD C9 FD E1 E1 22 F2 DC E1 22 F4 DC FD E5 21 ......"..."....!
01CB50: 7F 02 E5 21 01 00 D1 19 E5 21 50 00 D1 CD 0F 07 ...!.....!P.....
01CB60: 22 E8 DC 2A F4 DC E5 2A E8 DC D1 CD F5 06 E5 2A "..*...*.......*
01CB70: F2 DC D1 19 E5 21 01 00 D1 EB B7 ED 52 E5 21 08 .....!......R.!.
01CB80: 00 D1 CD 0F 07 22 E8 DC 2A E8 DC E5 21 00 00 D1 ....."..*...!...
01CB90: CD E0 06 CB 45 CA A1 3A 21 00 00 22 E8 DC C3 B7 ....E..:!.."....
01CBA0: 3A 2A E8 DC E5 21 4F 00 D1 CD CC 06 CB 45 CA B7 :*...!O......E..
01CBB0: 3A 21 4F 00 22 E8 DC 2A E8 DC 22 F6 DC 2A F6 DC :!O."..*.."..*..
01CBC0: C9 FD E1 E1 22 E2 DC E1 22 E4 DC FD E5 2A E4 DC ...."..."....*..
01CBD0: E5 21 01 00 D1 EB B7 ED 52 E5 21 C7 00 E5 21 01 .!......R.!...!.
01CBE0: 00 D1 19 E5 21 19 00 D1 CD 0F 07 D1 CD F5 06 E5 ....!...........
01CBF0: 2A E2 DC D1 EB B7 ED 52 22 D8 DC 2A D8 DC E5 21 *......R"..*...!
01CC00: 99 DA C3 1B 43 2A 97 DA E5 2A 93 DA D1 CD CC 06 ....C*...*......
01CC10: CB 45 CA 1B 43 21 01 00 22 99 DA 2A 99 DA C9 FD .E..C!.."..*....
01CC20: E1 E1 22 B2 DA E1 22 B4 DA E1 22 B6 DA E1 22 B8 .."..."..."...".
01CC30: DA FD E5 21 01 00 7D 32 BA DA 21 01 00 7D 32 9B ...!..}2..!..}2.
01CC40: DA 2A 6D F2 26 00 CB 45 CA 14 48 2A 6B F2 26 00 .*m.&..E..H*k.&.
01CC50: CB 45 CA 64 43 2A 88 F2 22 9E DA 2A 86 F2 22 9C .E.dC*.."..*..".
01CC60: DA C3 86 43 2A 88 F2 E5 21 03 00 D1 CD 4E 07 22 ...C*...!....N."
01CC70: 9E DA 2A 86 F2 E5 21 03 00 D1 CD 4E 07 E5 21 07 ..*...!....N..!.
01CC80: 00 D1 19 22 9C DA 2A B8 DA 5E 23 56 EB E5 2A 9E ..."..*..^#V..*.
01CC90: DA E5 2A 9C DA E5 CD D6 42 22 A8 DA 2A B6 DA 5E ..*.....B"..*..^
01CCA0: 23 56 EB E5 2A 84 F2 E5 2A 82 F2 E5 CD D6 42 22 #V..*...*.....B"
01CCB0: A6 DA 2A B4 DA 5E 23 56 EB E5 2A 9E DA E5 2A 9C ..*..^#V..*...*.
01CCC0: DA E5 CD D6 42 22 A4 DA 2A B2 DA 5E 23 56 EB E5 ....B"..*..^#V..
01CCD0: 2A 84 F2 E5 2A 82 F2 E5 CD D6 42 22 A2 DA 2A A8 *...*.....B"..*.
01CCE0: DA E5 2A A4 DA D1 7C B2 67 7D B3 6F E5 2A A6 DA ..*...|.g}.o.*..
01CCF0: D1 7C B2 67 7D B3 6F E5 2A A2 DA D1 7C B2 67 7D .|.g}.o.*...|.g}
01CD00: B3 6F E5 21 00 00 D1 CD 92 06 CB 45 CA 14 48 2A .o.!.......E..H*
01CD10: B8 DA 5E 23 56 EB E5 2A B4 DA 5E 23 56 EB D1 CD ..^#V..*..^#V...
01CD20: 92 06 CB 45 CA D7 45 2A A8 DA E5 21 00 00 D1 CD ...E..E*...!....
01CD30: 92 06 CB 45 CA DD 44 2A A8 DA E5 21 00 00 D1 CD ...E..D*...!....
01CD40: E0 06 CB 45 CA 50 44 2A 9E DA 22 A0 DA C3 56 44 ...E.PD*.."...VD
01CD50: 2A 9C DA 22 A0 DA 2A B2 DA 5E 23 56 EB E5 2A B6 *.."..*..^#V..*.
01CD60: DA 5E 23 56 EB D1 CD 92 06 CB 45 CA D3 44 2A B6 .^#V......E..D*.
01CD70: DA 5E 23 56 EB E5 2A B2 DA 5E 23 56 EB E5 2A B6 .^#V..*..^#V..*.
01CD80: DA 5E 23 56 EB D1 EB B7 ED 52 E5 2A B4 DA 5E 23 .^#V.....R.*..^#
01CD90: 56 EB E5 2A B8 DA 5E 23 56 EB D1 EB B7 ED 52 CD V..*..^#V.....R.
01CDA0: 08 10 D9 E1 CD 08 10 CD FF 09 C5 D5 E5 2A A0 DA .............*..
01CDB0: E5 2A B8 DA 5E 23 56 EB D1 EB B7 ED 52 CD 08 10 .*..^#V.....R...
01CDC0: D9 E1 D1 C1 CD FA 09 CD DE 0F D1 19 EB 2A B6 DA .............*..
01CDD0: 73 23 72 2A A0 DA EB 2A B8 DA 73 23 72 2A A4 DA s#r*...*..s#r*..
01CDE0: E5 21 00 00 D1 CD 92 06 E5 2A B8 DA 5E 23 56 EB .!.......*..^#V.
01CDF0: E5 2A B4 DA 5E 23 56 EB D1 CD 92 06 D1 7D A3 6F .*..^#V......}£o
01CE00: 00 00 D1 CD E0 06 CB 45 CA 14 3B 21 00 00 22 D8 .......E..;!..".
01CE10: DC C3 2A 3B 2A D8 DC E5 21 C7 00 D1 CD CC 06 CB ..*;*...!.......
01CE20: 45 CA 2A 3B 21 C7 00 22 D8 DC 2A D8 DC 22 E6 DC E.*;!.."..*.."..
01CE30: 2A E6 DC C9 FD E1 E1 22 D2 DC E1 22 D4 DC FD E5 *......"..."....
01CE40: 2A D4 DC E5 21 C7 00 E5 21 01 00 D1 19 E5 21 19 *...!...!.....!.
01CE50: 00 D1 CD 0F 07 D1 CD F5 06 E5 2A D2 DC D1 19 E5 ..........*.....
01CE60: 21 01 00 D1 EB B7 ED 52 22 C8 DC 2A C8 DC E5 21 !......R"..*...!
01CE70: 00 00 D1 CD E0 06 CB 45 CA 84 3B 21 00 00 22 C8 .......E..;!..".
01CE80: DC C3 9A 3B 2A C8 DC E5 21 C7 00 D1 CD CC 06 CB ...;*...!.......
01CE90: 45 CA 9A 3B 21 C7 00 22 C8 DC 2A C8 DC 22 D6 DC E..;!.."..*.."..
01CEA0: 2A D6 DC C9 FD E1 E1 22 BC DC E1 22 BE DC E1 22 *......"..."..."
01CEB0: C0 DC E1 22 C2 DC E1 22 C4 DC E1 22 C6 DC FD E5 ..."..."..."....
01CEC0: 2A C6 DC E5 2A C4 DC E5 2A BC DC E5 CD C8 39 E5 *...*...*.....9.
01CED0: 2A C2 DC E5 2A BC DC E5 CD C1 3A E5 2A C0 DC E5 *...*.....:.*...
01CEE0: 2A BC DC E5 CD 43 3A E5 2A BE DC E5 2A BC DC E5 *....C:.*...*...
01CEF0: CD 34 3B E5 CD 4C 39 C9 FD E1 E1 22 B2 DC FD E5 .4;..L9...."....
01CF00: 2A B2 DC E5 CD 81 05 21 01 00 E5 2A 7C F2 CD 9B *......!...*|...
01CF10: 05 CD 4F 13 CB 45 CA 92 3D 21 B4 EB E5 2A B2 DC ..O..E..=!...*..
01CF20: 2B E5 29 29 E5 29 E5 29 E5 29 29 D1 19 D1 19 D1 +.)).).).)).....
01CF30: 19 D1 19 D1 19 22 AA DC 2A B2 DC 22 7A F2 2A AA ....."..*.."z.*.
01CF40: DC 5E 23 56 EB 22 88 F2 2A AA DC 11 02 00 19 5E .^#V."..*......^
01CF50: 23 56 EB 22 84 F2 2A AA DC 11 04 00 19 5E 23 56 #V."..*......^#V
01CF60: EB 22 86 F2 2A AA DC 11 06 00 19 5E 23 56 EB 22 ."..*......^#V."
01CF70: 82 F2 2A AA DC 11 04 00 19 5E 23 56 EB E5 2A AA ..*......^#V..*.
01CF80: DC 5E 23 56 EB D1 EB B7 ED 52 E5 21 03 00 D1 CD .^#V.....R.!....
01CF90: 4E 07 E5 21 07 00 D1 19 E5 21 AE F2 CD 2C 05 C5 N..!.....!...,..
01CFA0: D5 E5 21 B4 F2 CD 2C 05 D9 E1 D1 C1 CD F2 09 D9 ..!...,.........
01CFB0: E1 CD 08 10 CD FF 09 D9 21 90 F2 CD D1 05 2A AA ........!.....*.
01CFC0: DC 11 06 00 19 5E 23 56 EB E5 2A AA DC 11 02 00 .....^#V..*.....
01CFD0: 19 5E 23 56 EB D1 EB B7 ED 52 E5 21 A2 F2 CD 2C .^#V.....R.!...,
01CFE0: 05 C5 D5 E5 21 A8 F2 CD 2C 05 D9 E1 D1 C1 CD F2 ....!...,.......
01CFF0: 09 D9 E1 CD 08 10 CD FF 09 D9 21 8A F2 CD D1 05 ..........!.....
01D000: CB 45 CA AB 45 2A A4 DA E5 21 00 00 D1 CD E0 06 .E..E*...!......
01D010: CB 45 CA 1E 45 2A 9E DA 22 A0 DA C3 24 45 2A 9C .E..E*.."...$E*.
01D020: DA 22 A0 DA 2A B2 DA 5E 23 56 EB E5 2A B6 DA 5E ."..*..^#V..*..^
01D030: 23 56 EB D1 CD 92 06 CB 45 CA A1 45 2A B6 DA 5E #V......E..E*..^
01D040: 23 56 EB E5 2A B2 DA 5E 23 56 EB E5 2A B6 DA 5E #V..*..^#V..*..^
01D050: 23 56 EB D1 EB B7 ED 52 E5 2A B4 DA 5E 23 56 EB #V.....R.*..^#V.
01D060: E5 2A B8 DA 5E 23 56 EB D1 EB B7 ED 52 CD 08 10 .*..^#V.....R...
01D070: D9 E1 CD 08 10 CD FF 09 C5 D5 E5 2A A0 DA E5 2A ...........*...*
01D080: B8 DA 5E 23 56 EB D1 EB B7 ED 52 CD 08 10 D9 E1 ..^#V.....R.....
01D090: D1 C1 CD FA 09 CD DE 0F D1 19 EB 2A B2 DA 73 23 ...........*..s#
01D0A0: 72 2A A0 DA EB 2A B4 DA 73 23 72 2A B6 DA 5E 23 r*...*..s#r*..^#
01D0B0: 56 EB E5 2A 84 F2 E5 2A 82 F2 E5 CD D6 42 22 A6 V..*...*.....B".
01D0C0: DA 2A B2 DA 5E 23 56 EB E5 2A 84 F2 E5 2A 82 F2 .*..^#V..*...*..
01D0D0: E5 CD D6 42 22 A2 DA 2A B6 DA 5E 23 56 EB E5 2A ...B"..*..^#V..*
01D0E0: B2 DA 5E 23 56 EB D1 CD 92 06 CB 45 CA 5B 47 2A ..^#V......E.[G*
01D0F0: A6 DA E5 21 00 00 D1 CD 92 06 CB 45 CA A5 46 2A ...!.......E..F*
01D100: A6 DA E5 21 00 00 D1 CD E0 06 CB 45 CA 18 46 2A ...!.......E..F*
01D110: 84 F2 22 A0 DA C3 1E 46 2A 82 F2 22 A0 DA 2A B8 .."....F*.."..*.
01D120: DA 5E 23 56 EB E5 2A B4 DA 5E 23 56 EB D1 CD 92 .^#V..*..^#V....
01D130: 06 CB 45 CA 9B 46 2A B8 DA 5E 23 56 EB E5 2A B4 ..E..F*..^#V..*.
01D140: DA 5E 23 56 EB E5 2A B8 DA 5E 23 56 EB D1 EB B7 .^#V..*..^#V....
01D150: ED 52 E5 2A B2 DA 5E 23 56 EB E5 2A B6 DA 5E 23 .R.*..^#V..*..^#
01D160: 56 EB D1 EB B7 ED 52 CD 08 10 D9 E1 CD 08 10 CD V.....R.........
01D170: FF 09 C5 D5 E5 2A A0 DA E5 2A B6 DA 5E 23 56 EB .....*...*..^#V.
01D180: D1 EB B7 ED 52 CD 08 10 D9 E1 D1 C1 CD FA 09 CD ....R...........
01D190: DE 0F D1 19 EB 2A B8 DA 73 23 72 2A A0 DA EB 2A .....*..s#r*...*
01D1A0: B6 DA 73 23 72 2A A2 DA E5 21 00 00 D1 CD 92 06 ..s#r*...!......
01D1B0: CB 45 CA 5B 47 2A A2 DA E5 21 00 00 D1 CD E0 06 .E.[G*...!......
01D1C0: CB 45 CA CE 46 2A 84 F2 22 A0 DA C3 D4 46 2A 82 .E..F*.."....F*.
01D1D0: F2 22 A0 DA 2A B8 DA 5E 23 56 EB E5 2A B4 DA 5E ."..*..^#V..*..^
01D1E0: 23 56 EB D1 CD 92 06 CB 45 CA 51 47 2A B8 DA 5E #V......E.QG*..^
01D1F0: 23 56 EB E5 2A B4 DA 5E 23 56 EB E5 2A B8 DA 5E #V..*..^#V..*..^
01D200: 2A AA DC 5E 23 56 EB E5 21 03 00 D1 CD 4E 07 E5 *..^#V..!....N..
01D210: 21 B4 F2 CD 2C 05 C5 D5 E5 21 90 F2 CD 2C 05 D9 !...,....!...,..
01D220: E1 D1 C1 CD FA 09 D9 E1 CD 08 10 CD F2 09 D9 21 ...............!
01D230: 9C F2 CD D1 05 2A AA DC 11 02 00 19 5E 23 56 EB .....*......^#V.
01D240: E5 21 A8 F2 CD 2C 05 C5 D5 E5 21 8A F2 CD 2C 05 .!...,....!...,.
01D250: D9 E1 D1 C1 CD FA 09 D9 E1 CD 08 10 CD F2 09 D9 ................
01D260: 21 96 F2 CD D1 05 2A 6C F2 26 00 CB 45 CA 8F 3D !.....*l.&..E..=
01D270: 21 00 00 7D 32 6C F2 21 00 00 22 78 F2 21 00 00 !..}2l.!.."x.!..
01D280: 22 74 F2 21 00 00 22 76 F2 21 00 00 22 72 F2 C3 "t.!.."v.!.."r..
01D290: 9D 3D 21 04 00 E5 21 02 00 E5 CD 76 2B C9 FD E1 .=!...!....v+...
01D2A0: E1 D1 C1 D9 21 A2 DC CD D1 05 FD E5 21 9C F2 CD ....!.......!...
01D2B0: 2C 05 C5 D5 E5 21 90 F2 CD 2C 05 C5 D5 E5 21 A2 ,....!...,....!.
01D2C0: DC CD 2C 05 D9 E1 D1 C1 CD FA 09 D9 E1 D1 C1 CD ..,.............
01D2D0: E9 09 CD DE 0F 22 A8 DC 2A A8 DC C9 FD E1 E1 D1 ....."..*.......
01D2E0: C1 D9 21 92 DC CD D1 05 FD E5 21 96 F2 CD 2C 05 ..!.......!...,.
01D2F0: C5 D5 E5 21 8A F2 CD 2C 05 C5 D5 E5 21 92 DC CD ...!...,....!...
01D300: 2C 05 D9 E1 D1 C1 CD FA 09 D9 E1 D1 C1 CD E9 09 ,...............
01D310: CD DE 0F 22 98 DC 2A 98 DC C9 21 01 00 E5 21 01 ..."..*...!...!.
01D320: 00 E5 CD 3F 2B 21 01 00 7D 32 6A F2 21 00 00 7D ...?+!..}2j.!..}
01D330: 32 69 F2 21 25 F2 E5 21 00 00 29 D1 19 E5 21 10 2i.!%..!..)...!.
01D340: 00 CD E5 1C 21 15 F2 E5 21 00 00 29 D1 19 E5 21 ....!...!..)...!
01D350: 18 00 CD E5 1C 21 25 F2 E5 21 00 00 29 D1 19 5E .....!%..!..)..^
01D360: 23 56 EB E5 CD 4D 05 0B 49 6E 69 74 47 72 61 70 #V...M..InitGrap
01D370: 68 69 63 06 50 CD 01 06 21 15 F2 E5 21 00 00 29 hic.P...!...!..)
01D380: D1 19 5E 23 56 EB E5 CD 4D 05 11 45 52 52 4F 52 ..^#V...M..ERROR
01D390: 2E 4D 53 47 20 6D 69 73 73 69 6E 67 06 50 CD 01 .MSG missing.P..
01D3A0: 06 21 22 DB E5 CD 4D 05 09 65 72 72 6F 72 2E 6D .!"...M..error.m
01D3B0: 73 67 CD 6F 13 CD 1B 20 21 22 DB CD FF 13 CD F1 sg.o... !"......
01D3C0: 1F E5 21 00 00 D1 CD 7F 06 CB 45 CA DE 3F 21 00 ..!.......E..?!.
01D3D0: 00 E5 21 1B 00 D1 CD 66 06 7A B3 CA 46 3F D5 22 ..!....f.z..F?."
01D3E0: CF DA 21 22 DB CD A9 14 21 D1 DA 06 50 CD 8E 16 ..!"....!...P...
01D3F0: CD AB 16 CD 1B 20 2A CF DA E5 21 00 00 D1 CD 92 ..... *...!.....
01D400: 23 56 EB D1 EB B7 ED 52 E5 2A B2 DA 5E 23 56 EB #V.....R.*..^#V.
01D410: E5 2A B6 DA 5E 23 56 EB D1 EB B7 ED 52 CD 08 10 .*..^#V.....R...
01D420: D9 E1 CD 08 10 CD FF 09 C5 D5 E5 2A A0 DA E5 2A ...........*...*
01D430: B6 DA 5E 23 56 EB D1 EB B7 ED 52 CD 08 10 D9 E1 ..^#V.....R.....
01D440: D1 C1 CD FA 09 CD DE 0F D1 19 EB 2A B4 DA 73 23 ...........*..s#
01D450: 72 2A A0 DA EB 2A B2 DA 73 23 72 2A B6 DA 5E 23 r*...*..s#r*..^#
01D460: 56 EB E5 2A 84 F2 E5 2A 82 F2 E5 CD D6 42 22 A6 V..*...*.....B".
01D470: DA 2A B2 DA 5E 23 56 EB E5 2A 84 F2 E5 2A 82 F2 .*..^#V..*...*..
01D480: E5 CD D6 42 22 A2 DA 2A A6 DA E5 21 00 00 D1 CD ...B"..*...!....
01D490: 92 06 E5 2A A2 DA E5 21 00 00 D1 CD 92 06 D1 7D ...*...!.......}
01D4A0: B3 6F CB 45 CA AE 47 21 00 00 7D 32 9B DA 2A 9B .o.E..G!..}2..*.
01D4B0: DA 26 00 CB 45 CA 0B 48 2A B8 DA 5E 23 56 EB E5 .&..E..H*..^#V..
01D4C0: 2A 9E DA E5 2A 9C DA E5 CD D6 42 22 A8 DA 2A B4 *...*.....B"..*.
01D4D0: DA 5E 23 56 EB E5 2A 9E DA E5 2A 9C DA E5 CD D6 .^#V..*...*.....
01D4E0: 42 22 A4 DA 2A A4 DA E5 21 00 00 D1 CD 92 06 E5 B"..*...!.......
01D4F0: 2A A8 DA E5 21 00 00 D1 CD 92 06 D1 7D B3 6F CB *...!.......}.o.
01D500: 45 CA 0B 48 21 00 00 7D 32 9B DA 2A 9B DA 26 00 E..H!..}2..*..&.
01D510: 7D 32 BA DA 2A BA DA 26 00 C9 FD E1 E1 D1 C1 D9 }2..*..&........
01D520: 21 7F DA CD D1 05 E1 D1 C1 D9 21 85 DA CD D1 05 !.........!.....
01D530: FD E5 2A 6E F2 26 00 CB 45 CA 56 48 21 85 DA CD ..*n.&..E.VH!...
01D540: 2C 05 CD DE 0F E5 21 7F DA CD 2C 05 CD DE 0F E5 ,.....!...,.....
01D550: CD 54 2D C3 ED 48 21 85 DA CD 2C 05 C5 D5 E5 CD .T-..H!...,.....
01D560: 9E 3D 22 75 DA 21 7F DA CD 2C 05 C5 D5 E5 CD DC .="u.!...,......
01D570: 3D 22 73 DA 2A 6D F2 26 00 CB 45 CA E2 48 2A 75 ="s.*m.&..E..H*u
01D580: DA E5 2A 88 F2 E5 21 03 00 D1 CD 4E 07 D1 CD A5 ..*...!....N....
01D590: 06 E5 2A 75 DA E5 2A 86 F2 E5 21 03 00 D1 CD 4E ..*u..*...!....N
01D5A0: 07 E5 21 07 00 D1 19 D1 CD E0 06 D1 7D A3 6F CB ..!.........}£o.
01D5B0: 45 CA DF 48 2A 73 DA E5 2A 84 F2 D1 CD A5 06 E5 E..H*s..*.......
01D5C0: 2A 73 DA E5 2A 82 F2 D1 CD B8 06 D1 7D A3 6F CB *s..*.......}£o.
01D5D0: 45 CA DF 48 2A 75 DA E5 2A 73 DA E5 CD 54 2D C3 E..H*u..*s...T-.
01D5E0: ED 48 2A 75 DA E5 2A 73 DA E5 CD 54 2D C9 FD E1 .H*u..*s...T-...
01D5F0: E1 D1 C1 D9 21 66 DA CD D1 05 E1 D1 C1 D9 21 6C ....!f........!l
01D600: 06 CB 45 CA 23 3F 21 25 F2 E5 2A CF DA 29 D1 19 ..E.#?!%..*..)..
01D610: E5 21 D1 DA CD 3A 05 CD A3 08 E5 21 01 00 D1 19 .!...:..£..!....
01D620: CD E5 1C 21 25 F2 E5 2A CF DA 29 D1 19 5E 23 56 ...!%..*..)..^#V
01D630: EB E5 21 D1 DA CD 3A 05 06 50 CD 01 06 2A CF DA ..!...:..P...*..
01D640: 23 D1 1B C3 D9 3E 21 00 00 E5 21 07 00 D1 CD 66 #....>!...!....f
01D650: 06 7A B3 CA BE 3F D5 22 CF DA 21 22 DB CD A9 14 .z...?."..!"....
01D660: 21 D1 DA 06 50 CD 8E 16 CD AB 16 CD 1B 20 2A CF !...P........ *.
01D670: DA E5 21 00 00 D1 CD 92 06 CB 45 CA 9B 3F 21 15 ..!.......E..?!.
01D680: F2 E5 2A CF DA 29 D1 19 E5 21 D1 DA CD 3A 05 CD ..*..)...!...:..
01D690: A3 08 E5 21 01 00 D1 19 CD E5 1C 21 15 F2 E5 2A £..!.......!...*
01D6A0: CF DA 29 D1 19 5E 23 56 EB E5 21 D1 DA CD 3A 05 ..)..^#V..!...:.
01D6B0: 06 50 CD 01 06 2A CF DA 23 D1 1B C3 51 3F 21 22 .P...*..#...Q?!"
01D6C0: DB CD A9 14 21 EC F1 06 28 CD 8E 16 CD AB 16 CD ....!...(.......
01D6D0: 1B 20 21 22 DB CD 69 14 CD 1B 20 C3 95 40 21 25 . !"..i... ..@!%
01D6E0: F2 E5 21 01 00 29 D1 19 E5 21 0E 00 CD E5 1C 21 ..!..)...!.....!
01D6F0: 25 F2 E5 21 01 00 29 D1 19 5E 23 56 EB E5 CD 4D %..!..)..^#V...M
01D700: 05 0D 2A 2A 20 55 4E 4B 4E 4F 57 4E 20 2A 2A 06 ..** UNKNOWN **.
01D710: 50 CD 01 06 21 02 00 E5 21 1B 00 D1 CD 66 06 7A P...!...!....f.z
01D720: B3 CA 4F 40 D5 22 CF DA 21 25 F2 E5 2A CF DA 29 ..O@."..!%..*..)
01D730: D1 19 E5 21 25 F2 E5 21 01 00 29 D1 19 5E 23 56 ...!%..!..)..^#V
01D740: EB EB E1 73 23 72 2A CF DA 23 D1 1B C3 1F 40 21 ...s#r*..#....@!
01D750: 01 00 E5 21 07 00 D1 CD 66 06 7A B3 CA 8A 40 D5 ...!....f.z...@.
01D760: 22 CF DA 21 15 F2 E5 2A CF DA 29 D1 19 E5 21 25 "..!...*..)...!%
01D770: F2 E5 21 01 00 29 D1 19 5E 23 56 EB EB E1 73 23 ..!..)..^#V...s#
01D780: 72 2A CF DA 23 D1 1B C3 5A 40 21 00 00 E5 21 00 r*..#...Z@!...!.
01D790: 00 E5 CD 76 2B 21 01 00 E5 21 04 00 D1 CD 66 06 ...v+!...!....f.
01D7A0: 7A B3 CA DD 40 D5 22 CF DA 2A CF DA E5 21 00 00 z...@."..*...!..
01D7B0: CD 08 10 C5 D5 E5 21 00 00 CD 08 10 C5 D5 E5 21 ......!........!
01D7C0: 7F 02 CD 08 10 C5 D5 E5 21 C7 00 CD 08 10 C5 D5 ........!.......
01D7D0: E5 CD 6D 36 2A CF DA 23 D1 1B C3 A0 40 21 01 00 ..m6*..#....@!..
01D7E0: 22 7E F2 21 01 00 E5 21 10 00 D1 CD 66 06 7A B3 "~.!...!....f.z.
01D7F0: CA 5B 41 D5 22 CF DA 2A CF DA E5 21 00 00 E5 21 .[A."..*...!...!
01D800: DA CD D1 05 FD E5 2A 6E F2 26 00 CB 45 CA 2E 49 ......*n.&..E..I
01D810: 21 6C DA CD 2C 05 CD DE 0F E5 21 66 DA CD 2C 05 !l..,.....!f..,.
01D820: CD DE 0F E5 CD 85 2D 7D 32 72 DA C3 4F 49 21 6C ......-}2r..OI!l
01D830: DA CD 2C 05 C5 D5 E5 CD 9E 3D E5 21 66 DA CD 2C ..,......=.!f..,
01D840: 05 C5 D5 E5 CD DC 3D E5 CD 85 2D 7D 32 72 DA 2A ......=...-}2r.*
01D850: 72 DA 26 00 C9 FD E1 E1 22 56 DA E1 22 58 DA E1 r.&....."V.."X..
01D860: 22 5A DA E1 22 5C DA FD E5 2A 80 F2 E5 21 00 00 "Z.."\...*...!..
01D870: D1 CD 7F 06 CB 45 CA 92 49 2A 5C DA E5 2A 5A DA .....E..I*\..*Z.
01D880: E5 CD 23 25 2A 58 DA E5 2A 56 DA E5 CD 54 25 C3 ..#%*X..*V...T%.
01D890: BE 4A 2A 5C DA 22 4C DA 2A 5A DA 22 4A DA 21 01 .J*\."L.*Z."J.!.
01D8A0: 00 22 44 DA 21 01 00 22 42 DA 2A 5C DA E5 2A 58 ."D.!.."B.*\..*X
01D8B0: DA D1 CD CC 06 CB 45 CA C0 49 21 FF FF 22 44 DA ......E..I!.."D.
01D8C0: 2A 5A DA E5 2A 56 DA D1 CD CC 06 CB 45 CA D6 49 *Z..*V......E..I
01D8D0: 21 FF FF 22 42 DA 2A 58 DA E5 2A 5C DA D1 EB B7 !.."B.*X..*\....
01D8E0: ED 52 CD 80 07 22 48 DA 2A 56 DA E5 2A 5A DA D1 .R..."H.*V..*Z..
01D8F0: EB B7 ED 52 CD 80 07 22 46 DA 2A 48 DA E5 21 00 ...R..."F.*H..!.
01D900: 00 D1 CD 7F 06 CB 45 CA 13 4A 21 FF FF 22 40 DA ......E..J!.."@.
01D910: C3 19 4A 21 00 00 22 40 DA 2A 4C DA E5 2A 58 DA ..J!.."@.*L..*X.
01D920: D1 CD 7F 06 E5 2A 4A DA E5 2A 56 DA D1 CD 7F 06 .....*J..*V.....
01D930: D1 7D A3 6F 7D EE 01 6F CB 45 CA BE 4A 2A 66 F2 .}£o}..o.E..J*f.
01D940: 26 00 E5 21 01 00 D1 19 E5 21 07 00 D1 7C A2 67 &..!.....!...|.g
01D950: 7D A3 6F 7D 32 66 F2 21 5D F2 E5 2A 66 F2 26 00 }£o}2f.!]..*f.&.
01D960: D1 19 6E 26 00 CB 45 CA 75 4A 2A 4C DA E5 2A 4A ..n&..E.uJ*L..*J
01D970: DA E5 CD 54 2D 2A 40 DA E5 21 00 00 D1 CD E0 06 ...T-*@..!......
01D980: CB 45 CA A0 4A 2A 4A DA E5 2A 42 DA D1 19 22 4A .E..J*J..*B..."J
01D990: DA 2A 40 DA E5 2A 48 DA D1 19 22 40 DA C3 BB 4A .*@..*H..."@...J
01D9A0: 2A 4C DA E5 2A 44 DA D1 19 22 4C DA 2A 40 DA E5 *L..*D..."L.*@..
01D9B0: 2A 46 DA D1 EB B7 ED 52 22 40 DA C3 19 4A C9 FD *F.....R"@...J..
01D9C0: E1 E1 22 38 DA E1 22 3A DA E1 22 3C DA E1 22 3E .."8..":.."<..">
01D9D0: DA FD E5 21 3E DA E5 21 3C DA E5 21 3A DA E5 21 ...!>..!<..!:..!
01D9E0: 38 DA E5 CD D3 42 CB 45 CA FE 4A 2A 3E DA E5 2A 8....B.E..J*>..*
01D9F0: 3C DA E5 2A 3A DA E5 2A 38 DA E5 CD 55 49 C9 FD <..*:..*8...UI..
01DA00: 00 00 E5 21 4F 00 E5 21 C7 00 E5 CD 4C 39 21 B5 ...!O..!....L9!.
01DA10: E4 E5 2A CF DA 2B 29 E5 29 E5 29 E5 29 E5 29 29 ..*..+).).).).))
01DA20: D1 19 D1 19 D1 19 D1 19 D1 19 22 82 DC 2A 82 DC .........."..*..
01DA30: 11 5B 00 19 E5 21 00 00 EB E1 73 23 72 2A 82 DC .[...!....s#r*..
01DA40: 11 5D 00 19 E5 21 00 00 EB E1 73 2A CF DA E5 CD .]...!....s*....
01DA50: 87 33 2A CF DA 23 D1 1B C3 EE 40 21 01 00 22 7C .3*..#....@!.."|
01DA60: F2 21 D2 DB E5 21 00 21 CD 3A 05 CD 70 13 21 D2 .!...!.!.:..p.!.
01DA70: DB 11 1D 01 CD 11 18 CD F1 1F E5 21 00 00 D1 CD ...........!....
01DA80: 7F 06 CB 45 CA 99 41 21 D2 DB CD A4 18 21 97 EA ...E..A!.....!..
01DA90: CD B6 18 CD 1B 20 C3 A4 41 21 00 00 E5 21 01 00 ..... ..A!...!..
01DAA0: E5 CD 76 2B 21 D2 DB CD 7A 18 CD 1B 20 21 01 00 ..v+!...z... !..
01DAB0: 7D 32 69 F2 21 01 00 E5 CD 0D 2F 21 01 00 22 7A }2i.!...../!.."z
01DAC0: F2 21 01 00 E5 CD 92 37 21 01 00 E5 CD F8 3B CD .!.....7!.....;.
01DAD0: 03 34 CD 47 33 21 80 00 11 00 00 01 00 00 C5 D5 .4.G3!..........
01DAE0: E5 CD 8F 34 21 00 00 7D 32 6E F2 21 00 00 7D 32 ...4!..}2n.!..}2
01DAF0: 6F F2 CD 57 33 CD 6F 33 CD 77 33 21 00 00 7D 32 o..W3.o3.w3!..}2
01DB00: 65 F2 21 00 00 E5 CD 05 35 21 05 00 22 70 F2 CD e.!.....5!.."p..
01DB10: 93 2C 21 00 00 22 78 F2 21 00 00 22 76 F2 21 00 .,!.."x.!.."v.!.
01DB20: 00 22 74 F2 21 00 00 22 72 F2 21 00 00 7D 32 6C ."t.!.."r.!..}2l
01DB30: F2 21 00 00 7D 32 6B F2 C9 21 01 00 E5 21 10 00 .!..}2k..!...!..
01DB40: D1 CD 66 06 7A B3 CA 74 42 D5 22 C5 DA 2A C5 DA ..f.z..tB."..*..
01DB50: E5 21 00 00 E5 21 00 00 E5 21 4F 00 E5 21 C7 00 .!...!...!O..!..
01DB60: E5 CD 4C 39 2A C5 DA E5 CD 87 33 2A C5 DA 23 D1 ..L9*.....3*..#.
01DB70: 1B C3 44 42 21 01 00 E5 CD F8 3B C9 21 01 00 E5 ..DB!.....;.!...
01DB80: 21 04 00 D1 CD 66 06 7A B3 CA C4 42 D5 22 BB DA !....f.z...B."..
01DB90: 2A BB DA E5 21 00 00 CD 08 10 C5 D5 E5 21 00 00 *...!........!..
01DBA0: CD 08 10 C5 D5 E5 21 7F 02 CD 08 10 C5 D5 E5 21 ......!........!
01DBB0: C7 00 CD 08 10 C5 D5 E5 CD 6D 36 2A BB DA 23 D1 .........m6*..#.
01DBC0: 1B C3 87 42 21 01 00 E5 CD 92 37 2A 7A F2 E5 CD ...B!.....7*z...
01DBD0: F8 3B C9 C3 1F 43 FD E1 E1 22 93 DA E1 22 95 DA .;...C..."..."..
01DBE0: E1 22 97 DA FD E5 21 00 00 22 99 DA 2A 97 DA E5 ."....!.."..*...
01DBF0: 2A 95 DA D1 CD E0 06 CB 45 CA 05 43 21 FF FF 22 *.......E..C!.."
01DC00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
01DC10: 19 00 00 00 02 09 4A E5 19 00 41 02 00 00 00 02 ......J...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: E1 E1 D1 C1 D9 21 18 DA CD D1 05 E1 D1 C1 D9 21 .....!.........!
01DD10: 1E DA CD D1 05 E1 D1 C1 D9 21 24 DA CD D1 05 E1 .........!$.....
01DD20: D1 C1 D9 21 2A DA CD D1 05 FD E5 2A 6E F2 26 00 ...!*......*n.&.
01DD30: CB 45 CA 63 4B 21 2A DA CD 2C 05 CD DE 0F E5 21 .E.cK!*..,.....!
01DD40: 24 DA CD 2C 05 CD DE 0F E5 21 1E DA CD 2C 05 CD $..,.....!...,..
01DD50: DE 0F E5 21 18 DA CD 2C 05 CD DE 0F E5 CD 55 49 ...!...,......UI
01DD60: C3 9A 4B 21 2A DA CD 2C 05 C5 D5 E5 CD 9E 3D E5 ..K!*..,......=.
01DD70: 21 24 DA CD 2C 05 C5 D5 E5 CD DC 3D E5 21 1E DA !$..,......=.!..
01DD80: CD 2C 05 C5 D5 E5 CD 9E 3D E5 21 18 DA CD 2C 05 .,......=.!...,.
01DD90: C5 D5 E5 CD DC 3D E5 CD BF 4A C9 FD E1 E1 22 08 .....=...J....".
01DDA0: DA E1 22 0A DA E1 22 0C DA E1 22 0E DA FD E5 21 .."..."..."....!
01DDB0: 0E DA E5 21 0C DA E5 21 0A DA E5 21 08 DA E5 CD ...!...!...!....
01DDC0: D3 42 CB 45 CA EE 4B 2A 0E DA CD 08 10 C5 D5 E5 .B.E..K*........
01DDD0: 2A 0C DA CD 08 10 C5 D5 E5 2A 0A DA CD 08 10 C5 *........*......
01DDE0: D5 E5 2A 08 DA CD 08 10 C5 D5 E5 CD FF 4A C9 FD ..*..........J..
01DDF0: E1 E1 7D 32 F7 D9 E1 22 F8 D9 E1 22 FA D9 E1 22 ..}2..."..."..."
01DE00: FC D9 E1 22 FE D9 FD E5 2A F7 D9 26 00 7D EE 01 ..."....*..&.}..
01DE10: 6F CB 45 CA B5 4C 2A FE D9 CD 08 10 C5 D5 E5 2A o.E..L*........*
01DE20: FC D9 CD 08 10 C5 D5 E5 2A FA D9 CD 08 10 C5 D5 ........*.......
01DE30: E5 2A FC D9 CD 08 10 C5 D5 E5 CD FF 4A 2A FA D9 .*..........J*..
01DE40: CD 08 10 C5 D5 E5 2A FC D9 CD 08 10 C5 D5 E5 2A ......*........*
01DE50: FA D9 CD 08 10 C5 D5 E5 2A F8 D9 CD 08 10 C5 D5 ........*.......
01DE60: E5 CD FF 4A 2A FE D9 CD 08 10 C5 D5 E5 2A F8 D9 ...J*........*..
01DE70: CD 08 10 C5 D5 E5 2A FA D9 CD 08 10 C5 D5 E5 2A ......*........*
01DE80: F8 D9 CD 08 10 C5 D5 E5 CD FF 4A 2A FE D9 CD 08 ..........J*....
01DE90: 10 C5 D5 E5 2A F8 D9 CD 08 10 C5 D5 E5 2A FE D9 ....*........*..
01DEA0: CD 08 10 C5 D5 E5 2A FC D9 CD 08 10 C5 D5 E5 CD ......*.........
01DEB0: FF 4A C3 F9 4C 2A FC D9 E5 2A F8 D9 D1 CD 66 06 .J..L*...*....f.
01DEC0: 7A B3 CA F9 4C D5 22 ED D9 2A FE D9 CD 08 10 C5 z...L."..*......
01DED0: D5 E5 2A ED D9 CD 08 10 C5 D5 E5 2A FA D9 CD 08 ..*........*....
01DEE0: 10 C5 D5 E5 2A ED D9 CD 08 10 C5 D5 E5 CD FF 4A ....*..........J
01DEF0: 2A ED D9 23 D1 1B C3 C0 4C C9 FD E1 E1 7D 32 E4 *..#....L....}2.
01DF00: CD 4E 07 D1 CD 56 07 E5 21 0F 00 D1 7C A2 67 7D .N...V..!...|.g}
01DF10: A3 6F 7D 32 01 D9 21 00 00 E5 21 03 00 D1 CD 66 £o}2..!...!....f
01DF20: 06 7A B3 CA 79 56 D5 22 10 D9 2A 01 D9 26 00 E5 .z..yV."..*..&..
01DF30: 21 03 00 E5 2A 10 D9 D1 EB B7 ED 52 D1 CD 56 07 !...*......R..V.
01DF40: E5 21 01 00 D1 7C A2 67 7D A3 6F E5 21 00 00 D1 .!...|.g}£o.!...
01DF50: CD 92 06 CB 45 CA 70 56 2A 22 D9 5E 23 56 EB E5 ....E.pV*".^#V..
01DF60: 2A 10 D9 E5 2A 1F D9 26 00 D1 CD F5 06 D1 19 22 *...*..&......."
01DF70: 0C D9 2A 0C D9 E5 2A 1F D9 26 00 D1 19 E5 21 01 ..*...*..&....!.
01DF80: 00 D1 EB B7 ED 52 22 08 D9 2A 20 D9 5E 23 56 EB .....R"..* .^#V.
01DF90: E5 21 01 00 D1 19 E5 2A 0E D9 E5 21 02 00 D1 EB .!.....*...!....
01DFA0: B7 ED 52 E5 2A 1F D9 26 00 D1 CD F5 06 D1 19 22 ..R.*..&......."
01DFB0: 0A D9 2A 0A D9 E5 2A 1F D9 26 00 D1 19 E5 21 01 ..*...*..&....!.
01DFC0: 00 D1 EB B7 ED 52 22 06 D9 2A 6D F2 26 00 CB 45 .....R"..*m.&..E
01DFD0: CA 2B 56 2A 0C D9 E5 2A 14 D9 D1 CD E0 06 CB 45 .+V*...*.......E
01DFE0: CA E9 55 2A 14 D9 22 0C D9 2A 08 D9 E5 2A 12 D9 ..U*.."..*...*..
01DFF0: D1 CD CC 06 CB 45 CA FF 55 2A 12 D9 22 08 D9 2A .....E..U*.."..*
01E000: 0A D9 E5 2A 84 F2 D1 CD E0 06 CB 45 CA 15 56 2A ...*.......E..V*
01E010: 84 F2 22 0A D9 2A 06 D9 E5 2A 82 F2 D1 CD CC 06 .."..*...*......
01E020: CB 45 CA 2B 56 2A 82 F2 22 06 D9 2A 0A D9 E5 2A .E.+V*.."..*...*
01E030: 06 D9 D1 CD 66 06 7A B3 CA 70 56 D5 22 02 D9 2A ....f.z..pV."..*
01E040: 0C D9 E5 2A 08 D9 D1 CD 66 06 7A B3 CA 67 56 D5 ...*....f.z..gV.
01E050: 22 04 D9 2A 04 D9 E5 2A 02 D9 E5 CD 54 2D 2A 04 "..*...*....T-*.
01E060: D9 23 D1 1B C3 4A 56 2A 02 D9 23 D1 1B C3 36 56 .#...JV*..#...6V
01E070: 2A 10 D9 23 D1 1B C3 21 55 2A 0E D9 23 D1 1B C3 *..#...!U*..#...
01E080: B5 54 2A 22 D9 5E 23 56 EB E5 2A 1F D9 26 00 E5 .T*".^#V..*..&..
01E090: 21 06 00 D1 CD F5 06 D1 19 EB 2A 22 D9 73 23 72 !.........*".s#r
01E0A0: C9 FD E1 06 50 21 AA D8 CD E2 05 E1 22 FB D8 E1 ....P!......"...
01E0B0: 22 FD D8 E1 22 FF D8 FD E5 2A 6E F2 26 00 7D 32 "..."....*n.&.}2
01E0C0: 93 D8 21 01 00 7D 32 6E F2 2A 80 F2 22 A0 D8 21 ..!..}2n.*.."..!
01E0D0: 00 00 E5 CD 05 35 21 AA D8 CD 3A 05 CD A3 08 22 .....5!...:..£."
01E0E0: 9A D8 21 01 00 22 98 D8 2A 98 D8 E5 2A 9A D8 D1 ..!.."..*...*...
01E0F0: CD B8 06 CB 45 CA BA 59 21 AA D8 E5 2A 98 D8 D1 ....E..Y!...*...
01E100: D9 E1 22 E5 D9 E1 22 E7 D9 E1 22 E9 D9 E1 22 EB .."..."..."...".
01E110: D9 FD E5 21 EB D9 E5 21 E5 D9 E5 21 E7 D9 E5 21 ...!...!...!...!
01E120: E9 D9 E5 CD D3 42 CB 45 CA 44 4D 2A EB D9 E5 2A .....B.E.DM*...*
01E130: E5 D9 E5 2A E7 D9 E5 2A E9 D9 E5 2A E4 D9 26 00 ...*...*...*..&.
01E140: E5 CD EF 4B C9 FD E1 E1 7D 32 C3 D9 E1 D1 C1 D9 ...K....}2......
01E150: 21 C4 D9 CD D1 05 E1 D1 C1 D9 21 CA D9 CD D1 05 !.........!.....
01E160: E1 D1 C1 D9 21 D0 D9 CD D1 05 E1 D1 C1 D9 21 D6 ....!.........!.
01E170: D9 CD D1 05 FD E5 2A 6E F2 26 00 CB 45 CA B4 4D ......*n.&..E..M
01E180: 21 D6 D9 CD 2C 05 CD DE 0F E5 21 D0 D9 CD 2C 05 !...,.....!...,.
01E190: CD DE 0F E5 21 CA D9 CD 2C 05 CD DE 0F E5 21 C4 ....!...,.....!.
01E1A0: D9 CD 2C 05 CD DE 0F E5 2A C3 D9 26 00 E5 CD EF ..,.....*..&....
01E1B0: 4B C3 0A 4E 2A 6E F2 26 00 7D 32 BA D9 21 01 00 K..N*n.&.}2..!..
01E1C0: 7D 32 6E F2 21 D6 D9 CD 2C 05 C5 D5 E5 CD 9E 3D }2n.!...,......=
01E1D0: E5 21 D0 D9 CD 2C 05 C5 D5 E5 CD DC 3D E5 21 CA .!...,......=.!.
01E1E0: D9 CD 2C 05 C5 D5 E5 CD 9E 3D E5 21 C4 D9 CD 2C ..,......=.!...,
01E1F0: 05 C5 D5 E5 CD DC 3D E5 2A C3 D9 26 00 E5 CD FA ......=.*..&....
01E200: 4C 2A BA D9 26 00 7D 32 6E F2 C9 C3 86 4E 00 00 L*..&.}2n....N..
01E210: 79 00 EF 00 63 01 D1 01 38 02 97 02 ED 02 37 03 y...c...8.....7.
01E220: 75 03 A7 03 CB 03 E1 03 E8 03 FD E1 E1 22 8D D9 u............"..
01E230: E1 22 8F D9 E1 22 91 D9 E1 22 93 D9 FD E5 2A B3 ."..."..."....*.
01E240: D9 26 00 CB 45 CA 72 4E 2A 93 D9 CD 08 10 C5 D5 .&..E.rN*.......
01E250: E5 2A 91 D9 CD 08 10 C5 D5 E5 2A 8F D9 CD 08 10 .*........*.....
01E260: C5 D5 E5 2A 8D D9 CD 08 10 C5 D5 E5 CD FF 4A C3 ...*..........J.
01E270: 85 4E 2A 93 D9 E5 2A 91 D9 E5 2A 8F D9 E5 2A 8D .N*...*...*...*.
01E280: D9 E5 CD 9B 4B C9 FD E1 E1 7D 32 B3 D9 E1 22 B4 ....K....}2...".
01E290: D9 E1 22 B6 D9 E1 22 B8 D9 FD E5 2A B4 D9 E5 21 .."..."....*...!
01E2A0: 77 8D 11 97 6E 01 12 03 D9 E1 CD 08 10 CD FA 09 w...n...........
01E2B0: CB B8 D9 21 9B D9 CD D1 05 21 9B D9 CD 2C 05 C5 ...!.....!...,..
01E2C0: D5 E5 21 E6 F1 CD 2C 05 D9 E1 D1 C1 CD FA 09 D9 ..!...,.........
01E2D0: 21 95 D9 CD D1 05 21 9B D9 CD 2C 05 C5 D5 E5 21 !.....!...,....!
01E2E0: 00 00 11 00 00 01 00 00 D9 E1 D1 C1 CD D6 06 CB ................
01E2F0: 45 CA E7 50 21 0E 4E E5 21 01 00 2B 29 D1 19 5E E..P!.N.!..+)..^
01E300: 19 6E 26 00 22 9C D8 2A 9C D8 E5 21 1B 00 D1 CD .n&."..*...!....
01E310: 7F 06 CB 45 CA 98 59 2A FB D8 22 96 D8 2A 98 D8 ...E..Y*.."..*..
01E320: E5 21 01 00 D1 19 22 98 D8 2A 98 D8 E5 2A 9A D8 .!...."..*...*..
01E330: D1 CD B8 06 CB 45 CA 95 59 21 AA D8 E5 2A 98 D8 .....E..Y!...*..
01E340: D1 19 6E 26 00 65 2E 01 E5 21 94 D8 E5 21 9E D8 ..n&.e...!...!..
01E350: CD F4 1E 2A 98 D8 E5 21 02 00 D1 19 E5 2A 9A D8 ...*...!.....*..
01E360: D1 CD B8 06 E5 21 AA D8 E5 2A 98 D8 E5 21 01 00 .....!...*...!..
01E370: D1 19 D1 19 6E 26 00 E5 21 40 00 D1 CD 7F 06 D1 ....n&..!@......
01E380: 7D A3 6F CB 45 CA B4 57 21 AA D8 E5 2A 98 D8 E5 }£o.E..W!...*...
01E390: 21 02 00 D1 19 D1 19 6E 26 00 65 2E 01 E5 21 96 !......n&.e...!.
01E3A0: D8 E5 21 9E D8 CD F4 1E 2A 98 D8 E5 21 02 00 D1 ..!.....*...!...
01E3B0: 19 22 98 D8 2A 94 D8 11 01 00 B7 ED 52 C2 DE 57 ."..*.......R..W
01E3C0: 2A FF D8 E5 2A 96 D8 D1 19 E5 2A FD D8 E5 2A FB *...*.....*...*.
01E3D0: D8 D1 19 E5 2A 96 D8 E5 CD 9F 51 C3 7B 59 19 11 ....*.....Q.{Y..
01E3E0: 02 00 B7 ED 52 C2 06 58 2A FF D8 E5 2A 96 D8 D1 ....R..X*...*...
01E3F0: 19 E5 2A FD D8 E5 2A FB D8 D1 19 E5 2A 96 D8 E5 ..*...*.....*...
01E400: CD 00 52 C3 7B 59 19 11 03 00 B7 ED 52 CA 1A 58 ..R.{Y......R..X
01E410: 19 11 04 00 B7 ED 52 C2 6A 58 2A FF D8 E5 2A FD ......R.jX*...*.
01E420: D8 E5 2A 96 D8 E5 21 01 00 D1 CD 4E 07 D1 19 E5 ..*...!....N....
01E430: 21 01 00 D1 EB B7 ED 52 E5 2A FF D8 E5 2A 96 D8 !......R.*...*..
01E440: E5 21 01 00 D1 CD 4E 07 D1 19 E5 2A FD D8 E5 21 .!....N....*...!
01E450: 01 00 D1 EB B7 ED 52 E5 2A 94 D8 E5 21 04 00 D1 ......R.*...!...
01E460: CD 7F 06 E5 CD FA 4C C3 7B 59 19 11 05 00 B7 ED ......L.{Y......
01E470: 52 C2 C6 58 2A FF D8 E5 21 81 00 11 00 00 01 00 R..X*...!.......
01E480: 40 C5 D5 E5 2A 96 D8 CD 08 10 D9 E1 D1 C1 CD FA @...*...........
01E490: 09 CD DE 0F D1 19 E5 2A FD D8 E5 2A 96 D8 D1 19 .......*...*....
01E4A0: E5 21 01 00 D1 EB B7 ED 52 E5 2A 96 D8 E5 21 01 .!......R.*...!.
01E4B0: 00 D1 19 E5 CD 8E 52 2A FF D8 E5 2A 96 D8 D1 19 ......R*...*....
01E4C0: 22 FF D8 C3 7B 59 19 11 06 00 B7 ED 52 C2 F7 58 "...{Y......R..X
01E4D0: 2A FF D8 E5 2A 96 D8 D1 19 E5 2A FD D8 E5 2A 96 *...*.....*...*.
01E4E0: D8 D1 19 E5 21 01 00 D1 EB B7 ED 52 E5 2A 96 D8 ....!......R.*..
01E4F0: E5 CD 01 54 C3 7B 59 19 11 07 00 B7 ED 52 C2 44 ...T.{Y......R.D
01E500: 23 56 EB E5 21 9B D9 CD 2C 05 D9 E1 CD 08 10 CD #V..!...,.......
01E510: FA 09 C5 D5 E5 21 80 00 11 00 00 01 00 00 D9 E1 .....!..........
01E520: D1 C1 CD E9 09 CD DE 0F 22 A7 D9 21 0E 4E E5 21 ........"..!.N.!
01E530: 0E 00 2B 29 D1 19 5E 23 56 EB E5 21 95 D9 CD 2C ..+)..^#V..!...,
01E540: 05 D9 E1 CD 08 10 CD FA 09 C5 D5 E5 21 80 00 11 ............!...
01E550: 00 00 01 00 00 D9 E1 D1 C1 CD E9 09 CD DE 0F 22 ..............."
01E560: A3 D9 21 02 00 E5 21 0E 00 D1 CD 66 06 7A B3 CA £.!...!....f.z..
01E570: E4 50 D5 22 A9 D9 21 0E 4E E5 2A A9 D9 2B 29 D1 .P."..!.N.*..+).
01E580: 19 5E 23 56 EB E5 21 9B D9 CD 2C 05 D9 E1 CD 08 .^#V..!...,.....
01E590: 10 CD FA 09 C5 D5 E5 21 80 00 11 00 00 01 00 00 .......!........
01E5A0: D9 E1 D1 C1 CD E9 09 CD DE 0F 22 A5 D9 21 0E 4E .........."..!.N
01E5B0: E5 21 0E 00 E5 2A A9 D9 D1 EB B7 ED 52 E5 21 01 .!...*......R.!.
01E5C0: 00 D1 19 2B 29 D1 19 5E 23 56 EB E5 21 95 D9 CD ...+)..^#V..!...
01E5D0: 2C 05 D9 E1 CD 08 10 CD FA 09 C5 D5 E5 21 80 00 ,............!..
01E5E0: 11 00 00 01 00 00 D9 E1 D1 C1 CD E9 09 CD DE 0F ................
01E5F0: 22 A1 D9 2A B8 D9 E5 2A A7 D9 D1 EB B7 ED 52 E5 "..*...*......R.
01E600: 2A B6 D9 E5 2A A3 D9 D1 19 E5 2A B8 D9 E5 2A A5 *...*£....*...*.
01E610: D9 D1 EB B7 ED 52 E5 2A B6 D9 E5 2A A1 D9 D1 19 .....R.*...*....
01E620: E5 CD 2A 4E 2A B8 D9 E5 2A A7 D9 D1 19 E5 2A B6 ..*N*...*.....*.
01E630: D9 E5 2A A3 D9 D1 19 E5 2A B8 D9 E5 2A A5 D9 D1 ..*£....*...*...
01E640: 19 E5 2A B6 D9 E5 2A A1 D9 D1 19 E5 CD 2A 4E 2A ..*...*......*N*
01E650: B8 D9 E5 2A A7 D9 D1 19 E5 2A B6 D9 E5 2A A3 D9 ...*.....*...*£.
01E660: D1 EB B7 ED 52 E5 21 01 00 D1 19 E5 2A B8 D9 E5 ....R.!.....*...
01E670: 2A A5 D9 D1 19 E5 2A B6 D9 E5 2A A1 D9 D1 EB B7 *.....*...*.....
01E680: ED 52 E5 21 01 00 D1 19 E5 CD 2A 4E 2A B8 D9 E5 .R.!......*N*...
01E690: 2A A7 D9 D1 EB B7 ED 52 E5 2A B6 D9 E5 2A A3 D9 *......R.*...*£.
01E6A0: D1 EB B7 ED 52 E5 21 01 00 D1 19 E5 2A B8 D9 E5 ....R.!.....*...
01E6B0: 2A A5 D9 D1 EB B7 ED 52 E5 2A B6 D9 E5 2A A1 D9 *......R.*...*..
01E6C0: D1 EB B7 ED 52 E5 21 01 00 D1 19 E5 CD 2A 4E 2A ....R.!......*N*
01E6D0: A5 D9 22 A7 D9 2A A1 D9 22 A3 D9 2A A9 D9 23 D1 .."..*.."£.*..#.
01E6E0: 1B C3 6D 4F C3 F2 50 2A B8 D9 E5 2A B6 D9 E5 CD ..mO..P*...*....
01E6F0: 54 2D C9 FD E1 E1 D1 C1 D9 21 73 D9 CD D1 05 E1 T-.......!s.....
01E700: 59 2A FF D8 E5 2A 96 D8 E5 21 01 00 D1 CD 4E 07 Y*...*...!....N.
01E710: D1 19 E5 2A FD D8 E5 2A 96 D8 D1 19 E5 21 01 00 ...*...*.....!..
01E720: D1 EB B7 ED 52 E5 2A 96 D8 E5 CD 42 53 2A FF D8 ....R.*....BS*..
01E730: E5 2A 96 D8 E5 21 01 00 D1 CD 4E 07 D1 19 22 FF .*...!....N...".
01E740: D8 C3 7B 59 19 11 08 00 B7 ED 52 C2 7B 59 2A FF ..{Y......R.{Y*.
01E750: D8 E5 2A 96 D8 D1 19 E5 2A FD D8 E5 2A 96 D8 E5 ..*.....*...*...
01E760: 21 01 00 D1 CD 56 07 D1 19 E5 2A 96 D8 E5 21 01 !....V....*...!.
01E770: 00 D1 19 E5 21 00 00 E5 CD 0B 4E 2A FF D8 E5 21 ....!.....N*...!
01E780: 03 00 E5 2A 96 D8 D1 CD F5 06 D1 19 22 FF D8 2A ...*........"..*
01E790: FB D8 22 96 D8 C3 AB 59 21 FF D8 E5 21 FD D8 E5 .."....Y!...!...
01E7A0: 2A FB D8 E5 2A 9C D8 E5 CD 72 54 2A 98 D8 E5 21 *...*....rT*...!
01E7B0: 01 00 D1 19 22 98 D8 C3 E8 56 2A 93 D8 26 00 7D ...."....V*..&.}
01E7C0: 32 6E F2 2A A0 D8 E5 CD 05 35 C9 FD E1 06 50 21 2n.*.....5....P!
01E7D0: 34 D8 CD E2 05 E1 22 85 D8 E1 D1 C1 D9 21 87 D8 4....."......!..
01E7E0: CD D1 05 E1 D1 C1 D9 21 8D D8 CD D1 05 FD E5 2A .......!.......*
01E7F0: 6E F2 26 00 CB 45 CA 1D 5A 21 8D D8 CD 2C 05 CD n.&..E..Z!...,..
01E800: DE 0F E5 21 87 D8 CD 2C 05 CD DE 0F E5 2A 85 D8 ...!...,.....*..
01E810: E5 21 34 D8 CD 3A 05 CD A1 56 C3 44 5A 21 8D D8 .!4..:...V.DZ!..
01E820: CD 2C 05 C5 D5 E5 CD 9E 3D E5 21 87 D8 CD 2C 05 .,......=.!...,.
01E830: C5 D5 E5 CD DC 3D E5 2A 85 D8 E5 21 34 D8 CD 3A .....=.*...!4..:
01E840: 05 CD A1 56 C9 C3 89 5C FD E1 E1 22 1A D8 E1 22 ...V...\..."..."
01E850: 1C D8 FD E5 2A 1C D8 E5 2A 1A D8 D1 CD 66 06 7A ....*...*....f.z
01E860: B3 CA 80 5A D5 22 10 D8 2A 20 D8 E5 2A 1E D8 E5 ...Z."..* ..*...
01E870: 2A 10 D8 E5 CD 4E 2E 2A 10 D8 23 D1 1B C3 5F 5A *....N.*..#..._Z
01E880: C9 21 B4 EB E5 2A 7A F2 2B E5 29 29 E5 29 E5 29 .!...*z.+.)).).)
01E890: E5 29 29 D1 19 D1 19 D1 19 D1 19 D1 19 22 08 D8 .)).........."..
01E8A0: 2A 84 F2 22 02 D8 2A 82 F2 22 00 D8 2A 08 D8 11 *.."..*.."..*...
01E8B0: 59 00 19 6E 26 00 CB 45 CA 06 5B 2A 08 D8 11 5A Y..n&..E..[*...Z
01E8C0: 00 19 6E 26 00 CB 45 CA DC 5A 2A 02 D8 E5 21 0A ..n&..E..Z*...!.
01E8D0: 00 D1 EB B7 ED 52 22 02 D8 C3 E8 5A 2A 00 D8 E5 .....R"....Z*...
01E8E0: 21 0A 00 D1 19 22 00 D8 2A 7A F2 E5 2A 88 F2 E5 !...."..*z..*...
01E8F0: 2A 02 D8 E5 2A 86 F2 E5 2A 00 D8 E5 CD 16 38 2A *...*...*.....8*
01E900: D1 C1 D9 21 79 D9 CD D1 05 E1 D1 C1 D9 21 7F D9 ...!y........!..
01E910: CD D1 05 FD E5 2A 6E F2 26 00 7D 32 6A D9 21 01 .....*n.&.}2j.!.
01E920: 00 7D 32 6E F2 2A 6A D9 26 00 CB 45 CA 57 51 21 .}2n.*j.&..E.WQ!
01E930: 7F D9 CD 2C 05 CD DE 0F E5 21 79 D9 CD 2C 05 CD ...,.....!y..,..
01E940: DE 0F E5 21 73 D9 CD 2C 05 CD DE 0F E5 21 01 00 ...!s..,.....!..
01E950: E5 CD 0B 4E C3 95 51 21 7F D9 CD 2C 05 C5 D5 E5 ...N..Q!...,....
01E960: CD 9E 3D E5 21 79 D9 CD 2C 05 C5 D5 E5 CD DC 3D ..=.!y..,......=
01E970: E5 21 73 D9 CD 2C 05 C5 D5 E5 21 87 00 11 00 00 .!s..,....!.....
01E980: 01 00 48 D9 E1 D1 C1 CD FA 09 CD DE 0F E5 21 00 ..H...........!.
01E990: 00 E5 CD 0B 4E 2A 6A D9 26 00 7D 32 6E F2 C9 FD ....N*j.&.}2n...
01E9A0: E1 E1 22 64 D9 E1 22 66 D9 E1 22 68 D9 FD E5 2A .."d.."f.."h...*
01E9B0: 68 D9 E5 2A 64 D9 D1 EB B7 ED 52 E5 2A 66 D9 E5 h..*d.....R.*f..
01E9C0: 2A 68 D9 E5 2A 64 D9 D1 19 E5 21 02 00 D1 19 E5 *h..*d....!.....
01E9D0: 2A 66 D9 E5 CD 9B 4B 2A 68 D9 E5 2A 66 D9 E5 2A *f....K*h..*f..*
01E9E0: 64 D9 D1 EB B7 ED 52 E5 2A 68 D9 E5 2A 66 D9 E5 d.....R.*h..*f..
01E9F0: 2A 64 D9 D1 19 E5 21 01 00 D1 19 E5 CD 9B 4B C9 *d....!.......K.
01EA00: FD E1 E1 22 56 D9 E1 22 58 D9 E1 22 5A D9 FD E5 ..."V.."X.."Z...
01EA10: 2A 5A D9 E5 2A 56 D9 D1 EB B7 ED 52 E5 2A 58 D9 *Z..*V.....R.*X.
01EA20: E5 2A 56 D9 D1 19 E5 2A 5A D9 E5 2A 56 D9 D1 19 .*V....*Z..*V...
01EA30: E5 21 01 00 D1 19 E5 2A 58 D9 E5 2A 56 D9 D1 EB .!.....*X..*V...
01EA40: B7 ED 52 E5 21 01 00 D1 EB B7 ED 52 E5 CD 9B 4B ..R.!......R...K
01EA50: 2A 5A D9 E5 2A 56 D9 D1 EB B7 ED 52 E5 2A 58 D9 *Z..*V.....R.*X.
01EA60: E5 2A 56 D9 D1 EB B7 ED 52 E5 2A 5A D9 E5 2A 56 .*V.....R.*Z..*V
01EA70: D9 D1 19 E5 21 01 00 D1 19 E5 2A 58 D9 E5 2A 56 ....!.....*X..*V
01EA80: D9 D1 19 E5 21 01 00 D1 19 E5 CD 9B 4B C9 FD E1 ....!.......K...
01EA90: E1 22 48 D9 E1 22 4A D9 E1 22 4C D9 FD E5 2A 4C ."H.."J.."L...*L
01EAA0: D9 E5 2A 48 D9 D1 EB B7 ED 52 E5 2A 4A D9 E5 2A ..*H.....R.*J..*
01EAB0: 4C D9 E5 2A 4A D9 E5 2A 48 D9 D1 EB B7 ED 52 E5 L..*J..*H.....R.
01EAC0: 21 01 00 D1 EB B7 ED 52 E5 CD 9B 4B 2A 4C D9 E5 !......R...K*L..
01EAD0: 2A 4A D9 E5 2A 48 D9 D1 EB B7 ED 52 E5 21 01 00 *J..*H.....R.!..
01EAE0: D1 19 E5 2A 4C D9 E5 2A 48 D9 D1 19 E5 2A 4A D9 ...*L..*H....*J.
01EAF0: E5 21 01 00 D1 19 E5 CD 9B 4B 2A 4C D9 E5 2A 48 .!.......K*L..*H
01EB00: 7A F2 E5 CD F8 3B 2A 67 F2 26 00 CB 45 CA 40 5B z....;*g.&..E.@[
01EB10: 2A 84 F2 E5 21 0A 00 D1 19 22 02 D8 2A 82 F2 22 *...!...."..*.."
01EB20: 00 D8 2A 84 F2 22 06 D8 2A 84 F2 E5 21 0A 00 D1 ..*.."..*...!...
01EB30: 19 E5 21 01 00 D1 EB B7 ED 52 22 04 D8 C3 70 5B ..!......R"...p[
01EB40: 2A 84 F2 22 02 D8 2A 82 F2 E5 21 0A 00 D1 EB B7 *.."..*...!.....
01EB50: ED 52 22 00 D8 2A 82 F2 E5 21 0A 00 D1 EB B7 ED .R"..*...!......
01EB60: 52 E5 21 01 00 D1 19 22 06 D8 2A 82 F2 22 04 D8 R.!...."..*.."..
01EB70: 2A 08 D8 11 5A 00 19 E5 2A 67 F2 26 00 EB E1 73 *...Z...*g.&...s
01EB80: 2A 7A F2 E5 2A 88 F2 E5 2A 02 D8 E5 2A 86 F2 E5 *z..*...*...*...
01EB90: 2A 00 D8 E5 CD 16 38 2A 7A F2 E5 CD F8 3B 2A 06 *.....8*z....;*.
01EBA0: D8 E5 2A 04 D8 E5 CD 48 5A 21 FF 00 E5 2A A7 E4 ..*....HZ!...*..
01EBB0: 26 00 D1 EB B7 ED 52 E5 CD 00 25 2A 20 D8 E5 21 &.....R...%* ..!
01EBC0: 02 00 D1 19 E5 2A 1E D8 E5 2A 20 D8 D1 EB B7 ED .....*...* .....
01EBD0: 52 E5 2A 08 D8 11 08 00 19 CD 3A 05 CD A3 08 E5 R.*.......:..£..
01EBE0: 21 06 00 D1 CD F5 06 D1 EB B7 ED 52 E5 21 01 00 !..........R.!..
01EBF0: D1 CD 56 07 D1 19 E5 2A 06 D8 E5 21 03 00 D1 19 ..V....*...!....
01EC00: E5 21 01 00 E5 2A 08 D8 11 08 00 19 CD 3A 05 CD .!...*.......:..
01EC10: A1 56 2A 20 D8 CD 08 10 C5 D5 E5 2A 06 D8 CD 08 .V* .......*....
01EC20: 10 C5 D5 E5 2A 1E D8 CD 08 10 C5 D5 E5 2A 04 D8 ....*........*..
01EC30: CD 08 10 C5 D5 E5 21 00 00 E5 CD 45 4D 21 FF 00 ......!....EM!..
01EC40: E5 2A A7 E4 26 00 D1 EB B7 ED 52 E5 CD 00 25 2A .*..&.....R...%*
01EC50: 20 D8 CD 08 10 C5 D5 E5 2A 84 F2 CD 08 10 C5 D5 .......*.......
01EC60: E5 2A 1E D8 CD 08 10 C5 D5 E5 2A 82 F2 CD 08 10 .*........*.....
01EC70: C5 D5 E5 21 00 00 E5 CD 45 4D 2A 08 D8 11 59 00 ...!....EM*...Y.
01EC80: 19 E5 21 01 00 EB E1 73 C9 2A 6E F2 26 00 7D 32 ..!....s.*n.&.}2
01EC90: 22 D8 21 01 00 7D 32 6E F2 2A 6D F2 26 00 7D 32 ".!..}2n.*m.&.}2
01ECA0: 23 D8 21 00 00 7D 32 6D F2 2A 88 F2 E5 21 03 00 #.!..}2m.*...!..
01ECB0: D1 CD 4E 07 22 20 D8 2A 86 F2 E5 21 03 00 D1 CD ..N." .*...!....
01ECC0: 4E 07 E5 21 07 00 D1 19 22 1E D8 21 B4 EB E5 2A N..!...."..!...*
01ECD0: 7A F2 2B E5 29 29 E5 29 E5 29 E5 29 29 D1 19 D1 z.+.)).).).))...
01ECE0: 19 D1 19 D1 19 D1 19 22 24 D8 2A 68 F2 26 00 E5 ......."$.*h.&..
01ECF0: 2A 24 D8 11 08 00 19 CD 3A 05 CD A3 08 E5 21 00 *$......:..£..!.
01ED00: D9 D1 19 E5 2A 4A D9 E5 21 01 00 D1 19 E5 2A 4C ....*J..!.....*L
01ED10: D9 E5 2A 4A D9 E5 2A 48 D9 D1 19 E5 CD 9B 4B 2A ..*J..*H......K*
01ED20: 4C D9 E5 2A 4A D9 E5 2A 48 D9 D1 19 E5 2A 4C D9 L..*J..*H....*L.
01ED30: E5 2A 48 D9 D1 EB B7 ED 52 E5 2A 4A D9 E5 CD 9B .*H.....R.*J....
01ED40: 4B C9 FD E1 E1 22 3A D9 E1 22 3C D9 E1 22 3E D9 K....":.."<..">.
01ED50: FD E5 2A 3E D9 E5 2A 3A D9 D1 EB B7 ED 52 E5 2A ..*>..*:.....R.*
01ED60: 3C D9 E5 2A 3A D9 D1 19 E5 2A 3E D9 E5 2A 3A D9 <..*:....*>..*:.
01ED70: D1 19 E5 21 01 00 D1 19 E5 2A 3C D9 E5 2A 3A D9 ...!.....*<..*:.
01ED80: D1 EB B7 ED 52 E5 21 01 00 D1 EB B7 ED 52 E5 CD ....R.!......R..
01ED90: 9B 4B 2A 3E D9 E5 2A 3A D9 D1 EB B7 ED 52 E5 2A .K*>..*:.....R.*
01EDA0: 3C D9 E5 2A 3A D9 D1 EB B7 ED 52 E5 2A 3E D9 E5 <..*:.....R.*>..
01EDB0: 2A 3A D9 D1 19 E5 21 01 00 D1 19 E5 2A 3C D9 E5 *:....!.....*<..
01EDC0: 2A 3A D9 D1 19 E5 21 01 00 D1 19 E5 CD 9B 4B 2A *:....!.......K*
01EDD0: 3E D9 E5 2A 3A D9 D1 EB B7 ED 52 E5 21 02 00 D1 >..*:.....R.!...
01EDE0: EB B7 ED 52 E5 2A 3C D9 E5 2A 3E D9 E5 2A 3A D9 ...R.*<..*>..*:.
01EDF0: D1 19 E5 21 04 00 D1 19 E5 2A 3C D9 E5 CD 9B 4B ...!.....*<....K
01EE00: C9 FD E1 E1 22 2C D9 E1 22 2E D9 E1 22 30 D9 FD ....",.."..."0..
01EE10: E5 2A 30 D9 E5 2A 2C D9 D1 EB B7 ED 52 E5 2A 2E .*0..*,.....R.*.
01EE20: D9 E5 2A 2C D9 D1 EB B7 ED 52 E5 2A 30 D9 E5 2A ..*,.....R.*0..*
01EE30: 2E D9 E5 CD 9B 4B 2A 30 D9 E5 2A 2C D9 D1 19 E5 .....K*0..*,....
01EE40: 2A 2E D9 E5 2A 2C D9 D1 EB B7 ED 52 E5 2A 30 D9 *...*,.....R.*0.
01EE50: E5 2A 2E D9 E5 CD 9B 4B 2A 30 D9 E5 2A 2E D9 E5 .*.....K*0..*...
01EE60: 2A 30 D9 E5 2A 2E D9 E5 2A 2C D9 D1 19 E5 CD 9B *0..*...*,......
01EE70: 4B C9 FD E1 E1 7D 32 1E D9 E1 7D 32 1F D9 E1 22 K....}2...}2..."
01EE80: 20 D9 E1 22 22 D9 FD E5 2A 88 F2 E5 21 03 00 D1 ..""...*...!...
01EE90: CD 4E 07 22 14 D9 2A 86 F2 E5 21 03 00 D1 CD 4E .N."..*...!....N
01EEA0: 07 E5 21 07 00 D1 19 22 12 D9 21 00 00 E5 21 05 ..!...."..!...!.
01EEB0: 00 D1 CD 66 06 7A B3 CA 82 56 D5 22 0E D9 21 97 ...f.z...V."..!.
01EEC0: EA E5 2A 1E D9 26 00 11 E0 FF 19 E5 29 D1 19 D1 ..*..&......)...
01EED0: 19 E5 21 07 00 E5 2A 0E D9 D1 EB B7 ED 52 E5 21 ..!...*......R.!
01EEE0: 01 00 D1 CD 56 07 2B D1 19 6E 26 00 E5 2A 0E D9 ....V.+..n&..*..
01EEF0: E5 21 01 00 D1 7C A2 67 7D A3 6F E5 21 02 00 D1 .!...|.g}£o.!...
01EF00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
01EF10: 1A 00 00 00 02 09 4E E5 1A 00 41 02 00 00 00 02 ......N...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: 00 D1 CD CC 06 D1 7D A3 6F E5 2A 24 D8 11 06 00 ......}£o.*$....
01F010: 19 5E 23 56 EB E5 2A 24 D8 11 02 00 19 5E 23 56 .^#V..*$.....^#V
01F020: EB D1 EB B7 ED 52 E5 21 0A 00 D1 CD CC 06 D1 7D .....R.!.......}
01F030: A3 6F E5 2A 24 D8 11 08 00 19 CD 3A 05 CD A3 08 £o.*$......:..£.
01F040: E5 21 06 00 D1 CD F5 06 E5 2A 1E D8 E5 2A 20 D8 .!.......*...* .
01F050: D1 EB B7 ED 52 CD 80 07 E5 21 04 00 D1 EB B7 ED ....R....!......
01F060: 52 D1 CD E0 06 D1 7D A3 6F CB 45 CA 74 5D CD 81 R.....}£o.E.t]..
01F070: 5A C3 AD 5D 2A 24 D8 11 59 00 19 E5 21 00 00 EB Z..]*$..Y...!...
01F080: E1 73 2A 20 D8 CD 08 10 C5 D5 E5 2A 84 F2 CD 08 .s* .......*....
01F090: 10 C5 D5 E5 2A 1E D8 CD 08 10 C5 D5 E5 2A 82 F2 ....*........*..
01F0A0: CD 08 10 C5 D5 E5 21 00 00 E5 CD 45 4D 2A 22 D8 ......!....EM*".
01F0B0: 26 00 7D 32 6E F2 2A 23 D8 26 00 7D 32 6D F2 C9 &.}2n.*#.&.}2m..
01F0C0: C3 36 5F C3 58 5E C3 D1 5D 80 40 20 10 08 04 02 .6_.X^..].@ ....
01F0D0: 01 FD E1 E1 22 DF D7 E1 22 E1 D7 FD E5 2A DF D7 ...."..."....*..
01F0E0: E5 21 03 00 D1 CD 4E 07 22 DF D7 21 00 00 7D 32 .!....N."..!..}2
01F0F0: D6 D7 21 00 00 E5 2A EC D7 D1 CD 66 06 7A B3 CA ..!...*....f.z..
01F100: 49 5E D5 7D 32 D5 D7 2A E1 D7 E5 2A DF D7 E5 2A I^.}2..*...*...*
01F110: D5 D7 26 00 D1 19 E5 CD 85 2D CB 45 CA 3E 5E 2A ..&......-.E.>^*
01F120: D6 D7 26 00 E5 21 C9 5D E5 2A D5 D7 26 00 D1 19 ..&..!.].*..&...
01F130: 6E 26 00 D1 7C B2 67 7D B3 6F 7D 32 D6 D7 2A D5 n&..|.g}.o}2..*.
01F140: D7 26 00 23 D1 1B C3 FD 5D 2A D6 D7 26 00 7D 32 .&.#....]*..&.}2
01F150: E3 D7 2A E3 D7 26 00 C9 FD E1 E1 22 EC D7 FD E5 ..*..&....."....
01F160: 2A FE D7 26 00 E5 21 01 00 D1 CD 7F 06 CB 45 CA *..&..!.......E.
01F170: 84 5E 21 BC 00 CD BA 14 CD BA 17 02 1B 4C CD 1B .^!..........L..
01F180: 20 C3 9B 5E 21 BC 00 CD BA 14 CD BA 17 02 1B 2A ..^!..........*
01F190: 2A FE D7 26 00 CD 22 17 CD 1B 20 21 BC 00 CD BA *..&.."... !....
01F1A0: 14 21 7F 02 E5 21 01 00 D1 19 26 00 CD 22 17 21 .!...!....&..".!
01F1B0: 7F 02 E5 21 01 00 D1 19 6C 26 00 CD 22 17 CD 1B ...!....l&.."...
01F1C0: 20 21 00 00 E5 21 7F 02 D1 CD 66 06 7A B3 CA 17 !...!....f.z...
01F1D0: 5F D5 22 F2 D7 2A F2 D7 E5 2A F4 D7 E5 CD C6 5D _."..*...*.....]
01F1E0: 7D 32 EE D7 2A FF D7 26 00 CB 45 CA FD 5E 2A EE }2..*..&..E..^*.
01F1F0: D7 26 00 7D 2F 6F 7C 2F 67 7D 32 EE D7 21 BC 00 .&.}/o|/g}2..!..
01F200: BE 1A CD F1 1F E5 21 00 00 D1 CD 7F 06 CB 45 CA ......!.......E.
01F210: 12 27 21 AE E2 E5 21 A7 E3 E5 2A EB E0 E5 21 7F .'!...!...*...!.
01F220: 00 D1 7C A2 67 7D A3 6F D1 19 E5 2A F9 E0 CD 64 ..|.g}£o...*...d
01F230: 1F 21 76 E3 E5 21 A7 E3 E5 21 02 00 CD BA 1A CD .!v..!...!......
01F240: F1 1F E5 21 00 00 D1 CD 7F 06 CB 45 CA 4F 27 C9 ...!.......E.O'.
01F250: FD E1 E1 22 DD E0 E1 22 DF E0 E1 22 E1 E0 E1 22 ..."..."..."..."
01F260: E3 E0 E1 22 E5 E0 E1 22 E7 E0 E1 22 E9 E0 FD E5 ..."..."..."....
01F270: 2A DF E0 E5 21 02 00 D1 CD 7F 06 E5 2A DD E0 E5 *...!.......*...
01F280: 21 02 00 D1 CD 7F 06 D1 7D A3 6F CB 45 CA B1 27 !.......}£o.E..'
01F290: 2A E9 E0 E5 2A E7 E0 E5 2A E5 E0 E5 CD 31 26 2A *...*...*....1&*
01F2A0: E9 E0 E5 2A E3 E0 E5 2A E1 E0 E5 CD B0 26 C3 9A ...*...*.....&..
01F2B0: 28 2A DF E0 E5 21 02 00 D1 CD 7F 06 E5 2A DD E0 (*...!.......*..
01F2C0: E5 21 01 00 D1 CD 7F 06 D1 7D A3 6F CB 45 CA 0A .!.......}£o.E..
01F2D0: 28 2A E9 E0 E5 2A E7 E0 E5 2A E5 E0 E5 CD 31 26 (*...*...*....1&
01F2E0: 21 01 00 E5 21 AE E2 E5 21 00 00 E5 2A E3 E0 E5 !...!...!...*...
01F2F0: 21 03 00 D1 CD 4E 07 E5 2A E1 E0 E5 CD E9 25 E5 !....N..*.....%.
01F300: 2A E9 E0 E5 CD A7 24 C3 9A 28 2A DF E0 E5 21 01 *.....$..(*...!.
01F310: 00 D1 CD 7F 06 E5 2A DD E0 E5 21 02 00 D1 CD 7F ......*...!.....
01F320: 06 D1 7D A3 6F CB 45 CA 63 28 21 00 00 E5 2A E7 ..}£o.E.c(!...*.
01F330: E0 E5 21 03 00 D1 CD 4E 07 E5 2A E5 E0 E5 CD E9 ..!....N..*.....
01F340: 25 E5 21 01 00 E5 21 AE E2 E5 2A E9 E0 E5 CD A7 %.!...!...*.....
01F350: 24 2A E9 E0 E5 2A E3 E0 E5 2A E1 E0 E5 CD B0 26 $*...*...*.....&
01F360: C3 9A 28 21 00 00 E5 2A E7 E0 E5 21 03 00 D1 CD ..(!...*...!....
01F370: 4E 07 E5 2A E5 E0 E5 CD E9 25 E5 21 00 00 E5 2A N..*.....%.!...*
01F380: E3 E0 E5 21 03 00 D1 CD 4E 07 E5 2A E1 E0 E5 CD ...!....N..*....
01F390: E9 25 E5 2A E9 E0 E5 CD A7 24 C9 FD E1 E1 22 CD .%.*.....$....".
01F3A0: E0 E1 22 CF E0 E1 22 D1 E0 E1 22 D3 E0 FD E5 21 .."..."..."....!
01F3B0: AE E2 E5 2A D1 E0 E5 2A D3 E0 CD 4E 1F 21 01 00 ...*...*...N.!..
01F3C0: E5 21 AE E2 E5 21 00 00 E5 2A CF E0 E5 21 03 00 .!...!...*...!..
01F3D0: D1 CD 4E 07 E5 2A CD E0 E5 CD E9 25 E5 2A D1 E0 ..N..*.....%.*..
01F3E0: E5 CD A7 24 C9 FD E1 E1 22 BF E0 E1 22 C1 E0 E1 ...$...."..."...
01F3F0: 22 C3 E0 FD E5 21 00 00 E5 2A C3 E0 E5 21 03 00 "....!...*...!..
01F400: CD BA 14 2A EE D7 26 00 CD 22 17 CD 1B 20 2A F2 ...*..&.."... *.
01F410: D7 23 D1 1B C3 CC 5E 2A FE D7 26 00 E5 21 04 00 .#....^*..&..!..
01F420: D1 CD 92 06 CB 45 CA 35 5F 21 BC 00 CD BA 14 CD .....E.5_!......
01F430: CD 17 CD 1B 20 C9 FD E1 E1 7D 32 FE D7 E1 7D 32 .... ....}2...}2
01F440: FF D7 FD E5 21 07 00 22 F0 D7 2A A7 E4 26 00 7D ....!.."..*..&.}
01F450: 32 EF D7 21 FF 00 E5 CD 00 25 2A FE D7 26 00 E5 2..!.....%*..&..
01F460: 21 07 00 D1 7C A2 67 7D A3 6F 7D 32 FE D7 2A FE !...|.g}£o}2..*.
01F470: D7 26 00 E5 21 05 00 D1 CD 7F 06 E5 2A FE D7 26 .&..!.......*..&
01F480: 00 E5 21 00 00 D1 CD 7F 06 D1 7D B3 6F CB 45 CA ..!.......}.o.E.
01F490: 99 5F 21 04 00 7D 32 FE D7 21 BC 00 CD BA 14 CD ._!..}2..!......
01F4A0: BA 17 03 1B 33 18 CD 1B 20 21 00 00 E5 21 C7 00 ....3... !...!..
01F4B0: E5 21 01 00 D1 19 E5 21 03 00 D1 CD 56 07 E5 21 .!.....!....V..!
01F4C0: 01 00 D1 EB B7 ED 52 D1 CD 66 06 7A B3 CA E4 5F ......R..f.z..._
01F4D0: D5 22 F4 D7 21 07 00 E5 CD C3 5D 2A F4 D7 23 D1 ."..!.....]*..#.
01F4E0: 1B C3 CB 5F 21 C7 00 E5 21 01 00 D1 19 E5 21 03 ..._!...!.....!.
01F4F0: 00 D1 CD 56 07 22 F4 D7 21 C7 00 E5 21 01 00 D1 ...V."..!...!...
01F500: 19 E5 21 07 00 D1 7C A2 67 7D A3 6F E5 21 00 00 ..!...|.g}£o.!..
01F510: D1 CD 92 06 CB 45 CA 31 60 21 C7 00 E5 21 01 00 .....E.1`!...!..
01F520: D1 19 E5 21 07 00 D1 7C A2 67 7D A3 6F E5 CD C3 ...!...|.g}£o...
01F530: 5D 21 BC 00 CD BA 14 CD BA 17 02 1B 32 CD CD 17 ]!..........2...
01F540: CD 1B 20 2A EF D7 26 00 E5 CD 00 25 C9 C3 A9 64 .. *..&....%...d
01F550: 2A C7 D7 CD 08 10 C5 D5 E5 2A C5 D7 CD 08 10 C5 *........*......
01F560: D5 E5 2A C3 D7 CD 08 10 C5 D5 E5 2A C1 D7 CD 08 ..*........*....
01F570: 10 C5 D5 E5 CD FF 4A 2A C7 D7 22 C3 D7 2A C5 D7 ......J*.."..*..
01F580: 22 C1 D7 C9 C3 47 61 C3 0A 62 C3 CD 62 01 0A 00 "....Ga..b..b...
01F590: 21 AE D7 CD 08 05 FD E1 E1 22 B6 D7 FD E5 2A B6 !........"....*.
01F5A0: D7 E5 21 00 00 D1 CD CC 06 CB 45 CA 3E 61 2A B6 ..!.......E.>a*.
01F5B0: D7 E5 21 01 00 D1 EB B7 ED 52 E5 CD 8D 60 2A C7 ..!......R...`*.
01F5C0: D7 E5 2A C9 D7 D1 19 22 C7 D7 2A C5 D7 E5 2A C9 ..*...."..*...*.
01F5D0: D7 D1 EB B7 ED 52 22 C5 D7 CD 50 60 2A B6 D7 E5 .....R"...P`*...
01F5E0: 21 01 00 D1 EB B7 ED 52 E5 CD 84 60 2A C7 D7 E5 !......R...`*...
01F5F0: 21 02 00 E5 2A C9 D7 D1 CD F5 06 D1 19 22 C7 D7 !...*........"..
01F600: C3 E2 20 CD AB 43 6F 70 79 72 69 67 68 74 20 28 .. ..Copyright (
01F610: 43 29 20 31 39 38 35 20 42 4F 52 4C 41 4E 44 20 C) 1985 BORLAND
01F620: 49 6E 63 00 04 00 A1 42 00 00 00 00 00 00 00 00 Inc....B........
01F630: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01F640: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01F650: 00 00 00 0C 61 6D 73 74 72 61 64 20 36 31 32 38 ....amstrad 6128
01F660: 43 34 36 34 2F 36 36 34 50 18 00 00 1C 00 0D 0D C464/664P.......
01F670: 1C 01 01 01 1D 03 03 1B 1B 1B D5 00 1C 01 00 00 ................
01F680: 1C 00 17 17 1D 17 17 EF 9E CD BD 04 1B 59 00 00 .............Y..
01F690: 00 00 00 00 00 00 00 00 00 00 00 01 20 20 04 03 ............ ..
01F6A0: 00 00 02 1B 45 00 00 00 00 00 00 00 00 00 02 1B ....E...........
01F6B0: 4C 00 00 00 02 1B 4D 00 00 00 00 00 02 1B 4B 00 L.....M.......K.
01F6C0: 00 00 02 1B 71 00 00 00 02 1B 70 00 00 00 00 00 ....q.....p.....
01F6D0: 7E B7 37 C8 23 F5 E5 7E CD E8 01 E1 F1 3D C8 18 ~.7.#..~.....=..
01F6E0: F3 CD 00 02 0D 0A 00 C9 6F E5 CD A6 00 C9 FE 80 ........o.......
01F6F0: DC 6B 02 D4 84 02 E6 7F 18 EE E5 21 EE 01 18 04 .k.........!....
01F700: E5 21 E8 01 22 13 02 E1 E3 F5 C5 D5 7E 23 B7 28 .!..".......~#.(
01F710: 07 E5 CD E8 01 E1 18 F4 D1 C1 F1 E3 C9 7D B4 C8 .............}..
01F720: 3A 24 01 87 87 87 E3 E3 E3 E3 C5 01 D2 04 C1 3D :$.............=
01F730: 20 F4 2B 18 E8 CD D0 01 D8 2A CE 01 18 DF F5 C5 .+......*......
01F740: D5 E5 21 A8 01 CD 35 02 21 A2 01 CD D0 01 2A BA ..!...5.!.....*.
01F750: 01 D4 1D 02 E1 D1 C1 F1 C9 F5 C5 D5 E5 21 B4 01 .............!..
01F760: 18 E9 F5 C5 D5 E5 21 AE 01 18 E0 F5 3A E0 00 B7 ......!.....:...
01F770: 28 10 C5 D5 E5 AF 32 E0 00 21 C8 01 CD 35 02 E1 (.....2..!...5..
01F780: D1 C1 F1 C9 F5 3A E0 00 FE FF 28 F6 C5 D5 E5 3E .....:....(....>
01F790: FF 32 E0 00 21 C2 01 18 E3 F5 C5 D5 E5 21 BC 01 .2..!........!..
01F7A0: 18 DA F5 C5 D5 E5 E5 11 F0 00 21 8B 01 01 10 00 ..........!.....
01F7B0: ED B0 D1 3A 9E 01 4F 3A 9C 01 82 D5 CD DC 02 D1 ...:..O:........
01F7C0: 3A 9F 01 4F 3A 9D 01 83 CD DC 02 21 F0 00 CD D0 :..O:......!....
01F7D0: 01 2A A0 01 CD 1D 02 E1 D1 C1 F1 C9 21 F0 00 06 .*..........!...
01F7E0: 00 09 EB 21 9B 01 34 35 28 02 12 C9 1B 1B 21 0A ...!..45(.....!.
01F7F0: 03 06 03 2B 0E 2F 0C 96 30 FC 86 F5 79 FE 30 28 ...+./..0...y.0(
01F800: CD 50 60 2A B6 D7 E5 21 01 00 D1 EB B7 ED 52 E5 .P`*...!......R.
01F810: CD 8A 60 2A C7 D7 E5 2A C9 D7 D1 19 22 C7 D7 2A ..`*...*...."..*
01F820: C5 D7 E5 2A C9 D7 D1 19 22 C5 D7 CD 50 60 2A B6 ...*...."...P`*.
01F830: D7 E5 21 01 00 D1 EB B7 ED 52 E5 CD 8D 60 01 0A ..!......R...`..
01F840: 00 11 AE D7 C3 22 05 01 0A 00 21 A4 D7 CD 08 05 ....."....!.....
01F850: FD E1 E1 22 AC D7 FD E5 2A AC D7 E5 21 00 00 D1 ..."....*...!...
01F860: CD CC 06 CB 45 CA 01 62 2A AC D7 E5 21 01 00 D1 ....E..b*...!...
01F870: EB B7 ED 52 E5 CD 84 60 2A C7 D7 E5 2A C9 D7 D1 ...R...`*...*...
01F880: EB B7 ED 52 22 C7 D7 2A C5 D7 E5 2A C9 D7 D1 EB ...R"..*...*....
01F890: B7 ED 52 22 C5 D7 CD 50 60 2A AC D7 E5 21 01 00 ..R"...P`*...!..
01F8A0: D1 EB B7 ED 52 E5 CD 87 60 2A C5 D7 E5 21 02 00 ....R...`*...!..
01F8B0: E5 2A C9 D7 D1 CD F5 06 D1 EB B7 ED 52 22 C5 D7 .*..........R"..
01F8C0: CD 50 60 2A AC D7 E5 21 01 00 D1 EB B7 ED 52 E5 .P`*...!......R.
01F8D0: CD 8D 60 2A C7 D7 E5 2A C9 D7 D1 19 22 C7 D7 2A ..`*...*...."..*
01F8E0: C5 D7 E5 2A C9 D7 D1 EB B7 ED 52 22 C5 D7 CD 50 ...*......R"...P
01F8F0: 60 2A AC D7 E5 21 01 00 D1 EB B7 ED 52 E5 CD 84 `*...!......R...
01F900: 60 01 0A 00 11 A4 D7 C3 22 05 01 0A 00 21 9A D7 `......."....!..
01F910: CD 08 05 FD E1 E1 22 A2 D7 FD E5 2A A2 D7 E5 21 ......"....*...!
01F920: 00 00 D1 CD CC 06 CB 45 CA C4 62 2A A2 D7 E5 21 .......E..b*...!
01F930: 01 00 D1 EB B7 ED 52 E5 CD 87 60 2A C7 D7 E5 2A ......R...`*...*
01F940: C9 D7 D1 EB B7 ED 52 22 C7 D7 2A C5 D7 E5 2A C9 ......R"..*...*.
01F950: D7 D1 19 22 C5 D7 CD 50 60 2A A2 D7 E5 21 01 00 ..."...P`*...!..
01F960: D1 EB B7 ED 52 E5 CD 8A 60 2A C7 D7 E5 21 02 00 ....R...`*...!..
01F970: E5 2A C9 D7 D1 CD F5 06 D1 EB B7 ED 52 22 C7 D7 .*..........R"..
01F980: CD 50 60 2A A2 D7 E5 21 01 00 D1 EB B7 ED 52 E5 .P`*...!......R.
01F990: CD 84 60 2A C7 D7 E5 2A C9 D7 D1 EB B7 ED 52 22 ..`*...*......R"
01F9A0: C7 D7 2A C5 D7 E5 2A C9 D7 D1 EB B7 ED 52 22 C5 ..*...*......R".
01F9B0: D7 CD 50 60 2A A2 D7 E5 21 01 00 D1 EB B7 ED 52 ..P`*...!......R
01F9C0: E5 CD 87 60 01 0A 00 11 9A D7 C3 22 05 01 0A 00 ...`......."....
01F9D0: 21 90 D7 CD 08 05 FD E1 E1 22 98 D7 FD E5 2A 98 !........"....*.
01F9E0: D7 E5 21 00 00 D1 CD CC 06 CB 45 CA 7E 63 2A 98 ..!.......E.~c*.
01F9F0: D7 E5 21 01 00 D1 EB B7 ED 52 E5 CD 8A 60 2A C7 ..!......R...`*.
01FA00: 01 12 13 F1 10 ED C9 01 0A 64 21 6B 01 C3 35 02 .........d!k..5.
01FA10: 21 7B 01 C3 35 02 11 03 00 CD 5F 03 E6 01 18 06 !{..5....._.....
01FA20: 11 06 00 CD 5F 03 6F 26 00 C9 11 12 00 18 F4 11 ...._.o&........
01FA30: 0C 00 18 08 11 0F 00 18 03 11 09 00 E1 C1 E5 3A ...............:
01FA40: DD 00 B7 28 1A D5 C5 CD A0 00 7C B5 28 0F CD E1 ...(......|.(...
01FA50: 03 FE 13 20 08 CD E1 03 FE 03 CA D4 20 C1 D1 2A ... ........ ..*
01FA60: 01 00 19 E9 22 D2 00 78 32 DD 00 79 B7 28 0B 3E ...."..x2..y.(.>
01FA70: C3 32 38 00 21 FB 1F 22 39 00 21 A5 03 11 A0 00 .28.!.."9.!.....
01FA80: 01 18 00 ED B0 21 BD 03 11 B8 00 01 0C 00 ED B0 .....!..........
01FA90: AF 6F 67 32 D0 00 22 D4 00 22 D6 00 3E 7E 32 D1 .og2..".."..>~2.
01FAA0: 00 32 E0 00 C9 C3 16 03 C3 20 03 C3 39 03 C3 2F .2....... ..9../
01FAB0: 03 C3 34 03 C3 2A 03 C3 39 03 C3 20 03 C1 00 82 ..4..*..9.. ....
01FAC0: 00 43 00 C4 00 C5 00 C1 00 C5 D5 E5 DD E5 FD E5 .C..............
01FAD0: F5 6F 26 00 E5 CD A6 00 F1 FD E1 DD E1 E1 D1 C1 .o&.............
01FAE0: C9 C5 D5 E5 DD E5 FD E5 CD A3 00 7D 18 EB 0E FF .........£.}....
01FAF0: 18 0C 0E 00 ED 5B D2 00 13 1A FE 20 28 FA 21 65 .....[..... (.!e
01FB00: 00 06 03 CD 7B 04 1A CD A6 04 FE 41 38 12 FE 51 ....{......A8..Q
01FB10: 30 0E 47 13 1A FE 3A 20 06 78 D6 40 13 18 02 1B 0.G...: .x.@....
01FB20: AF 21 5C 00 77 23 0C 0D 28 19 1A CD 82 04 20 13 .!\.w#..(..... .
01FB30: FE 3F 28 0F FE 2A 28 0B FE 2E 28 07 06 0B CD 77 .?(..*(...(....w
01FB40: 04 18 10 06 08 CD 5E 04 1A FE 2E 20 06 13 06 03 ......^.... ....
01FB50: CD 5E 04 21 68 00 06 18 36 00 23 10 FB C9 1A 0C .^.!h...6.#.....
01FB60: 0D 28 08 FE 3F 28 09 FE 2A 28 0B CD 82 04 28 0B .(..?(..*(....(.
01FB70: 77 23 13 10 E9 C9 13 3E 3F 18 02 3E 20 77 23 10 w#.....>?..> w#.
01FB80: FC C9 CD A6 04 FE 20 38 0D E5 C5 21 98 04 01 0E ...... 8...!....
01FB90: 00 ED B1 C1 E1 C9 BF C9 20 2E 2C 3B 3A 3D 3F 2A ........ .,;:=?*
01FBA0: 5B 5D 3C 3E 7B 7D FE 61 D8 FE 7B D0 D6 20 C9 7C []<>{}.a..{.. .|
01FBB0: CD B4 04 7D F5 1F 1F 1F 1F CD BD 04 F1 E6 0F C6 ...}............
01FBC0: 90 27 CE 40 27 C3 C9 03 AF 37 CB 7C C0 7C B7 7D .'.@'....7.|.|.}
01FBD0: C8 3E FF C9 32 D8 00 C5 CD AF 1E C1 2A 06 00 B7 .>..2.......*...
01FBE0: ED 42 DA A8 20 EB D1 F9 01 00 FC 09 22 C6 00 AF .B.. ......."...
01FBF0: 6F 67 22 CE 00 32 DC 00 3E C3 32 D9 00 21 DE 20 og"..2..>.2..!.
01FC00: D7 E5 2A C9 D7 D1 19 22 C7 D7 2A C5 D7 E5 2A C9 ..*...."..*...*.
01FC10: D7 D1 19 22 C5 D7 CD 50 60 2A 98 D7 E5 21 01 00 ..."...P`*...!..
01FC20: D1 EB B7 ED 52 E5 CD 8D 60 2A C5 D7 E5 21 02 00 ....R...`*...!..
01FC30: E5 2A C9 D7 D1 CD F5 06 D1 19 22 C5 D7 CD 50 60 .*........"...P`
01FC40: 2A 98 D7 E5 21 01 00 D1 EB B7 ED 52 E5 CD 87 60 *...!......R...`
01FC50: 2A C7 D7 E5 2A C9 D7 D1 EB B7 ED 52 22 C7 D7 2A *...*......R"..*
01FC60: C5 D7 E5 2A C9 D7 D1 19 22 C5 D7 CD 50 60 2A 98 ...*...."...P`*.
01FC70: D7 E5 21 01 00 D1 EB B7 ED 52 E5 CD 8A 60 01 0A ..!......R...`..
01FC80: 00 11 90 D7 C3 22 05 21 03 00 22 CB D7 21 10 00 .....".!.."..!..
01FC90: 22 C9 D7 21 1E 00 22 C3 D7 21 F0 00 22 C1 D7 2A "..!.."..!.."..*
01FCA0: CB D7 E5 21 01 00 D1 19 22 CB D7 2A C3 D7 E5 2A ...!...."..*...*
01FCB0: C9 D7 D1 EB B7 ED 52 22 C3 D7 2A C9 D7 E5 21 02 ......R"..*...!.
01FCC0: 00 D1 CD 0F 07 22 C9 D7 2A C1 D7 E5 2A C9 D7 D1 ....."..*...*...
01FCD0: 19 22 C1 D7 2A C3 D7 22 C7 D7 2A C1 D7 22 C5 D7 ."..*.."..*.."..
01FCE0: 2A CB D7 E5 21 01 00 D1 EB B7 ED 52 E5 CD 8D 60 *...!......R...`
01FCF0: 2A C7 D7 E5 2A C9 D7 D1 19 22 C7 D7 2A C5 D7 E5 *...*...."..*...
01FD00: 2A C9 D7 D1 EB B7 ED 52 22 C5 D7 CD 50 60 2A CB *......R"...P`*.
01FD10: D7 E5 21 01 00 D1 EB B7 ED 52 E5 CD 84 60 2A C7 ..!......R...`*.
01FD20: D7 E5 2A C9 D7 D1 EB B7 ED 52 22 C7 D7 2A C5 D7 ..*......R"..*..
01FD30: E5 2A C9 D7 D1 EB B7 ED 52 22 C5 D7 CD 50 60 2A .*......R"...P`*
01FD40: CB D7 E5 21 01 00 D1 EB B7 ED 52 E5 CD 87 60 2A ...!......R...`*
01FD50: C7 D7 E5 2A C9 D7 D1 EB B7 ED 52 22 C7 D7 2A C5 ...*......R"..*.
01FD60: D7 E5 2A C9 D7 D1 19 22 C5 D7 CD 50 60 2A CB D7 ..*...."...P`*..
01FD70: E5 21 01 00 D1 EB B7 ED 52 E5 CD 8A 60 2A C7 D7 .!......R...`*..
01FD80: E5 2A C9 D7 D1 19 22 C7 D7 2A C5 D7 E5 2A C9 D7 .*...."..*...*..
01FD90: D1 19 22 C5 D7 CD 50 60 2A CB D7 E5 21 05 00 D1 .."...P`*...!...
01FDA0: CD 7F 06 CB 45 CA 9F 63 C9 CD 67 33 21 01 00 E5 ....E..c..g3!...
01FDB0: 21 FD FF CD 08 10 C5 D5 E5 21 02 01 CD 08 10 C5 !........!......
01FDC0: D5 E5 21 02 01 CD 08 10 C5 D5 E5 21 FD FF CD 08 ..!........!....
01FDD0: 10 C5 D5 E5 CD 6D 36 21 01 00 E5 CD 92 37 21 01 .....m6!.....7!.
01FDE0: 00 E5 CD F8 3B CD 45 5A CD 87 63 C9 CD 1A 3E 21 ....;.EZ..c...>!
01FDF0: 01 00 E5 CD 4D 05 30 44 45 4D 4F 4E 53 54 52 41 ....M.0DEMONSTRA
01FE00: 22 DA 00 EB 22 CC 00 E9 E5 2A C6 00 B7 ED 42 22 "..."....*....B"
01FE10: C6 00 ED 5B C4 00 B7 ED 52 19 EB E1 DA 75 1D ED ...[....R....u..
01FE20: B0 C9 2A C6 00 ED B0 22 C6 00 D9 C9 5E 23 56 23 ..*...."....^#V#
01FE30: D5 5E 23 56 23 4E 23 46 E1 C9 DD E1 EB 1A 4F 06 .^#V#N#F......O.
01FE40: 00 2F 6F 26 FF 39 F9 EB 03 ED B0 DD E9 D1 1A 4F ./o&.9.........O
01FE50: 06 00 2F 6F 26 FF 39 F9 EB 03 ED B0 E9 DD E1 EB ../o&.9.........
01FE60: 21 E0 FF 39 F9 EB C5 04 05 28 05 AF 12 13 10 FC !..9.....(......
01FE70: ED B0 C1 3E 20 90 91 28 06 47 AF 12 13 10 FC DD ...> ..(.G......
01FE80: E9 DD E1 21 E0 FF 39 F9 06 20 AF 77 23 10 FC DD ...!..9.. .w#...
01FE90: E9 DD E1 45 CD BA 05 B6 77 DD E9 DD E1 D1 7D 93 ...E....w.....}.
01FEA0: 38 F7 3C 4F 43 CD BA 05 5F 41 AF B3 CB 23 30 06 8.<OC..._A...#0.
01FEB0: B6 77 23 AF 1E 01 10 F3 18 DD 78 E6 F8 0F 0F 0F .w#.......x.....
01FEC0: C6 02 6F 26 00 39 78 E6 07 3C 47 AF 37 17 10 FD ..o&.9x..<G.7...
01FED0: C9 E5 D9 EB E3 73 23 72 23 D1 73 23 72 23 71 23 .....s#r#.s#r#q#
01FEE0: 70 C9 DD E1 78 EB 21 00 00 44 39 4E E5 09 23 E3 p...x.!..D9N..#.
01FEF0: B9 38 01 79 12 13 23 B7 28 03 4F ED B0 E1 F9 DD .8.y..#.(.O.....
01FF00: E9 DD E1 78 21 00 00 44 39 4E E5 09 23 5E 23 56 ...x!..D9N..#^#V
01FF10: 18 DC DD E1 EB 68 26 00 44 39 ED B0 21 20 00 39 .....h&.D9..! .9
01FF20: F9 DD E9 DD E1 21 20 00 39 5E 23 56 68 26 00 44 .....! .9^#Vh&.D
01FF30: 39 ED B0 21 22 00 18 E7 DD E1 EB 78 2F 6F 26 FF 9..!"......x/o&.
01FF40: 39 F9 70 23 48 06 00 EB ED B0 DD E9 B7 ED 52 19 9.p#H.........R.
01FF50: D8 3E 90 C3 27 20 B7 ED 52 B7 ED 42 30 03 09 19 .>..' ..R..B0...
01FF60: C9 3E 91 C3 27 20 B7 ED 52 EB 13 EA 71 06 F0 18 .>..' ..R...q...
01FF70: 01 F8 11 00 00 C9 D5 EB B7 ED 52 EB E1 18 EB B7 ..........R.....
01FF80: ED 52 21 01 00 C8 2B C9 CD DF 0B 18 F5 CD B0 09 .R!...+.........
01FF90: 18 F0 B7 ED 52 21 01 00 C0 2B C9 CD DF 0B 18 F5 ....R!...+......
01FFA0: CD B0 09 18 F0 CD 72 07 21 01 00 D0 2B C9 CD DF ......r.!...+...
01FFB0: 0B 18 F5 CD B0 09 18 F0 CD 72 07 21 01 00 C8 D8 .........r.!....
01FFC0: 2B C9 CD DF 0B 18 F4 CD B0 09 18 EF CD 72 07 21 +............r.!
01FFD0: 00 00 C8 D8 23 C9 CD DF 0B 18 F4 CD B0 09 18 EF ....#...........
01FFE0: CD 72 07 21 01 00 D8 2B C9 CD DF 0B 18 F5 CD B0 .r.!...+........
01FFF0: 09 18 F0 54 5D 4B 42 EB 21 00 00 7A B7 3E 10 20 ...T]KB.!..z.>.
020000: 54 49 4F 4E 20 45 43 52 41 4E 20 53 41 55 56 45 TION ECRAN SAUVE
020010: 52 20 45 54 20 4C 49 52 45 20 53 55 52 20 4C 45 R ET LIRE SUR LE
020020: 20 44 49 53 51 55 45 CD FA 35 CD 67 33 CD 4D 60 DISQUE..5.g3.M`
020030: CD 4D 05 08 44 45 4D 4F 2E 50 49 43 CD 99 2E CD .M..DEMO.PIC....
020040: 8B 2C 21 E8 03 CD 1D 02 CD 4D 05 08 44 45 4D 4F .,!......M..DEMO
020050: 2E 50 49 43 CD 1D 2F CD A0 00 CB 45 CA 57 65 CD .PIC../....E.We.
020060: 3A 2C C3 D4 20 CD 45 5A CD 87 63 C9 CD 1A 3E 21 :,.. .EZ..c...>!
020070: 01 00 E5 CD 4D 05 30 44 45 4D 4F 4E 53 54 52 41 ....M.0DEMONSTRA
020080: 20 74 68 65 6E 20 44 72 61 77 43 69 72 63 6C 65 then DrawCircle
020090: 44 69 72 65 63 74 28 74 72 75 6E 63 28 58 5F 52 Direct(trunc(X_R
0200A0: 29 2C 74 72 75 6E 63 28 59 5F 52 29 2C 74 72 75 ),trunc(Y_R),tru
0200B0: 6E 63 28 78 72 61 64 69 75 73 29 2C 54 72 75 65 nc(xradius),True
0200C0: 29 0D 0A 20 20 20 20 65 6C 73 65 20 44 72 61 77 ).. else Draw
0200D0: 43 69 72 63 6C 65 44 69 72 65 63 74 28 57 69 6E CircleDirect(Win
0200E0: 64 6F 77 58 28 58 5F 52 29 2C 57 69 6E 64 6F 77 dowX(X_R),Window
0200F0: 59 28 59 5F 52 29 2C 74 72 75 6E 63 28 78 72 61 Y(Y_R),trunc(xra
020100: 64 69 75 73 2A 31 30 30 2E 30 29 2C 46 61 6C 73 dius*100.0),Fals
020110: 65 29 3B 0D 0A 20 20 20 20 44 69 72 65 63 74 4D e);.. DirectM
020120: 6F 64 65 47 6C 62 3A 3D 44 69 72 65 63 74 4D 6F odeGlb:=DirectMo
020130: 64 65 4C 6F 63 3B 0D 0A 20 20 65 6E 64 3B 0D 0A deLoc;.. end;..
020140: 0D 0A 70 72 6F 63 65 64 75 72 65 20 44 72 61 77 ..procedure Draw
020150: 43 72 6F 73 73 28 78 31 2C 79 31 2C 73 63 61 6C Cross(x1,y1,scal
020160: 65 3A 69 6E 74 65 67 65 72 29 3B 0D 0A 20 20 62 e:integer);.. b
020170: 65 67 69 6E 0D 0A 20 20 20 20 44 72 61 77 4C 69 egin.. DrawLi
020180: 6E 65 43 6C 69 70 70 65 64 28 78 31 2D 73 63 61 neClipped(x1-sca
020190: 6C 65 2C 79 31 2C 78 31 2B 73 63 61 6C 65 2B 32 le,y1,x1+scale+2
0201A0: 2C 79 31 29 3B 0D 0A 20 20 20 20 44 72 61 77 4C ,y1);.. DrawL
0201B0: 69 6E 65 43 6C 69 70 70 65 64 28 78 31 2C 79 31 ineClipped(x1,y1
0201C0: 2D 73 63 61 6C 65 2C 78 31 2C 79 31 2B 73 63 61 -scale,x1,y1+sca
0201D0: 6C 65 2B 31 29 3B 0D 0A 20 20 65 6E 64 3B 0D 0A le+1);.. end;..
0201E0: 0D 0A 70 72 6F 63 65 64 75 72 65 20 44 72 61 77 ..procedure Draw
0201F0: 43 72 6F 73 73 44 69 61 67 28 78 2C 79 2C 73 63 CrossDiag(x,y,sc
020200: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
020210: 1B 00 00 00 02 09 4E E5 1B 00 41 02 00 00 00 02 ......N...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: 03 53 3E 08 29 EB 29 EB 30 01 09 3D 20 F6 C9 7C .S>.).).0..= ..|
020310: B5 CA 03 0A 7C AA F5 CD 80 07 EB CD 80 07 EB 44 ....|..........D
020320: 4D AF 67 6F 3E 11 ED 6A ED 42 30 02 09 37 3F CB M.go>..j.B0..7?.
020330: 13 CB 12 3D 20 F0 EB F1 F0 18 48 E5 CD 92 07 CB ...= .....H.....
020340: 3C CB 1D D1 EB CD 0F 07 EB CB 7A C8 18 35 CD 61 <.........z..5.a
020350: 07 C8 29 10 FD C9 CD 61 07 C8 CB 3C CB 1D 10 FA ..)....a...<....
020360: C9 EB 7A B7 20 08 7B FE 10 30 03 47 B7 C9 AF 67 ..z. .{..0.G...g
020370: 6F C9 EB 7C AA 7C FA 7E 07 BA C0 7D BB C9 17 C9 o..|.|.~...}....
020380: CB 7C C8 7C 2F 67 7D 2F 6F 23 C9 7D E6 01 6F 26 .|.|/g}/o#.}..o&
020390: 00 C9 ED 4B CA 00 ED 5B C8 00 C5 D5 78 41 4A 53 ...K...[....xAJS
0203A0: 1E 00 1F CB 18 CB 19 CB 1A CB 1B E1 19 EB E1 ED ................
0203B0: 4A 44 4D 21 E9 62 19 22 C8 00 EB 21 19 36 ED 4A JDM!.b."...!.6.J
0203C0: 22 CA 00 44 4D C9 06 00 11 10 27 CD E2 07 11 E8 "..DM.....'.....
0203D0: 03 CD E2 07 11 64 00 CD E2 07 1E 0A CD E2 07 7D .....d.........}
0203E0: 18 0D AF 3C ED 52 30 FB 19 04 3D 20 02 05 C8 C6 ...<.R0...= ....
0203F0: 30 DD 77 00 DD 23 C9 DD 7E 00 D6 24 4F 21 00 00 0.w..#..~..$O!..
020400: 20 02 DD 23 DD 7E 00 CD A6 04 D6 30 38 29 FE 0A ..#.~.....08)..
020410: 38 0E 0C 0D 20 21 D6 07 FE 0A 38 1B FE 10 30 17 8... !....8...0.
020420: 54 5D 29 D8 29 D8 0C 0D 20 02 54 5D 19 D8 29 D8 T]).)... .T]..).
020430: 5F 16 00 19 D8 18 CB 79 B7 C8 7C 87 C9 DD E1 E1 _......y..|.....
020440: E5 7D 26 00 23 39 4E 81 38 1C 77 EB 21 00 00 44 .}&.#9N.8.w.!..D
020450: ED 42 39 F9 EB E5 03 ED B0 EB E1 2B 1B 4F 03 ED .B9........+.O..
020460: B8 EB 23 F9 DD E9 3E 10 C3 29 20 DD E1 CD C8 04 ..#...>..) .....
020470: 57 E1 CD DD 09 5F E1 E5 7D 93 38 1A 14 15 28 16 W...._..}.8...(.
020480: BA 38 16 4A 06 00 60 39 7B 82 54 5D 3D 6F 60 39 .8.J..`9{.T]=o`9
020490: 79 ED B8 EB 18 09 AF 18 03 3C 6B 2D 26 00 39 77 y........<k-&.9w
0204A0: F9 DD E9 DD E1 E1 E5 7D 26 00 23 39 F9 6F 26 00 .......}&.#9.o&.
0204B0: DD E9 DD E1 21 00 00 54 39 5E 4B 23 E5 19 5E 43 ....!..T9^K#..^C
0204C0: 23 E5 19 E5 FD E1 D1 E1 79 90 38 10 3C 4F C5 D5 #.......y.8.<O..
0204D0: E5 1A BE 28 0C E1 D1 C1 23 0D 20 F2 21 00 00 18 ...(....#. .!...
0204E0: 0E 23 13 10 EC D1 E1 C1 21 00 00 39 EB ED 52 FD .#......!..9..R.
0204F0: F9 DD E9 DD E1 CD C8 04 4F E1 CD DD 09 5F E1 7E ........O...._.~
020500: CB B8 7D D9 D6 80 6F 9F 67 11 4D 00 CD F5 06 11 ..}...o.g.M.....
020510: 05 00 19 7C FE D9 20 01 3C FD 77 00 ED 44 CD 40 ...|.. .<.w..D.@
020520: 12 7D FE 81 30 06 CD B3 12 FD 35 00 CB F8 3E 84 .}..0.....5...>.
020530: 95 2E 00 28 08 CD 7A 0B CB 1D 3D 20 F8 FD 7E 00 ...(..z...= ..~.
020540: F5 3E 0C 08 78 1F 1F 1F 1F E6 0F C6 30 FD 77 00 .>..x.......0.w.
020550: FD 23 78 E6 0F 47 C5 D5 E5 CB 25 CD 87 0B CB 25 .#x..G....%....%
020560: CD 87 0B EB E3 19 D1 E3 ED 5A EB E1 E3 ED 4A 44 .........Z....JD
020570: 4D E1 CB 25 CD 87 0B 08 3D 20 C8 F1 C1 FD E1 C9 M..%....= ......
020580: FD E5 E1 5F 16 00 19 7E 36 00 FE 35 D8 1D FA 9C ..._...~6..5....
020590: 11 2B 7E 3C 77 FE 3A D8 36 00 18 F1 36 31 23 36 .+~<w.:.6...61#6
0205A0: 00 0C C9 D9 01 00 00 D9 CD 72 0B DD 7E 00 CD A6 .........r..~...
0205B0: 04 FE 2E 20 0C D9 CB 70 37 C0 CB F0 D9 DD 23 18 ... ...p7.....#.
0205C0: EA FE 45 28 21 CD 39 12 30 54 08 CD B3 12 D8 08 ..E(!.9.0T......
0205D0: D9 C5 6F 26 00 CD 08 10 CD E9 09 D9 C1 D8 CB 70 ..o&...........p
0205E0: 28 01 0D D9 18 D7 CD 1E 12 D8 D9 CB E0 DD 23 DD (.............#.
0205F0: 7E 00 FE 2B 28 06 FE 2D 20 04 CB E8 DD 23 CD 36 ~..+(..- ....#.6
020600: 12 3F D8 4F DD 23 CD 36 12 30 0A DD 23 57 79 87 .?.O.#.6.0..#Wy.
020610: 87 81 87 82 4F CB 68 28 04 79 ED 44 4F D9 D9 79 ....O.h(.y.DO..y
020620: C6 80 FE 5A D8 FE A6 3F D8 C5 DD E5 79 CD 40 12 ...Z...?....y.@.
020630: DD E1 D9 C1 D9 C9 DD 7E 00 D6 30 3F D0 FE 0A C9 .......~..0?....
020640: F5 B7 F2 47 12 ED 44 F5 CB 3F CB 3F 3C 21 FA FF ...G..D..?.?<!..
020650: 11 06 00 19 3D 20 FC EB DD 21 77 12 DD 19 CD 73 ....= ...!w....s
020660: 0F F1 E6 03 28 08 F5 CD B3 12 F1 3D 20 F8 F1 B7 ....(......= ...
020670: F2 97 0A D9 C3 F5 0A 81 00 00 00 00 00 8E 00 00 ................
020680: 00 40 1C 9B 00 00 20 BC 3E A8 00 10 A5 D4 68 B6 .@.... .>.....h.
020690: 04 BF C9 1B 0E C3 AC C5 EB 78 2D D0 CD CE 1B C2 .........x-.....
0206A0: 53 DE F9 78 39 3F 01 EB 2B A8 AD C5 1D F8 C9 7B S..x9?..+......{
0206B0: CE 97 40 7D B7 C8 CB F8 C5 D5 7C CD 7A 0B CD 7A ..@}......|.z..z
0206C0: 0B 84 67 E3 ED 5A EB E1 E3 ED 4A 44 4D E1 30 06 ..g..Z....JDM.0.
0206D0: CD 7B 0B 2C 37 C8 7D C6 03 6F CB B8 C9 0E 01 18 .{.,7.}..o......
0206E0: 02 0E 00 CD 3F 13 1A BE 20 08 23 13 10 F8 79 EE ....?... .#...y.
0206F0: 01 4F 21 40 00 39 F9 69 26 00 DD E9 0E 01 18 02 .O!@.9.i&.......
020700: 93 38 1B 0C 0D 28 17 91 38 12 F5 7E 91 77 06 00 .8...(..8..~.w..
020710: 50 19 54 5D 09 F1 3C 4F ED B0 18 02 1D 73 DD E9 P.T]..<O.....s..
020720: DD E1 CD DD 09 4F D1 ED 53 E8 00 21 00 00 39 1A .....O..S..!..9.
020730: F5 86 38 03 B8 38 01 78 12 F1 57 5E 91 38 2F 3C ..8..8.x..W^.8/<
020740: 6F 7A 83 38 04 B8 7D 38 08 78 93 38 26 91 38 23 oz.8..}8.x.8&.8#
020750: 3C B7 28 1F C5 D5 2A E8 00 5F 1D 16 00 42 19 09 <.(...*.._...B..
020760: D1 D5 E5 50 19 EB E1 4F ED B8 D1 C1 18 05 7A 3C ...P...O......z<
020770: 28 19 4F 78 91 3C BB 38 01 7B B7 28 0E 2A E8 00 (.Ox.<.8.{.(.*..
020780: 06 00 09 EB 21 01 00 39 4F ED B0 21 00 00 54 39 ....!..9O..!..T9
020790: 5E 13 19 F9 DD E9 DD E1 E1 2D C2 66 08 6C 26 00 ^........-.f.l&.
0207A0: DD E9 21 02 00 54 39 5E 13 19 7E 36 01 23 77 C9 ..!..T9^..~6.#w.
0207B0: 21 04 00 54 39 5E 4B 23 E5 19 5E 43 23 E5 19 E5 !..T9^K#..^C#...
0207C0: FD E1 D1 E1 AF B8 28 04 B9 20 08 78 B9 E1 D1 FD ......(.. .x....
0207D0: F9 D5 E9 1A BE 20 F6 23 13 05 0D 18 E7 7C B7 20 ..... .#.....|.
0207E0: 03 7D B7 C0 3E 11 C3 29 20 CD 0D 0A D0 3E 01 C3 .}..>..) ....>..
0207F0: 27 20 CD 81 0A 18 F5 CD AC 0F CD 97 0A 18 ED D9 ' ..............
020800: 7D B7 D9 3E 02 CA 27 20 CD F5 0A 18 DF D9 CB 78 }..>..' .......x
020810: D9 C2 88 0A D9 7D B7 D9 C8 D9 C5 D5 E5 D9 7D B7 .....}........}.
020820: 20 05 D9 CB B8 18 54 C5 CB F8 AF 08 D9 CB F8 7D .....T........}
020830: D9 95 28 13 30 06 ED 44 08 3D 08 D9 CD 7A 0B 2C ..(.0..D.=...z.,
020840: 3D 20 F9 08 28 01 D9 F1 E6 80 20 0F CD 92 0B 30 = ..(..... ....0
020850: 25 CD 7B 0B B7 2C 20 1E 37 18 20 CD C6 0B 3F F5 %.{.., .7. ...?.
020860: 28 10 38 01 D9 CD AC 0B CB 78 20 09 CD 86 0B 2D (.8......x ....-
020870: 20 F6 CD 72 0B F1 38 02 CB B8 B7 D9 E1 D1 C1 D9 ..r..8.........
020880: C9 D9 CB 78 D9 C2 14 0A CD 8F 0A CD 14 0A D8 2C ...x...........,
020890: 2D C8 78 EE 80 47 C9 D9 7D B7 D9 CA 72 0B 7D B7 -.x..G..}...r.}.
0208A0: C8 D9 85 D9 CD 4D 0B C5 D5 E5 DD 39 CD 72 0B D9 .....M.....9.r..
0208B0: 2E 05 D9 3E 08 DD 23 DD 6E 00 08 CB 1D 30 03 CD ...>..#.n....0..
0208C0: 92 0B CD 7B 0B 08 3D 20 F1 D9 2D D9 20 E5 DD 6E ...{..= ..-. ..n
0208D0: FB CB 78 20 09 08 CD 87 0B 2C 2D 28 01 2D F1 F1 ..x .....,-(.-..
0208E0: F1 B7 08 F1 D9 C1 E1 D9 DD E1 CB B8 B0 47 2C 2D .............G,-
0208F0: CC 72 0B 08 C9 7D B7 C8 D9 95 D9 3F CD 4D 0B E5 .r...}.....?.M..
020900: 0E 00 CD 3F 13 0D 20 01 EB 0E 00 1A B6 BE 20 E2 ...?.. ....... .
020910: 23 13 10 F7 0E 01 18 DA CD 3F 13 1A B6 77 23 13 #........?...w#.
020920: 10 F9 EB F9 DD E9 CD 3F 13 1A 2F A6 77 23 13 10 .......?../.w#..
020930: F8 18 EF CD 3F 13 1A A6 77 23 13 10 F9 18 E3 FD ....?...w#......
020940: E1 DD E1 21 00 00 39 EB 21 20 00 45 39 FD E9 DD ...!..9.! .E9...
020950: E1 21 21 00 39 7E B7 28 03 AF 18 06 2B 46 CD BA .!!.9~.(....+F..
020960: 05 A6 21 22 00 39 F9 21 00 00 28 01 23 DD E9 3E ..!".9.!..(.#..>
020970: AF 32 E8 00 FD E1 2A D2 00 06 10 CD E2 05 AF 12 .2....*.........
020980: E1 22 E2 00 FD E5 7C B7 20 06 3E 22 32 D0 00 C9 ."....|. .>"2...
020990: 3A E8 00 B7 28 0A CD B6 13 20 05 2A E2 00 77 C9 :...(.... .*..w.
0209A0: CD F2 03 2A E2 00 36 00 11 0C 00 19 EB 21 5C 00 ...*..6......!\.
0209B0: 01 24 00 ED B0 C9 06 06 21 E6 13 C5 E5 06 03 ED .$......!.......
0209C0: 5B D2 00 13 1A FE 20 28 FA 1A CD A6 04 96 28 0A [..... (......(.
0209D0: E1 C1 11 04 00 19 10 E3 B7 C9 23 13 10 EB C1 C1 ..........#.....
0209E0: 1A FE 3A C0 7E C9 43 4F 4E C1 54 52 4D C1 4B 42 ..:.~.CON.TRM.KB
0209F0: 44 82 4C 53 54 43 41 55 58 C4 55 53 52 C5 3E AF D.LSTCAUX.USR.>.
020A00: 32 E8 00 CD 69 14 3A D0 00 B7 C0 2A E2 00 CB AE 2...i.:....*....
020A10: 7E E6 0F C0 CD 30 14 3A D0 00 B7 C0 2A E2 00 3A ~....0.:....*..:
020A20: E8 00 B7 01 80 80 28 03 01 40 00 71 23 23 70 C9 ......(..@.q##p.
020A30: CD 5A 14 2A E2 00 11 0C 00 19 EB 3A E8 00 B7 01 .Z.*.......:....
020A40: 0F 01 28 0A D5 0E 13 CD 05 00 D1 01 16 F1 C5 CD ..(.............
020A50: 05 00 C1 3C C0 78 32 D0 00 C9 2A E2 00 11 18 00 ...<.x2...*.....
020A60: 19 06 18 36 00 23 10 FB C9 22 E2 00 7E E6 0F C0 ...6.#..."..~...
020A70: CB 76 28 0A 3E 1A CD C6 16 CD 0C 17 18 03 CB 7E .v(.>..........~
020A80: C8 2A E2 00 E5 11 0C 00 19 EB 0E 10 CD 05 00 E1 .*..............
020A90: 3C 20 05 3E FF 32 D0 00 36 00 C9 E3 22 E4 00 E3 < .>.2..6..."...
020AA0: E5 21 C2 00 22 E2 00 E1 C9 E3 22 E4 00 E3 22 E2 .!.."....."...".
020AB0: 00 CB 7E C0 3E 02 32 D0 00 C9 E3 22 E4 00 E3 22 ..~.>.2...."..."
020AC0: E2 00 CB 76 C0 3E 03 32 D0 00 C9 3E AF E3 22 E4 ...v.>.2...>..".
020AD0: 00 E3 E5 21 C2 00 22 E2 00 CB AE F5 CD E8 14 F1 ...!..".........
020AE0: B7 28 03 CD E1 01 E1 C9 06 00 21 D1 00 7E FE 7F .(........!..~..
020AF0: 38 02 3E 7E 4F 36 7E 2A D2 00 22 D4 00 16 00 CD 8.>~O6~*..".....
020B00: E5 E5 DD 39 D9 2E 05 D9 3E 08 08 CD C6 0B 38 03 ...9....>.....8.
020B10: CD AC 0B 3F CB 15 08 3D 20 0C DD 75 05 DD 2B D9 ...?...= ..u..+.
020B20: 2D D9 28 0E 3E 08 CD 86 0B 30 DF 08 CD AC 0B B7 -.(.>....0......
020B30: 18 E1 CD 86 0B 38 04 CD C6 0B 3F E1 D1 C1 CB 78 .....8....?....x
020B40: 20 05 CD 87 0B 18 9A 2C 20 97 37 18 95 38 06 C6 ......, .7..8..
020B50: 80 38 06 18 1B C6 80 38 17 6F DD E3 D9 E5 C5 78 .8.....8.o.....x
020B60: CB F8 D9 A8 E6 80 F5 CB F8 DD E5 DD 21 00 00 C9 ............!...
020B70: E1 D8 AF 6F 47 4F 57 5F 67 C9 B7 CB 18 CB 19 CB ...oGOW_g.......
020B80: 1A CB 1B CB 1C C9 B7 CB 14 CB 13 CB 12 CB 11 CB ................
020B90: 10 C9 7C D9 84 D9 67 7B D9 8B D9 5F 7A D9 8A D9 ..|...g{..._z...
020BA0: 57 79 D9 89 D9 4F 78 D9 88 D9 47 C9 7C D9 94 D9 Wy...Ox...G.|...
020BB0: 67 7B D9 9B D9 5F 7A D9 9A D9 57 79 D9 99 D9 4F g{..._z...Wy...O
020BC0: 78 D9 98 D9 47 C9 78 D9 B8 D9 C0 79 D9 B9 D9 C0 x...G.x....y....
020BD0: 7A D9 BA D9 C0 7B D9 BB D9 C0 7C D9 BC D9 C9 D9 z....{....|.....
020BE0: 78 D9 A8 F2 E9 0B 78 17 C9 CB 78 28 06 CD F3 0B x.....x...x(....
020BF0: C8 3F C9 7D D9 BD D9 C0 B7 C8 C3 C6 0B 7D D6 81 .?.}.........}..
020C00: DA 72 0B 3C FE 28 D0 D9 C5 D5 E5 08 CD 72 0B 08 .r.<.(.......r..
020C10: 37 CD 7B 0B 3D 20 F9 D9 7C D9 A4 D9 67 7B D9 A3 7.{.= ..|...g{.£
020C20: D9 5F 7A D9 A2 D9 57 79 D9 A1 D9 4F 78 D9 A0 D9 ._z...Wy...Ox...
020C30: 47 C3 7B 0A D9 C5 D5 E5 D9 CD AC 0F D9 CD FD 0B G.{.............
020C40: D9 CD 81 0A 18 EB 7D B7 C8 CB 78 3E 03 C2 27 20 ......}...x>..'
020C50: CD AC 0F 7D C6 80 CB 2F C6 80 6F D6 14 F5 D9 C5 ...}.../..o.....
020C60: D5 E5 CD F5 0A CD 0D 0A 2D C5 D5 E5 CD 81 0A 7D ........-......}
020C70: E1 D1 C1 D9 E1 D1 C1 E3 BC E3 30 E3 F1 D9 C9 D9 ..........0.....
020C80: CD 8E 0F 2D CD 81 0A D9 CD 8E 0F 2C D9 7D FE 6C ...-.......,.}.l
020C90: D8 C5 CB B8 CD DF 0B C1 38 09 CD F5 0A CD 34 0C ........8.....4.
020CA0: CD 97 0A CB 78 28 03 CD 0D 0A D9 2D D9 CD DF 0B ....x(.....-....
020CB0: F5 38 03 CD 81 0A D9 2D D9 CD DF 0B 38 05 D9 2C .8.....-....8..,
020CC0: CD 81 0A 7D FE 6C 38 3B D9 01 AA 2A 11 AA AA 21 ...}.l8;...*...!
020CD0: 7F AA CD 97 0A DD E5 DD 21 07 0D 3E 05 CD 34 0F ........!..>..4.
020CE0: DD E1 CD AC 0F CD 97 0A CD 97 0A C5 D5 E5 D9 CD ................
020CF0: AC 0F 2D 2D D9 2D CD 0D 0A D9 E1 D1 C1 D9 CD 81 ..--.-..........
020D00: E1 03 77 1E 01 FE 08 28 36 FE 7F 28 32 1D FE 18 ..w....(6..(2...
020D10: 28 2D FE 1B 28 29 FE 1A 28 36 FE 0D 28 38 FE 20 (-..()..(6..(8.
020D20: 30 11 FE 03 20 D9 3A DD 00 B7 28 D3 DD 2A E4 00 0... .:...(..*..
020D30: C3 16 20 79 BA 28 C8 7E 14 23 CD C9 03 18 C0 15 .. y.(.~.#......
020D40: FA FD 14 2B CD 00 02 08 20 08 00 1D 28 B1 18 EF ...+.... ...(...
020D50: 04 05 28 AB 18 04 04 05 20 04 36 1A 18 08 CD E1 ..(..... .6.....
020D60: 01 36 0D 23 36 0A 23 22 D6 00 C9 2A E2 00 3A D0 .6.#6.#"...*..:.
020D70: 00 B7 20 79 7E CB 6F 20 70 E6 0F 20 2E 23 23 7E .. y~.o p.. .##~
020D80: B7 F2 97 15 0E 14 E5 CD BA 19 E1 28 08 E5 11 2E ...........(....
020D90: 00 19 36 1A E1 AF 77 34 C6 2E 5F 16 00 19 7E FE ..6...w4.._...~.
020DA0: 1A 20 3D 2A E2 00 23 23 35 18 35 3D 20 1B 2A D4 . =*..##5.5= .*.
020DB0: 00 ED 5B D6 00 B7 ED 52 38 05 06 FF CD EA 14 2A ..[....R8......*
020DC0: D4 00 7E 23 22 D4 00 18 17 3D 20 06 CD A3 00 7D ..~#"....= ..£.}
020DD0: 18 0E 3D 3D 20 06 CD AF 00 7D 18 04 CD B5 00 7D ..== ....}.....}
020DE0: 2A E2 00 CB EE 23 77 2B C9 23 7E 2B C9 3E 1A C9 *....#w+.#~+.>..
020DF0: E5 2A E2 00 7E E6 0F FE 06 28 27 CD 6B 15 FE 21 .*..~....('.k..!
020E00: 30 08 FE 1A 28 04 CB AE 18 F1 11 5D 00 06 1E C5 0...(......]....
020E10: D5 CD 6B 15 D1 C1 FE 21 38 06 CB AE 12 13 10 EF ..k....!8.......
020E20: AF 12 E1 C9 DD 21 5D 00 DD 7E 00 B7 C8 06 00 FE .....!]..~......
020E30: 2D C0 04 DD 23 C9 38 05 DD 7E 00 B7 C8 3E 10 32 -...#.8..~...>.2
020E40: D0 00 37 C9 E5 CD 6B 15 CB AE E1 77 C9 3E AF 4F ..7...k....w.>.O
020E50: C5 CD F0 15 C1 CD 24 16 C8 C5 E5 CD F7 07 D1 C1 ......$.........
020E60: CD 36 16 D8 05 CC 83 07 EB 73 0C 0D 20 02 23 72 .6.......s.. .#r
020E70: EB C9 CD F0 15 CD 24 16 C8 C5 E5 CD A3 11 D9 E1 ......$.....£...
020E80: C1 CD 36 16 D8 05 D9 CC 8F 0A D9 C3 D1 05 E5 EB ..6.............
020E90: 0E 00 C5 D5 CD 6B 15 D1 C1 FE 0D 28 0B FE 1A 28 .....k.....(...(
020EA0: 07 CB AE 0C 13 12 10 EA E1 71 C9 CD 6B 15 FE 1A .........q..k...
020EB0: 28 13 CB AE FE 0A 28 0D FE 0D 20 EF CD 6B 15 FE (.....(... ..k..
020EC0: 0A 20 02 CB AE C9 2A E2 00 4F 3A D0 00 B7 C0 7E . ....*..O:....~
020ED0: E6 0F 20 10 23 23 E5 7E C6 2E 5F 16 00 19 71 E1 .. .##.~.._...q.
020EE0: 34 F0 18 28 FE 06 28 15 E1 06 00 C5 E5 3D CA A6 4..(..(......=..
020EF0: 00 3D 3D CA A9 00 3D CA AC 00 C3 B2 00 2A E8 00 .==...=......*..
020F00: 0A 2C 2C F1 2C 2D C8 D8 78 EE 80 47 C9 67 AA 3F .,,.,-..x..G.g.?
020F10: 2B 32 D7 6E B6 2A 1D EF 38 74 0D D0 00 0D D0 7A +2.n.*..8t.....z
020F20: 88 88 88 88 08 7E AB AA AA AA AA 2C 2D 3E 04 CA .....~.....,->..
020F30: 27 20 CB 78 C2 27 20 D9 CD 98 0F D9 7D 2E 81 95 ' .x.' .....}...
020F40: F5 CD F5 0A D9 CD 86 0F D9 CD 81 0A C5 D5 E5 D9 ................
020F50: 2C CD 0D 0A D9 E1 D1 C1 CD F5 0A DD E5 DD 21 8C ,.............!.
020F60: 0D 3E 06 CD 34 0F DD E1 2C D9 CD A2 0F 2D D9 CD .>..4...,....-..
020F70: 0D 0A F1 C5 D5 E5 6F 26 00 30 01 25 CD 08 10 D9 ......o&.0.%....
020F80: 2C CD 97 0A D9 E1 D1 C1 CD 0D 0A 7D FE 67 DA 72 ,..........}.g.r
020F90: 0B C9 7D 8A 9D D8 89 1D 7D E9 A2 8B 2E 3A 7D 8E ..}.....}....:}.
020FA0: E3 38 8E 63 7E 49 92 24 49 12 7E CD CC CC CC 4C .8.c~I.$I.~....L
020FB0: 7F AB AA AA AA 2A D9 CD A2 0F D9 B7 CB 78 F5 CB .....*.......x..
020FC0: B8 CD F5 0A 7D FE 88 30 47 C5 D5 E5 2C CD D0 0F ....}..0G...,...
020FD0: E5 CB 3C CB 1D 7D E1 F5 CD 08 10 2C 2D 28 01 2D ..<..}.....,-(.-
020FE0: D9 F1 E1 D1 C1 F5 CD 81 0A DD E5 DD 21 10 0E 3E ............!..>
020FF0: 08 CD 49 0F DD E1 F1 30 0A F5 D9 CD 98 0F D9 CD ..I....0........
021000: 97 0A F1 85 6F 38 09 F1 C8 D9 CD 86 0F C3 F5 0A ....o8..........
021010: E1 3E 01 C3 27 20 6D 2E 1D 11 60 31 70 46 2C FE .>..' m...`1pF,.
021020: E5 7F 74 36 7C 89 84 21 77 53 3C FF C3 2E 7A D2 ..t6|..!wS<...z.
021030: 7D 5B 95 1D 7C 25 B8 46 58 63 7E 16 FC EF FD 75 }[..|%.FXc~....u
021040: 80 D2 F7 17 72 31 7D B7 C8 DD E5 D9 CD 86 0F D9 ....r1}.........
021050: AF CB 78 28 03 3C CB B8 F5 CD DF 0B 38 08 D9 CD ..x(.<......8...
021060: F5 0A F1 CB FF F5 D9 01 CF 06 11 8E E9 21 7E 4A .............!~J
021070: D9 CD DF 0B 30 05 CD 2E 0F 18 4F DD 21 CE 0E 3E ....0.....O.!..>
021080: 02 08 D9 11 12 00 DD 19 CD 73 0F D9 CD DF 0B 38 .........s.....8
021090: 0B 08 3D 20 EC D9 11 0C 00 DD 19 D9 D9 CD 6E 0F ..= ..........n.
0210A0: CB F8 CD 0D 0A C5 D5 E5 CD 73 0F CD 97 0A D9 CD .........s......
0210B0: 86 0F CD 0D 0A D9 E1 D1 C1 CD F5 0A DD E5 CD 2E ................
0210C0: 0F DD E1 D9 CD 6E 0F CD 0D 0A F1 17 30 0A F5 D9 .....n......0...
0210D0: CD 8E 0F 2D CD 81 0A F1 DD E1 CB 4F C8 CB F8 C9 ...-.......O....
0210E0: 7F E7 CF CC 13 54 7F F6 F4 A2 30 09 7F 6A C1 91 .....T....0..j..
0210F0: 0A 06 80 B5 9E 8A 6F 44 80 82 2C 3A CD 13 80 6A ......oD..,:...j
021100: 3A EA 00 BE C8 34 5E 16 00 19 71 C9 2A E2 00 23 :....4^...q.*..#
021110: 23 7E B7 C8 36 00 0E 15 CD BA 19 C8 3E F0 32 D0 #~..6.......>.2.
021120: 00 C9 7D C3 C6 16 C1 D1 C5 DD 2A D2 00 CB 7C 28 ..}.......*...|(
021130: 06 CD 83 07 EB 18 0E EB CB 7C 28 09 CD 83 07 DD .........|(.....
021140: 36 00 2D DD 23 D5 CD C6 07 E1 CD C8 04 ED 5B D2 6.-.#.........[.
021150: 00 DD E5 E1 B7 ED 52 4D EB 91 38 0E 28 0C 47 E5 ......RM..8.(.G.
021160: 3E 20 C5 CD C6 16 C1 10 F7 E1 41 04 05 C8 7E C5 > ........A...~.
021170: E5 CD C6 16 E1 C1 23 18 F3 C1 D1 D9 E1 D1 C1 D9 ......#.........
021180: C5 DD 2A D2 00 D5 CD 27 10 18 BE C1 D1 C5 CD C8 ..*....'........
021190: 04 CB 43 21 A1 17 0E 04 20 BF 21 A5 17 0E 05 18 ..C!.... .!.....
0211A0: B8 54 52 55 45 46 41 4C 53 45 CD C8 04 21 02 00 .TRUEFALSE...!..
0211B0: 39 4E 23 CD 59 17 D1 F9 D5 C9 E1 7E 23 B7 28 0C 9N#.Y......~#.(.
0211C0: 47 7E C5 E5 CD C6 16 E1 C1 23 10 F5 E9 3E 0D CD G~.......#...>..
0211D0: C6 16 3E 0A C3 C6 16 11 0D 01 18 0D 11 0D 00 18 ..>.............
0211E0: 08 11 1A 01 18 03 11 1A 00 22 E2 00 CB 7E 28 1C ........."...~(.
0211F0: D5 CD 6B 15 D1 BB 28 10 FE 1A 28 0C FE 21 30 0C ..k...(...(..!0.
021200: 14 15 28 08 CB AE 18 E8 21 01 00 C9 21 00 00 C9 ..(.....!...!...
021210: 3E AF 32 E8 00 ED 53 E6 00 CD 7A 18 3A D0 00 B7 >.2...S...z.:...
021220: C0 CD 30 14 3A D0 00 B7 C0 2A E2 00 36 D0 23 23 ..0.:....*..6.##
021230: 77 11 06 00 19 77 23 77 11 24 00 19 77 23 77 11 w....w#w.$..w#w.
021240: D6 FF 19 3A E8 00 B7 20 1B E5 01 04 00 AF CD 09 ...:... ........
021250: 19 E1 23 23 4E 23 46 2A E6 00 B7 ED 42 C8 3E 90 ..##N#F*....B.>.
021260: 32 D0 00 C9 E5 AF 77 23 77 23 ED 5B E6 00 73 23 2.....w#w#.[..s#
021270: 72 E1 01 04 00 3E 03 C3 09 19 22 E2 00 7E E6 C0 r....>...."..~..
021280: C8 CD AE 19 2A E2 00 11 2D 00 19 AF 77 23 77 11 ....*...-...w#w.
021290: D4 FF 19 77 23 23 01 04 00 3E 01 CD 09 19 CD AE ...w##...>......
0212A0: 19 C3 81 14 E3 22 E4 00 E3 22 E2 00 7E E6 C0 C0 ....."..."..~...
0212B0: 3E 04 32 D0 00 C9 3A D0 00 B7 C0 E5 CD 5A 1A EB >.2...:......Z..
0212C0: B7 ED 52 E1 30 10 AF CD 09 19 2A E2 00 11 08 00 ..R.0.....*.....
0212D0: 19 34 C0 23 34 C9 3E 99 32 D0 00 C9 3A D0 00 B7 .4.#4.>.2...:...
0212E0: C0 E5 CD 5A 1A B7 ED 52 3E 01 20 10 2A E2 00 11 ...Z...R>. .*...
0212F0: 04 00 19 34 20 04 23 34 28 08 3E 03 E1 CD 09 19 ...4 .#4(.>.....
021300: C1 91 0A 06 81 00 00 00 00 00 80 21 A2 DA 0F 49 ...........!...I
021310: 7D E8 A2 8B 2E BA 7D 8E E3 38 8E 63 7E 49 92 24 }.....}..8.c~I.$
021320: 49 92 7E CD CC CC CC 4C 7F AB AA AA AA AA DD 21 I.~....L.......!
021330: 0A 0F 3E 05 C5 D5 E5 F5 CD AC 0F CD 97 0A F1 CD ..>.............
021340: 49 0F D9 E1 D1 C1 C3 97 0A F5 D9 CD 6E 0F 18 10 I...........n...
021350: F5 D9 C5 D5 E5 CD 6E 0F CD 0D 0A D9 E1 D1 C1 D9 ......n.........
021360: CD 97 0A F1 3D 20 E9 D9 CD 86 0F C3 0D 0A 11 06 ....= ..........
021370: 00 DD 19 DD 6E 00 DD 66 01 DD 5E 02 DD 56 03 DD ....n..f..^..V..
021380: 4E 04 DD 46 05 C9 21 81 00 44 4C 54 5C C9 01 0F N..F..!..DLT\...
021390: 49 11 A2 DA 21 82 21 C9 01 04 35 11 33 F3 21 81 I...!.!...5.3.!.
0213A0: FA C9 01 72 31 11 F7 17 21 80 D2 C9 C5 D5 E5 D9 ...r1...!.......
0213B0: E1 D1 C1 C9 CD 92 07 21 80 00 3E 20 CB 78 20 0D .......!..> .x .
0213C0: CB 23 CB 12 CB 11 CB 10 2D 3D 20 F0 6F CB B8 C9 .#......-= .o...
0213D0: CB 78 D9 CD 86 0F 28 02 CB F8 2D CD 0D 0A B7 CB .x....(...-.....
0213E0: 7D 28 1C CB 78 08 CB F8 3E 8F BD 38 16 28 06 CD }(..x...>..8.(..
0213F0: 7A 0B 2C 18 F3 CD 7A 0B 08 60 69 C8 C3 83 07 21 z.,...z..`i....!
021400: 00 00 C9 3E 92 C3 27 20 7C B5 CA 72 0B CB 7C 08 ...>..' |..r..|.
021410: CD 80 07 3E 90 29 3D CB 7C 28 FA 44 4D 11 00 00 ...>.)=.|(.DM...
021420: 62 6F 08 C0 CB B8 C9 CD C8 04 EB 1E 00 38 04 FE bo...........8..
021430: 19 38 18 1D CD C8 04 D9 CB 78 D9 16 07 28 01 14 .8.......x...(..
021440: 92 30 01 AF FE 09 38 02 3E 09 3C 57 D5 D9 FD 21 .0....8.>.<W...!
021450: 5D 00 DD E5 CD EB 10 DD E1 D1 4F 7A 3C CB 7B 20 ].........Oz<.{
021460: 10 81 F2 6B 10 FD 36 00 00 18 0B FE 0C 38 02 3E ...k..6......8.>
021470: 0B D5 CD 80 11 D1 CB 78 28 05 3E 2D CD E5 10 CB .......x(.>-....
021480: 7B 28 03 61 0E 00 CB 79 28 05 CD E3 10 18 07 CD {(.a...y(.......
021490: D9 10 0D F2 8F 10 7A B7 28 17 3E 2E CD E5 10 0C ......z.(.>.....
0214A0: 28 06 CD E3 10 15 20 F7 15 FA B1 10 CD D9 10 18 (..... .........
0214B0: F7 CB 7B C8 3E 45 CD E5 10 3E 2B CB 7C 28 06 7C ..{.>E...>+.|(.|
0214C0: ED 44 67 3E 2D CD E5 10 7C 06 2F 04 D6 0A 30 FB .Dg>-...|./...0.
0214D0: C6 3A DD 70 00 DD 23 18 0C FD 7E 00 FD 23 B7 20 .:.p..#...~..#.
0214E0: 04 FD 2B 3E 30 DD 77 00 DD 23 C9 FD E5 2C 2D 20 ..+>0.w..#...,-
0214F0: 0E 06 0C FD 36 00 30 FD 23 10 F8 AF C3 7D 11 C5 ....6.0.#....}..
021500: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
021510: 1C 00 00 00 02 09 4E E5 1C 00 41 02 00 00 00 02 ......N...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: 18 C8 E1 3E F2 32 D0 00 C9 32 E9 00 EB 2A E2 00 ...>.2...2...*..
021610: CB 66 28 2F CB A6 3A E9 00 CB 47 28 18 23 23 7E .f(/..:...G(.##~
021620: 2B 2B B7 20 10 3A E9 00 CB 4F 20 17 78 B7 20 13 ++. .:...O .x. .
021630: 79 B7 FA 43 19 C5 D5 0E 21 CD BA 19 D1 C1 20 51 y..C....!..... Q
021640: 2A E2 00 3A E9 00 CB 47 28 02 CB EE 23 23 7E C6 *..:...G(...##~.
021650: 2E D5 5F 16 00 19 D1 D6 2E CD 9A 19 ED A0 E2 66 .._............f
021660: 19 3C F2 5C 19 3D 3C CD 9A 19 2A E2 00 23 23 E6 .<.\.=<...*..##.
021670: 7F 77 20 16 C5 D5 E5 CD AE 19 E1 D1 C1 20 15 D5 .w .......... ..
021680: 11 2B 00 19 D1 34 20 02 23 34 78 B1 C2 0D 19 EB .+...4 .#4x.....
021690: C9 3E 99 01 3E F0 32 D0 00 C9 F5 3A E9 00 CB 47 .>..>.2....:...G
0216A0: 28 01 EB F1 C9 22 E2 00 CD AE 19 C8 18 E6 0E 22 (...."........."
0216B0: 2A E2 00 CB E6 CB 6E C8 CB AE 2A E2 00 E5 C5 11 *.....n...*.....
0216C0: 30 00 19 EB 0E 1A CD 05 00 C1 E1 11 0C 00 19 EB 0...............
0216D0: CD 05 00 B7 C9 C1 D1 ED 53 E2 00 C5 E5 CD 5A 1A ........S.....Z.
0216E0: D1 B7 ED 52 38 40 2A E2 00 01 06 00 09 4E 23 46 ...R8@*......N#F
0216F0: 23 73 23 72 CD 2C 1A 01 04 00 09 30 01 13 7D E6 #s#r.,.....0..}.
021700: 7F 29 EB ED 6A EB 53 5C 2A E2 00 23 23 77 01 2B .)..j.S\*..##w.+
021710: 00 09 4E 23 46 EB B7 ED 42 09 C8 D5 E5 CD AE 19 ..N#F...B.......
021720: D1 E1 72 2B 73 C9 3E 91 32 D0 00 C9 D5 D9 E1 D9 ..r+s.>.2.......
021730: 21 00 00 54 5D 3E 10 29 EB ED 6A EB D9 29 D9 30 !..T]>.)..j..).0
021740: 04 09 30 01 13 3D 20 EF C9 CD 5D 1A B7 ED 52 21 ..0..= ...]...R!
021750: 00 00 C0 23 C9 CD 5D 1A EB C9 2A E2 00 11 04 00 ...#..]...*.....
021760: 19 5E 23 56 23 D5 4E 23 46 23 5E 23 56 E1 C9 3E .^#V#.N#F#^#V..>
021770: AF 32 E8 00 CD B0 1A 3A D0 00 B7 C0 CD 30 14 3A .2.....:.....0.:
021780: D0 00 B7 C0 2A E2 00 36 C0 E5 11 0C 00 19 EB 0E ....*..6........
021790: 23 CD 05 00 E1 11 2D 00 19 AF 4E 77 23 46 77 11 #.....-...Nw#Fw.
0217A0: D6 FF 19 71 23 70 23 36 80 23 77 23 77 23 77 C9 ...q#p#6.#w#w#w.
0217B0: 22 E2 00 7E E6 C0 C8 C3 81 14 3E 22 18 02 3E 21 "..~......>"..>!
0217C0: 44 4D 21 F0 00 22 E6 00 DD E1 D1 E1 DD E5 C5 CD DM!.."..........
0217D0: FD 1A C1 3A D0 00 B7 C0 2A F0 00 ED 42 C8 3A E9 ...:....*...B.:.
0217E0: 00 FE 21 3E 99 28 02 3E F0 32 D0 00 C9 3E 22 18 ..!>.(.>.2...>".
0217F0: 02 3E 21 22 E6 00 DD E1 C1 D1 E1 DD E5 32 E9 00 .>!".........2..
021800: 2A 9F E1 E5 2A 99 E1 E5 2A 97 E1 D1 19 E5 CD FF *...*...*.......
021810: 21 22 AA E4 CD 50 E2 C3 7E 23 19 11 03 00 B7 ED !"...P..~#......
021820: 52 C2 47 23 2A 9F E1 E5 2A 9D E1 E5 CD FF 21 22 R.G#*...*.....!"
021830: AC E4 2A AC E4 E5 2A 97 E1 D1 EB B7 ED 52 22 AA ..*...*......R".
021840: E4 CD 31 E2 C3 7E 23 19 11 02 00 B7 ED 52 C2 7E ..1..~#......R.~
021850: 23 21 FD E1 E5 21 04 00 D1 19 E5 21 B8 00 EB E1 #!...!.....!....
021860: 73 2A 9B E1 E5 2A 99 E1 E5 CD FF 21 22 AC E4 2A s*...*.....!"..*
021870: AC E4 E5 2A 97 E1 D1 19 22 AA E4 CD 50 E2 C9 FD ...*...."...P...
021880: E1 E1 22 86 E1 E1 22 88 E1 E1 22 8A E1 E1 22 8C .."..."..."...".
021890: E1 FD E5 21 31 E2 E5 21 01 00 D1 19 E5 21 6F E2 ...!1..!.....!o.
0218A0: 26 00 EB E1 73 21 31 E2 E5 21 02 00 D1 19 E5 21 &...s!1..!.....!
0218B0: 6F E2 6C 26 00 EB E1 73 2A 88 E1 E5 2A 8C E1 D1 o.l&...s*...*...
0218C0: EB B7 ED 52 E5 21 01 00 D1 19 22 A8 E4 2A 86 E1 ...R.!...."..*..
0218D0: E5 2A 8A E1 D1 EB B7 ED 52 E5 21 01 00 D1 19 7D .*......R.!....}
0218E0: 32 AE E4 2A 8C E1 E5 2A 8A E1 E5 CD FF 21 22 AC 2..*...*.....!".
0218F0: E4 CD 31 E2 21 31 E2 E5 21 01 00 D1 19 E5 21 FD ..1.!1..!.....!.
021900: E1 26 00 EB E1 73 21 31 E2 E5 21 02 00 D1 19 E5 .&...s!1..!.....
021910: 21 FD E1 6C 26 00 EB E1 73 C9 FD E1 E1 22 7C E1 !..l&...s...."|.
021920: FD E5 21 AF E4 E5 21 00 00 D1 19 E5 21 CD 00 EB ..!...!.....!...
021930: E1 73 21 AF E4 E5 21 01 00 D1 19 E5 21 5A 00 EB .s!...!.....!Z..
021940: E1 73 21 AF E4 E5 21 02 00 D1 19 E5 21 FC 00 EB .s!...!.....!...
021950: E1 73 21 AF E4 E5 21 03 00 D1 19 E5 2A 7C E1 26 .s!...!.....*|.&
021960: 00 EB E1 73 21 AF E4 E5 21 04 00 D1 19 E5 2A 7C ...s!...!.....*|
021970: E1 6C 26 00 EB E1 73 21 AF E4 E5 21 05 00 D1 19 .l&...s!...!....
021980: E5 21 C9 00 EB E1 73 3A AE E4 ED 4B A8 E4 ED 5B .!....s:...K...[
021990: AA E4 2A AC E4 CD AF E4 32 AE E4 ED 43 A8 E4 ED ..*.....2...C...
0219A0: 53 AA E4 22 AC E4 C9 FD E1 E1 22 6A E1 E1 22 6C S.."......"j.."l
0219B0: E1 E1 22 6E E1 E1 22 70 E1 E1 22 72 E1 FD E5 2A .."n.."p.."r...*
0219C0: 70 E1 22 5E E1 2A 6C E1 22 5C E1 2A 6A E1 22 60 p."^.*l."\.*j."`
0219D0: E1 2A 6E E1 E5 21 08 00 D1 CD 4E 07 E5 2A 72 E1 .*n..!....N..*r.
0219E0: D1 7C B2 67 7D B3 6F 22 5A E1 ED 4B 5A E1 CD 57 .|.g}.o"Z..KZ..W
0219F0: FC 2A 5C E1 ED 4B 60 E1 ED 5B 5E E1 CD 4B FC C9 .*\..K`..[^..K..
021A00: 22 E2 00 7E E6 C0 CA B0 18 2A E6 00 AF 77 23 77 "..~.....*...w#w
021A10: 78 B1 28 39 C5 D5 0E 1A CD 05 00 2A E2 00 11 0C x.(9.......*....
021A20: 00 19 EB 3A E9 00 4F CD 05 00 D1 C1 B7 20 1E D5 ...:..O...... ..
021A30: 2A E2 00 11 2D 00 19 34 20 02 23 34 D1 21 80 00 *...-..4 .#4.!..
021A40: 19 EB 2A E6 00 34 20 02 23 34 0B 18 C3 2A E2 00 ..*..4 .#4...*..
021A50: 11 2D 00 19 4E 23 46 11 DA FF 19 71 23 70 11 FC .-..N#F....q#p..
021A60: FF 19 56 2B 5E EB B7 ED 42 D0 EB 71 23 70 C9 C1 ..V+^...B..q#p..
021A70: D1 ED 53 E2 00 C5 E5 CD 5A 1A D1 B7 ED 52 DA 26 ..S.....Z....R.&
021A80: 1A 2A E2 00 01 08 00 09 73 23 72 01 24 00 09 73 .*......s#r.$..s
021A90: 23 72 C9 CD 4C 1C C0 11 0C 00 19 EB 0E 13 CD 05 #r..L...........
021AA0: 00 3C C0 18 3F FD E1 2A D2 00 06 10 CD E2 05 AF .<..?..*........
021AB0: 12 E1 FD E5 CD 4C 1C C0 E5 CD F2 03 E1 E5 11 1C .....L..........
021AC0: 00 19 EB 21 5C 00 01 0C 00 ED B0 E1 11 0C 00 19 ...!\...........
021AD0: E5 EB 0E 17 CD 05 00 D1 3C 28 09 21 5C 00 01 24 ........<(.!\..$
021AE0: 00 ED B0 C9 3E 01 32 D0 00 C9 3E AF 32 E8 00 CD ....>.2...>.2...
021AF0: 4C 1C C0 3A D8 00 B7 3E 21 28 EB 2A E2 00 11 0C L..:...>!(.*....
021B00: 00 19 11 5C 00 01 24 00 ED B0 11 5C 00 0E 0F CD ...\..$....\....
021B10: 05 00 3C 28 CF 21 33 1C 11 B0 00 01 19 00 ED B0 ..<(.!3.........
021B20: 11 00 01 3A E8 00 B7 20 04 ED 5B 01 01 31 00 01 ...:... ..[..1..
021B30: C3 B0 00 D5 0E 1A CD 05 00 11 5C 00 0E 14 CD 05 ..........\.....
021B40: 00 D1 21 80 00 19 EB B7 28 E9 18 37 22 E2 00 7E ..!.....(..7"..~
021B50: E6 0F C8 3E 20 32 D0 00 C9 22 E6 00 ED 53 E8 00 ...> 2..."...S..
021B60: EB E1 22 E2 00 4E 73 23 46 72 EB B7 ED 42 28 5A .."..Ns#Fr...B(Z
021B70: EB 23 11 5C 00 3A DC 00 12 13 01 0B 00 ED B0 06 .#.\.:..........
021B80: 18 AF 12 13 10 FC E5 11 5C 00 0E 0F CD 05 00 D1 ........\.......
021B90: 3C 28 3F 2A E6 00 22 7D 00 ED 4B E8 00 C5 D5 0E <(?*.."}..K.....
021BA0: 1A CD 05 00 11 5C 00 0E 21 CD 05 00 D1 C1 B7 20 .....\..!......
021BB0: 21 2A 7D 00 23 22 7D 00 21 80 00 19 EB 0B 78 B1 !*}.#"}.!.....x.
021BC0: 20 DB 11 5C 00 0E 10 CD 05 00 2A E2 00 11 0D 00 ..\......*.....
021BD0: 19 E9 DD 2A E2 00 3E F0 C3 29 20 CD C8 04 FE 11 ...*..>..) .....
021BE0: D0 32 DC 00 C9 22 F0 00 EB E1 E3 22 F2 00 13 13 .2..."....."....
021BF0: 13 7B E6 FC 5F 21 DE 00 22 F8 00 DD 2A DE 00 DD .{.._!.."...*...
021C00: FD E1 E1 7D 32 59 E1 FD E5 2A 59 E1 26 00 7D 32 ...}2Y...*Y.&.}2
021C10: A7 E4 2A 59 E1 26 00 7D 32 AE E4 21 DE BB E5 CD ..*Y.&.}2..!....
021C20: 1A 24 C9 FD E1 E1 22 4D E1 E1 22 4F E1 FD E5 21 .$...."M.."O...!
021C30: C7 00 E5 2A 4D E1 D1 EB B7 ED 52 E5 21 01 00 D1 ...*M.....R.!...
021C40: CD 4E 07 22 AC E4 2A 4F E1 22 AA E4 21 C0 BB E5 .N."..*O."..!...
021C50: CD 1A 24 C9 FD E1 E1 22 41 E1 E1 22 43 E1 FD E5 ..$...."A.."C...
021C60: 21 C7 00 E5 2A 41 E1 D1 EB B7 ED 52 E5 21 01 00 !...*A.....R.!..
021C70: D1 CD 4E 07 22 AC E4 2A 43 E1 22 AA E4 21 F6 BB ..N."..*C."..!..
021C80: E5 CD 1A 24 C9 FD E1 E1 22 35 E1 E1 22 37 E1 FD ...$...."5.."7..
021C90: E5 21 01 00 E5 2A 35 E1 E5 21 00 00 E5 2A 37 E1 .!...*5..!...*7.
021CA0: E5 21 07 00 D1 CD 4E 07 E5 21 00 40 D1 19 E5 21 .!....N..!.@...!
021CB0: 80 00 E5 CD A7 24 C9 FD E1 E1 22 25 E1 E1 22 27 .....$...."%.."'
021CC0: E1 FD E5 21 00 00 E5 2A 27 E1 E5 21 07 00 D1 CD ...!...*'..!....
021CD0: 4E 07 E5 21 00 40 D1 19 E5 21 01 00 E5 2A 25 E1 N..!.@...!...*%.
021CE0: E5 21 80 00 E5 CD A7 24 C9 FD E1 E1 22 13 E1 E1 .!.....$...."...
021CF0: 22 15 E1 FD E5 2A 15 E1 22 AA E4 21 C7 00 E5 2A "....*.."..!...*
021D00: 13 E1 D1 EB B7 ED 52 22 AC E4 21 1D BC E5 CD 1A ......R"..!.....
021D10: 24 2A AC E4 E5 21 FF 7F D1 7C A2 67 7D A3 6F E5 $*...!...|.g}£o.
021D20: 21 00 40 D1 7C B2 67 7D B3 6F 22 17 E1 2A 17 E1 !.@.|.g}.o"..*..
021D30: C9 FD E1 E1 22 05 E1 E1 22 07 E1 E1 22 09 E1 FD ...."..."..."...
021D40: E5 2A 07 E1 E5 21 03 00 D1 CD 4E 07 E5 2A 05 E1 .*...!....N..*..
021D50: E5 CD E9 25 E5 21 00 40 D1 EB B7 ED 52 22 FB E0 ...%.!.@....R"..
021D60: 21 76 E3 E5 2A FB E0 E5 21 07 00 D1 CD 56 07 CD !v..*...!....V..
021D70: 6F 1B 21 76 E3 E5 21 A7 E3 E5 21 02 00 CD BE 1A o.!v..!...!.....
021D80: CD F1 1F E5 21 00 00 D1 CD 7F 06 CB 45 CA 90 26 ....!.......E..&
021D90: 21 A7 E3 E5 2A FB E0 E5 21 7F 00 D1 7C A2 67 7D !...*...!...|.g}
021DA0: A3 6F D1 19 E5 21 AE E2 E5 2A 09 E1 CD 64 1F C9 £o...!...*...d..
021DB0: FD E1 E1 22 F5 E0 E1 22 F7 E0 E1 22 F9 E0 FD E5 ..."..."..."....
021DC0: 2A F7 E0 E5 21 03 00 D1 CD 4E 07 E5 2A F5 E0 E5 *...!....N..*...
021DD0: CD E9 25 E5 21 00 40 D1 EB B7 ED 52 22 EB E0 21 ..%.!.@....R"..!
021DE0: 76 E3 E5 2A EB E0 E5 21 07 00 D1 CD 56 07 CD 6F v..*...!....V..o
021DF0: 1B CD 1B 20 21 76 E3 E5 21 A7 E3 E5 21 02 00 CD ... !v..!...!...
021E00: 6E 02 DD 66 03 7D B4 28 48 ED 52 30 0F DD 6E 00 n..f.}.(H.R0..n.
021E10: DD 66 01 E5 DD 22 F8 00 DD E1 18 E3 20 0A DD 5E .f..."...... ..^
021E20: 00 DD 56 01 DD E5 18 1B 4D 44 DD 6E 00 DD 66 01 ..V.....MD.n..f.
021E30: DD E5 DD 19 DD 75 00 DD 74 01 DD 71 02 DD 70 03 .....u..t..q..p.
021E40: DD E5 D1 2A F8 00 73 23 72 D1 2A F2 00 73 23 72 ...*..s#r.*..s#r
021E50: C9 DD E5 E1 19 22 C4 00 2A F0 00 01 04 00 09 DD ....."..*.......
021E60: E5 C1 09 DA 75 1D ED 4B C6 00 ED 42 01 00 00 21 ....u..K...B...!
021E70: 00 00 DA 30 1D 3E FF C3 27 20 EB E1 E3 7E 23 66 ...0.>..' ...~#f
021E80: 6F 13 13 13 7B E6 FC 5F EB 22 F0 00 2A DE 00 E5 o...{.._."..*...
021E90: DD E1 B7 ED 52 30 52 DD 6E 00 DD 66 01 E5 B7 ED ....R0R.n..f....
021EA0: 52 30 04 DD E1 18 F0 E1 D5 FD E1 ED 4B F0 00 FD R0..........K...
021EB0: 71 02 FD 70 03 FD 75 00 FD 74 01 DD 73 00 DD 72 q..p..u..t..s..r
021EC0: 01 DD E5 E1 DD 4E 02 DD 46 03 CD 04 1E 28 09 DD .....N..F....(..
021ED0: 5E 00 DD 56 01 D5 DD E1 DD E5 E1 DD 4E 02 DD 46 ^..V........N..F
021EE0: 03 DD 5E 00 DD 56 01 18 1B 2A DE 00 ED 53 DE 00 ..^..V...*...S..
021EF0: D5 DD E1 DD 75 00 DD 74 01 ED 4B F0 00 DD 71 02 ....u..t..K...q.
021F00: DD 70 03 EB 09 B7 ED 52 C0 D5 FD E1 2A C4 00 B7 .p.....R....*...
021F10: ED 52 28 1B FD 7E 00 DD 77 00 FD 7E 01 DD 77 01 .R(..~..w..~..w.
021F20: FD 6E 02 FD 66 03 09 DD 75 02 DD 74 03 AF C9 DD .n..f...u..t....
021F30: E5 E1 22 C4 00 06 04 36 00 23 10 FB C9 CD 4B 1E .."....6.#....K.
021F40: 2A F4 00 C9 CD 4B 1E 2A F6 00 C9 21 00 00 22 F4 *....K.*...!..".
021F50: 00 22 F6 00 DD 2A DE 00 DD 4E 02 DD 46 03 79 B0 ."...*...N..F.y.
021F60: 28 1E 2A F4 00 09 22 F4 00 2A F6 00 B7 ED 42 30 (.*..."..*....B0
021F70: 04 ED 43 F6 00 DD 6E 00 DD 66 01 E5 DD E1 18 D8 ..C...n..f......
021F80: 2A C6 00 01 FB FF 09 ED 5B C4 00 B7 ED 52 D8 EB *.......[....R..
021F90: 2A F4 00 19 22 F4 00 2A F6 00 B7 ED 52 D0 ED 53 *..."..*....R..S
021FA0: F6 00 C9 ED 5B C4 00 73 23 72 C9 5E 23 56 EB 22 ....[..s#r.^#V."
021FB0: C4 00 22 DE 00 06 04 36 00 23 10 FB C9 3E AF 4F .."....6.#...>.O
021FC0: 22 E8 00 AF 77 32 D0 00 78 32 EA 00 2A E2 00 22 "...w2..x2..*.."
021FD0: ED 00 21 46 1F 22 E2 00 E1 22 E4 00 E1 0C 0D 20 ..!F."...".....
021FE0: 05 CD 26 17 18 03 CD 79 17 2A ED 00 22 E2 00 2A ..&....y.*.."..*
021FF0: E4 00 E9 3E AF 32 EC 00 22 E8 00 2A E2 00 22 ED ...>.2.."..*..".
022000: BE 1A CD F1 1F E5 21 00 00 D1 CD 7F 06 CB 45 CA ......!.......E.
022010: 12 27 21 AE E2 E5 21 A7 E3 E5 2A EB E0 E5 21 7F .'!...!...*...!.
022020: 00 D1 7C A2 67 7D A3 6F D1 19 E5 2A F9 E0 CD 64 ..|.g}£o...*...d
022030: 1F 21 76 E3 E5 21 A7 E3 E5 21 02 00 CD BA 1A CD .!v..!...!......
022040: F1 1F E5 21 00 00 D1 CD 7F 06 CB 45 CA 4F 27 C9 ...!.......E.O'.
022050: FD E1 E1 22 DD E0 E1 22 DF E0 E1 22 E1 E0 E1 22 ..."..."..."..."
022060: E3 E0 E1 22 E5 E0 E1 22 E7 E0 E1 22 E9 E0 FD E5 ..."..."..."....
022070: 2A DF E0 E5 21 02 00 D1 CD 7F 06 E5 2A DD E0 E5 *...!.......*...
022080: 21 02 00 D1 CD 7F 06 D1 7D A3 6F CB 45 CA B1 27 !.......}£o.E..'
022090: 2A E9 E0 E5 2A E7 E0 E5 2A E5 E0 E5 CD 31 26 2A *...*...*....1&*
0220A0: E9 E0 E5 2A E3 E0 E5 2A E1 E0 E5 CD B0 26 C3 9A ...*...*.....&..
0220B0: 28 2A DF E0 E5 21 02 00 D1 CD 7F 06 E5 2A DD E0 (*...!.......*..
0220C0: E5 21 01 00 D1 CD 7F 06 D1 7D A3 6F CB 45 CA 0A .!.......}£o.E..
0220D0: 28 2A E9 E0 E5 2A E7 E0 E5 2A E5 E0 E5 CD 31 26 (*...*...*....1&
0220E0: 21 01 00 E5 21 AE E2 E5 21 00 00 E5 2A E3 E0 E5 !...!...!...*...
0220F0: 21 03 00 D1 CD 4E 07 E5 2A E1 E0 E5 CD E9 25 E5 !....N..*.....%.
022100: 2A E9 E0 E5 CD A7 24 C3 9A 28 2A DF E0 E5 21 01 *.....$..(*...!.
022110: 00 D1 CD 7F 06 E5 2A DD E0 E5 21 02 00 D1 CD 7F ......*...!.....
022120: 06 D1 7D A3 6F CB 45 CA 63 28 21 00 00 E5 2A E7 ..}£o.E.c(!...*.
022130: E0 E5 21 03 00 D1 CD 4E 07 E5 2A E5 E0 E5 CD E9 ..!....N..*.....
022140: 25 E5 21 01 00 E5 21 AE E2 E5 2A E9 E0 E5 CD A7 %.!...!...*.....
022150: 24 2A E9 E0 E5 2A E3 E0 E5 2A E1 E0 E5 CD B0 26 $*...*...*.....&
022160: C3 9A 28 21 00 00 E5 2A E7 E0 E5 21 03 00 D1 CD ..(!...*...!....
022170: 4E 07 E5 2A E5 E0 E5 CD E9 25 E5 21 00 00 E5 2A N..*.....%.!...*
022180: E3 E0 E5 21 03 00 D1 CD 4E 07 E5 2A E1 E0 E5 CD ...!....N..*....
022190: E9 25 E5 2A E9 E0 E5 CD A7 24 C9 FD E1 E1 22 CD .%.*.....$....".
0221A0: E0 E1 22 CF E0 E1 22 D1 E0 E1 22 D3 E0 FD E5 21 .."..."..."....!
0221B0: AE E2 E5 2A D1 E0 E5 2A D3 E0 CD 4E 1F 21 01 00 ...*...*...N.!..
0221C0: E5 21 AE E2 E5 21 00 00 E5 2A CF E0 E5 21 03 00 .!...!...*...!..
0221D0: D1 CD 4E 07 E5 2A CD E0 E5 CD E9 25 E5 2A D1 E0 ..N..*.....%.*..
0221E0: E5 CD A7 24 C9 FD E1 E1 22 BF E0 E1 22 C1 E0 E1 ...$...."..."...
0221F0: 22 C3 E0 FD E5 21 00 00 E5 2A C3 E0 E5 21 03 00 "....!...*...!..
022200: 00 21 46 1F 22 E2 00 E1 22 E4 00 E1 22 EA 00 21 .!F."..."..."..!
022210: 5C 00 06 1E CD E2 05 AF 12 2A EA 00 3A EC 00 B7 \........*..:...
022220: 20 05 CD 4E 16 18 03 CD 72 16 21 D0 00 7E 36 00 ..N....r.!..~6.
022230: B7 67 6F 28 08 DD E5 E1 11 5C 00 ED 52 EB 2A E8 .go(.....\..R.*.
022240: 00 73 23 72 18 A3 C6 00 ED 5F 32 CB 00 C9 EB DD .s#r.£..._2.....
022250: E1 C1 E1 78 B1 28 0B 73 0B 78 B1 28 05 54 5D 13 ...x.(.s.x.(.T].
022260: ED B0 DD E9 44 4D DD E1 D1 E1 78 B1 28 F4 ED 52 ....DM....x.(..R
022270: 19 30 ED 0B 09 EB 09 EB 03 ED B8 DD E9 55 14 15 .0...........U..
022280: 28 03 CD 9D 1F DD E1 4F 06 00 2F 6F 26 FF 39 F9 (......O../o&.9.
022290: 71 23 EB 0C 0D 28 02 ED B0 DD E9 16 00 21 80 00 q#...(.......!..
0222A0: 3E 1F 46 B8 30 02 06 1F 23 0E 00 04 05 28 0D 7E >.F.0...#....(.~
0222B0: FE 20 28 04 FE 09 20 04 23 05 18 EF 5D 04 05 28 . (... .#...]..(
0222C0: 0D 7E FE 20 28 08 FE 09 28 04 23 05 18 EF 7D 93 .~. (...(.#...}.
0222D0: 28 04 0C 15 20 D5 69 26 00 54 C9 D1 C1 D5 2D 61 (... .i&.T....-a
0222E0: 25 C3 A2 02 7D CD A6 04 6F C9 2A 01 00 19 19 19 %...}...o.*.....
0222F0: E9 21 D0 00 7E 36 00 6F 26 00 C9 CD 16 03 7C B5 .!..~6.o&.....|.
022300: C8 3A DD 00 F5 AF 32 DD 00 CD 20 03 F1 32 DD 00 .:....2... ..2..
022310: 7D FE 03 C0 DD E1 11 01 00 18 11 3A D0 00 B7 C8 }..........:....
022320: DD E1 5F 16 01 18 05 DD E1 5F 16 02 D5 CD 7A 03 .._......_....z.
022330: D1 AF 32 DD 00 2A CE 00 7C B5 DD E5 E1 ED 4B CC ..2..*..|.....K.
022340: 00 ED 42 01 15 00 09 22 CE 00 B7 20 07 D5 D5 E5 ..B...."... ....
022350: CD D9 00 D1 7A B7 20 14 CD 00 02 5E 43 0D 0A 55 ....z. ....^C..U
022360: 73 65 72 20 62 72 65 61 6B 00 18 2B 3D 20 0B CD ser break..+= ..
022370: 00 02 0D 0A 49 2F 4F 00 18 0E CD 00 02 0D 0A 52 ....I/O........R
022380: 75 6E 2D 74 69 6D 65 00 CD 00 02 20 65 72 72 6F un-time.... erro
022390: 72 20 00 7B CD B4 04 CD 00 02 2C 20 50 43 3D 00 r .{......, PC=.
0223A0: 2A CE 00 CD AF 04 18 15 CD 00 02 4E 6F 74 20 65 *..........Not e
0223B0: 6E 6F 75 67 68 20 6D 65 6D 6F 72 79 00 CD 00 02 nough memory....
0223C0: 0D 0A 50 72 6F 67 72 61 6D 20 61 62 6F 72 74 65 ..Program aborte
0223D0: 64 0D 0A 00 3A D8 00 B7 CA 8E 27 C3 00 00 E1 D1 d...:.....'.....
0223E0: D1 E9 31 00 01 21 C2 F2 01 00 FF CD 64 03 21 C5 ..1..!......d.!.
0223F0: 92 11 E7 BC 01 42 F3 3E 01 CD D4 04 C3 B9 92 01 .....B.>........
022400: D1 CD 4E 07 E5 2A C1 E0 E5 CD E9 25 E5 21 01 00 ..N..*.....%.!..
022410: E5 21 AE E2 E5 2A BF E0 E5 CD A7 24 21 00 00 E5 .!...*.....$!...
022420: 2A BF E0 D1 CD 66 06 7A B3 CA 58 29 D5 22 B5 E0 *....f.z..X)."..
022430: 21 AE E2 E5 2A B5 E0 D1 19 E5 21 AE E2 E5 2A B5 !...*.....!...*.
022440: E0 D1 19 6E 26 00 7D 2F 6F 7C 2F 67 EB E1 73 2A ...n&.}/o|/g..s*
022450: B5 E0 23 D1 1B C3 27 29 21 01 00 E5 21 AE E2 E5 ..#...')!...!...
022460: 21 00 00 E5 2A C3 E0 E5 21 03 00 D1 CD 4E 07 E5 !...*...!....N..
022470: 2A C1 E0 E5 CD E9 25 E5 2A BF E0 E5 CD A7 24 C9 *.....%.*.....$.
022480: FD E1 E1 22 AD E0 E1 22 AF E0 E1 22 B1 E0 E1 22 ..."..."..."..."
022490: B3 E0 FD E5 21 00 00 E5 2A AF E0 E5 21 03 00 D1 ....!...*...!...
0224A0: CD 4E 07 E5 2A AD E0 E5 CD E9 25 E5 21 01 00 E5 .N..*.....%.!...
0224B0: 2A B1 E0 E5 2A B3 E0 E5 CD A7 24 C9 FD E1 E1 22 *...*.....$...."
0224C0: 9D E0 E1 22 9F E0 E1 22 A1 E0 E1 22 A3 E0 FD E5 ..."..."..."£...
0224D0: 21 01 00 E5 2A A1 E0 E5 21 00 00 E5 2A 9F E0 E5 !...*...!...*...
0224E0: 21 03 00 D1 CD 4E 07 E5 2A 9D E0 E5 CD E9 25 E5 !....N..*.....%.
0224F0: 2A A3 E0 E5 CD A7 24 C9 FD E1 E1 7D 32 8E E0 E1 *£....$....}2...
022500: 22 8F E0 E1 22 91 E0 E1 22 93 E0 FD E5 2A 8E E0 "..."..."....*..
022510: 26 00 CB 45 CA C8 2A 2A 8F E0 22 84 E0 21 00 00 &..E..**.."..!..
022520: E5 2A 93 E0 E5 21 01 00 D1 EB B7 ED 52 D1 CD 66 .*...!......R..f
022530: 06 7A B3 CA C5 2A D5 22 80 E0 2A 91 E0 E5 21 03 .z...*."..*...!.
022540: 00 D1 CD 4E 07 E5 2A 84 E0 E5 CD E9 25 E5 21 00 ...N..*.....%.!.
022550: 40 D1 EB B7 ED 52 22 82 E0 21 76 E3 E5 2A 82 E0 @....R"..!v..*..
022560: E5 21 07 00 D1 CD 56 07 CD 6F 1B CD 1B 20 21 76 .!....V..o... !v
022570: E3 E5 21 A7 E3 E5 21 01 00 CD BE 1A CD F1 1F E5 ..!...!.........
022580: 21 00 00 D1 CD 7F 06 CB 45 CA 8C 2A 21 AE E2 E5 !.......E..*!...
022590: 2A 80 E0 D1 19 E5 21 A7 E3 E5 2A 82 E0 E5 21 7F *.....!...*...!.
0225A0: 00 D1 7C A2 67 7D A3 6F D1 19 6E 26 00 EB E1 73 ..|.g}£o..n&...s
0225B0: 2A 84 E0 E5 21 01 00 D1 19 22 84 E0 2A 80 E0 23 *...!...."..*..#
0225C0: D1 1B C3 31 2A C3 E9 2A 21 AE E2 E5 2A 93 E0 E5 ...1*..*!...*...
0225D0: 2A A7 E4 26 00 7D 2F 6F 7C 2F 67 E5 21 FF 00 D1 *..&.}/o|/g.!...
0225E0: 7C A2 67 7D A3 6F CD 4E 1F C9 FD E1 E1 22 7A E0 |.g}£o.N....."z.
0225F0: E1 22 7C E0 E1 22 7E E0 FD E5 21 AE E2 22 AA E4 ."|.."~...!.."..
022600: 07 34 78 36 2E 66 6F 6E 00 00 00 00 00 00 00 00 .4x6.fon........
022610: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
022620: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
022630: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
022640: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
022650: 00 E1 ED 73 B9 E1 31 CF E1 E5 F3 01 8E 7F 3E C1 ...s..1.......>.
022660: ED 79 ED 79 ED 4B A8 E4 ED 5B AA E4 2A AC E4 C9 .y.y.K...[..*...
022670: 01 8E 7F 3E C2 ED 79 FB ED 7B B9 E1 C9 CD D1 E1 ...>..y..{......
022680: ED B0 C3 F0 E1 CD D1 E1 1A 77 13 D5 CD 15 E2 D1 .........w......
022690: 10 F6 C3 F0 E1 11 00 08 19 CB 7C C8 11 B0 3F A7 ..........|...?.
0226A0: ED 52 C9 11 00 08 A7 ED 52 CB 74 C0 11 B0 3F 19 .R......R.t...?.
0226B0: C9 CD FD E1 2A AC E4 CD 15 E2 22 AC E4 2A AA E4 ....*....."..*..
0226C0: CD 15 E2 22 AA E4 3A AE E4 3D 32 AE E4 20 E2 C9 ..."..:..=2.. ..
0226D0: CD FD E1 2A AC E4 CD 23 E2 22 AC E4 2A AA E4 CD ...*...#."..*...
0226E0: 23 E2 22 AA E4 3A AE E4 3D 32 AE E4 20 E2 C9 CD #."..:..=2.. ...
0226F0: D1 E1 7E 2F 77 23 0B 78 B1 20 F7 C3 F0 E1 C9 FD ..~/w#.x. ......
022700: E1 E1 22 AB E1 E1 22 AD E1 FD E5 21 00 40 E5 2A .."..."....!.@.*
022710: AB E1 E5 21 07 00 D1 7C A2 67 7D A3 6F E5 21 00 ...!...|.g}£o.!.
022720: 08 D1 CD F5 06 E5 2A AB E1 E5 21 03 00 D1 CD 56 ......*...!....V
022730: 07 E5 21 50 00 D1 CD F5 06 D1 19 E5 2A AD E1 D1 ..!P........*...
022740: 19 E5 21 FF 7F D1 7C A2 67 7D A3 6F D1 19 22 AF ..!...|.g}£o..".
022750: E1 2A AF E1 C9 FD E1 E1 7D 32 96 E1 E1 22 97 E1 .*......}2..."..
022760: E1 22 99 E1 E1 22 9B E1 E1 22 9D E1 E1 22 9F E1 ."..."..."..."..
022770: E1 22 A1 E1 FD E5 2A 9B E1 E5 2A 9F E1 D1 EB B7 ."....*...*.....
022780: ED 52 E5 21 01 00 D1 19 22 A8 E4 2A 99 E1 E5 2A .R.!...."..*...*
022790: 9D E1 D1 EB B7 ED 52 E5 21 01 00 D1 19 7D 32 AE ......R.!....}2.
0227A0: E4 21 FD E1 E5 21 04 00 D1 19 E5 21 B0 00 EB E1 .!...!.....!....
0227B0: 73 2A A1 E1 11 00 00 B7 ED 52 C2 E8 22 2A 9F E1 s*.......R.."*..
0227C0: E5 2A 9D E1 E5 CD FF 21 22 AC E4 2A 9F E1 E5 2A .*.....!"..*...*
0227D0: 9D E1 E5 2A 97 E1 D1 EB B7 ED 52 E5 CD FF 21 22 ...*......R...!"
0227E0: AA E4 CD 31 E2 C3 7E 23 19 11 01 00 B7 ED 52 C2 ...1..~#......R.
0227F0: 1A 23 2A 9F E1 E5 2A 99 E1 E5 CD FF 21 22 AC E4 .#*...*.....!"..
022800: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
022810: 1D 00 00 00 02 09 50 E5 1D 00 41 02 00 00 00 02 ......P...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: 2A 7C E0 E5 2A 7A E0 E5 CD FF 21 22 AC E4 2A 7E *|..*z....!"..*~
022910: E0 7D 32 A9 E4 CD 05 E2 C9 21 78 BB E5 CD 1A 24 .}2......!x....$
022920: 2A AD E4 26 00 22 70 E0 2A 70 E0 C9 21 78 BB E5 *..&."p.*p..!x..
022930: CD 1A 24 2A AC E4 26 00 22 66 E0 2A 66 E0 C9 FD ..$*..&."f.*f...
022940: E1 E1 22 5A E0 E1 22 5C E0 FD E5 CD 9B 14 21 1B .."Z.."\......!.
022950: 00 CD 22 17 21 59 00 CD 22 17 2A 5A E0 E5 21 1F ..".!Y..".*Z..!.
022960: 00 D1 19 CD 22 17 2A 5C E0 E5 21 1F 00 D1 19 CD ....".*\..!.....
022970: 22 17 CD 1B 20 C9 C3 C4 30 FD E1 E1 22 50 E0 FD "... ...0..."P..
022980: E5 2A 50 E0 E5 CD 81 05 21 01 00 E5 21 10 00 CD .*P.....!...!...
022990: 9B 05 CD 4F 13 7D EE 01 6F CB 45 CA AC 2B 21 0E ...O.}..o.E..+!.
0229A0: 00 E5 21 02 00 E5 CD 76 2B C3 14 2C 21 B5 E4 E5 ..!....v+..,!...
0229B0: 2A 50 E0 2B 29 E5 29 E5 29 E5 29 E5 29 29 D1 19 *P.+).).).).))..
0229C0: D1 19 D1 19 D1 19 D1 19 22 48 E0 2A 48 E0 22 4A ........"H.*H."J
0229D0: E0 2A 48 E0 11 5D 00 19 6E 26 00 CB 45 CA 06 2C .*H..]..n&..E..,
0229E0: 21 7E E2 E5 CD 4D 05 05 77 69 6E 66 2E 2A 50 E0 !~...M..winf.*P.
0229F0: E5 21 30 00 D1 19 65 2E 01 E5 CD 3D 08 CD 70 13 .!0...e....=..p.
022A00: 21 7E E2 CD 93 1B 2A 48 E0 11 5D 00 19 E5 21 00 !~....*H..]...!.
022A10: 00 EB E1 73 C9 21 01 00 E5 21 10 00 D1 CD 66 06 ...s.!...!....f.
022A20: 7A B3 CA 39 2C D5 22 3E E0 2A 3E E0 E5 CD 79 2B z..9,.">.*>...y+
022A30: 2A 3E E0 23 D1 1B C3 20 2C C9 21 7B BB E5 CD 1A *>.#... ,.!{....
022A40: 24 CD 9B 14 21 1B 00 CD 22 17 21 31 00 CD 22 17 $...!...".!1..".
022A50: 21 1B 00 CD 22 17 21 78 00 CD 22 17 21 1B 00 CD !...".!x..".!...
022A60: 22 17 21 76 00 CD 22 17 CD 1B 20 21 76 E3 CD B0 ".!v.."... !v...
022A70: 1A 21 76 E3 CD 93 1B CD F1 1F E5 21 00 00 D1 CD .!v........!....
022A80: 7F 06 CB 45 CA 87 2C CD 15 2C C9 21 14 BC E5 CD ...E..,..,.!....
022A90: 1A 24 C9 CD 9B 14 21 1B 00 CD 22 17 21 79 00 CD .$....!...".!y..
022AA0: 22 17 21 1B 00 CD 22 17 21 30 00 CD 22 17 21 1B ".!...".!0..".!.
022AB0: 00 CD 22 17 21 77 00 CD 22 17 CD 1B 20 21 7E BB ..".!w.."... !~.
022AC0: E5 CD 1A 24 CD 8B 2C 21 51 21 01 AD 00 11 D1 E1 ...$..,!Q!......
022AD0: ED B0 21 76 E3 E5 CD 4D 05 0A 73 61 76 73 63 72 ..!v...M..savscr
022AE0: 2E 24 24 24 CD 70 13 21 76 E3 CD 6F 1A CD 1B 20 .$$$.p.!v..o...
022AF0: 21 A7 E3 E5 21 00 01 E5 21 00 00 CD 4E 1F 21 00 !...!...!...N.!.
022B00: 0D 0A 20 20 70 72 6F 63 65 64 75 72 65 20 44 72 .. procedure Dr
022B10: 61 77 45 78 70 6F 6E 65 6E 74 28 78 31 2C 79 31 awExponent(x1,y1
022B20: 2C 4D 61 78 45 78 70 6F 6E 65 6E 74 3A 69 6E 74 ,MaxExponent:int
022B30: 65 67 65 72 29 3B 0D 0A 20 20 20 20 76 61 72 20 eger);.. var
022B40: 69 3A 69 6E 74 65 67 65 72 3B 0D 0A 20 20 20 20 i:integer;..
022B50: 20 20 20 20 53 74 72 4E 75 6D 62 65 72 3A 77 72 StrNumber:wr
022B60: 6B 73 74 72 69 6E 67 3B 0D 0A 0D 0A 20 20 20 20 kstring;....
022B70: 62 65 67 69 6E 0D 0A 20 20 20 20 20 20 79 31 3A begin.. y1:
022B80: 3D 79 31 2D 33 3B 0D 0A 20 20 20 20 20 20 78 31 =y1-3;.. x1
022B90: 3A 3D 78 31 2B 31 3B 0D 0A 20 20 20 20 20 20 44 :=x1+1;.. D
022BA0: 72 61 77 41 73 63 69 69 28 78 31 2C 79 31 2C 31 rawAscii(x1,y1,1
022BB0: 2C 34 39 29 3B 0D 0A 20 20 20 20 20 20 44 72 61 ,49);.. Dra
022BC0: 77 41 73 63 69 69 28 78 31 2C 79 31 2C 31 2C 34 wAscii(x1,y1,1,4
022BD0: 38 29 3B 0D 0A 20 20 20 20 20 20 73 74 72 28 4D 8);.. str(M
022BE0: 61 78 45 78 70 6F 6E 65 6E 74 3A 33 2C 53 74 72 axExponent:3,Str
022BF0: 4E 75 6D 62 65 72 29 3B 0D 0A 20 20 20 20 20 20 Number);..
022C00: 79 31 3A 3D 79 31 2D 33 3B 0D 0A 20 20 20 20 20 y1:=y1-3;..
022C10: 20 78 31 3A 3D 78 31 2D 37 3B 0D 0A 20 20 20 20 x1:=x1-7;..
022C20: 20 20 66 6F 72 20 69 3A 3D 31 20 74 6F 20 33 20 for i:=1 to 3
022C30: 64 6F 20 44 72 61 77 41 73 63 69 69 28 78 31 2C do DrawAscii(x1,
022C40: 79 31 2C 31 2C 6F 72 64 28 53 74 72 4E 75 6D 62 y1,1,ord(StrNumb
022C50: 65 72 5B 69 5D 29 29 3B 0D 0A 20 20 20 20 65 6E er[i]));.. en
022C60: 64 3B 0D 0A 0D 0A 20 20 62 65 67 69 6E 20 7B 20 d;.... begin {
022C70: 44 72 61 77 41 78 69 73 20 7D 0D 0A 20 20 20 20 DrawAxis }..
022C80: 4C 69 6E 65 53 74 79 6C 65 4C 6F 63 3A 3D 4C 69 LineStyleLoc:=Li
022C90: 6E 65 73 74 79 6C 65 47 6C 62 3B 0D 0A 20 20 20 nestyleGlb;..
022CA0: 20 53 65 74 4C 69 6E 65 53 74 79 6C 65 28 30 29 SetLineStyle(0)
022CB0: 3B 0D 0A 20 20 20 20 44 69 72 65 63 74 4D 6F 64 ;.. DirectMod
022CC0: 65 4C 6F 63 3A 3D 44 69 72 65 63 74 4D 6F 64 65 eLoc:=DirectMode
022CD0: 47 6C 62 3B 0D 0A 20 20 20 20 44 69 72 65 63 74 Glb;.. Direct
022CE0: 4D 6F 64 65 47 6C 62 3A 3D 74 72 75 65 3B 0D 0A ModeGlb:=true;..
022CF0: 20 20 20 20 77 69 74 68 20 77 69 6E 64 6F 77 5B with window[
022D00: 28 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A (***************
022D10: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
022D20: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
022D30: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 29 0D 0A 28 ************)..(
022D40: 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 *
022D50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
022D60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
022D70: 20 20 20 20 20 20 20 20 20 20 2A 29 0D 0A 28 2A *)..(*
022D80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
022D90: 54 55 52 42 4F 20 47 52 41 50 48 49 58 20 76 65 TURBO GRAPHIX ve
022DA0: 72 73 69 6F 6E 20 31 2E 30 35 41 20 20 20 20 20 rsion 1.05A
022DB0: 20 20 20 20 20 20 20 20 20 2A 29 0D 0A 28 2A 20 *)..(*
022DC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
022DD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
022DE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
022DF0: 20 20 20 20 20 20 20 20 2A 29 0D 0A 28 2A 20 20 *)..(*
022E00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
022E10: 20 54 72 61 63 65 20 64 27 27 61 78 65 73 20 6D Trace d''axes m
022E20: 6F 64 75 6C 65 20 20 20 20 20 20 20 20 20 20 20 odule
022E30: 20 20 20 20 20 20 20 2A 29 0D 0A 28 2A 20 20 20 *)..(*
022E40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4D M
022E50: 6F 64 75 6C 65 20 76 65 72 73 69 6F 6E 20 20 31 odule version 1
022E60: 2E 30 35 41 20 20 20 20 20 20 20 20 20 20 20 20 .05A
022E70: 20 20 20 20 20 20 2A 29 0D 0A 28 2A 20 20 20 20 *)..(*
022E80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
022E90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
022EA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
022EB0: 20 20 20 20 20 2A 29 0D 0A 28 2A 20 20 20 20 20 *)..(*
022EC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 43 6F 70 Cop
022ED0: 79 72 69 67 68 74 20 28 43 29 20 31 39 38 35 20 yright (C) 1985
022EE0: 62 79 20 20 20 20 20 20 20 20 20 20 20 20 20 20 by
022EF0: 20 20 20 20 2A 29 0D 0A 28 2A 20 20 20 20 20 20 *)..(*
022F00: 57 69 6E 64 6F 77 4E 64 78 47 6C 62 5D 20 64 6F WindowNdxGlb] do
022F10: 0D 0A 20 20 20 20 20 62 65 67 69 6E 0D 0A 20 20 .. begin..
022F20: 20 20 20 20 58 31 52 65 66 4C 6F 63 3A 3D 78 31 X1RefLoc:=x1
022F30: 3B 0D 0A 20 20 20 20 20 20 58 32 52 65 66 4C 6F ;.. X2RefLo
022F40: 63 3A 3D 78 32 3B 0D 0A 20 20 20 20 20 20 59 31 c:=x2;.. Y1
022F50: 52 65 66 4C 6F 63 3A 3D 79 31 3B 0D 0A 20 20 20 RefLoc:=y1;..
022F60: 20 20 20 59 32 52 65 66 4C 6F 63 3A 3D 79 32 3B Y2RefLoc:=y2;
022F70: 0D 0A 20 20 20 20 20 20 52 65 44 65 66 69 6E 65 .. ReDefine
022F80: 57 69 6E 64 6F 77 28 57 69 6E 64 6F 77 4E 64 78 Window(WindowNdx
022F90: 47 6C 62 2C 78 31 2B 58 4C 65 66 74 2C 79 31 2B Glb,x1+XLeft,y1+
022FA0: 59 54 6F 70 2C 78 32 2D 58 52 69 67 68 74 2C 79 YTop,x2-XRight,y
022FB0: 32 2D 59 42 6F 74 74 6F 6D 29 3B 0D 0A 20 20 20 2-YBottom);..
022FC0: 20 20 20 53 65 6C 65 63 74 57 69 6E 64 6F 77 28 SelectWindow(
022FD0: 57 69 6E 64 6F 77 4E 64 78 47 6C 62 29 3B 0D 0A WindowNdxGlb);..
022FE0: 20 20 20 20 20 65 6E 64 3B 0D 0A 20 20 20 20 69 end;.. i
022FF0: 66 20 28 58 44 65 6E 73 3C 30 29 20 78 6F 72 20 f (XDens<0) xor
023000: 28 59 44 65 6E 73 3C 30 29 20 74 68 65 6E 0D 0A (YDens<0) then..
023010: 20 20 20 20 20 62 65 67 69 6E 0D 0A 20 20 20 20 begin..
023020: 20 20 48 65 61 64 65 72 4C 6F 63 3A 3D 48 65 61 HeaderLoc:=Hea
023030: 64 65 72 47 6C 62 3B 0D 0A 20 20 20 20 20 20 48 derGlb;.. H
023040: 65 61 64 65 72 47 6C 62 3A 3D 46 61 6C 73 65 3B eaderGlb:=False;
023050: 0D 0A 20 20 20 20 20 20 44 72 61 77 42 6F 72 64 .. DrawBord
023060: 65 72 3B 0D 0A 20 20 20 20 20 20 48 65 61 64 65 er;.. Heade
023070: 72 47 6C 62 3A 3D 48 65 61 64 65 72 4C 6F 63 3B rGlb:=HeaderLoc;
023080: 0D 0A 20 20 20 20 20 65 6E 64 3B 0D 0A 20 20 20 .. end;..
023090: 20 58 44 65 6E 73 3A 3D 61 62 73 28 58 44 65 6E XDens:=abs(XDen
0230A0: 73 29 3B 0D 0A 20 20 20 20 59 44 65 6E 73 3A 3D s);.. YDens:=
0230B0: 61 62 73 28 59 44 65 6E 73 29 3B 0D 0A 20 20 20 abs(YDens);..
0230C0: 20 69 66 20 58 44 65 6E 73 3E 39 20 74 68 65 6E if XDens>9 then
0230D0: 20 58 44 65 6E 73 3A 3D 30 3B 0D 0A 20 20 20 20 XDens:=0;..
0230E0: 69 66 20 59 44 65 6E 73 3E 39 20 74 68 65 6E 20 if YDens>9 then
0230F0: 59 44 65 6E 73 3A 3D 30 3B 0D 0A 20 20 20 20 78 YDens:=0;.. x
023100: 20 20 20 20 20 20 20 20 20 20 20 20 42 4F 52 4C BORL
023110: 41 4E 44 20 49 6E 74 65 72 6E 61 74 69 6F 6E 61 AND Internationa
023120: 6C 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 l
023130: 20 20 20 2A 29 0D 0A 28 2A 20 20 20 20 20 20 20 *)..(*
023140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
023150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
023160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
023170: 20 20 2A 29 0D 0A 28 2A 2A 2A 2A 2A 2A 2A 2A 2A *)..(*********
023180: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
023190: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
0231A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
0231B0: 2A 2A 29 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 65 **)....procedure
0231C0: 20 44 72 61 77 41 78 69 73 28 58 44 65 6E 73 2C DrawAxis(XDens,
0231D0: 59 44 65 6E 73 2C 58 4C 65 66 74 2C 59 54 6F 70 YDens,XLeft,YTop
0231E0: 2C 58 52 69 67 68 74 2C 59 42 6F 74 74 6F 6D 2C ,XRight,YBottom,
0231F0: 58 41 78 69 73 2C 59 41 78 69 73 3A 69 6E 74 65 XAxis,YAxis:inte
023200: 67 65 72 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 ger;..
023210: 20 20 20 20 20 20 20 20 20 41 72 72 6F 77 73 3A Arrows:
023220: 62 6F 6F 6C 65 61 6E 29 3B 0D 0A 20 20 76 61 72 boolean);.. var
023230: 20 4C 69 6E 65 53 74 79 6C 65 4C 6F 63 2C 78 6B LineStyleLoc,xk
023240: 30 2C 79 6B 30 2C 78 6B 31 2C 79 6B 31 2C 78 6B 0,yk0,xk1,yk1,xk
023250: 32 2C 79 6B 32 2C 4E 44 69 66 66 3A 69 6E 74 65 2,yk2,NDiff:inte
023260: 67 65 72 3B 0D 0A 20 20 20 20 20 20 78 32 2C 79 ger;.. x2,y
023270: 32 2C 4D 61 78 45 78 70 6F 6E 65 6E 74 58 2C 4D 2,MaxExponentX,M
023280: 61 78 45 78 70 6F 6E 65 6E 74 59 2C 69 2C 79 73 axExponentY,i,ys
023290: 2C 78 73 2C 44 65 6C 74 61 2C 4E 50 6F 69 6E 74 ,xs,Delta,NPoint
0232A0: 73 3A 69 6E 74 65 67 65 72 3B 0D 0A 20 20 20 20 s:integer;..
0232B0: 20 20 44 69 66 66 65 72 65 6E 63 65 2C 4E 75 6D Difference,Num
0232C0: 62 65 72 2C 73 2C 46 72 61 63 74 3A 72 65 61 6C ber,s,Fract:real
0232D0: 3B 0D 0A 20 20 20 20 20 20 58 31 52 65 66 4C 6F ;.. X1RefLo
0232E0: 63 2C 58 32 52 65 66 4C 6F 63 2C 59 31 52 65 66 c,X2RefLoc,Y1Ref
0232F0: 4C 6F 63 2C 59 32 52 65 66 4C 6F 63 2C 58 31 52 Loc,Y2RefLoc,X1R
023300: 6B 30 3A 3D 28 58 31 52 65 66 47 6C 62 2B 34 29 k0:=(X1RefGlb+4)
023310: 20 73 68 6C 20 33 3B 0D 0A 20 20 20 20 79 6B 30 shl 3;.. yk0
023320: 3A 3D 59 32 52 65 66 47 6C 62 2D 31 34 3B 0D 0A :=Y2RefGlb-14;..
023330: 20 20 20 20 79 6B 31 3A 3D 59 31 52 65 66 47 6C yk1:=Y1RefGl
023340: 62 2B 36 3B 0D 0A 20 20 20 20 78 6B 31 3A 3D 78 b+6;.. xk1:=x
023350: 6B 30 3B 0D 0A 20 20 20 20 79 6B 32 3A 3D 79 6B k0;.. yk2:=yk
023360: 30 3B 0D 0A 20 20 20 20 78 6B 32 3A 3D 28 58 32 0;.. xk2:=(X2
023370: 52 65 66 47 6C 62 2D 32 29 20 73 68 6C 20 33 2B RefGlb-2) shl 3+
023380: 37 3B 0D 0A 20 20 20 20 69 66 20 28 58 41 78 69 7;.. if (XAxi
023390: 73 3E 3D 30 29 20 6F 72 20 28 59 41 78 69 73 3E s>=0) or (YAxis>
0233A0: 3D 30 29 20 74 68 65 6E 0D 0A 20 20 20 20 20 62 =0) then.. b
0233B0: 65 67 69 6E 0D 0A 20 20 20 20 20 20 43 6C 69 70 egin.. Clip
0233C0: 70 69 6E 67 4C 6F 63 3A 3D 43 6C 69 70 70 69 6E pingLoc:=Clippin
0233D0: 67 47 6C 62 3B 0D 0A 20 20 20 20 20 20 43 6C 69 gGlb;.. Cli
0233E0: 70 70 69 6E 67 47 6C 62 3A 3D 74 72 75 65 3B 0D ppingGlb:=true;.
0233F0: 0A 20 20 20 20 20 20 77 69 74 68 20 77 69 6E 64 . with wind
023400: 6F 77 5B 57 69 6E 64 6F 77 4E 64 78 47 6C 62 5D ow[WindowNdxGlb]
023410: 20 64 6F 0D 0A 20 20 20 20 20 20 20 62 65 67 69 do.. begi
023420: 6E 0D 0A 20 20 20 20 20 20 20 20 58 31 52 65 66 n.. X1Ref
023430: 4C 6F 63 32 3A 3D 78 31 3B 0D 0A 20 20 20 20 20 Loc2:=x1;..
023440: 20 20 20 58 32 52 65 66 4C 6F 63 32 3A 3D 78 32 X2RefLoc2:=x2
023450: 3B 0D 0A 20 20 20 20 20 20 20 20 59 31 52 65 66 ;.. Y1Ref
023460: 4C 6F 63 32 3A 3D 79 31 3B 0D 0A 20 20 20 20 20 Loc2:=y1;..
023470: 20 20 20 59 32 52 65 66 4C 6F 63 32 3A 3D 79 32 Y2RefLoc2:=y2
023480: 3B 0D 0A 20 20 20 20 20 20 20 65 6E 64 3B 0D 0A ;.. end;..
023490: 20 20 20 20 20 20 52 65 44 65 66 69 6E 65 57 69 ReDefineWi
0234A0: 6E 64 6F 77 28 57 69 6E 64 6F 77 4E 64 78 47 6C ndow(WindowNdxGl
0234B0: 62 2C 58 31 52 65 66 4C 6F 63 32 2B 34 2C 59 31 b,X1RefLoc2+4,Y1
0234C0: 52 65 66 4C 6F 63 32 2B 36 2C 58 32 52 65 66 4C RefLoc2+6,X2RefL
0234D0: 6F 63 32 2D 32 2C 59 32 52 65 66 4C 6F 63 32 2D oc2-2,Y2RefLoc2-
0234E0: 31 34 29 3B 0D 0A 20 20 20 20 20 20 53 65 6C 65 14);.. Sele
0234F0: 63 74 57 69 6E 64 6F 77 28 57 69 6E 64 6F 77 4E ctWindow(WindowN
023500: 65 66 4C 6F 63 32 2C 58 32 52 65 66 4C 6F 63 32 efLoc2,X2RefLoc2
023510: 2C 59 31 52 65 66 4C 6F 63 32 2C 59 32 52 65 66 ,Y1RefLoc2,Y2Ref
023520: 4C 6F 63 32 3A 69 6E 74 65 67 65 72 3B 0D 0A 20 Loc2:integer;..
023530: 20 20 20 20 20 43 6C 69 70 70 69 6E 67 4C 6F 63 ClippingLoc
023540: 2C 44 69 72 65 63 74 4D 6F 64 65 4C 6F 63 2C 48 ,DirectModeLoc,H
023550: 65 61 64 65 72 4C 6F 63 3A 62 6F 6F 6C 65 61 6E eaderLoc:boolean
023560: 3B 0D 0A 0D 0A 20 20 66 75 6E 63 74 69 6F 6E 20 ;.... function
023570: 53 74 72 69 6E 67 4E 75 6D 62 65 72 28 58 31 3A StringNumber(X1:
023580: 72 65 61 6C 3B 0D 0A 20 20 20 20 20 20 20 20 20 real;..
023590: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4D M
0235A0: 61 78 45 78 70 6F 6E 65 6E 74 3A 69 6E 74 65 67 axExponent:integ
0235B0: 65 72 29 3A 77 72 6B 73 74 72 69 6E 67 3B 0D 0A er):wrkstring;..
0235C0: 20 20 20 20 76 61 72 20 79 3A 77 72 6B 73 74 72 var y:wrkstr
0235D0: 69 6E 67 3B 0D 0A 0D 0A 20 20 20 20 62 65 67 69 ing;.... begi
0235E0: 6E 0D 0A 20 20 20 20 20 20 73 74 72 28 58 31 2A n.. str(X1*
0235F0: 65 78 70 28 2D 4D 61 78 45 78 70 6F 6E 65 6E 74 exp(-MaxExponent
023600: 2A 6C 6E 28 31 30 2E 30 29 29 3A 35 3A 32 2C 79 *ln(10.0)):5:2,y
023610: 29 3B 0D 0A 20 20 20 20 20 20 53 74 72 69 6E 67 );.. String
023620: 4E 75 6D 62 65 72 3A 3D 79 3B 0D 0A 20 20 20 20 Number:=y;..
023630: 65 6E 64 3B 0D 0A 0D 0A 20 20 66 75 6E 63 74 69 end;.... functi
023640: 6F 6E 20 47 65 74 45 78 70 6F 6E 65 6E 74 28 58 on GetExponent(X
023650: 31 3A 72 65 61 6C 29 3A 69 6E 74 65 67 65 72 3B 1:real):integer;
023660: 0D 0A 20 20 20 20 62 65 67 69 6E 0D 0A 20 20 20 .. begin..
023670: 20 20 20 47 65 74 45 78 70 6F 6E 65 6E 74 3A 3D GetExponent:=
023680: 30 3B 0D 0A 20 20 20 20 20 20 69 66 20 58 31 3C 0;.. if X1<
023690: 3E 30 2E 30 20 74 68 65 6E 0D 0A 20 20 20 20 20 >0.0 then..
0236A0: 20 20 20 69 66 20 61 62 73 28 58 31 29 3E 3D 31 if abs(X1)>=1
0236B0: 2E 30 20 74 68 65 6E 20 47 65 74 45 78 70 6F 6E .0 then GetExpon
0236C0: 65 6E 74 3A 3D 74 72 75 6E 63 28 6C 6E 28 61 62 ent:=trunc(ln(ab
0236D0: 73 28 58 31 29 29 2F 6C 6E 28 31 30 2E 30 29 29 s(X1))/ln(10.0))
0236E0: 0D 0A 20 20 20 20 20 20 20 20 65 6C 73 65 20 47 .. else G
0236F0: 65 74 45 78 70 6F 6E 65 6E 74 3A 3D 2D 74 72 75 etExponent:=-tru
023700: 64 78 47 6C 62 29 3B 0D 0A 20 20 20 20 20 20 44 dxGlb);.. D
023710: 69 72 65 63 74 4D 6F 64 65 47 6C 62 3A 3D 66 61 irectModeGlb:=fa
023720: 6C 73 65 3B 0D 0A 20 20 20 20 20 20 69 66 20 28 lse;.. if (
023730: 58 41 78 69 73 3E 3D 30 29 20 74 68 65 6E 0D 0A XAxis>=0) then..
023740: 20 20 20 20 20 20 20 62 65 67 69 6E 0D 0A 20 20 begin..
023750: 20 20 20 20 20 20 53 65 74 4C 69 6E 65 53 74 79 SetLineSty
023760: 6C 65 28 58 41 78 69 73 29 3B 0D 0A 20 20 20 20 le(XAxis);..
023770: 20 20 20 20 44 72 61 77 4C 69 6E 65 28 58 31 57 DrawLine(X1W
023780: 6C 64 47 6C 62 2C 59 31 57 6C 64 47 6C 62 2B 59 ldGlb,Y1WldGlb+Y
023790: 32 57 6C 64 47 6C 62 2C 58 32 57 6C 64 47 6C 62 2WldGlb,X2WldGlb
0237A0: 2C 59 31 57 6C 64 47 6C 62 2B 59 32 57 6C 64 47 ,Y1WldGlb+Y2WldG
0237B0: 6C 62 29 3B 0D 0A 20 20 20 20 20 20 20 20 53 65 lb);.. Se
0237C0: 74 4C 69 6E 65 53 74 79 6C 65 28 30 29 3B 0D 0A tLineStyle(0);..
0237D0: 20 20 20 20 20 20 20 65 6E 64 3B 0D 0A 20 20 20 end;..
0237E0: 20 20 20 69 66 20 28 59 41 78 69 73 3E 3D 30 29 if (YAxis>=0)
0237F0: 20 74 68 65 6E 0D 0A 20 20 20 20 20 20 20 62 65 then.. be
023800: 67 69 6E 0D 0A 20 20 20 20 20 20 20 20 53 65 74 gin.. Set
023810: 4C 69 6E 65 73 74 79 6C 65 28 59 41 78 69 73 29 Linestyle(YAxis)
023820: 3B 0D 0A 20 20 20 20 20 20 20 20 44 72 61 77 4C ;.. DrawL
023830: 69 6E 65 28 30 2C 59 31 57 6C 64 47 6C 62 2C 30 ine(0,Y1WldGlb,0
023840: 2C 59 32 57 6C 64 47 6C 62 29 3B 0D 0A 20 20 20 ,Y2WldGlb);..
023850: 20 20 20 20 20 53 65 74 4C 69 6E 65 53 74 79 6C SetLineStyl
023860: 65 28 30 29 3B 0D 0A 20 20 20 20 20 20 20 65 6E e(0);.. en
023870: 64 3B 0D 0A 20 20 20 20 20 20 43 6C 69 70 70 69 d;.. Clippi
023880: 6E 67 47 6C 62 3A 3D 43 6C 69 70 70 69 6E 67 4C ngGlb:=ClippingL
023890: 6F 63 3B 0D 0A 20 20 20 20 20 20 44 69 72 65 63 oc;.. Direc
0238A0: 74 4D 6F 64 65 47 6C 62 3A 3D 74 72 75 65 3B 0D tModeGlb:=true;.
0238B0: 0A 20 20 20 20 20 20 52 65 44 65 66 69 6E 65 57 . ReDefineW
0238C0: 69 6E 64 6F 77 28 57 69 6E 64 6F 77 4E 64 78 47 indow(WindowNdxG
0238D0: 6C 62 2C 58 31 52 65 66 4C 6F 63 32 2C 59 31 52 lb,X1RefLoc2,Y1R
0238E0: 65 66 4C 6F 63 32 2C 58 32 52 65 66 4C 6F 63 32 efLoc2,X2RefLoc2
0238F0: 2C 59 32 52 65 66 4C 6F 63 32 29 3B 0D 0A 20 20 ,Y2RefLoc2);..
023900: 6E 63 28 61 62 73 28 6C 6E 28 61 62 73 28 58 31 nc(abs(ln(abs(X1
023910: 29 29 29 2F 6C 6E 28 31 30 2E 30 29 2B 31 2E 30 )))/ln(10.0)+1.0
023920: 29 3B 0D 0A 20 20 20 20 65 6E 64 3B 0D 0A 0D 0A );.. end;....
023930: 20 20 70 72 6F 63 65 64 75 72 65 20 44 72 61 77 procedure Draw
023940: 4E 75 6D 28 78 31 2C 79 31 2C 4D 61 78 45 78 70 Num(x1,y1,MaxExp
023950: 6F 6E 65 6E 74 3A 69 6E 74 65 67 65 72 3B 0D 0A onent:integer;..
023960: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
023970: 20 20 20 20 4E 75 6D 62 65 72 3A 72 65 61 6C 29 Number:real)
023980: 3B 0D 0A 20 20 20 20 76 61 72 20 69 3A 69 6E 74 ;.. var i:int
023990: 65 67 65 72 3B 0D 0A 20 20 20 20 20 20 20 20 53 eger;.. S
0239A0: 74 72 4E 75 6D 62 65 72 3A 77 72 6B 73 74 72 69 trNumber:wrkstri
0239B0: 6E 67 3B 0D 0A 0D 0A 20 20 20 20 62 65 67 69 6E ng;.... begin
0239C0: 0D 0A 20 20 20 20 20 20 53 74 72 4E 75 6D 62 65 .. StrNumbe
0239D0: 72 3A 3D 53 74 72 69 6E 67 4E 75 6D 62 65 72 28 r:=StringNumber(
0239E0: 4E 75 6D 62 65 72 2C 4D 61 78 45 78 70 6F 6E 65 Number,MaxExpone
0239F0: 6E 74 29 3B 0D 0A 20 20 20 20 20 20 79 31 3A 3D nt);.. y1:=
023A00: 79 31 2D 33 3B 0D 0A 20 20 20 20 20 20 66 6F 72 y1-3;.. for
023A10: 20 69 3A 3D 31 20 74 6F 20 35 20 64 6F 20 44 72 i:=1 to 5 do Dr
023A20: 61 77 41 73 63 69 69 28 78 31 2C 79 31 2C 31 2C awAscii(x1,y1,1,
023A30: 6F 72 64 28 53 74 72 4E 75 6D 62 65 72 5B 69 5D ord(StrNumber[i]
023A40: 29 29 3B 0D 0A 20 20 20 20 65 6E 64 3B 0D 0A 0D ));.. end;...
023A50: 0A 20 20 66 75 6E 63 74 69 6F 6E 20 42 61 6C 61 . function Bala
023A60: 6E 63 65 3A 69 6E 74 65 67 65 72 3B 0D 0A 20 20 nce:integer;..
023A70: 20 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 20 42 begin.. B
023A80: 61 6C 61 6E 63 65 3A 3D 30 3B 0D 0A 20 20 20 20 alance:=0;..
023A90: 20 20 73 3A 3D 73 2B 46 72 61 63 74 3B 0D 0A 20 s:=s+Fract;..
023AA0: 20 20 20 20 20 69 66 20 73 3E 3D 30 20 74 68 65 if s>=0 the
023AB0: 6E 0D 0A 20 20 20 20 20 20 20 62 65 67 69 6E 0D n.. begin.
023AC0: 0A 20 20 20 20 20 20 20 20 73 3A 3D 73 2D 31 2E . s:=s-1.
023AD0: 30 3B 0D 0A 20 20 20 20 20 20 20 20 42 61 6C 61 0;.. Bala
023AE0: 6E 63 65 3A 3D 31 3B 0D 0A 20 20 20 20 20 20 20 nce:=1;..
023AF0: 65 6E 64 3B 0D 0A 20 20 20 20 65 6E 64 3B 0D 0A end;.. end;..
023B00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
023B10: 1E 00 00 00 02 09 50 E5 1E 00 41 02 00 00 00 02 ......P...A.....
023B20: 1E 00 46 02 00 00 00 02 1E 00 42 02 00 00 00 02 ..F.......B.....
023B30: 1E 00 47 02 00 00 00 02 1E 00 43 02 00 00 00 02 ..G.......C.....
023B40: 1E 00 48 02 00 00 00 02 1E 00 44 02 00 00 00 02 ..H.......D.....
023B50: 1E 00 49 02 00 00 00 02 1E 00 45 02 00 00 00 02 ..I.......E.....
023B60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023B70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023B80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023B90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023BA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023BB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023BC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023BD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023BE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023BF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023C00: 20 20 20 20 53 65 6C 65 63 74 57 69 6E 64 6F 77 SelectWindow
023C10: 28 57 69 6E 64 6F 77 4E 64 78 47 6C 62 29 3B 0D (WindowNdxGlb);.
023C20: 0A 20 20 20 20 20 65 6E 64 3B 0D 0A 20 20 20 20 . end;..
023C30: 69 66 20 59 44 65 6E 73 3E 3D 32 20 74 68 65 6E if YDens>=2 then
023C40: 0D 0A 20 20 20 20 20 62 65 67 69 6E 0D 0A 20 20 .. begin..
023C50: 20 20 20 20 44 72 61 77 4C 69 6E 65 28 78 6B 30 DrawLine(xk0
023C60: 2C 79 6B 30 2C 78 6B 31 2C 79 6B 31 29 3B 0D 0A ,yk0,xk1,yk1);..
023C70: 20 20 20 20 20 20 69 66 20 41 72 72 6F 77 73 20 if Arrows
023C80: 74 68 65 6E 0D 0A 20 20 20 20 20 20 20 62 65 67 then.. beg
023C90: 69 6E 0D 0A 20 20 20 20 20 20 20 20 44 72 61 77 in.. Draw
023CA0: 4C 69 6E 65 28 78 6B 30 2C 79 6B 31 2C 78 6B 30 Line(xk0,yk1,xk0
023CB0: 2D 34 2C 79 6B 31 2B 34 29 3B 0D 0A 20 20 20 20 -4,yk1+4);..
023CC0: 20 20 20 20 44 72 61 77 4C 69 6E 65 28 78 6B 30 DrawLine(xk0
023CD0: 2C 79 6B 31 2C 78 6B 30 2B 34 2C 79 6B 31 2B 34 ,yk1,xk0+4,yk1+4
023CE0: 29 3B 0D 0A 20 20 20 20 20 20 20 20 64 70 28 78 );.. dp(x
023CF0: 6B 30 2C 79 6B 31 2D 31 29 3B 0D 0A 20 20 20 20 k0,yk1-1);..
023D00: 20 20 20 65 6E 64 3B 0D 0A 20 20 20 20 20 65 6E end;.. en
023D10: 64 3B 0D 0A 20 20 20 20 69 66 20 58 44 65 6E 73 d;.. if XDens
023D20: 3E 3D 32 20 74 68 65 6E 0D 0A 20 20 20 20 20 62 >=2 then.. b
023D30: 65 67 69 6E 0D 0A 20 20 20 20 20 20 44 72 61 77 egin.. Draw
023D40: 4C 69 6E 65 28 78 6B 30 2C 79 6B 30 2C 78 6B 32 Line(xk0,yk0,xk2
023D50: 2B 31 2C 79 6B 32 29 3B 0D 0A 20 20 20 20 20 20 +1,yk2);..
023D60: 69 66 20 41 72 72 6F 77 73 20 74 68 65 6E 0D 0A if Arrows then..
023D70: 20 20 20 20 20 20 20 62 65 67 69 6E 0D 0A 20 20 begin..
023D80: 20 20 20 20 20 20 44 72 61 77 4C 69 6E 65 28 78 DrawLine(x
023D90: 6B 32 2C 79 6B 32 2C 78 6B 32 2D 34 2C 79 6B 32 k2,yk2,xk2-4,yk2
023DA0: 2D 34 29 3B 0D 0A 20 20 20 20 20 20 20 20 44 72 -4);.. Dr
023DB0: 61 77 4C 69 6E 65 28 78 6B 32 2C 79 6B 32 2C 78 awLine(xk2,yk2,x
023DC0: 6B 32 2D 34 2C 79 6B 32 2B 34 29 3B 0D 0A 20 20 k2-4,yk2+4);..
023DD0: 20 20 20 20 20 65 6E 64 3B 0D 0A 20 20 20 20 20 end;..
023DE0: 65 6E 64 3B 0D 0A 20 20 20 20 69 66 20 28 61 62 end;.. if (ab
023DF0: 73 28 79 6B 30 2D 79 6B 31 29 3E 3D 33 35 29 20 s(yk0-yk1)>=35)
023E00: 64 6F 77 4E 64 78 47 6C 62 29 3B 0D 0A 20 20 20 dowNdxGlb);..
023E10: 20 20 44 69 72 65 63 74 4D 6F 64 65 47 6C 62 3A DirectModeGlb:
023E20: 3D 44 69 72 65 63 74 4D 6F 64 65 4C 6F 63 3B 0D =DirectModeLoc;.
023E30: 0A 20 20 20 20 20 53 65 74 4C 69 6E 65 53 74 79 . SetLineSty
023E40: 6C 65 28 4C 69 6E 65 53 74 79 6C 65 4C 6F 63 29 le(LineStyleLoc)
023E50: 3B 0D 0A 20 20 20 20 20 41 78 69 73 47 6C 62 20 ;.. AxisGlb
023E60: 3A 3D 20 74 72 75 65 3B 0D 0A 20 20 20 20 20 58 := true;.. X
023E70: 31 47 6C 62 20 3A 3D 20 58 4C 65 66 74 3B 0D 0A 1Glb := XLeft;..
023E80: 20 20 20 20 20 58 32 47 6C 62 20 3A 3D 20 58 52 X2Glb := XR
023E90: 69 67 68 74 3B 0D 0A 20 20 20 20 20 59 31 47 6C ight;.. Y1Gl
023EA0: 62 20 3A 3D 20 59 54 6F 70 3B 0D 0A 20 20 20 20 b := YTop;..
023EB0: 20 59 32 47 6C 62 20 3A 3D 20 59 42 6F 74 74 6F Y2Glb := YBotto
023EC0: 6D 3B 0D 0A 20 20 65 6E 64 3B 0D 0A 0D 0A 70 72 m;.. end;....pr
023ED0: 6F 63 65 64 75 72 65 20 52 65 73 65 74 41 78 69 ocedure ResetAxi
023EE0: 73 3B 0D 0A 20 20 62 65 67 69 6E 0D 0A 20 20 20 s;.. begin..
023EF0: 20 41 78 69 73 47 6C 62 20 3A 3D 20 74 72 75 65 AxisGlb := true
023F00: 3B 0D 0A 20 20 65 6E 64 3B 0D 0A 1A 1A 1A 1A 1A ;.. end;.......
023F10: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
023F20: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
023F30: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
023F40: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
023F50: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
023F60: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
023F70: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
023F80: 20 20 20 20 20 65 6E 64 3B 0D 0A 20 20 20 20 20 end;..
023F90: 20 20 65 6E 64 3B 0D 0A 20 20 20 20 20 65 6E 64 end;.. end
023FA0: 3B 0D 0A 20 20 20 20 20 52 65 44 65 66 69 6E 65 ;.. ReDefine
023FB0: 57 69 6E 64 6F 77 28 57 69 6E 64 6F 77 4E 64 78 Window(WindowNdx
023FC0: 47 6C 62 2C 58 31 52 65 66 4C 6F 63 2C 59 31 52 Glb,X1RefLoc,Y1R
023FD0: 65 66 4C 6F 63 2C 58 32 52 65 66 4C 6F 63 2C 59 efLoc,X2RefLoc,Y
023FE0: 32 52 65 66 4C 6F 63 29 3B 0D 0A 20 20 20 20 20 2RefLoc);..
023FF0: 53 65 6C 65 63 74 57 69 6E 64 6F 77 28 57 69 6E SelectWindow(Win
024000: 61 6E 64 20 28 61 62 73 28 78 6B 32 2D 78 6B 31 and (abs(xk2-xk1
024010: 29 3E 3D 31 35 30 29 20 74 68 65 6E 0D 0A 20 20 )>=150) then..
024020: 20 20 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 20 begin..
024030: 44 72 61 77 4C 69 6E 65 28 78 6B 30 2C 79 6B 30 DrawLine(xk0,yk0
024040: 2C 78 6B 30 2D 34 2C 79 6B 30 29 3B 0D 0A 20 20 ,xk0-4,yk0);..
024050: 20 20 20 20 44 72 61 77 4C 69 6E 65 28 78 6B 30 DrawLine(xk0
024060: 2C 79 6B 30 2C 78 6B 30 2C 79 6B 30 2B 34 29 3B ,yk0,xk0,yk0+4);
024070: 0D 0A 20 20 20 20 20 20 44 65 6C 74 61 3A 3D 59 .. Delta:=Y
024080: 32 52 65 66 47 6C 62 2D 59 31 52 65 66 47 6C 62 2RefGlb-Y1RefGlb
024090: 2D 32 30 3B 0D 0A 20 20 20 20 20 20 4E 50 6F 69 -20;.. NPoi
0240A0: 6E 74 73 3A 3D 44 65 6C 74 61 20 64 69 76 20 37 nts:=Delta div 7
0240B0: 3B 0D 0A 20 20 20 20 20 20 4E 44 69 66 66 3A 3D ;.. NDiff:=
0240C0: 44 65 6C 74 61 2D 28 4E 50 6F 69 6E 74 73 20 73 Delta-(NPoints s
0240D0: 68 6C 20 33 29 2B 4E 50 6F 69 6E 74 73 3B 0D 0A hl 3)+NPoints;..
0240E0: 20 20 20 20 20 20 69 66 20 59 44 65 6E 73 3E 3D if YDens>=
0240F0: 34 20 74 68 65 6E 0D 0A 20 20 20 20 20 20 20 62 4 then.. b
024100: 65 67 69 6E 0D 0A 20 20 20 20 20 20 20 20 69 66 egin.. if
024110: 20 61 62 73 28 59 32 57 6C 64 47 6C 62 29 3E 61 abs(Y2WldGlb)>a
024120: 62 73 28 59 31 57 6C 64 47 6C 62 29 20 74 68 65 bs(Y1WldGlb) the
024130: 6E 20 4D 61 78 45 78 70 6F 6E 65 6E 74 59 3A 3D n MaxExponentY:=
024140: 47 65 74 45 78 70 6F 6E 65 6E 74 28 59 32 57 6C GetExponent(Y2Wl
024150: 64 47 6C 62 29 0D 0A 20 20 20 20 20 20 20 20 65 dGlb).. e
024160: 6C 73 65 20 4D 61 78 45 78 70 6F 6E 65 6E 74 59 lse MaxExponentY
024170: 3A 3D 47 65 74 45 78 70 6F 6E 65 6E 74 28 59 31 :=GetExponent(Y1
024180: 57 6C 64 47 6C 62 29 3B 0D 0A 20 20 20 20 20 20 WldGlb);..
024190: 20 20 44 72 61 77 4E 75 6D 28 58 31 52 65 66 47 DrawNum(X1RefG
0241A0: 6C 62 20 73 68 6C 20 33 2C 79 6B 30 2B 31 2C 4D lb shl 3,yk0+1,M
0241B0: 61 78 45 78 70 6F 6E 65 6E 74 59 2C 59 31 57 6C axExponentY,Y1Wl
0241C0: 64 47 6C 62 29 3B 0D 0A 20 20 20 20 20 20 20 20 dGlb);..
0241D0: 69 66 20 4D 61 78 45 78 70 6F 6E 65 6E 74 59 3C if MaxExponentY<
0241E0: 3E 30 20 74 68 65 6E 20 44 72 61 77 45 78 70 6F >0 then DrawExpo
0241F0: 6E 65 6E 74 28 58 31 52 65 66 47 6C 62 20 73 68 nent(X1RefGlb sh
024200: 00 E5 21 3F 00 D1 CD 66 06 7A B3 CA 2C 2D D5 22 ..!?...f.z..,-."
024210: 24 E0 21 76 E3 E5 21 A7 E3 E5 21 02 00 CD BA 1A $.!v..!...!.....
024220: CD 1B 20 2A 24 E0 23 D1 1B C3 09 2D C9 FD E1 E1 .. *$.#....-....
024230: 22 22 E0 FD E5 2A 22 E0 E5 CD 00 25 C9 FD E1 E1 ""...*"....%....
024240: 22 18 E0 FD E5 2A 18 E0 7D 32 AE E4 21 E4 BB E5 "....*..}2..!...
024250: CD 1A 24 C9 FD E1 E1 22 0C E0 E1 22 0E E0 FD E5 ..$...."..."....
024260: 21 C7 00 E5 2A 0C E0 D1 EB B7 ED 52 E5 21 01 00 !...*......R.!..
024270: D1 CD 4E 07 22 AC E4 2A 0E E0 22 AA E4 21 EA BB ..N."..*.."..!..
024280: E5 CD 1A 24 C9 FD E1 E1 22 FF DF E1 22 01 E0 FD ...$...."..."...
024290: E5 21 C7 00 E5 2A FF DF D1 EB B7 ED 52 E5 21 01 .!...*......R.!.
0242A0: 00 D1 CD 4E 07 22 AC E4 2A 01 E0 22 AA E4 21 F0 ...N."..*.."..!.
0242B0: BB E5 CD 1A 24 2A AE E4 26 00 E5 21 00 00 D1 CD ....$*..&..!....
0242C0: 92 06 7D 32 03 E0 2A 03 E0 26 00 C9 FD E1 E1 11 ..}2..*..&......
0242D0: EF DF 01 08 00 ED B0 FD E5 2A 84 F2 E5 2A 82 F2 .........*...*..
0242E0: D1 CD 66 06 7A B3 CA 2C 2E D5 22 E5 DF 21 EF DF ..f.z..,.."..!..
0242F0: E5 2A E5 DF E5 21 07 00 D1 7C A2 67 7D A3 6F D1 .*...!...|.g}£o.
024300: 19 6E 26 00 E5 2A 86 F2 E5 2A 88 F2 D1 EB B7 ED .n&..*...*......
024310: 52 E5 21 01 00 D1 19 E5 2A 88 F2 E5 2A E5 DF E5 R.!.....*...*...
024320: CD 9B 28 2A E5 DF 23 D1 1B C3 E4 2D C9 FD E1 E1 ..(*..#....-....
024330: 7D 32 E4 DF FD E5 21 D4 DF E5 21 08 00 E5 2A E4 }2....!...!...*.
024340: DF 26 00 CD 4E 1F 21 D4 DF E5 CD CC 2D C9 FD E1 .&..N.!.....-...
024350: E1 22 CE DF E1 22 D0 DF E1 22 D2 DF FD E5 2A D2 ."..."..."....*.
024360: DF E5 2A CE DF E5 CD 23 25 2A D0 DF E5 2A CE DF ..*....#%*...*..
024370: E5 CD 54 25 C9 FD E1 E1 22 C4 DF FD E5 CD F1 1F ..T%....".......
024380: E5 21 00 00 D1 CD 92 06 CB 45 CA 98 2E 2A C4 DF .!.......E...*..
024390: E5 21 05 00 E5 CD 76 2B C9 FD E1 06 50 21 6B DF .!....v+....P!k.
0243A0: CD E2 05 FD E5 21 7E E2 E5 21 6B DF CD 3A 05 CD .....!~..!k..:..
0243B0: 70 13 21 7E E2 CD 6F 1A 21 1B 00 E5 CD 75 2E 21 p.!~..o.!....u.!
0243C0: 00 00 E5 21 7F 00 D1 CD 66 06 7A B3 CA FC 2E D5 ...!....f.z.....
0243D0: 22 61 DF 2A 61 DF E5 21 A7 E3 E5 CD B7 25 21 7E "a.*a..!.....%!~
0243E0: E2 E5 21 A7 E3 E5 21 01 00 CD BA 1A 21 1B 00 E5 ..!...!.....!...
0243F0: CD 75 2E 2A 61 DF 23 D1 1B C3 CA 2E 21 7E E2 CD .u.*a.#.....!~..
024400: 6C 20 33 2B 31 2C 79 6B 31 2B 32 2C 4D 61 78 45 l 3+1,yk1+2,MaxE
024410: 78 70 6F 6E 65 6E 74 59 29 3B 0D 0A 20 20 20 20 xponentY);..
024420: 20 20 20 65 6E 64 3B 0D 0A 20 20 20 20 20 20 46 end;.. F
024430: 72 61 63 74 3A 3D 4E 44 69 66 66 2F 4E 50 6F 69 ract:=NDiff/NPoi
024440: 6E 74 73 3B 0D 0A 20 20 20 20 20 20 73 3A 3D 2D nts;.. s:=-
024450: 46 72 61 63 74 3B 0D 0A 20 20 20 20 20 20 79 73 Fract;.. ys
024460: 3A 3D 79 6B 30 3B 0D 0A 20 20 20 20 20 20 44 69 :=yk0;.. Di
024470: 66 66 65 72 65 6E 63 65 3A 3D 28 59 32 57 6C 64 fference:=(Y2Wld
024480: 47 6C 62 2D 59 31 57 6C 64 47 6C 62 29 2F 4E 50 Glb-Y1WldGlb)/NP
024490: 6F 69 6E 74 73 3B 0D 0A 20 20 20 20 20 20 66 6F oints;.. fo
0244A0: 72 20 69 3A 3D 31 20 74 6F 20 4E 50 6F 69 6E 74 r i:=1 to NPoint
0244B0: 73 20 64 6F 0D 0A 20 20 20 20 20 20 20 62 65 67 s do.. beg
0244C0: 69 6E 0D 0A 20 20 20 20 20 20 20 20 79 73 3A 3D in.. ys:=
0244D0: 79 73 2D 37 2D 42 61 6C 61 6E 63 65 3B 0D 0A 20 ys-7-Balance;..
0244E0: 20 20 20 20 20 20 20 69 66 20 28 59 44 65 6E 73 if (YDens
0244F0: 3E 32 29 20 61 6E 64 20 28 79 73 3E 59 31 52 65 >2) and (ys>Y1Re
024500: 66 47 6C 62 2B 31 33 29 20 74 68 65 6E 0D 0A 20 fGlb+13) then..
024510: 20 20 20 20 20 20 20 20 62 65 67 69 6E 0D 0A 20 begin..
024520: 20 20 20 20 20 20 20 20 20 4E 75 6D 62 65 72 3A Number:
024530: 3D 59 31 57 6C 64 47 6C 62 2B 69 2A 44 69 66 66 =Y1WldGlb+i*Diff
024540: 65 72 65 6E 63 65 3B 0D 0A 20 20 20 20 20 20 20 erence;..
024550: 20 20 20 44 72 61 77 4C 69 6E 65 28 78 6B 30 2C DrawLine(xk0,
024560: 79 73 2C 78 6B 30 2D 34 2C 79 73 29 3B 0D 0A 20 ys,xk0-4,ys);..
024570: 20 20 20 20 20 20 20 20 20 69 66 20 59 44 65 6E if YDen
024580: 73 3E 3D 34 20 74 68 65 6E 20 69 66 20 69 20 6D s>=4 then if i m
024590: 6F 64 20 28 31 30 2D 59 44 65 6E 73 29 3D 30 20 od (10-YDens)=0
0245A0: 74 68 65 6E 0D 0A 20 20 20 20 20 20 20 20 20 20 then..
0245B0: 20 20 44 72 61 77 4E 75 6D 28 58 31 52 65 66 47 DrawNum(X1RefG
0245C0: 6C 62 20 73 68 6C 20 33 2C 79 73 2B 31 2C 4D 61 lb shl 3,ys+1,Ma
0245D0: 78 45 78 70 6F 6E 65 6E 74 59 2C 4E 75 6D 62 65 xExponentY,Numbe
0245E0: 72 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 65 6E r);.. en
0245F0: 64 3B 0D 0A 20 20 20 20 20 20 20 65 6E 64 3B 0D d;.. end;.
024600: B0 1A CD 1B 20 21 1B 00 E5 CD 75 2E C9 FD E1 E1 .... !....u.....
024610: 22 5F DF FD E5 2A 5F DF 7D 32 A6 E3 C9 FD E1 06 "_...*_.}2......
024620: 50 21 06 DF CD E2 05 FD E5 21 7E E2 E5 21 06 DF P!.......!~..!..
024630: CD 3A 05 CD 70 13 21 7E E2 CD 70 1A 21 0B 00 E5 .:..p.!~..p.!...
024640: CD 75 2E 21 00 00 E5 21 7F 00 D1 CD 66 06 7A B3 .u.!...!....f.z.
024650: CA 7C 2F D5 22 FC DE 21 7E E2 E5 21 A7 E3 E5 21 .|/."..!~..!...!
024660: 01 00 CD BE 1A CD 1B 20 2A FC DE E5 21 A7 E3 E5 ....... *...!...
024670: CD 85 25 2A FC DE 23 D1 1B C3 4E 2F 21 7E E2 CD ..%*..#...N/!~..
024680: B0 1A CD 1B 20 C9 21 76 E3 E5 21 00 00 CD 6F 1B .... .!v..!...o.
024690: CD 1B 20 21 00 00 E5 21 7F 00 D1 CD 66 06 7A B3 .. !...!....f.z.
0246A0: CA 01 30 D5 22 F2 DE 2A F2 DE E5 21 A7 E3 E5 CD ..0."..*...!....
0246B0: B7 25 21 76 E3 E5 21 A7 E3 E5 21 80 00 D1 19 E5 .%!v..!...!.....
0246C0: 21 01 00 CD BE 1A CD 1B 20 2A F2 DE E5 21 A7 E3 !....... *...!..
0246D0: E5 21 80 00 D1 19 E5 CD 85 25 21 76 E3 E5 2A F2 .!.......%!v..*.
0246E0: DE CD 6F 1B CD 1B 20 21 76 E3 E5 21 A7 E3 E5 21 ..o... !v..!...!
0246F0: 01 00 CD BA 1A CD 1B 20 2A F2 DE 23 D1 1B C3 9E ....... *..#....
024700: 2F C9 21 76 E3 E5 21 00 00 CD 6F 1B CD 1B 20 21 /.!v..!...o... !
024710: 00 00 E5 21 7F 00 D1 CD 66 06 7A B3 CA 4C 30 D5 ...!....f.z..L0.
024720: 22 E8 DE 2A E8 DE E5 21 A7 E3 E5 CD B7 25 21 76 "..*...!.....%!v
024730: E3 E5 21 A7 E3 E5 21 01 00 CD BA 1A 21 0B 00 E5 ..!...!.....!...
024740: CD 75 2E 2A E8 DE 23 D1 1B C3 1A 30 C9 21 76 E3 .u.*..#....0.!v.
024750: E5 21 00 00 CD 6F 1B CD 1B 20 21 00 00 E5 21 7F .!...o... !...!.
024760: 00 D1 CD 66 06 7A B3 CA 97 30 D5 22 DE DE 21 76 ...f.z...0."..!v
024770: E3 E5 21 A7 E3 E5 21 01 00 CD BE 1A 21 0B 00 E5 ..!...!.....!...
024780: CD 75 2E 2A DE DE E5 21 A7 E3 E5 CD 85 25 2A DE .u.*...!.....%*.
024790: DE 23 D1 1B C3 65 30 C9 2A A6 E3 26 00 E5 21 02 .#...e0.*..&..!.
0247A0: 00 D1 CD 7F 06 CB 45 CA B0 30 CD 4D 30 C3 B3 30 ......E..0.M0..0
0247B0: CD 02 30 C9 21 00 40 22 A8 E4 21 00 40 22 AC E4 ..0.!.@"..!.@"..
0247C0: CD 6F E2 C9 FD E1 E1 22 CA DE E1 22 CC DE FD E5 .o....."..."....
0247D0: 2A CC DE E5 CD 81 05 21 00 00 E5 21 1B 00 CD 9B *......!...!....
0247E0: 05 CD 4F 13 7D EE 01 6F CB 45 CA 32 31 CD 3A 2C ..O.}..o.E.21.:,
0247F0: CD 9B 14 CD BA 17 28 46 41 54 41 4C 20 45 52 52 ......(FATAL ERR
024800: 0A 20 20 20 20 20 20 69 66 20 58 44 65 6E 73 3E . if XDens>
024810: 3D 34 20 74 68 65 6E 0D 0A 20 20 20 20 20 20 20 =4 then..
024820: 62 65 67 69 6E 0D 0A 20 20 20 20 20 20 20 20 69 begin.. i
024830: 66 20 61 62 73 28 58 32 57 6C 64 47 6C 62 29 3E f abs(X2WldGlb)>
024840: 61 62 73 28 58 31 57 6C 64 47 6C 62 29 20 74 68 abs(X1WldGlb) th
024850: 65 6E 20 4D 61 78 45 78 70 6F 6E 65 6E 74 58 3A en MaxExponentX:
024860: 3D 47 65 74 45 78 70 6F 6E 65 6E 74 28 58 32 57 =GetExponent(X2W
024870: 6C 64 47 6C 62 29 0D 0A 20 20 20 20 20 20 20 20 ldGlb)..
024880: 65 6C 73 65 20 4D 61 78 45 78 70 6F 6E 65 6E 74 else MaxExponent
024890: 58 3A 3D 47 65 74 45 78 70 6F 6E 65 6E 74 28 58 X:=GetExponent(X
0248A0: 31 57 6C 64 47 6C 62 29 3B 0D 0A 20 20 20 20 20 1WldGlb);..
0248B0: 20 20 20 44 72 61 77 4E 75 6D 28 78 6B 30 2D 31 DrawNum(xk0-1
0248C0: 34 2C 79 6B 30 2B 31 30 2C 4D 61 78 45 78 70 6F 4,yk0+10,MaxExpo
0248D0: 6E 65 6E 74 58 2C 58 31 57 6C 64 47 6C 62 29 3B nentX,X1WldGlb);
0248E0: 0D 0A 20 20 20 20 20 20 20 20 69 66 20 4D 61 78 .. if Max
0248F0: 45 78 70 6F 6E 65 6E 74 58 3C 3E 30 20 74 68 65 ExponentX<>0 the
024900: 6E 20 44 72 61 77 45 78 70 6F 6E 65 6E 74 28 78 n DrawExponent(x
024910: 6B 32 2D 31 33 2C 79 6B 30 2B 31 30 2C 4D 61 78 k2-13,yk0+10,Max
024920: 45 78 70 6F 6E 65 6E 74 58 29 3B 0D 0A 20 20 20 ExponentX);..
024930: 20 20 20 20 65 6E 64 3B 0D 0A 20 20 20 20 20 20 end;..
024940: 44 65 6C 74 61 3A 3D 61 62 73 28 58 32 52 65 66 Delta:=abs(X2Ref
024950: 47 6C 62 2D 58 31 52 65 66 47 6C 62 29 20 73 68 Glb-X1RefGlb) sh
024960: 6C 20 33 2D 34 31 3B 0D 0A 20 20 20 20 20 20 4E l 3-41;.. N
024970: 50 6F 69 6E 74 73 3A 3D 44 65 6C 74 61 20 64 69 Points:=Delta di
024980: 76 20 33 30 3B 0D 0A 20 20 20 20 20 20 4E 44 69 v 30;.. NDi
024990: 66 66 3A 3D 44 65 6C 74 61 2D 28 4E 50 6F 69 6E ff:=Delta-(NPoin
0249A0: 74 73 20 73 68 6C 20 35 29 2B 28 4E 50 6F 69 6E ts shl 5)+(NPoin
0249B0: 74 73 20 73 68 6C 20 31 29 3B 0D 0A 20 20 20 20 ts shl 1);..
0249C0: 20 20 46 72 61 63 74 3A 3D 4E 44 69 66 66 2F 4E Fract:=NDiff/N
0249D0: 50 6F 69 6E 74 73 3B 0D 0A 20 20 20 20 20 20 73 Points;.. s
0249E0: 3A 3D 2D 46 72 61 63 74 3B 0D 0A 20 20 20 20 20 :=-Fract;..
0249F0: 20 78 73 3A 3D 78 6B 30 2D 31 3B 0D 0A 20 20 20 xs:=xk0-1;..
024A00: 4F 52 20 31 3A 20 69 6C 6C 65 67 61 6C 20 70 72 OR 1: illegal pr
024A10: 6F 63 65 64 75 72 65 20 6E 75 6D 62 65 72 20 2A ocedure number *
024A20: CC DE E5 21 00 00 CD 26 17 CD CD 17 CD 1B 20 C3 ...!...&...... .
024A30: D4 20 2A CA DE E5 CD 81 05 21 00 00 E5 21 07 00 . *......!...!..
024A40: CD 9B 05 CD 4F 13 7D EE 01 6F CB 45 CA 8E 31 CD ....O.}..o.E..1.
024A50: 3A 2C CD 9B 14 CD BA 17 22 46 41 54 41 4C 20 45 :,......"FATAL E
024A60: 52 52 4F 52 20 32 3A 20 69 6C 6C 65 67 61 6C 20 RROR 2: illegal
024A70: 65 72 72 6F 72 20 63 6F 64 65 20 2A CA DE E5 21 error code *...!
024A80: 00 00 CD 26 17 CD CD 17 CD 1B 20 C3 D4 20 2A CA ...&...... .. *.
024A90: DE 7D 32 65 F2 2A 69 F2 26 00 CB 45 CA A2 31 CD .}2e.*i.&..E..1.
024AA0: 3A 2C 2A 6A F2 26 00 E5 2A 69 F2 26 00 D1 7D B3 :,*j.&..*i.&..}.
024AB0: 6F CB 45 CA 6E 32 CD 19 2B 22 C0 DE CD 2C 2B 22 o.E.n2..+"...,+"
024AC0: BE DE 21 01 00 E5 21 18 00 E5 CD 3F 2B CD 99 02 ..!...!....?+...
024AD0: CD 9B 14 CD BA 17 15 54 75 72 62 6F 20 47 72 61 .......Turbo Gra
024AE0: 70 68 69 78 20 65 72 72 6F 72 20 23 2A CA DE E5 phix error #*...
024AF0: 21 00 00 CD 26 17 CD BA 17 0F 20 69 6E 20 70 72 !...&..... in pr
024B00: 6F 63 65 64 75 72 65 20 23 2A CC DE E5 21 00 00 ocedure #*...!..
024B10: CD 26 17 CD CD 17 CD 1B 20 2A 6A F2 26 00 CB 45 .&...... *j.&..E
024B20: CA 6E 32 CD 99 02 CD 9B 14 21 28 00 CD 22 17 21 .n2......!(..".!
024B30: 15 F2 E5 2A CA DE 29 D1 19 5E 23 56 EB CD 3A 05 ...*..)..^#V..:.
024B40: 21 00 00 CD AA 17 CD BA 17 04 20 69 6E 20 21 25 !......... in !%
024B50: F2 E5 2A CC DE 29 D1 19 5E 23 56 EB CD 3A 05 21 ..*..)..^#V..:.!
024B60: 00 00 CD AA 17 21 29 00 CD 22 17 CD 1B 20 2A 6A .....!).."... *j
024B70: F2 26 00 E5 2A 69 F2 26 00 D1 7D A3 6F CB 45 CA .&..*i.&..}£o.E.
024B80: 88 32 C3 D4 20 C3 10 33 2A 69 F2 26 00 CB 45 CA .2.. ..3*i.&..E.
024B90: 98 32 C3 D4 20 C3 10 33 2A 6A F2 26 00 CB 45 CA .2.. ..3*j.&..E.
024BA0: 10 33 CD 9B 14 CD BA 17 0E 2E 20 20 48 69 74 20 .3........ Hit
024BB0: 65 6E 74 65 72 3A 20 CD 1B 20 21 BA 00 CD A9 14 enter: .. !.....
024BC0: 21 BD DE CD 44 16 CD 1B 20 2A BD DE 26 00 E5 21 !...D... *..&..!
024BD0: 0D 00 D1 CD 7F 06 E5 2A BD DE 26 00 E5 21 03 00 .......*..&..!..
024BE0: D1 CD 7F 06 D1 7D B3 6F CB 45 CA BA 32 2A BD DE .....}.o.E..2*..
024BF0: 26 00 E5 21 03 00 D1 CD 7F 06 CB 45 CA 05 33 CD &..!.......E..3.
024C00: 20 20 20 44 69 66 66 65 72 65 6E 63 65 3A 3D 28 Difference:=(
024C10: 58 32 57 6C 64 47 6C 62 2D 58 31 57 6C 64 47 6C X2WldGlb-X1WldGl
024C20: 62 29 2F 4E 50 6F 69 6E 74 73 3B 0D 0A 20 20 20 b)/NPoints;..
024C30: 20 20 20 66 6F 72 20 69 3A 3D 31 20 74 6F 20 4E for i:=1 to N
024C40: 50 6F 69 6E 74 73 20 64 6F 0D 0A 20 20 20 20 20 Points do..
024C50: 20 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 20 20 begin..
024C60: 20 78 73 3A 3D 78 73 2B 33 30 2B 42 61 6C 61 6E xs:=xs+30+Balan
024C70: 63 65 3B 0D 0A 20 20 20 20 20 20 20 20 69 66 20 ce;.. if
024C80: 28 58 44 65 6E 73 3E 32 29 20 61 6E 64 20 28 78 (XDens>2) and (x
024C90: 73 3C 58 32 52 65 66 47 6C 62 20 73 68 6C 20 33 s<X2RefGlb shl 3
024CA0: 2B 37 2D 32 34 29 20 74 68 65 6E 0D 0A 20 20 20 +7-24) then..
024CB0: 20 20 20 20 20 20 62 65 67 69 6E 0D 0A 20 20 20 begin..
024CC0: 20 20 20 20 20 20 20 4E 75 6D 62 65 72 3A 3D 58 Number:=X
024CD0: 31 57 6C 64 47 6C 62 2B 69 2A 44 69 66 66 65 72 1WldGlb+i*Differ
024CE0: 65 6E 63 65 3B 0D 0A 20 20 20 20 20 20 20 20 20 ence;..
024CF0: 20 44 72 61 77 4C 69 6E 65 28 78 73 2C 79 6B 30 DrawLine(xs,yk0
024D00: 2C 78 73 2C 79 6B 30 2B 34 29 3B 0D 0A 20 20 20 ,xs,yk0+4);..
024D10: 20 20 20 20 20 20 20 69 66 20 58 44 65 6E 73 3E if XDens>
024D20: 3D 34 20 74 68 65 6E 20 69 66 20 69 20 6D 6F 64 =4 then if i mod
024D30: 20 28 31 30 2D 58 44 65 6E 73 29 3D 30 20 74 68 (10-XDens)=0 th
024D40: 65 6E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 en..
024D50: 44 72 61 77 4E 75 6D 28 78 73 2D 31 34 2C 79 6B DrawNum(xs-14,yk
024D60: 30 2B 31 30 2C 4D 61 78 45 78 70 6F 6E 65 6E 74 0+10,MaxExponent
024D70: 58 2C 4E 75 6D 62 65 72 29 3B 0D 0A 20 20 20 20 X,Number);..
024D80: 20 20 20 20 20 65 6E 64 3B 0D 0A 20 20 20 20 20 end;..
024D90: 20 20 65 6E 64 3B 0D 0A 20 20 20 20 20 65 6E 64 end;.. end
024DA0: 3B 0D 0A 20 20 20 20 20 52 65 44 65 66 69 6E 65 ;.. ReDefine
024DB0: 57 69 6E 64 6F 77 28 57 69 6E 64 6F 77 4E 64 78 Window(WindowNdx
024DC0: 47 6C 62 2C 58 31 52 65 66 4C 6F 63 2C 59 31 52 Glb,X1RefLoc,Y1R
024DD0: 65 66 4C 6F 63 2C 58 32 52 65 66 4C 6F 63 2C 59 efLoc,X2RefLoc,Y
024DE0: 32 52 65 66 4C 6F 63 29 3B 0D 0A 20 20 20 20 20 2RefLoc);..
024DF0: 53 65 6C 65 63 74 57 69 6E 64 6F 77 28 57 69 6E SelectWindow(Win
024E00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
024E10: 1F 00 00 00 02 09 4E E5 1F 00 41 02 00 00 00 02 ......N...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: 3A 2C C3 D4 20 2A C0 DE E5 2A BE DE E5 CD 3F 2B :,.. *...*....?+
024F10: C9 21 00 00 7D 32 69 F2 C9 21 01 00 7D 32 69 F2 .!..}2i..!..}2i.
024F20: C9 2A 65 F2 26 00 7D 32 AC DE 21 00 00 7D 32 65 .*e.&.}2..!..}2e
024F30: F2 2A AC DE 26 00 C9 21 01 00 7D 32 6E F2 C9 21 .*..&..!..}2n..!
024F40: 00 00 7D 32 6E F2 C9 21 01 00 7D 32 6D F2 C9 21 ..}2n..!..}2m..!
024F50: 00 00 7D 32 6D F2 C9 21 01 00 7D 32 6A F2 C9 21 ..}2m..!..}2j..!
024F60: 00 00 7D 32 6A F2 C9 21 01 00 7D 32 68 F2 C9 21 ..}2j..!..}2h..!
024F70: 00 00 7D 32 68 F2 C9 21 01 00 7D 32 67 F2 C9 21 ..}2h..!..}2g..!
024F80: 00 00 7D 32 67 F2 C9 FD E1 E1 22 52 DE FD E5 2A ..}2g....."R...*
024F90: 52 DE E5 CD 81 05 21 01 00 E5 21 10 00 CD 9B 05 R.....!...!.....
024FA0: CD 4F 13 CB 45 CA F7 33 21 B4 EB E5 2A 52 DE 2B .O..E..3!...*R.+
024FB0: E5 29 29 E5 29 E5 29 E5 29 29 D1 19 D1 19 D1 19 .)).).).))......
024FC0: D1 19 D1 19 22 4A DE 2A 4A DE 11 59 00 19 E5 21 ...."J.*J..Y...!
024FD0: 00 00 EB E1 73 2A 4A DE 11 5A 00 19 E5 21 01 00 ....s*J..Z...!..
024FE0: EB E1 73 2A 4A DE 11 08 00 19 E5 CD 4D 05 00 06 ..s*J.......M...
024FF0: 50 CD 01 06 C3 02 34 21 16 00 E5 21 02 00 E5 CD P.....4!...!....
025000: 76 2B C9 21 FF 00 E5 CD 00 25 C9 21 00 00 E5 CD v+.!.....%.!....
025010: 00 25 C9 2A 7A F2 22 38 DE 2A 38 DE C9 2A 6D F2 .%.*z."8.*8..*m.
025020: 26 00 7D 32 2F DE 2A 2F DE 26 00 C9 2A 6E F2 26 &.}2/.*/.&..*n.&
025030: 00 7D EE 01 6F 7D 32 26 DE 2A 26 DE 26 00 C9 FD .}..o}2&.*&.&...
025040: E1 E1 D1 C1 D9 21 18 DE CD D1 05 FD E5 21 18 DE .....!.......!..
025050: CD 2C 05 C5 D5 E5 21 00 00 11 00 00 01 00 00 D9 .,....!.........
025060: E1 D1 C1 CD 9B 06 CB 45 CA 7A 34 21 18 DE CD 2C .......E.z4!...,
025070: 05 CB B8 D9 21 E6 F1 CD D1 05 C9 21 E6 F1 CD 2C ....!......!...,
025080: 05 D9 21 0A DE CD D1 05 21 0A DE CD 2C 05 C9 FD ..!.....!...,...
025090: E1 E1 D1 C1 D9 21 FC DD CD D1 05 FD E5 21 FC DD .....!.......!..
0250A0: CD 2C 05 C5 D5 E5 21 00 00 11 00 00 01 00 00 D9 .,....!.........
0250B0: E1 D1 C1 CD 9B 06 CB 45 CA DD 34 21 FC DD CD 2C .......E..4!...,
0250C0: 05 CB B8 C5 D5 E5 21 80 00 11 00 00 01 00 00 D9 ......!.........
0250D0: E1 D1 C1 CD FA 09 D9 21 E6 F1 CD D1 05 C9 21 E6 .......!......!.
0250E0: F1 CD 2C 05 C5 D5 E5 21 80 00 11 00 00 01 00 00 ..,....!........
0250F0: D9 E1 D1 C1 CD FF 09 D9 21 EE DD CD D1 05 21 EE ........!.....!.
025100: 2A AA DC 5E 23 56 EB E5 21 03 00 D1 CD 4E 07 E5 *..^#V..!....N..
025110: 21 B4 F2 CD 2C 05 C5 D5 E5 21 90 F2 CD 2C 05 D9 !...,....!...,..
025120: E1 D1 C1 CD FA 09 D9 E1 CD 08 10 CD F2 09 D9 21 ...............!
025130: 9C F2 CD D1 05 2A AA DC 11 02 00 19 5E 23 56 EB .....*......^#V.
025140: E5 21 A8 F2 CD 2C 05 C5 D5 E5 21 8A F2 CD 2C 05 .!...,....!...,.
025150: D9 E1 D1 C1 CD FA 09 D9 E1 CD 08 10 CD F2 09 D9 ................
025160: 21 96 F2 CD D1 05 2A 6C F2 26 00 CB 45 CA 8F 3D !.....*l.&..E..=
025170: 21 00 00 7D 32 6C F2 21 00 00 22 78 F2 21 00 00 !..}2l.!.."x.!..
025180: 22 74 F2 21 00 00 22 76 F2 21 00 00 22 72 F2 C3 "t.!.."v.!.."r..
025190: 9D 3D 21 04 00 E5 21 02 00 E5 CD 76 2B C9 FD E1 .=!...!....v+...
0251A0: E1 D1 C1 D9 21 A2 DC CD D1 05 FD E5 21 9C F2 CD ....!.......!...
0251B0: 2C 05 C5 D5 E5 21 90 F2 CD 2C 05 C5 D5 E5 21 A2 ,....!...,....!.
0251C0: DC CD 2C 05 D9 E1 D1 C1 CD FA 09 D9 E1 D1 C1 CD ..,.............
0251D0: E9 09 CD DE 0F 22 A8 DC 2A A8 DC C9 FD E1 E1 D1 ....."..*.......
0251E0: C1 D9 21 92 DC CD D1 05 FD E5 21 96 F2 CD 2C 05 ..!.......!...,.
0251F0: C5 D5 E5 21 8A F2 CD 2C 05 C5 D5 E5 21 92 DC CD ...!...,....!...
025200: 2C 05 D9 E1 D1 C1 CD FA 09 D9 E1 D1 C1 CD E9 09 ,...............
025210: CD DE 0F 22 98 DC 2A 98 DC C9 21 01 00 E5 21 01 ..."..*...!...!.
025220: 00 E5 CD 3F 2B 21 01 00 7D 32 6A F2 21 00 00 7D ...?+!..}2j.!..}
025230: 32 69 F2 21 25 F2 E5 21 00 00 29 D1 19 E5 21 10 2i.!%..!..)...!.
025240: 00 CD E5 1C 21 15 F2 E5 21 00 00 29 D1 19 E5 21 ....!...!..)...!
025250: 18 00 CD E5 1C 21 25 F2 E5 21 00 00 29 D1 19 5E .....!%..!..)..^
025260: 23 56 EB E5 CD 4D 05 0B 49 6E 69 74 47 72 61 70 #V...M..InitGrap
025270: 68 69 63 06 50 CD 01 06 21 15 F2 E5 21 00 00 29 hic.P...!...!..)
025280: D1 19 5E 23 56 EB E5 CD 4D 05 11 45 52 52 4F 52 ..^#V...M..ERROR
025290: 2E 4D 53 47 20 6D 69 73 73 69 6E 67 06 50 CD 01 .MSG missing.P..
0252A0: 06 21 22 DB E5 CD 4D 05 09 65 72 72 6F 72 2E 6D .!"...M..error.m
0252B0: 73 67 CD 6F 13 CD 1B 20 21 22 DB CD FF 13 CD F1 sg.o... !"......
0252C0: 1F E5 21 00 00 D1 CD 7F 06 CB 45 CA DE 3F 21 00 ..!.......E..?!.
0252D0: 00 E5 21 1B 00 D1 CD 66 06 7A B3 CA 46 3F D5 22 ..!....f.z..F?."
0252E0: CF DA 21 22 DB CD A9 14 21 D1 DA 06 50 CD 8E 16 ..!"....!...P...
0252F0: CD AB 16 CD 1B 20 2A CF DA E5 21 00 00 D1 CD 92 ..... *...!.....
025300: DD CD 2C 05 C9 C3 0D 35 FF 88 F8 E4 EE FD E1 E1 ..,....5........
025310: 22 E4 DD FD E5 2A E4 DD E5 CD 81 05 21 00 00 E5 "....*......!...
025320: 21 04 00 CD 9B 05 CD 4F 13 7D EE 01 6F CB 45 CA !......O.}..o.E.
025330: 49 35 2A E4 DD E5 21 FF 00 D1 7C A2 67 7D A3 6F I5*...!...|.g}£o
025340: E5 21 00 01 D1 19 22 E4 DD 2A E4 DD 22 80 F2 2A .!...."..*.."..*
025350: E4 DD E5 21 05 00 D1 CD E0 06 CB 45 CA 6E 35 21 ...!.......E.n5!
025360: 08 35 E5 2A E4 DD D1 19 6E 26 00 22 E4 DD 21 00 .5.*....n&."..!.
025370: 00 E5 21 07 00 D1 CD 66 06 7A B3 CA BF 35 D5 22 ..!....f.z...5."
025380: DA DD 21 5D F2 E5 21 07 00 E5 2A DA DD D1 EB B7 ..!]..!...*.....
025390: ED 52 D1 19 E5 2A E4 DD E5 2A DA DD D1 CD 56 07 .R...*...*....V.
0253A0: E5 21 01 00 D1 7C A2 67 7D A3 6F E5 21 00 00 D1 .!...|.g}£o.!...
0253B0: CD 92 06 EB E1 73 2A DA DD 23 D1 1B C3 79 35 21 .....s*..#...y5!
0253C0: 07 00 7D 32 66 F2 C9 2A 80 F2 22 D8 DD 2A D8 DD ..}2f..*.."..*..
0253D0: C9 FD E1 E1 22 CE DD FD E5 2A CE DD E5 21 00 00 ...."....*...!..
0253E0: D1 CD CC 06 CB 45 CA EF 35 2A CE DD 22 70 F2 C9 .....E..5*.."p..
0253F0: 2A 70 F2 22 C4 DD 2A C4 DD C9 FD E1 06 50 21 69 *p."..*......P!i
025400: DD CD E2 05 E1 22 BA DD FD E5 2A BA DD E5 CD 81 ....."....*.....
025410: 05 21 01 00 E5 21 10 00 CD 9B 05 CD 4F 13 CB 45 .!...!......O..E
025420: CA 52 36 21 B4 EB E5 2A BA DD 2B E5 29 29 E5 29 .R6!...*..+.)).)
025430: E5 29 E5 29 29 D1 19 D1 19 D1 19 D1 19 D1 19 11 .).))...........
025440: 08 00 19 E5 21 69 DD CD 3A 05 06 50 CD 01 06 C3 ....!i..:..P....
025450: 5D 36 21 03 00 E5 21 02 00 E5 CD 76 2B C9 2A A6 ]6!...!....v+.*.
025460: E3 26 00 7D 32 60 DD 2A 60 DD 26 00 C9 FD E1 E1 .&.}2`.*`.&.....
025470: D1 C1 D9 21 3E DD CD D1 05 E1 D1 C1 D9 21 44 DD ...!>........!D.
025480: CD D1 05 E1 D1 C1 D9 21 4A DD CD D1 05 E1 D1 C1 .......!J.......
025490: D9 21 50 DD CD D1 05 E1 22 56 DD FD E5 21 50 DD .!P....."V...!P.
0254A0: CD 2C 05 C5 D5 E5 21 44 DD CD 2C 05 D9 E1 D1 C1 .,....!D..,.....
0254B0: CD 9B 06 E5 21 4A DD CD 2C 05 C5 D5 E5 21 3E DD ....!J..,....!>.
0254C0: CD 2C 05 D9 E1 D1 C1 CD 9B 06 D1 7D A3 6F E5 2A .,.........}£o.*
0254D0: 56 DD E5 CD 81 05 21 01 00 E5 21 04 00 CD 9B 05 V.....!...!.....
0254E0: CD 4F 13 D1 7D A3 6F CB 45 CA 5F 37 21 84 F1 E5 .O..}£o.E._7!...
0254F0: 2A 56 DD 2B 29 29 29 E5 29 D1 19 D1 19 22 36 DD *V.+))).)...."6.
025500: 06 CB 45 CA 23 3F 21 25 F2 E5 2A CF DA 29 D1 19 ..E.#?!%..*..)..
025510: E5 21 D1 DA CD 3A 05 CD A3 08 E5 21 01 00 D1 19 .!...:..£..!....
025520: CD E5 1C 21 25 F2 E5 2A CF DA 29 D1 19 5E 23 56 ...!%..*..)..^#V
025530: EB E5 21 D1 DA CD 3A 05 06 50 CD 01 06 2A CF DA ..!...:..P...*..
025540: 23 D1 1B C3 D9 3E 21 00 00 E5 21 07 00 D1 CD 66 #....>!...!....f
025550: 06 7A B3 CA BE 3F D5 22 CF DA 21 22 DB CD A9 14 .z...?."..!"....
025560: 21 D1 DA 06 50 CD 8E 16 CD AB 16 CD 1B 20 2A CF !...P........ *.
025570: DA E5 21 00 00 D1 CD 92 06 CB 45 CA 9B 3F 21 15 ..!.......E..?!.
025580: F2 E5 2A CF DA 29 D1 19 E5 21 D1 DA CD 3A 05 CD ..*..)...!...:..
025590: A3 08 E5 21 01 00 D1 19 CD E5 1C 21 15 F2 E5 2A £..!.......!...*
0255A0: CF DA 29 D1 19 5E 23 56 EB E5 21 D1 DA CD 3A 05 ..)..^#V..!...:.
0255B0: 06 50 CD 01 06 2A CF DA 23 D1 1B C3 51 3F 21 22 .P...*..#...Q?!"
0255C0: DB CD A9 14 21 EC F1 06 28 CD 8E 16 CD AB 16 CD ....!...(.......
0255D0: 1B 20 21 22 DB CD 69 14 CD 1B 20 C3 95 40 21 25 . !"..i... ..@!%
0255E0: F2 E5 21 01 00 29 D1 19 E5 21 0E 00 CD E5 1C 21 ..!..)...!.....!
0255F0: 25 F2 E5 21 01 00 29 D1 19 5E 23 56 EB E5 CD 4D %..!..)..^#V...M
025600: 05 0D 2A 2A 20 55 4E 4B 4E 4F 57 4E 20 2A 2A 06 ..** UNKNOWN **.
025610: 50 CD 01 06 21 02 00 E5 21 1B 00 D1 CD 66 06 7A P...!...!....f.z
025620: B3 CA 4F 40 D5 22 CF DA 21 25 F2 E5 2A CF DA 29 ..O@."..!%..*..)
025630: D1 19 E5 21 25 F2 E5 21 01 00 29 D1 19 5E 23 56 ...!%..!..)..^#V
025640: EB EB E1 73 23 72 2A CF DA 23 D1 1B C3 1F 40 21 ...s#r*..#....@!
025650: 01 00 E5 21 07 00 D1 CD 66 06 7A B3 CA 8A 40 D5 ...!....f.z...@.
025660: 22 CF DA 21 15 F2 E5 2A CF DA 29 D1 19 E5 21 25 "..!...*..)...!%
025670: F2 E5 21 01 00 29 D1 19 5E 23 56 EB EB E1 73 23 ..!..)..^#V...s#
025680: 72 2A CF DA 23 D1 1B C3 5A 40 21 00 00 E5 21 00 r*..#...Z@!...!.
025690: 00 E5 CD 76 2B 21 01 00 E5 21 04 00 D1 CD 66 06 ...v+!...!....f.
0256A0: 7A B3 CA DD 40 D5 22 CF DA 2A CF DA E5 21 00 00 z...@."..*...!..
0256B0: CD 08 10 C5 D5 E5 21 00 00 CD 08 10 C5 D5 E5 21 ......!........!
0256C0: 7F 02 CD 08 10 C5 D5 E5 21 C7 00 CD 08 10 C5 D5 ........!.......
0256D0: E5 CD 6D 36 2A CF DA 23 D1 1B C3 A0 40 21 01 00 ..m6*..#....@!..
0256E0: 22 7E F2 21 01 00 E5 21 10 00 D1 CD 66 06 7A B3 "~.!...!....f.z.
0256F0: CA 5B 41 D5 22 CF DA 2A CF DA E5 21 00 00 E5 21 .[A."..*...!...!
025700: 21 50 DD CD 2C 05 D9 2A 36 DD CD D1 05 2A 36 DD !P..,..*6....*6.
025710: 11 06 00 19 E5 21 3E DD CD 2C 05 D9 E1 CD D1 05 .....!>..,......
025720: 2A 36 DD 11 0C 00 19 E5 21 44 DD CD 2C 05 D9 E1 *6......!D..,...
025730: CD D1 05 2A 36 DD 11 12 00 19 E5 21 4A DD CD 2C ...*6......!J..,
025740: 05 D9 E1 CD D1 05 2A 56 DD E5 2A 7E F2 D1 CD CC ......*V..*~....
025750: 06 CB 45 CA 5C 37 2A 56 DD 22 7E F2 C3 91 37 2A ..E.\7*V."~...7*
025760: 56 DD E5 CD 81 05 21 01 00 E5 21 04 00 CD 9B 05 V.....!...!.....
025770: CD 4F 13 CB 45 CA 86 37 21 01 00 E5 21 03 00 E5 .O..E..7!...!...
025780: CD 76 2B C3 91 37 21 01 00 E5 21 02 00 E5 CD 76 .v+..7!...!....v
025790: 2B C9 FD E1 E1 22 34 DD FD E5 2A 34 DD E5 CD 81 +...."4...*4....
0257A0: 05 21 01 00 E5 2A 7E F2 CD 9B 05 CD 4F 13 CB 45 .!...*~.....O..E
0257B0: CA 0A 38 21 84 F1 E5 2A 34 DD 2B 29 29 29 E5 29 ..8!...*4.+))).)
0257C0: D1 19 D1 19 22 2C DD 2A 2C DD CD 2C 05 D9 21 B4 ....",.*,..,..!.
0257D0: F2 CD D1 05 2A 2C DD 11 06 00 19 CD 2C 05 D9 21 ....*,......,..!
0257E0: A8 F2 CD D1 05 2A 2C DD 11 0C 00 19 CD 2C 05 D9 .....*,......,..
0257F0: 21 AE F2 CD D1 05 2A 2C DD 11 12 00 19 CD 2C 05 !.....*,......,.
025800: D9 21 A2 F2 CD D1 05 C3 15 38 21 02 00 E5 21 02 .!.......8!...!.
025810: 00 E5 CD 76 2B C9 FD E1 E1 22 22 DD E1 22 24 DD ...v+...."".."$.
025820: E1 22 26 DD E1 22 28 DD E1 22 2A DD FD E5 2A 2A ."&.."(.."*...**
025830: DD E5 CD 81 05 21 01 00 E5 21 10 00 CD 9B 05 CD .....!...!......
025840: 4F 13 E5 2A 28 DD E5 2A 24 DD D1 CD B8 06 D1 7D O..*(..*$......}
025850: A3 6F E5 2A 26 DD E5 2A 22 DD D1 CD B8 06 D1 7D £o.*&..*"......}
025860: A3 6F E5 2A 28 DD E5 21 00 00 D1 CD A5 06 D1 7D £o.*(..!.......}
025870: A3 6F E5 2A 24 DD E5 21 4F 00 D1 CD B8 06 D1 7D £o.*$..!O......}
025880: A3 6F E5 2A 26 DD E5 21 00 00 D1 CD A5 06 D1 7D £o.*&..!.......}
025890: A3 6F E5 2A 22 DD E5 21 C7 00 D1 CD B8 06 D1 7D £o.*"..!.......}
0258A0: A3 6F CB 45 CA 19 39 21 B4 EB E5 2A 2A DD 2B E5 £o.E..9!...**.+.
0258B0: 29 29 E5 29 E5 29 E5 29 29 D1 19 D1 19 D1 19 D1 )).).).)).......
0258C0: 19 D1 19 22 1A DD 2A 28 DD EB 2A 1A DD 73 23 72 ..."..*(..*..s#r
0258D0: 2A 1A DD 11 02 00 19 E5 2A 26 DD EB E1 73 23 72 *.......*&...s#r
0258E0: 2A 1A DD 11 04 00 19 E5 2A 24 DD EB E1 73 23 72 *.......*$...s#r
0258F0: 2A 1A DD 11 06 00 19 E5 2A 22 DD EB E1 73 23 72 *.......*"...s#r
025900: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
025910: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
025920: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
025930: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
025940: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
025950: 7F FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF ................
025960: FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF ................
025970: FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF ................
025980: FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF ................
025990: FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FE ................
0259A0: 80 01 F0 78 00 00 03 E0 F0 00 00 07 C1 F0 00 00 ...x............
0259B0: 0F 83 E0 00 00 1F 07 C0 00 00 1E 0F 80 00 00 3E ...............>
0259C0: 0F 00 00 00 7C 1F 00 00 00 F8 3E 00 00 01 F0 7C ....|.....>....|
0259D0: 00 00 03 E0 F8 00 00 03 C1 F0 00 00 07 C1 E0 00 ................
0259E0: 00 0F 83 E0 00 00 1F 07 C0 00 00 3E 0F 80 00 01 ...........>....
0259F0: 80 00 02 E0 00 00 00 04 00 00 00 00 08 00 00 00 ................
025A00: 03 D0 00 00 00 00 2E 00 00 00 00 40 00 00 00 00 ...........@....
025A10: 40 00 00 00 1E 80 00 00 00 01 70 00 00 00 02 00 @.........p.....
025A20: 00 00 00 04 00 00 00 00 E8 00 00 00 00 0B 80 00 ................
025A30: 00 00 10 00 00 00 00 20 00 00 00 07 40 00 00 01 ....... ....@...
025A40: 80 00 07 00 00 40 00 0C 00 00 00 00 0C 00 01 00 .....@..........
025A50: 00 38 00 00 00 00 70 00 02 00 00 C0 00 00 00 00 .8....p.........
025A60: 60 00 08 00 01 C0 00 00 00 03 80 00 20 00 06 00 `........... ...
025A70: 00 00 00 06 00 00 40 00 1C 00 00 00 00 1C 00 01 ......@.........
025A80: 00 00 30 00 00 00 00 30 00 02 00 00 E0 00 00 01 ..0....0........
025A90: 80 03 80 1C 00 40 07 00 00 00 00 00 00 78 01 00 .....@.......x..
025AA0: 1C 00 F0 00 00 38 01 E0 02 00 38 00 00 00 00 00 .....8....8.....
025AB0: 03 80 08 00 E0 07 80 00 01 C0 0F 00 20 03 80 00 ............ ...
025AC0: 00 00 00 00 3C 00 40 07 00 78 00 00 0E 00 70 01 ....<.@..x....p.
025AD0: 00 1C 00 00 00 00 00 01 E0 02 00 70 03 C0 00 01 ...........p....
025AE0: 80 00 02 1C 00 00 07 04 00 00 00 00 08 70 00 00 .............p..
025AF0: 00 10 00 00 00 00 20 00 00 00 38 40 00 00 00 00 ...... ...8@....
025B00: 2A 2A DD E5 2A 7C F2 D1 CD CC 06 CB 45 CA 16 39 **..*|......E..9
025B10: 2A 2A DD 22 7C F2 C3 4B 39 2A 2A DD E5 CD 81 05 **."|..K9**.....
025B20: 21 01 00 E5 21 10 00 CD 9B 05 CD 4F 13 CB 45 CA !...!......O..E.
025B30: 40 39 21 03 00 E5 21 03 00 E5 CD 76 2B C3 4B 39 @9!...!....v+.K9
025B40: 21 03 00 E5 21 02 00 E5 CD 76 2B C9 FD E1 E1 22 !...!....v+...."
025B50: 10 DD E1 22 12 DD E1 22 14 DD E1 22 16 DD E1 22 ..."..."..."..."
025B60: 18 DD FD E5 2A 18 DD E5 2A 16 DD E5 2A 14 DD E5 ....*...*...*...
025B70: 2A 12 DD E5 2A 10 DD E5 CD 16 38 21 B4 EB E5 2A *...*.....8!...*
025B80: 18 DD 2B E5 29 29 E5 29 E5 29 E5 29 29 D1 19 D1 ..+.)).).).))...
025B90: 19 D1 19 D1 19 D1 19 22 08 DD 2A 08 DD 11 08 00 ......."..*.....
025BA0: 19 E5 CD 4D 05 00 06 50 CD 01 06 2A 08 DD 11 5A ...M...P...*...Z
025BB0: 00 19 E5 21 01 00 EB E1 73 2A 08 DD 11 59 00 19 ...!....s*...Y..
025BC0: E5 21 00 00 EB E1 73 C9 FD E1 E1 22 02 DD E1 22 .!....s...."..."
025BD0: 04 DD FD E5 2A 04 DD E5 21 01 00 D1 EB B7 ED 52 ....*...!......R
025BE0: E5 21 7F 02 E5 21 01 00 D1 19 E5 21 50 00 D1 CD .!...!.....!P...
025BF0: 0F 07 D1 CD F5 06 E5 2A 02 DD D1 EB B7 ED 52 E5 .......*......R.
025C00: 21 08 00 D1 CD 0F 07 22 F8 DC 2A F8 DC E5 21 00 !......"..*...!.
025C10: 00 D1 CD E0 06 CB 45 CA 23 3A 21 00 00 22 F8 DC ......E.#:!.."..
025C20: C3 39 3A 2A F8 DC E5 21 4F 00 D1 CD CC 06 CB 45 .9:*...!O......E
025C30: CA 39 3A 21 4F 00 22 F8 DC 2A F8 DC 22 06 DD 2A .9:!O."..*.."..*
025C40: 06 DD C9 FD E1 E1 22 F2 DC E1 22 F4 DC FD E5 21 ......"..."....!
025C50: 7F 02 E5 21 01 00 D1 19 E5 21 50 00 D1 CD 0F 07 ...!.....!P.....
025C60: 22 E8 DC 2A F4 DC E5 2A E8 DC D1 CD F5 06 E5 2A "..*...*.......*
025C70: F2 DC D1 19 E5 21 01 00 D1 EB B7 ED 52 E5 21 08 .....!......R.!.
025C80: 00 D1 CD 0F 07 22 E8 DC 2A E8 DC E5 21 00 00 D1 ....."..*...!...
025C90: CD E0 06 CB 45 CA A1 3A 21 00 00 22 E8 DC C3 B7 ....E..:!.."....
025CA0: 3A 2A E8 DC E5 21 4F 00 D1 CD CC 06 CB 45 CA B7 :*...!O......E..
025CB0: 3A 21 4F 00 22 E8 DC 2A E8 DC 22 F6 DC 2A F6 DC :!O."..*.."..*..
025CC0: C9 FD E1 E1 22 E2 DC E1 22 E4 DC FD E5 2A E4 DC ...."..."....*..
025CD0: E5 21 01 00 D1 EB B7 ED 52 E5 21 C7 00 E5 21 01 .!......R.!...!.
025CE0: 00 D1 19 E5 21 19 00 D1 CD 0F 07 D1 CD F5 06 E5 ....!...........
025CF0: 2A E2 DC D1 EB B7 ED 52 22 D8 DC 2A D8 DC E5 21 *......R"..*...!
025D00: 43 80 00 00 E0 80 00 00 00 01 0E 00 00 03 82 00 C...............
025D10: 00 00 00 04 3C 00 00 00 08 00 00 00 00 08 00 00 ....<...........
025D20: 00 1C 10 00 00 00 00 21 E0 00 00 38 40 00 00 01 .......!...8@...
025D30: 80 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 ................
025D40: 00 10 00 00 00 00 20 00 02 00 00 00 00 00 00 00 ...... .........
025D50: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
025D60: 00 00 00 00 00 00 40 00 08 00 00 00 00 08 00 01 ......@.........
025D70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 ................
025D80: 80 0C 00 03 FF FF F8 00 06 00 00 30 00 07 FF FF ...........0....
025D90: E0 00 0F FF FF C0 00 1F FF FF C0 00 30 00 01 80 ............0...
025DA0: 00 7F FF FF 00 00 60 00 06 00 00 FF FF FC 00 01 ......`.........
025DB0: 80 00 18 00 03 FF FF F8 00 07 FF FF F0 00 0F FF ................
025DC0: FF E0 00 0C 00 00 C0 00 1F FF FF 80 00 30 00 01 .............0..
025DD0: 80 00 06 0F 00 00 00 06 00 00 00 00 18 00 00 00 ................
025DE0: 78 18 00 00 00 00 60 F0 00 00 00 60 00 00 00 00 x.....`....`....
025DF0: C0 00 00 03 C0 C0 00 00 00 03 07 80 00 00 03 00 ................
025E00: 00 00 00 0C 00 00 00 1E 0C 00 00 00 00 18 3C 00 ..............<.
025E10: 00 00 18 00 00 00 00 60 00 00 00 F0 60 00 00 01 .......`....`...
025E20: 80 00 00 00 00 40 00 04 00 00 00 00 08 00 01 00 .....@..........
025E30: 00 00 00 00 00 00 00 00 02 00 00 40 00 00 00 00 ...........@....
025E40: 40 00 08 00 00 00 00 00 00 00 00 00 20 00 02 00 @........... ...
025E50: 00 00 00 04 00 00 40 00 00 00 00 00 00 00 00 01 ......@.........
025E60: 00 00 10 00 00 00 00 20 00 02 00 00 00 00 00 01 ....... ........
025E70: 80 03 80 00 07 00 00 00 38 00 00 0E 00 00 00 70 ........8......p
025E80: 00 00 F0 00 00 38 00 00 78 00 00 03 C0 00 00 70 .....8..x......p
025E90: 00 00 03 80 00 07 80 00 01 C0 00 03 80 00 00 1E ................
025EA0: 00 00 07 00 00 00 1C 00 00 78 00 00 0E 00 00 1C .........x......
025EB0: 00 00 00 F0 00 00 38 00 00 00 E0 00 03 C0 00 01 ......8.........
025EC0: 80 00 06 03 C0 00 38 06 00 00 00 00 18 0F 00 00 ......8.........
025ED0: E0 18 00 00 00 00 60 1C 00 03 C0 60 00 00 00 00 ......`....`....
025EE0: C0 78 00 00 00 C0 00 00 00 03 00 00 00 1C 03 00 .x..............
025EF0: 00 00 00 0C 03 80 00 78 0C 00 00 00 00 18 0F 00 .......x........
025F00: 00 00 D1 CD E0 06 CB 45 CA 14 3B 21 00 00 22 D8 .......E..;!..".
025F10: DC C3 2A 3B 2A D8 DC E5 21 C7 00 D1 CD CC 06 CB ..*;*...!.......
025F20: 45 CA 2A 3B 21 C7 00 22 D8 DC 2A D8 DC 22 E6 DC E.*;!.."..*.."..
025F30: 2A E6 DC C9 FD E1 E1 22 D2 DC E1 22 D4 DC FD E5 *......"..."....
025F40: 2A D4 DC E5 21 C7 00 E5 21 01 00 D1 19 E5 21 19 *...!...!.....!.
025F50: 00 D1 CD 0F 07 D1 CD F5 06 E5 2A D2 DC D1 19 E5 ..........*.....
025F60: 21 01 00 D1 EB B7 ED 52 22 C8 DC 2A C8 DC E5 21 !......R"..*...!
025F70: 00 00 D1 CD E0 06 CB 45 CA 84 3B 21 00 00 22 C8 .......E..;!..".
025F80: DC C3 9A 3B 2A C8 DC E5 21 C7 00 D1 CD CC 06 CB ...;*...!.......
025F90: 45 CA 9A 3B 21 C7 00 22 C8 DC 2A C8 DC 22 D6 DC E..;!.."..*.."..
025FA0: 2A D6 DC C9 FD E1 E1 22 BC DC E1 22 BE DC E1 22 *......"..."..."
025FB0: C0 DC E1 22 C2 DC E1 22 C4 DC E1 22 C6 DC FD E5 ..."..."..."....
025FC0: 2A C6 DC E5 2A C4 DC E5 2A BC DC E5 CD C8 39 E5 *...*...*.....9.
025FD0: 2A C2 DC E5 2A BC DC E5 CD C1 3A E5 2A C0 DC E5 *...*.....:.*...
025FE0: 2A BC DC E5 CD 43 3A E5 2A BE DC E5 2A BC DC E5 *....C:.*...*...
025FF0: CD 34 3B E5 CD 4C 39 C9 FD E1 E1 22 B2 DC FD E5 .4;..L9...."....
026000: 2A B2 DC E5 CD 81 05 21 01 00 E5 2A 7C F2 CD 9B *......!...*|...
026010: 05 CD 4F 13 CB 45 CA 92 3D 21 B4 EB E5 2A B2 DC ..O..E..=!...*..
026020: 2B E5 29 29 E5 29 E5 29 E5 29 29 D1 19 D1 19 D1 +.)).).).)).....
026030: 19 D1 19 D1 19 22 AA DC 2A B2 DC 22 7A F2 2A AA ....."..*.."z.*.
026040: DC 5E 23 56 EB 22 88 F2 2A AA DC 11 02 00 19 5E .^#V."..*......^
026050: 23 56 EB 22 84 F2 2A AA DC 11 04 00 19 5E 23 56 #V."..*......^#V
026060: EB 22 86 F2 2A AA DC 11 06 00 19 5E 23 56 EB 22 ."..*......^#V."
026070: 82 F2 2A AA DC 11 04 00 19 5E 23 56 EB E5 2A AA ..*......^#V..*.
026080: DC 5E 23 56 EB D1 EB B7 ED 52 E5 21 03 00 D1 CD .^#V.....R.!....
026090: 4E 07 E5 21 07 00 D1 19 E5 21 AE F2 CD 2C 05 C5 N..!.....!...,..
0260A0: D5 E5 21 B4 F2 CD 2C 05 D9 E1 D1 C1 CD F2 09 D9 ..!...,.........
0260B0: E1 CD 08 10 CD FF 09 D9 21 90 F2 CD D1 05 2A AA ........!.....*.
0260C0: DC 11 06 00 19 5E 23 56 EB E5 2A AA DC 11 02 00 .....^#V..*.....
0260D0: 19 5E 23 56 EB D1 EB B7 ED 52 E5 21 A2 F2 CD 2C .^#V.....R.!...,
0260E0: 05 C5 D5 E5 21 A8 F2 CD 2C 05 D9 E1 D1 C1 CD F2 ....!...,.......
0260F0: 09 D9 E1 CD 08 10 CD FF 09 D9 21 8A F2 CD D1 05 ..........!.....
026100: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
026110: 20 00 00 00 02 09 4E E5 20 00 41 02 00 00 00 02 .....N. .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: 00 E0 18 00 00 00 00 60 1C 00 03 C0 60 00 00 01 .......`....`...
026210: 80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
026220: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
026230: 00 00 08 00 00 80 00 00 00 01 00 00 20 00 00 00 ............ ...
026240: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
026250: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 ................
026260: 80 00 78 00 38 03 C0 01 C0 00 00 01 E0 00 E0 0F ..x.8...........
026270: 00 07 00 00 00 07 80 03 80 1C 00 1C 00 00 00 0F ................
026280: 00 07 00 00 00 38 00 00 00 3C 00 00 01 E0 00 E0 .....8...<......
026290: 00 00 00 F0 00 70 03 80 03 80 00 00 01 E0 00 E0 .....p..........
0262A0: 0F 00 07 00 00 00 07 80 03 80 1C 00 1C 00 00 01 ................
0262B0: 80 00 78 00 38 00 00 01 C0 00 00 01 E0 00 00 0F ..x.8...........
0262C0: 00 07 00 00 00 07 80 03 80 00 00 1C 00 00 00 0F ................
0262D0: 00 00 00 78 00 38 00 00 00 3C 00 1C 00 00 00 E0 ...x.8...<......
0262E0: 00 00 00 F0 00 00 03 80 03 80 00 00 01 E0 00 E0 ................
0262F0: 00 00 07 00 00 00 07 80 00 00 1C 00 1C 00 00 01 ................
026300: 80 00 00 00 00 40 00 04 00 00 00 00 08 00 01 00 .....@..........
026310: 00 00 00 00 00 00 00 00 02 00 00 40 00 00 00 00 ...........@....
026320: 40 00 08 00 00 00 00 00 00 00 00 00 20 00 02 00 @........... ...
026330: 00 00 00 04 00 00 40 00 00 00 00 00 00 00 00 01 ......@.........
026340: 00 00 10 00 00 00 00 20 00 02 00 00 00 00 00 01 ....... ........
026350: 80 00 06 03 C0 00 00 06 00 00 00 00 18 00 00 00 ................
026360: E0 18 00 00 00 00 60 1C 00 00 00 60 00 00 00 00 ......`....`....
026370: C0 00 00 07 00 C0 00 00 00 03 01 E0 00 00 03 00 ................
026380: 00 00 00 0C 00 00 00 78 0C 00 00 00 00 18 0F 00 .......x........
026390: 00 00 18 00 00 00 00 60 00 00 03 C0 60 00 00 01 .......`....`...
0263A0: 80 03 80 00 07 1C 00 00 38 00 00 0E 00 00 1C 00 ........8.......
0263B0: 00 00 F0 00 00 38 00 00 00 E0 00 03 C0 00 00 70 .....8.........p
0263C0: 00 00 E3 80 00 07 80 00 01 C0 00 03 8E 00 00 1E ................
0263D0: 00 00 07 00 00 0F 00 00 00 78 00 00 0E 00 00 00 .........x......
0263E0: 70 00 00 F0 00 00 38 00 00 78 E0 00 03 C0 00 01 p.....8..x......
0263F0: 80 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 ................
026400: 00 10 00 00 00 00 20 00 02 00 00 00 00 00 00 00 ...... .........
026410: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
026420: 00 00 00 00 00 00 40 00 08 00 00 00 00 08 00 01 ......@.........
026430: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 ................
026440: 80 00 02 E0 00 00 00 F4 00 00 00 00 0B 80 00 00 ................
026450: 00 10 00 00 00 00 20 00 00 00 07 40 00 00 00 00 ...... ....@....
026460: 5C 00 00 00 1E 80 00 00 00 01 70 00 00 00 7A 00 \.........p...z.
026470: 00 00 00 05 C0 00 00 00 08 00 00 00 00 08 00 00 ................
026480: 00 03 D0 00 00 00 00 2E 00 00 00 07 40 00 00 01 ............@...
026490: 80 03 80 1C 00 40 07 00 00 00 00 00 00 78 01 00 .....@.......x..
0264A0: 1C 00 F0 00 00 38 01 E0 02 00 38 00 00 00 00 00 .....8....8.....
0264B0: 03 80 08 00 E0 07 80 00 01 C0 0F 00 20 03 80 00 ............ ...
0264C0: 00 00 00 00 3C 00 40 07 00 78 00 00 0E 00 70 01 ....<.@..x....p.
0264D0: 00 1C 00 00 00 00 00 01 E0 02 00 70 03 C0 00 01 ...........p....
0264E0: 80 00 07 00 00 40 00 0C 00 00 00 00 0C 00 01 00 .....@..........
0264F0: 00 38 00 00 00 00 70 00 02 00 00 C0 00 00 00 00 .8....p.........
026500: 60 00 08 00 01 C0 00 00 00 03 80 00 20 00 06 00 `........... ...
026510: 00 00 00 06 00 00 40 00 1C 00 00 00 00 1C 00 01 ......@.........
026520: 00 00 30 00 00 00 00 30 00 02 00 00 E0 00 00 01 ..0....0........
026530: 80 00 03 00 00 00 00 0F FF FF FF FF FC 00 00 00 ................
026540: 00 70 00 00 00 00 30 00 00 00 00 FF FF FF FF FF .p....0.........
026550: E0 00 00 00 03 80 00 00 00 01 80 00 00 00 07 FF ................
026560: FF FF FF FE 00 00 00 00 18 00 00 00 00 0C 00 00 ................
026570: 00 00 3F FF FF FF FF F0 00 00 00 00 C0 00 00 01 ..?.............
026580: 80 00 78 E0 00 00 00 F1 C0 00 00 01 E3 80 00 00 ..x.............
026590: 03 C7 00 00 00 07 8E 00 00 00 07 1C 00 00 00 0F ................
0265A0: 1C 00 00 00 1E 38 00 00 00 3C 70 00 00 00 78 E0 .....8...<p...x.
0265B0: 00 00 00 F1 C0 00 00 00 E3 80 00 00 01 E3 80 00 ................
0265C0: 00 03 C7 00 00 00 07 8E 00 00 00 0F 1C 00 00 01 ................
0265D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0265E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0265F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
026600: 00 10 00 00 00 00 20 00 02 00 00 00 00 00 00 00 ...... .........
026610: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
026620: 00 00 00 00 00 00 40 00 08 00 00 00 00 08 00 01 ......@.........
026630: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 ................
026640: 80 00 02 1C 00 00 07 04 00 00 00 00 08 70 00 00 .............p..
026650: 00 10 00 00 00 00 20 00 00 00 38 40 00 00 00 00 ...... ...8@....
026660: 43 80 00 00 E0 80 00 00 00 01 0E 00 00 03 82 00 C...............
026670: 00 00 00 04 3C 00 00 00 08 00 00 00 00 08 00 00 ....<...........
026680: 00 1C 10 00 00 00 00 21 E0 00 00 38 40 00 00 01 .......!...8@...
026690: 80 0C 00 03 FF FF F8 00 07 FF FF F0 00 07 FF FF ................
0266A0: E0 00 0C 00 00 C0 00 1F FF FF C0 00 3F FF FF 80 ............?...
0266B0: 00 7F FF FF 00 00 60 00 06 00 00 FF FF FC 00 01 ......`.........
0266C0: FF FF F8 00 03 FF FF F8 00 06 00 00 30 00 0F FF ............0...
0266D0: FF E0 00 0F FF FF C0 00 1F FF FF 80 00 30 00 01 .............0..
0266E0: 80 00 00 00 00 40 00 04 00 00 00 00 08 00 01 00 .....@..........
0266F0: 00 00 00 00 00 00 00 00 02 00 00 40 00 00 00 00 ...........@....
026700: 40 00 08 00 00 00 00 00 00 00 00 00 20 00 02 00 @........... ...
026710: 00 00 00 04 00 00 40 00 00 00 00 00 00 00 00 01 ......@.........
026720: 00 00 10 00 00 00 00 20 00 02 00 00 00 00 00 01 ....... ........
026730: 80 00 02 F0 00 00 00 04 00 00 00 00 08 00 00 00 ................
026740: 07 90 00 00 00 00 2F 00 00 00 00 40 00 00 00 00 ....../....@....
026750: 40 00 00 00 3C 80 00 00 00 01 78 00 00 00 02 00 @...<.....x.....
026760: 00 00 00 04 00 00 00 01 E8 00 00 00 00 0B C0 00 ................
026770: 00 00 10 00 00 00 00 20 00 00 00 0F 40 00 00 01 ....... ....@...
026780: 80 03 80 1C 00 00 07 00 38 00 00 0E 00 78 00 00 ........8....x..
026790: 1C 00 F0 00 00 38 01 E0 00 00 38 03 C0 00 00 70 .....8....8....p
0267A0: 03 80 00 00 E0 07 80 00 01 C0 0F 00 00 03 80 1E ................
0267B0: 00 00 07 00 3C 00 00 07 00 78 00 00 0E 00 70 00 ....<....x....p.
0267C0: 00 1C 00 F0 00 00 38 01 E0 00 00 70 03 C0 00 01 ......8....p....
0267D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0267E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0267F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
026800: 7F FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF ................
026810: FF FF FF FF FF FF 8E 1B 61 B7 1C 63 CF 1C 61 B7 ........a..c..a.
026820: F8 71 8F 3B 7F C7 3B 6D 86 3F E1 C7 FB F1 8E 1F .q.;..;m.?......
026830: F1 B6 3F EF 87 F8 F1 C7 3B 61 FF FF FF FF FF FF ..?.....;a......
026840: FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FE ................
026850: FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF ................
026860: FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF ................
026870: FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF ................
026880: FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF ................
026890: FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF ................
0268A0: 80 03 80 00 07 1C 00 00 38 00 00 0E 00 00 1C 70 ........8......p
0268B0: 00 00 F0 00 00 38 00 00 78 E0 00 03 C0 00 00 70 .....8..x......p
0268C0: 00 00 E3 80 00 07 80 00 01 C0 00 03 8E 00 00 1E ................
0268D0: 00 00 07 00 00 0F 1C 00 00 78 00 00 0E 00 00 1C .........x......
0268E0: 70 00 00 F0 00 00 38 00 00 78 E0 00 03 C0 00 01 p.....8..x......
0268F0: 80 00 06 03 C0 00 00 06 00 00 00 00 18 00 00 00 ................
026900: E0 18 00 00 00 00 60 1C 00 00 00 60 00 00 00 00 ......`....`....
026910: C0 00 00 07 00 C0 00 00 00 03 01 E0 00 00 03 00 ................
026920: 00 00 00 0C 00 00 00 78 0C 00 00 00 00 18 0F 00 .......x........
026930: 00 00 18 00 00 00 00 60 00 00 03 C0 60 00 00 01 .......`....`...
026940: 80 00 00 00 00 40 00 04 00 00 00 00 08 00 01 00 .....@..........
026950: 00 00 00 00 00 00 00 00 02 00 00 40 00 00 00 00 ...........@....
026960: 40 00 08 00 00 00 00 00 00 00 00 00 20 00 02 00 @........... ...
026970: 00 00 00 04 00 00 40 00 00 00 00 00 00 00 00 01 ......@.........
026980: 00 00 10 00 00 00 00 20 00 02 00 00 00 00 00 01 ....... ........
026990: 80 03 80 00 0F 00 00 00 38 00 00 0E 00 00 00 78 ........8......x
0269A0: 00 00 F0 00 00 38 00 00 F0 00 00 03 C0 00 00 70 .....8.........p
0269B0: 00 00 03 C0 00 07 80 00 01 C0 00 07 80 00 00 1E ................
0269C0: 00 00 07 00 00 00 1E 00 00 78 00 00 0E 00 00 3C .........x.....<
0269D0: 00 00 00 F0 00 00 38 00 00 00 F0 00 03 C0 00 01 ......8.........
0269E0: 80 00 78 00 38 03 C0 01 C0 00 00 01 E0 00 E0 00 ..x.8...........
0269F0: 00 07 00 00 00 07 80 00 00 1C 00 1C 00 00 00 0F ................
026A00: 7F FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF ................
026A10: FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF ................
026A20: FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF ................
026A30: FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF ................
026A40: FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FE ................
026A50: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
026A60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
026A70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
026A80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
026A90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
026AA0: 80 0E 00 07 FF FF FC 00 0E 00 00 38 00 0F FF FF ...........8....
026AB0: F0 00 1C 00 00 E0 00 3F FF FF E0 00 70 00 01 C0 .......?....p...
026AC0: 00 FF FF FF 80 00 E0 00 07 00 01 FF FF FE 00 03 ................
026AD0: 80 00 1C 00 07 FF FF FC 00 0E 00 00 38 00 1F FF ............8...
026AE0: FF F0 00 1C 00 00 E0 00 3F FF FF C0 00 70 00 01 ........?....p..
026AF0: 80 00 02 1C 00 00 00 04 00 00 00 00 08 00 00 00 ................
026B00: 1C 10 00 00 00 00 21 E0 00 00 00 40 00 00 00 00 ......!....@....
026B10: 40 00 00 00 E0 80 00 00 00 01 0E 00 00 00 02 00 @...............
026B20: 00 00 00 04 00 00 00 07 08 00 00 00 00 08 70 00 ..............p.
026B30: 00 00 10 00 00 00 00 20 00 00 00 38 40 00 00 01 ....... ...8@...
026B40: 80 00 00 00 00 40 00 04 00 00 00 00 08 00 01 00 .....@..........
026B50: 00 00 00 00 00 00 00 00 02 00 00 40 00 00 00 00 ...........@....
026B60: 40 00 08 00 00 00 00 00 00 00 00 00 20 00 02 00 @........... ...
026B70: 00 00 00 04 00 00 40 00 00 00 00 00 00 00 00 01 ......@.........
026B80: 00 00 10 00 00 00 00 20 00 02 00 00 00 00 00 01 ....... ........
026B90: 80 0C 00 03 FF FF F8 00 07 FF FF F0 00 07 FF FF ................
026BA0: E0 00 0C 00 00 C0 00 1F FF FF C0 00 3F FF FF 80 ............?...
026BB0: 00 7F FF FF 00 00 60 00 06 00 00 FF FF FC 00 01 ......`.........
026BC0: FF FF F8 00 03 FF FF F8 00 06 00 00 30 00 0F FF ............0...
026BD0: FF E0 00 0F FF FF C0 00 1F FF FF 80 00 30 00 01 .............0..
026BE0: 80 00 06 03 C0 00 38 06 00 00 00 00 18 0F 00 00 ......8.........
026BF0: 00 18 00 00 00 00 60 00 00 03 C0 60 00 00 00 00 ......`....`....
026C00: 00 07 00 78 00 38 00 00 00 3C 00 1C 01 E0 00 E0 ...x.8...<......
026C10: 00 00 00 F0 00 70 00 00 03 80 00 00 01 E0 00 00 .....p..........
026C20: 0F 00 07 00 00 00 07 80 03 80 1C 00 1C 00 00 01 ................
026C30: 80 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 ................
026C40: 00 10 00 00 00 00 20 00 02 00 00 00 00 00 00 00 ...... .........
026C50: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
026C60: 00 00 00 00 00 00 40 00 08 00 00 00 00 08 00 01 ......@.........
026C70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 ................
026C80: 80 00 78 00 38 03 C0 01 C0 00 00 01 E0 00 E0 00 ..x.8...........
026C90: 00 07 00 00 00 07 80 00 00 1C 00 1C 00 00 00 0F ................
026CA0: 00 07 00 78 00 38 00 00 00 3C 00 1C 01 E0 00 E0 ...x.8...<......
026CB0: 00 00 00 F0 00 70 00 00 03 80 00 00 01 E0 00 00 .....p..........
026CC0: 0F 00 07 00 00 00 07 80 03 80 1C 00 1C 00 00 01 ................
026CD0: 80 03 80 00 0F 00 00 00 38 00 00 0E 00 00 00 78 ........8......x
026CE0: 00 00 F0 00 00 38 00 00 F0 00 00 03 C0 00 00 70 .....8.........p
026CF0: 00 00 03 C0 00 07 80 00 01 C0 00 07 80 00 00 1E ................
026D00: 00 00 07 00 00 00 1E 00 00 78 00 00 0E 00 00 3C .........x.....<
026D10: 00 00 00 F0 00 00 38 00 00 00 F0 00 03 C0 00 01 ......8.........
026D20: 80 00 00 00 00 40 00 04 00 00 00 00 08 00 01 00 .....@..........
026D30: 00 00 00 00 00 00 00 00 02 00 00 40 00 00 00 00 ...........@....
026D40: 40 00 08 00 00 00 00 00 00 00 00 00 20 00 02 00 @........... ...
026D50: 00 00 00 04 00 00 40 00 00 00 00 00 00 00 00 01 ......@.........
026D60: 00 00 10 00 00 00 00 20 00 02 00 00 00 00 00 01 ....... ........
026D70: 80 00 06 03 C0 00 00 06 00 00 00 00 18 00 00 00 ................
026D80: E0 18 00 00 00 00 60 1C 00 00 00 60 00 00 00 00 ......`....`....
026D90: C0 00 00 07 00 C0 00 00 00 03 01 E0 00 00 03 00 ................
026DA0: 00 00 00 0C 00 00 00 78 0C 00 00 00 00 18 0F 00 .......x........
026DB0: 00 00 18 00 00 00 00 60 00 00 03 C0 60 00 00 01 .......`....`...
026DC0: 80 03 80 00 07 1C 00 00 38 00 00 0E 00 00 1C 70 ........8......p
026DD0: 00 00 F0 00 00 38 00 00 78 E0 00 03 C0 00 00 70 .....8..x......p
026DE0: 00 00 E0 00 00 07 80 00 01 C0 00 00 0E 00 00 1E ................
026DF0: 00 00 07 00 00 0F 1C 00 00 78 00 00 0E 00 00 1C .........x......
026E00: C0 78 00 07 00 C0 00 00 00 03 01 E0 00 1C 03 00 .x..............
026E10: 00 00 00 0C 03 80 00 00 0C 00 00 00 00 18 00 00 ................
026E20: 00 E0 18 00 00 00 00 60 1C 00 03 C0 60 00 00 01 .......`....`...
026E30: 80 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 ................
026E40: 00 10 00 00 00 00 20 00 02 00 00 00 00 00 00 00 ...... .........
026E50: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
026E60: 00 00 00 00 00 00 40 00 08 00 00 00 00 08 00 01 ......@.........
026E70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 ................
026E80: 80 03 80 00 07 1C 00 00 38 00 00 0E 00 00 1C 00 ........8.......
026E90: 00 00 F0 00 00 38 00 00 00 E0 00 03 C0 00 00 70 .....8.........p
026EA0: 00 00 E3 80 00 07 80 00 01 C0 00 03 8E 00 00 1E ................
026EB0: 00 00 07 00 00 0F 00 00 00 78 00 00 0E 00 00 00 .........x......
026EC0: 70 00 00 F0 00 00 38 00 00 78 E0 00 03 C0 00 01 p.....8..x......
026ED0: 80 00 78 00 F0 00 00 01 C0 00 00 01 E0 00 00 07 ..x.............
026EE0: 80 07 00 00 00 07 80 0F 00 00 00 1C 00 00 00 0F ................
026EF0: 00 00 00 3C 00 38 00 00 00 3C 00 78 00 00 00 E0 ...<.8...<.x....
026F00: 00 00 00 F0 00 00 01 E0 03 80 00 00 01 E0 03 C0 ................
026F10: 00 00 07 00 00 00 07 80 00 00 0F 00 1C 00 00 01 ................
026F20: 80 00 00 00 00 40 00 04 00 00 00 00 08 00 01 00 .....@..........
026F30: 00 00 00 00 00 00 00 00 02 00 00 40 00 00 00 00 ...........@....
026F40: 40 00 08 00 00 00 00 00 00 00 00 00 20 00 02 00 @........... ...
026F50: 00 00 00 04 00 00 40 00 00 00 00 00 00 00 00 01 ......@.........
026F60: 00 00 10 00 00 00 00 20 00 02 00 00 00 00 00 01 ....... ........
026F70: 80 00 78 00 38 00 00 01 C0 00 00 01 E0 00 00 0F ..x.8...........
026F80: 00 07 00 00 00 07 80 03 80 00 00 1C 00 00 00 0F ................
026F90: 00 00 00 78 00 38 00 00 00 3C 00 1C 00 00 00 E0 ...x.8...<......
026FA0: 00 00 00 F0 00 00 03 80 03 80 00 00 01 E0 00 E0 ................
026FB0: 00 00 07 00 00 00 07 80 00 00 1C 00 1C 00 00 01 ................
026FC0: 80 00 78 00 38 03 C0 01 C0 00 00 01 E0 00 E0 0F ..x.8...........
026FD0: 00 07 00 00 00 07 80 03 80 1C 00 1C 00 00 00 0F ................
026FE0: 00 07 00 00 00 38 00 00 00 3C 00 00 01 E0 00 E0 .....8...<......
026FF0: 00 00 00 F0 00 70 03 80 03 80 00 00 01 E0 00 E0 .....p..........
027000: 70 00 00 F0 00 00 38 00 00 78 E0 00 03 C0 00 01 p.....8..x......
027010: 80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
027020: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
027030: 00 00 08 00 00 80 00 00 00 01 00 00 20 00 00 00 ............ ...
027040: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
027050: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 ................
027060: 80 00 02 1C 00 00 07 04 00 00 00 00 08 70 00 00 .............p..
027070: 1C 10 00 00 00 00 21 E0 00 00 38 40 00 00 00 00 ......!...8@....
027080: 43 80 00 00 00 80 00 00 00 01 00 00 00 03 82 00 C...............
027090: 00 00 00 04 3C 00 00 07 08 00 00 00 00 08 70 00 ....<.........p.
0270A0: 00 1C 10 00 00 00 00 21 E0 00 00 38 40 00 00 01 .......!...8@...
0270B0: 80 0C 00 03 FF FF F8 00 07 FF FF F0 00 07 FF FF ................
0270C0: E0 00 0C 00 00 C0 00 1F FF FF C0 00 3F FF FF 80 ............?...
0270D0: 00 7F FF FF 00 00 60 00 06 00 00 FF FF FC 00 01 ......`.........
0270E0: FF FF F8 00 03 FF FF F8 00 06 00 00 30 00 0F FF ............0...
0270F0: FF E0 00 0F FF FF C0 00 1F FF FF 80 00 30 00 01 .............0..
027100: 80 00 07 00 00 40 00 0C 00 00 00 00 0C 00 01 00 .....@..........
027110: 00 38 00 00 00 00 70 00 02 00 00 C0 00 00 00 00 .8....p.........
027120: 60 00 08 00 01 C0 00 00 00 03 80 00 20 00 06 00 `........... ...
027130: 00 00 00 06 00 00 40 00 1C 00 00 00 00 1C 00 01 ......@.........
027140: 00 00 30 00 00 00 00 30 00 02 00 00 E0 00 00 01 ..0....0........
027150: 80 00 02 E0 00 00 00 04 00 00 00 00 08 00 00 00 ................
027160: 03 D0 00 00 00 00 2E 00 00 00 00 40 00 00 00 00 ...........@....
027170: 40 00 00 00 1E 80 00 00 00 01 70 00 00 00 02 00 @.........p.....
027180: 00 00 00 04 00 00 00 00 E8 00 00 00 00 0B 80 00 ................
027190: 00 00 10 00 00 00 00 20 00 00 00 07 40 00 00 01 ....... ....@...
0271A0: 80 03 80 1C 00 00 07 00 38 00 00 0E 00 78 01 00 ........8....x..
0271B0: 1C 00 00 00 00 00 01 E0 02 00 38 03 C0 00 00 70 ..........8....p
0271C0: 03 80 00 00 E0 07 80 00 01 C0 0F 00 00 03 80 1E ................
0271D0: 00 00 07 00 3C 00 40 07 00 00 00 00 00 00 70 01 ....<.@.......p.
0271E0: 00 1C 00 F0 00 00 38 01 E0 00 00 70 03 C0 00 01 ......8....p....
0271F0: 80 00 0F 80 00 00 00 1F 00 00 00 00 3E 00 01 00 ............>...
027200: 0F 00 07 00 00 00 07 80 03 80 1C 00 1C 00 00 01 ................
027210: 80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
027220: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
027230: 00 00 08 00 00 80 00 00 00 01 00 00 20 00 00 00 ............ ...
027240: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
027250: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 ................
027260: 80 00 06 03 C0 00 38 06 00 00 00 00 18 0F 00 00 ......8.........
027270: E0 18 00 00 00 00 60 1C 00 03 C0 60 00 00 00 00 ......`....`....
027280: C0 78 00 00 00 C0 00 00 00 03 00 00 00 1C 03 00 .x..............
027290: 00 00 00 0C 03 80 00 78 0C 00 00 00 00 18 0F 00 .......x........
0272A0: 00 E0 18 00 00 00 00 60 1C 00 03 C0 60 00 00 01 .......`....`...
0272B0: 80 03 80 00 07 00 00 00 38 00 00 0E 00 00 00 70 ........8......p
0272C0: 00 00 F0 00 00 38 00 00 78 00 00 03 C0 00 00 70 .....8..x......p
0272D0: 00 00 03 80 00 07 80 00 01 C0 00 03 80 00 00 1E ................
0272E0: 00 00 07 00 00 00 1C 00 00 78 00 00 0E 00 00 1C .........x......
0272F0: 00 00 00 F0 00 00 38 00 00 00 E0 00 03 C0 00 01 ......8.........
027300: 80 00 00 00 00 40 00 04 00 00 00 00 08 00 01 00 .....@..........
027310: 00 00 00 00 00 00 00 00 02 00 00 40 00 00 00 00 ...........@....
027320: 40 00 08 00 00 00 00 00 00 00 00 00 20 00 02 00 @........... ...
027330: 00 00 00 04 00 00 40 00 00 00 00 00 00 00 00 01 ......@.........
027340: 00 00 10 00 00 00 00 20 00 02 00 00 00 00 00 01 ....... ........
027350: 80 00 02 1C 00 00 00 04 00 00 00 00 08 00 00 00 ................
027360: 1C 10 00 00 00 00 21 E0 00 00 00 40 00 00 00 00 ......!....@....
027370: 40 00 00 00 E0 80 00 00 00 01 0E 00 00 00 02 00 @...............
027380: 00 00 00 04 00 00 00 07 08 00 00 00 00 08 70 00 ..............p.
027390: 00 00 10 00 00 00 00 20 00 00 00 38 40 00 00 01 ....... ...8@...
0273A0: 80 0C 00 03 FF FF F8 00 06 00 00 30 00 07 FF FF ...........0....
0273B0: E0 00 0F FF FF C0 00 1F FF FF C0 00 30 00 01 80 ............0...
0273C0: 00 7F FF FF 00 00 60 00 06 00 00 FF FF FC 00 01 ......`.........
0273D0: 80 00 18 00 03 FF FF F8 00 07 FF FF F0 00 0F FF ................
0273E0: FF E0 00 0C 00 00 C0 00 1F FF FF 80 00 30 00 01 .............0..
0273F0: 80 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 ................
027400: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
027410: 21 00 00 00 02 09 4E E5 21 00 41 02 00 00 00 02 !.....N.!.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: 00 70 00 00 00 00 38 00 02 00 01 F0 00 00 00 01 .p....8.........
027510: F0 00 00 00 03 E0 00 00 00 07 C0 00 00 00 0F 80 ................
027520: 00 00 00 1F 00 00 40 00 38 00 00 00 00 0E 00 01 ......@.8.......
027530: 00 00 7C 00 00 00 00 F8 00 00 00 01 F0 00 00 01 ..|.............
027540: 80 00 03 00 00 00 00 0F FF FF FF FF FC 00 00 00 ................
027550: 00 3F FF FF FF FF F0 00 00 00 00 FF FF FF FF FF .?..............
027560: E0 00 00 00 01 80 00 00 00 01 80 00 00 00 07 FF ................
027570: FF FF FF FE 00 00 00 00 1F FF FF FF FF FC 00 00 ................
027580: 00 00 3F FF FF FF FF F0 00 00 00 00 C0 00 00 01 ..?.............
027590: 80 00 78 E0 00 40 00 F0 00 00 00 00 03 80 01 00 ..x..@..........
0275A0: 03 C7 00 00 00 07 8E 00 02 00 07 00 00 00 00 00 ................
0275B0: 1C 00 08 00 1E 38 00 00 00 3C 70 00 20 00 78 00 .....8...<p. .x.
0275C0: 00 00 00 01 C0 00 40 00 E3 80 00 00 01 E3 80 01 ......@.........
0275D0: 00 03 C0 00 00 00 00 0E 00 02 00 0F 1C 00 00 01 ................
0275E0: 80 00 78 E0 00 40 00 F0 00 00 00 00 03 80 01 00 ..x..@..........
0275F0: 03 C7 00 00 00 07 8E 00 02 00 07 00 00 00 00 00 ................
027600: 1C 00 08 00 1E 38 00 00 00 3C 70 00 20 00 78 00 .....8...<p. .x.
027610: 00 00 00 01 C0 00 40 00 E3 80 00 00 01 E3 80 01 ......@.........
027620: 00 03 C0 00 00 00 00 0E 00 02 00 0F 1C 00 00 01 ................
027630: 80 00 02 E0 00 00 00 F4 00 00 00 00 0B 80 00 00 ................
027640: 03 D0 00 00 00 00 2E 00 00 00 07 40 00 00 00 00 ...........@....
027650: 5C 00 00 00 1E 80 00 00 00 01 70 00 00 00 7A 00 \.........p...z.
027660: 00 00 00 05 C0 00 00 00 E8 00 00 00 00 0B 80 00 ................
027670: 00 03 D0 00 00 00 00 2E 00 00 00 07 40 00 00 01 ............@...
027680: 80 00 07 00 00 00 00 0E 00 00 00 00 1C 00 00 00 ................
027690: 00 38 00 00 00 00 70 00 00 00 00 E0 00 00 00 00 .8....p.........
0276A0: E0 00 00 00 01 C0 00 00 00 03 80 00 00 00 07 00 ................
0276B0: 00 00 00 0E 00 00 00 00 1C 00 00 00 00 1C 00 00 ................
0276C0: 00 00 38 00 00 00 00 70 00 00 00 00 E0 00 00 01 ..8....p........
0276D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0276E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0276F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
027700: 7F FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF ................
027710: FF FF FF FF FF FF B6 3B 6D A7 3E E3 87 BE ED A7 .......;m.>.....
027720: F8 EF 8E 1A 7F CE 1B 6D 8E 3F E3 EF FB FB 8E 3F .......m.?.....?
027730: F3 B6 3F EF 8F FB 7B CE DB 63 FF FF FF FF FF FF ..?...{..c......
027740: FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FE ................
027750: 80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
027760: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
027770: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
027780: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
027790: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 ................
0277A0: 80 00 06 03 C0 00 38 06 00 00 00 00 18 0F 00 00 ......8.........
0277B0: E0 18 00 00 00 00 60 1C 00 03 C0 60 00 00 00 00 ......`....`....
0277C0: C0 78 00 07 00 C0 00 00 00 03 01 E0 00 1C 03 00 .x..............
0277D0: 00 00 00 0C 03 80 00 78 0C 00 00 00 00 18 0F 00 .......x........
0277E0: 00 E0 18 00 00 00 00 60 1C 00 03 C0 60 00 00 01 .......`....`...
0277F0: 80 03 80 00 07 00 00 00 38 00 00 0E 00 00 00 70 ........8......p
027800: 00 00 F0 00 00 38 00 00 78 00 00 03 C0 00 00 70 .....8..x......p
027810: 00 00 03 80 00 07 80 00 01 C0 00 03 80 00 00 1E ................
027820: 00 00 07 00 00 00 1C 00 00 78 00 00 0E 00 00 1C .........x......
027830: 00 00 00 F0 00 00 38 00 00 00 E0 00 03 C0 00 01 ......8.........
027840: 80 00 00 00 00 40 00 04 00 00 00 00 08 00 01 00 .....@..........
027850: 00 00 00 00 00 00 00 00 02 00 00 40 00 00 00 00 ...........@....
027860: 40 00 08 00 00 00 00 00 00 00 00 00 20 00 02 00 @........... ...
027870: 00 00 00 04 00 00 40 00 00 00 00 00 00 00 00 01 ......@.........
027880: 00 00 10 00 00 00 00 20 00 02 00 00 00 00 00 01 ....... ........
027890: 80 00 06 0F 00 00 00 06 00 00 00 00 18 00 00 00 ................
0278A0: 78 18 00 00 00 00 60 F0 00 00 00 60 00 00 00 00 x.....`....`....
0278B0: C0 00 00 03 C0 C0 00 00 00 03 07 80 00 00 03 00 ................
0278C0: 00 00 00 0C 00 00 00 1E 0C 00 00 00 00 18 3C 00 ..............<.
0278D0: 00 00 18 00 00 00 00 60 00 00 00 F0 60 00 00 01 .......`....`...
0278E0: 80 0C 00 03 FF FF F8 00 06 00 00 30 00 07 FF FF ...........0....
0278F0: E0 00 0F FF FF C0 00 1F FF FF C0 00 30 00 01 80 ............0...
027900: 7F FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF ................
027910: FF FF FF FF FF FF B6 F8 6D 96 FE ED B7 BE ED 97 ........m.......
027920: FB EF B6 D9 7F BE DB 6D BE DF EF EF FB FB B6 FF .......m........
027930: EF B6 DF EF BF FB 7B BE DB 6F FF FF FF FF FF FF ......{..o......
027940: FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FE ................
027950: 80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
027960: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
027970: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
027980: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
027990: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 ................
0279A0: 80 00 78 00 38 03 C0 01 C0 00 00 01 E0 00 E0 0F ..x.8...........
0279B0: 00 07 00 00 00 07 80 03 80 1C 00 1C 00 00 00 0F ................
0279C0: 00 07 00 78 00 38 00 00 00 3C 00 1C 01 E0 00 E0 ...x.8...<......
0279D0: 00 00 00 F0 00 70 03 80 03 80 00 00 01 E0 00 E0 .....p..........
0279E0: 0F 00 07 00 00 00 07 80 03 80 1C 00 1C 00 00 01 ................
0279F0: 80 00 78 00 38 00 00 01 C0 00 00 01 E0 00 00 0F ..x.8...........
027A00: 00 07 00 00 00 07 80 03 80 00 00 1C 00 00 00 0F ................
027A10: 00 00 00 78 00 38 00 00 00 3C 00 1C 00 00 00 E0 ...x.8...<......
027A20: 00 00 00 F0 00 00 03 80 03 80 00 00 01 E0 00 E0 ................
027A30: 00 00 07 00 00 00 07 80 00 00 1C 00 1C 00 00 01 ................
027A40: 80 00 00 00 00 40 00 04 00 00 00 00 08 00 01 00 .....@..........
027A50: 00 00 00 00 00 00 00 00 02 00 00 40 00 00 00 00 ...........@....
027A60: 40 00 08 00 00 00 00 00 00 00 00 00 20 00 02 00 @........... ...
027A70: 00 00 00 04 00 00 40 00 00 00 00 00 00 00 00 01 ......@.........
027A80: 00 00 10 00 00 00 00 20 00 02 00 00 00 00 00 01 ....... ........
027A90: 80 00 78 00 F0 00 00 01 C0 00 00 01 E0 00 00 07 ..x.............
027AA0: 80 07 00 00 00 07 80 0F 00 00 00 1C 00 00 00 0F ................
027AB0: 00 00 00 3C 00 38 00 00 00 3C 00 78 00 00 00 E0 ...<.8...<.x....
027AC0: 00 00 00 F0 00 00 01 E0 03 80 00 00 01 E0 03 C0 ................
027AD0: 00 00 07 00 00 00 07 80 00 00 0F 00 1C 00 00 01 ................
027AE0: 80 03 80 00 07 1C 00 00 38 00 00 0E 00 00 1C 00 ........8.......
027AF0: 00 00 F0 00 00 38 00 00 00 E0 00 03 C0 00 00 70 .....8.........p
027B00: 00 7F FF FF 00 00 60 00 06 00 00 FF FF FC 00 01 ......`.........
027B10: 80 00 18 00 03 FF FF F8 00 07 FF FF F0 00 0F FF ................
027B20: FF E0 00 0C 00 00 C0 00 1F FF FF 80 00 30 00 01 .............0..
027B30: 80 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 ................
027B40: 00 10 00 00 00 00 20 00 02 00 00 00 00 00 00 00 ...... .........
027B50: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
027B60: 00 00 00 00 00 00 40 00 08 00 00 00 00 08 00 01 ......@.........
027B70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 ................
027B80: 80 00 02 1C 00 00 07 04 00 00 00 00 08 70 00 00 .............p..
027B90: 00 10 00 00 00 00 20 00 00 00 38 40 00 00 00 00 ...... ...8@....
027BA0: 43 80 00 00 E0 80 00 00 00 01 0E 00 00 03 82 00 C...............
027BB0: 00 00 00 04 3C 00 00 00 08 00 00 00 00 08 00 00 ....<...........
027BC0: 00 1C 10 00 00 00 00 21 E0 00 00 38 40 00 00 01 .......!...8@...
027BD0: 80 03 80 1C 00 40 07 00 00 00 00 00 00 78 01 00 .....@.......x..
027BE0: 1C 00 F0 00 00 38 01 E0 02 00 38 00 00 00 00 00 .....8....8.....
027BF0: 03 80 08 00 E0 07 80 00 01 C0 0F 00 20 03 80 00 ............ ...
027C00: 00 00 00 00 3C 00 40 07 00 78 00 00 0E 00 70 01 ....<.@..x....p.
027C10: 00 1C 00 00 00 00 00 01 E0 02 00 70 03 C0 00 01 ...........p....
027C20: 80 00 07 00 00 40 00 0C 00 00 00 00 0C 00 01 00 .....@..........
027C30: 00 38 00 00 00 00 70 00 02 00 00 C0 00 00 00 00 .8....p.........
027C40: 60 00 08 00 01 C0 00 00 00 03 80 00 20 00 06 00 `........... ...
027C50: 00 00 00 06 00 00 40 00 1C 00 00 00 00 1C 00 01 ......@.........
027C60: 00 00 30 00 00 00 00 30 00 02 00 00 E0 00 00 01 ..0....0........
027C70: 80 00 02 E0 00 00 00 04 00 00 00 00 08 00 00 00 ................
027C80: 03 D0 00 00 00 00 2E 00 00 00 00 40 00 00 00 00 ...........@....
027C90: 40 00 00 00 1E 80 00 00 00 01 70 00 00 00 02 00 @.........p.....
027CA0: 00 00 00 04 00 00 00 00 E8 00 00 00 00 0B 80 00 ................
027CB0: 00 00 10 00 00 00 00 20 00 00 00 07 40 00 00 01 ....... ....@...
027CC0: 80 01 F0 78 00 00 03 E0 F0 00 00 07 C1 F0 00 00 ...x............
027CD0: 0F 83 E0 00 00 1F 07 C0 00 00 1E 0F 80 00 00 3E ...............>
027CE0: 0F 00 08 00 7C 00 00 00 00 00 3E 00 20 01 F0 7C ....|.....>. ..|
027CF0: 00 00 03 E0 F8 00 00 03 C1 F0 00 00 07 C1 E0 00 ................
027D00: 00 00 E3 80 00 07 80 00 01 C0 00 03 8E 00 00 1E ................
027D10: 00 00 07 00 00 0F 00 00 00 78 00 00 0E 00 00 00 .........x......
027D20: 70 00 00 F0 00 00 38 00 00 78 E0 00 03 C0 00 01 p.....8..x......
027D30: 80 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 ................
027D40: 00 10 00 00 00 00 20 00 02 00 00 00 00 00 00 00 ...... .........
027D50: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
027D60: 00 00 00 00 00 00 40 00 08 00 00 00 00 08 00 01 ......@.........
027D70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 ................
027D80: 80 00 06 03 C0 00 38 06 00 00 00 00 18 0F 00 00 ......8.........
027D90: 00 18 00 00 00 00 60 00 00 03 C0 60 00 00 00 00 ......`....`....
027DA0: C0 78 00 07 00 C0 00 00 00 03 01 E0 00 1C 03 00 .x..............
027DB0: 00 00 00 0C 03 80 00 00 0C 00 00 00 00 18 00 00 ................
027DC0: 00 E0 18 00 00 00 00 60 1C 00 03 C0 60 00 00 01 .......`....`...
027DD0: 80 0C 00 03 FF FF F8 00 07 FF FF F0 00 07 FF FF ................
027DE0: E0 00 0C 00 00 C0 00 1F FF FF C0 00 3F FF FF 80 ............?...
027DF0: 00 7F FF FF 00 00 60 00 06 00 00 FF FF FC 00 01 ......`.........
027E00: FF FF F8 00 03 FF FF F8 00 06 00 00 30 00 0F FF ............0...
027E10: FF E0 00 0F FF FF C0 00 1F FF FF 80 00 30 00 01 .............0..
027E20: 80 00 00 00 00 40 00 04 00 00 00 00 08 00 01 00 .....@..........
027E30: 00 00 00 00 00 00 00 00 02 00 00 40 00 00 00 00 ...........@....
027E40: 40 00 08 00 00 00 00 00 00 00 00 00 20 00 02 00 @........... ...
027E50: 00 00 00 04 00 00 40 00 00 00 00 00 00 00 00 01 ......@.........
027E60: 00 00 10 00 00 00 00 20 00 02 00 00 00 00 00 01 ....... ........
027E70: 80 00 02 1C 00 00 00 04 00 00 00 00 08 00 00 00 ................
027E80: 1C 10 00 00 00 00 21 E0 00 00 00 40 00 00 00 00 ......!....@....
027E90: 40 00 00 00 E0 80 00 00 00 01 0E 00 00 00 02 00 @...............
027EA0: 00 00 00 04 00 00 00 07 08 00 00 00 00 08 70 00 ..............p.
027EB0: 00 00 10 00 00 00 00 20 00 00 00 38 40 00 00 01 ....... ...8@...
027EC0: 80 0E 00 07 FF FF FC 00 0E 00 00 38 00 0F FF FF ...........8....
027ED0: F0 00 1C 00 00 E0 00 3F FF FF E0 00 70 00 01 C0 .......?....p...
027EE0: 00 FF FF FF 80 00 7F FF FE 00 01 FF FF FE 00 03 ................
027EF0: 80 00 1C 00 07 FF FF FC 00 0E 00 00 38 00 1F FF ............8...
027F00: 00 0F 83 E0 00 00 1F 07 C0 00 00 3E 0F 80 00 01 ...........>....
027F10: 80 00 78 E0 00 00 00 F1 C0 00 00 01 E3 80 00 00 ..x.............
027F20: 03 C7 00 00 00 07 8E 00 00 00 07 1C 00 00 00 0F ................
027F30: 1C 00 08 00 1E 00 00 00 00 00 70 00 20 00 78 E0 ..........p. .x.
027F40: 00 00 00 F1 C0 00 00 00 E3 80 00 00 01 E3 80 00 ................
027F50: 00 03 C7 00 00 00 07 8E 00 00 00 0F 1C 00 00 01 ................
027F60: 80 00 03 00 00 00 00 0F FF FF FF FF FC 00 00 00 ................
027F70: 00 30 00 00 00 00 30 00 00 00 00 FF FF FF FF FF .0....0.........
027F80: E0 00 00 00 01 FF FF FF FF FF 80 00 00 00 07 FF ................
027F90: FF FF FF FE 00 00 00 00 18 00 00 00 00 0C 00 00 ................
027FA0: 00 00 3F FF FF FF FF F0 00 00 00 00 C0 00 00 01 ..?.............
027FB0: 80 00 78 E0 00 40 00 F0 00 00 00 00 03 80 01 00 ..x..@..........
027FC0: 03 C7 00 00 00 07 8E 00 02 00 07 00 00 00 00 00 ................
027FD0: 1C 00 08 00 1E 38 00 00 00 3C 70 00 20 00 78 00 .....8...<p. .x.
027FE0: 00 00 00 01 C0 00 40 00 E3 80 00 00 01 E3 80 01 ......@.........
027FF0: 00 03 C0 00 00 00 00 0E 00 02 00 0F 1C 00 00 01 ................
028000: 80 03 80 1C 00 40 07 00 00 00 00 00 00 78 01 00 .....@.......x..
028010: 1C 00 F0 00 00 38 01 E0 02 00 38 00 00 00 00 00 .....8....8.....
028020: 03 80 08 00 E0 07 80 00 01 C0 0F 00 20 03 80 00 ............ ...
028030: 00 00 00 00 3C 00 40 07 00 78 00 00 0E 00 70 01 ....<.@..x....p.
028040: 00 1C 00 00 00 00 00 01 E0 02 00 70 03 C0 00 01 ...........p....
028050: 80 00 02 E0 00 00 00 F4 00 00 00 00 0B 80 00 00 ................
028060: 00 10 00 00 00 00 20 00 00 00 07 40 00 00 00 00 ...... ....@....
028070: 5C 00 00 00 1E 80 00 00 00 01 70 00 00 00 7A 00 \.........p...z.
028080: 00 00 00 05 C0 00 00 00 08 00 00 00 00 08 00 00 ................
028090: 00 03 D0 00 00 00 00 2E 00 00 00 07 40 00 00 01 ............@...
0280A0: 80 00 07 00 00 00 00 0E 00 00 00 00 1C 00 01 00 ................
0280B0: 00 30 00 00 00 00 30 00 02 00 00 E0 00 00 00 00 .0....0.........
0280C0: E0 00 00 00 01 C0 00 00 00 03 80 00 00 00 07 00 ................
0280D0: 00 00 00 0E 00 00 40 00 18 00 00 00 00 0C 00 01 ......@.........
0280E0: 00 00 38 00 00 00 00 70 00 00 00 00 E0 00 00 01 ..8....p........
0280F0: 80 0E 00 07 FF FF FC 00 0E 00 00 38 00 0F FF FF ...........8....
028100: FF F0 00 1C 00 00 E0 00 3F FF FF C0 00 70 00 01 ........?....p..
028110: 80 00 07 00 00 00 00 0E 00 00 00 00 1C 00 00 00 ................
028120: 00 38 00 00 00 00 70 00 00 00 00 E0 00 00 00 00 .8....p.........
028130: E0 00 08 00 01 80 00 00 00 01 80 00 20 00 07 00 ............ ...
028140: 00 00 00 0E 00 00 00 00 1C 00 00 00 00 1C 00 00 ................
028150: 00 00 38 00 00 00 00 70 00 00 00 00 E0 00 00 01 ..8....p........
028160: 80 00 02 E0 00 00 00 F4 00 00 00 00 0B 80 00 00 ................
028170: 03 D0 00 00 00 00 2E 00 00 00 07 40 00 00 00 00 ...........@....
028180: 5C 00 00 00 00 80 00 00 00 01 00 00 00 00 7A 00 \.............z.
028190: 00 00 00 05 C0 00 00 00 E8 00 00 00 00 0B 80 00 ................
0281A0: 00 03 D0 00 00 00 00 2E 00 00 00 07 40 00 00 01 ............@...
0281B0: 80 03 80 1C 00 40 07 00 00 00 00 00 00 78 01 00 .....@.......x..
0281C0: 1C 00 F0 00 00 38 01 E0 02 00 38 00 00 00 00 00 .....8....8.....
0281D0: 03 80 08 00 E0 07 80 00 01 C0 0F 00 20 03 80 00 ............ ...
0281E0: 00 00 00 00 3C 00 40 07 00 78 00 00 0E 00 70 01 ....<.@..x....p.
0281F0: 00 1C 00 00 00 00 00 01 E0 02 00 70 03 C0 00 01 ...........p....
028200: 80 00 78 E0 00 40 00 F0 00 00 00 00 03 80 01 00 ..x..@..........
028210: 03 C7 00 00 00 07 8E 00 02 00 07 00 00 00 00 00 ................
028220: 1C 00 08 00 1E 38 00 00 00 3C 70 00 20 00 78 00 .....8...<p. .x.
028230: 00 00 00 01 C0 00 40 00 E3 80 00 00 01 E3 80 01 ......@.........
028240: 00 03 C0 00 00 00 00 0E 00 02 00 0F 1C 00 00 01 ................
028250: 80 00 03 00 00 00 00 0F FF FF FF FF FC 00 00 00 ................
028260: 00 3F FF FF FF FF F0 00 00 00 00 FF FF FF FF FF .?..............
028270: E0 00 00 00 01 80 00 00 00 01 80 00 00 00 07 FF ................
028280: FF FF FF FE 00 00 00 00 1F FF FF FF FF FC 00 00 ................
028290: 00 00 3F FF FF FF FF F0 00 00 00 00 C0 00 00 01 ..?.............
0282A0: 80 00 78 E0 00 00 00 F1 C0 00 00 01 E3 80 01 00 ..x.............
0282B0: 03 C0 00 00 00 00 0E 00 02 00 07 1C 00 00 00 0F ................
0282C0: 1C 00 00 00 1E 38 00 00 00 3C 70 00 00 00 78 E0 .....8...<p...x.
0282D0: 00 00 00 F1 C0 00 40 00 E0 00 00 00 00 03 80 01 ......@.........
0282E0: 00 03 C7 00 00 00 07 8E 00 00 00 0F 1C 00 00 01 ................
0282F0: 80 01 F0 78 00 00 03 E0 F0 00 00 07 C1 F0 01 00 ...x............
028300: F0 00 0F FF FF C0 00 3F FF FF E0 00 70 00 01 C0 .......?....p...
028310: 00 FF FF FF 80 00 E0 00 07 00 01 FF FF FE 00 03 ................
028320: 80 00 1C 00 07 FF FF FC 00 07 FF FF F0 00 1F FF ................
028330: FF F0 00 1C 00 00 E0 00 3F FF FF C0 00 70 00 01 ........?....p..
028340: 80 00 02 1C 00 00 00 04 00 00 00 00 08 00 00 00 ................
028350: 1C 10 00 00 00 00 21 E0 00 00 00 40 00 00 00 00 ......!....@....
028360: 40 00 00 00 E0 80 00 00 00 01 0E 00 00 00 02 00 @...............
028370: 00 00 00 04 00 00 00 07 08 00 00 00 00 08 70 00 ..............p.
028380: 00 00 10 00 00 00 00 20 00 00 00 38 40 00 00 01 ....... ...8@...
028390: 80 00 00 00 00 40 00 04 00 00 00 00 08 00 01 00 .....@..........
0283A0: 00 00 00 00 00 00 00 00 02 00 00 40 00 00 00 00 ...........@....
0283B0: 40 00 08 00 00 00 00 00 00 00 00 00 20 00 02 00 @........... ...
0283C0: 00 00 00 04 00 00 40 00 00 00 00 00 00 00 00 01 ......@.........
0283D0: 00 00 10 00 00 00 00 20 00 02 00 00 00 00 00 01 ....... ........
0283E0: 80 0C 00 03 FF FF F8 00 07 FF FF F0 00 07 FF FF ................
0283F0: E0 00 0C 00 00 C0 00 1F FF FF C0 00 3F FF FF 80 ............?...
028400: 00 7F FF FF 00 00 60 00 06 00 00 FF FF FC 00 01 ......`.........
028410: FF FF F8 00 03 FF FF F8 00 06 00 00 30 00 0F FF ............0...
028420: FF E0 00 0F FF FF C0 00 1F FF FF 80 00 30 00 01 .............0..
028430: 80 00 06 03 C0 00 38 06 00 00 00 00 18 0F 00 00 ......8.........
028440: E0 18 00 00 00 00 60 1C 00 03 C0 60 00 00 00 00 ......`....`....
028450: C0 78 00 07 00 C0 00 00 00 03 01 E0 00 1C 03 00 .x..............
028460: 00 00 00 0C 03 80 00 78 0C 00 00 00 00 18 0F 00 .......x........
028470: 00 E0 18 00 00 00 00 60 1C 00 03 C0 60 00 00 01 .......`....`...
028480: 80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
028490: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0284A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0284B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0284C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 ................
0284D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0284E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0284F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
028500: 0F 80 00 00 00 00 07 C0 02 00 1E 0F 80 00 00 3E ...............>
028510: 0F 00 00 00 7C 1F 00 00 00 F8 3E 00 00 01 F0 7C ....|.....>....|
028520: 00 00 03 E0 F8 00 40 03 C0 00 00 00 00 01 E0 01 ......@.........
028530: 00 0F 83 E0 00 00 1F 07 C0 00 00 3E 0F 80 00 01 ...........>....
028540: 80 00 02 E0 00 00 00 04 00 00 00 00 08 00 00 00 ................
028550: 03 D0 00 00 00 00 2E 00 00 00 00 40 00 00 00 00 ...........@....
028560: 40 00 00 00 1E 80 00 00 00 01 70 00 00 00 02 00 @.........p.....
028570: 00 00 00 04 00 00 00 00 E8 00 00 00 00 0B 80 00 ................
028580: 00 00 10 00 00 00 00 20 00 00 00 07 40 00 00 01 ....... ....@...
028590: 80 00 07 00 00 40 00 0C 00 00 00 00 0C 00 01 00 .....@..........
0285A0: 00 38 00 00 00 00 70 00 02 00 00 C0 00 00 00 00 .8....p.........
0285B0: 60 00 08 00 01 C0 00 00 00 03 80 00 20 00 06 00 `........... ...
0285C0: 00 00 00 06 00 00 40 00 1C 00 00 00 00 1C 00 01 ......@.........
0285D0: 00 00 30 00 00 00 00 30 00 02 00 00 E0 00 00 01 ..0....0........
0285E0: 80 03 80 1C 00 40 07 00 00 00 00 00 00 78 01 00 .....@.......x..
0285F0: 1C 00 F0 00 00 38 01 E0 02 00 38 00 00 00 00 00 .....8....8.....
028600: 03 80 08 00 E0 07 80 00 01 C0 0F 00 20 03 80 00 ............ ...
028610: 00 00 00 00 3C 00 40 07 00 78 00 00 0E 00 70 01 ....<.@..x....p.
028620: 00 1C 00 00 00 00 00 01 E0 02 00 70 03 C0 00 01 ...........p....
028630: 80 00 02 1C 00 00 07 04 00 00 00 00 08 70 00 00 .............p..
028640: 1C 10 00 00 00 00 21 E0 00 00 38 40 00 00 00 00 ......!...8@....
028650: 43 80 00 00 E0 80 00 00 00 01 0E 00 00 03 82 00 C...............
028660: 00 00 00 04 3C 00 00 07 08 00 00 00 00 08 70 00 ....<.........p.
028670: 00 1C 10 00 00 00 00 21 E0 00 00 38 40 00 00 01 .......!...8@...
028680: 80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
028690: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0286A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0286B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0286C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 ................
0286D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0286E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0286F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
028700: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
028710: 22 00 00 00 02 09 4E E5 22 00 41 02 00 00 00 02 ".....N.".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: 7F FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF ................
028810: FF FF FF FF FF FF B6 FB 6D B7 DE EB B7 BE ED B7 ........m.......
028820: FB EF AE DB 7F F6 DB 6D BE BF EF EF FB FB AE FF .......m........
028830: FD B6 BF EF BF FB 7B F6 9B 6F FF FF FF FF FF FF ......{..o......
028840: FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FE ................
028850: 80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
028860: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
028870: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
028880: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
028890: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 ................
0288A0: 80 00 02 1C 00 00 07 04 00 00 00 00 08 70 00 00 .............p..
0288B0: 1C 10 00 00 00 00 21 E0 00 00 38 40 00 00 00 00 ......!...8@....
0288C0: 43 80 00 00 E0 80 00 00 00 01 0E 00 00 03 82 00 C...............
0288D0: 00 00 00 04 3C 00 00 07 08 00 00 00 00 08 70 00 ....<.........p.
0288E0: 00 1C 10 00 00 00 00 21 E0 00 00 38 40 00 00 01 .......!...8@...
0288F0: 80 0C 00 03 FF FF F8 00 07 FF FF F0 00 07 FF FF ................
028900: E0 00 0C 00 00 C0 00 1F FF FF C0 00 3F FF FF 80 ............?...
028910: 00 7F FF FF 00 00 60 00 06 00 00 FF FF FC 00 01 ......`.........
028920: FF FF F8 00 03 FF FF F8 00 06 00 00 30 00 0F FF ............0...
028930: FF E0 00 0F FF FF C0 00 1F FF FF 80 00 30 00 01 .............0..
028940: 80 00 00 00 00 40 00 04 00 00 00 00 08 00 01 00 .....@..........
028950: 00 00 00 00 00 00 00 00 02 00 00 40 00 00 00 00 ...........@....
028960: 40 00 08 00 00 00 00 00 00 00 00 00 20 00 02 00 @........... ...
028970: 00 00 00 04 00 00 40 00 00 00 00 00 00 00 00 01 ......@.........
028980: 00 00 10 00 00 00 00 20 00 02 00 00 00 00 00 01 ....... ........
028990: 80 00 02 F0 00 00 00 04 00 00 00 00 08 00 00 00 ................
0289A0: 07 90 00 00 00 00 2F 00 00 00 00 40 00 00 00 00 ....../....@....
0289B0: 40 00 00 00 3C 80 00 00 00 01 78 00 00 00 02 00 @...<.....x.....
0289C0: 00 00 00 04 00 00 00 01 E8 00 00 00 00 0B C0 00 ................
0289D0: 00 00 10 00 00 00 00 20 00 00 00 0F 40 00 00 01 ....... ....@...
0289E0: 80 03 80 1C 00 00 07 00 38 00 00 0E 00 78 01 00 ........8....x..
0289F0: 1C 00 00 00 00 00 01 E0 02 00 38 03 C0 00 00 70 ..........8....p
028A00: 1C 00 00 00 1E 38 00 00 00 3C 70 00 00 00 78 E0 .....8...<p...x.
028A10: 00 00 00 F1 C0 00 40 00 E0 00 00 00 00 03 80 01 ......@.........
028A20: 00 03 C7 00 00 00 07 8E 00 00 00 0F 1C 00 00 01 ................
028A30: 80 00 78 E0 00 00 00 F1 C0 00 00 01 E3 80 01 00 ..x.............
028A40: 03 C0 00 00 00 00 0E 00 02 00 07 1C 00 00 00 0F ................
028A50: 1C 00 00 00 1E 38 00 00 00 3C 70 00 00 00 78 E0 .....8...<p...x.
028A60: 00 00 00 F1 C0 00 40 00 E0 00 00 00 00 03 80 01 ......@.........
028A70: 00 03 C7 00 00 00 07 8E 00 00 00 0F 1C 00 00 01 ................
028A80: 80 00 03 00 00 00 00 0F FF FF FF FF FC 00 00 00 ................
028A90: 00 7F FF FF FF FF F0 00 00 00 00 FF FF FF FF FF ................
028AA0: E0 00 00 00 03 80 00 00 00 01 80 00 00 00 07 FF ................
028AB0: FF FF FF FE 00 00 00 00 1F FF FF FF FF FC 00 00 ................
028AC0: 00 00 3F FF FF FF FF F0 00 00 00 00 C0 00 00 01 ..?.............
028AD0: 80 00 07 00 00 40 00 0C 00 00 00 00 0C 00 01 00 .....@..........
028AE0: 00 38 00 00 00 00 70 00 02 00 00 C0 00 00 00 00 .8....p.........
028AF0: 60 00 08 00 01 C0 00 00 00 03 80 00 20 00 06 00 `........... ...
028B00: 00 00 00 06 00 00 40 00 1C 00 00 00 00 1C 00 01 ......@.........
028B10: 00 00 30 00 00 00 00 30 00 02 00 00 E0 00 00 01 ..0....0........
028B20: 80 03 80 1C 00 40 07 00 00 00 00 00 00 78 01 00 .....@.......x..
028B30: 1C 00 F0 00 00 38 01 E0 02 00 38 00 00 00 00 00 .....8....8.....
028B40: 03 80 08 00 E0 07 80 00 01 C0 0F 00 20 03 80 00 ............ ...
028B50: 00 00 00 00 3C 00 40 07 00 78 00 00 0E 00 70 01 ....<.@..x....p.
028B60: 00 1C 00 00 00 00 00 01 E0 02 00 70 03 C0 00 01 ...........p....
028B70: 80 00 02 E0 00 00 00 F4 00 00 00 00 0B 80 00 00 ................
028B80: 03 D0 00 00 00 00 2E 00 00 00 07 40 00 00 00 00 ...........@....
028B90: 5C 00 00 00 00 80 00 00 00 01 00 00 00 00 7A 00 \.............z.
028BA0: 00 00 00 05 C0 00 00 00 E8 00 00 00 00 0B 80 00 ................
028BB0: 00 03 D0 00 00 00 00 2E 00 00 00 07 40 00 00 01 ............@...
028BC0: 80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
028BD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
028BE0: 00 00 08 00 00 80 00 00 00 01 00 00 20 00 00 00 ............ ...
028BF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
028C00: 03 80 00 00 E0 07 80 00 01 C0 0F 00 00 03 80 1E ................
028C10: 00 00 07 00 3C 00 40 07 00 00 00 00 00 00 70 01 ....<.@.......p.
028C20: 00 1C 00 F0 00 00 38 01 E0 00 00 70 03 C0 00 01 ......8....p....
028C30: 80 00 07 00 00 00 00 0E 00 00 00 00 1C 00 01 00 ................
028C40: 00 30 00 00 00 00 30 00 02 00 00 E0 00 00 00 00 .0....0.........
028C50: E0 00 00 00 01 C0 00 00 00 03 80 00 00 00 07 00 ................
028C60: 00 00 00 0E 00 00 40 00 18 00 00 00 00 0C 00 01 ......@.........
028C70: 00 00 38 00 00 00 00 70 00 00 00 00 E0 00 00 01 ..8....p........
028C80: 80 00 02 E0 00 00 00 F4 00 00 00 00 0B 80 00 00 ................
028C90: 00 10 00 00 00 00 20 00 00 00 07 40 00 00 00 00 ...... ....@....
028CA0: 5C 00 00 00 1E 80 00 00 00 01 70 00 00 00 7A 00 \.........p...z.
028CB0: 00 00 00 05 C0 00 00 00 08 00 00 00 00 08 00 00 ................
028CC0: 00 03 D0 00 00 00 00 2E 00 00 00 07 40 00 00 01 ............@...
028CD0: 80 00 78 E0 00 40 00 F0 00 00 00 00 03 80 01 00 ..x..@..........
028CE0: 03 C7 00 00 00 07 8E 00 02 00 07 00 00 00 00 00 ................
028CF0: 1C 00 08 00 1E 38 00 00 00 3C 70 00 20 00 78 00 .....8...<p. .x.
028D00: 00 00 00 01 C0 00 40 00 E3 80 00 00 01 E3 80 01 ......@.........
028D10: 00 03 C0 00 00 00 00 0E 00 02 00 0F 1C 00 00 01 ................
028D20: 80 00 78 E0 00 40 00 F0 00 00 00 00 03 80 01 00 ..x..@..........
028D30: 03 C7 00 00 00 07 8E 00 02 00 07 00 00 00 00 00 ................
028D40: 1C 00 08 00 1E 38 00 00 00 3C 70 00 20 00 78 00 .....8...<p. .x.
028D50: 00 00 00 01 C0 00 40 00 E3 80 00 00 01 E3 80 01 ......@.........
028D60: 00 03 C0 00 00 00 00 0E 00 02 00 0F 1C 00 00 01 ................
028D70: 80 00 03 00 00 00 00 0F FF FF FF FF FC 00 00 00 ................
028D80: 00 30 00 00 00 00 30 00 00 00 00 FF FF FF FF FF .0....0.........
028D90: E0 00 00 00 01 FF FF FF FF FF 80 00 00 00 07 FF ................
028DA0: FF FF FF FE 00 00 00 00 18 00 00 00 00 0C 00 00 ................
028DB0: 00 00 3F FF FF FF FF F0 00 00 00 00 C0 00 00 01 ..?.............
028DC0: 80 00 0F 80 00 00 00 1F 00 00 00 00 3E 00 00 00 ............>...
028DD0: 00 7C 00 00 00 00 F8 00 00 00 01 F0 00 00 00 01 .|..............
028DE0: F0 00 08 00 03 80 00 00 00 01 C0 00 20 00 0F 80 ............ ...
028DF0: 00 00 00 1F 00 00 00 00 3E 00 00 00 00 3E 00 00 ........>....>..
028E00: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 ................
028E10: 80 0C 00 03 FF FF F8 00 06 00 00 30 00 07 FF FF ...........0....
028E20: E0 00 0C 00 00 C0 00 1F FF FF C0 00 30 00 01 80 ............0...
028E30: 00 7F FF FF 00 00 7F FF FE 00 00 FF FF FC 00 01 ................
028E40: 80 00 18 00 03 FF FF F8 00 06 00 00 30 00 0F FF ............0...
028E50: FF E0 00 0C 00 00 C0 00 1F FF FF 80 00 30 00 01 .............0..
028E60: 80 00 02 1C 00 00 00 04 00 00 00 00 08 00 00 00 ................
028E70: 1C 10 00 00 00 00 21 E0 00 00 00 40 00 00 00 00 ......!....@....
028E80: 40 00 00 00 E0 80 00 00 00 01 0E 00 00 00 02 00 @...............
028E90: 00 00 00 04 00 00 00 07 08 00 00 00 00 08 70 00 ..............p.
028EA0: 00 00 10 00 00 00 00 20 00 00 00 38 40 00 00 01 ....... ...8@...
028EB0: 80 00 00 00 00 40 00 04 00 00 00 00 08 00 01 00 .....@..........
028EC0: 00 00 00 00 00 00 00 00 02 00 00 40 00 00 00 00 ...........@....
028ED0: 40 00 08 00 00 00 00 00 00 00 00 00 20 00 02 00 @........... ...
028EE0: 00 00 00 04 00 00 40 00 00 00 00 00 00 00 00 01 ......@.........
028EF0: 00 00 10 00 00 00 00 20 00 02 00 00 00 00 00 01 ....... ........
028F00: 80 03 80 00 07 00 00 00 38 00 00 0E 00 00 00 70 ........8......p
028F10: 00 00 F0 00 00 38 00 00 78 00 00 03 C0 00 00 70 .....8..x......p
028F20: 00 00 03 80 00 07 80 00 01 C0 00 03 80 00 00 1E ................
028F30: 00 00 07 00 00 00 1C 00 00 78 00 00 0E 00 00 1C .........x......
028F40: 00 00 00 F0 00 00 38 00 00 00 E0 00 03 C0 00 01 ......8.........
028F50: 80 00 06 03 C0 00 38 06 00 00 00 00 18 0F 00 00 ......8.........
028F60: 00 18 00 00 00 00 60 00 00 03 C0 60 00 00 00 00 ......`....`....
028F70: C0 78 00 07 00 C0 00 00 00 03 01 E0 00 1C 03 00 .x..............
028F80: 00 00 00 0C 03 80 00 00 0C 00 00 00 00 18 00 00 ................
028F90: 00 E0 18 00 00 00 00 60 1C 00 03 C0 60 00 00 01 .......`....`...
028FA0: 80 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 ................
028FB0: 00 10 00 00 00 00 20 00 02 00 00 00 00 00 00 00 ...... .........
028FC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
028FD0: 00 00 00 00 00 00 40 00 08 00 00 00 00 08 00 01 ......@.........
028FE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 ................
028FF0: 80 00 78 00 38 03 C0 01 C0 00 00 01 E0 00 E0 00 ..x.8...........
029000: 00 00 7C 00 00 00 00 F8 00 00 00 01 F0 00 00 01 ..|.............
029010: 80 03 80 1C 00 00 07 00 38 00 00 0E 00 78 00 00 ........8....x..
029020: 1C 00 F0 00 00 38 01 E0 00 00 38 03 C0 00 00 70 .....8....8....p
029030: 03 80 08 00 E0 00 00 00 00 00 0F 00 20 03 80 1E ............ ...
029040: 00 00 07 00 3C 00 00 07 00 78 00 00 0E 00 70 00 ....<....x....p.
029050: 00 1C 00 F0 00 00 38 01 E0 00 00 70 03 C0 00 01 ......8....p....
029060: 80 00 02 E0 00 00 00 04 00 00 00 00 08 00 00 00 ................
029070: 03 D0 00 00 00 00 2E 00 00 00 00 40 00 00 00 00 ...........@....
029080: 40 00 00 00 1E 80 00 00 00 01 70 00 00 00 02 00 @.........p.....
029090: 00 00 00 04 00 00 00 00 E8 00 00 00 00 0B 80 00 ................
0290A0: 00 00 10 00 00 00 00 20 00 00 00 07 40 00 00 01 ....... ....@...
0290B0: 80 00 07 00 00 40 00 0C 00 00 00 00 0C 00 01 00 .....@..........
0290C0: 00 38 00 00 00 00 70 00 02 00 00 C0 00 00 00 00 .8....p.........
0290D0: 60 00 08 00 01 C0 00 00 00 03 80 00 20 00 06 00 `........... ...
0290E0: 00 00 00 06 00 00 40 00 1C 00 00 00 00 1C 00 01 ......@.........
0290F0: 00 00 30 00 00 00 00 30 00 02 00 00 E0 00 00 01 ..0....0........
029100: 80 0C 00 03 FF FF F8 00 07 FF FF F0 00 07 FF FF ................
029110: E0 00 0C 00 00 C0 00 1F FF FF C0 00 3F FF FF 80 ............?...
029120: 00 7F FF FF 00 00 60 00 06 00 00 FF FF FC 00 01 ......`.........
029130: FF FF F8 00 03 FF FF F8 00 06 00 00 30 00 0F FF ............0...
029140: FF E0 00 0F FF FF C0 00 1F FF FF 80 00 30 00 01 .............0..
029150: 80 00 02 1C 00 00 07 04 00 00 00 00 08 70 00 00 .............p..
029160: 00 10 00 00 00 00 20 00 00 00 38 40 00 00 00 00 ...... ...8@....
029170: 43 80 00 00 E0 80 00 00 00 01 0E 00 00 03 82 00 C...............
029180: 00 00 00 04 3C 00 00 00 08 00 00 00 00 08 00 00 ....<...........
029190: 00 1C 10 00 00 00 00 21 E0 00 00 38 40 00 00 01 .......!...8@...
0291A0: 80 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 ................
0291B0: 00 10 00 00 00 00 20 00 02 00 00 00 00 00 00 00 ...... .........
0291C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0291D0: 00 00 00 00 00 00 40 00 08 00 00 00 00 08 00 01 ......@.........
0291E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 ................
0291F0: 80 03 80 00 07 1C 00 00 38 00 00 0E 00 00 1C 00 ........8.......
029200: 00 07 00 00 00 07 80 00 00 1C 00 1C 00 00 00 0F ................
029210: 00 07 00 78 00 38 00 00 00 3C 00 1C 01 E0 00 E0 ...x.8...<......
029220: 00 00 00 F0 00 70 00 00 03 80 00 00 01 E0 00 00 .....p..........
029230: 0F 00 07 00 00 00 07 80 03 80 1C 00 1C 00 00 01 ................
029240: 80 00 78 00 38 00 00 01 C0 00 00 01 E0 00 00 0F ..x.8...........
029250: 00 07 00 00 00 07 80 03 80 00 00 1C 00 00 00 0F ................
029260: 00 00 00 78 00 38 00 00 00 3C 00 1C 00 00 00 E0 ...x.8...<......
029270: 00 00 00 F0 00 00 03 80 03 80 00 00 01 E0 00 E0 ................
029280: 00 00 07 00 00 00 07 80 00 00 1C 00 1C 00 00 01 ................
029290: 80 00 00 00 00 40 00 04 00 00 00 00 08 00 01 00 .....@..........
0292A0: 00 00 00 00 00 00 00 00 02 00 00 40 00 00 00 00 ...........@....
0292B0: 40 00 08 00 00 00 00 00 00 00 00 00 20 00 02 00 @........... ...
0292C0: 00 00 00 04 00 00 40 00 00 00 00 00 00 00 00 01 ......@.........
0292D0: 00 00 10 00 00 00 00 20 00 02 00 00 00 00 00 01 ....... ........
0292E0: 80 00 78 00 F0 00 00 01 C0 00 00 01 E0 00 00 07 ..x.............
0292F0: 80 07 00 00 00 07 80 0F 00 00 00 1C 00 00 00 0F ................
029300: 00 00 00 3C 00 38 00 00 00 3C 00 78 00 00 00 E0 ...<.8...<.x....
029310: 00 00 00 F0 00 00 01 E0 03 80 00 00 01 E0 03 C0 ................
029320: 00 00 07 00 00 00 07 80 00 00 0F 00 1C 00 00 01 ................
029330: 80 03 80 00 07 1C 00 00 38 00 00 0E 00 00 1C 70 ........8......p
029340: 00 00 F0 00 00 38 00 00 78 E0 00 03 C0 00 00 70 .....8..x......p
029350: 00 00 E3 80 00 07 80 00 01 C0 00 03 8E 00 00 1E ................
029360: 00 00 07 00 00 0F 1C 00 00 78 00 00 0E 00 00 1C .........x......
029370: 70 00 00 F0 00 00 38 00 00 78 E0 00 03 C0 00 01 p.....8..x......
029380: 80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029390: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0293A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0293B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0293C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 ................
0293D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0293E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0293F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029400: 00 00 F0 00 00 38 00 00 00 E0 00 03 C0 00 00 70 .....8.........p
029410: 00 00 E3 80 00 07 80 00 01 C0 00 03 8E 00 00 1E ................
029420: 00 00 07 00 00 0F 00 00 00 78 00 00 0E 00 00 00 .........x......
029430: 70 00 00 F0 00 00 38 00 00 78 E0 00 03 C0 00 01 p.....8..x......
029440: 80 00 06 03 C0 00 00 06 00 00 00 00 18 00 00 00 ................
029450: E0 18 00 00 00 00 60 1C 00 00 00 60 00 00 00 00 ......`....`....
029460: C0 00 00 07 00 C0 00 00 00 03 01 E0 00 00 03 00 ................
029470: 00 00 00 0C 00 00 00 78 0C 00 00 00 00 18 0F 00 .......x........
029480: 00 00 18 00 00 00 00 60 00 00 03 C0 60 00 00 01 .......`....`...
029490: 80 00 00 00 00 40 00 04 00 00 00 00 08 00 01 00 .....@..........
0294A0: 00 00 00 00 00 00 00 00 02 00 00 40 00 00 00 00 ...........@....
0294B0: 40 00 08 00 00 00 00 00 00 00 00 00 20 00 02 00 @........... ...
0294C0: 00 00 00 04 00 00 40 00 00 00 00 00 00 00 00 01 ......@.........
0294D0: 00 00 10 00 00 00 00 20 00 02 00 00 00 00 00 01 ....... ........
0294E0: 80 03 80 00 0F 00 00 00 38 00 00 0E 00 00 00 78 ........8......x
0294F0: 00 00 F0 00 00 38 00 00 F0 00 00 03 C0 00 00 70 .....8.........p
029500: 00 00 03 C0 00 07 80 00 01 C0 00 07 80 00 00 1E ................
029510: 00 00 07 00 00 00 1E 00 00 78 00 00 0E 00 00 3C .........x.....<
029520: 00 00 00 F0 00 00 38 00 00 00 F0 00 03 C0 00 01 ......8.........
029530: 80 00 78 00 38 03 C0 01 C0 00 00 01 E0 00 E0 0F ..x.8...........
029540: 00 07 00 00 00 07 80 03 80 1C 00 1C 00 00 00 0F ................
029550: 00 07 00 78 00 38 00 00 00 3C 00 1C 01 E0 00 E0 ...x.8...<......
029560: 00 00 00 F0 00 70 03 80 03 80 00 00 01 E0 00 E0 .....p..........
029570: 0F 00 07 00 00 00 07 80 03 80 1C 00 1C 00 00 01 ................
029580: 80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029590: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0295A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0295B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0295C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 ................
0295D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0295E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0295F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029600: 7F FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF ................
029610: FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF ................
029620: FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF ................
029630: FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF ................
029640: FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FE ................
029650: 80 00 0F 80 00 00 00 1F 00 00 00 00 3E 00 00 00 ............>...
029660: 00 7C 00 00 00 00 F8 00 00 00 01 F0 00 00 00 01 .|..............
029670: F0 00 00 00 03 E0 00 00 00 07 C0 00 00 00 0F 80 ................
029680: 00 00 00 1F 00 00 00 00 3E 00 00 00 00 3E 00 00 ........>....>..
029690: 00 00 7C 00 00 00 00 F8 00 00 00 01 F0 00 00 01 ..|.............
0296A0: 80 00 03 00 00 00 00 0F FF FF FF FF FC 00 00 00 ................
0296B0: 00 30 00 00 00 00 30 00 00 00 00 FF FF FF FF FF .0....0.........
0296C0: E0 00 00 00 01 80 00 00 00 01 80 00 00 00 07 FF ................
0296D0: FF FF FF FE 00 00 00 00 18 00 00 00 00 0C 00 00 ................
0296E0: 00 00 3F FF FF FF FF F0 00 00 00 00 C0 00 00 01 ..?.............
0296F0: 80 00 78 E0 00 40 00 F0 00 00 00 00 03 80 01 00 ..x..@..........
029700: 03 C7 00 00 00 07 8E 00 02 00 07 00 00 00 00 00 ................
029710: 1C 00 08 00 1E 38 00 00 00 3C 70 00 20 00 78 00 .....8...<p. .x.
029720: 00 00 00 01 C0 00 40 00 E3 80 00 00 01 E3 80 01 ......@.........
029730: 00 03 C0 00 00 00 00 0E 00 02 00 0F 1C 00 00 01 ................
029740: 80 00 78 E0 00 40 00 F0 00 00 00 00 03 80 01 00 ..x..@..........
029750: 03 C7 00 00 00 07 8E 00 02 00 07 00 00 00 00 00 ................
029760: 1C 00 08 00 1E 38 00 00 00 3C 70 00 20 00 78 00 .....8...<p. .x.
029770: 00 00 00 01 C0 00 40 00 E3 80 00 00 01 E3 80 01 ......@.........
029780: 00 03 C0 00 00 00 00 0E 00 02 00 0F 1C 00 00 01 ................
029790: 80 00 02 E0 00 00 00 F4 00 00 00 00 0B 80 00 00 ................
0297A0: 00 10 00 00 00 00 20 00 00 00 07 40 00 00 00 00 ...... ....@....
0297B0: 5C 00 00 00 1E 80 00 00 00 01 70 00 00 00 7A 00 \.........p...z.
0297C0: 00 00 00 05 C0 00 00 00 08 00 00 00 00 08 00 00 ................
0297D0: 00 03 D0 00 00 00 00 2E 00 00 00 07 40 00 00 01 ............@...
0297E0: 80 00 07 00 00 00 00 0E 00 00 00 00 1C 00 01 00 ................
0297F0: 00 30 00 00 00 00 30 00 02 00 00 E0 00 00 00 00 .0....0.........
029800: 7F FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF ................
029810: FF FF FF FF FF FF 8E 1B 61 B6 3E ED B7 BC 61 B7 ........a.>...a.
029820: F8 71 B6 DB 7F 8E D8 73 86 DF E1 EF F8 71 B6 1F .q.....s.....q..
029830: E3 86 DF E1 87 F8 F1 8F 18 61 FF FF FF FF FF FF .........a......
029840: FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FE ................
029850: 80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029860: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029870: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029880: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029890: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 ................
0298A0: 80 00 02 E0 00 00 00 F4 00 00 00 00 0B 80 00 00 ................
0298B0: 03 D0 00 00 00 00 2E 00 00 00 07 40 00 00 00 00 ...........@....
0298C0: 5C 00 00 00 1E 80 00 00 00 01 70 00 00 00 7A 00 \.........p...z.
0298D0: 00 00 00 05 C0 00 00 00 E8 00 00 00 00 0B 80 00 ................
0298E0: 00 03 D0 00 00 00 00 2E 00 00 00 07 40 00 00 01 ............@...
0298F0: 80 03 80 1C 00 40 07 00 00 00 00 00 00 78 01 00 .....@.......x..
029900: 1C 00 F0 00 00 38 01 E0 02 00 38 00 00 00 00 00 .....8....8.....
029910: 03 80 08 00 E0 07 80 00 01 C0 0F 00 20 03 80 00 ............ ...
029920: 00 00 00 00 3C 00 40 07 00 78 00 00 0E 00 70 01 ....<.@..x....p.
029930: 00 1C 00 00 00 00 00 01 E0 02 00 70 03 C0 00 01 ...........p....
029940: 80 00 07 00 00 40 00 0C 00 00 00 00 0C 00 01 00 .....@..........
029950: 00 38 00 00 00 00 70 00 02 00 00 C0 00 00 00 00 .8....p.........
029960: 60 00 08 00 01 C0 00 00 00 03 80 00 20 00 06 00 `........... ...
029970: 00 00 00 06 00 00 40 00 1C 00 00 00 00 1C 00 01 ......@.........
029980: 00 00 30 00 00 00 00 30 00 02 00 00 E0 00 00 01 ..0....0........
029990: 80 00 03 00 00 00 00 0F FF FF FF FF FC 00 00 00 ................
0299A0: 00 7F FF FF FF FF F0 00 00 00 00 FF FF FF FF FF ................
0299B0: E0 00 00 00 03 80 00 00 00 01 80 00 00 00 07 FF ................
0299C0: FF FF FF FE 00 00 00 00 1F FF FF FF FF FC 00 00 ................
0299D0: 00 00 3F FF FF FF FF F0 00 00 00 00 C0 00 00 01 ..?.............
0299E0: 80 00 78 E0 00 00 00 F1 C0 00 00 01 E3 80 01 00 ..x.............
0299F0: 03 C0 00 00 00 00 0E 00 02 00 07 1C 00 00 00 0F ................
029A00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
029A10: 23 00 00 00 02 09 4E E5 23 00 41 02 00 00 00 02 #.....N.#.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: E0 00 00 00 01 C0 00 00 00 03 80 00 00 00 07 00 ................
029B10: 00 00 00 0E 00 00 40 00 18 00 00 00 00 0C 00 01 ......@.........
029B20: 00 00 38 00 00 00 00 70 00 00 00 00 E0 00 00 01 ..8....p........
029B30: 80 03 80 1C 00 00 07 00 38 00 00 0E 00 78 01 00 ........8....x..
029B40: 1C 00 00 00 00 00 01 E0 02 00 38 03 C0 00 00 70 ..........8....p
029B50: 03 80 00 00 E0 07 80 00 01 C0 0F 00 00 03 80 1E ................
029B60: 00 00 07 00 3C 00 40 07 00 00 00 00 00 00 70 01 ....<.@.......p.
029B70: 00 1C 00 F0 00 00 38 01 E0 00 00 70 03 C0 00 01 ......8....p....
029B80: 80 00 02 F0 00 00 00 04 00 00 00 00 08 00 00 00 ................
029B90: 07 90 00 00 00 00 2F 00 00 00 00 40 00 00 00 00 ....../....@....
029BA0: 40 00 00 00 3C 80 00 00 00 01 78 00 00 00 02 00 @...<.....x.....
029BB0: 00 00 00 04 00 00 00 01 E8 00 00 00 00 0B C0 00 ................
029BC0: 00 00 10 00 00 00 00 20 00 00 00 0F 40 00 00 01 ....... ....@...
029BD0: 80 00 00 00 00 40 00 04 00 00 00 00 08 00 01 00 .....@..........
029BE0: 00 00 00 00 00 00 00 00 02 00 00 40 00 00 00 00 ...........@....
029BF0: 40 00 08 00 00 00 00 00 00 00 00 00 20 00 02 00 @........... ...
029C00: 00 00 00 04 00 00 40 00 00 00 00 00 00 00 00 01 ......@.........
029C10: 00 00 10 00 00 00 00 20 00 02 00 00 00 00 00 01 ....... ........
029C20: 80 0C 00 03 FF FF F8 00 07 FF FF F0 00 07 FF FF ................
029C30: E0 00 0C 00 00 C0 00 1F FF FF C0 00 3F FF FF 80 ............?...
029C40: 00 7F FF FF 00 00 60 00 06 00 00 FF FF FC 00 01 ......`.........
029C50: FF FF F8 00 03 FF FF F8 00 06 00 00 30 00 0F FF ............0...
029C60: FF E0 00 0F FF FF C0 00 1F FF FF 80 00 30 00 01 .............0..
029C70: 80 00 02 1C 00 00 07 04 00 00 00 00 08 70 00 00 .............p..
029C80: 1C 10 00 00 00 00 21 E0 00 00 38 40 00 00 00 00 ......!...8@....
029C90: 43 80 00 00 00 80 00 00 00 01 00 00 00 03 82 00 C...............
029CA0: 00 00 00 04 3C 00 00 07 08 00 00 00 00 08 70 00 ....<.........p.
029CB0: 00 1C 10 00 00 00 00 21 E0 00 00 38 40 00 00 01 .......!...8@...
029CC0: 80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029CD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029CE0: 00 00 08 00 00 80 00 00 00 01 00 00 20 00 00 00 ............ ...
029CF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029D00: CB 45 CA AB 45 2A A4 DA E5 21 00 00 D1 CD E0 06 .E..E*...!......
029D10: CB 45 CA 1E 45 2A 9E DA 22 A0 DA C3 24 45 2A 9C .E..E*.."...$E*.
029D20: DA 22 A0 DA 2A B2 DA 5E 23 56 EB E5 2A B6 DA 5E ."..*..^#V..*..^
029D30: 23 56 EB D1 CD 92 06 CB 45 CA A1 45 2A B6 DA 5E #V......E..E*..^
029D40: 23 56 EB E5 2A B2 DA 5E 23 56 EB E5 2A B6 DA 5E #V..*..^#V..*..^
029D50: 23 56 EB D1 EB B7 ED 52 E5 2A B4 DA 5E 23 56 EB #V.....R.*..^#V.
029D60: E5 2A B8 DA 5E 23 56 EB D1 EB B7 ED 52 CD 08 10 .*..^#V.....R...
029D70: D9 E1 CD 08 10 CD FF 09 C5 D5 E5 2A A0 DA E5 2A ...........*...*
029D80: B8 DA 5E 23 56 EB D1 EB B7 ED 52 CD 08 10 D9 E1 ..^#V.....R.....
029D90: D1 C1 CD FA 09 CD DE 0F D1 19 EB 2A B2 DA 73 23 ...........*..s#
029DA0: 72 2A A0 DA EB 2A B4 DA 73 23 72 2A B6 DA 5E 23 r*...*..s#r*..^#
029DB0: 56 EB E5 2A 84 F2 E5 2A 82 F2 E5 CD D6 42 22 A6 V..*...*.....B".
029DC0: DA 2A B2 DA 5E 23 56 EB E5 2A 84 F2 E5 2A 82 F2 .*..^#V..*...*..
029DD0: E5 CD D6 42 22 A2 DA 2A B6 DA 5E 23 56 EB E5 2A ...B"..*..^#V..*
029DE0: B2 DA 5E 23 56 EB D1 CD 92 06 CB 45 CA 5B 47 2A ..^#V......E.[G*
029DF0: A6 DA E5 21 00 00 D1 CD 92 06 CB 45 CA A5 46 2A ...!.......E..F*
029E00: A6 DA E5 21 00 00 D1 CD E0 06 CB 45 CA 18 46 2A ...!.......E..F*
029E10: 84 F2 22 A0 DA C3 1E 46 2A 82 F2 22 A0 DA 2A B8 .."....F*.."..*.
029E20: DA 5E 23 56 EB E5 2A B4 DA 5E 23 56 EB D1 CD 92 .^#V..*..^#V....
029E30: 06 CB 45 CA 9B 46 2A B8 DA 5E 23 56 EB E5 2A B4 ..E..F*..^#V..*.
029E40: DA 5E 23 56 EB E5 2A B8 DA 5E 23 56 EB D1 EB B7 .^#V..*..^#V....
029E50: ED 52 E5 2A B2 DA 5E 23 56 EB E5 2A B6 DA 5E 23 .R.*..^#V..*..^#
029E60: 56 EB D1 EB B7 ED 52 CD 08 10 D9 E1 CD 08 10 CD V.....R.........
029E70: FF 09 C5 D5 E5 2A A0 DA E5 2A B6 DA 5E 23 56 EB .....*...*..^#V.
029E80: D1 EB B7 ED 52 CD 08 10 D9 E1 D1 C1 CD FA 09 CD ....R...........
029E90: DE 0F D1 19 EB 2A B8 DA 73 23 72 2A A0 DA EB 2A .....*..s#r*...*
029EA0: B6 DA 73 23 72 2A A2 DA E5 21 00 00 D1 CD 92 06 ..s#r*...!......
029EB0: CB 45 CA 5B 47 2A A2 DA E5 21 00 00 D1 CD E0 06 .E.[G*...!......
029EC0: CB 45 CA CE 46 2A 84 F2 22 A0 DA C3 D4 46 2A 82 .E..F*.."....F*.
029ED0: F2 22 A0 DA 2A B8 DA 5E 23 56 EB E5 2A B4 DA 5E ."..*..^#V..*..^
029EE0: 23 56 EB D1 CD 92 06 CB 45 CA 51 47 2A B8 DA 5E #V......E.QG*..^
029EF0: 23 56 EB E5 2A B4 DA 5E 23 56 EB E5 2A B8 DA 5E #V..*..^#V..*..^
029F00: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 ................
029F10: 80 03 80 00 07 1C 00 00 38 00 00 0E 00 00 1C 70 ........8......p
029F20: 00 00 F0 00 00 38 00 00 78 E0 00 03 C0 00 00 70 .....8..x......p
029F30: 00 00 E0 00 00 07 80 00 01 C0 00 00 0E 00 00 1E ................
029F40: 00 00 07 00 00 0F 1C 00 00 78 00 00 0E 00 00 1C .........x......
029F50: 70 00 00 F0 00 00 38 00 00 78 E0 00 03 C0 00 01 p.....8..x......
029F60: 80 00 06 03 C0 00 00 06 00 00 00 00 18 00 00 00 ................
029F70: E0 18 00 00 00 00 60 1C 00 00 00 60 00 00 00 00 ......`....`....
029F80: C0 00 00 07 00 C0 00 00 00 03 01 E0 00 00 03 00 ................
029F90: 00 00 00 0C 00 00 00 78 0C 00 00 00 00 18 0F 00 .......x........
029FA0: 00 00 18 00 00 00 00 60 00 00 03 C0 60 00 00 01 .......`....`...
029FB0: 80 00 00 00 00 40 00 04 00 00 00 00 08 00 01 00 .....@..........
029FC0: 00 00 00 00 00 00 00 00 02 00 00 40 00 00 00 00 ...........@....
029FD0: 40 00 08 00 00 00 00 00 00 00 00 00 20 00 02 00 @........... ...
029FE0: 00 00 00 04 00 00 40 00 00 00 00 00 00 00 00 01 ......@.........
029FF0: 00 00 10 00 00 00 00 20 00 02 00 00 00 00 00 01 ....... ........
02A000: 80 00 78 00 38 00 00 01 C0 00 00 01 E0 00 00 0F ..x.8...........
02A010: 00 07 00 00 00 07 80 03 80 00 00 1C 00 00 00 0F ................
02A020: 00 00 00 78 00 38 00 00 00 3C 00 1C 00 00 00 E0 ...x.8...<......
02A030: 00 00 00 F0 00 00 03 80 03 80 00 00 01 E0 00 E0 ................
02A040: 00 00 07 00 00 00 07 80 00 00 1C 00 1C 00 00 01 ................
02A050: 80 00 78 00 38 03 C0 01 C0 00 00 01 E0 00 E0 00 ..x.8...........
02A060: 00 07 00 00 00 07 80 00 00 1C 00 1C 00 00 00 0F ................
02A070: 00 07 00 78 00 38 00 00 00 3C 00 1C 01 E0 00 E0 ...x.8...<......
02A080: 00 00 00 F0 00 70 00 00 03 80 00 00 01 E0 00 00 .....p..........
02A090: 0F 00 07 00 00 00 07 80 03 80 1C 00 1C 00 00 01 ................
02A0A0: 80 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 ................
02A0B0: 00 10 00 00 00 00 20 00 02 00 00 00 00 00 00 00 ...... .........
02A0C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02A0D0: 00 00 00 00 00 00 40 00 08 00 00 00 00 08 00 01 ......@.........
02A0E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 ................
02A0F0: 80 00 06 03 C0 00 38 06 00 00 00 00 18 0F 00 00 ......8.........
02A100: 23 56 EB D1 EB B7 ED 52 E5 2A B2 DA 5E 23 56 EB #V.....R.*..^#V.
02A110: E5 2A B6 DA 5E 23 56 EB D1 EB B7 ED 52 CD 08 10 .*..^#V.....R...
02A120: D9 E1 CD 08 10 CD FF 09 C5 D5 E5 2A A0 DA E5 2A ...........*...*
02A130: B6 DA 5E 23 56 EB D1 EB B7 ED 52 CD 08 10 D9 E1 ..^#V.....R.....
02A140: D1 C1 CD FA 09 CD DE 0F D1 19 EB 2A B4 DA 73 23 ...........*..s#
02A150: 72 2A A0 DA EB 2A B2 DA 73 23 72 2A B6 DA 5E 23 r*...*..s#r*..^#
02A160: 56 EB E5 2A 84 F2 E5 2A 82 F2 E5 CD D6 42 22 A6 V..*...*.....B".
02A170: DA 2A B2 DA 5E 23 56 EB E5 2A 84 F2 E5 2A 82 F2 .*..^#V..*...*..
02A180: E5 CD D6 42 22 A2 DA 2A A6 DA E5 21 00 00 D1 CD ...B"..*...!....
02A190: 92 06 E5 2A A2 DA E5 21 00 00 D1 CD 92 06 D1 7D ...*...!.......}
02A1A0: B3 6F CB 45 CA AE 47 21 00 00 7D 32 9B DA 2A 9B .o.E..G!..}2..*.
02A1B0: DA 26 00 CB 45 CA 0B 48 2A B8 DA 5E 23 56 EB E5 .&..E..H*..^#V..
02A1C0: 2A 9E DA E5 2A 9C DA E5 CD D6 42 22 A8 DA 2A B4 *...*.....B"..*.
02A1D0: DA 5E 23 56 EB E5 2A 9E DA E5 2A 9C DA E5 CD D6 .^#V..*...*.....
02A1E0: 42 22 A4 DA 2A A4 DA E5 21 00 00 D1 CD 92 06 E5 B"..*...!.......
02A1F0: 2A A8 DA E5 21 00 00 D1 CD 92 06 D1 7D B3 6F CB *...!.......}.o.
02A200: 45 CA 0B 48 21 00 00 7D 32 9B DA 2A 9B DA 26 00 E..H!..}2..*..&.
02A210: 7D 32 BA DA 2A BA DA 26 00 C9 FD E1 E1 D1 C1 D9 }2..*..&........
02A220: 21 7F DA CD D1 05 E1 D1 C1 D9 21 85 DA CD D1 05 !.........!.....
02A230: FD E5 2A 6E F2 26 00 CB 45 CA 56 48 21 85 DA CD ..*n.&..E.VH!...
02A240: 2C 05 CD DE 0F E5 21 7F DA CD 2C 05 CD DE 0F E5 ,.....!...,.....
02A250: CD 54 2D C3 ED 48 21 85 DA CD 2C 05 C5 D5 E5 CD .T-..H!...,.....
02A260: 9E 3D 22 75 DA 21 7F DA CD 2C 05 C5 D5 E5 CD DC .="u.!...,......
02A270: 3D 22 73 DA 2A 6D F2 26 00 CB 45 CA E2 48 2A 75 ="s.*m.&..E..H*u
02A280: DA E5 2A 88 F2 E5 21 03 00 D1 CD 4E 07 D1 CD A5 ..*...!....N....
02A290: 06 E5 2A 75 DA E5 2A 86 F2 E5 21 03 00 D1 CD 4E ..*u..*...!....N
02A2A0: 07 E5 21 07 00 D1 19 D1 CD E0 06 D1 7D A3 6F CB ..!.........}£o.
02A2B0: 45 CA DF 48 2A 73 DA E5 2A 84 F2 D1 CD A5 06 E5 E..H*s..*.......
02A2C0: 2A 73 DA E5 2A 82 F2 D1 CD B8 06 D1 7D A3 6F CB *s..*.......}£o.
02A2D0: 45 CA DF 48 2A 75 DA E5 2A 73 DA E5 CD 54 2D C3 E..H*u..*s...T-.
02A2E0: ED 48 2A 75 DA E5 2A 73 DA E5 CD 54 2D C9 FD E1 .H*u..*s...T-...
02A2F0: E1 D1 C1 D9 21 66 DA CD D1 05 E1 D1 C1 D9 21 6C ....!f........!l
02A300: 00 18 00 00 00 00 60 00 00 03 C0 60 00 00 00 00 ......`....`....
02A310: C0 78 00 07 00 C0 00 00 00 03 01 E0 00 1C 03 00 .x..............
02A320: 00 00 00 0C 03 80 00 00 0C 00 00 00 00 18 00 00 ................
02A330: 00 E0 18 00 00 00 00 60 1C 00 03 C0 60 00 00 01 .......`....`...
02A340: 80 03 80 00 07 00 00 00 38 00 00 0E 00 00 00 70 ........8......p
02A350: 00 00 F0 00 00 38 00 00 78 00 00 03 C0 00 00 70 .....8..x......p
02A360: 00 00 03 80 00 07 80 00 01 C0 00 03 80 00 00 1E ................
02A370: 00 00 07 00 00 00 1C 00 00 78 00 00 0E 00 00 1C .........x......
02A380: 00 00 00 F0 00 00 38 00 00 00 E0 00 03 C0 00 01 ......8.........
02A390: 80 00 00 00 00 40 00 04 00 00 00 00 08 00 01 00 .....@..........
02A3A0: 00 00 00 00 00 00 00 00 02 00 00 40 00 00 00 00 ...........@....
02A3B0: 40 00 08 00 00 00 00 00 00 00 00 00 20 00 02 00 @........... ...
02A3C0: 00 00 00 04 00 00 40 00 00 00 00 00 00 00 00 01 ......@.........
02A3D0: 00 00 10 00 00 00 00 20 00 02 00 00 00 00 00 01 ....... ........
02A3E0: 80 00 06 0F 00 00 00 06 00 00 00 00 18 00 00 00 ................
02A3F0: 78 18 00 00 00 00 60 F0 00 00 00 60 00 00 00 00 x.....`....`....
02A400: C0 00 00 03 C0 C0 00 00 00 03 07 80 00 00 03 00 ................
02A410: 00 00 00 0C 00 00 00 1E 0C 00 00 00 00 18 3C 00 ..............<.
02A420: 00 00 18 00 00 00 00 60 00 00 00 F0 60 00 00 01 .......`....`...
02A430: 80 0C 00 03 FF FF F8 00 06 00 00 30 00 07 FF FF ...........0....
02A440: E0 00 0C 00 00 C0 00 1F FF FF C0 00 30 00 01 80 ............0...
02A450: 00 7F FF FF 00 00 60 00 06 00 00 FF FF FC 00 01 ......`.........
02A460: 80 00 18 00 03 FF FF F8 00 06 00 00 30 00 0F FF ............0...
02A470: FF E0 00 0C 00 00 C0 00 1F FF FF 80 00 30 00 01 .............0..
02A480: FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF ................
02A490: FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF ................
02A4A0: FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF ................
02A4B0: FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF ................
02A4C0: FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF ................
02A4D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02A4E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02A4F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02A500: DA CD D1 05 FD E5 2A 6E F2 26 00 CB 45 CA 2E 49 ......*n.&..E..I
02A510: 21 6C DA CD 2C 05 CD DE 0F E5 21 66 DA CD 2C 05 !l..,.....!f..,.
02A520: CD DE 0F E5 CD 85 2D 7D 32 72 DA C3 4F 49 21 6C ......-}2r..OI!l
02A530: DA CD 2C 05 C5 D5 E5 CD 9E 3D E5 21 66 DA CD 2C ..,......=.!f..,
02A540: 05 C5 D5 E5 CD DC 3D E5 CD 85 2D 7D 32 72 DA 2A ......=...-}2r.*
02A550: 72 DA 26 00 C9 FD E1 E1 22 56 DA E1 22 58 DA E1 r.&....."V.."X..
02A560: 22 5A DA E1 22 5C DA FD E5 2A 80 F2 E5 21 00 00 "Z.."\...*...!..
02A570: D1 CD 7F 06 CB 45 CA 92 49 2A 5C DA E5 2A 5A DA .....E..I*\..*Z.
02A580: E5 CD 23 25 2A 58 DA E5 2A 56 DA E5 CD 54 25 C3 ..#%*X..*V...T%.
02A590: BE 4A 2A 5C DA 22 4C DA 2A 5A DA 22 4A DA 21 01 .J*\."L.*Z."J.!.
02A5A0: 00 22 44 DA 21 01 00 22 42 DA 2A 5C DA E5 2A 58 ."D.!.."B.*\..*X
02A5B0: DA D1 CD CC 06 CB 45 CA C0 49 21 FF FF 22 44 DA ......E..I!.."D.
02A5C0: 2A 5A DA E5 2A 56 DA D1 CD CC 06 CB 45 CA D6 49 *Z..*V......E..I
02A5D0: 21 FF FF 22 42 DA 2A 58 DA E5 2A 5C DA D1 EB B7 !.."B.*X..*\....
02A5E0: ED 52 CD 80 07 22 48 DA 2A 56 DA E5 2A 5A DA D1 .R..."H.*V..*Z..
02A5F0: EB B7 ED 52 CD 80 07 22 46 DA 2A 48 DA E5 21 00 ...R..."F.*H..!.
02A600: 00 D1 CD 7F 06 CB 45 CA 13 4A 21 FF FF 22 40 DA ......E..J!.."@.
02A610: C3 19 4A 21 00 00 22 40 DA 2A 4C DA E5 2A 58 DA ..J!.."@.*L..*X.
02A620: D1 CD 7F 06 E5 2A 4A DA E5 2A 56 DA D1 CD 7F 06 .....*J..*V.....
02A630: D1 7D A3 6F 7D EE 01 6F CB 45 CA BE 4A 2A 66 F2 .}£o}..o.E..J*f.
02A640: 26 00 E5 21 01 00 D1 19 E5 21 07 00 D1 7C A2 67 &..!.....!...|.g
02A650: 7D A3 6F 7D 32 66 F2 21 5D F2 E5 2A 66 F2 26 00 }£o}2f.!]..*f.&.
02A660: D1 19 6E 26 00 CB 45 CA 75 4A 2A 4C DA E5 2A 4A ..n&..E.uJ*L..*J
02A670: DA E5 CD 54 2D 2A 40 DA E5 21 00 00 D1 CD E0 06 ...T-*@..!......
02A680: CB 45 CA A0 4A 2A 4A DA E5 2A 42 DA D1 19 22 4A .E..J*J..*B..."J
02A690: DA 2A 40 DA E5 2A 48 DA D1 19 22 40 DA C3 BB 4A .*@..*H..."@...J
02A6A0: 2A 4C DA E5 2A 44 DA D1 19 22 4C DA 2A 40 DA E5 *L..*D..."L.*@..
02A6B0: 2A 46 DA D1 EB B7 ED 52 22 40 DA C3 19 4A C9 FD *F.....R"@...J..
02A6C0: E1 E1 22 38 DA E1 22 3A DA E1 22 3C DA E1 22 3E .."8..":.."<..">
02A6D0: DA FD E5 21 3E DA E5 21 3C DA E5 21 3A DA E5 21 ...!>..!<..!:..!
02A6E0: 38 DA E5 CD D3 42 CB 45 CA FE 4A 2A 3E DA E5 2A 8....B.E..J*>..*
02A6F0: 3C DA E5 2A 3A DA E5 2A 38 DA E5 CD 55 49 C9 FD <..*:..*8...UI..
02A700: 00 00 E5 21 4F 00 E5 21 C7 00 E5 CD 4C 39 21 B5 ...!O..!....L9!.
02A710: E4 E5 2A CF DA 2B 29 E5 29 E5 29 E5 29 E5 29 29 ..*..+).).).).))
02A720: D1 19 D1 19 D1 19 D1 19 D1 19 22 82 DC 2A 82 DC .........."..*..
02A730: 11 5B 00 19 E5 21 00 00 EB E1 73 23 72 2A 82 DC .[...!....s#r*..
02A740: 11 5D 00 19 E5 21 00 00 EB E1 73 2A CF DA E5 CD .]...!....s*....
02A750: 87 33 2A CF DA 23 D1 1B C3 EE 40 21 01 00 22 7C .3*..#....@!.."|
02A760: F2 21 D2 DB E5 21 00 21 CD 3A 05 CD 70 13 21 D2 .!...!.!.:..p.!.
02A770: DB 11 1D 01 CD 11 18 CD F1 1F E5 21 00 00 D1 CD ...........!....
02A780: 7F 06 CB 45 CA 99 41 21 D2 DB CD A4 18 21 97 EA ...E..A!.....!..
02A790: CD B6 18 CD 1B 20 C3 A4 41 21 00 00 E5 21 01 00 ..... ..A!...!..
02A7A0: E5 CD 76 2B 21 D2 DB CD 7A 18 CD 1B 20 21 01 00 ..v+!...z... !..
02A7B0: 7D 32 69 F2 21 01 00 E5 CD 0D 2F 21 01 00 22 7A }2i.!...../!.."z
02A7C0: F2 21 01 00 E5 CD 92 37 21 01 00 E5 CD F8 3B CD .!.....7!.....;.
02A7D0: 03 34 CD 47 33 21 80 00 11 00 00 01 00 00 C5 D5 .4.G3!..........
02A7E0: E5 CD 8F 34 21 00 00 7D 32 6E F2 21 00 00 7D 32 ...4!..}2n.!..}2
02A7F0: 6F F2 CD 57 33 CD 6F 33 CD 77 33 21 00 00 7D 32 o..W3.o3.w3!..}2
02A800: 65 F2 21 00 00 E5 CD 05 35 21 05 00 22 70 F2 CD e.!.....5!.."p..
02A810: 93 2C 21 00 00 22 78 F2 21 00 00 22 76 F2 21 00 .,!.."x.!.."v.!.
02A820: 00 22 74 F2 21 00 00 22 72 F2 21 00 00 7D 32 6C ."t.!.."r.!..}2l
02A830: F2 21 00 00 7D 32 6B F2 C9 21 01 00 E5 21 10 00 .!..}2k..!...!..
02A840: D1 CD 66 06 7A B3 CA 74 42 D5 22 C5 DA 2A C5 DA ..f.z..tB."..*..
02A850: E5 21 00 00 E5 21 00 00 E5 21 4F 00 E5 21 C7 00 .!...!...!O..!..
02A860: E5 CD 4C 39 2A C5 DA E5 CD 87 33 2A C5 DA 23 D1 ..L9*.....3*..#.
02A870: 1B C3 44 42 21 01 00 E5 CD F8 3B C9 21 01 00 E5 ..DB!.....;.!...
02A880: 21 04 00 D1 CD 66 06 7A B3 CA C4 42 D5 22 BB DA !....f.z...B."..
02A890: 2A BB DA E5 21 00 00 CD 08 10 C5 D5 E5 21 00 00 *...!........!..
02A8A0: CD 08 10 C5 D5 E5 21 7F 02 CD 08 10 C5 D5 E5 21 ......!........!
02A8B0: C7 00 CD 08 10 C5 D5 E5 CD 6D 36 2A BB DA 23 D1 .........m6*..#.
02A8C0: 1B C3 87 42 21 01 00 E5 CD 92 37 2A 7A F2 E5 CD ...B!.....7*z...
02A8D0: F8 3B C9 C3 1F 43 FD E1 E1 22 93 DA E1 22 95 DA .;...C..."..."..
02A8E0: E1 22 97 DA FD E5 21 00 00 22 99 DA 2A 97 DA E5 ."....!.."..*...
02A8F0: 2A 95 DA D1 CD E0 06 CB 45 CA 05 43 21 FF FF 22 *.......E..C!.."
02A900: E1 E1 D1 C1 D9 21 18 DA CD D1 05 E1 D1 C1 D9 21 .....!.........!
02A910: 1E DA CD D1 05 E1 D1 C1 D9 21 24 DA CD D1 05 E1 .........!$.....
02A920: D1 C1 D9 21 2A DA CD D1 05 FD E5 2A 6E F2 26 00 ...!*......*n.&.
02A930: CB 45 CA 63 4B 21 2A DA CD 2C 05 CD DE 0F E5 21 .E.cK!*..,.....!
02A940: 24 DA CD 2C 05 CD DE 0F E5 21 1E DA CD 2C 05 CD $..,.....!...,..
02A950: DE 0F E5 21 18 DA CD 2C 05 CD DE 0F E5 CD 55 49 ...!...,......UI
02A960: C3 9A 4B 21 2A DA CD 2C 05 C5 D5 E5 CD 9E 3D E5 ..K!*..,......=.
02A970: 21 24 DA CD 2C 05 C5 D5 E5 CD DC 3D E5 21 1E DA !$..,......=.!..
02A980: CD 2C 05 C5 D5 E5 CD 9E 3D E5 21 18 DA CD 2C 05 .,......=.!...,.
02A990: C5 D5 E5 CD DC 3D E5 CD BF 4A C9 FD E1 E1 22 08 .....=...J....".
02A9A0: DA E1 22 0A DA E1 22 0C DA E1 22 0E DA FD E5 21 .."..."..."....!
02A9B0: 0E DA E5 21 0C DA E5 21 0A DA E5 21 08 DA E5 CD ...!...!...!....
02A9C0: D3 42 CB 45 CA EE 4B 2A 0E DA CD 08 10 C5 D5 E5 .B.E..K*........
02A9D0: 2A 0C DA CD 08 10 C5 D5 E5 2A 0A DA CD 08 10 C5 *........*......
02A9E0: D5 E5 2A 08 DA CD 08 10 C5 D5 E5 CD FF 4A C9 FD ..*..........J..
02A9F0: E1 E1 7D 32 F7 D9 E1 22 F8 D9 E1 22 FA D9 E1 22 ..}2..."..."..."
02AA00: FC D9 E1 22 FE D9 FD E5 2A F7 D9 26 00 7D EE 01 ..."....*..&.}..
02AA10: 6F CB 45 CA B5 4C 2A FE D9 CD 08 10 C5 D5 E5 2A o.E..L*........*
02AA20: FC D9 CD 08 10 C5 D5 E5 2A FA D9 CD 08 10 C5 D5 ........*.......
02AA30: E5 2A FC D9 CD 08 10 C5 D5 E5 CD FF 4A 2A FA D9 .*..........J*..
02AA40: CD 08 10 C5 D5 E5 2A FC D9 CD 08 10 C5 D5 E5 2A ......*........*
02AA50: FA D9 CD 08 10 C5 D5 E5 2A F8 D9 CD 08 10 C5 D5 ........*.......
02AA60: E5 CD FF 4A 2A FE D9 CD 08 10 C5 D5 E5 2A F8 D9 ...J*........*..
02AA70: CD 08 10 C5 D5 E5 2A FA D9 CD 08 10 C5 D5 E5 2A ......*........*
02AA80: F8 D9 CD 08 10 C5 D5 E5 CD FF 4A 2A FE D9 CD 08 ..........J*....
02AA90: 10 C5 D5 E5 2A F8 D9 CD 08 10 C5 D5 E5 2A FE D9 ....*........*..
02AAA0: CD 08 10 C5 D5 E5 2A FC D9 CD 08 10 C5 D5 E5 CD ......*.........
02AAB0: FF 4A C3 F9 4C 2A FC D9 E5 2A F8 D9 D1 CD 66 06 .J..L*...*....f.
02AAC0: 7A B3 CA F9 4C D5 22 ED D9 2A FE D9 CD 08 10 C5 z...L."..*......
02AAD0: D5 E5 2A ED D9 CD 08 10 C5 D5 E5 2A FA D9 CD 08 ..*........*....
02AAE0: 10 C5 D5 E5 2A ED D9 CD 08 10 C5 D5 E5 CD FF 4A ....*..........J
02AAF0: 2A ED D9 23 D1 1B C3 C0 4C C9 FD E1 E1 7D 32 E4 *..#....L....}2.
02AB00: 99 DA C3 1B 43 2A 97 DA E5 2A 93 DA D1 CD CC 06 ....C*...*......
02AB10: CB 45 CA 1B 43 21 01 00 22 99 DA 2A 99 DA C9 FD .E..C!.."..*....
02AB20: E1 E1 22 B2 DA E1 22 B4 DA E1 22 B6 DA E1 22 B8 .."..."..."...".
02AB30: DA FD E5 21 01 00 7D 32 BA DA 21 01 00 7D 32 9B ...!..}2..!..}2.
02AB40: DA 2A 6D F2 26 00 CB 45 CA 14 48 2A 6B F2 26 00 .*m.&..E..H*k.&.
02AB50: CB 45 CA 64 43 2A 88 F2 22 9E DA 2A 86 F2 22 9C .E.dC*.."..*..".
02AB60: DA C3 86 43 2A 88 F2 E5 21 03 00 D1 CD 4E 07 22 ...C*...!....N."
02AB70: 9E DA 2A 86 F2 E5 21 03 00 D1 CD 4E 07 E5 21 07 ..*...!....N..!.
02AB80: 00 D1 19 22 9C DA 2A B8 DA 5E 23 56 EB E5 2A 9E ..."..*..^#V..*.
02AB90: DA E5 2A 9C DA E5 CD D6 42 22 A8 DA 2A B6 DA 5E ..*.....B"..*..^
02ABA0: 23 56 EB E5 2A 84 F2 E5 2A 82 F2 E5 CD D6 42 22 #V..*...*.....B"
02ABB0: A6 DA 2A B4 DA 5E 23 56 EB E5 2A 9E DA E5 2A 9C ..*..^#V..*...*.
02ABC0: DA E5 CD D6 42 22 A4 DA 2A B2 DA 5E 23 56 EB E5 ....B"..*..^#V..
02ABD0: 2A 84 F2 E5 2A 82 F2 E5 CD D6 42 22 A2 DA 2A A8 *...*.....B"..*.
02ABE0: DA E5 2A A4 DA D1 7C B2 67 7D B3 6F E5 2A A6 DA ..*...|.g}.o.*..
02ABF0: D1 7C B2 67 7D B3 6F E5 2A A2 DA D1 7C B2 67 7D .|.g}.o.*...|.g}
02AC00: B3 6F E5 21 00 00 D1 CD 92 06 CB 45 CA 14 48 2A .o.!.......E..H*
02AC10: B8 DA 5E 23 56 EB E5 2A B4 DA 5E 23 56 EB D1 CD ..^#V..*..^#V...
02AC20: 92 06 CB 45 CA D7 45 2A A8 DA E5 21 00 00 D1 CD ...E..E*...!....
02AC30: 92 06 CB 45 CA DD 44 2A A8 DA E5 21 00 00 D1 CD ...E..D*...!....
02AC40: E0 06 CB 45 CA 50 44 2A 9E DA 22 A0 DA C3 56 44 ...E.PD*.."...VD
02AC50: 2A 9C DA 22 A0 DA 2A B2 DA 5E 23 56 EB E5 2A B6 *.."..*..^#V..*.
02AC60: DA 5E 23 56 EB D1 CD 92 06 CB 45 CA D3 44 2A B6 .^#V......E..D*.
02AC70: DA 5E 23 56 EB E5 2A B2 DA 5E 23 56 EB E5 2A B6 .^#V..*..^#V..*.
02AC80: DA 5E 23 56 EB D1 EB B7 ED 52 E5 2A B4 DA 5E 23 .^#V.....R.*..^#
02AC90: 56 EB E5 2A B8 DA 5E 23 56 EB D1 EB B7 ED 52 CD V..*..^#V.....R.
02ACA0: 08 10 D9 E1 CD 08 10 CD FF 09 C5 D5 E5 2A A0 DA .............*..
02ACB0: E5 2A B8 DA 5E 23 56 EB D1 EB B7 ED 52 CD 08 10 .*..^#V.....R...
02ACC0: D9 E1 D1 C1 CD FA 09 CD DE 0F D1 19 EB 2A B6 DA .............*..
02ACD0: 73 23 72 2A A0 DA EB 2A B8 DA 73 23 72 2A A4 DA s#r*...*..s#r*..
02ACE0: E5 21 00 00 D1 CD 92 06 E5 2A B8 DA 5E 23 56 EB .!.......*..^#V.
02ACF0: E5 2A B4 DA 5E 23 56 EB D1 CD 92 06 D1 7D A3 6F .*..^#V......}£o
02AD00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
02AD10: 24 00 00 00 02 09 4E E5 24 00 41 02 00 00 00 02 $.....N.$.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: D9 E1 22 E5 D9 E1 22 E7 D9 E1 22 E9 D9 E1 22 EB .."..."..."...".
02AE10: D9 FD E5 21 EB D9 E5 21 E5 D9 E5 21 E7 D9 E5 21 ...!...!...!...!
02AE20: E9 D9 E5 CD D3 42 CB 45 CA 44 4D 2A EB D9 E5 2A .....B.E.DM*...*
02AE30: E5 D9 E5 2A E7 D9 E5 2A E9 D9 E5 2A E4 D9 26 00 ...*...*...*..&.
02AE40: E5 CD EF 4B C9 FD E1 E1 7D 32 C3 D9 E1 D1 C1 D9 ...K....}2......
02AE50: 21 C4 D9 CD D1 05 E1 D1 C1 D9 21 CA D9 CD D1 05 !.........!.....
02AE60: E1 D1 C1 D9 21 D0 D9 CD D1 05 E1 D1 C1 D9 21 D6 ....!.........!.
02AE70: D9 CD D1 05 FD E5 2A 6E F2 26 00 CB 45 CA B4 4D ......*n.&..E..M
02AE80: 21 D6 D9 CD 2C 05 CD DE 0F E5 21 D0 D9 CD 2C 05 !...,.....!...,.
02AE90: CD DE 0F E5 21 CA D9 CD 2C 05 CD DE 0F E5 21 C4 ....!...,.....!.
02AEA0: D9 CD 2C 05 CD DE 0F E5 2A C3 D9 26 00 E5 CD EF ..,.....*..&....
02AEB0: 4B C3 0A 4E 2A 6E F2 26 00 7D 32 BA D9 21 01 00 K..N*n.&.}2..!..
02AEC0: 7D 32 6E F2 21 D6 D9 CD 2C 05 C5 D5 E5 CD 9E 3D }2n.!...,......=
02AED0: E5 21 D0 D9 CD 2C 05 C5 D5 E5 CD DC 3D E5 21 CA .!...,......=.!.
02AEE0: D9 CD 2C 05 C5 D5 E5 CD 9E 3D E5 21 C4 D9 CD 2C ..,......=.!...,
02AEF0: 05 C5 D5 E5 CD DC 3D E5 2A C3 D9 26 00 E5 CD FA ......=.*..&....
02AF00: 4C 2A BA D9 26 00 7D 32 6E F2 C9 C3 86 4E 00 00 L*..&.}2n....N..
02AF10: 79 00 EF 00 63 01 D1 01 38 02 97 02 ED 02 37 03 y...c...8.....7.
02AF20: 75 03 A7 03 CB 03 E1 03 E8 03 FD E1 E1 22 8D D9 u............"..
02AF30: E1 22 8F D9 E1 22 91 D9 E1 22 93 D9 FD E5 2A B3 ."..."..."....*.
02AF40: D9 26 00 CB 45 CA 72 4E 2A 93 D9 CD 08 10 C5 D5 .&..E.rN*.......
02AF50: E5 2A 91 D9 CD 08 10 C5 D5 E5 2A 8F D9 CD 08 10 .*........*.....
02AF60: C5 D5 E5 2A 8D D9 CD 08 10 C5 D5 E5 CD FF 4A C3 ...*..........J.
02AF70: 85 4E 2A 93 D9 E5 2A 91 D9 E5 2A 8F D9 E5 2A 8D .N*...*...*...*.
02AF80: D9 E5 CD 9B 4B C9 FD E1 E1 7D 32 B3 D9 E1 22 B4 ....K....}2...".
02AF90: D9 E1 22 B6 D9 E1 22 B8 D9 FD E5 2A B4 D9 E5 21 .."..."....*...!
02AFA0: 77 8D 11 97 6E 01 12 03 D9 E1 CD 08 10 CD FA 09 w...n...........
02AFB0: CB B8 D9 21 9B D9 CD D1 05 21 9B D9 CD 2C 05 C5 ...!.....!...,..
02AFC0: D5 E5 21 E6 F1 CD 2C 05 D9 E1 D1 C1 CD FA 09 D9 ..!...,.........
02AFD0: 21 95 D9 CD D1 05 21 9B D9 CD 2C 05 C5 D5 E5 21 !.....!...,....!
02AFE0: 00 00 11 00 00 01 00 00 D9 E1 D1 C1 CD D6 06 CB ................
02AFF0: 45 CA E7 50 21 0E 4E E5 21 01 00 2B 29 D1 19 5E E..P!.N.!..+)..^
02B000: 19 6E 26 00 22 9C D8 2A 9C D8 E5 21 1B 00 D1 CD .n&."..*...!....
02B010: 7F 06 CB 45 CA 98 59 2A FB D8 22 96 D8 2A 98 D8 ...E..Y*.."..*..
02B020: E5 21 01 00 D1 19 22 98 D8 2A 98 D8 E5 2A 9A D8 .!...."..*...*..
02B030: D1 CD B8 06 CB 45 CA 95 59 21 AA D8 E5 2A 98 D8 .....E..Y!...*..
02B040: D1 19 6E 26 00 65 2E 01 E5 21 94 D8 E5 21 9E D8 ..n&.e...!...!..
02B050: CD F4 1E 2A 98 D8 E5 21 02 00 D1 19 E5 2A 9A D8 ...*...!.....*..
02B060: D1 CD B8 06 E5 21 AA D8 E5 2A 98 D8 E5 21 01 00 .....!...*...!..
02B070: D1 19 D1 19 6E 26 00 E5 21 40 00 D1 CD 7F 06 D1 ....n&..!@......
02B080: 7D A3 6F CB 45 CA B4 57 21 AA D8 E5 2A 98 D8 E5 }£o.E..W!...*...
02B090: 21 02 00 D1 19 D1 19 6E 26 00 65 2E 01 E5 21 96 !......n&.e...!.
02B0A0: D8 E5 21 9E D8 CD F4 1E 2A 98 D8 E5 21 02 00 D1 ..!.....*...!...
02B0B0: 19 22 98 D8 2A 94 D8 11 01 00 B7 ED 52 C2 DE 57 ."..*.......R..W
02B0C0: 2A FF D8 E5 2A 96 D8 D1 19 E5 2A FD D8 E5 2A FB *...*.....*...*.
02B0D0: D8 D1 19 E5 2A 96 D8 E5 CD 9F 51 C3 7B 59 19 11 ....*.....Q.{Y..
02B0E0: 02 00 B7 ED 52 C2 06 58 2A FF D8 E5 2A 96 D8 D1 ....R..X*...*...
02B0F0: 19 E5 2A FD D8 E5 2A FB D8 D1 19 E5 2A 96 D8 E5 ..*...*.....*...
02B100: CD 00 52 C3 7B 59 19 11 03 00 B7 ED 52 CA 1A 58 ..R.{Y......R..X
02B110: 19 11 04 00 B7 ED 52 C2 6A 58 2A FF D8 E5 2A FD ......R.jX*...*.
02B120: D8 E5 2A 96 D8 E5 21 01 00 D1 CD 4E 07 D1 19 E5 ..*...!....N....
02B130: 21 01 00 D1 EB B7 ED 52 E5 2A FF D8 E5 2A 96 D8 !......R.*...*..
02B140: E5 21 01 00 D1 CD 4E 07 D1 19 E5 2A FD D8 E5 21 .!....N....*...!
02B150: 01 00 D1 EB B7 ED 52 E5 2A 94 D8 E5 21 04 00 D1 ......R.*...!...
02B160: CD 7F 06 E5 CD FA 4C C3 7B 59 19 11 05 00 B7 ED ......L.{Y......
02B170: 52 C2 C6 58 2A FF D8 E5 21 81 00 11 00 00 01 00 R..X*...!.......
02B180: 40 C5 D5 E5 2A 96 D8 CD 08 10 D9 E1 D1 C1 CD FA @...*...........
02B190: 09 CD DE 0F D1 19 E5 2A FD D8 E5 2A 96 D8 D1 19 .......*...*....
02B1A0: E5 21 01 00 D1 EB B7 ED 52 E5 2A 96 D8 E5 21 01 .!......R.*...!.
02B1B0: 00 D1 19 E5 CD 8E 52 2A FF D8 E5 2A 96 D8 D1 19 ......R*...*....
02B1C0: 22 FF D8 C3 7B 59 19 11 06 00 B7 ED 52 C2 F7 58 "...{Y......R..X
02B1D0: 2A FF D8 E5 2A 96 D8 D1 19 E5 2A FD D8 E5 2A 96 *...*.....*...*.
02B1E0: D8 D1 19 E5 21 01 00 D1 EB B7 ED 52 E5 2A 96 D8 ....!......R.*..
02B1F0: E5 CD 01 54 C3 7B 59 19 11 07 00 B7 ED 52 C2 44 ...T.{Y......R.D
02B200: 23 56 EB E5 21 9B D9 CD 2C 05 D9 E1 CD 08 10 CD #V..!...,.......
02B210: FA 09 C5 D5 E5 21 80 00 11 00 00 01 00 00 D9 E1 .....!..........
02B220: D1 C1 CD E9 09 CD DE 0F 22 A7 D9 21 0E 4E E5 21 ........"..!.N.!
02B230: 0E 00 2B 29 D1 19 5E 23 56 EB E5 21 95 D9 CD 2C ..+)..^#V..!...,
02B240: 05 D9 E1 CD 08 10 CD FA 09 C5 D5 E5 21 80 00 11 ............!...
02B250: 00 00 01 00 00 D9 E1 D1 C1 CD E9 09 CD DE 0F 22 ..............."
02B260: A3 D9 21 02 00 E5 21 0E 00 D1 CD 66 06 7A B3 CA £.!...!....f.z..
02B270: E4 50 D5 22 A9 D9 21 0E 4E E5 2A A9 D9 2B 29 D1 .P."..!.N.*..+).
02B280: 19 5E 23 56 EB E5 21 9B D9 CD 2C 05 D9 E1 CD 08 .^#V..!...,.....
02B290: 10 CD FA 09 C5 D5 E5 21 80 00 11 00 00 01 00 00 .......!........
02B2A0: D9 E1 D1 C1 CD E9 09 CD DE 0F 22 A5 D9 21 0E 4E .........."..!.N
02B2B0: E5 21 0E 00 E5 2A A9 D9 D1 EB B7 ED 52 E5 21 01 .!...*......R.!.
02B2C0: 00 D1 19 2B 29 D1 19 5E 23 56 EB E5 21 95 D9 CD ...+)..^#V..!...
02B2D0: 2C 05 D9 E1 CD 08 10 CD FA 09 C5 D5 E5 21 80 00 ,............!..
02B2E0: 11 00 00 01 00 00 D9 E1 D1 C1 CD E9 09 CD DE 0F ................
02B2F0: 22 A1 D9 2A B8 D9 E5 2A A7 D9 D1 EB B7 ED 52 E5 "..*...*......R.
02B300: 2A B6 D9 E5 2A A3 D9 D1 19 E5 2A B8 D9 E5 2A A5 *...*£....*...*.
02B310: D9 D1 EB B7 ED 52 E5 2A B6 D9 E5 2A A1 D9 D1 19 .....R.*...*....
02B320: E5 CD 2A 4E 2A B8 D9 E5 2A A7 D9 D1 19 E5 2A B6 ..*N*...*.....*.
02B330: D9 E5 2A A3 D9 D1 19 E5 2A B8 D9 E5 2A A5 D9 D1 ..*£....*...*...
02B340: 19 E5 2A B6 D9 E5 2A A1 D9 D1 19 E5 CD 2A 4E 2A ..*...*......*N*
02B350: B8 D9 E5 2A A7 D9 D1 19 E5 2A B6 D9 E5 2A A3 D9 ...*.....*...*£.
02B360: D1 EB B7 ED 52 E5 21 01 00 D1 19 E5 2A B8 D9 E5 ....R.!.....*...
02B370: 2A A5 D9 D1 19 E5 2A B6 D9 E5 2A A1 D9 D1 EB B7 *.....*...*.....
02B380: ED 52 E5 21 01 00 D1 19 E5 CD 2A 4E 2A B8 D9 E5 .R.!......*N*...
02B390: 2A A7 D9 D1 EB B7 ED 52 E5 2A B6 D9 E5 2A A3 D9 *......R.*...*£.
02B3A0: D1 EB B7 ED 52 E5 21 01 00 D1 19 E5 2A B8 D9 E5 ....R.!.....*...
02B3B0: 2A A5 D9 D1 EB B7 ED 52 E5 2A B6 D9 E5 2A A1 D9 *......R.*...*..
02B3C0: D1 EB B7 ED 52 E5 21 01 00 D1 19 E5 CD 2A 4E 2A ....R.!......*N*
02B3D0: A5 D9 22 A7 D9 2A A1 D9 22 A3 D9 2A A9 D9 23 D1 .."..*.."£.*..#.
02B3E0: 1B C3 6D 4F C3 F2 50 2A B8 D9 E5 2A B6 D9 E5 CD ..mO..P*...*....
02B3F0: 54 2D C9 FD E1 E1 D1 C1 D9 21 73 D9 CD D1 05 E1 T-.......!s.....
02B400: 59 2A FF D8 E5 2A 96 D8 E5 21 01 00 D1 CD 4E 07 Y*...*...!....N.
02B410: D1 19 E5 2A FD D8 E5 2A 96 D8 D1 19 E5 21 01 00 ...*...*.....!..
02B420: D1 EB B7 ED 52 E5 2A 96 D8 E5 CD 42 53 2A FF D8 ....R.*....BS*..
02B430: E5 2A 96 D8 E5 21 01 00 D1 CD 4E 07 D1 19 22 FF .*...!....N...".
02B440: D8 C3 7B 59 19 11 08 00 B7 ED 52 C2 7B 59 2A FF ..{Y......R.{Y*.
02B450: D8 E5 2A 96 D8 D1 19 E5 2A FD D8 E5 2A 96 D8 E5 ..*.....*...*...
02B460: 21 01 00 D1 CD 56 07 D1 19 E5 2A 96 D8 E5 21 01 !....V....*...!.
02B470: 00 D1 19 E5 21 00 00 E5 CD 0B 4E 2A FF D8 E5 21 ....!.....N*...!
02B480: 03 00 E5 2A 96 D8 D1 CD F5 06 D1 19 22 FF D8 2A ...*........"..*
02B490: FB D8 22 96 D8 C3 AB 59 21 FF D8 E5 21 FD D8 E5 .."....Y!...!...
02B4A0: 2A FB D8 E5 2A 9C D8 E5 CD 72 54 2A 98 D8 E5 21 *...*....rT*...!
02B4B0: 01 00 D1 19 22 98 D8 C3 E8 56 2A 93 D8 26 00 7D ...."....V*..&.}
02B4C0: 32 6E F2 2A A0 D8 E5 CD 05 35 C9 FD E1 06 50 21 2n.*.....5....P!
02B4D0: 34 D8 CD E2 05 E1 22 85 D8 E1 D1 C1 D9 21 87 D8 4....."......!..
02B4E0: CD D1 05 E1 D1 C1 D9 21 8D D8 CD D1 05 FD E5 2A .......!.......*
02B4F0: 6E F2 26 00 CB 45 CA 1D 5A 21 8D D8 CD 2C 05 CD n.&..E..Z!...,..
02B500: DE 0F E5 21 87 D8 CD 2C 05 CD DE 0F E5 2A 85 D8 ...!...,.....*..
02B510: E5 21 34 D8 CD 3A 05 CD A1 56 C3 44 5A 21 8D D8 .!4..:...V.DZ!..
02B520: CD 2C 05 C5 D5 E5 CD 9E 3D E5 21 87 D8 CD 2C 05 .,......=.!...,.
02B530: C5 D5 E5 CD DC 3D E5 2A 85 D8 E5 21 34 D8 CD 3A .....=.*...!4..:
02B540: 05 CD A1 56 C9 C3 89 5C FD E1 E1 22 1A D8 E1 22 ...V...\..."..."
02B550: 1C D8 FD E5 2A 1C D8 E5 2A 1A D8 D1 CD 66 06 7A ....*...*....f.z
02B560: B3 CA 80 5A D5 22 10 D8 2A 20 D8 E5 2A 1E D8 E5 ...Z."..* ..*...
02B570: 2A 10 D8 E5 CD 4E 2E 2A 10 D8 23 D1 1B C3 5F 5A *....N.*..#..._Z
02B580: C9 21 B4 EB E5 2A 7A F2 2B E5 29 29 E5 29 E5 29 .!...*z.+.)).).)
02B590: E5 29 29 D1 19 D1 19 D1 19 D1 19 D1 19 22 08 D8 .)).........."..
02B5A0: 2A 84 F2 22 02 D8 2A 82 F2 22 00 D8 2A 08 D8 11 *.."..*.."..*...
02B5B0: 59 00 19 6E 26 00 CB 45 CA 06 5B 2A 08 D8 11 5A Y..n&..E..[*...Z
02B5C0: 00 19 6E 26 00 CB 45 CA DC 5A 2A 02 D8 E5 21 0A ..n&..E..Z*...!.
02B5D0: 00 D1 EB B7 ED 52 22 02 D8 C3 E8 5A 2A 00 D8 E5 .....R"....Z*...
02B5E0: 21 0A 00 D1 19 22 00 D8 2A 7A F2 E5 2A 88 F2 E5 !...."..*z..*...
02B5F0: 2A 02 D8 E5 2A 86 F2 E5 2A 00 D8 E5 CD 16 38 2A *...*...*.....8*
02B600: D1 C1 D9 21 79 D9 CD D1 05 E1 D1 C1 D9 21 7F D9 ...!y........!..
02B610: CD D1 05 FD E5 2A 6E F2 26 00 7D 32 6A D9 21 01 .....*n.&.}2j.!.
02B620: 00 7D 32 6E F2 2A 6A D9 26 00 CB 45 CA 57 51 21 .}2n.*j.&..E.WQ!
02B630: 7F D9 CD 2C 05 CD DE 0F E5 21 79 D9 CD 2C 05 CD ...,.....!y..,..
02B640: DE 0F E5 21 73 D9 CD 2C 05 CD DE 0F E5 21 01 00 ...!s..,.....!..
02B650: E5 CD 0B 4E C3 95 51 21 7F D9 CD 2C 05 C5 D5 E5 ...N..Q!...,....
02B660: CD 9E 3D E5 21 79 D9 CD 2C 05 C5 D5 E5 CD DC 3D ..=.!y..,......=
02B670: E5 21 73 D9 CD 2C 05 C5 D5 E5 21 87 00 11 00 00 .!s..,....!.....
02B680: 01 00 48 D9 E1 D1 C1 CD FA 09 CD DE 0F E5 21 00 ..H...........!.
02B690: 00 E5 CD 0B 4E 2A 6A D9 26 00 7D 32 6E F2 C9 FD ....N*j.&.}2n...
02B6A0: E1 E1 22 64 D9 E1 22 66 D9 E1 22 68 D9 FD E5 2A .."d.."f.."h...*
02B6B0: 68 D9 E5 2A 64 D9 D1 EB B7 ED 52 E5 2A 66 D9 E5 h..*d.....R.*f..
02B6C0: 2A 68 D9 E5 2A 64 D9 D1 19 E5 21 02 00 D1 19 E5 *h..*d....!.....
02B6D0: 2A 66 D9 E5 CD 9B 4B 2A 68 D9 E5 2A 66 D9 E5 2A *f....K*h..*f..*
02B6E0: 64 D9 D1 EB B7 ED 52 E5 2A 68 D9 E5 2A 66 D9 E5 d.....R.*h..*f..
02B6F0: 2A 64 D9 D1 19 E5 21 01 00 D1 19 E5 CD 9B 4B C9 *d....!.......K.
02B700: FD E1 E1 22 56 D9 E1 22 58 D9 E1 22 5A D9 FD E5 ..."V.."X.."Z...
02B710: 2A 5A D9 E5 2A 56 D9 D1 EB B7 ED 52 E5 2A 58 D9 *Z..*V.....R.*X.
02B720: E5 2A 56 D9 D1 19 E5 2A 5A D9 E5 2A 56 D9 D1 19 .*V....*Z..*V...
02B730: E5 21 01 00 D1 19 E5 2A 58 D9 E5 2A 56 D9 D1 EB .!.....*X..*V...
02B740: B7 ED 52 E5 21 01 00 D1 EB B7 ED 52 E5 CD 9B 4B ..R.!......R...K
02B750: 2A 5A D9 E5 2A 56 D9 D1 EB B7 ED 52 E5 2A 58 D9 *Z..*V.....R.*X.
02B760: E5 2A 56 D9 D1 EB B7 ED 52 E5 2A 5A D9 E5 2A 56 .*V.....R.*Z..*V
02B770: D9 D1 19 E5 21 01 00 D1 19 E5 2A 58 D9 E5 2A 56 ....!.....*X..*V
02B780: D9 D1 19 E5 21 01 00 D1 19 E5 CD 9B 4B C9 FD E1 ....!.......K...
02B790: E1 22 48 D9 E1 22 4A D9 E1 22 4C D9 FD E5 2A 4C ."H.."J.."L...*L
02B7A0: D9 E5 2A 48 D9 D1 EB B7 ED 52 E5 2A 4A D9 E5 2A ..*H.....R.*J..*
02B7B0: 4C D9 E5 2A 4A D9 E5 2A 48 D9 D1 EB B7 ED 52 E5 L..*J..*H.....R.
02B7C0: 21 01 00 D1 EB B7 ED 52 E5 CD 9B 4B 2A 4C D9 E5 !......R...K*L..
02B7D0: 2A 4A D9 E5 2A 48 D9 D1 EB B7 ED 52 E5 21 01 00 *J..*H.....R.!..
02B7E0: D1 19 E5 2A 4C D9 E5 2A 48 D9 D1 19 E5 2A 4A D9 ...*L..*H....*J.
02B7F0: E5 21 01 00 D1 19 E5 CD 9B 4B 2A 4C D9 E5 2A 48 .!.......K*L..*H
02B800: 7A F2 E5 CD F8 3B 2A 67 F2 26 00 CB 45 CA 40 5B z....;*g.&..E.@[
02B810: 2A 84 F2 E5 21 0A 00 D1 19 22 02 D8 2A 82 F2 22 *...!...."..*.."
02B820: 00 D8 2A 84 F2 22 06 D8 2A 84 F2 E5 21 0A 00 D1 ..*.."..*...!...
02B830: 19 E5 21 01 00 D1 EB B7 ED 52 22 04 D8 C3 70 5B ..!......R"...p[
02B840: 2A 84 F2 22 02 D8 2A 82 F2 E5 21 0A 00 D1 EB B7 *.."..*...!.....
02B850: ED 52 22 00 D8 2A 82 F2 E5 21 0A 00 D1 EB B7 ED .R"..*...!......
02B860: 52 E5 21 01 00 D1 19 22 06 D8 2A 82 F2 22 04 D8 R.!...."..*.."..
02B870: 2A 08 D8 11 5A 00 19 E5 2A 67 F2 26 00 EB E1 73 *...Z...*g.&...s
02B880: 2A 7A F2 E5 2A 88 F2 E5 2A 02 D8 E5 2A 86 F2 E5 *z..*...*...*...
02B890: 2A 00 D8 E5 CD 16 38 2A 7A F2 E5 CD F8 3B 2A 06 *.....8*z....;*.
02B8A0: D8 E5 2A 04 D8 E5 CD 48 5A 21 FF 00 E5 2A A7 E4 ..*....HZ!...*..
02B8B0: 26 00 D1 EB B7 ED 52 E5 CD 00 25 2A 20 D8 E5 21 &.....R...%* ..!
02B8C0: 02 00 D1 19 E5 2A 1E D8 E5 2A 20 D8 D1 EB B7 ED .....*...* .....
02B8D0: 52 E5 2A 08 D8 11 08 00 19 CD 3A 05 CD A3 08 E5 R.*.......:..£..
02B8E0: 21 06 00 D1 CD F5 06 D1 EB B7 ED 52 E5 21 01 00 !..........R.!..
02B8F0: D1 CD 56 07 D1 19 E5 2A 06 D8 E5 21 03 00 D1 19 ..V....*...!....
02B900: E5 21 01 00 E5 2A 08 D8 11 08 00 19 CD 3A 05 CD .!...*.......:..
02B910: A1 56 2A 20 D8 CD 08 10 C5 D5 E5 2A 06 D8 CD 08 .V* .......*....
02B920: 10 C5 D5 E5 2A 1E D8 CD 08 10 C5 D5 E5 2A 04 D8 ....*........*..
02B930: CD 08 10 C5 D5 E5 21 00 00 E5 CD 45 4D 21 FF 00 ......!....EM!..
02B940: E5 2A A7 E4 26 00 D1 EB B7 ED 52 E5 CD 00 25 2A .*..&.....R...%*
02B950: 20 D8 CD 08 10 C5 D5 E5 2A 84 F2 CD 08 10 C5 D5 .......*.......
02B960: E5 2A 1E D8 CD 08 10 C5 D5 E5 2A 82 F2 CD 08 10 .*........*.....
02B970: C5 D5 E5 21 00 00 E5 CD 45 4D 2A 08 D8 11 59 00 ...!....EM*...Y.
02B980: 19 E5 21 01 00 EB E1 73 C9 2A 6E F2 26 00 7D 32 ..!....s.*n.&.}2
02B990: 22 D8 21 01 00 7D 32 6E F2 2A 6D F2 26 00 7D 32 ".!..}2n.*m.&.}2
02B9A0: 23 D8 21 00 00 7D 32 6D F2 2A 88 F2 E5 21 03 00 #.!..}2m.*...!..
02B9B0: D1 CD 4E 07 22 20 D8 2A 86 F2 E5 21 03 00 D1 CD ..N." .*...!....
02B9C0: 4E 07 E5 21 07 00 D1 19 22 1E D8 21 B4 EB E5 2A N..!...."..!...*
02B9D0: 7A F2 2B E5 29 29 E5 29 E5 29 E5 29 29 D1 19 D1 z.+.)).).).))...
02B9E0: 19 D1 19 D1 19 D1 19 22 24 D8 2A 68 F2 26 00 E5 ......."$.*h.&..
02B9F0: 2A 24 D8 11 08 00 19 CD 3A 05 CD A3 08 E5 21 00 *$......:..£..!.
02BA00: D9 D1 19 E5 2A 4A D9 E5 21 01 00 D1 19 E5 2A 4C ....*J..!.....*L
02BA10: D9 E5 2A 4A D9 E5 2A 48 D9 D1 19 E5 CD 9B 4B 2A ..*J..*H......K*
02BA20: 4C D9 E5 2A 4A D9 E5 2A 48 D9 D1 19 E5 2A 4C D9 L..*J..*H....*L.
02BA30: E5 2A 48 D9 D1 EB B7 ED 52 E5 2A 4A D9 E5 CD 9B .*H.....R.*J....
02BA40: 4B C9 FD E1 E1 22 3A D9 E1 22 3C D9 E1 22 3E D9 K....":.."<..">.
02BA50: FD E5 2A 3E D9 E5 2A 3A D9 D1 EB B7 ED 52 E5 2A ..*>..*:.....R.*
02BA60: 3C D9 E5 2A 3A D9 D1 19 E5 2A 3E D9 E5 2A 3A D9 <..*:....*>..*:.
02BA70: D1 19 E5 21 01 00 D1 19 E5 2A 3C D9 E5 2A 3A D9 ...!.....*<..*:.
02BA80: D1 EB B7 ED 52 E5 21 01 00 D1 EB B7 ED 52 E5 CD ....R.!......R..
02BA90: 9B 4B 2A 3E D9 E5 2A 3A D9 D1 EB B7 ED 52 E5 2A .K*>..*:.....R.*
02BAA0: 3C D9 E5 2A 3A D9 D1 EB B7 ED 52 E5 2A 3E D9 E5 <..*:.....R.*>..
02BAB0: 2A 3A D9 D1 19 E5 21 01 00 D1 19 E5 2A 3C D9 E5 *:....!.....*<..
02BAC0: 2A 3A D9 D1 19 E5 21 01 00 D1 19 E5 CD 9B 4B 2A *:....!.......K*
02BAD0: 3E D9 E5 2A 3A D9 D1 EB B7 ED 52 E5 21 02 00 D1 >..*:.....R.!...
02BAE0: EB B7 ED 52 E5 2A 3C D9 E5 2A 3E D9 E5 2A 3A D9 ...R.*<..*>..*:.
02BAF0: D1 19 E5 21 04 00 D1 19 E5 2A 3C D9 E5 CD 9B 4B ...!.....*<....K
02BB00: C9 FD E1 E1 22 2C D9 E1 22 2E D9 E1 22 30 D9 FD ....",.."..."0..
02BB10: E5 2A 30 D9 E5 2A 2C D9 D1 EB B7 ED 52 E5 2A 2E .*0..*,.....R.*.
02BB20: D9 E5 2A 2C D9 D1 EB B7 ED 52 E5 2A 30 D9 E5 2A ..*,.....R.*0..*
02BB30: 2E D9 E5 CD 9B 4B 2A 30 D9 E5 2A 2C D9 D1 19 E5 .....K*0..*,....
02BB40: 2A 2E D9 E5 2A 2C D9 D1 EB B7 ED 52 E5 2A 30 D9 *...*,.....R.*0.
02BB50: E5 2A 2E D9 E5 CD 9B 4B 2A 30 D9 E5 2A 2E D9 E5 .*.....K*0..*...
02BB60: 2A 30 D9 E5 2A 2E D9 E5 2A 2C D9 D1 19 E5 CD 9B *0..*...*,......
02BB70: 4B C9 FD E1 E1 7D 32 1E D9 E1 7D 32 1F D9 E1 22 K....}2...}2..."
02BB80: 20 D9 E1 22 22 D9 FD E5 2A 88 F2 E5 21 03 00 D1 ..""...*...!...
02BB90: CD 4E 07 22 14 D9 2A 86 F2 E5 21 03 00 D1 CD 4E .N."..*...!....N
02BBA0: 07 E5 21 07 00 D1 19 22 12 D9 21 00 00 E5 21 05 ..!...."..!...!.
02BBB0: 00 D1 CD 66 06 7A B3 CA 82 56 D5 22 0E D9 21 97 ...f.z...V."..!.
02BBC0: EA E5 2A 1E D9 26 00 11 E0 FF 19 E5 29 D1 19 D1 ..*..&......)...
02BBD0: 19 E5 21 07 00 E5 2A 0E D9 D1 EB B7 ED 52 E5 21 ..!...*......R.!
02BBE0: 01 00 D1 CD 56 07 2B D1 19 6E 26 00 E5 2A 0E D9 ....V.+..n&..*..
02BBF0: E5 21 01 00 D1 7C A2 67 7D A3 6F E5 21 02 00 D1 .!...|.g}£o.!...
02BC00: 00 D1 CD CC 06 D1 7D A3 6F E5 2A 24 D8 11 06 00 ......}£o.*$....
02BC10: 19 5E 23 56 EB E5 2A 24 D8 11 02 00 19 5E 23 56 .^#V..*$.....^#V
02BC20: EB D1 EB B7 ED 52 E5 21 0A 00 D1 CD CC 06 D1 7D .....R.!.......}
02BC30: A3 6F E5 2A 24 D8 11 08 00 19 CD 3A 05 CD A3 08 £o.*$......:..£.
02BC40: E5 21 06 00 D1 CD F5 06 E5 2A 1E D8 E5 2A 20 D8 .!.......*...* .
02BC50: D1 EB B7 ED 52 CD 80 07 E5 21 04 00 D1 EB B7 ED ....R....!......
02BC60: 52 D1 CD E0 06 D1 7D A3 6F CB 45 CA 74 5D CD 81 R.....}£o.E.t]..
02BC70: 5A C3 AD 5D 2A 24 D8 11 59 00 19 E5 21 00 00 EB Z..]*$..Y...!...
02BC80: E1 73 2A 20 D8 CD 08 10 C5 D5 E5 2A 84 F2 CD 08 .s* .......*....
02BC90: 10 C5 D5 E5 2A 1E D8 CD 08 10 C5 D5 E5 2A 82 F2 ....*........*..
02BCA0: CD 08 10 C5 D5 E5 21 00 00 E5 CD 45 4D 2A 22 D8 ......!....EM*".
02BCB0: 26 00 7D 32 6E F2 2A 23 D8 26 00 7D 32 6D F2 C9 &.}2n.*#.&.}2m..
02BCC0: C3 36 5F C3 58 5E C3 D1 5D 80 40 20 10 08 04 02 .6_.X^..].@ ....
02BCD0: 01 FD E1 E1 22 DF D7 E1 22 E1 D7 FD E5 2A DF D7 ...."..."....*..
02BCE0: E5 21 03 00 D1 CD 4E 07 22 DF D7 21 00 00 7D 32 .!....N."..!..}2
02BCF0: D6 D7 21 00 00 E5 2A EC D7 D1 CD 66 06 7A B3 CA ..!...*....f.z..
02BD00: 49 5E D5 7D 32 D5 D7 2A E1 D7 E5 2A DF D7 E5 2A I^.}2..*...*...*
02BD10: D5 D7 26 00 D1 19 E5 CD 85 2D CB 45 CA 3E 5E 2A ..&......-.E.>^*
02BD20: D6 D7 26 00 E5 21 C9 5D E5 2A D5 D7 26 00 D1 19 ..&..!.].*..&...
02BD30: 6E 26 00 D1 7C B2 67 7D B3 6F 7D 32 D6 D7 2A D5 n&..|.g}.o}2..*.
02BD40: D7 26 00 23 D1 1B C3 FD 5D 2A D6 D7 26 00 7D 32 .&.#....]*..&.}2
02BD50: E3 D7 2A E3 D7 26 00 C9 FD E1 E1 22 EC D7 FD E5 ..*..&....."....
02BD60: 2A FE D7 26 00 E5 21 01 00 D1 CD 7F 06 CB 45 CA *..&..!.......E.
02BD70: 84 5E 21 BC 00 CD BA 14 CD BA 17 02 1B 4C CD 1B .^!..........L..
02BD80: 20 C3 9B 5E 21 BC 00 CD BA 14 CD BA 17 02 1B 2A ..^!..........*
02BD90: 2A FE D7 26 00 CD 22 17 CD 1B 20 21 BC 00 CD BA *..&.."... !....
02BDA0: 14 21 7F 02 E5 21 01 00 D1 19 26 00 CD 22 17 21 .!...!....&..".!
02BDB0: 7F 02 E5 21 01 00 D1 19 6C 26 00 CD 22 17 CD 1B ...!....l&.."...
02BDC0: 20 21 00 00 E5 21 7F 02 D1 CD 66 06 7A B3 CA 17 !...!....f.z...
02BDD0: 5F D5 22 F2 D7 2A F2 D7 E5 2A F4 D7 E5 CD C6 5D _."..*...*.....]
02BDE0: 7D 32 EE D7 2A FF D7 26 00 CB 45 CA FD 5E 2A EE }2..*..&..E..^*.
02BDF0: D7 26 00 7D 2F 6F 7C 2F 67 7D 32 EE D7 21 BC 00 .&.}/o|/g}2..!..
02BE00: CD 4E 07 D1 CD 56 07 E5 21 0F 00 D1 7C A2 67 7D .N...V..!...|.g}
02BE10: A3 6F 7D 32 01 D9 21 00 00 E5 21 03 00 D1 CD 66 £o}2..!...!....f
02BE20: 06 7A B3 CA 79 56 D5 22 10 D9 2A 01 D9 26 00 E5 .z..yV."..*..&..
02BE30: 21 03 00 E5 2A 10 D9 D1 EB B7 ED 52 D1 CD 56 07 !...*......R..V.
02BE40: E5 21 01 00 D1 7C A2 67 7D A3 6F E5 21 00 00 D1 .!...|.g}£o.!...
02BE50: CD 92 06 CB 45 CA 70 56 2A 22 D9 5E 23 56 EB E5 ....E.pV*".^#V..
02BE60: 2A 10 D9 E5 2A 1F D9 26 00 D1 CD F5 06 D1 19 22 *...*..&......."
02BE70: 0C D9 2A 0C D9 E5 2A 1F D9 26 00 D1 19 E5 21 01 ..*...*..&....!.
02BE80: 00 D1 EB B7 ED 52 22 08 D9 2A 20 D9 5E 23 56 EB .....R"..* .^#V.
02BE90: E5 21 01 00 D1 19 E5 2A 0E D9 E5 21 02 00 D1 EB .!.....*...!....
02BEA0: B7 ED 52 E5 2A 1F D9 26 00 D1 CD F5 06 D1 19 22 ..R.*..&......."
02BEB0: 0A D9 2A 0A D9 E5 2A 1F D9 26 00 D1 19 E5 21 01 ..*...*..&....!.
02BEC0: 00 D1 EB B7 ED 52 22 06 D9 2A 6D F2 26 00 CB 45 .....R"..*m.&..E
02BED0: CA 2B 56 2A 0C D9 E5 2A 14 D9 D1 CD E0 06 CB 45 .+V*...*.......E
02BEE0: CA E9 55 2A 14 D9 22 0C D9 2A 08 D9 E5 2A 12 D9 ..U*.."..*...*..
02BEF0: D1 CD CC 06 CB 45 CA FF 55 2A 12 D9 22 08 D9 2A .....E..U*.."..*
02BF00: 0A D9 E5 2A 84 F2 D1 CD E0 06 CB 45 CA 15 56 2A ...*.......E..V*
02BF10: 84 F2 22 0A D9 2A 06 D9 E5 2A 82 F2 D1 CD CC 06 .."..*...*......
02BF20: CB 45 CA 2B 56 2A 82 F2 22 06 D9 2A 0A D9 E5 2A .E.+V*.."..*...*
02BF30: 06 D9 D1 CD 66 06 7A B3 CA 70 56 D5 22 02 D9 2A ....f.z..pV."..*
02BF40: 0C D9 E5 2A 08 D9 D1 CD 66 06 7A B3 CA 67 56 D5 ...*....f.z..gV.
02BF50: 22 04 D9 2A 04 D9 E5 2A 02 D9 E5 CD 54 2D 2A 04 "..*...*....T-*.
02BF60: D9 23 D1 1B C3 4A 56 2A 02 D9 23 D1 1B C3 36 56 .#...JV*..#...6V
02BF70: 2A 10 D9 23 D1 1B C3 21 55 2A 0E D9 23 D1 1B C3 *..#...!U*..#...
02BF80: B5 54 2A 22 D9 5E 23 56 EB E5 2A 1F D9 26 00 E5 .T*".^#V..*..&..
02BF90: 21 06 00 D1 CD F5 06 D1 19 EB 2A 22 D9 73 23 72 !.........*".s#r
02BFA0: C9 FD E1 06 50 21 AA D8 CD E2 05 E1 22 FB D8 E1 ....P!......"...
02BFB0: 22 FD D8 E1 22 FF D8 FD E5 2A 6E F2 26 00 7D 32 "..."....*n.&.}2
02BFC0: 93 D8 21 01 00 7D 32 6E F2 2A 80 F2 22 A0 D8 21 ..!..}2n.*.."..!
02BFD0: 00 00 E5 CD 05 35 21 AA D8 CD 3A 05 CD A3 08 22 .....5!...:..£."
02BFE0: 9A D8 21 01 00 22 98 D8 2A 98 D8 E5 2A 9A D8 D1 ..!.."..*...*...
02BFF0: CD B8 06 CB 45 CA BA 59 21 AA D8 E5 2A 98 D8 D1 ....E..Y!...*...
02C000: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
02C010: 25 00 00 00 02 09 4E E5 25 00 41 02 00 00 00 02 %.....N.%.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: CD BA 14 2A EE D7 26 00 CD 22 17 CD 1B 20 2A F2 ...*..&.."... *.
02C110: D7 23 D1 1B C3 CC 5E 2A FE D7 26 00 E5 21 04 00 .#....^*..&..!..
02C120: D1 CD 92 06 CB 45 CA 35 5F 21 BC 00 CD BA 14 CD .....E.5_!......
02C130: CD 17 CD 1B 20 C9 FD E1 E1 7D 32 FE D7 E1 7D 32 .... ....}2...}2
02C140: FF D7 FD E5 21 07 00 22 F0 D7 2A A7 E4 26 00 7D ....!.."..*..&.}
02C150: 32 EF D7 21 FF 00 E5 CD 00 25 2A FE D7 26 00 E5 2..!.....%*..&..
02C160: 21 07 00 D1 7C A2 67 7D A3 6F 7D 32 FE D7 2A FE !...|.g}£o}2..*.
02C170: D7 26 00 E5 21 05 00 D1 CD 7F 06 E5 2A FE D7 26 .&..!.......*..&
02C180: 00 E5 21 00 00 D1 CD 7F 06 D1 7D B3 6F CB 45 CA ..!.......}.o.E.
02C190: 99 5F 21 04 00 7D 32 FE D7 21 BC 00 CD BA 14 CD ._!..}2..!......
02C1A0: BA 17 03 1B 33 18 CD 1B 20 21 00 00 E5 21 C7 00 ....3... !...!..
02C1B0: E5 21 01 00 D1 19 E5 21 03 00 D1 CD 56 07 E5 21 .!.....!....V..!
02C1C0: 01 00 D1 EB B7 ED 52 D1 CD 66 06 7A B3 CA E4 5F ......R..f.z..._
02C1D0: D5 22 F4 D7 21 07 00 E5 CD C3 5D 2A F4 D7 23 D1 ."..!.....]*..#.
02C1E0: 1B C3 CB 5F 21 C7 00 E5 21 01 00 D1 19 E5 21 03 ..._!...!.....!.
02C1F0: 00 D1 CD 56 07 22 F4 D7 21 C7 00 E5 21 01 00 D1 ...V."..!...!...
02C200: 19 E5 21 07 00 D1 7C A2 67 7D A3 6F E5 21 00 00 ..!...|.g}£o.!..
02C210: D1 CD 92 06 CB 45 CA 31 60 21 C7 00 E5 21 01 00 .....E.1`!...!..
02C220: D1 19 E5 21 07 00 D1 7C A2 67 7D A3 6F E5 CD C3 ...!...|.g}£o...
02C230: 5D 21 BC 00 CD BA 14 CD BA 17 02 1B 32 CD CD 17 ]!..........2...
02C240: CD 1B 20 2A EF D7 26 00 E5 CD 00 25 C9 C3 48 63 .. *..&....%..Hc
02C250: FD E1 E1 22 BF D7 FD E5 2A C7 D7 E5 21 FF FF D1 ..."....*...!...
02C260: CD 7F 06 CB 45 CA 86 60 21 00 00 22 B1 D7 2A 82 ....E..`!.."..*.
02C270: F2 E5 2A BF D7 D1 EB B7 ED 52 22 B3 D7 2A 82 F2 ..*......R"..*..
02C280: 22 B5 D7 C3 9E 60 21 01 00 22 B1 D7 2A 84 F2 E5 "....`!.."..*...
02C290: 2A BF D7 D1 19 22 B3 D7 2A 84 F2 22 B5 D7 2A 86 *...."..*.."..*.
02C2A0: F2 E5 2A 88 F2 D1 EB B7 ED 52 E5 21 01 00 D1 19 ..*......R.!....
02C2B0: 22 C1 D7 2A B1 D7 E5 2A 88 F2 E5 2A 84 F2 E5 2A "..*...*...*...*
02C2C0: 86 F2 E5 2A 82 F2 E5 2A BF D7 E5 2A D1 D7 26 00 ...*...*...*..&.
02C2D0: E5 CD 55 22 2A B5 D7 22 C3 D7 2A D1 D7 26 00 7D ..U"*.."..*..&.}
02C2E0: EE 01 6F CB 45 CA 25 61 2A C3 D7 E5 2A B3 D7 D1 ..o.E.%a*...*...
02C2F0: CD 92 06 CB 45 CA 22 61 2A A7 E4 26 00 7D 2F 6F ....E."a*..&.}/o
02C300: 52 EB E1 73 23 72 C3 27 69 2A 54 D6 11 06 00 19 R..s#r.'i*T.....
02C310: E5 2A 54 D6 11 06 00 19 5E 23 56 EB E5 21 0A 00 .*T.....^#V..!..
02C320: D1 19 EB E1 73 23 72 2A 54 D6 11 04 00 19 5E 23 ....s#r*T.....^#
02C330: 56 EB E5 2A 54 D6 5E 23 56 EB D1 EB B7 ED 52 E5 V..*T.^#V.....R.
02C340: 21 01 00 D1 19 22 4E D6 2A AF D6 E5 21 00 00 D1 !...."N.*...!...
02C350: CD A5 06 CB 45 CA 8D 69 2A 54 D6 11 04 00 19 E5 ....E..i*T......
02C360: 2A AF D6 E5 2A 54 D6 11 04 00 19 5E 23 56 EB D1 *...*T.....^#V..
02C370: 19 E5 2A 54 D6 5E 23 56 EB D1 EB B7 ED 52 EB E1 ..*T.^#V.....R..
02C380: 73 23 72 2A AF D6 EB 2A 54 D6 73 23 72 2A AD D6 s#r*...*T.s#r*..
02C390: E5 21 00 00 D1 CD A5 06 CB 45 CA DC 69 2A 54 D6 .!.......E..i*T.
02C3A0: 11 06 00 19 E5 2A AD D6 E5 2A 54 D6 11 06 00 19 .....*...*T.....
02C3B0: 5E 23 56 EB D1 19 E5 2A 54 D6 11 02 00 19 5E 23 ^#V....*T.....^#
02C3C0: 56 EB D1 EB B7 ED 52 EB E1 73 23 72 2A 54 D6 11 V.....R..s#r*T..
02C3D0: 02 00 19 E5 2A AD D6 EB E1 73 23 72 2A 54 D6 5E ....*....s#r*T.^
02C3E0: 23 56 EB E5 21 00 00 D1 CD E0 06 E5 2A 54 D6 11 #V..!.......*T..
02C3F0: 02 00 19 5E 23 56 EB E5 21 00 00 D1 CD E0 06 D1 ...^#V..!.......
02C400: 7D B3 6F E5 2A 54 D6 11 04 00 19 5E 23 56 EB E5 }.o.*T.....^#V..
02C410: 21 4F 00 D1 CD CC 06 D1 7D B3 6F E5 2A 54 D6 11 !O......}.o.*T..
02C420: 06 00 19 5E 23 56 EB E5 21 C7 00 D1 CD CC 06 D1 ...^#V..!.......
02C430: 7D B3 6F CB 45 CA 46 6A 21 0C 00 E5 21 03 00 E5 }.o.E.Fj!...!...
02C440: CD 76 2B C3 2D 6B 2A 54 D6 11 02 00 19 5E 23 56 .v+.-k*T.....^#V
02C450: EB E5 2A 54 D6 11 06 00 19 5E 23 56 EB D1 CD 66 ..*T.....^#V...f
02C460: 06 7A B3 CA 2D 6B D5 22 52 D6 2A 50 D6 E5 2A 4E .z..-k."R.*P..*N
02C470: D6 D1 19 E5 21 7F 00 D1 CD CC 06 E5 2A F0 D5 26 ....!.......*..&
02C480: 00 7D EE 01 6F D1 7D A3 6F E5 21 7E E2 CD 49 1A .}..o.}£o.!~..I.
02C490: 7D EE 01 6F D1 7D A3 6F CB 45 CA BB 6A 21 7E E2 }..o.}£o.E..j!~.
02C4A0: E5 21 A7 E3 E5 21 80 00 D1 19 E5 21 01 00 CD BE .!...!.....!....
02C4B0: 1A CD 1B 20 21 01 00 7D 32 F0 D5 2A 4E D6 E5 21 ... !..}2..*N..!
02C4C0: A7 E3 E5 2A 50 D6 D1 19 E5 2A 54 D6 5E 23 56 EB ...*P....*T.^#V.
02C4D0: E5 2A 52 D6 E5 CD BC 29 2A 50 D6 E5 2A 4E D6 D1 .*R....)*P..*N..
02C4E0: 19 22 50 D6 2A 50 D6 E5 21 7F 00 D1 CD CC 06 CB ."P.*P..!.......
02C4F0: 45 CA 24 6B 21 A7 E3 E5 21 80 00 D1 19 E5 21 A7 E.$k!...!.....!.
02C500: 7C 2F 67 E5 2A C1 D7 E5 2A 88 F2 E5 2A C3 D7 E5 |/g.*...*...*...
02C510: CD 9B 28 2A C3 D7 E5 2A C7 D7 D1 19 22 C3 D7 C3 ..(*...*...."...
02C520: E8 60 C3 63 61 2A C3 D7 E5 2A B3 D7 D1 CD 92 06 .`.ca*...*......
02C530: CB 45 CA 63 61 2A C1 D7 E5 2A 88 F2 E5 2A C3 D7 .E.ca*...*...*..
02C540: E5 2A 88 F2 E5 2A C3 D7 E5 21 02 00 E5 21 01 00 .*...*...!...!..
02C550: E5 CD 50 27 2A C3 D7 E5 2A C7 D7 D1 19 22 C3 D7 ..P'*...*...."..
02C560: C3 25 61 2A 7A F2 E5 2A 88 F2 E5 2A 84 F2 E5 2A .%a*z..*...*...*
02C570: BF D7 E5 2A C7 D7 D1 CD F5 06 D1 19 E5 2A 86 F2 ...*.........*..
02C580: E5 2A 82 F2 E5 2A BF D7 E5 2A C7 D7 D1 CD F5 06 .*...*...*......
02C590: D1 19 E5 CD 16 38 2A 7A F2 E5 CD F8 3B C9 2A 88 .....8*z....;.*.
02C5A0: F2 E5 2A D3 D7 D1 19 E5 21 00 00 D1 CD E0 06 E5 ..*.....!.......
02C5B0: 2A 86 F2 E5 2A D3 D7 D1 19 E5 21 4F 00 D1 CD CC *...*.....!O....
02C5C0: 06 D1 7D B3 6F CB 45 CA D8 61 21 18 00 E5 21 07 ..}.o.E..a!...!.
02C5D0: 00 E5 CD 76 2B C3 B0 62 21 01 00 E5 2A D3 D7 CD ...v+..b!...*...
02C5E0: 80 07 D1 CD 66 06 7A B3 CA B0 62 D5 22 C5 D7 2A ....f.z...b."..*
02C5F0: C7 D7 E5 21 FF FF D1 CD 7F 06 CB 45 CA 0E 62 2A ...!.......E..b*
02C600: 86 F2 22 A5 D7 21 03 00 22 A7 D7 C3 1A 62 2A 88 .."..!.."....b*.
02C610: F2 22 A5 D7 21 02 00 22 A7 D7 2A 82 F2 E5 2A 84 ."..!.."..*...*.
02C620: F2 D1 EB B7 ED 52 E5 21 01 00 D1 19 E5 2A A5 D7 .....R.!.....*..
02C630: E5 2A 84 F2 E5 2A D1 D7 26 00 E5 CD F8 29 2A A7 .*...*..&....)*.
02C640: D7 E5 2A 88 F2 E5 2A 84 F2 E5 2A 86 F2 E5 2A 82 ..*...*...*...*.
02C650: F2 E5 21 01 00 E5 2A D1 D7 26 00 E5 CD 55 22 2A ..!...*..&...U"*
02C660: 82 F2 E5 2A 84 F2 D1 EB B7 ED 52 E5 21 01 00 D1 ...*......R.!...
02C670: 19 E5 2A A5 D7 E5 2A 84 F2 E5 CD EA 2A 2A 7A F2 ..*...*.....**z.
02C680: E5 2A 88 F2 E5 2A C7 D7 D1 19 E5 2A 84 F2 E5 2A .*...*.....*...*
02C690: 86 F2 E5 2A C7 D7 D1 19 E5 2A 82 F2 E5 CD 16 38 ...*.....*.....8
02C6A0: 2A 7A F2 E5 CD F8 3B 2A C5 D7 23 D1 1B C3 E6 61 *z....;*..#....a
02C6B0: C9 2A 84 F2 E5 2A D3 D7 D1 19 E5 21 00 00 D1 CD .*...*.....!....
02C6C0: E0 06 E5 2A 82 F2 E5 2A D3 D7 D1 19 E5 21 C7 00 ...*...*.....!..
02C6D0: D1 CD CC 06 D1 7D B3 6F CB 45 CA EB 62 21 17 00 .....}.o.E..b!..
02C6E0: E5 21 07 00 E5 CD 76 2B C3 47 63 21 01 00 E5 2A .!....v+.Gc!...*
02C6F0: D3 D7 CD 80 07 E5 2A 70 F2 D1 CD 0F 07 D1 CD 66 ......*p.......f
02C700: E3 E5 21 00 00 D1 19 E5 21 80 00 CD 64 1F 2A 50 ..!.....!...d.*P
02C710: D6 E5 21 80 00 D1 EB B7 ED 52 22 50 D6 21 00 00 ..!......R"P.!..
02C720: 7D 32 F0 D5 2A 52 D6 23 D1 1B C3 61 6A 21 7E E2 }2..*R.#...aj!~.
02C730: CD B0 1A CD 1B 20 C9 FD E1 E1 22 EC D5 FD E5 21 ..... ...."....!
02C740: FF FF 22 E2 D5 2A EC D5 E5 CD 81 05 21 01 00 E5 .."..*......!...
02C750: 21 10 00 CD 9B 05 CD 4F 13 7D EE 01 6F CB 45 CA !......O.}..o.E.
02C760: 70 6B 21 0D 00 E5 21 02 00 E5 CD 76 2B C3 2C 6C pk!...!....v+.,l
02C770: 21 B4 EB E5 2A EC D5 2B E5 29 29 E5 29 E5 29 E5 !...*..+.)).).).
02C780: 29 29 D1 19 D1 19 D1 19 D1 19 D1 19 22 E4 D5 2A )).........."..*
02C790: E4 D5 11 06 00 19 5E 23 56 EB E5 2A E4 D5 11 02 ......^#V..*....
02C7A0: 00 19 5E 23 56 EB D1 EB B7 ED 52 E5 21 01 00 D1 ..^#V.....R.!...
02C7B0: 19 E5 2A E4 D5 11 04 00 19 5E 23 56 EB E5 2A E4 ..*......^#V..*.
02C7C0: D5 5E 23 56 EB D1 EB B7 ED 52 E5 21 01 00 D1 19 .^#V.....R.!....
02C7D0: D1 CD F5 06 22 E2 D5 2A E4 D5 11 59 00 19 6E 26 ...."..*...Y..n&
02C7E0: 00 CB 45 CA 15 6C 2A E2 D5 E5 21 0A 00 E5 2A E4 ..E..l*...!...*.
02C7F0: D5 11 04 00 19 5E 23 56 EB E5 2A E4 D5 5E 23 56 .....^#V..*..^#V
02C800: EB D1 EB B7 ED 52 E5 21 01 00 D1 19 D1 CD F5 06 .....R.!........
02C810: D1 19 22 E2 D5 2A E2 D5 E5 21 7F 00 D1 19 E5 21 .."..*...!.....!
02C820: 80 FF D1 7C A2 67 7D A3 6F 22 E2 D5 2A E2 D5 22 ...|.g}£o"..*.."
02C830: EE D5 2A EE D5 C9 FD E1 E1 22 E0 D5 FD E5 2A E0 ..*......"....*.
02C840: D5 E5 CD 81 05 21 01 00 E5 2A 7C F2 CD 9B 05 CD .....!...*|.....
02C850: 4F 13 7D EE 01 6F CB 45 CA 69 6C 21 0F 00 E5 21 O.}..o.E.il!...!
02C860: 02 00 E5 CD 76 2B C3 10 6D 21 B5 E4 E5 2A E0 D5 ....v+..m!...*..
02C870: 2B 29 E5 29 E5 29 E5 29 E5 29 29 D1 19 D1 19 D1 +).).).).)).....
02C880: 19 D1 19 D1 19 11 5D 00 19 6E 26 00 CB 45 CA 98 ......]..n&..E..
02C890: 6C 2A E0 D5 E5 CD 79 2B 2A E0 D5 E5 CD 4D 05 05 l*....y+*....M..
02C8A0: 77 69 6E 66 2E 2A E0 D5 E5 21 30 00 D1 19 65 2E winf.*...!0...e.
02C8B0: 01 E5 CD 3D 08 CD 49 66 21 B5 E4 E5 2A E0 D5 2B ...=..If!...*..+
02C8C0: 29 E5 29 E5 29 E5 29 E5 29 29 D1 19 D1 19 D1 19 ).).).).))......
02C8D0: D1 19 D1 19 22 D8 D5 2A D8 D5 22 DA D5 21 B4 EB ...."..*.."..!..
02C8E0: E5 2A E0 D5 2B E5 29 29 E5 29 E5 29 E5 29 29 D1 .*..+.)).).).)).
02C8F0: 19 D1 19 D1 19 D1 19 D1 19 ED 5B D8 D5 01 5D 00 ..........[...].
02C900: 06 7A B3 CA 1A 63 D5 22 C5 D7 2A 70 F2 E5 CD 50 .z...c."..*p...P
02C910: 60 2A C5 D7 23 D1 1B C3 01 63 2A D3 D7 CD 80 07 `*..#....c*.....
02C920: E5 2A 70 F2 D1 CD 45 07 E5 21 00 00 D1 CD 92 06 .*p...E..!......
02C930: CB 45 CA 47 63 2A D3 D7 CD 80 07 E5 2A 70 F2 D1 .E.Gc*......*p..
02C940: CD 45 07 E5 CD 50 60 C9 FD E1 E1 7D 32 D1 D7 E1 .E...P`....}2...
02C950: 7D 32 D2 D7 E1 22 D3 D7 FD E5 2A D3 D7 E5 21 00 }2..."....*...!.
02C960: 00 D1 CD 92 06 CB 45 CA 4F 64 21 01 00 22 C7 D7 ......E.Od!.."..
02C970: 2A D3 D7 E5 21 00 00 D1 CD E0 06 CB 45 CA 86 63 *...!.......E..c
02C980: 21 FF FF 22 C7 D7 21 B4 EB E5 2A 7A F2 2B E5 29 !.."..!...*z.+.)
02C990: 29 E5 29 E5 29 E5 29 29 D1 19 D1 19 D1 19 D1 19 ).).).))........
02C9A0: D1 19 22 C9 D7 2A C9 D7 11 59 00 19 6E 26 00 CB .."..*...Y..n&..
02C9B0: 45 CA E1 63 2A C9 D7 11 5A 00 19 6E 26 00 CB 45 E..c*...Z..n&..E
02C9C0: CA D5 63 2A 84 F2 E5 21 0A 00 D1 EB B7 ED 52 22 ..c*...!......R"
02C9D0: 84 F2 C3 E1 63 2A 82 F2 E5 21 0A 00 D1 19 22 82 ....c*...!....".
02C9E0: F2 2A D2 D7 26 00 CB 45 CA F1 63 CD 9E 61 C3 F4 .*..&..E..c..a..
02C9F0: 63 CD B1 62 21 B4 EB E5 2A 7A F2 2B E5 29 29 E5 c..b!...*z.+.)).
02CA00: 29 E5 29 E5 29 29 D1 19 D1 19 D1 19 D1 19 D1 19 ).).))..........
02CA10: 22 C9 D7 2A C9 D7 11 59 00 19 6E 26 00 CB 45 CA "..*...Y..n&..E.
02CA20: 4F 64 2A C9 D7 11 5A 00 19 6E 26 00 CB 45 CA 40 Od*...Z..n&..E.@
02CA30: 64 2A 84 F2 E5 21 0A 00 D1 19 22 84 F2 C3 4F 64 d*...!...."...Od
02CA40: 2A 82 F2 E5 21 0A 00 D1 EB B7 ED 52 22 82 F2 C9 *...!......R"...
02CA50: FD E1 E1 7D 32 9A D7 E1 22 9B D7 FD E5 2A 9B D7 ...}2..."....*..
02CA60: E5 21 01 00 E5 2A 9A D7 26 00 E5 CD 4D 60 C9 FD .!...*..&...M`..
02CA70: E1 E1 7D 32 8F D7 E1 22 90 D7 FD E5 2A 90 D7 E5 ..}2..."....*...
02CA80: 21 00 00 E5 2A 8F D7 26 00 E5 CD 4D 60 C9 FD E1 !...*..&...M`...
02CA90: E1 22 81 D7 E1 22 83 D7 E1 7D 32 85 D7 E1 7D 32 ."..."...}2...}2
02CAA0: 86 D7 FD E5 2A 83 D7 E5 21 00 00 D1 CD E0 06 E5 ....*...!.......
02CAB0: 2A 81 D7 E5 21 00 00 D1 CD E0 06 D1 7D B3 6F CB *...!.......}.o.
02CAC0: 45 CA D2 64 21 11 00 E5 21 03 00 E5 CD 76 2B C3 E..d!...!....v+.
02CAD0: 48 66 21 B4 EB E5 2A 7A F2 2B E5 29 29 E5 29 E5 Hf!...*z.+.)).).
02CAE0: 29 E5 29 29 D1 19 D1 19 D1 19 D1 19 D1 19 22 79 ).)).........."y
02CAF0: D7 2A 79 D7 11 59 00 19 6E 26 00 CB 45 CA 2D 65 .*y..Y..n&..E.-e
02CB00: ED B0 2A D8 D5 11 5D 00 19 E5 21 01 00 EB E1 73 ..*...]...!....s
02CB10: C9 FD E1 E1 22 D2 D5 E1 22 D4 D5 E1 22 D6 D5 FD ...."..."..."...
02CB20: E5 2A D6 D5 E5 CD 81 05 21 01 00 E5 21 10 00 CD .*......!...!...
02CB30: 9B 05 CD 4F 13 7D EE 01 6F CB 45 CA 4C 6D 21 10 ...O.}..o.E.Lm!.
02CB40: 00 E5 21 02 00 E5 CD 76 2B C3 8F 6F 21 B5 E4 E5 ..!....v+..o!...
02CB50: 2A D6 D5 CD 80 07 2B 29 E5 29 E5 29 E5 29 E5 29 *.....+).).).).)
02CB60: 29 D1 19 D1 19 D1 19 D1 19 D1 19 22 CA D5 2A CA ).........."..*.
02CB70: D5 11 61 D5 01 5D 00 ED B0 2A CA D5 11 5D 00 19 ..a..]...*...]..
02CB80: 6E 26 00 7D EE 01 6F CB 45 CA 9A 6D 21 10 00 E5 n&.}..o.E..m!...
02CB90: 21 02 00 E5 CD 76 2B C3 8F 6F 21 61 D5 22 CC D5 !....v+..o!a."..
02CBA0: 2A CC D5 5E 23 56 EB E5 2A D4 D5 D1 19 EB 2A CC *..^#V..*.....*.
02CBB0: D5 73 23 72 2A CC D5 11 04 00 19 E5 2A CC D5 11 .s#r*.......*...
02CBC0: 04 00 19 5E 23 56 EB E5 2A D4 D5 D1 19 EB E1 73 ...^#V..*......s
02CBD0: 23 72 2A CC D5 11 02 00 19 E5 2A CC D5 11 02 00 #r*.......*.....
02CBE0: 19 5E 23 56 EB E5 2A D2 D5 D1 19 EB E1 73 23 72 .^#V..*......s#r
02CBF0: 2A CC D5 11 06 00 19 E5 2A CC D5 11 06 00 19 5E *.......*......^
02CC00: 23 56 EB E5 2A D2 D5 D1 19 EB E1 73 23 72 2A CC #V..*......s#r*.
02CC10: D5 11 59 00 19 6E 26 00 E5 2A CC D5 11 5A 00 19 ..Y..n&..*...Z..
02CC20: 6E 26 00 D1 7D A3 6F CB 45 CA 46 6E 2A CC D5 11 n&..}£o.E.Fn*...
02CC30: 02 00 19 5E 23 56 EB E5 21 0A 00 D1 EB B7 ED 52 ...^#V..!......R
02CC40: 22 C2 D5 C3 54 6E 2A CC D5 11 02 00 19 5E 23 56 "...Tn*......^#V
02CC50: EB 22 C2 D5 2A CC D5 5E 23 56 EB E5 21 00 00 D1 ."..*..^#V..!...
02CC60: CD A5 06 E5 2A CC D5 5E 23 56 EB E5 21 4F 00 D1 ....*..^#V..!O..
02CC70: CD B8 06 D1 7D A3 6F E5 2A CC D5 11 04 00 19 5E ....}£o.*......^
02CC80: 23 56 EB E5 21 00 00 D1 CD A5 06 D1 7D A3 6F E5 #V..!.......}£o.
02CC90: 2A CC D5 11 04 00 19 5E 23 56 EB E5 21 4F 00 D1 *......^#V..!O..
02CCA0: CD B8 06 D1 7D A3 6F E5 2A CC D5 11 02 00 19 5E ....}£o.*......^
02CCB0: 23 56 EB E5 21 00 00 D1 CD A5 06 D1 7D A3 6F E5 #V..!.......}£o.
02CCC0: 2A CC D5 11 02 00 19 5E 23 56 EB E5 21 C7 00 D1 *......^#V..!...
02CCD0: CD B8 06 D1 7D A3 6F E5 2A CC D5 11 06 00 19 5E ....}£o.*......^
02CCE0: 23 56 EB E5 21 00 00 D1 CD A5 06 D1 7D A3 6F E5 #V..!.......}£o.
02CCF0: 2A CC D5 11 06 00 19 5E 23 56 EB E5 21 C7 00 D1 *......^#V..!...
02CD00: 2A 79 D7 11 5A 00 19 6E 26 00 CB 45 CA 21 65 2A *y..Z..n&..E.!e*
02CD10: 84 F2 E5 21 0A 00 D1 EB B7 ED 52 22 84 F2 C3 2D ...!......R"...-
02CD20: 65 2A 82 F2 E5 21 0A 00 D1 19 22 82 F2 2A 86 F2 e*...!...."..*..
02CD30: E5 2A 88 F2 D1 EB B7 ED 52 22 75 D7 2A 82 F2 E5 .*......R"u.*...
02CD40: 2A 84 F2 D1 EB B7 ED 52 22 73 D7 2A 83 D7 E5 2A *......R"s.*...*
02CD50: 75 D7 D1 19 E5 21 4F 00 D1 CD CC 06 CB 45 CA 70 u....!O......E.p
02CD60: 65 21 4F 00 E5 2A 83 D7 D1 EB B7 ED 52 22 75 D7 e!O..*......R"u.
02CD70: 2A 81 D7 E5 2A 73 D7 D1 19 E5 21 C7 00 D1 CD CC *...*s....!.....
02CD80: 06 CB 45 CA 95 65 21 C7 00 E5 2A 81 D7 D1 EB B7 ..E..e!...*.....
02CD90: ED 52 22 73 D7 2A 75 D7 E5 21 01 00 D1 19 22 75 .R"s.*u..!...."u
02CDA0: D7 21 00 00 E5 2A 73 D7 D1 CD 66 06 7A B3 CA ED .!...*s...f.z...
02CDB0: 65 D5 22 77 D7 2A 75 D7 E5 2A 88 F2 E5 2A 84 F2 e."w.*u..*...*..
02CDC0: E5 2A 77 D7 D1 19 E5 2A 88 F2 E5 2A 81 D7 E5 2A .*w....*...*...*
02CDD0: 77 D7 D1 19 E5 2A 86 D7 26 00 E5 2A 85 D7 26 00 w....*..&..*..&.
02CDE0: E5 CD 50 27 2A 77 D7 23 D1 1B C3 AC 65 21 B4 EB ..P'*w.#....e!..
02CDF0: E5 2A 7A F2 2B E5 29 29 E5 29 E5 29 E5 29 29 D1 .*z.+.)).).).)).
02CE00: 19 D1 19 D1 19 D1 19 D1 19 22 79 D7 2A 79 D7 11 ........."y.*y..
02CE10: 59 00 19 6E 26 00 CB 45 CA 48 66 2A 79 D7 11 5A Y..n&..E.Hf*y..Z
02CE20: 00 19 6E 26 00 CB 45 CA 39 66 2A 84 F2 E5 21 0A ..n&..E.9f*...!.
02CE30: 00 D1 19 22 84 F2 C3 48 66 2A 82 F2 E5 21 0A 00 ..."...Hf*...!..
02CE40: D1 EB B7 ED 52 22 82 F2 C9 FD E1 06 50 21 20 D7 ....R"......P! .
02CE50: CD E2 05 E1 22 71 D7 FD E5 21 B4 EB E5 2A 71 D7 ...."q...!...*q.
02CE60: 2B E5 29 29 E5 29 E5 29 E5 29 29 D1 19 D1 19 D1 +.)).).).)).....
02CE70: 19 D1 19 D1 19 11 B3 D6 01 5D 00 ED B0 21 7E E2 .........]...!~.
02CE80: E5 21 20 D7 CD 3A 05 CD 70 13 21 7E E2 CD 6F 1A .! ..:..p.!~..o.
02CE90: CD F1 1F E5 21 00 00 D1 CD 92 06 CB 45 CA AE 66 ....!.......E..f
02CEA0: 21 19 00 E5 21 05 00 E5 CD 76 2B C3 1F 68 21 B3 !...!....v+..h!.
02CEB0: D6 E5 21 A7 E3 E5 21 5D 00 CD 64 1F 21 5D 00 22 ..!...!]..d.!]."
02CEC0: 12 D7 21 B3 D6 22 18 D7 2A 18 D7 11 59 00 19 6E ..!.."..*...Y..n
02CED0: 26 00 CB 45 CA 28 67 2A 18 D7 11 5A 00 19 6E 26 &..E.(g*...Z..n&
02CEE0: 00 CB 45 CA 0A 67 2A 18 D7 11 02 00 19 E5 2A 18 ..E..g*.......*.
02CEF0: D7 11 02 00 19 5E 23 56 EB E5 21 0A 00 D1 EB B7 .....^#V..!.....
02CF00: CD B8 06 D1 7D A3 6F CB 45 CA 38 6F 2A D6 D5 E5 ....}£o.E.8o*...
02CF10: 2A CC D5 5E 23 56 EB E5 2A C2 D5 E5 CD 4D 05 05 *..^#V..*....M..
02CF20: 77 69 6E 66 2E 2A D6 D5 E5 21 30 00 D1 19 65 2E winf.*...!0...e.
02CF30: 01 E5 CD 3D 08 CD 20 68 2A D6 D5 E5 21 00 00 D1 ...=.. h*...!...
02CF40: CD E0 06 CB 45 CA 52 6F 2A D6 D5 CD 80 07 E5 CD ....E.Ro*.......
02CF50: 79 2B 2A D6 D5 E5 2A 7A F2 D1 CD 7F 06 CB 45 CA y+*...*z......E.
02CF60: 69 6F 2A D6 D5 E5 CD F8 3B 21 B4 EB E5 2A D6 D5 io*.....;!...*..
02CF70: 2B E5 29 29 E5 29 E5 29 E5 29 29 D1 19 D1 19 D1 +.)).).).)).....
02CF80: 19 D1 19 D1 19 E5 21 61 D5 D1 01 5D 00 ED B0 C9 ......!a...]....
02CF90: FD E1 06 50 21 60 D4 CD E2 05 FD E5 21 B1 D4 E5 ...P!`......!...
02CFA0: 21 60 D4 CD 3A 05 CD 4D 05 04 2E 70 74 72 CD 3D !`..:..M...ptr.=
02CFB0: 08 CD 70 13 21 B1 D4 11 5D 00 CD 10 18 CD F1 1F ..p.!...].......
02CFC0: E5 21 00 00 D1 CD 92 06 CB 45 CA DB 6F 21 1A 00 .!.......E..o!..
02CFD0: E5 21 05 00 E5 CD 76 2B C3 29 70 21 01 00 E5 21 .!....v+.)p!...!
02CFE0: 10 00 D1 CD 66 06 7A B3 CA 20 70 D5 22 56 D4 21 ....f.z.. p."V.!
02CFF0: B1 D4 CD A4 18 21 B5 E4 E5 2A 56 D4 2B 29 E5 29 .....!...*V.+).)
02D000: E5 29 E5 29 E5 29 29 D1 19 D1 19 D1 19 D1 19 D1 .).).)).........
02D010: 19 CD DC 18 CD 1B 20 2A 56 D4 23 D1 1B C3 E6 6F ...... *V.#....o
02D020: 21 B1 D4 CD 7A 18 CD 1B 20 C9 FD E1 06 50 21 05 !...z... ....P!.
02D030: D4 CD E2 05 FD E5 21 B1 D4 E5 21 05 D4 CD 3A 05 ......!...!...:.
02D040: CD 4D 05 04 2E 70 74 72 CD 3D 08 CD 70 13 21 B1 .M...ptr.=..p.!.
02D050: D4 11 5D 00 CD 11 18 CD F1 1F E5 21 00 00 D1 CD ..]........!....
02D060: 7F 06 CB 45 CA B8 70 21 01 00 E5 21 10 00 D1 CD ...E..p!...!....
02D070: 66 06 7A B3 CA AC 70 D5 22 FB D3 21 B1 D4 CD A4 f.z...p."..!....
02D080: 18 21 B5 E4 E5 2A FB D3 2B 29 E5 29 E5 29 E5 29 .!...*..+).).).)
02D090: E5 29 29 D1 19 D1 19 D1 19 D1 19 D1 19 CD B6 18 .)).............
02D0A0: CD 1B 20 2A FB D3 23 D1 1B C3 72 70 21 B1 D4 CD .. *..#...rp!...
02D0B0: 7A 18 CD 1B 20 C3 C3 70 21 15 00 E5 21 05 00 E5 z... ..p!...!...
02D0C0: CD 76 2B C9 2A 84 F2 22 F1 D3 2A 82 F2 22 EF D3 .v+.*.."..*.."..
02D0D0: 21 B4 EB E5 2A 7A F2 2B E5 29 29 E5 29 E5 29 E5 !...*z.+.)).).).
02D0E0: 29 29 D1 19 D1 19 D1 19 D1 19 D1 19 22 F3 D3 2A )).........."..*
02D0F0: F3 D3 11 59 00 19 6E 26 00 CB 45 CA 2B 71 2A F3 ...Y..n&..E.+q*.
02D100: ED 52 EB E1 73 23 72 C3 28 67 2A 18 D7 11 06 00 .R..s#r.(g*.....
02D110: 19 E5 2A 18 D7 11 06 00 19 5E 23 56 EB E5 21 0A ..*......^#V..!.
02D120: 00 D1 19 EB E1 73 23 72 2A 18 D7 11 04 00 19 5E .....s#r*......^
02D130: 23 56 EB E5 2A 18 D7 5E 23 56 EB D1 EB B7 ED 52 #V..*..^#V.....R
02D140: E5 21 01 00 D1 19 22 10 D7 2A 18 D7 11 02 00 19 .!...."..*......
02D150: 5E 23 56 EB E5 2A 18 D7 11 06 00 19 5E 23 56 EB ^#V..*......^#V.
02D160: D1 CD 66 06 7A B3 CA EF 67 D5 22 16 D7 2A 10 D7 ..f.z...g."..*..
02D170: E5 21 A7 E3 E5 2A 12 D7 D1 19 E5 2A 18 D7 5E 23 .!...*.....*..^#
02D180: 56 EB E5 2A 16 D7 E5 CD 80 29 2A 12 D7 E5 2A 10 V..*.....)*...*.
02D190: D7 D1 19 22 12 D7 2A 12 D7 E5 21 7F 00 D1 CD CC ..."..*...!.....
02D1A0: 06 CB 45 CA E6 67 21 7E E2 E5 21 A7 E3 E5 21 00 ..E..g!~..!...!.
02D1B0: 00 D1 19 E5 21 01 00 CD BA 1A CD 1B 20 21 A7 E3 ....!....... !..
02D1C0: E5 21 80 00 D1 19 E5 21 A7 E3 E5 21 00 00 D1 19 .!.....!...!....
02D1D0: E5 21 80 00 CD 64 1F 2A 12 D7 E5 21 80 00 D1 EB .!...d.*...!....
02D1E0: B7 ED 52 22 12 D7 2A 16 D7 23 D1 1B C3 64 67 2A ..R"..*..#...dg*
02D1F0: 12 D7 E5 21 00 00 D1 CD 92 06 CB 45 CA 16 68 21 ...!.......E..h!
02D200: 7E E2 E5 21 A7 E3 E5 21 00 00 D1 19 E5 21 01 00 ~..!...!.....!..
02D210: CD BA 1A CD 1B 20 21 7E E2 CD B0 1A CD 1B 20 C9 ..... !~...... .
02D220: FD E1 06 50 21 5C D6 CD E2 05 E1 22 AD D6 E1 22 ...P!\....."..."
02D230: AF D6 E1 22 B1 D6 FD E5 21 7E E2 E5 21 5C D6 CD ..."....!~..!\..
02D240: 3A 05 CD 70 13 21 7E E2 CD 70 1A CD F1 1F E5 21 :..p.!~..p.....!
02D250: 00 00 D1 CD 92 06 CB 45 CA 69 68 21 0C 00 E5 21 .......E.ih!...!
02D260: 05 00 E5 CD 76 2B C3 36 6B 21 7E E2 E5 21 A7 E3 ....v+.6k!~..!..
02D270: E5 21 00 00 D1 19 E5 21 01 00 CD BE 1A CD 1B 20 .!.....!.......
02D280: 21 A7 E3 E5 21 F1 D5 E5 21 5D 00 CD 64 1F 21 5D !...!...!]..d.!]
02D290: 00 22 50 D6 21 00 00 7D 32 F0 D5 21 B4 EB E5 2A ."P.!..}2..!...*
02D2A0: B1 D6 2B E5 29 29 E5 29 E5 29 E5 29 29 D1 19 D1 ..+.)).).).))...
02D2B0: 19 D1 19 D1 19 D1 19 E5 21 F1 D5 D1 01 5D 00 ED ........!....]..
02D2C0: B0 21 F1 D5 22 54 D6 2A 54 D6 11 59 00 19 6E 26 .!.."T.*T..Y..n&
02D2D0: 00 CB 45 CA 27 69 2A 54 D6 11 5A 00 19 6E 26 00 ..E.'i*T..Z..n&.
02D2E0: CB 45 CA 09 69 2A 54 D6 11 02 00 19 E5 2A 54 D6 .E..i*T......*T.
02D2F0: 11 02 00 19 5E 23 56 EB E5 21 0A 00 D1 EB B7 ED ....^#V..!......
02D300: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
02D310: 26 00 00 00 02 09 4E E5 26 00 41 02 00 00 00 02 &.....N.&.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: D3 11 5A 00 19 6E 26 00 CB 45 CA 1F 71 2A 84 F2 ..Z..n&..E..q*..
02D410: E5 21 0A 00 D1 EB B7 ED 52 22 F1 D3 C3 2B 71 2A .!......R"...+q*
02D420: 82 F2 E5 21 0A 00 D1 19 22 EF D3 2A 88 F2 E5 2A ...!...."..*...*
02D430: F1 D3 E5 2A 86 F2 E5 2A EF D3 E5 CD 7F 23 C9 C3 ...*...*.....#..
02D440: 11 74 FD E1 E1 22 30 D3 E1 D1 C1 D9 21 32 D3 CD .t..."0.....!2..
02D450: D1 05 FD E5 21 32 D3 CD 2C 05 C5 D5 E5 2A 30 D3 ....!2..,....*0.
02D460: 7D 2F 6F 7C 2F 67 23 E5 21 84 00 11 00 00 01 00 }/o|/g#.!.......
02D470: 20 CD 2B 0D D9 E1 CD 08 10 CD FA 09 CD B6 0D D9 .+.............
02D480: E1 D1 C1 CD FA 09 C5 D5 E5 21 05 00 E5 21 02 00 .........!...!..
02D490: E5 21 D7 D2 06 50 CD BD 1E 21 D7 D2 CD 3A 05 06 .!...P...!...:..
02D4A0: 50 21 38 D3 CD E2 05 FD E1 21 38 D3 CD 3A 05 FD P!8......!8..:..
02D4B0: E5 C9 FD E1 E1 D1 C1 D9 21 CF D2 CD D1 05 FD E5 ........!.......
02D4C0: 21 00 00 22 D5 D2 21 CF D2 CD 2C 05 C5 D5 E5 21 !.."..!...,....!
02D4D0: 00 00 11 00 00 01 00 00 D9 E1 D1 C1 CD 9B 06 CB ................
02D4E0: 45 CA 71 72 21 CF D2 CD 2C 05 CB B8 C5 D5 E5 21 E.qr!...,......!
02D4F0: 81 00 11 00 00 01 00 00 D9 E1 D1 C1 CD AE 06 CB ................
02D500: 45 CA 2E 72 21 CF D2 CD 2C 05 CB B8 CD 2B 0D C5 E..r!...,....+..
02D510: D5 E5 21 84 00 11 00 00 01 00 20 CD 2B 0D D9 E1 ..!....... .+...
02D520: D1 C1 CD FF 09 CD DE 0F 22 D5 D2 C3 71 72 21 CF ........"...qr!.
02D530: D2 CD 2C 05 CB B8 CD 2B 0D CB B8 C5 D5 E5 21 84 ..,....+......!.
02D540: 00 11 00 00 01 00 20 CD 2B 0D D9 E1 D1 C1 CD FF ...... .+.......
02D550: 09 C5 D5 E5 21 81 00 11 00 00 01 00 00 D9 E1 D1 ....!...........
02D560: C1 CD E9 09 CD DE 0F 7D 2F 6F 7C 2F 67 23 22 D5 .......}/o|/g#".
02D570: D2 2A D5 D2 C9 FD E1 E1 D1 C1 D9 21 BB D2 CD D1 .*.........!....
02D580: 05 E1 22 C1 D2 E1 22 C3 D2 E1 22 C5 D2 FD E5 21 .."..."..."....!
02D590: BB D2 CD 2C 05 C5 D5 E5 2A C1 D2 E5 CD 42 71 06 ...,....*....Bq.
02D5A0: 50 21 60 D2 CD E2 05 2A C3 D2 E5 21 03 00 D1 EB P!`....*...!....
02D5B0: B7 ED 52 22 C3 D2 21 01 00 E5 21 05 00 D1 CD 66 ..R"..!...!....f
02D5C0: 06 7A B3 CA EF 72 D5 22 B1 D2 21 C5 D2 E5 21 C3 .z...r."..!...!.
02D5D0: D2 E5 21 01 00 E5 21 60 D2 E5 2A B1 D2 D1 19 6E ..!...!`..*....n
02D5E0: 26 00 E5 CD 72 54 2A B1 D2 23 D1 1B C3 C1 72 C9 &...rT*..#....r.
02D5F0: 21 00 00 22 5E D2 21 A2 D3 CD 2C 05 C5 D5 E5 21 !.."^.!...,....!
02D600: 2A 84 F2 E5 21 0D 00 D1 19 D1 CD CC 06 D1 7D A3 *...!.........}£
02D610: 6F CB 45 CA C6 7B 21 A8 F2 CD 2C 05 C5 D5 E5 2A o.E..{!...,....*
02D620: BC D3 E5 21 AE D3 CD 2C 05 D9 E1 CD 08 10 CD FA ...!...,........
02D630: 09 D9 E1 D1 C1 CD E9 09 D9 21 A8 D3 CD D1 05 2A .........!.....*
02D640: D2 D3 CD 08 10 C5 D5 E5 2A BA D3 CD 08 10 C5 D5 ........*.......
02D650: E5 2A D2 D3 E5 21 04 00 D1 EB B7 ED 52 CD 08 10 .*...!......R...
02D660: C5 D5 E5 2A BA D3 CD 08 10 C5 D5 E5 CD FF 4A 2A ...*..........J*
02D670: EB D3 E5 21 04 00 D1 CD A5 06 CB 45 CA C6 7B 2A ...!.......E..{*
02D680: BC D3 E5 21 0A 00 E5 2A EB D3 D1 EB B7 ED 52 D1 ...!...*......R.
02D690: CD 45 07 E5 21 00 00 D1 CD 7F 06 CB 45 CA C6 7B .E..!.......E..{
02D6A0: 2A 88 F2 E5 21 03 00 D1 CD 4E 07 E5 2A BA D3 E5 *...!....N..*...
02D6B0: 21 01 00 D1 19 E5 2A BE D3 E5 21 A8 D3 CD 2C 05 !.....*...!...,.
02D6C0: C5 D5 E5 CD 75 72 2A BC D3 23 D1 1B C3 CF 7A 2A ....ur*..#....z*
02D6D0: ED D3 E5 21 04 00 D1 CD A5 06 CB 45 CA 74 7C 21 ...!.......E.t|!
02D6E0: AE F2 CD 2C 05 CB B8 C5 D5 E5 21 B4 F2 CD 2C 05 ...,......!...,.
02D6F0: CB B8 D9 E1 D1 C1 CD D6 06 CB 45 CA 10 7C 21 AE ..........E..|!.
02D700: F2 CD 2C 05 C5 D5 E5 CD B2 71 22 C0 D3 C3 1F 7C ..,......q"....|
02D710: 21 B4 F2 CD 2C 05 C5 D5 E5 CD B2 71 22 C0 D3 2A !...,......q"..*
02D720: D2 D3 E5 21 0E 00 D1 EB B7 ED 52 E5 2A D0 D3 E5 ...!......R.*...
02D730: 21 0A 00 D1 19 E5 2A C0 D3 E5 21 B4 F2 CD 2C 05 !.....*...!...,.
02D740: C5 D5 E5 CD 75 72 2A C0 D3 E5 21 00 00 D1 CD 92 ....ur*...!.....
02D750: 06 CB 45 CA 74 7C 2A CA D3 E5 21 0D 00 D1 EB B7 ..E.t|*...!.....
02D760: ED 52 E5 2A D0 D3 E5 21 0A 00 D1 19 E5 2A C0 D3 .R.*...!.....*..
02D770: E5 CD 58 73 2A 86 F2 E5 2A 88 F2 D1 EB B7 ED 52 ..Xs*...*......R
02D780: CD 80 07 E5 21 03 00 D1 CD 4E 07 E5 21 29 00 D1 ....!....N..!)..
02D790: EB B7 ED 52 22 B6 D3 2A B6 D3 E5 21 1E 00 D1 CD ...R"..*...!....
02D7A0: 0F 07 22 B4 D3 2A B6 D3 E5 2A B4 D3 E5 21 05 00 .."..*...*...!..
02D7B0: D1 CD 4E 07 D1 EB B7 ED 52 E5 2A B4 D3 E5 21 01 ..N.....R.*...!.
02D7C0: 00 D1 CD 4E 07 D1 19 22 C6 D3 2A C6 D3 E5 2A B4 ...N..."..*...*.
02D7D0: D3 CD 08 10 D9 E1 CD 08 10 CD FF 09 D9 21 9C D3 .............!..
02D7E0: CD D1 05 21 9C D3 CD 2C 05 78 EE 80 47 D9 21 A2 ...!...,.x..G.!.
02D7F0: D3 CD D1 05 2A D2 D3 E5 21 01 00 D1 EB B7 ED 52 ....*...!......R
02D800: 9C D3 CD 2C 05 D9 E1 D1 C1 CD E9 09 D9 21 A2 D3 ...,.........!..
02D810: CD D1 05 21 A2 D3 CD 2C 05 C5 D5 E5 21 00 00 CD ...!...,....!...
02D820: 08 10 D9 E1 D1 C1 CD AE 06 CB 45 CA 54 73 21 A2 ..........E.Ts!.
02D830: D3 CD 2C 05 C5 D5 E5 21 81 00 11 00 00 01 00 00 ..,....!........
02D840: D9 E1 D1 C1 CD F2 09 D9 21 A2 D3 CD D1 05 21 01 ........!.....!.
02D850: 00 22 5E D2 2A 5E D2 C9 FD E1 E1 22 50 D2 E1 22 ."^.*^....."P.."
02D860: 52 D2 E1 22 54 D2 FD E5 2A 52 D2 E5 21 03 00 D1 R.."T...*R..!...
02D870: EB B7 ED 52 22 52 D2 2A 54 D2 E5 21 01 00 D1 19 ...R"R.*T..!....
02D880: 22 54 D2 21 54 D2 E5 21 52 D2 E5 21 01 00 E5 21 "T.!T..!R..!...!
02D890: 31 00 E5 CD 72 54 21 54 D2 E5 21 52 D2 E5 21 01 1...rT!T..!R..!.
02D8A0: 00 E5 21 30 00 E5 CD 72 54 2A 50 D2 E5 21 03 00 ..!0...rT*P..!..
02D8B0: E5 21 F5 D1 06 50 CD BE 1E 2A 52 D2 E5 21 03 00 .!...P...*R..!..
02D8C0: D1 EB B7 ED 52 22 52 D2 2A 54 D2 E5 21 07 00 D1 ....R"R.*T..!...
02D8D0: EB B7 ED 52 22 54 D2 21 01 00 E5 21 03 00 D1 CD ...R"T.!...!....
02D8E0: 66 06 7A B3 CA 10 74 D5 22 46 D2 21 54 D2 E5 21 f.z...t."F.!T..!
02D8F0: 52 D2 E5 21 01 00 E5 21 F5 D1 E5 2A 46 D2 D1 19 R..!...!...*F...
02D900: 6E 26 00 E5 CD 72 54 2A 46 D2 23 D1 1B C3 E2 73 n&...rT*F.#....s
02D910: C9 FD E1 E1 7D 32 DE D3 E1 22 DF D3 E1 22 E1 D3 ....}2..."..."..
02D920: E1 22 E3 D3 E1 22 E5 D3 E1 22 E7 D3 E1 22 E9 D3 ."..."..."..."..
02D930: E1 22 EB D3 E1 22 ED D3 FD E5 2A 80 F2 22 D4 D3 ."..."....*.."..
02D940: 21 00 00 E5 CD 05 35 2A 6E F2 26 00 7D 32 8A D3 !.....5*n.&.}2..
02D950: 21 01 00 7D 32 6E F2 21 B4 EB E5 2A 7A F2 2B E5 !..}2n.!...*z.+.
02D960: 29 29 E5 29 E5 29 E5 29 29 D1 19 D1 19 D1 19 D1 )).).).)).......
02D970: 19 D1 19 22 D6 D3 2A D6 D3 5E 23 56 EB 22 9A D3 ..."..*..^#V."..
02D980: 2A D6 D3 11 04 00 19 5E 23 56 EB 22 98 D3 2A D6 *......^#V."..*.
02D990: D3 11 02 00 19 5E 23 56 EB 22 96 D3 2A D6 D3 11 .....^#V."..*...
02D9A0: 06 00 19 5E 23 56 EB 22 94 D3 2A 7A F2 E5 2A D6 ...^#V."..*z..*.
02D9B0: D3 5E 23 56 EB E5 2A E9 D3 D1 19 E5 2A D6 D3 11 .^#V..*.....*...
02D9C0: 02 00 19 5E 23 56 EB E5 2A E7 D3 D1 19 E5 2A D6 ...^#V..*.....*.
02D9D0: D3 11 04 00 19 5E 23 56 EB E5 2A E5 D3 D1 EB B7 .....^#V..*.....
02D9E0: ED 52 E5 2A D6 D3 11 06 00 19 5E 23 56 EB E5 2A .R.*......^#V..*
02D9F0: E3 D3 D1 EB B7 ED 52 E5 CD 16 38 2A 7A F2 E5 CD ......R...8*z...
02DA00: 22 B8 D3 21 AE F2 CD 2C 05 C5 D5 E5 21 B4 F2 CD "..!...,....!...
02DA10: 2C 05 D9 E1 D1 C1 CD F2 09 C5 D5 E5 2A B4 D3 CD ,...........*...
02DA20: 08 10 D9 E1 D1 C1 CD FF 09 D9 21 AE D3 CD D1 05 ..........!.....
02DA30: 21 01 00 E5 2A B4 D3 D1 CD 66 06 7A B3 CA 44 7E !...*....f.z..D~
02DA40: D5 22 BC D3 2A B8 D3 E5 21 1E 00 D1 19 E5 CD F0 ."..*...!.......
02DA50: 72 D1 19 22 B8 D3 2A ED D3 E5 21 02 00 D1 CD CC r.."..*...!.....
02DA60: 06 E5 2A B8 D3 E5 2A 86 F2 E5 21 03 00 D1 CD 4E ..*...*...!....N
02DA70: 07 E5 21 07 00 D1 19 E5 21 18 00 D1 EB B7 ED 52 ..!.....!......R
02DA80: D1 CD E0 06 D1 7D A3 6F CB 45 CA 3B 7E 21 B4 F2 .....}£o.E.;~!..
02DA90: CD 2C 05 C5 D5 E5 2A BC D3 E5 21 AE D3 CD 2C 05 .,....*...!...,.
02DAA0: D9 E1 CD 08 10 CD FA 09 D9 E1 D1 C1 CD E9 09 D9 ................
02DAB0: 21 A8 D3 CD D1 05 2A B8 D3 CD 08 10 C5 D5 E5 2A !.....*........*
02DAC0: D0 D3 CD 08 10 C5 D5 E5 2A B8 D3 CD 08 10 C5 D5 ........*.......
02DAD0: E5 2A D0 D3 E5 21 04 00 D1 19 CD 08 10 C5 D5 E5 .*...!..........
02DAE0: CD FF 4A 2A ED D3 E5 21 04 00 D1 CD A5 06 CB 45 ..J*...!.......E
02DAF0: CA 3B 7E 2A BC D3 E5 21 0A 00 E5 2A ED D3 D1 EB .;~*...!...*....
02DB00: B7 ED 52 D1 CD 45 07 E5 21 00 00 D1 CD 7F 06 CB ..R..E..!.......
02DB10: 45 CA 3B 7E 2A B8 D3 E5 21 0E 00 D1 EB B7 ED 52 E.;~*...!......R
02DB20: E5 2A D0 D3 E5 21 0A 00 D1 19 E5 2A C0 D3 E5 21 .*...!.....*...!
02DB30: A8 D3 CD 2C 05 C5 D5 E5 CD 75 72 2A BC D3 23 D1 ...,.....ur*..#.
02DB40: 1B C3 3B 7D 2A 7A F2 E5 2A 9A D3 E5 2A 96 D3 E5 ..;}*z..*...*...
02DB50: 2A 98 D3 E5 2A 94 D3 E5 CD 16 38 2A 7A F2 E5 CD *...*.....8*z...
02DB60: F8 3B 2A 8A D3 26 00 7D 32 6E F2 2A D4 D3 E5 CD .;*..&.}2n.*....
02DB70: 05 35 21 01 00 7D 32 6C F2 2A E9 D3 22 78 F2 2A .5!..}2l.*.."x.*
02DB80: E5 D3 22 76 F2 2A E7 D3 22 74 F2 2A E3 D3 22 72 .."v.*.."t.*.."r
02DB90: F2 C9 21 01 00 7D 32 6C F2 C9 C3 74 80 FD E1 E1 ..!..}2l...t....
02DBA0: 22 FB CC E1 22 FD CC FD E5 2A 27 CD E5 2A 88 F2 "..."....*'..*..
02DBB0: E5 21 03 00 D1 CD 4E 07 D1 CD CC 06 E5 2A 25 CD .!....N......*%.
02DBC0: E5 2A 86 F2 E5 21 03 00 D1 CD 4E 07 E5 21 07 00 .*...!....N..!..
02DBD0: D1 19 D1 CD E0 06 D1 7D A3 6F CB 45 CA 0A 7F 2A .......}£o.E...*
02DBE0: 23 CD E5 2A 84 F2 D1 CD CC 06 E5 2A 21 CD E5 2A #..*.......*!..*
02DBF0: 82 F2 D1 CD E0 06 D1 7D A3 6F CB 45 CA 0A 7F 2A .......}£o.E...*
02DC00: F8 3B 2A ED D3 E5 21 00 00 D1 CD E0 06 E5 2A EB .;*...!.......*.
02DC10: D3 E5 21 00 00 D1 CD E0 06 D1 7D AB 6F CB 45 CA ..!.......}.o.E.
02DC20: 3E 75 2A 68 F2 26 00 7D 32 89 D3 21 00 00 7D 32 >u*h.&.}2..!..}2
02DC30: 68 F2 CD 45 5A 2A 89 D3 26 00 7D 32 68 F2 2A ED h..EZ*..&.}2h.*.
02DC40: D3 CD 80 07 22 ED D3 2A EB D3 CD 80 07 22 EB D3 ...."..*....."..
02DC50: 2A ED D3 E5 21 09 00 D1 CD CC 06 CB 45 CA 66 75 *...!.......E.fu
02DC60: 21 00 00 22 ED D3 2A EB D3 E5 21 09 00 D1 CD CC !.."..*...!.....
02DC70: 06 CB 45 CA 7C 75 21 00 00 22 EB D3 2A 88 F2 E5 ..E.|u!.."..*...
02DC80: 21 04 00 D1 19 E5 21 03 00 D1 CD 4E 07 22 D2 D3 !.....!....N."..
02DC90: 2A 82 F2 E5 21 0E 00 D1 EB B7 ED 52 22 D0 D3 2A *...!......R"..*
02DCA0: 84 F2 E5 21 06 00 D1 19 22 CC D3 2A D2 D3 22 CE ...!...."..*..".
02DCB0: D3 2A D0 D3 22 C8 D3 2A 86 F2 E5 21 02 00 D1 EB .*.."..*...!....
02DCC0: B7 ED 52 E5 21 03 00 D1 CD 4E 07 E5 21 07 00 D1 ..R.!....N..!...
02DCD0: 19 22 CA D3 2A E1 D3 E5 21 00 00 D1 CD A5 06 E5 ."..*...!.......
02DCE0: 2A DF D3 E5 21 00 00 D1 CD A5 06 D1 7D B3 6F CB *...!.......}.o.
02DCF0: 45 CA 72 77 2A 6D F2 26 00 7D 32 8B D3 21 01 00 E.rw*m.&.}2..!..
02DD00: 7D 32 6D F2 21 B4 EB E5 2A 7A F2 2B E5 29 29 E5 }2m.!...*z.+.)).
02DD10: 29 E5 29 E5 29 29 D1 19 D1 19 D1 19 D1 19 D1 19 ).).))..........
02DD20: 22 D6 D3 2A D6 D3 5E 23 56 EB 22 92 D3 2A D6 D3 "..*..^#V."..*..
02DD30: 11 04 00 19 5E 23 56 EB 22 90 D3 2A D6 D3 11 02 ....^#V."..*....
02DD40: 00 19 5E 23 56 EB 22 8E D3 2A D6 D3 11 06 00 19 ..^#V."..*......
02DD50: 5E 23 56 EB 22 8C D3 2A 7A F2 E5 2A 92 D3 E5 21 ^#V."..*z..*...!
02DD60: 04 00 D1 19 E5 2A 8E D3 E5 21 06 00 D1 19 E5 2A .....*...!.....*
02DD70: 90 D3 E5 21 02 00 D1 EB B7 ED 52 E5 2A 8C D3 E5 ...!......R.*...
02DD80: 21 0E 00 D1 EB B7 ED 52 E5 CD 16 38 2A 7A F2 E5 !......R...8*z..
02DD90: CD F8 3B 21 00 00 7D 32 6E F2 2A E1 D3 E5 21 00 ..;!..}2n.*...!.
02DDA0: 00 D1 CD A5 06 CB 45 CA FF 76 2A E1 D3 E5 CD 05 ......E..v*.....
02DDB0: 35 21 B4 F2 CD 2C 05 C5 D5 E5 21 A8 F2 CD 2C 05 5!...,....!...,.
02DDC0: C5 D5 E5 21 A2 F2 CD 2C 05 D9 E1 D1 C1 CD E9 09 ...!...,........
02DDD0: C5 D5 E5 21 AE F2 CD 2C 05 C5 D5 E5 21 A8 F2 CD ...!...,....!...
02DDE0: 2C 05 C5 D5 E5 21 A2 F2 CD 2C 05 D9 E1 D1 C1 CD ,....!...,......
02DDF0: E9 09 C5 D5 E5 CD FF 4A 21 00 00 E5 CD 05 35 2A .......J!.....5*
02DE00: FD CC E5 2A FB CC E5 CD 54 2D C9 FD E1 E1 22 EF ...*....T-....".
02DE10: CC E1 22 F1 CC FD E5 2A 80 F2 22 E5 CC 21 00 00 .."....*.."..!..
02DE20: E5 CD 05 35 2A 37 CD 11 02 00 B7 ED 52 C2 42 7F ...5*7......R.B.
02DE30: 2A F1 CC E5 2A EF CC E5 2A 35 CD E5 CD 00 52 C3 *...*...*5....R.
02DE40: 6C 80 19 11 03 00 B7 ED 52 CA 56 7F 19 11 04 00 l.......R.V.....
02DE50: B7 ED 52 C2 96 7F 2A F1 CC E5 2A 35 CD D1 EB B7 ..R...*...*5....
02DE60: ED 52 E5 2A EF CC E5 2A 35 CD D1 19 E5 2A F1 CC .R.*...*5....*..
02DE70: E5 2A 35 CD D1 19 E5 2A EF CC E5 2A 35 CD D1 EB .*5....*...*5...
02DE80: B7 ED 52 E5 2A 37 CD E5 21 04 00 D1 CD 7F 06 E5 ..R.*7..!.......
02DE90: CD FA 4C C3 6C 80 19 11 05 00 B7 ED 52 C2 B8 7F ..L.l.......R...
02DEA0: 2A F1 CC E5 2A EF CC E5 2A 35 CD E5 21 01 00 D1 *...*...*5..!...
02DEB0: 19 E5 CD 8E 52 C3 6C 80 19 11 06 00 B7 ED 52 C2 ....R.l.......R.
02DEC0: DA 7F 2A F1 CC E5 2A EF CC E5 2A 35 CD E5 21 01 ..*...*...*5..!.
02DED0: 00 D1 19 E5 CD 01 54 C3 6C 80 19 11 01 00 B7 ED ......T.l.......
02DEE0: 52 C2 F6 7F 2A F1 CC E5 2A EF CC E5 2A 35 CD E5 R...*...*...*5..
02DEF0: CD 9F 51 C3 6C 80 19 11 08 00 B7 ED 52 C2 1C 80 ..Q.l.......R...
02DF00: 2A F1 CC E5 2A EF CC E5 2A 35 CD E5 21 01 00 D1 *...*...*5..!...
02DF10: 19 E5 21 00 00 E5 CD 0B 4E C3 6C 80 19 11 09 00 ..!.....N.l.....
02DF20: B7 ED 52 C2 53 80 21 00 00 7D 32 08 CD 2A 0A CD ..R.S.!..}2..*..
02DF30: 26 00 CB 45 CA 45 80 2A F1 CC E5 2A EF CC E5 CD &..E.E.*...*....
02DF40: 9D 7E C3 50 80 2A F1 CC E5 2A EF CC E5 CD 54 2D .~.P.*...*....T-
02DF50: C3 6C 80 19 11 07 00 B7 ED 52 C2 6C 80 2A F1 CC .l.......R.l.*..
02DF60: E5 2A EF CC E5 2A 35 CD E5 CD 42 53 2A E5 CC E5 .*...*5...BS*...
02DF70: CD 05 35 C9 FD E1 E1 22 33 CD E1 22 35 CD E1 22 ..5...."3.."5.."
02DF80: 37 CD E1 22 39 CD E1 22 3B CD E1 11 3D CD 01 B0 7.."9..";...=...
02DF90: 04 ED B0 FD E5 2A 39 CD E5 2A 3B CD D1 EB B7 ED .....*9..*;.....
02DFA0: 52 CD 80 07 E5 21 02 00 D1 CD A5 06 CB 45 CA BB R....!.......E..
02DFB0: 85 2A 78 F2 22 05 CD 2A 74 F2 22 03 CD 2A 76 F2 .*x."..*t."..*v.
02DFC0: 22 01 CD 2A 72 F2 22 FF CC 2A 6E F2 26 00 7D 32 "..*r."..*n.&.}2
02DFD0: 09 CD 21 01 00 7D 32 6E F2 2A 39 CD E5 21 00 00 ..!..}2n.*9..!..
02DFE0: D1 CD E0 06 7D 32 0A CD 2A 39 CD CD 80 07 22 39 ....}2..*9...."9
02DFF0: CD 21 01 00 22 11 CD 21 01 00 22 0F CD 21 06 00 .!.."..!.."..!..
02E000: DF D3 E5 21 00 00 D1 CD A5 06 CB 45 CA 44 77 2A ...!.......E.Dw*
02E010: DF D3 E5 CD 05 35 21 00 00 CD 08 10 C5 D5 E5 21 .....5!........!
02E020: A8 F2 CD 2C 05 C5 D5 E5 21 00 00 CD 08 10 C5 D5 ...,....!.......
02E030: E5 21 A2 F2 CD 2C 05 C5 D5 E5 CD FF 4A 21 00 00 .!...,......J!..
02E040: E5 CD 05 35 2A 8B D3 26 00 7D 32 6D F2 21 01 00 ...5*..&.}2m.!..
02E050: 7D 32 6E F2 2A 7A F2 E5 2A 92 D3 E5 2A 8E D3 E5 }2n.*z..*...*...
02E060: 2A 90 D3 E5 2A 8C D3 E5 CD 16 38 2A 7A F2 E5 CD *...*.....8*z...
02E070: F8 3B 2A EB D3 E5 21 02 00 D1 CD A5 06 CB 45 CA .;*...!.......E.
02E080: 30 78 2A D2 D3 CD 08 10 C5 D5 E5 2A D0 D3 CD 08 0x*........*....
02E090: 10 C5 D5 E5 2A CE D3 CD 08 10 C5 D5 E5 2A CC D3 ....*........*..
02E0A0: CD 08 10 C5 D5 E5 CD FF 4A 2A DE D3 26 00 CB 45 ........J*..&..E
02E0B0: CA 30 78 2A D2 D3 CD 08 10 C5 D5 E5 2A CC D3 CD .0x*........*...
02E0C0: 08 10 C5 D5 E5 2A D2 D3 E5 21 04 00 D1 EB B7 ED .....*...!......
02E0D0: 52 CD 08 10 C5 D5 E5 2A CC D3 E5 21 04 00 D1 19 R......*...!....
02E0E0: CD 08 10 C5 D5 E5 CD FF 4A 2A D2 D3 CD 08 10 C5 ........J*......
02E0F0: D5 E5 2A CC D3 CD 08 10 C5 D5 E5 2A D2 D3 E5 21 ..*........*...!
02E100: 04 00 D1 19 CD 08 10 C5 D5 E5 2A CC D3 E5 21 04 ..........*...!.
02E110: 00 D1 19 CD 08 10 C5 D5 E5 CD FF 4A 2A D2 D3 E5 ...........J*...
02E120: 2A CC D3 E5 21 01 00 D1 EB B7 ED 52 E5 CD 54 2D *...!......R..T-
02E130: 2A ED D3 E5 21 02 00 D1 CD A5 06 CB 45 CA E6 78 *...!.......E..x
02E140: 2A D2 D3 CD 08 10 C5 D5 E5 2A D0 D3 CD 08 10 C5 *........*......
02E150: D5 E5 2A CA D3 E5 21 01 00 D1 19 CD 08 10 C5 D5 ..*...!.........
02E160: E5 2A C8 D3 CD 08 10 C5 D5 E5 CD FF 4A 2A DE D3 .*..........J*..
02E170: 26 00 CB 45 CA E6 78 2A CA D3 CD 08 10 C5 D5 E5 &..E..x*........
02E180: 2A C8 D3 CD 08 10 C5 D5 E5 2A CA D3 E5 21 04 00 *........*...!..
02E190: D1 EB B7 ED 52 CD 08 10 C5 D5 E5 2A C8 D3 E5 21 ....R......*...!
02E1A0: 04 00 D1 EB B7 ED 52 CD 08 10 C5 D5 E5 CD FF 4A ......R........J
02E1B0: 2A CA D3 CD 08 10 C5 D5 E5 2A C8 D3 CD 08 10 C5 *........*......
02E1C0: D5 E5 2A CA D3 E5 21 04 00 D1 EB B7 ED 52 CD 08 ..*...!......R..
02E1D0: 10 C5 D5 E5 2A C8 D3 E5 21 04 00 D1 19 CD 08 10 ....*...!.......
02E1E0: C5 D5 E5 CD FF 4A 2A D0 D3 E5 2A CC D3 D1 EB B7 .....J*...*.....
02E1F0: ED 52 CD 80 07 E5 21 23 00 D1 CD A5 06 E5 2A CA .R....!#......*.
02E200: 22 0D CD 21 06 00 22 0B CD 2A 6C F2 26 00 CB 45 "..!.."..*l.&..E
02E210: CA 2E 82 21 04 00 22 11 CD 21 02 00 22 0F CD 21 ...!.."..!.."..!
02E220: 06 00 22 0D CD 21 0E 00 22 0B CD 2A 86 F2 E5 21 .."..!.."..*...!
02E230: 07 00 D1 19 E5 2A 0F CD D1 EB B7 ED 52 E5 2A 88 .....*......R.*.
02E240: F2 D1 EB B7 ED 52 E5 2A 0F CD D1 19 E5 2A 11 CD .....R.*.....*..
02E250: E5 2A 0F CD D1 19 E5 21 01 00 D1 CD 4E 07 D1 CD .*.....!....N...
02E260: CC 06 E5 2A 82 F2 E5 2A 0B CD D1 EB B7 ED 52 E5 ...*...*......R.
02E270: 2A 84 F2 D1 EB B7 ED 52 E5 2A 0D CD D1 19 E5 2A *......R.*.....*
02E280: 0D CD E5 2A 0B CD D1 19 E5 21 01 00 D1 CD 4E 07 ...*.....!....N.
02E290: D1 CD CC 06 D1 7D A3 6F CB 45 CA 2E 82 2A 88 F2 .....}£o.E...*..
02E2A0: 22 1B CD 2A 88 F2 E5 2A 11 CD D1 19 E5 2A 78 F2 "..*...*.....*x.
02E2B0: D1 19 22 27 CD 2A 84 F2 22 19 CD 2A 84 F2 E5 2A .."'.*.."..*...*
02E2C0: 0D CD D1 19 E5 2A 74 F2 D1 19 22 23 CD 2A 86 F2 .....*t..."#.*..
02E2D0: 22 17 CD 2A 86 F2 E5 2A 0F CD D1 EB B7 ED 52 E5 "..*...*......R.
02E2E0: 2A 76 F2 D1 EB B7 ED 52 22 25 CD 2A 82 F2 22 15 *v.....R"%.*..".
02E2F0: CD 2A 82 F2 E5 2A 0B CD D1 EB B7 ED 52 E5 2A 72 .*...*......R.*r
02E300: F2 D1 EB B7 ED 52 22 21 CD 2A 7A F2 E5 2A 27 CD .....R"!.*z..*'.
02E310: E5 2A 23 CD E5 2A 25 CD E5 2A 21 CD E5 CD 16 38 .*#..*%..*!....8
02E320: 2A 7A F2 E5 CD F8 3B 21 01 00 7D 32 6C F2 2A 37 *z....;!..}2l.*7
02E330: CD E5 21 00 00 D1 CD A5 06 7D 32 08 CD 2A 37 CD ..!......}2..*7.
02E340: E5 21 00 00 D1 CD 92 06 7D 32 07 CD 2A 37 CD CD .!......}2..*7..
02E350: 80 07 22 37 CD 2A 35 CD CD 80 07 22 35 CD 2A 33 .."7.*5...."5.*3
02E360: CD E5 21 00 00 D1 CD E0 06 CB 45 CA D8 82 21 81 ..!.......E...!.
02E370: 00 11 00 00 01 00 00 C5 D5 E5 21 A8 F2 CD 2C 05 ..........!...,.
02E380: CB B8 C5 D5 E5 21 A2 F2 CD 2C 05 CB B8 D9 E1 D1 .....!...,......
02E390: C1 CD E9 09 D9 E1 D1 C1 CD FF 09 C5 D5 E5 21 A8 ..............!.
02E3A0: F2 CD 2C 05 CB B8 D9 E1 D1 C1 CD FA 09 C5 D5 E5 ..,.............
02E3B0: 2A 82 F2 E5 2A 84 F2 D1 EB B7 ED 52 CD 80 07 CD *...*......R....
02E3C0: 08 10 D9 E1 D1 C1 CD FA 09 CD DE 0F E5 21 01 00 .............!..
02E3D0: D1 19 22 13 CD C3 DE 82 21 00 00 22 13 CD 2A 39 ..".....!.."..*9
02E3E0: CD E5 21 02 00 D1 CD E0 06 E5 2A 6A F2 26 00 D1 ..!.......*j.&..
02E3F0: 7D A3 6F CB 45 CA 3C 83 CD 9B 14 CD BA 17 34 3C }£o.E.<.......4<
02E400: D3 E5 2A CE D3 D1 EB B7 ED 52 CD 80 07 E5 21 96 ..*......R....!.
02E410: 00 D1 CD A5 06 D1 7D A3 6F CB 45 CA 44 7E 2A D2 ......}£o.E.D~*.
02E420: D3 CD 08 10 C5 D5 E5 2A D0 D3 CD 08 10 C5 D5 E5 .......*........
02E430: 2A D2 D3 E5 21 04 00 D1 EB B7 ED 52 CD 08 10 C5 *...!......R....
02E440: D5 E5 2A D0 D3 CD 08 10 C5 D5 E5 CD FF 4A 2A D2 ..*..........J*.
02E450: D3 CD 08 10 C5 D5 E5 2A D0 D3 CD 08 10 C5 D5 E5 .......*........
02E460: 2A D2 D3 CD 08 10 C5 D5 E5 2A D0 D3 E5 21 04 00 *........*...!..
02E470: D1 19 CD 08 10 C5 D5 E5 CD FF 4A 2A 82 F2 E5 2A ..........J*...*
02E480: 84 F2 D1 EB B7 ED 52 E5 21 14 00 D1 EB B7 ED 52 ......R.!......R
02E490: 22 B6 D3 2A B6 D3 E5 21 07 00 D1 CD 0F 07 22 B4 "..*...!......".
02E4A0: D3 2A B6 D3 E5 2A B4 D3 E5 21 03 00 D1 CD 4E 07 .*...*...!....N.
02E4B0: D1 EB B7 ED 52 E5 2A B4 D3 D1 19 22 C6 D3 2A EB ....R.*...."..*.
02E4C0: D3 E5 21 04 00 D1 CD A5 06 CB 45 CA 67 7A 21 A2 ..!.......E.gz!.
02E4D0: F2 CD 2C 05 CB B8 C5 D5 E5 21 A8 F2 CD 2C 05 CB ..,......!...,..
02E4E0: B8 D9 E1 D1 C1 CD D6 06 CB 45 CA FF 79 21 A2 F2 .........E..y!..
02E4F0: CD 2C 05 C5 D5 E5 CD B2 71 22 BE D3 C3 0E 7A 21 .,......q"....z!
02E500: A8 F2 CD 2C 05 C5 D5 E5 CD B2 71 22 BE D3 2A 88 ...,......q"..*.
02E510: F2 E5 21 03 00 D1 CD 4E 07 E5 2A D0 D3 E5 21 01 ..!....N..*...!.
02E520: 00 D1 19 E5 2A BE D3 E5 21 A8 F2 CD 2C 05 C5 D5 ....*...!...,...
02E530: E5 CD 75 72 2A BE D3 E5 21 00 00 D1 CD 92 06 CB ..ur*...!.......
02E540: 45 CA 67 7A 2A 88 F2 E5 21 03 00 D1 CD 4E 07 E5 E.gz*...!....N..
02E550: 21 01 00 D1 19 E5 2A CC D3 E5 21 02 00 D1 19 E5 !.....*...!.....
02E560: 2A BE D3 E5 CD 58 73 2A C6 D3 E5 2A B4 D3 CD 08 *....Xs*...*....
02E570: 10 D9 E1 CD 08 10 CD FF 09 D9 21 9C D3 CD D1 05 ..........!.....
02E580: 21 9C D3 CD 2C 05 78 EE 80 47 D9 21 A2 D3 CD D1 !...,.x..G.!....
02E590: 05 2A D0 D3 22 BA D3 21 A2 F2 CD 2C 05 C5 D5 E5 .*.."..!...,....
02E5A0: 21 A8 F2 CD 2C 05 D9 E1 D1 C1 CD F2 09 C5 D5 E5 !...,...........
02E5B0: 2A B4 D3 CD 08 10 D9 E1 D1 C1 CD FF 09 D9 21 AE *.............!.
02E5C0: D3 CD D1 05 21 01 00 E5 2A B4 D3 D1 CD 66 06 7A ....!...*....f.z
02E5D0: B3 CA CF 7B D5 22 BC D3 2A BA D3 E5 21 07 00 D1 ...{."..*...!...
02E5E0: EB B7 ED 52 E5 CD F0 72 D1 EB B7 ED 52 22 BA D3 ...R...r....R"..
02E5F0: 2A EB D3 E5 21 02 00 D1 CD CC 06 E5 2A BA D3 E5 *...!.......*...
02E600: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
02E610: 27 00 00 00 02 09 4E E5 27 00 41 02 00 00 00 02 '.....N.'.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: 44 72 61 77 50 6F 6C 79 67 6F 6E 3E 3A 20 74 6F DrawPolygon>: to
02E710: 6F 20 66 65 77 20 64 61 74 61 20 70 61 69 72 73 o few data pairs
02E720: 20 20 2D 3E 20 28 4E 50 6F 69 6E 74 73 29 20 3E -> (NPoints) >
02E730: 3D 20 32 CD CD 17 CD 1B 20 C3 68 85 21 3D CD E5 = 2..... .h.!=..
02E740: 2A 3B CD 2B 29 29 E5 29 D1 19 D1 19 E5 21 01 00 *;.+)).).....!..
02E750: 2B 29 5D 54 29 19 D1 19 CD 2C 05 C5 D5 E5 CD 9E +)]T)....,......
02E760: 3D 22 27 CD 2A 82 F2 E5 2A 84 F2 D1 19 E5 21 3D ="'.*...*.....!=
02E770: CD E5 2A 3B CD 2B 29 29 E5 29 D1 19 D1 19 E5 21 ..*;.+)).).....!
02E780: 02 00 2B 29 5D 54 29 19 D1 19 CD 2C 05 C5 D5 E5 ..+)]T)....,....
02E790: CD DC 3D D1 EB B7 ED 52 22 23 CD 2A 27 CD E5 2A ..=....R"#.*'..*
02E7A0: 23 CD E5 CD 0B 7F 2A 33 CD CD 80 07 E5 21 01 00 #.....*3.....!..
02E7B0: D1 CD 7F 06 CB 45 CA 12 84 2A 0A CD 26 00 CB 45 .....E...*..&..E
02E7C0: CA E2 83 2A 27 CD E5 2A 82 F2 E5 2A 13 CD D1 EB ...*'..*...*....
02E7D0: B7 ED 52 E5 2A 27 CD E5 2A 23 CD E5 CD 9B 4B C3 ..R.*'..*#....K.
02E7E0: 12 84 2A 27 CD CD 08 10 C5 D5 E5 2A 82 F2 E5 2A ..*'.......*...*
02E7F0: 13 CD D1 EB B7 ED 52 CD 08 10 C5 D5 E5 2A 27 CD ......R......*'.
02E800: CD 08 10 C5 D5 E5 2A 23 CD CD 08 10 C5 D5 E5 CD ......*#........
02E810: FF 4A 2A 3B CD E5 21 01 00 D1 19 E5 2A 39 CD D1 .J*;..!.....*9..
02E820: CD 66 06 7A B3 CA 68 85 D5 22 29 CD 21 3D CD E5 .f.z..h..").!=..
02E830: 2A 29 CD 2B 29 29 E5 29 D1 19 D1 19 E5 21 01 00 *).+)).).....!..
02E840: 2B 29 5D 54 29 19 D1 19 CD 2C 05 C5 D5 E5 CD 9E +)]T)....,......
02E850: 3D 22 25 CD 2A 82 F2 E5 2A 84 F2 D1 19 E5 21 3D ="%.*...*.....!=
02E860: CD E5 2A 29 CD 2B 29 29 E5 29 D1 19 D1 19 E5 21 ..*).+)).).....!
02E870: 02 00 2B 29 5D 54 29 19 D1 19 CD 2C 05 C5 D5 E5 ..+)]T)....,....
02E880: CD DC 3D D1 EB B7 ED 52 22 21 CD 2A 25 CD E5 2A ..=....R"!.*%..*
02E890: 21 CD E5 CD 0B 7F 2A 33 CD CD 80 07 E5 21 01 00 !.....*3.....!..
02E8A0: D1 CD 7F 06 CB 45 CA 02 85 2A 0A CD 26 00 CB 45 .....E...*..&..E
02E8B0: CA D2 84 2A 25 CD E5 2A 82 F2 E5 2A 13 CD D1 EB ...*%..*...*....
02E8C0: B7 ED 52 E5 2A 25 CD E5 2A 21 CD E5 CD 9B 4B C3 ..R.*%..*!....K.
02E8D0: 02 85 2A 25 CD CD 08 10 C5 D5 E5 2A 82 F2 E5 2A ..*%.......*...*
02E8E0: 13 CD D1 EB B7 ED 52 CD 08 10 C5 D5 E5 2A 25 CD ......R......*%.
02E8F0: CD 08 10 C5 D5 E5 2A 21 CD CD 08 10 C5 D5 E5 CD ......*!........
02E900: 8B C2 E5 21 04 00 2B 29 29 E5 29 D1 19 D1 19 E5 ...!..+)).).....
02E910: 21 02 00 2B 29 5D 54 29 19 D1 19 E5 21 82 00 11 !..+)]T)....!...
02E920: 00 00 01 00 20 D9 E1 CD D1 05 21 8B C2 E5 21 05 .... .....!...!.
02E930: 00 2B 29 29 E5 29 D1 19 D1 19 E5 21 02 00 2B 29 .+)).).....!..+)
02E940: 5D 54 29 19 D1 19 E5 21 04 00 CD 08 10 D9 E1 CD ]T)....!........
02E950: D1 05 21 8B C2 E5 21 06 00 2B 29 29 E5 29 D1 19 ..!...!..+)).)..
02E960: D1 19 E5 21 02 00 2B 29 5D 54 29 19 D1 19 E5 21 ...!..+)]T)....!
02E970: 83 00 11 00 00 01 00 10 D9 E1 CD D1 05 21 8B C2 .............!..
02E980: E5 21 07 00 2B 29 29 E5 29 D1 19 D1 19 E5 21 02 .!..+)).).....!.
02E990: 00 2B 29 5D 54 29 19 D1 19 E5 21 05 00 CD 08 10 .+)]T)....!.....
02E9A0: D9 E1 CD D1 05 CD 8B 2C CD 03 34 21 01 00 E5 21 .......,..4!...!
02E9B0: 00 00 CD 08 10 C5 D5 E5 21 83 00 11 00 00 01 00 ........!.......
02E9C0: 60 C5 D5 E5 21 83 F5 11 28 5C 01 8F 4A C5 D5 E5 `...!...(\..J...
02E9D0: 21 00 00 CD 08 10 C5 D5 E5 CD 6D 36 21 01 00 E5 !.........m6!...
02E9E0: CD 92 37 21 01 00 E5 21 00 00 E5 21 00 00 E5 21 ..7!...!...!...!
02E9F0: 4F 00 E5 21 11 00 E5 21 C7 00 D1 CD F5 06 E5 21 O..!...!.......!
02EA00: 14 00 D1 CD 0F 07 E5 CD 4C 39 21 01 00 E5 CD F8 ........L9!.....
02EA10: 3B 21 00 00 E5 CD 2D 2E CD 45 5A 21 07 00 E5 21 ;!....-..EZ!...!
02EA20: F9 FF E5 21 00 00 E5 21 00 00 E5 21 00 00 E5 21 ...!...!...!...!
02EA30: 00 00 E5 21 00 00 E5 21 00 00 E5 21 00 00 E5 CD ...!...!...!....
02EA40: 3F 71 21 00 00 7D 32 DA BD 21 01 00 E5 CD 05 35 ?q!..}2..!.....5
02EA50: 21 00 00 E5 21 00 00 E5 21 00 00 E5 21 00 00 E5 !...!...!...!...
02EA60: 21 00 00 E5 21 00 00 E5 21 00 00 E5 21 00 00 E5 !...!...!...!...
02EA70: 21 00 00 E5 CD 3F 71 21 8B C2 E5 21 01 00 E5 2A !....?q!...!...*
02EA80: 49 C7 E5 21 04 00 E5 21 02 00 E5 21 00 00 E5 CD I..!...!...!....
02EA90: 9A 7E 21 8B C2 E5 2A 49 C7 E5 21 DB BD E5 2A 47 .~!...*I..!...*G
02EAA0: C7 E5 CD C7 85 21 00 00 E5 CD 05 35 21 00 00 E5 .....!.....5!...
02EAB0: 21 00 00 E5 21 00 00 E5 21 00 00 E5 21 00 00 E5 !...!...!...!...
02EAC0: 21 00 00 E5 21 00 00 E5 21 00 00 E5 21 00 00 E5 !...!...!...!...
02EAD0: CD 3F 71 21 DB BD E5 21 01 00 E5 2A 47 C7 E5 21 .?q!...!...*G..!
02EAE0: 00 00 E5 21 00 00 E5 21 00 00 E5 CD 9A 7E 21 01 ...!...!.....~!.
02EAF0: 00 E5 21 18 00 E5 CD 3F 2B CD 30 8B 21 01 00 E5 ..!....?+.0.!...
02EB00: FF 4A 2A 08 CD 26 00 CB 45 CA 53 85 2A 0A CD 26 .J*..&..E.S.*..&
02EB10: 00 CB 45 CA 2C 85 2A 27 CD E5 2A 23 CD E5 2A 25 ..E.,.*'..*#..*%
02EB20: CD E5 2A 21 CD E5 CD 9B 4B C3 53 85 2A 27 CD CD ..*!....K.S.*'..
02EB30: 08 10 C5 D5 E5 2A 23 CD CD 08 10 C5 D5 E5 2A 25 .....*#.......*%
02EB40: CD CD 08 10 C5 D5 E5 2A 21 CD CD 08 10 C5 D5 E5 .......*!.......
02EB50: CD FF 4A 2A 25 CD 22 27 CD 2A 21 CD 22 23 CD 2A ..J*%."'.*!."#.*
02EB60: 29 CD 23 D1 1B C3 23 84 2A 6C F2 26 00 CB 45 CA ).#...#.*l.&..E.
02EB70: AF 85 2A 7A F2 E5 2A 1B CD E5 2A 19 CD E5 2A 17 ..*z..*...*...*.
02EB80: CD E5 2A 15 CD E5 CD 16 38 2A 7A F2 E5 CD F8 3B ..*.....8*z....;
02EB90: 2A 05 CD 22 78 F2 2A 03 CD 22 74 F2 2A 01 CD 22 *.."x.*.."t.*.."
02EBA0: 76 F2 2A FF CC 22 72 F2 21 00 00 7D 32 6C F2 2A v.*.."r.!..}2l.*
02EBB0: 09 CD 26 00 7D 32 6E F2 C3 C6 85 21 12 00 E5 21 ..&.}2n....!...!
02EBC0: 04 00 E5 CD 76 2B C9 FD E1 E1 22 2F C8 E1 22 31 ....v+...."/.."1
02EBD0: C8 E1 22 33 C8 E1 11 35 C8 01 B0 04 ED B0 FD E5 .."3...5........
02EBE0: 2A 33 C8 E5 21 01 00 D1 EB B7 ED 52 22 33 C8 21 *3..!......R"3.!
02EBF0: 81 00 11 00 00 01 00 00 C5 D5 E5 2A 2F C8 E5 21 ...........*/..!
02EC00: 01 00 D1 EB B7 ED 52 CD 08 10 D9 E1 D1 C1 CD FF ......R.........
02EC10: 09 D9 21 03 C8 CD D1 05 21 61 C7 E5 21 00 00 29 ..!.....!a..!..)
02EC20: 5D 54 29 19 D1 19 E5 21 01 00 CD 08 10 D9 E1 CD ]T)....!........
02EC30: D1 05 21 61 C7 E5 2A 33 C8 29 5D 54 29 19 D1 19 ..!a..*3.)]T)...
02EC40: E5 21 01 00 CD 08 10 D9 E1 CD D1 05 21 00 00 E5 .!..........!...
02EC50: 2A 33 C8 E5 21 02 00 D1 EB B7 ED 52 D1 CD 66 06 *3..!......R..f.
02EC60: 7A B3 CA CC 86 D5 22 25 C8 21 61 C7 E5 2A 25 C8 z....."%.!a..*%.
02EC70: E5 21 01 00 D1 19 29 5D 54 29 19 D1 19 E5 21 61 .!....)]T)....!a
02EC80: C7 E5 2A 25 C8 29 5D 54 29 19 D1 19 CD 2C 05 C5 ..*%.)]T)....,..
02EC90: D5 E5 2A 33 C8 E5 2A 25 C8 D1 EB B7 ED 52 CD 08 ..*3..*%.....R..
02ECA0: 10 D9 E1 D1 C1 CD FA 09 C5 D5 E5 2A 25 C8 E5 21 ...........*%..!
02ECB0: 01 00 D1 19 CD 08 10 D9 E1 D1 C1 CD FF 09 D9 E1 ................
02ECC0: CD D1 05 2A 25 C8 23 D1 1B C3 60 86 21 01 00 E5 ...*%.#...`.!...
02ECD0: 2A 2F C8 D1 CD 66 06 7A B3 CA 2F 8B D5 22 21 C8 */...f.z../.."!.
02ECE0: 2A 21 C8 E5 21 01 00 D1 EB B7 ED 52 E5 21 03 C8 *!..!......R.!..
02ECF0: CD 2C 05 D9 E1 CD 08 10 CD FA 09 D9 21 1B C8 CD .,..........!...
02ED00: 21 19 00 E5 CD 3F 2B CD 30 8B 21 01 00 E5 21 17 !....?+.0.!...!.
02ED10: 00 E5 CD 3F 2B CD 30 8B 21 01 00 E5 21 17 00 E5 ...?+.0.!...!...
02ED20: CD 3F 2B CD 9B 14 CD BA 17 28 45 6E 74 72 65 72 .?+......(Entrer
02ED30: 20 6C 65 20 6E 6F 6D 62 72 65 20 64 65 20 70 6F le nombre de po
02ED40: 69 6E 74 73 20 61 20 63 68 61 6E 67 65 72 20 3A ints a changer :
02ED50: 20 20 CD 1B 20 21 2B 00 E5 21 17 00 E5 CD 3F 2B .. !+..!....?+
02ED60: 21 E7 BC CD CC 14 06 50 CD 8E 16 CD 1B 20 21 E7 !......P..... !.
02ED70: BC CD 3A 05 21 4B C7 E5 21 4D C7 CD F4 1E 2A 4B ..:.!K..!M....*K
02ED80: C7 E5 CD 81 05 21 00 00 E5 2A 49 C7 CD 9B 05 CD .....!...*I.....
02ED90: 4F 13 CB 45 CA EE 8E 2A 4B C7 E5 21 00 00 D1 CD O..E...*K..!....
02EDA0: CC 06 CB 45 CA A7 92 21 01 00 E5 21 18 00 E5 CD ...E...!...!....
02EDB0: 3F 2B CD 9B 14 CD BA 17 10 4F 6C 64 20 70 6F 73 ?+.......Old pos
02EDC0: 69 74 69 6F 6E 20 3A 20 5B 21 8B C2 E5 2A 4B C7 ition : [!...*K.
02EDD0: 2B 29 29 E5 29 D1 19 D1 19 E5 21 01 00 2B 29 5D +)).).....!..+)]
02EDE0: 54 29 19 D1 19 CD 2C 05 C5 D5 E5 21 04 00 E5 21 T)....,....!...!
02EDF0: 02 00 CD 79 17 21 2C 00 CD 22 17 21 8B C2 E5 2A ...y.!,..".!...*
02EE00: 4B C7 2B 29 29 E5 29 D1 19 D1 19 E5 21 02 00 2B K.+)).).....!..+
02EE10: 29 5D 54 29 19 D1 19 CD 2C 05 C5 D5 E5 21 04 00 )]T)....,....!..
02EE20: E5 21 02 00 CD 79 17 21 5D 00 CD 22 17 CD 1B 20 .!...y.!].."...
02EE30: 21 28 00 E5 21 18 00 E5 CD 3F 2B CD 9B 14 CD BA !(..!....?+.....
02EE40: 17 1A 20 20 20 4E 6F 75 76 65 6C 6C 65 20 70 6F .. Nouvelle po
02EE50: 73 69 74 69 6F 6E 20 20 78 3A 20 20 CD 1B 20 21 sition x: .. !
02EE60: 3C 00 E5 21 18 00 E5 CD 3F 2B 21 89 BD CD CC 14 <..!....?+!.....
02EE70: 06 50 CD 8E 16 CD 1B 20 21 89 BD E5 21 01 00 D1 .P..... !...!...
02EE80: 19 6E 26 00 E5 21 20 00 D1 CD 7F 06 CB 45 CA A2 .n&..! ......E..
02EE90: 90 21 89 BD E5 21 01 00 E5 21 01 00 CD F3 08 C3 .!...!...!......
02EEA0: 78 90 21 89 BD CD 3A 05 06 50 21 E7 BC CD E2 05 x.!...:..P!.....
02EEB0: 21 28 00 E5 21 19 00 E5 CD 3F 2B CD 9B 14 CD BA !(..!....?+.....
02EEC0: 17 1A 20 20 20 4E 6F 75 76 65 6C 6C 65 20 70 6F .. Nouvelle po
02EED0: 73 69 74 69 6F 6E 20 20 79 3A 20 20 CD 1B 20 21 sition y: .. !
02EEE0: 3C 00 E5 21 19 00 E5 CD 3F 2B 21 89 BD CD CC 14 <..!....?+!.....
02EEF0: 06 50 CD 8E 16 CD 1B 20 21 89 BD E5 21 01 00 D1 .P..... !...!...
02EF00: D1 05 21 1B C8 CD 2C 05 C5 D5 E5 21 80 00 11 00 ..!...,....!....
02EF10: 00 01 00 00 D9 E1 D1 C1 CD C2 06 CB 45 CA F9 88 ............E...
02EF20: 21 81 00 11 00 00 01 00 00 C5 D5 E5 21 1B C8 CD !...........!...
02EF30: 2C 05 D9 E1 D1 C1 CD F2 09 D9 21 09 C8 CD D1 05 ,.........!.....
02EF40: 21 09 C8 CD 2C 05 D9 21 FD C7 CD D1 05 21 01 00 !...,..!.....!..
02EF50: E5 2A 33 C8 E5 21 01 00 D1 EB B7 ED 52 D1 CD 66 .*3..!......R..f
02EF60: 06 7A B3 CA 90 87 D5 22 25 C8 21 09 C8 CD 2C 05 .z....."%.!...,.
02EF70: C5 D5 E5 21 FD C7 CD 2C 05 D9 E1 D1 C1 CD FA 09 ...!...,........
02EF80: D9 21 09 C8 CD D1 05 2A 25 C8 23 D1 1B C3 61 87 .!.....*%.#...a.
02EF90: 21 1B C8 CD 2C 05 C5 D5 E5 21 FD C7 CD 2C 05 D9 !...,....!...,..
02EFA0: E1 D1 C1 CD FF 09 D9 21 FD C7 CD D1 05 21 35 C8 .......!.....!5.
02EFB0: E5 2A 33 C8 E5 21 01 00 D1 19 2B 29 29 E5 29 D1 .*3..!....+)).).
02EFC0: 19 D1 19 E5 21 01 00 2B 29 5D 54 29 19 D1 19 CD ....!..+)]T)....
02EFD0: 2C 05 D9 21 15 C8 CD D1 05 21 35 C8 E5 2A 33 C8 ,..!.....!5..*3.
02EFE0: E5 21 01 00 D1 19 2B 29 29 E5 29 D1 19 D1 19 E5 .!....+)).).....
02EFF0: 21 02 00 2B 29 5D 54 29 19 D1 19 CD 2C 05 D9 21 !..+)]T)....,..!
02F000: 0F C8 CD D1 05 2A 33 C8 E5 21 01 00 D1 CD 76 06 .....*3..!....v.
02F010: 7A B3 CA F6 88 D5 22 25 C8 21 61 C7 E5 2A 25 C8 z....."%.!a..*%.
02F020: E5 21 01 00 D1 EB B7 ED 52 29 5D 54 29 19 D1 19 .!......R)]T)...
02F030: CD 2C 05 C5 D5 E5 21 35 C8 E5 2A 25 C8 2B 29 29 .,....!5..*%.+))
02F040: E5 29 D1 19 D1 19 E5 21 01 00 2B 29 5D 54 29 19 .).....!..+)]T).
02F050: D1 19 CD 2C 05 D9 E1 D1 C1 CD FA 09 C5 D5 E5 21 ...,...........!
02F060: FD C7 CD 2C 05 C5 D5 E5 21 15 C8 CD 2C 05 D9 E1 ...,....!...,...
02F070: D1 C1 CD FA 09 D9 E1 D1 C1 CD E9 09 D9 21 15 C8 .............!..
02F080: CD D1 05 21 61 C7 E5 2A 25 C8 E5 21 01 00 D1 EB ...!a..*%..!....
02F090: B7 ED 52 29 5D 54 29 19 D1 19 CD 2C 05 C5 D5 E5 ..R)]T)....,....
02F0A0: 21 35 C8 E5 2A 25 C8 2B 29 29 E5 29 D1 19 D1 19 !5..*%.+)).)....
02F0B0: E5 21 02 00 2B 29 5D 54 29 19 D1 19 CD 2C 05 D9 .!..+)]T)....,..
02F0C0: E1 D1 C1 CD FA 09 C5 D5 E5 21 FD C7 CD 2C 05 C5 .........!...,..
02F0D0: D5 E5 21 0F C8 CD 2C 05 D9 E1 D1 C1 CD FA 09 D9 ..!...,.........
02F0E0: E1 D1 C1 CD E9 09 D9 21 0F C8 CD D1 05 2A 25 C8 .......!.....*%.
02F0F0: 2B D1 1B C3 10 88 C3 B6 8A 21 1B C8 CD 2C 05 D9 +........!...,..
02F100: 19 6E 26 00 E5 21 20 00 D1 CD 7F 06 CB 45 CA 22 .n&..! ......E."
02F110: 91 21 89 BD E5 21 01 00 E5 21 01 00 CD F3 08 C3 .!...!...!......
02F120: F8 90 21 89 BD CD 3A 05 06 50 21 38 BD CD E2 05 ..!...:..P!8....
02F130: 21 E7 BC CD 3A 05 21 41 C7 E5 21 4D C7 CD F3 1E !...:.!A..!M....
02F140: 21 38 BD CD 3A 05 21 3B C7 E5 21 4D C7 CD F3 1E !8..:.!;..!M....
02F150: 21 41 C7 CD 2C 05 C5 D5 E5 21 B4 F2 CD 2C 05 D9 !A..,....!...,..
02F160: E1 D1 C1 CD AE 06 E5 21 41 C7 CD 2C 05 C5 D5 E5 .......!A..,....
02F170: 21 AE F2 CD 2C 05 D9 E1 D1 C1 CD C2 06 D1 7D A3 !...,.........}£
02F180: 6F E5 21 3B C7 CD 2C 05 C5 D5 E5 21 A8 F2 CD 2C o.!;..,....!...,
02F190: 05 D9 E1 D1 C1 CD AE 06 E5 21 3B C7 CD 2C 05 C5 .........!;..,..
02F1A0: D5 E5 21 A2 F2 CD 2C 05 D9 E1 D1 C1 CD C2 06 D1 ..!...,.........
02F1B0: 7D A3 6F D1 7D A3 6F CB 45 CA A7 8F 21 01 00 E5 }£o.}£o.E...!...
02F1C0: CD 05 35 CD 0B 34 21 00 00 E5 21 00 00 E5 21 00 ..5..4!...!...!.
02F1D0: 00 E5 21 00 00 E5 21 00 00 E5 21 00 00 E5 21 00 ..!...!...!...!.
02F1E0: 00 E5 21 00 00 E5 21 00 00 E5 CD 3F 71 21 8B C2 ..!...!....?q!..
02F1F0: E5 21 01 00 E5 2A 49 C7 E5 21 04 00 E5 21 02 00 .!...*I..!...!..
02F200: E5 21 00 00 E5 CD 9A 7E 21 00 00 E5 CD 05 35 21 .!.....~!.....5!
02F210: 00 00 E5 21 00 00 E5 21 00 00 E5 21 00 00 E5 21 ...!...!...!...!
02F220: 00 00 E5 21 00 00 E5 21 00 00 E5 21 00 00 E5 21 ...!...!...!...!
02F230: 00 00 E5 CD 3F 71 21 DB BD E5 21 01 00 E5 2A 47 ....?q!...!...*G
02F240: C7 E5 21 00 00 E5 21 00 00 E5 21 00 00 E5 CD 9A ..!...!...!.....
02F250: 7E 21 8B C2 E5 2A 4B C7 2B 29 29 E5 29 D1 19 D1 ~!...*K.+)).)...
02F260: 19 E5 21 01 00 2B 29 5D 54 29 19 D1 19 E5 21 41 ..!..+)]T)....!A
02F270: C7 CD 2C 05 D9 E1 CD D1 05 21 8B C2 E5 2A 4B C7 ..,......!...*K.
02F280: 2B 29 29 E5 29 D1 19 D1 19 E5 21 02 00 2B 29 5D +)).).....!..+)]
02F290: 54 29 19 D1 19 E5 21 3B C7 CD 2C 05 D9 E1 CD D1 T)....!;..,.....
02F2A0: 05 CD 03 34 C3 AE 92 21 01 00 7D 32 DA BD 2A DA ...4...!..}2..*.
02F2B0: BD 26 00 CB 45 CA 49 8E C9 CD 1A 3E CD 5A 8B CD .&..E.I....>.Z..
02F2C0: 3A 2C C3 D4 20 E5 21 00 00 E5 21 00 00 E5 CD 9A :,.. .!...!.....
02F2D0: 7E 21 8B C2 E5 2A 4B C7 2B 29 29 E5 29 D1 19 D1 ~!...*K.+)).)...
02F2E0: 19 E5 21 01 00 2B 29 5D 54 29 19 D1 19 E5 21 41 ..!..+)]T)....!A
02F2F0: C7 CD 2C 05 D9 E1 CD D1 05 21 8B C2 E5 2A 4B C7 ..,......!...*K.
02F300: 21 09 C8 CD D1 05 21 09 C8 CD 2C 05 D9 21 FD C7 !.....!...,..!..
02F310: CD D1 05 21 01 00 E5 2A 33 C8 E5 21 01 00 D1 EB ...!...*3..!....
02F320: B7 ED 52 D1 CD 66 06 7A B3 CA 56 89 D5 22 25 C8 ..R..f.z..V.."%.
02F330: 21 09 C8 CD 2C 05 C5 D5 E5 21 FD C7 CD 2C 05 D9 !...,....!...,..
02F340: E1 D1 C1 CD FA 09 D9 21 09 C8 CD D1 05 2A 25 C8 .......!.....*%.
02F350: 23 D1 1B C3 27 89 21 01 00 E5 21 1B C8 CD 2C 05 #...'.!...!...,.
02F360: D9 E1 CD 08 10 CD F2 09 C5 D5 E5 21 FD C7 CD 2C ...........!...,
02F370: 05 D9 E1 D1 C1 CD FF 09 D9 21 FD C7 CD D1 05 21 .........!.....!
02F380: 35 C8 E5 21 01 00 2B 29 29 E5 29 D1 19 D1 19 E5 5..!..+)).).....
02F390: 21 01 00 2B 29 5D 54 29 19 D1 19 CD 2C 05 D9 21 !..+)]T)....,..!
02F3A0: 15 C8 CD D1 05 21 35 C8 E5 21 01 00 2B 29 29 E5 .....!5..!..+)).
02F3B0: 29 D1 19 D1 19 E5 21 02 00 2B 29 5D 54 29 19 D1 ).....!..+)]T)..
02F3C0: 19 CD 2C 05 D9 21 0F C8 CD D1 05 21 01 00 E5 2A ..,..!.....!...*
02F3D0: 33 C8 D1 CD 66 06 7A B3 CA B6 8A D5 22 25 C8 21 3...f.z....."%.!
02F3E0: 61 C7 E5 2A 25 C8 29 5D 54 29 19 D1 19 CD 2C 05 a..*%.)]T)....,.
02F3F0: C5 D5 E5 21 35 C8 E5 2A 25 C8 E5 21 01 00 D1 19 ...!5..*%..!....
02F400: 2B 29 29 E5 29 D1 19 D1 19 E5 21 01 00 2B 29 5D +)).).....!..+)]
02F410: 54 29 19 D1 19 CD 2C 05 D9 E1 D1 C1 CD FA 09 C5 T)....,.........
02F420: D5 E5 21 FD C7 CD 2C 05 C5 D5 E5 21 15 C8 CD 2C ..!...,....!...,
02F430: 05 D9 E1 D1 C1 CD FA 09 D9 E1 D1 C1 CD E9 09 D9 ................
02F440: 21 15 C8 CD D1 05 21 61 C7 E5 2A 25 C8 29 5D 54 !.....!a..*%.)]T
02F450: 29 19 D1 19 CD 2C 05 C5 D5 E5 21 35 C8 E5 2A 25 )....,....!5..*%
02F460: C8 E5 21 01 00 D1 19 2B 29 29 E5 29 D1 19 D1 19 ..!....+)).)....
02F470: E5 21 02 00 2B 29 5D 54 29 19 D1 19 CD 2C 05 D9 .!..+)]T)....,..
02F480: E1 D1 C1 CD FA 09 C5 D5 E5 21 FD C7 CD 2C 05 C5 .........!...,..
02F490: D5 E5 21 0F C8 CD 2C 05 D9 E1 D1 C1 CD FA 09 D9 ..!...,.........
02F4A0: E1 D1 C1 CD E9 09 D9 21 0F C8 CD D1 05 2A 25 C8 .......!.....*%.
02F4B0: 23 D1 1B C3 D6 89 2A 31 C8 E5 2A 21 C8 2B 29 29 #.....*1..*!.+))
02F4C0: E5 29 D1 19 D1 19 E5 21 01 00 2B 29 5D 54 29 19 .).....!..+)]T).
02F4D0: D1 19 E5 21 15 C8 CD 2C 05 C5 D5 E5 21 09 C8 CD ...!...,....!...
02F4E0: 2C 05 D9 E1 D1 C1 CD FA 09 D9 E1 CD D1 05 2A 31 ,.............*1
02F4F0: C8 E5 2A 21 C8 2B 29 29 E5 29 D1 19 D1 19 E5 21 ..*!.+)).).....!
02F500: E5 CD A9 4A 2A E5 CD E5 2A F1 CD D1 19 22 E5 CD ...J*...*...."..
02F510: 2A E3 CD E5 2A F1 CD D1 19 22 E3 CD 2A E7 CD 23 *...*...."..*..#
02F520: D1 1B C3 02 78 2A D7 CD 26 00 7D 32 6D F2 21 00 ....x*..&.}2m.!.
02F530: 00 7D 32 6B F2 2A DF CD 22 88 F2 2A DD CD 22 86 .}2k.*.."..*..".
02F540: F2 2A DB CD 22 84 F2 2A D9 CD 22 82 F2 2A D8 CD .*.."..*.."..*..
02F550: 26 00 7D 32 6E F2 C9 FD E1 E1 D1 C1 D9 21 0D CE &.}2n........!..
02F560: CD D1 05 E1 D1 C1 D9 21 13 CE CD D1 05 E1 D1 C1 .......!........
02F570: D9 21 19 CE CD D1 05 E1 D1 C1 D9 21 1F CE CD D1 .!.........!....
02F580: 05 E1 D1 C1 D9 21 25 CE CD D1 05 FD E5 2A 6E F2 .....!%......*n.
02F590: 26 00 CB 45 CA 2D 79 21 25 CE CD 2C 05 CD DE 0F &..E.-y!%..,....
02F5A0: E5 21 1F CE CD 2C 05 CD DE 0F E5 21 19 CE CD 2C .!...,.....!...,
02F5B0: 05 CD DE 0F E5 21 13 CE CD 2C 05 CD DE 0F E5 21 .....!...,.....!
02F5C0: 0D CE CD 2C 05 CD DE 0F E5 CD E4 76 C3 CD 79 2A ...,.......v..y*
02F5D0: 6E F2 26 00 7D 32 FC CD 21 01 00 7D 32 6E F2 21 n.&.}2..!..}2n.!
02F5E0: 25 CE CD 2C 05 C5 D5 E5 CD 54 3D 22 03 CE 21 1F %..,.....T="..!.
02F5F0: CE CD 2C 05 C5 D5 E5 CD 92 3D 22 01 CE 21 19 CE ..,......="..!..
02F600: CD 2C 05 C5 D5 E5 CD 54 3D 22 FF CD 21 13 CE CD .,.....T="..!...
02F610: 2C 05 C5 D5 E5 CD 92 3D 22 FD CD 21 03 CE E5 21 ,......="..!...!
02F620: 01 CE E5 21 FF CD E5 21 01 CE E5 CD 7D 42 7D 32 ...!...!....}B}2
02F630: FB CD 21 03 CE E5 21 01 CE E5 21 03 CE E5 21 FD ..!...!...!...!.
02F640: CD E5 CD 7D 42 7D 32 FB CD 2A 03 CE E5 2A 01 CE ...}B}2..*...*..
02F650: E5 2A FF CD E5 2A FD CD E5 21 0D CE CD 2C 05 CD .*...*...!...,..
02F660: DE 0F E5 CD E4 76 2A FC CD 26 00 7D 32 6E F2 C9 .....v*..&.}2n..
02F670: FD E1 E1 D1 C1 D9 21 33 CE CD D1 05 E1 D1 C1 D9 ......!3........
02F680: 21 39 CE CD D1 05 E1 D1 C1 D9 21 3F CE CD D1 05 !9........!?....
02F690: E1 D1 C1 D9 21 45 CE CD D1 05 E1 D1 C1 D9 21 4B ....!E........!K
02F6A0: CE CD D1 05 FD E5 21 4B CE CD 2C 05 C5 D5 E5 21 ......!K..,....!
02F6B0: 45 CE CD 2C 05 C5 D5 E5 21 3F CE CD 2C 05 C5 D5 E..,....!?..,...
02F6C0: E5 21 39 CE CD 2C 05 C5 D5 E5 21 33 CE CD 2C 05 .!9..,....!3..,.
02F6D0: C5 D5 E5 CD E1 76 C9 00 00 00 00 00 00 00 00 00 .....v..........
02F6E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02F6F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02F700: 02 00 2B 29 5D 54 29 19 D1 19 E5 21 0F C8 CD 2C ..+)]T)....!...,
02F710: 05 C5 D5 E5 21 09 C8 CD 2C 05 D9 E1 D1 C1 CD FA ....!...,.......
02F720: 09 D9 E1 CD D1 05 2A 21 C8 23 D1 1B C3 D7 86 C9 ......*!.#......
02F730: 21 01 00 E5 21 50 00 D1 CD 66 06 7A B3 CA 59 8B !...!P...f.z..Y.
02F740: D5 22 57 C7 CD 9B 14 21 20 00 CD 22 17 CD 1B 20 ."W....! .."...
02F750: 2A 57 C7 23 D1 1B C3 3B 8B C9 21 07 00 22 49 C7 *W.#...;..!.."I.
02F760: 21 0F 00 22 47 C7 21 8B C2 E5 21 01 00 2B 29 29 !.."G.!...!..+))
02F770: E5 29 D1 19 D1 19 E5 21 01 00 2B 29 5D 54 29 19 .).....!..+)]T).
02F780: D1 19 E5 21 01 00 CD 08 10 D9 E1 CD D1 05 21 8B ...!..........!.
02F790: C2 E5 21 02 00 2B 29 29 E5 29 D1 19 D1 19 E5 21 ..!..+)).).....!
02F7A0: 01 00 2B 29 5D 54 29 19 D1 19 E5 21 81 00 11 00 ..+)]T)....!....
02F7B0: 00 01 00 40 D9 E1 CD D1 05 21 8B C2 E5 21 03 00 ...@.....!...!..
02F7C0: 2B 29 29 E5 29 D1 19 D1 19 E5 21 01 00 2B 29 5D +)).).....!..+)]
02F7D0: 54 29 19 D1 19 E5 21 02 00 CD 08 10 D9 E1 CD D1 T)....!.........
02F7E0: 05 21 8B C2 E5 21 04 00 2B 29 29 E5 29 D1 19 D1 .!...!..+)).)...
02F7F0: 19 E5 21 01 00 2B 29 5D 54 29 19 D1 19 E5 21 82 ..!..+)]T)....!.
02F800: 00 11 00 00 01 00 20 D9 E1 CD D1 05 21 8B C2 E5 ...... .....!...
02F810: 21 05 00 2B 29 29 E5 29 D1 19 D1 19 E5 21 01 00 !..+)).).....!..
02F820: 2B 29 5D 54 29 19 D1 19 E5 21 03 00 CD 08 10 D9 +)]T)....!......
02F830: E1 CD D1 05 21 8B C2 E5 21 06 00 2B 29 29 E5 29 ....!...!..+)).)
02F840: D1 19 D1 19 E5 21 01 00 2B 29 5D 54 29 19 D1 19 .....!..+)]T)...
02F850: E5 21 04 00 CD 08 10 D9 E1 CD D1 05 21 8B C2 E5 .!..........!...
02F860: 21 07 00 2B 29 29 E5 29 D1 19 D1 19 E5 21 01 00 !..+)).).....!..
02F870: 2B 29 5D 54 29 19 D1 19 E5 21 05 00 CD 08 10 D9 +)]T)....!......
02F880: E1 CD D1 05 21 8B C2 E5 21 01 00 2B 29 29 E5 29 ....!...!..+)).)
02F890: D1 19 D1 19 E5 21 02 00 2B 29 5D 54 29 19 D1 19 .....!..+)]T)...
02F8A0: E5 21 02 00 CD 08 10 D9 E1 CD D1 05 21 8B C2 E5 .!..........!...
02F8B0: 21 02 00 2B 29 29 E5 29 D1 19 D1 19 E5 21 02 00 !..+)).).....!..
02F8C0: 2B 29 5D 54 29 19 D1 19 E5 21 81 00 11 00 00 01 +)]T)....!......
02F8D0: 00 40 D9 E1 CD D1 05 21 8B C2 E5 21 03 00 2B 29 .@.....!...!..+)
02F8E0: 29 E5 29 D1 19 D1 19 E5 21 02 00 2B 29 5D 54 29 ).).....!..+)]T)
02F8F0: 19 D1 19 E5 21 01 00 CD 08 10 D9 E1 CD D1 05 21 ....!..........!
02F900: 4F 66 66 73 65 74 2D 49 6E 66 6F 0D 0A 00 00 74 Offset-Info....t
02F910: 18 A0 00 2E 03 BC 05 4A 08 D8 0A 66 0D F4 0F 82 .......J...f....
02F920: 12 10 15 74 18 A1 00 2F 03 BD 05 4B 08 D9 0A 67 ...t.../...K...g
02F930: 0D F5 0F 83 12 11 15 70 18 A1 00 2D 03 BB 05 47 .......p...-...G
02F940: 08 D5 0A 63 0D F1 0F 7F 12 0D 15 72 18 9F 00 2D ...c.......r...-
02F950: 03 BB 05 49 08 D7 0A 65 0D F3 0F 81 12 0F 15 74 ...I...e.......t
02F960: 18 A1 00 2F 03 BD 05 4B 08 D9 0A 67 0D F5 0F 83 .../...K...g....
02F970: 12 11 15 74 18 A2 00 30 03 BE 05 4C 08 DA 0A 68 ...t...0...L...h
02F980: 0D F6 0F 84 12 12 15 73 18 A1 00 2F 03 BD 05 4B .......s.../...K
02F990: 08 D9 0A 67 0D F5 0F 83 12 11 15 73 18 A0 00 2E ...g.......s....
02F9A0: 03 BC 05 4A 08 D8 0A 66 0D F4 0F 82 12 10 15 75 ...J...f.......u
02F9B0: 18 A1 00 2F 03 BD 05 4B 08 D9 0A 67 0D F5 0F 83 .../...K...g....
02F9C0: 12 11 15 73 18 A0 00 2E 03 BC 05 4A 08 D8 0A 66 ...s.......J...f
02F9D0: 0D F4 0F 82 12 10 15 63 18 9F 00 2D 03 B7 05 45 .......c...-...E
02F9E0: 08 CE 0A 5C 0D E9 0F 77 12 02 15 57 18 A0 00 2C ...\...w...W...,
02F9F0: 03 B6 05 41 08 CB 0A 56 0D E2 0F 6B 12 F6 14 5C ...A...V...k...\
02FA00: 18 A0 00 2D 03 B6 05 42 08 CC 0A 56 0D E2 0F 6D ...-...B...V...m
02FA10: 12 F7 14 66 18 A0 00 2C 03 BA 05 45 08 D3 0A 5E ...f...,...E...^
02FA20: 0D EC 0F 76 12 04 15 74 18 A0 00 2E 03 BC 05 4A ...v...t.......J
02FA30: 08 D8 0A 66 0D F4 0F 82 12 10 15 75 18 A0 00 2E ...f.......u....
02FA40: 03 BC 05 4A 08 D8 0A 66 0D F4 0F 82 12 10 15 73 ...J...f.......s
02FA50: 18 9F 00 2D 03 BB 05 49 08 D7 0A 65 0D F3 0F 81 ...-...I...e....
02FA60: 12 0F 15 74 18 A0 00 2E 03 BC 05 4A 08 D8 0A 66 ...t.......J...f
02FA70: 0D F4 0F 82 12 10 15 74 18 9F 00 2D 03 BB 05 49 .......t...-...I
02FA80: 08 D7 0A 65 0D F3 0F 81 12 0F 15 72 18 A0 00 2E ...e.......r....
02FA90: 03 BC 05 4A 08 D8 0A 66 0D F2 0F 80 12 0E 15 74 ...J...f.......t
02FAA0: 18 A0 00 2E 03 BC 05 4A 08 D8 0A 66 0D F4 0F 82 .......J...f....
02FAB0: 12 10 15 74 18 9F 00 2D 03 BB 05 49 08 D7 0A 65 ...t...-...I...e
02FAC0: 0D F3 0F 81 12 0F 15 73 18 A0 00 2E 03 BC 05 4A .......s.......J
02FAD0: 08 D8 0A 66 0D F4 0F 82 12 10 15 74 18 A0 00 2E ...f.......t....
02FAE0: 03 BC 05 4A 08 D8 0A 66 0D F4 0F 82 12 10 15 55 ...J...f.......U
02FAF0: 18 9F 00 2B 03 B6 05 40 08 CA 0A 53 0D DF 0F 69 ...+...@...S...i
02FB00: 12 F3 14 56 18 9F 00 2B 03 B4 05 3F 08 C9 0A 53 ...V...+...?...S
02FB10: 0D DF 0F 69 12 F5 14 5C 18 9F 00 2C 03 BA 05 45 ...i...\...,...E
02FB20: 08 CE 0A 58 0D E3 0F 6E 12 F9 14 51 18 9F 00 2B ...X...n...Q...+
02FB30: 03 B4 05 3E 08 C6 0A 4F 0D DC 0F 64 12 EF 14 50 ...>...O...d...P
02FB40: 18 A0 00 2B 03 B4 05 3F 08 C8 0A 50 0D DB 0F 64 ...+...?...P...d
02FB50: 12 EF 14 71 18 9F 00 2A 03 B8 05 46 08 D4 0A 62 ...q...*...F...b
02FB60: 0D F0 0F 7E 12 0C 15 67 18 9F 00 2D 03 BB 05 49 ...~...g...-...I
02FB70: 08 D2 0A 60 0D EB 0F 79 12 04 15 4F 18 9E 00 28 ...`...y...O...(
02FB80: 03 B0 05 3C 08 C5 0A 4F 0D DA 0F 63 12 ED 14 54 ...<...O...c...T
02FB90: 18 A0 00 2B 03 B4 05 3F 08 C8 0A 51 0D DC 0F 67 ...+...?...Q...g
02FBA0: 12 F1 14 53 18 9E 00 2A 03 B4 05 3F 08 C8 0A 52 ...S...*...?...R
02FBB0: 0D DE 0F 67 12 F3 14 51 18 9F 00 2A 03 B2 05 3D ...g...Q...*...=
02FBC0: 08 C6 0A 4F 0D DA 0F 64 12 EF 14 53 18 9F 00 2A ...O...d...S...*
02FBD0: 03 B3 05 3E 08 C6 0A 50 0D DC 0F 66 12 F0 14 51 ...>...P...f...Q
02FBE0: 18 9E 00 29 03 B1 05 3C 08 C5 0A 4E 0D DA 0F 64 ...)...<...N...d
02FBF0: 12 EF 14 4E 18 9E 00 2A 03 B2 05 3D 08 C5 0A 4D ...N...*...=...M
02FC00: 0D D8 0F 61 12 EC 14 50 18 9E 00 29 03 B1 05 3D ...a...P...)...=
02FC10: 08 C6 0A 4F 0D DA 0F 63 12 EE 14 50 18 9F 00 2A ...O...c...P...*
02FC20: 03 B2 05 3C 08 C4 0A 4C 0D D6 0F 60 12 EE 14 00 ...<...L...`....
02FC30: 00 00 00 ...
RESULT OF SEARCH :
PRO=184 CHEA=0 COD=34 MUSI=0 COP=26 GRA=54 WRIT=35 198=19 199=7 STARTER=0 KBI=0 CAAV=0 L.TOURNIER=0
EXTENDED CPC DSK File CaPriCe 4Ever* PAFBGCHDIEi3B!0PY Failed to load the c
onfiguration sector $Y$*(&Y Illegal configuration sector $*"*"2C!2! !d#(GN#
!'F!-F!3F#(PWF#N#8Y Expansion buffer full or illegal token specified $ OGl #
$O52DjDj wwawwCP/M 2.2 - Amstrad Consumer Electronics plc $ BO BO 11111111111
11111111111111111111111111111111111111111111111111111111111111111111111111111111
11111f22222222222222222222222222222222222222222222222222222222222222222222222222
222222222222222222222222222233333333333333333333333333334X COPYRI
GHT (C) 1979, DIGITAL RESEARCH # 22 !22a2!B!6#5! )!F#x0ww!"!6(!#* ""# . Oo$!
Y2*O"Gwx2p0#*6w0#6 .0#*6w0#6 #6"# xDIR ERA TYPESAVEREN USER!yO# Ty#O321y2y21A92.
!#fow!v"!READ ERRORNO FILE PAFBGCHDIE! 3#0 WxxG # 3x#B!Y2!!T! 6#O KAxK K xBR9
!5#Y#"TALL (Y/N)T!6!w4!YtfT2o&)+!"**#" 2yWyOxOxG*V5dw N N#Fy*#u*£#DM*6#x**s#r*6#
6A#$2Ek/GyO2!q*C"*JOyx s-N-# S2E!wTD6k-PYy5*zBK5dy!NO SPACETy!B*Os#"sG!Ypsp2mfFI
LE EXISTS 2) T!k!qqf!222!!B! #0O#Cx21)fzBAD LOADCOMf !$$$ SUB *COT*CwD-'-£*
C Ox!N!Fwyx*Cw#+w#w+2E22i*Cw# # w2!E5T*C!"C"C!w# F! wx2*CwG!4$Z£x22£!Z2Ew££££"C2
!"E9"1A22!ty)K!G#V*CE ,&-AGMS!!!!Bdos Err On $Bad Sector$Select$File R/O$BA2!6
O EB2 b* y!4 5yy5 6yHOyH H #H! H H H $O2*CN# 22T*CG£w££n£2O£DMH"*CddslOs#rE£y
*Ww#*"*G#"!w4!iw£Z!E26£2*C!!#OG#n,-.! w!yG!x.E!q!pQE.$.Ei62ExN!OGG!G*C!r#r#ry#x#
x2 p&+72H! w!5Nkx#Nx !2 ! 5#wOxp Hy!qMD#2E!#V w#PBO#V#"##"##"##"!O*!O*!66*w#w*w#
w'*!J*£""!N#F*#V*#foyx*zW+*s+p+q-*C !!q#p#w*BO£YG*MD"£!Bw!2*C2uB22wEA*Cw"!""2B!"
!rQQQ£rQ*"CQ-QQQrQ$Q*)B"*)*)Q*"EA2AQQQ*C//*W£*"£og"*C6w2E**EDQ2£yx£#*DM*s#r*s#ry
OxG*0MD!!N E£GO £S£*Cq£n&#V£O£"**)£"Oo"*C*C!£22£2££Oww go£*# £ )BO!yoxg*BO£!N#F"
*#*s#r!J! J*o$*Ci6iw**#zr+sozg**£**,w!!N#F$**O!#! PAFBGCHDIEHATCH HGHPOLYGON
HGH#KERNEL1 SYSi MODPOLY HGHGRAPHIX SYSp%VWXYZabWINDOWS SYSI !"#$SCREENIOCOM&'(
)*+,-./0123cdSCREENIOCOMIefghijklmnCIRCSEGMHGH&45678PIE HGH9HISTOGRMHGHKERNE
L SYSKABCDEFGHBEZIER HGHIJKSPLINE HGHLMNO4X6 FONPFINDWRLDHGH QR
BORLAND International *) (*
*) (***************************************************
********) procedure Hatch(X1,Y1,X2,Y2,Deltareal) var x1,y1,x2,y2integer
DirectModeLoc,Dummyboolean procedure HatchDirect(x1,y1,x2,y2,Deltainte
ger) var i,yst,yen,countinteger X1RefLoc,X2RefLoc,Y1RefLoc,Y2RefLo
cinteger DirectModeLoc,ClippingLocboolean X1D,Y1D,X2D,Y2D inte
gerTYPEDEF SYSSTUTGDEMO COMDEMO PICBEZIDEMOCOMopqrstuvwxyBEZIDEMOCOM£BEZIDEM
OCOM$AXIS HGH7zSAVSCR $$$EX2 BASROINTIMEDEMPopqrstuvwxROINTIMEDEMabcdefg
hijklmnRITDEMO BINYyzDISC BASDISC BASLIRE8256 8256 KEY begin
HatchDirect if Delta0 then begin HatchGlbtrue
DirectModeLocDirectModeGlb DirectModeGlbtrue ClippingLocClippi
ngGlb ClippingGlbtrue X1RefLocX1RefGlb X1RefGlbx1
X2RefLocX2RefGlb X2RefGlbx2 Y1RefLocY1RefGlb Y1
RefGlby1 Y2RefLocY2RefGlb Y2RefGlby2 ysty1+Delta
yeny1-x2+x1+Delta if Delta0 thenTGDEMO0 INC TURBO $$$TGDEMO0 $$$
begin Delta-Delta iyst ystyen
yeni end count(y2-y1+x2-x1+x2-x1) div Delta for
i1 to count-1 do begin X1Dx1 Y1Dyst
X2Dx2 Y2Dyen if clip(X1D,Y1D,X2D,Y2D) then DrawLine(X1D,Y1
D,X2D,Y2D) ystyst+Delta yenyen+Delta end
ClippingGlbClippingLoc HatchGlbfalse X1RefGlbX1RefLoc
X2RefGlbX2RefLoc Y1RefGlbY1RefLoc Y2RefGlbY2RefLoc
DirectModeGlbDirectModeLoc end end HatchDirect begin Hatch
if DirectModeGlb then HatchDirect(trunc(X1),trunc(Y1),trunc(X2),tr
unc(Y2),trunc(Delta)) else begin DirectModeLocDirectModeGlb
DirectModeGlbtrue x1WindowX(X1) y1WindowY(Y1) x2Window
X(X2) y2WindowY(Y2) Dummyclip(x1,y1,x(****************************
*******************************) (*
*) (* TURBO GRAPHIX version 1.05A *)
(* *) (*
Crosshatch module *) (* Module version
1.00A *) (*
*) (* Copyright (C) 1985 by *) (*
PAFBGCHDIE2,y1) Dummyclip(x1,y1,x1,y2) HatchDirect(x1,y1,x2,y
2,trunc(Delta)) DirectModeGlbDirectModeLoc end end Hatch c(Y1
),trunc(X2),trunc(Y2),trunc(Delta)) else begin DirectModeLocDi
rectModeGlb DirectModeGlbtrue x1WindowX(X1) y1WindowY(Y1)
x2WindowX(X2) y2WindowY(Y2) Dummyclip(x1,y1,xirectModeGlb
DirectModeGlbtrue AutoClip(NPoints0) NPointsabs(NPoints)
XOs11 XOs21 YOs16 YOs26 if AxisGlb then b
egin XOs14 XOs22 YOs16 YOs214 if ((
(X2RefGlb+7-XOs2-X1RefGlb+XOs2) (XOs1+XOs2) shl 1) and (Y2RefGlb-YO
s2-Y1RefGlb+YOs1 (YOs1+YOs2) shl 1)) then begin X1RefLocX1
RefGlb x1X1RefGlb+XOs1+X1Glb Y1R(*************************
**********************************) (*
*) (* TURBO GRAPHIX version 1.05A *
) (* *) (*
Polygon drawing module *) (* Module ver
sion 1.05A *) (*
*) (* Copyright (C) 1985 by *) (*
efLocY1RefGlb y1Y1RefGlb+YOs1+Y1Glb X2RefLocX2RefGlb
x2X2RefGlb-XOs2-X2Glb Y2RefLocY2RefGlb y2Y2Ref
Glb-YOs2-Y2Glb ReDefineWindow(WindowNdxGlb,x1,y1,x2,y2) Se
lectWindow(WindowNdxGlb) AxisGlb true end end
PlotLine(Line0) PlotSymbol(Line0) Lineabs(Line) Scaleabs
(Scale) if Lines0 then DeltaYtrunc(1.0/(abs(Y1WldGlb)+abs(Y2WldGlb)
BORLAND International *) (*
*) (***********************************************
************) procedure DrawPolygon(APlotArray I0,NPoi
nts,Line,Scale,Linesinteger) var i,x1,x2,y1,y2,XOffset,YOffsetinteger
X1RefLoc,Y1RefLoc,X2RefLoc,Y2RefLocinteger DeltaY,XOs1,XOs2,YOs1,YOs2inte
ger AutoClip,DirectModeLoc,PlotLine,PlotSymbolboolean X1Loc,Y1Loc,
X2Loc,Y2Locin) * abs(Y1WldGlb) * abs(Y2RefGlb-Y1R
efGlb))+1 else DeltaY0 if (NPoints2) and MessageGlb then
writeln('DrawPolygon too few data pairs - (NPoints) 2') else be
gin x1WindowX(AI0,1) y1Y2RefGlb+Y1RefGlb-WindowY(AI0,2)
DrawItem(x1,y1) if Abs(Lines)1 then if AutoClip then Draw
LineClipped(x1,Y2RefGlb-DeltaY,x1,y1) else DrawLine(x1,Y2RefGlb-Delta
Y,x1,y1) for teger procedure DrawPointClipped(x,yinteger) beg
in if (x1X1RefGlb shl 3) and (x2X2RefGlb shl 3+7) then if (y1Y1R
efGlb) and (y2Y2RefGlb) then dp(x,y) end procedure DrawItem(X,Yinteger
) var LineStyleLocinteger begin LineStyleLocLineStyleGlb
SetLineStyle(0) case Line of 2 DrawCrossDiag(X,Y,Scale)
3,4 DrawSquareC(X-Scale,Y+Scale,X+Scale,Y-Scale,(Line4)) 5 DrawDiam
ond(X,Y,Scale+1) 6 DiI0+1 to NPoints do begin x2Wi
ndowX(Ai,1) y2Y2RefGlb+Y1RefGlb-WindowY(Ai,2) DrawItem(x2,
y2) if Abs(Lines)1 then if AutoClip then DrawLineClipped
(x2,Y2RefGlb-DeltaY,x2,y2) else DrawLine(x2,Y2RefGlb-DeltaY,x2,y2)
if PlotLine then if AutoClip then DrawLineClipped(x1,y1,
x2,y2) else DrawLine(x1,y1,x2,y2) x1x2 y1y2
end end if AxrawWye(X,Y,Scale+1) 1 DrawCross(X,
Y,Scale) 8 DrawCircleDirect(X,Y,Scale+1,False) 9 begin
PlotLinefalse if AutoClip then DrawPointClipped(X,Y)
else dp(X,Y) end 7 DrawStar(X,Y,Scale) end
SetLineStyle(LineStyleLoc) end begin if abs(NPoints-I0)2 t
hen begin X1Loc X1Glb Y1Loc Y1Glb X2Loc X2Glb
Y2Loc Y2Glb DirectModeLocD PAFBGCHDIEisGlb then begin
ReDefineWindow(WindowNdxGlb,X1RefLoc,Y1RefLoc,X2RefLoc,Y2RefLoc) Sel
ectWindow(WindowNdxGlb) X1Glb X1Loc Y1Glb Y1Loc X2G
lb X2Loc Y2Glb Y2Loc AxisGlbfalse end DirectM
odeGlbDirectModeLoc end else error(18,4) end 1,x2,y2)
else DrawLine(x1,y1,x2,y2) x1x2 y1y2 end
end if Ax iy1inside(y1,Y1RefGlb,Y2RefGlb) iy2insid
e(y2,Y1RefGlb,Y2RefGlb) end if y1y2 then begin if i
y10 then begin if iy10 then dummyY1RefGlb else dummyY2RefGlb
if x1x2 then x1x1+trunc((x2-x1)/(y2-y1)*(dummy-y1)) y1dummy
end if iy20 then begin if iy20 then dummyY1Re
fGlb else dummyY2RefGlb if x1x2 then x2x1+trunc((x2-x1)/(y2-y1)*(du
mmy-y1)) )B" *)*)Q*"EA2AQQQ*C//*W£*"£og"*C6w2E**EDQ2 y2dummy
end end iy1inside(y1,Y1RefGlb,Y2RefGlb) iy2inside
(y2,Y1RefGlb,Y2RefGlb) if (iy10) or (iy20) then ClipLocfalse i
f ClipLoc then begin ix1inside(x1,X1Loc,X2Loc) ix2inside(x
2,X1Loc,X2Loc) if (ix20) or (ix10) then ClipLocfalse end
clipClipLoc end end end procedure DrawPoint(xr,yrreal)
var x,yinteger begin if DirectModeGprocedure resetwindows var iintege
r begin for i1 to MaxWindowsGlb do begin DefineWindow(i,0,0,XMaxG
lb,YMaxGlb) RemoveHeader(i) end SelectWindow(1) end proce
dure ResetWorlds var iinteger begin for i1 to MaxWorldsGlb do DefineW
orld(i,0,0,XScreenMaxGlb,YMaxGlb) SelectWorld(1) SelectWindow(WindowNd
xGlb) end function clip(var x1,y1,x2,y2integer)boolean var ix1,iy1,ix2,
iy2,dummy,X1Loc,X2Locinteger ClipLocboolean lb then dp(trunc(xr),trunc(yr
)) else begin xWindowX(xr) yWindowY(yr) if ClippingGlb then b
egin if (xX1RefGlb shl 3) and (xX2RefGlb shl 3+7) then if (y
Y1RefGlb) and (yY2RefGlb) then dp(x,y) end else dp(x,y) end
end function PointDrawn(xr,yrreal)boolean begin if DirectModeGlb th
en PointDrawnPD(trunc(xr),trunc(yr)) else PointDrawnPD(WindowX(xr),WindowY(
yr)) end procedure DrawLineDirect(x1,y1,x2,y2integ function inside(x,x
x1,xx2integer)integer begin inside0 if xxx1 then inside-1 els
e if xxx2 then inside1 end begin cliptrue ClipLoctrue i
f ClippingGlb then begin if HatchGlb then begin X1LocX1RefGlb X2LocX2RefG
lb end else begin X1LocX1RefGlb shl 3 X2LocX2RefGlb shl 3 +7 end i
x1inside(x1,X1Loc,X2Loc) iy1inside(y1,Y1RefGlb,Y2RefGlb) ix2inside
(x2,X1Loc,X2Loc) iy2inside(y2,Y1RefGler) var x,y,DeltaX,DeltaY,XStep
,YStep,directioninteger BEGIN if linestyleGlb0 then begin GRAM
OVEABSOLUTE(X1,Y1) GRALINEABSOLUTE(X2,Y2) end else begin
xx1 yy1 XStep1 YStep1 if x1x2 then XStep-1 if y1y2 then Y
Step-1 DeltaXabs(x2-x1) DeltaYabs(y2-y1) if DeltaX0 then di
rection-1 else direction0 while not ((xx2) and (yy2)) do begin
CntGlb(CntGlb+1) and 7 b,Y2RefGlb) if (ix1 or ix2 or iy1 or iy2)0 t
hen begin if x1x2 then begin if ix10 then begin
if ix10 then dummyX1Loc else dummyX2Loc if y2y1 then y1y1+trunc((y
2-y1)/(x2-x1)*(dummy-x1)) x1dummy end if (ix2
0) and (x1x2) then begin if ix20 then dummyX1Loc else dummyX2Loc
if y2y1 then y2y1+trunc((y2-y1)/(x2-x1)*(dummy-x1)) x2du
mmy end PAFBGCHDIE if LineStyleArrayGlbCntGlb then dp(x,y)
if direction0 then begin yy+YStep directiondirection+DeltaX end
else begin xx+XStep directiondirection-DeltaY end end end end
procedure DrawLineDirectClipped(x1,y1,x2,y2integer) begin If clip(x1
,y1,x2,y2) then DrawLineDirect(x1,y1,x2,y2) end procedure DrawLine(x1,y1
,x2,y2real) begin if DirectModeGlb then DrawLineDirect(trunc(x1),
trunc(y1),trunc(x2),trunc(y2)) elirectModeLocboolean begin DrawCircle
DirectModeLocDirectModeGlb DirectModeGlbTrue if DirectModeLoc the
n DrawCircleDirect(trunc(XR),trunc(YR),trunc(xradius),True) else DrawCircle
Direct(WindowX(XR),WindowY(YR),trunc(xradius*100.0),False) DirectModeGlbDir
ectModeLoc end procedure DrawCross(x1,y1,scaleinteger) begin DrawL
ineClipped(x1-scale,y1,x1+scale+2,y1) DrawLineClipped(x1,y1-scale,x1,y1+sca
le+1) end procedure DrawCrossDiag(x,y,scse DrawLineDirectClipped(wi
ndowX(x1),windowY(y1),WindowX(x2),WindowY(y2)) end procedure DrawLineClipp
ed(x1,y1,x2,y2integer) begin if clip(x1,y1,x2,y2) then DrawLine(x1,y1,x
2,y2) end procedure DrawSqr(x1,y1,x2,y2integer fillboolean) var iinteger
begin if not fill then begin DrawLine(x1,y1,x2,y1) DrawLine(x
2,y1,x2,y2) DrawLine(x1,y2,x2,y2) DrawLine(x1,y2,x1,y1) end
else for iy1 to y2 do Drawline(x1,i,x2,i) end procedaleinteger) begin
DrawLineClipped(x-scale,y+scale,x+scale+1,y-scale-1) DrawLineClipped(x-
scale,y-scale,x+scale+1,y+scale+1) end procedure DrawDiamond(x,y,scaleinte
ger) begin DrawLineClipped(x-scale,y,x,y-scale-1) DrawLineClipped(x
,y-scale+1,x+scale,y+1) DrawLineClipped(x+scale,y+1,x,y+scale) DrawLin
eClipped(x,y+scale,x-scale,y) end procedure DrawStar(x,y,scaleinteger)
begin DrawLineClipped(x-scale,y+scale,x+scale+1,y-scale-1) DrawLiure D
rawSquareC(x1,y1,x2,y2integer fillboolean) begin if clip(x1,y2,x2,y1) th
en drawsqr(x1,y2,x2,y1,fill) end procedure DrawSquare(X1,Y1,X2,Y2real fill
boolean) var DirectModeLocboolean begin if DirectModeGlb then DrawSqr
(trunc(X1),trunc(Y1),trunc(X2),trunc(Y2),fill) else begin DirectMode
LocDirectModeGlb DirectModeGlbtrue drawSquareC(WindowX(x1),WindowY
(y1),WindowX(x2),WindowY(y2),fill) DirectModeGlbDirectModeLoc end
enneClipped(x-scale,y-scale,x+scale+1,y+scale+1) DrawLineClipped(x-scale-
2,y,x+scale+4,y) end procedure DrawWye(x,y,scaleinteger) begin Dra
wLineClipped(x-scale,y-scale,x,y) DrawLineClipped(x+scale,y-scale,x,y)
DrawLineClipped(x,y,x,y+scale) end procedure DrawAscii(var x,yinteger siz
e,chbyte) var x1ref,x2ref,xpos,ypos,xstart,ystart,xend,yend,xx,yy integer
charbyte byte begin x1refX1RefGlb shl 3 x2refX2RefGlb shl 3+7
for yposd procedure DrawCircleDirect(xr,yr,rinteger DirectModeLoc boolean
) const n14 type Circ array 1..n of integer const xCirc(0,121,239,355,
465,568,663,749,823,885,935,971,993,1000) var i,xk1,xk2,yk1,yk2integer
xfact,yfactreal Procedure DrawLinw(x1,y1,x2,y2integer) begin if D
irectmodeLoc then DrawLine(x1,y1,x2,y2) else DrawLineClipped(x1,y1,x2,y2)
end begin xfactabs(r*0.001) yfactxfact*AspectGlb if xfact
0.0 then begin 0 to 5 do begin CharByte(CharSetch,(7-ypos) shr 1 shr ((yp
os and 1) shl 2)) and $0F for xpos0 to 3 do if (CharByte shr (3-
xpos)) and 10 then begin xstartx+xpos*size xendxstart+size
-1 ystarty+1+(ypos-2)*size yendystart+size-1 if
ClippingGlb then begin if xstartx1ref then xstartx1ref
if xendx2ref then xendx2ref if ystartY1RefGlb then ystartY1RefGlb
xk1trunc(x1*xfact+0.5) yk1trunc(xn*yfact+0.5)
for i2 to n do begin xk2trunc(xi*xfact+0.5) yk2trunc(xn-i+1*yf
act+0.5) DrawLinw(xr-xk1,yr+yk1,xr-xk2,yr+yk2) DrawLinw(xr+xk1
,yr+yk1,xr+xk2,yr+yk2) DrawLinw(xr+xk1,yr-yk1+1,xr+xk2,yr-yk2+1)
DrawLinw(xr-xk1,yr-yk1+1,xr-xk2,yr-yk2+1) xk1xk2 yk1yk2 end
end else dp(xr,yr) end procedure DrawCircle(XR,YR,xradiusreal)
var D PAFBGCHDIE if yendY2RefGlb then yendY2RefGlb end f
or yyystart to yend do for xxxstart to xend do dp(xx,yy) end end
xx+size*6 end procedure DrawText(x,y,scaleintegertxtwrkstring) v
ar LineStyleLoc,code,AsciiValue,StringLen,i,SymbolScale,SymbolCodeinteger
DirectModeLocboolean begin DirectModeLocDirectModeGlb DirectModeGl
btrue LineStyleLocLinestyleGlb SetLineStyle(0) StringLenlength(tx
t) i1 yl2yl2+headerSizeGlb ReDefineWindow(WindowNdxGlb,X1RefGlb,
Yl1,X2RefGlb,Yl2) SelectWindow(WindowNdxGlb) end if
TopGlb then begin yl1Y1RefGlb+HeaderSizeGlb yl2Y2RefGlb Y
1HdrY1RefGlb Y2HdrY1RefGlb+HeaderSizeGlb-1 end else begin
yl1Y1RefGlb yl2Y2RefGlb-HeaderSizeGlb Y1HdrY2RefGlb-HeaderSize
Glb+1 Y2HdrY2RefGlb end topTopGlb ReDefineWindow(Wind
owNdxGlb while iStringLen do begin AsciiValueord(txti) if Asc
iiValue27 then begin SymbolScalescale ii+1 if iString
Len then begin val(txti,SymbolCode,code) if (i+2StringLen)
and (ord(txti+1)64) then begin val(txti+2,SymbolScale,code)
ii+2 end case SymbolCode of 1DrawCross
(x+SymbolScale,y+scale,SymbolScale) 2DrawCrossDiag(x+SymbolScale,y+
scale,,X1RefGlb,yl1,X2RefGlb,yl2) SelectWindow(WindowNdxGlb) D
rawHeaderBackground(Y1Hdr,Y2Hdr) ColorGlb(255-getColor) DrawTe
xt(xl1+2+(xl2-xl1-length(header)*6) shr 1,Y1Hdr+3,1,header) DrawSquare(
xl1,Y1Hdr,xl2,Y2Hdr,false) ColorGlb(255-GetColor) DrawSquare(x
l1,Y1RefGlb,xl2,Y2RefGlb,false) drawntrue end end begi
n DirectModeLocDirectModeGlb DirectModeGlbtrue ClipLocClippingGlb
ClippingGlSymbolScale) 3,4 DrawSquareC(x,y+(SymbolScale shl 1
)-1,x+(SymbolScale shl 1), y-1,(SymbolCode4))
5begin DrawDiamond(x+trunc(1.5*SymbolScale),y+SymbolSc
ale-1,SymbolScale+1) xx+SymbolScale end
6DrawWye(x+SymbolScale,y+SymbolScale-1,SymbolScale) 7begin
DrawStar(x+SymbolScale shl 1,y+SymbolScale-1,SymbolScale)
xx+SymbolScale shl 1 bfalse xl1X1RefGlb shl 3 xl2X2RefGlb sh
l 3+7 with windowWindowNdxGlb do if ((HeaderGlb) and (length(header)
0)) and (y2-y1HeaderSizeGlb) and ((length(header)*6)abs(xl2-xl1)-4) th
en DrawHeader else begin drawnfalse DrawSquare
(xl1,Y1RefGlb,xl2,Y2RefGlb,false) end DirectModeGlbDirectModeLoc
ClippingGlbClipLoc end procedure hardcopy(inversebooleanmodebyte) EPSON
var i,j,topinteger end 8DrawCircleDirect(x+
SymbolScale,y+(SymbolScale shr 1),SymbolScale+1,False) end
xx+3*SymbolScale SymbolScalescale end end els
e DrawAscii(x,y,scale,AsciiValue) ii+1 end DirectModeGlbDirectM
odeLoc SetLineStyle(LineStyleLoc) end procedure DrawTextW(x,yreal sca
leinteger txtwrkstring) begin if DirectModeGlb then DrawText(trunc(x),tr
unc(y),scale,txt) else DrawTe ColorLoc,PrintBytebyte procedure doline
(topinteger) function ConstructByte(j,iinteger)byte const Bitsarray
0..7 of byte(128,64,32,16,8,4,2,1) var CByte,kbyte begin
ii shl 3 CByte0 for k0 to top do if PD(j,i+k) then
CByteCByte or Bitsk ConstructByteCByte end begin if
mode1 then write(lst,'L') else write(lst,'*',chr(mode)) write(lst,
chr(lo(XScreenMaxGlb+1)),chr(xt(WindowX(x),WindowY(y),scale,txt) end proce
dure DrawBorder var ClipLoc,DirectModeLocboolean xl1,xl2integer p
rocedure DrawHeaderBackground(y1,y2integer) var iinteger begin
for iy1 to y2 do DrawStraight(xl1,xl2,i) end procedure DrawHeader
var Y1Hdr,Y2Hdr,yl1,yl2integer begin with windowWindowNdxGlb do beg
in yl1y1RefGlb yl2y2RefGlb if drawn then begin if t
op then yl1yl1-HeaderSizeGlb else PAFBGCHDIEHi(XScreenMaxGlb+1))) for j0
to XScreenMaxGlb do begin PrintByteConstructByte(j,i) if inve
rse then PrintBytenot PrintByte write(lst,chr(PrintByte)) end
if mode4 then writeln(lst) end begin top7 ColorLocGetCo
lor ColorGlb(255) modemode and 7 if (mode5) or (mode0) then mode4
write(lst,'3'#24) for i0 to ((YMaxGlb+1) shr 3)-1 do doline(7) i
((YMaxGlb+1) shr 3) if (YMaxGlb+1 begin XX0+C*(Ai,1-X0)-S*(Ai,2-
Y0) Ai,2Y0+S*(Ai,1-X0)+C*(Ai,2-Y0) Ai,1X end end
else error(8,4) end procedure RotatePolygon(var APlotArray
NPointsinteger Thetareal) var X0,Y0r
eal iinteger begin X00.0 Y00.0 for i1 to NPoints do
begin X0X0+Ai,1 Y0Y0+Ai,2 end RotatePolygonAbout(A
,NPoints,Theta,X0) and 70 then doline((YMaxGlb+1) and 7) writeln(lst,'2')
ColorGlb(ColorLoc) end n PrintBytenot PrintByte write(lst,chr(P
rintByte)) end if mode4 then writeln(lst) end begin
top7 ColorLocGetColor ColorGlb(255) modemode and 7 if (mode
5) or (mode0) then mode4 write(lst,'3'#24) for i0 to ((YMaxGlb+1) shr
3)-1 do doline(7) i((YMaxGlb+1) shr 3) if (YMaxGlb+1/NPoints,Y0/NPoint
s) end procedure TranslatePolygon(var APlotArray
Ninteger DeltaX,DeltaYreal) var iinteger
begin Nabs(N) if N2 then for i1 to N do begin
Ai,1Ai,1+DeltaX Ai,2Ai,2+DeltaY end else error(9,4) end
procedure ScalePolygon(var APlotArray Ninteger
ScaleX,ScaleYreal) var iinteger *M*!M1m! 6!6!62Eb!edeH2 H
e2!d2e!2d !I!H2Xh2i!!!H!H,!"! 6#F)X!X)i!h)9e!h2jOF L!"i!jH*"+M !f6!h6!"! 6F!f6h2
k!ii2kj2hk!h9h2j!!6j2he! "*"M2!O! *+" begin Nabs(N) if N2 then
for i1 to N do begin Ai,1Ai,1*ScaleX Ai,2Ai,2*Sc
aleY end else error(10,4) end begin Ai,1Ai,1+Delta
X Ai,2Ai,2+DeltaY end else error(9,4) end procedure
ScalePolygon(var APlotArray Ninteger
ScaleX,ScaleYreal) var iinteger(****************************************
*******************) (*
*) (* TURBO GRAPHIX version 1.05A *) (*
*) (* Polygon modi
fication module *) (* Module version 1.00A
*) (* *)
(* Copyright (C) 1985 by *) (* *eM!b+!s!
f!6!b*b*DMN- *b"b2)f!"b!q9b*b*w*b#"b!q6Z- !66*6&w626!J6*bJ2Jmx- *dM. - *eM.M -C
!qY*M!qa/z!/H!q*Ma!q*My!p+q!'"!6**2**"*! "!! BORLAND International
*) (* *)
(***********************************************************) procedure Rot
atePolygonAbout(Var APlotArray NPointsinteger
Theta,X0,Y0real) var C,S,X,Phreal iinteger
begin if NPoints2 then begin PhPi/180.0*Theta Ccos(
Ph) Ssin(Ph) for i1 to NPoints do PAFBGCHDIE(**************
*********************************************) (*
*) (* TURBO GRAPHIX version 1.05A
*) (* *) (*
Windowing system *) (*
Module version 1.00A *) (*
*) (* Copyright (C) 1985 by
*) (* SelectWindow(WindowNdxGlb) end end e
nd procedure movever0 begin if (Y1RefGlb+delta 0) or (Y2RefG
lb+delta YMaxGlb) then Error(23,7) else begin for outer1 to abs
(delta) div VStepGlb do MoveVer1(VStepGlb) if abs(delta) mod VStepGlb0
then MoveVer1(abs(delta) mod VStepGlb) end end begin if de
lta0 then begin direction1 if delta0 then direction-1 with
windowWindowNdxGlb do BORLAND International *) (*
*) (* modifi
ed for the Schneider CPC6128 *) (* by HEIMSOETH Softwa
re Munich *) (* Version 1.0 / 25.11.1985
*) (* *) (******
*****************************************************) procedure MovehorVer(d
eltainteger hor,FillOutboolean) var direction,ou if drawn then
if top then Y1RefGlbY1RefGlb-HeaderSizeGlb else Y2RefGlbY2RefGlb+
HeaderSizeGlb if hor then movehor1 else movever0 with windowWindow
NdxGlb do if drawn then if top then Y1RefGlbY1RefGlb+HeaderS
izeGlb else Y2RefGlbY2RefGlb-HeaderSizeGlb end end procedu
re MoveHor(deltainteger FillOutboolean) begin movehorver(delta,true,fillout) en
d procedure MoveVer(deltainteger FillOutboolean) beginter,i,XLeninteger
procedure MoveVer1(VStep integer) var source,dest,moduinteger begin
if direction-1 then begin modu0 desty2refglb-vstep sourc
ey2refglb end else begin modu1 desty1refglb+vstep
sourcey1refglb end XLenX2RefGlb-X1RefGlb+1 BLOCKMOVE(mo
du,x1refglb,y1refglb,x2refglb,y2refglb,vstep,fillout) iSource if n
ot FillOut then while idest do begin movehorver(delta,false,f
illout) end procedure CopyWindow(from,tubyte x1,y1integ
er) var i,XLen,YLeninteger begin if (x10) or (y10) then error(17,3)
else begin with windowWindowNdxGlb do if drawn then
if top then Y1RefGlbY1RefGlb-HeaderSizeGlb else Y2RefGlbY2RefGlb
+HeaderSizeGlb XLenX2RefGlb-X1RefGlb YLenY2RefGlb-Y1RefGlb
if x1+XLenXMaxGlb then XLenXMaxGlb-x1 if y1+YLenYMax SCRFILLChar(not Ge
tColor,xlen,x1refglb,i) ii+direction end else
while idest do begin SCRMOVEBYTELINE(xlen,x1refglb,i,x1refglb,i,2
,1) ii+direction end ReDefineWindow(WindowNdxGlb,X1R
efGlb,Y1RefGlb+VStep*direction,X2RefGlb,Y2RefGlb+VStep*direction) SelectW
indow(WindowNdxGlb) end procedure movehor1 var modu,xginteger
begin if (X1RefGlb+delta 0) or (X2RefGlb+delta XMaxGlb) Glb then YL
enYMaxGlb-y1 XLenXLen+1 for i0 to YLen do SCRMOVEBYTELINE
(xlen,x1refglb,y1refglb+i,x1refglb,y1+i,from,tu) with windowWindowNdxGlb
do if drawn then if top then Y1RefGlbY1RefGlb+HeaderSizeGlb
else Y2RefGlbY2RefGlb-HeaderSizeGlb end end procedure Sav
eWindow(nintegerFileNamewrkstring) var i,j,secptr,xleninteger WWindowT
ype begin Wwindown assign(unifile,FileName) $Ithen Error(24,
7) else begin for outer1 to abs(delta) do begin if di
rection-1 then begin xgx2refglb modu3 end else begin xgx1refglb modu2
end Vfillbyteline(y2refglb-y1refglb+1,xg,y1refglb,fillout)
BLOCKMOVE(modu,x1refglb,y1refglb,x2refglb,y2refglb,1,fillout) SCRCO
PYVERTIKALBYTELINE(y2refglb-y1refglb+1,xg,y1refglb) ReDefineWindow(Wi
ndowNdxGlb,X1RefGlb+direction,Y1RefGlb,X2RefGlb+direction,Y2RefGlb) PAFBG
CHDIE- rewrite(unifile) $I+ if IOResult0 then Error(25,5) else begin
move(w,unibuff,sizeof(W)) secptrsizeof(W) with W do begin
if drawn then if top then y1y1-HeaderSizeGlb else y
2y2+HeaderSizeGlb xlenx2-x1+1 for iy1 to y2 do begin
SCRREADBYTELINE(xlen,unibuffsecptr,x1,i) secptrsecptr+xlen
if secptr127 then begin blockwrite(unifile,unibuff0,1)
m1..MaxWindowGlb) then error(15,2) else begin if stackwin.con
tents then ClearWindowstack(win) SaveWindow(win,'winf.'+chr(win+$30))
with stackwin,w do begin wwindowwin contentstrue
end end end procedure RestoreWindow(win,DeltaX,DeltaYinteger
) var i,XLen,y,y0,y9,Ainteger w1WindowType begin if not (win i
n 1..MaxWindowsGlb) then error(16,2) else with stackabs(win) do begin
W1W ove(unibuff128,unibuff0,128) secptrsecptr-128 end
end if secptr0 then blockwrite(unifile,unibuff0,1) end
close(unifile) end end procedure LoadWindow(n,xpos,yposinteger
FileNamewrkstring) var i,secptr,xleninteger WWindowType second
boolean begin assign(unifile,FileName) $I- reset(unifile) $I+
if IOResult0 then Error(12,5) else begin BlockRead(unifile,unibuff
if not Contents then error(16,2) else with W1 do begin x
1x1+DeltaX x2x2+DeltaX y1y1+DeltaY y2y2+DeltaY
if drawn and top then y0y1-HeaderSizeGlb else y0y1 if (X10) and
(X1XMaxGlb) and (X20) and (X2XMaxGlb) and (Y10) and (Y1YMaxGlb) and
(Y20) and (Y2YMaxGlb) then loadWindow(win,x1,y0,'winf.'+chr(win+$30
)) if win0 then ClearWindowStack(abs(win)) if winWindow0,1)
move(unibuff,W,sizeof(W)) secptrsizeof(W) secondfalse
windownW with W do begin if drawn then if top then
y1y1-HeaderSizeGlb else y2y2+HeaderSizeGlb xlenx2-x1+1
if xpos0 then begin x2xpos+x2-x1 x1xpos end
if ypos0 then begin y2ypos+y2-y1 y1ypos e
nd if (x10) or (y10) or (x2XMaxGlb) or (y2YMaxGlb) theNdxGlb then Selec
tWindow(win) windowwinw1 end end end var WPointerFil
efile of WindowType procedure SaveWindowStack(FileNamewrkstring) var iintege
r begin assign(WPointerFile,FileName+'.ptr') $I- rewrite(WPointerFi
le) $I+ if IOResult0 then Error(26,5) else begin for i1 to MaxW
indowsGlb do write(WPointerFile,stacki.W) close(WPointerFile) end
end procedure LoadWindowStack(FileNamewrkstring) var iinn error(12,3)
else begin for iy1 to y2 do begin if (secptr+xlen127
) and not second and not eof(unifile) then begin Bl
ockRead(unifile,unibuff128,1) secondtrue end
SCRWRITEBYTELINE(xlen,unibuffsecptr,x1,i) secptrsecptr+xlen
if secptr127 then begin move(unibuff128,unibuff0,128)
secptrsecptr-128 secondfalse teger begin
assign(WPointerFile,FileName+'.ptr') $I- reset(WPointerFile) $I+ if
IOResult0 then begin for i1 to MaxWindowsGlb do read(WPointerFile,stacki
.W) close(WPointerFile) end else error(21,5) end procedur
e InvertWindow var i,jinteger begin iy1refglb jy2refglb with win
dowWindowNdxGlb do if drawn then if top then iY1RefGlb-HeaderSiz
eGlb else jY2RefGlb+HeaderSizeGlb INVERTBLOCK(x1r end
end end end close(unifile) end end fun
ction WindowSize(wininteger)integer var WS integer begin WS-1
if not (win in 1..MaxWindowsGlb) then error(13,2) else with windowwin
do begin WS(y2-y1+1)*(x2-x1+1) if Drawn then WSWS+HeaderSizeGlb*(x
2-x1+1) WS(WS+$7f) And $FF80 end WindowSizeWS end proce
dure StoreWindow(wininteger) begin if not (win in P A F B G C H D I
Eefglb,i,x2refglb,j) end for i1 to MaxWindowsGlb do read(WPointerFile,
stacki.W) close(WPointerFile) end else error(21,5) end pr
ocedure InvertWindow var i,jinteger begin iy1refglb jy2refglb wi
th windowWindowNdxGlb do if drawn then if top then iY1RefGlb-Hea
derSizeGlb else jY2RefGlb+HeaderSizeGlb INVERTBLOCK(x1r d!k5!5o&((
*"x2y(28!"9!!og2""22 9/4*9 Co&£ (!eA8Q0G x!w# ( (*(.(w. !h6# ((*((w# w# 8 ! .,
*a ''72*B "og"22! 2lyOh&qP$J!q*qFIdPLnRUXl2l*ER2C!" """ *1 R0FIL R R* *" X!C#fk
G!F#H vc* EH ,1 *""1 EH DH ,1 1 " 2""*B"Ru*"#V##V#N#FO/o&9O/o&9!9( (G!9
w#Ew8OCA#0w#xo&9xG7s#r#s#r#q#px!D9N#8y#(Ox!D9N##Vh&D9! 9! 9#Vh&D9!"x/o&9p#HR' R
B0' RqRR!+R!+r!+r!+r!#r!+TKB!z (************************************************
***********) (* *) (*
TURBO GRAPHIX version 1.05A *) (*
*) (* Graphics module
*) (* Module version 1.03A
*) (* *) (*
Copyright (C) 1985 by *) (* S))0 DMgojB07 Hz
5a)az 0Ggo/g/o#o&KxAJSJDM!b"!6J"DM'd R0 0w#$O! #08) 8 ! 80T)) T)y	N8w!DB9+O
#) W8(8J9To9yk-&9w	o&!T9K#C#y8O(# !#!9RO BORLAND International
*) (* *)
(* Modified for the Schneider CPC 6128 *) (*
by HEIMSOETH Software Munich *) (* Version 1.0 /
25.11.1985 *) (*
*) (***********************************************************) co
nst XMaxGlb 79 nombre d'octets -1 dans une ligne ecran8 (8wPTOs
OS!988xW8/oz88x8&8#(*BPOz(Ox8(*!9O!T9-fl&!T96#w!T9K#C#( x # ) ' ' x T(0Dz
, ( 0%, 7 (8x - r8x ,-xGrM9r.#n0 - nx ,-(-G,-rM Copyright (C) 1985 BORLAND Inc
Bamstrad 6128C464/664P Y ELMKqp7# ok!!"#($ +*!5!*!!(2!5(2!!!OO!*!!45(! +/0y0(
NAFBGCHDIE9.8 u+-(08x , 7888ox!oGOWggzWyOxGgzWyOxGxyzxxx(r(r7 g£zWyOxG x' /o
- 0- ,l8 4 x( -8 -8, l8*! ! 4 --- w(6(2(-()(6 (8 0 (* y(#+ (( 66 #6 #"* yo
p .##(.6w4. *##55 *R8*#" £ *#w+#+*('k!0(k!8!-#827kwO$6s #r$£6 k ((qk( ( k *O
##.q4((* ,,,-xGg+2n*8t z,-' x' . , ! 4,- o&0%, gr.8cI$IL*x 0G,,-(- !I0
o8 ' m.1pF,t6!wS.z%FXcur1x(8 !J0.O!s8 n s .n 0 - OT0j oD,j4q*##62*((6-#RM8(
G A#*'C! !TRUEFALSE!9N#Y#(G# "(k((!0(!!2Sz0*6##ww#w$w#w ##N#F*B2w#w#s#r"*-w#
ww##""2ZR0*4#42ZR *4 #4( !I.8cI$IL! I nn nfVNF!DLTI!!53!r1!! x #- ox(- (
x8(z,zi!' r)(DMbo88x(08W!Oz k68x(-(ay( z(.( E+(Dg-/ 0p## +0w#,- 60#22*f(/G(##++
O x yC! Q*G(##..f*##w +4 #4x 2G(""*n*0SZR8*N#F#s#r,0)jS*##w+N#FBr+s2!T)j)00 R!#
*#V#N#F##V20*6#-Nw#Fwq#p#6#w#w#w""!DM!"*B!(2"!"2ogM wD05.(z x0w#xG%%ZJDM% 65+w66
1#6r. p7#E(!90To&p( #+(- #6O#60 #WyOh(yDOyZy0 GD! !ws( hx-Sx9+zzgZJDM0,7o #yO
!9i&"*w#wx(9*O *-4 #4!*4 #4*-N#Fq#pV+Bq#pSZR&*s#r$s#rL*L!(!$22L!(*$(!3 1!(7" 2"S
"Ns#FrB(Z#(*"K! !*#"!x * *) 2""!"* #w#/w#w#!9! E9!!9(+F!"9!(#2*" "2( *w*6!$!
(( #CONTRMKBDLSTCAUXUSR2i*0*(q##pZ*( x2*6#"v( * 26"!"""2""v2"!"(!8O6*" NAFBGCHD
IEnf(HR0nf" VMDnfutqp*s#r*s#r"*uKB!0' #fo"*R0RnfR0KqputsrNF(VNFV*SutKqpR*R(wwnf
ut"6#K*K*!""*NFy(*"*B0Cnf*R*"*RSs#r#V""6#O"w2x2*"!F"" &y*"*2"*"!E'!!*!g£o*d!v!!
!EO'"""""""*!*!£oE'***1&***&(*!*!£oE (***1&!!!*!N*%*$(*!*!£oEc(!*!N*%!!*$***&(!*
!N*%!*!N*%*$""""!**N!!!*!N*%*$"""!*!!F"""!* Nr!6go(R*s#r£2x(sx(TDMx(R0U(O/o&9q#
(!F0#( ( #( ((#( i&T-a%o*!6o&2 2z2*KB" z C User break+ I/O Run-time error
, PC*Not enough memory Program aborted '1!d!eeBdN*%!!*$!*fzX)"!*!*n&/o/gs*#')!
!!*!N*%*$""""!*!N*%!**$""""£!*!*!N*%*£$2"""*&E**"!*!Rfz*"*!N*%!R"!v*!Vo !v!!!E*!
*!*!g£on&s*!"*#1**!**&/o/g!g£oN"z""!"4x6.fons1yyK*ywRRt*"*"2 *#"*#"2 /w#x ""!*!g
£o!*!V!P*!g£o"*2""""""**R!"**R!2!!!s*R"**!"***R!"1#R#**!"**z!"*2!x$*&"p*p!x$*&"f
*f"Z"!"!Y"*Z!"*!" 0"P*P!!OoE+!!v+,!*P+))))))"H*H"J*Hn&E,!Mwinf.*P!0e.p!*H!s!!fz9
,"*y+*# ,!$!"!1"!"!x"!"!v" !v!v!E,,!$!"!y"!"!0"!"!w" !$,!Q!!vM savscr.$$$p!vo !!
!N!***!"P#RG#**!"**R"1#R#!!!s**!"**"P""""!1!!o&s!1!!ol&s**R!"**R!2**!"1!1!!&s!1!
!l&s"!!!s!!!Zs!!!s!!*&s!!*l&s!!!sK*2CS""j"l"n"p"r*p"*l"*j"*n!N*rgo"ZKZW*KK!fz,-"
$!v!! *$#-""*"%"*2!$""!*R!N"*"!$""!*R!N"*"!$*&!2*&**fz,."!*!g£on&**R!**(*#-2!!*&
N!-"""**#%**T%"!E.*!v+P!k!!kp!o!u.!!fz."a*a!%!!!!u.*a#.!2Y*Y&2*Y&2!$"M"O!*MR!N"*
O"!$"A"C!*AR!N"*C"!$"5"7!*5!*7!N!!$"%"'!*'!N!!*%!$""*"!*R"!$*!g£o!go"*"""*!N*%!R
"!v*!Vo!v!!!E&!*!g£o!*d"""*!N*%!R"!v*!Vo !v!! P A F B G C H D I E !u."*2P!!!p!
p!u.!!fz/"!!! *!%*#N/! !v!o !!fz0"*!%!v!!! *!!%!v*o !v!! *#/!v!o !!fzL0"*!%!v!!!
u.*#0!v!o !!fz0"!v!!!u.*!%*#e0*&!E0M000!"!"o""*!!OoE21,(FATAL ERR(**************
*********************************************) (*
*) (* TURBO GRAPHIX version 1.05A
*) (* *) (*
Circle segment drawing module *) (*
Module version 1.00A *) (*
*) (* Copyright (C) 1985 by
*) (* OR 1 illegal procedure number *!& *!!OoE1,"FATAL ERROR 2 illeg
al error code *!& *2e*i&E1,*j&*i&oEn2+",+"!!+Turbo Graphix error #*!& in proced
ure #*!& *j&En2!("!*)#V! in !%*)#V!!)" *j&*i&£oE2 3*i&E2 3*j&E3. Hit enter !!D
*&! *&!oE2*&!E3 BORLAND International *) (*
*) (*************************
**********************************) procedure DrawCircleSegment(xr0,yr0real
var xr1,yr1real inner,o
uter,phi,areareal txtwrkstring
option,scalebyte) var FaktC,FaktS,CDummy,c,s,radius real Ph
i1,DeltaPhi,CosPhi,SinPhi,CosDphi,Si, **+!2i!2i*e&2!2e*&!2n!2n!2m!2m!2j!2j!2h!2h
!2g!2g"R*R!!OE3!*R+))))))"J*JY!s*JZ!s*JMP4!!v+!%!%*z"8*8*m&2/*/&*n&o2&*&&!!,!Ez4
!,!!,! ! ,!!,!E4!,!!!,!!!nDphireal DeltaX,DeltaY,xr2,yr2,RadiusLoc,X0Loc,
Y0Loc,X1Loc,Y1Locreal i,AsciiCode,TextLen,n,x0,y0,x1,y1,x2,y2integer
DirectModeLocboolean TempTextwrkstring procedure ClippedLine(x1,y
1,x2,y2integer) begin if clip(x1,y1,x2,y2) then DrawLine(x1,y1,x2,
y2) end procedure ClippedPoint(x,yinteger) begin if Clip
pingGlb then begin if (xX1RefGlb shl 3) and (xX2RefGlb shl 3+7)
then if (yY1RefGlb) and , 5"*!!OoEI5*!g£o!"*"*!En5!5*n&"!!fz5"!!*R**
V!g£o!s*#y5!2f*"*"*!E5*"p*p"*P!i"*!!OER6!*+))))))!iP6!!v+*&2*&!!D!J!P"V!P,!D,!J,
!,£o*V!!O£oE7!*V+))))"6(yY2RefGlb) then dp(x,y) end else dp(x,y)
end begin DrawCircleSegment X0Locxr0 Y0Locyr0 X1Locxr
1 Y1Locyr1 RadiusLocsqrt(sqr(X1Loc-X0Loc)+sqr(Y1Loc-Y0Loc)) if Ra
diusLoc0.0 then begin optionabs(option) innerabs(inner)
outerabs(outer) scaleabs(scale) DirectModeLocDirectModeGlb
DirectModeGlbtrue phiphi*pi/180.0 if abs(phi)/(2.0*pi)1.0 then
phi2.0*p!P,*6*6!,*6!D,*6!J,*V*E7*V"7*V!!OE7!!v+7!!v+"4*4!*OE 8!*4+))))",*,,!*,,!
*,,!*,,!8!!v+"""$"&"("***!!O*(*$£o*&*"£o*(!£o*$!O£o*&!£o*"!£oE9!**+))))))"*(*s#r
**&s#r**$s#r**"s#r PAFBGCHDIEi ntrunc(RadiusLoc*abs(phi)/9.0) if
n2 then n2 if (abs(xr1-xr0)0) and (abs(yr1-yr0)0) then Phi1arctan((yr1-yr
0)/(xr1-xr0)) else if xr1-xr00 then if yr1-yr00 then Phi1pi/2.0
else Phi11.5*pi else if xr1xr0 then Phi10.0 else Phi1pi
DeltaPhiphi/(n-1) c1.0 s0.0 CosPhicos(Phi1) Si
nPhisin(Phi1) CosDphicos(DeltaPhi) SinDphisin(DeltaPhi) if
xr1xr0 then ext(x2,y2,scale,TempText) end xr1X0Loc+FaktC*Radi
usLoc*cos(phi+Phi1) yr1Y0Loc+FaktS*RadiusLoc*sin(phi+Phi1) DirectM
odeGlbDirectModeLoc end end option of 1 TempTexttxt
2 TempTexttxt+TempText 3 TempTextTempText end
TextLenlength(TempText) if x2x0 then x2x2+scale*6 else x2x2-T
extLen*6*scale DrawT begin FaktS-1 FaktC-1
end else begin FaktS1 FaktC1 end
if (yr1yr0) and (xr1xr0) then begin FaktC-FaktC Fakt
S-FaktS end if area0 then begin areaabs(area)
DeltaXFaktC*0.3*RadiusLoc*cos(phi/2+Phi1) DeltaYtrunc(FaktS*0.3*
AspectGlb*RadiusLoc*sin(phi/2+Phi1)+0.5) xr0xr0+DeltaX yr0yr0+
DeltaY end (*********************************************************
**) (* *) (*
TURBO GRAPHIX version 1.05A *) (*
*) (* Pie chart module
*) (* Module version 1.00A *)
(* *) (*
Copyright (C) 1985 by *) (* x0WindowX(xr0)
y0WindowY(yr0) if not DirectModeLoc then ClippedPoint(x0,y0) else dp(x0,y
0) x1x0 y1y0 for i1 to n do begin xr2xr0+F
aktC*RadiusLoc*(CosPhi*c-SinPhi*s) x2WindowX(xr2) yr2yr0+Aspec
tGlb*RadiusLoc*FaktS*(SinPhi*c+CosPhi*s) y2WindowY(yr2) if not
DirectModeLoc then ClippedLine(x1,y1,x2,y2) else DrawLine(x1,y1,x2,y2)
x1x2 y1y2 CDummyc*CosD BORLAND Internatio
nal *) (*
*) (***********************************************************) procedu
re DrawCartPie(X1,Y1,X2,Y2,Inner,Outerreal APieArray
N,Prior,Scaleinteger) var iinteger Sum,AspectLocrea
l procedure DCS(N integer) begin DrawCircleSegment(X1,Y1,X2,Y2,
Inner,Outer,abs(AN.area/Sum*360), AN.areaphi-s*SinDphi
ss*CosDphi+c*SinDphi cCDummy end if not PieGlb
then if not DirectModeLoc then ClippedLine(x1,y1,x0,y0) else D
rawLine(x1,y1,x0,y0) if (option0) and (phi2.0*pi) then begin
xr1xr0+FaktC*RadiusLoc*inner*cos(phi/2.0+Phi1) yr1yr0+FaktS*Aspect
Glb*RadiusLoc*inner*sin(phi/2.0+Phi1) xr2xr0+FaktC*RadiusLoc*outer*cos(
phi/2.0+Phi1) yr2yr0+FaktS*AspectGlb*RadiusLoc*outer*sin(phi/2.0+Ph,AN.
text,Prior,Scale) end begin AspectLocAspectGlb AspectGlbAspe
ctGlb*BXGlb/BYGlb Sum0.0 for i1 to N do SumSum+abs(Ai.area) for i
1 to N-1 do begin PieGlb(Ai.area0) and (Ai+1.area0) DCS(i)
end PieGlb(AN.area0) and (A1.area0) DCS(N) PieGlbtrue A
spectGlbAspectLoc end procedure DrawPolarPie(X1,Y1,Radius,Angle,Inner,Oute
rreal APieArray i1) x1WindowX(xr1
) y1WindowY(yr1) x2WindowX(xr2) y2WindowY(yr2)
if not DirectModeLoc then ClippedLine(x1,y1,x2,y2) else DrawLine(x1,
y1,x2,y2) str(area12,TempText) case option of 1 Tem
pTexttxt 2 TempTexttxt+TempText 3 TempTextTempText
end TextLenlength(TempText) if x2x0 then x2x2+scale*6
else x2x2-TextLen*6*scale DrawT PAFBGCHDIE N,Prior,Scalei
nteger) begin AngleAngle/180*Pi DrawCartPie(X1,Y1,X1+Cos(Angle)*Rad
ius,Y1+Sin(-Angle)*Radius*AspectGlb* BXGlb/ByGlb,Inner,Outer,A,
N,Prior,Scale) end vMODPOLY HGH 0) DCS(i) end PieGlb(AN.ar
ea0) and (A1.area0) DCS(N) PieGlbtrue AspectGlbAspectLoc end
procedure DrawPolarPie(X1,Y1,Radius,Angle,Inner,Outerreal
APieArray x1X1RefGlb shl 3 YReftrunc(Y2RefGlb+Y1
RefGlb-AyGlb) if Negative then DrawStraight(x1,X2RefGlb shl 3+7,YRef)
YAxisY1RefGlb if BYGlb0 then YAxisY2RefGlb for i1 to NPoints d
o begin x2x1+Delta+Balance yAi,2 if not Negat
ive then yabs(y) if AxisGlb then y2trunc(AyGlb+ByGlb*y) else y
2trunc((AyGlb+ByGlb*y)*0.99) y2Y2RefGlb+Y1RefGlb-y2 if not Neg
ative then begi(******************************************************
*****) (* *) (*
TURBO GRAPHIX version 1.05A *) (*
*) (* Histogramme module
*) (* Module version 1.05A *
) (* *) (*
Copyright (C) 1985 by *) (* n DrawLine(x
1,YAxis,x1,y2) DrawStraight(x1,x2,y2) DrawLine(x2,y2,x2,YA
xis) if Hatching then if odd(i) then hatch(x1,y2,x2,YAxi
s,HatchStyle) else hatch(x1,y2,x2,YAxis,-HatchStyle) end
else begin DrawLine(x1,YRef,x1,y2) Draw
Straight(x1,x2,y2) DrawLine(x2,y2,x2,YRef) if Hatching the
n if YRef-y20 then if odd(i) then hatch(x1,YRef,x2,y
2 BORLAND International *) (*
*) (****************************************
*******************) procedure DrawHistogram(APlotArray
NPointsinteger Hatchingboolean
HatchStyleinteger) var x1,x2,y2,NPixels,Delta,NDiff,YRefinteger
LineStyleLoc,iinteger Fract,s,y,YAxisreal DirectModeLoc,Negativeb
oolean wte,HatchStyle) else hatch(x1,YRef,x2,y2,-HatchStyl
e) else if odd(i) then hatch(x1,y2,x2,YRef,HatchStyle)
else hatch(x1,y2,x2,YRef,-HatchStyle) end x1x2 end
if AxisGlb then begin windowWindowNdxGlbwtemp Se
lectWindow(WindowNdxGlb) X1Glb X1Loc Y1Glb Y1Loc X2
Glb X2Loc Y2Glb Y2Loc AxisGlbfalse end Direct
ModeGlbDirectModeLompWindowType X1Loc,Y1Loc,X2Loc,Y2Locinteger funct
ion Balanceinteger begin Balance0 ss+Fract if s0.0 the
n begin ss-1.0 Balance1 end end begi
n Histogramme if abs(NPoints)2 then begin X1Loc X1Glb
Y1Loc Y1Glb X2Loc X2Glb Y2Loc Y2Glb LineStyleLocLinest
yleGlb SetLineStyle(0) if AxisGlb then begin wtem
pwindowc SetLineStyle(LineStyleLoc) end else error(19,4) en
d e) else hatch(x1,y2,x2,YRef,-HatchStyle) end
x1x2 end if AxisGlb then begin windowWindowNdxGl
bwtemp SelectWindow(WindowNdxGlb) X1Glb X1Loc Y1Glb
Y1Loc X2Glb X2Loc Y2Glb Y2Loc AxisGlbfalse
end DirectModeGlbDirectModeLoWindowNdxGlb ReDefineWindow(Window
NdxGlb,X1RefGlb+4+X1Glb,Y1RefGlb+6+Y1Glb, X2RefGlb-2-X2G
lb,Y2RefGlb-14-Y2Glb) SelectWindow(WindowNdxGlb) AxisGlb true
end DirectModeLocDirectModeGlb DirectModeGlbtrue N
egativeNPoints0 NPointsabs(NPoints) NPixels(X2RefGlb-X1RefGlb) shl
3+7 DeltaNPixels div NPoints NDiffNPixels-Delta*NPoints Fr
actNDiff/NPoints s-Fract PAFBGCHDIE(***********************************
************************) (*
*) (* TURBO GRAPHIX version 1.05A *) (*
*) (* Grap
hics system kernel *) (* Module version 1.03A
*) (*
*) (* Copyright (C) 1985 by *) (* etMe
ssageOff begin MessageGlbfalse end procedure SetHeaderOn begin HeaderGl
btrue end procedure SetHeaderOff begin HeaderGlbfalse end procedure Set
HeaderToTop begin TopGlbtrue end procedure SetHeaderToBottom begin TopG
lbfalse end procedure RemoveHeader(iinteger) begin if i in 1..MaxWind
owsGlb then with windowi do begin drawnfalse toptrue
header'' end else error(22,2) end procedu BO
RLAND International *) (*
*) (* modified for the Schneider CPC 6128
*) (* by HEIMSOETH Software Munich *) (*
Version 1.0 / 25.11.1985 *) (*
*) (*******************************************
****************) procedure error declared in GRAPHIX.SYS (ErrProc,ErrCodein
teger) vare SetColorWhite begin ColorGlb(255) end procedure SetColorBl
ack begin ColorGlb(0) end function GetWindowinteger begin GetWindowWind
owNdxGlb end function clippingboolean begin clippingClippingGlb end fun
ction WindowModeboolean begin WindowModenot DirectModeGlb end procedure Se
tScreenAspect(aspectreal) begin if aspect0.0 then AspectGlbabs(aspect) end
function GetScreenAspectreal begin GetScreenAspectAspectGlb end procedure
SetAspr XLoc,YLocinteger chchar begin if not (ErrProc in 0..MaxProcs
Glb) then begin LeaveGraphic writeln('FATAL ERROR 1 illegal procedure
number ',ErrProc) halt end if not (ErrCode in 0..MaxErrsGlb) then beg
in LeaveGraphic writeln('FATAL ERROR 2 illegal error code ',ErrCode)
halt end ErrCodeGlbErrCode if BrkGlb then LeaveGraphic if Messag
eGlb or BrkGlb then begin XLocXTextGlb YLocYTextGlb GotoXY(1,24)
ClrEOect(aspectreal) begin if aspect0.0 then AspectGlbabs(aspect)*Aspect
Factor end function GetAspectreal begin GetAspectAspectGlb/AspectFactor en
d procedure SetLinestyle(lsinteger) var iinteger const lsaarray 0..4 of
byte($FF,$88,$F8,$E4,$EE) begin if not (ls in 0..4) then lsls and $FF +
$100 LineStyleGlbls if ls5 then lslsals for i0 to 7 do LineStyle
ArrayGlb7-i((ls shr i) and 1)0 CntGlb7 end function GetLinestL w
riteln('Turbo Graphix error #',ErrCode,' in procedure #',ErrProc) if Messag
eGlb then begin ClrEOL write('(',ErrorCodeErrCode,' in ',ErrorProc
ErrProc,')') end end if MessageGlb and BrkGlb then halt else if Br
kGlb and not MessageGlb then halt else if MessageGlb then begin write(
'. Hit enter ') repeat read(Kbd,Ch) until (ChM) or (ChC) if ChC then
begin LeaveGraphic halt end GotoXY(XLoc,YLoc) end end proceduryleint
eger begin GetLinestyleLinestyleGlb end procedure SetVStep(vsinteger) b
egin if vs0 then VStepGlbvs end function GetVStepinteger begin GetVStepVSt
epGlb end procedure DefineHeader(iintegerhdrwrkstring) begin if (i in
1..MaxWindowsGlb) then windowi.headerHdr else error(3,2) end function Get
Screenbyte begin getScreenactualScreen end procedure DefineWorld(iinteger
X1,Y1,X2,Y2real) begin if ((Xe SetBreakOff beg
in BrkGlbfalse end procedure SetBreakOn begin BrkGlbtrue end function G
etErrorCodebyte begin GetErrorCodeErrCodeGlb ErrCodeGlb0 end procedure Set
WindowModeOff begin DirectModeGlbtrue end procedure SetWindowModeOn beg
in DirectModeGlbfalse end procedure SetClippingOn begin ClippingGlbtrue en
d procedure SetClippingOff begin ClippingGlbfalse end procedure SetMess
ageOn begin MessageGlbtrue end procedure S PAFBGCHDIE1X2) and (Y1Y2)) and
(i in 1..MaxWorldsGlb) then with worldi do begin x1X1y1Y2x2X2y2
Y1 if iMaxWorldGlb then MaxWorldGlbi end else if i in 1..Ma
xWorldsGlb then error(1,3) else error(1,2) end procedure SelectWorld(
iinteger) begin if (i in 1..MaxWorldGlb) then with worldi do beg
in X1WldGlbx1 Y1WldGlby1 X2WldGlbx2 Y2WldGlby2 end
else error(2,2) end procedureGlb AyGlby1-Y1WldGlb*ByGlb
if AxisGlb then begin AxisGlbfalse X1Glb0 Y1Glb0
X2Glb0 Y2Glb0 end end else error(4,2) end functi
on WindowX(xreal)integer begin WindowXtrunc(AxGlb+BxGlb*x) end function Wi
ndowY(yreal)integer begin WindowYtrunc(AyGlb+ByGlb*y) end procedure InitGr
aphic var filfile of CharArray tfiletext tempWrkString i
integer begin G ReDefineWindow(i,X1,Y1,X2,Y2integer) begin if (i
in 1..MaxWindowsGlb) and (X1X2) and (Y1Y2) and (X10) and (X2XMaxGlb) an
d (Y10) and (Y2YMaxGlb) then with windowi do begin x1X1 y1Y1
x2X2 y2Y2 if iMaxWindowGlb then MaxWindowGlbi end els
e if i in 1..MaxWindowsGlb then error(3,3) else error(3,2) end proced
ure DefineWindow(i,X1,Y1,X2,Y2integer) begin ReDefineWindow(i,X1,YotoXY(
1,1) MessageGlbTrue BrkGlbFalse GetMem(ErrorProc0,16) GetMem
(ErrorCode0,24) ErrorProc0'InitGraphic' ErrorCode0'ERROR.MSG missing'
assign(tfile,'error.msg') $I- reset(tfile) $I+ if ioresult0 then
begin for i0 to MaxProcsGlb do begin readln(tfile,temp)
if i0 then GetMem(ErrorProci,length(temp)+1) ErrorProcitemp end
for i0 to MaxErrsGlb do begin readln(tfi1,X2,Y2) with wind
owi do begin header'' toptrue drawnfalse end end
function TextLeft(TX,Boundaryinteger)integer var TLinteger begin TL
((TX-1)*((XScreenMaxGlb+1) div 80)-Boundary) div 8 if TL0 then TL0 els
e if TLXMaxGlb then TLXMaxGlb TextLeftTL end function TextRight(TX,Bo
undaryinteger)integer var TRinteger begin TR(XScreenMaxGlb+1) div 80
TR(TX*TR+Boundary-1) div 8 if TRle,temp) if i0 then GetMem(Er
rorCodei,length(temp)+1) ErrorCodeitemp end readln(tfile,
PcGlb) close(tfile) end else begin GetMem(ErrorProc1,14)
ErrorProc1'** UNKNOWN **' for i2 to MaxProcsGlb do ErrorProciErro
rProc1 for i1 to MaxErrsGlb do ErrorCodeiErrorProc1 error(0,0)
end for i1 to MaxWorldsGlb do DefineWorld(i,0,0,XScreenMaxGlb,YMax
Glb) MaxWorldGlb1 0 then TR0 else if TRXMaxGlb then TRXMaxGlb Te
xtRightTR end function TextUp(TY,Boundaryinteger)integer var TUinteger
begin TU(TY-1)*((YMaxGlb+1) Div 25)-Boundary if TU0 then TU0 e
lse if TUYMaxGlb then TUYMaxGlb TextUpTU end function TextDown(TY,Bou
ndaryinteger)integer var TDinteger begin TDTY*((YMaxGlb+1) Div 25)+Bo
undary-1 if TD0 then TD0 else if TDYMaxGlb then TDYMaxGlb TextDow
nTD e for i1 to MaxWindowsGlb do begin DefineWindow(i,0,0,XMaxGlb,Y
MaxGlb) with stacki do begin w.size0 contentsfalse
end RemoveHeader(i) end MaxWindowGlb1 assign(fil,CharFi
le) $I- reset(fil) $I+ if ioresult0 then read(fil,CharSet) else e
rror(0,1) close(fil) BrkGlbtrue SelectScreen(1) WindowNdxGlb
1 SelectWorld(1) SelectWindow(1) SetColorWhite SetClippingOn
nd procedure DefineTextWindow(i,X1,Y1,X2,Y2,Binteger) begin Define
Window(i,TextLeft(X1,B),TextUp(Y1,B),TextRight(X2,B),TextDown(Y2,B)) end p
rocedure SelectWindow(iinteger) begin if (i in 1..MaxWindowGlb) then
with windowi do begin WindowNdxGlbi X1RefGlbx1 Y1RefGlby1
X2RefGlbx2 Y2RefGlby2 BxGlb((x2-x1) shl 3+7)/(X2WldGlb-X1WldGl
b) ByGlb(y2-y1)/(Y2WldGlb-Y1WldGlb) AxGlb(x1 shl 3)-X1WldGlb*B
x PAFBGCHDIE SetAspect(AspectFactor) DirectModeGlbfalse PieGlbfalse
SetMessageOn SetHeaderOff SetHeaderToTop ErrCodeGlb0 S
etLineStyle(0) VStepGlbIVStepGlb EnterGraphic X1Glb0 X2Glb0
Y1Glb0 Y2Glb0 AxisGlbfalse HatchGlbfalse end SelectScreen(1)
WindowNdxGlb1 SelectWorld(1) SelectWindow(1) SetColorWhite
SetClippingOn axContrPoints+1,1 SumYAMaxContrPoints+1,2
for nMaxContrPoints downto 1 do begin SumXcombin-1*An,1+qu
ot*SumX SumYcombin-1*An,2+quot*SumY end end
else begin prodt quotprod for n1 to MaxContrP
oints-1 do prodprod*quot quot(1-t)/quot SumXA1,1 SumY
A1,2 for n1 to MaxContrPoints do begin SumXcombind
rive A $he source disc $he destination disc $then press any key$ track sector $
tcorrectly$ insert a CP/M system disc into drive A $$ finished$ abandoned$$Plea
se$started$complete$Formatting whilst copying$$Please insert destination disc in
to drive A $Do you want to copy another disc (Y/N)$ Reading track $ Formatting
track $ Writing track $ C...aborted$Bad format option (you may only enter S, V
, D or I)$Insufficient space in TPA$You must insert tinto drive *An+1,1+quot*Sum
X SumYcombin*An+1,2+quot*SumY end end BIntPo
int,1SumX*prod BIntPoint,2SumY*prod end end begin prod
t quotprod for n1 to MaxContrPoints-1 do prodprod*quot
quot(1-t)/quot SumXA1,1 SumYA1,2 for n1 to MaxContr
Points do begin SumXcombin(********************************
***************************) (*
*) (* TURBO GRAPHIX version 1.05A *) (*
*) (* Be
zier polynomial module *) (* Module version 1.
00A *) (*
*) (* Copyright (C) 1985 by *) (* i
sc into drive A $$ finished$ abandoned$$Please$started$complete$Formatting whils
t copying$$Please insert destination disc into drive A $Do you want to check ano
ther disc (Y/N)$ Reading track $ Formatting track $ Checking track $ C...abo
rted$Bad format option (you may only enter S, V, D or I)$Insufficient space in T
PA$You must insert tinto drive A$You must insert tinto drive A$You must$Tin driv
e A must be write-enabled$Tis not a CP/M system disc$T BORLAND Intern
ational *) (*
*) (***********************************************************) pro
cedure bezier(APlotArray MaxContrPointsinteger
var BPlotArray MaxIntPointsinteger) const MaxControlPoin
ts25 type CombiArrayarray 0..MaxControlPoints of real var ninteger
ContrPoint,IntPointinteger t,SumX,SumY,prod,DeltaT,quotreal(*************
**********************************************) (*
*) (* TURBO GRAPHIX version 1.05A
*) (* *) (*
Cubic spline module *) (*
Module version 1.00A *) (*
*) (* Copyright (C) 1985 by
*) (* combiCombiArray begin MaxContrPointsMaxContr
Points-1 DeltaT1.0/(MaxIntPoints-1) combi01 combiMaxContrPoints1
for n0 to MaxContrPoints-2 do combin+1combin*(MaxContrPoints-n)/(n+1
) for IntPoint1 to MaxIntPoints do begin t(IntPoint-1)*DeltaT
if t0.5 then begin prod1.0-t quotprod
for n1 to MaxContrPoints-1 do prodprod*quot quott/quot SumXAM
PAFBGCHDIE BORLAND International *) (*
*) (******************************
*****************************) procedure spline(APlotArray
Ninteger X1,XMreal var BPlotArray
Minteger) const MaxSpline50 type Vector array 1..MaxSpline of rea
l var x,y,zVector iinteger DeltaXreal procedure stg(Vector
1,Vector2,Vector3Vec1A1,1) and (XMAN,1)) and (M2) then begin De
ltaX(XM-X1)/(M-1) for i1 to N do begin XiAi,1
YiAi,2 end for i2 to M-1 do ZiX1+(i-1)*DeltaX
Z1X1 ZMXM sia(X,Y,N,Z,Y,M) for i1 to M do
begin Bi,1Zi Bi,2Yi end end else
error(20,7) end else error(20,4) end tor var Vec
tor4Vector NPtsinteger) var iinteger Factorreal
begin for i2 to NPts do begin FactorVector1i-1/Vec
tor2i-1 Vector2iVector2i-Factor*Vector3i-1 Vector4iVector4i-Fa
ctor*Vector4i-1 end Vector4NPtsVector4NPts/Vector2NPts for
i1 to NPts-1 do Vector4NPts-i(Vector4NPts-i-Vector3NPts-i*Vector4NPts-
i+1) / M xx/ %/xZ, 7% mmG !xogS!D5Oymmy xHxm mm m0 T)))5N2Y7
2mm7BZahhGx5! eG#$#$+#$m#$mm m m! Vector2NPts-i end procedure sc
(X,YVector var ZVector NPtsinteger) var iin
teger D,CVector begin D11.0 C10.5 Z10.5
for i2 to NPts-1 do begin Di2.0*(Xi+1-Xi-1) CiXi+1
-Xi Zi6.0*((Yi+1-Yi)/(Xi+1-Xi)-(Yi-Yi-1)/(Xi-Xi-1)) end
DNPts1.0 CNPts-10.0 CNPts0.0 ZNPts"U uNrB"DB"$oi' BB"bB/B B
$!BH"''"'fBDG$".$pqOCyq"%eD""ppTiB&#"""FLN#Fy80*z#z+++ z## 9! y9!r0.0
stg(C,D,C,Z,NPts) end function si(Vreal X,Y,ZVector
NPtsinteger)real var i,jinteger dummy,ai,hireal
begin if (VX1) and (VXNPts) then begin j1 repe
at jj+1 iNPts-j dummyV-Xi until (dummy
0.0) or (i2) hiXi+1-Xi aidummy*(Zi+1-Zi)/(6.0*hi)+0.5*Zi
aidummy*ai+(Yi+1-Yi)/hi-hi*(2.0*Zi+al command buffer$** Sign-on string empty
$Sign-on string$Enter new sign-on string$** Printer power-up string empty$Printe
r power-up string$Enter new printer power-up string$No keyboard translations set
$Keyboard translationsKey code Normal Shift Control$
$ $ - $Enter required command from- A - Add key transl
ation (key number, normal, shift, control) D - Delete key translation (key
number) C - Clear all translatZi+1)/6.0 sidummy*ai+Yi end
else if VX1 then siY1 else siYNPts end procedure sia(X,Y
Vector NPtsinteger XIntVector
var YIntVector Ninteger) var iinteger V3Vector
begin sc(X,Y,V3,NPts) for i1 to N do YIntisi(XInti,X,Y,V3,NP
ts) end begin Spline if (abs(N)2) and (abs(M)2) then begi
n if ((X PAFBGCHDIE(****************************************************
*******) (* *) (*
TURBO GRAPHIX version 1.05A *) (*
*) (* World coordinate system find
er module *) (* Module version 1.00A
*) (* *) (*
Copyright (C) 1985 by *) (* BORLAND I
nternational *) (*
*) (***********************************************************)
const MaxWorldsGlb4 MaxWindowsGlb16 MaxPiesGlb10 MaxPlotG
lb100 StringSizeGlb80 HeaderSizeGlb10 RamScreenGlbbooleantr
ue CharFilestringStringSizeGlb'4x6.fon' MaxProcsGlb27 MaxEr
rsGlb7 type wrkstringstringStringSizeGlb WorldTyper BORLAN
D International *) (*
*) (***********************************************************
) procedure FindWorld(iinteger APlotArray
NPointsinteger ScaleX,ScaleYreal) var XMax,YMax,X
Min,YMinreal jinteger begin NPointsabs(NPoints) if NPoints
2 then if i in 1..MaxWorldsGlb then begin XMaxA1ecord
x1,y1,x2,y2real end WindowTyperecord
x1,y1,x2,y2integer headerwrkstring
drawn,topboolean sizeinteger
end worldsarray 1..MaxWorldsGlb of WorldType windowsarray 1..MaxWi
ndowsGlb of WindowType PlotArrayarray 1..MaxPlotGlb,1..2 of real c
haracterarray 1..3 of byte CharArrayarray 32..126 of character ,1
YMaxA1,2 XMinXMax YMinYMax for j2 to NPoints do
begin if Aj,1XMax then XMaxAj,1 else if Aj,1XMin t
hen XMinAj,1 if Aj,2YMax then YMaxAj,2 else if Aj,2YMin th
en YMinAj,2 end ScaleXabs(ScaleX) ScaleYabs(ScaleY)
XMaxXMax*ScaleX XMinXMin*ScaleX YMaxYMax*ScaleY
YMinYMin*ScaleY DefineWorl PieTyperecord area
real textwrkstring end PieArrayarray 1..M
axPiesGlb of PieType BackgroundArrayarray 0..7 of byte LineStyleAr
rayarray 0..7 of boolean var X1WldGlb,X2WldGlb,Y1WldGlb,Y2WldGlb,AxGlb,AyGl
b,BxGlb,ByGlbreal X1RefGlb,X2RefGlb,Y1RefGlb,Y2RefGlbinteger Lines
tyleGlb,MaxWorldGlb,MaxWindowGlb,WindowNdxGlbinteger X1Glb,X2Glb,Y1Glb,Y2
Glbinteger VStepGlbinteger Pid(i,XMin,YMin,XMax,YMax) Sel
ectWorld(i) end else error(7,2) else error(7,4) end if
Aj,1XMax then XMaxAj,1 else if Aj,1XMin then XMinAj,1 if A
j,2YMax then YMaxAj,2 else if Aj,2YMin then YMinAj,2 end
ScaleXabs(ScaleX) ScaleYabs(ScaleY) XMaxXMax*ScaleX
XMinXMin*ScaleX YMaxYMax*ScaleY YMinYMin*ScaleY
DefineWorleGlb,DirectModeGlb,ClippingGlb,AxisGlb,HatchGlbboolean Message
Glb,BrkGlb,HeaderGlb,TopGlbboolean CntGlbbyte ErrCodeGlbbyte
LineStyleArrayGlbLineStyleArray ErrorProcarray 0..MaxProcsGlb of WrkStr
ing ErrorCodearray 0..MaxErrsGlb of WrkString PcGlbstring40
AspectGlbreal GrafBaseinteger worldworlds windowwindows
CharSetCharArray (********************************************************
***) (* *) (*
TURBO GRAPHIX version 1.05A *) (*
*) (* Type definition module
*) (* Module version 1.00A *)
(* *) (*
Copyright (C) 1985 by *) (* PAFBGCHDIEO*lV y4!N#FyA
ZZZz!m£m#x7$%&'(!G# S#!F#######F#NSAVADI'.!JNGY7G1UWbsaGx12kJi#6!*G#$#$+#$ of by
te allume la banque Video var asstacke integer var asstack array0..10 of int
eger ----------------------------------------------------------------------
---- procedure videoAccess begin inline( $e1/$ed/$73/asstack/$31/asstacke/$
e5/ charge la pile $f3/$01/$8e/$7f/$3e/$c1/$ed/$79/$e
d/$79/ allume la banque video $ed/$4b/bc/$ed/$5b/de/$2a/hl/$c9/
charge les Parametres $01/$8e/$7f/$3e/$c2/$ed/$79/$fb/
XScreenMaxGlb 639 Nombre de PIXELS -1 dans une ligne
ecran YMaxGlb 199 Nombre de lignes -1 dans l'ecran
IVStepGlb 5 Valeur initiale pour VStepGlb S
creenSizeGlb 16000 Taille totale en octets de l'ecan MinForeg
round0 La plus basse couleur autorisee en avant plan Max
Foreground1 La plus haute couleur autorisee en avant plan
MinBackgr eteint la banque video $ed/$7b/asstack/$c9/
recharge la pile $cd/bankon/$ed/$b0/$c3/bankoff/
deplace avec ldir ou LDDR $cd/bankon/
allume la banque video $1a/$77/$13/$d5/$cd/inclin/$d1/$10
/$f6/ deplace une ligne verticale $c3/bankoff/
eteint la banque video $11/$00/$08/$19/$cb/$7c/$c8/$11/$b
0/$3f/ incremente une Ligne ound0 la plus basse couleur
autorisee en arriere plan MaxBackground1 la plus haute c
ouleur autorisee en arriere plan AspectFactor0.5 facteur
d'aspect pour un vrai cercle type FontChararray 0..7 of byte WindowSta
ckRecordrecord w windowtype
contentsboolean end stacksarray1..MaxWindowsGlb o
f WindowStackRecord var ConOutPtrSave $a7/$ed/$52/$c9/
$11/$00/$08/$a7/$ed/$52/$cb/$74/$c0/$11/ decremente une Ligne
$b0/$3f/$19/$c9/ $cd/hmove/$2a/hl/$cd/inclin/$22/hl/ transfere
un bloc en haut $2a/de/$cd/inclin/$22/de/$3a/akku/ $3d/$32/a
kku/$20/$e2/$c9/ $cd/hmove/$2a/hl/$cd/declin/$22/hl/ transfere un
bloc en bas $2a/de/$cd/declin/$22/de/$3a/akku/ $3d/$32/akku
/$20/$e2/$c9/ $cd/bankon/$7e/$2f/$77/$23/$0b/$78/$b1/ integer s
tackstacks (**** Structure to Call System *****) var systc array0..5 of
byte akku byte h,l byte d,e byte b,c b
yte hl integer absolute l de integer absolute e bc
integer absolute c var getcolor byte unibuff array0..255 of
byte ActualScreenbyte savscrfile file uniline array0..199
of byte unifile file var invlin array0..14inverse une ligne
$20/$f7/$c3/bankoff ) end function vadr(x,yinteger)
integer begin vadr$4000+(((y and 7)*$800 + (y shr 3)*80 + x) and $7fff) en
d procedure blockmove(typ,x1,y1,x2,y2,stepintegerfillboolean) begin bcx2
-x1+1 akkuy2-y1+1 hmove4$b0 case typ of 0begin hlvadr(x1,y1) devad
r(x1,y1-step) inline($cd/windup) end 1begin hlvadr(x1,y2) devadr(x1,y2+ste
p) inline($cd/winddown) end 3begin hl of byte inverse le bloc var winddow
n array0..30 of byte descend la fenetre var windup array0..30 of byte monte l
a fenetre var declin array0..13 of byte decremente Ligne-Adresse var incli
n array0..13 of byte incremente Ligne-Adresse var vtrans array0..15 of by
te transporte depuis la ligne vers la Video var hmove array0..7 of byte tra
nsfere dans la RAM-VIDEO var bankoff array0..12 of byte eteint la banque Vide
o var bankon array0..30 PAFBGCHDIEvadr(x1,y1) dehl-step inline($cd/windup) e
nd 2begin hmove4$b8 hlvadr(x2,y2) dehl+step inline($cd/winddown) end e
nd end procedure invertblock(x1,y1,x2,y2integer) begin windup1lo(addr(i
nvlin)) windup2hi(addr(invlin)) bcx2-x1+1 akkuy2-y1+1 hlvadr(x1,
y1) inline($cd/windup) windup1lo(addr(hmove)) windup2hi(addr(hmove))
end procedure system(addressinteger) begin systc0$cd systc1$5a
rocedure SCRMOVEBYTELINE(xl,x1,y1,x2,y2,s1,s2integer) begin if (s12) and
(s22) then begin RAMGETBYTELINE(xl,x1,y1) RAMPUTBYTELINE(xl,x2,y2)
end else if (s12) and (s21) then begin RAMGETBYTELINE(xl,x1,y1)
interbankmove(1,addr(uniline),0,SCRDOTPOSITION(x2 shl 3,y2),xl) end
else if (s11) and (s22) then begin interbankmove(0,SCRDOTPOSITION(x1 s
hl 3,y1),1,addr(uniline),xl) RAMPUTBYTELINE(xl,x2,y2) end else be
gi systc2$fc systc3lo(address) systc4hi(address) systc5$c9 inlin
e($3a/akku/$ed/$4b/bc/$ed/$5b/de/$2a/hl/$cd/systc/ $32/akku/$ed/$43/b
c/$ed/$53/de/$22/hl) end procedure InterBankmove(qbank,sadr,zbank,eadr,count
integer) var l,from,tu,bankinteger begin fromsadr tueadr lcount bank(z
bank shl 8) or qbank inline($ed/$4b/bank/$cd/$57/$fc/$2a/tu/$ed/$4b/l/$ed/$5
b/from/$cd/$4b/$fc) end procedure COLORGLB(inkbyte) begin getcolon i
nterbankmove(0,SCRDOTPOSITION(x1 shl 3,y1), 0,SCRDOTPOSIT
ION(x2 shl 3,y2),xl) end end procedure SCRFILLCHAR(ink,xl,x1,y1integer)
begin fillchar(uniline,xl,ink) interbankmove(1,addr(uniline),0,SCRDOTPO
SITION(x1 shl 3,y1),xl) end procedure SCRINVERTBYTELINE(x,y,xlinteger) var
iinteger begin interbankmove(0,SCRDOTPOSITION(x shl 3,y),1,addr(uniline),xl
) for i0 to xl do unilineinot unilinei interbankmove(rink akkuink system
($bbde) end procedure GRAMOVEABSOLUTE(x,yinteger) begin hl(199-y) shl 1 dex
system($BBC0) end procedure GRALINEABSOLUTE(x,yinteger) begin hl(199-y) shl
1 dex system($BBF6) end procedure GRAPUTSCREENBLOCK(IINTEGERvar unibuff) var
b,zinteger begin interbankmove(1,addr(unibuff),0,(i shl 7)+$4000,128) en
d procedure GRAGETSCREENBLOCK(IINTEGERvar unibuff) var b,zinteger begin
interBankmove(0,(i shl 7)+$4000,1,addr(1,addr(uniline),0,SCRDOTPOSITION(x shl
3,y),xl) end procedure SCRREADBYTELINE(xlintegervar bufferx,yinteger) begin
interbankmove(0,SCRDOTPOSITION(x shl 3,y),1,addr(buffer),xl) end proced
ure SCRWRITEBYTELINE(xlintegervar bufferx,yinteger) begin interbankmove(1,a
ddr(buffer),0,SCRDOTPOSITION(x shl 3,y),xl) end procedure Vfillbyteline(xl,x
1,yintegerfillboolean) var y1,sadr,zinteger begin if fill then begin
y1y for z0 to xl-1 dounibuff),128) end function SCRDOTPOSITION(x,yi
nteger)integer begin dex hl(199-y) system($Bc1d) SCRDOTPOSITION(hl and $7ff
f) or $4000 end procedure RAMGETBYTELINE(xl,x1,y1integer) transfere un Byt
eline de RamScreen a uniline var sadrinteger begin sadrSCRDOTPOSITION(x1 s
hl 3,y1) - $4000 $I- seek(savscrfile,sadr shr 7) blockread(savscrfile,un
ibuff,2)$I+ if ioresult0 then begin end remise a blanc de IOResult mov
e(unibuffsadr and begin sadrSCRDOTPOSITION(x1 shl 3,y1) - $4000
seek(savscrfile,sadr shr 7) $I- blockread(savscrfile,unibuff,1)$I+
if ioresult0 then begin end remise a blanc de IOResult unilinezuni
buffsadr and $7f y1y1+1 end end else fillchar(uniline,xl,
(not GetColor) and $FF) end procedure SCRCopyVertikalByteline(xl,x1,yInteger
) begin deaddr(uniline) hlvadr(x1,y) bxl inline($cd/vtrans) end functio
n Xtext$7f,uniline,xl) end procedure RAMPUTBYTELINE(xl,x1,y1integer) trans
fere un Byteline de uniline a RamScreen var sadrinteger begin sadrSCRDOTP
OSITION(x1 shl 3,y1) - $4000 seek(savscrfile,sadr shr 7) $I- blockread(s
avscrfile,unibuff,2)$I+ if ioresult0 then begin end remise a blanc de IORes
ult move(uniline,unibuffsadr and $7f,xl) $I- blockwrite(savscrfile,unib
uff,2)$I+ if ioresult0 then begin end remise a blanc de IOResult end p
PAFBGCHDIEGlbinteger begin system($bb78) xtextGlbh end function YtextGlbin
teger begin system($bb78) ytextGlbl end ------------------------------------
-------------------------------- procedure GotoXY(x,yinteger) parceque TURBO
pour CPC6128 est installe avec 24 lignes begin write(#$1b,'Y',chr(y+$1f),c
hr(x+$1f)) end procedure error(ErrProc,ErrCodeinteger) forward Code en KERN
EL.SYS procedure ClearWindowStack(wininteger) begin if not (win in
1..MaxWindows end procedure IOCheck(numinteger) begin if ioresult0 t
hen Error(num,5) end procedure SaveScreen(FileNamewrkstring) Sauve l'e
cran courant sur la disquette en u
tilisant FileName var iinteger begin assign(unifile,FileName) $I- rewri
te(unifile) $I+ IOCheck(27) for i0 to 127 do begin GRAGETSCREENBLOC
K(I,unibuff) $I- Blockwrite(unifile,unibuff,1) $I+ IOCheck(27)
end close(uGlb) then error(14,2) else with stackwin,w do begin
if contents then begin assign(unifile,'winf.'+chr(win+$30))
erase(unifile) end contentsfalse end end proc
edure ResetWindowStack var iinteger begin for i1 to MaxWindowsGlb do
ClearWindowStack(i) end procedure LeaveGraphic eteint le mode gra
phique begin system($bb7b) curseur texte permis write(#$1b,'1',#$1
b,'x',#$1b,'v') nifile) iocheck(27) end procedure SelectScreen(iinte
ger) begin actualscreeni end procedure LoadScreen(FileNamewrkstring) charge
l'ecran depuis le fichier FileName var iinteger begin assign(unifile,FileN
ame) $I- reset(unifile) $I+ iocheck(11) for i0 to 127 do begin b
lockread(unifile,unibuff,1) GRAPUTSCREENBLOCK(I,unibuff) end close(
unifile) end procedure SwapScreen var iinteger begin seek(savscrfile,0)
for i0 to 1$I- close(savscrfile) erase(savscrfile) $I+ if ioresult0 the
n begin end remise a blanc de IOResult resetWindowStack End procedu
re ClearScreen begin system($bc14) end procedure EnterGraphic all
ume le mode graphique,vide l'ecran var iinteger begin write(#$1b,'y',
#$1b,'0',#$1b,'w') system($bb7e) curseur texte non permis ClearScreen
inline($21/videoAccess/$01/173/0/$11/bankon/$ed/$b0) assign(savscrfil
e,'savscr.$$$') 27 do begin GRAGETSCREENBLOCK(I,unibuff) blockre
ad(savscrfile,unibuff128,1) GRAPUTSCREENBLOCK(I,unibuff128) seek(sav
scrfile,i) blockwrite(savscrfile,unibuff,1) end end procedure GetSc
reen var iinteger begin seek(savscrfile,0) for i0 to 127 do begin
GRAGETSCREENBLOCK(I,unibuff) $I- Blockwrite(savscrFile,unibuff,1) $I+
IOCheck(11) end end procedure PutScreen var iinteger begin seek
(savscrfile,0 rewrite(savscrfile) fillchar(unibuff,256,0) for i0 to 63
do blockwrite(savscrfile,unibuff,2) end procedure SetForegroundColor(Colo
rinteger) begin colorglb(COLOR) end procedure SetBackgroundColor(Colorinte
ger) begin akkucolor system($bbe4) end procedure DP(X,Yinteger) begin h
l(199-y) shl 1 dex system($bbea) end function PD(x,yinteger)boolean begin
hl(199-y) shl 1 dex system($bbF0) pdakku0 end procedure SetBackground8(Backgr
ou) for i0 to 127 do begin $I- Blockread(savscrFile,unibuff,1) $I+
IOCheck(11) GRAPUTSCREENBLOCK(I,unibuff) end end procedure Cop
yScreen Copie le contenu de l'ecran courant dans un autre ecran begin if
actualscreen2 then putscreen else getScreen end procedure InvertScreen beg
in bc$4000 hl$4000 inline($cd/invlin) end ndBackgroundArray) var iinteger
begin for iY1RefGlb to Y2RefGlb do SCRFILLCHAR(Backgroundi and 7,
X2RefGlb-X1RefGlb+1,x1refglb,i) end procedure SetBackground(bytbyte) va
r bkBackgroundArray begin fillchar(bk,8,byt) SetBackground8(bk)
end procedure DrawStraight(x1,x2,yinteger) trace une ligne horizontale depu
is x1,y to x2,y begin GRAM
OVEABSOLUTE(X1,Y) GRALINEABSOLUTE(X2,Y) NAFBGCHDIE***E9**"K9**!!OE9!!v+
K9!!v+"""""*****8!*+))))))"*MP*Z!s*Y!s""*!R!!!P*R!"*!E#!"9*!OE9!O"*"*""!!!P"***!
R!"*!E!"*!OE!O"*"*""*!R!!!*R"*!C**EC!"*""""!2!2*m&EH*k&EdC*"*"C*!N"*!N!"*#V**B"*
#V**B"*#V**B"*#V**B"**go*go*go!EH*#V*#VEE*!ED*!EPD*"VD*"*#V*#VED*#V*#V*#VR*#V*#V
R**#VR*s#r**s#r*!*#V*#V£oE!"**!E*!"*"*""*!!!*!R"*!E!"*!E!"*"*""""""***9****C**4L
9"*!*OE!*+))))))"*"z*#V"*#V"*#V"*#V"*#V*#VR!N!!,!,!*#V*#VR!,!,!EE*!EE*"$E*"*#V*#
VEE*#V*#V*#VR*#V*#VR**#VR*s#r**s#r*#V**B"*#V**B"*#V*#VEG*!EF*!EF*"F*"*#V*#VEF*#V
*#V*#VR*#V*#VR**#VR*s#r**s#r*!EG*!EF*"F*"*#V*#VEQG*#V*#V**#V!N!,!,!*#V!,!,!*l&E!
2l!"x!"t!"v!"r!!v+!!,!,!,"*!!,!,!,"*!!+!2j!2i!%!)!!!)!!%!)#VMInitGraphicP!!)#VME
RROR.MSG missingP!"Merror.msgo !"!E!!fzF"!"!P *!#VR*#V*#VR**#VR*s#r**s#r*#V**B"*
#V**B"*!*!oEG!2*&EH*#V**B"*#V**B"*!*!oEH!2*&2*&!!*n&EVH!,!,T-H!,"u!,"s*m&EH*u*!N
*u*!N!£oEH*s**s*£oEH*u*sT-H*u*sT-!f!lE#!%*)!£!!%*)#V!P*#!!fz"!"!P *!E!*)!£!!*)#V
!P*#Q!"!( !"i !%!)!!%!)#VM ** UNKNOWN **P!!fzO"!%*)!%!)#Vs#r*#!!fz"!*)!%!)#Vs#r*
#Z!!v+!!fz"*!!!!m6*#!"!!fzA"*!!*n&E.I!l,!f,-2rOI!l,!f,-2r*r&"V"X"Z"*!EI**Z#%*X*V
T%J*"L*Z"J!"D!"B**XEI!"D*Z*VEI!"B*X*R"H*V*ZR"F*H!EJ!"J!"*L*X*J*V£ooEJ*f&!!g£o2f!
*f&n&EuJ*L*JT-*!EJ*J*B"J**H"J*L*D"L**FR"J"8"""!!!!8BEJ****8UI!O!L9!*+))))))"*!s#
r*!s*3*#!"!!!p!!EA!! A!!v+!z !2i! /!"z!7!4G3!4!2n!2oW3o3w3!2e!5!"p,!"x!"v!"t!"r!
2l!2k!!fztB"*!!!O!L9*3*#DB!!!fzB"*!!!!m6*#B!7*zC"""!"**EC!" JAFBGCHDIE!!!$!**n&
EcK!*,!$,!,!,UIK!*,!$,!,!,J"" ""!!! !BEK*** *J2""""*&oEL****J****J****J****JL**f
zL"****J*#L2NV!g£o2!!fzyV"*&!*RV!g£o!EpV*"#V**&"**&!R"* #V!*!R*&" * *&!R"*m&E+V*
*EU*"**EU*"* *EV*" **E+V*"* *fzpV"**fzgV"**T-*#JV*#6V*#!U*#T*"#V*&!*"s#rP!"""*n&
2!2n*"!5!£"!"**EY!*""""!!!!BEDM*****&K2!!!!*n&EM!,!,!,!,*&K N*n&2!2n!,!,!,!,*&L*
&2nNyc87u""""*&ErN****JN****K2"""*!wn!!,!,!!,!EP!N!+)n&"*!EY*"*!"**EY!*n&e.!!*!*
!*!n&!£oEW!*!n&e.!!*!"*RW*****QYRX*****RYRXRjX***!N!R**!N*!R*!LYRX*!***!R*!R**"Y
RX****!R*TYRD#V!,!"!N!+)#V!,!"£!!fzP"!N*+)#V!,!"!N!*R!+)#V!,!"**R**£**R***N****£
*****N****£R!****R!*N**R**£R!**R**R!*N*"*"£*#mOP**T-!sY**!N**!R*BS**!N"YRY****!V
*!!N*!*"*"Y!!**rT*!"V*&2n*5P!4"!!*n&EZ!,!,*!4VDZ!,!,*!4V""**fzZ"* **N.*#Z!*z+)))
)))"*"*"*Yn&E*Zn&EZ*! R"Z*! "*z****8*!y!*n&2j!2n*j&EWQ!,!y,!s,!NQ!,!y,!s,!H!N*j&
2n"d"f"h*h*dR*f*h*d!*fK*h*f*dR*h*f*d!K"V"X"Z*Z*VR*X*V*Z*V!*X*VR!RK*Z*VR*X*VR*Z*V
!*X*V!K"H"J"L*L*HR*J*L*J*HR!RK*L*J*HR!*L*H*J!K*L*Hz*g&E*! "*"*"*! !R"p*"*! R"*!
R!"*"*Z*g&s*z****8*z**HZ!*&R%* !** R*£!R!V*!!*V* ***!EM!*&R%* ***!EM*Y!s*n&2"!2n
*m&2#!2m*!N" *!N!"!*z+))))))"$*h&*$£!*J!*L*J*HK*L*J*H*L*HR*JK"""**R****!**R!RK**
R**R**!**!K**R!R***!*K","."0*0*,R*.*,R*0*.K*0*,*.*,R*0*.K*0*.*0*.*,K22" ""*!N"*!
N!"!!fzV"!*&)!*R!V+n&*!g£o! NAFBGCHDIE£o*$#V*$#VR! £o*$£!** R!R£oEtZ*$Y!s* ***!
EM*"&2n*#&2m6X ""*!N"!2!*fzI2***&-E*&!*&n&go2*&#*&2*&"*&!E!L !**&" !!!&"!!l&" !!
fz"**2*&E*&/o/g2!!E'!!*!g£o*d!v!!!EO'"""""""*!*!£oE'***1&***&(*!*!£oE (***1&!!!*
!N*%*$(*!*!£oEc(!*!N*%!!*$***&(!*!N*%!*!N*%*$""""!**N!!!*!N*%*$"""!*!*&" *#*&!E5
! 22!"*&2!%*&!g£o2*&!*&!oE!2!3 !!!!V!Rfz"!*#!!!V"!!!g£o!E1!!!g£o!2 *&%d****J*"*"
Ga bb !"*!Ea*!R**"**R"P*!R*!*" Copyright (C) 1985 BORLAND IncBamstrad 6128C464/6
64P Y ELMKqp7# ok!!"#($ +*!5!*!!(2!5(2!!!OO!*!!45(! +/0y0(P*!R**"**"P*!R " !"
*!Eb*!R**R"**R"P*!R*!*R"P*!R**"**R"P*!R " !"*!Eb*!R**R"**"P*!R*!*R"P*!R**R"**R"P
*!R " !"*!Ec*!R* d!k5!5o&(( *"x2y(28!"9!!og2""22 9/4*9 Co&£ (!eA8Q0G x!w# ( (*(
.(w. !h6# ((*((w# w# 8 ! .,*a ''72*B "og"22! *"**"P*!R*!*"P*!R**R"**"P*!R "!"!"!
"!"*!"**R"*!"**"*"*"*!R**"**R"P*!R**R"**R"P*!R**R"**"P*!R**"**"P*!Ecg3!!!!!m6!7!
EZc!M0DEMONSTRA""*B"Ru*"#V##V#N#FO/o&9O/o&9!9( (G!9 w#Ew8OCA#0w#xo&9xG7s#r#s#r#q
#px!D9N#8y#(Ox!D9N##Vh&D9! 9! 9#Vh&D9!"x/o&9p#HR' RB0' RqRR!+R!+r!+r!+r!#r!+TKB!
z TION ECRAN SAUVER ET LIRE SUR LE DISQUE5g3MMDEMO.PIC.,!MDEMO.PIC/EWe, EZc!M0DE
MONSTRA then DrawCircleDirect(trunc(XR),trunc(YR),trunc(xradius),True) else
DrawCircleDirect(WindowX(XR),WindowY(YR),trunc(xradius*100.0),False) Direc
tModeGlbDirectModeLoc end procedure DrawCross(x1,y1,scaleinteger) begin
DrawLineClipped(x1-scale,y1,x1+scale+2,y1) DrawLineClipped(x1,y1-scal
e,x1,y1+scale+1) end procedure DrawCrossDiag(x,y,sc NAFBGCHDIES))0 DMgoj
B07 Hz5a)az 0Ggo/g/o#o&KxAJSJDM!b"!6J"DM'd R0 0w#$O! #08) 8 ! 80T)) T)y	N8w
!DB9+O#) W8(8J9To9yk-&9w	o&!T9K#C#y8O(# !#!9ROogM wD05.(z x0w#xG%%ZJDM% 65+w6
61#6r. p7#E(!90To&p( #+(- #6O#60 #WyOh(yDOyZy0 GD! !ws( hx-Sx9+zzgZJDM0,7o #y
O!9i&8 (8wPTOsOS!988xW8/oz88x8&8#(*BPOz(Ox8(*!9O!T9-fl&!T96#w!T9K#C#( x # ) '
' x T(0Dz, ( 0%, 7 (8x - r8x ,-xGrM9r.#n0 - nx ,-(-G,-rM #w#/w#w#!9! E9
!!9(+F!"9!(#2*" "2( *w*6!$! (( #CONTRMKBDLSTCAUXUSR2i*0*(q##pZ*( x2*6#"v( * 26"
!"""2""v2"!"(!8O6*"9.8 u+-(08x , 7888ox!oGOWggzWyOxGgzWyOxGxyzxxx(r(r7 g£zWyOxG
x' /o - 0- ,l8 4 x( -8 -8, l8*! ! 4 --- w(6(2(-()(6 (8 0 (* y(#+ (( 66 #6
#"* yo p .##(.6w4. *##55 *R8*#" £ *#w+#+*('k!0(k!8!-#827kwO$6s #r$£6 k ((qk( (
k *O ##.q4((* ,,,-xGg+2n*8t z,-' x' . , ! 4,- o&0%, gr.8cI$IL*x 0G,,-(
- !I0 o8 ' m.1pF,t6!wS.z%FXcur1x(8 !J0.O!s8 n s .n 0 - OT0j oD,j4q*##62*((
6-#RM8(G A#*'C! !TRUEFALSE!9N#Y#(G# "(k((!0(!!2Sz0*6##ww#w$w#w ##N#F*B2w#w#s
#r"*-w#ww##""2ZR0*4#42ZR *4 #4( !I.8cI$IL! I nn nfVNF!DLTI!!53!r1!! x #-
ox(- (x8(z,zi!' r)(DMbo88x(08W!Oz k68x(-(ay( z(.( E+(Dg-/ 0p## +0w#,- 60# NAFB
GCHDIE22*f(/G(##++ O x yC! Q*G(##..f*##w +4 #4x 2G(""*n*0SZR8*N#F#s#r,0)jS*##w+
N#FBr+s2!T)j)00 R!#*#V#N#F##V20*6#-Nw#Fwq#p#6#w#w#w""!DM!"*B!(2"!"2***!"P#RG#**!
"**R"1#R#!!!s**!"**"P""""!1!!o&s!1!!ol&s**R!"**R!2**!"1!1!!&s!1!!l&s"!!!s!!!Zs!!
!s!!*&s!!*l&s!!!sK*2CS""j"l"n"p"r*p"*l"*j"*n!N*rgo"ZKZW*KK"*w#wx(9*O *-4 #4!*4 #
4*-N#Fq#pV+Bq#pSZR&*s#r$s#rL*L!(!$22L!(*$(!3 1!(7" 2"S"Ns#FrB(Z#(*"K! !*#"!x * *
) 2""!"*2Y*Y&2*Y&2!$"M"O!*MR!N"*O"!$"A"C!*AR!N"*C"!$"5"7!*5!*7!N!!$"%"'!*'!N!!*%
!$""*"!*R"!$*!g£o!go"*"""*!N*%!R"!v*!Vo!v!!!E&!*!g£o!*d"""*!N*%!R"!v*!Vo !v!!nf(
HR0nf" VMDnfutqp*s#r*s#r"*uKB!0' #fo"*R0RnfR0KqputsrNF(VNFV*SutKqpR*R(wwnfut"6#
K*K*!""*NFy(*"*B0Cnf*R*"*RSs#r#V""6#O"w2x2*"!F"" &y*"*2"*"!E'!!*!g£o*d!v!!!EO'"
""""""*!*!£oE'***1&***&(*!*!£oE (***1&!!!*!N*%*$(*!*!£oEc(!*!N*%!!*$***&(!*!N*%!
*!N*%*$""""!**N!!!*!N*%*$"""!*!!F"""!* Nr!6go(R*s#r£2x(sx(TDMx(R0U(O/o&9q# (!F0#
( ( #( ((#( i&T-a%o*!6o&2 2z2*KB" z C User break+ I/O Run-time error , PC*
Not enough memory Program aborted '1!d!BN*%!!*$!*fzX)"!*!*n&/o/gs*#')!!!*!N*%*
$""""!*!N*%!**$""""£!*!*!N*%*£$2"""*&E**"!*!Rfz*"*!N*%!R"!v*!Vo !v!!!E*!*!*!g£on
&s*!"*#1**!**&/o/g!g£oN"z""!"4x6.fons1yyK*ywRRt*"*"2 *#"*#"2 /w#x ""!*!g£o!*!V!P
*!g£o"*2""""""**R!"**R!2!!!s*R"**!"***R!"1#R#**!" PAFBGCHDIE**z!"*2!x$*&"p*p!x$
*&"f*f"Z"!"!Y"*Z!"*!" 0"P*P!!OoE+!!v+,!*P+))))))"H*H"J*Hn&E,!Mwinf.*P!0e.p!*H!s!
!fz9,"*y+*# ,!$!"!1"!"!x"!"!v" !v!v!E,,!$!"!y"!"!0"!"!w" !$,!Q!!vM savscr.$$$p!v
o !!!N! procedure DrawExponent(x1,y1,MaxExponentinteger) var iinteger
StrNumberwrkstring begin y1y1-3 x1x1+1 DrawAs
cii(x1,y1,1,49) DrawAscii(x1,y1,1,48) str(MaxExponent3,StrNumber)
y1y1-3 x1x1-7 for i1 to 3 do DrawAscii(x1,y1,1,ord(StrNumbe
ri)) end begin DrawAxis LineStyleLocLinestyleGlb SetLineSt
yle(0) DirectModeLocDirectModeGlb DirectModeGlbtrue with window(*
**********************************************************) (*
*) (* TURBO GRAPHIX vers
ion 1.05A *) (*
*) (* Trace d''axes module *) (*
Module version 1.05A *) (*
*) (* Copyright (C) 1985 by
*) (* WindowNdxGlb do begin X1RefLocx1
X2RefLocx2 Y1RefLocy1 Y2RefLocy2 ReDefineWindow(WindowNd
xGlb,x1+XLeft,y1+YTop,x2-XRight,y2-YBottom) SelectWindow(WindowNdxGlb)
end if (XDens0) xor (YDens0) then begin HeaderLocHeaderGlb
HeaderGlbFalse DrawBorder HeaderGlbHeaderLoc end
XDensabs(XDens) YDensabs(YDens) if XDens9 then XDens0 if YDens9
then YDens0 x BORLAND International *) (*
*) (**********************
*************************************) procedure DrawAxis(XDens,YDens,XLeft,Y
Top,XRight,YBottom,XAxis,YAxisinteger Arrowsboolean) var
LineStyleLoc,xk0,yk0,xk1,yk1,xk2,yk2,NDiffinteger x2,y2,MaxExponentX,MaxE
xponentY,i,ys,xs,Delta,NPointsinteger Difference,Number,s,Fractreal
X1RefLoc,X2RefLoc,Y1RefLoc,Y2RefLoc,X1Rk0(X1RefGlb+4) shl 3 yk0Y2RefGlb-1
4 yk1Y1RefGlb+6 xk1xk0 yk2yk0 xk2(X2RefGlb-2) shl 3+7 i
f (XAxis0) or (YAxis0) then begin ClippingLocClippingGlb Cli
ppingGlbtrue with windowWindowNdxGlb do begin X1RefLoc2x
1 X2RefLoc2x2 Y1RefLoc2y1 Y2RefLoc2y2 end
ReDefineWindow(WindowNdxGlb,X1RefLoc2+4,Y1RefLoc2+6,X2RefLoc2-2,Y2RefLoc2-14
) SelectWindow(WindowNefLoc2,X2RefLoc2,Y1RefLoc2,Y2RefLoc2integer
ClippingLoc,DirectModeLoc,HeaderLocboolean function StringNumber(X1real
MaxExponentinteger)wrkstring var ywrkstring be
gin str(X1*exp(-MaxExponent*ln(10.0))52,y) StringNumbery end
function GetExponent(X1real)integer begin GetExponent0 i
f X10.0 then if abs(X1)1.0 then GetExponenttrunc(ln(abs(X1))/ln(10.0))
else GetExponent-trudxGlb) DirectModeGlbfalse if (XAxis0)
then begin SetLineStyle(XAxis) DrawLine(X1WldGlb,Y1Wl
dGlb+Y2WldGlb,X2WldGlb,Y1WldGlb+Y2WldGlb) SetLineStyle(0) end
if (YAxis0) then begin SetLinestyle(YAxis) DrawL
ine(0,Y1WldGlb,0,Y2WldGlb) SetLineStyle(0) end ClippingG
lbClippingLoc DirectModeGlbtrue ReDefineWindow(WindowNdxGlb,X1RefL
oc2,Y1RefLoc2,X2RefLoc2,Y2RefLoc2) nc(abs(ln(abs(X1)))/ln(10.0)+1.0) end
procedure DrawNum(x1,y1,MaxExponentinteger Numberreal
) var iinteger StrNumberwrkstring begin StrNumberStr
ingNumber(Number,MaxExponent) y1y1-3 for i1 to 5 do DrawAscii(x1,y
1,1,ord(StrNumberi)) end function Balanceinteger begin Bal
ance0 ss+Fract if s0 then begin ss-1.0 B
alance1 end end PAFBGCHDIE SelectWindow(WindowNdxGlb) e
nd if YDens2 then begin DrawLine(xk0,yk0,xk1,yk1) if Ar
rows then begin DrawLine(xk0,yk1,xk0-4,yk1+4) DrawLine
(xk0,yk1,xk0+4,yk1+4) dp(xk0,yk1-1) end end if XDens
2 then begin DrawLine(xk0,yk0,xk2+1,yk2) if Arrows then
begin DrawLine(xk2,yk2,xk2-4,yk2-4) DrawLine(xk2,yk2,xk2-4
,yk2+4) end end if (abs(yk0-yk1)35) dowNdxGlb) DirectMo
deGlbDirectModeLoc SetLineStyle(LineStyleLoc) AxisGlb true X1
Glb XLeft X2Glb XRight Y1Glb YTop Y2Glb YBottom end
procedure ResetAxis begin AxisGlb true end end end
end ReDefineWindow(WindowNdxGlb,X1RefLoc,Y1RefLoc,X2RefLoc,Y2RefLoc)
SelectWindow(Winand (abs(xk2-xk1)150) then begin DrawLine(xk0,y
k0,xk0-4,yk0) DrawLine(xk0,yk0,xk0,yk0+4) DeltaY2RefGlb-Y1RefGlb-2
0 NPointsDelta div 7 NDiffDelta-(NPoints shl 3)+NPoints if
YDens4 then begin if abs(Y2WldGlb)abs(Y1WldGlb) then MaxExponen
tYGetExponent(Y2WldGlb) else MaxExponentYGetExponent(Y1WldGlb)
DrawNum(X1RefGlb shl 3,yk0+1,MaxExponentY,Y1WldGlb) if MaxExponentY0 t
hen DrawExponent(X1RefGlb sh!fz,-"$!v!! *$#-""*"%"*2!$""!*R!N"*"!$""!*R!N"*"!$*&
!2*&**fz,."!*!g£on&**R!**(*#-2!!*&N!-"""**#%**T%"!E.*!v+P!k!!kp!o!u.!!fz."a*a!%!
!!!u.*a#.!l 3+1,yk1+2,MaxExponentY) end FractNDiff/NPoints
s-Fract ysyk0 Difference(Y2WldGlb-Y1WldGlb)/NPoints for i1
to NPoints do begin ysys-7-Balance if (YDens2) and (y
sY1RefGlb+13) then begin NumberY1WldGlb+i*Difference
DrawLine(xk0,ys,xk0-4,ys) if YDens4 then if i mod (10-YDens)0 th
en DrawNum(X1RefGlb shl 3,ys+1,MaxExponentY,Number) end
end !u."*2P!!!p!p!u.!!fz/"!!! *!%*#N/! !v!o !!fz0"*!%!v!!! *!!%!v*o !v!!
*#/!v!o !!fzL0"*!%!v!!!u.*#0!v!o !!fz0"!v!!!u.*!%*#e0*&!E0M000!"!"o""*!!OoE21,(
FATAL ERR if XDens4 then begin if abs(X2WldGlb)abs(X1WldG
lb) then MaxExponentXGetExponent(X2WldGlb) else MaxExponentXGetExponent
(X1WldGlb) DrawNum(xk0-14,yk0+10,MaxExponentX,X1WldGlb) if Max
ExponentX0 then DrawExponent(xk2-13,yk0+10,MaxExponentX) end Delt
aabs(X2RefGlb-X1RefGlb) shl 3-41 NPointsDelta div 30 NDiffDelta-(N
Points shl 5)+(NPoints shl 1) FractNDiff/NPoints s-Fract xs
xk0-1 OR 1 illegal procedure number *!& *!!OoE1,"FATAL ERROR 2 illegal erro
r code *!& *2e*i&E1,*j&*i&oEn2+",+"!!+Turbo Graphix error #*!& in procedure #*!
& *j&En2!("!*)#V! in !%*)#V!!)" *j&*i&£oE2 3*i&E2 3*j&E3. Hit enter !!D *&! *&
!oE2*&!E3 Difference(X2WldGlb-X1WldGlb)/NPoints for i1 to NPoints do
begin xsxs+30+Balance if (XDens2) and (xsX2RefGlb shl 3+
7-24) then begin NumberX1WldGlb+i*Difference Dra
wLine(xs,yk0,xs,yk0+4) if XDens4 then if i mod (10-XDens)0 then
DrawNum(xs-14,yk0+10,MaxExponentX,Number) end end
end ReDefineWindow(WindowNdxGlb,X1RefLoc,Y1RefLoc,X2RefLoc,Y2RefLoc)
SelectWindow(Win NAFBGCHDIE, **+!2i!2i*e&2!2e*&!2n!2n!2m!2m!2j!2j!2h!2h!2g!2
g"R*R!!OE3!*R+))))))"J*JY!s*JZ!s*JMP4!!v+!%!%*z"8*8*m&2/*/&*n&o2&*&&!!,!Ez4!,!!,
! ! ,!!,!E4!,!!!,!!!*#V!N!,!,!*#V!,!,!*l&E!2l!"x!"t!"v!"r!!v+!!,!,!,"*!!,!,!,"*!
!+!2j!2i!%!)!!!)!!%!)#VMInitGraphicP!!)#VMERROR.MSG missingP!"Merror.msgo !"!E!!
fzF"!"!P *!, 5"*!!OoEI5*!g£o!"*"*!En5!5*n&"!!fz5"!!*R**V!g£o!s*#y5!2f*"*"*!E5*"p
*p"*P!i"*!!OER6!*+))))))!iP6!!v+*&2*&!!D!J!P"V!P,!D,!J,!,£o*V!!O£oE7!*V+))))"6E#
!%*)!£!!%*)#V!P*#!!fz"!"!P *!E!*)!£!!*)#V!P*#Q!"!( !"i !%!)!!%!)#VM ** UNKNOWN *
*P!!fzO"!%*)!%!)#Vs#r*#!!fz"!*)!%!)#Vs#r*#Z!!v+!!fz"*!!!!m6*#!"!!fzA"*!!!P,*6*6!
,*6!D,*6!J,*V*E7*V"7*V!!OE7!!v+7!!v+"4*4!*OE 8!*4+))))",*,,!*,,!*,,!*,,!8!!v+"""
$"&"("***!!O*(*$£o*&*"£o*(!£o*$!O£o*&!£o*"!£oE9!**+))))))"*(*s#r**&s#r**$s#r**"s
#rx.p 8p 00x88 xppp 8***E9**"K9**!!OE9!!v+K9!!v+"""""*****8!*+))))))"*MP*Z!s*Y!s
""*!R!!!P*R!"*!E#!"9*!OE9!O"*"*""!!!P"***!R!"*!E!"*!OE!O"*"*""*!R!!!*R"*!C!8 000
x 8p8xpx88xxE!"**!E*!"*"*""*!!!*!R"*!E!"*!E!"*"*""""""***9****C**4L9"*!*OE!*+))
))))"*"z*#V"*#V"*#V"*#V"*#V*#VR!N!!,!,!*#V*#VR!,!,! N A F B G C H D I E x88px8
x8 x88pxp8x pz.x88 xpp8p 00p0x8px p 8C!800 /x 8x88pxp8pacaqma8p8xpxp8xx 8x8p
x8x88p8p!p 8 008x8p x8x8p8x8px8 x8p8xpxx 88pxp8xx8x x8x8x88pp8x p!8Cp!8008p 0
0.p 8x8pp8p 8xx8p8xpx8 !p 8000 !N!A!F!B!G!C!H!D!I!Ep88x8p xx8p x.pz.8p8pmmc8xx
8p8xpx8 x00mmox8x8px8x8 x8x88p0 p 8C!8x88 xpp8p 00.p x xp8x 8x00 !p 88p8xp x0
0x8p xx88 xpp pz.008p8p8p 8p.z.x88 xppx8p xx8pxxpp!p 8 008xx.p 8p 00x88 xppp!8C
p!8 "N"A"F"B"G"C"H"D"I"Emmop!8Cp!800 /x 8x8p8pxx8px8p 00x88 xpp.z. p8p008p pz.
x8p xx8p x00 0000!p 8 8p8xpx88x x88x88p xp8p.p 8p 0000p 8C!8 8x8px8x8 x8x8p8xp
xp8x8pxp8xx 8x8px8x8x8p00x8p xx8p x pz.00aaqsqa.pz.x88 xpp8p 00x #N#A#F#B#G#C#
H#D#I#E8p8x8pp8p/x 00p!8Cp!8 EE*!EE*"$E*"*#V*#VEE*#V*#V*#VR*#V*#VR**#VR*s#r**s
#r*#V**B"*#V**B"*#V*#VEG*!EF*!EF*"F*"*#V*#VEF*#V*#V*#VR*#V*#VR**#VR*s#r**s#r*!EG
*!EF*"F*"*#V*#VEQG*#V*#V*8p8xpxp8xx x8x8x8x8p 8#VR*#V*#VR**#VR*s#r**s#r*#V**B"*
#V**B"*!*!oEG!2*&EH*#V**B"*#V**B"*!*!oEH!2*&2*&!!*n&EVH!,!,T-H!,"u!,"s*m&EH*u*!N
*u*!N!£oEH*s**s*£oEH*u*sT-H*u*sT-!f!lx8p8xpx8 x0000*n&E.I!l,!f,-2rOI!l,!f,-2r*r
&"V"X"Z"*!EI**Z#%*X*VT%J*"L*Z"J!"D!"B**XEI!"D*Z*VEI!"B*X*R"H*V*ZR"F*H!EJ!"J!"*L*
X*J*V£ooEJ*f&!!g£o2f!*f&n&EuJ*L*JT-*!EJ*J*B"J**H"J*L*D"L**FR"J"8"""!!!!8BEJ****8
UI!O!L9!*+))))))"*!s#r*!s*3*#!"!!!p!!EA!! A!!v+!z !2i! /!"z!7!4G3!4!2n!2oW3o3w3!
2e!5!"p,!"x!"v!"t!"r!2l!2k!!fztB"*!!!O!L9*3*#DB!!!fzB"*!!!!m6*#B!7*zC"""!"**EC!"
!!!$!**n&EcK!*,!$,!,!,UIK!*,!$,!,!,J"" ""!!! !BEK*** *J2""""*&oEL****J****J****J
****JL**fzL"****J*#L2C**EC!"*""""!2!2*m&EH*k&EdC*"*"C*!N"*!N!"*#V**B"*#V**B"*#V*
*B"*#V**B"**go*go*go!EH*#V*#VEE*!ED*!EPD*"VD*"*#V*#VED*#V*#V*#VR*#V*#VR**#VR*s#r
**s#r*!*#V*#V£o $N$A$F$B$G$C$H$D$I$E""""!!!!BEDM*****&K2!!!!*n&EM!,!,!,!,*&K N*
n&2!2n!,!,!,!,*&L*&2nNyc87u""""*&ErN****JN****K2"""*!wn!!,!,!!,!EP!N!+)n&"*!EY*"
*!"**EY!*n&e.!!*!*!*!n&!£oEW!*!n&e.!!*!"*RW*****QYRX*****RYRXRjX***!N!R**!N*!R*!
LYRX*!***!R*!R**"YRX****!R*TYRD#V!,!"!N!+)#V!,!"£!!fzP"!N*+)#V!,!"!N!*R!+)#V!,!"
**R**£**R***N****£*****N****£R!****R!*N**R**£R!**R**R!*N*"*"£*#mOP**T-!sY**!N**!
R*BS**!N"YRY****!V*!!N*!*"*"Y!!**rT*!"V*&2n*5P!4"!!*n&EZ!,!,*!4VDZ!,!,*!4V""**fz
Z"* **N.*#Z!*z+))))))"*"*"*Yn&E*Zn&EZ*! R"Z*! "*z****8*!y!*n&2j!2n*j&EWQ!,!y,!s,
!NQ!,!y,!s,!H!N*j&2n"d"f"h*h*dR*f*h*d!*fK*h*f*dR*h*f*d!K"V"X"Z*Z*VR*X*V*Z*V!*X*V
R!RK*Z*VR*X*VR*Z*V!*X*V!K"H"J"L*L*HR*J*L*J*HR!RK*L*J*HR!*L*H*J!K*L*Hz*g&E*! "*"*
"*! !R"p*"*! R"*! R!"*"*Z*g&s*z****8*z**HZ!*&R%* !** R*£!R!V*!!*V* ***!EM!*&R%*
***!EM*Y!s*n&2"!2n*m&2#!2m*!N" *!N!"!*z+))))))"$*h&*$£!*J!*L*J*HK*L*J*H*L*HR*JK"
""**R****!**R!RK**R**R**!**!K**R!R***!*K","."0*0*,R*.*,R*0*.K*0*,*.*,R*0*.K*0*.*
0*.*,K22" ""*!N"*!N!"!!fzV"!*&)!*R!V+n&*!g£o!£o*$#V*$#VR! £o*$£!** R!R£oEtZ*$Y!s
* ***!EM*"&2n*#&2m6X ""*!N"!2!*fzI2***&-E*&!*&n&go2*&#*&2*&"*&!E!L !**&" !!!&"!!
l&" !!fz"**2*&E*&/o/g2!NV!g£o2!!fzyV"*&!*RV!g£o!EpV*"#V**&"**&!R"* #V!*!R*&" * *
&!R"*m&E+V**EU*"**EU*"* *EV*" **E+V*"* *fzpV"**fzgV"**T-*#JV*#6V*#!U*#T*"#V*&!*"
s#rP!"""*n&2!2n*"!5!£"!"**EY!* %N%A%F%B%G%C%H%D%I%E*&" *#*&!E5! 22!"*&2!%*&!g£o
2*&!*&!oE!2!3 !!!!V!Rfz"!*#!!!V"!!!g£o!E1!!!g£o!2 *&%Hc"*!E!"**R"*"!"**"*"**R!"*
******&U"*"*&oE%a**E"a*&/oRs#r'i*T*T#V! s#r*T#V*T#VR!"N*!Ei*T**T#V*T#VRs#r**Ts#r
*!Ei*T**T#V*T#VRs#r*T*s#r*T#V!*T#V!o*T#V!Oo*T#V!oEFj!!v+-k*T#V*T#Vfz-k"R*P*N!*&o
£o!Io£oEj!!!! !2*N!*P*T#V*R)*P*N"P*P!E$k!!!/g***(**"ca**Eca*****!!P'**"%a*z*****
***8*z**!**!OoEa!!v+b!*fzb"*!Eb*"!"b*"!"**R!***&)*****!*&U"**R!****z******8*z*#a
**!**!oEb!!v+Gc!**pf!!d*P!R"P!2*R#aj! "!"*!!OoEpk! !v+,l!*+))))))"*#V*#VR!*#V*#V
R!"*Yn&El*! *#V*#VR!"*!!g£o"*"*"*!*OoEil!!v+m!*+))))))n&El*y+*Mwinf.*!0e.If!*+))
))))"*"!*+))))))zc"*pP*#c**pE!EGc**pEP22"*!EOd!"*!Ec!"!*z+))))))"*Yn&Ec*Zn&Ec*!
R"c*! "*&Ecacb!*z+))))))"*Yn&EOd*Zn&Ed*! "Od*! R"2"*!*&M2"*!*&M""22*!*!oEd!!v+Hf
!*z+))))))"y*yYn&E-e*!s"""*!!OoELm!!v+o!*+))))))"*a*n&oEm!!v+o!a"*#V**s#r**#V*s#
r**#V*s#r**#V*s#r*Yn&*Zn&£oEFn*#V! R"Tn*#V"*#V!*#V!O£o*#V!£o*#V!O£o*#V!£o*#V!£o*
#V!£o*#V!*yZn&E!e*! R"-e*! "**R"u**R"s**u!OEpe!O*R"u**s!Ee!*R"s*u!"u!*sfze"w*u**
*w***w*&*&P'*w#e!*z+))))))"y*yYn&EHf*yZn&E9f*! "Hf*! R"P! "q!*q+))))))!! p!o!Ef!
!v+h!!!d!"!"*Yn&E(g*Zn&E g**#V! £oE8o**#V*Mwinf.*!0e. h*!ERo*y+**zEio*!*+))))))!
aP!!!M.ptrp!!Eo!!v+)p!!fz p"V!!*V+)))))) *V#o!z P!!!M.ptrp!!Ep!!fzp"!!*+)))))) *
#rp!z p!!v+*"*"!*z+))))))"*Yn&E+q*Rs#r(g**#V! s#r*#V*#VR!"*#V*#Vfzg"*!**#V*)**"*
!Eg!!!! !!!!!d*!R"*#dg*!Eh!!!! ! P!"""!!p!p!Eih!!v+6k!!!! !!!d!"P!2!*+))))))!!"T
*TYn&E'i*TZn&Ei*T*T#V! &N&A&F&B&G&C&H&D&I&EZn&Eq*! R"+q*! "****#t"0!2!2,*0/o/g
#! + !!!P!P!8!8!!"!,!Eqr!,!E.r!,+ ! + "qr!,+ ! + !/o/g#"*!"""!,*BqP!*!R"!!fzr"!
!!!*n&rT*#r!"!,!*! £oE!,*!,!***!R*J*!E*! *RE!E*!N*!*!,ur*#z*!Et!,!,E!,q"!,q"*!R*
! *!,ur*!Et*! R*! *Xs**R!N!)R"*!"**!NR*!N"**!!,xG!*!R,!!,!ETs!,!!!"*"P"R"T*R!R"R
*T!"T!T!R!!1rT!T!R!!0rT*P!!P*R!R"R*T!R"T!!fzt"F!T!R!!*Fn&rT*F#s2""""""""*"!5*n&2
!2n!*z+))))))"*#V"*#V"*#V"*#V"*z*#V**#V**#V*R*#V*R8*z"!,!,*!!*fzD"*!r"*!**!N!!R£
oE!,*!,!****!J*!E*! *RE!E*!R*! *!,ur*#*z****8*z*&2n*5!2l*"x*"v*"t*"r!2lt""*'*!N*
%*!N!£oE *#**!*£oE **!*!oEu*h&2!2hEZ*&2h*"*"*!Efu!"*!Eu!"*!!N"*!R"*!"*"*"*!R!N!"
*!*!oErw*m&2!2m!*z+))))))"*#V"*#V"*#V"*#V"*z*!*!*!R*!R8*z!2n*!Ev*5!,!,!,!,!,!,J!
5**T-""*"!5*7RB***5RlRVR**5R**5**5**5R*7!LlR***5!RlR***5!TlR***5QlR***5!!NlRS!2*
&EE**P**T-lRl***5BS*5"3"5"7"9"*9*R!E*x"*t"*v"*r"*n&2!2n*9!2 *9"9!"!"!!EDw*5!!,!
!,J!5*&2m!2n*z****8*z*!E0x****J*&E0x***!R*!J***!*!J**!RT-*!Ex***!*J*&Ex***!R*!RJ
***!R*!J**R!#*" !"*l&E.!"!"!" !"*!*R*R***!N**R*R* * *!N£oE.*"***x"'*"** *t"#*"**
R*vR"%*"**R*rR"!*z*'*#*%*!8*z!2l*7!2*7!2*7"7*5"5*3!E!!,!,!,**R!"!"*9!*j&£oE4*R!£
oED***!R*J****!J**R!R"*!"**!NR*"*!Egz!,!,Ey!,q"z!,q"*!N*!*!,ur*!Egz*!N!*!*Xs**!!
,xG!*"!,!,*!!*fz"*!RrR"*!* 'N'A'F'B'G'C'H'D'I'EDrawPolygon too few data pairs
- (NPoints) 2 h!*+)))!+)T),"'**!*+)))!+)T),R"#*'*#*3!E* &E*'**R*'*#K*'**R*'*#J*
!*9fzh")!*)+)))!+)T),"%**!*)+)))!+)T),R"!*%*!*3!E* &E*%**R*%*!K*%**R*%*!!+)))!+)
T)! !!+)))!+)T)!!!+)))!+)T)!!!+)))!+)T)!,4!!!!(J!m6!7!!!!O!!!L9!!-.EZ!!!!!!!!!q!
2!5!!!!!!!!!q!!*I!!!!*I!*G!5!!!!!!!!!q!!*G!!!!!+0!J*&ES* &E,*'*#*%*!KS*'*#*%*!J*
%"'*!"#*)##*l&E*z****8*z*"x*"t*"v*"r!2l*&2n!!v+"/"1"35*3!R"3!*/!R!!a!)T)!!a*3)T)
!!*3!Rfz"%!a*%!)T)!a*%)T),*3*%R*%!*%#!*/fz/"!*!!R!,!!+0!!+0!!+(Entrer le nombre
de points a changer !+!+!P !!K!M*K!*IOE*K!E!!+Old position !*K+)))!+)T),!!y!
,"!*K+)))!+)T),!!y!" !(!+ Nouvelle position x !!+!P !!n&! E!!!x!P!!(!+ No
uvelle position y !!+!P !!!,!E!!,!!,!!*3!Rfz"%!,!,!*%#a!,!,!!5*3!+)))!+)T),!!
5*3!+)))!+)T),!*3!vz"%!a*%!R)T),!5*%+)))!+)T),!,!,!!a*%!R)T),!5*%+)))!+)T),!,!,!
*%+!,n&! E"!!!!P!8!!A!M!8!!M!A,!,!A,!,£o!,!,!,!,£o£oE!54!!!!!!!!!q!!*I!!!!5!!!!!
!!!!q!!*G!!!!*K+)))!+)T)!A,!*K+)))!+)T)!,4!2*&EIZ, !!!*K+)))!+)T)!A,!*K!!,!!*3!R
fzV"%!,!,!*%#'!!,!,!!5!+)))!+)T),!!5!+)))!+)T),!!*3fz"%!a*%)T),!5*%!+)))!+)T),!,
!,!!a*%)T),!5*%!+)))!+)T),!,!,!*%#*1*!+)))!+)T)!,!,*1*!+)))!J**"**"*#x*&2m!2k*"*
"*"*"*&2n! !!!!%*n&E-y!%,!,!,!,! ,vy*n&2!2n!%,T"!,"!,T"!,"!!!!B2!!!!B2****! ,v*&
2n!3!9!!E!K!K,!E,!,!9,!3,v+)T)!,!,*!#!!PfzY"W! " *W#!"I!"G!!+)))!+)T)!!!+)))!+)T
)!!!+)))!+)T)!!!+)))!+)T)! !!+)))!+)T)!!!+)))!+)T)!!!+)))!+)T)!!!+)))!+)T)!!!+))
)!+)T)!!!+)))!+)T)!! t.J f t/K g p-G c r-I e t/K g t0L h s/K g s.J f u/K g s.J
f c-E wW,A V k-B V mf,E vt.J f u.J f s-I e t.J f t-I e r.J f t.J f t-I e s.J
f t.J f U+ S iV+ S i,E X nQ+ O dP+ P dq*F b g-I yO( O cT+ Q gS* R gQ* O dS* P f
Q) N dN* M aP) O cP* L