000000: 45 58 54 45 4E 44 45 44 20 43 50 43 20 44 53 4B EXTENDED CPC DSK
000010: 20 46 69 6C 65 0D 0A 44 69 73 6B 2D 49 6E 66 6F File..Disk-Info
000020: 0D 0A 53 41 4D 64 69 73 6B 31 39 30 31 32 32 00 ..SAMdisk190122.
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 01 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 01 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 01 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 54 47 44 45 4D 4F 30 20 49 4E 43 00 00 00 0A .TGDEMO0 INC....
002810: 02 03 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002820: 00 42 45 5A 49 44 45 4D 4F 43 4F 4D 00 00 00 40 .BEZIDEMOCOM...@
002830: 04 05 06 07 08 09 0A 0B 00 00 00 00 00 00 00 00 ................
002840: E5 54 55 52 42 4F 20 20 20 43 4F 4D 01 00 00 71 .TURBO COM...q
002850: 14 15 16 17 18 19 1A 1B 1C 1D 1E 1F 20 21 22 00 ............ !".
002860: 00 54 47 44 45 4D 4F 31 20 49 4E 43 00 00 00 10 .TGDEMO1 INC....
002870: 23 24 00 00 00 00 00 00 00 00 00 00 00 00 00 00 #$..............
002880: 00 54 47 44 45 4D 4F 34 20 49 4E 43 00 00 00 0D .TGDEMO4 INC....
002890: 25 26 00 00 00 00 00 00 00 00 00 00 00 00 00 00 %&..............
0028A0: 00 54 47 44 45 4D 4F 20 20 43 48 4F 00 00 00 16 .TGDEMO CHO....
0028B0: 27 28 29 00 00 00 00 00 00 00 00 00 00 00 00 00 '().............
0028C0: 00 54 47 44 45 4D 4F 31 30 49 4E 43 00 00 00 1E .TGDEMO10INC....
0028D0: 2A 2B 2C 2D 00 00 00 00 00 00 00 00 00 00 00 00 *+,-............
0028E0: 00 54 47 44 45 4D 4F 20 20 50 41 53 00 00 00 1D .TGDEMO PAS....
0028F0: 2E 2F 30 31 00 00 00 00 00 00 00 00 00 00 00 00 ./01............
002900: 00 54 47 44 45 4D 4F 32 20 49 4E 43 00 00 00 1C .TGDEMO2 INC....
002910: 32 33 34 35 00 00 00 00 00 00 00 00 00 00 00 00 2345............
002920: 00 54 47 44 45 4D 4F 33 20 49 4E 43 00 00 00 1B .TGDEMO3 INC....
002930: 36 37 38 39 00 00 00 00 00 00 00 00 00 00 00 00 6789............
002940: 00 54 47 44 45 4D 4F 35 20 49 4E 43 00 00 00 16 .TGDEMO5 INC....
002950: 3A 3B 3C 00 00 00 00 00 00 00 00 00 00 00 00 00 :;<.............
002960: 00 54 47 44 45 4D 4F 36 20 49 4E 43 00 00 00 0F .TGDEMO6 INC....
002970: 3D 3E 00 00 00 00 00 00 00 00 00 00 00 00 00 00 =>..............
002980: 00 54 47 44 45 4D 4F 20 20 49 4E 46 00 00 00 32 .TGDEMO INF...2
002990: 3F 40 41 42 43 44 45 00 00 00 00 00 00 00 00 00 ?@ABCDE.........
0029A0: 00 53 43 52 45 45 4E 49 4F 50 41 53 00 00 00 18 .SCREENIOPAS....
0029B0: 46 47 48 00 00 00 00 00 00 00 00 00 00 00 00 00 FGH.............
0029C0: 00 44 52 57 43 49 52 20 20 50 41 53 00 00 00 08 .DRWCIR PAS....
0029D0: 49 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 I...............
0029E0: 00 54 47 44 45 4D 4F 31 31 49 4E 43 00 00 00 19 .TGDEMO11INC....
0029F0: 4A 4B 4C 4D 00 00 00 00 00 00 00 00 00 00 00 00 JKLM............
002A00: 75 72 65 20 6D 73 67 28 73 3A 77 72 6B 73 74 72 ure msg(s:wrkstr
002A10: 69 6E 67 29 3B 0D 0A 62 65 67 69 6E 0D 0A 20 20 ing);..begin..
002A20: 43 6C 65 61 72 45 6F 6C 28 32 35 29 3B 0D 0A 20 ClearEol(25);..
002A30: 20 67 6F 74 6F 78 79 28 31 2C 32 35 29 3B 0D 0A gotoxy(1,25);..
002A40: 20 20 77 72 69 74 65 28 73 29 3B 0D 0A 20 20 64 write(s);.. d
002A50: 65 6C 61 79 28 37 35 30 29 3B 0D 0A 65 6E 64 3B elay(750);..end;
002A60: 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 65 20 53 65 ....procedure Se
002A70: 6C 65 63 74 49 42 4D 3B 0D 0A 62 65 67 69 6E 0D lectIBM;..begin.
002A80: 0A 20 20 53 65 6C 65 63 74 57 6F 72 6C 64 28 32 . SelectWorld(2
002A90: 29 3B 0D 0A 20 20 53 65 6C 65 63 74 57 69 6E 64 );.. SelectWind
002AA0: 6F 77 28 31 30 29 3B 0D 0A 65 6E 64 3B 0D 0A 0D ow(10);..end;...
002AB0: 0A 70 72 6F 63 65 64 75 72 65 20 44 65 66 69 6E .procedure Defin
002AC0: 65 57 69 6E 64 6F 77 49 42 4D 28 69 2C 58 31 2C eWindowIBM(i,X1,
002AD0: 59 31 2C 58 32 2C 59 32 3A 69 6E 74 65 67 65 72 Y1,X2,Y2:integer
002AE0: 29 3B 0D 0A 62 65 67 69 6E 0D 0A 20 20 44 65 66 );..begin.. Def
002AF0: 69 6E 65 57 69 6E 64 6F 77 28 69 2C 54 72 75 6E ineWindow(i,Trun
002B00: 63 28 58 31 2F 37 39 2A 58 4D 61 78 47 6C 62 2B c(X1/79*XMaxGlb+
002B10: 30 2E 30 30 31 29 2C 54 72 75 6E 63 28 59 31 2F 0.001),Trunc(Y1/
002B20: 31 39 39 2A 59 4D 61 78 47 6C 62 2B 30 2E 30 30 199*YMaxGlb+0.00
002B30: 31 29 2C 0D 0A 20 20 20 20 20 20 20 20 20 20 20 1),..
002B40: 20 20 20 20 20 20 54 72 75 6E 63 28 58 32 2F 37 Trunc(X2/7
002B50: 39 2A 58 4D 61 78 47 6C 62 2B 30 2E 35 29 2C 54 9*XMaxGlb+0.5),T
002B60: 72 75 6E 63 28 59 32 2F 31 39 39 2A 59 4D 61 78 runc(Y2/199*YMax
002B70: 47 6C 62 2B 30 2E 35 29 29 3B 0D 0A 65 6E 64 3B Glb+0.5));..end;
002B80: 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 65 20 4D 6F ....procedure Mo
002B90: 76 65 48 6F 72 49 42 4D 28 64 65 6C 74 61 3A 69 veHorIBM(delta:i
002BA0: 6E 74 65 67 65 72 3B 66 69 6C 6C 3A 62 6F 6F 6C nteger;fill:bool
002BB0: 65 61 6E 29 3B 0D 0A 76 61 72 20 64 3A 69 6E 74 ean);..var d:int
002BC0: 65 67 65 72 3B 0D 0A 62 65 67 69 6E 0D 0A 20 20 eger;..begin..
002BD0: 64 3A 3D 54 72 75 6E 63 28 61 62 73 28 64 65 6C d:=Trunc(abs(del
002BE0: 74 61 29 2F 37 39 2A 58 4D 61 78 47 6C 62 2B 30 ta)/79*XMaxGlb+0
002BF0: 2E 30 30 31 29 3B 0D 0A 20 20 69 66 20 64 65 6C .001);.. if del
002C00: 00 54 47 44 45 4D 4F 31 32 49 4E 43 00 00 00 14 .TGDEMO12INC....
002C10: 4E 4F 50 00 00 00 00 00 00 00 00 00 00 00 00 00 NOP.............
002C20: 00 54 47 44 45 4D 4F 31 33 49 4E 43 00 00 00 14 .TGDEMO13INC....
002C30: 51 52 53 00 00 00 00 00 00 00 00 00 00 00 00 00 QRS.............
002C40: 00 44 52 57 48 43 48 20 20 50 41 53 00 00 00 09 .DRWHCH PAS....
002C50: 54 55 00 00 00 00 00 00 00 00 00 00 00 00 00 00 TU..............
002C60: 00 44 52 57 4C 49 4E 53 20 50 41 53 00 00 00 05 .DRWLINS PAS....
002C70: 56 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 V...............
002C80: 00 44 52 57 4C 49 4E 20 20 50 41 53 00 00 00 05 .DRWLIN PAS....
002C90: 57 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 W...............
002CA0: 00 44 52 57 50 4E 54 20 20 50 41 53 00 00 00 05 .DRWPNT PAS....
002CB0: 58 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 X...............
002CC0: 00 44 52 57 50 4E 54 53 20 50 41 53 00 00 00 04 .DRWPNTS PAS....
002CD0: 59 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 Y...............
002CE0: 00 44 52 57 53 51 20 20 20 50 41 53 00 00 00 05 .DRWSQ PAS....
002CF0: 5A 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 Z...............
002D00: 00 53 41 4D 50 4C 45 20 20 50 41 53 00 00 00 08 .SAMPLE PAS....
002D10: 5B 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 [...............
002D20: 00 44 52 57 53 54 58 54 20 50 41 53 00 00 00 09 .DRWSTXT PAS....
002D30: 5C 5D 00 00 00 00 00 00 00 00 00 00 00 00 00 00 \]..............
002D40: 00 4D 55 4C 54 57 49 4E 44 50 41 53 00 00 00 12 .MULTWINDPAS....
002D50: 5E 5F 60 00 00 00 00 00 00 00 00 00 00 00 00 00 ^_`.............
002D60: 00 42 45 5A 49 44 45 4D 4F 50 41 53 00 00 00 1B .BEZIDEMOPAS....
002D70: 61 62 63 64 00 00 00 00 00 00 00 00 00 00 00 00 abcd............
002D80: 00 46 4C 4F 57 44 45 4D 4F 50 41 53 00 00 00 24 .FLOWDEMOPAS...$
002D90: 65 66 67 68 69 00 00 00 00 00 00 00 00 00 00 00 efghi...........
002DA0: 00 4D 4F 56 45 50 4F 4C 59 50 41 53 00 00 00 20 .MOVEPOLYPAS...
002DB0: 6A 6B 6C 6D 00 00 00 00 00 00 00 00 00 00 00 00 jklm............
002DC0: 00 4D 4F 56 45 57 49 4E 44 50 41 53 00 00 00 12 .MOVEWINDPAS....
002DD0: 6E 6F 70 00 00 00 00 00 00 00 00 00 00 00 00 00 nop.............
002DE0: 00 4F 4E 45 50 4F 4C 59 20 50 41 53 00 00 00 0B .ONEPOLY PAS....
002DF0: 71 72 00 00 00 00 00 00 00 00 00 00 00 00 00 00 qr..............
002E00: 74 61 3C 30 20 74 68 65 6E 20 64 3A 3D 2D 64 3B ta<0 then d:=-d;
002E10: 0D 0A 20 20 4D 6F 76 65 48 6F 72 28 64 2C 66 69 .. MoveHor(d,fi
002E20: 6C 6C 29 3B 0D 0A 65 6E 64 3B 0D 0A 0D 0A 70 72 ll);..end;....pr
002E30: 6F 63 65 64 75 72 65 20 4D 6F 76 65 56 65 72 49 ocedure MoveVerI
002E40: 42 4D 28 64 65 6C 74 61 3A 69 6E 74 65 67 65 72 BM(delta:integer
002E50: 3B 66 69 6C 6C 3A 62 6F 6F 6C 65 61 6E 29 3B 0D ;fill:boolean);.
002E60: 0A 76 61 72 20 64 3A 69 6E 74 65 67 65 72 3B 0D .var d:integer;.
002E70: 0A 62 65 67 69 6E 0D 0A 20 20 64 3A 3D 54 72 75 .begin.. d:=Tru
002E80: 6E 63 28 61 62 73 28 64 65 6C 74 61 29 2F 31 39 nc(abs(delta)/19
002E90: 39 2A 59 4D 61 78 47 6C 62 2B 30 2E 30 30 31 29 9*YMaxGlb+0.001)
002EA0: 3B 0D 0A 20 20 69 66 20 64 65 6C 74 61 3C 30 20 ;.. if delta<0
002EB0: 74 68 65 6E 20 64 3A 3D 2D 64 3B 0D 0A 20 20 4D then d:=-d;.. M
002EC0: 6F 76 65 56 65 72 28 64 2C 66 69 6C 6C 29 3B 0D oveVer(d,fill);.
002ED0: 0A 65 6E 64 3B 0D 0A 0D 0A 1A 1A 1A 1A 1A 1A 1A .end;...........
002EE0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
002EF0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
002F00: 63 28 58 31 2F 37 39 2A 58 4D 61 78 47 6C 62 2B c(X1/79*XMaxGlb+
002F10: 30 2E 30 30 31 29 2C 54 72 75 6E 63 28 59 31 2F 0.001),Trunc(Y1/
002F20: 31 39 39 2A 59 4D 61 78 47 6C 62 2B 30 2E 30 30 199*YMaxGlb+0.00
002F30: 31 29 2C 0D 0A 20 20 20 20 20 20 20 20 20 20 20 1),..
002F40: 20 20 20 20 20 20 54 72 75 6E 63 28 58 32 2F 37 Trunc(X2/7
002F50: 39 2A 58 4D 61 78 47 6C 62 2B 30 2E 35 29 2C 54 9*XMaxGlb+0.5),T
002F60: 72 75 6E 63 28 59 32 2F 31 39 39 2A 59 4D 61 78 runc(Y2/199*YMax
002F70: 47 6C 62 2B 30 2E 35 29 29 3B 0D 0A 65 6E 64 3B Glb+0.5));..end;
002F80: 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 65 20 4D 6F ....procedure Mo
002F90: 76 65 48 6F 72 49 42 4D 28 64 65 6C 74 61 3A 69 veHorIBM(delta:i
002FA0: 6E 74 65 67 65 72 3B 66 69 6C 6C 3A 62 6F 6F 6C nteger;fill:bool
002FB0: 65 61 6E 29 3B 0D 0A 76 61 72 20 64 3A 69 6E 74 ean);..var d:int
002FC0: 65 67 65 72 3B 0D 0A 62 65 67 69 6E 0D 0A 20 20 eger;..begin..
002FD0: 64 3A 3D 54 72 75 6E 63 28 61 62 73 28 64 65 6C d:=Trunc(abs(del
002FE0: 74 61 29 2F 37 39 2A 58 4D 61 78 47 6C 62 2B 30 ta)/79*XMaxGlb+0
002FF0: 2E 30 30 31 29 3B 0D 0A 20 20 69 66 20 64 65 6C .001);.. if del
003000: 00 4F 4E 45 41 58 49 53 20 50 41 53 00 00 00 08 .ONEAXIS PAS....
003010: 73 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 s...............
003020: 00 50 4F 4C 59 41 58 49 53 50 41 53 00 00 00 0C .POLYAXISPAS....
003030: 74 75 00 00 00 00 00 00 00 00 00 00 00 00 00 00 tu..............
003040: 00 53 49 4D 50 57 49 4E 44 50 41 53 00 00 00 08 .SIMPWINDPAS....
003050: 76 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 v...............
003060: 00 4F 4E 45 48 49 53 54 20 50 41 53 00 00 00 0B .ONEHIST PAS....
003070: 77 78 00 00 00 00 00 00 00 00 00 00 00 00 00 00 wx..............
003080: 00 4F 4E 45 50 49 45 20 20 50 41 53 00 00 00 10 .ONEPIE PAS....
003090: 79 7A 00 00 00 00 00 00 00 00 00 00 00 00 00 00 yz..............
0030A0: 00 57 44 52 57 50 4E 54 53 50 41 53 00 00 00 05 .WDRWPNTSPAS....
0030B0: 7B 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 {...............
0030C0: 00 49 4E 54 45 52 50 20 20 50 41 53 00 00 00 13 .INTERP PAS....
0030D0: 7C 7D 7E 00 00 00 00 00 00 00 00 00 00 00 00 00 |}~.............
0030E0: 00 53 43 52 4E 50 52 4E 54 50 41 53 00 00 00 15 .SCRNPRNTPAS....
0030F0: 7F 80 81 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003100: 00 46 49 4E 44 57 52 4C 44 50 41 53 00 00 00 0F .FINDWRLDPAS....
003110: 82 83 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003120: 00 50 49 45 48 49 53 54 4F 50 41 53 00 00 00 1A .PIEHISTOPAS....
003130: 84 85 86 87 00 00 00 00 00 00 00 00 00 00 00 00 ................
003140: 00 44 52 57 41 54 58 54 20 50 41 53 00 00 00 0B .DRWATXT PAS....
003150: 88 89 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003160: E5 54 47 44 45 4D 4F 20 20 43 4F 4D 00 00 00 00 .TGDEMO COM....
003170: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003180: E5 54 47 44 45 4D 4F 20 20 43 4F 4D 01 00 00 64 .TGDEMO COM...d
003190: 9A 9B 9C 9D 9E 9F A0 A1 A2 A3 A4 A5 A6 00 00 00 .........£......
0031A0: 00 48 41 54 43 48 20 20 20 48 47 48 00 00 00 16 .HATCH HGH....
0031B0: A7 A8 A9 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0031C0: E5 50 4F 4C 59 47 4F 4E 20 24 24 24 00 00 00 08 .POLYGON $$$....
0031D0: AA 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
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: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003210: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003220: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003230: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003240: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003250: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003260: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003270: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003280: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003290: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0032A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0032B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0032C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0032D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0032E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0032F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003300: FA 00 1A 1D 3E FA CD A6 1D C9 11 00 00 0E 03 CD ....>...........
003310: 05 00 C9 11 00 00 0E 01 CD 05 00 C9 21 AB 1E 71 ............!..q
003320: 3A AB 1E E6 7F 5F 16 00 0E 02 CD 05 00 C9 0E 0D :...._..........
003330: CD 1C 08 0E 0A CD 1C 08 C9 21 AD 1E 70 2B 71 CD .........!..p+q.
003340: 2E 08 2A AC 1E EB 0E 09 CD 05 00 C9 11 00 00 0E ..*.............
003350: 0C CD 05 00 C9 11 00 00 0E 0D CD 05 00 C9 21 AF ..............!.
003360: 1E 71 2A AF 1E 26 00 EB 0E 0E CD 05 00 C9 21 B1 .q*..&........!.
003370: 1E 70 2B 71 2A B0 1E EB 0E 0F CD 05 00 32 AE 1E .p+q*........2..
003380: C9 21 B3 1E 70 2B 71 2A B2 1E EB 0E 10 CD 05 00 .!..p+q*........
003390: 32 AE 1E C9 21 B5 1E 70 2B 71 2A B4 1E EB 0E 11 2...!..p+q*.....
0033A0: CD 05 00 32 AE 1E C9 11 00 00 0E 12 CD 05 00 32 ...2...........2
0033B0: AE 1E C9 21 B7 1E 70 2B 71 2A B6 1E EB 0E 13 CD ...!..p+q*......
0033C0: 05 00 C9 21 B9 1E 70 2B 71 2A B8 1E EB 0E 14 CD ...!..p+q*......
0033D0: 05 00 C9 21 BB 1E 70 2B 71 2A BA 1E EB 0E 15 CD ...!..p+q*......
0033E0: 05 00 C9 21 BD 1E 70 2B 71 2A BC 1E EB 0E 16 CD ...!..p+q*......
0033F0: 05 00 32 AE 1E C9 21 BF 1E 70 2B 71 2A BE 1E EB ..2...!..p+q*...
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: C3 E2 20 CD AB 43 6F 70 79 72 69 67 68 74 20 28 .. ..Copyright (
003610: 43 29 20 31 39 38 35 20 42 4F 52 4C 41 4E 44 20 C) 1985 BORLAND
003620: 49 6E 63 00 04 00 A1 42 00 00 00 00 00 00 00 00 Inc....B........
003630: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003640: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003650: 00 00 00 0C 61 6D 73 74 72 61 64 20 36 31 32 38 ....amstrad 6128
003660: 43 34 36 34 2F 36 36 34 50 18 00 00 1C 00 0D 0D C464/664P.......
003670: 1C 01 01 01 1D 03 03 1B 1B 1B D5 00 1C 01 00 00 ................
003680: 1C 00 17 17 1D 17 17 EF 9E CD BD 04 1B 59 00 00 .............Y..
003690: 00 00 00 00 00 00 00 00 00 00 00 01 20 20 04 03 ............ ..
0036A0: 00 00 02 1B 45 00 00 00 00 00 00 00 00 00 02 1B ....E...........
0036B0: 4C 00 00 00 02 1B 4D 00 00 00 00 00 02 1B 4B 00 L.....M.......K.
0036C0: 00 00 02 1B 71 00 00 00 02 1B 70 00 00 00 00 00 ....q.....p.....
0036D0: 7E B7 37 C8 23 F5 E5 7E CD E8 01 E1 F1 3D C8 18 ~.7.#..~.....=..
0036E0: F3 CD 00 02 0D 0A 00 C9 6F E5 CD A6 00 C9 FE 80 ........o.......
0036F0: DC 6B 02 D4 84 02 E6 7F 18 EE E5 21 EE 01 18 04 .k.........!....
003700: E5 21 E8 01 22 13 02 E1 E3 F5 C5 D5 7E 23 B7 28 .!..".......~#.(
003710: 07 E5 CD E8 01 E1 18 F4 D1 C1 F1 E3 C9 7D B4 C8 .............}..
003720: 3A 24 01 87 87 87 E3 E3 E3 E3 C5 01 D2 04 C1 3D :$.............=
003730: 20 F4 2B 18 E8 CD D0 01 D8 2A CE 01 18 DF F5 C5 .+......*......
003740: D5 E5 21 A8 01 CD 35 02 21 A2 01 CD D0 01 2A BA ..!...5.!.....*.
003750: 01 D4 1D 02 E1 D1 C1 F1 C9 F5 C5 D5 E5 21 B4 01 .............!..
003760: 18 E9 F5 C5 D5 E5 21 AE 01 18 E0 F5 3A E0 00 B7 ......!.....:...
003770: 28 10 C5 D5 E5 AF 32 E0 00 21 C8 01 CD 35 02 E1 (.....2..!...5..
003780: D1 C1 F1 C9 F5 3A E0 00 FE FF 28 F6 C5 D5 E5 3E .....:....(....>
003790: FF 32 E0 00 21 C2 01 18 E3 F5 C5 D5 E5 21 BC 01 .2..!........!..
0037A0: 18 DA F5 C5 D5 E5 E5 11 F0 00 21 8B 01 01 10 00 ..........!.....
0037B0: ED B0 D1 3A 9E 01 4F 3A 9C 01 82 D5 CD DC 02 D1 ...:..O:........
0037C0: 3A 9F 01 4F 3A 9D 01 83 CD DC 02 21 F0 00 CD D0 :..O:......!....
0037D0: 01 2A A0 01 CD 1D 02 E1 D1 C1 F1 C9 21 F0 00 06 .*..........!...
0037E0: 00 09 EB 21 9B 01 34 35 28 02 12 C9 1B 1B 21 0A ...!..45(.....!.
0037F0: 03 06 03 2B 0E 2F 0C 96 30 FC 86 F5 79 FE 30 28 ...+./..0...y.0(
003800: 0D 0A 70 72 6F 63 65 64 75 72 65 20 64 65 6C 61 ..procedure dela
003810: 79 28 6E 3A 20 72 65 61 6C 29 3B 0D 0A 76 61 72 y(n: real);..var
003820: 20 69 3A 72 65 61 6C 3B 0D 0A 20 20 20 20 63 68 i:real;.. ch
003830: 3A 63 68 61 72 3B 0D 0A 0D 0A 62 65 67 69 6E 0D :char;....begin.
003840: 0A 20 20 69 3A 3D 30 3B 0D 0A 20 20 63 68 3A 3D . i:=0;.. ch:=
003850: 27 20 27 3B 0D 0A 20 20 72 65 70 65 61 74 0D 0A ' ';.. repeat..
003860: 20 20 20 20 69 3A 3D 69 2B 31 3B 0D 0A 20 20 20 i:=i+1;..
003870: 20 69 66 20 6B 65 79 70 72 65 73 73 65 64 20 74 if keypressed t
003880: 68 65 6E 20 72 65 61 64 28 6B 62 64 2C 63 68 29 hen read(kbd,ch)
003890: 3B 0D 0A 20 20 20 20 69 66 20 63 68 3D 5E 43 20 ;.. if ch=^C
0038A0: 74 68 65 6E 20 62 65 67 69 6E 0D 0A 20 20 20 20 then begin..
0038B0: 20 20 6C 65 61 76 65 67 72 61 70 68 69 63 3B 0D leavegraphic;.
0038C0: 0A 20 20 20 20 20 20 68 61 6C 74 3B 0D 0A 20 20 . halt;..
0038D0: 20 20 65 6E 64 3B 0D 0A 20 20 75 6E 74 69 6C 20 end;.. until
0038E0: 28 63 68 3D 5E 4D 29 20 6F 72 20 28 69 3E 3D 6E (ch=^M) or (i>=n
0038F0: 29 3B 0D 0A 65 6E 64 3B 0D 0A 0D 0A 70 72 6F 63 );..end;....proc
003900: 65 64 75 72 65 20 77 61 69 74 72 65 74 75 72 6E edure waitreturn
003910: 28 6E 3A 20 72 65 61 6C 29 3B 0D 0A 62 65 67 69 (n: real);..begi
003920: 6E 0D 0A 20 20 77 72 69 74 65 28 27 50 72 65 73 n.. write('Pres
003930: 73 20 52 45 54 55 52 4E 20 74 6F 20 63 6F 6E 74 s RETURN to cont
003940: 69 6E 75 65 27 29 3B 0D 0A 20 20 64 65 6C 61 79 inue');.. delay
003950: 28 6E 29 3B 0D 0A 65 6E 64 3B 0D 0A 0D 0A 70 72 (n);..end;....pr
003960: 6F 63 65 64 75 72 65 20 43 6C 65 61 72 45 6F 6C ocedure ClearEol
003970: 28 69 3A 69 6E 74 65 67 65 72 29 3B 0D 0A 62 65 (i:integer);..be
003980: 67 69 6E 0D 0A 20 20 67 6F 74 6F 78 79 28 31 2C gin.. gotoxy(1,
003990: 69 29 3B 0D 0A 20 20 77 72 69 74 65 28 27 20 20 i);.. write('
0039A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0039B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0039C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0039D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0039E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 27 29 3B ');
0039F0: 0D 0A 65 6E 64 3B 0D 0A 0D 0A 70 72 6F 63 65 64 ..end;....proced
003A00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
003A10: 03 00 01 00 02 09 4E E5 03 00 41 02 00 00 00 02 ......N...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: 01 12 13 F1 10 ED C9 01 0A 64 21 6B 01 C3 35 02 .........d!k..5.
003B10: 21 7B 01 C3 35 02 11 03 00 CD 5F 03 E6 01 18 06 !{..5....._.....
003B20: 11 06 00 CD 5F 03 6F 26 00 C9 11 12 00 18 F4 11 ...._.o&........
003B30: 0C 00 18 08 11 0F 00 18 03 11 09 00 E1 C1 E5 3A ...............:
003B40: DD 00 B7 28 1A D5 C5 CD A0 00 7C B5 28 0F CD E1 ...(......|.(...
003B50: 03 FE 13 20 08 CD E1 03 FE 03 CA D4 20 C1 D1 2A ... ........ ..*
003B60: 01 00 19 E9 22 D2 00 78 32 DD 00 79 B7 28 0B 3E ...."..x2..y.(.>
003B70: C3 32 38 00 21 FB 1F 22 39 00 21 A5 03 11 A0 00 .28.!.."9.!.....
003B80: 01 18 00 ED B0 21 BD 03 11 B8 00 01 0C 00 ED B0 .....!..........
003B90: AF 6F 67 32 D0 00 22 D4 00 22 D6 00 3E 7E 32 D1 .og2..".."..>~2.
003BA0: 00 32 E0 00 C9 C3 16 03 C3 20 03 C3 39 03 C3 2F .2....... ..9../
003BB0: 03 C3 34 03 C3 2A 03 C3 39 03 C3 20 03 C1 00 82 ..4..*..9.. ....
003BC0: 00 43 00 C4 00 C5 00 C1 00 C5 D5 E5 DD E5 FD E5 .C..............
003BD0: F5 6F 26 00 E5 CD A6 00 F1 FD E1 DD E1 E1 D1 C1 .o&.............
003BE0: C9 C5 D5 E5 DD E5 FD E5 CD A3 00 7D 18 EB 0E FF .........£.}....
003BF0: 18 0C 0E 00 ED 5B D2 00 13 1A FE 20 28 FA 21 65 .....[..... (.!e
003C00: 00 06 03 CD 7B 04 1A CD A6 04 FE 41 38 12 FE 51 ....{......A8..Q
003C10: 30 0E 47 13 1A FE 3A 20 06 78 D6 40 13 18 02 1B 0.G...: .x.@....
003C20: AF 21 5C 00 77 23 0C 0D 28 19 1A CD 82 04 20 13 .!\.w#..(..... .
003C30: FE 3F 28 0F FE 2A 28 0B FE 2E 28 07 06 0B CD 77 .?(..*(...(....w
003C40: 04 18 10 06 08 CD 5E 04 1A FE 2E 20 06 13 06 03 ......^.... ....
003C50: CD 5E 04 21 68 00 06 18 36 00 23 10 FB C9 1A 0C .^.!h...6.#.....
003C60: 0D 28 08 FE 3F 28 09 FE 2A 28 0B CD 82 04 28 0B .(..?(..*(....(.
003C70: 77 23 13 10 E9 C9 13 3E 3F 18 02 3E 20 77 23 10 w#.....>?..> w#.
003C80: FC C9 CD A6 04 FE 20 38 0D E5 C5 21 98 04 01 0E ...... 8...!....
003C90: 00 ED B1 C1 E1 C9 BF C9 20 2E 2C 3B 3A 3D 3F 2A ........ .,;:=?*
003CA0: 5B 5D 3C 3E 7B 7D FE 61 D8 FE 7B D0 D6 20 C9 7C []<>{}.a..{.. .|
003CB0: CD B4 04 7D F5 1F 1F 1F 1F CD BD 04 F1 E6 0F C6 ...}............
003CC0: 90 27 CE 40 27 C3 C9 03 AF 37 CB 7C C0 7C B7 7D .'.@'....7.|.|.}
003CD0: C8 3E FF C9 32 D8 00 C5 CD AF 1E C1 2A 06 00 B7 .>..2.......*...
003CE0: ED 42 DA A8 20 EB D1 F9 01 00 FC 09 22 C6 00 AF .B.. ......."...
003CF0: 6F 67 22 CE 00 32 DC 00 3E C3 32 D9 00 21 DE 20 og"..2..>.2..!.
003D00: 0A 2C 2C F1 2C 2D C8 D8 78 EE 80 47 C9 67 AA 3F .,,.,-..x..G.g.?
003D10: 2B 32 D7 6E B6 2A 1D EF 38 74 0D D0 00 0D D0 7A +2.n.*..8t.....z
003D20: 88 88 88 88 08 7E AB AA AA AA AA 2C 2D 3E 04 CA .....~.....,->..
003D30: 27 20 CB 78 C2 27 20 D9 CD 98 0F D9 7D 2E 81 95 ' .x.' .....}...
003D40: F5 CD F5 0A D9 CD 86 0F D9 CD 81 0A C5 D5 E5 D9 ................
003D50: 2C CD 0D 0A D9 E1 D1 C1 CD F5 0A DD E5 DD 21 8C ,.............!.
003D60: 0D 3E 06 CD 34 0F DD E1 2C D9 CD A2 0F 2D D9 CD .>..4...,....-..
003D70: 0D 0A F1 C5 D5 E5 6F 26 00 30 01 25 CD 08 10 D9 ......o&.0.%....
003D80: 2C CD 97 0A D9 E1 D1 C1 CD 0D 0A 7D FE 67 DA 72 ,..........}.g.r
003D90: 0B C9 7D 8A 9D D8 89 1D 7D E9 A2 8B 2E 3A 7D 8E ..}.....}....:}.
003DA0: E3 38 8E 63 7E 49 92 24 49 12 7E CD CC CC CC 4C .8.c~I.$I.~....L
003DB0: 7F AB AA AA AA 2A D9 CD A2 0F D9 B7 CB 78 F5 CB .....*.......x..
003DC0: B8 CD F5 0A 7D FE 88 30 47 C5 D5 E5 2C CD D0 0F ....}..0G...,...
003DD0: E5 CB 3C CB 1D 7D E1 F5 CD 08 10 2C 2D 28 01 2D ..<..}.....,-(.-
003DE0: D9 F1 E1 D1 C1 F5 CD 81 0A DD E5 DD 21 10 0E 3E ............!..>
003DF0: 08 CD 49 0F DD E1 F1 30 0A F5 D9 CD 98 0F D9 CD ..I....0........
003E00: 97 0A F1 85 6F 38 09 F1 C8 D9 CD 86 0F C3 F5 0A ....o8..........
003E10: E1 3E 01 C3 27 20 6D 2E 1D 11 60 31 70 46 2C FE .>..' m...`1pF,.
003E20: E5 7F 74 36 7C 89 84 21 77 53 3C FF C3 2E 7A D2 ..t6|..!wS<...z.
003E30: 7D 5B 95 1D 7C 25 B8 46 58 63 7E 16 FC EF FD 75 }[..|%.FXc~....u
003E40: 80 D2 F7 17 72 31 7D B7 C8 DD E5 D9 CD 86 0F D9 ....r1}.........
003E50: AF CB 78 28 03 3C CB B8 F5 CD DF 0B 38 08 D9 CD ..x(.<......8...
003E60: F5 0A F1 CB FF F5 D9 01 CF 06 11 8E E9 21 7E 4A .............!~J
003E70: D9 CD DF 0B 30 05 CD 2E 0F 18 4F DD 21 CE 0E 3E ....0.....O.!..>
003E80: 02 08 D9 11 12 00 DD 19 CD 73 0F D9 CD DF 0B 38 .........s.....8
003E90: 0B 08 3D 20 EC D9 11 0C 00 DD 19 D9 D9 CD 6E 0F ..= ..........n.
003EA0: CB F8 CD 0D 0A C5 D5 E5 CD 73 0F CD 97 0A D9 CD .........s......
003EB0: 86 0F CD 0D 0A D9 E1 D1 C1 CD F5 0A DD E5 CD 2E ................
003EC0: 0F DD E1 D9 CD 6E 0F CD 0D 0A F1 17 30 0A F5 D9 .....n......0...
003ED0: CD 8E 0F 2D CD 81 0A F1 DD E1 CB 4F C8 CB F8 C9 ...-.......O....
003EE0: 7F E7 CF CC 13 54 7F F6 F4 A2 30 09 7F 6A C1 91 .....T....0..j..
003EF0: 0A 06 80 B5 9E 8A 6F 44 80 82 2C 3A CD 13 80 6A ......oD..,:...j
003F00: 22 DA 00 EB 22 CC 00 E9 E5 2A C6 00 B7 ED 42 22 "..."....*....B"
003F10: C6 00 ED 5B C4 00 B7 ED 52 19 EB E1 DA 75 1D ED ...[....R....u..
003F20: B0 C9 2A C6 00 ED B0 22 C6 00 D9 C9 5E 23 56 23 ..*...."....^#V#
003F30: D5 5E 23 56 23 4E 23 46 E1 C9 DD E1 EB 1A 4F 06 .^#V#N#F......O.
003F40: 00 2F 6F 26 FF 39 F9 EB 03 ED B0 DD E9 D1 1A 4F ./o&.9.........O
003F50: 06 00 2F 6F 26 FF 39 F9 EB 03 ED B0 E9 DD E1 EB ../o&.9.........
003F60: 21 E0 FF 39 F9 EB C5 04 05 28 05 AF 12 13 10 FC !..9.....(......
003F70: ED B0 C1 3E 20 90 91 28 06 47 AF 12 13 10 FC DD ...> ..(.G......
003F80: E9 DD E1 21 E0 FF 39 F9 06 20 AF 77 23 10 FC DD ...!..9.. .w#...
003F90: E9 DD E1 45 CD BA 05 B6 77 DD E9 DD E1 D1 7D 93 ...E....w.....}.
003FA0: 38 F7 3C 4F 43 CD BA 05 5F 41 AF B3 CB 23 30 06 8.<OC..._A...#0.
003FB0: B6 77 23 AF 1E 01 10 F3 18 DD 78 E6 F8 0F 0F 0F .w#.......x.....
003FC0: C6 02 6F 26 00 39 78 E6 07 3C 47 AF 37 17 10 FD ..o&.9x..<G.7...
003FD0: C9 E5 D9 EB E3 73 23 72 23 D1 73 23 72 23 71 23 .....s#r#.s#r#q#
003FE0: 70 C9 DD E1 78 EB 21 00 00 44 39 4E E5 09 23 E3 p...x.!..D9N..#.
003FF0: B9 38 01 79 12 13 23 B7 28 03 4F ED B0 E1 F9 DD .8.y..#.(.O.....
004000: E9 DD E1 78 21 00 00 44 39 4E E5 09 23 5E 23 56 ...x!..D9N..#^#V
004010: 18 DC DD E1 EB 68 26 00 44 39 ED B0 21 20 00 39 .....h&.D9..! .9
004020: F9 DD E9 DD E1 21 20 00 39 5E 23 56 68 26 00 44 .....! .9^#Vh&.D
004030: 39 ED B0 21 22 00 18 E7 DD E1 EB 78 2F 6F 26 FF 9..!"......x/o&.
004040: 39 F9 70 23 48 06 00 EB ED B0 DD E9 B7 ED 52 19 9.p#H.........R.
004050: D8 3E 90 C3 27 20 B7 ED 52 B7 ED 42 30 03 09 19 .>..' ..R..B0...
004060: C9 3E 91 C3 27 20 B7 ED 52 EB 13 EA 71 06 F0 18 .>..' ..R...q...
004070: 01 F8 11 00 00 C9 D5 EB B7 ED 52 EB E1 18 EB B7 ..........R.....
004080: ED 52 21 01 00 C8 2B C9 CD DF 0B 18 F5 CD B0 09 .R!...+.........
004090: 18 F0 B7 ED 52 21 01 00 C0 2B C9 CD DF 0B 18 F5 ....R!...+......
0040A0: CD B0 09 18 F0 CD 72 07 21 01 00 D0 2B C9 CD DF ......r.!...+...
0040B0: 0B 18 F5 CD B0 09 18 F0 CD 72 07 21 01 00 C8 D8 .........r.!....
0040C0: 2B C9 CD DF 0B 18 F4 CD B0 09 18 EF CD 72 07 21 +............r.!
0040D0: 00 00 C8 D8 23 C9 CD DF 0B 18 F4 CD B0 09 18 EF ....#...........
0040E0: CD 72 07 21 01 00 D8 2B C9 CD DF 0B 18 F5 CD B0 .r.!...+........
0040F0: 09 18 F0 54 5D 4B 42 EB 21 00 00 7A B7 3E 10 20 ...T]KB.!..z.>.
004100: C1 91 0A 06 81 00 00 00 00 00 80 21 A2 DA 0F 49 ...........!...I
004110: 7D E8 A2 8B 2E BA 7D 8E E3 38 8E 63 7E 49 92 24 }.....}..8.c~I.$
004120: 49 92 7E CD CC CC CC 4C 7F AB AA AA AA AA DD 21 I.~....L.......!
004130: 0A 0F 3E 05 C5 D5 E5 F5 CD AC 0F CD 97 0A F1 CD ..>.............
004140: 49 0F D9 E1 D1 C1 C3 97 0A F5 D9 CD 6E 0F 18 10 I...........n...
004150: F5 D9 C5 D5 E5 CD 6E 0F CD 0D 0A D9 E1 D1 C1 D9 ......n.........
004160: CD 97 0A F1 3D 20 E9 D9 CD 86 0F C3 0D 0A 11 06 ....= ..........
004170: 00 DD 19 DD 6E 00 DD 66 01 DD 5E 02 DD 56 03 DD ....n..f..^..V..
004180: 4E 04 DD 46 05 C9 21 81 00 44 4C 54 5C C9 01 0F N..F..!..DLT\...
004190: 49 11 A2 DA 21 82 21 C9 01 04 35 11 33 F3 21 81 I...!.!...5.3.!.
0041A0: FA C9 01 72 31 11 F7 17 21 80 D2 C9 C5 D5 E5 D9 ...r1...!.......
0041B0: E1 D1 C1 C9 CD 92 07 21 80 00 3E 20 CB 78 20 0D .......!..> .x .
0041C0: CB 23 CB 12 CB 11 CB 10 2D 3D 20 F0 6F CB B8 C9 .#......-= .o...
0041D0: CB 78 D9 CD 86 0F 28 02 CB F8 2D CD 0D 0A B7 CB .x....(...-.....
0041E0: 7D 28 1C CB 78 08 CB F8 3E 8F BD 38 16 28 06 CD }(..x...>..8.(..
0041F0: 7A 0B 2C 18 F3 CD 7A 0B 08 60 69 C8 C3 83 07 21 z.,...z..`i....!
004200: 00 00 C9 3E 92 C3 27 20 7C B5 CA 72 0B CB 7C 08 ...>..' |..r..|.
004210: CD 80 07 3E 90 29 3D CB 7C 28 FA 44 4D 11 00 00 ...>.)=.|(.DM...
004220: 62 6F 08 C0 CB B8 C9 CD C8 04 EB 1E 00 38 04 FE bo...........8..
004230: 19 38 18 1D CD C8 04 D9 CB 78 D9 16 07 28 01 14 .8.......x...(..
004240: 92 30 01 AF FE 09 38 02 3E 09 3C 57 D5 D9 FD 21 .0....8.>.<W...!
004250: 5D 00 DD E5 CD EB 10 DD E1 D1 4F 7A 3C CB 7B 20 ].........Oz<.{
004260: 10 81 F2 6B 10 FD 36 00 00 18 0B FE 0C 38 02 3E ...k..6......8.>
004270: 0B D5 CD 80 11 D1 CB 78 28 05 3E 2D CD E5 10 CB .......x(.>-....
004280: 7B 28 03 61 0E 00 CB 79 28 05 CD E3 10 18 07 CD {(.a...y(.......
004290: D9 10 0D F2 8F 10 7A B7 28 17 3E 2E CD E5 10 0C ......z.(.>.....
0042A0: 28 06 CD E3 10 15 20 F7 15 FA B1 10 CD D9 10 18 (..... .........
0042B0: F7 CB 7B C8 3E 45 CD E5 10 3E 2B CB 7C 28 06 7C ..{.>E...>+.|(.|
0042C0: ED 44 67 3E 2D CD E5 10 7C 06 2F 04 D6 0A 30 FB .Dg>-...|./...0.
0042D0: C6 3A DD 70 00 DD 23 18 0C FD 7E 00 FD 23 B7 20 .:.p..#...~..#.
0042E0: 04 FD 2B 3E 30 DD 77 00 DD 23 C9 FD E5 2C 2D 20 ..+>0.w..#...,-
0042F0: 0E 06 0C FD 36 00 30 FD 23 10 F8 AF C3 7D 11 C5 ....6.0.#....}..
004300: 03 53 3E 08 29 EB 29 EB 30 01 09 3D 20 F6 C9 7C .S>.).).0..= ..|
004310: B5 CA 03 0A 7C AA F5 CD 80 07 EB CD 80 07 EB 44 ....|..........D
004320: 4D AF 67 6F 3E 11 ED 6A ED 42 30 02 09 37 3F CB M.go>..j.B0..7?.
004330: 13 CB 12 3D 20 F0 EB F1 F0 18 48 E5 CD 92 07 CB ...= .....H.....
004340: 3C CB 1D D1 EB CD 0F 07 EB CB 7A C8 18 35 CD 61 <.........z..5.a
004350: 07 C8 29 10 FD C9 CD 61 07 C8 CB 3C CB 1D 10 FA ..)....a...<....
004360: C9 EB 7A B7 20 08 7B FE 10 30 03 47 B7 C9 AF 67 ..z. .{..0.G...g
004370: 6F C9 EB 7C AA 7C FA 7E 07 BA C0 7D BB C9 17 C9 o..|.|.~...}....
004380: CB 7C C8 7C 2F 67 7D 2F 6F 23 C9 7D E6 01 6F 26 .|.|/g}/o#.}..o&
004390: 00 C9 ED 4B CA 00 ED 5B C8 00 C5 D5 78 41 4A 53 ...K...[....xAJS
0043A0: 1E 00 1F CB 18 CB 19 CB 1A CB 1B E1 19 EB E1 ED ................
0043B0: 4A 44 4D 21 E9 62 19 22 C8 00 EB 21 19 36 ED 4A JDM!.b."...!.6.J
0043C0: 22 CA 00 44 4D C9 06 00 11 10 27 CD E2 07 11 E8 "..DM.....'.....
0043D0: 03 CD E2 07 11 64 00 CD E2 07 1E 0A CD E2 07 7D .....d.........}
0043E0: 18 0D AF 3C ED 52 30 FB 19 04 3D 20 02 05 C8 C6 ...<.R0...= ....
0043F0: 30 DD 77 00 DD 23 C9 DD 7E 00 D6 24 4F 21 00 00 0.w..#..~..$O!..
004400: 20 02 DD 23 DD 7E 00 CD A6 04 D6 30 38 29 FE 0A ..#.~.....08)..
004410: 38 0E 0C 0D 20 21 D6 07 FE 0A 38 1B FE 10 30 17 8... !....8...0.
004420: 54 5D 29 D8 29 D8 0C 0D 20 02 54 5D 19 D8 29 D8 T]).)... .T]..).
004430: 5F 16 00 19 D8 18 CB 79 B7 C8 7C 87 C9 DD E1 E1 _......y..|.....
004440: E5 7D 26 00 23 39 4E 81 38 1C 77 EB 21 00 00 44 .}&.#9N.8.w.!..D
004450: ED 42 39 F9 EB E5 03 ED B0 EB E1 2B 1B 4F 03 ED .B9........+.O..
004460: B8 EB 23 F9 DD E9 3E 10 C3 29 20 DD E1 CD C8 04 ..#...>..) .....
004470: 57 E1 CD DD 09 5F E1 E5 7D 93 38 1A 14 15 28 16 W...._..}.8...(.
004480: BA 38 16 4A 06 00 60 39 7B 82 54 5D 3D 6F 60 39 .8.J..`9{.T]=o`9
004490: 79 ED B8 EB 18 09 AF 18 03 3C 6B 2D 26 00 39 77 y........<k-&.9w
0044A0: F9 DD E9 DD E1 E1 E5 7D 26 00 23 39 F9 6F 26 00 .......}&.#9.o&.
0044B0: DD E9 DD E1 21 00 00 54 39 5E 4B 23 E5 19 5E 43 ....!..T9^K#..^C
0044C0: 23 E5 19 E5 FD E1 D1 E1 79 90 38 10 3C 4F C5 D5 #.......y.8.<O..
0044D0: E5 1A BE 28 0C E1 D1 C1 23 0D 20 F2 21 00 00 18 ...(....#. .!...
0044E0: 0E 23 13 10 EC D1 E1 C1 21 00 00 39 EB ED 52 FD .#......!..9..R.
0044F0: F9 DD E9 DD E1 CD C8 04 4F E1 CD DD 09 5F E1 7E ........O...._.~
004500: CB B8 7D D9 D6 80 6F 9F 67 11 4D 00 CD F5 06 11 ..}...o.g.M.....
004510: 05 00 19 7C FE D9 20 01 3C FD 77 00 ED 44 CD 40 ...|.. .<.w..D.@
004520: 12 7D FE 81 30 06 CD B3 12 FD 35 00 CB F8 3E 84 .}..0.....5...>.
004530: 95 2E 00 28 08 CD 7A 0B CB 1D 3D 20 F8 FD 7E 00 ...(..z...= ..~.
004540: F5 3E 0C 08 78 1F 1F 1F 1F E6 0F C6 30 FD 77 00 .>..x.......0.w.
004550: FD 23 78 E6 0F 47 C5 D5 E5 CB 25 CD 87 0B CB 25 .#x..G....%....%
004560: CD 87 0B EB E3 19 D1 E3 ED 5A EB E1 E3 ED 4A 44 .........Z....JD
004570: 4D E1 CB 25 CD 87 0B 08 3D 20 C8 F1 C1 FD E1 C9 M..%....= ......
004580: FD E5 E1 5F 16 00 19 7E 36 00 FE 35 D8 1D FA 9C ..._...~6..5....
004590: 11 2B 7E 3C 77 FE 3A D8 36 00 18 F1 36 31 23 36 .+~<w.:.6...61#6
0045A0: 00 0C C9 D9 01 00 00 D9 CD 72 0B DD 7E 00 CD A6 .........r..~...
0045B0: 04 FE 2E 20 0C D9 CB 70 37 C0 CB F0 D9 DD 23 18 ... ...p7.....#.
0045C0: EA FE 45 28 21 CD 39 12 30 54 08 CD B3 12 D8 08 ..E(!.9.0T......
0045D0: D9 C5 6F 26 00 CD 08 10 CD E9 09 D9 C1 D8 CB 70 ..o&...........p
0045E0: 28 01 0D D9 18 D7 CD 1E 12 D8 D9 CB E0 DD 23 DD (.............#.
0045F0: 7E 00 FE 2B 28 06 FE 2D 20 04 CB E8 DD 23 CD 36 ~..+(..- ....#.6
004600: 12 3F D8 4F DD 23 CD 36 12 30 0A DD 23 57 79 87 .?.O.#.6.0..#Wy.
004610: 87 81 87 82 4F CB 68 28 04 79 ED 44 4F D9 D9 79 ....O.h(.y.DO..y
004620: C6 80 FE 5A D8 FE A6 3F D8 C5 DD E5 79 CD 40 12 ...Z...?....y.@.
004630: DD E1 D9 C1 D9 C9 DD 7E 00 D6 30 3F D0 FE 0A C9 .......~..0?....
004640: F5 B7 F2 47 12 ED 44 F5 CB 3F CB 3F 3C 21 FA FF ...G..D..?.?<!..
004650: 11 06 00 19 3D 20 FC EB DD 21 77 12 DD 19 CD 73 ....= ...!w....s
004660: 0F F1 E6 03 28 08 F5 CD B3 12 F1 3D 20 F8 F1 B7 ....(......= ...
004670: F2 97 0A D9 C3 F5 0A 81 00 00 00 00 00 8E 00 00 ................
004680: 00 40 1C 9B 00 00 20 BC 3E A8 00 10 A5 D4 68 B6 .@.... .>.....h.
004690: 04 BF C9 1B 0E C3 AC C5 EB 78 2D D0 CD CE 1B C2 .........x-.....
0046A0: 53 DE F9 78 39 3F 01 EB 2B A8 AD C5 1D F8 C9 7B S..x9?..+......{
0046B0: CE 97 40 7D B7 C8 CB F8 C5 D5 7C CD 7A 0B CD 7A ..@}......|.z..z
0046C0: 0B 84 67 E3 ED 5A EB E1 E3 ED 4A 44 4D E1 30 06 ..g..Z....JDM.0.
0046D0: CD 7B 0B 2C 37 C8 7D C6 03 6F CB B8 C9 0E 01 18 .{.,7.}..o......
0046E0: 02 0E 00 CD 3F 13 1A BE 20 08 23 13 10 F8 79 EE ....?... .#...y.
0046F0: 01 4F 21 40 00 39 F9 69 26 00 DD E9 0E 01 18 02 .O!@.9.i&.......
004700: 93 38 1B 0C 0D 28 17 91 38 12 F5 7E 91 77 06 00 .8...(..8..~.w..
004710: 50 19 54 5D 09 F1 3C 4F ED B0 18 02 1D 73 DD E9 P.T]..<O.....s..
004720: DD E1 CD DD 09 4F D1 ED 53 E8 00 21 00 00 39 1A .....O..S..!..9.
004730: F5 86 38 03 B8 38 01 78 12 F1 57 5E 91 38 2F 3C ..8..8.x..W^.8/<
004740: 6F 7A 83 38 04 B8 7D 38 08 78 93 38 26 91 38 23 oz.8..}8.x.8&.8#
004750: 3C B7 28 1F C5 D5 2A E8 00 5F 1D 16 00 42 19 09 <.(...*.._...B..
004760: D1 D5 E5 50 19 EB E1 4F ED B8 D1 C1 18 05 7A 3C ...P...O......z<
004770: 28 19 4F 78 91 3C BB 38 01 7B B7 28 0E 2A E8 00 (.Ox.<.8.{.(.*..
004780: 06 00 09 EB 21 01 00 39 4F ED B0 21 00 00 54 39 ....!..9O..!..T9
004790: 5E 13 19 F9 DD E9 DD E1 E1 2D C2 66 08 6C 26 00 ^........-.f.l&.
0047A0: DD E9 21 02 00 54 39 5E 13 19 7E 36 01 23 77 C9 ..!..T9^..~6.#w.
0047B0: 21 04 00 54 39 5E 4B 23 E5 19 5E 43 23 E5 19 E5 !..T9^K#..^C#...
0047C0: FD E1 D1 E1 AF B8 28 04 B9 20 08 78 B9 E1 D1 FD ......(.. .x....
0047D0: F9 D5 E9 1A BE 20 F6 23 13 05 0D 18 E7 7C B7 20 ..... .#.....|.
0047E0: 03 7D B7 C0 3E 11 C3 29 20 CD 0D 0A D0 3E 01 C3 .}..>..) ....>..
0047F0: 27 20 CD 81 0A 18 F5 CD AC 0F CD 97 0A 18 ED D9 ' ..............
004800: 7D B7 D9 3E 02 CA 27 20 CD F5 0A 18 DF D9 CB 78 }..>..' .......x
004810: D9 C2 88 0A D9 7D B7 D9 C8 D9 C5 D5 E5 D9 7D B7 .....}........}.
004820: 20 05 D9 CB B8 18 54 C5 CB F8 AF 08 D9 CB F8 7D .....T........}
004830: D9 95 28 13 30 06 ED 44 08 3D 08 D9 CD 7A 0B 2C ..(.0..D.=...z.,
004840: 3D 20 F9 08 28 01 D9 F1 E6 80 20 0F CD 92 0B 30 = ..(..... ....0
004850: 25 CD 7B 0B B7 2C 20 1E 37 18 20 CD C6 0B 3F F5 %.{.., .7. ...?.
004860: 28 10 38 01 D9 CD AC 0B CB 78 20 09 CD 86 0B 2D (.8......x ....-
004870: 20 F6 CD 72 0B F1 38 02 CB B8 B7 D9 E1 D1 C1 D9 ..r..8.........
004880: C9 D9 CB 78 D9 C2 14 0A CD 8F 0A CD 14 0A D8 2C ...x...........,
004890: 2D C8 78 EE 80 47 C9 D9 7D B7 D9 CA 72 0B 7D B7 -.x..G..}...r.}.
0048A0: C8 D9 85 D9 CD 4D 0B C5 D5 E5 DD 39 CD 72 0B D9 .....M.....9.r..
0048B0: 2E 05 D9 3E 08 DD 23 DD 6E 00 08 CB 1D 30 03 CD ...>..#.n....0..
0048C0: 92 0B CD 7B 0B 08 3D 20 F1 D9 2D D9 20 E5 DD 6E ...{..= ..-. ..n
0048D0: FB CB 78 20 09 08 CD 87 0B 2C 2D 28 01 2D F1 F1 ..x .....,-(.-..
0048E0: F1 B7 08 F1 D9 C1 E1 D9 DD E1 CB B8 B0 47 2C 2D .............G,-
0048F0: CC 72 0B 08 C9 7D B7 C8 D9 95 D9 3F CD 4D 0B E5 .r...}.....?.M..
004900: 0E 00 CD 3F 13 0D 20 01 EB 0E 00 1A B6 BE 20 E2 ...?.. ....... .
004910: 23 13 10 F7 0E 01 18 DA CD 3F 13 1A B6 77 23 13 #........?...w#.
004920: 10 F9 EB F9 DD E9 CD 3F 13 1A 2F A6 77 23 13 10 .......?../.w#..
004930: F8 18 EF CD 3F 13 1A A6 77 23 13 10 F9 18 E3 FD ....?...w#......
004940: E1 DD E1 21 00 00 39 EB 21 20 00 45 39 FD E9 DD ...!..9.! .E9...
004950: E1 21 21 00 39 7E B7 28 03 AF 18 06 2B 46 CD BA .!!.9~.(....+F..
004960: 05 A6 21 22 00 39 F9 21 00 00 28 01 23 DD E9 3E ..!".9.!..(.#..>
004970: AF 32 E8 00 FD E1 2A D2 00 06 10 CD E2 05 AF 12 .2....*.........
004980: E1 22 E2 00 FD E5 7C B7 20 06 3E 22 32 D0 00 C9 ."....|. .>"2...
004990: 3A E8 00 B7 28 0A CD B6 13 20 05 2A E2 00 77 C9 :...(.... .*..w.
0049A0: CD F2 03 2A E2 00 36 00 11 0C 00 19 EB 21 5C 00 ...*..6......!\.
0049B0: 01 24 00 ED B0 C9 06 06 21 E6 13 C5 E5 06 03 ED .$......!.......
0049C0: 5B D2 00 13 1A FE 20 28 FA 1A CD A6 04 96 28 0A [..... (......(.
0049D0: E1 C1 11 04 00 19 10 E3 B7 C9 23 13 10 EB C1 C1 ..........#.....
0049E0: 1A FE 3A C0 7E C9 43 4F 4E C1 54 52 4D C1 4B 42 ..:.~.CON.TRM.KB
0049F0: 44 82 4C 53 54 43 41 55 58 C4 55 53 52 C5 3E AF D.LSTCAUX.USR.>.
004A00: 32 E8 00 CD 69 14 3A D0 00 B7 C0 2A E2 00 CB AE 2...i.:....*....
004A10: 7E E6 0F C0 CD 30 14 3A D0 00 B7 C0 2A E2 00 3A ~....0.:....*..:
004A20: E8 00 B7 01 80 80 28 03 01 40 00 71 23 23 70 C9 ......(..@.q##p.
004A30: CD 5A 14 2A E2 00 11 0C 00 19 EB 3A E8 00 B7 01 .Z.*.......:....
004A40: 0F 01 28 0A D5 0E 13 CD 05 00 D1 01 16 F1 C5 CD ..(.............
004A50: 05 00 C1 3C C0 78 32 D0 00 C9 2A E2 00 11 18 00 ...<.x2...*.....
004A60: 19 06 18 36 00 23 10 FB C9 22 E2 00 7E E6 0F C0 ...6.#..."..~...
004A70: CB 76 28 0A 3E 1A CD C6 16 CD 0C 17 18 03 CB 7E .v(.>..........~
004A80: C8 2A E2 00 E5 11 0C 00 19 EB 0E 10 CD 05 00 E1 .*..............
004A90: 3C 20 05 3E FF 32 D0 00 36 00 C9 E3 22 E4 00 E3 < .>.2..6..."...
004AA0: E5 21 C2 00 22 E2 00 E1 C9 E3 22 E4 00 E3 22 E2 .!.."....."...".
004AB0: 00 CB 7E C0 3E 02 32 D0 00 C9 E3 22 E4 00 E3 22 ..~.>.2...."..."
004AC0: E2 00 CB 76 C0 3E 03 32 D0 00 C9 3E AF E3 22 E4 ...v.>.2...>..".
004AD0: 00 E3 E5 21 C2 00 22 E2 00 CB AE F5 CD E8 14 F1 ...!..".........
004AE0: B7 28 03 CD E1 01 E1 C9 06 00 21 D1 00 7E FE 7F .(........!..~..
004AF0: 38 02 3E 7E 4F 36 7E 2A D2 00 22 D4 00 16 00 CD 8.>~O6~*..".....
004B00: E5 E5 DD 39 D9 2E 05 D9 3E 08 08 CD C6 0B 38 03 ...9....>.....8.
004B10: CD AC 0B 3F CB 15 08 3D 20 0C DD 75 05 DD 2B D9 ...?...= ..u..+.
004B20: 2D D9 28 0E 3E 08 CD 86 0B 30 DF 08 CD AC 0B B7 -.(.>....0......
004B30: 18 E1 CD 86 0B 38 04 CD C6 0B 3F E1 D1 C1 CB 78 .....8....?....x
004B40: 20 05 CD 87 0B 18 9A 2C 20 97 37 18 95 38 06 C6 ......, .7..8..
004B50: 80 38 06 18 1B C6 80 38 17 6F DD E3 D9 E5 C5 78 .8.....8.o.....x
004B60: CB F8 D9 A8 E6 80 F5 CB F8 DD E5 DD 21 00 00 C9 ............!...
004B70: E1 D8 AF 6F 47 4F 57 5F 67 C9 B7 CB 18 CB 19 CB ...oGOW_g.......
004B80: 1A CB 1B CB 1C C9 B7 CB 14 CB 13 CB 12 CB 11 CB ................
004B90: 10 C9 7C D9 84 D9 67 7B D9 8B D9 5F 7A D9 8A D9 ..|...g{..._z...
004BA0: 57 79 D9 89 D9 4F 78 D9 88 D9 47 C9 7C D9 94 D9 Wy...Ox...G.|...
004BB0: 67 7B D9 9B D9 5F 7A D9 9A D9 57 79 D9 99 D9 4F g{..._z...Wy...O
004BC0: 78 D9 98 D9 47 C9 78 D9 B8 D9 C0 79 D9 B9 D9 C0 x...G.x....y....
004BD0: 7A D9 BA D9 C0 7B D9 BB D9 C0 7C D9 BC D9 C9 D9 z....{....|.....
004BE0: 78 D9 A8 F2 E9 0B 78 17 C9 CB 78 28 06 CD F3 0B x.....x...x(....
004BF0: C8 3F C9 7D D9 BD D9 C0 B7 C8 C3 C6 0B 7D D6 81 .?.}.........}..
004C00: DA 72 0B 3C FE 28 D0 D9 C5 D5 E5 08 CD 72 0B 08 .r.<.(.......r..
004C10: 37 CD 7B 0B 3D 20 F9 D9 7C D9 A4 D9 67 7B D9 A3 7.{.= ..|...g{.£
004C20: D9 5F 7A D9 A2 D9 57 79 D9 A1 D9 4F 78 D9 A0 D9 ._z...Wy...Ox...
004C30: 47 C3 7B 0A D9 C5 D5 E5 D9 CD AC 0F D9 CD FD 0B G.{.............
004C40: D9 CD 81 0A 18 EB 7D B7 C8 CB 78 3E 03 C2 27 20 ......}...x>..'
004C50: CD AC 0F 7D C6 80 CB 2F C6 80 6F D6 14 F5 D9 C5 ...}.../..o.....
004C60: D5 E5 CD F5 0A CD 0D 0A 2D C5 D5 E5 CD 81 0A 7D ........-......}
004C70: E1 D1 C1 D9 E1 D1 C1 E3 BC E3 30 E3 F1 D9 C9 D9 ..........0.....
004C80: CD 8E 0F 2D CD 81 0A D9 CD 8E 0F 2C D9 7D FE 6C ...-.......,.}.l
004C90: D8 C5 CB B8 CD DF 0B C1 38 09 CD F5 0A CD 34 0C ........8.....4.
004CA0: CD 97 0A CB 78 28 03 CD 0D 0A D9 2D D9 CD DF 0B ....x(.....-....
004CB0: F5 38 03 CD 81 0A D9 2D D9 CD DF 0B 38 05 D9 2C .8.....-....8..,
004CC0: CD 81 0A 7D FE 6C 38 3B D9 01 AA 2A 11 AA AA 21 ...}.l8;...*...!
004CD0: 7F AA CD 97 0A DD E5 DD 21 07 0D 3E 05 CD 34 0F ........!..>..4.
004CE0: DD E1 CD AC 0F CD 97 0A CD 97 0A C5 D5 E5 D9 CD ................
004CF0: AC 0F 2D 2D D9 2D CD 0D 0A D9 E1 D1 C1 D9 CD 81 ..--.-..........
004D00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
004D10: 04 00 01 00 02 09 4E E5 04 00 41 02 00 00 00 02 ......N...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: E1 03 77 1E 01 FE 08 28 36 FE 7F 28 32 1D FE 18 ..w....(6..(2...
004E10: 28 2D FE 1B 28 29 FE 1A 28 36 FE 0D 28 38 FE 20 (-..()..(6..(8.
004E20: 30 11 FE 03 20 D9 3A DD 00 B7 28 D3 DD 2A E4 00 0... .:...(..*..
004E30: C3 16 20 79 BA 28 C8 7E 14 23 CD C9 03 18 C0 15 .. y.(.~.#......
004E40: FA FD 14 2B CD 00 02 08 20 08 00 1D 28 B1 18 EF ...+.... ...(...
004E50: 04 05 28 AB 18 04 04 05 20 04 36 1A 18 08 CD E1 ..(..... .6.....
004E60: 01 36 0D 23 36 0A 23 22 D6 00 C9 2A E2 00 3A D0 .6.#6.#"...*..:.
004E70: 00 B7 20 79 7E CB 6F 20 70 E6 0F 20 2E 23 23 7E .. y~.o p.. .##~
004E80: B7 F2 97 15 0E 14 E5 CD BA 19 E1 28 08 E5 11 2E ...........(....
004E90: 00 19 36 1A E1 AF 77 34 C6 2E 5F 16 00 19 7E FE ..6...w4.._...~.
004EA0: 1A 20 3D 2A E2 00 23 23 35 18 35 3D 20 1B 2A D4 . =*..##5.5= .*.
004EB0: 00 ED 5B D6 00 B7 ED 52 38 05 06 FF CD EA 14 2A ..[....R8......*
004EC0: D4 00 7E 23 22 D4 00 18 17 3D 20 06 CD A3 00 7D ..~#"....= ..£.}
004ED0: 18 0E 3D 3D 20 06 CD AF 00 7D 18 04 CD B5 00 7D ..== ....}.....}
004EE0: 2A E2 00 CB EE 23 77 2B C9 23 7E 2B C9 3E 1A C9 *....#w+.#~+.>..
004EF0: E5 2A E2 00 7E E6 0F FE 06 28 27 CD 6B 15 FE 21 .*..~....('.k..!
004F00: 30 08 FE 1A 28 04 CB AE 18 F1 11 5D 00 06 1E C5 0...(......]....
004F10: D5 CD 6B 15 D1 C1 FE 21 38 06 CB AE 12 13 10 EF ..k....!8.......
004F20: AF 12 E1 C9 DD 21 5D 00 DD 7E 00 B7 C8 06 00 FE .....!]..~......
004F30: 2D C0 04 DD 23 C9 38 05 DD 7E 00 B7 C8 3E 10 32 -...#.8..~...>.2
004F40: D0 00 37 C9 E5 CD 6B 15 CB AE E1 77 C9 3E AF 4F ..7...k....w.>.O
004F50: C5 CD F0 15 C1 CD 24 16 C8 C5 E5 CD F7 07 D1 C1 ......$.........
004F60: CD 36 16 D8 05 CC 83 07 EB 73 0C 0D 20 02 23 72 .6.......s.. .#r
004F70: EB C9 CD F0 15 CD 24 16 C8 C5 E5 CD A3 11 D9 E1 ......$.....£...
004F80: C1 CD 36 16 D8 05 D9 CC 8F 0A D9 C3 D1 05 E5 EB ..6.............
004F90: 0E 00 C5 D5 CD 6B 15 D1 C1 FE 0D 28 0B FE 1A 28 .....k.....(...(
004FA0: 07 CB AE 0C 13 12 10 EA E1 71 C9 CD 6B 15 FE 1A .........q..k...
004FB0: 28 13 CB AE FE 0A 28 0D FE 0D 20 EF CD 6B 15 FE (.....(... ..k..
004FC0: 0A 20 02 CB AE C9 2A E2 00 4F 3A D0 00 B7 C0 7E . ....*..O:....~
004FD0: E6 0F 20 10 23 23 E5 7E C6 2E 5F 16 00 19 71 E1 .. .##.~.._...q.
004FE0: 34 F0 18 28 FE 06 28 15 E1 06 00 C5 E5 3D CA A6 4..(..(......=..
004FF0: 00 3D 3D CA A9 00 3D CA AC 00 C3 B2 00 2A E8 00 .==...=......*..
005000: 00 21 46 1F 22 E2 00 E1 22 E4 00 E1 22 EA 00 21 .!F."..."..."..!
005010: 5C 00 06 1E CD E2 05 AF 12 2A EA 00 3A EC 00 B7 \........*..:...
005020: 20 05 CD 4E 16 18 03 CD 72 16 21 D0 00 7E 36 00 ..N....r.!..~6.
005030: B7 67 6F 28 08 DD E5 E1 11 5C 00 ED 52 EB 2A E8 .go(.....\..R.*.
005040: 00 73 23 72 18 A3 C6 00 ED 5F 32 CB 00 C9 EB DD .s#r.£..._2.....
005050: E1 C1 E1 78 B1 28 0B 73 0B 78 B1 28 05 54 5D 13 ...x.(.s.x.(.T].
005060: ED B0 DD E9 44 4D DD E1 D1 E1 78 B1 28 F4 ED 52 ....DM....x.(..R
005070: 19 30 ED 0B 09 EB 09 EB 03 ED B8 DD E9 55 14 15 .0...........U..
005080: 28 03 CD 9D 1F DD E1 4F 06 00 2F 6F 26 FF 39 F9 (......O../o&.9.
005090: 71 23 EB 0C 0D 28 02 ED B0 DD E9 16 00 21 80 00 q#...(.......!..
0050A0: 3E 1F 46 B8 30 02 06 1F 23 0E 00 04 05 28 0D 7E >.F.0...#....(.~
0050B0: FE 20 28 04 FE 09 20 04 23 05 18 EF 5D 04 05 28 . (... .#...]..(
0050C0: 0D 7E FE 20 28 08 FE 09 28 04 23 05 18 EF 7D 93 .~. (...(.#...}.
0050D0: 28 04 0C 15 20 D5 69 26 00 54 C9 D1 C1 D5 2D 61 (... .i&.T....-a
0050E0: 25 C3 A2 02 7D CD A6 04 6F C9 2A 01 00 19 19 19 %...}...o.*.....
0050F0: E9 21 D0 00 7E 36 00 6F 26 00 C9 CD 16 03 7C B5 .!..~6.o&.....|.
005100: C8 3A DD 00 F5 AF 32 DD 00 CD 20 03 F1 32 DD 00 .:....2... ..2..
005110: 7D FE 03 C0 DD E1 11 01 00 18 11 3A D0 00 B7 C8 }..........:....
005120: DD E1 5F 16 01 18 05 DD E1 5F 16 02 D5 CD 7A 03 .._......_....z.
005130: D1 AF 32 DD 00 2A CE 00 7C B5 DD E5 E1 ED 4B CC ..2..*..|.....K.
005140: 00 ED 42 01 15 00 09 22 CE 00 B7 20 07 D5 D5 E5 ..B...."... ....
005150: CD D9 00 D1 7A B7 20 14 CD 00 02 5E 43 0D 0A 55 ....z. ....^C..U
005160: 73 65 72 20 62 72 65 61 6B 00 18 2B 3D 20 0B CD ser break..+= ..
005170: 00 02 0D 0A 49 2F 4F 00 18 0E CD 00 02 0D 0A 52 ....I/O........R
005180: 75 6E 2D 74 69 6D 65 00 CD 00 02 20 65 72 72 6F un-time.... erro
005190: 72 20 00 7B CD B4 04 CD 00 02 2C 20 50 43 3D 00 r .{......, PC=.
0051A0: 2A CE 00 CD AF 04 18 15 CD 00 02 4E 6F 74 20 65 *..........Not e
0051B0: 6E 6F 75 67 68 20 6D 65 6D 6F 72 79 00 CD 00 02 nough memory....
0051C0: 0D 0A 50 72 6F 67 72 61 6D 20 61 62 6F 72 74 65 ..Program aborte
0051D0: 64 0D 0A 00 3A D8 00 B7 CA 8E 27 C3 00 00 E1 D1 d...:.....'.....
0051E0: D1 E9 C3 5E 21 2A 06 00 C1 F9 C5 11 00 FC 19 22 ...^!*........."
0051F0: 48 45 21 D7 7A 01 00 00 CD 64 03 CD 0A 03 CD 6B HE!.z....d.....k
005200: 3A EA 00 BE C8 34 5E 16 00 19 71 C9 2A E2 00 23 :....4^...q.*..#
005210: 23 7E B7 C8 36 00 0E 15 CD BA 19 C8 3E F0 32 D0 #~..6.......>.2.
005220: 00 C9 7D C3 C6 16 C1 D1 C5 DD 2A D2 00 CB 7C 28 ..}.......*...|(
005230: 06 CD 83 07 EB 18 0E EB CB 7C 28 09 CD 83 07 DD .........|(.....
005240: 36 00 2D DD 23 D5 CD C6 07 E1 CD C8 04 ED 5B D2 6.-.#.........[.
005250: 00 DD E5 E1 B7 ED 52 4D EB 91 38 0E 28 0C 47 E5 ......RM..8.(.G.
005260: 3E 20 C5 CD C6 16 C1 10 F7 E1 41 04 05 C8 7E C5 > ........A...~.
005270: E5 CD C6 16 E1 C1 23 18 F3 C1 D1 D9 E1 D1 C1 D9 ......#.........
005280: C5 DD 2A D2 00 D5 CD 27 10 18 BE C1 D1 C5 CD C8 ..*....'........
005290: 04 CB 43 21 A1 17 0E 04 20 BF 21 A5 17 0E 05 18 ..C!.... .!.....
0052A0: B8 54 52 55 45 46 41 4C 53 45 CD C8 04 21 02 00 .TRUEFALSE...!..
0052B0: 39 4E 23 CD 59 17 D1 F9 D5 C9 E1 7E 23 B7 28 0C 9N#.Y......~#.(.
0052C0: 47 7E C5 E5 CD C6 16 E1 C1 23 10 F5 E9 3E 0D CD G~.......#...>..
0052D0: C6 16 3E 0A C3 C6 16 11 0D 01 18 0D 11 0D 00 18 ..>.............
0052E0: 08 11 1A 01 18 03 11 1A 00 22 E2 00 CB 7E 28 1C ........."...~(.
0052F0: D5 CD 6B 15 D1 BB 28 10 FE 1A 28 0C FE 21 30 0C ..k...(...(..!0.
005300: 14 15 28 08 CB AE 18 E8 21 01 00 C9 21 00 00 C9 ..(.....!...!...
005310: 3E AF 32 E8 00 ED 53 E6 00 CD 7A 18 3A D0 00 B7 >.2...S...z.:...
005320: C0 CD 30 14 3A D0 00 B7 C0 2A E2 00 36 D0 23 23 ..0.:....*..6.##
005330: 77 11 06 00 19 77 23 77 11 24 00 19 77 23 77 11 w....w#w.$..w#w.
005340: D6 FF 19 3A E8 00 B7 20 1B E5 01 04 00 AF CD 09 ...:... ........
005350: 19 E1 23 23 4E 23 46 2A E6 00 B7 ED 42 C8 3E 90 ..##N#F*....B.>.
005360: 32 D0 00 C9 E5 AF 77 23 77 23 ED 5B E6 00 73 23 2.....w#w#.[..s#
005370: 72 E1 01 04 00 3E 03 C3 09 19 22 E2 00 7E E6 C0 r....>...."..~..
005380: C8 CD AE 19 2A E2 00 11 2D 00 19 AF 77 23 77 11 ....*...-...w#w.
005390: D4 FF 19 77 23 23 01 04 00 3E 01 CD 09 19 CD AE ...w##...>......
0053A0: 19 C3 81 14 E3 22 E4 00 E3 22 E2 00 7E E6 C0 C0 ....."..."..~...
0053B0: 3E 04 32 D0 00 C9 3A D0 00 B7 C0 E5 CD 5A 1A EB >.2...:......Z..
0053C0: B7 ED 52 E1 30 10 AF CD 09 19 2A E2 00 11 08 00 ..R.0.....*.....
0053D0: 19 34 C0 23 34 C9 3E 99 32 D0 00 C9 3A D0 00 B7 .4.#4.>.2...:...
0053E0: C0 E5 CD 5A 1A B7 ED 52 3E 01 20 10 2A E2 00 11 ...Z...R>. .*...
0053F0: 04 00 19 34 20 04 23 34 28 08 3E 03 E1 CD 09 19 ...4 .#4(.>.....
005400: 02 C3 84 02 CD E5 20 3A 42 45 F5 3A 41 45 B7 C4 ...... :BE.:AE..
005410: A4 2D CD 8F 2D CD 4B 2D C4 06 25 3A F3 44 3D 28 .-..-.K-..%:.D=(
005420: 04 F1 32 42 45 C3 3B 22 CD 00 02 2D 2D 2D 2D 2D ..2BE.;"...-----
005430: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
005440: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
005450: 2D 2D 0D 0A 00 C9 CD 00 02 20 00 10 F9 C9 2A 06 --....... ....*.
005460: 00 01 3C FD 09 22 F6 44 0E 19 CD 05 00 3C 32 F8 ..<..".D.....<2.
005470: 44 CD E5 20 CD 3E 02 CD 28 21 CD 00 02 54 55 52 D.. .>..(!...TUR
005480: 42 4F 20 50 61 73 63 61 6C 20 73 79 73 74 65 6D BO Pascal system
005490: 00 CD 6B 02 06 07 CD 56 21 CD 00 02 56 65 72 73 ..k....V!...Vers
0054A0: 69 6F 6E 20 33 2E 30 30 41 0D 0A 00 06 1B CD 56 ion 3.00A......V
0054B0: 21 CD 00 02 43 50 2F 4D 2D 38 30 2C 20 5A 38 30 !...CP/M-80, Z80
0054C0: 0D 0A 0D 0A 43 6F 70 79 72 69 67 68 74 20 28 43 ....Copyright (C
0054D0: 29 20 31 39 38 33 2C 38 34 2C 38 35 20 20 20 00 ) 1983,84,85 .
0054E0: CD 84 02 CD 00 02 42 4F 52 4C 41 4E 44 20 49 6E ......BORLAND In
0054F0: 63 2E 0D 0A 00 CD 28 21 CD 00 02 0A 54 65 72 6D c.....(!....Term
005500: 69 6E 61 6C 3A 20 00 21 53 01 CD D0 01 CD 00 02 inal: .!S.......
005510: 0D 0A 0A 0A 0A 49 6E 63 6C 75 64 65 20 65 72 72 .....Include err
005520: 6F 72 20 6D 65 73 73 61 67 65 73 00 CD 21 2D 32 or messages..!-2
005530: 41 45 C4 A4 2D CD 8F 2D CD 7A 22 ED 7B 06 00 21 AE..-..-.z".{..!
005540: 3B 22 E5 CD FA 01 8D 8A BE 00 CD E1 03 CD A6 04 ;"..............
005550: CD E1 01 21 60 24 11 72 24 06 0B CD 50 24 38 1A ...!`$.r$...P$8.
005560: E9 CD 00 02 3A 20 00 CD E8 14 CD E1 01 11 D7 7A ....: .........z
005570: 1A FE 1A C8 FE 20 C0 13 18 F6 CD 3E 02 CD FA 01 ..... .....>....
005580: CC 6F 67 67 65 64 20 64 72 69 76 65 3A A0 00 0E .ogged drive:...
005590: 19 CD 05 00 C6 41 CD C9 03 CD FA 01 8D 8A 8A D7 .....A..........
0055A0: 6F 72 6B 20 66 69 6C 65 3A A0 00 CD 35 31 CD FA ork file:...51..
0055B0: 01 8D 8A CD 61 69 6E 20 66 69 6C 65 3A A0 00 11 ....ain file:...
0055C0: F9 44 CD F8 2D CD FA 01 8D 8A 8A C5 64 69 74 20 .D..-.......dit
0055D0: 20 20 20 20 C3 6F 6D 70 69 6C 65 20 20 D2 75 6E .ompile .un
0055E0: 20 20 20 D3 61 76 65 0D 0A 0A 65 D8 65 63 75 74 .ave...e.ecut
0055F0: 65 20 20 C4 69 72 20 20 20 20 20 20 D1 75 69 74 e .ir .uit
005600: 18 C8 E1 3E F2 32 D0 00 C9 32 E9 00 EB 2A E2 00 ...>.2...2...*..
005610: CB 66 28 2F CB A6 3A E9 00 CB 47 28 18 23 23 7E .f(/..:...G(.##~
005620: 2B 2B B7 20 10 3A E9 00 CB 4F 20 17 78 B7 20 13 ++. .:...O .x. .
005630: 79 B7 FA 43 19 C5 D5 0E 21 CD BA 19 D1 C1 20 51 y..C....!..... Q
005640: 2A E2 00 3A E9 00 CB 47 28 02 CB EE 23 23 7E C6 *..:...G(...##~.
005650: 2E D5 5F 16 00 19 D1 D6 2E CD 9A 19 ED A0 E2 66 .._............f
005660: 19 3C F2 5C 19 3D 3C CD 9A 19 2A E2 00 23 23 E6 .<.\.=<...*..##.
005670: 7F 77 20 16 C5 D5 E5 CD AE 19 E1 D1 C1 20 15 D5 .w .......... ..
005680: 11 2B 00 19 D1 34 20 02 23 34 78 B1 C2 0D 19 EB .+...4 .#4x.....
005690: C9 3E 99 01 3E F0 32 D0 00 C9 F5 3A E9 00 CB 47 .>..>.2....:...G
0056A0: 28 01 EB F1 C9 22 E2 00 CD AE 19 C8 18 E6 0E 22 (...."........."
0056B0: 2A E2 00 CB E6 CB 6E C8 CB AE 2A E2 00 E5 C5 11 *.....n...*.....
0056C0: 30 00 19 EB 0E 1A CD 05 00 C1 E1 11 0C 00 19 EB 0...............
0056D0: CD 05 00 B7 C9 C1 D1 ED 53 E2 00 C5 E5 CD 5A 1A ........S.....Z.
0056E0: D1 B7 ED 52 38 40 2A E2 00 01 06 00 09 4E 23 46 ...R8@*......N#F
0056F0: 23 73 23 72 CD 2C 1A 01 04 00 09 30 01 13 7D E6 #s#r.,.....0..}.
005700: 7F 29 EB ED 6A EB 53 5C 2A E2 00 23 23 77 01 2B .)..j.S\*..##w.+
005710: 00 09 4E 23 46 EB B7 ED 42 09 C8 D5 E5 CD AE 19 ..N#F...B.......
005720: D1 E1 72 2B 73 C9 3E 91 32 D0 00 C9 D5 D9 E1 D9 ..r+s.>.2.......
005730: 21 00 00 54 5D 3E 10 29 EB ED 6A EB D9 29 D9 30 !..T]>.)..j..).0
005740: 04 09 30 01 13 3D 20 EF C9 CD 5D 1A B7 ED 52 21 ..0..= ...]...R!
005750: 00 00 C0 23 C9 CD 5D 1A EB C9 2A E2 00 11 04 00 ...#..]...*.....
005760: 19 5E 23 56 23 D5 4E 23 46 23 5E 23 56 E1 C9 3E .^#V#.N#F#^#V..>
005770: AF 32 E8 00 CD B0 1A 3A D0 00 B7 C0 CD 30 14 3A .2.....:.....0.:
005780: D0 00 B7 C0 2A E2 00 36 C0 E5 11 0C 00 19 EB 0E ....*..6........
005790: 23 CD 05 00 E1 11 2D 00 19 AF 4E 77 23 46 77 11 #.....-...Nw#Fw.
0057A0: D6 FF 19 71 23 70 23 36 80 23 77 23 77 23 77 C9 ...q#p#6.#w#w#w.
0057B0: 22 E2 00 7E E6 C0 C8 C3 81 14 3E 22 18 02 3E 21 "..~......>"..>!
0057C0: 44 4D 21 F0 00 22 E6 00 DD E1 D1 E1 DD E5 C5 CD DM!.."..........
0057D0: FD 1A C1 3A D0 00 B7 C0 2A F0 00 ED 42 C8 3A E9 ...:....*...B.:.
0057E0: 00 FE 21 3E 99 28 02 3E F0 32 D0 00 C9 3E 22 18 ..!>.(.>.2...>".
0057F0: 02 3E 21 22 E6 00 DD E1 C1 D1 E1 DD E5 32 E9 00 .>!".........2..
005800: 20 20 63 6F 6D 70 69 6C 65 72 20 CF 70 74 69 6F compiler .ptio
005810: 6E 73 0D 0A 0A 54 65 78 74 3A 20 00 ED 5B 44 45 ns...Text: ..[DE
005820: 2A 46 45 2B CD 38 23 ED 5B 46 45 2A 48 45 CD 00 *FE+.8#.[FE*HE..
005830: 02 46 72 65 65 3A 20 00 E5 D5 B7 ED 52 CD 5C 2E .Free: .....R.\.
005840: CD 00 02 20 62 79 74 65 73 20 28 00 E1 CD AF 04 ... bytes (.....
005850: 3E 2D CD C9 03 E1 CD AF 04 3E 29 CD C9 03 C3 E1 >-.......>).....
005860: 01 3D 20 10 CD FA 01 63 6F 6D 70 69 6C 65 20 2D .= ....compile -
005870: 3E 20 00 C9 06 0B C3 56 21 21 79 23 E5 CD 3E 02 > .....V!!y#..>.
005880: 3A F3 44 CD 61 23 CD FA 01 CD 65 6D 6F 72 79 0D :.D.a#....emory.
005890: 0A 00 CD 61 23 CD FA 01 C3 6F 6D 2D 66 69 6C 65 ...a#....om-file
0058A0: 0D 0A 00 CD 61 23 CD FA 01 63 C8 6E 2D 66 69 6C ....a#...c.n-fil
0058B0: 65 0D 0A 0A 00 3A F3 44 FE 01 28 5D CD FA 01 D3 e....:.D..(]....
0058C0: 74 61 72 74 20 61 64 64 72 65 73 73 3A A0 00 2A tart address:..*
0058D0: F4 44 CD AF 04 CD FA 01 20 28 6D 69 6E 20 00 21 .D...... (min .!
0058E0: E2 20 CD AF 04 CD FA 01 29 0D 0A C5 6E 64 20 20 . ......)...nd
0058F0: 20 61 64 64 72 65 73 73 3A A0 00 2A F6 44 CD AF address:..*.D..
005900: 04 CD FA 01 20 28 6D 61 78 20 00 2A 06 00 CD AF .... (max .*....
005910: 04 CD FA 01 29 0D 0A 0A 00 CD FA 01 C6 69 6E 64 ....)........ind
005920: 20 72 75 6E 2D 74 69 6D 65 20 65 72 72 6F 72 20 run-time error
005930: 20 D1 75 69 74 0D 0A 0A BE 00 CD E1 03 CD A6 04 .uit...........
005940: CD E1 01 21 6B 24 11 88 24 06 07 CD 50 24 D8 E9 ...!k$..$...P$..
005950: BE 28 07 23 13 13 10 F8 37 C9 EB 5E 23 56 EB C9 .(.#....7..^#V..
005960: 4C 57 4D 45 43 52 53 58 44 51 4F 4D 43 48 53 45 LWMECRSXDQOMCHSE
005970: 46 51 CE 2C C9 24 9A 24 F8 2A 27 28 97 2A 39 26 FQ.,.$.$.*'(.*9&
005980: 2D 2B 93 2B 24 2B 79 23 40 27 44 27 48 27 50 27 -+.+$+y#@'D'H'P'
005990: 6E 27 9B 27 96 24 E1 C3 7A 22 CD 00 02 0D 0A 4D n'.'.$..z".....M
0059A0: 61 69 6E 20 66 69 6C 65 20 6E 61 6D 65 00 CD 9F ain file name...
0059B0: 2D CD 61 22 3E 00 32 FA 44 C8 CD 2A 2D 11 F9 44 -.a">.2.D..*-..D
0059C0: 21 5C 00 01 24 00 ED B0 C9 21 BC 25 22 9E 25 CD !\..$....!.%".%.
0059D0: 01 26 CD 00 02 0D 0A 57 6F 72 6B 20 66 69 6C 65 .&.....Work file
0059E0: 20 6E 61 6D 65 00 CD 61 22 3E 00 32 1E 45 20 06 name..a">.2.E .
0059F0: CD 8F 2D C3 3B 22 CD 2A 2D 11 1D 45 21 5C 00 01 ..-.;".*-..E!\..
005A00: 22 E2 00 7E E6 C0 CA B0 18 2A E6 00 AF 77 23 77 "..~.....*...w#w
005A10: 78 B1 28 39 C5 D5 0E 1A CD 05 00 2A E2 00 11 0C x.(9.......*....
005A20: 00 19 EB 3A E9 00 4F CD 05 00 D1 C1 B7 20 1E D5 ...:..O...... ..
005A30: 2A E2 00 11 2D 00 19 34 20 02 23 34 D1 21 80 00 *...-..4 .#4.!..
005A40: 19 EB 2A E6 00 34 20 02 23 34 0B 18 C3 2A E2 00 ..*..4 .#4...*..
005A50: 11 2D 00 19 4E 23 46 11 DA FF 19 71 23 70 11 FC .-..N#F....q#p..
005A60: FF 19 56 2B 5E EB B7 ED 42 D0 EB 71 23 70 C9 C1 ..V+^...B..q#p..
005A70: D1 ED 53 E2 00 C5 E5 CD 5A 1A D1 B7 ED 52 DA 26 ..S.....Z....R.&
005A80: 1A 2A E2 00 01 08 00 09 73 23 72 01 24 00 09 73 .*......s#r.$..s
005A90: 23 72 C9 CD 4C 1C C0 11 0C 00 19 EB 0E 13 CD 05 #r..L...........
005AA0: 00 3C C0 18 3F FD E1 2A D2 00 06 10 CD E2 05 AF .<..?..*........
005AB0: 12 E1 FD E5 CD 4C 1C C0 E5 CD F2 03 E1 E5 11 1C .....L..........
005AC0: 00 19 EB 21 5C 00 01 0C 00 ED B0 E1 11 0C 00 19 ...!\...........
005AD0: E5 EB 0E 17 CD 05 00 D1 3C 28 09 21 5C 00 01 24 ........<(.!\..$
005AE0: 00 ED B0 C9 3E 01 32 D0 00 C9 3E AF 32 E8 00 CD ....>.2...>.2...
005AF0: 4C 1C C0 3A D8 00 B7 3E 21 28 EB 2A E2 00 11 0C L..:...>!(.*....
005B00: 00 19 11 5C 00 01 24 00 ED B0 11 5C 00 0E 0F CD ...\..$....\....
005B10: 05 00 3C 28 CF 21 33 1C 11 B0 00 01 19 00 ED B0 ..<(.!3.........
005B20: 11 00 01 3A E8 00 B7 20 04 ED 5B 01 01 31 00 01 ...:... ..[..1..
005B30: C3 B0 00 D5 0E 1A CD 05 00 11 5C 00 0E 14 CD 05 ..........\.....
005B40: 00 D1 21 80 00 19 EB B7 28 E9 18 37 22 E2 00 7E ..!.....(..7"..~
005B50: E6 0F C8 3E 20 32 D0 00 C9 22 E6 00 ED 53 E8 00 ...> 2..."...S..
005B60: EB E1 22 E2 00 4E 73 23 46 72 EB B7 ED 42 28 5A .."..Ns#Fr...B(Z
005B70: EB 23 11 5C 00 3A DC 00 12 13 01 0B 00 ED B0 06 .#.\.:..........
005B80: 18 AF 12 13 10 FC E5 11 5C 00 0E 0F CD 05 00 D1 ........\.......
005B90: 3C 28 3F 2A E6 00 22 7D 00 ED 4B E8 00 C5 D5 0E <(?*.."}..K.....
005BA0: 1A CD 05 00 11 5C 00 0E 21 CD 05 00 D1 C1 B7 20 .....\..!......
005BB0: 21 2A 7D 00 23 22 7D 00 21 80 00 19 EB 0B 78 B1 !*}.#"}.!.....x.
005BC0: 20 DB 11 5C 00 0E 10 CD 05 00 2A E2 00 11 0D 00 ..\......*.....
005BD0: 19 E9 DD 2A E2 00 3E F0 C3 29 20 CD C8 04 FE 11 ...*..>..) .....
005BE0: D0 32 DC 00 C9 22 F0 00 EB E1 E3 22 F2 00 13 13 .2..."....."....
005BF0: 13 7B E6 FC 5F 21 DE 00 22 F8 00 DD 2A DE 00 DD .{.._!.."...*...
005C00: 24 00 ED B0 18 06 21 B7 25 22 9E 25 21 EB 25 22 $.....!.%".%!.%"
005C10: 7D 25 CD 8F 2D 11 1D 45 2A 44 45 22 60 44 22 62 }%..-..E*DE"`D"b
005C20: 44 22 50 44 22 54 44 22 58 44 22 6A 44 ED 4B 48 D"PD"TD"XD"jD.KH
005C30: 45 CD 3B 25 36 0D 23 22 46 45 C9 E5 C5 D5 CD 00 E.;%6.#"FE......
005C40: 02 0D 0A 4C 6F 61 64 69 6E 67 20 00 CD F8 2D 11 ...Loading ...-.
005C50: 5C 00 CD DC 26 E1 01 24 00 ED B0 0E 0F CD D3 26 \...&..$.......&
005C60: F5 11 57 79 0E 1A CD 65 72 F1 C1 E1 3C 28 2E ED ..Wy...er...<(..
005C70: 43 6D 7B ED 4B 6D 7B 05 B7 ED 42 09 D2 D2 04 E5 Cm{.Km{...B.....
005C80: 0E 14 CD D3 26 E1 B7 C0 11 57 79 06 80 1A FE FF ....&....Wy.....
005C90: C8 E6 7F FE 1A C8 77 23 13 10 F2 18 D6 C3 D2 04 ......w#........
005CA0: CD 00 02 0D 0A 46 69 6C 65 20 6E 6F 74 20 66 6F .....File not fo
005CB0: 75 6E 64 00 C3 76 2E CD A0 25 18 32 CD 00 02 0D und..v...%.2....
005CC0: 0A 4E 65 77 20 46 69 6C 65 00 23 E5 21 E8 03 CD .New File.#.!...
005CD0: 1D 02 E1 C9 2A 46 45 CD 00 02 0D 0A 46 69 6C 65 ....*FE.....File
005CE0: 20 74 6F 6F 20 62 69 67 00 18 C9 CD D4 25 AF 32 too big.....%.2
005CF0: 1E 45 C3 3B 22 21 65 00 36 42 23 36 41 23 36 4B .E.;"!e.6B#6A#6K
005D00: C9 3E AF 08 3A 7F 44 B7 C8 08 B7 28 2C CD 00 02 .>..:.D....(,...
005D10: 57 6F 72 6B 66 69 6C 65 20 00 CD 35 31 CD 00 02 Workfile ..51...
005D20: 20 6E 6F 74 20 73 61 76 65 64 2E 20 53 61 76 65 not saved. Save
005D30: 00 AF 32 7F 44 CD 21 2D C8 CD 50 2D 21 1D 45 E5 ..2.D.!-..P-!.E.
005D40: 11 5C 00 01 24 00 ED B0 CD 00 02 0D 0A 53 61 76 .\..$........Sav
005D50: 69 6E 67 20 00 11 5C 00 CD F8 2D 2A 46 45 2B 36 ing ..\...-*FE+6
005D60: 1A CD F5 25 CD D9 26 0E 13 CD 65 72 21 5D 00 11 ...%..&...er!]..
005D70: 6C 00 AF 32 7F 44 12 3C 32 F2 44 13 01 0F 00 ED l..2.D.<2.D.....
005D80: B0 E1 11 5C 00 01 10 00 ED B0 0E 17 CD D3 26 2A ...\..........&*
005D90: 44 45 E5 CD D9 26 0E 16 CD 65 72 E1 3C 28 4E E5 DE...&...er.<(N.
005DA0: 11 57 79 D5 0E 1A CD 65 72 D1 E1 06 80 7E 23 12 .Wy....er....~#.
005DB0: 13 10 13 47 C5 E5 0E 15 CD D3 26 E1 C1 B7 20 3E ...G......&... >
005DC0: 11 57 79 78 06 80 FE 1A 20 E3 78 D6 80 3E 1A 20 .Wyx.... .x..>.
005DD0: DE 0E 10 11 5C 00 C3 65 72 11 5C 00 D5 21 0C 00 ....\..er.\..!..
005DE0: 19 36 00 54 5D 13 01 17 00 ED B0 D1 C9 CD 00 02 .6.T]...........
005DF0: 20 20 44 69 72 65 63 74 6F 72 79 00 18 0A CD 00 Directory.....
005E00: 6E 02 DD 66 03 7D B4 28 48 ED 52 30 0F DD 6E 00 n..f.}.(H.R0..n.
005E10: DD 66 01 E5 DD 22 F8 00 DD E1 18 E3 20 0A DD 5E .f..."...... ..^
005E20: 00 DD 56 01 DD E5 18 1B 4D 44 DD 6E 00 DD 66 01 ..V.....MD.n..f.
005E30: DD E5 DD 19 DD 75 00 DD 74 01 DD 71 02 DD 70 03 .....u..t..q..p.
005E40: DD E5 D1 2A F8 00 73 23 72 D1 2A F2 00 73 23 72 ...*..s#r.*..s#r
005E50: C9 DD E5 E1 19 22 C4 00 2A F0 00 01 04 00 09 DD ....."..*.......
005E60: E5 C1 09 DA 75 1D ED 4B C6 00 ED 42 01 00 00 21 ....u..K...B...!
005E70: 00 00 DA 30 1D 3E FF C3 27 20 EB E1 E3 7E 23 66 ...0.>..' ...~#f
005E80: 6F 13 13 13 7B E6 FC 5F EB 22 F0 00 2A DE 00 E5 o...{.._."..*...
005E90: DD E1 B7 ED 52 30 52 DD 6E 00 DD 66 01 E5 B7 ED ....R0R.n..f....
005EA0: 52 30 04 DD E1 18 F0 E1 D5 FD E1 ED 4B F0 00 FD R0..........K...
005EB0: 71 02 FD 70 03 FD 75 00 FD 74 01 DD 73 00 DD 72 q..p..u..t..s..r
005EC0: 01 DD E5 E1 DD 4E 02 DD 46 03 CD 04 1E 28 09 DD .....N..F....(..
005ED0: 5E 00 DD 56 01 D5 DD E1 DD E5 E1 DD 4E 02 DD 46 ^..V........N..F
005EE0: 03 DD 5E 00 DD 56 01 18 1B 2A DE 00 ED 53 DE 00 ..^..V...*...S..
005EF0: D5 DD E1 DD 75 00 DD 74 01 ED 4B F0 00 DD 71 02 ....u..t..K...q.
005F00: DD 70 03 EB 09 B7 ED 52 C0 D5 FD E1 2A C4 00 B7 .p.....R....*...
005F10: ED 52 28 1B FD 7E 00 DD 77 00 FD 7E 01 DD 77 01 .R(..~..w..~..w.
005F20: FD 6E 02 FD 66 03 09 DD 75 02 DD 74 03 AF C9 DD .n..f...u..t....
005F30: E5 E1 22 C4 00 06 04 36 00 23 10 FB C9 CD 4B 1E .."....6.#....K.
005F40: 2A F4 00 C9 CD 4B 1E 2A F6 00 C9 21 00 00 22 F4 *....K.*...!..".
005F50: 00 22 F6 00 DD 2A DE 00 DD 4E 02 DD 46 03 79 B0 ."...*...N..F.y.
005F60: 28 1E 2A F4 00 09 22 F4 00 2A F6 00 B7 ED 42 30 (.*..."..*....B0
005F70: 04 ED 43 F6 00 DD 6E 00 DD 66 01 E5 DD E1 18 D8 ..C...n..f......
005F80: 2A C6 00 01 FB FF 09 ED 5B C4 00 B7 ED 52 D8 EB *.......[....R..
005F90: 2A F4 00 19 22 F4 00 2A F6 00 B7 ED 52 D0 ED 53 *..."..*....R..S
005FA0: F6 00 C9 ED 5B C4 00 73 23 72 C9 5E 23 56 EB 22 ....[..s#r.^#V."
005FB0: C4 00 22 DE 00 06 04 36 00 23 10 FB C9 3E AF 4F .."....6.#...>.O
005FC0: 22 E8 00 AF 77 32 D0 00 78 32 EA 00 2A E2 00 22 "...w2..x2..*.."
005FD0: ED 00 21 46 1F 22 E2 00 E1 22 E4 00 E1 0C 0D 20 ..!F."...".....
005FE0: 05 CD 26 17 18 03 CD 79 17 2A ED 00 22 E2 00 2A ..&....y.*.."..*
005FF0: E4 00 E9 3E AF 32 EC 00 22 E8 00 2A E2 00 22 ED ...>.2.."..*..".
006000: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
006010: 05 00 01 00 02 09 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: 02 20 20 44 69 73 6B 00 CD 00 02 20 66 75 6C 6C . Disk.... full
006110: 00 CD 76 2E CD D9 26 0E 13 CD D3 26 3A F2 44 B7 ..v...&....&:.D.
006120: C8 32 7F 44 21 5D 00 11 6C 00 AF 32 F2 44 12 13 .2.D!]..l..2.D..
006130: 01 0F 00 ED B0 CD F5 25 0E 17 CD D3 26 C3 3B 22 .......%....&.;"
006140: 3E 01 18 06 3E 02 18 02 3E 03 32 F3 44 C3 9F 2D >...>...>.2.D..-
006150: CD 00 02 53 74 61 72 74 20 61 64 64 72 65 73 73 ...Start address
006160: 00 CD 61 22 21 E2 20 C4 D9 2D 22 F4 44 C9 CD 00 ..a"!. ..-".D...
006170: 02 45 6E 64 20 61 64 64 72 65 73 73 00 CD 61 22 .End address..a"
006180: 2A 06 00 01 3C FD 09 C4 D9 2D 22 F6 44 C9 CD E5 *...<....-".D...
006190: 20 2A CE 00 7C B5 20 19 C3 3B 22 CD 00 02 45 6E *..|. ..;"...En
0061A0: 74 65 72 20 50 43 00 CD 61 22 C8 CD D9 2D 22 CE ter PC..a"...-".
0061B0: 00 CD E1 01 CD D7 27 21 00 00 22 04 79 3E 02 32 ......'!..".y>.2
0061C0: 00 79 CD 00 02 0D 0A 53 65 61 72 63 68 69 6E 67 .y.....Searching
0061D0: 00 CD 9F 2D C3 D0 28 CD 4B 2D CC 50 2D CD 7A 2D ...-..(.K-.P-.z-
0061E0: 21 1D 45 20 05 CD 50 2D 18 1E CD 7F 2D 28 F1 CD !.E ..P-....-(..
0061F0: 02 26 21 EB 25 22 7D 25 21 B7 25 22 9E 25 11 F9 .&!.%"}%!.%".%..
006200: 44 D5 CD 18 25 3E 01 E1 32 F1 44 11 33 79 01 24 D...%>..2.D.3y.$
006210: 00 ED B0 AF 32 00 79 2A 06 00 22 0A 79 2A 46 45 ....2.y*..".y*FE
006220: 36 1A 23 22 04 79 C9 CD D7 27 3A F3 44 3D CA AA 6.#".y...':.D=..
006230: 28 3D F5 20 07 3E 43 21 4F 4D 18 05 3E 43 21 48 (=. .>C!OM..>C!H
006240: 4E 32 3C 79 22 3D 79 3E 01 32 00 79 2A F4 44 22 N2<y"=y>.2.y*.D"
006250: 04 79 2A F6 44 22 0A 79 11 33 79 D5 CD DC 26 0E .y*.D".y.3y...&.
006260: 13 CD 65 72 D1 0E 16 CD 65 72 3C CA 5A 2A F1 21 ..er....er<.Z*.!
006270: 00 01 28 03 2A 04 79 22 02 79 EB 2A 04 79 37 ED ..(.*.y".y.*.y7.
006280: 52 38 26 2A 04 79 22 01 01 D5 0E 1A CD 65 72 0E R8&*.y"......er.
006290: 15 11 33 79 CD 65 72 D1 21 E2 20 22 01 01 B7 C2 ..3y.er.!. "....
0062A0: 5A 2A 21 80 00 19 EB 18 D2 3E AF CD 00 02 0D 0A Z*!......>......
0062B0: 43 6F 6D 70 69 6C 69 6E 67 20 00 11 33 79 B7 28 Compiling ..3y.(
0062C0: 0C CD 00 02 20 2D 2D 3E 20 00 CD F8 2D CD 9F 2D .... --> ...-..-
0062D0: CD E1 01 CD 4A 45 3A 01 79 FE CA 20 1D CD 00 02 ....JE:.y.. ....
0062E0: 0D 0A 0A 43 6F 6D 70 69 6C 61 74 69 6F 6E 20 61 ...Compilation a
0062F0: 62 6F 72 74 65 64 00 C3 3B 22 CD 00 02 20 6C 69 borted..;"... li
006300: 3E 30 28 2D 11 10 27 CD 1F 31 11 E8 03 CD 1F 31 >0(-..'..1.....1
006310: 11 64 00 CD 1F 31 11 0A 00 CD 1F 31 11 01 00 AF .d...1.....1....
006320: ED 52 38 03 3C 18 F9 19 C6 30 FE 30 20 03 04 05 .R8.<....0.0 ...
006330: C8 05 C3 C9 03 11 1D 45 C3 F8 2D CD 00 02 3A 20 .......E..-...:
006340: 00 EB E5 DD E1 23 56 36 00 23 FD CB 07 86 D5 E5 .....#V6.#......
006350: CD 3A 2F E1 D1 FD CB 07 C6 30 5E 20 08 3A 83 44 .:/......0^ .:.D
006360: CD F6 3E 18 E5 79 FE 00 20 03 36 1A C9 FE 03 20 ..>..y.. .6....
006370: 0B DD 7E 01 BA 30 D3 DD 34 01 18 4A FE 05 20 10 ..~..0..4..J.. .
006380: DD 7E 01 BA 28 C4 7E CD A8 2F 23 DD 34 01 18 F0 .~..(.~../#.4...
006390: FE 04 20 07 CD D7 31 20 FB 18 AF FE 2D 20 05 CD .. ...1 ....- ..
0063A0: 71 42 18 15 FE 1B 28 0C FE 1C 28 08 FE 01 28 04 qB....(...(...(.
0063B0: FE 02 20 96 CD D7 31 18 91 5F DD 7E 01 DD BE 00 .. ...1.._.~....
0063C0: 30 88 DD 34 01 73 7E 23 CD A8 2F DD 7E 01 BA 38 0..4.s~#../.~..8
0063D0: E6 DD 56 01 C3 B7 31 DD 7E 01 B7 C8 DD 35 01 2B ..V...1.~....5.+
0063E0: 7E FE 20 DC E6 31 CD 11 42 88 A0 88 00 3E FF B7 ~. ..1..B....>..
0063F0: C9 AF 32 7E 44 CD FD 31 CD 20 32 18 55 CD 04 3E ..2~D..1. 2.U..>
006400: 46 69 6E 64 00 11 90 44 C3 3B 31 CD 07 3E 52 65 Find...D.;1..>Re
006410: 70 6C 61 63 65 20 77 69 74 68 00 11 B1 44 18 E8 place with...D..
006420: CD 07 3E 4F 70 74 69 6F 6E 73 00 11 D2 44 CD 3B ..>Options...D.;
006430: 31 3A 68 01 67 25 2E 00 C3 A2 02 3E FF 32 7E 44 1:h.g%.....>.2~D
006440: CD FD 31 CD 0B 32 CD 20 32 18 07 CD 8A 2F FD 36 ..1..2. 2..../.6
006450: 16 03 CD 40 3E CD 23 3E 23 ED 5B 52 44 CD 91 41 ...@>.#>#.[RD..A
006460: 11 74 7B B7 ED 52 ED 5B 50 44 19 22 88 44 11 00 .t{..R.[PD.".D..
006470: 00 21 D3 44 46 FD 36 11 00 04 05 28 43 23 7E FE .!.DF.6....(C#~.
006480: 30 38 10 FE 3A 30 0C CD 26 34 D6 30 83 5F 30 2E 08..:0..&4.0._0.
006490: 14 18 2B CD A6 04 FE 57 20 04 FD CB 11 C6 FE 55 ..+....W ......U
0064A0: 20 04 FD CB 11 D6 FE 4E 20 04 FD CB 11 CE FE 47 ......N ......G
0064B0: 20 04 FD CB 11 DE FE 42 20 04 FD CB 11 E6 10 BD ......B .......
0064C0: 7B B2 20 03 11 01 00 ED 53 8A 44 2A 44 45 3A 7D {. .....S.D*DE:}
0064D0: 44 CB 67 28 03 2A 46 45 CB 5F 20 03 2A 88 44 22 D.g(.*FE._ .*.D"
0064E0: 88 44 FD CB 11 66 20 0D ED 5B 46 45 1B CD E2 3B .D...f ..[FE...;
0064F0: D2 80 33 18 06 CD EE 3B DA 80 33 11 92 44 3A 91 ..3....;..3..D:.
006500: 6E 65 73 0D 0A 0A 00 3A 01 79 B7 C2 70 29 3A 00 nes....:.y..p):.
006510: 79 FE 02 20 15 CD 7A 2A CD 00 02 6E 6F 74 20 66 y.. ..z*...not f
006520: 6F 75 6E 64 0D 0A 00 C3 3B 22 B7 28 0D 2A 04 79 ound....;".(.*.y
006530: 11 E2 20 B7 ED 52 19 C4 2E 23 CD 00 02 43 6F 64 .. ..R...#...Cod
006540: 65 3A 20 00 ED 5B 04 79 2A 06 79 E5 2B CD 38 23 e: ..[.y*.y.+.8#
006550: D1 2A 08 79 E5 CD 2E 23 D1 13 2A 0A 79 CD 00 02 .*.y...#..*.y...
006560: 44 61 74 61 3A 20 00 CD 38 23 3E FF 32 42 45 C9 Data: ..8#>.2BE.
006570: FE FA D2 5A 2A FE C8 30 73 47 CD 00 02 45 72 72 ...Z*..0sG...Err
006580: 6F 72 20 00 26 00 68 C5 CD 61 2E C1 3A 41 45 B7 or .&.h..a..:AE.
006590: 28 66 2A 9E 42 7E FE 1A 28 5E FE 20 38 0F D6 30 (f*.B~..(^. 8..0
0065A0: 4F 87 87 81 87 23 86 D6 30 23 B8 28 09 7E 23 FE O....#..0#.(.~#.
0065B0: 0D 20 FA 23 18 DF CD 00 02 3A 20 00 7E FE 0D 28 . .#.....: .~..(
0065C0: 37 FE 20 30 21 ED 5B 9E 42 1A 13 FE 20 30 0E BE 7. 0!.[.B... 0..
0065D0: 20 0B 1A FE 0D 28 12 CD C9 03 13 18 F5 1A 13 FE ....(..........
0065E0: 0D 20 FA 13 18 E3 CD C9 03 23 18 D0 CD 7A 2A CD . .......#...z*.
0065F0: 00 02 66 6F 75 6E 64 00 AF 32 F1 44 3A 0E 79 B7 ..found..2.D:.y.
006600: 28 3F 3E 2E CD C9 03 CD 02 26 11 1D 45 21 0F 79 (?>......&..E!.y
006610: 01 0C 00 ED B0 CD 06 25 CD 00 02 0D 0A 45 72 72 .......%.....Err
006620: 6F 72 20 66 6F 75 6E 64 20 69 6E 20 61 62 6F 76 or found in abov
006630: 65 20 69 6E 63 6C 75 64 65 20 66 69 6C 65 00 18 e include file..
006640: 10 CD 7A 2D 28 0B 11 1D 45 21 F9 44 01 0C 00 ED ..z-(...E!.D....
006650: B0 CD 76 2E 2A 0C 79 C3 FE 2A CD 00 02 44 69 73 ..v.*.y..*...Dis
006660: 6B 20 6F 72 20 64 69 72 65 63 74 6F 72 79 20 66 k or directory f
006670: 75 6C 6C 00 CD 76 2E C3 3B 22 CD 00 02 52 75 6E ull..v..;"...Run
006680: 2D 74 69 6D 65 20 65 72 72 6F 72 20 70 6F 73 69 -time error posi
006690: 74 69 6F 6E 20 00 C9 3A 42 45 B7 CC 27 28 3A F3 tion ..:BE..'(:.
0066A0: 44 3D 28 3B 3D C0 CD 33 2B C8 CD 7A 2D 21 1D 45 D=(;=..3+..z-!.E
0066B0: 28 03 21 F9 44 11 33 79 01 0C 00 ED B0 3E 43 21 (.!.D.3y.....>C!
0066C0: 4F 4D 32 3C 79 22 3D 79 11 33 79 CD DC 26 D5 0E OM2<y"=y.3y..&..
0066D0: 0F CD 65 72 E1 3C CA 04 21 11 A0 42 C3 7A 2B 32 ..er.<..!..B.z+2
0066E0: 80 00 CD 1D 28 CD 00 02 0D 0A 52 75 6E 6E 69 6E ....(.....Runnin
0066F0: 67 0D 0A 00 2A 04 79 E9 CD 50 2D 21 FF FF E5 2A g...*.y..P-!...*
006700: 44 47 FD CB 11 66 28 06 3D 83 5F 30 01 14 FD CB DG...f(.=._0....
006710: 11 46 28 0F D5 E5 CD FB 33 7E E1 D1 38 05 CD E4 .F(.....3~..8...
006720: 33 38 54 05 04 28 07 CD 0F 34 20 4B 10 36 FD CB 38T..(...4 K.6..
006730: 11 46 28 0D E5 CD 06 34 7E E1 38 05 CD E4 33 38 .F(....4~.8...38
006740: 36 FD CB 11 66 CC DD 3B 3A 7E 44 B7 C4 30 34 FD 6...f..;:~D..04.
006750: CB 11 5E 20 8A ED 4B 8A 44 0B ED 43 8A 44 78 B1 ..^ ..K.D..C.Dx.
006760: 20 F1 18 45 D5 CD 06 34 D1 38 15 FD CB 11 66 28 ..E...4.8....f(
006770: 03 1B 18 B3 13 18 B0 2A 88 44 CD 06 34 D2 DF 32 .......*.D..4..2
006780: CD D6 33 CD A9 33 FD CB 11 5E C0 CD 04 3E 53 65 ..3..3...^...>Se
006790: 61 72 63 68 20 73 74 72 69 6E 67 20 6E 6F 74 20 arch string not
0067A0: 66 6F 75 6E 64 00 C3 12 3F CD AF 33 C3 2C 3D ED found...?..3.,=.
0067B0: 5B 46 45 1B CD E2 3B 38 01 EB E5 E5 CD F5 3B 22 [FE...;8......;"
0067C0: 50 44 B7 EB E1 ED 52 11 74 7B 19 22 52 44 CD E7 PD....R.t{."RD..
0067D0: 3F CD 1F 40 E1 C9 ED 5B 44 45 CD 91 41 2A 46 45 ?..@...[DE..A*FE
0067E0: 2B C3 91 41 FE 30 38 11 FE 3A D8 FE 41 38 0A FE +..A.08..:..A8..
0067F0: 5B D8 FE 61 38 03 FE 7B D8 B7 C9 FD CB 11 66 28 [..a8..{......f(
006800: 0B CD DD 3B 3F C9 FD CB 11 66 28 F5 C3 EE 3B 1A ...;?....f(...;.
006810: FE 01 C8 BE C8 FD CB 11 56 28 09 CD E4 33 30 04 ........V(...30.
006820: AE E6 DF C9 BE C9 E5 6B 62 29 29 19 29 EB E1 C9 .......kb)).)...
006830: E5 CD 8F 42 28 06 FD CB 11 4E 20 61 CD A9 33 CD ...B(....N a..3.
006840: 96 3B FD CB 11 4E 20 55 CD 07 3E 52 65 70 6C 61 .;...N U..>Repla
006850: 63 65 20 28 D9 2F CE 29 3A 20 00 FD 6E 05 FD 66 ce (./.): ..n..f
006860: 04 CD A2 02 01 D0 07 CD 32 42 CD 8F 42 20 1D 0B ........2B..B ..
006870: 79 B0 20 F3 21 00 0F CD A2 02 01 D0 07 CD 32 42 y. .!.........2B
006880: CD 8F 42 20 07 0B 79 B0 20 F3 18 CF CD 71 42 CD ..B ..y. ....qB.
006890: F6 3E CD A6 04 FE 59 28 04 FE 19 20 4E FD CB 13 .>....Y(... N...
0068A0: C6 AF 32 42 45 3A B2 44 4F 06 00 E1 E5 C5 3A 91 ..2BE:.DO.....:.
0068B0: 44 91 4F F5 30 01 05 FD CB 11 66 20 03 2A 88 44 D.O.0.....f .*.D
0068C0: F1 E5 C4 18 3F D1 C1 78 B1 28 05 21 B3 44 ED B0 ....?..x.(.!.D..
0068D0: CD 8F 42 F5 C4 47 41 F1 20 08 D5 CD 2C 3D CD 39 ..B..GA. ...,=.9
0068E0: 41 D1 FD CB 11 66 20 03 E1 EB C9 E1 C9 FD CB 14 A....f .........
0068F0: 46 C0 CD 40 3E CD 2C 3D 2A 60 44 ED 5B 62 44 CD F..@>.,=*`D.[bD.
006900: A7 00 22 1E 42 21 14 42 22 A7 00 E1 C3 91 2E CD ..".B!.B".......
006910: 40 3E 2A 69 01 2D 26 00 CD A2 02 2A 1E 42 22 A7 @>*i.-&....*.B".
006920: 00 C3 3B 22 CD 01 26 CD 10 03 C3 00 00 CD 33 2B ..;"..&.......3+
006930: C8 18 27 CD 01 26 11 7D 21 3E 4F 21 56 52 CD 20 ..'..&.}!>O!VR.
006940: 2E C8 11 80 8F 21 80 00 19 E5 EB 0E 1A CD 05 00 .....!..........
006950: 0E 14 CD D3 26 D1 B7 28 EC C9 CD 00 02 0D 0A 50 ....&..(.......P
006960: 72 6F 67 72 61 6D 00 CD 61 22 CA 04 21 3E 43 21 rogram..a"..!>C!
006970: 4F 4D CD 20 2E 28 E3 21 5C 00 D5 E5 3A F8 44 F5 OM. .(.!\...:.D.
006980: 21 EE 03 E5 21 F4 00 E5 21 50 44 E5 21 04 21 E5 !...!...!PD.!.!.
006990: C3 00 90 CD 00 02 44 69 72 20 6D 61 73 6B 00 CD ......Dir mask..
0069A0: 61 22 CD EE 03 0E 19 CD 65 72 F5 F5 3A 5C 00 B7 a"......er..:\..
0069B0: 28 09 E1 3D 5F F5 0E 0E CD 65 72 F1 C6 41 32 8D (..=_....er..A2.
0069C0: 2C 11 57 79 0E 1A CD 65 72 11 00 00 0E 11 D5 CD ,.Wy...er.......
0069D0: D3 26 D1 4F 3C 28 52 79 87 87 87 87 87 4F 06 00 .&.O<(Ry.....O..
0069E0: 21 61 79 09 CB 7E 20 3D 16 FF 21 57 79 09 1C 1D !ay..~ =..!Wy...
0069F0: 20 0D 3A 68 01 3D 1E FF 1C D6 0F 30 FB 18 06 CD .:h.=.....0....
006A00: 00 02 3A 20 00 06 0B 23 7E E6 7F CD C9 03 78 FE ..: ...#~.....x.
006A10: 04 3E 20 CC C9 03 10 EF 1D 28 07 3E 20 CD C9 03 .> ......(.> ...
006A20: 18 03 CD E1 01 0E 12 18 A5 1C 1D C4 E1 01 14 28 ...............(
006A30: 0D CD 00 02 4E 6F 20 66 69 6C 65 0D 0A 00 CD E1 ....No file.....
006A40: 01 0E 1F CD 05 00 E5 DD E1 DD 7E 03 3C 1F 1F 1F ..........~.<...
006A50: E6 1F 32 71 7B DD 6E 05 DD 66 06 22 6F 7B 23 CD ..2q{.n..f."o{#.
006A60: C6 2C E5 0E 1B CD 05 00 EB 2A 6F 7B 01 00 00 CD .,.......*o{....
006A70: A5 2C 60 69 CD C6 2C CD 00 02 42 79 74 65 73 20 .,`i..,...Bytes
006A80: 52 65 6D 61 69 6E 69 6E 67 20 4F 6E 20 58 3A 20 Remaining On X:
006A90: 00 EB E1 B7 ED 52 CD 61 2E 3E 6B CD C9 03 F1 5F .....R.a.>k...._
006AA0: 0E 0E C3 65 72 C5 01 F8 FF 09 C1 7C B7 1A F2 B8 ...er......|....
006AB0: 2C 2C 28 09 B7 1F 18 F9 CD BD 2C 18 E8 13 B7 C8 ,,(.......,.....
006AC0: 1F 30 FB 03 18 F8 3A 71 7B 1F D8 29 18 FB CD 00 .0....:q{..)....
006AD0: 02 4E 65 77 20 64 72 69 76 65 00 CD 61 22 1A FE .New drive..a"..
006AE0: 1A 20 05 3A 04 00 18 09 CD A6 04 D6 41 D8 FE 10 . .:........A...
006AF0: D0 F5 0E 0D CD 65 72 F1 32 04 00 5F 0E 0E C3 65 .....er.2.._...e
006B00: E2 3B D0 CD 3C 36 CD 2C 3D CD 04 3E 57 72 69 74 .;..<6.,=..>Writ
006B10: 65 20 62 6C 6F 63 6B 20 74 6F 20 66 69 6C 65 00 e block to file.
006B20: CD 66 35 C8 CD 2A 2D 0E 0F CD D3 26 3C 28 22 CD .f5..*-....&<(".
006B30: 07 3E 4F 76 65 72 77 72 69 74 65 20 6F 6C 64 20 .>Overwrite old
006B40: 00 11 5C 00 CD F8 2D CD 01 2D 28 BD 0E 13 CD D3 ..\...-..-(.....
006B50: 26 2A 62 44 7E F5 E5 36 1A CD 0D 3E 2A 60 44 CD &*bD~..6...>*`D.
006B60: 92 26 E1 F1 77 C9 11 DF 44 CD 3B 31 11 E1 44 1A .&..w...D.;1..D.
006B70: FE 1A C9 CD 04 3E 52 65 61 64 20 62 6C 6F 63 6B .....>Read block
006B80: 20 66 72 6F 6D 20 66 69 6C 65 00 CD 66 35 C8 CD from file..f5..
006B90: 2A 2D 0E 0F CD D3 26 3C 20 0E CD 0D 3E 11 5C 00 *-....&< ...>.\.
006BA0: CD 3E 2E CD 12 3F 18 CB FD CB 14 86 CD 3C 36 2A .>...?.......<6*
006BB0: 46 45 ED 5B 48 45 01 FE 00 09 B7 ED 52 E5 44 4D FE.[HE......R.DM
006BC0: 2A 8C 44 37 CD 18 3F D1 21 DD 35 E5 2A 8C 44 E5 *.D7..?.!.5.*.D.
006BD0: AF ED 52 E5 21 F1 35 22 7D 25 C3 60 25 22 62 44 ..R.!.5"}%.`%"bD
006BE0: EB 2A 8C 44 22 60 44 2A 6D 7B B7 ED 52 44 4D 18 .*.D"`D*m{..RDM.
006BF0: 21 ED 5B 8C 44 CD E7 35 C3 D9 3E CD 3C 36 D2 2C !.[.D..5..>.<6.,
006C00: 3D CD 87 36 2A 8C 44 ED 5B 60 44 22 60 44 09 22 =..6*.D.[`D"`D."
006C10: 62 44 EB B7 CD 18 3F 2A 60 44 CD A9 33 C3 62 37 bD....?*`D..3.b7
006C20: CD 3C 36 D2 2C 3D CD 87 36 2A 8C 44 22 60 44 09 .<6.,=..6*.D"`D.
006C30: 22 62 44 CD 1F 40 CD 2C 3D C3 62 37 FD CB 14 46 "bD..@.,=.b7...F
006C40: 28 02 AF C9 CD 23 3E 23 ED 5B 52 44 D5 CD 91 41 (....#>#.[RD...A
006C50: EB CD 44 3E E1 11 74 7B B7 ED 52 ED 5B 50 44 19 ..D>..t{..R.[PD.
006C60: 22 8C 44 E5 ED 5B 60 44 13 CD E2 3B ED 5B 62 44 ".D..[`D...;.[bD
006C70: 38 08 CD E2 3B 30 03 B7 18 0B 2A 60 44 B7 ED 52 8...;0....*`D..R
006C80: 22 8E 44 4D 44 E1 C9 CD 18 3F ED 4B 8E 44 79 2F ".DMD....?.K.Dy/
006C90: 4F 78 2F 47 03 ED 5B 8C 44 2A 60 44 C5 ED B0 C1 Ox/G..[.D*`D....
006CA0: C9 FD CB 14 46 C0 CD 40 3E 2A 60 44 CD F5 3B 22 ....F..@>*`D..;"
006CB0: 50 44 2A 54 44 ED 5B 60 44 13 CD E2 3B 38 0F ED PD*TD.[`D...;8..
006CC0: 5B 62 44 CD E2 3B 30 06 2A 50 44 22 54 44 2A 62 [bD..;0.*PD"TD*b
006CD0: 44 ED 5B 60 44 B7 ED 52 DA 2C 3D 4D 44 EB E5 C5 D.[`D..R.,=MD...
006CE0: F5 CD 1F 40 F1 C1 E1 CD 18 3F 2A 50 44 22 60 44 ...@.....?*PD"`D
006CF0: 22 62 44 CD 2C 3D C3 62 37 21 80 44 CD 96 37 C3 "bD.,=.b7!.D..7.
006D00: 72 CD 00 02 20 28 59 2F 4E 29 3F 20 00 CD E1 03 r... (Y/N)? ....
006D10: CD A6 04 FE 59 28 04 FE 4E 20 F2 CD C9 03 D6 4E ....Y(..N .....N
006D20: C9 CD 01 2D F5 CD E1 01 F1 C9 3E 50 21 41 53 32 ...-......>P!AS2
006D30: 65 00 22 66 00 0E 00 CD 06 04 3A 5C 00 B7 C0 D5 e."f......:\....
006D40: 0E 19 CD 65 72 3C 32 5C 00 D1 C9 3A 1E 45 B7 C9 ...er<2\...:.E..
006D50: CD 4B 2D 20 1A CD 7A 2D 20 05 CD C9 24 18 10 11 .K- ..z- ...$...
006D60: 1D 45 21 F9 44 01 24 00 ED B0 3E 01 32 F1 44 3A .E!.D.$...>.2.D:
006D70: F1 44 B7 C8 CD 02 26 C3 06 25 3A FA 44 B7 C9 11 .D....&..%:.D...
006D80: 1D 45 21 F9 44 06 0C 1A 96 C0 13 23 10 F9 C9 2A .E!.D......#...*
006D90: 44 45 36 20 23 22 46 45 AF 32 7F 44 32 F1 44 AF DE6 #"FE.2.D2.D.
006DA0: 32 42 45 C9 2A 9E 42 22 44 45 11 7D 21 3E 4D 21 2BE.*.B"DE.}!>M!
006DB0: 53 47 CD 20 2E 32 41 45 CC 76 2E 28 12 21 A0 25 SG. .2AE.v.(.!.%
006DC0: 22 9E 25 21 D4 25 22 7D 25 11 5C 00 CD 18 25 2A ".%!.%"}%.\...%*
006DD0: 46 45 36 1A 23 22 44 45 C9 21 00 00 1A CD A6 04 FE6.#"DE.!......
006DE0: D6 30 D8 FE 0A 38 08 D6 07 FE 0A D8 FE 10 D0 29 .0...8.........)
006DF0: 29 29 29 B5 6F 13 18 E4 13 1A 1B B7 C8 1A C6 40 ))).o..........@
006E00: FE 40 C4 C9 03 3E 3A C4 C9 03 06 0B 13 1A E6 7F .@...>:.........
006E10: FE 20 C4 C9 03 78 FE 04 3E 2E CC C9 03 10 ED C9 . ...x..>.......
006E20: CD 2F 2D 21 5C 00 CD 51 2E C0 3A F8 44 BE 77 C4 ./-!\..Q..:.D.w.
006E30: 51 2E C0 3E 01 BE 77 C4 51 2E C0 36 00 EB CD F8 Q..>..w.Q..6....
006E40: 2D CD 00 02 20 6E 6F 74 20 66 6F 75 6E 64 00 AF -... not found..
006E50: C9 D5 E5 0E 0F CD D3 26 E1 D1 3C C9 11 FB FF 18 .......&..<.....
006E60: 03 11 FF FF DD E5 FD E5 E5 D5 CD 9B 14 E1 CD 26 ...............&
006E70: 17 FD E1 DD E1 C9 F5 CD 00 02 2E 20 50 72 65 73 ........... Pres
006E80: 73 20 3C 45 53 43 3E 00 CD E1 03 FE FC 20 F9 F1 s <ESC>...... ..
006E90: C9 E5 11 0D 0A 2A 46 45 72 2B 73 ED 53 F3 7B AF .....*FEr+s.S.{.
006EA0: 32 74 44 3C 32 75 44 21 DE 43 22 72 7B FD 21 6C 2tD<2uD!.C"r{.!l
006EB0: 44 CD 3E 02 D1 13 2A 44 45 19 CD A9 33 3A 82 44 D.>...*DE...3:.D
006EC0: 3D 28 12 21 00 00 CD A2 02 3A 82 44 87 47 3E 20 =(.!.....:.D.G>
006ED0: CD C9 03 10 FB CD 96 3B CD F7 2F CD 3A 2F 30 2E .......;../.:/0.
006EE0: 28 DB 21 BD 2E 7A FE 7F 38 0A 32 7F 44 E6 7F 57 (.!..z..8.2.D..W
006EF0: AF 32 42 45 E5 D5 21 57 44 11 5B 44 01 08 00 ED .2BE..!WD.[D....
006F00: 62 37 2A 52 44 22 66 44 2A 50 44 22 62 44 FD CB b7*RD"fD*PD"bD..
006F10: 01 4E FD CB 01 CE 08 FD CB 14 46 FD CB 14 86 20 .N........F....
006F20: 41 08 28 3E 18 28 2A 52 44 22 64 44 2A 50 44 22 A.(>.(*RD"dD*PD"
006F30: 60 44 FD CB 01 46 FD CB 01 C6 18 DA CD 40 3E 2A `D...F.......@>*
006F40: 60 44 C3 A9 33 CD 40 3E 2A 62 44 C3 A9 33 26 00 `D..3.@>*bD..3&.
006F50: CD A7 37 21 74 7B FD CB 10 C6 CD 1A 3C FD CB 10 ..7!t{......<...
006F60: 86 C9 CD 4E 37 C3 47 41 CD 40 3E 2A 46 45 C3 A9 ...N7.GA.@>*FE..
006F70: 33 21 74 7B 22 52 44 C3 E7 3F CD 23 3E 23 11 F3 3!t{"RD..?.#>#..
006F80: 7B CD E2 3B 38 03 21 F2 7B 22 52 44 C3 E7 3F FD {..;8.!.{"RD..?.
006F90: 36 08 00 21 72 44 7E EE 01 77 C9 FD 36 08 00 21 6..!rD~..w..6..!
006FA0: 79 44 18 F2 FD 66 04 FD 6E 05 C3 A2 02 2A 50 44 yD...f..n....*PD
006FB0: CD B1 41 D8 CD 40 3E 2A 50 44 CD B1 41 22 50 44 ..A..@>*PD..A"PD
006FC0: FD CB 0E 86 FD CB 15 C6 CD 1F 40 FD CB 15 86 C3 ..........@.....
006FD0: 2C 3D 2A 50 44 CD D0 41 D8 E5 CD 40 3E E1 18 DD ,=*PD..A...@>...
006FE0: 2A 6A 44 ED 5B 44 45 CD E2 3B C8 CD 40 3E 06 00 *jD.[DE..;..@>..
006FF0: 2A 50 44 ED 5B 6A 44 CD E2 3B 28 06 CD D0 41 04 *PD.[jD..;(...A.
007000: 18 F1 ED 5B 50 44 22 50 44 EB 3A 69 01 D6 03 B8 ...[PD"PD.:i....
007010: 20 03 CD D0 41 E5 2A 50 44 CD D0 41 CD BD 37 E1 ...A.*PD..A..7.
007020: 18 9B CD 40 3E 2A 50 44 E5 2A 6A 44 3A 69 01 D6 ...@>*PD.*jD:i..
007030: 02 47 CD B1 41 10 FB F5 CD BD 37 F1 E1 38 E1 ED .G..A.....7..8..
007040: 5B 6A 44 CD E2 3B 30 D8 CD B1 41 18 D3 2A 6A 44 [jD..;0...A..*jD
007050: ED 5B 50 44 CD E2 3B C8 E5 CD 40 3E E1 18 C1 CD .[PD..;...@>....
007060: 40 3E 2A 6A 44 3A 69 01 D6 03 47 CD B1 41 10 FB @>*jD:i...G..A..
007070: 18 AE CD 40 3E 3A 69 01 D6 02 4F 47 2A 6A 44 CD ...@>:i...OG*jD.
007080: B1 41 10 FB 22 6A 44 41 2A 50 44 CD B1 41 10 FB .A.."jDA*PD..A..
007090: 22 50 44 CD 1F 40 CD 47 41 C3 2C 3D CD 40 3E 3A "PD..@.GA.,=.@>:
0070A0: 69 01 D6 02 47 4F 2A 6A 44 CD D0 41 10 FB 22 6A i...GO*jD..A.."j
0070B0: 44 41 2A 50 44 CD D0 41 10 FB 18 D4 2A 6A 44 ED DA*PD..A....*jD.
0070C0: 5B 44 45 CD E2 3B 28 03 CD 47 41 CD 40 3E 2A 44 [DE..;(..GA.@>*D
0070D0: 45 22 50 44 22 6A 44 CD 1F 40 CD 2C 3D 21 74 7B E"PD"jD..@.,=!t{
0070E0: 22 52 44 C3 E7 3F FD CB 06 46 28 06 CD AD 37 C3 "RD..?...F(...7.
0070F0: 71 37 FD CB 13 C6 AF 32 42 45 3E 0A CD C9 03 CD q7.....2BE>.....
007100: B8 C9 CD 8A 2F FD 36 16 03 CD 71 42 18 08 32 7F ..../.6...qB..2.
007110: 44 21 42 45 36 00 2A 52 44 11 F1 7B CD E2 3B 30 D!BE6.*RD..{..;0
007120: 9C FD CB 06 46 F5 CC EB 41 F1 77 23 E5 CD 97 41 ....F...A.w#...A
007130: E1 22 52 44 CD E7 3F C3 BD 2E CD 71 42 FE 7F 30 ."RD..?....qB..0
007140: 03 FE 20 D0 21 82 44 36 01 23 77 E5 21 82 44 11 .. .!.D6.#w.!.D.
007150: A1 42 06 FF CD C1 2F E1 B7 20 10 E5 21 82 44 11 .B..../.. ..!.D.
007160: 69 43 06 1F CD C1 2F E1 B7 37 C8 3D 28 0A 21 F4 iC..../..7.=(.!.
007170: 43 09 09 5E 23 56 37 C9 CD 8A 2F F5 CD 71 42 FD C..^#V7.../..qB.
007180: 34 16 23 77 F1 CC 8A 2F 18 C1 CD 32 42 CD 8F 42 4.#w.../...2B..B
007190: C0 E5 21 00 00 CD A2 02 21 82 44 7E F5 23 7E CD ..!.....!.D~.#~.
0071A0: A8 2F F1 3D 20 F6 E1 C9 F5 CD EC 3C F1 FE 20 D2 ./.= ......<.. .
0071B0: C9 03 F5 F5 3E 5E CD C9 03 F1 C6 40 CD C9 03 F1 ....>^.....@....
0071C0: C9 0E FF C5 E5 E1 C1 1A 13 B7 C8 0C C5 E5 4E 91 ..............N.
0071D0: 23 30 04 81 4F 18 19 F5 1A 96 A0 20 10 13 23 0D #0..O...... ..#.
0071E0: 20 F6 F1 E1 C1 06 00 3E FF C8 3E 01 C9 F1 81 4F ......>..>....O
0071F0: 06 00 EB 09 EB 18 CE CD 32 42 CD 8F 42 C0 21 74 ........2B..B.!t
007200: 44 7E B7 20 73 36 FF 21 00 00 22 76 44 AF 32 78 D~. s6.!.."vD.2x
007210: 44 CD A2 02 CD 12 3C CD DF 3C 3A 68 01 FE 38 38 D.....<..<:h..88
007220: 09 21 00 2A CD A2 02 CD 35 31 21 00 06 CD 0E 42 .!.*....51!....B
007230: 4C 69 6E 65 20 00 21 00 10 CD 0E 42 43 6F 6C 20 Line .!....BCol
007240: 00 21 00 18 3A 72 44 B7 20 10 CD 0E 42 49 6E 73 .!..:rD. ...BIns
007250: 65 72 74 20 20 20 20 00 18 0E CD 0E 42 4F 76 65 ert .....BOve
007260: 72 77 72 69 74 65 20 00 3A 79 44 B7 20 0A CD 11 rwrite .:yD. ...
007270: 42 49 6E 64 65 6E 74 00 3A 6C 44 FD 86 04 3C 2A BIndent.:lD...<*
007280: 78 44 BD 28 16 32 78 44 F5 21 00 14 CD A2 02 CD xD.(.2xD.!......
007290: DF 3C F1 6F 26 00 3E 03 CD EC 30 ED 5B 76 44 2A .<.o&.>...0.[vD*
0072A0: 50 44 CD E2 3B CA A4 37 CD A4 37 ED 5B 44 45 2A PD..;..7..7.[DE*
0072B0: 50 44 B7 ED 52 4D 44 EB 11 01 00 79 B0 28 14 3E PD..RMD....y.(.>
0072C0: 0A 13 ED B1 E2 D3 30 1D 1C CC 32 42 CD 8F 42 20 ......0...2B..B
0072D0: 18 18 EC 21 00 0B D5 CD A2 02 CD DF 3C E1 3E 05 ...!........<.>.
0072E0: CD EC 30 2A 50 44 22 76 44 C3 A4 37 F5 06 00 CD ..0*PD"vD..7....
0072F0: FE 30 F1 80 C8 47 3E 20 CD C9 03 10 FB C9 7C B5 .0...G> ......|.
007300: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
007310: 06 00 01 00 02 09 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: 18 39 CD A4 37 FD CB 0D 46 C0 CD 6B 3A D8 11 F2 .9..7...F..k:...
007410: 43 CD 2E 41 DA 72 3A C9 CD 50 39 2A 50 44 E5 CD C..A.r:..P9*PD..
007420: 2C 3D CD 40 3E E1 CD B1 41 22 50 44 21 74 7B 22 ,=.@>...A"PD!t{"
007430: 52 44 CD E7 3F CD 1F 40 C3 2C 3D CD 50 39 CD 00 RD..?..@.,=.P9..
007440: 02 0D 0A 00 2A 50 44 CD B1 41 CD 1A 3C C3 2C 3D ....*PD..A..<.,=
007450: CD 40 3E 3A AE 01 B7 F5 C4 62 02 F1 CC 39 41 CD .@>:.....b...9A.
007460: 23 3E 23 ED 5B 52 44 CD 91 41 11 74 7B B7 ED 52 #>#.[RD..A.t{..R
007470: EB 2A 50 44 19 E5 37 01 FE FF CD 18 3F E1 36 0D .*PD..7.....?.6.
007480: 23 36 0A C9 2A 52 44 CD 02 3C D8 22 52 44 C3 E7 #6..*RD..<."RD..
007490: 3F 2A 52 44 CD E8 3B D0 18 F1 CD 40 3E 2A 58 44 ?*RD..;....@>*XD
0074A0: CD F5 3B 22 50 44 2A 5A 44 C3 2F 39 CD 0B 3A CD ..;"PD*ZD./9..:.
0074B0: EA 39 2A 52 44 CD 2A 41 38 05 CD E8 3B 38 F6 22 .9*RD.*A8...;8."
0074C0: 52 44 CD 02 37 CD EA 39 C3 26 37 2A 50 44 CD D0 RD..7..9.&7*PD..
0074D0: 41 38 32 E5 CD 40 3E E1 22 50 44 FD CB 0E 86 CD A82..@>."PD.....
0074E0: 1F 40 CD 2C 3D CD 23 3E 18 17 2A 52 44 CD 02 3C .@.,=.#>..*RD..<
0074F0: 38 D9 CD 2A 41 38 F6 CD 02 3C 38 05 CD 2A 41 30 8..*A8...<8..*A0
007500: F6 23 22 52 44 2A 52 44 C3 E7 3F CD 23 3E ED 5B .#"RD*RD..?.#>.[
007510: 52 44 D5 AF ED 52 30 01 3C 32 71 7B E1 2B CD E8 RD...R0.<2q{.+..
007520: 3B 38 2B 2A 50 44 CD B1 41 D8 CD 40 3E 2A 50 44 ;8+*PD..A..@>*PD
007530: CD B1 41 22 50 44 FD CB 0E 86 CD 1F 40 CD 2C 3D ..A"PD......@.,=
007540: 21 74 7B 22 52 44 CD 2A 41 38 D2 C3 E7 3F CD 2A !t{"RD.*A8...?.*
007550: 41 30 CB CD E8 3B 38 0C 3A 71 7B B7 20 C5 CD 23 A0...;8.:q{. ..#
007560: 3E 23 18 9E CD 2A 41 38 EA 18 97 2A 50 44 CD D0 >#...*A8...*PD..
007570: 41 C9 CD 6B 3A D8 3A 71 44 F5 2A 52 44 22 68 44 A..k:.:qD.*RD"hD
007580: FD CB 07 86 CD 40 3E 2A 50 44 E5 CD D0 41 22 50 .....@>*PD...A"P
007590: 44 CD 2C 3D 21 F2 43 22 72 7B CD 0B 3A 21 DE 43 D.,=!.C"r{..:!.C
0075A0: 22 72 7B E1 F1 32 71 44 22 50 44 CD 2C 3D FD CB "r{..2qD"PD.,=..
0075B0: 07 C6 FD CB 06 46 C2 4E 37 2A 52 44 ED 5B 68 44 .....F.N7*RD.[hD
0075C0: ED 52 D8 C8 EB D5 CD EB 41 36 20 D1 1D 20 F6 C3 .R......A6 .. ..
0075D0: 4E 37 2A 52 44 E5 CD C5 3F E1 E5 11 F2 7B 36 20 N7*RD...?....{6
0075E0: CD E2 3B 28 03 23 18 F6 E1 C3 97 41 21 74 7B 22 ..;(.#.....A!t{"
0075F0: 52 44 CD E7 3F CD D2 3A CD 40 3E 2A 50 44 E5 E5 RD..?..:.@>*PD..
007600: FF 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007610: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007620: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007630: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007640: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007650: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007660: 00 00 00 00 00 00 00 00 00 01 0D 01 13 01 08 01 ................
007670: 04 01 01 01 06 01 05 01 18 01 17 01 1A 01 12 01 ................
007680: 03 02 11 13 02 11 04 02 11 05 02 11 18 02 11 12 ................
007690: 02 11 03 02 11 02 02 11 0B 02 11 10 01 16 01 0E ................
0076A0: 01 19 02 11 19 01 14 01 07 01 7F 01 FF 02 0B 02 ................
0076B0: 02 0B 0B 02 0B 14 02 0B 08 02 0B 03 02 0B 16 02 ................
0076C0: 0B 19 02 0B 12 02 0B 17 02 0B 04 01 09 02 11 09 ................
0076D0: 02 11 0C 02 11 06 02 11 01 01 0C 01 10 00 3C 3E ..............<>
0076E0: 2C 5B 5D 2E 2A 2B 2D 2F 24 3A 3D 28 29 7B 7D 5E ,[].*+-/$:=(){}^
0076F0: 23 27 20 00 E6 38 84 39 84 39 91 39 EA 39 0B 3A #' ..8.9.9.9.9.:
007700: D2 37 AD 37 E0 37 22 38 9C 38 72 38 71 37 7A 37 .7.7.7"8.8r8q7z7
007710: 4D 38 5F 38 BC 38 68 37 3C 37 45 37 9A 39 8F 37 M8_8.8h7<7E7.9.7
007720: 3B B9 EC BA D2 BA 42 BB 73 BB 78 BB 78 BB 26 37 ;.....B.s.x.x.&7
007730: 02 37 AC 39 F9 36 20 B6 FB B5 A1 B6 73 B5 ED 34 .7.9.6 .....s..4
007740: 0F 2B 72 BA 9B 37 2C BD F1 31 3B 32 4B 32 02 AF .+r..7,..1;2K2..
007750: 00 00 74 7B 00 00 74 7B 00 00 74 7B 59 7B 59 7B ..t{..t{..t{Y{Y{
007760: 00 00 00 00 02 00 02 00 00 00 00 00 00 00 01 01 ................
007770: 00 01 00 01 00 01 00 00 00 00 01 01 00 00 00 00 ................
007780: 00 00 03 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007790: 1E 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0077A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0077B0: 00 1E 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0077C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0077D0: 00 00 0A 00 00 00 00 00 00 00 00 00 00 00 00 0F ................
0077E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0077F0: 00 00 00 01 E2 20 00 00 00 00 00 00 00 00 00 00 ..... ..........
007800: CD B1 41 D1 38 0A B7 ED 52 4D 44 E1 C2 26 3B C9 ..A.8...RMD..&;.
007810: E1 C3 2C 3D CD 44 3E 2A 50 44 CD B1 41 DA 2C 3D ..,=.D>*PD..A.,=
007820: 2B 2B 01 02 00 B7 CD 18 3F 3A B4 01 B7 28 0D CD ++......?:...(..
007830: 59 02 3A 69 01 3D CD BC 3B C3 2C 3D CD 39 41 C3 Y.:i.=..;.,=.9A.
007840: 2C 3D CD 23 3E ED 5B 52 44 CD E2 3B EB 38 C5 7E ,=.#>.[RD..;.8.~
007850: FE 20 28 38 CD 2A 41 38 2A CD 73 41 CD 2A 41 38 . (8.*A8*.sA.*A8
007860: 25 18 F6 2A 50 44 CD D0 41 D8 CD D2 37 CD 7A 37 %..*PD..A...7.z7
007870: C3 42 3B 2A 52 44 18 0B 2A 52 44 CD 02 3C 38 E3 .B;*RD..*RD..<8.
007880: 22 52 44 CD 73 41 CD E7 3F C3 97 41 CD 73 41 7E "RD.sA..?..A.sA~
007890: FE 20 28 F8 18 F0 CD 8F 42 C2 A4 37 CD AC 3B 30 . (.....B..7..;0
0078A0: F5 C3 A4 37 CD AC 3B 30 FB C3 A4 37 3A 75 44 21 ...7..;0...7:uD!
0078B0: 69 01 BE 37 C8 FD 34 09 FD BE 05 C8 26 00 6F F5 i..7..4.....&.o.
0078C0: CD A2 02 F1 2A 6A 44 47 05 28 0D CD B1 41 30 F8 ....*jDG.(...A0.
0078D0: CD EC 3C CD 12 3C AF C9 CD 1A 3C AF C9 23 ED 5B ..<..<....<..#.[
0078E0: 46 45 E5 B7 ED 52 E1 C9 23 11 F1 7B 18 F4 2B ED FE...R..#..{..+.
0078F0: 5B 44 45 18 ED 3E 0A CD EE 3B C8 38 03 BE 20 F7 [DE..>...;.8.. .
007900: 23 C9 2B 11 74 7B 18 DA FE 0D C0 7E CD DD 3B D0 #.+.t{.....~..;.
007910: 18 F6 3A 68 01 3D 47 C3 F9 3C CD A1 3C CD C0 3C ..:h.=G..<..<..<
007920: 3A 6C 44 47 B7 28 0F 7E CD DD 3B 30 E5 CD 08 3C :lDG.(.~..;0...<
007930: FE 0A 28 DE 10 F1 3A 68 01 3D 47 FD CB 10 46 28 ..(...:h.=G...F(
007940: 1D CD A1 3C CD C0 3C E5 CD 23 3E ED 5B 52 44 CD ...<..<..#>.[RD.
007950: 91 41 EB 23 22 86 44 EB E1 CD E2 3B 30 2B CD A1 .A.#".D....;0+..
007960: 3C CD C0 3C ED 5B 86 44 CD E2 3B 28 1C 7E CD DD <..<.[.D..;(.~..
007970: 3B 30 A4 CD 08 3C FE 0A 28 9D CD 8B 3C 10 DF 7E ;0...<..(...<..~
007980: CD DD 3B 30 04 FE 0A 20 F6 18 8C FE 20 30 07 C6 ..;0... .... 0..
007990: 40 F5 CD 99 3C F1 C3 C9 03 3A E0 00 B7 28 4D 18 @...<....:...(M.
0079A0: 3E FD CB 10 46 C8 FD CB 14 46 20 40 ED 5B 64 44 >...F....F @.[dD
0079B0: CD E2 3B 38 37 ED 5B 66 44 CD E2 3B 38 21 18 2C ..;87.[fD..;8!.,
0079C0: FD CB 10 46 C0 FD CB 14 46 20 21 ED 5B 60 44 CD ...F....F !.[`D.
0079D0: E2 3B 38 18 ED 5B 62 44 CD E2 3B 28 0F 30 0D 3A .;8..[bD..;(.0.:
0079E0: E0 00 B7 C8 FD CB 07 46 C8 C3 6B 02 3A E0 00 B7 .......F..k.:...
0079F0: C0 FD CB 07 46 C8 C3 84 02 04 05 C8 3A BC 01 B7 ....F.......:...
007A00: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007A10: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007A20: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007A30: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007A40: 00 00 00 00 F5 7B F5 7B 00 00 ED 73 71 7B 2A 46 .....{.{...sq{*F
007A50: 45 23 22 DF 7B 24 24 24 24 22 E1 7B 2A 0A 79 22 E#".{$$$$".{*.y"
007A60: 08 79 AF 67 6F 32 91 7B 32 92 7B 32 94 7B 32 A2 .y.go2.{2.{2.{2.
007A70: 7B 32 A0 7B 32 E3 7B 32 0E 79 32 96 7B 32 DB 7B {2.{2.{2.y2.{2.{
007A80: 22 DD 7B 22 EF 7B CD 8F 71 2B 22 54 79 3E 0D 32 ".{".{..q+"Ty>.2
007A90: 93 7B 3E F5 32 9D 7B 3E 04 32 C7 7B 2A 44 45 22 .{>.2.{>.2.{*DE"
007AA0: D7 7B 22 D9 7B DD 21 D7 79 DD 36 00 00 2A 04 79 .{".{.!.y.6..*.y
007AB0: CD C2 6C 2A 48 45 2B 22 77 7B 54 5D 01 B4 01 B7 ..l*HE+"w{T]....
007AC0: ED 42 22 73 7B 22 75 7B 22 7B 7B CD C7 6B 21 D2 .B"s{"u{"{{..k!.
007AD0: 74 ED B8 CD EA 45 3A 00 79 3D 20 06 CD 96 6C CD t....E:.y= ...l.
007AE0: FD 6C FD 22 06 79 AF C3 E3 72 CD 95 6F CD 76 6E .l.".y...r..o.vn
007AF0: 29 75 20 16 CD 92 46 CD 1B 6F 20 0B CD 92 46 CD )u ...F..o ...F.
007B00: 13 6F 28 F8 CD 6E 6F CD 48 6F 3E 31 21 00 01 CD .o(..no.Ho>1!...
007B10: 94 6B 21 D7 79 3A 00 79 B7 28 06 11 80 00 CD 30 .k!.y:.y.(.....0
007B20: 6C CD 92 6B 3A 9D 7B CB 7F 16 00 28 01 15 D5 3E l..k:.{....(...>
007B30: 01 CD 9C 6B FD E5 CD 97 6B 21 64 03 CD 86 6B 3E ...k....k!d...k>
007B40: 21 CD 9C 6B FD E5 CD 97 6B 3E 11 CD 9C 6B FD E5 !..k....k>...k..
007B50: CD 97 6B 2A 0A 79 CD 8A 6B 3A 00 79 67 2E 3E CD ..k*.y..k:.yg.>.
007B60: 97 6B 21 D4 04 CD 86 6B CD 9E 46 CD FC 52 DD 7E .k!....k..F..R.~
007B70: 00 FE 2E CD DA 72 0A 21 D4 20 CD 82 6B E1 ED 5B .....r.!. ..k..[
007B80: 08 79 CD 42 6C E1 CD 3F 6C E1 D1 3A A0 7B 5F C3 .y.Bl..?l..:.{_.
007B90: 42 6C 2A 73 7B E5 CD 87 6D E1 22 73 7B C9 3A C7 Bl*s{...m."s{.:.
007BA0: 7B F5 87 5F 16 00 CD 30 6C E5 CD 77 6B FD E5 E5 {.._...0l..wk...
007BB0: CD 97 6B CD 5A 6E 01 84 75 CD DA 72 0C 7E FE 01 ..k.Zn..u..r.~..
007BC0: 20 05 CD 8E 48 18 EC FE 02 20 05 CD B7 48 18 EE ...H.... ...H..
007BD0: FE 03 20 05 CD EB 4A 18 E5 FE 04 20 09 CD 2A 4B .. ...J.... ..*K
007BE0: 2A 08 79 E3 18 D8 FE 07 C2 5E 48 3A 00 79 B7 CD *.y......^H:.y..
007BF0: D4 72 4D 21 34 79 11 B2 7B 01 08 00 ED B0 21 96 .rM!4y..{.....!.
007C00: C2 99 02 3E 20 CD C9 03 10 F9 C9 3A B4 01 B7 20 ...> ......:...
007C10: 12 32 74 44 3A 69 01 3D 6F 26 00 CD A2 02 3E 0A .2tD:i.=o&....>.
007C20: C3 C9 03 21 01 00 CD A2 02 C3 59 02 2A 50 44 11 ...!......Y.*PD.
007C30: 00 00 ED 53 64 44 ED 53 66 44 06 7F DD 21 74 7B ...SdD.SfD...!t{
007C40: FD 36 01 00 7E ED 5B 60 44 CD E2 3B 20 08 DD 22 .6..~.[`D..; .."
007C50: 64 44 FD CB 01 C6 ED 5B 62 44 CD E2 3B 20 08 DD dD.....[bD..; ..
007C60: 22 66 44 FD CB 01 CE FE 0D 20 58 DD 36 00 20 DD "fD...... X.6. .
007C70: 23 05 28 65 CD DD 3B 30 CB ED 5B 62 44 CD E2 3B #.(e..;0..[bD..;
007C80: 30 08 E5 21 FF FF 22 66 44 E1 ED 5B 60 44 CD E2 0..!.."fD..[`D..
007C90: 3B 30 06 21 FF FF 22 64 44 3E 7F 90 32 6F 44 DD ;0.!.."dD>..2oD.
007CA0: 36 00 20 DD 23 10 F8 2A 52 44 CD E7 3F FD CB 0E 6. .#..*RD..?...
007CB0: 46 FD CB 0E C6 C2 4E 37 3A 75 44 3D FD BE 05 D0 F.....N7:uD=....
007CC0: C3 4E 37 FE 0A 28 B2 DD 77 00 DD 23 05 20 02 18 .N7..(..w..#. ..
007CD0: 08 CD DD 3B 30 A3 C3 44 3D CD 04 3E 4C 69 6E 65 ...;0£.D=..>Line
007CE0: 20 74 6F 6F 20 6C 6F 6E 67 20 2D 20 43 52 20 69 too long - CR i
007CF0: 6E 73 65 72 74 65 64 00 CD 12 3F 21 7D 00 CD 70 nserted...?!}..p
007D00: 39 C3 2C 3D CD A4 3B CD 0D 3E C3 11 42 FD 36 08 9.,=..;..>..B.6.
007D10: 00 21 00 00 CD A2 02 CD 12 3C 21 00 00 CD A2 02 .!.......<!.....
007D20: C3 DF 3C 3E 20 21 F2 7B 11 73 7B BE C0 2B CD E2 ..<> !.{.s{..+..
007D30: 3B 20 F8 C9 11 F3 7B CD E2 3B D0 50 59 C3 91 41 ; ....{..;.PY..A
007D40: CD 23 3E 23 4D 44 2A 64 44 CD 34 3E 22 64 44 2A .#>#MD*dD.4>"dD*
007D50: 66 44 CD 34 3E 22 66 44 69 60 23 11 74 7B B7 ED fD.4>"fDi`#.t{..
007D60: 52 E5 3A 6F 44 95 4F 06 00 30 02 06 FF 2A 50 44 R.:oD.O..0...*PD
007D70: C4 18 3F C1 DD 2A 50 44 21 74 7B 41 05 04 28 25 ..?..*PD!t{A..(%
007D80: 7E ED 5B 64 44 CD E2 3B 20 04 DD 22 60 44 ED 5B ~.[dD..; .."`D.[
007D90: 66 44 CD E2 3B 20 04 DD 22 62 44 DD 77 00 23 DD fD..; .."bD.w.#.
007DA0: 23 10 DD DD 2B 3E 0D DD 77 00 C9 2A 48 45 B7 ED #...+>..w..*HE..
007DB0: 52 38 26 01 FE 00 ED 42 D0 09 E5 CD 0D 3E E1 06 R8&....B.....>..
007DC0: 00 CD FE 30 CD 11 42 20 62 79 74 65 28 73 29 20 ...0..B byte(s)
007DD0: 6C 65 66 74 00 CD 12 3F C9 CD 04 3E 45 52 52 4F left...?...>ERRO
007DE0: 52 3A 20 4F 75 74 20 6F 66 20 73 70 61 63 65 00 R: Out of space.
007DF0: CD 12 3F C3 BD 2E FE 15 C0 CD 04 3E 2A 2A 2A 20 ..?........>***
007E00: 7B 7E 34 EB 36 30 23 06 2F 04 D6 0A 30 FB 70 23 {~4.60#./...0.p#
007E10: C6 3A 77 21 59 1C CD 86 6B 21 FF FF CD 97 6B 21 .:w!Y...k!....k!
007E20: B2 7B 06 0B 7E CD 9C 6B 23 10 F9 3A 00 79 3D 20 .{..~..k#..:.y=
007E30: 0A CD 96 6C AF 32 E3 7B CD FD 6C 2A DD 7B E5 2A ...l.2.{..l*.{.*
007E40: 02 79 E5 2A B0 7B E5 FD 22 02 79 21 00 00 22 B0 .y.*.{..".y!..".
007E50: 7B 21 DC FF 39 F9 EB 21 33 79 01 24 00 ED B0 3A {!..9..!3y.$...:
007E60: 00 79 3D 20 27 21 B2 7B 11 34 79 01 0B 00 ED B0 .y= '!.{.4y.....
007E70: EB 06 18 36 00 23 10 FB 11 33 79 D5 0E 13 CD 65 ...6.#...3y....e
007E80: 72 D1 0E 16 CD 65 72 3C CD D4 72 5C AF 32 DB 7B r....er<..r\.2.{
007E90: 32 DC 7B 2A 08 79 22 AB 7B CD 5A 6E 01 A7 75 CD 2.{*.y".{.Zn..u.
007EA0: DA 72 10 7E FD E5 2A 54 79 22 DD 7B 2A 08 79 E5 .r.~..*Ty".{*.y.
007EB0: 2A AB 7B E5 1E FF CD 3A 4B 44 4D D1 2A 08 79 B7 *.{....:KDM.*.y.
007EC0: ED 52 19 38 01 EB 22 AB 7B E1 22 08 79 D1 C5 D5 .R.8..".{.".y...
007ED0: 3A 00 79 3D CC 96 6C AF 32 E3 7B D1 D5 FD E5 E1 :.y=..l.2.{.....
007EE0: B7 ED 52 7D E6 7F 28 06 AF CD 9C 6B 18 EF 29 5C ..R}..(....k..)\
007EF0: 16 00 CB 12 2A B0 7B ED 52 30 04 ED 53 B0 7B FD ....*.{.R0..S.{.
007F00: E1 E1 23 73 23 72 CD 76 6E 9F 75 28 8C 2A AB 7B ..#s#r.vn.u(.*.{
007F10: 22 08 79 3A 00 79 3D 20 08 11 33 79 0E 10 CD 65 ".y:.y= ..3y...e
007F20: 72 21 00 00 39 11 33 79 01 24 00 ED B0 F9 ED 5B r!..9.3y.$.....[
007F30: B0 7B E1 22 B0 7B E1 22 02 79 E1 22 DD 7B AF 32 .{.".{.".y.".{.2
007F40: DB 7B 21 FF FF 22 54 79 FD E5 E1 CD C2 6C 06 80 .{!.."Ty.....l..
007F50: AF CD 9C 6B 10 FA 1B 7A B3 20 F3 C3 B3 46 FE 08 ...k...z. ...F..
007F60: 28 08 1E 00 CD 3A 4B C3 B3 46 CD 8A 4E D1 E1 D5 (....:K..F..N...
007F70: FD E5 D1 1B 1B B7 ED 52 19 28 05 CD 3F 6C 18 04 .......R.(..?l..
007F80: 2B CD C2 6C D1 E1 22 CA 7B F1 32 C6 7B C9 11 00 +..l..".{.2.{...
007F90: 01 CD 75 6D DD 7E 00 CD 82 72 CD 8D 6D 3A 94 7B ..um.~...r..m:.{
007FA0: CD 7A 6D 06 03 3E FF CD 7A 6D 10 F9 CD C6 6D CD .zm..>..zm....m.
007FB0: 13 6F 28 DA C3 48 6F 2A 73 7B E5 11 00 00 CD 75 .o(..Ho*s{.....u
007FC0: 6D CD 87 6D CD 23 6F 20 38 CD 0D 6A 78 CD 7A 6D m..m.#o 8..jx.zm
007FD0: 78 FE 09 20 0E D9 E5 D5 C5 06 03 D1 CD 75 6D 10 x.. .........um.
007FE0: FA 18 17 FE 08 20 0F 21 57 7A 79 0C CD 7A 6D 7E ..... .!Wzy..zm~
007FF0: 23 0D 20 F8 18 04 EB CD 75 6D CD C6 6D 16 02 18 #. .....um..m...
008000: 49 4E 54 45 52 52 55 50 54 45 44 00 CD 12 3F C3 INTERRUPTED...?.
008010: BD 2E CD 2B 42 C3 76 2E E5 C5 30 7A ED 5B 46 45 ...+B.v...0z.[FE
008020: D5 D5 EB B7 ED 52 E3 B7 ED 42 D2 D9 3E 5D 54 D5 .....R...B..>]T.
008030: CD AB 3E D1 C1 03 E1 ED 53 46 45 78 D6 20 38 0D ..>.....SFEx. 8.
008040: 47 C5 01 00 20 ED B8 C1 CD 32 42 18 EF 79 B0 28 G... ....2B..y.(
008050: 02 ED B8 C1 E1 EB 13 2A 60 44 CD 8E 3F 22 60 44 .......*`D..?"`D
008060: 2A 62 44 CD 8E 3F 22 62 44 2A 6A 44 CD 8E 3F 22 *bD..?"bD*jD..?"
008070: 6A 44 2A 50 44 CD 8E 3F 22 50 44 2A 54 44 CD 8E jD*PD..?"PD*TD..
008080: 3F 22 54 44 2A 58 44 CD 8E 3F 22 58 44 C9 CD E2 ?"TD*XD..?"XD...
008090: 3B D8 B7 ED 42 C9 E5 09 E5 ED 5B 46 45 13 EB B7 ;...B.....[FE...
0080A0: ED 52 4D 44 E1 D1 78 D6 20 38 0D 47 C5 01 00 20 .RMD..x. 8.G...
0080B0: ED B0 C1 CD 32 42 18 EF 79 B0 28 03 ED B0 1B ED ....2B..y.(.....
0080C0: 53 46 45 18 8E E5 ED 5B 64 44 CD 91 41 FD CB 01 SFE....[dD..A...
0080D0: 46 28 03 22 64 44 E1 FD CB 01 4E C8 ED 5B 66 44 F(."dD....N..[fD
0080E0: CD 91 41 22 66 44 C9 11 74 7B 3A 68 01 3D 4F B7 ..A"fD..t{:h.=O.
0080F0: ED 52 7D FD 96 00 38 1A B9 38 13 91 3C FD 86 00 .R}...8..8..<...
008100: 32 6C 44 3A 68 01 3D 3D 32 70 44 C3 62 37 32 70 2lD:h.==2pD.b72p
008110: 44 C9 FD 86 00 32 6C 44 FD 36 04 00 C3 62 37 FD D....2lD.6...b7.
008120: CB 07 46 C8 2A 6A 44 ED 5B 44 45 CD 91 41 EB 22 ..F.*jD.[DE..A."
008130: 6A 44 01 01 00 ED 5B 50 44 CD E2 3B CA DA 40 38 jD....[PD..;..@8
008140: 45 ED 5B 50 44 CD E2 3B 28 0B CD D0 41 03 79 B7 E.[PD..;(...A.y.
008150: CC 32 42 18 EC 22 6A 44 FD 36 05 01 FD CB 0E C6 .2B.."jD.6......
008160: 78 B7 20 1F 3A AE 01 B7 28 19 3A 69 01 3D B9 38 x. .:...(.:i.=.8
008170: 12 0D 21 01 00 CD A2 02 0D F5 0C CD 62 02 0D 20 ..!.........b..
008180: FA F1 C8 C3 47 41 ED 5B 50 44 CD E2 3B 28 0B CD ....GA.[PD..;(..
008190: B1 41 03 79 B7 CC 32 42 18 EC 78 B7 20 40 3A 69 .A.y..2B..x. @:i
0081A0: 01 3D 5F 79 93 57 14 38 31 15 20 07 FD CB 15 46 .=_y.W.81. ....F
0081B0: C2 03 41 14 93 30 27 3A 75 44 92 38 21 28 1F 32 ..A..0':uD.8!(.2
0081C0: 75 44 2A 6A 44 42 D5 CD B1 41 E5 CD 0B 3D E1 10 uD*jDB...A...=..
0081D0: F6 22 6A 44 D1 1D FD 73 05 C9 FD 71 05 C9 2A 6A ."jD...s...q..*j
0081E0: 44 0B 3A 69 01 D6 03 5F 79 93 4F 30 01 05 CD B1 D.:i..._y.O0....
0081F0: 41 0B 79 B0 20 F8 22 6A 44 CD 47 41 FD CB 0E C6 A.y. ."jD.GA....
008200: 27 CD 40 6F AF CD 7A 6D CD 72 6D 2A 73 7B E5 CD '.@o..zm.rm*s{..
008210: 75 6D CD C6 6D CD 9B 4F E1 ED 5B 5A 7B 72 2B 73 um..m..O..[Z{r+s
008220: CD 76 6F CD 37 49 16 04 E1 72 CD 48 6F CD 5A 6E .vo.7I...r.Ho.Zn
008230: 01 84 75 20 82 7E C9 3A 5C 7B FE 04 38 08 FE 08 ..u .~.:\{..8...
008240: 30 04 CD E1 72 3D FE 01 20 57 CD 2A 6D 2A 60 7B 0...r=.. W.*m*`{
008250: CD 71 52 2A 6D 7B ED 5B 6B 7B B7 ED 52 23 E5 2A .qR*m{.[k{..R#.*
008260: 5E 7B CD 87 52 D1 3A 5C 7B FE 0C 20 0B 7A B7 20 ^{..R.:\{.. .z.
008270: 07 CD 1B 6F 20 14 18 03 CD 66 6F D5 CD 37 49 D1 ...o ....fo..7I.
008280: 1B 7A B3 28 15 CD 5E 6F 18 F1 D5 CD FD 69 D1 79 .z.(..^o.....i.y
008290: BB CD DA 72 32 CD 62 6B 18 03 CD 6E 6F CD 49 6D ...r2.bk...no.Im
0082A0: C9 FE 02 20 55 CD 2A 6D CD 66 6F 3A 5D 7B 4F 2A ... U.*m.fo:]{O*
0082B0: 62 7B E5 21 00 00 C5 E5 06 04 CD 54 6E CD DA 72 b{.!.......Tn..r
0082C0: 29 CD 76 52 D1 2A 58 7B B7 ED 52 19 CD DA 72 45 ).vR.*X{..R...rE
0082D0: ED 5B 62 7B 19 E5 CD 40 6F CD 37 49 E1 C1 CD 0F .[b{...@o.7I....
0082E0: 6F 28 D3 CD 6E 6F D1 EB B7 ED 52 7C B5 28 07 AF o(..no....R|.(..
0082F0: CD 9C 6B 2B 18 F5 CD 49 6D C9 FE 03 20 7C CD 2A ..k+...Im... |.*
008300: 6D 2A 62 7B 22 6F 7B 2A 5E 7B CD 87 52 CD 30 6F m*b{"o{*^{..R.0o
008310: DD 22 A9 7B CD 81 05 DD 2A A9 7B CD F7 6E 28 2B .".{....*.{..n(+
008320: CD CA 4A E5 CD 76 6E 80 75 20 0C CD CA 4A DD 22 ..J..vn.u ...J."
008330: A9 7B CD 9B 05 18 08 E1 DD 22 A9 7B CD 91 05 DD .{.......".{....
008340: 2A A9 7B CD 13 6F 28 D8 CD 38 6F 21 57 7A 01 20 *.{..o(..8o!Wz.
008350: 00 DD 22 A9 7B CD 12 06 DD 2A A9 7B 21 57 7A 3A ..".{....*.{!Wz:
008360: 5E 7B 1F 1F 1F E6 1F 5F 16 00 19 3A 6F 7B 47 7E ^{....._...:o{G~
008370: CD 9C 6B 23 10 F9 CD 49 6D C9 FE 08 20 1B CD FD ..k#...Im... ...
008380: 69 3A 62 7B 3D 91 47 30 04 81 4F 06 00 CD 5E 6B i:b{=.G0..O...^k
008390: 04 05 C8 AF CD 9C 6B 18 F8 FE 09 20 1F CD EA 69 ......k.... ...i
0083A0: 78 FE 09 28 0A FE 0A CD DA 72 19 CD 08 10 D9 D9 x..(.....r......
0083B0: C5 D5 E5 06 03 E1 CD 97 6B 10 FA C9 CD CA 4A 3A ........k.....J:
0083C0: 62 7B 3D 7D CA 9C 6B C3 97 6B CD EA 69 3A 5C 7B b{=}..k..k..i:\{
0083D0: B8 CD DA 72 2C ED 5B 5E 7B CD 8D 72 38 09 ED 5B ...r,.[^{..r8..[
0083E0: 60 7B CD 8D 72 D8 C8 CD E1 72 2D 2A 73 7B E5 2A `{..r....r-*s{.*
0083F0: 73 7B E5 11 00 00 CD 75 6D CD 87 6D 2A 73 7B E5 s{.....um..m*s{.
008400: C3 1F 40 CD D5 40 3A 75 44 6F 3A 69 01 BD 7D 28 ..@..@:uDo:i..}(
008410: 06 3D 28 03 32 75 44 2A 6A 44 CD B1 41 22 6A 44 .=(.2uD*jD..A"jD
008420: CD 0B 3D 3A 69 01 3D C3 BC 3B ED 5B 72 7B 1A B7 ..=:i.=..;.[r{..
008430: C8 BE 28 03 13 18 F7 37 C9 F5 3A 71 44 FD BE 09 ..(....7..:qD...
008440: 30 03 32 75 44 F1 C9 FD 36 09 01 C9 EB FD CB 01 0.2uD...6.......
008450: 46 28 0C 2A 64 44 CD E2 3B 38 04 09 22 64 44 FD F(.*dD..;8.."dD.
008460: CB 01 4E 28 0C 2A 66 44 CD E2 3B 38 04 09 22 66 ..N(.*fD..;8.."f
008470: 44 EB C9 E5 01 FF FF CD 4C 41 EB 21 F2 7B B7 ED D.......LA.!.{..
008480: 52 28 07 4D 44 6B 62 23 ED B0 21 F2 7B 36 20 E1 R(.MDkb#..!.{6 .
008490: C9 CD E2 3B D8 EB C9 CD A4 37 3A 68 01 3D FD 96 ...;.....7:h.=..
0084A0: 04 2A 52 44 47 FD CB 10 C6 CD 41 3C FD CB 10 86 .*RDG.....A<....
0084B0: C9 C5 EB 2A 46 45 2B B7 ED 52 44 4D 03 EB 54 5D ...*FE+..RDM..T]
0084C0: 38 0A 3E 0A ED B1 E2 CC 41 B7 C1 C9 37 EB C1 C9 8.>.....A...7...
0084D0: C5 4D 44 3E 0A CD EE 3B 38 0D CD EE 3B 28 06 38 .MD>...;8...;(.8
0084E0: 06 BE 20 F6 23 C1 C9 60 69 C1 C9 E5 01 01 00 CD .. .#..`i.......
0084F0: 4C 41 11 F2 7B EB B7 ED 52 2B 4D 44 11 F1 7B 6B LA..{...R+MD..{k
008500: 62 2B 79 B0 28 06 D5 ED B8 E1 36 20 E1 C9 CD A2 b+y.(.....6 ....
008510: 02 C3 FA 01 E1 E3 FD CB 07 46 28 04 E5 CD D2 04 .........F(.....
008520: 3A 43 45 D6 02 32 43 45 C0 18 13 2A 5C 44 22 5E :CE..2CE...*\D"^
008530: 44 C9 F5 C5 D5 E5 CD 3E 42 E1 D1 C1 F1 C9 2A 5E D......>B.....*^
008540: 44 CD 63 42 ED 5B 5C 44 EB ED 52 EB C8 E5 DD E5 D.cB.[\D..R.....
008550: FD E5 CD A0 00 FD E1 DD E1 E1 C8 CD E1 03 77 22 ..............w"
008560: 5E 44 C9 23 11 6D 7B B7 EB ED 52 EB C0 21 59 7B ^D.#.m{...R..!Y{
008570: C9 E5 D5 ED 5B 5C 44 2A 5E 44 B7 ED 52 EB 28 09 ....[\D*^D..R.(.
008580: CD 63 42 7E 22 5C 44 18 03 CD E1 03 D1 E1 C9 E5 .cB~"\D.........
008590: D5 ED 5B 5C 44 2A 5E 44 B7 ED 52 D1 E1 C9 F5 7B ..[\D*^D..R....{
0085A0: 1A 01 0D 01 F2 01 FF 01 F3 01 FA 01 FB 01 F0 01 ................
0085B0: F1 01 F5 01 F4 01 F8 01 F9 01 F6 01 F7 01 FF 01 ................
0085C0: FF 01 FF 01 FF 01 FF 01 FF 01 FF 01 E0 01 FF 01 ................
0085D0: FF 01 FF 01 FF 01 FF 01 FF 01 FF 01 FF 01 FF 01 ................
0085E0: FF 01 FF 01 FF 01 FF 01 FF 01 FF 01 FF 01 FF 01 ................
0085F0: FF 01 FF 01 FF 01 FF 01 FF 01 FF 01 FF 00 FF 01 ................
008600: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
008610: 07 00 01 00 02 09 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: CD 75 6D CD C6 6D CD 76 6F CD 9B 4F E1 ED 5B 5A .um..m.vo..O..[Z
008710: 7B 72 2B 73 E1 36 03 CD 48 6F CD 5A 6E 01 84 75 {r+s.6..Ho.Zn..u
008720: 20 CD 7E E1 F5 CD 95 52 F1 C9 CD 35 4F CD 48 6F .~....R...5O.Ho
008730: CD 5A 6E 01 84 75 20 F2 7E C9 47 0E 00 D6 05 32 .Zn..u .~.G....2
008740: 97 7B 7B 32 99 7B 3A 9D 7B 32 9E 7B C5 CD DB 6D .{{2.{:.{2.{...m
008750: CA 61 4C D1 CD 75 6D CD 87 6D 2A 7B 7B E5 2A 75 .aL..um..m*{{.*u
008760: 7B 22 7B 7B 2A 73 7B E5 CD 75 6D CD 75 6D CD 75 {"{{*s{..um.um.u
008770: 6D CD 75 6D ED 5B DD 7B CD 75 6D 11 00 00 CD 75 m.um.[.{.um....u
008780: 6D CD 1B 6F 06 00 20 52 C5 2A 73 7B E5 CD 75 6D m..o.. R.*s{..um
008790: CD 75 6D CD 76 6E 95 75 01 00 00 20 01 0D C5 CD .um.vn.u... ....
0087A0: 87 6D C1 04 CD 13 6F 28 F5 C5 CD 0B 6F 20 09 79 .m....o(....o .y
0087B0: 32 8F 7B CD 18 4F 18 0B 0C CD DA 72 02 21 12 75 2.{..O.....r.!.u
0087C0: 22 5A 7B C1 E1 70 2B 71 ED 5B 5A 7B 2B 72 2B 73 "Z{..p+q.[Z{+r+s
0087D0: C1 04 CD 0F 6F 28 B1 CD 6E 6F C5 3A 97 7B B7 28 ....o(..no.:.{.(
0087E0: 26 CD 40 6F AF 32 8F 7B CD 18 4F 3A 5C 7B FE 08 &.@o.2.{..O:\{..
0087F0: 30 06 FE 04 CD DA 72 30 C1 E1 E5 C5 11 FC FF 19 0.....r0........
008800: ED 5B 5A 7B 72 2B 73 C1 D1 E1 22 7B 7B D5 C5 CD .[Z{r+s..."{{...
008810: C6 6D CD 48 6F 3A 99 7B B7 20 29 CD 76 6E 33 75 .m.Ho:.{. ).vn3u
008820: 20 0A FD E5 D1 CD 82 6B 3E FF 18 0C CD 76 6E 3A ......k>....vn:
008830: 75 20 11 CD F2 69 EB AF C1 E1 77 2B 70 2B 72 2B u ...i....w+p+r+
008840: 73 C3 48 6F C1 E1 E5 36 00 2B 70 2B FD E5 D1 3A s.Ho...6.+p+...:
008850: 99 7B B7 28 06 EB 01 F0 FF 09 EB 72 2B 73 E1 18 .{.(.......r+s..
008860: 15 7E B7 CD D4 72 2B 3A 99 7B B7 CD DA 72 4C CD .~...r+:.{...rL.
008870: 96 6E D1 CD 48 6F EB 3A 9D 7B 2A 08 79 CB 57 28 .n..Ho.:.{*.y.W(
008880: 03 21 00 00 22 83 7B 2A 7B 7B E5 2A 73 7B 22 7B .!..".{*{{.*s{"{
008890: 7B E5 EB 7E 36 00 2B 46 2B 56 2B 5E 2B B7 28 07 {..~6.+F+V+^+.(.
0088A0: E5 EB 23 CD 3F 6C E1 3A 97 7B B7 28 25 56 2B 5E ..#.?l.:.{.(%V+^
0088B0: 2B E5 EB CD 87 52 3A 5C 7B 32 87 7B 2A 62 7B 7D +....R:\{2.{*b{}
0088C0: 32 88 7B EB CD 30 6C 22 89 7B EB E1 72 2B 73 2B 2.{..0l".{..r+s+
0088D0: 18 04 11 FC FF 19 11 FC FF 19 E5 0E 00 78 B7 28 .............x.(
0088E0: 4A 7E 81 4F C5 46 2B 7E 32 8F 7B 2B 56 2B 5E 2B J~.O.F+~2.{+V+^+
0088F0: E5 EB 22 5A 7B CD 87 52 2A 73 7B E3 C5 C5 11 00 .."Z{..R*s{.....
008900: 3A 62 7B 3D 20 06 CD 50 6B 02 26 00 7B CD 9C 6B :b{= ..Pk.&.{..k
008910: CD 50 6B 03 D1 1B C3 E1 CD 97 6B 23 23 23 C3 3F .Pk.......k###.?
008920: 6C CD BB 5E 32 9C 7B AF 32 9B 7B CD 88 6F 06 00 l..^2.{.2.{..o..
008930: C5 06 01 C5 21 9B 7B CB 7E 28 0E CD 50 6B 01 19 ....!.{.~(..Pk..
008940: CB 66 28 05 CD 50 6B 01 09 CD EA 69 3A 9C 7B B8 .f(..Pk....i:.{.
008950: CD DA 72 2E CD 8E 6B E5 CD 76 6E 80 75 E1 20 22 ..r...k..vn.u. "
008960: E5 CD EA 69 3A 9C 7B B8 CD DA 72 2E D1 B7 ED 52 ...i:.{...r....R
008970: 23 CD 8A 6B CD 50 6B 06 B7 ED 52 B7 ED 42 3E DA #..k.Pk...R..B>.
008980: 18 09 CD 50 6B 03 B7 ED 52 3E CA 32 9B 7B CD 0B ...Pk...R>.2.{..
008990: 6F C1 28 11 3A 9B 7B CD 9C 6B FD E5 CD 97 6B CD o.(.:.{..k....k.
0089A0: 5E 6F 04 18 8E FD E5 D1 13 13 13 05 28 06 E1 CD ^o..........(...
0089B0: 42 6C 18 F7 3A 9B 7B CB 9F CD 9C 6B C1 FD E5 04 Bl..:.{....k....
0089C0: C5 CD 97 6B 3A 9B 7B F5 3A 9C 7B F5 CD 85 53 F1 ...k:.{.:.{...S.
0089D0: 32 9C 7B F1 32 9B 7B CD 0F 6F 1E 01 28 01 1D D5 2.{.2.{..o..(...
0089E0: CD 76 6E 30 75 D1 28 36 CD 77 6B C1 E1 FD E5 C5 .vn0u.(6.wk.....
0089F0: D5 CD 97 6B CD 3F 6C CD 76 6E 6E 75 D1 28 10 1D ...k.?l.vnnu.(..
008A00: CA 31 55 3A 98 7B B7 CD D4 72 0E CD E1 72 29 CD .1U:.{...r...r).
008A10: 85 53 CD 76 6E 30 75 28 05 CD 50 6F 18 F1 C1 E1 .S.vn0u(..Po....
008A20: CD 3F 6C 10 FA C9 01 00 01 CD 54 6E CD DA 72 28 .?l.......Tn..r(
008A30: 3A 94 7B BE CD DA 72 48 EB CD 75 6D 3A 95 7B CD :.{...rH..um:.{.
008A40: 7A 6D CD 77 6B FD E5 D1 CD 75 6D C3 97 6B 3A C9 zm.wk....um..k:.
008A50: 7B F5 3A C6 7B 21 C9 7B BE CD D4 72 61 CD 7F 67 {.:.{!.{...ra..g
008A60: 3A 5C 7B FE 02 CD DA 72 1D 21 C9 7B 5E 16 00 34 :\{....r.!.{^..4
008A70: 21 CC 7B 19 3A 5D 7B 77 2A CA 7B 19 19 3E 22 CD !.{.:]{w*.{..>".
008A80: 94 6B CD 13 6F 28 CB CD 76 6E 72 75 CD DA 72 0D .k..o(..vnru..r.
008A90: CD 85 53 F1 32 C9 7B C9 CD 66 6F 3E 3E CD 29 6F ..S.2.{..fo>>.)o
008AA0: 3E 02 28 0A 3E 3C CD 29 6F 3E 01 28 01 AF 32 A6 >.(.><.)o>.(..2.
008AB0: 7B AF 67 6F 47 C5 E5 CD 0D 6A 20 09 78 FE 0A 28 {.goG....j .x..(
008AC0: 41 CD E1 72 16 21 A6 7B 7E B7 20 02 36 02 3E 2A A..r.!.{~. .6.>*
008AD0: CD 29 6F 20 05 FD E5 E1 18 28 01 00 04 CD 54 6E .)o .....(....Tn
008AE0: 20 08 CD 76 52 2A 58 7B 18 18 01 00 05 CD 54 6E ..vR*X{......Tn
008AF0: 28 0A 01 00 06 CD 54 6E CD DA 72 4A 2B 2B 56 2B (.....Tn..rJ++V+
008B00: 04 CD 75 6D 7E CD 7A 6D CB 7E 2B 28 F7 E5 CD 7A ..um~.zm.~+(...z
008B10: 6D CD 75 6D CD 75 6D CD C6 6D E1 C1 10 DF C1 E3 m.um.um..m......
008B20: AF 32 90 7B CD 52 4F E1 C1 10 B6 41 C5 2A 73 7B .2.{.RO....A.*s{
008B30: E5 2A 83 7B E5 2A 89 7B E5 3A 87 7B F5 3A 88 7B .*.{.*.{.:.{.:.{
008B40: F5 3A 97 7B F5 21 94 7B 34 CD 9E 46 F1 32 97 7B .:.{.!.{4..F.2.{
008B50: F1 32 88 7B F1 32 87 7B E1 22 89 7B E1 22 83 7B .2.{.2.{.".{.".{
008B60: ED 53 85 7B 7C B5 28 11 ED 52 28 0D CD 8A 6B EB .S.{|.(..R(...k.
008B70: CD 92 6B 21 08 05 CD 86 6B E1 C1 04 05 CA F3 4D ..k!....k......M
008B80: CD 50 6B 02 FD E1 C5 23 5E 23 56 19 E5 2B 2B CB .Pk....#^#V..++.
008B90: 7E 2B 28 FB CD 76 52 3A 57 7B B7 20 37 3A 5C 7B ~+(..vR:W{. 7:\{
008BA0: FE 03 38 19 28 40 FE 04 28 39 FE 08 38 0F 28 36 ..8.(@..(9..8.(6
008BB0: FE 0A 30 2F CD 50 6B 03 E1 D1 C1 18 29 CD 73 6B ..0/.Pk.....).sk
008BC0: 2A 58 7B CD 8E 6B 2A 62 7B CD 8A 6B CD 50 6B 02 *X{..k*b{..k.Pk.
008BD0: ED B0 18 15 AF 32 57 7B 3E 04 32 5C 7B 21 02 00 .....2W{>.2\{!..
008BE0: 22 62 7B CD 73 6B CD 1B 66 E1 C1 10 99 CD 50 6B "b{.sk..f.....Pk
008BF0: 02 FD E5 CD FC 52 21 94 7B 35 3A 97 7B B7 28 46 .....R!.{5:.{.(F
008C00: 2A 89 7B 3A 87 7B FE 08 20 1A 47 CD 50 6B 02 FD *.{:.{.. .G.Pk..
008C10: E1 3E 21 CD 94 6B 21 3A 05 CD 86 6B CD 50 6B 02 .>!..k!:...k.Pk.
008C20: FD E5 18 22 FE 09 20 0D 3E 21 CD 94 6B 21 2C 05 ...".. .>!..k!,.
008C30: CD 86 6B 18 11 3E 2A CD 94 6B 3A 88 7B 3D 20 06 ..k..>*..k:.{= .
008C40: CD 50 6B 02 26 00 2A 83 7B 7C B5 28 27 ED 5B 85 .Pk.&.*.{|.('.[.
008C50: 7B ED 52 28 1F 3A 97 7B B7 28 0A 3A 87 7B FE 08 {.R(.:.{.(.:.{..
008C60: 3E D9 C4 9C 6B CD 8A 6B EB CD 8E 6B 21 22 05 CD >...k..k...k!"..
008C70: 82 6B 18 05 CD 50 6B 01 C9 CD 48 6F D1 E1 22 73 .k...Pk...Ho.."s
008C80: 7B 22 75 7B E1 22 7B 7B EB C9 2A 73 7B ED 5B 7B {"u{."{{..*s{.[{
008C90: 7B B7 ED 52 19 C8 23 5E 23 56 19 7E FE 06 28 04 {..R..#^#V.~..(.
008CA0: FE 05 20 E9 E5 2B 2B CB 7E 2B 28 FB 7E B7 CD DA .. ..++.~+(.~...
008CB0: 72 49 E1 18 D8 2A 73 7B E5 06 00 C5 16 04 3A 91 rI...*s{......:.
008CC0: 7B 5F CD 75 6D CD 87 6D CD 7A 6D CD 75 6D CD 75 {_.um..m.zm.um.u
008CD0: 6D CD C6 6D C1 04 CD 13 6F 28 E0 E1 C9 2A 73 7B m..m....o(...*s{
008CE0: E5 CD 9B 4F E1 CD 95 52 CD 76 6E 62 75 3E 00 20 ...O...R.vnbu>.
008CF0: 23 3A 91 7B B7 CD DA 72 4B 01 00 04 CD 54 6E 20 #:.{...rK....Tn
008D00: 5E EB D1 C1 05 20 03 CD 30 6A 19 06 00 3E 2B CD ^.... ..0j...>+.
008D10: 29 6F 28 A1 04 3E 2D CD 29 6F 28 99 3A A6 7B FE )o(..>-.)o(.:.{.
008D20: 01 28 06 30 0A 24 25 20 06 7D CD 9C 6B 18 03 CD .(.0.$% .}..k...
008D30: 97 6B 3E 2F CD 29 6F CA 9B 56 C3 6E 6F 2B 46 2B .k>/.)o..V.no+F+
008D40: 56 2B 5E 2B D5 56 2B 5E 2B D5 2B 2B 56 2B 5E 2B V+^+.V+^+.++V+^+
008D50: D5 56 2B 5E 2B D5 04 05 CA D6 57 CD 66 6F C5 46 .V+^+.....W.fo.F
008D60: 2B 7E 2B 32 57 7B 56 2B 5E 2B 48 CB 7E 2B 28 FB +~+2W{V+^+H.~+(.
008D70: 10 F9 41 E5 EB CD 87 52 C5 3A 57 7B B7 20 2A 3A ..A....R.:W{. *:
008D80: 5C 7B FE 03 38 1B CD 84 5E CD 64 58 3A 5C 7B FE \{..8...^.dX:\{.
008D90: 04 28 2A FE 09 38 29 20 24 CD 50 6B 02 C5 D5 18 .(*..8) $.Pk....
008DA0: 1C CD 2A 6D CD 49 67 18 06 CD 2A 6D CD 7F 67 CD ..*m.Ig...*m..g.
008DB0: 5D 6D 3A 69 7B FE 00 C4 C5 58 CD 49 6D CD 6F 6B ]m:i{....X.Im.ok
008DC0: C1 05 28 05 CD 5E 6F 18 AF E1 C1 05 28 05 CD 5E ..(..^o.....(..^
008DD0: 6F 18 8B CD 6E 6F D1 E1 7A B3 28 07 CD 92 6B EB o...no..z.(...k.
008DE0: CD 8E 6B D1 E1 3E CD C3 94 6B 3A 5C 7B FE 00 28 ..k..>...k:\{..(
008DF0: 08 FE 05 38 08 FE 08 30 04 CD E1 72 36 3A BD 7B ...8...0...r6:.{
008E00: CB 4F 20 0E CB 47 28 02 3E FF 2A BE 7B 22 58 7B .O ..G(.>.*.{"X{
008E10: 18 08 CD 8B 67 CD 6F 6B 3E 01 32 57 7B CD 7E 6F ....g.ok>.2W{.~o
008E20: 3A 5C 7B FE 03 D2 3A 59 CD 2A 6D CD 49 67 CD 43 :\{...:Y.*m.Ig.C
008E30: 6D CD C5 58 3A 64 7B 3D 28 18 3C 28 08 CD 50 6B m..X:d{=(.<(..Pk
008E40: 02 ED 5B 18 05 CD 50 6B 01 11 2A 65 7B CD 97 6B ..[...Pk..*e{..k
008E50: 18 05 CD 50 6B 01 D1 2A 6F 7B CD 8A 6B CD 50 6B ...Pk..*o{..k.Pk
008E60: 02 ED B0 C9 3A 5C 7B FE 09 20 0C 78 FE 0A 20 2D ....:\{.. .x.. -
008E70: 06 09 21 08 10 18 23 FE 08 20 11 78 FE 0C 20 1D ..!...#.. .x.. .
008E80: 06 08 CD 50 6B 04 65 2E 01 E5 18 11 FE 0C 20 0D ...Pk.e....... .
008E90: 78 FE 08 20 08 06 0C 21 96 09 CD 86 6B 3A 5C 7B x.. ...!....k:\{
008EA0: B8 20 1E FE 03 20 0A 79 B7 C8 2A 5E 7B BE C8 18 . ... .y..*^{...
008EB0: 10 FE 04 C0 2A 8B 7B 7C B5 C8 ED 5B 5E 7B ED 52 ....*.{|...[^{.R
008EC0: C8 CD E1 72 2C 3A 5C 7B FE 00 28 4F 0E BF FE 0A ...r,:\{..(O....
008ED0: 30 34 0E 83 FE 08 20 0B 3A 9E 7B CB 6F 20 27 0E 04.... .:.{.o '.
008EE0: 80 18 23 FE 06 30 1F 0E B3 FE 03 30 19 0E C3 FE ..#..0.....0....
008EF0: 02 30 13 2A 60 7B 7C B5 0E BF 20 0A 2A 6D 7B 7E .0.*`{|... .*m{~
008F00: 0B 7E 32 8F 7B 2B 56 2B 5E EB 18 03 CD F2 69 22 .~2.{+V+^.....i"
008F10: 7F 7B 3E FF 32 90 7B C9 CD C8 4F CD DA 72 24 AF .{>.2.{...O..r$.
008F20: 32 90 7B 3A 8F 7B B7 C0 3A 5C 7B FE 05 D8 FE 08 2.{:.{..:\{.....
008F30: D0 CD E1 72 43 CD B5 4E E5 C5 CD 40 6F AF 32 8F ...rC..N...@o.2.
008F40: 7B CD DD 4E C1 3A 90 7B B7 28 06 78 3D CD DA 72 {..N.:.{.(.x=..r
008F50: 4B E1 C5 E5 3A 8F 7B 21 02 00 B7 20 03 2A 62 7B K...:.{!... .*b{
008F60: EB 3A 91 7B B7 20 0B 3A 90 7B B7 20 05 CD 30 6C .:.{. .:.{. ..0l
008F70: 18 09 2A 7F 7B E5 19 22 7F 7B E1 EB E1 2B 2B CB ..*.{..".{...++.
008F80: 7E 28 FB 2B 3A 8F 7B 77 2B 72 2B 73 2B ED 5B 5A ~(.+:.{w+r+s+.[Z
008F90: 7B 72 2B 73 2B 2B 2B C1 10 B8 C9 CD C8 4F C8 CD {r+s+++......O..
008FA0: 76 6E 42 75 CD DB 4F C8 CD 39 50 C8 CD 06 51 C8 vnBu..O..9P...Q.
008FB0: CD 40 51 C8 CD 6B 51 C8 CD A5 51 C8 CD C5 51 C8 .@Q..kQ...Q...Q.
008FC0: CD 10 52 C8 CD E1 72 24 01 00 03 CD 54 6E C0 56 ..R...r$....Tn.V
008FD0: 2B 5E EB 22 5A 7B CD 87 52 AF C9 CD 76 6E 48 75 +^."Z{..R...vnHu
008FE0: C0 CD 30 6F 06 00 C5 CD 3B 52 C1 2A 5A 7B E5 2A ..0o....;R.*Z{.*
008FF0: 60 7B ED 5B 5E 7B B7 ED 52 23 7C B5 CD D4 72 62 `{.[^{..R#|...rb
009000: E5 04 CD 13 6F 28 DF C5 CD 38 6F CD 88 6F CD 9B ....o(...8o..o..
009010: 4F C1 2A 5A 7B 22 5E 7B 2A 62 7B D1 C5 CD 9A 72 O.*Z{"^{*b{....r
009020: CD C8 72 62 C1 22 62 7B E1 22 60 7B 3E 01 32 5C ..rb."b{."`{>.2\
009030: 7B C5 CD 54 52 C1 10 DA C9 CD 76 6E 54 75 C0 3A {..TR.....vnTu.:
009040: 9A 7B F5 3A 91 7B F5 21 92 7B 34 7E 32 91 7B 2A .{.:.{.!.{4~2.{*
009050: 7F 7B E5 2A 81 7B E5 21 00 00 22 7F 7B 22 81 7B .{.*.{.!..".{".{
009060: AF 32 9A 7B CD 8B 50 2A 81 7B 22 62 7B E1 22 81 .2.{..P*.{"b{.".
009070: 7B E1 22 7F 7B 3A 91 7B 32 5D 7B F1 32 91 7B F1 {.".{:.{2]{.2.{.
009080: 32 9A 7B 3E 02 32 5C 7B C3 54 52 CD F9 50 C8 CD 2.{>.2\{.TR..P..
009090: 76 6E DA 75 28 1A CD 35 4F 2A 7F 7B ED 5B 81 7B vn.u(..5O*.{.[.{
0090A0: B7 ED 52 38 04 19 22 81 7B CD 0F 6F 28 DD 18 38 ..R8..".{..o(..8
0090B0: CD C8 4F C4 35 4F CD 88 6F CD F9 50 C8 2A 7F 7B ..O.5O..o..P.*.{
0090C0: E5 CD EA 69 CD 13 6F 28 F8 CD 40 6F CD 66 6F 3A ...i..o(..@o.fo:
0090D0: 9A 7B F5 3E FF 32 9A 7B CD 8B 50 F1 32 9A 7B E1 .{.>.2.{..P.2.{.
0090E0: 22 7F 7B CD 0F 6F 28 D1 3A 9A 7B B7 C2 6E 6F CD ".{..o(.:.{..no.
0090F0: 76 6E 30 75 C8 CD E1 72 0E 3A 9A 7B B7 C2 1F 6F vn0u...r.:.{...o
009100: FE 0A 20 17 0E B3 21 5C 7B 11 69 7B 06 08 CB 11 .. ...!\{.i{....
009110: 30 04 1A BE 20 05 23 13 10 F4 C9 CD E1 72 2C 11 0... .#......r,.
009120: FC FF 19 56 2B 5E 2B D5 56 2B 5E ED 53 58 7B E1 ...V+^+.V+^.SX{.
009130: CD 87 52 AF 32 57 7B CD 7E 6F CD 84 5E CD 64 58 ..R.2W{.~o..^.dX
009140: C3 1B 66 CD 0C 5A 21 70 13 FE 06 20 08 21 6F 13 ..f..Z!p... .!o.
009150: CD 55 59 18 34 E5 CD 6F 6B CD 5E 6F CD D0 5E E1 .UY.4..ok.^o..^.
009160: CD 6E 6F C3 86 6B CD 0C 5A 21 A5 1B CD 55 59 18 .no..k..Z!...UY.
009170: 18 CD 0C 5A 21 93 1B 18 E7 21 EB 1B 18 03 21 EA ...Z!....!....!.
009180: 1B E5 CD 0C 5A E1 CD 60 59 C3 BE 5A CD 0C 5A FE ....Z..`Y..Z..Z.
009190: 06 CD D4 72 3F 21 D5 19 FE 05 28 03 21 6F 1B E5 ...r?!....(.!o..
0091A0: CD 6F 6B CD 5E 6F CD 97 5E 18 DA CD 0C 5A FE 05 .ok.^o..^....Z..
0091B0: CD DA 72 40 21 A5 19 18 CD 21 FA 59 18 03 21 00 ..r@!....!.Y..!.
0091C0: 5A E5 CD 0C 5A 3A 5C 7B FE 05 20 0C 2A 5E 7B CD Z...Z:\{.. .*^{.
0091D0: 71 52 2A 6F 7B CD 8E 6B E1 18 06 CD 0C 5A 21 06 qR*o{..k.....Z!.
0091E0: 5A CD 6E 6F CD E9 59 18 A0 3A 5C 7B D6 05 87 5F Z.no..Y..:\{..._
0091F0: 16 00 19 5E 23 56 EB C3 86 6B 11 18 FF 13 70 1A ...^#V...k....p.
009200: 10 18 FE 13 6F 1A 7A 18 69 14 B0 1A CD 66 6F CD ....o.z.i....fo.
009210: 17 5A C8 CD E1 72 15 CD B2 67 37 C0 3A 5C 7B FE .Z...r...g7.:\{.
009220: 05 38 0C FE 08 30 08 CD 8B 67 AF 3A 5C 7B C9 AF .8...0...g.:\{..
009230: 3D C9 3E AF 32 A3 7B CD 1B 6F 28 05 CD CA 5A 18 =.>.2£{..o(...Z.
009240: 73 CD 17 5A 38 1D 20 13 FE 05 CA D8 5B FE 06 CD s..Z8. .....[...
009250: DA 72 41 21 A9 14 CD 86 6B 18 51 CD 8B 67 CD CA .rA!....k.Q..g..
009260: 5A 18 06 CD CA 5A CD 7F 67 3A 5C 7B FE 08 38 08 Z....Z..g:\{..8.
009270: FE 0B 28 04 FE 0D 38 04 CD E1 72 42 FE 08 20 0F ..(...8...rB.. .
009280: 3A 62 7B 3D 67 2E 06 CD 97 6B 21 8E 16 18 1A 21 :b{=g....k!....!
009290: 72 16 FE 09 28 13 21 44 16 FE 0C 28 0C 21 4E 16 r...(.!D...(.!N.
0092A0: 3A 62 7B 3D 20 03 21 4D 16 CD 86 6B CD 13 6F 28 :b{= .!M...k..o(
0092B0: B5 CD 6E 6F 21 AB 16 3A A3 7B B7 C4 86 6B 3A 9E ..no!..:£{...k:.
0092C0: 7B CB 47 C8 21 1B 20 C3 86 6B 21 9B 14 3A 9E 7B {.G.!. ..k!..:.{
0092D0: CB 77 28 10 21 CC 14 3A A3 7B B7 28 07 21 CB 14 .w(.!..:£{.(.!..
0092E0: AF 32 A3 7B C3 86 6B 3E AF 32 A3 7B CD 1B 6F 28 .2£{..k>.2£{..o(
0092F0: 09 21 9B 14 CD 86 6B C3 D2 5B CD 17 5A 38 21 20 .!....k..[..Z8!
009300: CD 76 6E 30 75 C9 CD 76 6E 51 75 C0 CD 88 6F CD .vn0u..vnQu...o.
009310: 3B 52 2A 60 7B ED 5B 5E 7B 7C B2 CD DA 72 46 CB ;R*`{.[^{|...rF.
009320: 3D CB 3D CB 3D CB 3B CB 3B CB 3B 7D 3C 93 6F 22 =.=.=.;.;.;}<.o"
009330: 62 7B 2A 5A 7B 22 5E 7B 3E 03 32 5C 7B C3 54 52 b{*Z{"^{>.2\{.TR
009340: CD 27 6F C0 11 00 00 CD 75 6D 2A 73 7B E5 CD BA .'o.....um*s{...
009350: 6D CD C6 6D E1 22 5E 7B 3E 04 32 5C 7B 3E FF 32 m..m."^{>.2\{>.2
009360: 5D 7B 21 02 00 22 62 7B C3 54 52 CD 76 6E 4D 75 ]{!.."b{.TR.vnMu
009370: C0 CD 76 6E 60 75 20 1F CD 9B 4F 3A 5C 7B FE 05 ..vn`u ...O:\{..
009380: 38 08 FE 08 30 04 CD E1 72 44 2A 5A 7B 22 5E 7B 8...0...rD*Z{"^{
009390: 3E 05 21 B0 00 18 05 3E 07 21 30 00 32 5C 7B 22 >.!....>.!0.2\{"
0093A0: 62 7B C3 54 52 CD 76 6E 5A 75 C0 CD 30 6F CD F2 b{.TR.vnZu..0o..
0093B0: 69 24 25 CD DA 72 31 2C 2D CD D4 72 31 CD 38 6F i$%..r1,-..r1.8o
0093C0: 23 3E 08 18 D7 CD 1B 6F C0 21 FF FF E5 11 00 02 #>.....o.!......
0093D0: CD 75 6D CD 87 6D 3A 93 7B CD 7A 6D D1 13 D5 CD .um..m:.{.zm....
0093E0: 75 6D CD C6 6D E1 CD 13 6F 28 E1 CD 6E 6F E5 21 um..m...o(..no.!
0093F0: 93 7B 7E 34 E1 11 00 00 32 5C 7B ED 53 5E 7B 22 .{~4....2\{.S^{"
009400: 60 7B 7A B4 21 01 00 28 01 23 22 62 7B C3 54 52 `{z.!..(.#"b{.TR
009410: CD 0D 6A C0 78 F5 FE 0A CD C8 72 33 E5 CD 76 6E ..j.x.....r3..vn
009420: 80 75 CD DA 72 0B CD EA 69 D1 F1 F5 B8 CD DA 72 .u..r...i......r
009430: 2C CD 8D 72 CD C8 72 34 F1 18 BD CD 10 52 C8 CD ,..r..r4.....R..
009440: C5 51 C8 CD C8 4F CD DA 72 1E 3A 5C 7B FE 0A D0 .Q...O..r.:\{...
009450: CD E1 72 1E 11 00 08 CD 75 6D 2A 73 7B 22 5A 7B ..r.....um*s{"Z{
009460: 21 5C 7B 06 08 7E CD 7A 6D 23 10 F9 CD C6 6D AF !\{..~.zm#....m.
009470: C9 11 69 7B 18 14 7E 2B 32 57 7B 56 2B 5E 2B ED ..i{..~+2W{V+^+.
009480: 53 58 7B 56 2B 5E EB 11 5C 7B C5 06 08 7E 12 2B SX{V+^..\{...~.+
009490: 13 10 FA C1 C9 22 79 7B 2A 73 7B ED 4B 79 7B B7 ....."y{*s{.Ky{.
0094A0: ED 42 09 C8 23 4E 23 46 09 7E FE 08 20 ED 36 00 .B..#N#F.~.. .6.
0094B0: E5 2B 2B 7E FE 04 20 40 2B 7E B7 28 3B 36 00 2B .++~.. @+~.(;6.+
0094C0: E5 5E 2B 56 2A 73 7B ED 4B 77 7B B7 ED 42 09 CD .^+V*s{.Kw{..B..
0094D0: D4 72 2A 23 4E 23 46 09 7E FE 03 20 EA E5 D5 2B .r*#N#F.~.. ...+
0094E0: 2B 1A BE 28 04 D1 E1 18 DE CB 7E 2B 1B 28 F2 C1 +..(......~+.(..
0094F0: C1 46 2B 4E E1 71 2B 70 E1 C3 9B 52 AF 32 95 7B .F+N.q+p...R.2.{
009500: 14 FE 05 CA DD 5B FE 06 CD DA 72 41 21 BA 14 CD .....[....rA!...
009510: 86 6B C3 C9 5B CD 0F 62 21 9B 14 CD 86 6B 18 2F .k..[..b!....k./
009520: 21 9B 14 CD 86 6B CD 5C 6A 20 21 78 FE 08 20 17 !....k.\j !x.. .
009530: DD 7E 00 FE 2C 28 04 FE 29 20 0C 21 BA 17 CD 86 .~..,(..) .!....
009540: 6B CD 5E 6B C3 C9 5B CD 01 62 18 03 CD E8 5E 78 k.^k..[..b....^x
009550: FE 08 38 04 FE 0D 38 04 CD E1 72 42 FE 0C 20 0A ..8...8...rB.. .
009560: CD 0B 6F 20 41 CD DD 5E 18 08 CD 48 61 CD 0B 6F ..o A..^...Ha..o
009570: 20 19 C5 CD 97 5E C1 78 FE 09 20 2A CD 0B 6F 20 ....^.x.. *..o
009580: 1C C5 CD 6F 6B CD 97 5E C1 18 1B 21 00 00 78 FE ...ok..^...!..x.
009590: 09 20 02 2E 12 CD 92 6B 78 FE 09 20 09 CD 6F 6B . .....kx.. ..ok
0095A0: 21 FF FF CD 92 6B 78 21 AA 17 FE 08 28 18 21 79 !....kx!....(.!y
0095B0: 17 FE 09 28 11 21 26 17 FE 0A 28 0A 21 8B 17 FE ...(.!&...(.!...
0095C0: 0B 28 03 21 22 17 CD 86 6B CD 13 6F CA 26 5B CD .(.!"...k..o.&[.
0095D0: 6E 6F 21 CD 17 C3 B7 5A 21 B6 18 18 03 21 DC 18 no!....Z!....!..
0095E0: 22 A7 7B 3A A3 7B B7 CD DA 72 23 21 A4 18 CD 86 ".{:£{...r#!....
0095F0: 6B 2A 5E 7B CD 71 52 CD 13 6F 20 14 CD 24 6D CD k*^{.qR..o ..$m.
009600: 7F 67 CD 43 6D CD C5 58 2A A7 7B CD 86 6B 18 E7 .g.Cm..X*.{..k..
009610: CD 6E 6F C3 BE 5A 21 F1 1A 11 BE 1A 18 06 21 ED .no..Z!.......!.
009620: 1A 11 BA 1A E5 D5 CD 0C 5A FE 07 CD DA 72 25 CD ........Z....r%.
009630: 6F 6B CD 5E 6F CD 7F 67 CD 6F 6B CD 5E 6F CD 97 ok.^o..g.ok.^o..
009640: 5E CD 13 6F D1 E1 28 03 D5 18 18 E5 CD 6F 6B CD ^..o..(......ok.
009650: 7F 67 3A 5C 7B FE 0A 20 06 3A 62 7B 3D 20 04 CD .g:\{.. .:b{= ..
009660: E1 72 18 C3 85 59 CD 66 6F CD AD 5C CD 6F 6B CD .r...Y.fo..\.ok.
009670: 5E 6F CD 97 5E CD 6F 6B CD 5E 6F CD 97 5E 21 F3 ^o..^.ok.^o..^!.
009680: 08 CD 6E 6F C3 86 6B CD 66 6F CD D0 5E CD 5E 6F ..no..k.fo..^.^o
009690: CD AD 5C CD 6F 6B 3A 62 7B 3D 67 2E 06 E5 CD 5E ..\.ok:b{=g....^
0096A0: 6F CD 97 5E E1 CD 97 6B 21 20 09 18 D4 CD 7F 67 o..^...k! .....g
0096B0: 3A 5C 7B FE 08 C8 CD E1 72 22 CD 66 6F CD A2 5E :\{.....r".fo..^
0096C0: CD 48 61 CD 0B 6F 20 1C C5 CD 97 5E CD 6F 6B C1 .Ha..o ....^.ok.
0096D0: 78 FE 0A 28 2D CD 0B 6F 20 1F C5 CD 97 5E CD 6F x..(-..o ....^.o
0096E0: 6B C1 18 1E 21 00 00 78 FE 0A 28 02 2E 12 CD 92 k...!..x..(.....
0096F0: 6B CD 6F 6B 78 FE 0A 28 09 21 FF FF CD 92 6B CD k.okx..(.!....k.
009700: 32 C9 7B CD 77 53 FD 22 A4 7B CD 82 6B 2A 73 7B 2.{.wS.".{..k*s{
009710: ED 5B 75 7B B7 ED 52 19 30 49 23 4E 23 46 23 7E .[u{..R.0I#N#F#~
009720: 23 5E 23 56 E5 C5 47 7A B3 28 0F EB 2B 7E 4F 3C #^#V..Gz.(..+~O<
009730: CD D4 72 28 2B 56 2B 5E 18 06 ED 5B A4 7B 0E 00 ..r(+V+^...[.{..
009740: E1 78 91 20 05 CD 42 6C 18 16 CD C8 72 47 D5 F5 .x. ..Bl....rG..
009750: CD 3F 6C F1 47 CD 73 6B 10 FB 3E C3 E1 CD 94 6B .?l.G.sk..>....k
009760: E1 18 AD 2A A4 7B 23 FD E5 D1 1B 1B B7 ED 52 19 ...*.{#.......R.
009770: C2 3F 6C 2B C3 C2 6C CD 85 53 CD 76 6E 30 75 C8 .?l+..l..S.vn0u.
009780: CD 50 6F 18 F2 3E FF 32 98 7B 3A 9D 7B 32 9E 7B .Po..>.2.{:.{2.{
009790: CB 5F 28 08 3E FF 32 A0 7B CD 9C 6B CD 5A 6E 02 ._(.>.2.{..k.Zn.
0097A0: BB 75 28 27 CD B2 67 CA EA 57 01 00 05 CD 54 6E .u('..g..W....Tn
0097B0: CA 3D 57 01 00 01 CD 54 6E 28 15 01 00 06 CD 54 .=W....Tn(.....T
0097C0: 6E CA 1F 59 CD 5A 6E 02 38 76 C0 5E 23 56 EB E9 n..Y.Zn.8v.^#V..
0097D0: CD 40 6F 3A 94 7B BE CD DA 72 48 2B 7E 3C CD DA .@o:.{...rH+~<..
0097E0: 72 2B 3A 95 7B 77 FD E5 D1 2B 72 2B 73 18 96 CD r+:.{w...+r+s...
0097F0: B0 5E CD 50 6B 03 CB 45 CA FD E5 CD 97 6B CD 76 .^.Pk..E.....k.v
009800: 6E 6A 75 CD DA 72 11 CD 85 53 CD 76 6E 6E 75 20 nju..r...S.vnnu
009810: 0F CD 77 6B E1 FD E5 CD 97 6B CD 3F 6C CD 85 53 ..wk.....k.?l..S
009820: E1 C3 3F 6C FD E5 CD B0 5E CD 76 6E 72 75 CD DA ..?l....^.vnru..
009830: 72 0D CD 50 6B 03 CB 45 CA FD E5 CD 97 6B CD 85 r..Pk..E.....k..
009840: 53 D1 E1 3E C3 CD 94 6B EB C3 3F 6C FD E5 CD 85 S..>...k..?l....
009850: 53 CD 76 6E 74 75 28 05 CD 50 6F 18 F1 CD B0 5E S.vntu(..Po....^
009860: CD 50 6B 03 CB 45 CA E1 C3 97 6B 01 00 04 CD 54 .Pk..E....k....T
009870: 6E CD DA 72 29 CD 76 52 3A 57 7B B7 20 07 3A 5C n..r).vR:W{. .:\
009880: 7B FE 0A 30 04 CD E1 72 1E CD 2A 6D 3A 5C 7B F5 {..0...r..*m:\{.
009890: CD 7E 6F CD E8 5E CD 6F 6B F1 F5 B8 CD DA 72 2C .~o..^.ok.....r,
0098A0: CD 5A 6E 01 F5 75 CD DA 72 12 5E D5 CD E8 5E D1 .Zn..u..r.^...^.
0098B0: F1 D5 B8 CD DA 72 2C CD 76 6E 72 75 CD DA 72 0D .....r,.vnru..r.
0098C0: CD 50 6B 01 D1 D1 CD 63 6D D5 7B 21 66 06 FE 23 .Pk....cm.{!f..#
0098D0: 28 03 21 76 06 CD 86 6B FD E5 CD 50 6B 06 7A B3 (.!v...k...Pk.z.
0098E0: CA 00 00 D5 CD 1B 66 21 95 7B 34 CD 85 53 21 95 ......f!.{4..S!.
0098F0: 7B 35 E1 D1 CD 49 6D E5 2A 58 7B 3E 2A CD 94 6B {5...Im.*X{>*..k
009900: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
009910: 08 00 01 00 02 09 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: 6F 6B CD 5E 6F C5 CD AD 5C 3A 62 7B 3D 67 2E 06 ok.^o...\:b{=g..
009A10: CD 97 6B C1 21 BE 1E 78 FE 0A 28 03 21 BD 1E C3 ..k.!..x..(.!...
009A20: 81 5C CD 66 6F CD D0 5E CD 5E 6F CD 7F 67 3A 5C .\.fo..^.^o..g:\
009A30: 7B FE 09 28 10 FE 0A 20 08 3A 62 7B 3D 3E 0A 20 {..(... .:b{=>.
009A40: 04 CD E1 72 1B F5 CD 6F 6B CD 5E 6F CD 7F 67 3A ...r...ok.^o..g:
009A50: 5C 7B FE 0A 20 06 3A 62 7B 3D 20 04 CD E1 72 18 \{.. .:b{= ...r.
009A60: F1 21 F4 1E FE 0A 28 B7 21 F3 1E 18 B2 CD 66 6F .!....(.!.....fo
009A70: CD 97 5E 21 DB 1F E5 CD 6F 6B CD 5E 6F CD 97 5E ..^!....ok.^o..^
009A80: E1 18 2E 21 48 1F C3 86 6B CD 66 6F CD 97 5E 21 ...!H...k.fo..^!
009A90: 1D 02 18 1D CD E3 5D CD 5E 6F CD 97 5E 18 0F CD ......].^o..^...
009AA0: E3 5D 2A 5E 7B CD 71 52 2A 6F 7B CD 92 6B 21 E5 .]*^{.qR*o{..k!.
009AB0: 1C C3 60 59 CD E3 5D CD 5E 6F CD 97 5E 18 0F CD ..`Y..].^o..^...
009AC0: E3 5D 2A 5E 7B CD 71 52 2A 6F 7B CD 92 6B 21 7A .]*^{.qR*o{..k!z
009AD0: 1D C3 60 59 21 A3 1E 18 03 21 AB 1E E5 CD E9 5D ..`Y!£...!.....]
009AE0: E1 18 CE CD E9 5D C3 6F 6B CD 66 6F CD 7F 67 3A .....].ok.fo..g:
009AF0: 5C 7B FE 04 C8 CD E1 72 1C CD 66 6F CD 97 5E 21 \{.....r..fo..^!
009B00: DB 1C C3 60 59 CD 66 6F CD 7F 67 CD 6F 6B CD 5E ...`Y.fo..g.ok.^
009B10: 6F CD 7F 67 21 64 1F C3 76 5D CD 66 6F CD 7F 67 o..g!d..v].fo..g
009B20: CD 6F 6B CD 5E 6F CD 97 5E CD 6F 6B CD 5E 6F CD .ok.^o..^.ok.^o.
009B30: BB 5E 21 4E 1F C3 B1 5D 21 0A 03 18 08 21 10 03 .^!N...]!....!..
009B40: 18 03 21 3E 02 C3 86 6B 21 99 02 18 F8 21 84 02 ..!>...k!....!..
009B50: 18 F3 21 6B 02 18 EE 21 62 02 18 E9 21 59 02 18 ..!k...!b...!Y..
009B60: E4 11 00 00 C3 39 56 21 D4 20 C3 82 6B CD 8E 5E .....9V!. ..k..^
009B70: CD 50 6B 03 C1 ED 69 C9 CD 7E 6F CD 97 5E CD 50 .Pk...i..~o..^.P
009B80: 6B 01 F9 C9 CD 2A 6D CD E8 5E CD 49 6D C9 CD D5 k....*m..^.Im...
009B90: 65 CD 7E 6F CD 6F 6B CD E8 5E 78 FE 0A C8 CD E1 e.~o.ok..^x.....
009BA0: 72 17 CD E8 5E 78 FE 0A C8 FE 09 C8 CD E1 72 1A r...^x........r.
009BB0: CD E8 5E 78 FE 0B C8 CD E1 72 14 CD E8 5E 78 FE ..^x.....r...^x.
009BC0: 0A D0 FE 08 CD DA 72 1F 06 0C 21 96 09 C3 86 6B ......r...!....k
009BD0: CD E8 5E 78 FE 08 C8 FE 0C CD DA 72 21 06 08 CD ..^x.......r!...
009BE0: 50 6B 04 65 2E 01 E5 C9 CD 98 5F C5 CD 5A 6E 01 Pk.e......_..Zn.
009BF0: 25 76 C1 C0 7E 3C 28 3C 3D F5 C5 CD 48 61 2A 8B %v..~<(<=...Ha*.
009C00: 6B 3A BD 7B B7 20 14 3E 2A 2A BE 7B CD 94 6B 3A k:.{. .>**.{..k:
009C10: 62 7B 3D C0 CD 50 6B 02 26 00 C9 CD 8B 67 3A 62 b{=..Pk.&....g:b
009C20: 7B 3D 20 07 CD 50 6B 01 6E 18 E9 CD 50 6B 04 5E {= ..Pk.n...Pk.^
009C30: 23 56 EB C9 2A 5E 7B CD 71 52 2A 62 7B 3A 6B 7B #V..*^{.qR*b{:k{
009C40: 1F 1F 1F E6 1F 67 C3 8A 6B CD 0D 6A 20 31 78 FE .....g..k..j 1x.
009C50: 08 CD DA 72 3C 2E 18 61 CD 97 6B FD 22 58 7B 3E ...r<..a..k."X{>
009C60: 01 32 5C 7B 21 E2 74 22 5E 7B 21 00 00 22 60 7B .2\{!.t"^{!.."`{
009C70: 69 22 62 7B CD 62 6B 3E 21 2A 58 7B C3 94 6B CD i"b{.bk>!*X{..k.
009C80: 87 67 C8 CD E1 72 29 CD B2 67 C0 3A BD 7B 2A BE .g...r)..g.:.{*.
009C90: 7B CB 4F 20 0D CB 47 3E 21 28 02 3E 2A CD 94 6B {.O ..G>!(.>*..k
009CA0: 18 0E CB 47 20 0A 3E 11 CD 94 6B CD 50 6B 01 19 ...G .>...k.Pk..
009CB0: AF C9 CD 0C 68 28 22 01 00 04 CD 54 6E 20 2E CD ....h("....Tn ..
009CC0: 76 52 3A 57 7B B7 3E 21 06 00 28 03 3E 2A 04 21 vR:W{.>!..(.>*.!
009CD0: BD 7B 70 2A 58 7B 22 BE 7B CD 3A 68 28 FB CD 31 .{p*X{".{.:h(..1
009CE0: 69 28 F6 CD 74 69 28 F1 CD 9F 69 AF C9 CD 76 6E i(..ti(...i...vn
009CF0: FA 78 C0 CD D5 65 3E 0A 32 5C 7B 21 01 00 22 62 .x...e>.2\{!.."b
009D00: 7B 2D 22 5E 7B 2D 22 60 7B C3 03 69 3A C9 7B 47 {-"^{-"`{..i:.{G
009D10: 05 F8 C5 58 16 00 21 CC 7B 19 7E 4F 06 04 CD 54 ...X..!.{.~O...T
009D20: 6E C1 20 EC E5 78 87 5F 16 00 2A CA 7B 19 22 BE n. ..x._..*.{.".
009D30: 7B 21 BD 7B 36 01 E1 C3 48 69 3A 5C 7B FE 01 C0 {!.{6...Hi:\{...
009D40: CD E0 6E C0 CD 8B 67 CD 6F 6B CD 84 5E 2A 60 7B ..n...g.ok..^*`{
009D50: CD 71 52 3A 69 7B B8 CD DA 72 2C 2A 6B 7B 7C B7 .qR:i{...r,*k{|.
009D60: 20 12 7D FE 04 30 21 B7 28 29 F5 CD 50 6B 01 2B .}..0!.()..Pk.+
009D70: F1 3D 18 F3 3C 20 11 7D FE FD 38 0C F5 CD 50 6B .=..< .}..8...Pk
009D80: 01 23 F1 3C 20 F6 18 0B CD 30 6A CD 8E 6B CD 50 .#.< ....0j..k.P
009D90: 6B 01 19 3A 9E 7B CB 4F 28 14 2A 6D 7B ED 5B 6B k..:.{.O(.*m{.[k
009DA0: 7B B7 ED 52 23 CD 8E 6B 21 4C 06 CD 86 6B 2A 5E {..R#..k!L...k*^
009DB0: 7B CD 87 52 2A 62 7B 7C B7 20 1D 7D 3D 28 2E 3D {..R*b{|. .}=(.=
009DC0: 20 07 CD 50 6B 01 29 18 24 FE 04 20 0B CD 50 6B ..Pk.).$.. ..Pk
009DD0: 05 29 5D 54 29 19 18 15 3A 9E 7B CB 67 20 0B CD .)]T)...:.{.g ..
009DE0: 8E 6B 21 F5 06 CD 86 6B 18 03 CD 0A 69 CD 50 6B .k!....k....i.Pk
009DF0: 02 D1 19 3A 5C 7B FE 01 20 06 CD 13 6F CA 47 68 ...:\{.. ...o.Gh
009E00: 7B E5 CD 98 5F E1 22 8D 7B D1 CD 60 61 F1 5F 16 {..._.".{..`a._.
009E10: 00 21 68 5F 19 78 FE 03 28 0E 23 23 FE 09 28 08 .!h_.x..(.##..(.
009E20: 23 23 FE 08 28 02 23 23 5E 23 56 7A B3 CD D4 72 ##..(.##^#Vz...r
009E30: 2F EB 18 2E 78 FE 0A 30 0E FE 08 CD DA 72 2F 21 /...x..0.....r/!
009E40: 96 09 CD 86 6B 06 0C C5 CD 6F 6B CD 98 5F D1 78 ....k....ok.._.x
009E50: FE 03 CD DA 72 2F 79 B7 28 05 BA CD DA 72 2C 21 ....r/y.(....r,!
009E60: 4F 13 CD 86 6B 06 0B C9 E1 12 88 06 8D 06 7F 06 O...k...........
009E70: DD 12 9B 06 A0 06 92 06 00 13 AE 06 B3 06 A5 06 ................
009E80: FC 12 C2 06 C7 06 B8 06 00 00 D6 06 DB 06 CC 06 ................
009E90: 00 00 E9 06 EE 06 E0 06 CD 54 60 C5 CD 5A 6E 01 .........T`..Zn.
009EA0: 19 76 C1 C0 78 FE 04 CD D4 72 2F 7E F5 C5 CD 48 .v..x....r/~...H
009EB0: 61 CD 54 60 D1 F1 F5 B7 20 0F 78 FE 0C 20 0A CD a.T`.... .x.. ..
009EC0: 50 6B 04 65 2E 01 E5 06 08 CD 60 61 F1 FE 02 30 Pk.e......`a...0
009ED0: 4A F5 78 21 18 13 11 26 13 FE 03 28 29 21 E9 09 J.x!...&...()!..
009EE0: 11 F2 09 FE 09 28 1F FE 08 28 25 FE 0A CD DA 72 .....(...(%....r
009EF0: 2F F1 3D 28 07 CD 50 6B 01 19 18 9F CD 50 6B 04 /.=(..Pk.....Pk.
009F00: EB B7 ED 52 18 95 F1 3D 20 01 EB CD 86 6B 18 8B ...R...= ....k..
009F10: F1 3D CD D4 72 2F 21 3D 08 18 F0 78 20 1B FE 0B .=..r/!=...x ...
009F20: 28 0D FE 0A CD DA 72 2F CD 50 6B 03 7C B2 67 CD (.....r/.Pk.|.g.
009F30: 50 6B 03 7D B3 6F C3 9B 5F FE 0B 28 0D FE 0A CD Pk.}.o.._..(....
009F40: DA 72 2F CD 50 6B 03 7C AA 67 CD 50 6B 03 7D AB .r/.Pk.|.g.Pk.}.
009F50: 6F C3 9B 5F CD E9 60 C5 CD 5A 6E 01 00 76 C1 C0 o.._..`..Zn..v..
009F60: 78 FE 04 CD D4 72 2F 7E F5 C5 CD 48 61 CD E9 60 x....r/~...Ha..`
009F70: D1 F1 F5 3D 20 0D 78 FE 0A 20 08 21 08 10 CD 86 ...= .x.. .!....
009F80: 6B 06 09 CD 60 61 F1 5F 78 1C 1D 20 1C 21 33 13 k...`a._x.. .!3.
009F90: FE 03 28 10 21 F5 06 FE 0A 28 09 21 FA 09 FE 09 ..(.!....(.!....
009FA0: CD DA 72 2F CD 86 6B 18 AE 21 FF 09 1D 28 EF 1D ..r/..k..!...(..
009FB0: 20 1A FE 0B 28 0D FE 0A CD DA 72 2F CD 50 6B 03 ...(.....r/.Pk.
009FC0: 7C A2 67 CD 50 6B 03 7D A3 6F 18 8B FE 0A CD DA |.g.Pk.}£o......
009FD0: 72 2F 21 0F 07 1D 28 CC 21 45 07 1D 28 C6 21 4E r/!...(.!E..(.!N
009FE0: 07 1D 28 C0 21 56 07 18 BB CD 76 6E 79 75 20 22 ..(.!V....vnyu "
009FF0: CD 12 61 78 FE 0A 28 0F FE 0B CD DA 72 2F CD 50 ..ax..(.....r/.P
00A000: CD 38 6F 3E 03 32 BD 7B AF C9 06 01 7C B7 20 04 .8o>.2.{....|. .
00A010: 7D 3D 28 13 CB 45 28 04 CD 6F 6B 04 CD 50 6B 01 }=(..E(..ok..Pk.
00A020: 29 CB 3C CB 1D 18 E5 05 C8 CD 50 6B 02 D1 19 18 ).<.......Pk....
00A030: F6 3A 5C 7B FE 02 C0 CD 17 6F C0 3A 5D 7B 4F 06 .:\{.....o.:]{O.
00A040: 04 CD 54 6E CD DA 72 29 CD 76 52 2A 58 7B 7C B5 ..Tn..r).vR*X{|.
00A050: C8 21 BD 7B CB 46 28 0F E5 CD 8B 67 E1 36 02 2A .!.{.F(....g.6.*
00A060: 58 7B 22 BE 7B AF C9 2A BE 7B ED 5B 58 7B 19 22 X{".{..*.{.[X{."
00A070: BE 7B AF C9 3A 5C 7B FE 04 C0 CD 27 6F C0 21 BD .{..:\{....'o.!.
00A080: 7B 7E B7 20 03 34 18 0F E5 CD 8B 67 E1 36 03 CD {~. .4.....g.6..
00A090: 50 6B 04 5E 23 56 EB 2A 5E 7B CD 87 52 AF C9 3A Pk.^#V.*^{..R..:
00A0A0: 5C 7B FE 08 C0 CD E0 6E C0 CD 8B 67 CD 6F 6B 2A \{.....n...g.ok*
00A0B0: 62 7B E5 CD 97 5E E1 3A 9E 7B CB 4F 28 09 CD 8E b{...^.:.{.O(...
00A0C0: 6B 21 4C 06 CD 86 6B CD 50 6B 02 D1 19 CD 38 6F k!L...k.Pk....8o
00A0D0: 3E 0C 32 5C 7B 21 01 00 22 62 7B 2B 22 5E 7B 2D >.2\{!.."b{+"^{-
00A0E0: 22 60 7B 3E 03 32 BD 7B AF C9 CD 0D 6A C8 CD E1 "`{>.2.{....j...
00A0F0: 72 29 CD EA 69 78 FE 0A C8 CD E1 72 16 CD EA 69 r)..ix.....r...i
00A100: 78 FE 08 C8 FE 0C CD DA 72 20 06 08 C9 CD 39 6A x.......r ....9j
00A110: D5 CD 5C 6A D1 28 08 1C 1D CD DA 72 19 1D C9 CD ..\j.(.....r....
00A120: 4A 6A C8 78 FE 09 20 08 D9 78 EE 80 47 D9 AF C9 Jj.x.. ..x..G...
00A130: 7C 2F 67 7D 2F 6F 23 AF C9 1E FF DD 7E 00 FE 2D |/g}/o#.....~..-
00A140: 28 05 1C FE 2B C0 1C C3 92 6F 1C 1D C8 78 FE 0A (...+....o...x..
00A150: 28 04 FE 09 20 02 1D C9 CD E1 72 19 CD 99 6A C8 (... .....r...j.
00A160: 01 00 02 CD 54 6E C0 46 78 2B FE 0A 38 06 56 2B ....Tn.Fx+..8.V+
00A170: 5E EB AF C9 FE 09 20 10 C5 46 2B 4E 2B 56 2B 5E ^..... ..F+N+V+^
00A180: 2B 7E 2B 6E 67 D9 C1 C9 4E 11 57 7A C5 0C 0D 28 +~+ng...N.Wz...(
00A190: 06 2B 7E 12 13 18 F7 C1 C9 DD 7E 00 FE 27 28 08 .+~.......~..'(.
00A1A0: FE 5E 28 04 FE 23 20 66 21 57 7A 0E 00 DD 7E 00 .^(..# f!Wz...~.
00A1B0: FE 5E 28 24 FE 23 28 36 FE 27 20 42 DD 23 DD 7E .^($.#(6.' B.#.~
00A1C0: 00 B7 CD D4 72 37 FE 27 20 09 DD 23 DD 7E 00 FE ....r7.' ..#.~..
00A1D0: 27 20 DA 77 23 0C 18 E4 DD 23 DD 7E 00 CD A6 04 ' .w#....#.~....
00A1E0: B7 CD D4 72 37 EE 40 DD 23 77 23 0C 18 BF DD 23 ...r7.@.#w#....#
00A1F0: C5 E5 CD F7 07 7D E1 C1 CD C8 72 38 18 EB 06 08 .....}....r8....
00A200: 6B 04 7D EE 01 6F C9 CD 50 6B 06 7D 2F 6F 7C 2F k.}..o..Pk.}/o|/
00A210: 67 C9 3A A1 7B F5 CD 39 6A 7B 32 A1 7B CD 1D 62 g.:.{..9j{2.{..b
00A220: 3A A1 7B 5F CD 4A 6A 28 1A 78 FE 0A 20 0D CD 50 :.{_.Jj(.x.. ..P
00A230: 6B 07 7D 2F 6F 7C 2F 67 23 18 08 CD 50 6B 04 78 k.}/o|/g#...Pk.x
00A240: EE 80 47 F1 32 A1 7B C9 78 FE 0A 30 10 FE 04 28 ..G.2.{.x..0...(
00A250: 0C FE 08 C8 FE 03 C8 CD 50 6B 02 C5 D5 C3 6F 6B ........Pk....ok
00A260: 7A FE 09 20 0F 78 FE 0A 20 1D 21 08 10 CD 86 6B z.. .x.. .!....k
00A270: 06 09 18 13 FE 08 20 0F 78 FE 0C 20 0A CD 50 6B ...... .x.. ..Pk
00A280: 04 65 2E 01 E5 06 08 78 FE 09 20 07 CD 50 6B 01 .e.....x.. ..Pk.
00A290: D9 18 11 FE 08 20 0D 7A FE 0C 20 08 21 A2 09 CD ..... .z.. .!...
00A2A0: 86 6B 16 08 7A FE 0A 28 13 30 23 FE 04 28 1F FE .k..z..(.0#..(..
00A2B0: 09 38 20 CD 50 6B 03 E1 D1 C1 18 17 78 FE 09 20 .8 .Pk......x..
00A2C0: 0D CD 73 6B 21 08 10 CD 86 6B 16 09 18 05 CD 50 ..sk!....k.....P
00A2D0: 6B 01 D1 78 BA CD DA 72 2C FE 03 20 0D 7B B9 C8 k..x...r,.. .{..
00A2E0: B7 C8 79 4B B7 C8 CD E1 72 2C FE 04 C0 2A 8B 7B ..yK....r,...*.{
00A2F0: 7C B5 C8 ED 5B 8D 7B 7A B3 C8 ED 52 C8 CD E1 72 |...[.{z...R...r
00A300: 2C 11 EB 5E D5 11 9B 5F D5 11 57 60 D5 18 1E 11 ,..^..._..W`....
00A310: EB 5E D5 11 9B 5F D5 11 57 60 D5 18 59 CD 5C 6A .^..._..W`..Y.\j
00A320: 20 35 3A A1 7B 5F CD 1F 6A AF 32 A1 7B 78 FE 09 5:.{_..j.2.{x..
00A330: 20 17 D9 C5 D5 E5 01 31 03 79 D6 10 4F CD 9C 6B ......1.y..O..k
00A340: E1 CD 97 6B 10 F3 06 09 C9 FE 08 C2 92 6B 21 4D ...k.........k!M
00A350: 05 CD 86 6B C3 5E 6B 01 00 06 CD 54 6E 20 12 CD ...k.^k....Tn ..
00A360: 3D 57 EB CD 87 52 2A 5E 7B 22 8B 7B 3A 5C 7B 47 =W...R*^{".{:\{G
00A370: C9 CD B2 67 20 5C 3A 5C 7B FE 08 30 08 FE 03 28 ...g \:\{..0...(
00A380: 04 FE 04 20 18 CD DA 66 2A 5E 7B 22 8B 7B 3A 5C ... ...f*^{".{:\
00A390: 7B 47 FE 03 C0 CD 87 52 3A 5C 7B 4F C9 FE 01 CD {G.....R:\{O....
00A3A0: DA 72 3E CD 8B 67 2A 5E 7B 7E FE 0C CD DA 72 3E .r>..g*^{~....r>
00A3B0: 2A 60 7B 7E FE 0A CD DA 72 3E 2A 62 7B 7C B7 CD *`{~....r>*b{|..
00A3C0: DA 72 3E 65 2E 06 CD 97 6B 21 38 06 CD 86 6B 06 .r>e....k!8...k.
00A3D0: 08 C9 CD E0 6E 20 45 21 81 05 CD 86 6B CD F7 6E ....n E!....k..n
00A3E0: 01 00 03 C8 C5 CD BB 5E 78 C1 0C 0D 20 01 4F B9 .......^x... .O.
00A3F0: CD DA 72 2C C5 CD 76 6E 80 75 21 91 05 20 11 CD ..r,..vn.u!.. ..
00A400: 79 3D 20 07 67 3A 57 7A 6F 06 0C C3 95 6F FE 24 y= .g:Wzo....o.$
00A410: 28 33 CD 86 72 30 03 AF 3D C9 DD E5 D1 13 1A CD (3..r0..=.......
00A420: 86 72 30 F9 CD A6 04 FE 45 28 0E FE 2E 20 16 13 .r0.....E(... ..
00A430: 1A FE 2E 28 10 FE 29 28 0C CD A3 11 CD C8 72 39 ...(..)(..£...r9
00A440: D9 06 09 18 C6 CD F7 07 CD C8 72 38 06 0A 18 BB ..........r8....
00A450: E3 C5 46 23 7E CD 9C 6B 23 10 F9 C1 E3 C9 79 CD ..F#~..k#.....y.
00A460: 9C 6B 21 57 7A 0C 0D C8 7E 23 CD 9C 6B 18 F7 3E .k!Wz...~#..k..>
00A470: E5 18 29 3E E1 18 25 3E C3 18 21 7B CD 9C 6B 7A ..)>..%>..!{..kz
00A480: 18 1A 3E C3 18 0E 3E CD 18 0A 3E 01 18 06 3E 11 ..>...>...>...>.
00A490: 18 02 3E 21 CD 9C 6B 7D CD 9C 6B 7C C5 47 3A 00 ..>!..k}..k|.G:.
00A4A0: 79 B7 20 03 FD 70 00 FD 23 B7 28 1A E5 D5 3D 28 y. ..p..#.(...=(
00A4B0: 10 FD E5 D1 1B 2A CE 00 B7 ED 52 CD D4 72 C8 18 .....*....R..r..
00A4C0: 03 CD 02 6C D1 E1 C1 E5 D5 FD E5 D1 3A 00 79 B7 ...l........:.y.
00A4D0: 28 15 ED 5B DF 7B 3D 20 0E ED 5B E1 7B 3A 0E 79 (..[.{= ..[.{:.y
00A4E0: B7 28 04 ED 5B E6 7B 2A 73 7B 37 ED 52 CD C8 72 .(..[.{*s{7.R..r
00A4F0: 63 FD E5 D1 2A 08 79 25 25 ED 52 CD C8 72 62 D1 c...*.y%%.R..rb.
00A500: E1 C9 21 DB 7B CB CE CB 46 28 07 CB 86 C5 CD F9 ..!.{...F(......
00A510: 6C C1 3A DC 7B 5F 16 00 21 57 79 19 70 3C F2 2C l.:.{_..!Wy.p<.,
00A520: 6C CD FD 6C 2A 54 79 23 22 54 79 AF 32 DC 7B C9 l..l*Ty#"Ty.2.{.
00A530: 2A 08 79 B7 ED 52 CD C8 72 62 22 08 79 18 88 FD *.y..R..rb".y...
00A540: E5 D1 3A 00 79 3D 28 0B FD E5 E5 FD E1 CD 7B 6B ..:.y=(.......{k
00A550: FD E1 C9 C5 D5 E5 2A DF 7B 3A E3 7B 47 04 05 28 ......*.{:.{G..(
00A560: 23 5E 23 56 E3 B7 ED 52 19 E3 38 05 23 23 23 18 #^#V...R..8.###.
00A570: ED 2B EB 68 26 00 29 29 44 4D 19 54 5D 2B 13 13 .+.h&.))DM.T]+..
00A580: 13 ED B8 23 D1 73 23 72 23 D1 73 23 72 C1 21 E3 ...#.s#r#.s#r.!.
00A590: 7B 34 C0 AF 18 05 3A E3 7B B7 C8 C5 D5 FD E5 47 {4....:.{......G
00A5A0: 2A DF 7B C5 5E 23 56 23 E5 EB CD C2 6C E1 46 23 *.{.^#V#....l.F#
00A5B0: E5 CD 02 6C E1 46 23 E5 CD 02 6C E1 C1 10 E4 E1 ...l.F#...l.....
00A5C0: D1 C1 E5 FD E1 3A 00 79 3D C0 D5 C5 ED 5B 02 79 .....:.y=....[.y
00A5D0: B7 ED 52 7D E6 7F 32 DC 7B 29 6C 17 E6 01 67 ED ..R}..2.{)l...g.
00A5E0: 5B DD 7B 19 ED 5B 54 79 B7 ED 52 19 28 08 E5 CD [.{..[Ty..R.(...
00A5F0: FD 6C E1 22 54 79 C1 D1 C9 0E 21 18 0C 21 DB 7B .l."Ty....!..!.{
00A600: 6F 6B CD BB 5E 78 C1 C5 B9 CD DA 72 2C 21 9B 05 ok..^x.....r,!..
00A610: CD 86 6B C1 CD 13 6F 28 CB C3 38 6F CD 1B 6F 20 ..k...o(..8o..o
00A620: 06 CD E8 5E C3 6E 6F CD 5A 6E 02 B1 77 20 06 5E ...^.no.Zn..w .^
00A630: 23 56 EB AF E9 CD 76 6E 7C 75 20 09 21 00 00 CD #V....vn|u .!...
00A640: 92 6B C3 2E 64 01 00 03 CD 54 6E CD DA 72 29 56 .k..d....Tn..r)V
00A650: 2B 5E 1A FE 0A CD C8 72 1E F5 CD EF 65 F1 47 C9 +^.....r....e.G.
00A660: CD E7 65 21 F3 06 78 FE 0A 28 03 21 F7 09 C3 86 ..e!..x..(.!....
00A670: 6B CD E7 65 78 FE 0A 28 07 CD 50 6B 02 CB B8 C9 k..ex..(..Pk....
00A680: 21 80 07 18 4A 21 46 0C 18 21 21 87 0C 18 1C 21 !...J!F..!!....!
00A690: 7F 0C 18 17 21 46 0E 18 12 21 2B 0D 18 0D 21 B6 ....!F...!+...!.
00A6A0: 0D 18 08 21 FD 0B 18 03 21 34 0C E5 CD E7 65 21 ...!....!4....e!
00A6B0: 08 10 78 FE 0A CC 86 6B E1 06 09 C3 86 6B 21 DE ..x....k.....k!.
00A6C0: 0F 18 03 21 D0 0F E5 CD E7 65 E1 78 FE 0A C8 06 ...!.....e.x....
00A6D0: 0A C3 86 6B 3E 23 11 3E 2B F5 CD EF 65 F1 C3 9C ...k>#.>+...e...
00A6E0: 6B CD DE 65 CD 50 6B 02 26 00 C9 CD DE 65 CD 50 k..e.Pk.&....e.P
00A6F0: 6B 03 6C 26 00 C9 CD DE 65 CD 50 6B 03 7D 6C 67 k.l&....e.Pk.}lg
00A700: C9 CD DE 65 21 8B 07 06 0B C3 86 6B 21 A0 00 18 ...e!......k!...
00A710: F6 CD 66 6F CD E8 5E CD 6E 6F 78 FE 04 28 03 CD ..fo..^.nox..(..
00A720: BE 5E 06 0A C9 CD DE 65 06 0C C9 CD DE 65 21 00 .^.....e.....e!.
00A730: 00 22 8B 7B 06 04 C9 CD EF 65 06 0C 21 E4 1F 18 .".{.....e..!...
00A740: C8 CD 66 6F 21 A3 08 E5 CD D0 5E CD 6E 6F E1 C3 ..fo!£....^.no..
00A750: CF 63 CD 66 6F CD D0 5E CD 5E 6F 21 B2 08 18 E7 .c.fo..^.^o!....
00A760: CD 66 6F CD D0 5E CD 5E 6F CD 97 5E CD 5E 6F CD .fo..^.^o..^.^o.
00A770: 6F 6B CD 97 5E CD 6E 6F 21 6B 08 CD 86 6B 06 08 ok..^.no!k...k..
00A780: C9 CD 66 6F CD D0 5E CD 13 6F 20 0B CD D0 5E 21 ..fo..^..o ...^!
00A790: 3D 08 CD 86 6B 18 F0 CD 6E 6F 18 E2 21 9B 1F 18 =...k...no..!...
00A7A0: 1E CD DE 65 21 7D 1F 06 08 C3 86 6B CD 1B 6F 21 ...e!}.....k..o!
00A7B0: B4 0F 06 09 20 0B CD 97 5E CD 6E 6F 21 3B 07 06 .... ...^.no!;..
00A7C0: 0A C3 86 6B 21 F1 1F 18 F6 CD F7 65 21 15 66 CD ...k!......e!.f.
00A7D0: E9 59 06 0B C9 21 E1 17 18 08 21 D7 17 18 03 21 .Y...!....!....!
00A7E0: DC 17 E5 CD F7 65 FE 06 CD DA 72 23 E1 CD 86 6B .....e....r#...k
00A7F0: 18 E0 21 55 1A 11 55 1A 18 06 21 5D 1A 11 5D 1A ..!U..U...!]..].
00A800: CB C6 CB 4E C8 CB 8E 0E 22 C5 11 57 79 0E 1A CD ...N...."..Wy...
00A810: 65 72 C1 11 33 79 CD 65 72 B7 C8 3D C8 FE 03 C8 er..3y.er..=....
00A820: CD E1 72 FA D9 11 64 7B 18 04 D9 11 57 7B E1 22 ..r...d{....W{."
00A830: D5 7B 21 F3 FF 39 F9 EB 01 0D 00 ED B0 2A D5 7B .{!..9.......*.{
00A840: E5 D9 C9 D9 11 64 7B 18 04 D9 11 57 7B E1 22 D5 .....d{....W{.".
00A850: 7B 21 00 00 39 01 0D 00 ED B0 F9 18 E0 D9 11 64 {!..9..........d
00A860: 7B 18 04 D9 11 57 7B 21 02 00 39 01 0D 00 ED B0 {....W{!..9.....
00A870: D9 C9 FD E5 D1 7A CD 7A 6D 7B E5 2A 73 7B 77 2B .....z.zm{.*s{w+
00A880: 22 73 7B E1 C3 C7 6B DD 7E 00 CD 71 72 CD C8 72 "s{...k.~..qr..r
00A890: 3A CD D0 6E CD B8 6E DD 7E 00 FE 61 38 06 FE 7B :..n..n.~..a8..{
00A8A0: 30 02 D6 20 CD 7A 6D DD 23 DD 7E 00 CD 82 72 30 0.. .zm.#.~...r0
00A8B0: E9 2A 73 7B 23 CB FE C3 95 6F DD 7E 00 CD 71 72 .*s{#....o.~..qr
00A8C0: CD C8 72 3A 18 CE 2A 75 7B ED 5B 73 7B B7 ED 52 ..r:..*u{.[s{..R
00A8D0: EB CD 75 6D 2A 73 7B 22 75 7B C9 2A 7B 7B 18 03 ..um*s{"u{.*{{..
00A8E0: 2A 77 7B 22 7D 7B 3A C0 7B B9 28 5C 79 32 C0 7B *w{"}{:.{.(\y2.{
00A8F0: 2A 75 7B ED 5B 7D 7B AF ED 52 19 20 06 AF 32 C1 *u{.[}{..R. ..2.
00A900: 7B 3D C9 23 5E 23 56 19 7E B7 28 E7 2B 7E 23 B9 {=.#^#V.~.(.+~#.
00A910: 20 E1 DD E5 D1 C5 E5 2B 2B 46 1A 2B 13 48 CB B8 ......++F.+.H..
00A920: FE 61 38 06 FE 7B 30 02 D6 20 B8 20 0A CB 79 28 .a8..{0.. . ..y(
00A930: E8 1A CD 82 72 38 04 E1 C1 18 B8 22 C2 7B ED 53 ....r8.....".{.S
00A940: C4 7B E1 C1 7E 32 C1 7B 2A C2 7B ED 5B C4 7B 3A .{..~2.{*.{.[.{:
00A950: C1 7B B8 C9 CD E0 6D C0 18 3C E3 4E 23 5E 23 56 .{....m..<.N#^#V
00A960: 23 E3 EB CD 7D 6E C8 2B CB 7E 23 28 FB 06 00 09 #...}n.+.~#(....
00A970: 7E B7 20 EF 3D C9 E3 5E 23 56 23 E3 EB DD E5 D1 ~. .=..^#V#.....
00A980: 7E CD 71 72 38 0C CD 9C 6E C0 1A CD 82 72 38 06 ~.qr8...n....r8.
00A990: B7 C9 CD 9C 6E C0 D5 DD E1 C3 95 6F C5 46 1A 23 ....n......o.F.#
00A9A0: 13 48 CB B8 FE 61 38 06 FE 7B 30 02 D6 20 B8 20 .H...a8..{0.. .
00A9B0: 05 CB 79 28 E8 AF C1 C9 21 13 75 4E 0C C8 0D 23 ..y(....!.uN...#
00A9C0: 5E 23 56 23 E5 EB CD 63 6E E1 20 EF CD E1 72 35 ^#V#...cn. ...r5
00A9D0: 3A 91 7B 4F CD DB 6D 3A C1 7B B7 C8 CD E1 72 2B :.{O..m:.{....r+
00A9E0: 3E 5B CD 29 6F C8 DD 7E 00 FE 28 C0 DD 7E 01 FE >[.)o..~..(..~..
00A9F0: 2E C0 DD 23 C3 92 6F 3E 5D CD 29 6F C8 DD 7E 00 ...#..o>].)o..~.
00AA00: E5 D5 CD F7 65 D1 E1 FE 06 CD D4 72 3F FE 05 28 ....e......r?..(
00AA10: AE EB 18 AB 21 3D 1E 18 A6 21 44 1E 18 A1 3E AF ....!=...!D...>.
00AA20: F5 CD 66 6F CD 97 5E CD 6F 6B CD 13 6F 20 09 CD ..fo..^.ok..o ..
00AA30: 97 5E CD 50 6B 02 44 4D CD 50 6B 01 D1 21 EA 1F .^.Pk.DM.Pk..!..
00AA40: CD 6E 6F CD 86 6B F1 06 0A B7 C0 CD 50 6B 03 6F .no..k......Pk.o
00AA50: 26 00 C9 3E AF F5 CD 66 6F CD 97 5E CD 6F 6B CD &..>...fo..^.ok.
00AA60: 13 6F 20 08 CD 97 5E CD 50 6B 01 EB CD 50 6B 01 .o ...^.Pk...Pk.
00AA70: C1 21 05 00 18 CA CD 66 6F 01 00 05 CD 54 6E 28 .!.....fo....Tn(
00AA80: 08 01 00 06 CD 54 6E 20 0B 2B 2B 56 2B 5E EB CD .....Tn .++V+^..
00AA90: 92 6B 18 03 CD 7F 67 CD 6E 6F 06 0A C9 CD 66 6F .k....g.no....fo
00AAA0: 01 00 03 CD 54 6E 20 09 56 2B 5E EB CD 87 52 18 ....Tn .V+^...R.
00AAB0: 09 FD E5 CD 7F 67 E1 CD C2 6C 2A 62 7B 18 D0 CD .....g...l*b{...
00AAC0: D5 65 CD 50 6B 03 4D ED 68 C9 CD 50 6B 04 21 00 .e.Pk.M.h..Pk.!.
00AAD0: 00 39 06 0A C9 CD 30 6F CD 97 5E C3 38 6F CD 66 .9....0o..^.8o.f
00AAE0: 6F CD 97 5E C3 6E 6F CD 66 6F CD A2 5E 18 F5 CD o..^.no.fo..^...
00AAF0: 66 6F CD BB 5E 18 ED CD 1B 6F 28 0C 21 C2 00 CD fo..^....o(.!...
00AB00: 92 6B 3E 06 32 5C 7B C9 CD 17 5A CD DA 72 15 F5 .k>.2\{...Z..r..
00AB10: CD 6E 6F F1 C9 49 1A E6 17 49 1A 3A 57 7B 4F 2A .no..I...I.:W{O*
00AB20: 58 7B 3A 5C 7B FE 03 20 0B CD 34 67 21 23 06 11 X{:\{.. ..4g!#..
00AB30: 12 06 18 14 FE 08 20 26 3A 62 7B 3D 67 2E 06 CD ...... &:b{=g...
00AB40: 97 6B 21 01 06 11 E2 05 0D 28 10 EB 3E 21 0C 28 .k!......(..>!.(
00AB50: 02 3E 2A E5 2A 58 7B CD 94 6B E1 C3 86 6B FE 09 .>*.*X{..k...k..
00AB60: 20 10 CD 50 6B 01 D9 21 D1 05 0D 20 DF CD 73 6B ..Pk..!... ..sk
00AB70: 18 E9 FE 04 28 27 3A 9E 7B CB 4F 28 20 2A 5E 7B ....(':.{.O( *^{
00AB80: ED 5B 60 7B 13 B7 ED 52 19 28 12 1B CD 8E 6B EB .[`{...R.(....k.
00AB90: B7 ED 52 23 CD 8A 6B 21 56 06 CD 86 6B 0D 20 17 ..R#..k!V...k. .
00ABA0: CD 50 6B 02 EB E1 CD 50 6B 01 73 3A 62 7B 3D C8 .Pk....Pk.s:b{=.
00ABB0: CD 50 6B 02 23 72 C9 2A 58 7B 0C 20 12 3A 62 7B .Pk.#r.*X{. .:b{
00ABC0: 3D 3E 22 20 07 CD 50 6B 01 7D 3E 32 C3 94 6B CD =>" ..Pk.}>2..k.
00ABD0: 50 6B 02 EB 2A CD 97 6B 18 CC 3A 5C 7B FE 0A 30 Pk..*..k..:\{..0
00ABE0: 20 FE 04 28 1C F5 CD 8B 67 F1 21 2C 05 FE 09 28 ..(....g.!,...(
00ABF0: 0D 21 3A 05 FE 08 28 06 CD 34 67 21 5D 05 C3 86 .!:...(..4g!]...
00AC00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
00AC10: 09 00 01 00 02 09 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: FE 2E C0 DD 7E 01 FE 29 C0 18 E7 3E 3A 18 1A 3E ....~..)...>:..>
00AD10: 3B 18 16 3E 2C 18 12 3E 2E 18 0E 3E 28 18 0A 3E ;..>,..>...>(..>
00AD20: 29 18 06 3E 3D 18 02 3E 5E DD BE 00 C0 C3 92 6F )..>=..>^......o
00AD30: CD E0 6E C8 CD E1 72 08 CD F7 6E C8 CD E1 72 09 ..n...r...n...r.
00AD40: CD 0B 6F C8 CD E1 72 02 CD 0F 6F C8 CD E1 72 01 ..o...r...o...r.
00AD50: CD 0F 6F C8 3A 98 7B B7 28 F2 CD E1 72 29 CD 13 ..o.:.{.(...r)..
00AD60: 6F C8 CD E1 72 03 CD 1B 6F C8 CD E1 72 04 CD 1F o...r...o...r...
00AD70: 6F C8 CD E1 72 05 CD 23 6F C8 CD E1 72 06 CD 76 o...r..#o...r..v
00AD80: 6E 82 75 C8 CD E1 72 07 CD 76 6E 60 75 C8 CD E1 n.u...r..vn`u...
00AD90: 72 0F CD 24 71 AF 32 98 7B 3D 32 C0 7B DD 7E 00 r..$q.2.{=2.{.~.
00ADA0: B7 28 EF FE 20 28 EB FE 09 28 E7 FE 28 28 06 FE .(.. (...(..((..
00ADB0: 7B 28 0C AF C9 DD 7E 01 FE 2A 20 F7 CD 24 71 C5 {(....~..* ..$q.
00ADC0: DD 46 00 DD 7E 01 FE 24 28 21 CD 24 71 78 FE 2A .F..~..$(!.$qx.*
00ADD0: DD 7E 00 20 0F B8 20 F2 DD 7E 01 FE 29 20 EB CD .~. .. ..~..) ..
00ADE0: 24 71 18 04 FE 7D 20 E2 C1 18 A7 C5 D5 E5 CD 24 $q...} ........$
00ADF0: 71 CD 24 71 DD 7E 00 CD A6 04 FE 49 06 01 28 4D q.$q.~.....I..(M
00AE00: FE 52 06 02 28 47 FE 41 06 04 28 41 FE 55 06 08 .R..(G.A..(A.U..
00AE10: 28 3B FE 58 06 10 28 35 FE 56 06 20 28 2F FE 42 (;.X..(5.V. (/.B
00AE20: 06 40 28 29 FE 43 06 80 28 23 FE 57 28 4C 06 00 .@().C..(#.W(L..
00AE30: FE 4B 28 19 FE 44 28 15 FE 46 28 52 FE 47 28 4E .K(..D(..F(R.G(N
00AE40: FE 50 28 4A CD E1 72 5D E1 D1 C1 18 80 CD 24 71 .P(J..r]......$q
00AE50: DD 7E 00 0E 00 FE 2B 28 0C 0D FE 2D 28 07 05 CD .~....+(...-(...
00AE60: DA 72 5D 18 36 21 9D 7B 7E A9 B0 A9 77 CD 24 71 .r].6!.{~...w.$q
00AE70: DD 7E 00 FE 2C CA F1 6F 18 CE CD 24 71 DD 7E 00 .~..,..o...$q.~.
00AE80: CD 86 72 CD C8 72 5D D6 30 32 C7 7B 18 DF CD 24 ..r..r].02.{...$
00AE90: 71 DD 7E 00 CD 86 72 30 F5 18 D5 FE 20 20 08 CD q.~...r0.... ..
00AEA0: 24 71 DD 7E 00 18 F4 3A 0E 79 B7 CD DA 72 60 DD $q.~...:.y...r`.
00AEB0: E5 D1 CD 2A 2D D5 DD E1 11 5C 00 D5 0E 0F CD 65 ...*-....\.....e
00AEC0: 72 E1 3C CD D4 72 5A 11 0F 79 01 24 00 ED B0 3A r.<..rZ..y.$...:
00AED0: 00 79 3D 28 0D 21 57 79 22 E4 7B 21 D7 79 3E 01 .y=(.!Wy".{!.y>.
00AEE0: 18 21 2A 73 7B ED 5B E1 7B ED 53 E4 7B B7 ED 52 .!*s{.[.{.S.{..R
00AEF0: CB 3C CB 1D 7C B7 CD D4 72 63 7D E6 80 6F E5 29 .<..|...rc}..o.)
00AF00: 1A 64 53 45 45 4B 45 4F 4C CE DA 64 46 49 4C 45 .dSEEKEOL..dFILE
00AF10: 53 49 5A C5 FA 64 46 49 4C 45 50 4F D3 F2 64 4B SIZ..dFILEPO..dK
00AF20: 45 59 50 52 45 53 53 45 C4 0C 64 4D 45 4D 41 56 EYPRESSE..dMEMAV
00AF30: 41 49 CC 14 65 4D 41 58 41 56 41 49 CC 19 65 50 AI..eMAXAVAI..eP
00AF40: 4F 52 D4 BF 65 53 54 41 43 4B 50 54 D2 CA 65 41 OR..eSTACKPT..eA
00AF50: 44 44 D2 76 65 53 49 5A 45 4F C6 9D 65 42 44 4F DD.veSIZEO..eBDO
00AF60: 53 48 CC 53 65 42 44 4F D3 54 65 42 49 4F 53 48 SH.SeBDO.TeBIOSH
00AF70: CC 1E 65 42 49 4F D3 1F 65 00 4D 45 CD 00 00 00 ..eBIO..e.ME....
00AF80: D2 78 5E 46 4C 55 53 C8 AB 59 45 58 45 43 55 54 .x^FLUS..YEXECUT
00AF90: C5 7E 59 43 48 41 49 CE 79 59 53 54 D2 BA 5C 56 .~YCHAI.yYST..\V
00AFA0: 41 CC 22 5D 42 44 4F D3 53 65 42 49 4F D3 1E 65 A."]BDO.SeBIO..e
00AFB0: 00 43 48 D2 25 64 4F 52 C4 11 64 43 4F 50 D9 60 .CH.%dOR..dCOP.`
00AFC0: 64 4C 45 4E 47 54 C8 41 64 50 4F D3 52 64 43 4F dLENGT.AdPO.RdCO
00AFD0: 4E 43 41 D4 81 64 53 55 43 C3 D4 63 50 52 45 C4 NCA..dSUC..cPRE.
00AFE0: D7 63 55 50 43 41 53 C5 37 64 54 52 55 4E C3 BE .cUPCAS.7dTRUN..
00AFF0: 63 52 4F 55 4E C4 C3 63 4F 44 C4 01 64 41 42 D3 cROUN..cOD..dAB.
00B000: 71 63 53 51 D2 60 63 53 51 52 D4 85 63 53 49 CE qcSQ.`cSQR..cSI.
00B010: 8A 63 43 4F D3 8F 63 41 52 43 54 41 CE 94 63 4C .cCO..cARCTA..cL
00B020: CE 99 63 45 58 D0 9E 63 49 4E D4 A3 63 46 52 41 ..cEX..cIN.£cFRA
00B030: C3 A8 63 52 41 4E 44 4F CD AC 64 50 41 52 41 4D ..cRANDO..dPARAM
00B040: 43 4F 55 4E D4 9C 64 50 41 52 41 4D 53 54 D2 A1 COUN..dPARAMST..
00B050: 64 4C CF E1 63 48 C9 EB 63 53 57 41 D0 F6 63 50 dL..cH..cSWA..cP
00B060: 54 D2 2B 64 49 4F 52 45 53 55 4C D4 C4 64 45 4F T.+dIORESUL..dEO
00B070: C6 C9 64 45 4F 4C CE DF 64 53 45 45 4B 45 4F C6 ..dEOL..dSEEKEO.
00B080: D5 64 53 45 45 4B 45 4F 4C CE DA 64 46 49 4C 45 .dSEEKEOL..dFILE
00B090: 53 49 5A C5 FA 64 46 49 4C 45 50 4F D3 F2 64 4B SIZ..dFILEPO..dK
00B0A0: 45 59 50 52 45 53 53 45 C4 0C 64 4D 45 4D 41 56 EYPRESSE..dMEMAV
00B0B0: 41 49 CC 14 65 4D 41 58 41 56 41 49 CC 19 65 50 AI..eMAXAVAI..eP
00B0C0: 4F 52 D4 BF 65 53 54 41 43 4B 50 54 D2 CA 65 41 OR..eSTACKPT..eA
00B0D0: 44 44 D2 76 65 53 49 5A 45 4F C6 9D 65 42 44 4F DD.veSIZEO..eBDO
00B0E0: 53 48 CC 53 65 42 44 4F D3 54 65 42 49 4F 53 48 SH.SeBDO.TeBIOSH
00B0F0: CC 1E 65 42 49 4F D3 1F 65 00 4D 45 CD 00 00 00 ..eBIO..e.ME....
00B100: 7C E1 19 22 E6 7B 22 E9 7B 32 E8 7B 32 0E 79 21 |..".{".{2.{2.y!
00B110: 00 00 22 EB 7B 3A 9D 7B 32 9F 7B 3A C7 7B 32 C8 ..".{:.{2.{:.{2.
00B120: 7B C3 48 70 DD 7E 00 DD 23 B7 C0 C5 D5 E5 3A A2 {.Hp.~..#.....:.
00B130: 7B B7 CD DA 72 5B 2A D7 7B 22 D9 7B 2A EB 7B 22 {...r[*.{".{*.{"
00B140: ED 7B 21 D7 79 E5 DD E1 06 7F E5 C5 CD F3 71 C1 .{!.y.........q.
00B150: E1 FE 0D 28 20 FE 1A 28 11 FE 09 28 04 FE 20 38 ...( ..(...(.. 8
00B160: E9 10 03 04 18 E4 77 23 18 E0 32 A2 7B CD 7E 71 ......w#..2.{.~q
00B170: CD 8F 71 18 03 CD 7E 71 36 00 E1 D1 C1 C9 F5 E5 ..q...~q6.......
00B180: 2A EF 7B 23 22 EF 7B 7D E6 0F 28 05 E1 F1 C9 F5 *.{#".{}..(.....
00B190: E5 C5 D5 DD E5 FD E5 3E 0D CD C9 03 3A 0E 79 B7 .......>....:.y.
00B1A0: 28 04 3E 49 18 02 3E 20 CD C9 03 3E 20 CD C9 03 (.>I..> ...> ...
00B1B0: 2A EF 7B CD 61 2E CD A0 00 B7 28 2E CD 00 02 20 *.{.a.....(....
00B1C0: 20 20 2A 2A 2A 20 41 62 6F 72 74 20 63 6F 6D 70 *** Abort comp
00B1D0: 69 6C 61 74 69 6F 6E 00 CD 01 2D CD DA 72 CA 06 ilation...-..r..
00B1E0: 20 CD 00 02 08 20 08 00 10 F7 FD E1 DD E1 D1 C1 .... ..........
00B1F0: E1 F1 C9 3A 0E 79 B7 20 0C 2A D7 7B 7E FE 1A C8 ...:.y. .*.{~...
00B200: 23 22 D7 7B C9 2A E9 7B ED 5B E6 7B B7 ED 52 19 #".{.*.{.[.{..R.
00B210: 38 30 ED 5B E4 7B 3A E8 7B 47 C5 D5 0E 1A CD 65 80.[.{:.{G.....e
00B220: 72 11 0F 79 0E 14 CD 65 72 D1 C1 B7 20 09 21 80 r..y...er... .!.
00B230: 00 19 EB 10 E5 18 08 3E 1A 12 13 ED 53 E6 7B 2A .......>....S.{*
00B240: E4 7B 7E 23 22 E9 7B FE 1A 20 12 AF 32 0E 79 3A .{~#".{.. ..2.y:
00B250: 9F 7B 32 9D 7B 3A C8 7B 32 C7 7B 18 9C 2A EB 7B .{2.{:.{2.{..*.{
00B260: 23 22 EB 7B C9 DD E5 FD E5 CD 05 00 FD E1 DD E1 #".{............
00B270: C9 FE 41 D8 FE 5B 3F D0 FE 5F C8 FE 61 D8 FE 7B ..A..[?.._..a..{
00B280: 3F C9 CD 71 72 D0 FE 30 D8 FE 3A 3F C9 7C AA 7C ?..qr..0..:?.|.|
00B290: FA 98 72 BA C0 7D BB C9 17 C9 44 4D 21 00 00 3E ..r..}....DM!..>
00B2A0: 10 29 D8 EB 29 EB 30 02 09 D8 3D 20 F4 C9 42 4B .)..).0...= ..BK
00B2B0: EB AF 67 6F 3E 11 ED 6A ED 42 30 02 09 37 3F CB ..go>..j.B0..7?.
00B2C0: 13 CB 12 3D 20 F0 EB C9 E3 23 E3 D0 18 10 E3 23 ...= ....#.....#
00B2D0: E3 D8 18 0A E3 23 E3 C0 18 04 E3 23 E3 C8 E1 2B .....#.....#...+
00B2E0: E5 E1 7E CD 8F 71 32 01 79 B7 28 20 DD E5 E1 11 ..~..q2.y.( ....
00B2F0: D7 79 ED 52 ED 5B ED 7B 3A 0E 79 B7 20 0A ED 5B .y.R.[.{:.y. ..[
00B300: 12 C9 3A 0A 11 FE 0D CA 1E 13 FE 27 C2 3C 12 CD ..:........'.<..
00B310: AD 11 FE 27 C0 C3 3C 12 F5 3E 56 C3 24 13 F5 3E ...'..<..>V.$..>
00B320: 4F C3 24 13 C5 E5 CD 18 02 E1 C1 F1 C9 F5 3A 85 O.$...........:.
00B330: 01 FE 03 C4 9E 11 F1 C9 00 00 00 00 00 00 00 00 ................
00B340: C3 A0 15 C3 5C 14 C3 9E 14 C3 98 14 C3 EB 14 C3 ....\...........
00B350: 60 15 C3 72 15 C3 8D 15 C3 96 15 00 00 00 00 00 `..r............
00B360: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00B370: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00B380: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00B390: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00B3A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00B3B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00B3C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00B3D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00B3E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00B3F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00B400: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00B410: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00B420: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00B430: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00B440: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00B450: 00 00 00 00 00 00 00 00 00 00 00 00 21 5B 13 06 ............![..
00B460: 80 AF 77 23 77 23 05 C2 62 14 21 00 00 22 D6 01 ..w#w#..b.!.."..
00B470: C9 21 88 01 46 AF 23 86 05 C2 76 14 E6 7F 32 5B .!..F.#...v...2[
00B480: 14 C9 47 2A D6 01 23 23 7E E6 F0 B0 77 C9 2A D6 ..G*..##~...w.*.
00B490: 01 23 23 7E E6 0F 3C C9 2A D6 01 7D B4 C9 CD 71 .##~..<.*..}...q
00B4A0: 14 21 88 01 7E FE 11 DA AC 14 36 10 21 5B 14 5E .!..~.....6.![.^
00B4B0: 16 00 21 5B 13 19 19 5E 23 66 6B 22 D6 01 CD 98 ..![...^#fk"....
00B4C0: 14 C8 CD 8E 14 21 88 01 BE C2 E1 14 47 23 EB 2A .....!......G#.*
00B4D0: D6 01 23 23 23 1A BE C2 E1 14 13 23 05 C2 D5 14 ..###......#....
00B4E0: C9 2A D6 01 5E 23 56 EB C3 BB 14 21 88 01 5E 16 .*..^#V....!..^.
00B4F0: 00 2A CB 01 22 D6 01 19 11 05 00 19 EB 2A CD 01 .*.."........*..
00B500: 44 45 ED 52 ED 5B D9 7B 19 22 0C 79 3A 00 79 3D DE.R.[.{.".y:.y=
00B510: 20 08 11 33 79 0E 10 CD 65 72 ED 7B 71 7B C9 0B ..3y...er.{q{..
00B520: 00 DA 74 D2 45 47 45 54 4E 49 00 03 08 00 E2 74 ..t.EGETNI.....t
00B530: D2 41 48 43 00 03 08 00 EA 74 CC 41 45 52 00 03 .AHC.....t.AER..
00B540: 0B 00 F2 74 CE 41 45 4C 4F 4F 42 00 03 08 00 FA ...t.AELOOB.....
00B550: 74 D4 58 45 54 00 03 08 00 02 75 C5 54 59 42 00 t.XET.....u.TYB.
00B560: 03 09 00 01 00 0B C5 55 52 54 00 02 0A 00 00 00 .......URT......
00B570: 0B C5 53 4C 41 46 00 02 0B 00 FF 7F 0A D4 4E 49 ..SLAF........NI
00B580: 58 41 4D 00 02 0B 00 82 21 A2 DA 0F 49 09 C9 50 XAM.....!...I..P
00B590: 00 02 0D 00 FA 74 C2 00 00 D4 55 50 54 55 4F 00 .....t....UPTUO.
00B5A0: 04 0C 00 FA 74 C2 00 00 D4 55 50 4E 49 00 04 0A ....t....UPNI...
00B5B0: 00 FA 74 B8 00 00 CE 4F 43 00 04 0A 00 FA 74 B8 ..t....OC.....t.
00B5C0: 00 00 CD 52 54 00 04 0A 00 FA 74 BA 00 00 C4 42 ...RT.....t....B
00B5D0: 4B 00 04 0A 00 FA 74 BC 00 00 D4 53 4C 00 04 0A K.....t....SL...
00B5E0: 00 FA 74 BE 00 00 D8 55 41 00 04 0A 00 FA 74 C0 ..t....UA.....t.
00B5F0: 00 00 D2 53 55 00 04 0D 00 02 75 D1 00 00 CE 45 ...SU.....u....E
00B600: 4C 46 55 42 00 04 0E 00 DA 74 C4 00 00 D2 54 50 LFUB.....t....TP
00B610: 50 41 45 48 00 04 0F 00 DA 74 C6 00 00 D2 54 50 PAEH.....t....TP
00B620: 52 55 43 45 52 00 04 0F 00 DA 74 A1 00 00 D2 54 RUCER.....t....T
00B630: 50 54 53 4E 4F 43 00 04 0F 00 DA 74 A4 00 00 D2 PTSNOC.....t....
00B640: 54 50 4E 49 4E 4F 43 00 04 10 00 DA 74 A7 00 00 TPNINOC.....t...
00B650: D2 54 50 54 55 4F 4E 4F 43 00 04 10 00 DA 74 AA .TPTUONOC.....t.
00B660: 00 00 D2 54 50 54 55 4F 54 53 4C 00 04 0F 00 DA ...TPTUOTSL.....
00B670: 74 B0 00 00 D2 54 50 4E 49 58 55 41 00 04 10 00 t....TPNIXUA....
00B680: DA 74 AD 00 00 D2 54 50 54 55 4F 58 55 41 00 04 .t....TPTUOXUA..
00B690: 0F 00 DA 74 B6 00 00 D2 54 50 4E 49 52 53 55 00 ...t....TPNIRSU.
00B6A0: 04 10 00 DA 74 B3 00 00 D2 54 50 54 55 4F 52 53 ....t....TPTUORS
00B6B0: 55 00 04 0F 00 DA 74 DA 00 00 D2 54 50 52 4F 52 U.....t....TPROR
00B6C0: 52 45 00 04 0D 00 F2 74 DD 00 00 CB 41 45 52 42 RE.....t....AERB
00B6D0: 43 00 04 00 02 7F FF 80 00 00 0A 00 01 00 FF 00 C...............
00B6E0: 00 00 0C 00 06 00 00 00 00 00 09 00 01 00 01 00 ................
00B6F0: 00 00 0B 00 B0 00 00 00 00 00 06 00 01 00 FF 00 ................
00B700: 7B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D {---------------
00B710: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00B720: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00B730: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00B740: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 7D 0D 0A -------------}..
00B750: 0D 0A 6F 76 65 72 6C 61 79 20 70 72 6F 63 65 64 ..overlay proced
00B760: 75 72 65 20 69 6E 74 72 6F 3B 0D 0A 76 61 72 20 ure intro;..var
00B770: 69 3A 69 6E 74 65 67 65 72 3B 0D 0A 62 65 67 69 i:integer;..begi
00B780: 6E 0D 0A 20 20 53 65 74 48 65 61 64 65 72 4F 66 n.. SetHeaderOf
00B790: 66 3B 0D 0A 20 20 44 65 66 69 6E 65 57 69 6E 64 f;.. DefineWind
00B7A0: 6F 77 49 42 4D 28 31 2C 35 2C 34 30 2C 32 35 2C owIBM(1,5,40,25,
00B7B0: 38 30 29 3B 0D 0A 20 20 44 65 66 69 6E 65 57 69 80);.. DefineWi
00B7C0: 6E 64 6F 77 49 42 4D 28 32 2C 31 36 2C 35 35 2C ndowIBM(2,16,55,
00B7D0: 34 33 2C 39 35 29 3B 0D 0A 20 20 44 65 66 69 6E 43,95);.. Defin
00B7E0: 65 57 69 6E 64 6F 77 49 42 4D 28 34 2C 31 35 2C eWindowIBM(4,15,
00B7F0: 36 30 2C 34 33 2C 31 33 35 29 3B 0D 0A 0D 0A 20 60,43,135);....
00B800: 20 53 65 6C 65 63 74 57 69 6E 64 6F 77 28 31 29 SelectWindow(1)
00B810: 3B 0D 0A 20 20 44 72 61 77 42 6F 72 64 65 72 3B ;.. DrawBorder;
00B820: 0D 0A 20 20 53 65 6C 65 63 74 49 42 4D 3B 0D 0A .. SelectIBM;..
00B830: 20 20 44 72 61 77 54 65 78 74 57 28 35 32 2C 35 DrawTextW(52,5
00B840: 35 2C 35 2C 27 54 55 52 42 4F 27 29 3B 0D 0A 20 5,5,'TURBO');..
00B850: 20 53 74 6F 72 65 57 69 6E 64 6F 77 28 31 29 3B StoreWindow(1);
00B860: 0D 0A 20 20 64 65 6C 61 79 28 35 30 30 29 3B 0D .. delay(500);.
00B870: 0A 0D 0A 20 20 53 65 6C 65 63 74 57 69 6E 64 6F ... SelectWindo
00B880: 77 28 32 29 3B 0D 0A 20 20 53 65 74 42 61 63 6B w(2);.. SetBack
00B890: 67 72 6F 75 6E 64 28 30 29 3B 0D 0A 20 20 44 72 ground(0);.. Dr
00B8A0: 61 77 42 6F 72 64 65 72 3B 0D 0A 20 20 53 65 6C awBorder;.. Sel
00B8B0: 65 63 74 49 42 4D 3B 0D 0A 20 20 44 72 61 77 54 ectIBM;.. DrawT
00B8C0: 65 78 74 57 28 31 34 30 2C 37 30 2C 35 2C 27 47 extW(140,70,5,'G
00B8D0: 52 41 50 48 49 58 27 29 3B 0D 0A 20 20 53 74 6F RAPHIX');.. Sto
00B8E0: 72 65 57 69 6E 64 6F 77 28 32 29 3B 0D 0A 20 20 reWindow(2);..
00B8F0: 64 65 6C 61 79 28 35 30 30 29 3B 0D 0A 0D 0A 20 delay(500);....
00B900: 00 00 0A 00 09 00 00 00 00 00 08 00 00 00 00 00 ................
00B910: 00 00 00 00 29 75 01 84 75 02 BB 75 01 F5 75 01 ....)u..u..u..u.
00B920: 04 76 01 1D 76 01 34 76 FF 50 52 4F 47 52 41 CD .v..v.4v.PROGRA.
00B930: 45 4E C4 46 4F 52 57 41 52 C4 45 58 54 45 52 4E EN.FORWAR.EXTERN
00B940: 41 CC 50 41 43 4B 45 C4 41 52 52 41 D9 46 49 4C A.PACKE.ARRA.FIL
00B950: C5 53 45 D4 52 45 43 4F 52 C4 53 54 52 49 4E C7 .SE.RECOR.STRIN.
00B960: 4F C6 41 42 53 4F 4C 55 54 C5 54 48 45 CE 45 4C O.ABSOLUT.THE.EL
00B970: 53 C5 44 CF 55 4E 54 49 CC 4E 4F D4 4E 49 CC 00 S.D.UNTI.NO.NI..
00B980: 2E AE 3A BD 4C 41 42 45 CC 01 43 4F 4E 53 D4 02 ..:.LABE..CONS..
00B990: 54 59 50 C5 03 56 41 D2 04 42 45 47 49 CE 08 4F TYP..VA..BEGI..O
00B9A0: 56 45 52 4C 41 D9 07 50 52 4F 43 45 44 55 52 C5 VERLA..PROCEDUR.
00B9B0: 05 46 55 4E 43 54 49 4F CE 06 00 42 45 47 49 CE .FUNCTIO...BEGI.
00B9C0: 77 53 49 C6 EF 53 57 48 49 4C C5 24 54 52 45 50 wSI..SWHIL.$TREP
00B9D0: 45 41 D4 4C 54 46 4F D2 6B 54 43 41 53 C5 21 55 EA.LTFO.kTCAS.!U
00B9E0: 47 4F 54 CF 26 56 57 49 54 C8 4E 56 49 4E 4C 49 GOT.&VWIT.NVINLI
00B9F0: 4E C5 98 56 00 54 CF 23 44 4F 57 4E 54 CF 2B 00 N..V.T.#DOWNT.+.
00BA00: AA 00 AF 01 41 4E C4 02 44 49 D6 03 4D 4F C4 04 ....AN..DI..MO..
00BA10: 53 48 CC 05 53 48 D2 06 00 AB 00 AD 01 4F D2 02 SH..SH.......O..
00BA20: 58 4F D2 03 00 BD 00 3C BE 08 3E BD 10 3C BD 18 XO.....<..>..<..
00BA30: BE 20 BC 28 49 CE FF 00 57 52 49 54 45 4C CE E7 . .(I...WRITEL..
00BA40: 5A 57 52 49 54 C5 E8 5A 52 45 41 44 4C CE 32 5A ZWRIT..ZREADL.2Z
00BA50: 52 45 41 C4 33 5A 44 45 4C 45 54 C5 66 5C 49 4E REA.3ZDELET.f\IN
00BA60: 53 45 52 D4 87 5C 41 53 53 49 47 CE 43 59 52 45 SER..\ASSIG.CYRE
00BA70: 53 45 D4 B9 59 52 45 57 52 49 54 C5 BE 59 43 4C SE..YREWRIT..YCL
00BA80: 4F 53 C5 DB 59 45 52 41 53 C5 71 59 52 45 4E 41 OS..YERAS.qYRENA
00BA90: 4D C5 66 59 53 45 45 CB 8C 59 47 45 54 4D 45 CD M.fYSEE..YGETME.
00BAA0: 94 5D 4E 45 D7 9F 5D 46 52 45 45 4D 45 CD B4 5D .]NE..]FREEME..]
00BAB0: 44 49 53 50 4F 53 C5 BF 5D 4D 41 52 CB D4 5D 52 DISPOS..]MAR..]R
00BAC0: 45 4C 45 41 53 C5 D9 5D 4F 56 52 44 52 49 56 C5 ELEAS..]OVRDRIV.
00BAD0: F9 5D 43 52 54 49 4E 49 D4 38 5E 43 52 54 45 58 .]CRTINI.8^CRTEX
00BAE0: 49 D4 3D 5E 47 4F 54 4F 58 D9 6D 5D 43 4C 52 53 I.=^GOTOX.m]CLRS
00BAF0: 43 D2 42 5E 43 4C 52 45 4F CC 48 5E 4E 4F 52 4D C.B^CLREO.H^NORM
00BB00: 20 66 6F 72 20 69 3A 3D 31 20 74 6F 20 34 20 64 for i:=1 to 4 d
00BB10: 6F 0D 0A 20 20 62 65 67 69 6E 0D 0A 20 20 20 20 o.. begin..
00BB20: 52 65 73 74 6F 72 65 57 69 6E 64 6F 77 28 31 2C RestoreWindow(1,
00BB30: 30 2C 30 29 3B 0D 0A 20 20 20 20 64 65 6C 61 79 0,0);.. delay
00BB40: 28 38 30 30 29 3B 0D 0A 20 20 20 20 52 65 73 74 (800);.. Rest
00BB50: 6F 72 65 57 69 6E 64 6F 77 28 32 2C 30 2C 30 29 oreWindow(2,0,0)
00BB60: 3B 0D 0A 20 20 20 20 64 65 6C 61 79 28 38 30 30 ;.. delay(800
00BB70: 29 3B 0D 0A 20 20 65 6E 64 3B 0D 0A 0D 0A 20 20 );.. end;....
00BB80: 66 6F 72 20 69 3A 3D 31 20 74 6F 20 38 20 64 6F for i:=1 to 8 do
00BB90: 0D 0A 20 20 62 65 67 69 6E 0D 0A 20 20 20 20 52 .. begin.. R
00BBA0: 65 73 74 6F 72 65 57 69 6E 64 6F 77 28 31 2C 74 estoreWindow(1,t
00BBB0: 72 75 6E 63 28 33 2A 69 2A 58 4D 61 78 47 6C 62 runc(3*i*XMaxGlb
00BBC0: 2F 37 39 29 2C 74 72 75 6E 63 28 39 2A 69 2A 59 /79),trunc(9*i*Y
00BBD0: 4D 61 78 47 6C 62 2F 31 39 39 29 29 3B 0D 0A 20 MaxGlb/199));..
00BBE0: 20 20 20 64 65 6C 61 79 28 35 30 30 29 3B 0D 0A delay(500);..
00BBF0: 20 20 20 20 52 65 73 74 6F 72 65 57 69 6E 64 6F RestoreWindo
00BC00: 77 28 32 2C 74 72 75 6E 63 28 33 2A 69 2A 58 4D w(2,trunc(3*i*XM
00BC10: 61 78 47 6C 62 2F 37 39 29 2C 74 72 75 6E 63 28 axGlb/79),trunc(
00BC20: 39 2A 69 2A 59 4D 61 78 47 6C 62 2F 31 39 39 29 9*i*YMaxGlb/199)
00BC30: 29 3B 0D 0A 20 20 20 20 64 65 6C 61 79 28 35 30 );.. delay(50
00BC40: 30 29 3B 0D 0A 20 20 65 6E 64 3B 0D 0A 0D 0A 20 0);.. end;....
00BC50: 20 64 65 6C 61 79 28 35 30 30 29 3B 0D 0A 0D 0A delay(500);....
00BC60: 20 20 53 65 6C 65 63 74 57 69 6E 64 6F 77 28 34 SelectWindow(4
00BC70: 29 3B 0D 0A 20 20 53 74 6F 72 65 57 69 6E 64 6F );.. StoreWindo
00BC80: 77 28 34 29 3B 0D 0A 20 20 53 65 74 42 61 63 6B w(4);.. SetBack
00BC90: 67 72 6F 75 6E 64 28 30 29 3B 0D 0A 20 20 44 72 ground(0);.. Dr
00BCA0: 61 77 42 6F 72 64 65 72 3B 0D 0A 20 20 67 6F 74 awBorder;.. got
00BCB0: 6F 78 79 28 31 38 2C 31 30 29 3B 0D 0A 20 20 77 oxy(18,10);.. w
00BCC0: 72 69 74 65 6C 6E 28 27 47 52 41 50 48 49 43 53 riteln('GRAPHICS
00BCD0: 20 50 4F 55 52 20 54 55 52 42 4F 20 50 41 53 43 POUR TURBO PASC
00BCE0: 41 4C 27 29 3B 0D 0A 20 20 66 6F 72 20 69 3A 3D AL');.. for i:=
00BCF0: 32 20 74 6F 20 34 30 20 64 6F 0D 0A 20 20 20 62 2 to 40 do.. b
00BD00: 56 49 44 45 CF 4D 5E 48 49 47 48 56 49 44 45 CF VIDE.M^HIGHVIDE.
00BD10: 4D 5E 4C 4F 57 56 49 44 45 CF 52 5E 49 4E 53 4C M^LOWVIDE.R^INSL
00BD20: 49 4E C5 57 5E 44 45 4C 4C 49 4E C5 5C 5E 44 45 IN.W^DELLIN.\^DE
00BD30: 4C 41 D9 89 5D 42 4C 4F 43 4B 52 45 41 C4 16 5C LA..]BLOCKREA..\
00BD40: 42 4C 4F 43 4B 57 52 49 54 C5 1E 5C 52 41 4E 44 BLOCKWRIT..\RAND
00BD50: 4F 4D 49 5A C5 83 5D 4D 4F 56 C5 05 5E 46 49 4C OMIZ..]MOV..^FIL
00BD60: 4C 43 48 41 D2 1A 5E 45 58 49 D4 61 5E 48 41 4C LCHA..^EXI.a^HAL
00BD70: D4 67 5E 50 4F 52 D4 6D 5E 53 54 41 43 4B 50 54 .g^POR.m^STACKPT
00BD80: D2 78 5E 46 4C 55 53 C8 AB 59 45 58 45 43 55 54 .x^FLUS..YEXECUT
00BD90: C5 7E 59 43 48 41 49 CE 79 59 53 54 D2 BA 5C 56 .~YCHAI.yYST..\V
00BDA0: 41 CC 22 5D 42 44 4F D3 53 65 42 49 4F D3 1E 65 A."]BDO.SeBIO..e
00BDB0: 00 43 48 D2 25 64 4F 52 C4 11 64 43 4F 50 D9 60 .CH.%dOR..dCOP.`
00BDC0: 64 4C 45 4E 47 54 C8 41 64 50 4F D3 52 64 43 4F dLENGT.AdPO.RdCO
00BDD0: 4E 43 41 D4 81 64 53 55 43 C3 D4 63 50 52 45 C4 NCA..dSUC..cPRE.
00BDE0: D7 63 55 50 43 41 53 C5 37 64 54 52 55 4E C3 BE .cUPCAS.7dTRUN..
00BDF0: 63 52 4F 55 4E C4 C3 63 4F 44 C4 01 64 41 42 D3 cROUN..cOD..dAB.
00BE00: 71 63 53 51 D2 60 63 53 51 52 D4 85 63 53 49 CE qcSQ.`cSQR..cSI.
00BE10: 8A 63 43 4F D3 8F 63 41 52 43 54 41 CE 94 63 4C .cCO..cARCTA..cL
00BE20: CE 99 63 45 58 D0 9E 63 49 4E D4 A3 63 46 52 41 ..cEX..cIN.£cFRA
00BE30: C3 A8 63 52 41 4E 44 4F CD AC 64 50 41 52 41 4D ..cRANDO..dPARAM
00BE40: 43 4F 55 4E D4 9C 64 50 41 52 41 4D 53 54 D2 A1 COUN..dPARAMST..
00BE50: 64 4C CF E1 63 48 C9 EB 63 53 57 41 D0 F6 63 50 dL..cH..cSWA..cP
00BE60: 54 D2 2B 64 49 4F 52 45 53 55 4C D4 C4 64 45 4F T.+dIORESUL..dEO
00BE70: C6 C9 64 45 4F 4C CE DF 64 53 45 45 4B 45 4F C6 ..dEOL..dSEEKEO.
00BE80: D5 64 53 45 45 4B 45 4F 4C CE DA 64 46 49 4C 45 .dSEEKEOL..dFILE
00BE90: 53 49 5A C5 FA 64 46 49 4C 45 50 4F D3 F2 64 4B SIZ..dFILEPO..dK
00BEA0: 45 59 50 52 45 53 53 45 C4 0C 64 4D 45 4D 41 56 EYPRESSE..dMEMAV
00BEB0: 41 49 CC 14 65 4D 41 58 41 56 41 49 CC 19 65 50 AI..eMAXAVAI..eP
00BEC0: 4F 52 D4 BF 65 53 54 41 43 4B 50 54 D2 CA 65 41 OR..eSTACKPT..eA
00BED0: 44 44 D2 76 65 53 49 5A 45 4F C6 9D 65 42 44 4F DD.veSIZEO..eBDO
00BEE0: 53 48 CC 53 65 42 44 4F D3 54 65 42 49 4F 53 48 SH.SeBDO.TeBIOSH
00BEF0: CC 1E 65 42 49 4F D3 1F 65 00 4D 45 CD 00 00 00 ..eBIO..e.ME....
00BF00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
00BF10: 0A 00 01 00 02 09 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 67 69 6E 0D 0A 20 20 20 20 44 72 61 77 4C 69 egin.. DrawLi
00C010: 6E 65 28 69 2A 38 2C 36 30 2C 36 33 39 2D 69 2A ne(i*8,60,639-i*
00C020: 38 2C 31 39 30 29 3B 0D 0A 20 20 20 20 44 72 61 8,190);.. Dra
00C030: 77 4C 69 6E 65 28 36 33 39 2D 69 2A 38 2C 36 30 wLine(639-i*8,60
00C040: 2C 69 2A 38 2C 31 39 30 29 3B 0D 0A 20 20 20 65 ,i*8,190);.. e
00C050: 6E 64 3B 0D 0A 20 20 64 65 6C 61 79 28 32 35 30 nd;.. delay(250
00C060: 30 29 3B 0D 0A 0D 0A 20 20 52 65 73 74 6F 72 65 0);.... Restore
00C070: 57 69 6E 64 6F 77 28 34 2C 30 2C 30 29 3B 0D 0A Window(4,0,0);..
00C080: 0D 0A 20 20 49 6E 76 65 72 74 53 63 72 65 65 6E .. InvertScreen
00C090: 3B 0D 0A 20 20 64 65 6C 61 79 28 35 30 30 30 29 ;.. delay(5000)
00C0A0: 3B 0D 0A 7B 20 20 53 65 6C 65 63 74 53 63 72 65 ;..{ SelectScre
00C0B0: 65 6E 28 32 29 3B 7D 0D 0A 20 20 43 6C 65 61 72 en(2);}.. Clear
00C0C0: 53 63 72 65 65 6E 3B 0D 0A 20 20 49 6E 76 65 72 Screen;.. Inver
00C0D0: 74 53 63 72 65 65 6E 3B 0D 0A 20 20 53 65 74 43 tScreen;.. SetC
00C0E0: 6F 6C 6F 72 42 6C 61 63 6B 3B 0D 0A 20 20 53 65 olorBlack;.. Se
00C0F0: 6C 65 63 74 49 42 4D 3B 0D 0A 20 20 44 72 61 77 lectIBM;.. Draw
00C100: 54 65 78 74 57 28 34 30 2C 37 35 2C 33 2C 27 42 TextW(40,75,3,'B
00C110: 59 27 29 3B 0D 0A 20 20 44 72 61 77 54 65 78 74 Y');.. DrawText
00C120: 57 28 34 30 2C 31 34 30 2C 34 2C 27 42 4F 52 4C W(40,140,4,'BORL
00C130: 41 4E 44 20 49 4E 54 45 52 4E 41 54 49 4F 4E 41 AND INTERNATIONA
00C140: 4C 27 29 3B 0D 0A 0D 0A 20 20 43 6F 70 79 53 63 L');.... CopySc
00C150: 72 65 65 6E 3B 0D 0A 0D 0A 7B 20 20 53 65 6C 65 reen;....{ Sele
00C160: 63 74 53 63 72 65 65 6E 28 31 29 3B 20 7D 0D 0A ctScreen(1); }..
00C170: 20 20 64 65 6C 61 79 28 35 30 30 30 29 3B 0D 0A delay(5000);..
00C180: 20 20 44 65 66 69 6E 65 57 69 6E 64 6F 77 49 42 DefineWindowIB
00C190: 4D 28 31 2C 31 2C 31 32 35 2C 33 35 2C 31 36 38 M(1,1,125,35,168
00C1A0: 29 3B 0D 0A 20 20 53 74 6F 72 65 57 69 6E 64 6F );.. StoreWindo
00C1B0: 77 28 31 29 3B 0D 0A 20 20 44 65 66 69 6E 65 57 w(1);.. DefineW
00C1C0: 69 6E 64 6F 77 49 42 4D 28 32 2C 33 36 2C 31 32 indowIBM(2,36,12
00C1D0: 35 2C 37 38 2C 31 36 38 29 3B 0D 0A 20 20 53 74 5,78,168);.. St
00C1E0: 6F 72 65 57 69 6E 64 6F 77 28 32 29 3B 0D 0A 0D oreWindow(2);...
00C1F0: 0A 20 20 66 6F 72 20 69 3A 3D 31 20 74 6F 20 74 . for i:=1 to t
00C200: 30 29 3B 0D 0A 0D 0A 65 6E 64 3B 0D 0A 0D 0A 1A 0);....end;.....
00C210: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
00C220: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
00C230: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
00C240: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
00C250: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
00C260: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
00C270: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
00C280: 65 6E 73 69 74 65 20 64 75 20 68 61 63 68 75 72 ensite du hachur
00C290: 61 67 65 20 70 65 75 74 20 65 74 72 65 20 6D 6F age peut etre mo
00C2A0: 64 69 66 69 65 65 20 3A 20 44 72 61 77 48 69 73 difiee : DrawHis
00C2B0: 74 6F 67 72 61 6D 27 29 3B 0D 0A 20 20 53 65 6C togram');.. Sel
00C2C0: 65 63 74 57 69 6E 64 6F 77 28 33 29 3B 0D 0A 20 ectWindow(3);..
00C2D0: 20 53 65 74 42 61 63 6B 67 72 6F 75 6E 64 28 30 SetBackground(0
00C2E0: 29 3B 0D 0A 20 20 44 72 61 77 42 6F 72 64 65 72 );.. DrawBorder
00C2F0: 3B 0D 0A 20 20 78 44 72 61 77 48 69 73 74 6F 67 ;.. xDrawHistog
00C300: 72 61 6D 28 61 2C 2D 6E 2C 74 72 75 65 2C 34 29 ram(a,-n,true,4)
00C310: 3B 0D 0A 0D 0A 20 20 64 65 6C 61 79 28 31 35 30 ;.... delay(150
00C320: 30 30 29 3B 0D 0A 0D 0A 20 20 6D 73 67 28 27 4C 00);.... msg('L
00C330: 61 20 64 65 6E 73 69 74 65 20 64 65 73 20 61 78 a densite des ax
00C340: 65 73 20 70 65 75 74 20 65 74 72 65 20 6D 6F 64 es peut etre mod
00C350: 69 66 69 65 65 20 3A 20 44 72 61 77 41 78 69 73 ifiee : DrawAxis
00C360: 20 2C 20 44 72 61 77 48 69 73 74 6F 67 72 61 6D , DrawHistogram
00C370: 27 29 3B 0D 0A 20 20 53 65 6C 65 63 74 57 69 6E ');.. SelectWin
00C380: 64 6F 77 28 34 29 3B 0D 0A 20 20 53 65 74 42 61 dow(4);.. SetBa
00C390: 63 6B 67 72 6F 75 6E 64 28 30 29 3B 0D 0A 20 20 ckground(0);..
00C3A0: 44 72 61 77 42 6F 72 64 65 72 3B 0D 0A 20 20 78 DrawBorder;.. x
00C3B0: 44 72 61 77 41 78 69 73 28 37 2C 2D 37 2C 30 2C DrawAxis(7,-7,0,
00C3C0: 30 2C 30 2C 30 2C 30 2C 30 2C 74 72 75 65 29 3B 0,0,0,0,0,true);
00C3D0: 0D 0A 20 20 78 44 72 61 77 48 69 73 74 6F 67 72 .. xDrawHistogr
00C3E0: 61 6D 28 61 2C 2D 6E 2C 74 72 75 65 2C 32 29 3B am(a,-n,true,2);
00C3F0: 0D 0A 0D 0A 20 20 64 65 6C 61 79 28 31 35 30 30 .... delay(1500
00C400: 72 75 6E 63 28 33 34 2A 58 4D 61 78 47 6C 62 2F runc(34*XMaxGlb/
00C410: 37 39 29 20 64 6F 0D 0A 20 20 62 65 67 69 6E 0D 79) do.. begin.
00C420: 0A 20 20 20 20 53 65 6C 65 63 74 57 69 6E 64 6F . SelectWindo
00C430: 77 28 31 29 3B 0D 0A 20 20 20 20 4D 6F 76 65 48 w(1);.. MoveH
00C440: 6F 72 28 31 2C 66 61 6C 73 65 29 3B 0D 0A 20 20 or(1,false);..
00C450: 20 20 52 65 44 65 66 69 6E 65 57 69 6E 64 6F 77 ReDefineWindow
00C460: 28 31 2C 58 31 52 65 66 47 6C 62 2C 59 31 52 65 (1,X1RefGlb,Y1Re
00C470: 66 47 6C 62 2C 58 32 52 65 66 47 6C 62 2D 31 2C fGlb,X2RefGlb-1,
00C480: 59 32 52 65 66 47 6C 62 29 3B 0D 0A 20 20 20 20 Y2RefGlb);..
00C490: 53 65 6C 65 63 74 57 69 6E 64 6F 77 28 32 29 3B SelectWindow(2);
00C4A0: 0D 0A 20 20 20 20 4D 6F 76 65 48 6F 72 28 2D 31 .. MoveHor(-1
00C4B0: 2C 66 61 6C 73 65 29 3B 0D 0A 20 20 20 20 52 65 ,false);.. Re
00C4C0: 44 65 66 69 6E 65 57 69 6E 64 6F 77 28 32 2C 58 DefineWindow(2,X
00C4D0: 31 52 65 66 47 6C 62 2B 31 2C 59 31 52 65 66 47 1RefGlb+1,Y1RefG
00C4E0: 6C 62 2C 58 32 52 65 66 47 6C 62 2C 59 32 52 65 lb,X2RefGlb,Y2Re
00C4F0: 66 47 6C 62 29 3B 0D 0A 20 20 65 6E 64 3B 0D 0A fGlb);.. end;..
00C500: 0D 0A 20 20 64 65 6C 61 79 28 31 30 30 30 29 3B .. delay(1000);
00C510: 0D 0A 20 20 52 65 73 74 6F 72 65 57 69 6E 64 6F .. RestoreWindo
00C520: 77 28 31 2C 30 2C 30 29 3B 0D 0A 20 20 52 65 73 w(1,0,0);.. Res
00C530: 74 6F 72 65 57 69 6E 64 6F 77 28 32 2C 30 2C 30 toreWindow(2,0,0
00C540: 29 3B 0D 0A 0D 0A 20 20 47 6F 74 6F 58 59 28 31 );.... GotoXY(1
00C550: 2C 32 35 29 3B 0D 0A 20 20 43 6C 72 45 6F 6C 3B ,25);.. ClrEol;
00C560: 0D 0A 20 20 47 6F 74 6F 58 59 28 31 37 2C 32 35 .. GotoXY(17,25
00C570: 29 3B 0D 0A 20 20 57 72 69 74 65 28 27 43 6F 70 );.. Write('Cop
00C580: 79 72 69 67 68 74 20 28 43 29 20 31 39 38 35 20 yright (C) 1985
00C590: 42 6F 72 6C 61 6E 64 20 49 6E 74 65 72 6E 61 74 Borland Internat
00C5A0: 69 6F 6E 61 6C 2C 20 49 6E 63 2E 27 29 3B 0D 0A ional, Inc.');..
00C5B0: 20 20 64 65 6C 61 79 28 33 30 30 30 29 3B 0D 0A delay(3000);..
00C5C0: 20 20 53 65 74 43 6F 6C 6F 72 57 68 69 74 65 3B SetColorWhite;
00C5D0: 0D 0A 20 20 53 65 74 48 65 61 64 65 72 4F 6E 3B .. SetHeaderOn;
00C5E0: 0D 0A 65 6E 64 3B 0D 0A 0D 0A 1A 1A 1A 1A 1A 1A ..end;..........
00C5F0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
00C600: 7B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D {---------------
00C610: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00C620: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00C630: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00C640: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 7D 0D 0A -------------}..
00C650: 0D 0A 6F 76 65 72 6C 61 79 20 66 75 6E 63 74 69 ..overlay functi
00C660: 6F 6E 20 6D 65 6E 75 63 68 6F 69 63 65 28 6F 6C on menuchoice(ol
00C670: 64 63 68 6F 69 63 65 3A 69 6E 74 65 67 65 72 29 dchoice:integer)
00C680: 3A 69 6E 74 65 67 65 72 3B 0D 0A 63 6F 6E 73 74 :integer;..const
00C690: 20 70 72 6F 6D 70 74 3A 73 74 72 69 6E 67 5B 36 prompt:string[6
00C6A0: 5D 3D 27 3D 3D 38 3E 20 20 20 27 3B 0D 0A 20 20 ]='==8> ';..
00C6B0: 20 20 20 20 74 69 74 6C 65 3D 27 44 65 6D 6F 6D title='Demom
00C6C0: 73 74 72 61 74 69 6F 6E 20 54 55 52 42 4F 20 47 stration TURBO G
00C6D0: 52 41 50 48 49 58 20 54 4F 4F 4C 42 4F 58 27 3B RAPHIX TOOLBOX';
00C6E0: 0D 0A 20 20 20 20 20 20 6E 3D 39 3B 0D 0A 20 20 .. n=9;..
00C6F0: 20 20 20 20 6D 65 6E 75 69 74 65 6D 73 3A 61 72 menuitems:ar
00C700: 72 61 79 20 5B 30 2E 2E 39 5D 20 6F 66 20 73 74 ray [0..9] of st
00C710: 72 69 6E 67 5B 33 30 5D 3D 0D 0A 20 20 20 20 20 ring[30]=..
00C720: 20 20 20 28 27 53 6F 72 74 69 72 20 64 65 20 6C ('Sortir de l
00C730: 61 20 20 64 65 6D 6F 6E 73 74 72 61 74 69 6F 6E a demonstration
00C740: 27 2C 0D 0A 20 20 20 20 20 20 20 20 20 27 55 74 ',.. 'Ut
00C750: 69 6C 69 73 61 74 69 6F 6E 20 64 65 73 20 66 65 ilisation des fe
00C760: 6E 65 74 72 65 27 2C 0D 0A 20 20 20 20 20 20 20 netre',..
00C770: 20 20 27 53 69 6D 70 6C 65 73 20 63 6F 6D 6D 61 'Simples comma
00C780: 6E 64 65 73 20 67 72 61 70 68 69 71 75 65 73 27 ndes graphiques'
00C790: 2C 0D 0A 20 20 20 20 20 20 20 20 20 27 43 6F 75 ,.. 'Cou
00C7A0: 72 62 65 73 20 64 65 20 53 69 65 72 70 69 6E 73 rbes de Sierpins
00C7B0: 6B 69 20 27 2C 0D 0A 20 20 20 20 20 20 20 20 20 ki ',..
00C7C0: 27 43 61 6D 65 6D 62 65 72 74 73 27 2C 0D 0A 20 'Camemberts',..
00C7D0: 20 20 20 20 20 20 20 20 27 4C 69 73 73 61 67 65 'Lissage
00C7E0: 27 2C 0D 0A 20 20 20 20 20 20 20 20 20 27 50 6F ',.. 'Po
00C7F0: 6C 79 67 6F 6E 65 73 27 2C 0D 0A 20 20 20 20 20 lygones',..
00C800: 76 61 72 20 69 2C 6E 3A 69 6E 74 65 67 65 72 3B var i,n:integer;
00C810: 0D 0A 20 20 20 20 61 3A 50 6C 6F 74 41 72 72 61 .. a:PlotArra
00C820: 79 3B 0D 0A 20 20 20 20 72 2C 74 65 6D 70 3A 72 y;.. r,temp:r
00C830: 65 61 6C 3B 0D 0A 0D 0A 62 65 67 69 6E 0D 0A 20 eal;....begin..
00C840: 20 67 6F 74 6F 78 79 28 35 30 2C 32 35 29 3B 0D gotoxy(50,25);.
00C850: 0A 20 20 77 72 69 74 65 28 27 55 6E 20 20 6D 6F . write('Un mo
00C860: 6D 65 6E 74 20 2E 2E 2E 2E 27 29 3B 0D 0A 20 20 ment ....');..
00C870: 6E 3A 3D 35 30 3B 0D 0A 20 20 72 3A 3D 61 62 73 n:=50;.. r:=abs
00C880: 28 6E 2F 32 29 3B 0D 0A 20 20 66 6F 72 20 69 3A (n/2);.. for i:
00C890: 3D 30 20 74 6F 20 61 62 73 28 6E 2D 31 29 20 64 =0 to abs(n-1) d
00C8A0: 6F 0D 0A 20 20 20 20 62 65 67 69 6E 3B 0D 0A 20 o.. begin;..
00C8B0: 20 20 20 20 20 61 5B 69 2B 31 2C 31 5D 3A 3D 69 a[i+1,1]:=i
00C8C0: 2D 72 3B 0D 0A 20 20 20 20 20 20 61 5B 69 2B 31 -r;.. a[i+1
00C8D0: 2C 32 5D 3A 3D 73 69 6E 28 61 5B 69 2B 31 2C 31 ,2]:=sin(a[i+1,1
00C8E0: 5D 2F 31 30 29 2A 65 78 70 28 2D 61 62 73 28 61 ]/10)*exp(-abs(a
00C8F0: 5B 69 2B 31 2C 31 5D 29 2A 30 2E 30 31 29 2B 72 [i+1,1])*0.01)+r
00C900: 61 6E 64 6F 6D 2A 30 2E 31 3B 0D 0A 20 20 20 20 andom*0.1;..
00C910: 65 6E 64 3B 0D 0A 20 20 43 6C 65 61 72 53 63 72 end;.. ClearScr
00C920: 65 65 6E 3B 0D 0A 20 20 53 65 74 43 6F 6C 6F 72 een;.. SetColor
00C930: 57 68 69 74 65 3B 0D 0A 0D 0A 20 20 44 65 66 69 White;.... Defi
00C940: 6E 65 57 69 6E 64 6F 77 49 42 4D 28 31 2C 30 2C neWindowIBM(1,0,
00C950: 30 2C 37 39 2C 31 38 35 29 3B 0D 0A 20 20 44 65 0,79,185);.. De
00C960: 66 69 6E 65 57 69 6E 64 6F 77 49 42 4D 28 32 2C fineWindowIBM(2,
00C970: 32 30 2C 32 30 2C 37 35 2C 31 37 35 29 3B 0D 0A 20,20,75,175);..
00C980: 20 20 44 65 66 69 6E 65 57 69 6E 64 6F 77 49 42 DefineWindowIB
00C990: 4D 28 33 2C 35 2C 33 35 2C 36 30 2C 31 37 30 29 M(3,5,35,60,170)
00C9A0: 3B 0D 0A 20 20 44 65 66 69 6E 65 57 69 6E 64 6F ;.. DefineWindo
00C9B0: 77 49 42 4D 28 34 2C 31 30 2C 35 30 2C 35 35 2C wIBM(4,10,50,55,
00C9C0: 31 36 35 29 3B 0D 0A 0D 0A 20 20 44 65 66 69 6E 165);.... Defin
00C9D0: 65 48 65 61 64 65 72 28 31 2C 27 55 6E 20 68 69 eHeader(1,'Un hi
00C9E0: 73 74 6F 67 72 61 6D 6D 65 20 65 6E 20 6D 6F 64 stogramme en mod
00C9F0: 65 20 76 61 6C 65 75 72 20 61 62 73 6F 6C 75 65 e valeur absolue
00CA00: 20 20 20 20 27 48 69 73 74 6F 67 72 61 6D 6D 65 'Histogramme
00CA10: 27 2C 0D 0A 20 20 20 20 20 20 20 20 20 27 41 70 ',.. 'Ap
00CA20: 70 6C 69 63 61 74 69 6F 6E 3A 20 55 6E 20 6F 72 plication: Un or
00CA30: 67 61 6E 69 67 72 61 6D 6D 65 27 2C 0D 0A 20 20 ganigramme',..
00CA40: 20 20 20 20 20 20 20 27 54 72 61 63 65 27 29 3B 'Trace');
00CA50: 0D 0A 0D 0A 76 61 72 20 78 2C 79 2C 69 2C 6A 3A ....var x,y,i,j:
00CA60: 69 6E 74 65 67 65 72 3B 0D 0A 20 20 20 20 63 68 integer;.. ch
00CA70: 3A 63 68 61 72 3B 0D 0A 20 20 20 20 71 75 69 74 :char;.. quit
00CA80: 3A 62 6F 6F 6C 65 61 6E 3B 0D 0A 62 65 67 69 6E :boolean;..begin
00CA90: 0D 0A 20 20 63 68 3A 3D 27 20 27 3B 0D 0A 20 20 .. ch:=' ';..
00CAA0: 71 75 69 74 3A 3D 66 61 6C 73 65 3B 0D 0A 20 20 quit:=false;..
00CAB0: 6F 6C 64 63 68 6F 69 63 65 3A 3D 6F 6C 64 63 68 oldchoice:=oldch
00CAC0: 6F 69 63 65 2B 31 3B 0D 0A 20 20 69 66 20 6F 6C oice+1;.. if ol
00CAD0: 64 63 68 6F 69 63 65 3E 6E 20 74 68 65 6E 20 6F dchoice>n then o
00CAE0: 6C 64 63 68 6F 69 63 65 3A 3D 31 3B 0D 0A 20 20 ldchoice:=1;..
00CAF0: 78 3A 3D 34 30 2D 6C 65 6E 67 74 68 28 74 69 74 x:=40-length(tit
00CB00: 6C 65 29 20 64 69 76 20 32 3B 0D 0A 20 20 67 6F le) div 2;.. go
00CB10: 74 6F 78 79 28 78 2C 31 29 3B 0D 0A 20 20 77 72 toxy(x,1);.. wr
00CB20: 69 74 65 28 74 69 74 6C 65 29 3B 0D 0A 20 20 67 ite(title);.. g
00CB30: 6F 74 6F 78 79 28 31 2C 32 35 29 3B 0D 0A 20 20 otoxy(1,25);..
00CB40: 77 72 69 74 65 28 27 45 53 50 41 43 45 20 2F 20 write('ESPACE /
00CB50: 42 41 43 4B 53 50 41 43 45 20 6F 75 20 75 6E 20 BACKSPACE ou un
00CB60: 6E 6F 6D 62 72 65 2C 74 61 70 65 7A 20 73 75 72 nombre,tapez sur
00CB70: 20 20 52 45 54 55 52 4E 27 29 3B 0D 0A 20 20 79 RETURN');.. y
00CB80: 3A 3D 38 2D 6E 20 64 69 76 20 32 3B 0D 0A 20 20 :=8-n div 2;..
00CB90: 78 3A 3D 32 30 3B 0D 0A 20 20 66 6F 72 20 69 3A x:=20;.. for i:
00CBA0: 3D 30 20 74 6F 20 6E 20 64 6F 0D 0A 20 20 20 20 =0 to n do..
00CBB0: 62 65 67 69 6E 0D 0A 20 20 20 20 20 20 67 6F 74 begin.. got
00CBC0: 6F 78 79 28 78 2D 34 2C 79 2B 69 2A 32 29 3B 0D oxy(x-4,y+i*2);.
00CBD0: 0A 20 20 20 20 20 20 77 72 69 74 65 28 69 3A 31 . write(i:1
00CBE0: 2C 27 20 2D 2D 20 27 2C 6D 65 6E 75 69 74 65 6D ,' -- ',menuitem
00CBF0: 73 5B 69 5D 29 3B 0D 0A 20 20 20 20 65 6E 64 3B s[i]);.. end;
00CC00: 20 76 61 6C 75 65 20 27 29 3B 0D 0A 20 20 44 65 value ');.. De
00CC10: 66 69 6E 65 48 65 61 64 65 72 28 32 2C 27 55 6E fineHeader(2,'Un
00CC20: 20 68 69 73 74 6F 67 72 61 6D 6D 65 20 65 6E 20 histogramme en
00CC30: 6D 6F 64 65 20 6E 6F 72 6D 61 6C 27 29 3B 0D 0A mode normal');..
00CC40: 20 20 44 65 66 69 6E 65 48 65 61 64 65 72 28 33 DefineHeader(3
00CC50: 2C 27 55 6E 20 68 69 73 74 6F 67 72 61 6D 6D 65 ,'Un histogramme
00CC60: 20 65 6E 20 6D 6F 64 65 20 6E 6F 72 6D 61 6C 20 en mode normal
00CC70: 61 76 65 63 20 68 61 63 68 75 72 61 67 65 27 29 avec hachurage')
00CC80: 3B 0D 0A 20 20 44 65 66 69 6E 65 48 65 61 64 65 ;.. DefineHeade
00CC90: 72 28 34 2C 27 55 6E 20 68 69 73 74 6F 67 72 61 r(4,'Un histogra
00CCA0: 6D 6D 65 20 61 76 65 63 20 61 78 65 73 27 29 3B mme avec axes');
00CCB0: 0D 0A 0D 0A 20 20 6D 73 67 28 27 41 66 66 69 63 .... msg('Affic
00CCC0: 68 61 67 65 20 64 65 73 20 74 6F 74 61 75 78 20 hage des totaux
00CCD0: 20 3A 20 44 72 61 77 48 69 73 74 6F 67 72 61 6D : DrawHistogram
00CCE0: 27 29 3B 0D 0A 20 20 46 69 6E 64 57 6F 72 6C 64 ');.. FindWorld
00CCF0: 28 31 2C 61 2C 6E 2C 31 2E 31 2C 31 2E 31 29 3B (1,a,n,1.1,1.1);
00CD00: 0D 0A 20 20 77 69 74 68 20 77 6F 72 6C 64 5B 31 .. with world[1
00CD10: 5D 20 64 6F 0D 0A 20 20 20 62 65 67 69 6E 0D 0A ] do.. begin..
00CD20: 20 20 20 20 74 65 6D 70 3A 3D 79 31 3B 0D 0A 20 temp:=y1;..
00CD30: 20 20 20 79 31 3A 3D 79 32 3B 0D 0A 20 20 20 20 y1:=y2;..
00CD40: 79 32 3A 3D 74 65 6D 70 3B 0D 0A 20 20 20 65 6E y2:=temp;.. en
00CD50: 64 3B 0D 0A 20 20 53 65 6C 65 63 74 57 6F 72 6C d;.. SelectWorl
00CD60: 64 28 31 29 3B 0D 0A 20 20 53 65 6C 65 63 74 57 d(1);.. SelectW
00CD70: 69 6E 64 6F 77 28 31 29 3B 0D 0A 20 20 44 72 61 indow(1);.. Dra
00CD80: 77 42 6F 72 64 65 72 3B 0D 0A 20 20 78 44 72 61 wBorder;.. xDra
00CD90: 77 48 69 73 74 6F 67 72 61 6D 28 61 2C 6E 2C 66 wHistogram(a,n,f
00CDA0: 61 6C 73 65 2C 35 29 3B 0D 0A 0D 0A 20 20 64 65 alse,5);.... de
00CDB0: 6C 61 79 28 31 35 30 30 30 29 3B 0D 0A 0D 0A 20 lay(15000);....
00CDC0: 20 6D 73 67 28 27 41 66 66 69 63 68 61 67 65 20 msg('Affichage
00CDD0: 64 65 73 20 76 61 6C 65 75 72 73 20 70 6F 73 69 des valeurs posi
00CDE0: 74 69 76 65 73 20 65 74 20 6E 65 67 61 74 69 76 tives et negativ
00CDF0: 65 73 20 3A 20 44 72 61 77 48 69 73 74 6F 67 72 es : DrawHistogr
00CE00: 0D 0A 20 20 69 3A 3D 6F 6C 64 63 68 6F 69 63 65 .. i:=oldchoice
00CE10: 3B 0D 0A 20 20 67 6F 74 6F 78 79 28 78 2D 31 30 ;.. gotoxy(x-10
00CE20: 2C 79 2B 69 2A 32 29 3B 0D 0A 20 20 77 72 69 74 ,y+i*2);.. writ
00CE30: 65 28 70 72 6F 6D 70 74 2C 69 3A 31 2C 27 20 2D e(prompt,i:1,' -
00CE40: 2D 20 27 2C 6D 65 6E 75 69 74 65 6D 73 5B 69 5D - ',menuitems[i]
00CE50: 29 3B 0D 0A 20 20 67 6F 74 6F 78 79 28 36 32 2C );.. gotoxy(62,
00CE60: 79 2B 69 2A 32 29 3B 0D 0A 20 20 77 72 69 74 65 y+i*2);.. write
00CE70: 28 27 3C 3D 3D 27 29 3B 0D 0A 20 20 6A 3A 3D 30 ('<==');.. j:=0
00CE80: 3B 0D 0A 20 20 77 68 69 6C 65 20 63 68 3C 3E 5E ;.. while ch<>^
00CE90: 4D 20 64 6F 0D 0A 20 20 20 20 62 65 67 69 6E 0D M do.. begin.
00CEA0: 0A 20 20 20 20 20 20 63 68 3A 3D 27 2E 27 3B 0D . ch:='.';.
00CEB0: 0A 20 20 20 20 20 20 69 66 20 6B 65 79 70 72 65 . if keypre
00CEC0: 73 73 65 64 20 74 68 65 6E 0D 0A 20 20 20 20 20 ssed then..
00CED0: 20 20 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 20 begin..
00CEE0: 20 20 20 20 72 65 61 64 28 6B 62 64 2C 63 68 29 read(kbd,ch)
00CEF0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 6A 3A 3D ;.. j:=
00CF00: 30 3B 0D 0A 20 20 20 20 20 20 20 20 65 6E 64 3B 0;.. end;
00CF10: 0D 0A 20 20 20 20 20 20 69 66 20 63 68 3D 5E 48 .. if ch=^H
00CF20: 20 74 68 65 6E 0D 0A 20 20 20 20 20 20 20 20 62 then.. b
00CF30: 65 67 69 6E 0D 0A 20 20 20 20 20 20 20 20 20 20 egin..
00CF40: 67 6F 74 6F 78 79 28 78 2D 31 30 2C 79 2B 69 2A gotoxy(x-10,y+i*
00CF50: 32 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 77 2);.. w
00CF60: 72 69 74 65 28 27 20 20 20 20 20 20 27 29 3B 0D rite(' ');.
00CF70: 0A 20 20 20 20 20 20 20 20 20 20 67 6F 74 6F 78 . gotox
00CF80: 79 28 36 32 2C 79 2B 69 2A 32 29 3B 0D 0A 20 20 y(62,y+i*2);..
00CF90: 20 20 20 20 20 20 20 20 77 72 69 74 65 28 27 20 write('
00CFA0: 20 20 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 ');..
00CFB0: 20 69 3A 3D 69 2D 31 3B 0D 0A 20 20 20 20 20 20 i:=i-1;..
00CFC0: 20 20 20 20 69 66 20 69 3D 2D 31 20 74 68 65 6E if i=-1 then
00CFD0: 20 69 3A 3D 6E 3B 0D 0A 20 20 20 20 20 20 20 20 i:=n;..
00CFE0: 20 20 67 6F 74 6F 78 79 28 78 2D 31 30 2C 79 2B gotoxy(x-10,y+
00CFF0: 69 2A 32 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 i*2);..
00D000: 61 6D 27 29 3B 0D 0A 20 20 53 65 6C 65 63 74 57 am');.. SelectW
00D010: 69 6E 64 6F 77 28 32 29 3B 0D 0A 20 20 53 65 74 indow(2);.. Set
00D020: 42 61 63 6B 67 72 6F 75 6E 64 28 30 29 3B 0D 0A Background(0);..
00D030: 20 20 44 72 61 77 42 6F 72 64 65 72 3B 0D 0A 20 DrawBorder;..
00D040: 20 78 44 72 61 77 48 69 73 74 6F 67 72 61 6D 28 xDrawHistogram(
00D050: 61 2C 2D 6E 2C 66 61 6C 73 65 2C 35 29 3B 0D 0A a,-n,false,5);..
00D060: 0D 0A 20 20 64 65 6C 61 79 28 31 35 30 30 30 29 .. delay(15000)
00D070: 3B 0D 0A 0D 0A 20 20 6D 73 67 28 27 4C 61 20 64 ;.... msg('La d
00D080: 65 6E 73 69 74 65 20 64 75 20 68 61 63 68 75 72 ensite du hachur
00D090: 61 67 65 20 70 65 75 74 20 65 74 72 65 20 6D 6F age peut etre mo
00D0A0: 64 69 66 69 65 65 20 3A 20 44 72 61 77 48 69 73 difiee : DrawHis
00D0B0: 74 6F 67 72 61 6D 27 29 3B 0D 0A 20 20 53 65 6C togram');.. Sel
00D0C0: 65 63 74 57 69 6E 64 6F 77 28 33 29 3B 0D 0A 20 ectWindow(3);..
00D0D0: 20 53 65 74 42 61 63 6B 67 72 6F 75 6E 64 28 30 SetBackground(0
00D0E0: 29 3B 0D 0A 20 20 44 72 61 77 42 6F 72 64 65 72 );.. DrawBorder
00D0F0: 3B 0D 0A 20 20 78 44 72 61 77 48 69 73 74 6F 67 ;.. xDrawHistog
00D100: 72 61 6D 28 61 2C 2D 6E 2C 74 72 75 65 2C 34 29 ram(a,-n,true,4)
00D110: 3B 0D 0A 0D 0A 20 20 64 65 6C 61 79 28 31 35 30 ;.... delay(150
00D120: 30 30 29 3B 0D 0A 0D 0A 20 20 6D 73 67 28 27 4C 00);.... msg('L
00D130: 61 20 64 65 6E 73 69 74 65 20 64 65 73 20 61 78 a densite des ax
00D140: 65 73 20 70 65 75 74 20 65 74 72 65 20 6D 6F 64 es peut etre mod
00D150: 69 66 69 65 65 20 3A 20 44 72 61 77 41 78 69 73 ifiee : DrawAxis
00D160: 20 2C 20 44 72 61 77 48 69 73 74 6F 67 72 61 6D , DrawHistogram
00D170: 27 29 3B 0D 0A 20 20 53 65 6C 65 63 74 57 69 6E ');.. SelectWin
00D180: 64 6F 77 28 34 29 3B 0D 0A 20 20 53 65 74 42 61 dow(4);.. SetBa
00D190: 63 6B 67 72 6F 75 6E 64 28 30 29 3B 0D 0A 20 20 ckground(0);..
00D1A0: 44 72 61 77 42 6F 72 64 65 72 3B 0D 0A 20 20 78 DrawBorder;.. x
00D1B0: 44 72 61 77 41 78 69 73 28 37 2C 2D 37 2C 30 2C DrawAxis(7,-7,0,
00D1C0: 30 2C 30 2C 30 2C 30 2C 30 2C 74 72 75 65 29 3B 0,0,0,0,0,true);
00D1D0: 0D 0A 20 20 78 44 72 61 77 48 69 73 74 6F 67 72 .. xDrawHistogr
00D1E0: 61 6D 28 61 2C 2D 6E 2C 74 72 75 65 2C 32 29 3B am(a,-n,true,2);
00D1F0: 0D 0A 0D 0A 20 20 64 65 6C 61 79 28 31 35 30 30 .... delay(1500
00D200: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
00D210: 0B 00 01 00 02 09 50 E5 0B 00 41 02 00 00 00 02 ......P...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: 20 77 72 69 74 65 28 70 72 6F 6D 70 74 2C 69 3A write(prompt,i:
00D310: 31 2C 27 20 2D 2D 20 27 2C 6D 65 6E 75 69 74 65 1,' -- ',menuite
00D320: 6D 73 5B 69 5D 29 3B 0D 0A 20 20 20 20 20 20 20 ms[i]);..
00D330: 20 20 20 67 6F 74 6F 78 79 28 36 32 2C 79 2B 69 gotoxy(62,y+i
00D340: 2A 32 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 *2);..
00D350: 77 72 69 74 65 28 27 3C 3D 3D 27 29 3B 0D 0A 20 write('<==');..
00D360: 20 20 20 20 20 20 20 65 6E 64 3B 0D 0A 20 20 20 end;..
00D370: 20 20 20 69 66 20 63 68 3D 27 20 27 20 74 68 65 if ch=' ' the
00D380: 6E 0D 0A 20 20 20 20 20 20 20 20 62 65 67 69 6E n.. begin
00D390: 0D 0A 20 20 20 20 20 20 20 20 20 20 67 6F 74 6F .. goto
00D3A0: 78 79 28 78 2D 31 30 2C 79 2B 69 2A 32 29 3B 0D xy(x-10,y+i*2);.
00D3B0: 0A 20 20 20 20 20 20 20 20 20 20 77 72 69 74 65 . write
00D3C0: 28 27 20 20 20 20 20 20 27 29 3B 0D 0A 20 20 20 (' ');..
00D3D0: 20 20 20 20 20 20 20 67 6F 74 6F 78 79 28 36 32 gotoxy(62
00D3E0: 2C 79 2B 69 2A 32 29 3B 0D 0A 20 20 20 20 20 20 ,y+i*2);..
00D3F0: 20 20 20 20 77 72 69 74 65 28 27 20 20 20 27 29 write(' ')
00D400: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 69 3A 3D ;.. i:=
00D410: 69 2B 31 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 i+1;..
00D420: 69 66 20 69 3E 6E 20 74 68 65 6E 20 69 3A 3D 30 if i>n then i:=0
00D430: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 67 6F 74 ;.. got
00D440: 6F 78 79 28 78 2D 31 30 2C 79 2B 69 2A 32 29 3B oxy(x-10,y+i*2);
00D450: 0D 0A 20 20 20 20 20 20 20 20 20 20 77 72 69 74 .. writ
00D460: 65 28 70 72 6F 6D 70 74 2C 69 3A 31 2C 27 20 2D e(prompt,i:1,' -
00D470: 2D 20 27 2C 6D 65 6E 75 69 74 65 6D 73 5B 69 5D - ',menuitems[i]
00D480: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 67 6F );.. go
00D490: 74 6F 78 79 28 36 32 2C 79 2B 69 2A 32 29 3B 0D toxy(62,y+i*2);.
00D4A0: 0A 20 20 20 20 20 20 20 20 20 20 77 72 69 74 65 . write
00D4B0: 28 27 3C 3D 3D 27 29 3B 0D 0A 20 20 20 20 20 20 ('<==');..
00D4C0: 20 20 65 6E 64 3B 0D 0A 20 20 20 20 20 20 69 66 end;.. if
00D4D0: 20 28 6F 72 64 28 63 68 29 2D 34 38 20 69 6E 20 (ord(ch)-48 in
00D4E0: 5B 30 2E 2E 6E 5D 29 20 61 6E 64 20 28 6F 72 64 [0..n]) and (ord
00D4F0: 28 63 68 29 2D 34 38 3C 3E 69 29 20 74 68 65 6E (ch)-48<>i) then
00D500: 65 20 61 20 6C 27 69 6E 74 65 72 69 65 75 72 20 e a l'interieur
00D510: 61 76 65 63 20 47 52 41 50 48 49 58 2E 20 20 20 avec GRAPHIX.
00D520: 27 29 3B 0D 0A 20 20 67 6F 74 6F 78 79 28 38 2C ');.. gotoxy(8,
00D530: 39 29 3B 57 72 69 74 65 53 6C 6F 77 20 28 27 66 9);WriteSlow ('f
00D540: 65 6E 65 74 72 65 20 65 73 74 20 75 6E 65 20 70 enetre est une p
00D550: 61 72 74 69 65 20 64 65 20 6C 27 27 65 63 72 61 artie de l''ecra
00D560: 6E 2E 20 20 20 20 20 20 27 29 3B 0D 0A 20 20 67 n. ');.. g
00D570: 6F 74 6F 78 79 28 38 2C 31 30 29 3B 57 72 69 74 otoxy(8,10);Writ
00D580: 65 53 6C 6F 77 28 27 50 6F 75 72 20 6C 65 73 20 eSlow('Pour les
00D590: 61 75 74 72 65 73 20 63 6F 6D 6D 61 6E 64 65 73 autres commandes
00D5A0: 20 72 65 66 65 72 65 7A 20 76 6F 75 73 20 61 20 referez vous a
00D5B0: 27 29 3B 0D 0A 20 20 67 6F 74 6F 78 79 28 38 2C ');.. gotoxy(8,
00D5C0: 31 31 29 3B 57 72 69 74 65 53 6C 6F 77 28 27 63 11);WriteSlow('c
00D5D0: 65 6C 6C 65 2D 63 69 2E 4C 65 73 20 70 61 72 74 elle-ci.Les part
00D5E0: 69 65 73 20 64 75 20 64 69 61 67 72 61 6D 6D 65 ies du diagramme
00D5F0: 20 71 75 69 20 73 6F 6E 74 27 29 3B 0D 0A 20 20 qui sont');..
00D600: 67 6F 74 6F 78 79 28 38 2C 31 32 29 3B 57 72 69 gotoxy(8,12);Wri
00D610: 74 65 53 6C 6F 77 28 27 68 6F 72 73 20 64 65 20 teSlow('hors de
00D620: 6C 61 20 66 65 6E 65 74 72 65 20 6E 65 20 73 6F la fenetre ne so
00D630: 6E 74 20 70 61 73 20 64 65 73 73 69 6E 65 65 73 nt pas dessinees
00D640: 20 27 29 3B 0D 0A 20 20 67 6F 74 6F 78 79 28 38 ');.. gotoxy(8
00D650: 2C 31 33 29 3B 57 72 69 74 65 53 6C 6F 77 28 27 ,13);WriteSlow('
00D660: 6C 27 27 65 63 68 65 6C 6C 65 20 64 27 27 75 6E l''echelle d''un
00D670: 20 64 69 61 67 72 61 6D 6D 65 20 65 73 74 20 61 diagramme est a
00D680: 75 73 73 69 20 66 61 69 74 65 27 29 3B 0D 0A 20 ussi faite');..
00D690: 20 67 6F 74 6F 78 79 28 38 2C 31 34 29 3B 57 72 gotoxy(8,14);Wr
00D6A0: 69 74 65 53 6C 6F 77 28 27 70 61 72 20 47 52 41 iteSlow('par GRA
00D6B0: 50 48 49 58 2C 20 76 6F 75 73 20 70 65 72 6D 65 PHIX, vous perme
00D6C0: 74 74 61 6E 74 20 64 65 20 64 65 73 73 69 6E 65 ttant de dessine
00D6D0: 20 20 27 29 3B 0D 0A 20 20 67 6F 74 6F 78 79 28 ');.. gotoxy(
00D6E0: 31 39 2C 31 36 29 3B 0D 0A 20 20 53 74 6F 72 65 19,16);.. Store
00D6F0: 57 69 6E 64 6F 77 28 32 29 3B 0D 0A 20 20 77 61 Window(2);.. wa
00D700: 0D 0A 20 20 20 20 20 20 20 20 62 65 67 69 6E 0D .. begin.
00D710: 0A 20 20 20 20 20 20 20 20 20 20 67 6F 74 6F 78 . gotox
00D720: 79 28 78 2D 31 30 2C 79 2B 69 2A 32 29 3B 0D 0A y(x-10,y+i*2);..
00D730: 20 20 20 20 20 20 20 20 20 20 77 72 69 74 65 28 write(
00D740: 27 20 20 20 20 20 20 27 29 3B 0D 0A 20 20 20 20 ' ');..
00D750: 20 20 20 20 20 20 67 6F 74 6F 78 79 28 36 32 2C gotoxy(62,
00D760: 79 2B 69 2A 32 29 3B 0D 0A 20 20 20 20 20 20 20 y+i*2);..
00D770: 20 20 20 77 72 69 74 65 28 27 20 20 20 27 29 3B write(' ');
00D780: 0D 0A 20 20 20 20 20 20 20 20 20 20 69 3A 3D 6F .. i:=o
00D790: 72 64 28 63 68 29 2D 34 38 3B 0D 0A 20 20 20 20 rd(ch)-48;..
00D7A0: 20 20 20 20 20 20 67 6F 74 6F 78 79 28 78 2D 31 gotoxy(x-1
00D7B0: 30 2C 79 2B 69 2A 32 29 3B 0D 0A 20 20 20 20 20 0,y+i*2);..
00D7C0: 20 20 20 20 20 77 72 69 74 65 28 70 72 6F 6D 70 write(promp
00D7D0: 74 2C 69 3A 31 2C 27 20 2D 2D 20 27 2C 6D 65 6E t,i:1,' -- ',men
00D7E0: 75 69 74 65 6D 73 5B 69 5D 29 3B 0D 0A 20 20 20 uitems[i]);..
00D7F0: 20 20 20 20 20 20 20 67 6F 74 6F 78 79 28 36 32 gotoxy(62
00D800: 2C 79 2B 69 2A 32 29 3B 0D 0A 20 20 20 20 20 20 ,y+i*2);..
00D810: 20 20 20 20 77 72 69 74 65 28 27 3C 3D 3D 27 29 write('<==')
00D820: 3B 0D 0A 20 20 20 20 20 20 20 20 65 6E 64 3B 0D ;.. end;.
00D830: 0A 20 20 20 20 20 20 69 66 20 63 68 3D 5E 43 20 . if ch=^C
00D840: 74 68 65 6E 20 71 75 69 74 3A 3D 74 72 75 65 3B then quit:=true;
00D850: 0D 0A 20 20 20 20 20 20 69 66 20 28 63 68 3D 5E .. if (ch=^
00D860: 5B 29 20 74 68 65 6E 0D 0A 20 20 20 20 20 20 20 [) then..
00D870: 20 69 66 20 6B 65 79 70 72 65 73 73 65 64 20 74 if keypressed t
00D880: 68 65 6E 0D 0A 20 20 20 20 20 20 20 20 20 62 65 hen.. be
00D890: 67 69 6E 0D 0A 20 20 20 20 20 20 20 20 20 20 72 gin.. r
00D8A0: 65 61 64 28 6B 62 64 2C 63 68 29 3B 0D 0A 20 20 ead(kbd,ch);..
00D8B0: 20 20 20 20 20 20 20 20 69 66 20 63 68 3D 27 4F if ch='O
00D8C0: 27 20 74 68 65 6E 20 71 75 69 74 3A 3D 74 72 75 ' then quit:=tru
00D8D0: 65 3B 0D 0A 20 20 20 20 20 20 20 20 20 65 6E 64 e;.. end
00D8E0: 0D 0A 20 20 20 20 20 20 20 20 65 6C 73 65 20 71 .. else q
00D8F0: 75 69 74 3A 3D 74 72 75 65 3B 0D 0A 20 20 20 20 uit:=true;..
00D900: 69 74 72 65 74 75 72 6E 28 36 30 30 30 30 2E 30 itreturn(60000.0
00D910: 29 3B 0D 0A 0D 0A 20 20 44 65 66 69 6E 65 57 69 );.... DefineWi
00D920: 6E 64 6F 77 49 42 4D 28 33 2C 32 35 2C 33 30 2C ndowIBM(3,25,30,
00D930: 37 38 2C 31 38 30 29 3B 0D 0A 20 20 44 65 66 69 78,180);.. Defi
00D940: 6E 65 48 65 61 64 65 72 28 33 2C 27 65 78 65 6D neHeader(3,'exem
00D950: 70 6C 65 20 3A 20 20 43 61 6D 65 6D 62 65 72 74 ple : Camembert
00D960: 73 27 29 3B 0D 0A 20 20 53 65 6C 65 63 74 57 69 s');.. SelectWi
00D970: 6E 64 6F 77 28 33 29 3B 0D 0A 20 20 53 65 74 42 ndow(3);.. SetB
00D980: 61 63 6B 67 72 6F 75 6E 64 28 30 29 3B 0D 0A 20 ackground(0);..
00D990: 20 44 72 61 77 42 6F 72 64 65 72 3B 0D 0A 20 20 DrawBorder;..
00D9A0: 67 6F 74 6F 78 79 28 32 38 2C 37 29 3B 0D 0A 20 gotoxy(28,7);..
00D9B0: 20 77 72 69 74 65 28 27 20 20 20 20 20 20 20 20 write('
00D9C0: 31 20 20 20 20 20 20 20 20 32 20 20 20 20 20 20 1 2
00D9D0: 20 20 33 20 20 20 20 20 20 20 20 34 20 20 20 20 3 4
00D9E0: 20 20 20 20 35 27 29 3B 0D 0A 20 20 66 6F 72 20 5');.. for
00D9F0: 69 3A 3D 31 20 74 6F 20 31 32 20 64 6F 0D 0A 20 i:=1 to 12 do..
00DA00: 20 62 65 67 69 6E 0D 0A 20 20 20 20 67 6F 74 6F begin.. goto
00DA10: 78 79 28 32 38 2C 37 2B 69 29 3B 0D 0A 20 20 20 xy(28,7+i);..
00DA20: 20 77 72 69 74 65 28 69 3A 32 29 3B 0D 0A 20 20 write(i:2);..
00DA30: 65 6E 64 3B 0D 0A 20 20 67 6F 74 6F 78 79 28 32 end;.. gotoxy(2
00DA40: 38 2C 32 30 29 3B 77 72 69 74 65 28 27 43 6F 6D 8,20);write('Com
00DA50: 6D 61 6E 64 65 20 3F 20 5F 5F 5F 5F 5F 5F 5F 5F mande ? ________
00DA60: 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F ________________
00DA70: 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F ________________
00DA80: 5F 27 29 3B 0D 0A 20 20 67 6F 74 6F 78 79 28 32 _');.. gotoxy(2
00DA90: 38 2C 32 32 29 3B 77 72 69 74 65 28 27 65 6E 20 8,22);write('en
00DAA0: 63 6F 75 72 73 20 3A 20 76 65 6E 74 65 73 2E 63 cours : ventes.c
00DAB0: 6C 63 20 20 20 20 20 20 20 20 6C 69 62 72 65 20 lc libre
00DAC0: 3A 20 38 35 20 6B 42 79 74 65 20 3D 20 39 32 2E : 85 kByte = 92.
00DAD0: 33 20 25 27 29 3B 0D 0A 20 20 67 6F 74 6F 78 79 3 %');.. gotoxy
00DAE0: 28 34 30 2C 39 29 3B 77 72 69 74 65 28 27 20 20 (40,9);write('
00DAF0: 56 20 45 20 4E 20 54 20 45 20 20 20 20 20 20 20 V E N T E
00DB00: 20 20 69 66 20 71 75 69 74 20 74 68 65 6E 0D 0A if quit then..
00DB10: 20 20 20 20 20 20 20 62 65 67 69 6E 0D 0A 20 20 begin..
00DB20: 20 20 20 20 20 20 4C 65 61 76 65 47 72 61 70 68 LeaveGraph
00DB30: 69 63 3B 0D 0A 20 20 20 20 20 20 20 20 68 61 6C ic;.. hal
00DB40: 74 3B 0D 0A 20 20 20 20 20 20 20 65 6E 64 3B 0D t;.. end;.
00DB50: 0A 20 20 20 20 20 20 6A 3A 3D 6A 2B 31 3B 0D 0A . j:=j+1;..
00DB60: 20 20 20 20 20 20 69 66 20 6A 3D 31 35 30 30 30 if j=15000
00DB70: 20 74 68 65 6E 20 63 68 3A 3D 5E 4D 3B 0D 0A 20 then ch:=^M;..
00DB80: 20 20 20 65 6E 64 3B 0D 0A 20 20 6D 65 6E 75 63 end;.. menuc
00DB90: 68 6F 69 63 65 3A 3D 69 3B 0D 0A 0D 0A 65 6E 64 hoice:=i;....end
00DBA0: 3B 0D 0A 0D 0A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ;...............
00DBB0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
00DBC0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
00DBD0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
00DBE0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
00DBF0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
00DC00: 2C 79 2B 69 2A 32 29 3B 0D 0A 20 20 20 20 20 20 ,y+i*2);..
00DC10: 20 20 20 20 77 72 69 74 65 28 27 3C 3D 3D 27 29 write('<==')
00DC20: 3B 0D 0A 20 20 20 20 20 20 20 20 65 6E 64 3B 0D ;.. end;.
00DC30: 0A 20 20 20 20 20 20 69 66 20 63 68 3D 5E 43 20 . if ch=^C
00DC40: 74 68 65 6E 20 71 75 69 74 3A 3D 74 72 75 65 3B then quit:=true;
00DC50: 0D 0A 20 20 20 20 20 20 69 66 20 28 63 68 3D 5E .. if (ch=^
00DC60: 5B 29 20 74 68 65 6E 0D 0A 20 20 20 20 20 20 20 [) then..
00DC70: 20 69 66 20 6B 65 79 70 72 65 73 73 65 64 20 74 if keypressed t
00DC80: 68 65 6E 0D 0A 20 20 20 20 20 20 20 20 20 62 65 hen.. be
00DC90: 67 69 6E 0D 0A 20 20 20 20 20 20 20 20 20 20 72 gin.. r
00DCA0: 65 61 64 28 6B 62 64 2C 63 68 29 3B 0D 0A 20 20 ead(kbd,ch);..
00DCB0: 20 20 20 20 20 20 20 20 69 66 20 63 68 3D 27 4F if ch='O
00DCC0: 27 20 74 68 65 6E 20 71 75 69 74 3A 3D 74 72 75 ' then quit:=tru
00DCD0: 65 3B 0D 0A 20 20 20 20 20 20 20 20 20 65 6E 64 e;.. end
00DCE0: 0D 0A 20 20 20 20 20 20 20 20 65 6C 73 65 20 71 .. else q
00DCF0: 75 69 74 3A 3D 74 72 75 65 3B 0D 0A 20 20 20 20 uit:=true;..
00DD00: 20 20 20 20 20 20 20 20 20 20 20 31 39 38 34 27 1984'
00DD10: 29 3B 0D 0A 20 20 67 6F 74 6F 78 79 28 34 30 2C );.. gotoxy(40,
00DD20: 31 30 29 3B 77 72 69 74 65 28 27 20 3D 3D 3D 3D 10);write(' ====
00DD30: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
00DD40: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 27 29 3B 0D 0A ===========');..
00DD50: 20 20 67 6F 74 6F 78 79 28 33 32 2C 31 32 29 3B gotoxy(32,12);
00DD60: 77 72 69 74 65 28 27 43 6F 75 74 20 64 65 20 70 write('Cout de p
00DD70: 72 6F 64 75 63 74 69 6F 6E 20 20 20 3A 20 20 20 roduction :
00DD80: 31 34 35 36 2E 33 35 27 29 3B 0D 0A 20 20 67 6F 1456.35');.. go
00DD90: 74 6F 78 79 28 33 32 2C 31 33 29 3B 77 72 69 74 toxy(32,13);writ
00DDA0: 65 28 27 43 6F 75 74 20 64 75 20 70 65 72 73 6F e('Cout du perso
00DDB0: 6E 6E 65 6C 20 20 20 20 3A 20 20 20 20 31 34 35 nnel : 145
00DDC0: 2E 32 33 27 29 3B 0D 0A 20 20 67 6F 74 6F 78 79 .23');.. gotoxy
00DDD0: 28 33 32 2C 31 34 29 3B 77 72 69 74 65 28 27 54 (32,14);write('T
00DDE0: 2E 56 2E 41 20 20 20 20 20 20 20 20 20 20 20 20 .V.A
00DDF0: 20 20 20 20 3A 20 20 20 20 35 32 34 2E 31 32 27 : 524.12'
00DE00: 29 3B 0D 0A 20 20 67 6F 74 6F 78 79 28 33 32 2C );.. gotoxy(32,
00DE10: 31 35 29 3B 77 72 69 74 65 28 27 2D 2D 2D 2D 2D 15);write('-----
00DE20: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00DE30: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 27 29 3B 0D 0A -----------');..
00DE40: 20 20 67 6F 74 6F 78 79 28 33 32 2C 31 36 29 3B gotoxy(32,16);
00DE50: 77 72 69 74 65 28 27 53 6F 75 73 74 6F 74 61 6C write('Soustotal
00DE60: 20 20 20 20 20 20 20 20 20 20 20 20 3A 20 20 20 :
00DE70: 32 31 32 35 2E 37 30 27 29 3B 0D 0A 20 20 67 6F 2125.70');.. go
00DE80: 74 6F 78 79 28 33 32 2C 31 38 29 3B 77 72 69 74 toxy(32,18);writ
00DE90: 65 28 27 53 6F 6C 64 65 20 20 20 20 20 20 20 20 e('Solde
00DEA0: 20 20 20 20 20 20 20 20 3A 20 20 20 20 20 20 20 :
00DEB0: 31 34 35 27 29 3B 0D 0A 20 20 64 65 6C 61 79 28 145');.. delay(
00DEC0: 34 30 30 30 29 3B 0D 0A 20 20 67 6F 74 6F 78 79 4000);.. gotoxy
00DED0: 28 33 39 2C 32 30 29 3B 0D 0A 20 20 77 61 69 74 (39,20);.. wait
00DEE0: 72 65 74 75 72 6E 28 31 35 30 30 30 29 3B 0D 0A return(15000);..
00DEF0: 0D 0A 20 20 44 65 66 69 6E 65 57 69 6E 64 6F 77 .. DefineWindow
00DF00: 7B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D {---------------
00DF10: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00DF20: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00DF30: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00DF40: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 7D 0D 0A -------------}..
00DF50: 0D 0A 6F 76 65 72 6C 61 79 20 70 72 6F 63 65 64 ..overlay proced
00DF60: 75 72 65 20 57 69 6E 64 6F 77 44 65 6D 6F 3B 0D ure WindowDemo;.
00DF70: 0A 76 61 72 20 72 6F 77 2C 63 6F 6C 75 6D 6E 2C .var row,column,
00DF80: 69 3A 69 6E 74 65 67 65 72 3B 0D 0A 0D 0A 0D 0A i:integer;......
00DF90: 70 72 6F 63 65 64 75 72 65 20 57 72 69 74 65 53 procedure WriteS
00DFA0: 6C 6F 77 28 73 3A 77 72 6B 73 74 72 69 6E 67 29 low(s:wrkstring)
00DFB0: 3B 0D 0A 62 65 67 69 6E 0D 0A 20 20 72 6F 77 3A ;..begin.. row:
00DFC0: 3D 72 6F 77 2B 31 3B 0D 0A 20 20 67 6F 74 6F 78 =row+1;.. gotox
00DFD0: 79 28 31 37 2C 35 29 3B 0D 0A 20 20 77 72 69 74 y(17,5);.. writ
00DFE0: 65 28 72 6F 77 3A 32 29 3B 0D 0A 20 20 67 6F 74 e(row:2);.. got
00DFF0: 6F 78 79 28 38 2C 36 2B 72 6F 77 29 3B 0D 0A 20 oxy(8,6+row);..
00E000: 20 66 6F 72 20 69 3A 3D 31 20 74 6F 20 6C 65 6E for i:=1 to len
00E010: 67 74 68 28 73 29 20 64 6F 0D 0A 20 20 62 65 67 gth(s) do.. beg
00E020: 69 6E 0D 0A 20 20 20 20 77 72 69 74 65 28 73 5B in.. write(s[
00E030: 69 5D 29 3B 0D 0A 20 20 20 20 67 6F 74 6F 78 79 i]);.. gotoxy
00E040: 28 32 38 2C 35 29 3B 0D 0A 20 20 20 20 77 72 69 (28,5);.. wri
00E050: 74 65 28 63 6F 6C 75 6D 6E 2B 69 3A 32 29 3B 0D te(column+i:2);.
00E060: 0A 20 20 20 20 67 6F 74 6F 78 79 28 38 2B 69 2C . gotoxy(8+i,
00E070: 36 2B 72 6F 77 29 3B 0D 0A 20 20 20 20 64 65 6C 6+row);.. del
00E080: 61 79 28 31 30 2B 72 61 6E 64 6F 6D 28 31 30 30 ay(10+random(100
00E090: 29 29 3B 0D 0A 20 20 65 6E 64 3B 0D 0A 65 6E 64 ));.. end;..end
00E0A0: 3B 0D 0A 0D 0A 62 65 67 69 6E 0D 0A 20 20 43 6C ;....begin.. Cl
00E0B0: 65 61 72 53 63 72 65 65 6E 3B 0D 0A 20 20 53 65 earScreen;.. Se
00E0C0: 74 48 65 61 64 65 72 4F 6E 3B 0D 0A 20 20 44 65 tHeaderOn;.. De
00E0D0: 66 69 6E 65 57 69 6E 64 6F 77 49 42 4D 28 31 2C fineWindowIBM(1,
00E0E0: 30 2C 30 2C 37 39 2C 31 39 30 29 3B 0D 0A 20 20 0,0,79,190);..
00E0F0: 44 65 66 69 6E 65 48 65 61 64 65 72 28 31 2C 27 DefineHeader(1,'
00E100: 49 42 4D 28 34 2C 31 32 2C 36 30 2C 36 38 2C 31 IBM(4,12,60,68,1
00E110: 36 34 29 3B 0D 0A 20 20 44 65 66 69 6E 65 48 65 64);.. DefineHe
00E120: 61 64 65 72 28 34 2C 27 45 78 65 6D 70 6C 65 20 ader(4,'Exemple
00E130: 3A 20 20 47 72 61 70 68 69 73 6D 65 73 27 29 3B : Graphismes');
00E140: 0D 0A 20 20 53 65 6C 65 63 74 57 69 6E 64 6F 77 .. SelectWindow
00E150: 28 34 29 3B 0D 0A 20 20 53 65 74 42 61 63 6B 67 (4);.. SetBackg
00E160: 72 6F 75 6E 64 28 30 29 3B 0D 0A 20 20 44 72 61 round(0);.. Dra
00E170: 77 42 6F 72 64 65 72 3B 0D 0A 20 20 66 6F 72 20 wBorder;.. for
00E180: 69 3A 3D 31 20 74 6F 20 38 35 20 64 6F 20 44 72 i:=1 to 85 do Dr
00E190: 61 77 4C 69 6E 65 28 32 30 2B 69 2A 37 2C 33 30 awLine(20+i*7,30
00E1A0: 2C 36 33 30 2D 69 2A 37 2C 31 37 30 29 3B 0D 0A ,630-i*7,170);..
00E1B0: 20 20 67 6F 74 6F 78 79 28 32 39 2C 32 30 29 3B gotoxy(29,20);
00E1C0: 0D 0A 20 20 43 6F 70 79 53 63 72 65 65 6E 3B 0D .. CopyScreen;.
00E1D0: 0A 20 20 77 61 69 74 72 65 74 75 72 6E 28 31 35 . waitreturn(15
00E1E0: 30 30 30 29 3B 0D 0A 0D 0A 20 20 52 65 73 74 6F 000);.... Resto
00E1F0: 72 65 57 69 6E 64 6F 77 28 32 2C 74 72 75 6E 63 reWindow(2,trunc
00E200: 28 31 36 2A 58 4D 61 78 47 6C 62 2F 37 39 29 2C (16*XMaxGlb/79),
00E210: 74 72 75 6E 63 28 33 32 2A 59 4D 61 78 47 6C 62 trunc(32*YMaxGlb
00E220: 2F 31 39 39 29 29 3B 0D 0A 20 20 53 65 6C 65 63 /199));.. Selec
00E230: 74 57 69 6E 64 6F 77 28 32 29 3B 0D 0A 20 20 64 tWindow(2);.. d
00E240: 65 6C 61 79 28 32 30 30 30 29 3B 0D 0A 20 20 4D elay(2000);.. M
00E250: 6F 76 65 48 6F 72 49 42 4D 28 2D 31 36 2C 74 72 oveHorIBM(-16,tr
00E260: 75 65 29 3B 0D 0A 20 20 4D 6F 76 65 56 65 72 49 ue);.. MoveVerI
00E270: 42 4D 28 2D 33 32 2C 74 72 75 65 29 3B 0D 0A 20 BM(-32,true);..
00E280: 20 66 6F 72 20 69 3A 3D 31 20 74 6F 20 31 31 20 for i:=1 to 11
00E290: 64 6F 0D 0A 20 20 62 65 67 69 6E 0D 0A 20 20 20 do.. begin..
00E2A0: 20 67 6F 74 6F 78 79 28 38 2C 36 2B 69 29 3B 0D gotoxy(8,6+i);.
00E2B0: 0A 20 20 20 20 77 72 69 74 65 28 27 20 20 20 20 . write('
00E2C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00E2D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00E2E0: 20 20 20 20 20 20 20 20 20 20 27 29 3B 0D 0A 20 ');..
00E2F0: 20 65 6E 64 3B 0D 0A 20 20 72 6F 77 3A 3D 30 3B end;.. row:=0;
00E300: 55 74 69 6C 69 73 61 74 69 6F 6E 20 64 65 20 70 Utilisation de p
00E310: 6C 75 73 69 65 75 72 73 20 66 65 6E 65 74 72 65 lusieurs fenetre
00E320: 20 73 75 72 20 6C 27 65 63 61 6E 27 29 3B 0D 0A sur l'ecan');..
00E330: 20 20 53 65 6C 65 63 74 57 69 6E 64 6F 77 28 31 SelectWindow(1
00E340: 29 3B 0D 0A 20 20 53 65 74 42 61 63 6B 67 72 6F );.. SetBackgro
00E350: 75 6E 64 28 32 34 29 3B 0D 0A 20 20 44 72 61 77 und(24);.. Draw
00E360: 42 6F 72 64 65 72 3B 0D 0A 0D 0A 20 20 44 65 66 Border;.... Def
00E370: 69 6E 65 57 69 6E 64 6F 77 49 42 4D 28 32 2C 34 ineWindowIBM(2,4
00E380: 2C 31 36 2C 35 35 2C 31 34 30 29 3B 0D 0A 20 20 ,16,55,140);..
00E390: 44 65 66 69 6E 65 48 65 61 64 65 72 28 32 2C 27 DefineHeader(2,'
00E3A0: 45 78 65 6D 70 6C 65 20 3A 20 45 64 69 74 69 6F Exemple : Editio
00E3B0: 6E 27 29 3B 0D 0A 0D 0A 20 20 53 65 6C 65 63 74 n');.... Select
00E3C0: 57 69 6E 64 6F 77 28 32 29 3B 0D 0A 20 20 53 65 Window(2);.. Se
00E3D0: 74 42 61 63 6B 67 72 6F 75 6E 64 28 30 29 3B 0D tBackground(0);.
00E3E0: 0A 20 20 44 72 61 77 42 6F 72 64 65 72 3B 0D 0A . DrawBorder;..
00E3F0: 20 20 63 6F 6C 75 6D 6E 3A 3D 30 3B 72 6F 77 3A column:=0;row:
00E400: 3D 30 3B 0D 0A 20 20 67 6F 74 6F 78 79 28 31 31 =0;.. gotoxy(11
00E410: 2C 35 29 3B 77 72 69 74 65 28 27 4C 69 67 6E 65 ,5);write('Ligne
00E420: 20 20 20 20 20 20 43 6F 6C 6F 6E 6E 65 20 20 20 Colonne
00E430: 20 20 20 20 46 69 63 68 69 65 72 20 3A 20 41 3A Fichier : A:
00E440: 54 45 53 54 2E 54 58 54 27 29 3B 0D 0A 20 20 67 TEST.TXT');.. g
00E450: 6F 74 6F 78 79 28 38 2C 36 29 3B 77 72 69 74 65 otoxy(8,6);write
00E460: 28 27 4C 2D 2D 2D 2D 23 2D 2D 2D 2D 23 2D 2D 2D ('L----#----#---
00E470: 2D 23 2D 2D 2D 2D 23 2D 2D 2D 2D 23 2D 2D 2D 2D -#----#----#----
00E480: 23 2D 2D 2D 2D 23 2D 2D 2D 2D 23 2D 2D 2D 2D 52 #----#----#----R
00E490: 27 29 3B 0D 0A 20 20 67 6F 74 6F 78 79 28 38 2C ');.. gotoxy(8,
00E4A0: 37 29 3B 57 72 69 74 65 53 6C 6F 77 20 28 27 43 7);WriteSlow ('C
00E4B0: 65 63 69 20 65 73 74 20 64 65 6D 6F 6E 73 74 72 eci est demonstr
00E4C0: 61 74 69 6F 6E 20 64 27 27 75 74 69 6C 69 73 61 ation d''utilisa
00E4D0: 74 69 6F 6E 20 20 20 20 27 29 3B 0D 0A 20 20 67 tion ');.. g
00E4E0: 6F 74 6F 78 79 28 38 2C 38 29 3B 57 72 69 74 65 otoxy(8,8);Write
00E4F0: 53 6C 6F 77 20 28 27 64 65 20 66 65 6E 65 74 72 Slow ('de fenetr
00E500: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
00E510: 0C 00 01 00 02 09 50 E5 0C 00 41 02 00 00 00 02 ......P...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: 0D 0A 20 20 63 6F 6C 75 6D 6E 3A 3D 30 3B 0D 0A .. column:=0;..
00E610: 20 20 67 6F 74 6F 78 79 28 38 2C 37 29 3B 20 57 gotoxy(8,7); W
00E620: 72 69 74 65 53 6C 6F 77 28 27 56 6F 75 73 20 70 riteSlow('Vous p
00E630: 6F 75 76 65 7A 20 61 75 73 73 69 20 64 65 70 6C ouvez aussi depl
00E640: 61 63 65 72 20 6C 65 73 20 66 65 6E 65 74 72 65 acer les fenetre
00E650: 20 61 20 20 20 20 27 29 3B 0D 0A 20 20 67 6F 74 a ');.. got
00E660: 6F 78 79 28 38 2C 38 29 3B 20 57 72 69 74 65 53 oxy(8,8); WriteS
00E670: 6C 6F 77 28 27 6C 27 27 69 6E 74 65 72 69 65 75 low('l''interieu
00E680: 72 20 64 65 20 6C 27 27 65 63 72 61 6E 2E 56 6F r de l''ecran.Vo
00E690: 75 73 20 70 6F 75 76 65 7A 20 6C 65 73 20 66 61 us pouvez les fa
00E6A0: 69 72 65 27 29 3B 0D 0A 20 20 67 6F 74 6F 78 79 ire');.. gotoxy
00E6B0: 28 38 2C 39 29 3B 20 57 72 69 74 65 53 6C 6F 77 (8,9); WriteSlow
00E6C0: 28 27 67 6C 69 73 73 65 72 20 6C 65 73 20 75 6E ('glisser les un
00E6D0: 65 73 20 73 75 72 20 6C 65 73 20 61 75 74 72 65 es sur les autre
00E6E0: 73 20 6F 75 20 6C 65 73 20 6D 65 74 74 72 65 27 s ou les mettre'
00E6F0: 29 3B 0D 0A 20 20 67 6F 74 6F 78 79 28 38 2C 31 );.. gotoxy(8,1
00E700: 30 29 3B 57 72 69 74 65 53 6C 6F 77 28 27 6C 65 0);WriteSlow('le
00E710: 73 20 75 6E 65 73 20 61 75 2D 64 65 73 73 75 73 s unes au-dessus
00E720: 20 64 65 20 6C 27 27 61 75 74 72 65 2E 55 6E 65 de l''autre.Une
00E730: 20 66 65 6E 65 74 72 65 20 70 65 75 74 27 29 3B fenetre peut');
00E740: 0D 0A 20 20 67 6F 74 6F 78 79 28 38 2C 31 31 29 .. gotoxy(8,11)
00E750: 3B 57 72 69 74 65 53 6C 6F 77 28 27 65 74 72 65 ;WriteSlow('etre
00E760: 20 6D 69 73 65 20 64 61 6E 73 20 75 6E 65 20 70 mise dans une p
00E770: 61 67 65 20 6D 65 6D 6F 69 72 20 65 74 20 65 74 age memoir et et
00E780: 72 65 20 72 61 6D 65 6E 65 65 27 29 3B 0D 0A 20 re ramenee');..
00E790: 20 67 6F 74 6F 78 79 28 38 2C 31 32 29 3B 57 72 gotoxy(8,12);Wr
00E7A0: 69 74 65 53 6C 6F 77 28 27 73 75 72 20 6C 27 27 iteSlow('sur l''
00E7B0: 65 63 72 61 6E 20 61 75 20 66 75 72 20 65 74 20 ecran au fur et
00E7C0: 61 20 6D 65 73 75 72 65 20 64 65 73 20 62 65 73 a mesure des bes
00E7D0: 6F 69 6E 73 27 29 3B 0D 0A 20 20 67 6F 74 6F 78 oins');.. gotox
00E7E0: 79 28 38 2C 31 33 29 3B 57 72 69 74 65 53 6C 6F y(8,13);WriteSlo
00E7F0: 77 28 27 4C 61 20 74 61 69 6C 6C 65 20 64 65 20 w('La taille de
00E800: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 76 v
00E810: 61 72 20 65 3A 70 6C 6F 74 61 72 72 61 79 3B 66 ar e:plotarray;f
00E820: 3A 69 6E 74 65 67 65 72 29 3B 0D 0A 7B 24 49 73 :integer);..{$Is
00E830: 70 6C 69 6E 65 2E 68 67 68 7D 0D 0A 62 65 67 69 pline.hgh}..begi
00E840: 6E 0D 0A 20 20 20 73 70 6C 69 6E 65 28 61 2C 62 n.. spline(a,b
00E850: 2C 63 2C 64 2C 65 2C 66 29 3B 0D 0A 65 6E 64 3B ,c,d,e,f);..end;
00E860: 0D 0A 0D 0A 6F 76 65 72 6C 61 79 20 70 72 6F 63 ....overlay proc
00E870: 65 64 75 72 65 20 78 64 72 61 77 63 61 72 74 70 edure xdrawcartp
00E880: 69 65 28 61 2C 62 2C 63 2C 64 2C 65 2C 66 3A 72 ie(a,b,c,d,e,f:r
00E890: 65 61 6C 3B 67 3A 70 69 65 61 72 72 61 79 3B 0D eal;g:piearray;.
00E8A0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
00E8B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00E8C0: 68 2C 69 2C 6A 3A 69 6E 74 65 67 65 72 29 3B 0D h,i,j:integer);.
00E8D0: 0A 7B 24 49 63 69 72 63 73 65 67 6D 2E 68 67 68 .{$Icircsegm.hgh
00E8E0: 7D 0D 0A 7B 24 49 70 69 65 2E 68 67 68 7D 0D 0A }..{$Ipie.hgh}..
00E8F0: 62 65 67 69 6E 0D 0A 20 20 20 64 72 61 77 63 61 begin.. drawca
00E900: 72 74 70 69 65 28 61 2C 62 2C 63 2C 64 2C 65 2C rtpie(a,b,c,d,e,
00E910: 66 2C 67 2C 68 2C 69 2C 6A 29 0D 0A 65 6E 64 3B f,g,h,i,j)..end;
00E920: 0D 0A 0D 0A 6F 76 65 72 6C 61 79 20 70 72 6F 63 ....overlay proc
00E930: 65 64 75 72 65 20 78 64 72 61 77 68 69 73 74 6F edure xdrawhisto
00E940: 67 72 61 6D 28 61 3A 70 6C 6F 74 61 72 72 61 79 gram(a:plotarray
00E950: 3B 6E 3A 69 6E 74 65 67 65 72 3B 68 3A 62 6F 6F ;n:integer;h:boo
00E960: 6C 65 61 6E 3B 7A 3A 69 6E 74 65 67 65 72 29 3B lean;z:integer);
00E970: 0D 0A 7B 24 49 20 68 61 74 63 68 2E 68 67 68 7D ..{$I hatch.hgh}
00E980: 0D 0A 7B 24 49 20 68 69 73 74 6F 67 72 6D 2E 68 ..{$I histogrm.h
00E990: 67 68 7D 0D 0A 62 65 67 69 6E 0D 0A 20 20 20 64 gh}..begin.. d
00E9A0: 72 61 77 68 69 73 74 6F 67 72 61 6D 28 61 2C 6E rawhistogram(a,n
00E9B0: 2C 68 2C 7A 29 3B 0D 0A 65 6E 64 3B 0D 0A 0D 0A ,h,z);..end;....
00E9C0: 6F 76 65 72 6C 61 79 20 70 72 6F 63 65 64 75 72 overlay procedur
00E9D0: 65 20 78 62 65 7A 69 65 72 28 61 3A 70 6C 6F 74 e xbezier(a:plot
00E9E0: 61 72 72 61 79 3B 63 3A 69 6E 74 65 67 65 72 3B array;c:integer;
00E9F0: 76 61 72 20 62 3A 70 6C 6F 74 61 72 72 61 79 3B var b:plotarray;
00EA00: 6C 61 20 66 65 6E 65 74 72 65 20 6D 65 6D 6F 69 la fenetre memoi
00EA10: 72 65 20 65 73 74 20 73 65 75 6C 65 6D 65 6E 74 re est seulement
00EA20: 27 29 3B 0D 0A 20 20 67 6F 74 6F 78 79 28 38 2C ');.. gotoxy(8,
00EA30: 31 34 29 3B 57 72 69 74 65 53 6C 6F 77 28 27 6C 14);WriteSlow('l
00EA40: 69 6D 69 74 65 65 20 61 20 63 65 6C 6C 65 20 64 imitee a celle d
00EA50: 65 20 6C 61 20 6D 65 6D 6F 69 72 65 20 70 68 79 e la memoire phy
00EA60: 73 69 71 75 65 20 2E 27 29 3B 0D 0A 20 20 67 6F sique .');.. go
00EA70: 74 6F 78 79 28 31 39 2C 31 36 29 3B 0D 0A 20 20 toxy(19,16);..
00EA80: 77 61 69 74 72 65 74 75 72 6E 28 36 30 30 30 30 waitreturn(60000
00EA90: 2E 30 29 3B 0D 0A 65 6E 64 3B 1A 1A 1A 1A 1A 1A .0);..end;......
00EAA0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
00EAB0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
00EAC0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
00EAD0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
00EAE0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
00EAF0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
00EB00: 30 29 3B 57 72 69 74 65 53 6C 6F 77 28 27 6C 65 0);WriteSlow('le
00EB10: 73 20 75 6E 65 73 20 61 75 2D 64 65 73 73 75 73 s unes au-dessus
00EB20: 20 64 65 20 6C 27 27 61 75 74 72 65 2E 55 6E 65 de l''autre.Une
00EB30: 20 66 65 6E 65 74 72 65 20 70 65 75 74 27 29 3B fenetre peut');
00EB40: 0D 0A 20 20 67 6F 74 6F 78 79 28 38 2C 31 31 29 .. gotoxy(8,11)
00EB50: 3B 57 72 69 74 65 53 6C 6F 77 28 27 65 74 72 65 ;WriteSlow('etre
00EB60: 20 6D 69 73 65 20 64 61 6E 73 20 75 6E 65 20 70 mise dans une p
00EB70: 61 67 65 20 6D 65 6D 6F 69 72 20 65 74 20 65 74 age memoir et et
00EB80: 72 65 20 72 61 6D 65 6E 65 65 27 29 3B 0D 0A 20 re ramenee');..
00EB90: 20 67 6F 74 6F 78 79 28 38 2C 31 32 29 3B 57 72 gotoxy(8,12);Wr
00EBA0: 69 74 65 53 6C 6F 77 28 27 73 75 72 20 6C 27 27 iteSlow('sur l''
00EBB0: 65 63 72 61 6E 20 61 75 20 66 75 72 20 65 74 20 ecran au fur et
00EBC0: 61 20 6D 65 73 75 72 65 20 64 65 73 20 62 65 73 a mesure des bes
00EBD0: 6F 69 6E 73 27 29 3B 0D 0A 20 20 67 6F 74 6F 78 oins');.. gotox
00EBE0: 79 28 38 2C 31 33 29 3B 57 72 69 74 65 53 6C 6F y(8,13);WriteSlo
00EBF0: 77 28 27 4C 61 20 74 61 69 6C 6C 65 20 64 65 20 w('La taille de
00EC00: 7A 3A 69 6E 74 65 67 65 72 29 3B 0D 0A 7B 24 49 z:integer);..{$I
00EC10: 20 62 65 7A 69 65 72 2E 68 67 68 7D 20 20 7B 20 bezier.hgh} {
00EC20: 62 65 7A 69 65 72 20 7D 0D 0A 62 65 67 69 6E 0D bezier }..begin.
00EC30: 0A 20 20 20 62 65 7A 69 65 72 28 61 2C 63 2C 62 . bezier(a,c,b
00EC40: 2C 7A 29 3B 0D 0A 65 6E 64 3B 0D 0A 0D 0A 6F 76 ,z);..end;....ov
00EC50: 65 72 6C 61 79 20 70 72 6F 63 65 64 75 72 65 20 erlay procedure
00EC60: 78 68 61 74 63 68 28 61 2C 62 2C 63 2C 64 2C 65 xhatch(a,b,c,d,e
00EC70: 3A 72 65 61 6C 29 3B 0D 0A 7B 24 49 20 68 61 74 :real);..{$I hat
00EC80: 63 68 2E 68 67 68 7D 0D 0A 62 65 67 69 6E 0D 0A ch.hgh}..begin..
00EC90: 20 20 20 68 61 74 63 68 28 61 2C 62 2C 63 2C 64 hatch(a,b,c,d
00ECA0: 2C 65 29 3B 0D 0A 65 6E 64 3B 0D 0A 0D 0A 7B 24 ,e);..end;....{$
00ECB0: 49 20 74 67 64 65 6D 6F 2E 69 6E 66 7D 0D 0A 0D I tgdemo.inf}...
00ECC0: 0A 7B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D .{--------------
00ECD0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 20 6F 76 65 72 6C ---------- overl
00ECE0: 61 79 20 2D 20 70 61 72 74 69 65 20 64 65 75 78 ay - partie deux
00ECF0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00ED00: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 7D 0D 0A 70 72 6F ----------}..pro
00ED10: 63 65 64 75 72 65 20 64 75 6D 6D 79 32 3B 20 62 cedure dummy2; b
00ED20: 65 67 69 6E 20 65 6E 64 3B 0D 0A 0D 0A 6F 76 65 egin end;....ove
00ED30: 72 6C 61 79 20 70 72 6F 63 65 64 75 72 65 20 50 rlay procedure P
00ED40: 69 65 44 65 6D 3B 0D 0A 7B 24 49 20 74 67 64 65 ieDem;..{$I tgde
00ED50: 6D 6F 31 32 2E 69 6E 63 7D 20 7B 20 63 61 6D 65 mo12.inc} { came
00ED60: 6D 62 65 72 74 20 7D 0D 0A 0D 0A 6F 76 65 72 6C mbert }....overl
00ED70: 61 79 20 70 72 6F 63 65 64 75 72 65 20 53 70 6C ay procedure Spl
00ED80: 69 6E 65 44 65 6D 3B 0D 0A 7B 24 49 20 74 67 64 ineDem;..{$I tgd
00ED90: 65 6D 6F 31 33 2E 69 6E 63 7D 20 7B 20 73 70 6C emo13.inc} { spl
00EDA0: 69 6E 65 20 7D 0D 0A 0D 0A 6F 76 65 72 6C 61 79 ine }....overlay
00EDB0: 20 70 72 6F 63 65 64 75 72 65 20 73 69 6D 70 6C procedure simpl
00EDC0: 65 3B 0D 0A 7B 24 49 20 74 67 64 65 6D 6F 32 2E e;..{$I tgdemo2.
00EDD0: 69 6E 63 7D 20 7B 73 69 6D 70 6C 65 73 20 7D 0D inc} {simples }.
00EDE0: 0A 0D 0A 6F 76 65 72 6C 61 79 20 70 72 6F 63 65 ...overlay proce
00EDF0: 64 75 72 65 20 50 6F 6C 79 67 6F 6E 44 65 6D 3B dure PolygonDem;
00EE00: 28 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A (***************
00EE10: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
00EE20: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
00EE30: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 29 0D 0A 28 ************)..(
00EE40: 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 *
00EE50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00EE60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00EE70: 20 20 20 20 20 20 20 20 20 20 2A 29 0D 0A 28 2A *)..(*
00EE80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00EE90: 54 55 52 42 4F 20 47 52 41 50 48 49 58 20 76 65 TURBO GRAPHIX ve
00EEA0: 72 73 69 6F 6E 20 31 2E 30 35 41 20 20 20 20 20 rsion 1.05A
00EEB0: 20 20 20 20 20 20 20 20 20 2A 29 0D 0A 28 2A 20 *)..(*
00EEC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00EED0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00EEE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00EEF0: 20 20 20 20 20 20 20 20 2A 29 0D 0A 28 2A 20 20 *)..(*
00EF00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00EF10: 44 65 6D 6F 6E 73 74 72 61 74 69 6F 6E 20 70 72 Demonstration pr
00EF20: 6F 67 72 61 6D 20 20 20 20 20 20 20 20 20 20 20 ogram
00EF30: 20 20 20 20 20 20 20 2A 29 0D 0A 28 2A 20 20 20 *)..(*
00EF40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4D M
00EF50: 6F 64 75 6C 65 20 76 65 72 73 69 6F 6E 20 20 31 odule version 1
00EF60: 2E 30 33 41 20 20 20 20 20 20 20 20 20 20 20 20 .03A
00EF70: 20 20 20 20 20 20 2A 29 0D 0A 28 2A 20 20 20 20 *)..(*
00EF80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00EF90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00EFA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00EFB0: 20 20 20 20 20 2A 29 0D 0A 28 2A 20 20 20 20 20 *)..(*
00EFC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 43 6F 70 Cop
00EFD0: 79 72 69 67 68 74 20 28 43 29 20 31 39 38 35 20 yright (C) 1985
00EFE0: 62 79 20 20 20 20 20 20 20 20 20 20 20 20 20 20 by
00EFF0: 20 20 20 20 2A 29 0D 0A 28 2A 20 20 20 20 20 20 *)..(*
00F000: 0D 0A 7B 24 49 20 74 67 64 65 6D 6F 33 2E 69 6E ..{$I tgdemo3.in
00F010: 63 7D 20 7B 20 70 6F 6C 79 67 6F 6E 65 20 7D 0D c} { polygone }.
00F020: 0A 0D 0A 6F 76 65 72 6C 61 79 20 70 72 6F 63 65 ...overlay proce
00F030: 64 75 72 65 20 48 69 73 74 6F 44 65 6D 3B 0D 0A dure HistoDem;..
00F040: 7B 24 49 20 74 67 64 65 6D 6F 34 2E 69 6E 63 7D {$I tgdemo4.inc}
00F050: 20 7B 20 68 69 73 74 6F 67 72 61 6D 6D 65 20 7D { histogramme }
00F060: 0D 0A 0D 0A 7B 24 49 20 74 67 64 65 6D 6F 35 2E ....{$I tgdemo5.
00F070: 69 6E 63 7D 20 7B 20 6F 72 67 61 6E 69 67 72 61 inc} { organigra
00F080: 6D 6D 65 20 7D 0D 0A 0D 0A 6F 76 65 72 6C 61 79 mme }....overlay
00F090: 20 70 72 6F 63 65 64 75 72 65 20 42 65 7A 69 65 procedure Bezie
00F0A0: 72 44 65 6D 3B 0D 0A 0D 0A 7B 24 49 20 74 67 64 rDem;....{$I tgd
00F0B0: 65 6D 6F 36 2E 69 6E 63 7D 0D 0A 0D 0A 7B 24 49 emo6.inc}....{$I
00F0C0: 20 74 67 64 65 6D 6F 2E 63 68 6F 7D 0D 0A 0D 0A tgdemo.cho}....
00F0D0: 0D 0A 42 65 67 69 6E 0D 0A 20 20 49 6E 69 74 47 ..Begin.. InitG
00F0E0: 72 61 70 68 69 63 3B 0D 0A 20 20 53 65 74 42 72 raphic;.. SetBr
00F0F0: 65 61 6B 4F 6E 3B 0D 0A 20 20 53 65 74 4D 65 73 eakOn;.. SetMes
00F100: 73 61 67 65 4F 6E 3B 0D 0A 20 20 53 65 74 48 65 sageOn;.. SetHe
00F110: 61 64 65 72 4F 6E 3B 0D 0A 20 20 44 65 66 69 6E aderOn;.. Defin
00F120: 65 57 6F 72 6C 64 28 32 2C 30 2C 31 39 39 2C 36 eWorld(2,0,199,6
00F130: 33 39 2C 30 29 3B 0D 0A 20 20 44 65 66 69 6E 65 39,0);.. Define
00F140: 57 69 6E 64 6F 77 28 31 30 2C 30 2C 30 2C 58 4D Window(10,0,0,XM
00F150: 61 78 47 6C 62 2C 59 4D 61 78 47 6C 62 29 3B 0D axGlb,YMaxGlb);.
00F160: 0A 20 20 69 6E 74 72 6F 3B 0D 0A 20 20 63 68 6F . intro;.. cho
00F170: 69 63 65 3A 3D 30 3B 0D 0A 20 20 72 65 70 65 61 ice:=0;.. repea
00F180: 74 0D 0A 20 20 20 20 43 6C 65 61 72 53 63 72 65 t.. ClearScre
00F190: 65 6E 3B 0D 0A 20 20 20 20 52 65 73 65 74 57 69 en;.. ResetWi
00F1A0: 6E 64 6F 77 53 74 61 63 6B 3B 0D 0A 20 20 20 20 ndowStack;..
00F1B0: 52 65 73 65 74 57 69 6E 64 6F 77 73 3B 0D 0A 20 ResetWindows;..
00F1C0: 20 20 20 52 65 73 65 74 57 6F 72 6C 64 73 3B 0D ResetWorlds;.
00F1D0: 0A 20 20 20 20 44 65 66 69 6E 65 57 6F 72 6C 64 . DefineWorld
00F1E0: 28 32 2C 30 2C 31 39 39 2C 36 33 39 2C 30 29 3B (2,0,199,639,0);
00F1F0: 0D 0A 20 20 20 20 44 65 66 69 6E 65 57 69 6E 64 .. DefineWind
00F200: 20 20 20 20 20 20 20 20 20 20 20 20 42 4F 52 4C BORL
00F210: 41 4E 44 20 49 6E 74 65 72 6E 61 74 69 6F 6E 61 AND Internationa
00F220: 6C 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 l
00F230: 20 20 20 2A 29 0D 0A 28 2A 20 20 20 20 20 20 20 *)..(*
00F240: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00F250: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00F260: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00F270: 20 20 2A 29 0D 0A 28 2A 20 20 20 20 6D 6F 64 69 *)..(* modi
00F280: 66 69 65 64 20 20 62 79 20 48 45 49 4D 53 4F 45 fied by HEIMSOE
00F290: 54 48 20 53 6F 66 74 77 61 72 65 20 4D 75 6E 69 TH Software Muni
00F2A0: 63 68 20 31 31 2E 31 39 38 35 20 20 20 20 20 20 ch 11.1985
00F2B0: 20 2A 29 0D 0A 28 2A 20 20 20 20 20 20 20 20 20 *)..(*
00F2C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00F2D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00F2E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00F2F0: 2A 29 0D 0A 28 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A *)..(***********
00F300: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
00F310: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
00F320: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
00F330: 29 0D 0A 7B 24 78 2D 7D 0D 0A 7B 24 43 2D 7D 0D )..{$x-}..{$C-}.
00F340: 0A 70 72 6F 67 72 61 6D 20 54 75 72 62 6F 47 72 .program TurboGr
00F350: 61 70 68 69 63 73 44 65 6D 6F 3B 0D 0A 0D 0A 7B aphicsDemo;....{
00F360: 24 49 20 62 3A 74 79 70 65 64 65 66 2E 73 79 73 $I b:typedef.sys
00F370: 7D 0D 0A 7B 24 49 20 62 3A 67 72 61 70 68 69 78 }..{$I b:graphix
00F380: 2E 73 79 73 7D 0D 0A 7B 24 49 20 62 3A 6B 65 72 .sys}..{$I b:ker
00F390: 6E 65 6C 2E 73 79 73 7D 0D 0A 7B 24 49 20 62 3A nel.sys}..{$I b:
00F3A0: 6B 65 72 6E 65 6C 31 2E 73 79 73 7D 0D 0A 7B 24 kernel1.sys}..{$
00F3B0: 49 20 62 3A 77 69 6E 64 6F 77 73 2E 73 79 73 7D I b:windows.sys}
00F3C0: 0D 0A 7B 24 49 20 62 3A 66 69 6E 64 77 72 6C 64 ..{$I b:findwrld
00F3D0: 2E 68 67 68 7D 0D 0A 76 61 72 20 63 68 6F 69 63 .hgh}..var choic
00F3E0: 65 3A 69 6E 74 65 67 65 72 3B 0D 0A 0D 0A 7B 24 e:integer;....{$
00F3F0: 49 20 74 67 64 65 6D 6F 30 2E 69 6E 63 7D 20 7B I tgdemo0.inc} {
00F400: 6F 77 28 31 30 2C 30 2C 30 2C 58 4D 61 78 47 6C ow(10,0,0,XMaxGl
00F410: 62 2C 59 4D 61 78 47 6C 62 29 3B 0D 0A 20 20 20 b,YMaxGlb);..
00F420: 20 53 65 6C 65 63 74 57 6F 72 6C 64 28 32 29 3B SelectWorld(2);
00F430: 0D 0A 20 20 20 20 53 65 6C 65 63 74 57 69 6E 64 .. SelectWind
00F440: 6F 77 28 31 30 29 3B 0D 0A 20 20 20 20 53 65 74 ow(10);.. Set
00F450: 41 73 70 65 63 74 28 31 2E 30 29 3B 0D 0A 20 20 Aspect(1.0);..
00F460: 20 20 63 68 6F 69 63 65 3A 3D 6D 65 6E 75 63 68 choice:=menuch
00F470: 6F 69 63 65 28 63 68 6F 69 63 65 29 3B 0D 0A 20 oice(choice);..
00F480: 20 20 20 43 6C 65 61 72 53 63 72 65 65 6E 3B 0D ClearScreen;.
00F490: 0A 20 20 20 20 63 61 73 65 20 63 68 6F 69 63 65 . case choice
00F4A0: 20 6F 66 0D 0A 20 20 20 20 20 20 31 3A 62 65 67 of.. 1:beg
00F4B0: 69 6E 20 77 69 6E 64 6F 77 64 65 6D 6F 69 6E 66 in windowdemoinf
00F4C0: 6F 3B 20 57 69 6E 64 6F 77 44 65 6D 6F 3B 20 65 o; WindowDemo; e
00F4D0: 6E 64 3B 0D 0A 20 20 20 20 20 20 32 3A 62 65 67 nd;.. 2:beg
00F4E0: 69 6E 20 73 69 6D 70 6C 65 49 6E 66 6F 3B 20 53 in simpleInfo; S
00F4F0: 69 6D 70 6C 65 3B 20 65 6E 64 3B 0D 0A 20 20 20 imple; end;..
00F500: 20 20 20 33 3A 73 69 65 72 3B 0D 0A 20 20 20 20 3:sier;..
00F510: 20 20 34 3A 62 65 67 69 6E 20 70 69 65 69 6E 66 4:begin pieinf
00F520: 6F 3B 20 50 69 65 64 65 6D 3B 20 65 6E 64 3B 0D o; Piedem; end;.
00F530: 0A 20 20 20 20 20 20 35 3A 62 65 67 69 6E 20 73 . 5:begin s
00F540: 70 6C 69 6E 65 49 6E 66 6F 3B 20 53 70 6C 69 6E plineInfo; Splin
00F550: 65 64 65 6D 3B 20 65 6E 64 3B 0D 0A 20 20 20 20 edem; end;..
00F560: 20 20 36 3A 62 65 67 69 6E 20 70 6F 6C 79 67 6F 6:begin polygo
00F570: 6E 49 6E 66 6F 3B 20 50 6F 6C 79 67 6F 6E 64 65 nInfo; Polygonde
00F580: 6D 3B 20 65 6E 64 3B 0D 0A 20 20 20 20 20 20 37 m; end;.. 7
00F590: 3A 48 69 73 74 6F 44 65 6D 3B 0D 0A 20 20 20 20 :HistoDem;..
00F5A0: 20 20 38 3A 46 6C 6F 77 43 68 61 72 74 44 65 6D 8:FlowChartDem
00F5B0: 3B 0D 0A 20 20 20 20 20 20 39 3A 62 65 67 69 6E ;.. 9:begin
00F5C0: 20 42 65 7A 69 65 72 49 6E 66 6F 3B 20 42 65 7A BezierInfo; Bez
00F5D0: 69 65 72 64 65 6D 3B 20 65 6E 64 3B 0D 0A 20 20 ierdem; end;..
00F5E0: 20 20 65 6E 64 3B 0D 0A 20 20 75 6E 74 69 6C 20 end;.. until
00F5F0: 63 68 6F 69 63 65 3D 30 3B 0D 0A 20 20 4C 65 61 choice=0;.. Lea
00F600: 20 20 70 72 6F 63 65 64 75 72 65 73 20 63 6F 6D procedures com
00F610: 6D 75 6E 65 73 20 7D 0D 0A 0D 0A 7B 2D 2D 2D 2D munes }....{----
00F620: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 20 4F 76 65 72 ----------- Over
00F630: 20 6C 61 79 20 50 61 72 74 69 65 20 6F 6E 65 20 lay Partie one
00F640: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
00F650: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 7D 0D 0A 7B 24 -----------}..{$
00F660: 49 20 74 67 64 65 6D 6F 31 2E 69 6E 63 7D 20 7B I tgdemo1.inc} {
00F670: 20 69 6E 74 72 6F 64 75 63 74 69 6F 6E 20 7D 0D introduction }.
00F680: 0A 0D 0A 7B 24 49 20 74 67 64 65 6D 6F 31 30 2E ...{$I tgdemo10.
00F690: 69 6E 63 7D 20 7B 20 66 65 6E 65 74 72 65 20 7D inc} { fenetre }
00F6A0: 0D 0A 0D 0A 7B 24 49 20 74 67 64 65 6D 6F 31 31 ....{$I tgdemo11
00F6B0: 2E 69 6E 63 7D 0D 0A 0D 0A 6F 76 65 72 6C 61 79 .inc}....overlay
00F6C0: 20 70 72 6F 63 65 64 75 72 65 20 78 64 72 61 77 procedure xdraw
00F6D0: 70 6F 6C 79 67 6F 6E 28 61 3A 70 6C 6F 74 61 72 polygon(a:plotar
00F6E0: 72 61 79 3B 63 2C 64 2C 65 2C 66 2C 67 3A 69 6E ray;c,d,e,f,g:in
00F6F0: 74 65 67 65 72 29 3B 0D 0A 7B 24 49 20 62 3A 70 teger);..{$I b:p
00F700: 6F 6C 79 67 6F 6E 2E 68 67 68 7D 0D 0A 62 65 67 olygon.hgh}..beg
00F710: 69 6E 0D 0A 20 20 20 64 72 61 77 70 6F 6C 79 67 in.. drawpolyg
00F720: 6F 6E 28 61 2C 63 2C 64 2C 65 2C 66 2C 67 29 3B on(a,c,d,e,f,g);
00F730: 0D 0A 65 6E 64 3B 0D 0A 0D 0A 6F 76 65 72 6C 61 ..end;....overla
00F740: 79 20 70 72 6F 63 65 64 75 72 65 20 78 64 72 61 y procedure xdra
00F750: 77 61 78 69 73 28 61 2C 62 2C 63 2C 64 2C 65 2C waxis(a,b,c,d,e,
00F760: 66 2C 67 2C 68 3A 69 6E 74 65 67 65 72 3B 69 3A f,g,h:integer;i:
00F770: 62 6F 6F 6C 65 61 6E 29 3B 0D 0A 7B 24 49 20 61 boolean);..{$I a
00F780: 78 69 73 2E 68 67 68 7D 0D 0A 62 65 67 69 6E 0D xis.hgh}..begin.
00F790: 0A 20 20 20 64 72 61 77 61 78 69 73 28 61 2C 62 . drawaxis(a,b
00F7A0: 2C 63 2C 64 2C 65 2C 66 2C 67 2C 68 2C 69 29 3B ,c,d,e,f,g,h,i);
00F7B0: 0D 0A 65 6E 64 3B 0D 0A 0D 0A 6F 76 65 72 6C 61 ..end;....overla
00F7C0: 79 20 70 72 6F 63 65 64 75 72 65 20 78 73 70 6C y procedure xspl
00F7D0: 69 6E 65 28 61 3A 70 6C 6F 74 61 72 72 61 79 3B ine(a:plotarray;
00F7E0: 62 3A 69 6E 74 65 67 65 72 3B 63 2C 64 3A 72 65 b:integer;c,d:re
00F7F0: 61 6C 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 al;..
00F800: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
00F810: 0D 00 01 00 02 09 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: 76 65 47 72 61 70 68 69 63 3B 0D 0A 65 6E 64 2E veGraphic;..end.
00F910: 0D 0A 0D 0A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
00F920: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
00F930: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
00F940: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
00F950: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
00F960: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
00F970: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
00F980: 20 20 20 43 6C 65 61 72 53 63 72 65 65 6E 3B 0D ClearScreen;.
00F990: 0A 20 20 20 20 63 61 73 65 20 63 68 6F 69 63 65 . case choice
00F9A0: 20 6F 66 0D 0A 20 20 20 20 20 20 31 3A 62 65 67 of.. 1:beg
00F9B0: 69 6E 20 77 69 6E 64 6F 77 64 65 6D 6F 69 6E 66 in windowdemoinf
00F9C0: 6F 3B 20 57 69 6E 64 6F 77 44 65 6D 6F 3B 20 65 o; WindowDemo; e
00F9D0: 6E 64 3B 0D 0A 20 20 20 20 20 20 32 3A 62 65 67 nd;.. 2:beg
00F9E0: 69 6E 20 73 69 6D 70 6C 65 49 6E 66 6F 3B 20 53 in simpleInfo; S
00F9F0: 69 6D 70 6C 65 3B 20 65 6E 64 3B 0D 0A 20 20 20 imple; end;..
00FA00: 20 20 20 33 3A 73 69 65 72 3B 0D 0A 20 20 20 20 3:sier;..
00FA10: 20 20 34 3A 62 65 67 69 6E 20 70 69 65 69 6E 66 4:begin pieinf
00FA20: 6F 3B 20 50 69 65 64 65 6D 3B 20 65 6E 64 3B 0D o; Piedem; end;.
00FA30: 0A 20 20 20 20 20 20 35 3A 62 65 67 69 6E 20 73 . 5:begin s
00FA40: 70 6C 69 6E 65 49 6E 66 6F 3B 20 53 70 6C 69 6E plineInfo; Splin
00FA50: 65 64 65 6D 3B 20 65 6E 64 3B 0D 0A 20 20 20 20 edem; end;..
00FA60: 20 20 36 3A 62 65 67 69 6E 20 70 6F 6C 79 67 6F 6:begin polygo
00FA70: 6E 49 6E 66 6F 3B 20 50 6F 6C 79 67 6F 6E 64 65 nInfo; Polygonde
00FA80: 6D 3B 20 65 6E 64 3B 0D 0A 20 20 20 20 20 20 37 m; end;.. 7
00FA90: 3A 48 69 73 74 6F 44 65 6D 3B 0D 0A 20 20 20 20 :HistoDem;..
00FAA0: 20 20 38 3A 46 6C 6F 77 43 68 61 72 74 44 65 6D 8:FlowChartDem
00FAB0: 3B 0D 0A 20 20 20 20 20 20 39 3A 62 65 67 69 6E ;.. 9:begin
00FAC0: 20 42 65 7A 69 65 72 49 6E 66 6F 3B 20 42 65 7A BezierInfo; Bez
00FAD0: 69 65 72 64 65 6D 3B 20 65 6E 64 3B 0D 0A 20 20 ierdem; end;..
00FAE0: 20 20 65 6E 64 3B 0D 0A 20 20 75 6E 74 69 6C 20 end;.. until
00FAF0: 63 68 6F 69 63 65 3D 30 3B 0D 0A 20 20 4C 65 61 choice=0;.. Lea
00FB00: 61 79 28 31 30 30 30 29 3B 0D 0A 0D 0A 20 20 44 ay(1000);.... D
00FB10: 65 66 69 6E 65 57 69 6E 64 6F 77 49 42 4D 28 34 efineWindowIBM(4
00FB20: 2C 32 38 2C 36 30 2C 34 39 2C 31 34 30 29 3B 0D ,28,60,49,140);.
00FB30: 0A 20 20 53 65 6C 65 63 74 57 69 6E 64 6F 77 28 . SelectWindow(
00FB40: 34 29 3B 0D 0A 20 20 6D 73 67 28 27 20 20 54 72 4);.. msg(' Tr
00FB50: 61 63 65 20 64 65 20 63 61 72 72 65 73 20 20 20 ace de carres
00FB60: 3A 20 20 20 44 72 61 77 53 71 75 61 72 65 27 29 : DrawSquare')
00FB70: 3B 0D 0A 20 20 44 72 61 77 53 71 75 61 72 65 73 ;.. DrawSquares
00FB80: 3B 0D 0A 20 20 4D 6F 76 65 56 65 72 49 42 4D 28 ;.. MoveVerIBM(
00FB90: 2D 34 34 2C 74 72 75 65 29 3B 0D 0A 20 20 4D 6F -44,true);.. Mo
00FBA0: 76 65 48 6F 72 49 42 4D 28 32 36 2C 74 72 75 65 veHorIBM(26,true
00FBB0: 29 3B 0D 0A 20 20 64 65 6C 61 79 28 31 30 30 30 );.. delay(1000
00FBC0: 29 3B 0D 0A 0D 0A 20 20 44 65 66 69 6E 65 57 69 );.... DefineWi
00FBD0: 6E 64 6F 77 49 42 4D 28 35 2C 32 38 2C 36 30 2C ndowIBM(5,28,60,
00FBE0: 34 39 2C 31 34 30 29 3B 0D 0A 20 20 53 65 6C 65 49,140);.. Sele
00FBF0: 63 74 57 69 6E 64 6F 77 28 35 29 3B 0D 0A 20 20 ctWindow(5);..
00FC00: 6D 73 67 28 27 20 20 54 72 61 63 65 20 64 65 20 msg(' Trace de
00FC10: 63 65 72 63 6C 65 73 20 65 74 20 64 27 65 6C 6C cercles et d'ell
00FC20: 69 70 73 65 73 20 3A 20 20 44 72 61 77 43 69 72 ipses : DrawCir
00FC30: 63 6C 65 27 29 3B 0D 0A 20 20 44 72 61 77 43 69 cle');.. DrawCi
00FC40: 72 63 6C 65 73 3B 0D 0A 20 20 4D 6F 76 65 56 65 rcles;.. MoveVe
00FC50: 72 49 42 4D 28 34 30 2C 74 72 75 65 29 3B 0D 0A rIBM(40,true);..
00FC60: 20 20 4D 6F 76 65 48 6F 72 49 42 4D 28 32 36 2C MoveHorIBM(26,
00FC70: 74 72 75 65 29 3B 0D 0A 20 20 64 65 6C 61 79 28 true);.. delay(
00FC80: 31 30 30 30 29 3B 0D 0A 0D 0A 20 20 44 65 66 69 1000);.... Defi
00FC90: 6E 65 57 69 6E 64 6F 77 49 42 4D 28 36 2C 32 38 neWindowIBM(6,28
00FCA0: 2C 36 30 2C 34 39 2C 31 34 30 29 3B 53 65 6C 65 ,60,49,140);Sele
00FCB0: 63 74 57 69 6E 64 6F 77 28 36 29 3B 0D 0A 20 20 ctWindow(6);..
00FCC0: 6D 73 67 28 27 20 54 72 61 63 65 20 64 65 20 73 msg(' Trace de s
00FCD0: 65 67 6D 65 6E 74 73 20 64 65 20 63 65 72 63 6C egments de cercl
00FCE0: 65 73 20 3A 20 44 72 61 77 43 69 72 63 6C 65 53 es : DrawCircleS
00FCF0: 65 67 6D 65 6E 74 27 29 3B 0D 0A 20 20 44 72 61 egment');.. Dra
00FD00: 76 61 72 20 69 2C 6A 2C 72 6E 64 3A 69 6E 74 65 var i,j,rnd:inte
00FD10: 67 65 72 3B 0D 0A 20 20 20 20 72 61 64 3A 72 65 ger;.. rad:re
00FD20: 61 6C 3B 0D 0A 20 20 20 20 63 68 3A 63 68 61 72 al;.. ch:char
00FD30: 3B 0D 0A 70 72 6F 63 65 64 75 72 65 20 44 72 61 ;..procedure Dra
00FD40: 77 50 6F 69 6E 74 73 3B 0D 0A 76 61 72 20 69 3A wPoints;..var i:
00FD50: 69 6E 74 65 67 65 72 3B 0D 0A 62 65 67 69 6E 0D integer;..begin.
00FD60: 0A 20 20 53 65 74 42 61 63 6B 67 72 6F 75 6E 64 . SetBackground
00FD70: 28 30 29 3B 0D 0A 20 20 44 72 61 77 42 6F 72 64 (0);.. DrawBord
00FD80: 65 72 3B 0D 0A 20 20 66 6F 72 20 69 3A 3D 31 20 er;.. for i:=1
00FD90: 74 6F 20 32 35 30 20 64 6F 20 44 72 61 77 50 6F to 250 do DrawPo
00FDA0: 69 6E 74 28 72 61 6E 64 6F 6D 28 36 34 30 29 2C int(random(640),
00FDB0: 72 61 6E 64 6F 6D 28 32 30 30 29 29 3B 0D 0A 65 random(200));..e
00FDC0: 6E 64 3B 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 65 nd;....procedure
00FDD0: 20 44 72 61 77 4C 69 6E 65 73 3B 0D 0A 76 61 72 DrawLines;..var
00FDE0: 20 69 3A 69 6E 74 65 67 65 72 3B 0D 0A 62 65 67 i:integer;..beg
00FDF0: 69 6E 0D 0A 20 20 53 65 74 42 61 63 6B 67 72 6F in.. SetBackgro
00FE00: 75 6E 64 28 30 29 3B 0D 0A 20 20 44 72 61 77 42 und(0);.. DrawB
00FE10: 6F 72 64 65 72 3B 0D 0A 20 20 66 6F 72 20 69 3A order;.. for i:
00FE20: 3D 31 20 74 6F 20 32 30 20 64 6F 20 44 72 61 77 =1 to 20 do Draw
00FE30: 4C 69 6E 65 28 69 2A 33 31 2C 30 2C 36 34 30 2D Line(i*31,0,640-
00FE40: 69 2A 33 31 2C 69 2A 31 30 29 3B 0D 0A 65 6E 64 i*31,i*10);..end
00FE50: 3B 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 65 20 44 ;....procedure D
00FE60: 72 61 77 53 71 75 61 72 65 73 3B 0D 0A 76 61 72 rawSquares;..var
00FE70: 20 69 3A 69 6E 74 65 67 65 72 3B 0D 0A 62 65 67 i:integer;..beg
00FE80: 69 6E 0D 0A 20 20 53 65 74 42 61 63 6B 67 72 6F in.. SetBackgro
00FE90: 75 6E 64 28 30 29 3B 0D 0A 20 20 44 72 61 77 42 und(0);.. DrawB
00FEA0: 6F 72 64 65 72 3B 0D 0A 20 20 66 6F 72 20 69 3A order;.. for i:
00FEB0: 3D 31 20 74 6F 20 31 35 20 64 6F 20 44 72 61 77 =1 to 15 do Draw
00FEC0: 53 71 75 61 72 65 28 33 32 30 2D 69 2A 32 30 2C Square(320-i*20,
00FED0: 31 30 30 2D 69 2A 36 2C 33 32 30 2B 69 2A 32 30 100-i*6,320+i*20
00FEE0: 2C 31 30 30 2B 69 2A 36 2C 66 61 6C 73 65 29 3B ,100+i*6,false);
00FEF0: 0D 0A 65 6E 64 3B 0D 0A 0D 0A 70 72 6F 63 65 64 ..end;....proced
00FF00: 77 50 69 65 31 3B 0D 0A 20 20 4D 6F 76 65 56 65 wPie1;.. MoveVe
00FF10: 72 49 42 4D 28 34 30 2C 74 72 75 65 29 3B 0D 0A rIBM(40,true);..
00FF20: 20 20 43 6F 70 79 53 63 72 65 65 6E 3B 0D 0A 20 CopyScreen;..
00FF30: 20 64 65 6C 61 79 28 31 30 30 30 29 3B 0D 0A 0D delay(1000);...
00FF40: 0A 20 20 44 65 66 69 6E 65 57 69 6E 64 6F 77 49 . DefineWindowI
00FF50: 42 4D 28 37 2C 32 38 2C 36 30 2C 34 39 2C 31 34 BM(7,28,60,49,14
00FF60: 30 29 3B 0D 0A 20 20 53 65 6C 65 63 74 57 69 6E 0);.. SelectWin
00FF70: 64 6F 77 28 37 29 3B 0D 0A 20 20 6D 73 67 28 27 dow(7);.. msg('
00FF80: 20 20 43 61 72 72 65 73 20 68 61 63 68 75 72 65 Carres hachure
00FF90: 73 20 20 20 20 3A 20 20 20 68 61 74 63 68 27 29 s : hatch')
00FFA0: 3B 0D 0A 20 20 48 61 74 63 68 49 74 3B 0D 0A 20 ;.. HatchIt;..
00FFB0: 20 4D 6F 76 65 56 65 72 49 42 4D 28 34 30 2C 74 MoveVerIBM(40,t
00FFC0: 72 75 65 29 3B 0D 0A 20 20 4D 6F 76 65 48 6F 72 rue);.. MoveHor
00FFD0: 49 42 4D 28 2D 32 36 2C 74 72 75 65 29 3B 0D 0A IBM(-26,true);..
00FFE0: 20 20 64 65 6C 61 79 28 31 30 30 30 29 3B 0D 0A delay(1000);..
00FFF0: 20 20 43 6C 65 61 72 45 6F 6C 28 32 35 29 3B 0D ClearEol(25);.
010000: 0A 0D 0A 20 20 66 6F 72 20 69 3A 3D 31 20 74 6F ... for i:=1 to
010010: 20 35 20 64 6F 0D 0A 20 20 62 65 67 69 6E 0D 0A 5 do.. begin..
010020: 20 20 20 20 53 65 6C 65 63 74 57 69 6E 64 6F 77 SelectWindow
010030: 28 32 29 3B 0D 0A 20 20 20 20 49 6E 76 65 72 74 (2);.. Invert
010040: 57 69 6E 64 6F 77 3B 0D 0A 20 20 20 20 66 6F 72 Window;.. for
010050: 20 6A 3A 3D 33 20 74 6F 20 37 20 64 6F 0D 0A 20 j:=3 to 7 do..
010060: 20 20 20 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 begin..
010070: 20 53 65 6C 65 63 74 57 69 6E 64 6F 77 28 6A 29 SelectWindow(j)
010080: 3B 0D 0A 20 20 20 20 20 20 49 6E 76 65 72 74 57 ;.. InvertW
010090: 69 6E 64 6F 77 3B 0D 0A 20 20 20 20 20 20 53 65 indow;.. Se
0100A0: 6C 65 63 74 57 69 6E 64 6F 77 28 6A 2D 31 29 3B lectWindow(j-1);
0100B0: 0D 0A 20 20 20 20 20 20 49 6E 76 65 72 74 57 69 .. InvertWi
0100C0: 6E 64 6F 77 3B 0D 0A 20 20 20 20 20 65 6E 64 3B ndow;.. end;
0100D0: 0D 0A 20 20 20 20 53 65 6C 65 63 74 57 69 6E 64 .. SelectWind
0100E0: 6F 77 28 37 29 3B 0D 0A 20 20 20 20 49 6E 76 65 ow(7);.. Inve
0100F0: 72 74 57 69 6E 64 6F 77 3B 0D 0A 20 20 65 6E 64 rtWindow;.. end
010100: 75 72 65 20 44 72 61 77 43 69 72 63 6C 65 73 3B ure DrawCircles;
010110: 0D 0A 76 61 72 20 69 3A 69 6E 74 65 67 65 72 3B ..var i:integer;
010120: 0D 0A 20 20 20 20 41 73 70 65 63 74 4C 6F 63 3A .. AspectLoc:
010130: 72 65 61 6C 3B 0D 0A 42 65 67 69 6E 0D 0A 20 20 real;..Begin..
010140: 53 65 74 42 61 63 6B 67 72 6F 75 6E 64 28 30 29 SetBackground(0)
010150: 3B 0D 0A 20 20 44 72 61 77 42 6F 72 64 65 72 3B ;.. DrawBorder;
010160: 0D 0A 20 20 72 61 64 3A 3D 30 2E 38 3B 0D 0A 20 .. rad:=0.8;..
010170: 20 41 73 70 65 63 74 4C 6F 63 3A 3D 47 65 74 41 AspectLoc:=GetA
010180: 73 70 65 63 74 3B 0D 0A 20 20 53 65 74 41 73 70 spect;.. SetAsp
010190: 65 63 74 28 31 2F 34 2E 35 29 3B 0D 0A 20 20 66 ect(1/4.5);.. f
0101A0: 6F 72 20 69 3A 3D 31 20 74 6F 20 31 35 20 64 6F or i:=1 to 15 do
0101B0: 0D 0A 20 20 62 65 67 69 6E 0D 0A 20 20 20 20 44 .. begin.. D
0101C0: 72 61 77 43 69 72 63 6C 65 28 33 32 30 2C 31 30 rawCircle(320,10
0101D0: 30 2C 72 61 64 29 3B 0D 0A 20 20 20 20 53 65 74 0,rad);.. Set
0101E0: 41 73 70 65 63 74 28 28 31 2B 69 29 2F 34 2E 35 Aspect((1+i)/4.5
0101F0: 29 3B 0D 0A 20 20 20 20 72 61 64 3A 3D 72 61 64 );.. rad:=rad
010200: 2D 30 2E 30 35 3B 0D 0A 20 20 65 6E 64 3B 0D 0A -0.05;.. end;..
010210: 20 20 53 65 74 41 73 70 65 63 74 28 41 73 70 65 SetAspect(Aspe
010220: 63 74 4C 6F 63 29 3B 0D 0A 65 6E 64 3B 0D 0A 0D ctLoc);..end;...
010230: 0A 70 72 6F 63 65 64 75 72 65 20 44 72 61 77 50 .procedure DrawP
010240: 69 65 31 3B 0D 0A 76 61 72 20 61 3A 50 69 65 41 ie1;..var a:PieA
010250: 72 72 61 79 3B 0D 0A 20 20 20 20 69 3A 69 6E 74 rray;.. i:int
010260: 65 67 65 72 3B 0D 0A 62 65 67 69 6E 0D 0A 20 20 eger;..begin..
010270: 53 65 74 42 61 63 6B 67 72 6F 75 6E 64 28 30 29 SetBackground(0)
010280: 3B 0D 0A 20 20 44 72 61 77 42 6F 72 64 65 72 3B ;.. DrawBorder;
010290: 0D 0A 20 20 66 6F 72 20 69 3A 3D 31 20 74 6F 20 .. for i:=1 to
0102A0: 35 20 64 6F 0D 0A 20 20 62 65 67 69 6E 0D 0A 20 5 do.. begin..
0102B0: 20 20 20 61 5B 69 5D 2E 61 72 65 61 3A 3D 72 61 a[i].area:=ra
0102C0: 6E 64 6F 6D 2B 30 2E 33 35 3B 0D 0A 20 20 20 20 ndom+0.35;..
0102D0: 61 5B 69 5D 2E 74 65 78 74 3A 3D 27 27 3B 0D 0A a[i].text:='';..
0102E0: 20 20 65 6E 64 3B 0D 0A 20 20 61 5B 32 5D 2E 61 end;.. a[2].a
0102F0: 72 65 61 3A 3D 2D 61 5B 32 5D 2E 61 72 65 61 3B rea:=-a[2].area;
010300: 3B 0D 0A 0D 0A 20 20 6D 73 67 28 27 20 54 61 70 ;.... msg(' Tap
010310: 65 72 20 52 45 54 55 52 4E 20 70 6F 75 72 20 63 er RETURN pour c
010320: 6F 6E 74 69 6E 75 65 72 27 29 3B 0D 0A 20 20 66 ontinuer');.. f
010330: 6F 72 20 69 3A 3D 32 20 74 6F 20 37 20 64 6F 20 or i:=2 to 7 do
010340: 62 65 67 69 6E 20 53 65 6C 65 63 74 57 69 6E 64 begin SelectWind
010350: 6F 77 28 69 29 3B 20 49 6E 76 65 72 74 57 69 6E ow(i); InvertWin
010360: 64 6F 77 3B 20 65 6E 64 3B 0D 0A 20 20 69 3A 3D dow; end;.. i:=
010370: 30 3B 0D 0A 20 20 63 68 3A 3D 27 20 27 3B 0D 0A 0;.. ch:=' ';..
010380: 20 20 72 65 70 65 61 74 0D 0A 20 20 20 20 72 6E repeat.. rn
010390: 64 3A 3D 72 61 6E 64 6F 6D 28 36 29 2B 31 3B 0D d:=random(6)+1;.
0103A0: 0A 20 20 20 20 53 65 6C 65 63 74 57 69 6E 64 6F . SelectWindo
0103B0: 77 28 72 6E 64 2B 31 29 3B 0D 0A 20 20 20 20 63 w(rnd+1);.. c
0103C0: 61 73 65 20 72 6E 64 20 6F 66 0D 0A 20 20 20 20 ase rnd of..
0103D0: 20 20 31 3A 44 72 61 77 50 6F 69 6E 74 73 3B 0D 1:DrawPoints;.
0103E0: 0A 20 20 20 20 20 20 32 3A 44 72 61 77 4C 69 6E . 2:DrawLin
0103F0: 65 73 3B 0D 0A 20 20 20 20 20 20 33 3A 44 72 61 es;.. 3:Dra
010400: 77 53 71 75 61 72 65 73 3B 0D 0A 20 20 20 20 20 wSquares;..
010410: 20 34 3A 44 72 61 77 43 69 72 63 6C 65 73 3B 0D 4:DrawCircles;.
010420: 0A 20 20 20 20 20 20 35 3A 44 72 61 77 50 69 65 . 5:DrawPie
010430: 31 3B 0D 0A 20 20 20 20 20 20 36 3A 48 61 74 63 1;.. 6:Hatc
010440: 68 49 74 3B 0D 0A 20 20 20 20 65 6E 64 3B 0D 0A hIt;.. end;..
010450: 20 20 20 20 49 6E 76 65 72 74 57 69 6E 64 6F 77 InvertWindow
010460: 3B 0D 0A 20 20 20 20 69 3A 3D 69 2B 31 3B 0D 0A ;.. i:=i+1;..
010470: 20 20 20 20 69 66 20 6B 65 79 70 72 65 73 73 65 if keypresse
010480: 64 20 74 68 65 6E 20 72 65 61 64 28 6B 62 64 2C d then read(kbd,
010490: 63 68 29 3B 0D 0A 20 20 75 6E 74 69 6C 20 28 63 ch);.. until (c
0104A0: 68 3D 5E 4D 29 20 6F 72 20 28 69 3D 33 30 29 3B h=^M) or (i=30);
0104B0: 0D 0A 0D 0A 65 6E 64 3B 0D 0A 0D 0A 1A 1A 1A 1A ....end;........
0104C0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0104D0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0104E0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0104F0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
010500: 0D 0A 20 20 78 44 72 61 77 43 61 72 74 50 69 65 .. xDrawCartPie
010510: 28 33 32 30 2C 31 30 30 2C 35 30 30 2C 31 30 30 (320,100,500,100
010520: 2C 31 2C 31 2C 61 2C 35 2C 30 2C 31 29 3B 0D 0A ,1,1,a,5,0,1);..
010530: 65 6E 64 3B 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 end;....procedur
010540: 65 20 48 61 74 63 68 49 74 3B 0D 0A 76 61 72 20 e HatchIt;..var
010550: 69 2C 74 65 6D 70 2C 78 31 2C 78 32 2C 79 31 2C i,temp,x1,x2,y1,
010560: 79 32 3A 69 6E 74 65 67 65 72 3B 0D 0A 62 65 67 y2:integer;..beg
010570: 69 6E 0D 0A 20 20 53 65 74 42 61 63 6B 67 72 6F in.. SetBackgro
010580: 75 6E 64 28 30 29 3B 0D 0A 20 20 44 72 61 77 42 und(0);.. DrawB
010590: 6F 72 64 65 72 3B 0D 0A 20 20 66 6F 72 20 69 3A order;.. for i:
0105A0: 3D 31 20 74 6F 20 35 20 64 6F 0D 0A 20 20 62 65 =1 to 5 do.. be
0105B0: 67 69 6E 0D 0A 20 20 20 20 78 31 3A 3D 31 30 30 gin.. x1:=100
0105C0: 2B 72 61 6E 64 6F 6D 28 35 30 30 29 3B 0D 0A 20 +random(500);..
0105D0: 20 20 20 78 32 3A 3D 31 30 30 2B 72 61 6E 64 6F x2:=100+rando
0105E0: 6D 28 35 30 30 29 3B 0D 0A 20 20 20 20 79 31 3A m(500);.. y1:
0105F0: 3D 33 30 2B 72 61 6E 64 6F 6D 28 31 36 30 29 3B =30+random(160);
010600: 0D 0A 20 20 20 20 79 32 3A 3D 33 30 2B 72 61 6E .. y2:=30+ran
010610: 64 6F 6D 28 31 36 30 29 3B 0D 0A 20 20 20 20 69 dom(160);.. i
010620: 66 20 78 31 3E 78 32 20 74 68 65 6E 20 62 65 67 f x1>x2 then beg
010630: 69 6E 20 74 65 6D 70 3A 3D 78 31 3B 78 31 3A 3D in temp:=x1;x1:=
010640: 78 32 3B 78 32 3A 3D 74 65 6D 70 3B 20 65 6E 64 x2;x2:=temp; end
010650: 3B 0D 0A 20 20 20 20 69 66 20 79 31 3E 79 32 20 ;.. if y1>y2
010660: 74 68 65 6E 20 62 65 67 69 6E 20 74 65 6D 70 3A then begin temp:
010670: 3D 79 31 3B 79 31 3A 3D 79 32 3B 79 32 3A 3D 74 =y1;y1:=y2;y2:=t
010680: 65 6D 70 3B 20 65 6E 64 3B 0D 0A 20 20 20 20 44 emp; end;.. D
010690: 72 61 77 53 71 75 61 72 65 28 78 31 2C 79 31 2C rawSquare(x1,y1,
0106A0: 78 32 2C 79 32 2C 66 61 6C 73 65 29 3B 0D 0A 20 x2,y2,false);..
0106B0: 20 20 20 78 68 61 74 63 68 28 78 31 2C 79 31 2C xhatch(x1,y1,
0106C0: 78 32 2C 79 32 2C 72 61 6E 64 6F 6D 28 36 29 2B x2,y2,random(6)+
0106D0: 35 29 3B 0D 0A 20 20 65 6E 64 3B 0D 0A 65 6E 64 5);.. end;..end
0106E0: 3B 0D 0A 0D 0A 62 65 67 69 6E 0D 0A 20 20 43 6C ;....begin.. Cl
0106F0: 65 61 72 53 63 72 65 65 6E 3B 0D 0A 20 20 53 65 earScreen;.. Se
010700: 20 4C 49 4E 45 20 50 4F 53 49 54 49 4F 4E 0D 0A LINE POSITION..
010710: 09 4A 43 09 46 49 4E 49 53 09 3B 43 41 52 52 59 .JC.FINIS.;CARRY
010720: 20 53 45 54 20 42 59 20 47 4E 42 20 49 46 20 45 SET BY GNB IF E
010730: 4E 44 20 46 49 4C 45 0D 0A 09 4D 4F 56 09 42 2C ND FILE...MOV.B,
010740: 41 0D 0A 3B 09 50 52 49 4E 54 20 48 45 58 20 56 A..;.PRINT HEX V
010750: 41 4C 55 45 53 0D 0A 3B 09 43 48 45 43 4B 20 46 ALUES..;.CHECK F
010760: 4F 52 20 4C 49 4E 45 20 46 4F 4C 44 0D 0A 09 4D OR LINE FOLD...M
010770: 4F 56 09 41 2C 4C 0D 0A 09 41 4E 49 09 30 46 48 OV.A,L...ANI.0FH
010780: 09 3B 43 48 45 43 4B 20 4C 4F 57 20 34 20 42 49 .;CHECK LOW 4 BI
010790: 54 53 0D 0A 09 4A 4E 5A 09 4E 4F 4E 55 4D 0D 0A TS...JNZ.NONUM..
0107A0: 3B 09 50 52 49 4E 54 20 4C 49 4E 45 20 4E 55 4D ;.PRINT LINE NUM
0107B0: 42 45 52 0D 0A 09 43 41 4C 4C 09 43 52 4C 46 0D BER...CALL.CRLF.
0107C0: 0A 3B 0D 0A 3B 09 43 48 45 43 4B 20 46 4F 52 20 .;..;.CHECK FOR
0107D0: 42 52 45 41 4B 20 4B 45 59 0D 0A 09 43 41 4C 4C BREAK KEY...CALL
0107E0: 09 42 52 45 41 4B 0D 0A 3B 09 41 43 43 55 4D 20 .BREAK..;.ACCUM
0107F0: 4C 53 42 20 3D 20 31 20 49 46 20 43 48 41 52 41 LSB = 1 IF CHARA
010800: 43 54 45 52 20 52 45 41 44 59 0D 0A 09 52 52 43 CTER READY...RRC
010810: 09 09 3B 49 4E 54 4F 20 43 41 52 52 59 0D 0A 09 ..;INTO CARRY...
010820: 4A 43 09 46 49 4E 49 53 09 3B 44 4F 4E 27 54 20 JC.FINIS.;DON'T
010830: 50 52 49 4E 54 20 41 4E 59 20 4D 4F 52 45 0D 0A PRINT ANY MORE..
010840: 3B 0D 0A 09 4D 4F 56 09 41 2C 48 0D 0A 09 43 41 ;...MOV.A,H...CA
010850: 4C 4C 09 50 48 45 58 0D 0A 09 4D 4F 56 09 41 2C LL.PHEX...MOV.A,
010860: 4C 0D 0A 09 43 41 4C 4C 09 50 48 45 58 0D 0A 4E L...CALL.PHEX..N
010870: 4F 4E 55 4D 3A 0D 0A 09 49 4E 58 09 48 09 3B 54 ONUM:...INX.H.;T
010880: 4F 20 4E 45 58 54 20 4C 49 4E 45 20 4E 55 4D 42 O NEXT LINE NUMB
010890: 45 52 0D 0A 09 4D 56 49 09 41 2C 27 20 27 0D 0A ER...MVI.A,' '..
0108A0: 09 43 41 4C 4C 09 50 43 48 41 52 0D 0A 09 4D 4F .CALL.PCHAR...MO
0108B0: 56 09 41 2C 42 0D 0A 09 43 41 4C 4C 09 50 48 45 V.A,B...CALL.PHE
0108C0: 58 0D 0A 09 4A 4D 50 09 47 4C 4F 4F 50 0D 0A 3B X...JMP.GLOOP..;
0108D0: 0D 0A 46 49 4E 49 53 3A 0D 0A 3B 09 45 4E 44 20 ..FINIS:..;.END
0108E0: 4F 46 20 44 55 4D 50 2C 20 52 45 54 55 52 4E 20 OF DUMP, RETURN
0108F0: 54 4F 20 43 43 50 0D 0A 3B 09 28 4E 4F 54 45 20 TO CCP..;.(NOTE
010900: 74 48 65 61 64 65 72 4F 6E 3B 0D 0A 20 20 44 65 tHeaderOn;.. De
010910: 66 69 6E 65 57 69 6E 64 6F 77 49 42 4D 28 31 2C fineWindowIBM(1,
010920: 30 2C 30 2C 37 39 2C 31 38 35 29 3B 0D 0A 20 20 0,0,79,185);..
010930: 44 65 66 69 6E 65 48 65 61 64 65 72 28 31 2C 27 DefineHeader(1,'
010940: 53 69 6D 70 6C 65 73 20 70 72 6F 63 65 64 75 72 Simples procedur
010950: 65 73 20 67 72 61 70 68 69 71 75 65 73 27 29 3B es graphiques');
010960: 0D 0A 20 20 53 65 6C 65 63 74 57 69 6E 64 6F 77 .. SelectWindow
010970: 28 31 29 3B 0D 0A 20 20 53 65 74 42 61 63 6B 67 (1);.. SetBackg
010980: 72 6F 75 6E 64 28 39 30 29 3B 0D 0A 20 20 44 72 round(90);.. Dr
010990: 61 77 42 6F 72 64 65 72 3B 0D 0A 20 20 43 6F 70 awBorder;.. Cop
0109A0: 79 53 63 72 65 65 6E 3B 0D 0A 0D 0A 20 20 44 65 yScreen;.... De
0109B0: 66 69 6E 65 57 69 6E 64 6F 77 49 42 4D 28 32 2C fineWindowIBM(2,
0109C0: 32 38 2C 36 30 2C 34 39 2C 31 34 30 29 3B 0D 0A 28,60,49,140);..
0109D0: 20 20 53 65 6C 65 63 74 57 69 6E 64 6F 77 28 32 SelectWindow(2
0109E0: 29 3B 0D 0A 20 20 6D 73 67 28 27 20 54 72 61 63 );.. msg(' Trac
0109F0: 65 20 64 65 20 70 6F 69 6E 74 73 20 20 20 3A 20 e de points :
010A00: 20 20 44 72 61 77 50 6F 69 6E 74 27 29 3B 0D 0A DrawPoint');..
010A10: 20 20 44 72 61 77 50 6F 69 6E 74 73 3B 0D 0A 20 DrawPoints;..
010A20: 20 4D 6F 76 65 56 65 72 49 42 4D 28 2D 34 34 2C MoveVerIBM(-44,
010A30: 74 72 75 65 29 3B 0D 0A 20 20 4D 6F 76 65 48 6F true);.. MoveHo
010A40: 72 49 42 4D 28 2D 32 36 2C 74 72 75 65 29 3B 0D rIBM(-26,true);.
010A50: 0A 20 20 64 65 6C 61 79 28 31 30 30 30 29 3B 0D . delay(1000);.
010A60: 0A 0D 0A 20 20 44 65 66 69 6E 65 57 69 6E 64 6F ... DefineWindo
010A70: 77 49 42 4D 28 33 2C 32 38 2C 36 30 2C 34 39 2C wIBM(3,28,60,49,
010A80: 31 34 30 29 3B 0D 0A 20 20 53 65 6C 65 63 74 57 140);.. SelectW
010A90: 69 6E 64 6F 77 28 33 29 3B 0D 0A 20 20 6D 73 67 indow(3);.. msg
010AA0: 28 27 20 20 54 72 61 63 65 20 64 65 20 6C 69 67 (' Trace de lig
010AB0: 6E 65 73 20 3A 20 20 20 44 72 61 77 4C 69 6E 65 nes : DrawLine
010AC0: 27 29 3B 0D 0A 20 20 44 72 61 77 4C 69 6E 65 73 ');.. DrawLines
010AD0: 3B 0D 0A 20 20 4D 6F 76 65 56 65 72 49 42 4D 28 ;.. MoveVerIBM(
010AE0: 2D 34 34 2C 74 72 75 65 29 3B 0D 0A 20 20 43 6F -44,true);.. Co
010AF0: 70 79 53 63 72 65 65 6E 3B 0D 0A 20 20 64 65 6C pyScreen;.. del
010B00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
010B10: 0E 00 01 00 02 09 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: 76 61 72 20 6E 3A 69 6E 74 65 67 65 72 3B 0D 0A var n:integer;..
010C10: 20 20 20 20 62 2C 61 3A 50 6C 6F 74 41 72 72 61 b,a:PlotArra
010C20: 79 3B 0D 0A 20 20 20 20 78 31 2C 78 32 3A 69 6E y;.. x1,x2:in
010C30: 74 65 67 65 72 3B 0D 0A 0D 0A 70 72 6F 63 65 64 teger;....proced
010C40: 75 72 65 20 47 65 6E 65 72 61 74 65 46 75 6E 63 ure GenerateFunc
010C50: 74 69 6F 6E 28 76 61 72 20 61 2C 62 3A 50 6C 6F tion(var a,b:Plo
010C60: 74 41 72 72 61 79 3B 6E 3A 69 6E 74 65 67 65 72 tArray;n:integer
010C70: 29 3B 0D 0A 76 61 72 20 69 3A 69 6E 74 65 67 65 );..var i:intege
010C80: 72 3B 0D 0A 20 20 20 20 64 65 6C 74 61 3A 72 65 r;.. delta:re
010C90: 61 6C 3B 0D 0A 62 65 67 69 6E 0D 0A 20 20 64 65 al;..begin.. de
010CA0: 6C 74 61 3A 3D 32 2A 70 69 2F 28 6E 2D 31 29 3B lta:=2*pi/(n-1);
010CB0: 0D 0A 20 20 66 6F 72 20 69 3A 3D 31 20 74 6F 20 .. for i:=1 to
010CC0: 6E 20 64 6F 0D 0A 20 20 20 20 62 65 67 69 6E 0D n do.. begin.
010CD0: 0A 20 20 20 20 20 20 61 5B 69 2C 31 5D 3A 3D 28 . a[i,1]:=(
010CE0: 69 2D 31 29 2A 64 65 6C 74 61 2D 70 69 3B 0D 0A i-1)*delta-pi;..
010CF0: 20 20 20 20 20 20 62 5B 69 2C 31 5D 3A 3D 61 5B b[i,1]:=a[
010D00: 69 2C 31 5D 3B 0D 0A 20 20 20 20 20 20 62 5B 69 i,1];.. b[i
010D10: 2C 32 5D 3A 3D 65 78 70 28 2D 61 62 73 28 61 5B ,2]:=exp(-abs(a[
010D20: 69 2C 31 5D 29 29 3B 0D 0A 20 20 20 20 20 20 61 i,1]));.. a
010D30: 5B 69 2C 32 5D 3A 3D 73 69 6E 28 61 5B 69 2C 31 [i,2]:=sin(a[i,1
010D40: 5D 29 2A 65 78 70 28 2D 61 62 73 28 61 5B 69 2C ])*exp(-abs(a[i,
010D50: 31 5D 29 2A 30 2E 31 29 3B 0D 0A 20 20 20 20 65 1])*0.1);.. e
010D60: 6E 64 3B 0D 0A 65 6E 64 3B 0D 0A 0D 0A 62 65 67 nd;..end;....beg
010D70: 69 6E 0D 0A 20 20 43 6C 65 61 72 53 63 72 65 65 in.. ClearScree
010D80: 6E 3B 0D 0A 20 20 53 65 74 43 6F 6C 6F 72 57 68 n;.. SetColorWh
010D90: 69 74 65 3B 0D 0A 20 20 6E 3A 3D 33 30 3B 0D 0A ite;.. n:=30;..
010DA0: 20 20 67 6F 74 6F 78 79 28 35 30 2C 32 35 29 3B gotoxy(50,25);
010DB0: 0D 0A 20 20 77 72 69 74 65 28 27 55 6E 20 6D 6F .. write('Un mo
010DC0: 6D 65 6E 74 20 53 2E 56 2E 50 2E 2E 2E 2E 2E 27 ment S.V.P.....'
010DD0: 29 3B 0D 0A 20 20 47 65 6E 65 72 61 74 65 46 75 );.. GenerateFu
010DE0: 6E 63 74 69 6F 6E 28 61 2C 62 2C 6E 29 3B 0D 0A nction(a,b,n);..
010DF0: 20 20 43 6C 65 61 72 53 63 72 65 65 6E 3B 0D 0A ClearScreen;..
010E00: 6F 6C 79 67 6F 6E 28 62 2C 31 2C 6E 2C 2D 34 2C olygon(b,1,n,-4,
010E10: 32 2C 30 29 3B 0D 0A 0D 0A 20 20 64 65 6C 61 79 2,0);.... delay
010E20: 28 31 35 30 30 30 29 3B 0D 0A 0D 0A 20 20 6D 73 (15000);.... ms
010E30: 67 28 27 4C 65 73 20 70 6F 69 6E 74 73 20 64 65 g('Les points de
010E40: 20 6C 61 20 73 65 63 6F 6E 64 65 20 66 6F 6E 63 la seconde fonc
010E50: 74 69 6F 6E 20 72 65 6C 69 65 73 20 70 61 72 20 tion relies par
010E60: 64 65 73 20 6C 69 67 6E 65 73 20 3A 20 44 72 61 des lignes : Dra
010E70: 77 50 6F 6C 79 67 6F 6E 27 29 3B 0D 0A 20 20 78 wPolygon');.. x
010E80: 44 72 61 77 41 78 69 73 28 30 2C 30 2C 30 2C 30 DrawAxis(0,0,0,0
010E90: 2C 30 2C 30 2C 30 2C 30 2C 66 61 6C 73 65 29 3B ,0,0,0,0,false);
010EA0: 0D 0A 20 20 53 65 74 4C 69 6E 65 73 74 79 6C 65 .. SetLinestyle
010EB0: 28 31 29 3B 0D 0A 20 20 78 44 72 61 77 50 6F 6C (1);.. xDrawPol
010EC0: 79 67 6F 6E 28 62 2C 31 2C 6E 2C 30 2C 30 2C 30 ygon(b,1,n,0,0,0
010ED0: 29 3B 0D 0A 20 20 53 65 74 4C 69 6E 65 73 74 79 );.. SetLinesty
010EE0: 6C 65 28 30 29 3B 0D 0A 0D 0A 20 20 64 65 6C 61 le(0);.... dela
010EF0: 79 28 31 35 30 30 30 29 3B 0D 0A 0D 0A 20 20 6D y(15000);.... m
010F00: 73 67 28 27 4C 65 74 74 72 61 67 65 20 64 65 73 sg('Lettrage des
010F10: 20 61 78 65 73 20 61 76 65 63 20 6C 61 20 70 6C axes avec la pl
010F20: 75 73 20 67 72 61 6E 64 65 20 64 65 6E 73 69 74 us grande densit
010F30: 65 3A 20 44 72 61 77 41 78 69 73 2C 44 72 61 77 e: DrawAxis,Draw
010F40: 50 6F 6C 79 67 6F 6E 27 29 3B 0D 0A 20 20 44 65 Polygon');.. De
010F50: 66 69 6E 65 57 69 6E 64 6F 77 49 42 4D 28 32 2C fineWindowIBM(2,
010F60: 38 2C 31 35 2C 37 30 2C 31 37 30 29 3B 0D 0A 20 8,15,70,170);..
010F70: 20 44 65 66 69 6E 65 48 65 61 64 65 72 28 32 2C DefineHeader(2,
010F80: 27 4D 61 72 71 75 61 67 65 20 64 65 73 20 70 6F 'Marquage des po
010F90: 69 6E 74 73 27 29 3B 0D 0A 20 20 53 65 6C 65 63 ints');.. Selec
010FA0: 74 57 69 6E 64 6F 77 28 32 29 3B 0D 0A 20 20 53 tWindow(2);.. S
010FB0: 65 74 42 61 63 6B 67 72 6F 75 6E 64 28 30 29 3B etBackground(0);
010FC0: 0D 0A 20 20 44 72 61 77 42 6F 72 64 65 72 3B 0D .. DrawBorder;.
010FD0: 0A 20 20 78 44 72 61 77 41 78 69 73 28 38 2C 2D . xDrawAxis(8,-
010FE0: 38 2C 30 2C 30 2C 30 2C 30 2C 30 2C 31 2C 66 61 8,0,0,0,0,0,1,fa
010FF0: 6C 73 65 29 3B 0D 0A 20 20 78 44 72 61 77 50 6F lse);.. xDrawPo
011000: 20 20 44 65 66 69 6E 65 57 6F 72 6C 64 28 31 2C DefineWorld(1,
011010: 2D 70 69 2C 31 2C 70 69 2C 2D 31 29 3B 0D 0A 20 -pi,1,pi,-1);..
011020: 20 53 65 6C 65 63 74 57 6F 72 6C 64 28 31 29 3B SelectWorld(1);
011030: 0D 0A 0D 0A 20 20 6D 73 67 28 27 4C 61 20 66 6F .... msg('La fo
011040: 6E 63 74 69 6F 6E 20 64 27 65 78 65 6D 70 6C 65 nction d'exemple
011050: 20 65 6E 20 63 6F 6F 72 64 6F 6E 6E 65 65 73 20 en coordonnees
011060: 6D 6F 6E 64 65 20 5B 2D 50 69 2C 50 69 5D 20 3A monde [-Pi,Pi] :
011070: 20 44 72 61 77 50 6F 6C 79 67 6F 6E 27 29 3B 0D DrawPolygon');.
011080: 0A 20 20 44 65 66 69 6E 65 57 69 6E 64 6F 77 49 . DefineWindowI
011090: 42 4D 28 31 2C 30 2C 30 2C 33 39 2C 39 35 29 3B BM(1,0,0,39,95);
0110A0: 0D 0A 20 20 44 65 66 69 6E 65 48 65 61 64 65 72 .. DefineHeader
0110B0: 28 31 2C 27 4C 61 20 66 6F 6E 63 74 69 6F 6E 20 (1,'La fonction
0110C0: 64 27 27 65 78 65 6D 70 6C 65 27 29 3B 0D 0A 20 d''exemple');..
0110D0: 20 53 65 6C 65 63 74 57 69 6E 64 6F 77 28 31 29 SelectWindow(1)
0110E0: 3B 0D 0A 20 20 44 72 61 77 42 6F 72 64 65 72 3B ;.. DrawBorder;
0110F0: 0D 0A 20 20 78 44 72 61 77 50 6F 6C 79 67 6F 6E .. xDrawPolygon
011100: 28 61 2C 31 2C 6E 2C 30 2C 30 2C 30 29 3B 0D 0A (a,1,n,0,0,0);..
011110: 0D 0A 20 20 64 65 6C 61 79 28 31 35 30 30 30 29 .. delay(15000)
011120: 3B 0D 0A 0D 0A 20 20 6D 73 67 28 27 50 72 6F 63 ;.... msg('Proc
011130: 65 64 75 72 65 73 20 75 74 69 6C 69 73 65 65 73 edures utilisees
011140: 20 3A 20 44 72 61 77 41 78 69 73 20 2C 20 44 72 : DrawAxis , Dr
011150: 61 77 50 6F 6C 79 67 6F 6E 27 29 3B 0D 0A 20 20 awPolygon');..
011160: 44 65 66 69 6E 65 57 69 6E 64 6F 77 49 42 4D 28 DefineWindowIBM(
011170: 32 2C 32 30 2C 34 30 2C 37 39 2C 31 38 35 29 3B 2,20,40,79,185);
011180: 0D 0A 20 20 44 65 66 69 6E 65 48 65 61 64 65 72 .. DefineHeader
011190: 28 32 2C 27 45 78 65 6D 70 6C 65 20 64 65 20 66 (2,'Exemple de f
0111A0: 6F 6E 63 74 69 6F 6E 20 61 76 65 63 20 61 78 65 onction avec axe
0111B0: 73 27 29 3B 0D 0A 20 20 53 65 6C 65 63 74 57 69 s');.. SelectWi
0111C0: 6E 64 6F 77 28 32 29 3B 0D 0A 20 20 53 65 74 42 ndow(2);.. SetB
0111D0: 61 63 6B 67 72 6F 75 6E 64 28 30 29 3B 0D 0A 20 ackground(0);..
0111E0: 20 44 72 61 77 42 6F 72 64 65 72 3B 0D 0A 20 20 DrawBorder;..
0111F0: 78 44 72 61 77 41 78 69 73 28 38 2C 2D 38 2C 30 xDrawAxis(8,-8,0
011200: 6C 79 67 6F 6E 28 61 2C 31 2C 6E 2C 2D 32 2C 33 lygon(a,1,n,-2,3
011210: 2C 30 29 3B 0D 0A 0D 0A 20 20 64 65 6C 61 79 28 ,0);.... delay(
011220: 31 35 30 30 30 29 3B 0D 0A 0D 0A 20 20 78 44 72 15000);.... xDr
011230: 61 77 41 78 69 73 28 30 2C 30 2C 30 2C 30 2C 30 awAxis(0,0,0,0,0
011240: 2C 30 2C 2D 31 2C 2D 31 2C 66 61 6C 73 65 29 3B ,0,-1,-1,false);
011250: 0D 0A 20 20 78 44 72 61 77 50 6F 6C 79 67 6F 6E .. xDrawPolygon
011260: 28 61 2C 31 2C 6E 2C 39 2C 31 2C 2D 31 29 3B 0D (a,1,n,9,1,-1);.
011270: 0A 0D 0A 20 20 64 65 6C 61 79 28 31 35 30 30 30 ... delay(15000
011280: 29 3B 0D 0A 0D 0A 20 20 78 44 72 61 77 41 78 69 );.... xDrawAxi
011290: 73 28 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 2D 31 s(0,0,0,0,0,0,-1
0112A0: 2C 2D 31 2C 66 61 6C 73 65 29 3B 0D 0A 20 20 53 ,-1,false);.. S
0112B0: 65 74 4C 69 6E 65 73 74 79 6C 65 28 32 29 3B 0D etLinestyle(2);.
0112C0: 0A 20 20 78 44 72 61 77 50 6F 6C 79 67 6F 6E 28 . xDrawPolygon(
0112D0: 61 2C 31 2C 6E 2C 30 2C 30 2C 30 29 3B 0D 0A 20 a,1,n,0,0,0);..
0112E0: 20 53 65 74 4C 69 6E 65 73 74 79 6C 65 28 30 29 SetLinestyle(0)
0112F0: 3B 0D 0A 0D 0A 20 20 64 65 6C 61 79 28 31 35 30 ;.... delay(150
011300: 30 30 29 3B 0D 0A 0D 0A 65 6E 64 3B 0D 0A 0D 0A 00);....end;....
011310: 0D 0A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
011320: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
011330: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
011340: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
011350: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
011360: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
011370: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
011380: 27 4D 61 72 71 75 61 67 65 20 64 65 73 20 70 6F 'Marquage des po
011390: 69 6E 74 73 27 29 3B 0D 0A 20 20 53 65 6C 65 63 ints');.. Selec
0113A0: 74 57 69 6E 64 6F 77 28 32 29 3B 0D 0A 20 20 53 tWindow(2);.. S
0113B0: 65 74 42 61 63 6B 67 72 6F 75 6E 64 28 30 29 3B etBackground(0);
0113C0: 0D 0A 20 20 44 72 61 77 42 6F 72 64 65 72 3B 0D .. DrawBorder;.
0113D0: 0A 20 20 78 44 72 61 77 41 78 69 73 28 38 2C 2D . xDrawAxis(8,-
0113E0: 38 2C 30 2C 30 2C 30 2C 30 2C 30 2C 31 2C 66 61 8,0,0,0,0,0,1,fa
0113F0: 6C 73 65 29 3B 0D 0A 20 20 78 44 72 61 77 50 6F lse);.. xDrawPo
011400: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 66 61 6C 73 65 ,0,0,0,0,0,false
011410: 29 3B 0D 0A 20 20 78 44 72 61 77 50 6F 6C 79 67 );.. xDrawPolyg
011420: 6F 6E 28 61 2C 31 2C 6E 2C 30 2C 30 2C 30 29 3B on(a,1,n,0,0,0);
011430: 0D 0A 0D 0A 20 20 64 65 6C 61 79 28 31 35 30 30 .... delay(1500
011440: 30 29 3B 0D 0A 0D 0A 20 20 6D 73 67 28 27 41 78 0);.... msg('Ax
011450: 65 20 64 65 20 64 65 6E 73 69 74 65 20 70 6C 75 e de densite plu
011460: 73 20 67 72 61 6E 64 65 20 3A 20 44 72 61 77 41 s grande : DrawA
011470: 78 69 73 20 2C 20 44 72 61 77 50 6F 6C 79 67 6F xis , DrawPolygo
011480: 6E 27 29 3B 0D 0A 20 20 44 65 66 69 6E 65 57 69 n');.. DefineWi
011490: 6E 64 6F 77 49 42 4D 28 32 2C 38 2C 31 35 2C 37 ndowIBM(2,8,15,7
0114A0: 30 2C 31 37 30 29 3B 0D 0A 20 20 44 65 66 69 6E 0,170);.. Defin
0114B0: 65 48 65 61 64 65 72 28 32 2C 27 45 78 65 6D 70 eHeader(2,'Exemp
0114C0: 6C 65 20 64 65 20 66 6F 6E 63 74 69 6F 6E 20 61 le de fonction a
0114D0: 76 65 63 20 61 78 65 73 27 29 3B 0D 0A 20 20 53 vec axes');.. S
0114E0: 65 6C 65 63 74 57 69 6E 64 6F 77 28 32 29 3B 0D electWindow(2);.
0114F0: 0A 20 20 53 65 74 42 61 63 6B 67 72 6F 75 6E 64 . SetBackground
011500: 28 30 29 3B 0D 0A 20 20 44 72 61 77 42 6F 72 64 (0);.. DrawBord
011510: 65 72 3B 0D 0A 20 20 78 44 72 61 77 41 78 69 73 er;.. xDrawAxis
011520: 28 39 2C 2D 39 2C 30 2C 30 2C 30 2C 30 2C 31 2C (9,-9,0,0,0,0,1,
011530: 31 2C 66 61 6C 73 65 29 3B 0D 0A 20 20 78 44 72 1,false);.. xDr
011540: 61 77 50 6F 6C 79 67 6F 6E 28 61 2C 31 2C 6E 2C awPolygon(a,1,n,
011550: 30 2C 30 2C 30 29 3B 0D 0A 0D 0A 20 20 64 65 6C 0,0,0);.... del
011560: 61 79 28 31 35 30 30 30 29 3B 0D 0A 0D 0A 20 20 ay(15000);....
011570: 6D 73 67 28 27 4C 61 20 66 6F 6E 63 74 69 6F 6E msg('La fonction
011580: 20 64 27 27 65 78 65 6D 70 6C 65 20 74 72 61 63 d''exemple trac
011590: 65 65 20 70 6F 69 6E 74 20 61 20 70 6F 69 6E 74 ee point a point
0115A0: 20 3A 20 44 72 61 77 50 6F 6C 79 67 6F 6E 27 29 : DrawPolygon')
0115B0: 3B 0D 0A 20 20 44 65 66 69 6E 65 57 69 6E 64 6F ;.. DefineWindo
0115C0: 77 49 42 4D 28 31 2C 30 2C 30 2C 33 39 2C 39 35 wIBM(1,0,0,39,95
0115D0: 29 3B 0D 0A 20 20 44 65 66 69 6E 65 48 65 61 64 );.. DefineHead
0115E0: 65 72 28 31 2C 27 4C 61 20 66 6F 6E 63 74 69 6F er(1,'La fonctio
0115F0: 6E 20 64 27 27 65 78 65 6D 70 6C 65 27 29 3B 0D n d''exemple');.
011600: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011610: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011620: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011630: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011640: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011650: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011660: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011670: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011680: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011690: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0116A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0116B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0116C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0116D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0116E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0116F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011700: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011710: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011720: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011730: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011740: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011750: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011760: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011770: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011780: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011790: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0117A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0117B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0117C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0117D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0117E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0117F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011800: 0A 20 20 53 65 6C 65 63 74 57 69 6E 64 6F 77 28 . SelectWindow(
011810: 31 29 3B 0D 0A 20 20 53 65 74 42 61 63 6B 67 72 1);.. SetBackgr
011820: 6F 75 6E 64 28 30 29 3B 0D 0A 20 20 44 72 61 77 ound(0);.. Draw
011830: 42 6F 72 64 65 72 3B 0D 0A 20 20 78 44 72 61 77 Border;.. xDraw
011840: 50 6F 6C 79 67 6F 6E 28 61 2C 31 2C 6E 2C 39 2C Polygon(a,1,n,9,
011850: 31 2C 30 29 3B 0D 0A 0D 0A 20 20 64 65 6C 61 79 1,0);.... delay
011860: 28 31 35 30 30 30 29 3B 0D 0A 0D 0A 20 20 6D 73 (15000);.... ms
011870: 67 28 27 4C 61 20 66 6F 6E 63 74 69 6F 6E 20 64 g('La fonction d
011880: 27 27 65 78 65 6D 70 6C 65 20 74 72 61 63 65 65 ''exemple tracee
011890: 20 61 76 65 63 20 64 65 73 20 63 65 72 63 6C 65 avec des cercle
0118A0: 73 20 3A 20 44 72 61 77 50 6F 6C 79 67 6F 6E 27 s : DrawPolygon'
0118B0: 29 3B 0D 0A 20 20 78 44 72 61 77 50 6F 6C 79 67 );.. xDrawPolyg
0118C0: 6F 6E 28 61 2C 31 2C 6E 2C 2D 38 2C 33 2C 30 29 on(a,1,n,-8,3,0)
0118D0: 3B 0D 0A 0D 0A 20 20 64 65 6C 61 79 28 31 35 30 ;.... delay(150
0118E0: 30 30 29 3B 0D 0A 0D 0A 20 20 6D 73 67 28 27 4C 00);.... msg('L
0118F0: 61 20 66 6F 6E 63 74 69 6F 6E 20 64 27 27 65 78 a fonction d''ex
011900: 65 6D 70 6C 65 20 72 65 6C 69 65 65 20 70 61 72 emple reliee par
011910: 20 64 65 73 20 6C 69 67 6E 65 73 3A 20 53 65 74 des lignes: Set
011920: 4C 69 6E 65 73 74 79 6C 65 20 2C 20 44 72 61 77 Linestyle , Draw
011930: 50 6F 6C 79 67 6F 6E 27 29 3B 0D 0A 20 20 53 65 Polygon');.. Se
011940: 74 4C 69 6E 65 73 74 79 6C 65 28 31 29 3B 0D 0A tLinestyle(1);..
011950: 20 20 78 44 72 61 77 50 6F 6C 79 67 6F 6E 28 61 xDrawPolygon(a
011960: 2C 31 2C 6E 2C 30 2C 30 2C 30 29 3B 0D 0A 20 20 ,1,n,0,0,0);..
011970: 53 65 74 4C 69 6E 65 73 74 79 6C 65 28 30 29 3B SetLinestyle(0);
011980: 0D 0A 0D 0A 20 20 64 65 6C 61 79 28 31 35 30 30 .... delay(1500
011990: 30 29 3B 0D 0A 0D 0A 20 20 6D 73 67 28 27 41 66 0);.... msg('Af
0119A0: 66 69 63 68 61 67 65 20 64 65 20 70 6C 75 73 69 fichage de plusi
0119B0: 65 75 72 73 20 66 6F 6E 63 74 69 6F 6E 73 20 70 eurs fonctions p
0119C0: 61 72 20 61 70 70 65 6C 73 20 72 65 70 65 74 65 ar appels repete
0119D0: 73 20 64 65 20 44 72 61 77 50 6F 6C 79 67 6F 6E s de DrawPolygon
0119E0: 27 29 3B 0D 0A 20 20 44 65 66 69 6E 65 57 69 6E ');.. DefineWin
0119F0: 64 6F 77 49 42 4D 28 32 2C 32 30 2C 34 30 2C 37 dowIBM(2,20,40,7
011A00: 7B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D {---------------
011A10: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
011A20: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
011A30: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
011A40: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 7D 0D 0A -------------}..
011A50: 0D 0A 6F 76 65 72 6C 61 79 20 70 72 6F 63 65 64 ..overlay proced
011A60: 75 72 65 20 46 6C 6F 77 43 68 61 72 74 44 65 6D ure FlowChartDem
011A70: 3B 0D 0A 76 61 72 20 78 31 2C 79 31 2C 78 32 2C ;..var x1,y1,x2,
011A80: 79 32 2C 69 2C 63 6F 75 6E 74 3A 69 6E 74 65 67 y2,i,count:integ
011A90: 65 72 3B 0D 0A 70 72 6F 63 65 64 75 72 65 20 44 er;..procedure D
011AA0: 72 61 77 41 72 72 6F 77 48 6F 72 28 78 31 2C 79 rawArrowHor(x1,y
011AB0: 31 2C 78 32 2C 79 32 3A 69 6E 74 65 67 65 72 29 1,x2,y2:integer)
011AC0: 3B 0D 0A 62 65 67 69 6E 0D 0A 20 20 44 72 61 77 ;..begin.. Draw
011AD0: 4C 69 6E 65 28 78 31 2C 79 31 2C 78 32 2C 79 32 Line(x1,y1,x2,y2
011AE0: 29 3B 0D 0A 20 20 69 66 20 78 32 3E 78 31 20 74 );.. if x2>x1 t
011AF0: 68 65 6E 0D 0A 20 20 20 62 65 67 69 6E 0D 0A 20 hen.. begin..
011B00: 20 20 20 44 72 61 77 4C 69 6E 65 28 78 32 2D 34 DrawLine(x2-4
011B10: 2C 79 32 2D 32 2C 78 32 2C 79 32 29 3B 0D 0A 20 ,y2-2,x2,y2);..
011B20: 20 20 20 44 72 61 77 4C 69 6E 65 28 78 32 2D 34 DrawLine(x2-4
011B30: 2C 79 32 2B 32 2C 78 32 2C 79 32 29 3B 0D 0A 20 ,y2+2,x2,y2);..
011B40: 20 20 65 6E 64 0D 0A 20 20 65 6C 73 65 0D 0A 20 end.. else..
011B50: 20 20 62 65 67 69 6E 0D 0A 20 20 20 20 44 72 61 begin.. Dra
011B60: 77 4C 69 6E 65 28 78 32 2B 35 2C 79 32 2D 32 2C wLine(x2+5,y2-2,
011B70: 78 32 2C 79 32 29 3B 0D 0A 20 20 20 20 44 72 61 x2,y2);.. Dra
011B80: 77 4C 69 6E 65 28 78 32 2B 35 2C 79 32 2B 32 2C wLine(x2+5,y2+2,
011B90: 78 32 2C 79 32 29 3B 0D 0A 20 20 20 65 6E 64 3B x2,y2);.. end;
011BA0: 0D 0A 65 6E 64 3B 0D 0A 70 72 6F 63 65 64 75 72 ..end;..procedur
011BB0: 65 20 44 72 61 77 41 72 72 6F 77 56 65 72 28 78 e DrawArrowVer(x
011BC0: 31 2C 79 31 2C 78 32 2C 79 32 3A 69 6E 74 65 67 1,y1,x2,y2:integ
011BD0: 65 72 29 3B 0D 0A 62 65 67 69 6E 0D 0A 20 20 44 er);..begin.. D
011BE0: 72 61 77 4C 69 6E 65 28 78 31 2C 79 31 2C 78 32 rawLine(x1,y1,x2
011BF0: 2C 79 32 29 3B 0D 0A 20 20 69 66 20 79 32 3E 79 ,y2);.. if y2>y
011C00: 39 2C 31 38 35 29 3B 0D 0A 20 20 44 65 66 69 6E 9,185);.. Defin
011C10: 65 48 65 61 64 65 72 28 32 2C 27 44 65 75 78 20 eHeader(2,'Deux
011C20: 66 6F 6E 63 74 69 6F 6E 73 20 61 66 66 69 63 68 fonctions affich
011C30: 65 65 73 20 61 76 65 63 20 6C 65 73 20 61 78 65 ees avec les axe
011C40: 73 27 29 3B 0D 0A 20 20 53 65 6C 65 63 74 57 69 s');.. SelectWi
011C50: 6E 64 6F 77 28 32 29 3B 0D 0A 20 20 53 65 74 42 ndow(2);.. SetB
011C60: 61 63 6B 67 72 6F 75 6E 64 28 30 29 3B 0D 0A 20 ackground(0);..
011C70: 20 44 72 61 77 42 6F 72 64 65 72 3B 0D 0A 20 20 DrawBorder;..
011C80: 78 44 72 61 77 41 78 69 73 28 38 2C 2D 38 2C 30 xDrawAxis(8,-8,0
011C90: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 66 61 6C 73 65 ,0,0,0,0,0,false
011CA0: 29 3B 0D 0A 20 20 78 44 72 61 77 50 6F 6C 79 67 );.. xDrawPolyg
011CB0: 6F 6E 28 61 2C 31 2C 6E 2C 2D 31 2C 34 2C 30 29 on(a,1,n,-1,4,0)
011CC0: 3B 0D 0A 0D 0A 20 20 64 65 6C 61 79 28 31 35 30 ;.... delay(150
011CD0: 30 30 29 3B 0D 0A 0D 0A 20 20 6D 73 67 28 27 4C 00);.... msg('L
011CE0: 65 73 20 70 6F 69 6E 74 73 20 64 65 20 6C 61 20 es points de la
011CF0: 70 72 65 6D 69 65 72 65 20 66 6F 6E 63 74 69 6F premiere fonctio
011D00: 6E 20 72 65 6C 69 65 73 20 70 61 72 20 64 65 73 n relies par des
011D10: 20 6C 69 67 6E 65 73 20 3A 20 44 72 61 77 50 6F lignes : DrawPo
011D20: 6C 79 67 6F 6E 27 29 3B 0D 0A 20 20 78 44 72 61 lygon');.. xDra
011D30: 77 41 78 69 73 28 30 2C 30 2C 30 2C 30 2C 30 2C wAxis(0,0,0,0,0,
011D40: 30 2C 30 2C 30 2C 66 61 6C 73 65 29 3B 0D 0A 20 0,0,0,false);..
011D50: 20 78 44 72 61 77 50 6F 6C 79 67 6F 6E 28 61 2C xDrawPolygon(a,
011D60: 31 2C 6E 2C 30 2C 30 2C 30 29 3B 0D 0A 0D 0A 20 1,n,0,0,0);....
011D70: 20 64 65 6C 61 79 28 31 35 30 30 30 29 3B 0D 0A delay(15000);..
011D80: 0D 0A 20 20 6D 73 67 28 27 4C 65 73 20 70 6F 69 .. msg('Les poi
011D90: 6E 74 73 20 64 65 20 6C 61 20 73 65 63 6F 6E 64 nts de la second
011DA0: 65 20 66 6F 6E 63 74 69 6F 6E 20 64 61 6E 73 20 e fonction dans
011DB0: 6C 65 20 6D 65 6D 65 20 73 79 73 74 65 6D 65 20 le meme systeme
011DC0: 64 65 20 63 6F 6F 72 64 6F 6E 6E 65 65 73 27 29 de coordonnees')
011DD0: 3B 0D 0A 20 20 78 44 72 61 77 41 78 69 73 28 30 ;.. xDrawAxis(0
011DE0: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 66 ,0,0,0,0,0,0,0,f
011DF0: 61 6C 73 65 29 3B 0D 0A 20 20 78 44 72 61 77 50 alse);.. xDrawP
011E00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
011E10: 0F 00 01 00 02 09 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: 31 20 74 68 65 6E 0D 0A 20 20 20 62 65 67 69 6E 1 then.. begin
011F10: 0D 0A 20 20 20 20 44 72 61 77 4C 69 6E 65 28 78 .. DrawLine(x
011F20: 32 2D 32 2C 79 32 2D 33 2C 78 32 2C 79 32 29 3B 2-2,y2-3,x2,y2);
011F30: 0D 0A 20 20 20 20 44 72 61 77 4C 69 6E 65 28 78 .. DrawLine(x
011F40: 32 2B 32 2C 79 32 2D 33 2C 78 32 2C 79 32 29 3B 2+2,y2-3,x2,y2);
011F50: 0D 0A 20 20 20 65 6E 64 0D 0A 20 20 65 6C 73 65 .. end.. else
011F60: 0D 0A 20 20 20 62 65 67 69 6E 0D 0A 20 20 20 20 .. begin..
011F70: 44 72 61 77 4C 69 6E 65 28 78 32 2D 32 2C 79 32 DrawLine(x2-2,y2
011F80: 2B 33 2C 78 32 2C 79 32 29 3B 0D 0A 20 20 20 20 +3,x2,y2);..
011F90: 44 72 61 77 4C 69 6E 65 28 78 32 2B 32 2C 79 32 DrawLine(x2+2,y2
011FA0: 2B 33 2C 78 32 2C 79 32 29 3B 0D 0A 20 20 20 65 +3,x2,y2);.. e
011FB0: 6E 64 3B 0D 0A 65 6E 64 3B 0D 0A 70 72 6F 63 65 nd;..end;..proce
011FC0: 64 75 72 65 20 62 6C 69 6E 6B 28 63 6F 75 6E 74 dure blink(count
011FD0: 2C 74 69 6D 65 3A 69 6E 74 65 67 65 72 29 3B 0D ,time:integer);.
011FE0: 0A 76 61 72 20 69 3A 69 6E 74 65 67 65 72 3B 0D .var i:integer;.
011FF0: 0A 62 65 67 69 6E 0D 0A 20 20 66 6F 72 20 69 3A .begin.. for i:
012000: 3D 31 20 74 6F 20 63 6F 75 6E 74 20 64 6F 0D 0A =1 to count do..
012010: 20 20 20 62 65 67 69 6E 0D 0A 20 20 20 20 64 65 begin.. de
012020: 6C 61 79 28 74 69 6D 65 29 3B 0D 0A 20 20 20 20 lay(time);..
012030: 49 6E 76 65 72 74 57 69 6E 64 6F 77 3B 0D 0A 20 InvertWindow;..
012040: 20 20 65 6E 64 3B 0D 0A 65 6E 64 3B 0D 0A 0D 0A end;..end;....
012050: 62 65 67 69 6E 0D 0A 20 20 44 65 66 69 6E 65 57 begin.. DefineW
012060: 69 6E 64 6F 77 49 42 4D 28 31 2C 30 2C 30 2C 37 indowIBM(1,0,0,7
012070: 39 2C 31 38 35 29 3B 0D 0A 20 20 44 65 66 69 6E 9,185);.. Defin
012080: 65 57 69 6E 64 6F 77 49 42 4D 28 32 2C 31 32 2C eWindowIBM(2,12,
012090: 32 30 2C 32 35 2C 34 30 29 3B 0D 0A 20 20 44 65 20,25,40);.. De
0120A0: 66 69 6E 65 57 69 6E 64 6F 77 49 42 4D 28 33 2C fineWindowIBM(3,
0120B0: 31 35 2C 35 35 2C 32 32 2C 37 35 29 3B 0D 0A 20 15,55,22,75);..
0120C0: 20 44 65 66 69 6E 65 57 69 6E 64 6F 77 49 42 4D DefineWindowIBM
0120D0: 28 34 2C 31 31 2C 31 31 30 2C 32 36 2C 31 33 30 (4,11,110,26,130
0120E0: 29 3B 0D 0A 20 20 44 65 66 69 6E 65 57 69 6E 64 );.. DefineWind
0120F0: 6F 77 49 42 4D 28 35 2C 34 37 2C 39 30 2C 35 36 owIBM(5,47,90,56
012100: 63 6F 6E 73 74 20 4D 61 78 43 6F 6E 74 72 6F 6C const MaxControl
012110: 50 6F 69 6E 74 73 3D 37 3B 0D 0A 20 20 20 20 20 Points=7;..
012120: 20 4D 61 78 49 6E 74 50 6F 69 6E 74 73 3D 31 35 MaxIntPoints=15
012130: 3B 0D 0A 76 61 72 20 69 3A 69 6E 74 65 67 65 72 ;..var i:integer
012140: 3B 0D 0A 20 20 20 20 64 75 6D 6D 79 78 2C 64 75 ;.. dummyx,du
012150: 6D 6D 79 79 3A 72 65 61 6C 3B 0D 0A 20 20 20 20 mmyy:real;..
012160: 61 2C 62 3A 50 6C 6F 74 41 72 72 61 79 3B 0D 0A a,b:PlotArray;..
012170: 0D 0A 0D 0A 42 65 67 69 6E 0D 0A 20 20 61 5B 31 ....Begin.. a[1
012180: 2C 31 5D 3A 3D 31 3B 61 5B 32 2C 31 5D 3A 3D 31 ,1]:=1;a[2,1]:=1
012190: 2E 35 3B 61 5B 33 2C 31 5D 3A 3D 32 3B 61 5B 34 .5;a[3,1]:=2;a[4
0121A0: 2C 31 5D 3A 3D 32 2E 35 3B 61 5B 35 2C 31 5D 3A ,1]:=2.5;a[5,1]:
0121B0: 3D 33 3B 61 5B 36 2C 31 5D 3A 3D 34 3B 61 5B 37 =3;a[6,1]:=4;a[7
0121C0: 2C 31 5D 3A 3D 35 3B 0D 0A 20 20 61 5B 31 2C 32 ,1]:=5;.. a[1,2
0121D0: 5D 3A 3D 32 3B 61 5B 32 2C 32 5D 3A 3D 31 2E 35 ]:=2;a[2,2]:=1.5
0121E0: 3B 61 5B 33 2C 32 5D 3A 3D 31 3B 61 5B 34 2C 32 ;a[3,2]:=1;a[4,2
0121F0: 5D 3A 3D 32 2E 35 3B 61 5B 35 2C 32 5D 3A 3D 34 ]:=2.5;a[5,2]:=4
012200: 3B 61 5B 36 2C 32 5D 3A 3D 34 2E 35 3B 61 5B 37 ;a[6,2]:=4.5;a[7
012210: 2C 32 5D 3A 3D 35 3B 0D 0A 20 20 43 6C 65 61 72 ,2]:=5;.. Clear
012220: 53 63 72 65 65 6E 3B 0D 0A 20 20 53 65 74 43 6F Screen;.. SetCo
012230: 6C 6F 72 57 68 69 74 65 3B 0D 0A 20 20 44 65 66 lorWhite;.. Def
012240: 69 6E 65 57 6F 72 6C 64 28 31 2C 30 2C 36 2C 36 ineWorld(1,0,6,6
012250: 2C 30 29 3B 0D 0A 20 20 53 65 6C 65 63 74 57 6F ,0);.. SelectWo
012260: 72 6C 64 28 31 29 3B 0D 0A 20 20 44 65 66 69 6E rld(1);.. Defin
012270: 65 57 69 6E 64 6F 77 49 42 4D 28 31 2C 30 2C 30 eWindowIBM(1,0,0
012280: 2C 37 39 2C 31 37 30 29 3B 0D 0A 20 20 53 65 6C ,79,170);.. Sel
012290: 65 63 74 57 69 6E 64 6F 77 28 31 29 3B 0D 0A 20 ectWindow(1);..
0122A0: 20 53 65 74 42 61 63 6B 67 72 6F 75 6E 64 28 30 SetBackground(0
0122B0: 29 3B 0D 0A 20 20 44 65 66 69 6E 65 48 65 61 64 );.. DefineHead
0122C0: 65 72 28 31 2C 27 55 6E 65 20 64 65 6D 6F 6E 73 er(1,'Une demons
0122D0: 74 72 61 74 69 6F 6E 20 64 65 20 6D 6F 64 65 6C tration de model
0122E0: 69 73 61 74 69 6F 6E 20 64 65 20 67 72 61 70 68 isation de graph
0122F0: 69 73 6D 65 20 27 29 3B 0D 0A 20 20 44 72 61 77 isme ');.. Draw
012300: 2C 31 31 30 29 3B 0D 0A 0D 0A 20 20 44 65 66 69 ,110);.... Defi
012310: 6E 65 48 65 61 64 65 72 28 31 2C 27 55 6E 20 6F neHeader(1,'Un o
012320: 72 67 61 6E 69 67 72 61 6D 6D 65 27 29 3B 0D 0A rganigramme');..
012330: 20 20 53 65 74 43 6F 6C 6F 72 57 68 69 74 65 3B SetColorWhite;
012340: 0D 0A 20 20 53 65 74 48 65 61 64 65 72 4F 6E 3B .. SetHeaderOn;
012350: 0D 0A 20 20 53 65 6C 65 63 74 57 69 6E 64 6F 77 .. SelectWindow
012360: 28 31 29 3B 0D 0A 20 20 44 72 61 77 42 6F 72 64 (1);.. DrawBord
012370: 65 72 3B 0D 0A 20 20 53 65 74 48 65 61 64 65 72 er;.. SetHeader
012380: 4F 66 66 3B 0D 0A 0D 0A 20 20 53 65 6C 65 63 74 Off;.... Select
012390: 57 69 6E 64 6F 77 28 32 29 3B 0D 0A 20 20 44 72 Window(2);.. Dr
0123A0: 61 77 42 6F 72 64 65 72 3B 0D 0A 20 20 53 65 6C awBorder;.. Sel
0123B0: 65 63 74 49 42 4D 3B 0D 0A 20 20 44 72 61 77 54 ectIBM;.. DrawT
0123C0: 65 78 74 57 28 31 32 35 2C 32 37 2C 32 2C 27 44 extW(125,27,2,'D
0123D0: 65 62 75 74 27 29 3B 0D 0A 20 20 44 72 61 77 41 ebut');.. DrawA
0123E0: 72 72 6F 77 56 65 72 28 31 35 31 2C 34 30 2C 31 rrowVer(151,40,1
0123F0: 35 31 2C 35 35 29 3B 0D 0A 0D 0A 20 20 53 65 6C 51,55);.... Sel
012400: 65 63 74 57 69 6E 64 6F 77 28 33 29 3B 0D 0A 20 ectWindow(3);..
012410: 20 44 72 61 77 42 6F 72 64 65 72 3B 0D 0A 20 20 DrawBorder;..
012420: 53 65 6C 65 63 74 49 42 4D 3B 0D 0A 20 20 44 72 SelectIBM;.. Dr
012430: 61 77 54 65 78 74 57 28 31 33 36 2C 36 33 2C 32 awTextW(136,63,2
012440: 2C 27 49 3D 31 27 29 3B 0D 0A 20 20 44 72 61 77 ,'I=1');.. Draw
012450: 41 72 72 6F 77 56 65 72 28 31 35 31 2C 37 35 2C ArrowVer(151,75,
012460: 31 35 31 2C 31 31 30 29 3B 0D 0A 0D 0A 20 20 53 151,110);.... S
012470: 65 6C 65 63 74 57 69 6E 64 6F 77 28 34 29 3B 0D electWindow(4);.
012480: 0A 20 20 44 72 61 77 42 6F 72 64 65 72 3B 0D 0A . DrawBorder;..
012490: 20 20 53 65 6C 65 63 74 49 42 4D 3B 0D 0A 20 20 SelectIBM;..
0124A0: 44 72 61 77 54 65 78 74 57 28 31 30 38 2C 31 31 DrawTextW(108,11
0124B0: 38 2C 32 2C 27 49 66 20 49 3C 3D 35 27 29 3B 0D 8,2,'If I<=5');.
0124C0: 0A 20 20 44 72 61 77 4C 69 6E 65 28 32 31 35 2C . DrawLine(215,
0124D0: 31 32 30 2C 34 31 37 2C 31 32 30 29 3B 0D 0A 20 120,417,120);..
0124E0: 20 44 72 61 77 41 72 72 6F 77 56 65 72 28 34 31 DrawArrowVer(41
0124F0: 37 2C 31 32 30 2C 34 31 37 2C 31 31 30 29 3B 0D 7,120,417,110);.
012500: 42 6F 72 64 65 72 3B 0D 0A 20 20 72 65 70 65 61 Border;.. repea
012510: 74 0D 0A 20 20 20 20 53 65 74 4C 69 6E 65 73 74 t.. SetLinest
012520: 79 6C 65 28 31 29 3B 0D 0A 20 20 20 20 78 44 72 yle(1);.. xDr
012530: 61 77 50 6F 6C 79 67 6F 6E 28 61 2C 31 2C 4D 61 awPolygon(a,1,Ma
012540: 78 43 6F 6E 74 72 6F 6C 50 6F 69 6E 74 73 2C 34 xControlPoints,4
012550: 2C 32 2C 30 29 3B 0D 0A 20 20 20 20 78 62 65 7A ,2,0);.. xbez
012560: 69 65 72 28 61 2C 4D 61 78 43 6F 6E 74 72 6F 6C ier(a,MaxControl
012570: 50 6F 69 6E 74 73 2C 62 2C 4D 61 78 49 6E 74 50 Points,b,MaxIntP
012580: 6F 69 6E 74 73 29 3B 0D 0A 20 20 20 20 53 65 74 oints);.. Set
012590: 4C 69 6E 65 73 74 79 6C 65 28 30 29 3B 0D 0A 20 Linestyle(0);..
0125A0: 20 20 20 78 44 72 61 77 50 6F 6C 79 67 6F 6E 28 xDrawPolygon(
0125B0: 62 2C 31 2C 4D 61 78 49 6E 74 50 6F 69 6E 74 73 b,1,MaxIntPoints
0125C0: 2C 30 2C 30 2C 30 29 3B 0D 0A 20 20 20 20 72 65 ,0,0,0);.. re
0125D0: 70 65 61 74 0D 0A 20 20 20 20 20 20 43 6C 65 61 peat.. Clea
0125E0: 72 45 6F 6C 28 32 33 29 3B 0D 0A 20 20 20 20 20 rEol(23);..
0125F0: 20 67 6F 74 6F 78 79 28 31 2C 32 33 29 3B 0D 0A gotoxy(1,23);..
012600: 20 20 20 20 20 20 77 72 69 74 65 28 27 45 6E 74 write('Ent
012610: 72 65 7A 20 6C 65 20 6E 6F 6D 62 72 65 20 64 65 rez le nombre de
012620: 20 70 6F 69 6E 74 20 61 20 63 68 61 6E 67 65 72 point a changer
012630: 20 3A 27 29 3B 0D 0A 20 20 20 20 20 20 69 3A 3D :');.. i:=
012640: 30 3B 0D 0A 20 20 20 20 20 20 7B 24 49 2D 7D 20 0;.. {$I-}
012650: 72 65 61 64 28 69 29 3B 20 7B 24 49 2B 7D 0D 0A read(i); {$I+}..
012660: 20 20 20 20 20 20 69 66 20 49 4F 52 65 73 75 6C if IOResul
012670: 74 3C 3E 30 20 74 68 65 6E 20 69 3A 3D 30 3B 0D t<>0 then i:=0;.
012680: 0A 20 20 20 20 75 6E 74 69 6C 20 69 20 69 6E 20 . until i in
012690: 5B 30 2E 2E 4D 61 78 43 6F 6E 74 72 6F 6C 50 6F [0..MaxControlPo
0126A0: 69 6E 74 73 5D 3B 0D 0A 20 20 20 20 69 66 20 69 ints];.. if i
0126B0: 3E 30 20 74 68 65 6E 0D 0A 20 20 20 20 20 20 62 >0 then.. b
0126C0: 65 67 69 6E 0D 0A 20 20 20 20 20 20 20 20 72 65 egin.. re
0126D0: 70 65 61 74 0D 0A 20 20 20 20 20 20 20 20 20 20 peat..
0126E0: 67 6F 74 6F 78 79 28 31 2C 32 34 29 3B 0D 0A 20 gotoxy(1,24);..
0126F0: 20 20 20 20 20 20 20 20 20 63 6C 72 65 6F 6C 3B clreol;
012700: 0A 20 20 44 72 61 77 41 72 72 6F 77 56 65 72 28 . DrawArrowVer(
012710: 31 35 31 2C 31 33 30 2C 31 35 31 2C 31 35 35 29 151,130,151,155)
012720: 3B 0D 0A 20 20 53 65 6C 65 63 74 49 42 4D 3B 0D ;.. SelectIBM;.
012730: 0A 20 20 44 72 61 77 54 65 78 74 57 28 33 30 30 . DrawTextW(300
012740: 2C 31 31 30 2C 32 2C 27 4F 55 49 27 29 3B 0D 0A ,110,2,'OUI');..
012750: 20 20 44 72 61 77 54 65 78 74 57 28 31 36 30 2C DrawTextW(160,
012760: 31 33 37 2C 32 2C 27 4E 4F 4E 27 29 3B 0D 0A 0D 137,2,'NON');...
012770: 0A 20 20 53 65 6C 65 63 74 57 69 6E 64 6F 77 28 . SelectWindow(
012780: 35 29 3B 0D 0A 20 20 44 72 61 77 42 6F 72 64 65 5);.. DrawBorde
012790: 72 3B 0D 0A 20 20 53 65 6C 65 63 74 49 42 4D 3B r;.. SelectIBM;
0127A0: 0D 0A 20 20 44 72 61 77 54 65 78 74 57 28 33 39 .. DrawTextW(39
0127B0: 30 2C 39 38 2C 32 2C 27 49 3D 49 2B 31 27 29 3B 0,98,2,'I=I+1');
0127C0: 0D 0A 20 20 44 72 61 77 4C 69 6E 65 28 34 31 37 .. DrawLine(417
0127D0: 2C 38 30 2C 34 31 37 2C 39 30 29 3B 0D 0A 20 20 ,80,417,90);..
0127E0: 44 72 61 77 41 72 72 6F 77 48 6F 72 28 34 31 37 DrawArrowHor(417
0127F0: 2C 38 30 2C 31 35 31 2C 38 30 29 3B 0D 0A 20 20 ,80,151,80);..
012800: 44 72 61 77 43 69 72 63 6C 65 28 31 35 31 2C 31 DrawCircle(151,1
012810: 36 35 2C 30 2E 32 35 29 3B 0D 0A 20 20 44 72 61 65,0.25);.. Dra
012820: 77 54 65 78 74 57 28 31 33 37 2C 31 36 33 2C 32 wTextW(137,163,2
012830: 2C 27 46 69 6E 27 29 3B 0D 0A 20 20 53 65 74 48 ,'Fin');.. SetH
012840: 65 61 64 65 72 4F 6E 3B 0D 0A 0D 0A 20 20 43 6F eaderOn;.... Co
012850: 70 79 53 63 72 65 65 6E 3B 0D 0A 0D 0A 20 20 43 pyScreen;.... C
012860: 6C 65 61 72 45 6F 6C 28 32 35 29 3B 0D 0A 20 20 learEol(25);..
012870: 67 6F 74 6F 78 79 28 32 37 2C 32 35 29 3B 0D 0A gotoxy(27,25);..
012880: 0D 0A 20 20 44 65 66 69 6E 65 57 69 6E 64 6F 77 .. DefineWindow
012890: 49 42 4D 28 32 2C 31 35 2C 32 31 2C 32 32 2C 33 IBM(2,15,21,22,3
0128A0: 39 29 3B 0D 0A 20 20 20 20 53 65 6C 65 63 74 57 9);.. SelectW
0128B0: 69 6E 64 6F 77 28 32 29 3B 0D 0A 20 20 20 20 53 indow(2);.. S
0128C0: 65 74 42 61 63 6B 67 72 6F 75 6E 64 28 30 29 3B etBackground(0);
0128D0: 0D 0A 20 20 20 20 44 72 61 77 42 6F 72 64 65 72 .. DrawBorder
0128E0: 3B 0D 0A 20 20 20 20 49 6E 76 65 72 74 57 69 6E ;.. InvertWin
0128F0: 64 6F 77 3B 0D 0A 20 20 20 20 64 65 6C 61 79 28 dow;.. delay(
012900: 0D 0A 20 20 20 20 20 20 20 20 20 20 77 72 69 74 .. writ
012910: 65 28 27 41 6E 63 69 65 6E 6E 65 20 70 6F 73 69 e('Ancienne posi
012920: 74 69 6F 6E 20 3A 20 5B 27 2C 61 5B 69 2C 31 5D tion : [',a[i,1]
012930: 3A 34 3A 32 2C 27 2C 27 2C 61 5B 69 2C 32 5D 3A :4:2,',',a[i,2]:
012940: 34 3A 32 2C 27 5D 27 29 3B 0D 0A 20 20 20 20 20 4:2,']');..
012950: 20 20 20 20 20 64 75 6D 6D 79 78 3A 3D 61 5B 69 dummyx:=a[i
012960: 2C 31 5D 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 ,1];..
012970: 64 75 6D 6D 79 79 3A 3D 61 5B 69 2C 32 5D 3B 0D dummyy:=a[i,2];.
012980: 0A 20 20 20 20 20 20 20 20 20 20 72 65 70 65 61 . repea
012990: 74 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 67 t.. g
0129A0: 6F 74 6F 78 79 28 34 30 2C 32 34 29 3B 0D 0A 20 otoxy(40,24);..
0129B0: 20 20 20 20 20 20 20 20 20 20 20 63 6C 72 65 6F clreo
0129C0: 6C 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 l;..
0129D0: 77 72 69 74 65 28 27 20 20 20 4E 6F 75 76 65 6C write(' Nouvel
0129E0: 6C 65 20 50 6F 73 69 74 69 6F 6E 20 20 78 3A 20 le Position x:
0129F0: 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 ');..
012A00: 20 7B 24 49 2D 7D 20 72 65 61 64 28 64 75 6D 6D {$I-} read(dumm
012A10: 79 78 29 3B 20 7B 24 49 2B 7D 0D 0A 20 20 20 20 yx); {$I+}..
012A20: 20 20 20 20 20 20 75 6E 74 69 6C 20 49 4F 52 65 until IORe
012A30: 73 75 6C 74 3D 30 3B 0D 0A 20 20 20 20 20 20 20 sult=0;..
012A40: 20 20 20 72 65 70 65 61 74 0D 0A 20 20 20 20 20 repeat..
012A50: 20 20 20 20 20 20 20 67 6F 74 6F 78 79 28 34 30 gotoxy(40
012A60: 2C 32 35 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 ,25);..
012A70: 20 20 20 63 6C 72 65 6F 6C 3B 0D 0A 20 20 20 20 clreol;..
012A80: 20 20 20 20 20 20 20 20 77 72 69 74 65 28 27 20 write('
012A90: 20 20 4E 6F 75 76 65 6C 6C 65 20 50 6F 73 69 74 Nouvelle Posit
012AA0: 69 6F 6E 20 20 79 3A 20 27 29 3B 0D 0A 20 20 20 ion y: ');..
012AB0: 20 20 20 20 20 20 20 20 20 7B 24 49 2D 7D 20 72 {$I-} r
012AC0: 65 61 64 28 64 75 6D 6D 79 79 29 3B 20 7B 24 49 ead(dummyy); {$I
012AD0: 2B 7D 0D 0A 20 20 20 20 20 20 20 20 20 20 75 6E +}.. un
012AE0: 74 69 6C 20 49 4F 52 65 73 75 6C 74 3D 30 3B 0D til IOResult=0;.
012AF0: 0A 20 20 20 20 20 20 20 20 75 6E 74 69 6C 20 28 . until (
012B00: 31 30 30 30 29 3B 0D 0A 20 20 20 20 49 6E 76 65 1000);.. Inve
012B10: 72 74 57 69 6E 64 6F 77 3B 0D 0A 20 20 20 20 4D rtWindow;.. M
012B20: 6F 76 65 56 65 72 49 42 4D 28 33 35 2C 74 72 75 oveVerIBM(35,tru
012B30: 65 29 3B 0D 0A 20 20 20 20 53 65 6C 65 63 74 49 e);.. SelectI
012B40: 42 4D 3B 0D 0A 20 20 20 20 44 72 61 77 54 65 78 BM;.. DrawTex
012B50: 74 57 28 31 33 39 2C 36 33 2C 32 2C 27 49 3D 31 tW(139,63,2,'I=1
012B60: 27 29 3B 0D 0A 20 20 20 20 53 65 6C 65 63 74 57 ');.. SelectW
012B70: 69 6E 64 6F 77 28 32 29 3B 0D 0A 20 20 20 20 62 indow(2);.. b
012B80: 6C 69 6E 6B 28 33 30 2C 35 30 29 3B 0D 0A 20 20 link(30,50);..
012B90: 20 20 4D 6F 76 65 56 65 72 49 42 4D 28 35 35 2C MoveVerIBM(55,
012BA0: 74 72 75 65 29 3B 0D 0A 20 20 20 20 66 6F 72 20 true);.. for
012BB0: 63 6F 75 6E 74 3A 3D 32 20 74 6F 20 36 20 64 6F count:=2 to 6 do
012BC0: 0D 0A 20 20 20 20 62 65 67 69 6E 0D 0A 20 20 20 .. begin..
012BD0: 20 20 20 64 65 6C 61 79 28 35 30 30 29 3B 0D 0A delay(500);..
012BE0: 20 20 20 20 20 20 4D 6F 76 65 48 6F 72 49 42 4D MoveHorIBM
012BF0: 28 33 33 2C 74 72 75 65 29 3B 0D 0A 20 20 20 20 (33,true);..
012C00: 20 20 4D 6F 76 65 56 65 72 49 42 4D 28 2D 32 30 MoveVerIBM(-20
012C10: 2C 74 72 75 65 29 3B 0D 0A 20 20 20 20 20 20 53 ,true);.. S
012C20: 65 74 42 61 63 6B 67 72 6F 75 6E 64 28 30 29 3B etBackground(0);
012C30: 0D 0A 20 20 20 20 20 20 44 72 61 77 42 6F 72 64 .. DrawBord
012C40: 65 72 3B 0D 0A 20 20 20 20 20 20 53 65 6C 65 63 er;.. Selec
012C50: 74 49 42 4D 3B 0D 0A 20 20 20 20 20 20 44 72 61 tIBM;.. Dra
012C60: 77 54 65 78 74 57 28 34 30 30 2C 39 38 2C 32 2C wTextW(400,98,2,
012C70: 27 49 3D 27 2B 63 68 72 28 34 38 2B 63 6F 75 6E 'I='+chr(48+coun
012C80: 74 29 29 3B 0D 0A 20 20 20 20 20 20 53 65 6C 65 t));.. Sele
012C90: 63 74 57 69 6E 64 6F 77 28 32 29 3B 0D 0A 20 20 ctWindow(2);..
012CA0: 20 20 20 20 62 6C 69 6E 6B 28 33 30 2C 35 30 29 blink(30,50)
012CB0: 3B 0D 0A 20 20 20 20 20 20 4D 6F 76 65 56 65 72 ;.. MoveVer
012CC0: 49 42 4D 28 2D 32 30 2C 74 72 75 65 29 3B 0D 0A IBM(-20,true);..
012CD0: 20 20 20 20 20 20 4D 6F 76 65 48 6F 72 49 42 4D MoveHorIBM
012CE0: 28 2D 33 33 2C 74 72 75 65 29 3B 0D 0A 20 20 20 (-33,true);..
012CF0: 20 20 20 4D 6F 76 65 56 65 72 49 42 4D 28 34 30 MoveVerIBM(40
012D00: 28 64 75 6D 6D 79 78 3E 3D 58 31 57 6C 64 47 6C (dummyx>=X1WldGl
012D10: 62 29 20 61 6E 64 20 28 64 75 6D 6D 79 78 3C 3D b) and (dummyx<=
012D20: 58 32 57 6C 64 47 6C 62 29 29 20 61 6E 64 20 28 X2WldGlb)) and (
012D30: 28 64 75 6D 6D 79 79 3E 3D 59 31 57 6C 64 47 6C (dummyy>=Y1WldGl
012D40: 62 29 20 61 6E 64 20 28 64 75 6D 6D 79 79 3C 3D b) and (dummyy<=
012D50: 59 32 57 6C 64 47 6C 62 29 29 3B 0D 0A 20 20 20 Y2WldGlb));..
012D60: 20 20 20 20 20 53 65 74 4C 69 6E 65 73 74 79 6C SetLinestyl
012D70: 65 28 31 29 3B 0D 0A 20 20 20 20 20 20 20 20 53 e(1);.. S
012D80: 65 74 43 6F 6C 6F 72 42 6C 61 63 6B 3B 0D 0A 20 etColorBlack;..
012D90: 20 20 20 20 20 20 20 78 44 72 61 77 50 6F 6C 79 xDrawPoly
012DA0: 67 6F 6E 28 61 2C 31 2C 4D 61 78 43 6F 6E 74 72 gon(a,1,MaxContr
012DB0: 6F 6C 50 6F 69 6E 74 73 2C 34 2C 32 2C 30 29 3B olPoints,4,2,0);
012DC0: 0D 0A 20 20 20 20 20 20 20 20 53 65 74 4C 69 6E .. SetLin
012DD0: 65 73 74 79 6C 65 28 30 29 3B 0D 0A 20 20 20 20 estyle(0);..
012DE0: 20 20 20 20 78 44 72 61 77 50 6F 6C 79 67 6F 6E xDrawPolygon
012DF0: 28 62 2C 31 2C 4D 61 78 49 6E 74 50 6F 69 6E 74 (b,1,MaxIntPoint
012E00: 73 2C 30 2C 30 2C 30 29 3B 0D 0A 20 20 20 20 20 s,0,0,0);..
012E10: 20 20 20 61 5B 69 2C 31 5D 3A 3D 64 75 6D 6D 79 a[i,1]:=dummy
012E20: 78 3B 0D 0A 20 20 20 20 20 20 20 20 61 5B 69 2C x;.. a[i,
012E30: 32 5D 3A 3D 64 75 6D 6D 79 79 3B 0D 0A 20 20 20 2]:=dummyy;..
012E40: 20 20 20 20 20 53 65 74 43 6F 6C 6F 72 57 68 69 SetColorWhi
012E50: 74 65 3B 0D 0A 20 20 20 20 20 20 45 6E 64 3B 0D te;.. End;.
012E60: 0A 20 20 75 6E 74 69 6C 20 69 3D 30 3B 0D 0A 0D . until i=0;...
012E70: 0A 65 6E 64 3B 0D 0A 0D 0A 1A 1A 1A 1A 1A 1A 1A .end;...........
012E80: 20 20 20 20 20 20 20 20 77 72 69 74 65 28 27 20 write('
012E90: 20 20 4E 6F 75 76 65 6C 6C 65 20 50 6F 73 69 74 Nouvelle Posit
012EA0: 69 6F 6E 20 20 79 3A 20 27 29 3B 0D 0A 20 20 20 ion y: ');..
012EB0: 20 20 20 20 20 20 20 20 20 7B 24 49 2D 7D 20 72 {$I-} r
012EC0: 65 61 64 28 64 75 6D 6D 79 79 29 3B 20 7B 24 49 ead(dummyy); {$I
012ED0: 2B 7D 0D 0A 20 20 20 20 20 20 20 20 20 20 75 6E +}.. un
012EE0: 74 69 6C 20 49 4F 52 65 73 75 6C 74 3D 30 3B 0D til IOResult=0;.
012EF0: 0A 20 20 20 20 20 20 20 20 75 6E 74 69 6C 20 28 . until (
012F00: 2C 74 72 75 65 29 3B 0D 0A 20 20 20 20 65 6E 64 ,true);.. end
012F10: 3B 0D 0A 20 20 20 20 49 6E 76 65 72 74 57 69 6E ;.. InvertWin
012F20: 64 6F 77 3B 0D 0A 20 20 20 20 64 65 6C 61 79 28 dow;.. delay(
012F30: 31 30 30 30 29 3B 0D 0A 20 20 20 20 4D 6F 76 65 1000);.. Move
012F40: 56 65 72 49 42 4D 28 34 36 2C 74 72 75 65 29 3B VerIBM(46,true);
012F50: 0D 0A 20 20 20 20 62 6C 69 6E 6B 28 33 30 2C 35 .. blink(30,5
012F60: 30 29 3B 0D 0A 20 20 20 20 4D 6F 76 65 48 6F 72 0);.. MoveHor
012F70: 49 42 4D 28 34 35 2C 74 72 75 65 29 3B 0D 0A 20 IBM(45,true);..
012F80: 20 20 20 4D 6F 76 65 56 65 72 49 42 4D 28 2D 31 MoveVerIBM(-1
012F90: 33 36 2C 74 72 75 65 29 3B 0D 0A 20 20 20 20 4D 36,true);.. M
012FA0: 6F 76 65 48 6F 72 49 42 4D 28 2D 34 35 2C 74 72 oveHorIBM(-45,tr
012FB0: 75 65 29 3B 0D 0A 20 20 20 20 53 65 74 48 65 61 ue);.. SetHea
012FC0: 64 65 72 4F 6E 3B 0D 0A 0D 0A 65 6E 64 3B 0D 0A derOn;....end;..
012FD0: 0D 0A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
012FE0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
012FF0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
013000: 20 20 4D 6F 76 65 56 65 72 49 42 4D 28 2D 32 30 MoveVerIBM(-20
013010: 2C 74 72 75 65 29 3B 0D 0A 20 20 20 20 20 20 53 ,true);.. S
013020: 65 74 42 61 63 6B 67 72 6F 75 6E 64 28 30 29 3B etBackground(0);
013030: 0D 0A 20 20 20 20 20 20 44 72 61 77 42 6F 72 64 .. DrawBord
013040: 65 72 3B 0D 0A 20 20 20 20 20 20 53 65 6C 65 63 er;.. Selec
013050: 74 49 42 4D 3B 0D 0A 20 20 20 20 20 20 44 72 61 tIBM;.. Dra
013060: 77 54 65 78 74 57 28 34 30 30 2C 39 38 2C 32 2C wTextW(400,98,2,
013070: 27 49 3D 27 2B 63 68 72 28 34 38 2B 63 6F 75 6E 'I='+chr(48+coun
013080: 74 29 29 3B 0D 0A 20 20 20 20 20 20 53 65 6C 65 t));.. Sele
013090: 63 74 57 69 6E 64 6F 77 28 32 29 3B 0D 0A 20 20 ctWindow(2);..
0130A0: 20 20 20 20 62 6C 69 6E 6B 28 33 30 2C 35 30 29 blink(30,50)
0130B0: 3B 0D 0A 20 20 20 20 20 20 4D 6F 76 65 56 65 72 ;.. MoveVer
0130C0: 49 42 4D 28 2D 32 30 2C 74 72 75 65 29 3B 0D 0A IBM(-20,true);..
0130D0: 20 20 20 20 20 20 4D 6F 76 65 48 6F 72 49 42 4D MoveHorIBM
0130E0: 28 2D 33 33 2C 74 72 75 65 29 3B 0D 0A 20 20 20 (-33,true);..
0130F0: 20 20 20 4D 6F 76 65 56 65 72 49 42 4D 28 34 30 MoveVerIBM(40
013100: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
013110: 10 00 01 00 02 09 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: 6F 76 65 72 6C 61 79 20 70 72 6F 63 65 64 75 72 overlay procedur
013210: 65 20 53 69 6D 70 6C 65 49 6E 66 6F 3B 0D 0A 62 e SimpleInfo;..b
013220: 65 67 69 6E 0D 0A 20 20 67 6F 74 6F 78 79 28 32 egin.. gotoxy(2
013230: 30 2C 35 29 3B 0D 0A 20 20 77 72 69 74 65 6C 6E 0,5);.. writeln
013240: 28 27 4C 65 73 20 73 69 6D 70 6C 65 73 20 63 6F ('Les simples co
013250: 6D 6D 61 6E 64 65 73 20 64 65 20 64 65 73 73 69 mmandes de dessi
013260: 6E 27 29 3B 0D 0A 20 20 67 6F 74 6F 78 79 28 31 n');.. gotoxy(1
013270: 30 2C 31 30 29 3B 77 72 69 74 65 28 27 4C 65 20 0,10);write('Le
013280: 6D 6F 79 65 6E 20 6C 65 20 70 6C 75 73 20 73 69 moyen le plus si
013290: 6D 70 6C 65 20 70 6F 75 72 20 70 61 72 76 65 6E mple pour parven
0132A0: 69 72 20 61 20 64 65 73 73 69 6E 65 72 20 65 73 ir a dessiner es
0132B0: 74 20 64 65 20 73 65 27 29 3B 0D 0A 20 20 67 6F t de se');.. go
0132C0: 74 6F 78 79 28 31 30 2C 31 31 29 3B 77 72 69 74 toxy(10,11);writ
0132D0: 65 28 27 72 65 70 72 65 73 65 6E 74 65 72 20 6D e('representer m
0132E0: 65 6E 74 61 6C 65 6D 65 6E 74 20 6C 27 27 69 6D entalement l''im
0132F0: 61 67 65 20 64 75 20 67 72 61 70 68 69 73 6D 65 age du graphisme
013300: 20 64 65 73 69 72 65 2E 27 29 3B 0D 0A 20 20 67 desire.');.. g
013310: 6F 74 6F 78 79 28 31 30 2C 31 32 29 3B 77 72 69 otoxy(10,12);wri
013320: 74 65 28 27 43 65 73 20 63 6F 6D 6D 61 6E 64 65 te('Ces commande
013330: 73 20 73 65 20 72 65 66 65 72 65 72 6F 6E 74 20 s se refereront
013340: 61 20 6C 61 20 66 65 6E 65 74 72 65 20 65 6E 20 a la fenetre en
013350: 63 6F 75 72 73 2E 41 6C 6F 72 73 29 3B 0D 0A 20 cours.Alors);..
013360: 20 67 6F 74 6F 78 79 28 31 30 2C 31 33 29 3B 77 gotoxy(10,13);w
013370: 72 69 74 65 28 27 73 65 75 6C 65 6D 65 6E 74 20 rite('seulement
013380: 76 6F 75 73 20 64 65 73 73 69 6E 65 72 65 7A 20 vous dessinerez
013390: 61 20 6C 27 27 69 6E 74 65 72 69 65 75 72 20 64 a l''interieur d
0133A0: 65 20 63 65 6C 6C 65 2D 63 69 2E 53 69 20 75 6E e celle-ci.Si un
0133B0: 65 20 6F 75 29 3B 0D 0A 20 20 67 6F 74 6F 78 79 e ou);.. gotoxy
0133C0: 28 31 30 2C 31 34 29 3B 77 72 69 74 65 28 27 64 (10,14);write('d
0133D0: 65 73 20 70 61 72 74 69 65 73 20 64 75 20 64 69 es parties du di
0133E0: 61 67 72 61 6D 6D 65 20 76 6F 6E 74 20 61 75 20 agramme vont au
0133F0: 64 65 6C 61 20 64 65 73 20 6C 69 6D 69 74 65 73 dela des limites
013400: 29 3B 77 72 69 74 65 28 27 50 72 6F 63 65 64 75 );write('Procedu
013410: 72 65 20 3A 20 73 70 6C 69 6E 65 28 70 61 72 61 re : spline(para
013420: 6D 65 74 72 65 29 3B 27 29 3B 0D 0A 20 20 67 6F metre);');.. go
013430: 74 6F 78 79 28 31 30 2C 31 33 29 3B 77 72 69 74 toxy(10,13);writ
013440: 65 28 27 43 65 6C 6C 65 2D 63 69 20 63 72 65 65 e('Celle-ci cree
013450: 20 64 65 73 20 6C 69 73 73 61 67 65 20 64 65 20 des lissage de
013460: 63 6F 75 72 62 65 2E 20 27 29 3B 0D 0A 20 20 67 courbe. ');.. g
013470: 6F 74 6F 78 79 28 31 30 2C 31 34 29 3B 77 72 69 otoxy(10,14);wri
013480: 74 65 28 27 44 6F 6E 6E 65 7A 20 75 6E 20 6E 6F te('Donnez un no
013490: 6D 62 72 65 20 64 65 20 63 6F 6C 6F 6E 6E 65 73 mbre de colonnes
0134A0: 2C 64 65 74 65 72 6D 69 6E 65 7A 20 63 65 6C 6C ,determinez cell
0134B0: 65 73 20 64 65 20 64 65 62 75 74 20 65 74 20 64 es de debut et d
0134C0: 65 20 66 69 6E 27 29 3B 0D 0A 20 20 67 6F 74 6F e fin');.. goto
0134D0: 78 79 28 31 30 2C 31 35 29 3B 77 72 69 74 65 28 xy(10,15);write(
0134E0: 27 70 75 69 73 20 6C 65 73 20 70 6F 69 6E 74 73 'puis les points
0134F0: 20 64 65 20 6C 27 27 69 6E 74 65 72 70 6F 6C 61 de l''interpola
013500: 74 69 6F 6E 2C 6C 65 73 20 70 6F 69 6E 74 73 20 tion,les points
013510: 65 6E 74 72 65 20 6C 65 20 64 65 62 75 74 27 29 entre le debut')
013520: 3B 0D 0A 20 20 67 6F 74 6F 78 79 28 31 30 2C 31 ;.. gotoxy(10,1
013530: 36 29 3B 77 72 69 74 65 28 27 65 74 20 6C 61 20 6);write('et la
013540: 66 69 6E 2C 61 70 70 65 6C 6C 65 7A 20 73 70 6C fin,appellez spl
013550: 69 6E 65 2C 63 65 6C 61 20 64 65 73 73 69 6E 65 ine,cela dessine
013560: 72 61 20 6C 65 73 20 70 6F 69 6E 74 73 20 61 76 ra les points av
013570: 65 63 20 6C 27 27 61 69 64 65 27 29 3B 0D 0A 20 ec l''aide');..
013580: 20 67 6F 74 6F 78 79 28 31 30 2C 31 37 29 3B 77 gotoxy(10,17);w
013590: 72 69 74 65 28 27 64 65 20 6C 61 20 70 72 6F 63 rite('de la proc
0135A0: 65 64 75 72 65 20 44 72 61 77 50 6F 6C 79 67 6F edure DrawPolygo
0135B0: 6E 20 2E 27 20 29 3B 0D 0A 20 20 67 6F 74 6F 78 n .' );.. gotox
0135C0: 79 28 31 30 2C 31 38 29 3B 77 72 69 74 65 28 27 y(10,18);write('
0135D0: 44 61 6E 73 20 6C 27 27 65 78 65 6D 70 6C 65 20 Dans l''exemple
0135E0: 73 75 69 76 61 6E 74 20 6C 61 20 64 6F 6E 6E 65 suivant la donne
0135F0: 65 20 28 2A 29 20 73 65 72 61 20 72 65 70 72 65 e (*) sera repre
013600: 20 64 65 20 6C 61 27 29 3B 0D 0A 20 20 67 6F 74 de la');.. got
013610: 6F 78 79 28 31 30 2C 31 35 29 3B 77 72 69 74 65 oxy(10,15);write
013620: 28 27 66 65 6E 65 74 72 65 2C 65 6C 6C 65 73 20 ('fenetre,elles
013630: 6E 65 20 73 65 72 6F 6E 74 20 70 61 73 20 61 66 ne seront pas af
013640: 66 69 63 68 65 65 73 2E 50 6F 75 72 20 66 6F 75 fichees.Pour fou
013650: 72 6E 69 72 20 75 6E 65 20 70 6C 75 73 20 20 27 rnir une plus '
013660: 29 3B 0D 0A 20 20 67 6F 74 6F 78 79 28 31 30 2C );.. gotoxy(10,
013670: 31 36 29 3B 77 72 69 74 65 28 27 67 72 61 6E 64 16);write('grand
013680: 65 20 66 6C 65 78 69 62 69 6C 69 74 65 20 64 27 e flexibilite d'
013690: 27 65 6D 70 6C 6F 69 20 63 65 74 74 65 20 63 61 'emploi cette ca
0136A0: 72 61 63 74 65 72 69 73 74 69 71 75 65 20 70 65 racteristique pe
0136B0: 75 74 20 65 74 72 65 20 61 6E 6E 75 6C 65 65 27 ut etre annulee'
0136C0: 29 3B 0D 0A 20 20 67 6F 74 6F 78 79 28 31 30 2C );.. gotoxy(10,
0136D0: 31 37 29 3B 77 72 69 74 65 28 27 4C 61 20 6D 69 17);write('La mi
0136E0: 73 65 20 61 20 6C 27 27 65 63 68 65 6C 6C 65 20 se a l''echelle
0136F0: 64 27 27 75 6E 20 64 69 61 67 72 61 6D 6D 65 20 d''un diagramme
013700: 65 73 74 20 61 75 73 73 69 20 70 72 69 73 20 65 est aussi pris e
013710: 6E 20 63 68 61 72 67 65 20 27 29 3B 0D 0A 20 20 n charge ');..
013720: 67 6F 74 6F 78 79 28 31 30 2C 31 38 29 3B 77 72 gotoxy(10,18);wr
013730: 69 74 65 28 27 70 61 72 20 54 55 52 42 4F 20 47 ite('par TURBO G
013740: 52 41 50 48 49 58 2E 4E 65 61 6E 6D 6F 69 6E 73 RAPHIX.Neanmoins
013750: 2C 69 6C 20 65 73 74 20 70 6F 73 73 69 62 6C 65 ,il est possible
013760: 20 64 65 20 64 65 73 73 69 6E 65 72 20 64 65 73 de dessiner des
013770: 20 27 29 3B 0D 0A 20 20 67 6F 74 6F 78 79 28 31 ');.. gotoxy(1
013780: 30 2C 31 39 29 3B 77 72 69 74 65 28 27 63 6F 6F 0,19);write('coo
013790: 72 64 6F 6E 6E 65 73 20 73 79 73 74 65 6D 65 20 rdonnes systeme
0137A0: 73 61 6E 73 20 65 66 66 65 63 74 75 65 72 20 64 sans effectuer d
0137B0: 65 73 20 63 61 6C 63 75 6C 73 20 63 6F 6D 70 6C es calculs compl
0137C0: 69 71 75 65 73 2E 29 3B 0D 0A 20 20 67 6F 74 6F iques.);.. goto
0137D0: 78 79 28 31 30 2C 32 30 29 3B 77 72 69 74 65 28 xy(10,20);write(
0137E0: 27 55 6E 20 73 79 73 74 65 6D 65 20 64 65 20 63 'Un systeme de c
0137F0: 6F 6F 72 64 6F 6E 6E 65 65 73 20 73 65 70 61 72 oordonnees separ
013800: 73 65 6E 74 65 65 20 65 6E 20 70 72 65 6D 69 65 sentee en premie
013810: 72 2C 27 29 3B 0D 0A 20 20 67 6F 74 6F 78 79 28 r,');.. gotoxy(
013820: 31 30 2C 31 39 29 3B 77 72 69 74 65 28 27 70 75 10,19);write('pu
013830: 69 73 20 6C 61 20 66 6F 6E 63 74 69 6F 6E 20 73 is la fonction s
013840: 70 6C 69 6E 65 20 61 66 66 69 63 68 65 72 61 20 pline affichera
013850: 35 30 20 70 6F 69 6E 74 73 27 29 3B 0D 0A 20 20 50 points');..
013860: 67 6F 74 6F 78 79 28 31 30 2C 32 31 29 3B 77 72 gotoxy(10,21);wr
013870: 69 74 65 28 27 28 64 72 61 77 6E 20 6C 69 6E 65 ite('(drawn line
013880: 29 27 29 3B 0D 0A 67 6F 74 6F 78 79 28 32 30 2C )');..gotoxy(20,
013890: 32 35 29 3B 0D 0A 20 20 77 61 69 74 72 65 74 75 25);.. waitretu
0138A0: 72 6E 28 36 30 30 30 30 2E 30 29 3B 0D 0A 65 6E rn(60000.0);..en
0138B0: 64 3B 0D 0A 0D 0A 6F 76 65 72 6C 61 79 20 70 72 d;....overlay pr
0138C0: 6F 63 65 64 75 72 65 20 50 69 65 49 6E 66 6F 3B ocedure PieInfo;
0138D0: 0D 0A 62 65 67 69 6E 0D 0A 20 20 67 6F 74 6F 78 ..begin.. gotox
0138E0: 79 28 32 30 2C 35 29 3B 77 72 69 74 65 6C 6E 28 y(20,5);writeln(
0138F0: 27 55 74 69 6C 69 73 61 74 69 6F 6E 20 64 65 73 'Utilisation des
013900: 20 63 61 6D 65 6D 62 65 72 74 73 27 29 3B 0D 0A camemberts');..
013910: 20 20 67 6F 74 6F 78 79 28 31 30 2C 38 29 3B 77 gotoxy(10,8);w
013920: 72 69 74 65 28 27 50 72 6F 63 65 64 75 72 65 20 rite('Procedure
013930: 3A 20 44 72 61 77 43 61 72 74 50 69 65 20 6F 75 : DrawCartPie ou
013940: 20 44 72 61 77 50 6F 6C 61 72 50 69 65 28 70 61 DrawPolarPie(pa
013950: 72 61 6D 65 74 72 65 29 3B 27 29 3B 0D 0A 20 20 rametre);');..
013960: 67 6F 74 6F 78 79 28 31 30 2C 31 30 29 3B 77 72 gotoxy(10,10);wr
013970: 69 74 65 28 27 43 65 6C 6C 65 73 2D 63 69 20 70 ite('Celles-ci p
013980: 65 72 6D 65 74 74 65 6E 74 20 64 65 20 63 72 65 ermettent de cre
013990: 65 72 20 64 65 73 20 63 61 6D 65 6D 62 65 72 74 er des camembert
0139A0: 73 2E 27 29 3B 0D 0A 20 20 67 6F 74 6F 78 79 28 s.');.. gotoxy(
0139B0: 31 30 2C 31 31 29 3B 77 72 69 74 65 28 27 50 6F 10,11);write('Po
0139C0: 75 72 20 75 74 69 6C 69 73 65 72 20 6C 27 27 75 ur utiliser l''u
0139D0: 6E 65 20 64 65 20 63 65 73 20 64 65 72 6E 69 65 ne de ces dernie
0139E0: 72 65 73 2C 64 6F 6E 6E 65 7A 20 6C 65 73 20 63 res,donnez les c
0139F0: 6F 6F 72 64 6F 6E 6E 65 65 73 20 64 75 20 63 65 oordonnees du ce
013A00: 65 65 73 20 70 65 75 74 20 65 74 72 65 20 6E 6F ees peut etre no
013A10: 6D 65 65 20 70 61 72 20 74 6F 75 74 65 73 20 27 mee par toutes '
013A20: 29 3B 0D 0A 20 20 67 6F 74 6F 78 79 28 31 30 2C );.. gotoxy(10,
013A30: 32 31 29 3B 77 72 69 74 65 28 27 6C 65 73 20 66 21);write('les f
013A40: 65 6E 65 74 72 65 73 20 71 75 69 20 6F 6E 74 20 enetres qui ont
013A50: 64 65 6A 61 20 65 74 65 20 64 65 66 69 6E 69 65 deja ete definie
013A60: 73 2E 27 29 3B 0D 0A 20 20 67 6F 74 6F 78 79 28 s.');.. gotoxy(
013A70: 33 31 2C 32 35 29 3B 0D 0A 20 20 77 61 69 74 72 31,25);.. waitr
013A80: 65 74 75 72 6E 28 36 30 30 30 30 2E 30 29 3B 0D eturn(60000.0);.
013A90: 0A 65 6E 64 3B 0D 0A 0D 0A 6F 76 65 72 6C 61 79 .end;....overlay
013AA0: 20 70 72 6F 63 65 64 75 72 65 20 57 69 6E 64 6F procedure Windo
013AB0: 77 44 65 6D 6F 49 6E 66 6F 3B 0D 0A 62 65 67 69 wDemoInfo;..begi
013AC0: 6E 0D 0A 20 20 67 6F 74 6F 78 79 28 32 30 2C 35 n.. gotoxy(20,5
013AD0: 29 3B 0D 0A 20 20 77 72 69 74 65 6C 6E 28 27 4C );.. writeln('L
013AE0: 27 27 75 74 69 6C 69 73 61 74 69 6F 6E 20 64 65 ''utilisation de
013AF0: 20 6C 61 20 66 65 6E 65 74 72 65 27 29 3B 0D 0A la fenetre');..
013B00: 20 20 67 6F 74 6F 78 79 28 31 30 2C 38 29 3B 77 gotoxy(10,8);w
013B10: 72 69 74 65 28 27 41 20 6C 27 27 69 6E 74 65 72 rite('A l''inter
013B20: 69 65 75 72 20 64 65 20 54 55 52 42 4F 20 47 52 ieur de TURBO GR
013B30: 41 50 48 49 58 2C 20 6F 6E 20 70 65 75 74 20 61 APHIX, on peut a
013B40: 66 66 69 63 68 65 72 20 61 75 74 61 6E 74 20 64 fficher autant d
013B50: 65 20 66 65 6E 65 74 72 65 73 27 29 3B 0D 0A 20 e fenetres');..
013B60: 20 67 6F 74 6F 78 79 28 31 30 2C 39 29 3B 77 72 gotoxy(10,9);wr
013B70: 69 74 65 28 27 71 75 65 20 6C 27 27 6F 6E 20 64 ite('que l''on d
013B80: 65 73 69 72 65 20 63 65 6C 6C 65 73 2D 63 69 20 esire celles-ci
013B90: 72 65 70 72 65 73 65 6E 74 65 6E 74 20 6C 61 20 representent la
013BA0: 66 65 75 69 6C 6C 65 20 64 75 20 64 65 73 73 69 feuille du dessi
013BB0: 6E 27 29 3B 0D 0A 20 20 67 6F 74 6F 78 79 28 31 n');.. gotoxy(1
013BC0: 30 2C 31 30 29 3B 77 72 69 74 65 28 27 65 6E 20 0,10);write('en
013BD0: 63 6F 75 72 73 20 71 75 69 20 61 20 65 74 65 20 cours qui a ete
013BE0: 70 72 65 64 65 66 69 6E 69 65 2E 54 6F 75 74 65 predefinie.Toute
013BF0: 73 20 6C 65 73 20 6F 70 65 72 61 74 69 6F 6E 73 s les operations
013C00: 6E 74 72 65 2C 27 29 3B 0D 0A 20 20 67 6F 74 6F ntre,');.. goto
013C10: 78 79 28 31 30 2C 31 32 29 3B 77 72 69 74 65 28 xy(10,12);write(
013C20: 27 6C 65 20 6E 70 6D 62 72 65 20 64 65 20 73 65 'le npmbre de se
013C30: 67 6D 65 6E 74 73 20 61 20 64 65 73 73 69 6E 65 gments a dessine
013C40: 72 2C 6C 65 20 6E 6F 6D 62 72 65 20 74 6F 74 61 r,le nombre tota
013C50: 6C 20 64 65 20 63 65 75 78 2D 63 69 2C 75 6E 20 l de ceux-ci,un
013C60: 27 29 3B 0D 0A 20 20 67 6F 74 6F 78 79 28 31 30 ');.. gotoxy(10
013C70: 2C 31 33 29 3B 77 72 69 74 65 28 63 68 61 6D 70 ,13);write(champ
013C80: 73 20 6E 75 6D 65 72 69 71 75 65 20 65 74 20 75 s numerique et u
013C90: 6E 20 74 65 78 74 65 20 64 65 73 63 72 69 70 74 n texte descript
013CA0: 69 66 2E 53 69 20 76 6F 75 73 20 6C 65 20 64 65 if.Si vous le de
013CB0: 73 69 72 65 7A 2C 6C 65 20 74 65 78 74 65 27 29 sirez,le texte')
013CC0: 3B 0D 0A 20 20 67 6F 74 6F 78 79 28 31 30 2C 31 ;.. gotoxy(10,1
013CD0: 34 29 3B 77 72 69 74 65 28 27 65 74 20 6C 65 73 4);write('et les
013CE0: 20 63 68 69 66 66 72 65 73 20 73 65 72 6F 6E 74 chiffres seront
013CF0: 20 61 66 66 69 63 68 65 73 20 65 6E 73 65 6D 62 affiches ensemb
013D00: 6C 65 20 6F 75 20 73 65 70 61 72 65 6D 65 6E 74 le ou separement
013D10: 2E 20 27 29 3B 0D 0A 20 20 67 6F 74 6F 78 79 28 . ');.. gotoxy(
013D20: 31 30 2C 31 36 29 3B 77 72 69 74 65 28 27 4C 27 10,16);write('L'
013D30: 27 65 78 65 6D 70 6C 65 20 73 75 69 76 61 6E 74 'exemple suivant
013D40: 20 6C 69 73 74 65 20 6C 65 73 20 64 6F 6E 6E 65 liste les donne
013D50: 65 73 20 64 65 20 62 61 73 65 20 64 75 20 64 69 es de base du di
013D60: 61 67 72 61 6D 6D 65 2E 27 29 3B 0D 0A 20 20 67 agramme.');.. g
013D70: 6F 74 6F 78 79 28 31 30 2C 31 37 29 3B 77 72 69 otoxy(10,17);wri
013D80: 74 65 28 27 45 6E 20 6D 65 6D 65 20 74 65 6D 70 te('En meme temp
013D90: 73 2C 75 6E 20 63 61 6D 65 6D 62 65 72 74 20 65 s,un camembert e
013DA0: 73 74 20 64 65 73 73 69 6E 65 2C 20 65 6E 20 61 st dessine, en a
013DB0: 72 72 69 65 72 65 20 70 6C 61 6E 2C 20 73 75 72 rriere plan, sur
013DC0: 20 27 29 3B 0D 0A 20 20 67 6F 74 6F 78 79 28 31 ');.. gotoxy(1
013DD0: 30 2C 31 38 29 3B 77 72 69 74 65 28 27 6C 65 20 0,18);write('le
013DE0: 73 65 63 6F 6E 64 20 65 63 72 61 6E 20 70 75 69 second ecran pui
013DF0: 73 20 65 73 74 20 63 6F 70 69 65 20 73 75 72 20 s est copie sur
013E00: 20 67 72 61 70 68 69 71 75 65 73 27 29 3B 0D 0A graphiques');..
013E10: 20 20 67 6F 74 6F 78 79 28 31 30 2C 31 31 29 3B gotoxy(10,11);
013E20: 77 72 69 74 65 28 27 70 6F 75 72 72 6F 6E 74 20 write('pourront
013E30: 65 74 72 65 20 72 65 61 6C 69 73 65 65 73 20 6E etre realisees n
013E40: 27 27 69 6D 70 6F 72 74 65 20 6F 75 20 73 75 72 ''importe ou sur
013E50: 20 6C 27 27 65 63 72 61 6E 20 65 74 20 65 74 72 l''ecran et etr
013E60: 65 20 63 6F 6D 70 72 69 73 65 73 2C 27 29 3B 0D e comprises,');.
013E70: 0A 20 20 67 6F 74 6F 78 79 28 31 30 2C 31 32 29 . gotoxy(10,12)
013E80: 3B 77 72 69 74 65 28 27 64 61 6E 73 20 75 6E 65 ;write('dans une
013E90: 20 6F 75 20 70 6C 75 73 69 65 75 72 73 20 66 65 ou plusieurs fe
013EA0: 6E 65 74 72 65 73 2C 65 78 61 63 74 65 6D 65 6E netres,exactemen
013EB0: 74 20 64 65 20 6C 61 20 6D 65 6D 65 20 66 61 63 t de la meme fac
013EC0: 6F 6E 27 29 3B 0D 0A 20 20 67 6F 74 6F 78 79 28 on');.. gotoxy(
013ED0: 31 30 2C 31 33 29 3B 77 72 69 74 65 28 27 61 6C 10,13);write('al
013EE0: 6F 72 73 20 6C 65 73 20 64 69 66 66 65 72 65 6E ors les differen
013EF0: 74 65 73 20 6F 70 65 72 61 74 69 6F 6E 73 20 70 tes operations p
013F00: 6F 75 72 72 6F 6E 74 20 65 74 72 65 20 61 66 66 ourront etre aff
013F10: 69 63 68 65 65 73 20 73 75 72 27 29 3B 0D 0A 20 ichees sur');..
013F20: 20 67 6F 74 6F 78 79 28 31 30 2C 31 34 29 3B 77 gotoxy(10,14);w
013F30: 72 69 74 65 28 27 6C 27 27 65 63 72 61 6E 20 64 rite('l''ecran d
013F40: 75 20 66 61 63 6F 6E 20 73 69 6D 70 6C 65 20 65 u facon simple e
013F50: 74 20 63 6C 61 69 72 65 20 27 29 3B 0D 0A 20 20 t claire ');..
013F60: 67 6F 74 6F 78 79 28 31 30 2C 31 35 29 3B 77 72 gotoxy(10,15);wr
013F70: 69 74 65 28 27 47 72 61 63 65 20 61 20 63 65 73 ite('Grace a ces
013F80: 20 63 6F 6D 6D 61 6E 64 65 73 20 73 69 6D 70 6C commandes simpl
013F90: 65 73 2C 6C 65 73 20 66 65 6E 65 74 72 65 73 20 es,les fenetres
013FA0: 70 6F 75 72 72 6F 6E 74 20 65 74 72 65 20 6D 75 pourront etre mu
013FB0: 65 73 20 73 75 72 27 29 3B 0D 0A 20 20 67 6F 74 es sur');.. got
013FC0: 6F 78 79 28 31 30 2C 31 36 29 3B 77 72 69 74 65 oxy(10,16);write
013FD0: 28 27 4C 27 27 65 63 72 61 6E 2C 65 74 20 65 74 ('L''ecran,et et
013FE0: 72 65 20 69 6D 70 72 69 6D 65 65 73 20 64 61 6E re imprimees dan
013FF0: 73 20 6C 61 20 64 65 73 69 72 65 65 2E 43 65 73 s la desiree.Ces
014000: 6C 65 20 70 72 65 6D 69 65 72 20 65 63 72 61 6E le premier ecran
014010: 2E 20 27 29 3B 0D 0A 20 20 67 6F 74 6F 78 79 28 . ');.. gotoxy(
014020: 32 30 2C 32 34 29 3B 0D 0A 20 20 77 61 69 74 72 20,24);.. waitr
014030: 65 74 75 72 6E 28 36 30 30 30 30 2E 30 29 3B 0D eturn(60000.0);.
014040: 0A 65 6E 64 3B 0D 0A 0D 0A 6F 76 65 72 6C 61 79 .end;....overlay
014050: 20 70 72 6F 63 65 64 75 72 65 20 42 65 7A 69 65 procedure Bezie
014060: 72 49 6E 66 6F 3B 0D 0A 62 65 67 69 6E 0D 0A 20 rInfo;..begin..
014070: 20 67 6F 74 6F 78 79 28 31 30 2C 35 29 3B 77 72 gotoxy(10,5);wr
014080: 69 74 65 6C 6E 28 27 55 74 69 6C 69 73 61 74 69 iteln('Utilisati
014090: 6F 6E 20 64 65 20 6C 61 20 66 6F 6E 63 74 69 6F on de la fonctio
0140A0: 6E 20 42 45 5A 49 45 52 20 70 6F 75 72 20 64 65 n BEZIER pour de
0140B0: 73 73 69 6E 65 72 27 29 3B 0D 0A 20 20 67 6F 74 ssiner');.. got
0140C0: 6F 78 79 28 33 2C 38 29 3B 77 72 69 74 65 28 27 oxy(3,8);write('
0140D0: 50 72 6F 63 65 64 75 72 65 20 3A 20 62 65 7A 69 Procedure : bezi
0140E0: 65 72 28 70 61 72 61 6D 65 74 72 65 29 3B 27 29 er(parametre);')
0140F0: 3B 0D 0A 20 20 67 6F 74 6F 78 79 28 33 2C 31 30 ;.. gotoxy(3,10
014100: 29 3B 77 72 69 74 65 28 27 43 65 6C 6C 65 2D 63 );write('Celle-c
014110: 69 20 70 65 72 6D 65 74 20 64 65 20 6C 69 73 73 i permet de liss
014120: 65 72 20 32 20 6F 62 6A 65 74 73 20 64 69 6D 65 er 2 objets dime
014130: 6E 73 69 6F 6E 6E 65 6C 73 20 61 20 70 61 72 74 nsionnels a part
014140: 69 72 20 64 65 73 27 29 3B 0D 0A 20 20 67 6F 74 ir des');.. got
014150: 6F 78 79 28 33 2C 31 31 29 3B 77 72 69 74 65 28 oxy(3,11);write(
014160: 27 70 6F 69 6E 74 73 20 64 6F 6E 6E 65 65 73 20 'points donnees
014170: 70 61 72 20 6C 27 27 75 74 69 6C 69 73 61 74 65 par l''utilisate
014180: 75 72 2E 45 6C 6C 65 20 70 65 75 74 20 65 74 72 ur.Elle peut etr
014190: 65 20 61 75 73 73 69 20 75 74 69 6C 69 73 65 65 e aussi utilisee
0141A0: 27 29 3B 0D 0A 20 20 67 6F 74 6F 78 79 28 33 2C ');.. gotoxy(3,
0141B0: 31 32 29 3B 77 72 69 74 65 28 27 70 6F 75 72 20 12);write('pour
0141C0: 64 65 73 20 63 6F 75 72 62 65 73 20 61 20 6C 61 des courbes a la
0141D0: 72 67 65 20 69 6E 63 75 72 76 61 74 69 6F 6E 20 rge incurvation
0141E0: 65 74 20 66 61 69 72 65 20 63 6F 72 72 65 73 70 et faire corresp
0141F0: 6F 6E 64 72 65 20 64 65 73 2E 27 29 3B 0D 0A 20 ondre des.');..
014200: 20 64 65 72 6E 69 65 72 65 73 27 29 3B 0D 0A 20 dernieres');..
014210: 20 67 6F 74 6F 78 79 28 31 30 2C 31 37 29 3B 77 gotoxy(10,17);w
014220: 72 69 74 65 28 27 70 6F 75 72 72 6F 6E 74 20 65 rite('pourront e
014230: 74 72 65 20 73 74 6F 63 6B 65 65 73 20 64 61 6E tre stockees dan
014240: 73 20 75 6E 65 20 70 61 67 65 20 6D 65 6D 6F 69 s une page memoi
014250: 72 65 2C 71 75 69 20 65 73 74 20 69 6E 64 65 70 re,qui est indep
014260: 65 6E 64 61 6E 74 65 27 29 3B 0D 0A 20 20 67 6F endante');.. go
014270: 74 6F 78 79 28 31 30 2C 31 38 29 3B 77 72 69 74 toxy(10,18);writ
014280: 65 28 27 64 65 20 6C 27 27 65 63 72 61 6E 20 2C e('de l''ecran ,
014290: 65 74 20 61 69 6E 73 69 20 65 6C 6C 65 73 20 73 et ainsi elles s
0142A0: 65 72 6F 6E 74 20 72 61 70 69 64 65 6D 65 6E 74 eront rapidement
0142B0: 20 72 65 73 74 61 75 72 65 65 73 20 6E 27 27 69 restaurees n''i
0142C0: 6D 70 6F 72 74 65 27 29 3B 0D 0A 20 20 67 6F 74 mporte');.. got
0142D0: 6F 78 79 28 31 30 2C 31 39 29 3B 77 72 69 74 65 oxy(10,19);write
0142E0: 28 27 6F 75 20 73 75 72 20 6C 27 27 65 63 72 61 ('ou sur l''ecra
0142F0: 6E 2E 4C 61 20 74 61 69 6C 6C 65 20 64 65 20 6C n.La taille de l
014300: 61 20 70 61 67 65 20 6D 65 6D 6F 69 72 65 20 65 a page memoire e
014310: 73 74 20 6C 69 6D 69 74 65 65 27 29 3B 0D 0A 20 st limitee');..
014320: 20 67 6F 74 6F 78 79 28 31 30 2C 32 30 29 3B 77 gotoxy(10,20);w
014330: 72 69 74 65 28 27 70 61 72 20 63 65 6C 6C 65 20 rite('par celle
014340: 64 65 20 6C 61 20 6D 65 6D 6F 69 72 65 20 70 68 de la memoire ph
014350: 79 73 69 71 75 65 2E 27 29 3B 0D 0A 20 20 67 6F ysique.');.. go
014360: 74 6F 78 79 28 33 31 2C 32 35 29 3B 0D 0A 20 20 toxy(31,25);..
014370: 77 61 69 74 72 65 74 75 72 6E 28 36 30 30 30 30 waitreturn(60000
014380: 2E 30 29 3B 0D 0A 65 6E 64 3B 0D 0A 0D 0A 6F 76 .0);..end;....ov
014390: 65 72 6C 61 79 20 70 72 6F 63 65 64 75 72 65 20 erlay procedure
0143A0: 53 70 6C 69 6E 65 49 6E 66 6F 3B 0D 0A 62 65 67 SplineInfo;..beg
0143B0: 69 6E 0D 0A 20 20 67 6F 74 6F 78 79 28 32 30 2C in.. gotoxy(20,
0143C0: 35 29 3B 77 72 69 74 65 6C 6E 28 27 20 55 74 69 5);writeln(' Uti
0143D0: 6C 69 73 61 74 69 6F 6E 20 64 65 73 20 66 6F 6E lisation des fon
0143E0: 63 74 69 6F 6E 73 20 53 70 6C 69 6E 65 27 29 3B ctions Spline');
0143F0: 0D 0A 20 20 67 6F 74 6F 78 79 28 31 30 2C 31 30 .. gotoxy(10,10
014400: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
014410: 11 00 01 00 02 09 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: 20 67 6F 74 6F 78 79 28 33 2C 31 33 29 3B 77 72 gotoxy(3,13);wr
014510: 69 74 65 28 27 70 6F 6C 79 6E 6F 6D 65 73 20 69 ite('polynomes i
014520: 6E 63 6F 6D 70 61 74 69 62 6C 65 73 27 29 3B 0D ncompatibles');.
014530: 0A 20 20 67 6F 74 6F 78 79 28 33 2C 31 34 29 3B . gotoxy(3,14);
014540: 77 72 69 74 65 28 27 4C 27 27 65 78 65 6D 70 6C write('L''exempl
014550: 65 20 73 75 69 76 61 6E 74 20 64 65 73 73 69 6E e suivant dessin
014560: 65 72 61 20 37 20 70 6F 69 6E 74 73 20 28 6C 65 era 7 points (le
014570: 20 63 61 72 72 65 29 20 65 74 20 6C 65 75 72 20 carre) et leur
014580: 66 6F 6E 63 74 69 6F 6E 27 29 3B 0D 0A 20 20 67 fonction');.. g
014590: 6F 74 6F 78 79 28 33 2C 31 35 29 3B 77 72 69 74 otoxy(3,15);writ
0145A0: 65 28 27 72 65 73 70 65 63 74 69 76 65 20 28 6C e('respective (l
0145B0: 69 67 6E 65 20 64 65 73 73 69 6E 65 65 29 2E 56 igne dessinee).V
0145C0: 6F 75 73 20 70 6F 75 76 65 7A 20 63 68 61 6E 67 ous pouvez chang
0145D0: 65 72 20 6C 61 20 70 6F 73 69 74 69 6F 6E 20 64 er la position d
0145E0: 65 73 20 27 29 3B 0D 0A 20 20 67 6F 74 6F 78 79 es ');.. gotoxy
0145F0: 28 33 2C 31 36 29 3B 77 72 69 74 65 28 27 70 6F (3,16);write('po
014600: 69 6E 74 73 20 65 6E 20 65 6E 74 72 61 6E 74 20 ints en entrant
014610: 6C 65 75 72 20 6E 6F 6D 62 72 65 20 28 31 20 61 leur nombre (1 a
014620: 20 37 29 20 65 74 20 6C 65 75 72 73 20 6E 6F 75 7) et leurs nou
014630: 76 65 6C 6C 65 73 20 63 6F 6F 72 64 6F 6E 6E 65 velles coordonne
014640: 65 73 27 29 3B 0D 0A 20 20 67 6F 74 6F 78 79 28 es');.. gotoxy(
014650: 33 2C 31 37 29 3B 77 72 69 74 65 28 27 4C 61 20 3,17);write('La
014660: 70 72 6F 63 65 64 75 72 65 20 63 72 65 65 72 61 procedure creera
014670: 20 61 6C 6F 72 73 20 6C 65 73 20 66 6F 6E 63 74 alors les fonct
014680: 69 6F 6E 73 20 72 65 73 70 65 63 74 69 76 65 73 ions respectives
014690: 27 29 3B 0D 0A 20 20 67 6F 74 6F 78 79 28 33 2C ');.. gotoxy(3,
0146A0: 31 38 29 3B 77 72 69 74 65 28 27 56 6F 75 73 20 18);write('Vous
0146B0: 70 75 76 65 7A 20 71 75 69 74 74 65 72 20 63 65 puvez quitter ce
0146C0: 20 6D 6F 64 75 6C 65 20 65 6E 20 74 61 70 61 6E module en tapan
0146D0: 74 20 73 75 72 20 52 45 54 4F 55 52 20 76 65 72 t sur RETOUR ver
0146E0: 73 20 6C 65 20 6E 75 6D 65 72 6F 2E 27 29 3B 0D s le numero.');.
0146F0: 0A 20 20 67 6F 74 6F 78 79 28 33 2C 31 39 29 3B . gotoxy(3,19);
014700: 70 72 6F 67 72 61 6D 20 53 63 72 65 65 6E 49 4F program ScreenIO
014710: 3B 0D 0A 0D 0A 7B 24 49 20 74 79 70 65 64 65 66 ;....{$I typedef
014720: 2E 73 79 73 7D 20 20 20 20 20 20 20 20 20 20 20 .sys}
014730: 20 20 20 20 20 20 20 20 20 20 20 20 7B 63 65 73 {ces
014740: 20 66 69 63 68 69 65 72 73 20 64 6F 69 76 65 6E fichiers doiven
014750: 74 20 65 74 72 65 7D 0D 0A 7B 24 49 20 67 72 61 t etre}..{$I gra
014760: 70 68 69 78 2E 73 79 73 7D 20 20 20 20 20 20 20 phix.sys}
014770: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
014780: 7B 69 6E 63 6C 75 73 20 64 61 6E 73 20 63 65 74 {inclus dans cet
014790: 20 6F 72 64 72 65 7D 0D 0A 7B 24 49 20 6B 65 72 ordre}..{$I ker
0147A0: 6E 65 6C 2E 73 79 73 7D 0D 0A 7B 24 49 20 6B 65 nel.sys}..{$I ke
0147B0: 72 6E 65 6C 31 2E 73 79 73 7D 0D 0A 0D 0A 0D 0A rnel1.sys}......
0147C0: 70 72 6F 63 65 64 75 72 65 20 53 69 65 72 70 69 procedure Sierpi
0147D0: 6E 73 6B 69 3B 0D 0A 63 6F 6E 73 74 20 6E 3D 35 nski;..const n=5
0147E0: 3B 0D 0A 76 61 72 20 69 2C 68 2C 78 2C 79 2C 78 ;..var i,h,x,y,x
0147F0: 30 2C 79 30 3A 69 6E 74 65 67 65 72 3B 0D 0A 20 0,y0:integer;..
014800: 20 20 20 73 65 63 3A 62 6F 6F 6C 65 61 6E 3B 0D sec:boolean;.
014810: 0A 0D 0A 70 72 6F 63 65 64 75 72 65 20 70 6C 6F ...procedure plo
014820: 74 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 t;
014830: 20 20 20 20 20 20 20 20 20 20 7B 74 72 61 63 65 {trace
014840: 20 75 6E 65 20 6C 69 67 6E 65 7D 0D 0A 62 65 67 une ligne}..beg
014850: 69 6E 0D 0A 20 20 44 72 61 77 4C 69 6E 65 28 78 in.. DrawLine(x
014860: 2C 79 2C 78 30 2C 79 30 29 3B 0D 0A 20 20 78 30 ,y,x0,y0);.. x0
014870: 3A 3D 78 3B 0D 0A 20 20 79 30 3A 3D 79 3B 0D 0A :=x;.. y0:=y;..
014880: 65 6E 64 3B 0D 0A 0D 0A 7B 24 41 2D 7D 0D 0A 70 end;....{$A-}..p
014890: 72 6F 63 65 64 75 72 65 20 62 28 69 3A 69 6E 74 rocedure b(i:int
0148A0: 65 67 65 72 29 3B 20 66 6F 72 77 61 72 64 3B 20 eger); forward;
0148B0: 20 20 20 20 20 20 7B 66 6F 72 77 61 72 64 20 72 {forward r
0148C0: 65 66 65 72 65 6E 63 65 73 20 70 6F 75 72 20 72 eferences pour r
0148D0: 65 63 75 72 73 69 6F 6E 7D 0D 0A 0D 0A 70 72 6F ecursion}....pro
0148E0: 63 65 64 75 72 65 20 63 28 69 3A 69 6E 74 65 67 cedure c(i:integ
0148F0: 65 72 29 3B 20 66 6F 72 77 61 72 64 3B 0D 0A 0D er); forward;...
014900: 77 72 69 74 65 28 27 64 75 20 70 6F 69 6E 74 20 write('du point
014910: 65 6E 20 71 75 65 73 74 69 6F 6E 2E 27 29 3B 0D en question.');.
014920: 0A 20 20 67 6F 74 6F 78 79 28 32 30 2C 32 35 29 . gotoxy(20,25)
014930: 3B 0D 0A 20 20 77 61 69 74 72 65 74 75 72 6E 28 ;.. waitreturn(
014940: 36 30 30 30 30 2E 30 29 3B 0D 0A 65 6E 64 3B 0D 60000.0);..end;.
014950: 0A 0D 0A 6F 76 65 72 6C 61 79 20 70 72 6F 63 65 ...overlay proce
014960: 64 75 72 65 20 50 6F 6C 79 67 6F 6E 49 6E 66 6F dure PolygonInfo
014970: 3B 0D 0A 62 65 67 69 6E 0D 0A 20 20 67 6F 74 6F ;..begin.. goto
014980: 78 79 28 31 30 2C 35 29 3B 77 72 69 74 65 6C 6E xy(10,5);writeln
014990: 28 27 50 6F 73 73 69 62 69 6C 69 74 65 73 20 64 ('Possibilites d
0149A0: 65 20 64 69 61 67 72 61 6D 6D 65 20 64 65 20 70 e diagramme de p
0149B0: 6F 6C 79 67 6F 6E 65 27 29 3B 0D 0A 20 20 67 6F olygone');.. go
0149C0: 74 6F 78 79 28 33 2C 38 29 3B 77 72 69 74 65 28 toxy(3,8);write(
0149D0: 27 43 6F 6D 6D 61 6E 64 65 20 3A 20 44 72 61 77 'Commande : Draw
0149E0: 50 6F 6C 79 67 6F 6E 28 70 61 72 61 6D 65 74 72 Polygon(parametr
0149F0: 65 29 3B 27 29 3B 0D 0A 20 20 67 6F 74 6F 78 79 e);');.. gotoxy
014A00: 28 33 2C 31 30 29 3B 77 72 69 74 65 28 27 43 65 (3,10);write('Ce
014A10: 74 74 65 20 63 6F 6D 6D 61 6E 64 65 20 65 73 74 tte commande est
014A20: 20 75 74 69 6C 69 73 65 65 20 70 6F 75 72 20 64 utilisee pour d
014A30: 65 73 73 69 6E 65 72 20 6C 65 73 20 70 6F 6C 79 essiner les poly
014A40: 67 6F 6E 65 73 2E 43 65 6C 6C 65 2D 63 69 27 29 gones.Celle-ci')
014A50: 3B 0D 0A 20 20 67 6F 74 6F 78 79 28 33 2C 31 31 ;.. gotoxy(3,11
014A60: 29 3B 77 72 69 74 65 28 27 72 65 6C 69 65 20 6C );write('relie l
014A70: 65 20 73 6F 6D 6D 65 74 20 64 27 27 75 6E 20 70 e sommet d''un p
014A80: 6F 6C 79 67 6F 6E 65 20 61 76 65 63 20 6C 65 73 olygone avec les
014A90: 20 64 69 66 66 65 72 65 6E 74 73 20 74 79 70 65 differents type
014AA0: 73 20 64 65 20 6C 69 67 6E 65 73 27 29 3B 0D 0A s de lignes');..
014AB0: 20 20 67 6F 74 6F 78 79 28 33 2C 31 32 29 3B 77 gotoxy(3,12);w
014AC0: 72 69 74 65 28 27 6D 61 72 71 75 65 20 6C 65 73 rite('marque les
014AD0: 20 63 6F 69 6E 73 20 61 76 65 63 20 64 69 66 66 coins avec diff
014AE0: 65 72 65 6E 74 73 20 73 79 6D 62 6F 6C 65 73 20 erents symboles
014AF0: 74 65 6C 20 71 75 65 20 6C 65 73 20 65 74 6F 69 tel que les etoi
014B00: 0A 70 72 6F 63 65 64 75 72 65 20 64 28 69 3A 69 .procedure d(i:i
014B10: 6E 74 65 67 65 72 29 3B 20 66 6F 72 77 61 72 64 nteger); forward
014B20: 3B 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 65 20 61 ;....procedure a
014B30: 28 69 3A 69 6E 74 65 67 65 72 29 3B 20 20 20 20 (i:integer);
014B40: 20 20 20 20 20 20 20 20 20 20 20 20 7B 70 72 65 {pre
014B50: 6D 69 65 72 65 20 70 72 6F 63 65 64 75 72 65 20 miere procedure
014B60: 72 65 63 75 72 73 69 76 65 7D 0D 0A 62 65 67 69 recursive}..begi
014B70: 6E 0D 0A 20 20 69 66 20 69 3E 30 20 74 68 65 6E n.. if i>0 then
014B80: 0D 0A 20 20 62 65 67 69 6E 0D 0A 20 20 20 20 61 .. begin.. a
014B90: 28 69 2D 31 29 3B 0D 0A 20 20 20 20 78 3A 3D 78 (i-1);.. x:=x
014BA0: 2B 68 3B 0D 0A 20 20 20 20 79 3A 3D 79 2D 68 3B +h;.. y:=y-h;
014BB0: 0D 0A 20 20 20 20 70 6C 6F 74 3B 0D 0A 20 20 20 .. plot;..
014BC0: 20 62 28 69 2D 31 29 3B 0D 0A 20 20 20 20 78 3A b(i-1);.. x:
014BD0: 3D 78 2B 32 2A 68 3B 0D 0A 20 20 20 20 70 6C 6F =x+2*h;.. plo
014BE0: 74 3B 0D 0A 20 20 20 20 64 28 69 2D 31 29 3B 0D t;.. d(i-1);.
014BF0: 0A 20 20 20 20 78 3A 3D 78 2B 68 3B 0D 0A 20 20 . x:=x+h;..
014C00: 20 20 79 3A 3D 79 2B 68 3B 0D 0A 20 20 20 20 70 y:=y+h;.. p
014C10: 6C 6F 74 3B 0D 0A 20 20 20 20 61 28 69 2D 31 29 lot;.. a(i-1)
014C20: 3B 0D 0A 20 20 65 6E 64 3B 0D 0A 65 6E 64 3B 0D ;.. end;..end;.
014C30: 0A 0D 0A 70 72 6F 63 65 64 75 72 65 20 62 3B 20 ...procedure b;
014C40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
014C50: 20 20 20 20 20 20 20 20 20 20 7B 73 65 63 6F 6E {secon
014C60: 64 20 70 72 6F 63 65 64 75 72 65 20 72 65 63 75 d procedure recu
014C70: 72 73 69 76 65 7D 0D 0A 62 65 67 69 6E 0D 0A 20 rsive}..begin..
014C80: 20 69 66 20 69 3E 30 20 74 68 65 6E 0D 0A 20 20 if i>0 then..
014C90: 62 65 67 69 6E 0D 0A 20 20 20 20 62 28 69 2D 31 begin.. b(i-1
014CA0: 29 3B 0D 0A 20 20 20 20 78 3A 3D 78 2D 68 3B 0D );.. x:=x-h;.
014CB0: 0A 20 20 20 20 79 3A 3D 79 2D 68 3B 0D 0A 20 20 . y:=y-h;..
014CC0: 20 20 70 6C 6F 74 3B 0D 0A 20 20 20 20 63 28 69 plot;.. c(i
014CD0: 2D 31 29 3B 0D 0A 20 20 20 20 79 3A 3D 79 2D 32 -1);.. y:=y-2
014CE0: 2A 68 3B 0D 0A 20 20 20 20 70 6C 6F 74 3B 0D 0A *h;.. plot;..
014CF0: 20 20 20 20 61 28 69 2D 31 29 3B 0D 0A 20 20 20 a(i-1);..
014D00: 6C 65 73 2C 63 61 72 72 65 73 27 29 3B 0D 0A 20 les,carres');..
014D10: 20 67 6F 74 6F 78 79 28 33 2C 31 33 29 3B 77 72 gotoxy(3,13);wr
014D20: 69 74 65 28 27 2C 20 65 74 63 2E 2C 63 72 65 65 ite(', etc.,cree
014D30: 20 64 65 73 20 62 61 72 72 65 73 20 65 74 20 70 des barres et p
014D40: 6C 75 73 20 65 6E 63 6F 72 65 2E 41 75 20 6D 6F lus encore.Au mo
014D50: 79 65 6E 20 64 65 20 64 65 73 73 69 6E 73 20 72 yen de dessins r
014D60: 65 70 65 74 65 73 20 64 61 6E 73 27 29 3B 0D 0A epetes dans');..
014D70: 20 20 67 6F 74 6F 78 79 28 33 2C 31 34 29 3B 77 gotoxy(3,14);w
014D80: 72 69 74 65 28 27 6C 61 20 6D 65 6D 65 20 66 65 rite('la meme fe
014D90: 6E 65 74 72 65 2C 70 6C 75 73 69 65 75 72 73 20 netre,plusieurs
014DA0: 70 6F 6C 79 67 6F 6E 65 73 20 70 65 75 76 65 6E polygones peuven
014DB0: 74 20 65 74 72 65 20 6D 69 73 20 6C 65 73 20 75 t etre mis les u
014DC0: 6E 73 20 73 75 72 20 6C 65 73 20 61 75 74 72 65 ns sur les autre
014DD0: 73 27 29 3B 0D 0A 20 20 67 6F 74 6F 78 79 28 33 s');.. gotoxy(3
014DE0: 2C 31 35 29 3B 77 72 69 74 65 28 54 6F 75 74 20 ,15);write(Tout
014DF0: 64 69 61 67 72 61 6D 6D 65 20 70 65 75 74 20 65 diagramme peut e
014E00: 74 72 65 20 64 65 73 73 69 6E 65 20 61 76 65 63 tre dessine avec
014E10: 20 6F 75 20 73 61 6E 73 20 63 6F 6F 72 64 6F 6E ou sans coordon
014E20: 6E 65 73 20 6F 75 20 74 65 78 74 65 2E 27 29 3B nes ou texte.');
014E30: 0D 0A 20 20 67 6F 74 6F 78 79 28 33 2C 31 36 29 .. gotoxy(3,16)
014E40: 3B 77 72 69 74 65 28 27 4C 65 73 20 65 78 65 6D ;write('Les exem
014E50: 70 6C 65 73 20 73 75 69 76 61 6E 74 73 20 6F 6E ples suivants on
014E60: 74 20 65 74 65 20 63 72 65 65 73 20 61 76 65 63 t ete crees avec
014E70: 20 6C 61 20 70 72 6F 63 65 64 75 72 65 20 74 6F la procedure to
014E80: 75 74 20 65 6E 20 66 61 69 73 61 6E 74 20 76 61 ut en faisant va
014E90: 72 69 65 72 27 29 3B 20 29 3B 0D 0A 20 20 67 6F rier'); );.. go
014EA0: 74 6F 78 79 28 33 2C 31 37 29 3B 77 72 69 74 65 toxy(3,17);write
014EB0: 28 27 6C 65 20 70 61 72 61 6D 65 74 72 65 2E 47 ('le parametre.G
014EC0: 72 61 63 65 20 61 20 6C 61 20 63 6F 6D 6D 61 6E race a la comman
014ED0: 64 65 20 44 72 61 77 41 78 69 73 20 75 6E 65 20 de DrawAxis une
014EE0: 70 72 65 73 65 6E 74 61 74 69 6F 6E 20 64 65 73 presentation des
014EF0: 20 61 78 65 73 20 27 29 3B 0D 0A 20 20 67 6F 74 axes ');.. got
014F00: 20 78 3A 3D 78 2B 68 3B 0D 0A 20 20 20 20 79 3A x:=x+h;.. y:
014F10: 3D 79 2D 68 3B 0D 0A 20 20 20 20 70 6C 6F 74 3B =y-h;.. plot;
014F20: 20 20 20 20 62 28 69 2D 31 29 3B 0D 0A 20 20 65 b(i-1);.. e
014F30: 6E 64 3B 0D 0A 65 6E 64 3B 0D 0A 0D 0A 70 72 6F nd;..end;....pro
014F40: 63 65 64 75 72 65 20 63 3B 20 20 20 20 20 20 20 cedure c;
014F50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
014F60: 20 20 20 20 7B 74 72 6F 69 73 69 65 6D 65 20 70 {troisieme p
014F70: 72 6F 63 65 64 75 72 65 20 72 65 63 75 72 73 69 rocedure recursi
014F80: 76 65 7D 0D 0A 62 65 67 69 6E 0D 0A 20 20 69 66 ve}..begin.. if
014F90: 20 69 3E 30 20 74 68 65 6E 0D 0A 20 20 62 65 67 i>0 then.. beg
014FA0: 69 6E 0D 0A 20 20 20 20 63 28 69 2D 31 29 3B 0D in.. c(i-1);.
014FB0: 0A 20 20 20 20 78 3A 3D 78 2D 68 3B 0D 0A 20 20 . x:=x-h;..
014FC0: 20 20 79 3A 3D 79 2B 68 3B 0D 0A 20 20 20 20 70 y:=y+h;.. p
014FD0: 6C 6F 74 3B 0D 0A 20 20 20 20 64 28 69 2D 31 29 lot;.. d(i-1)
014FE0: 3B 0D 0A 20 20 20 20 78 3A 3D 78 2D 32 2A 68 3B ;.. x:=x-2*h;
014FF0: 0D 0A 20 20 20 20 70 6C 6F 74 3B 0D 0A 20 20 20 .. plot;..
015000: 20 62 28 69 2D 31 29 3B 0D 0A 20 20 20 20 78 3A b(i-1);.. x:
015010: 3D 78 2D 68 3B 0D 0A 20 20 20 20 79 3A 3D 79 2D =x-h;.. y:=y-
015020: 68 3B 0D 0A 20 20 20 20 70 6C 6F 74 3B 0D 0A 20 h;.. plot;..
015030: 20 20 20 63 28 69 2D 31 29 3B 0D 0A 20 20 65 6E c(i-1);.. en
015040: 64 3B 0D 0A 65 6E 64 3B 0D 0A 0D 0A 70 72 6F 63 d;..end;....proc
015050: 65 64 75 72 65 20 64 3B 20 20 20 20 20 20 20 20 edure d;
015060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
015070: 20 20 20 7B 64 65 72 6E 69 65 72 65 20 70 72 6F {derniere pro
015080: 63 65 64 75 72 65 20 72 65 63 75 72 73 69 76 65 cedure recursive
015090: 20 7D 0D 0A 62 65 67 69 6E 0D 0A 20 20 69 66 20 }..begin.. if
0150A0: 69 3E 30 20 74 68 65 6E 0D 0A 20 20 62 65 67 69 i>0 then.. begi
0150B0: 6E 0D 0A 20 20 20 20 64 28 69 2D 31 29 3B 0D 0A n.. d(i-1);..
0150C0: 20 20 20 20 78 3A 3D 78 2B 68 3B 0D 0A 20 20 20 x:=x+h;..
0150D0: 20 79 3A 3D 79 2B 68 3B 0D 0A 20 20 20 20 70 6C y:=y+h;.. pl
0150E0: 6F 74 3B 0D 0A 20 20 20 20 61 28 69 2D 31 29 3B ot;.. a(i-1);
0150F0: 0D 0A 20 20 20 20 79 3A 3D 79 2B 32 2A 68 3B 0D .. y:=y+2*h;.
015100: 6F 78 79 28 33 2C 31 38 29 3B 77 72 69 74 65 28 oxy(3,18);write(
015110: 27 69 6E 63 6C 75 61 6E 74 20 64 75 20 74 65 78 'incluant du tex
015120: 74 65 20 61 20 65 74 65 20 72 65 6E 64 75 65 20 te a ete rendue
015130: 70 6F 73 73 69 62 6C 65 2E 54 61 70 65 7A 20 73 possible.Tapez s
015140: 75 72 20 52 45 54 4F 55 52 20 70 6F 75 72 20 72 ur RETOUR pour r
015150: 65 76 65 6E 69 72 27 29 3B 0D 0A 20 20 67 6F 74 evenir');.. got
015160: 6F 78 79 28 33 2C 31 39 29 3B 77 72 69 74 65 28 oxy(3,19);write(
015170: 27 61 20 6C 27 27 69 6E 74 65 72 69 65 75 72 20 'a l''interieur
015180: 64 65 20 63 65 20 6D 6F 64 75 6C 65 20 64 65 20 de ce module de
015190: 64 65 6D 6F 6E 73 74 72 61 74 69 6F 6E 27 29 3B demonstration');
0151A0: 0D 0A 20 20 67 6F 74 6F 78 79 28 32 30 2C 32 35 .. gotoxy(20,25
0151B0: 29 3B 0D 0A 20 20 77 61 69 74 72 65 74 75 72 6E );.. waitreturn
0151C0: 28 36 30 30 30 30 2E 30 29 3B 0D 0A 65 6E 64 3B (60000.0);..end;
0151D0: 0D 0A 0D 0A 0D 0A 0D 0A 1A 1A 1A 1A 1A 1A 1A 1A ................
0151E0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0151F0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
015200: 74 72 65 20 64 65 73 73 69 6E 65 20 61 76 65 63 tre dessine avec
015210: 20 6F 75 20 73 61 6E 73 20 63 6F 6F 72 64 6F 6E ou sans coordon
015220: 6E 65 73 20 6F 75 20 74 65 78 74 65 2E 27 29 3B nes ou texte.');
015230: 0D 0A 20 20 67 6F 74 6F 78 79 28 33 2C 31 36 29 .. gotoxy(3,16)
015240: 3B 77 72 69 74 65 28 27 4C 65 73 20 65 78 65 6D ;write('Les exem
015250: 70 6C 65 73 20 73 75 69 76 61 6E 74 73 20 6F 6E ples suivants on
015260: 74 20 65 74 65 20 63 72 65 65 73 20 61 76 65 63 t ete crees avec
015270: 20 6C 61 20 70 72 6F 63 65 64 75 72 65 20 74 6F la procedure to
015280: 75 74 20 65 6E 20 66 61 69 73 61 6E 74 20 76 61 ut en faisant va
015290: 72 69 65 72 27 29 3B 20 29 3B 0D 0A 20 20 67 6F rier'); );.. go
0152A0: 74 6F 78 79 28 33 2C 31 37 29 3B 77 72 69 74 65 toxy(3,17);write
0152B0: 28 27 6C 65 20 70 61 72 61 6D 65 74 72 65 2E 47 ('le parametre.G
0152C0: 72 61 63 65 20 61 20 6C 61 20 63 6F 6D 6D 61 6E race a la comman
0152D0: 64 65 20 44 72 61 77 41 78 69 73 20 75 6E 65 20 de DrawAxis une
0152E0: 70 72 65 73 65 6E 74 61 74 69 6F 6E 20 64 65 73 presentation des
0152F0: 20 61 78 65 73 20 27 29 3B 0D 0A 20 20 67 6F 74 axes ');.. got
015300: 0A 20 20 20 20 70 6C 6F 74 3B 0D 0A 20 20 20 20 . plot;..
015310: 63 28 69 2D 31 29 3B 0D 0A 20 20 20 20 78 3A 3D c(i-1);.. x:=
015320: 78 2D 68 3B 0D 0A 20 20 20 20 79 3A 3D 79 2B 68 x-h;.. y:=y+h
015330: 3B 0D 0A 20 20 20 20 70 6C 6F 74 3B 0D 0A 20 20 ;.. plot;..
015340: 20 20 64 28 69 2D 31 29 3B 0D 0A 20 20 65 6E 64 d(i-1);.. end
015350: 3B 0D 0A 65 6E 64 3B 0D 0A 0D 0A 7B 24 41 2B 7D ;..end;....{$A+}
015360: 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 65 20 44 6F ....procedure Do
015370: 49 74 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 It;
015380: 20 20 20 20 20 20 20 20 20 20 20 7B 20 70 72 6F { pro
015390: 63 65 64 75 72 65 20 70 72 69 6E 63 69 70 61 6C cedure principal
0153A0: 65 20 20 64 65 20 73 69 65 72 70 69 6E 73 6B 69 e de sierpinski
0153B0: 20 7D 0D 0A 62 65 67 69 6E 0D 0A 20 20 69 3A 3D }..begin.. i:=
0153C0: 33 3B 0D 0A 20 20 68 3A 3D 31 36 3B 0D 0A 20 20 3;.. h:=16;..
0153D0: 78 30 3A 3D 33 30 3B 0D 0A 20 20 79 30 3A 3D 32 x0:=30;.. y0:=2
0153E0: 34 30 3B 0D 0A 20 20 72 65 70 65 61 74 0D 0A 20 40;.. repeat..
0153F0: 20 20 20 69 3A 3D 69 2B 31 3B 0D 0A 20 20 20 20 i:=i+1;..
015400: 78 30 3A 3D 78 30 2D 68 3B 0D 0A 20 20 20 20 68 x0:=x0-h;.. h
015410: 3A 3D 68 20 64 69 76 20 32 3B 0D 0A 20 20 20 20 :=h div 2;..
015420: 79 30 3A 3D 79 30 2B 68 3B 0D 0A 20 20 20 20 78 y0:=y0+h;.. x
015430: 3A 3D 78 30 3B 0D 0A 20 20 20 20 79 3A 3D 79 30 :=x0;.. y:=y0
015440: 3B 0D 0A 20 20 20 20 61 28 69 2D 31 29 3B 0D 0A ;.. a(i-1);..
015450: 20 20 20 20 78 3A 3D 78 2B 68 3B 0D 0A 20 20 20 x:=x+h;..
015460: 20 79 3A 3D 79 2D 68 3B 0D 0A 20 20 20 20 70 6C y:=y-h;.. pl
015470: 6F 74 3B 0D 0A 20 20 20 20 62 28 69 2D 31 29 3B ot;.. b(i-1);
015480: 0D 0A 20 20 20 20 78 3A 3D 78 2D 68 3B 0D 0A 20 .. x:=x-h;..
015490: 20 20 20 79 3A 3D 79 2D 68 3B 0D 0A 20 20 20 20 y:=y-h;..
0154A0: 70 6C 6F 74 3B 0D 0A 20 20 20 20 63 28 69 2D 31 plot;.. c(i-1
0154B0: 29 3B 0D 0A 20 20 20 20 78 3A 3D 78 2D 68 3B 0D );.. x:=x-h;.
0154C0: 0A 20 20 20 20 79 3A 3D 79 2B 68 3B 0D 0A 20 20 . y:=y+h;..
0154D0: 20 20 70 6C 6F 74 3B 0D 0A 20 20 20 20 64 28 69 plot;.. d(i
0154E0: 2D 31 29 3B 0D 0A 20 20 20 20 78 3A 3D 78 2B 68 -1);.. x:=x+h
0154F0: 3B 0D 0A 20 20 20 20 79 3A 3D 79 2B 68 3B 0D 0A ;.. y:=y+h;..
015500: 5C 5C 81 20 66 69 6E 69 73 68 65 64 5C 24 5C 5C \\. finished\$\\
015510: 81 20 61 62 61 6E 64 6F 6E 65 64 5C 24 83 61 6E . abandoned\$.an
015520: 64 20 64 65 73 74 69 6E 61 74 69 6F 6E 20 64 69 d destination di
015530: 73 63 20 69 6E 74 6F 20 64 72 69 76 65 20 42 5C sc into drive B\
015540: 86 24 5C 50 6C 65 61 73 65 89 86 24 82 73 74 61 .$\Please..$.sta
015550: 72 74 65 64 24 82 63 6F 6D 70 6C 65 74 65 24 5C rted$.complete$\
015560: 46 6F 72 6D 61 74 74 69 6E 67 20 77 68 69 6C 73 Formatting whils
015570: 74 20 63 6F 70 79 69 6E 67 24 83 86 24 5C 50 6C t copying$..$\Pl
015580: 65 61 73 65 20 69 6E 73 65 72 74 20 64 65 73 74 ease insert dest
015590: 69 6E 61 74 69 6F 6E 20 64 69 73 63 20 69 6E 74 ination disc int
0155A0: 6F 20 64 72 69 76 65 20 41 20 86 24 5C 44 6F 20 o drive A .$\Do
0155B0: 79 6F 75 20 77 61 6E 74 20 74 6F 20 63 68 65 63 you want to chec
0155C0: 6B 20 61 6E 6F 74 68 65 72 20 64 69 73 63 20 28 k another disc (
0155D0: 59 2F 4E 29 3A 5F 24 0D 0A 52 65 61 64 69 6E 67 Y/N):_$..Reading
0155E0: 20 20 74 72 61 63 6B 20 F1 12 0B 24 0D 0A 46 6F track ...$..Fo
0155F0: 72 6D 61 74 74 69 6E 67 20 74 72 61 63 6B 20 F1 rmatting track .
015600: 12 0B 24 0D 0A 43 68 65 63 6B 69 6E 67 20 74 72 ..$..Checking tr
015610: 61 63 6B 20 F1 12 0B 24 20 5E 43 2E 2E 2E 61 62 ack ...$ ^C...ab
015620: 6F 72 74 65 64 24 5C 42 61 64 20 66 6F 72 6D 61 orted$\Bad forma
015630: 74 20 6F 70 74 69 6F 6E 20 28 79 6F 75 20 6D 61 t option (you ma
015640: 79 20 6F 6E 6C 79 20 65 6E 74 65 72 20 53 2C 20 y only enter S,
015650: 56 2C 20 44 20 6F 72 20 49 29 24 5C 49 6E 73 75 V, D or I)$\Insu
015660: 66 66 69 63 69 65 6E 74 20 73 70 61 63 65 20 69 fficient space i
015670: 6E 20 54 50 41 24 5C 5C 59 6F 75 20 6D 75 73 74 n TPA$\\You must
015680: 20 69 6E 73 65 72 74 20 74 84 69 6E 74 6F 20 64 insert t.into d
015690: 72 69 76 65 20 41 5C 24 5C 5C 59 6F 75 20 6D 75 rive A\$\\You mu
0156A0: 73 74 20 69 6E 73 65 72 74 20 74 85 69 6E 74 6F st insert t.into
0156B0: 20 64 72 69 76 65 20 42 5C 24 5C 5C 59 6F 75 20 drive B\$\\You
0156C0: 6D 75 73 74 89 5C 24 5C 5C 54 85 69 6E 20 64 72 must.\$\\T.in dr
0156D0: 69 76 65 20 42 20 6D 75 73 74 20 62 65 20 77 72 ive B must be wr
0156E0: 69 74 65 2D 65 6E 61 62 6C 65 64 5C 24 5C 54 84 ite-enabled\$\T.
0156F0: 69 73 20 6E 6F 74 20 61 20 43 50 2F 4D 20 73 79 is not a CP/M sy
015700: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
015710: 12 00 01 00 02 09 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 20 70 6C 6F 74 3B 0D 0A 20 20 75 6E 74 plot;.. unt
015810: 69 6C 20 69 3D 6E 3B 0D 0A 65 6E 64 3B 0D 0A 0D il i=n;..end;...
015820: 0A 62 65 67 69 6E 20 20 20 7B 73 69 65 72 70 69 .begin {sierpi
015830: 6E 73 6B 69 7D 0D 0A 20 20 53 65 74 48 65 61 64 nski}.. SetHead
015840: 65 72 4F 6E 3B 0D 0A 20 20 44 65 66 69 6E 65 57 erOn;.. DefineW
015850: 6F 72 6C 64 28 31 2C 2D 33 2C 32 35 38 2C 32 35 orld(1,-3,258,25
015860: 38 2C 2D 33 29 3B 0D 0A 20 20 53 65 6C 65 63 74 8,-3);.. Select
015870: 57 6F 72 6C 64 28 31 29 3B 0D 0A 20 20 53 65 6C World(1);.. Sel
015880: 65 63 74 57 69 6E 64 6F 77 28 31 29 3B 0D 0A 20 ectWindow(1);..
015890: 20 44 72 61 77 42 6F 72 64 65 72 3B 0D 0A 20 20 DrawBorder;..
0158A0: 44 6F 49 74 3B 0D 0A 0D 0A 65 6E 64 3B 0D 0A 0D DoIt;....end;...
0158B0: 0A 0D 0A 62 65 67 69 6E 0D 0A 0D 0A 49 6E 69 74 ...begin....Init
0158C0: 47 72 61 70 68 69 63 3B 20 20 20 20 20 20 20 20 Graphic;
0158D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0158E0: 20 20 20 7B 69 6E 69 74 69 61 6C 69 73 61 74 69 {initialisati
0158F0: 6F 6E 20 64 75 20 67 72 61 70 68 69 73 6D 65 7D on du graphisme}
015900: 0D 0A 0D 0A 44 65 66 69 6E 65 48 65 61 64 65 72 ....DefineHeader
015910: 28 31 2C 27 44 45 4D 4F 4E 53 54 52 41 54 49 4F (1,'DEMONSTRATIO
015920: 4E 20 45 43 52 41 4E 20 53 41 55 56 45 52 20 45 N ECRAN SAUVER E
015930: 54 20 4C 49 52 45 20 53 55 52 20 4C 45 20 44 49 T LIRE SUR LE DI
015940: 53 51 55 45 27 29 3B 0D 0A 0D 0A 53 65 74 48 65 SQUE');....SetHe
015950: 61 64 65 72 4F 6E 3B 20 20 20 20 20 20 20 20 20 aderOn;
015960: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
015970: 20 20 7B 64 6F 6E 6E 65 7A 20 6C 75 69 20 75 6E {donnez lui un
015980: 65 20 65 6E 2D 74 65 74 65 7D 0D 0A 0D 0A 53 69 e en-tete}....Si
015990: 65 72 70 69 6E 73 6B 69 3B 20 20 20 20 20 20 20 erpinski;
0159A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0159B0: 20 20 20 20 20 7B 66 61 69 74 20 75 6E 65 20 63 {fait une c
0159C0: 6F 75 72 62 65 7D 0D 0A 0D 0A 0D 0A 53 61 76 65 ourbe}......Save
0159D0: 53 63 72 65 65 6E 28 27 44 45 4D 4F 2E 50 49 43 Screen('DEMO.PIC
0159E0: 27 29 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 ');
0159F0: 20 20 20 7B 73 61 75 76 65 20 6C 27 27 65 63 72 {sauve l''ecr
015A00: 66 6F 72 77 61 72 64 3B 0D 0A 0D 0A 70 72 6F 63 forward;....proc
015A10: 65 64 75 72 65 20 64 28 69 3A 69 6E 74 65 67 65 edure d(i:intege
015A20: 72 29 3B 20 66 6F 72 77 61 72 64 3B 0D 0A 0D 0A r); forward;....
015A30: 70 72 6F 63 65 64 75 72 65 20 61 28 69 3A 69 6E procedure a(i:in
015A40: 74 65 67 65 72 29 3B 0D 0A 62 65 67 69 6E 0D 0A teger);..begin..
015A50: 20 20 69 66 20 69 3E 30 20 74 68 65 6E 0D 0A 20 if i>0 then..
015A60: 20 62 65 67 69 6E 0D 0A 20 20 20 20 61 28 69 2D begin.. a(i-
015A70: 31 29 3B 0D 0A 20 20 20 20 78 3A 3D 78 2B 68 3B 1);.. x:=x+h;
015A80: 0D 0A 20 20 20 20 79 3A 3D 79 2D 68 3B 0D 0A 20 .. y:=y-h;..
015A90: 20 20 20 70 6C 6F 74 3B 0D 0A 20 20 20 20 62 28 plot;.. b(
015AA0: 69 2D 31 29 3B 0D 0A 20 20 20 20 78 3A 3D 78 2B i-1);.. x:=x+
015AB0: 32 2A 68 3B 0D 0A 20 20 20 20 70 6C 6F 74 3B 0D 2*h;.. plot;.
015AC0: 0A 20 20 20 20 64 28 69 2D 31 29 3B 0D 0A 20 20 . d(i-1);..
015AD0: 20 20 78 3A 3D 78 2B 68 3B 0D 0A 20 20 20 20 79 x:=x+h;.. y
015AE0: 3A 3D 79 2B 68 3B 0D 0A 20 20 20 20 70 6C 6F 74 :=y+h;.. plot
015AF0: 3B 0D 0A 20 20 20 20 61 28 69 2D 31 29 3B 0D 0A ;.. a(i-1);..
015B00: 20 20 65 6E 64 3B 0D 0A 65 6E 64 3B 0D 0A 0D 0A end;..end;....
015B10: 70 72 6F 63 65 64 75 72 65 20 62 3B 0D 0A 62 65 procedure b;..be
015B20: 67 69 6E 0D 0A 20 20 69 66 20 69 3E 30 20 74 68 gin.. if i>0 th
015B30: 65 6E 0D 0A 20 20 62 65 67 69 6E 0D 0A 20 20 20 en.. begin..
015B40: 20 62 28 69 2D 31 29 3B 0D 0A 20 20 20 20 78 3A b(i-1);.. x:
015B50: 3D 78 2D 68 3B 0D 0A 20 20 20 20 79 3A 3D 79 2D =x-h;.. y:=y-
015B60: 68 3B 0D 0A 20 20 20 20 70 6C 6F 74 3B 0D 0A 20 h;.. plot;..
015B70: 20 20 20 63 28 69 2D 31 29 3B 0D 0A 20 20 20 20 c(i-1);..
015B80: 79 3A 3D 79 2D 32 2A 68 3B 0D 0A 20 20 20 20 70 y:=y-2*h;.. p
015B90: 6C 6F 74 3B 0D 0A 20 20 20 20 61 28 69 2D 31 29 lot;.. a(i-1)
015BA0: 3B 0D 0A 20 20 20 20 78 3A 3D 78 2B 68 3B 0D 0A ;.. x:=x+h;..
015BB0: 20 20 20 20 79 3A 3D 79 2D 68 3B 0D 0A 20 20 20 y:=y-h;..
015BC0: 20 70 6C 6F 74 3B 0D 0A 20 20 20 20 62 28 69 2D plot;.. b(i-
015BD0: 31 29 3B 0D 0A 20 20 65 6E 64 3B 0D 0A 65 6E 64 1);.. end;..end
015BE0: 3B 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 65 20 63 ;....procedure c
015BF0: 3B 0D 0A 62 65 67 69 6E 0D 0A 20 20 69 66 20 69 ;..begin.. if i
015C00: 61 6E 20 73 75 72 20 6C 65 20 64 69 73 71 75 65 an sur le disque
015C10: 7D 0D 0A 0D 0A 43 6C 65 61 72 53 63 72 65 65 6E }....ClearScreen
015C20: 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ;
015C30: 20 20 20 20 20 20 20 20 20 20 20 20 7B 76 69 64 {vid
015C40: 65 20 6C 27 27 65 63 72 61 6E 7D 0D 0A 0D 0A 44 e l''ecran}....D
015C50: 65 6C 61 79 28 31 30 30 30 29 3B 20 20 20 20 20 elay(1000);
015C60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
015C70: 20 20 20 20 20 20 7B 52 65 74 61 72 64 65 2C 20 {Retarde,
015C80: 73 6F 69 74 20 6C 65 20 64 69 73 71 75 65 20 6F soit le disque o
015C90: 75 20 6C 61 20 52 41 4D 20 64 69 73 71 75 65 0D u la RAM disque.
015CA0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
015CB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
015CC0: 20 20 20 20 20 20 20 20 20 61 66 69 6E 20 71 75 afin qu
015CD0: 65 20 6C 27 27 75 74 69 6C 69 73 61 74 65 75 72 e l''utilisateur
015CE0: 20 70 75 69 73 73 65 20 76 6F 69 72 20 6C 27 27 puisse voir l''
015CF0: 61 63 74 69 6F 6E 20 7D 0D 0A 0D 0A 4C 6F 61 64 action }....Load
015D00: 53 63 72 65 65 6E 28 27 44 45 4D 4F 2E 50 49 43 Screen('DEMO.PIC
015D10: 27 29 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 ');
015D20: 20 20 20 7B 4C 65 20 72 65 74 72 6F 75 76 65 20 {Le retrouve
015D30: 73 75 72 20 6C 65 20 64 69 73 71 75 65 7D 0D 0A sur le disque}..
015D40: 0D 0A 0D 0A 72 65 70 65 61 74 20 75 6E 74 69 6C ....repeat until
015D50: 20 6B 65 79 70 72 65 73 73 65 64 3B 20 20 20 20 keypressed;
015D60: 20 20 20 20 20 20 20 20 20 20 20 7B 61 74 74 65 {atte
015D70: 6E 64 20 6A 75 73 71 75 27 61 20 63 65 20 71 75 nd jusqu'a ce qu
015D80: 65 20 75 6E 65 20 74 6F 75 63 68 65 20 73 6F 69 e une touche soi
015D90: 74 20 66 72 61 70 70 65 65 7D 0D 0A 0D 0A 4C 65 t frappee}....Le
015DA0: 61 76 65 47 72 61 70 68 69 63 3B 20 20 20 20 20 aveGraphic;
015DB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
015DC0: 20 20 20 20 20 7B 71 75 69 74 74 65 20 6C 65 20 {quitte le
015DD0: 73 79 73 74 65 6D 65 20 67 72 61 70 68 69 71 75 systeme graphiqu
015DE0: 65 7D 0D 0A 0D 0A 65 6E 64 2E 0D 0A 1A 1A 1A 1A e}....end.......
015DF0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
015E00: 3E 30 20 74 68 65 6E 0D 0A 20 20 62 65 67 69 6E >0 then.. begin
015E10: 0D 0A 20 20 20 20 63 28 69 2D 31 29 3B 0D 0A 20 .. c(i-1);..
015E20: 20 20 20 78 3A 3D 78 2D 68 3B 0D 0A 20 20 20 20 x:=x-h;..
015E30: 79 3A 3D 79 2B 68 3B 0D 0A 20 20 20 20 70 6C 6F y:=y+h;.. plo
015E40: 74 3B 0D 0A 20 20 20 20 64 28 69 2D 31 29 3B 0D t;.. d(i-1);.
015E50: 0A 20 20 20 20 78 3A 3D 78 2D 32 2A 68 3B 0D 0A . x:=x-2*h;..
015E60: 20 20 20 20 70 6C 6F 74 3B 0D 0A 20 20 20 20 62 plot;.. b
015E70: 28 69 2D 31 29 3B 0D 0A 20 20 20 20 78 3A 3D 78 (i-1);.. x:=x
015E80: 2D 68 3B 0D 0A 20 20 20 20 79 3A 3D 79 2D 68 3B -h;.. y:=y-h;
015E90: 0D 0A 20 20 20 20 70 6C 6F 74 3B 0D 0A 20 20 20 .. plot;..
015EA0: 20 63 28 69 2D 31 29 3B 0D 0A 20 20 65 6E 64 3B c(i-1);.. end;
015EB0: 0D 0A 65 6E 64 3B 0D 0A 0D 0A 70 72 6F 63 65 64 ..end;....proced
015EC0: 75 72 65 20 64 3B 0D 0A 62 65 67 69 6E 0D 0A 20 ure d;..begin..
015ED0: 20 69 66 20 69 3E 30 20 74 68 65 6E 0D 0A 20 20 if i>0 then..
015EE0: 62 65 67 69 6E 0D 0A 20 20 20 20 64 28 69 2D 31 begin.. d(i-1
015EF0: 29 3B 0D 0A 20 20 20 20 78 3A 3D 78 2B 68 3B 0D );.. x:=x+h;.
015F00: 0A 20 20 20 20 79 3A 3D 79 2B 68 3B 0D 0A 20 20 . y:=y+h;..
015F10: 20 20 70 6C 6F 74 3B 0D 0A 20 20 20 20 61 28 69 plot;.. a(i
015F20: 2D 31 29 3B 0D 0A 20 20 20 20 79 3A 3D 79 2B 32 -1);.. y:=y+2
015F30: 2A 68 3B 0D 0A 20 20 20 20 70 6C 6F 74 3B 0D 0A *h;.. plot;..
015F40: 20 20 20 20 63 28 69 2D 31 29 3B 0D 0A 20 20 20 c(i-1);..
015F50: 20 78 3A 3D 78 2D 68 3B 0D 0A 20 20 20 20 79 3A x:=x-h;.. y:
015F60: 3D 79 2B 68 3B 0D 0A 20 20 20 20 70 6C 6F 74 3B =y+h;.. plot;
015F70: 0D 0A 20 20 20 20 64 28 69 2D 31 29 3B 0D 0A 20 .. d(i-1);..
015F80: 20 65 6E 64 3B 0D 0A 65 6E 64 3B 0D 0A 0D 0A 7B end;..end;....{
015F90: 24 41 2B 7D 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 $A+}....procedur
015FA0: 65 20 44 6F 49 74 3B 0D 0A 62 65 67 69 6E 0D 0A e DoIt;..begin..
015FB0: 20 20 69 3A 3D 33 3B 0D 0A 20 20 68 3A 3D 31 36 i:=3;.. h:=16
015FC0: 3B 0D 0A 20 20 78 30 3A 3D 33 30 3B 0D 0A 20 20 ;.. x0:=30;..
015FD0: 79 30 3A 3D 32 34 30 3B 0D 0A 20 20 72 65 70 65 y0:=240;.. repe
015FE0: 61 74 0D 0A 20 20 20 20 69 3A 3D 69 2B 31 3B 0D at.. i:=i+1;.
015FF0: 0A 20 20 20 20 78 30 3A 3D 78 30 2D 68 3B 0D 0A . x0:=x0-h;..
016000: 70 72 6F 67 72 61 6D 20 44 72 61 77 43 69 72 63 program DrawCirc
016010: 3B 0D 0A 0D 0A 7B 24 49 20 74 79 70 65 64 65 66 ;....{$I typedef
016020: 2E 73 79 73 7D 20 20 20 20 20 20 20 20 20 20 20 .sys}
016030: 20 20 20 20 20 20 20 7B 69 6E 63 6C 75 73 20 6C {inclus l
016040: 65 73 20 63 6F 64 65 73 20 67 72 61 70 68 69 71 es codes graphiq
016050: 75 65 73 7D 0D 0A 7B 24 49 20 67 72 61 70 68 69 ues}..{$I graphi
016060: 78 2E 73 79 73 7D 0D 0A 7B 24 49 20 6B 65 72 6E x.sys}..{$I kern
016070: 65 6C 2E 73 79 73 7D 0D 0A 7B 24 49 20 6B 65 72 el.sys}..{$I ker
016080: 6E 65 6C 31 2E 73 79 73 7D 0D 0A 0D 0A 76 61 72 nel1.sys}....var
016090: 20 69 3A 69 6E 74 65 67 65 72 3B 0D 0A 20 20 41 i:integer;.. A
0160A0: 73 70 65 63 74 4C 6F 63 2C 72 61 64 3A 72 65 61 spectLoc,rad:rea
0160B0: 6C 3B 0D 0A 0D 0A 62 65 67 69 6E 0D 0A 20 20 49 l;....begin.. I
0160C0: 6E 69 74 47 72 61 70 68 69 63 3B 20 20 20 20 20 nitGraphic;
0160D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7B {
0160E0: 69 6E 69 74 69 61 6C 69 73 65 20 6C 65 20 73 79 initialise le sy
0160F0: 73 74 65 6D 65 20 65 74 20 6C 27 27 65 63 72 61 steme et l''ecra
016100: 6E 7D 0D 0A 0D 0A 20 20 44 65 66 69 6E 65 57 6F n}.... DefineWo
016110: 72 6C 64 28 31 2C 30 2C 31 30 30 30 2C 31 30 30 rld(1,0,1000,100
016120: 30 2C 30 29 3B 20 20 20 7B 64 65 66 69 6E 69 74 0,0); {definit
016130: 20 75 6E 20 6D 6F 6E 64 65 20 61 20 64 65 73 73 un monde a dess
016140: 69 6E 65 72 7D 0D 0A 20 20 53 65 6C 65 63 74 57 iner}.. SelectW
016150: 6F 72 6C 64 28 31 29 3B 20 20 20 20 20 20 20 20 orld(1);
016160: 20 20 20 20 20 20 20 20 20 7B 53 6F 6E 20 63 68 {Son ch
016170: 6F 69 78 7D 0D 0A 20 20 53 65 6C 65 63 74 57 69 oix}.. SelectWi
016180: 6E 64 6F 77 28 31 29 3B 0D 0A 20 20 44 72 61 77 ndow(1);.. Draw
016190: 42 6F 72 64 65 72 3B 0D 0A 0D 0A 20 20 72 61 64 Border;.... rad
0161A0: 3A 3D 31 2E 35 3B 20 20 20 20 20 20 20 20 20 20 :=1.5;
0161B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 7B 20 69 { i
0161C0: 6E 69 74 69 61 6C 69 73 65 20 6C 65 20 72 61 64 nitialise le rad
0161D0: 69 61 6E 7D 0D 0A 20 20 41 73 70 65 63 74 4C 6F ian}.. AspectLo
0161E0: 63 3A 3D 47 65 74 41 73 70 65 63 74 3B 20 20 20 c:=GetAspect;
0161F0: 20 20 20 20 20 20 20 20 7B 73 61 75 76 65 20 70 {sauve p
016200: 20 20 20 20 68 3A 3D 68 20 64 69 76 20 32 3B 0D h:=h div 2;.
016210: 0A 20 20 20 20 79 30 3A 3D 79 30 2B 68 3B 0D 0A . y0:=y0+h;..
016220: 20 20 20 20 78 3A 3D 78 30 3B 0D 0A 20 20 20 20 x:=x0;..
016230: 79 3A 3D 79 30 3B 0D 0A 20 20 20 20 61 28 69 2D y:=y0;.. a(i-
016240: 31 29 3B 0D 0A 20 20 20 20 78 3A 3D 78 2B 68 3B 1);.. x:=x+h;
016250: 0D 0A 20 20 20 20 79 3A 3D 79 2D 68 3B 0D 0A 20 .. y:=y-h;..
016260: 20 20 20 70 6C 6F 74 3B 0D 0A 20 20 20 20 62 28 plot;.. b(
016270: 69 2D 31 29 3B 0D 0A 20 20 20 20 78 3A 3D 78 2D i-1);.. x:=x-
016280: 68 3B 0D 0A 20 20 20 20 79 3A 3D 79 2D 68 3B 0D h;.. y:=y-h;.
016290: 0A 20 20 20 20 70 6C 6F 74 3B 0D 0A 20 20 20 20 . plot;..
0162A0: 63 28 69 2D 31 29 3B 0D 0A 20 20 20 20 78 3A 3D c(i-1);.. x:=
0162B0: 78 2D 68 3B 0D 0A 20 20 20 20 79 3A 3D 79 2B 68 x-h;.. y:=y+h
0162C0: 3B 0D 0A 20 20 20 20 70 6C 6F 74 3B 0D 0A 20 20 ;.. plot;..
0162D0: 20 20 64 28 69 2D 31 29 3B 0D 0A 20 20 20 20 78 d(i-1);.. x
0162E0: 3A 3D 78 2B 68 3B 0D 0A 20 20 20 20 79 3A 3D 79 :=x+h;.. y:=y
0162F0: 2B 68 3B 0D 0A 20 20 20 20 70 6C 6F 74 3B 0D 0A +h;.. plot;..
016300: 20 20 75 6E 74 69 6C 20 69 3D 6E 3B 0D 0A 65 6E until i=n;..en
016310: 64 3B 0D 0A 0D 0A 62 65 67 69 6E 0D 0A 20 20 53 d;....begin.. S
016320: 65 74 48 65 61 64 65 72 4F 6E 3B 0D 0A 20 20 44 etHeaderOn;.. D
016330: 65 66 69 6E 65 57 6F 72 6C 64 28 31 2C 2D 33 2C efineWorld(1,-3,
016340: 35 31 34 2C 35 31 34 2C 2D 33 29 3B 0D 0A 20 20 514,514,-3);..
016350: 53 65 6C 65 63 74 57 6F 72 6C 64 28 31 29 3B 0D SelectWorld(1);.
016360: 0A 20 20 44 65 66 69 6E 65 57 69 6E 64 6F 77 49 . DefineWindowI
016370: 42 4D 28 32 2C 30 2C 30 2C 33 39 2C 39 39 29 3B BM(2,0,0,39,99);
016380: 0D 0A 20 20 53 65 6C 65 63 74 57 69 6E 64 6F 77 .. SelectWindow
016390: 28 32 29 3B 0D 0A 20 20 49 6E 76 65 72 74 57 69 (2);.. InvertWi
0163A0: 6E 64 6F 77 3B 0D 0A 20 20 44 65 66 69 6E 65 57 ndow;.. DefineW
0163B0: 69 6E 64 6F 77 49 42 4D 28 32 2C 34 30 2C 31 30 indowIBM(2,40,10
0163C0: 30 2C 37 39 2C 31 39 30 29 3B 0D 0A 20 20 53 65 0,79,190);.. Se
0163D0: 6C 65 63 74 57 69 6E 64 6F 77 28 32 29 3B 0D 0A lectWindow(2);..
0163E0: 20 20 49 6E 76 65 72 74 57 69 6E 64 6F 77 3B 0D InvertWindow;.
0163F0: 0A 20 20 44 65 66 69 6E 65 57 69 6E 64 6F 77 49 . DefineWindowI
016400: 61 72 20 64 65 66 61 75 74 20 6C 65 20 72 61 74 ar defaut le rat
016410: 69 6F 7D 0D 0A 20 20 53 65 74 41 73 70 65 63 74 io}.. SetAspect
016420: 28 30 2E 32 29 3B 20 20 20 20 20 20 20 20 20 20 (0.2);
016430: 20 20 20 20 20 20 20 7B 6C 27 27 69 6E 69 74 69 {l''initi
016440: 61 6C 69 73 65 20 70 6F 75 72 20 63 65 74 74 65 alise pour cette
016450: 20 72 6F 75 74 69 6E 65 7D 0D 0A 0D 0A 20 20 66 routine}.... f
016460: 6F 72 20 69 3A 3D 31 20 74 6F 20 31 35 20 64 6F or i:=1 to 15 do
016470: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7B {
016480: 74 72 61 63 65 20 64 65 20 63 65 72 63 6C 65 73 trace de cercles
016490: 7D 0D 0A 20 20 62 65 67 69 6E 0D 0A 20 20 20 20 }.. begin..
0164A0: 44 72 61 77 43 69 72 63 6C 65 28 35 30 30 2C 35 DrawCircle(500,5
0164B0: 30 30 2C 72 61 64 29 3B 0D 0A 20 20 20 20 53 65 00,rad);.. Se
0164C0: 74 41 73 70 65 63 74 28 30 2E 32 2B 69 2F 31 30 tAspect(0.2+i/10
0164D0: 29 3B 0D 0A 20 20 20 20 72 61 64 3A 3D 72 61 64 );.. rad:=rad
0164E0: 2D 30 2E 30 35 3B 0D 0A 20 20 65 6E 64 3B 0D 0A -0.05;.. end;..
0164F0: 0D 0A 20 20 53 65 74 41 73 70 65 63 74 28 41 73 .. SetAspect(As
016500: 70 65 63 74 4C 6F 63 29 3B 20 20 20 20 20 20 20 pectLoc);
016510: 20 20 20 20 7B 72 65 73 74 61 75 72 65 20 6C 65 {restaure le
016520: 20 72 61 74 69 6F 20 61 6E 74 65 72 69 65 75 72 ratio anterieur
016530: 7D 0D 0A 0D 0A 20 20 72 65 70 65 61 74 20 75 6E }.... repeat un
016540: 74 69 6C 20 6B 65 79 70 72 65 73 73 65 64 3B 20 til keypressed;
016550: 20 20 20 20 20 20 20 7B 61 74 74 65 6E 64 20 6A {attend j
016560: 75 73 71 75 27 27 61 20 75 6E 65 20 74 6F 75 63 usqu''a une touc
016570: 68 65 20 73 6F 69 74 20 66 72 61 70 70 65 65 7D he soit frappee}
016580: 0D 0A 20 20 4C 65 61 76 65 47 72 61 70 68 69 63 .. LeaveGraphic
016590: 3B 0D 0A 65 6E 64 2E 0D 0A 1A 1A 1A 1A 1A 1A 1A ;..end..........
0165A0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0165B0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0165C0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0165D0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0165E0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0165F0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
016600: 42 4D 28 31 2C 30 2C 30 2C 37 39 2C 31 39 30 29 BM(1,0,0,79,190)
016610: 3B 0D 0A 20 20 44 65 66 69 6E 65 48 65 61 64 65 ;.. DefineHeade
016620: 72 28 31 2C 27 55 6E 65 20 63 6F 75 72 62 65 20 r(1,'Une courbe
016630: 64 65 20 53 69 65 72 70 69 6E 73 6B 69 27 29 3B de Sierpinski');
016640: 0D 0A 20 20 53 65 6C 65 63 74 57 69 6E 64 6F 77 .. SelectWindow
016650: 28 31 29 3B 0D 0A 20 20 44 72 61 77 42 6F 72 64 (1);.. DrawBord
016660: 65 72 3B 0D 0A 20 20 67 6F 74 6F 78 79 28 31 2C er;.. gotoxy(1,
016670: 32 35 29 3B 0D 0A 20 20 77 72 69 74 65 28 27 4C 25);.. write('L
016680: 27 27 65 63 72 61 6E 20 63 6F 6D 70 6C 65 74 20 ''ecran complet
016690: 65 73 74 20 6C 61 20 66 65 6E 65 74 72 65 20 61 est la fenetre a
0166A0: 63 74 75 65 6C 6C 65 2E 27 29 3B 0D 0A 20 20 73 ctuelle.');.. s
0166B0: 65 63 3A 3D 66 61 6C 73 65 3B 0D 0A 20 20 44 6F ec:=false;.. Do
0166C0: 49 74 3B 0D 0A 20 20 67 6F 74 6F 78 79 28 35 37 It;.. gotoxy(57
0166D0: 2C 32 35 29 3B 0D 0A 20 20 77 61 69 74 72 65 74 ,25);.. waitret
0166E0: 75 72 6E 28 31 35 30 30 30 29 3B 0D 0A 0D 0A 20 urn(15000);....
0166F0: 20 44 65 66 69 6E 65 57 69 6E 64 6F 77 49 42 4D DefineWindowIBM
016700: 28 31 2C 32 30 2C 34 30 2C 35 39 2C 31 35 39 29 (1,20,40,59,159)
016710: 3B 0D 0A 20 20 52 65 6D 6F 76 65 48 65 61 64 65 ;.. RemoveHeade
016720: 72 28 31 29 3B 0D 0A 20 20 53 65 6C 65 63 74 57 r(1);.. SelectW
016730: 69 6E 64 6F 77 28 31 29 3B 0D 0A 20 20 53 65 74 indow(1);.. Set
016740: 42 61 63 6B 67 72 6F 75 6E 64 28 30 29 3B 0D 0A Background(0);..
016750: 20 20 44 72 61 77 42 6F 72 64 65 72 3B 0D 0A 20 DrawBorder;..
016760: 20 44 65 66 69 6E 65 57 69 6E 64 6F 77 49 42 4D DefineWindowIBM
016770: 28 32 2C 34 30 2C 34 30 2C 35 39 2C 39 39 29 3B (2,40,40,59,99);
016780: 0D 0A 20 20 53 65 6C 65 63 74 57 69 6E 64 6F 77 .. SelectWindow
016790: 28 32 29 3B 0D 0A 20 20 49 6E 76 65 72 74 57 69 (2);.. InvertWi
0167A0: 6E 64 6F 77 3B 0D 0A 20 20 44 65 66 69 6E 65 57 ndow;.. DefineW
0167B0: 69 6E 64 6F 77 49 42 4D 28 32 2C 32 30 2C 31 30 indowIBM(2,20,10
0167C0: 30 2C 33 39 2C 31 35 39 29 3B 0D 0A 20 20 53 65 0,39,159);.. Se
0167D0: 6C 65 63 74 57 69 6E 64 6F 77 28 32 29 3B 0D 0A lectWindow(2);..
0167E0: 20 20 49 6E 76 65 72 74 57 69 6E 64 6F 77 3B 0D InvertWindow;.
0167F0: 0A 20 20 53 65 6C 65 63 74 57 69 6E 64 6F 77 28 . SelectWindow(
016800: 7B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D {---------------
016810: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
016820: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
016830: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
016840: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 7D 0D 0A -------------}..
016850: 0D 0A 6F 76 65 72 6C 61 79 20 70 72 6F 63 65 64 ..overlay proced
016860: 75 72 65 20 73 69 65 72 3B 0D 0A 63 6F 6E 73 74 ure sier;..const
016870: 20 6E 3D 34 3B 0D 0A 76 61 72 20 69 2C 68 2C 78 n=4;..var i,h,x
016880: 2C 79 2C 78 30 2C 79 30 3A 69 6E 74 65 67 65 72 ,y,x0,y0:integer
016890: 3B 0D 0A 20 20 20 20 73 65 63 3A 62 6F 6F 6C 65 ;.. sec:boole
0168A0: 61 6E 3B 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 65 an;....procedure
0168B0: 20 70 6C 6F 74 3B 0D 0A 62 65 67 69 6E 0D 0A 20 plot;..begin..
0168C0: 20 69 66 20 73 65 63 20 74 68 65 6E 20 53 65 74 if sec then Set
0168D0: 43 6F 6C 6F 72 57 68 69 74 65 20 65 6C 73 65 20 ColorWhite else
0168E0: 53 65 74 43 6F 6C 6F 72 42 6C 61 63 6B 3B 0D 0A SetColorBlack;..
0168F0: 20 20 44 72 61 77 4C 69 6E 65 28 78 2C 79 2C 78 DrawLine(x,y,x
016900: 30 2C 79 30 29 3B 0D 0A 20 20 44 72 61 77 4C 69 0,y0);.. DrawLi
016910: 6E 65 28 78 2B 32 35 36 2C 79 2B 32 35 36 2C 78 ne(x+256,y+256,x
016920: 30 2B 32 35 36 2C 79 30 2B 32 35 36 29 3B 0D 0A 0+256,y0+256);..
016930: 20 20 69 66 20 73 65 63 20 74 68 65 6E 20 53 65 if sec then Se
016940: 74 43 6F 6C 6F 72 42 6C 61 63 6B 20 65 6C 73 65 tColorBlack else
016950: 20 53 65 74 43 6F 6C 6F 72 57 68 69 74 65 3B 0D SetColorWhite;.
016960: 0A 20 20 44 72 61 77 4C 69 6E 65 28 78 2B 32 35 . DrawLine(x+25
016970: 36 2C 79 2C 78 30 2B 32 35 36 2C 79 30 29 3B 0D 6,y,x0+256,y0);.
016980: 0A 20 20 44 72 61 77 4C 69 6E 65 28 78 2C 79 2B . DrawLine(x,y+
016990: 32 35 36 2C 78 30 2C 79 30 2B 32 35 36 29 3B 0D 256,x0,y0+256);.
0169A0: 0A 20 20 78 30 3A 3D 78 3B 0D 0A 20 20 79 30 3A . x0:=x;.. y0:
0169B0: 3D 79 3B 0D 0A 65 6E 64 3B 0D 0A 0D 0A 7B 24 41 =y;..end;....{$A
0169C0: 2D 7D 0D 0A 70 72 6F 63 65 64 75 72 65 20 62 28 -}..procedure b(
0169D0: 69 3A 69 6E 74 65 67 65 72 29 3B 20 66 6F 72 77 i:integer); forw
0169E0: 61 72 64 3B 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 ard;....procedur
0169F0: 65 20 63 28 69 3A 69 6E 74 65 67 65 72 29 3B 20 e c(i:integer);
016A00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
016A10: 13 00 01 00 02 09 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: 31 29 3B 0D 0A 20 20 43 6C 65 61 72 45 6F 6C 28 1);.. ClearEol(
016B10: 32 35 29 3B 0D 0A 20 20 67 6F 74 6F 78 79 28 31 25);.. gotoxy(1
016B20: 2C 32 35 29 3B 0D 0A 20 20 77 72 69 74 65 28 27 ,25);.. write('
016B30: 20 4C 65 73 20 6D 65 6D 65 73 20 64 65 73 73 69 Les memes dessi
016B40: 6E 73 20 64 61 6E 73 20 75 6E 65 20 66 65 6E 65 ns dans une fene
016B50: 74 72 65 20 70 6C 75 73 20 70 65 74 69 74 65 20 tre plus petite
016B60: 27 29 3B 0D 0A 20 20 73 65 63 3A 3D 74 72 75 65 ');.. sec:=true
016B70: 3B 0D 0A 20 20 44 6F 49 74 3B 0D 0A 20 20 67 6F ;.. DoIt;.. go
016B80: 74 6F 78 79 28 35 37 2C 32 35 29 3B 0D 0A 20 20 toxy(57,25);..
016B90: 77 61 69 74 72 65 74 75 72 6E 28 31 35 30 30 30 waitreturn(15000
016BA0: 29 3B 0D 0A 0D 0A 20 20 43 6C 65 61 72 45 6F 6C );.... ClearEol
016BB0: 28 32 35 29 3B 0D 0A 20 20 67 6F 74 6F 78 79 28 (25);.. gotoxy(
016BC0: 31 2C 32 35 29 3B 0D 0A 20 20 77 72 69 74 65 28 1,25);.. write(
016BD0: 27 4C 27 27 65 63 72 61 6E 20 65 73 74 20 73 61 'L''ecran est sa
016BE0: 75 76 65 20 61 76 65 63 20 6C 61 20 70 72 6F 63 uve avec la proc
016BF0: 65 64 75 72 65 20 53 61 76 65 53 63 72 65 65 6E edure SaveScreen
016C00: 20 2C 20 2E 2E 2E 27 29 3B 0D 0A 20 20 53 61 76 , ...');.. Sav
016C10: 65 53 63 72 65 65 6E 28 27 54 45 53 54 2E 50 49 eScreen('TEST.PI
016C20: 43 27 29 3B 0D 0A 20 20 64 65 6C 61 79 28 31 30 C');.. delay(10
016C30: 30 30 29 3B 0D 0A 20 20 43 6C 65 61 72 53 63 72 00);.. ClearScr
016C40: 65 65 6E 3B 0D 0A 20 20 64 65 6C 61 79 28 31 30 een;.. delay(10
016C50: 30 30 29 3B 0D 0A 20 20 4C 6F 61 64 53 63 72 65 00);.. LoadScre
016C60: 65 6E 28 27 54 45 53 54 2E 50 49 43 27 29 3B 0D en('TEST.PIC');.
016C70: 0A 20 20 43 6C 65 61 72 45 6F 6C 28 32 35 29 3B . ClearEol(25);
016C80: 0D 0A 20 20 67 6F 74 6F 78 79 28 31 2C 32 35 29 .. gotoxy(1,25)
016C90: 3B 0D 0A 20 20 77 72 69 74 65 28 27 2E 2E 2E 20 ;.. write('...
016CA0: 65 74 20 72 61 6D 65 6E 65 2E 27 29 3B 0D 0A 20 et ramene.');..
016CB0: 20 67 6F 74 6F 78 79 28 35 37 2C 32 35 29 3B 0D gotoxy(57,25);.
016CC0: 0A 20 20 77 61 69 74 72 65 74 75 72 6E 28 31 35 . waitreturn(15
016CD0: 30 30 30 29 3B 0D 0A 20 20 44 65 66 69 6E 65 57 000);.. DefineW
016CE0: 6F 72 6C 64 28 31 2C 30 2C 31 39 39 2C 36 33 39 orld(1,0,199,639
016CF0: 2C 30 29 3B 0D 0A 20 20 53 65 6C 65 63 74 57 6F ,0);.. SelectWo
016D00: 20 67 6F 74 6F 78 79 28 34 30 2C 38 29 3B 0D 0A gotoxy(40,8);..
016D10: 20 20 77 72 69 74 65 28 27 54 6F 74 61 75 78 20 write('Totaux
016D20: 65 6E 20 20 70 6F 75 72 63 65 6E 74 61 67 65 27 en pourcentage'
016D30: 29 3B 0D 0A 20 20 66 6F 72 20 69 3A 3D 31 20 74 );.. for i:=1 t
016D40: 6F 20 6E 20 64 6F 0D 0A 20 20 20 62 65 67 69 6E o n do.. begin
016D50: 0D 0A 20 20 20 20 67 6F 74 6F 78 79 28 31 31 2C .. gotoxy(11,
016D60: 39 2B 69 29 3B 0D 0A 20 20 20 20 77 72 69 74 65 9+i);.. write
016D70: 6C 6E 28 61 5B 69 5D 2E 74 65 78 74 2C 27 20 20 ln(a[i].text,'
016D80: 27 2C 61 5B 69 5D 2E 61 72 65 61 3A 33 3A 32 2C ',a[i].area:3:2,
016D90: 27 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 '
016DA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 27 2C 61 ',a
016DB0: 5B 69 5D 2E 61 72 65 61 2F 73 75 6D 2A 31 30 30 [i].area/sum*100
016DC0: 3A 33 3A 32 29 3B 0D 0A 20 20 20 65 6E 64 3B 0D :3:2);.. end;.
016DD0: 0A 0D 0A 20 20 6D 73 67 28 27 20 20 44 65 73 73 ... msg(' Dess
016DE0: 69 6E 20 65 6E 20 61 72 72 69 65 72 65 20 70 6C in en arriere pl
016DF0: 61 6E 20 3A 20 20 53 65 6C 65 63 74 53 63 72 65 an : SelectScre
016E00: 65 6E 27 29 3B 0D 0A 20 20 63 6F 70 79 73 63 72 en');.. copyscr
016E10: 65 65 6E 3B 0D 0A 7B 20 20 53 65 6C 65 63 74 53 een;..{ SelectS
016E20: 63 72 65 65 6E 28 32 29 3B 20 7D 0D 0A 20 20 43 creen(2); }.. C
016E30: 6C 65 61 72 53 63 72 65 65 6E 3B 0D 0A 20 20 53 learScreen;.. S
016E40: 65 6C 65 63 74 57 69 6E 64 6F 77 28 32 29 3B 0D electWindow(2);.
016E50: 0A 20 20 53 65 74 42 61 63 6B 67 72 6F 75 6E 64 . SetBackground
016E60: 28 30 29 3B 0D 0A 20 20 44 72 61 77 42 6F 72 64 (0);.. DrawBord
016E70: 65 72 3B 0D 0A 20 20 61 5B 31 5D 2E 61 72 65 61 er;.. a[1].area
016E80: 3A 3D 2D 61 5B 31 5D 2E 61 72 65 61 3B 0D 0A 20 :=-a[1].area;..
016E90: 20 78 44 72 61 77 43 61 72 74 50 69 65 28 33 30 xDrawCartPie(30
016EA0: 30 2C 31 30 30 2C 33 39 30 2C 37 33 2C 31 2E 30 0,100,390,73,1.0
016EB0: 35 2C 31 2E 35 2C 61 2C 6E 2C 32 2C 32 29 3B 0D 5,1.5,a,n,2,2);.
016EC0: 0A 20 20 52 65 73 65 74 57 69 6E 64 6F 77 53 74 . ResetWindowSt
016ED0: 61 63 6B 3B 0D 0A 20 20 53 74 6F 72 65 57 69 6E ack;.. StoreWin
016EE0: 64 6F 77 28 32 29 3B 0D 0A 20 20 73 65 6C 65 63 dow(2);.. selec
016EF0: 74 53 63 72 65 65 6E 28 32 29 3B 0D 0A 20 20 63 tScreen(2);.. c
016F00: 72 6C 64 28 31 29 3B 0D 0A 20 20 53 65 6C 65 63 rld(1);.. Selec
016F10: 74 57 69 6E 64 6F 77 28 31 29 3B 0D 0A 20 20 53 tWindow(1);.. S
016F20: 65 74 43 6F 6C 6F 72 57 68 69 74 65 3B 0D 0A 65 etColorWhite;..e
016F30: 6E 64 3B 0D 0A 0D 0A 1A 1A 1A 1A 1A 1A 1A 1A 1A nd;.............
016F40: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
016F50: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
016F60: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
016F70: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
016F80: 74 6F 78 79 28 35 37 2C 32 35 29 3B 0D 0A 20 20 toxy(57,25);..
016F90: 77 61 69 74 72 65 74 75 72 6E 28 31 35 30 30 30 waitreturn(15000
016FA0: 29 3B 0D 0A 0D 0A 20 20 43 6C 65 61 72 45 6F 6C );.... ClearEol
016FB0: 28 32 35 29 3B 0D 0A 20 20 67 6F 74 6F 78 79 28 (25);.. gotoxy(
016FC0: 31 2C 32 35 29 3B 0D 0A 20 20 77 72 69 74 65 28 1,25);.. write(
016FD0: 27 4C 27 27 65 63 72 61 6E 20 65 73 74 20 73 61 'L''ecran est sa
016FE0: 75 76 65 20 61 76 65 63 20 6C 61 20 70 72 6F 63 uve avec la proc
016FF0: 65 64 75 72 65 20 53 61 76 65 53 63 72 65 65 6E edure SaveScreen
017000: 20 2C 20 2E 2E 2E 27 29 3B 0D 0A 20 20 53 61 76 , ...');.. Sav
017010: 65 53 63 72 65 65 6E 28 27 54 45 53 54 2E 50 49 eScreen('TEST.PI
017020: 43 27 29 3B 0D 0A 20 20 64 65 6C 61 79 28 31 30 C');.. delay(10
017030: 30 30 29 3B 0D 0A 20 20 43 6C 65 61 72 53 63 72 00);.. ClearScr
017040: 65 65 6E 3B 0D 0A 20 20 64 65 6C 61 79 28 31 30 een;.. delay(10
017050: 30 30 29 3B 0D 0A 20 20 4C 6F 61 64 53 63 72 65 00);.. LoadScre
017060: 65 6E 28 27 54 45 53 54 2E 50 49 43 27 29 3B 0D en('TEST.PIC');.
017070: 0A 20 20 43 6C 65 61 72 45 6F 6C 28 32 35 29 3B . ClearEol(25);
017080: 0D 0A 20 20 67 6F 74 6F 78 79 28 31 2C 32 35 29 .. gotoxy(1,25)
017090: 3B 0D 0A 20 20 77 72 69 74 65 28 27 2E 2E 2E 20 ;.. write('...
0170A0: 65 74 20 72 61 6D 65 6E 65 2E 27 29 3B 0D 0A 20 et ramene.');..
0170B0: 20 67 6F 74 6F 78 79 28 35 37 2C 32 35 29 3B 0D gotoxy(57,25);.
0170C0: 0A 20 20 77 61 69 74 72 65 74 75 72 6E 28 31 35 . waitreturn(15
0170D0: 30 30 30 29 3B 0D 0A 20 20 44 65 66 69 6E 65 57 000);.. DefineW
0170E0: 6F 72 6C 64 28 31 2C 30 2C 31 39 39 2C 36 33 39 orld(1,0,199,639
0170F0: 2C 30 29 3B 0D 0A 20 20 53 65 6C 65 63 74 57 6F ,0);.. SelectWo
017100: 6F 70 79 73 63 72 65 65 6E 3B 0D 0A 20 20 53 65 opyscreen;.. Se
017110: 6C 65 63 74 53 63 72 65 65 6E 28 31 29 3B 0D 0A lectScreen(1);..
017120: 20 20 52 65 73 74 6F 72 65 57 69 6E 64 6F 77 28 RestoreWindow(
017130: 32 2C 30 2C 30 29 3B 0D 0A 0D 0A 20 20 64 65 6C 2,0,0);.... del
017140: 61 79 28 31 35 30 30 30 29 3B 0D 0A 0D 0A 20 20 ay(15000);....
017150: 43 6F 70 79 53 63 72 65 65 6E 3B 0D 0A 20 20 6D CopyScreen;.. m
017160: 73 67 28 27 4C 65 73 20 76 61 72 69 61 74 69 6F sg('Les variatio
017170: 6E 73 20 64 27 27 75 6E 20 68 69 73 74 6F 67 72 ns d''un histogr
017180: 61 6D 6D 65 20 20 3A 20 20 44 72 61 77 43 61 72 amme : DrawCar
017190: 74 50 69 65 27 29 3B 0D 0A 20 20 53 65 74 43 6F tPie');.. SetCo
0171A0: 6C 6F 72 42 6C 61 63 6B 3B 0D 0A 20 20 53 65 6C lorBlack;.. Sel
0171B0: 65 63 74 57 69 6E 64 6F 77 28 33 29 3B 0D 0A 20 ectWindow(3);..
0171C0: 20 53 65 74 42 61 63 6B 67 72 6F 75 6E 64 28 32 SetBackground(2
0171D0: 35 35 29 3B 0D 0A 20 20 44 72 61 77 42 6F 72 64 55);.. DrawBord
0171E0: 65 72 3B 0D 0A 20 20 61 5B 34 5D 2E 61 72 65 61 er;.. a[4].area
0171F0: 3A 3D 2D 61 5B 34 5D 2E 61 72 65 61 3B 0D 0A 20 :=-a[4].area;..
017200: 20 78 44 72 61 77 43 61 72 74 50 69 65 28 33 32 xDrawCartPie(32
017210: 30 2C 31 30 30 2C 34 33 37 2C 37 33 2C 31 2E 30 0,100,437,73,1.0
017220: 35 2C 31 2E 36 2C 61 2C 6E 2C 31 2C 31 29 3B 0D 5,1.6,a,n,1,1);.
017230: 0A 20 20 61 5B 34 5D 2E 61 72 65 61 3A 3D 2D 61 . a[4].area:=-a
017240: 5B 34 5D 2E 61 72 65 61 3B 0D 0A 20 20 4D 6F 76 [4].area;.. Mov
017250: 65 56 65 72 49 42 4D 28 2D 33 32 2C 74 72 75 65 eVerIBM(-32,true
017260: 29 3B 0D 0A 20 20 4D 6F 76 65 48 6F 72 49 42 4D );.. MoveHorIBM
017270: 28 2D 32 36 2C 74 72 75 65 29 3B 0D 0A 20 20 43 (-26,true);.. C
017280: 6F 70 79 53 63 72 65 65 6E 3B 0D 0A 20 20 64 65 opyScreen;.. de
017290: 6C 61 79 28 31 30 30 30 29 3B 0D 0A 0D 0A 20 20 lay(1000);....
0172A0: 53 65 6C 65 63 74 57 69 6E 64 6F 77 28 34 29 3B SelectWindow(4);
0172B0: 0D 0A 20 20 53 65 74 42 61 63 6B 67 72 6F 75 6E .. SetBackgroun
0172C0: 64 28 32 35 35 29 3B 0D 0A 20 20 44 72 61 77 42 d(255);.. DrawB
0172D0: 6F 72 64 65 72 3B 0D 0A 20 20 78 44 72 61 77 43 order;.. xDrawC
0172E0: 61 72 74 50 69 65 28 33 32 30 2C 31 30 30 2C 34 artPie(320,100,4
0172F0: 33 37 2C 37 33 2C 30 2E 37 35 2C 31 2E 35 2C 61 37,73,0.75,1.5,a
017300: FE 21 F9 25 CD 4C 0A D2 FA 02 11 81 1F B7 CA 1E .!.%.L..........
017310: 03 7E 12 FE 24 CA DE 02 23 13 05 C2 11 03 3E 24 .~..$...#.....>$
017320: 12 C3 DE 02 21 1D 21 7E B7 3E 10 CC 9B 0C CA 39 ....!.!~.>.....9
017330: 03 3E 11 CD 9B 0C CD 82 0A 3E 07 CD 86 0C D8 3E .>.......>.....>
017340: 12 CD 9B 0C 3E FF CD 4C 0A D2 3F 03 C3 24 03 21 ....>..L..?..$.!
017350: 1E 22 7E B7 3E 13 CC 9B 0C CA 7E 03 3E 14 CD 9B ."~.>.....~.>...
017360: 0C 46 23 56 23 4E 23 3E 15 CD 9B 0C E5 21 E7 22 .F#V#N#>.....!."
017370: CD C3 03 21 B0 23 CD C3 03 E1 05 C2 63 03 3E 07 ...!.#......c.>.
017380: CD 86 0C D8 3E 18 CD 9B 0C 3E 19 CD 9B 0C CD 3A ....>....>.....:
017390: 0B CD 0D 0B CA 4F 03 CD 1B 0B 21 B4 03 CD DB 1E .....O....!.....
0173A0: D2 AC 03 CD ED 01 D2 89 03 C3 4F 03 3E 52 CD 9B ..........O.>R..
0173B0: 0C C3 84 03 05 00 00 41 D4 03 44 0E 04 43 53 04 .......A..D..CS.
0173C0: 46 95 04 C5 CD 5F 04 C1 3E 17 D2 9B 0C 2B 56 3E F...._..>....+V>
0173D0: 16 C3 9B 0C CD 1D 04 21 1E 22 DC EB 03 21 E7 22 .......!."...!."
0173E0: DC EB 03 21 B0 23 DC EB 03 B7 C9 CD 05 0B DC 81 ...!.#..........
0173F0: 04 D0 F5 7E 87 3C FE C7 D2 07 04 34 85 6F 8C 95 ...~.<.....4.o..
017400: 67 F1 77 23 71 37 C9 3E 55 CD 9B 0C B7 C9 21 1E g.w#q7.>U.....!.
017410: 22 7E B7 3E 54 CA 9B 0C CD 1D 04 B7 C9 CD 6F 04 "~.>T.........o.
017420: D0 4F 21 1E 22 CD 31 04 21 E7 22 CD 31 04 21 B0 .O!.".1.!.".1.!.
017430: 23 E5 C5 CD 5F 04 DA 3D 04 C1 E1 37 C9 D5 54 5D #..._..=...7..T]
017440: 13 2B 78 87 47 1A 77 23 13 05 C2 45 04 D1 C1 E1 .+x.G.w#...E....
017450: 35 37 C9 AF 32 1E 22 32 E7 22 32 B0 23 B7 C9 7E 57..2."2."2.#..~
017460: B7 C8 47 23 23 79 BE 37 C8 05 C2 63 04 B7 C9 CD ..G##y.7...c....
017470: 0D 0B C8 21 50 00 CD 54 0B 7D D8 C0 3E 56 C3 9B ...!P..T.}..>V..
017480: 0C CD 0D 0B C8 E5 21 00 01 CD 54 0B 7D E1 D8 C0 ......!...T.}...
017490: 3E 57 C3 9B 0C 37 C9 21 79 24 7E B7 3E 1A CC 9B >W...7.!y$~.>...
0174A0: 0C CA BE 04 3E 1B CD 9B 0C 46 23 4E 23 3E 1C CD ....>....F#N#>..
0174B0: 9B 0C CD 82 0A 5E 16 00 13 19 05 C2 AB 04 3E 07 .....^........>.
0174C0: CD 86 0C D8 3E 1D CD 9B 0C 3E 19 CD 9B 0C 21 F9 ....>....>....!.
0174D0: 25 3E FF CD 4C 0A EB CD 0D 0B CA 97 04 CD 1B 0B %>..L...........
0174E0: 21 FA 04 CD DB 1E D2 F2 04 CD ED 01 D2 C9 04 C3 !...............
0174F0: 97 04 3E 52 CD 9B 0C C3 C4 04 05 00 00 41 09 05 ..>R.........A..
017500: 2C 6E 2C 31 2C 31 29 3B 0D 0A 20 20 4D 6F 76 65 ,n,1,1);.. Move
017510: 56 65 72 49 42 4D 28 2D 34 34 2C 74 72 75 65 29 VerIBM(-44,true)
017520: 3B 0D 0A 20 20 4D 6F 76 65 48 6F 72 49 42 4D 28 ;.. MoveHorIBM(
017530: 31 39 2C 74 72 75 65 29 3B 0D 0A 20 20 64 65 6C 19,true);.. del
017540: 61 79 28 31 30 30 30 29 3B 0D 0A 20 20 43 6F 70 ay(1000);.. Cop
017550: 79 53 63 72 65 65 6E 3B 0D 0A 0D 0A 20 20 53 65 yScreen;.... Se
017560: 6C 65 63 74 57 69 6E 64 6F 77 28 35 29 3B 0D 0A lectWindow(5);..
017570: 20 20 53 65 74 42 61 63 6B 67 72 6F 75 6E 64 28 SetBackground(
017580: 32 35 35 29 3B 0D 0A 20 20 44 72 61 77 42 6F 72 255);.. DrawBor
017590: 64 65 72 3B 0D 0A 20 20 78 44 72 61 77 43 61 72 der;.. xDrawCar
0175A0: 74 50 69 65 28 33 32 30 2C 31 30 30 2C 34 33 37 tPie(320,100,437
0175B0: 2C 31 30 30 2C 30 2E 37 2C 31 2E 34 2C 61 2C 6E ,100,0.7,1.4,a,n
0175C0: 2C 32 2C 31 29 3B 0D 0A 20 20 4D 6F 76 65 56 65 ,2,1);.. MoveVe
0175D0: 72 49 42 4D 28 33 30 2C 74 72 75 65 29 3B 0D 0A rIBM(30,true);..
0175E0: 20 20 4D 6F 76 65 48 6F 72 49 42 4D 28 2D 31 38 MoveHorIBM(-18
0175F0: 2C 74 72 75 65 29 3B 0D 0A 20 20 64 65 6C 61 79 ,true);.. delay
017600: 28 31 30 30 30 29 3B 0D 0A 0D 0A 20 20 53 65 6C (1000);.... Sel
017610: 65 63 74 57 69 6E 64 6F 77 28 36 29 3B 0D 0A 20 ectWindow(6);..
017620: 20 53 65 74 42 61 63 6B 67 72 6F 75 6E 64 28 32 SetBackground(2
017630: 35 35 29 3B 0D 0A 20 20 44 72 61 77 42 6F 72 64 55);.. DrawBord
017640: 65 72 3B 0D 0A 20 20 78 44 72 61 77 43 61 72 74 er;.. xDrawCart
017650: 50 69 65 28 33 32 30 2C 31 30 30 2C 34 38 32 2C Pie(320,100,482,
017660: 37 33 2C 31 2C 31 2E 35 2C 61 2C 6E 2C 30 2C 31 73,1,1.5,a,n,0,1
017670: 29 3B 0D 0A 20 20 64 65 6C 61 79 28 31 30 30 30 );.. delay(1000
017680: 29 3B 0D 0A 0D 0A 20 20 64 65 6C 61 79 28 31 35 );.... delay(15
017690: 30 30 30 29 3B 0D 0A 0D 0A 20 20 52 65 73 74 6F 000);.... Resto
0176A0: 72 65 57 69 6E 64 6F 77 28 32 2C 30 2C 30 29 3B reWindow(2,0,0);
0176B0: 0D 0A 0D 0A 20 20 64 65 6C 61 79 28 31 35 30 30 .... delay(1500
0176C0: 30 29 3B 0D 0A 20 20 53 65 74 43 6F 6C 6F 72 57 0);.. SetColorW
0176D0: 68 69 74 65 3B 0D 0A 65 6E 64 3B 0D 0A 0D 0A 1A hite;..end;.....
0176E0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0176F0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
017700: 76 61 72 20 73 75 6D 3A 72 65 61 6C 3B 0D 0A 20 var sum:real;..
017710: 20 20 20 69 2C 6A 2C 6E 3A 69 6E 74 65 67 65 72 i,j,n:integer
017720: 3B 0D 0A 20 20 20 20 61 3A 50 69 65 41 72 72 61 ;.. a:PieArra
017730: 79 3B 0D 0A 0D 0A 62 65 67 69 6E 0D 0A 20 20 43 y;....begin.. C
017740: 6C 65 61 72 53 63 72 65 65 6E 3B 0D 0A 20 20 53 learScreen;.. S
017750: 65 74 43 6F 6C 6F 72 57 68 69 74 65 3B 0D 0A 0D etColorWhite;...
017760: 0A 20 20 44 65 66 69 6E 65 57 69 6E 64 6F 77 49 . DefineWindowI
017770: 42 4D 28 31 2C 30 2C 30 2C 37 39 2C 31 38 35 29 BM(1,0,0,79,185)
017780: 3B 0D 0A 20 20 44 65 66 69 6E 65 57 69 6E 64 6F ;.. DefineWindo
017790: 77 49 42 4D 28 32 2C 32 30 2C 32 30 2C 37 37 2C wIBM(2,20,20,77,
0177A0: 31 38 30 29 3B 0D 0A 20 20 44 65 66 69 6E 65 57 180);.. DefineW
0177B0: 69 6E 64 6F 77 49 42 4D 28 33 2C 32 38 2C 36 30 indowIBM(3,28,60
0177C0: 2C 35 39 2C 31 36 30 29 3B 0D 0A 20 20 44 65 66 ,59,160);.. Def
0177D0: 69 6E 65 57 69 6E 64 6F 77 49 42 4D 28 34 2C 32 ineWindowIBM(4,2
0177E0: 38 2C 36 30 2C 35 39 2C 31 35 30 29 3B 0D 0A 20 8,60,59,150);..
0177F0: 20 44 65 66 69 6E 65 57 69 6E 64 6F 77 49 42 4D DefineWindowIBM
017800: 28 35 2C 32 38 2C 36 30 2C 35 39 2C 31 35 30 29 (5,28,60,59,150)
017810: 3B 0D 0A 20 20 44 65 66 69 6E 65 57 69 6E 64 6F ;.. DefineWindo
017820: 77 49 42 4D 28 36 2C 32 38 2C 36 30 2C 35 39 2C wIBM(6,28,60,59,
017830: 31 35 30 29 3B 0D 0A 0D 0A 20 20 44 65 66 69 6E 150);.... Defin
017840: 65 48 65 61 64 65 72 28 31 2C 27 4C 65 73 20 61 eHeader(1,'Les a
017850: 70 70 6C 69 63 61 74 69 6F 6E 73 20 61 76 65 63 pplications avec
017860: 20 63 61 6D 65 6D 62 65 72 74 27 29 3B 0D 0A 20 camembert');..
017870: 20 44 65 66 69 6E 65 48 65 61 64 65 72 28 32 2C DefineHeader(2,
017880: 27 56 6F 6C 75 6D 65 65 20 64 65 73 20 76 65 6E 'Volumee des ven
017890: 74 65 73 27 29 3B 0D 0A 20 20 44 65 66 69 6E 65 tes');.. Define
0178A0: 48 65 61 64 65 72 28 33 2C 27 41 76 65 63 20 74 Header(3,'Avec t
0178B0: 65 78 74 65 27 29 3B 0D 0A 20 20 44 65 66 69 6E exte');.. Defin
0178C0: 65 48 65 61 64 65 72 28 34 2C 27 41 76 65 63 20 eHeader(4,'Avec
0178D0: 74 65 78 74 65 27 29 3B 0D 0A 20 20 44 65 66 69 texte');.. Defi
0178E0: 6E 65 48 65 61 64 65 72 28 35 2C 27 41 76 65 63 neHeader(5,'Avec
0178F0: 20 74 65 78 74 65 20 65 74 20 6E 6F 6D 62 72 65 texte et nombre
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: 73 27 29 3B 0D 0A 20 20 44 65 66 69 6E 65 48 65 s');.. DefineHe
017B10: 61 64 65 72 28 36 2C 27 53 61 6E 73 20 74 65 78 ader(6,'Sans tex
017B20: 74 65 27 29 3B 0D 0A 0D 0A 20 20 61 5B 31 5D 2E te');.... a[1].
017B30: 61 72 65 61 3A 3D 32 35 3B 0D 0A 20 20 61 5B 31 area:=25;.. a[1
017B40: 5D 2E 74 65 78 74 3A 3D 27 4A 41 4E 2E 20 27 3B ].text:='JAN. ';
017B50: 0D 0A 20 20 61 5B 32 5D 2E 61 72 65 61 3A 3D 31 .. a[2].area:=1
017B60: 37 2E 35 3B 0D 0A 20 20 61 5B 32 5D 2E 74 65 78 7.5;.. a[2].tex
017B70: 74 3A 3D 27 46 45 56 2E 20 27 3B 0D 0A 20 20 61 t:='FEV. ';.. a
017B80: 5B 33 5D 2E 61 72 65 61 3A 3D 39 2E 36 3B 0D 0A [3].area:=9.6;..
017B90: 20 20 61 5B 33 5D 2E 74 65 78 74 3A 3D 27 4D 41 a[3].text:='MA
017BA0: 52 2E 20 27 3B 0D 0A 20 20 61 5B 34 5D 2E 61 72 R. ';.. a[4].ar
017BB0: 65 61 3A 3D 32 31 3B 0D 0A 20 20 61 5B 34 5D 2E ea:=21;.. a[4].
017BC0: 74 65 78 74 3A 3D 27 41 56 52 2E 20 27 3B 0D 0A text:='AVR. ';..
017BD0: 20 20 61 5B 35 5D 2E 61 72 65 61 3A 3D 33 35 3B a[5].area:=35;
017BE0: 0D 0A 20 20 61 5B 35 5D 2E 74 65 78 74 3A 3D 27 .. a[5].text:='
017BF0: 4D 41 49 20 20 27 3B 0D 0A 0D 0A 20 20 6E 3A 3D MAI ';.... n:=
017C00: 35 3B 0D 0A 20 20 73 75 6D 3A 3D 30 3B 0D 0A 20 5;.. sum:=0;..
017C10: 20 66 6F 72 20 69 3A 3D 31 20 74 6F 20 6E 20 64 for i:=1 to n d
017C20: 6F 0D 0A 20 20 20 20 62 65 67 69 6E 0D 0A 20 20 o.. begin..
017C30: 20 20 20 20 61 5B 69 5D 2E 61 72 65 61 3A 3D 61 a[i].area:=a
017C40: 5B 69 5D 2E 61 72 65 61 2B 35 2E 33 35 3B 0D 0A [i].area+5.35;..
017C50: 20 20 20 20 20 20 73 75 6D 3A 3D 73 75 6D 2B 61 sum:=sum+a
017C60: 5B 69 5D 2E 61 72 65 61 3B 0D 0A 20 20 20 20 65 [i].area;.. e
017C70: 6E 64 3B 0D 0A 0D 0A 20 20 53 65 6C 65 63 74 57 nd;.... SelectW
017C80: 69 6E 64 6F 77 28 31 29 3B 0D 0A 20 20 44 72 61 indow(1);.. Dra
017C90: 77 42 6F 72 64 65 72 3B 0D 0A 20 20 67 6F 74 6F wBorder;.. goto
017CA0: 78 79 28 32 34 2C 35 29 3B 0D 0A 20 20 77 72 69 xy(24,5);.. wri
017CB0: 74 65 6C 6E 28 27 56 65 6E 74 65 73 20 20 31 39 teln('Ventes 19
017CC0: 38 35 27 29 3B 0D 0A 20 20 67 6F 74 6F 78 79 28 85');.. gotoxy(
017CD0: 35 2C 38 29 3B 0D 0A 20 20 77 72 69 74 65 28 27 5,8);.. write('
017CE0: 54 6F 74 61 6C 73 20 69 6E 20 24 20 20 28 78 20 Totals in $ (x
017CF0: 31 2C 30 30 30 2C 30 30 30 29 27 29 3B 0D 0A 20 1,000,000)');..
017D00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
017D10: 14 00 01 00 02 09 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: 76 61 72 20 78 2C 74 65 6D 70 3A 72 65 61 6C 3B var x,temp:real;
017E10: 0D 0A 20 20 20 20 6D 2C 64 78 2C 64 79 2C 69 2C .. m,dx,dy,i,
017E20: 6A 2C 6E 2C 6C 69 6E 65 73 2C 73 63 61 6C 65 3A j,n,lines,scale:
017E30: 69 6E 74 65 67 65 72 3B 0D 0A 20 20 20 20 58 31 integer;.. X1
017E40: 2C 59 31 2C 58 32 2C 59 32 3A 69 6E 74 65 67 65 ,Y1,X2,Y2:intege
017E50: 72 3B 0D 0A 20 20 20 20 62 2C 61 3A 50 6C 6F 74 r;.. b,a:Plot
017E60: 41 72 72 61 79 3B 0D 0A 62 65 67 69 6E 0D 0A 20 Array;..begin..
017E70: 20 43 6C 65 61 72 53 63 72 65 65 6E 3B 0D 0A 20 ClearScreen;..
017E80: 20 53 65 74 43 6F 6C 6F 72 57 68 69 74 65 3B 0D SetColorWhite;.
017E90: 0A 20 20 67 6F 74 6F 78 79 28 35 30 2C 32 35 29 . gotoxy(50,25)
017EA0: 3B 0D 0A 20 20 77 72 69 74 65 28 27 55 6E 20 6D ;.. write('Un m
017EB0: 6F 6D 65 6E 74 20 20 2E 2E 2E 2E 27 29 3B 0D 0A oment ....');..
017EC0: 20 20 64 78 3A 3D 2D 38 3B 0D 0A 20 20 64 79 3A dx:=-8;.. dy:
017ED0: 3D 37 3B 0D 0A 20 20 58 31 3A 3D 33 3B 0D 0A 20 =7;.. X1:=3;..
017EE0: 20 59 31 3A 3D 35 3B 0D 0A 20 20 58 32 3A 3D 32 Y1:=5;.. X2:=2
017EF0: 35 3B 0D 0A 20 20 59 32 3A 3D 31 30 3B 0D 0A 20 5;.. Y2:=10;..
017F00: 20 6C 69 6E 65 73 3A 3D 30 3B 0D 0A 20 20 73 63 lines:=0;.. sc
017F10: 61 6C 65 3A 3D 30 3B 0D 0A 20 20 6E 3A 3D 31 32 ale:=0;.. n:=12
017F20: 3B 0D 0A 20 20 6D 3A 3D 35 30 3B 0D 0A 20 20 78 ;.. m:=50;.. x
017F30: 3A 3D 2D 34 39 3B 0D 0A 0D 0A 20 20 44 65 66 69 :=-49;.... Defi
017F40: 6E 65 57 69 6E 64 6F 77 49 42 4D 28 31 2C 30 2C neWindowIBM(1,0,
017F50: 30 2C 37 39 2C 31 38 35 29 3B 0D 0A 20 20 44 65 0,79,185);.. De
017F60: 66 69 6E 65 57 69 6E 64 6F 77 49 42 4D 28 32 2C fineWindowIBM(2,
017F70: 33 30 2C 32 30 2C 37 30 2C 31 36 34 29 3B 0D 0A 30,20,70,164);..
017F80: 0D 0A 20 20 44 65 66 69 6E 65 48 65 61 64 65 72 .. DefineHeader
017F90: 28 31 2C 49 6E 74 65 72 70 6F 6C 61 74 69 6F 6E (1,Interpolation
017FA0: 20 3A 20 53 70 6C 69 6E 65 27 29 3B 0D 0A 20 20 : Spline');..
017FB0: 44 65 66 69 6E 65 48 65 61 64 65 72 28 32 2C 27 DefineHeader(2,'
017FC0: 55 6E 65 20 76 61 72 69 61 74 69 6F 6E 20 64 27 Une variation d'
017FD0: 27 75 6E 20 64 69 61 67 72 61 6D 6D 65 27 29 3B 'un diagramme');
017FE0: 0D 0A 0D 0A 20 20 78 3A 3D 2D 34 39 3B 0D 0A 20 .... x:=-49;..
017FF0: 20 66 6F 72 20 69 3A 3D 31 20 74 6F 20 6E 20 64 for i:=1 to n d
018000: 6E 73 6C 61 74 69 6F 6E 20 74 61 62 6C 65 20 66 nslation table f
018010: 75 6C 6C 5C 24 07 5C 5C 4B 65 79 20 6E 75 6D 62 ull\$.\\Key numb
018020: 65 72 73 20 6D 75 73 74 20 62 65 20 69 6E 20 74 ers must be in t
018030: 68 65 20 72 61 6E 67 65 20 30 20 74 6F 20 37 39 he range 0 to 79
018040: 5C 24 07 5C 5C 4B 65 79 20 63 6F 64 65 73 20 6D \$.\\Key codes m
018050: 75 73 74 20 62 65 20 69 6E 20 74 68 65 20 72 61 ust be in the ra
018060: 6E 67 65 20 30 20 74 6F 20 32 35 35 5C 24 07 5C nge 0 to 255\$.\
018070: 5C 4B 65 79 62 6F 61 72 64 20 65 78 70 61 6E 73 \Keyboard expans
018080: 69 6F 6E 20 62 75 66 66 65 72 20 66 75 6C 6C 5C ion buffer full\
018090: 24 07 5C 5C 4B 65 79 62 6F 61 72 64 20 65 78 70 $.\\Keyboard exp
0180A0: 61 6E 73 69 6F 6E 20 62 75 66 66 65 72 20 65 6D ansion buffer em
0180B0: 70 74 79 5C 24 07 5C 5C 4B 65 79 20 74 6F 6B 65 pty\$.\\Key toke
0180C0: 6E 73 20 6D 75 73 74 20 62 65 20 69 6E 20 74 68 ns must be in th
0180D0: 65 20 72 61 6E 67 65 20 30 20 74 6F 20 33 31 5C e range 0 to 31\
0180E0: 24 07 5C 5C 43 4F 4E 3A 20 6D 61 79 20 6F 6E 6C $.\\CON: may onl
0180F0: 79 20 62 65 20 61 73 73 69 67 6E 65 64 20 74 6F y be assigned to
018100: 20 54 54 59 3A 2C 20 43 52 54 3A 2C 20 42 41 54 TTY:, CRT:, BAT
018110: 3A 20 6F 72 20 55 43 31 3A 24 07 5C 5C 52 44 52 : or UC1:$.\\RDR
018120: 3A 20 6D 61 79 20 6F 6E 6C 79 20 62 65 20 61 73 : may only be as
018130: 73 69 67 6E 65 64 20 74 6F 20 54 54 59 3A 2C 20 signed to TTY:,
018140: 50 54 52 3A 2C 20 55 52 31 3A 20 6F 72 20 55 52 PTR:, UR1: or UR
018150: 32 3A 24 07 5C 5C 50 55 4E 3A 20 6D 61 79 20 6F 2:$.\\PUN: may o
018160: 6E 6C 79 20 62 65 20 61 73 73 69 67 6E 65 64 20 nly be assigned
018170: 74 6F 20 54 54 59 3A 2C 20 50 54 50 3A 2C 20 55 to TTY:, PTP:, U
018180: 50 31 3A 20 6F 72 20 55 50 32 3A 24 07 5C 5C 4C P1: or UP2:$.\\L
018190: 53 54 3A 20 6D 61 79 20 6F 6E 6C 79 20 62 65 20 ST: may only be
0181A0: 61 73 73 69 67 6E 65 64 20 74 6F 20 54 54 59 3A assigned to TTY:
0181B0: 2C 20 43 52 54 3A 2C 20 4C 50 54 3A 20 6F 72 20 , CRT:, LPT: or
0181C0: 55 4C 31 3A 24 07 5C 5C 49 6E 76 61 6C 69 64 20 UL1:$.\\Invalid
0181D0: 63 6F 6D 6D 61 6E 64 20 28 79 6F 75 20 6D 61 79 command (you may
0181E0: 20 6F 6E 6C 79 20 73 70 65 63 69 66 79 20 43 4F only specify CO
0181F0: 4E 3A 2C 20 52 44 52 3A 2C 20 50 55 4E 3A 20 6F N:, RDR:, PUN: o
018200: 6F 0D 0A 20 20 20 20 62 65 67 69 6E 0D 0A 20 20 o.. begin..
018210: 20 20 20 20 61 5B 69 2C 31 5D 3A 3D 69 2D 31 3B a[i,1]:=i-1;
018220: 0D 0A 20 20 20 20 20 20 61 5B 69 2C 32 5D 3A 3D .. a[i,2]:=
018230: 72 61 6E 64 6F 6D 2D 30 2E 35 3B 0D 0A 20 20 20 random-0.5;..
018240: 20 20 20 78 3A 3D 78 2B 37 3B 0D 0A 20 20 20 20 x:=x+7;..
018250: 65 6E 64 3B 0D 0A 0D 0A 20 20 78 73 70 6C 69 6E end;.... xsplin
018260: 65 28 61 2C 6E 2C 61 5B 32 2C 31 5D 2C 61 5B 6E e(a,n,a[2,1],a[n
018270: 2D 31 2C 31 5D 2C 62 2C 6D 29 3B 0D 0A 20 20 46 -1,1],b,m);.. F
018280: 69 6E 64 57 6F 72 6C 64 28 31 2C 62 2C 6D 2C 31 indWorld(1,b,m,1
018290: 2C 31 2E 30 38 29 3B 0D 0A 0D 0A 20 20 53 65 6C ,1.08);.... Sel
0182A0: 65 63 74 57 69 6E 64 6F 77 28 31 29 3B 0D 0A 20 ectWindow(1);..
0182B0: 20 43 6C 65 61 72 45 6F 6C 28 32 35 29 3B 0D 0A ClearEol(25);..
0182C0: 20 20 67 6F 74 6F 78 79 28 31 30 2C 32 35 29 3B gotoxy(10,25);
0182D0: 0D 0A 20 20 77 72 69 74 65 28 27 4C 27 27 69 6E .. write('L''in
0182E0: 66 6F 72 6D 61 74 69 6F 6E 20 64 65 20 6C 61 20 formation de la
0182F0: 64 6F 6E 6E 65 65 27 29 3B 0D 0A 20 20 46 69 6E donnee');.. Fin
018300: 64 57 6F 72 6C 64 28 31 2C 62 2C 6D 2C 31 2C 31 dWorld(1,b,m,1,1
018310: 2E 30 38 29 3B 0D 0A 20 20 53 65 6C 65 63 74 57 .08);.. SelectW
018320: 69 6E 64 6F 77 28 31 29 3B 0D 0A 20 20 44 72 61 indow(1);.. Dra
018330: 77 42 6F 72 64 65 72 3B 0D 0A 20 20 78 44 72 61 wBorder;.. xDra
018340: 77 41 78 69 73 28 64 78 2C 64 79 2C 58 31 2C 59 wAxis(dx,dy,X1,Y
018350: 31 2C 58 32 2C 59 32 2C 6C 69 6E 65 73 2C 73 63 1,X2,Y2,lines,sc
018360: 61 6C 65 2C 66 61 6C 73 65 29 3B 0D 0A 20 20 53 ale,false);.. S
018370: 65 74 4C 69 6E 65 53 74 79 6C 65 28 31 29 3B 0D etLineStyle(1);.
018380: 0A 20 20 78 44 72 61 77 50 6F 6C 79 67 6F 6E 28 . xDrawPolygon(
018390: 61 2C 32 2C 6E 2D 31 2C 37 2C 32 2C 30 29 3B 0D a,2,n-1,7,2,0);.
0183A0: 0A 20 20 53 65 74 4C 69 6E 65 53 74 79 6C 65 28 . SetLineStyle(
0183B0: 30 29 3B 0D 0A 20 20 53 65 6C 65 63 74 49 42 4D 0);.. SelectIBM
0183C0: 3B 0D 0A 20 20 44 72 61 77 54 65 78 74 57 28 34 ;.. DrawTextW(4
0183D0: 37 30 2C 37 30 2C 31 2C 5E 5B 27 37 40 32 20 20 70,70,1,^['7@2
0183E0: 20 4C 61 20 64 6F 6E 6E 65 65 27 29 3B 0D 0A 20 La donnee');..
0183F0: 20 44 72 61 77 54 65 78 74 57 28 34 37 30 2C 39 DrawTextW(470,9
018400: 70 72 6F 67 72 61 6D 20 44 72 61 77 48 61 74 63 program DrawHatc
018410: 68 3B 0D 0A 0D 0A 7B 24 49 20 74 79 70 65 64 65 h;....{$I typede
018420: 66 2E 73 79 73 7D 20 20 20 20 20 20 20 20 20 20 f.sys}
018430: 20 20 20 20 20 20 20 20 7B 69 6E 63 6C 75 73 20 {inclus
018440: 6C 65 73 20 63 6F 64 65 73 20 67 72 61 70 68 69 les codes graphi
018450: 71 75 65 73 7D 0D 0A 7B 24 49 20 67 72 61 70 68 ques}..{$I graph
018460: 69 78 2E 73 79 73 7D 0D 0A 7B 24 49 20 6B 65 72 ix.sys}..{$I ker
018470: 6E 65 6C 2E 73 79 73 7D 0D 0A 7B 24 49 20 6B 65 nel.sys}..{$I ke
018480: 72 6E 65 6C 31 2E 73 79 73 7D 0D 0A 7B 24 49 20 rnel1.sys}..{$I
018490: 68 61 74 63 68 2E 68 67 68 7D 0D 0A 0D 0A 76 61 hatch.hgh}....va
0184A0: 72 20 69 3A 69 6E 74 65 67 65 72 3B 0D 0A 20 20 r i:integer;..
0184B0: 20 78 31 2C 78 32 2C 79 31 2C 79 32 2C 74 65 6D x1,x2,y1,y2,tem
0184C0: 70 3A 72 65 61 6C 3B 0D 0A 0D 0A 62 65 67 69 6E p:real;....begin
0184D0: 0D 0A 20 20 49 6E 69 74 47 72 61 70 68 69 63 3B .. InitGraphic;
0184E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0184F0: 20 20 20 20 7B 69 6E 69 74 69 61 6C 69 73 65 20 {initialise
018500: 6C 65 20 20 73 79 73 74 65 6D 65 20 65 74 20 6C le systeme et l
018510: 27 27 65 63 72 61 6E 7D 0D 0A 0D 0A 20 20 44 65 ''ecran}.... De
018520: 66 69 6E 65 57 6F 72 6C 64 28 31 2C 30 2C 31 30 fineWorld(1,0,10
018530: 30 30 2C 31 30 30 30 2C 30 29 3B 20 20 20 7B 64 00,1000,0); {d
018540: 65 66 69 6E 69 74 20 75 6E 20 6D 6F 6E 64 65 20 efinit un monde
018550: 61 20 64 65 73 73 69 6E 65 72 20 20 7D 0D 0A 20 a dessiner }..
018560: 20 53 65 6C 65 63 74 57 6F 72 6C 64 28 31 29 3B SelectWorld(1);
018570: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018580: 20 7B 73 6F 6E 20 63 68 6F 69 78 7D 0D 0A 20 20 {son choix}..
018590: 53 65 6C 65 63 74 57 69 6E 64 6F 77 28 31 29 3B SelectWindow(1);
0185A0: 0D 0A 20 20 44 72 61 77 42 6F 72 64 65 72 3B 0D .. DrawBorder;.
0185B0: 0A 0D 0A 20 20 66 6F 72 20 69 3A 3D 31 20 74 6F ... for i:=1 to
0185C0: 20 35 20 64 6F 20 20 20 20 20 20 20 20 20 20 20 5 do
0185D0: 20 20 20 20 20 7B 64 65 73 73 69 6E 65 20 61 6C {dessine al
0185E0: 65 61 74 6F 69 72 65 6D 65 6E 74 20 64 65 73 20 eatoirement des
0185F0: 62 6F 69 74 65 73 20 61 76 65 63 20 64 65 73 20 boites avec des
018600: 30 2C 31 2C 27 2D 2D 20 20 4C 65 73 20 76 61 6C 0,1,'-- Les val
018610: 65 75 72 73 20 69 6E 74 65 72 70 6F 6C 65 65 73 eurs interpolees
018620: 27 29 3B 0D 0A 20 20 67 6F 74 6F 78 79 28 35 30 ');.. gotoxy(50
018630: 2C 32 35 29 3B 0D 0A 20 20 53 65 6C 65 63 74 57 ,25);.. SelectW
018640: 6F 72 6C 64 28 31 29 3B 0D 0A 20 20 53 65 6C 65 orld(1);.. Sele
018650: 63 74 57 69 6E 64 6F 77 28 31 29 3B 0D 0A 0D 0A ctWindow(1);....
018660: 20 20 77 61 69 74 72 65 74 75 72 6E 28 31 35 30 waitreturn(150
018670: 30 30 29 3B 0D 0A 0D 0A 20 20 43 6C 65 61 72 45 00);.... ClearE
018680: 6F 6C 28 32 35 29 3B 0D 0A 20 20 67 6F 74 6F 78 ol(25);.. gotox
018690: 79 28 31 30 2C 32 35 29 3B 0D 0A 20 20 77 72 69 y(10,25);.. wri
0186A0: 74 65 28 27 4C 27 69 6E 74 65 72 70 6F 6C 61 74 te('L'interpolat
0186B0: 69 6F 6E 20 64 65 2E 20 6C 61 20 66 6F 6E 63 74 ion de. la fonct
0186C0: 69 6F 6E 20 73 70 6C 69 6E 65 27 29 3B 0D 0A 20 ion spline');..
0186D0: 20 78 44 72 61 77 41 78 69 73 28 30 2C 30 2C 58 xDrawAxis(0,0,X
0186E0: 31 2C 59 31 2C 58 32 2C 59 32 2C 30 2C 30 2C 66 1,Y1,X2,Y2,0,0,f
0186F0: 61 6C 73 65 29 3B 0D 0A 20 20 78 44 72 61 77 50 alse);.. xDrawP
018700: 6F 6C 79 67 6F 6E 28 62 2C 31 2C 2D 6D 2C 30 2C olygon(b,1,-m,0,
018710: 30 2C 30 29 3B 0D 0A 0D 0A 20 20 43 6F 70 79 53 0,0);.... CopyS
018720: 63 72 65 65 6E 3B 0D 0A 20 20 67 6F 74 6F 78 79 creen;.. gotoxy
018730: 28 35 30 2C 32 35 29 3B 0D 0A 20 20 77 61 69 74 (50,25);.. wait
018740: 72 65 74 75 72 6E 28 31 35 30 30 30 29 3B 0D 0A return(15000);..
018750: 0D 0A 20 20 43 6C 65 61 72 45 6F 6C 28 32 35 29 .. ClearEol(25)
018760: 3B 0D 0A 20 20 67 6F 74 6F 78 79 28 31 30 2C 32 ;.. gotoxy(10,2
018770: 35 29 3B 0D 0A 20 20 77 72 69 74 65 28 27 43 6F 5);.. write('Co
018780: 6F 72 64 6F 6E 6E 65 65 73 20 76 65 72 74 69 63 ordonnees vertic
018790: 61 6C 65 73 20 65 63 68 61 6E 67 65 65 73 27 29 ales echangees')
0187A0: 3B 0D 0A 20 20 77 69 74 68 20 77 6F 72 6C 64 5B ;.. with world[
0187B0: 31 5D 20 64 6F 0D 0A 20 20 20 62 65 67 69 6E 0D 1] do.. begin.
0187C0: 0A 20 20 20 20 74 65 6D 70 3A 3D 79 31 3B 0D 0A . temp:=y1;..
0187D0: 20 20 20 20 79 31 3A 3D 79 32 3B 0D 0A 20 20 20 y1:=y2;..
0187E0: 20 79 32 3A 3D 74 65 6D 70 3B 0D 0A 20 20 20 65 y2:=temp;.. e
0187F0: 6E 64 3B 0D 0A 20 20 53 65 6C 65 63 74 57 6F 72 nd;.. SelectWor
018800: 68 61 63 68 75 72 61 67 65 7D 0D 0A 20 20 62 65 hachurage}.. be
018810: 67 69 6E 0D 0A 20 20 20 20 78 31 3A 3D 31 30 30 gin.. x1:=100
018820: 2B 72 61 6E 64 6F 6D 28 38 30 30 29 3B 0D 0A 20 +random(800);..
018830: 20 20 20 78 32 3A 3D 31 30 30 2B 72 61 6E 64 6F x2:=100+rando
018840: 6D 28 38 30 30 29 3B 0D 0A 20 20 20 20 79 31 3A m(800);.. y1:
018850: 3D 31 30 30 2B 72 61 6E 64 6F 6D 28 38 30 30 29 =100+random(800)
018860: 3B 0D 0A 20 20 20 20 79 32 3A 3D 31 30 30 2B 72 ;.. y2:=100+r
018870: 61 6E 64 6F 6D 28 38 30 30 29 3B 0D 0A 0D 0A 20 andom(800);....
018880: 20 20 20 69 66 20 78 31 3E 78 32 20 74 68 65 6E if x1>x2 then
018890: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0188A0: 20 7B 70 65 72 6D 75 74 65 20 20 78 27 73 7D 0D {permute x's}.
0188B0: 0A 20 20 20 20 20 62 65 67 69 6E 0D 0A 20 20 20 . begin..
0188C0: 20 20 20 74 65 6D 70 3A 3D 78 31 3B 0D 0A 20 20 temp:=x1;..
0188D0: 20 20 20 20 78 31 3A 3D 78 32 3B 0D 0A 20 20 20 x1:=x2;..
0188E0: 20 20 20 78 32 3A 3D 74 65 6D 70 3B 0D 0A 20 20 x2:=temp;..
0188F0: 20 20 20 65 6E 64 3B 0D 0A 0D 0A 20 20 20 20 69 end;.... i
018900: 66 20 79 31 3E 79 32 20 74 68 65 6E 20 20 20 20 f y1>y2 then
018910: 20 20 20 20 20 20 20 20 20 20 20 20 20 7B 70 65 {pe
018920: 72 6D 75 74 65 20 79 27 73 7D 0D 0A 20 20 20 20 rmute y's}..
018930: 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 20 74 65 begin.. te
018940: 6D 70 3A 3D 79 31 3B 0D 0A 20 20 20 20 20 20 79 mp:=y1;.. y
018950: 31 3A 3D 79 32 3B 0D 0A 20 20 20 20 20 20 79 32 1:=y2;.. y2
018960: 3A 3D 74 65 6D 70 3B 0D 0A 20 20 20 20 20 65 6E :=temp;.. en
018970: 64 3B 0D 0A 0D 0A 20 20 20 20 44 72 61 77 53 71 d;.... DrawSq
018980: 75 61 72 65 28 78 31 2C 79 31 2C 78 32 2C 79 32 uare(x1,y1,x2,y2
018990: 2C 66 61 6C 73 65 29 3B 20 20 20 20 20 20 20 20 ,false);
0189A0: 20 20 7B 74 72 61 63 65 20 75 6E 20 63 61 72 72 {trace un carr
0189B0: 65 7D 0D 0A 20 20 20 20 68 61 74 63 68 28 78 31 e}.. hatch(x1
0189C0: 2C 79 31 2C 78 32 2C 79 32 2C 72 61 6E 64 6F 6D ,y1,x2,y2,random
0189D0: 28 32 32 29 2D 31 31 29 3B 20 20 20 20 20 20 20 (22)-11);
0189E0: 7B 6C 65 20 68 61 63 68 75 72 65 7D 0D 0A 20 20 {le hachure}..
0189F0: 65 6E 64 3B 0D 0A 0D 0A 20 20 72 65 70 65 61 74 end;.... repeat
018A00: 6C 64 28 31 29 3B 0D 0A 20 20 53 65 6C 65 63 74 ld(1);.. Select
018A10: 57 69 6E 64 6F 77 28 32 29 3B 0D 0A 20 20 53 65 Window(2);.. Se
018A20: 74 42 61 63 6B 67 72 6F 75 6E 64 28 32 35 35 29 tBackground(255)
018A30: 3B 0D 0A 20 20 53 65 74 43 6F 6C 6F 72 42 6C 61 ;.. SetColorBla
018A40: 63 6B 3B 0D 0A 20 20 44 72 61 77 42 6F 72 64 65 ck;.. DrawBorde
018A50: 72 3B 0D 0A 20 20 78 44 72 61 77 41 78 69 73 28 r;.. xDrawAxis(
018A60: 61 62 73 28 64 78 29 2C 61 62 73 28 64 79 29 2C abs(dx),abs(dy),
018A70: 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 66 61 6C 73 0,0,0,0,0,0,fals
018A80: 65 29 3B 0D 0A 20 20 78 44 72 61 77 50 6F 6C 79 e);.. xDrawPoly
018A90: 67 6F 6E 28 61 2C 32 2C 6E 2D 31 2C 2D 32 2C 32 gon(a,2,n-1,-2,2
018AA0: 2C 2D 31 29 3B 0D 0A 20 20 78 44 72 61 77 41 78 ,-1);.. xDrawAx
018AB0: 69 73 28 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 is(0,0,0,0,0,0,0
018AC0: 2C 30 2C 66 61 6C 73 65 29 3B 0D 0A 20 20 78 44 ,0,false);.. xD
018AD0: 72 61 77 50 6F 6C 79 67 6F 6E 28 62 2C 31 2C 2D rawPolygon(b,1,-
018AE0: 6D 2C 30 2C 30 2C 30 29 3B 0D 0A 20 20 53 65 74 m,0,0,0);.. Set
018AF0: 43 6F 6C 6F 72 57 68 69 74 65 3B 0D 0A 20 20 67 ColorWhite;.. g
018B00: 6F 74 6F 78 79 28 35 30 2C 32 35 29 3B 0D 0A 20 otoxy(50,25);..
018B10: 20 77 61 69 74 72 65 74 75 72 6E 28 31 35 30 30 waitreturn(1500
018B20: 30 29 3B 0D 0A 0D 0A 20 20 43 6C 65 61 72 45 6F 0);.... ClearEo
018B30: 6C 28 32 35 29 3B 0D 0A 20 20 67 6F 74 6F 78 79 l(25);.. gotoxy
018B40: 28 31 30 2C 32 35 29 3B 0D 0A 20 20 77 72 69 74 (10,25);.. writ
018B50: 65 28 27 44 65 70 6C 61 63 65 6D 65 6E 74 20 64 e('Deplacement d
018B60: 27 27 75 6E 65 20 66 65 6E 65 74 72 65 27 29 3B ''une fenetre');
018B70: 0D 0A 20 20 4D 6F 76 65 56 65 72 49 42 4D 28 2D .. MoveVerIBM(-
018B80: 31 35 2C 74 72 75 65 29 3B 0D 0A 20 20 4D 6F 76 15,true);.. Mov
018B90: 65 48 6F 72 49 42 4D 28 2D 33 30 2C 74 72 75 65 eHorIBM(-30,true
018BA0: 29 3B 0D 0A 20 20 4D 6F 76 65 56 65 72 49 42 4D );.. MoveVerIBM
018BB0: 28 33 35 2C 74 72 75 65 29 3B 0D 0A 20 20 4D 6F (35,true);.. Mo
018BC0: 76 65 48 6F 72 49 42 4D 28 33 35 2C 74 72 75 65 veHorIBM(35,true
018BD0: 29 3B 0D 0A 20 20 4D 6F 76 65 56 65 72 49 42 4D );.. MoveVerIBM
018BE0: 28 2D 35 2C 74 72 75 65 29 3B 0D 0A 20 20 4D 6F (-5,true);.. Mo
018BF0: 76 65 48 6F 72 49 42 4D 28 2D 35 2C 74 72 75 65 veHorIBM(-5,true
018C00: 20 75 6E 74 69 6C 20 6B 65 79 70 72 65 73 73 65 until keypresse
018C10: 64 3B 20 20 20 20 20 20 20 20 7B 61 74 74 65 6E d; {atten
018C20: 64 20 6A 75 73 71 75 27 27 61 20 75 6E 65 20 74 d jusqu''a une t
018C30: 6F 75 63 68 65 20 73 6F 69 74 20 66 72 61 70 70 ouche soit frapp
018C40: 65 65 7D 0D 0A 20 20 4C 65 61 76 65 47 72 61 70 ee}.. LeaveGrap
018C50: 68 69 63 3B 0D 0A 65 6E 64 2E 0D 0A 1A 1A 1A 1A hic;..end.......
018C60: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
018C70: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
018C80: 20 20 20 69 66 20 78 31 3E 78 32 20 74 68 65 6E if x1>x2 then
018C90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018CA0: 20 7B 70 65 72 6D 75 74 65 20 20 78 27 73 7D 0D {permute x's}.
018CB0: 0A 20 20 20 20 20 62 65 67 69 6E 0D 0A 20 20 20 . begin..
018CC0: 20 20 20 74 65 6D 70 3A 3D 78 31 3B 0D 0A 20 20 temp:=x1;..
018CD0: 20 20 20 20 78 31 3A 3D 78 32 3B 0D 0A 20 20 20 x1:=x2;..
018CE0: 20 20 20 78 32 3A 3D 74 65 6D 70 3B 0D 0A 20 20 x2:=temp;..
018CF0: 20 20 20 65 6E 64 3B 0D 0A 0D 0A 20 20 20 20 69 end;.... i
018D00: 66 20 79 31 3E 79 32 20 74 68 65 6E 20 20 20 20 f y1>y2 then
018D10: 20 20 20 20 20 20 20 20 20 20 20 20 20 7B 70 65 {pe
018D20: 72 6D 75 74 65 20 79 27 73 7D 0D 0A 20 20 20 20 rmute y's}..
018D30: 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 20 74 65 begin.. te
018D40: 6D 70 3A 3D 79 31 3B 0D 0A 20 20 20 20 20 20 79 mp:=y1;.. y
018D50: 31 3A 3D 79 32 3B 0D 0A 20 20 20 20 20 20 79 32 1:=y2;.. y2
018D60: 3A 3D 74 65 6D 70 3B 0D 0A 20 20 20 20 20 65 6E :=temp;.. en
018D70: 64 3B 0D 0A 0D 0A 20 20 20 20 44 72 61 77 53 71 d;.... DrawSq
018D80: 75 61 72 65 28 78 31 2C 79 31 2C 78 32 2C 79 32 uare(x1,y1,x2,y2
018D90: 2C 66 61 6C 73 65 29 3B 20 20 20 20 20 20 20 20 ,false);
018DA0: 20 20 7B 74 72 61 63 65 20 75 6E 20 63 61 72 72 {trace un carr
018DB0: 65 7D 0D 0A 20 20 20 20 68 61 74 63 68 28 78 31 e}.. hatch(x1
018DC0: 2C 79 31 2C 78 32 2C 79 32 2C 72 61 6E 64 6F 6D ,y1,x2,y2,random
018DD0: 28 32 32 29 2D 31 31 29 3B 20 20 20 20 20 20 20 (22)-11);
018DE0: 7B 6C 65 20 68 61 63 68 75 72 65 7D 0D 0A 20 20 {le hachure}..
018DF0: 65 6E 64 3B 0D 0A 0D 0A 20 20 72 65 70 65 61 74 end;.... repeat
018E00: 29 3B 0D 0A 20 20 67 6F 74 6F 78 79 28 35 30 2C );.. gotoxy(50,
018E10: 32 35 29 3B 0D 0A 20 20 77 61 69 74 72 65 74 75 25);.. waitretu
018E20: 72 6E 28 31 35 30 30 30 29 3B 0D 0A 0D 0A 20 20 rn(15000);....
018E30: 43 6C 65 61 72 45 6F 6C 28 32 35 29 3B 0D 0A 20 ClearEol(25);..
018E40: 20 67 6F 74 6F 78 79 28 31 30 2C 32 35 29 3B 0D gotoxy(10,25);.
018E50: 0A 20 20 77 72 69 74 65 28 27 49 6E 76 65 72 73 . write('Invers
018E60: 69 6F 6E 20 64 27 27 75 6E 65 20 66 65 6E 65 74 ion d''une fenet
018E70: 72 65 27 29 3B 0D 0A 20 20 49 6E 76 65 72 74 57 re');.. InvertW
018E80: 69 6E 64 6F 77 3B 0D 0A 20 20 53 65 74 43 6F 6C indow;.. SetCol
018E90: 6F 72 57 68 69 74 65 3B 0D 0A 20 20 67 6F 74 6F orWhite;.. goto
018EA0: 78 79 28 35 30 2C 32 35 29 3B 0D 0A 20 20 77 61 xy(50,25);.. wa
018EB0: 69 74 72 65 74 75 72 6E 28 31 35 30 30 30 29 3B itreturn(15000);
018EC0: 0D 0A 0D 0A 20 20 53 65 6C 65 63 74 53 63 72 65 .... SelectScre
018ED0: 65 6E 28 32 29 3B 0D 0A 20 20 43 6C 65 61 72 45 en(2);.. ClearE
018EE0: 6F 6C 28 32 35 29 3B 0D 0A 20 20 67 6F 74 6F 78 ol(25);.. gotox
018EF0: 79 28 31 30 2C 32 35 29 3B 0D 0A 20 20 77 72 69 y(10,25);.. wri
018F00: 74 65 28 27 4C 61 20 72 65 63 6F 6E 73 74 72 75 te('La reconstru
018F10: 63 74 69 6F 6E 20 64 75 20 70 72 65 6D 69 65 72 ction du premier
018F20: 20 63 68 69 66 66 72 65 27 29 3B 0D 0A 20 20 43 chiffre');.. C
018F30: 6F 70 79 53 63 72 65 65 6E 3B 0D 0A 20 20 53 65 opyScreen;.. Se
018F40: 6C 65 63 74 53 63 72 65 65 6E 28 31 29 3B 0D 0A lectScreen(1);..
018F50: 20 20 67 6F 74 6F 78 79 28 35 30 2C 32 35 29 3B gotoxy(50,25);
018F60: 0D 0A 20 20 77 61 69 74 72 65 74 75 72 6E 28 31 .. waitreturn(1
018F70: 35 30 30 30 29 3B 0D 0A 65 6E 64 3B 0D 0A 0D 0A 5000);..end;....
018F80: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
018F90: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
018FA0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
018FB0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
018FC0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
018FD0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
018FE0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
018FF0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
019000: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
019010: 15 00 01 00 02 09 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: 70 72 6F 67 72 61 6D 20 45 78 61 6D 70 6C 65 50 program ExampleP
019310: 6F 69 6E 74 3B 0D 0A 0D 0A 7B 24 49 20 74 79 70 oint;....{$I typ
019320: 65 64 65 66 2E 73 79 73 7D 20 20 20 20 20 20 20 edef.sys}
019330: 20 20 7B 69 6E 63 6C 75 73 20 75 6E 20 73 79 73 {inclus un sys
019340: 74 65 6D 65 20 69 6E 64 65 70 65 6E 64 61 6E 74 teme independant
019350: 20 64 65 20 64 65 66 69 6E 69 74 69 6F 6E 73 20 de definitions
019360: 74 79 70 65 73 7D 0D 0A 7B 24 49 20 67 72 61 70 types}..{$I grap
019370: 68 69 78 2E 73 79 73 7D 20 20 20 20 20 20 20 20 hix.sys}
019380: 20 7B 69 6E 63 6C 75 73 20 75 6E 20 73 79 73 74 {inclus un syst
019390: 65 6D 65 20 64 65 70 65 6E 64 61 6E 74 20 64 65 eme dependant de
0193A0: 20 64 65 66 73 20 65 74 20 64 65 20 72 6F 75 74 defs et de rout
0193B0: 69 6E 65 73 7D 0D 0A 7B 24 49 20 6B 65 72 6E 65 ines}..{$I kerne
0193C0: 6C 2E 73 79 73 7D 20 20 20 20 20 20 20 20 20 20 l.sys}
0193D0: 7B 69 6E 63 6C 75 73 20 75 6E 20 73 79 73 74 65 {inclus un syste
0193E0: 6D 65 20 69 6E 64 65 70 65 6E 64 61 6E 74 20 64 me independant d
0193F0: 65 20 72 6F 75 74 69 6E 65 73 20 64 65 20 73 75 e routines de su
019400: 70 70 6F 72 74 7D 0D 0A 7B 24 49 20 6B 65 72 6E pport}..{$I kern
019410: 65 6C 31 2E 73 79 73 7D 20 20 20 20 20 20 20 20 el1.sys}
019420: 20 7B 69 6E 63 6C 75 73 20 75 6E 20 73 79 73 74 {inclus un syst
019430: 65 6D 65 20 69 6E 64 65 70 65 6E 64 61 6E 74 20 eme independant
019440: 64 65 20 72 6F 75 74 74 69 6E 65 73 20 64 65 20 de routtines de
019450: 73 75 70 70 6F 72 74 7D 0D 0A 0D 0A 62 65 67 69 support}....begi
019460: 6E 0D 0A 0D 0A 20 20 49 6E 69 74 47 72 61 70 68 n.... InitGraph
019470: 69 63 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 ic;
019480: 20 20 20 20 20 7B 69 6E 69 74 69 61 6C 69 73 65 {initialise
019490: 20 6C 65 73 20 67 72 61 70 68 69 73 6D 65 73 7D les graphismes}
0194A0: 0D 0A 20 20 44 72 61 77 42 6F 72 64 65 72 3B 0D .. DrawBorder;.
0194B0: 0A 0D 0A 20 20 44 72 61 77 50 6F 69 6E 74 28 31 ... DrawPoint(1
0194C0: 30 30 2C 31 30 30 29 3B 20 20 20 20 20 20 20 20 00,100);
0194D0: 20 20 20 7B 74 72 61 63 65 20 6C 65 20 20 70 6F {trace le po
0194E0: 69 6E 74 7D 0D 0A 0D 0A 20 20 72 65 70 65 61 74 int}.... repeat
0194F0: 20 75 6E 74 69 6C 20 4B 65 79 70 72 65 73 73 65 until Keypresse
019500: 70 72 6F 67 72 61 6D 20 20 44 72 61 77 4C 69 6E program DrawLin
019510: 65 73 3B 0D 0A 0D 0A 7B 24 49 20 74 79 70 65 64 es;....{$I typed
019520: 65 66 2E 73 79 73 7D 20 20 20 20 20 20 20 20 20 ef.sys}
019530: 20 20 20 20 20 20 20 20 20 7B 69 6E 63 6C 75 73 {inclus
019540: 20 6C 65 73 20 63 6F 64 65 73 20 67 72 61 70 68 les codes graph
019550: 69 71 75 65 73 7D 0D 0A 7B 24 49 20 67 72 61 70 iques}..{$I grap
019560: 68 69 78 2E 73 79 73 7D 0D 0A 7B 24 49 20 6B 65 hix.sys}..{$I ke
019570: 72 6E 65 6C 2E 73 79 73 7D 0D 0A 7B 24 49 20 6B rnel.sys}..{$I k
019580: 65 72 6E 65 6C 31 2E 73 79 73 7D 0D 0A 0D 0A 76 ernel1.sys}....v
019590: 61 72 20 69 3A 69 6E 74 65 67 65 72 3B 0D 0A 0D ar i:integer;...
0195A0: 0A 62 65 67 69 6E 0D 0A 20 20 49 6E 69 74 47 72 .begin.. InitGr
0195B0: 61 70 68 69 63 3B 20 20 20 20 20 20 20 20 20 20 aphic;
0195C0: 20 20 20 20 20 20 20 20 20 20 7B 69 6E 69 74 69 {initi
0195D0: 61 6C 69 73 65 20 6C 65 20 73 79 73 74 65 6D 65 alise le systeme
0195E0: 20 65 74 20 6C 27 27 65 63 72 61 6E 20 7D 0D 0A et l''ecran }..
0195F0: 0D 0A 20 20 44 65 66 69 6E 65 57 6F 72 6C 64 28 .. DefineWorld(
019600: 31 2C 30 2C 31 30 30 30 2C 31 30 30 30 2C 30 29 1,0,1000,1000,0)
019610: 3B 20 20 20 7B 64 65 66 69 6E 69 74 20 75 6E 20 ; {definit un
019620: 6D 6F 6E 64 65 20 61 20 64 65 73 73 69 6E 65 72 monde a dessiner
019630: 20 7D 0D 0A 20 20 53 65 6C 65 63 74 57 6F 72 6C }.. SelectWorl
019640: 64 28 31 29 3B 20 20 20 20 20 20 20 20 20 20 20 d(1);
019650: 20 20 20 20 20 20 7B 73 6F 6E 20 63 68 6F 69 78 {son choix
019660: 7D 0D 0A 20 20 53 65 6C 65 63 74 57 69 6E 64 6F }.. SelectWindo
019670: 77 28 31 29 3B 0D 0A 0D 0A 20 20 53 65 74 42 61 w(1);.... SetBa
019680: 63 6B 67 72 6F 75 6E 64 28 30 29 3B 0D 0A 20 20 ckground(0);..
019690: 44 72 61 77 42 6F 72 64 65 72 3B 0D 0A 0D 0A 20 DrawBorder;....
0196A0: 20 66 6F 72 20 69 3A 3D 31 20 74 6F 20 32 30 20 for i:=1 to 20
0196B0: 64 6F 20 44 72 61 77 4C 69 6E 65 28 69 2A 35 30 do DrawLine(i*50
0196C0: 2C 30 2C 31 30 30 30 2D 69 2A 35 30 2C 69 2A 35 ,0,1000-i*50,i*5
0196D0: 30 29 3B 0D 0A 0D 0A 20 20 72 65 70 65 61 74 20 0);.... repeat
0196E0: 75 6E 74 69 6C 20 6B 65 79 70 72 65 73 73 65 64 until keypressed
0196F0: 3B 20 20 20 20 20 20 20 20 7B 61 74 74 65 6E 64 ; {attend
019700: 64 3B 20 20 20 20 20 20 7B 61 74 74 65 6E 64 20 d; {attend
019710: 6A 75 73 71 75 27 27 61 20 63 65 20 71 75 27 27 jusqu''a ce qu''
019720: 75 6E 65 20 73 6F 69 74 20 66 72 61 70 70 65 65 une soit frappee
019730: 7D 0D 0A 20 20 4C 65 61 76 65 47 72 61 70 68 69 }.. LeaveGraphi
019740: 63 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 c;
019750: 20 20 20 7B 71 75 69 74 74 65 20 6C 65 73 20 67 {quitte les g
019760: 72 61 70 68 69 73 6D 65 73 7D 0D 0A 0D 0A 65 6E raphismes}....en
019770: 64 2E 0D 0A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A d...............
019780: 20 7B 69 6E 63 6C 75 73 20 75 6E 20 73 79 73 74 {inclus un syst
019790: 65 6D 65 20 64 65 70 65 6E 64 61 6E 74 20 64 65 eme dependant de
0197A0: 20 64 65 66 73 20 65 74 20 64 65 20 72 6F 75 74 defs et de rout
0197B0: 69 6E 65 73 7D 0D 0A 7B 24 49 20 6B 65 72 6E 65 ines}..{$I kerne
0197C0: 6C 2E 73 79 73 7D 20 20 20 20 20 20 20 20 20 20 l.sys}
0197D0: 7B 69 6E 63 6C 75 73 20 75 6E 20 73 79 73 74 65 {inclus un syste
0197E0: 6D 65 20 69 6E 64 65 70 65 6E 64 61 6E 74 20 64 me independant d
0197F0: 65 20 72 6F 75 74 69 6E 65 73 20 64 65 20 73 75 e routines de su
019800: 70 70 6F 72 74 7D 0D 0A 7B 24 49 20 6B 65 72 6E pport}..{$I kern
019810: 65 6C 31 2E 73 79 73 7D 20 20 20 20 20 20 20 20 el1.sys}
019820: 20 7B 69 6E 63 6C 75 73 20 75 6E 20 73 79 73 74 {inclus un syst
019830: 65 6D 65 20 69 6E 64 65 70 65 6E 64 61 6E 74 20 eme independant
019840: 64 65 20 72 6F 75 74 74 69 6E 65 73 20 64 65 20 de routtines de
019850: 73 75 70 70 6F 72 74 7D 0D 0A 0D 0A 62 65 67 69 support}....begi
019860: 6E 0D 0A 0D 0A 20 20 49 6E 69 74 47 72 61 70 68 n.... InitGraph
019870: 69 63 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 ic;
019880: 20 20 20 20 20 7B 69 6E 69 74 69 61 6C 69 73 65 {initialise
019890: 20 6C 65 73 20 67 72 61 70 68 69 73 6D 65 73 7D les graphismes}
0198A0: 0D 0A 20 20 44 72 61 77 42 6F 72 64 65 72 3B 0D .. DrawBorder;.
0198B0: 0A 0D 0A 20 20 44 72 61 77 50 6F 69 6E 74 28 31 ... DrawPoint(1
0198C0: 30 30 2C 31 30 30 29 3B 20 20 20 20 20 20 20 20 00,100);
0198D0: 20 20 20 7B 74 72 61 63 65 20 6C 65 20 20 70 6F {trace le po
0198E0: 69 6E 74 7D 0D 0A 0D 0A 20 20 72 65 70 65 61 74 int}.... repeat
0198F0: 20 75 6E 74 69 6C 20 4B 65 79 70 72 65 73 73 65 until Keypresse
019900: 20 6A 75 73 71 75 27 27 61 20 75 6E 65 20 74 6F jusqu''a une to
019910: 75 63 68 65 20 73 6F 69 74 20 66 72 61 70 70 65 uche soit frappe
019920: 65 7D 0D 0A 20 20 4C 65 61 76 65 47 72 61 70 68 e}.. LeaveGraph
019930: 69 63 3B 0D 0A 65 6E 64 2E 0D 0A 1A 1A 1A 1A 1A ic;..end........
019940: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
019950: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
019960: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
019970: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
019980: 65 72 6E 65 6C 31 2E 73 79 73 7D 0D 0A 0D 0A 76 ernel1.sys}....v
019990: 61 72 20 69 3A 69 6E 74 65 67 65 72 3B 0D 0A 0D ar i:integer;...
0199A0: 0A 62 65 67 69 6E 0D 0A 20 20 49 6E 69 74 47 72 .begin.. InitGr
0199B0: 61 70 68 69 63 3B 20 20 20 20 20 20 20 20 20 20 aphic;
0199C0: 20 20 20 20 20 20 20 20 20 20 7B 69 6E 69 74 69 {initi
0199D0: 61 6C 69 73 65 20 6C 65 20 73 79 73 74 65 6D 65 alise le systeme
0199E0: 20 65 74 20 6C 27 27 65 63 72 61 6E 20 7D 0D 0A et l''ecran }..
0199F0: 0D 0A 20 20 44 65 66 69 6E 65 57 6F 72 6C 64 28 .. DefineWorld(
019A00: 31 2C 30 2C 31 30 30 30 2C 31 30 30 30 2C 30 29 1,0,1000,1000,0)
019A10: 3B 20 20 20 7B 64 65 66 69 6E 69 74 20 75 6E 20 ; {definit un
019A20: 6D 6F 6E 64 65 20 61 20 64 65 73 73 69 6E 65 72 monde a dessiner
019A30: 20 7D 0D 0A 20 20 53 65 6C 65 63 74 57 6F 72 6C }.. SelectWorl
019A40: 64 28 31 29 3B 20 20 20 20 20 20 20 20 20 20 20 d(1);
019A50: 20 20 20 20 20 20 7B 73 6F 6E 20 63 68 6F 69 78 {son choix
019A60: 7D 0D 0A 20 20 53 65 6C 65 63 74 57 69 6E 64 6F }.. SelectWindo
019A70: 77 28 31 29 3B 0D 0A 0D 0A 20 20 53 65 74 42 61 w(1);.... SetBa
019A80: 63 6B 67 72 6F 75 6E 64 28 30 29 3B 0D 0A 20 20 ckground(0);..
019A90: 44 72 61 77 42 6F 72 64 65 72 3B 0D 0A 0D 0A 20 DrawBorder;....
019AA0: 20 66 6F 72 20 69 3A 3D 31 20 74 6F 20 32 30 20 for i:=1 to 20
019AB0: 64 6F 20 44 72 61 77 4C 69 6E 65 28 69 2A 35 30 do DrawLine(i*50
019AC0: 2C 30 2C 31 30 30 30 2D 69 2A 35 30 2C 69 2A 35 ,0,1000-i*50,i*5
019AD0: 30 29 3B 0D 0A 0D 0A 20 20 72 65 70 65 61 74 20 0);.... repeat
019AE0: 75 6E 74 69 6C 20 6B 65 79 70 72 65 73 73 65 64 until keypressed
019AF0: 3B 20 20 20 20 20 20 20 20 7B 61 74 74 65 6E 64 ; {attend
019B00: 70 72 6F 67 72 61 6D 20 44 72 61 77 50 6F 69 6E program DrawPoin
019B10: 74 73 3B 0D 0A 0D 0A 7B 24 49 20 74 79 70 65 64 ts;....{$I typed
019B20: 65 66 2E 73 79 73 7D 20 20 20 20 20 20 20 20 20 ef.sys}
019B30: 20 20 20 20 20 7B 69 6E 63 6C 75 73 20 6C 65 73 {inclus les
019B40: 20 63 6F 64 65 73 20 67 72 61 70 68 69 71 75 65 codes graphique
019B50: 73 7D 0D 0A 7B 24 49 20 67 72 61 70 68 69 78 2E s}..{$I graphix.
019B60: 73 79 73 7D 0D 0A 7B 24 49 20 6B 65 72 6E 65 6C sys}..{$I kernel
019B70: 2E 73 79 73 7D 0D 0A 7B 24 49 20 6B 65 72 6E 65 .sys}..{$I kerne
019B80: 6C 31 2E 73 79 73 7D 0D 0A 0D 0A 76 61 72 20 69 l1.sys}....var i
019B90: 3A 69 6E 74 65 67 65 72 3B 0D 0A 0D 0A 62 65 67 :integer;....beg
019BA0: 69 6E 0D 0A 20 20 49 6E 69 74 47 72 61 70 68 69 in.. InitGraphi
019BB0: 63 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 c;
019BC0: 20 20 7B 69 6E 69 74 69 61 6C 69 73 65 20 6C 65 {initialise le
019BD0: 20 73 79 73 74 65 6D 65 20 65 74 20 6C 27 27 65 systeme et l''e
019BE0: 63 72 61 6E 7D 0D 0A 20 20 44 72 61 77 42 6F 72 cran}.. DrawBor
019BF0: 64 65 72 3B 0D 0A 0D 0A 20 20 66 6F 72 20 69 3A der;.... for i:
019C00: 3D 31 20 74 6F 20 31 30 30 30 20 64 6F 20 20 20 =1 to 1000 do
019C10: 20 20 20 20 20 20 7B 64 65 73 73 69 6E 65 20 61 {dessine a
019C20: 6C 65 61 74 6F 69 72 65 6D 65 6E 74 20 31 30 30 leatoirement 100
019C30: 30 20 70 6F 69 6E 74 73 20 73 75 72 20 65 63 72 0 points sur ecr
019C40: 61 6E 20 66 6F 72 6D 61 74 20 49 42 4D 7D 0D 0A an format IBM}..
019C50: 20 20 20 20 20 44 72 61 77 50 6F 69 6E 74 28 72 DrawPoint(r
019C60: 61 6E 64 6F 6D 28 36 33 39 29 2C 72 61 6E 64 6F andom(639),rando
019C70: 6D 28 31 39 39 29 29 3B 0D 0A 0D 0A 20 20 72 65 m(199));.... re
019C80: 70 65 61 74 20 75 6E 74 69 6C 20 6B 65 79 70 72 peat until keypr
019C90: 65 73 73 65 64 3B 20 20 20 20 7B 61 74 74 65 6E essed; {atten
019CA0: 64 20 6A 75 73 71 75 27 27 61 20 63 65 20 71 75 d jusqu''a ce qu
019CB0: 27 27 75 6E 65 20 74 6F 75 63 68 65 20 73 6F 69 ''une touche soi
019CC0: 74 20 66 72 61 70 70 65 65 7D 0D 0A 20 20 4C 65 t frappee}.. Le
019CD0: 61 76 65 47 72 61 70 68 69 63 3B 0D 0A 65 6E 64 aveGraphic;..end
019CE0: 2E 0D 0A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
019CF0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
019D00: 70 72 6F 67 72 61 6D 20 44 72 61 77 4C 69 6E 65 program DrawLine
019D10: 3B 0D 0A 0D 0A 7B 24 49 20 74 79 70 65 64 65 66 ;....{$I typedef
019D20: 2E 73 79 73 7D 20 20 20 20 20 20 20 20 20 20 20 .sys}
019D30: 20 20 20 20 20 7B 69 6E 63 6C 75 73 20 6C 65 73 {inclus les
019D40: 20 67 72 61 70 68 69 71 75 65 73 20 7D 0D 0A 7B graphiques }..{
019D50: 24 49 20 67 72 61 70 68 69 78 2E 73 79 73 7D 0D $I graphix.sys}.
019D60: 0A 7B 24 49 20 6B 65 72 6E 65 6C 2E 73 79 73 7D .{$I kernel.sys}
019D70: 0D 0A 7B 24 49 20 6B 65 72 6E 65 6C 31 2E 73 79 ..{$I kernel1.sy
019D80: 73 7D 0D 0A 0D 0A 76 61 72 20 69 3A 69 6E 74 65 s}....var i:inte
019D90: 67 65 72 3B 0D 0A 0D 0A 62 65 67 69 6E 0D 0A 20 ger;....begin..
019DA0: 20 49 6E 69 74 47 72 61 70 68 69 63 3B 20 20 20 InitGraphic;
019DB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7B {
019DC0: 69 6E 69 74 69 61 6C 69 73 65 20 6C 65 73 20 67 initialise les g
019DD0: 72 61 70 68 69 71 75 65 73 20 7D 0D 0A 20 20 44 raphiques }.. D
019DE0: 72 61 77 42 6F 72 64 65 72 3B 0D 0A 0D 0A 20 20 rawBorder;....
019DF0: 44 65 66 69 6E 65 57 6F 72 6C 64 28 31 2C 30 2C DefineWorld(1,0,
019E00: 31 30 30 30 2C 31 30 30 30 2C 30 29 3B 20 7B 64 1000,1000,0); {d
019E10: 65 66 69 6E 69 74 20 75 6E 20 6D 6F 6E 64 65 20 efinit un monde
019E20: 61 20 64 65 73 73 69 6E 65 72 20 7D 0D 0A 20 20 a dessiner }..
019E30: 53 65 6C 65 63 74 57 6F 72 6C 64 28 31 29 3B 0D SelectWorld(1);.
019E40: 0A 20 20 53 65 6C 65 63 74 57 69 6E 64 6F 77 28 . SelectWindow(
019E50: 31 29 3B 0D 0A 0D 0A 20 20 44 72 61 77 4C 69 6E 1);.... DrawLin
019E60: 65 28 30 2C 31 30 30 30 2C 31 30 30 30 2C 30 29 e(0,1000,1000,0)
019E70: 3B 20 20 20 20 20 20 7B 74 72 61 63 65 20 6C 61 ; {trace la
019E80: 20 6C 69 67 6E 65 7D 0D 0A 0D 0A 20 20 72 65 70 ligne}.... rep
019E90: 65 61 74 20 75 6E 74 69 6C 20 6B 65 79 70 72 65 eat until keypre
019EA0: 73 73 65 64 3B 20 20 20 20 20 20 7B 61 74 74 65 ssed; {atte
019EB0: 6E 64 20 6A 75 73 71 75 27 27 61 20 63 65 20 71 nd jusqu''a ce q
019EC0: 27 27 20 75 6E 65 20 74 6F 75 63 68 65 20 73 6F '' une touche so
019ED0: 69 74 20 66 72 61 70 70 65 65 7D 0D 0A 20 20 4C it frappee}.. L
019EE0: 65 61 76 65 47 72 61 70 68 69 63 3B 20 20 20 20 eaveGraphic;
019EF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 7B 71 75 {qu
019F00: 66 79 20 30 20 6F 72 20 31 29 24 5C 50 72 6F 67 fy 0 or 1)$\Prog
019F10: 72 61 6D 20 65 72 72 6F 72 3A 20 43 61 73 73 65 ram error: Casse
019F20: 74 74 65 20 73 74 72 65 61 6D 20 6E 6F 74 20 6F tte stream not o
019F30: 70 65 6E 24 5C 43 50 2F 4D 20 66 69 6C 65 20 64 pen$\CP/M file d
019F40: 6F 65 73 20 6E 6F 74 20 65 78 69 73 74 24 5C 46 oes not exist$\F
019F50: 61 69 6C 65 64 20 74 6F 20 72 65 6E 61 6D 65 20 ailed to rename
019F60: 74 65 6D 70 6F 72 61 72 79 20 66 69 6C 65 24 E5 temporary file$.
019F70: C5 46 23 E5 B7 05 CA 81 07 23 BE 23 C2 74 07 E3 .F#......#.#.t..
019F80: 37 E1 7E C1 E1 C9 C5 4F 46 23 E5 B7 05 CA 99 07 7.~....OF#......
019F90: 23 23 BE 23 C2 8B 07 E3 37 E1 7E 23 66 6F 79 C1 ##.#....7.~#foy.
019FA0: C9 C5 4F 46 23 E5 B7 05 CA BD 07 23 23 7B BE 23 ..OF#......##{.#
019FB0: 7A 23 C2 A6 07 2B BE 23 C2 A6 07 E3 37 E1 7E 23 z#...+.#....7.~#
019FC0: 66 6F 79 C1 C9 00 00 00 00 00 00 00 00 00 00 00 foy.............
019FD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
019FE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
019FF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01A000: 64 20 43 50 2F 4D 20 66 69 6C 65 6E 61 6D 65 24 d CP/M filename$
01A010: 5C 43 61 6E 6E 6F 74 20 72 65 61 64 20 70 72 6F \Cannot read pro
01A020: 74 65 63 74 65 64 20 63 61 73 73 65 74 74 65 20 tected cassette
01A030: 66 69 6C 65 73 24 5C 50 72 6F 67 72 61 6D 20 65 files$\Program e
01A040: 72 72 6F 72 3A 20 43 61 73 73 65 74 74 65 20 73 rror: Cassette s
01A050: 74 72 65 61 6D 20 69 6E 20 75 73 65 24 5C 2A 2A tream in use$\**
01A060: 20 42 72 65 61 6B 20 2A 2A 24 5C 43 50 2F 4D 20 Break **$\CP/M
01A070: 66 69 6C 65 20 61 6C 72 65 61 64 79 20 65 78 69 file already exi
01A080: 73 74 73 24 5C 44 69 73 63 20 64 69 72 65 63 74 sts$\Disc direct
01A090: 6F 72 79 20 66 75 6C 6C 24 5C 44 69 73 63 20 6F ory full$\Disc o
01A0A0: 72 20 64 69 72 65 63 74 6F 72 79 20 66 75 6C 6C r directory full
01A0B0: 24 5C 46 61 69 6C 65 64 20 74 6F 20 63 6C 6F 73 $\Failed to clos
01A0C0: 65 20 43 50 2F 4D 20 66 69 6C 65 20 63 6F 72 72 e CP/M file corr
01A0D0: 65 63 74 6C 79 24 5C 49 6E 76 61 6C 69 64 20 73 ectly$\Invalid s
01A0E0: 70 65 65 64 20 73 65 74 74 69 6E 67 20 28 79 6F peed setting (yo
01A0F0: 75 20 6D 61 79 20 6F 6E 6C 79 20 73 70 65 63 69 u may only speci
01A100: 69 74 74 65 20 6C 65 20 67 72 61 70 68 69 73 6D itte le graphism
01A110: 65 7D 0D 0A 65 6E 64 2E 0D 0A 1A 1A 1A 1A 1A 1A e}..end.........
01A120: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
01A130: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
01A140: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
01A150: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
01A160: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
01A170: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
01A180: 73 7D 0D 0A 0D 0A 76 61 72 20 69 3A 69 6E 74 65 s}....var i:inte
01A190: 67 65 72 3B 0D 0A 0D 0A 62 65 67 69 6E 0D 0A 20 ger;....begin..
01A1A0: 20 49 6E 69 74 47 72 61 70 68 69 63 3B 20 20 20 InitGraphic;
01A1B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7B {
01A1C0: 69 6E 69 74 69 61 6C 69 73 65 20 6C 65 73 20 67 initialise les g
01A1D0: 72 61 70 68 69 71 75 65 73 20 7D 0D 0A 20 20 44 raphiques }.. D
01A1E0: 72 61 77 42 6F 72 64 65 72 3B 0D 0A 0D 0A 20 20 rawBorder;....
01A1F0: 44 65 66 69 6E 65 57 6F 72 6C 64 28 31 2C 30 2C DefineWorld(1,0,
01A200: 31 30 30 30 2C 31 30 30 30 2C 30 29 3B 20 7B 64 1000,1000,0); {d
01A210: 65 66 69 6E 69 74 20 75 6E 20 6D 6F 6E 64 65 20 efinit un monde
01A220: 61 20 64 65 73 73 69 6E 65 72 20 7D 0D 0A 20 20 a dessiner }..
01A230: 53 65 6C 65 63 74 57 6F 72 6C 64 28 31 29 3B 0D SelectWorld(1);.
01A240: 0A 20 20 53 65 6C 65 63 74 57 69 6E 64 6F 77 28 . SelectWindow(
01A250: 31 29 3B 0D 0A 0D 0A 20 20 44 72 61 77 4C 69 6E 1);.... DrawLin
01A260: 65 28 30 2C 31 30 30 30 2C 31 30 30 30 2C 30 29 e(0,1000,1000,0)
01A270: 3B 20 20 20 20 20 20 7B 74 72 61 63 65 20 6C 61 ; {trace la
01A280: 20 6C 69 67 6E 65 7D 0D 0A 0D 0A 20 20 72 65 70 ligne}.... rep
01A290: 65 61 74 20 75 6E 74 69 6C 20 6B 65 79 70 72 65 eat until keypre
01A2A0: 73 73 65 64 3B 20 20 20 20 20 20 7B 61 74 74 65 ssed; {atte
01A2B0: 6E 64 20 6A 75 73 71 75 27 27 61 20 63 65 20 71 nd jusqu''a ce q
01A2C0: 27 27 20 75 6E 65 20 74 6F 75 63 68 65 20 73 6F '' une touche so
01A2D0: 69 74 20 66 72 61 70 70 65 65 7D 0D 0A 20 20 4C it frappee}.. L
01A2E0: 65 61 76 65 47 72 61 70 68 69 63 3B 20 20 20 20 eaveGraphic;
01A2F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 7B 71 75 {qu
01A300: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
01A310: 16 00 01 00 02 09 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: 70 72 6F 67 72 61 6D 20 44 72 61 77 53 71 75 61 program DrawSqua
01A410: 72 65 73 3B 0D 0A 0D 0A 7B 24 49 20 74 79 70 65 res;....{$I type
01A420: 64 65 66 2E 73 79 73 7D 20 20 20 20 20 20 20 20 def.sys}
01A430: 20 20 20 20 20 20 20 20 20 20 7B 69 6E 63 6C 75 {inclu
01A440: 73 20 6C 65 73 20 63 6F 64 65 73 20 67 72 61 70 s les codes grap
01A450: 68 69 71 75 65 73 7D 0D 0A 7B 24 49 20 67 72 61 hiques}..{$I gra
01A460: 70 68 69 78 2E 73 79 73 7D 0D 0A 7B 24 49 20 6B phix.sys}..{$I k
01A470: 65 72 6E 65 6C 2E 73 79 73 7D 0D 0A 7B 24 49 20 ernel.sys}..{$I
01A480: 6B 65 72 6E 65 6C 31 2E 73 79 73 7D 0D 0A 0D 0A kernel1.sys}....
01A490: 76 61 72 20 69 3A 69 6E 74 65 67 65 72 3B 0D 0A var i:integer;..
01A4A0: 0D 0A 62 65 67 69 6E 0D 0A 20 20 49 6E 69 74 47 ..begin.. InitG
01A4B0: 72 61 70 68 69 63 3B 20 20 20 20 20 20 20 20 20 raphic;
01A4C0: 20 20 20 20 20 20 20 20 20 20 20 7B 69 6E 69 74 {init
01A4D0: 69 61 6C 69 73 65 20 6C 65 20 73 79 73 74 65 6D ialise le system
01A4E0: 65 20 65 74 20 6C 27 27 65 63 72 61 6E 7D 0D 0A e et l''ecran}..
01A4F0: 0D 0A 20 20 44 65 66 69 6E 65 57 6F 72 6C 64 28 .. DefineWorld(
01A500: 31 2C 30 2C 31 30 30 30 2C 31 30 30 30 2C 30 29 1,0,1000,1000,0)
01A510: 3B 20 20 20 7B 64 65 66 69 6E 69 74 20 75 6E 20 ; {definit un
01A520: 6D 6F 6E 64 65 20 61 20 64 65 73 73 69 6E 65 72 monde a dessiner
01A530: 7D 0D 0A 20 20 53 65 6C 65 63 74 57 6F 72 6C 64 }.. SelectWorld
01A540: 28 31 29 3B 20 20 20 20 20 20 20 20 20 20 20 20 (1);
01A550: 20 20 20 20 20 7B 73 6F 6E 20 63 68 6F 69 78 7D {son choix}
01A560: 0D 0A 20 20 53 65 6C 65 63 74 57 69 6E 64 6F 77 .. SelectWindow
01A570: 28 31 29 3B 0D 0A 20 20 44 72 61 77 42 6F 72 64 (1);.. DrawBord
01A580: 65 72 3B 0D 0A 0D 0A 20 20 66 6F 72 20 69 3A 3D er;.... for i:=
01A590: 31 20 74 6F 20 32 30 20 64 6F 20 44 72 61 77 53 1 to 20 do DrawS
01A5A0: 71 75 61 72 65 28 35 30 30 2D 69 2A 32 35 2C 35 quare(500-i*25,5
01A5B0: 30 30 2D 69 2A 32 35 2C 35 30 30 2B 69 2A 32 35 00-i*25,500+i*25
01A5C0: 2C 35 30 30 2B 69 2A 32 35 2C 66 61 6C 73 65 29 ,500+i*25,false)
01A5D0: 3B 0D 0A 0D 0A 20 20 72 65 70 65 61 74 20 75 6E ;.... repeat un
01A5E0: 74 69 6C 20 6B 65 79 70 72 65 73 73 65 64 3B 20 til keypressed;
01A5F0: 20 20 20 20 20 20 20 7B 61 74 74 65 6E 64 20 6A {attend j
01A600: 20 74 65 78 74 65 7D 0D 0A 20 20 77 72 69 74 65 texte}.. write
01A610: 6C 6E 28 27 2A 20 3C 2D 20 43 61 20 73 65 72 61 ln('* <- Ca sera
01A620: 20 61 75 20 63 65 6E 74 72 65 20 64 65 20 6C 27 au centre de l'
01A630: 27 65 63 72 61 6E 20 27 29 3B 20 20 7B 64 65 75 'ecran '); {deu
01A640: 78 20 6C 69 67 6E 65 73 20 64 65 20 74 65 78 74 x lignes de text
01A650: 65 7D 0D 0A 20 20 77 72 69 74 65 28 27 43 61 20 e}.. write('Ca
01A660: 73 65 72 61 20 6C 61 20 70 72 6F 63 68 61 69 6E sera la prochain
01A670: 65 20 6C 69 67 6E 65 27 29 3B 0D 0A 0D 0A 20 20 e ligne');....
01A680: 43 68 61 72 57 69 64 74 68 3A 3D 4D 61 78 57 6F CharWidth:=MaxWo
01A690: 72 6C 64 58 2F 38 30 3B 20 20 20 20 20 20 7B 63 rldX/80; {c
01A6A0: 61 6C 63 75 6C 65 20 6C 61 20 6C 61 72 67 65 75 alcule la largeu
01A6B0: 72 20 64 75 20 63 61 72 61 63 74 65 72 65 7D 0D r du caractere}.
01A6C0: 0A 20 20 43 68 61 72 48 65 69 67 68 74 3A 3D 4D . CharHeight:=M
01A6D0: 61 78 57 6F 72 6C 64 59 2F 32 35 3B 20 20 20 20 axWorldY/25;
01A6E0: 20 7B 63 61 6C 63 75 6C 65 20 6C 61 20 68 61 75 {calcule la hau
01A6F0: 74 65 75 72 20 64 75 20 63 61 72 61 63 74 65 72 teur du caracter
01A700: 65 7D 0D 0A 0D 0A 20 20 44 72 61 77 53 71 75 61 e}.... DrawSqua
01A710: 72 65 28 39 2A 43 68 61 72 57 69 64 74 68 2C 37 re(9*CharWidth,7
01A720: 2A 43 68 61 72 48 65 69 67 68 74 2C 20 20 20 20 *CharHeight,
01A730: 20 7B 74 72 61 63 65 20 75 6E 65 20 62 6F 69 74 {trace une boit
01A740: 65 20 5B 31 30 2C 38 5D 7D 0D 0A 20 20 20 20 20 e [10,8]}..
01A750: 20 20 20 20 20 20 20 20 28 32 32 2A 43 68 61 72 (22*Char
01A760: 57 69 64 74 68 29 2B 32 2C 28 38 2A 43 68 61 72 Width)+2,(8*Char
01A770: 48 65 69 67 68 74 29 2B 32 2C 74 72 75 65 29 3B Height)+2,true);
01A780: 0D 0A 0D 0A 20 20 47 6F 74 6F 58 59 28 31 30 2C .... GotoXY(10,
01A790: 38 29 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 8);
01A7A0: 20 20 20 20 7B 65 63 72 69 74 20 6C 65 20 74 65 {ecrit le te
01A7B0: 78 74 65 20 64 65 64 61 6E 73 7D 0D 0A 20 20 77 xte dedans}.. w
01A7C0: 72 69 74 65 28 27 54 65 78 74 65 20 64 61 6E 73 rite('Texte dans
01A7D0: 20 75 6E 65 20 62 6F 69 74 65 27 29 3B 0D 0A 0D une boite');...
01A7E0: 0A 20 20 72 65 70 65 61 74 20 75 6E 74 69 6C 20 . repeat until
01A7F0: 6B 65 79 70 72 65 73 73 65 64 3B 20 20 20 20 20 keypressed;
01A800: 75 73 71 75 27 27 61 20 75 6E 65 20 74 6F 75 63 usqu''a une touc
01A810: 68 65 20 73 6F 69 74 20 66 72 61 70 70 65 65 7D he soit frappee}
01A820: 0D 0A 20 20 4C 65 61 76 65 47 72 61 70 68 69 63 .. LeaveGraphic
01A830: 3B 0D 0A 65 6E 64 2E 0D 0A 1A 1A 1A 1A 1A 1A 1A ;..end..........
01A840: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
01A850: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
01A860: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
01A870: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
01A880: 6B 65 72 6E 65 6C 31 2E 73 79 73 7D 0D 0A 0D 0A kernel1.sys}....
01A890: 76 61 72 20 69 3A 69 6E 74 65 67 65 72 3B 0D 0A var i:integer;..
01A8A0: 0D 0A 62 65 67 69 6E 0D 0A 20 20 49 6E 69 74 47 ..begin.. InitG
01A8B0: 72 61 70 68 69 63 3B 20 20 20 20 20 20 20 20 20 raphic;
01A8C0: 20 20 20 20 20 20 20 20 20 20 20 7B 69 6E 69 74 {init
01A8D0: 69 61 6C 69 73 65 20 6C 65 20 73 79 73 74 65 6D ialise le system
01A8E0: 65 20 65 74 20 6C 27 27 65 63 72 61 6E 7D 0D 0A e et l''ecran}..
01A8F0: 0D 0A 20 20 44 65 66 69 6E 65 57 6F 72 6C 64 28 .. DefineWorld(
01A900: 31 2C 30 2C 31 30 30 30 2C 31 30 30 30 2C 30 29 1,0,1000,1000,0)
01A910: 3B 20 20 20 7B 64 65 66 69 6E 69 74 20 75 6E 20 ; {definit un
01A920: 6D 6F 6E 64 65 20 61 20 64 65 73 73 69 6E 65 72 monde a dessiner
01A930: 7D 0D 0A 20 20 53 65 6C 65 63 74 57 6F 72 6C 64 }.. SelectWorld
01A940: 28 31 29 3B 20 20 20 20 20 20 20 20 20 20 20 20 (1);
01A950: 20 20 20 20 20 7B 73 6F 6E 20 63 68 6F 69 78 7D {son choix}
01A960: 0D 0A 20 20 53 65 6C 65 63 74 57 69 6E 64 6F 77 .. SelectWindow
01A970: 28 31 29 3B 0D 0A 20 20 44 72 61 77 42 6F 72 64 (1);.. DrawBord
01A980: 65 72 3B 0D 0A 0D 0A 20 20 66 6F 72 20 69 3A 3D er;.... for i:=
01A990: 31 20 74 6F 20 32 30 20 64 6F 20 44 72 61 77 53 1 to 20 do DrawS
01A9A0: 71 75 61 72 65 28 35 30 30 2D 69 2A 32 35 2C 35 quare(500-i*25,5
01A9B0: 30 30 2D 69 2A 32 35 2C 35 30 30 2B 69 2A 32 35 00-i*25,500+i*25
01A9C0: 2C 35 30 30 2B 69 2A 32 35 2C 66 61 6C 73 65 29 ,500+i*25,false)
01A9D0: 3B 0D 0A 0D 0A 20 20 72 65 70 65 61 74 20 75 6E ;.... repeat un
01A9E0: 74 69 6C 20 6B 65 79 70 72 65 73 73 65 64 3B 20 til keypressed;
01A9F0: 20 20 20 20 20 20 20 7B 61 74 74 65 6E 64 20 6A {attend j
01AA00: 20 7B 61 74 74 65 6E 64 20 6A 75 73 71 75 27 27 {attend jusqu''
01AA10: 61 20 75 6E 65 20 74 6F 75 63 68 65 20 73 6F 69 a une touche soi
01AA20: 74 20 66 72 61 70 70 65 65 7D 0D 0A 20 20 4C 65 t frappee}.. Le
01AA30: 61 76 65 47 72 61 70 68 69 63 3B 20 20 20 20 20 aveGraphic;
01AA40: 20 20 20 20 20 20 20 20 20 20 20 20 7B 71 75 69 {qui
01AA50: 74 74 65 20 6C 65 20 67 72 61 70 68 69 73 6D 65 tte le graphisme
01AA60: 7D 0D 0A 65 6E 64 2E 1A 1A 1A 1A 1A 1A 1A 1A 1A }..end..........
01AA70: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
01AA80: 43 68 61 72 57 69 64 74 68 3A 3D 4D 61 78 57 6F CharWidth:=MaxWo
01AA90: 72 6C 64 58 2F 38 30 3B 20 20 20 20 20 20 7B 63 rldX/80; {c
01AAA0: 61 6C 63 75 6C 65 20 6C 61 20 6C 61 72 67 65 75 alcule la largeu
01AAB0: 72 20 64 75 20 63 61 72 61 63 74 65 72 65 7D 0D r du caractere}.
01AAC0: 0A 20 20 43 68 61 72 48 65 69 67 68 74 3A 3D 4D . CharHeight:=M
01AAD0: 61 78 57 6F 72 6C 64 59 2F 32 35 3B 20 20 20 20 axWorldY/25;
01AAE0: 20 7B 63 61 6C 63 75 6C 65 20 6C 61 20 68 61 75 {calcule la hau
01AAF0: 74 65 75 72 20 64 75 20 63 61 72 61 63 74 65 72 teur du caracter
01AB00: 65 7D 0D 0A 0D 0A 20 20 44 72 61 77 53 71 75 61 e}.... DrawSqua
01AB10: 72 65 28 39 2A 43 68 61 72 57 69 64 74 68 2C 37 re(9*CharWidth,7
01AB20: 2A 43 68 61 72 48 65 69 67 68 74 2C 20 20 20 20 *CharHeight,
01AB30: 20 7B 74 72 61 63 65 20 75 6E 65 20 62 6F 69 74 {trace une boit
01AB40: 65 20 5B 31 30 2C 38 5D 7D 0D 0A 20 20 20 20 20 e [10,8]}..
01AB50: 20 20 20 20 20 20 20 20 28 32 32 2A 43 68 61 72 (22*Char
01AB60: 57 69 64 74 68 29 2B 32 2C 28 38 2A 43 68 61 72 Width)+2,(8*Char
01AB70: 48 65 69 67 68 74 29 2B 32 2C 74 72 75 65 29 3B Height)+2,true);
01AB80: 0D 0A 0D 0A 20 20 47 6F 74 6F 58 59 28 31 30 2C .... GotoXY(10,
01AB90: 38 29 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 8);
01ABA0: 20 20 20 20 7B 65 63 72 69 74 20 6C 65 20 74 65 {ecrit le te
01ABB0: 78 74 65 20 64 65 64 61 6E 73 7D 0D 0A 20 20 77 xte dedans}.. w
01ABC0: 72 69 74 65 28 27 54 65 78 74 65 20 64 61 6E 73 rite('Texte dans
01ABD0: 20 75 6E 65 20 62 6F 69 74 65 27 29 3B 0D 0A 0D une boite');...
01ABE0: 0A 20 20 72 65 70 65 61 74 20 75 6E 74 69 6C 20 . repeat until
01ABF0: 6B 65 79 70 72 65 73 73 65 64 3B 20 20 20 20 20 keypressed;
01AC00: 70 72 6F 67 72 61 6D 20 73 69 6D 70 6C 65 3B 0D program simple;.
01AC10: 0A 0D 0A 7B 24 49 20 74 79 70 65 64 65 66 2E 73 ...{$I typedef.s
01AC20: 79 73 7D 20 20 20 20 20 20 20 20 20 20 20 20 20 ys}
01AC30: 20 20 20 20 20 20 20 20 20 20 7B 63 65 73 20 66 {ces f
01AC40: 69 63 68 69 65 72 73 20 64 6F 69 76 65 6E 74 20 ichiers doivent
01AC50: 65 74 72 65 7D 0D 0A 7B 24 49 20 67 72 61 70 68 etre}..{$I graph
01AC60: 69 78 2E 73 79 73 7D 20 20 20 20 20 20 20 20 20 ix.sys}
01AC70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7B 69 {i
01AC80: 6E 63 6C 75 73 20 64 61 6E 73 20 63 65 74 20 6F nclus dans cet o
01AC90: 72 64 72 65 7D 0D 0A 7B 24 49 20 6B 65 72 6E 65 rdre}..{$I kerne
01ACA0: 6C 2E 73 79 73 7D 0D 0A 7B 24 49 20 6B 65 72 6E l.sys}..{$I kern
01ACB0: 65 6C 31 2E 73 79 73 7D 0D 0A 0D 0A 0D 0A 62 65 el1.sys}......be
01ACC0: 67 69 6E 0D 0A 0D 0A 49 6E 69 74 47 72 61 70 68 gin....InitGraph
01ACD0: 69 63 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 ic;
01ACE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7B 69 {i
01ACF0: 6E 69 74 69 61 6C 69 73 65 20 6C 65 73 20 67 72 nitialise les gr
01AD00: 61 70 68 69 73 6D 65 73 7D 0D 0A 0D 0A 0D 0A 44 aphismes}......D
01AD10: 72 61 77 42 6F 72 64 65 72 3B 20 20 20 20 20 20 rawBorder;
01AD20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01AD30: 20 20 20 20 20 20 7B 74 72 61 63 65 20 75 6E 65 {trace une
01AD40: 20 62 6F 72 64 75 72 65 20 61 75 74 6F 75 72 20 bordure autour
01AD50: 64 75 20 64 65 73 73 69 6E 7D 0D 0A 20 20 20 20 du dessin}..
01AD60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01AD70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01AD80: 20 20 20 7B 61 69 72 65 20 64 65 20 6C 61 20 66 {aire de la f
01AD90: 65 6E 65 74 72 65 20 70 72 69 6D 61 69 72 65 7D enetre primaire}
01ADA0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
01ADB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01ADC0: 20 20 20 20 20 20 20 20 20 7B 28 6C 65 73 20 64 {(les d
01ADD0: 69 6D 65 6E 73 69 6F 6E 73 20 64 65 20 6C 61 20 imensions de la
01ADE0: 66 65 6E 65 74 72 65 20 70 72 69 6D 61 69 72 65 fenetre primaire
01ADF0: 7D 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 }..
01AE00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AE10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AE20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AE30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AE40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AE50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AE60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AE70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AE80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AE90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AEA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AEB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AEC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AED0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AEE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AEF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AF00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AF10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AF20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AF30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AF40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AF50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AF60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AF70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AF80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AF90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AFA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AFB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AFC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AFD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AFE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AFF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01B000: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01B010: 20 20 20 20 20 20 20 20 20 20 7B 20 70 61 72 20 { par
01B020: 64 65 66 61 75 74 20 61 20 36 34 30 78 32 30 30 defaut a 640x200
01B030: 20 70 6F 69 6E 74 73 29 7D 0D 0A 0D 0A 0D 0A 44 points)}......D
01B040: 72 61 77 4C 69 6E 65 28 31 30 2C 31 30 2C 36 30 rawLine(10,10,60
01B050: 30 2C 31 38 30 29 3B 20 20 20 20 20 20 20 20 20 0,180);
01B060: 20 20 20 20 20 20 7B 74 72 61 63 65 20 75 6E 65 {trace une
01B070: 20 6C 69 67 6E 65 7D 0D 0A 0D 0A 44 72 61 77 53 ligne}....DrawS
01B080: 71 75 61 72 65 28 31 30 2C 31 30 2C 36 30 30 2C quare(10,10,600,
01B090: 31 38 30 2C 66 61 6C 73 65 29 3B 20 20 20 20 20 180,false);
01B0A0: 20 20 7B 74 72 61 63 65 20 75 6E 20 63 61 72 72 {trace un carr
01B0B0: 65 7D 0D 0A 0D 0A 44 72 61 77 4C 69 6E 65 28 2D e}....DrawLine(-
01B0C0: 31 30 30 2C 2D 32 30 2C 37 35 30 2C 33 32 30 29 100,-20,750,320)
01B0D0: 3B 20 20 20 20 20 20 20 20 20 20 20 20 7B 74 72 ; {tr
01B0E0: 61 63 65 20 75 6E 65 20 6C 69 67 6E 65 20 70 6F ace une ligne po
01B0F0: 75 72 20 64 65 6D 6F 6E 74 72 65 72 7D 0D 0A 0D ur demontrer}...
01B100: 0A 72 65 70 65 61 74 20 75 6E 74 69 6C 20 6B 65 .repeat until ke
01B110: 79 70 72 65 73 73 65 64 3B 20 20 20 20 20 20 20 ypressed;
01B120: 20 20 20 20 20 20 20 20 7B 67 65 6C 65 20 6C 27 {gele l'
01B130: 27 65 63 72 61 6E 20 6A 75 73 71 75 27 27 61 20 'ecran jusqu''a
01B140: 63 65 20 75 6E 65 20 74 6F 75 63 68 65 20 73 6F ce une touche so
01B150: 69 74 20 66 72 61 70 70 65 65 7D 0D 0A 0D 0A 4C it frappee}....L
01B160: 65 61 76 65 47 72 61 70 68 69 63 3B 20 20 20 20 eaveGraphic;
01B170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01B180: 20 20 20 20 20 20 7B 71 75 69 74 74 65 20 6C 65 {quitte le
01B190: 73 20 67 72 61 70 68 69 73 6D 65 73 7D 0D 0A 0D s graphismes}...
01B1A0: 0A 65 6E 64 2E 0D 0A 1A 1A 1A 1A 1A 1A 1A 1A 1A .end............
01B1B0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
01B1C0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
01B1D0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
01B1E0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
01B1F0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
01B200: 70 72 6F 67 72 61 6D 20 4D 75 6C 74 69 70 6C 65 program Multiple
01B210: 57 69 6E 64 6F 77 73 3B 0D 0A 0D 0A 7B 24 49 20 Windows;....{$I
01B220: 74 79 70 65 64 65 66 2E 73 79 73 7D 20 20 20 20 typedef.sys}
01B230: 20 20 20 20 20 20 20 20 20 7B 43 65 73 20 66 69 {Ces fi
01B240: 63 68 69 65 72 73 20 64 6F 69 76 65 6E 74 20 65 chiers doivent e
01B250: 74 72 65 7D 0D 0A 7B 24 49 20 67 72 61 70 68 69 tre}..{$I graphi
01B260: 78 2E 73 79 73 7D 20 20 20 20 20 20 20 20 20 20 x.sys}
01B270: 20 20 20 7B 69 6E 63 6C 75 73 20 64 61 6E 73 20 {inclus dans
01B280: 63 65 74 20 6F 72 64 72 65 7D 0D 0A 7B 24 49 20 cet ordre}..{$I
01B290: 6B 65 72 6E 65 6C 2E 73 79 73 7D 0D 0A 7B 24 49 kernel.sys}..{$I
01B2A0: 20 6B 65 72 6E 65 6C 31 2E 73 79 73 7D 0D 0A 0D kernel1.sys}...
01B2B0: 0A 76 61 72 20 69 3A 20 69 6E 74 65 67 65 72 3B .var i: integer;
01B2C0: 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 65 20 44 72 ....procedure Dr
01B2D0: 61 77 4C 69 6E 65 73 3B 0D 0A 76 61 72 20 69 3A awLines;..var i:
01B2E0: 69 6E 74 65 67 65 72 3B 0D 0A 62 65 67 69 6E 0D integer;..begin.
01B2F0: 0A 20 20 66 6F 72 20 69 3A 3D 31 20 74 6F 20 32 . for i:=1 to 2
01B300: 30 20 64 6F 20 44 72 61 77 4C 69 6E 65 28 69 2A 0 do DrawLine(i*
01B310: 35 30 2C 30 2C 31 30 30 30 2D 69 2A 35 30 2C 69 50,0,1000-i*50,i
01B320: 2A 35 30 29 3B 0D 0A 65 6E 64 3B 0D 0A 0D 0A 0D *50);..end;.....
01B330: 0A 62 65 67 69 6E 0D 0A 0D 0A 49 6E 69 74 47 72 .begin....InitGr
01B340: 61 70 68 69 63 3B 20 20 20 20 20 20 20 20 20 20 aphic;
01B350: 20 20 20 20 20 20 20 7B 69 6E 69 74 69 61 6C 69 {initiali
01B360: 73 65 20 6C 65 73 20 20 67 72 61 70 68 69 73 6D se les graphism
01B370: 65 73 20 7D 0D 0A 0D 0A 0D 0A 44 72 61 77 42 6F es }......DrawBo
01B380: 72 64 65 72 3B 20 20 20 20 20 20 20 20 20 20 20 rder;
01B390: 20 20 20 20 20 20 20 7B 74 72 61 63 65 20 75 6E {trace un
01B3A0: 65 20 62 6F 72 64 75 72 65 20 61 75 74 6F 75 72 e bordure autour
01B3B0: 20 64 75 20 64 65 73 73 69 6E 7D 0D 0A 20 20 20 du dessin}..
01B3C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01B3D0: 20 20 20 20 20 20 20 20 20 20 7B 61 69 72 65 20 {aire
01B3E0: 64 65 20 6C 61 20 66 65 6E 65 74 72 65 20 70 72 de la fenetre pr
01B3F0: 69 6D 61 69 72 65 7D 0D 0A 20 20 20 20 20 20 20 imaire}..
01B400: 70 72 6F 67 72 61 6D 20 44 72 61 77 53 74 61 6E program DrawStan
01B410: 64 61 72 64 54 65 78 74 3B 0D 0A 0D 0A 7B 24 49 dardText;....{$I
01B420: 20 74 79 70 65 64 65 66 2E 73 79 73 7D 20 20 20 typedef.sys}
01B430: 20 20 20 20 20 20 20 20 20 20 20 20 20 7B 69 6E {in
01B440: 63 6C 75 73 20 6C 65 73 20 20 67 72 61 70 68 69 clus les graphi
01B450: 73 6D 65 73 7D 0D 0A 7B 24 49 20 67 72 61 70 68 smes}..{$I graph
01B460: 69 78 2E 73 79 73 7D 0D 0A 7B 24 49 20 6B 65 72 ix.sys}..{$I ker
01B470: 6E 65 6C 2E 73 79 73 7D 0D 0A 7B 24 49 20 6B 65 nel.sys}..{$I ke
01B480: 72 6E 65 6C 31 2E 73 79 73 7D 0D 0A 0D 0A 63 6F rnel1.sys}....co
01B490: 6E 73 74 20 4D 61 78 57 6F 72 6C 64 58 3A 20 72 nst MaxWorldX: r
01B4A0: 65 61 6C 3D 31 30 30 30 2E 30 3B 0D 0A 20 20 20 eal=1000.0;..
01B4B0: 20 20 20 4D 61 78 57 6F 72 6C 64 59 3A 20 72 65 MaxWorldY: re
01B4C0: 61 6C 3D 31 30 30 30 2E 30 3B 0D 0A 0D 0A 76 61 al=1000.0;....va
01B4D0: 72 20 69 3A 69 6E 74 65 67 65 72 3B 0D 0A 20 20 r i:integer;..
01B4E0: 20 20 43 68 61 72 48 65 69 67 68 74 2C 43 68 61 CharHeight,Cha
01B4F0: 72 57 69 64 74 68 3A 72 65 61 6C 3B 0D 0A 0D 0A rWidth:real;....
01B500: 62 65 67 69 6E 0D 0A 20 20 49 6E 69 74 47 72 61 begin.. InitGra
01B510: 70 68 69 63 3B 20 20 20 20 20 20 20 20 20 20 20 phic;
01B520: 20 20 20 20 20 20 20 7B 69 6E 69 74 69 61 6C 69 {initiali
01B530: 73 65 20 6C 65 73 20 67 72 61 70 68 69 73 6D 65 se les graphisme
01B540: 73 7D 0D 0A 0D 0A 20 20 44 65 66 69 6E 65 57 6F s}.... DefineWo
01B550: 72 6C 64 28 31 2C 30 2C 4D 61 78 57 6F 72 6C 64 rld(1,0,MaxWorld
01B560: 58 2C 4D 61 78 57 6F 72 6C 64 58 2C 30 29 3B 20 X,MaxWorldX,0);
01B570: 7B 64 65 66 69 6E 69 74 20 75 6E 20 6D 6F 6E 64 {definit un mond
01B580: 65 20 61 20 64 65 73 73 69 6E 65 72 7D 0D 0A 20 e a dessiner}..
01B590: 20 53 65 6C 65 63 74 57 6F 72 6C 64 28 31 29 3B SelectWorld(1);
01B5A0: 0D 0A 20 20 53 65 6C 65 63 74 57 69 6E 64 6F 77 .. SelectWindow
01B5B0: 28 31 29 3B 0D 0A 20 20 44 72 61 77 42 6F 72 64 (1);.. DrawBord
01B5C0: 65 72 3B 0D 0A 0D 0A 20 20 47 6F 74 6F 58 59 28 er;.... GotoXY(
01B5D0: 33 39 2C 31 32 29 3B 20 20 20 20 20 20 20 20 20 39,12);
01B5E0: 20 20 20 20 20 20 20 7B 76 61 20 61 75 20 63 65 {va au ce
01B5F0: 6E 74 72 65 20 64 65 20 6C 27 27 65 63 72 61 6E ntre de l''ecran
01B600: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
01B610: 17 00 01 00 02 09 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: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01B710: 20 20 20 20 20 20 7B 28 6C 65 73 20 64 69 6D 65 {(les dime
01B720: 6E 73 69 6F 6E 73 20 64 65 20 6C 61 20 66 65 6E nsions de la fen
01B730: 65 74 72 65 20 70 72 69 6D 61 69 72 65 7D 0D 0A etre primaire}..
01B740: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01B750: 20 20 20 20 20 20 20 20 20 20 20 20 20 7B 64 69 {di
01B760: 6D 65 6E 73 69 6F 6E 73 20 70 61 72 20 64 65 66 mensions par def
01B770: 61 75 74 20 64 65 20 6C 27 27 65 63 72 61 6E 29 aut de l''ecran)
01B780: 7D 0D 0A 0D 0A 44 65 66 69 6E 65 57 69 6E 64 6F }....DefineWindo
01B790: 77 28 31 2C 74 72 75 6E 63 28 58 4D 61 78 47 6C w(1,trunc(XMaxGl
01B7A0: 62 2F 31 30 29 2C 74 72 75 6E 63 28 59 4D 61 78 b/10),trunc(YMax
01B7B0: 47 6C 62 2F 31 30 29 2C 0D 0A 20 20 20 20 20 20 Glb/10),..
01B7C0: 20 20 20 20 20 20 20 20 20 74 72 75 6E 63 28 58 trunc(X
01B7D0: 4D 61 78 47 6C 62 2F 32 29 2C 74 72 75 6E 63 28 MaxGlb/2),trunc(
01B7E0: 59 4D 61 78 47 6C 62 2F 32 29 29 3B 0D 0A 20 20 YMaxGlb/2));..
01B7F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01B800: 20 20 20 20 20 20 20 20 20 20 20 7B 64 65 66 69 {defi
01B810: 6E 69 74 20 75 6E 65 20 66 65 6E 65 74 72 65 20 nit une fenetre
01B820: 64 27 27 75 6E 65 20 64 69 7A 61 69 6E 65 20 64 d''une dizaine d
01B830: 65 20 66 61 63 6F 6E 73 7D 0D 0A 20 20 20 20 20 e facons}..
01B840: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01B850: 20 20 20 20 20 20 20 20 7B 64 65 70 75 69 73 20 {depuis
01B860: 65 6E 20 68 61 75 74 20 61 20 67 61 75 63 68 65 en haut a gauche
01B870: 2C 20 6F 75 20 64 75 20 6D 69 6C 69 65 75 7D 0D , ou du milieu}.
01B880: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
01B890: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7B 64 {d
01B8A0: 65 70 75 69 73 20 65 6E 20 62 61 73 20 61 20 64 epuis en bas a d
01B8B0: 72 6F 69 74 65 7D 0D 0A 0D 0A 44 65 66 69 6E 65 roite}....Define
01B8C0: 48 65 61 64 65 72 28 31 2C 27 43 45 43 49 20 45 Header(1,'CECI E
01B8D0: 53 54 20 55 4E 20 4D 4F 4E 44 45 20 50 4C 55 53 ST UN MONDE PLUS
01B8E0: 20 47 52 41 4E 44 27 29 3B 20 7B 64 6F 6E 6E 65 GRAND'); {donne
01B8F0: 20 75 6E 65 20 65 6E 74 65 74 65 7D 0D 0A 0D 0A une entete}....
01B900: 70 72 6F 67 72 61 6D 20 42 65 7A 69 44 65 6D 6F program BeziDemo
01B910: 3B 0D 0A 0D 0A 7B 24 49 20 74 79 70 65 64 65 66 ;....{$I typedef
01B920: 2E 73 79 73 7D 20 20 20 20 20 20 20 20 20 20 20 .sys}
01B930: 20 20 20 20 20 20 20 20 20 20 20 20 7B 63 65 73 {ces
01B940: 20 66 69 63 68 69 65 72 73 20 64 6F 69 76 65 6E fichiers doiven
01B950: 74 20 65 74 72 65 7D 0D 0A 7B 24 49 20 67 72 61 t etre}..{$I gra
01B960: 70 68 69 78 2E 73 79 73 7D 20 20 20 20 20 20 20 phix.sys}
01B970: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01B980: 7B 69 6E 63 6C 75 73 20 64 61 6E 73 20 63 65 74 {inclus dans cet
01B990: 20 6F 72 64 72 65 7D 0D 0A 7B 24 49 20 6B 65 72 ordre}..{$I ker
01B9A0: 6E 65 6C 2E 73 79 73 7D 0D 0A 7B 24 49 20 6B 65 nel.sys}..{$I ke
01B9B0: 72 6E 65 6C 31 2E 73 79 73 7D 0D 0A 7B 24 49 20 rnel1.sys}..{$I
01B9C0: 77 69 6E 64 6F 77 73 2E 73 79 73 7D 0D 0A 7B 24 windows.sys}..{$
01B9D0: 49 20 61 78 69 73 2E 68 67 68 7D 0D 0A 7B 24 49 I axis.hgh}..{$I
01B9E0: 20 70 6F 6C 79 67 6F 6E 2E 68 67 68 7D 0D 0A 7B polygon.hgh}..{
01B9F0: 24 49 20 62 65 7A 69 65 72 2E 68 67 68 7D 0D 0A $I bezier.hgh}..
01BA00: 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 65 20 43 6C ....procedure Cl
01BA10: 65 61 72 54 6F 45 6F 6C 3B 20 20 20 20 20 20 20 earToEol;
01BA20: 20 20 20 20 20 20 20 20 20 20 20 7B 70 72 6F 63 {proc
01BA30: 20 70 6F 75 72 20 76 69 64 65 72 20 6C 61 20 66 pour vider la f
01BA40: 69 6E 20 64 65 20 6C 61 20 6C 69 67 6E 65 7D 0D in de la ligne}.
01BA50: 0A 76 61 72 20 69 3A 20 69 6E 74 65 67 65 72 3B .var i: integer;
01BA60: 0D 0A 0D 0A 62 65 67 69 6E 0D 0A 20 20 66 6F 72 ....begin.. for
01BA70: 20 69 3A 3D 31 20 74 6F 20 38 30 20 64 6F 20 77 i:=1 to 80 do w
01BA80: 72 69 74 65 28 27 20 27 29 3B 0D 0A 65 6E 64 3B rite(' ');..end;
01BA90: 0D 0A 0D 0A 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 ........procedur
01BAA0: 65 20 42 65 7A 69 65 72 44 65 6D 3B 0D 0A 0D 0A e BezierDem;....
01BAB0: 76 61 72 20 72 65 73 75 6C 74 2C 69 2C 4D 61 78 var result,i,Max
01BAC0: 43 6F 6E 74 72 6F 6C 50 6F 69 6E 74 73 2C 4D 61 ControlPoints,Ma
01BAD0: 78 49 6E 74 50 6F 69 6E 74 73 3A 69 6E 74 65 67 xIntPoints:integ
01BAE0: 65 72 3B 0D 0A 20 20 20 20 64 75 6D 6D 79 78 2C er;.. dummyx,
01BAF0: 64 75 6D 6D 79 79 3A 72 65 61 6C 3B 0D 0A 20 20 dummyy:real;..
01BB00: 44 65 66 69 6E 65 57 6F 72 6C 64 28 31 2C 30 2C DefineWorld(1,0,
01BB10: 32 30 30 30 2C 32 30 30 30 2C 30 29 3B 20 7B 64 2000,2000,0); {d
01BB20: 6F 6E 6E 65 20 64 65 73 20 63 6F 6F 72 64 6F 6E onne des coordon
01BB30: 6E 65 65 73 20 73 79 73 74 65 6D 65 73 20 70 6C nees systemes pl
01BB40: 75 73 20 67 72 61 6E 64 65 73 7D 0D 0A 0D 0A 0D us grandes}.....
01BB50: 0A 0D 0A 44 65 66 69 6E 65 57 69 6E 64 6F 77 28 ...DefineWindow(
01BB60: 32 2C 74 72 75 6E 63 28 58 4D 61 78 47 6C 62 2F 2,trunc(XMaxGlb/
01BB70: 33 29 2C 74 72 75 6E 63 28 59 4D 61 78 47 6C 62 3),trunc(YMaxGlb
01BB80: 2F 33 29 2C 0D 0A 20 20 20 20 20 20 20 20 20 20 /3),..
01BB90: 20 20 20 20 20 74 72 75 6E 63 28 28 58 4D 61 78 trunc((XMax
01BBA0: 47 6C 62 2A 32 29 2F 33 29 2C 74 72 75 6E 63 28 Glb*2)/3),trunc(
01BBB0: 28 59 4D 61 78 47 6C 62 2A 32 29 2F 33 29 29 3B (YMaxGlb*2)/3));
01BBC0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
01BBD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7B {
01BBE0: 64 65 66 69 6E 69 74 20 75 6E 65 20 66 65 6E 65 definit une fene
01BBF0: 74 72 65 20 64 27 27 75 6E 65 20 64 65 73 20 74 tre d''une des t
01BC00: 72 6F 69 73 20 66 61 63 6F 6E 73 7D 0D 0A 20 20 rois facons}..
01BC10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01BC20: 20 20 20 20 20 20 20 20 20 20 20 7B 64 65 70 75 {depu
01BC30: 69 73 20 65 6E 20 68 61 75 74 20 61 20 67 61 75 is en haut a gau
01BC40: 63 68 65 69 7D 0D 0A 20 20 20 20 20 20 20 20 20 chei}..
01BC50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01BC60: 20 20 20 20 7B 64 65 70 75 69 73 20 65 6E 20 62 {depuis en b
01BC70: 61 73 20 61 20 64 72 6F 69 74 65 7D 0D 0A 0D 0A as a droite}....
01BC80: 44 65 66 69 6E 65 48 65 61 64 65 72 28 32 2C 27 DefineHeader(2,'
01BC90: 43 45 43 49 20 45 53 54 20 4D 4F 4E 44 45 20 43 CECI EST MONDE C
01BCA0: 4F 52 52 45 43 54 45 27 29 3B 20 7B 64 6F 6E 6E ORRECTE'); {donn
01BCB0: 65 20 75 6E 65 20 65 6E 74 65 74 65 7D 0D 0A 0D e une entete}...
01BCC0: 0A 44 65 66 69 6E 65 57 6F 72 6C 64 28 32 2C 30 .DefineWorld(2,0
01BCD0: 2C 31 30 30 30 2C 31 30 30 30 2C 30 29 3B 20 7B ,1000,1000,0); {
01BCE0: 64 6F 6E 6E 65 20 6C 65 73 20 63 6F 6F 72 64 6F donne les coordo
01BCF0: 6E 6E 65 65 73 20 73 79 73 74 65 6D 65 20 64 75 nnees systeme du
01BD00: 20 20 61 2C 62 3A 50 6C 6F 74 41 72 72 61 79 3B a,b:PlotArray;
01BD10: 0D 0A 20 20 20 20 62 72 65 61 6B 3A 62 6F 6F 6C .. break:bool
01BD20: 65 61 6E 3B 0D 0A 20 20 20 20 44 75 6D 6D 79 53 ean;.. DummyS
01BD30: 2C 54 65 6D 70 32 2C 54 65 6D 70 3A 77 72 6B 73 ,Temp2,Temp:wrks
01BD40: 74 72 69 6E 67 3B 0D 0A 0D 0A 62 65 67 69 6E 0D tring;....begin.
01BD50: 0A 0D 0A 20 20 4D 61 78 43 6F 6E 74 72 6F 6C 50 ... MaxControlP
01BD60: 6F 69 6E 74 73 3A 3D 37 3B 20 20 20 20 20 20 20 oints:=7;
01BD70: 20 20 20 20 20 20 20 20 20 20 7B 69 6E 69 74 69 {initi
01BD80: 61 6C 69 73 65 20 74 6F 75 74 7D 0D 0A 20 20 4D alise tout}.. M
01BD90: 61 78 49 6E 74 50 6F 69 6E 74 73 3A 3D 31 35 3B axIntPoints:=15;
01BDA0: 0D 0A 20 20 61 5B 31 2C 31 5D 3A 3D 31 3B 61 5B .. a[1,1]:=1;a[
01BDB0: 32 2C 31 5D 3A 3D 31 2E 35 3B 61 5B 33 2C 31 5D 2,1]:=1.5;a[3,1]
01BDC0: 3A 3D 32 3B 61 5B 34 2C 31 5D 3A 3D 32 2E 35 3B :=2;a[4,1]:=2.5;
01BDD0: 61 5B 35 2C 31 5D 3A 3D 33 3B 61 5B 36 2C 31 5D a[5,1]:=3;a[6,1]
01BDE0: 3A 3D 34 3B 61 5B 37 2C 31 5D 3A 3D 35 3B 0D 0A :=4;a[7,1]:=5;..
01BDF0: 20 20 61 5B 31 2C 32 5D 3A 3D 32 3B 61 5B 32 2C a[1,2]:=2;a[2,
01BE00: 32 5D 3A 3D 31 2E 35 3B 61 5B 33 2C 32 5D 3A 3D 2]:=1.5;a[3,2]:=
01BE10: 31 3B 61 5B 34 2C 32 5D 3A 3D 32 2E 35 3B 61 5B 1;a[4,2]:=2.5;a[
01BE20: 35 2C 32 5D 3A 3D 34 3B 61 5B 36 2C 32 5D 3A 3D 5,2]:=4;a[6,2]:=
01BE30: 34 2E 35 3B 61 5B 37 2C 32 5D 3A 3D 35 3B 0D 0A 4.5;a[7,2]:=5;..
01BE40: 0D 0A 20 20 43 6C 65 61 72 53 63 72 65 65 6E 3B .. ClearScreen;
01BE50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01BE60: 20 20 20 20 20 20 20 20 20 7B 6D 69 73 65 20 65 {mise e
01BE70: 6E 20 70 6C 61 63 65 20 64 65 20 6C 27 27 65 63 n place de l''ec
01BE80: 72 61 6E 7D 0D 0A 20 20 53 65 74 43 6F 6C 6F 72 ran}.. SetColor
01BE90: 57 68 69 74 65 3B 0D 0A 20 20 44 65 66 69 6E 65 White;.. Define
01BEA0: 57 6F 72 6C 64 28 31 2C 30 2C 37 2E 30 2C 36 2E World(1,0,7.0,6.
01BEB0: 33 33 2C 30 29 3B 20 20 20 20 20 20 20 20 20 7B 33,0); {
01BEC0: 64 65 66 69 6E 69 74 20 73 69 20 6C 65 73 20 72 definit si les r
01BED0: 65 67 6C 65 73 20 73 6F 6E 74 20 6A 75 73 74 65 egles sont juste
01BEE0: 73 7D 0D 0A 20 20 53 65 6C 65 63 74 57 6F 72 6C s}.. SelectWorl
01BEF0: 64 28 31 29 3B 0D 0A 20 20 44 65 66 69 6E 65 57 d(1);.. DefineW
01BF00: 20 6D 6F 6E 64 65 20 63 6F 72 72 65 63 74 65 7D monde correcte}
01BF10: 0D 0A 0D 0A 0D 0A 44 65 66 69 6E 65 57 69 6E 64 ......DefineWind
01BF20: 6F 77 28 33 2C 74 72 75 6E 63 28 58 4D 61 78 47 ow(3,trunc(XMaxG
01BF30: 6C 62 2F 32 29 2C 74 72 75 6E 63 28 59 4D 61 78 lb/2),trunc(YMax
01BF40: 47 6C 62 2F 32 29 2C 0D 0A 20 20 20 20 20 20 20 Glb/2),..
01BF50: 20 20 20 20 20 20 20 20 74 72 75 6E 63 28 28 58 trunc((X
01BF60: 4D 61 78 47 6C 62 2A 39 29 2F 31 30 29 2C 74 72 MaxGlb*9)/10),tr
01BF70: 75 6E 63 28 28 59 4D 61 78 47 6C 62 2A 39 29 2F unc((YMaxGlb*9)/
01BF80: 31 30 29 29 3B 0D 0A 0D 0A 44 65 66 69 6E 65 48 10));....DefineH
01BF90: 65 61 64 65 72 28 33 2C 27 43 45 43 49 20 45 53 eader(3,'CECI ES
01BFA0: 54 20 55 4E 20 4D 4F 4E 44 45 20 50 4C 55 53 20 T UN MONDE PLUS
01BFB0: 50 45 54 49 54 27 29 3B 20 7B 64 6F 6E 6E 65 20 PETIT'); {donne
01BFC0: 75 6E 65 20 65 6E 74 65 74 65 7D 0D 0A 0D 0A 44 une entete}....D
01BFD0: 65 66 69 6E 65 57 6F 72 6C 64 28 33 2C 30 2C 35 efineWorld(3,0,5
01BFE0: 30 30 2C 35 30 30 2C 30 29 3B 20 7B 64 6F 6E 6E 00,500,0); {donn
01BFF0: 65 20 6C 65 73 20 63 6F 6F 72 64 6F 6E 6E 65 65 e les coordonnee
01C000: 73 20 73 79 73 74 65 6D 65 73 20 64 27 27 75 6E s systemes d''un
01C010: 20 6D 6F 6E 64 65 20 70 6C 75 73 20 70 65 74 69 monde plus peti
01C020: 74 7D 0D 0A 0D 0A 66 6F 72 20 69 3A 3D 31 20 74 t}....for i:=1 t
01C030: 6F 20 33 20 64 6F 0D 0A 20 20 62 65 67 69 6E 0D o 3 do.. begin.
01C040: 0A 20 20 20 53 65 6C 65 63 74 57 69 6E 64 6F 77 . SelectWindow
01C050: 28 69 29 3B 20 20 20 20 20 20 20 20 20 20 7B 73 (i); {s
01C060: 6F 6E 20 63 68 6F 69 78 7D 0D 0A 20 20 20 53 65 on choix}.. Se
01C070: 74 48 65 61 64 65 72 4F 6E 3B 0D 0A 20 20 20 53 tHeaderOn;.. S
01C080: 65 6C 65 63 74 57 6F 72 6C 64 28 69 29 3B 20 20 electWorld(i);
01C090: 20 20 20 20 20 20 20 20 20 7B 73 6F 6E 20 63 68 {son ch
01C0A0: 6F 69 78 7D 0D 0A 20 20 20 53 65 74 42 61 63 6B oix}.. SetBack
01C0B0: 67 72 6F 75 6E 64 28 30 29 3B 20 20 20 20 20 20 ground(0);
01C0C0: 20 20 20 7B 64 6F 6E 6E 65 20 6C 27 27 61 72 72 {donne l''arr
01C0D0: 69 65 72 65 20 70 6C 61 6E 7D 0D 0A 20 20 20 44 iere plan}.. D
01C0E0: 72 61 77 42 6F 72 64 65 72 3B 20 20 20 20 20 20 rawBorder;
01C0F0: 20 20 20 20 20 20 20 20 20 7B 74 72 61 63 65 20 {trace
01C100: 69 6E 64 6F 77 28 31 2C 30 2C 30 2C 58 4D 61 78 indow(1,0,0,XMax
01C110: 47 6C 62 2C 31 37 2A 59 4D 61 78 47 6C 62 20 64 Glb,17*YMaxGlb d
01C120: 69 76 20 32 30 29 3B 0D 0A 20 20 53 65 6C 65 63 iv 20);.. Selec
01C130: 74 57 69 6E 64 6F 77 28 31 29 3B 0D 0A 20 20 53 tWindow(1);.. S
01C140: 65 74 42 61 63 6B 67 72 6F 75 6E 64 28 30 29 3B etBackground(0);
01C150: 0D 0A 20 20 44 72 61 77 42 6F 72 64 65 72 3B 0D .. DrawBorder;.
01C160: 0A 20 20 44 72 61 77 41 78 69 73 28 37 2C 2D 37 . DrawAxis(7,-7
01C170: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 66 61 6C ,0,0,0,0,0,0,fal
01C180: 73 65 29 3B 0D 0A 0D 0A 20 20 62 72 65 61 6B 3A se);.... break:
01C190: 3D 66 61 6C 73 65 3B 0D 0A 0D 0A 20 20 72 65 70 =false;.... rep
01C1A0: 65 61 74 0D 0A 20 20 20 20 53 65 74 4C 69 6E 65 eat.. SetLine
01C1B0: 73 74 79 6C 65 28 31 29 3B 20 20 20 20 20 20 20 style(1);
01C1C0: 20 20 20 20 20 20 20 20 20 20 20 20 7B 74 72 61 {tra
01C1D0: 63 65 20 75 6E 20 70 6F 6C 79 67 6F 6E 65 20 65 ce un polygone e
01C1E0: 6E 74 72 65 20 64 65 73 20 70 6F 69 6E 74 73 7D ntre des points}
01C1F0: 0D 0A 20 20 20 20 44 72 61 77 41 78 69 73 28 30 .. DrawAxis(0
01C200: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 66 ,0,0,0,0,0,0,0,f
01C210: 61 6C 73 65 29 3B 20 20 20 7B 61 6C 69 67 6E 65 alse); {aligne
01C220: 20 63 65 20 64 65 72 6E 69 65 72 20 28 70 61 73 ce dernier (pas
01C230: 20 64 65 20 74 65 78 74 65 29 7D 0D 0A 20 20 20 de texte)}..
01C240: 20 44 72 61 77 50 6F 6C 79 67 6F 6E 28 61 2C 31 DrawPolygon(a,1
01C250: 2C 4D 61 78 43 6F 6E 74 72 6F 6C 50 6F 69 6E 74 ,MaxControlPoint
01C260: 73 2C 34 2C 32 2C 30 29 3B 0D 0A 0D 0A 20 20 20 s,4,2,0);....
01C270: 20 62 65 7A 69 65 72 28 61 2C 4D 61 78 43 6F 6E bezier(a,MaxCon
01C280: 74 72 6F 6C 50 6F 69 6E 74 73 2C 62 2C 4D 61 78 trolPoints,b,Max
01C290: 49 6E 74 50 6F 69 6E 74 73 29 3B 20 20 7B 66 61 IntPoints); {fa
01C2A0: 69 74 20 6C 65 73 20 6F 70 65 72 61 74 69 6F 6E it les operation
01C2B0: 73 20 64 65 20 42 65 7A 69 65 72 7D 0D 0A 0D 0A s de Bezier}....
01C2C0: 20 20 20 20 53 65 74 4C 69 6E 65 73 74 79 6C 65 SetLinestyle
01C2D0: 28 30 29 3B 20 20 20 20 20 20 20 20 20 20 20 20 (0);
01C2E0: 20 20 20 20 20 20 20 7B 6C 65 73 20 74 72 61 63 {les trac
01C2F0: 65 73 7D 0D 0A 20 20 20 20 44 72 61 77 41 78 69 es}.. DrawAxi
01C300: 75 6E 65 20 62 6F 72 64 75 72 65 7D 0D 0A 20 20 une bordure}..
01C310: 20 44 72 61 77 4C 69 6E 65 73 3B 20 20 20 20 20 DrawLines;
01C320: 20 20 20 20 20 20 20 20 20 20 20 7B 74 72 61 63 {trac
01C330: 65 20 64 65 73 20 6C 69 67 6E 65 73 7D 0D 0A 20 e des lignes}..
01C340: 20 65 6E 64 3B 0D 0A 0D 0A 0D 0A 72 65 70 65 61 end;......repea
01C350: 74 20 75 6E 74 69 6C 20 6B 65 79 70 72 65 73 73 t until keypress
01C360: 65 64 3B 20 20 20 20 20 7B 61 74 74 65 6E 64 20 ed; {attend
01C370: 6A 75 73 71 75 27 27 61 20 75 6E 65 20 74 6F 75 jusqu''a une tou
01C380: 63 68 65 20 73 6F 69 74 20 66 72 61 70 65 65 7D che soit frapee}
01C390: 0D 0A 0D 0A 4C 65 61 76 65 47 72 61 70 68 69 63 ....LeaveGraphic
01C3A0: 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ;
01C3B0: 20 7B 71 75 69 74 74 65 20 6C 65 73 20 67 72 61 {quitte les gra
01C3C0: 70 68 69 73 6D 65 73 7D 0D 0A 0D 0A 65 6E 64 2E phismes}....end.
01C3D0: 0D 0A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
01C3E0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
01C3F0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
01C400: 73 20 73 79 73 74 65 6D 65 73 20 64 27 27 75 6E s systemes d''un
01C410: 20 6D 6F 6E 64 65 20 70 6C 75 73 20 70 65 74 69 monde plus peti
01C420: 74 7D 0D 0A 0D 0A 66 6F 72 20 69 3A 3D 31 20 74 t}....for i:=1 t
01C430: 6F 20 33 20 64 6F 0D 0A 20 20 62 65 67 69 6E 0D o 3 do.. begin.
01C440: 0A 20 20 20 53 65 6C 65 63 74 57 69 6E 64 6F 77 . SelectWindow
01C450: 28 69 29 3B 20 20 20 20 20 20 20 20 20 20 7B 73 (i); {s
01C460: 6F 6E 20 63 68 6F 69 78 7D 0D 0A 20 20 20 53 65 on choix}.. Se
01C470: 74 48 65 61 64 65 72 4F 6E 3B 0D 0A 20 20 20 53 tHeaderOn;.. S
01C480: 65 6C 65 63 74 57 6F 72 6C 64 28 69 29 3B 20 20 electWorld(i);
01C490: 20 20 20 20 20 20 20 20 20 7B 73 6F 6E 20 63 68 {son ch
01C4A0: 6F 69 78 7D 0D 0A 20 20 20 53 65 74 42 61 63 6B oix}.. SetBack
01C4B0: 67 72 6F 75 6E 64 28 30 29 3B 20 20 20 20 20 20 ground(0);
01C4C0: 20 20 20 7B 64 6F 6E 6E 65 20 6C 27 27 61 72 72 {donne l''arr
01C4D0: 69 65 72 65 20 70 6C 61 6E 7D 0D 0A 20 20 20 44 iere plan}.. D
01C4E0: 72 61 77 42 6F 72 64 65 72 3B 20 20 20 20 20 20 rawBorder;
01C4F0: 20 20 20 20 20 20 20 20 20 7B 74 72 61 63 65 20 {trace
01C500: 73 28 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C s(0,0,0,0,0,0,0,
01C510: 30 2C 66 61 6C 73 65 29 3B 0D 0A 20 20 20 20 44 0,false);.. D
01C520: 72 61 77 50 6F 6C 79 67 6F 6E 28 62 2C 31 2C 4D rawPolygon(b,1,M
01C530: 61 78 49 6E 74 50 6F 69 6E 74 73 2C 30 2C 30 2C axIntPoints,0,0,
01C540: 30 29 3B 0D 0A 0D 0A 20 20 20 20 72 65 70 65 61 0);.... repea
01C550: 74 0D 0A 20 20 20 20 20 20 67 6F 74 6F 78 79 28 t.. gotoxy(
01C560: 31 2C 32 34 29 3B 20 20 20 20 20 20 20 20 20 20 1,24);
01C570: 20 20 20 20 20 20 20 20 20 20 7B 76 69 64 65 20 {vide
01C580: 6C 27 27 61 6E 63 69 65 6E 20 74 65 78 74 65 7D l''ancien texte}
01C590: 0D 0A 20 20 20 20 20 20 43 6C 65 61 72 54 6F 45 .. ClearToE
01C5A0: 6F 6C 3B 0D 0A 20 20 20 20 20 20 67 6F 74 6F 78 ol;.. gotox
01C5B0: 79 28 31 2C 32 35 29 3B 0D 0A 20 20 20 20 20 20 y(1,25);..
01C5C0: 43 6C 65 61 72 54 6F 45 6F 6C 3B 0D 0A 20 20 20 ClearToEol;..
01C5D0: 20 20 20 67 6F 74 6F 78 79 28 31 2C 32 33 29 3B gotoxy(1,23);
01C5E0: 0D 0A 20 20 20 20 20 20 43 6C 65 61 72 54 6F 45 .. ClearToE
01C5F0: 6F 6C 3B 0D 0A 20 20 20 20 20 20 67 6F 74 6F 78 ol;.. gotox
01C600: 79 28 31 2C 32 33 29 3B 20 20 20 20 20 20 20 20 y(1,23);
01C610: 20 20 20 20 20 20 20 20 20 20 20 20 7B 70 6F 69 {poi
01C620: 6E 74 20 61 20 63 68 61 6E 67 65 72 7D 0D 0A 20 nt a changer}..
01C630: 20 20 20 20 20 77 72 69 74 65 28 27 45 6E 74 72 write('Entr
01C640: 65 72 20 6C 65 20 6E 6F 6D 62 72 65 20 64 65 20 er le nombre de
01C650: 70 6F 69 6E 74 73 20 61 20 63 68 61 6E 67 65 72 points a changer
01C660: 20 3A 20 20 27 29 3B 0D 0A 20 20 20 20 20 20 67 : ');.. g
01C670: 6F 74 6F 78 79 28 34 33 2C 32 33 29 3B 0D 0A 20 otoxy(43,23);..
01C680: 20 20 20 20 20 72 65 61 64 28 54 65 6D 70 29 3B read(Temp);
01C690: 0D 0A 20 20 20 20 20 20 76 61 6C 28 54 65 6D 70 .. val(Temp
01C6A0: 2C 69 2C 72 65 73 75 6C 74 29 3B 0D 0A 20 20 20 ,i,result);..
01C6B0: 20 75 6E 74 69 6C 20 69 20 69 6E 20 5B 30 2E 2E until i in [0..
01C6C0: 4D 61 78 43 6F 6E 74 72 6F 6C 50 6F 69 6E 74 73 MaxControlPoints
01C6D0: 5D 3B 0D 0A 0D 0A 20 20 20 20 69 66 20 69 3E 30 ];.... if i>0
01C6E0: 20 74 68 65 6E 0D 0A 20 20 20 20 20 20 62 65 67 then.. beg
01C6F0: 69 6E 0D 0A 20 20 20 20 20 20 20 20 72 65 70 65 in.. repe
01C700: 05 E5 26 00 FD 6E 04 54 FD 5E 03 CD 1D BC FD 5E ..&..n.T.^.....^
01C710: 08 FD 56 09 CD 88 2F 01 08 00 DD 09 E1 18 B9 FD ..V.../.........
01C720: 7E 00 FE FF C8 FD 5E 01 FD 56 02 FD 4E 03 FD 46 ~.....^..V..N..F
01C730: 04 FD 6E 05 FD 66 06 FE 0A 28 0A FE 0B 20 0C 79 ..n..f...(... .y
01C740: 01 01 01 18 06 21 FD 2F 01 01 01 F5 E5 C5 26 00 .....!./......&.
01C750: 6A 44 4A 29 29 09 29 29 29 4B 09 01 60 0C 09 E5 jDJ)).)))K..`...
01C760: DD E1 3E 14 92 CB 27 CB 27 CB 27 3D 26 00 6F 54 ..>...'.'.'=&.oT
01C770: CB 23 CB 23 CD 1D BC C1 D1 F1 C5 DD E5 E5 41 DD .#.#..........A.
01C780: 77 00 CD 70 2F DD 23 23 23 10 F4 E1 0E 50 09 DD w..p/.###....P..
01C790: E1 CB 29 DD 09 C1 10 E2 01 07 00 FD 09 C3 EF 2E ..).............
01C7A0: C5 D5 E5 06 08 C5 01 02 00 EB ED B0 EB 01 FE 07 ................
01C7B0: 09 C1 10 F1 E1 D1 C1 C9 C5 D5 E5 06 10 C5 01 04 ................
01C7C0: 00 EB ED B0 EB 01 FC 07 09 30 04 01 50 C0 09 C1 .........0..P...
01C7D0: 10 EB E1 D1 C1 C9 00 00 00 0D 0D 06 06 14 14 12 ................
01C7E0: 12 08 08 18 18 1A 1A 14 14 1A 1A 12 00 00 12 09 ................
01C7F0: 09 14 02 02 14 0F 0F 1F 06 13 41 72 65 20 79 6F ..........Are yo
01C800: 75 20 75 73 69 6E 67 20 61 20 47 72 65 65 6E 20 u using a Green
01C810: 53 63 72 65 65 6E 20 3F 1F 0B 15 50 72 65 73 73 Screen ?...Press
01C820: 20 59 20 6F 72 20 4E 20 3A 2D 20 8F FF 51 2A 3E Y or N :- ..Q*>
01C830: 71 B2 1D 2E 79 A6 3D 3A 59 B6 35 15 A2 0A 28 35 q...y.=:Y.5...(5
01C840: 28 34 28 33 3C 32 3C 31 3C 30 28 09 3C 2F 28 2E (4(3<2<1<0(.</(.
01C850: 28 2D 28 2C 28 2B 28 08 28 2A 28 29 28 28 28 07 (-(,(+(.(*()(((.
01C860: 28 27 28 26 28 25 28 24 28 23 3C 06 28 22 50 21 ('(&(%($(#<.("P!
01C870: 28 20 28 05 28 1F 28 1E 28 1D 28 1C 28 1B 28 04 ( (.(.(.(.(.(.(.
01C880: 28 1A 3C 19 3C 18 28 17 28 16 3C 03 3C 15 28 14 (.<.<.(.(.<.<.(.
01C890: 28 13 28 02 28 12 14 11 28 10 14 0F 28 0E 28 0D (.(.(...(...(.(.
01C8A0: 28 0C 28 0B 28 01 28 94 2F 90 27 94 87 90 7F 90 (.(.(.(./.'.....
01C8B0: 4F 8C 47 00 77 04 6F 4C 47 48 3F 04 6F 08 67 04 O.G.w.oLGH?.o.g.
01C8C0: 67 08 5F 04 27 08 1F 34 5F 38 57 04 1F 08 17 00 g._.'..4_8W.....
01C8D0: 00 1A 1A 06 06 14 14 12 12 08 08 18 18 1A 1A 12 ................
01C8E0: 12 03 03 06 06 02 02 00 00 1F 03 05 0F 08 41 6D ..............Am
01C8F0: 73 6F 66 74 20 20 50 72 65 73 65 6E 74 73 1F 04 soft Presents..
01C900: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
01C910: 18 00 01 00 02 09 50 E5 18 00 41 02 00 00 00 02 ......P...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: 61 74 0D 0A 20 20 20 20 20 20 20 20 20 20 67 6F at.. go
01CA10: 74 6F 78 79 28 31 2C 32 34 29 3B 20 20 20 20 20 toxy(1,24);
01CA20: 20 20 20 20 20 20 20 20 20 20 20 7B 6E 6F 75 76 {nouv
01CA30: 65 6C 6C 65 73 20 76 61 6C 65 75 72 73 20 70 6F elles valeurs po
01CA40: 75 72 20 78 20 65 74 20 20 79 7D 0D 0A 20 20 20 ur x et y}..
01CA50: 20 20 20 20 20 20 20 77 72 69 74 65 28 27 4F 6C write('Ol
01CA60: 64 20 70 6F 73 69 74 69 6F 6E 20 3A 20 5B 27 2C d position : [',
01CA70: 61 5B 69 2C 31 5D 3A 34 3A 32 2C 27 2C 27 2C 61 a[i,1]:4:2,',',a
01CA80: 5B 69 2C 32 5D 3A 34 3A 32 2C 27 5D 27 29 3B 0D [i,2]:4:2,']');.
01CA90: 0A 20 20 20 20 20 20 20 20 20 20 67 6F 74 6F 78 . gotox
01CAA0: 79 28 34 30 2C 32 34 29 3B 77 72 69 74 65 28 27 y(40,24);write('
01CAB0: 20 20 20 4E 6F 75 76 65 6C 6C 65 20 70 6F 73 69 Nouvelle posi
01CAC0: 74 69 6F 6E 20 20 78 3A 20 20 27 29 3B 0D 0A 20 tion x: ');..
01CAD0: 20 20 20 20 20 20 20 20 20 67 6F 74 6F 78 79 28 gotoxy(
01CAE0: 36 30 2C 32 34 29 3B 0D 0A 20 20 20 20 20 20 20 60,24);..
01CAF0: 20 20 20 72 65 61 64 28 44 75 6D 6D 79 53 29 3B read(DummyS);
01CB00: 0D 0A 20 20 20 20 20 20 20 20 20 20 77 68 69 6C .. whil
01CB10: 65 20 44 75 6D 6D 79 53 5B 31 5D 3D 27 20 27 20 e DummyS[1]=' '
01CB20: 64 6F 20 64 65 6C 65 74 65 28 44 75 6D 6D 79 53 do delete(DummyS
01CB30: 2C 31 2C 31 29 3B 0D 0A 20 20 20 20 20 20 20 20 ,1,1);..
01CB40: 20 20 54 65 6D 70 3A 3D 44 75 6D 6D 79 53 3B 0D Temp:=DummyS;.
01CB50: 0A 20 20 20 20 20 20 20 20 20 20 67 6F 74 6F 78 . gotox
01CB60: 79 28 34 30 2C 32 35 29 3B 77 72 69 74 65 28 27 y(40,25);write('
01CB70: 20 20 20 4E 6F 75 76 65 6C 6C 65 20 70 6F 73 69 Nouvelle posi
01CB80: 74 69 6F 6E 20 20 79 3A 20 20 27 29 3B 0D 0A 20 tion y: ');..
01CB90: 20 20 20 20 20 20 20 20 20 67 6F 74 6F 78 79 28 gotoxy(
01CBA0: 36 30 2C 32 35 29 3B 0D 0A 20 20 20 20 20 20 20 60,25);..
01CBB0: 20 20 20 72 65 61 64 28 44 75 6D 6D 79 53 29 3B read(DummyS);
01CBC0: 0D 0A 20 20 20 20 20 20 20 20 20 20 77 68 69 6C .. whil
01CBD0: 65 20 44 75 6D 6D 79 53 5B 31 5D 3D 27 20 27 20 e DummyS[1]=' '
01CBE0: 64 6F 20 64 65 6C 65 74 65 28 44 75 6D 6D 79 53 do delete(DummyS
01CBF0: 2C 31 2C 31 29 3B 0D 0A 20 20 20 20 20 20 20 20 ,1,1);..
01CC00: 20 65 6E 64 0D 0A 20 20 65 6C 73 65 0D 0A 20 20 end.. else..
01CC10: 20 62 65 67 69 6E 0D 0A 20 20 20 20 44 72 61 77 begin.. Draw
01CC20: 4C 69 6E 65 28 58 32 2B 35 2C 59 32 2D 32 2C 58 Line(X2+5,Y2-2,X
01CC30: 32 2C 59 32 29 3B 0D 0A 20 20 20 20 44 72 61 77 2,Y2);.. Draw
01CC40: 4C 69 6E 65 28 58 32 2B 35 2C 59 32 2B 32 2C 58 Line(X2+5,Y2+2,X
01CC50: 32 2C 59 32 29 3B 0D 0A 20 20 20 65 6E 64 3B 0D 2,Y2);.. end;.
01CC60: 0A 65 6E 64 3B 0D 0A 0D 0A 0D 0A 70 72 6F 63 65 .end;......proce
01CC70: 64 75 72 65 20 44 72 61 77 41 72 72 6F 77 56 65 dure DrawArrowVe
01CC80: 72 28 58 31 2C 59 31 2C 58 32 2C 59 32 3A 69 6E r(X1,Y1,X2,Y2:in
01CC90: 74 65 67 65 72 29 3B 20 7B 74 72 61 63 65 20 75 teger); {trace u
01CCA0: 6E 65 20 66 6C 65 63 68 65 20 76 65 72 74 69 63 ne fleche vertic
01CCB0: 61 6C 65 7D 0D 0A 0D 0A 62 65 67 69 6E 0D 0A 20 ale}....begin..
01CCC0: 20 44 72 61 77 4C 69 6E 65 28 58 31 2C 59 31 2C DrawLine(X1,Y1,
01CCD0: 58 32 2C 59 32 29 3B 0D 0A 20 20 69 66 20 59 32 X2,Y2);.. if Y2
01CCE0: 3E 59 31 20 74 68 65 6E 0D 0A 20 20 20 62 65 67 >Y1 then.. beg
01CCF0: 69 6E 0D 0A 20 20 20 20 44 72 61 77 4C 69 6E 65 in.. DrawLine
01CD00: 28 58 32 2D 32 2C 59 32 2D 33 2C 58 32 2C 59 32 (X2-2,Y2-3,X2,Y2
01CD10: 29 3B 0D 0A 20 20 20 20 44 72 61 77 4C 69 6E 65 );.. DrawLine
01CD20: 28 58 32 2B 32 2C 59 32 2D 33 2C 58 32 2C 59 32 (X2+2,Y2-3,X2,Y2
01CD30: 29 3B 0D 0A 20 20 20 65 6E 64 0D 0A 20 20 65 6C );.. end.. el
01CD40: 73 65 0D 0A 20 20 20 62 65 67 69 6E 0D 0A 20 20 se.. begin..
01CD50: 20 20 44 72 61 77 4C 69 6E 65 28 58 32 2D 32 2C DrawLine(X2-2,
01CD60: 59 32 2B 33 2C 58 32 2C 59 32 29 3B 0D 0A 20 20 Y2+3,X2,Y2);..
01CD70: 20 20 44 72 61 77 4C 69 6E 65 28 58 32 2B 32 2C DrawLine(X2+2,
01CD80: 59 32 2B 33 2C 58 32 2C 59 32 29 3B 0D 0A 20 20 Y2+3,X2,Y2);..
01CD90: 20 65 6E 64 3B 0D 0A 65 6E 64 3B 0D 0A 0D 0A 0D end;..end;.....
01CDA0: 0A 70 72 6F 63 65 64 75 72 65 20 42 6C 69 6E 6B .procedure Blink
01CDB0: 28 43 6F 75 6E 74 2C 74 69 6D 65 3A 69 6E 74 65 (Count,time:inte
01CDC0: 67 65 72 29 3B 20 20 20 20 20 20 20 20 20 7B 62 ger); {b
01CDD0: 6C 61 6E 63 68 69 74 20 6C 61 20 66 65 6E 65 74 lanchit la fenet
01CDE0: 72 65 20 63 6F 75 72 61 6E 74 65 7D 0D 0A 76 61 re courante}..va
01CDF0: 72 20 69 3A 69 6E 74 65 67 65 72 3B 0D 0A 62 65 r i:integer;..be
01CE00: 20 20 54 65 6D 70 32 3A 3D 44 75 6D 6D 79 53 3B Temp2:=DummyS;
01CE10: 76 61 6C 28 54 65 6D 70 2C 64 75 6D 6D 79 78 2C val(Temp,dummyx,
01CE20: 72 65 73 75 6C 74 29 3B 76 61 6C 28 54 65 6D 70 result);val(Temp
01CE30: 32 2C 64 75 6D 6D 79 79 2C 72 65 73 75 6C 74 29 2,dummyy,result)
01CE40: 3B 0D 0A 20 20 20 20 20 20 20 20 75 6E 74 69 6C ;.. until
01CE50: 20 28 28 64 75 6D 6D 79 78 3E 3D 58 31 57 6C 64 ((dummyx>=X1Wld
01CE60: 47 6C 62 29 20 61 6E 64 20 28 64 75 6D 6D 79 78 Glb) and (dummyx
01CE70: 3C 3D 58 32 57 6C 64 47 6C 62 29 29 20 61 6E 64 <=X2WldGlb)) and
01CE80: 20 28 28 64 75 6D 6D 79 79 3E 3D 59 31 57 6C 64 ((dummyy>=Y1Wld
01CE90: 47 6C 62 29 20 61 6E 64 20 28 64 75 6D 6D 79 79 Glb) and (dummyy
01CEA0: 3C 3D 59 32 57 6C 64 47 6C 62 29 29 3B 0D 0A 0D <=Y2WldGlb));...
01CEB0: 0A 20 20 20 20 20 20 20 20 53 65 74 4C 69 6E 65 . SetLine
01CEC0: 73 74 79 6C 65 28 31 29 3B 20 20 20 20 20 20 20 style(1);
01CED0: 20 20 20 20 20 20 20 20 7B 6E 65 20 74 72 61 63 {ne trac
01CEE0: 65 20 70 61 73 20 6C 27 27 61 6E 63 69 65 6E 6E e pas l''ancienn
01CEF0: 65 20 63 6F 75 72 62 65 7D 0D 0A 20 20 20 20 20 e courbe}..
01CF00: 20 20 20 53 65 74 43 6F 6C 6F 72 42 6C 61 63 6B SetColorBlack
01CF10: 3B 0D 0A 20 20 20 20 20 20 20 20 44 72 61 77 41 ;.. DrawA
01CF20: 78 69 73 28 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C xis(0,0,0,0,0,0,
01CF30: 30 2C 30 2C 66 61 6C 73 65 29 3B 0D 0A 20 20 20 0,0,false);..
01CF40: 20 20 20 20 20 44 72 61 77 50 6F 6C 79 67 6F 6E DrawPolygon
01CF50: 28 61 2C 31 2C 4D 61 78 43 6F 6E 74 72 6F 6C 50 (a,1,MaxControlP
01CF60: 6F 69 6E 74 73 2C 34 2C 32 2C 30 29 3B 0D 0A 20 oints,4,2,0);..
01CF70: 20 20 20 20 20 20 20 53 65 74 4C 69 6E 65 73 74 SetLinest
01CF80: 79 6C 65 28 30 29 3B 0D 0A 20 20 20 20 20 20 20 yle(0);..
01CF90: 20 44 72 61 77 41 78 69 73 28 30 2C 30 2C 30 2C DrawAxis(0,0,0,
01CFA0: 30 2C 30 2C 30 2C 30 2C 30 2C 66 61 6C 73 65 29 0,0,0,0,0,false)
01CFB0: 3B 0D 0A 20 20 20 20 20 20 20 20 44 72 61 77 50 ;.. DrawP
01CFC0: 6F 6C 79 67 6F 6E 28 62 2C 31 2C 4D 61 78 49 6E olygon(b,1,MaxIn
01CFD0: 74 50 6F 69 6E 74 73 2C 30 2C 30 2C 30 29 3B 0D tPoints,0,0,0);.
01CFE0: 0A 20 20 20 20 20 20 20 20 61 5B 69 2C 31 5D 3A . a[i,1]:
01CFF0: 3D 64 75 6D 6D 79 78 3B 61 5B 69 2C 32 5D 3A 3D =dummyx;a[i,2]:=
01D000: 67 69 6E 20 66 6F 72 20 69 3A 3D 31 20 74 6F 20 gin for i:=1 to
01D010: 43 6F 75 6E 74 20 64 6F 0D 0A 20 20 62 65 67 69 Count do.. begi
01D020: 6E 0D 0A 20 20 20 20 44 65 6C 61 79 28 74 69 6D n.. Delay(tim
01D030: 65 29 3B 0D 0A 20 20 20 20 49 6E 76 65 72 74 57 e);.. InvertW
01D040: 69 6E 64 6F 77 3B 0D 0A 20 20 65 6E 64 3B 0D 0A indow;.. end;..
01D050: 65 6E 64 3B 0D 0A 0D 0A 62 65 67 69 6E 20 20 20 end;....begin
01D060: 7B 46 6C 6F 77 43 68 61 72 74 44 65 6D 6F 7D 0D {FlowChartDemo}.
01D070: 0A 20 20 44 65 66 69 6E 65 57 69 6E 64 6F 77 28 . DefineWindow(
01D080: 31 2C 30 2C 30 2C 37 39 2C 31 38 35 29 3B 20 20 1,0,0,79,185);
01D090: 20 20 20 20 20 20 20 20 20 20 20 20 20 7B 64 65 {de
01D0A0: 66 69 6E 69 74 20 6C 61 20 66 65 6E 65 74 72 65 finit la fenetre
01D0B0: 20 64 65 20 6C 27 27 4F 52 47 41 4E 49 47 52 41 de l''ORGANIGRA
01D0C0: 4D 4D 45 7D 0D 0A 20 20 44 65 66 69 6E 65 57 69 MME}.. DefineWi
01D0D0: 6E 64 6F 77 28 32 2C 31 32 2C 32 30 2C 32 35 2C ndow(2,12,20,25,
01D0E0: 34 30 29 3B 20 20 20 20 20 20 20 20 20 20 20 20 40);
01D0F0: 20 20 7B 64 65 66 69 6E 69 74 20 6C 61 20 66 65 {definit la fe
01D100: 6E 65 74 72 65 20 64 65 20 44 45 42 55 54 7D 0D netre de DEBUT}.
01D110: 0A 20 20 44 65 66 69 6E 65 57 69 6E 64 6F 77 28 . DefineWindow(
01D120: 33 2C 31 35 2C 35 35 2C 32 32 2C 37 35 29 3B 20 3,15,55,22,75);
01D130: 20 20 20 20 20 20 20 20 20 20 20 20 20 7B 64 65 {de
01D140: 66 69 6E 69 74 20 6C 61 20 66 65 6E 65 74 72 65 finit la fenetre
01D150: 20 27 49 3D 31 27 7D 0D 0A 20 20 44 65 66 69 6E 'I=1'}.. Defin
01D160: 65 57 69 6E 64 6F 77 28 34 2C 31 31 2C 31 31 30 eWindow(4,11,110
01D170: 2C 32 36 2C 31 33 30 29 3B 20 20 20 20 20 20 20 ,26,130);
01D180: 20 20 20 20 20 7B 64 65 66 69 6E 69 74 20 6C 61 {definit la
01D190: 20 66 65 6E 65 74 72 65 20 27 49 46 20 49 3C 3D fenetre 'IF I<=
01D1A0: 35 27 7D 0D 0A 20 20 44 65 66 69 6E 65 57 69 6E 5'}.. DefineWin
01D1B0: 64 6F 77 28 35 2C 34 37 2C 39 30 2C 35 36 2C 31 dow(5,47,90,56,1
01D1C0: 31 30 29 3B 20 20 20 20 20 20 20 20 20 20 20 20 10);
01D1D0: 20 7B 64 65 66 69 6E 69 74 20 6C 61 20 66 65 6E {definit la fen
01D1E0: 65 74 72 65 20 27 49 3D 49 2B 31 27 7D 0D 0A 0D etre 'I=I+1'}...
01D1F0: 0A 20 20 43 6C 65 61 72 53 63 72 65 65 6E 3B 20 . ClearScreen;
01D200: 64 75 6D 6D 79 79 3B 0D 0A 20 20 20 20 20 20 20 dummyy;..
01D210: 20 53 65 74 43 6F 6C 6F 72 57 68 69 74 65 3B 0D SetColorWhite;.
01D220: 0A 20 20 20 20 20 20 65 6E 64 0D 0A 20 20 20 20 . end..
01D230: 65 6C 73 65 20 62 72 65 61 6B 3A 3D 74 72 75 65 else break:=true
01D240: 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ;
01D250: 20 20 20 7B 66 61 69 74 3F 7D 0D 0A 20 20 75 6E {fait?}.. un
01D260: 74 69 6C 20 62 72 65 61 6B 3B 0D 0A 65 6E 64 3B til break;..end;
01D270: 0D 0A 0D 0A 0D 0A 0D 0A 62 65 67 69 6E 0D 0A 0D ........begin...
01D280: 0A 49 6E 69 74 47 72 61 70 68 69 63 3B 20 20 20 .InitGraphic;
01D290: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01D2A0: 20 20 20 20 20 20 20 20 7B 69 6E 69 74 69 61 6C {initial
01D2B0: 69 73 65 20 6C 65 73 20 67 72 61 70 68 69 73 6D ise les graphism
01D2C0: 65 73 7D 0D 0A 0D 0A 42 65 7A 69 65 72 44 65 6D es}....BezierDem
01D2D0: 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ;
01D2E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7B 66 {f
01D2F0: 61 69 74 20 6C 61 20 64 65 6D 6F 7D 0D 0A 0D 0A ait la demo}....
01D300: 4C 65 61 76 65 47 72 61 70 68 69 63 3B 20 20 20 LeaveGraphic;
01D310: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01D320: 20 20 20 20 20 20 20 7B 71 75 69 74 74 65 20 6C {quitte l
01D330: 65 20 67 72 61 70 68 69 73 6D 65 7D 0D 0A 0D 0A e graphisme}....
01D340: 65 6E 64 2E 0D 0A 0D 0A 1A 1A 1A 1A 1A 1A 1A 1A end.............
01D350: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
01D360: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
01D370: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
01D380: 79 6C 65 28 30 29 3B 0D 0A 20 20 20 20 20 20 20 yle(0);..
01D390: 20 44 72 61 77 41 78 69 73 28 30 2C 30 2C 30 2C DrawAxis(0,0,0,
01D3A0: 30 2C 30 2C 30 2C 30 2C 30 2C 66 61 6C 73 65 29 0,0,0,0,0,false)
01D3B0: 3B 0D 0A 20 20 20 20 20 20 20 20 44 72 61 77 50 ;.. DrawP
01D3C0: 6F 6C 79 67 6F 6E 28 62 2C 31 2C 4D 61 78 49 6E olygon(b,1,MaxIn
01D3D0: 74 50 6F 69 6E 74 73 2C 30 2C 30 2C 30 29 3B 0D tPoints,0,0,0);.
01D3E0: 0A 20 20 20 20 20 20 20 20 61 5B 69 2C 31 5D 3A . a[i,1]:
01D3F0: 3D 64 75 6D 6D 79 78 3B 61 5B 69 2C 32 5D 3A 3D =dummyx;a[i,2]:=
01D400: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01D410: 20 20 20 20 20 20 20 20 20 20 20 20 20 7B 74 72 {tr
01D420: 61 63 65 20 75 6E 65 20 66 65 6E 65 74 72 65 20 ace une fenetre
01D430: 65 6E 74 6F 75 72 65 65 7D 0D 0A 20 20 53 65 74 entouree}.. Set
01D440: 43 6F 6C 6F 72 57 68 69 74 65 3B 0D 0A 20 20 44 ColorWhite;.. D
01D450: 65 66 69 6E 65 48 65 61 64 65 72 28 31 2C 27 55 efineHeader(1,'U
01D460: 4E 20 4F 52 47 41 4E 49 47 52 41 4D 4D 45 27 29 N ORGANIGRAMME')
01D470: 3B 0D 0A 20 20 53 65 74 48 65 61 64 65 72 4F 6E ;.. SetHeaderOn
01D480: 3B 0D 0A 20 20 53 65 6C 65 63 74 57 69 6E 64 6F ;.. SelectWindo
01D490: 77 28 31 29 3B 0D 0A 20 20 44 72 61 77 42 6F 72 w(1);.. DrawBor
01D4A0: 64 65 72 3B 0D 0A 20 20 53 65 74 48 65 61 64 65 der;.. SetHeade
01D4B0: 72 4F 66 66 3B 0D 0A 0D 0A 20 20 53 65 6C 65 63 rOff;.... Selec
01D4C0: 74 57 69 6E 64 6F 77 28 32 29 3B 20 20 20 20 20 tWindow(2);
01D4D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01D4E0: 20 20 20 20 20 7B 74 72 61 63 65 20 6C 61 20 66 {trace la f
01D4F0: 65 6E 65 74 72 65 20 64 65 20 44 45 42 55 54 7D enetre de DEBUT}
01D500: 0D 0A 20 20 44 72 61 77 42 6F 72 64 65 72 3B 0D .. DrawBorder;.
01D510: 0A 20 20 44 72 61 77 54 65 78 74 28 31 32 35 2C . DrawText(125,
01D520: 32 37 2C 32 2C 27 44 45 42 55 54 27 29 3B 0D 0A 27,2,'DEBUT');..
01D530: 20 20 53 65 74 57 69 6E 64 6F 77 4D 6F 64 65 4F SetWindowModeO
01D540: 66 66 3B 0D 0A 20 20 44 72 61 77 41 72 72 6F 77 ff;.. DrawArrow
01D550: 56 65 72 28 31 35 31 2C 34 30 2C 31 35 31 2C 35 Ver(151,40,151,5
01D560: 35 29 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 5);
01D570: 20 7B 74 72 61 63 65 20 6C 65 73 20 6C 69 67 6E {trace les lign
01D580: 65 73 20 61 20 72 65 6C 69 65 72 7D 0D 0A 20 20 es a relier}..
01D590: 53 65 74 57 69 6E 64 6F 77 4D 6F 64 65 4F 6E 3B SetWindowModeOn;
01D5A0: 0D 0A 0D 0A 20 20 53 65 6C 65 63 74 57 69 6E 64 .... SelectWind
01D5B0: 6F 77 28 33 29 3B 20 20 20 20 20 20 20 20 20 20 ow(3);
01D5C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01D5D0: 7B 74 72 61 63 65 20 6C 61 20 66 65 6E 65 74 72 {trace la fenetr
01D5E0: 65 20 27 49 3D 31 27 20 7D 0D 0A 20 20 44 72 61 e 'I=1' }.. Dra
01D5F0: 77 42 6F 72 64 65 72 3B 0D 0A 20 20 44 72 61 77 wBorder;.. Draw
01D600: 00 00 23 10 FE 00 08 03 07 77 80 FE 03 08 01 01 ..#......w......
01D610: 87 80 FE 03 09 01 06 97 80 FE 07 08 04 07 77 80 ..............w.
01D620: FE 0B 08 01 01 87 80 FE 0B 09 01 06 97 80 FE 0F ................
01D630: 08 03 07 77 80 FE 12 08 01 01 87 80 FE 12 09 01 ...w............
01D640: 06 97 80 FE 16 08 04 07 77 80 FE 1A 08 01 01 87 ........w.......
01D650: 80 FE 1A 09 01 06 97 80 FE 1E 08 03 07 77 80 FE .............w..
01D660: 21 08 01 01 87 80 FE 21 09 01 06 97 80 FE 25 08 !......!......%.
01D670: 02 07 77 80 FE 27 08 01 01 87 80 FE 27 09 01 06 ..w..'......'...
01D680: 97 80 FE 00 0F 28 05 77 80 FF 00 00 02 02 06 06 .....(.w........
01D690: 14 14 12 12 08 08 18 18 1A 1A 14 14 03 03 12 00 ................
01D6A0: 00 12 04 04 14 02 02 14 0F 0F 00 22 00 20 4A 65 ...........". Je
01D6B0: 6E 6E 79 20 47 6F 65 73 20 53 70 69 6E 6E 69 6E nny Goes Spinnin
01D6C0: 67 20 01 00 00 09 01 02 23 10 00 27 09 01 02 23 g ......#..'...#
01D6D0: 10 08 07 04 1A 0C 57 82 F8 03 01 01 12 67 82 F8 ......W......g..
01D6E0: 04 01 01 12 77 82 F8 23 01 01 12 67 82 F8 24 01 ....w..#...g..$.
01D6F0: 01 12 77 82 0A 0E 01 00 00 23 10 0A 0B 0A 08 00 ..w......#......
01D700: 57 82 0A 13 08 08 00 57 82 0A 19 12 00 00 23 10 W......W......#.
01D710: 0A 1C 0A 08 00 57 82 FD 0C 09 01 01 E7 78 FD 0C .....W.......x..
01D720: 0B 01 01 E7 78 FD 12 07 01 01 E7 78 FD 14 07 01 ....x......x....
01D730: 01 E7 78 FD 18 0B 01 01 E7 78 FD 1C 09 01 01 E7 ..x......x......
01D740: 78 FF 00 00 0F 0F 06 06 14 14 14 14 08 08 18 18 x...............
01D750: 1A 1A 05 05 03 03 14 00 00 14 13 13 14 02 02 14 ................
01D760: 0A 0A 00 23 00 00 20 20 4D 69 73 73 69 6C 65 20 ...#.. Missile
01D770: 53 69 6C 6F 20 23 34 37 20 20 01 00 27 01 01 02 Silo #47 ..'...
01D780: 23 10 0A 07 02 00 00 23 10 FD 1A 03 02 01 E7 78 #......#.......x
01D790: 0A 1A 04 00 00 23 10 0A 1B 04 00 00 23 10 00 1A .....#......#...
01D7A0: 05 02 03 97 84 F9 1F 05 02 0E 6B 84 09 23 05 02 ..........k..#..
01D7B0: 01 57 7F 09 05 07 12 01 57 7F 00 19 07 01 01 7B .W......W......{
01D7C0: 84 00 1C 07 01 01 8B 84 0A 21 07 00 00 23 10 09 .........!...#..
01D7D0: 25 07 02 01 57 7F 09 19 08 06 01 6B 84 FD 21 08 %...W......k..!.
01D7E0: 01 01 D7 78 09 01 09 02 01 57 7F 0A 13 09 00 00 ...x.....W......
01D7F0: 23 10 00 19 09 04 09 97 84 09 23 09 02 01 57 7F #.........#...W.
01D800: 54 65 78 74 28 31 33 36 2C 36 33 2C 32 2C 27 49 Text(136,63,2,'I
01D810: 3D 31 27 29 3B 0D 0A 20 20 53 65 74 57 69 6E 64 =1');.. SetWind
01D820: 6F 77 4D 6F 64 65 4F 66 66 3B 0D 0A 20 20 44 72 owModeOff;.. Dr
01D830: 61 77 41 72 72 6F 77 56 65 72 28 31 35 31 2C 37 awArrowVer(151,7
01D840: 35 2C 31 35 31 2C 31 31 30 29 3B 20 20 20 20 20 5,151,110);
01D850: 20 20 20 20 20 20 20 20 7B 74 72 61 63 65 20 6C {trace l
01D860: 61 20 6C 69 67 6E 65 20 61 20 72 65 6C 69 65 72 a ligne a relier
01D870: 7D 0D 0A 20 20 53 65 74 57 69 6E 64 6F 77 4D 6F }.. SetWindowMo
01D880: 64 65 4F 6E 3B 0D 0A 0D 0A 20 20 53 65 6C 65 63 deOn;.... Selec
01D890: 74 57 69 6E 64 6F 77 28 34 29 3B 20 20 20 20 20 tWindow(4);
01D8A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01D8B0: 20 20 20 20 20 7B 74 72 61 63 65 20 6C 61 20 66 {trace la f
01D8C0: 65 6E 65 74 72 65 20 27 49 46 20 49 3E 3D 35 27 enetre 'IF I>=5'
01D8D0: 7D 0D 0A 20 20 44 72 61 77 42 6F 72 64 65 72 3B }.. DrawBorder;
01D8E0: 0D 0A 20 20 44 72 61 77 54 65 78 74 28 31 30 38 .. DrawText(108
01D8F0: 2C 31 31 38 2C 32 2C 27 49 46 20 49 3C 3D 35 27 ,118,2,'IF I<=5'
01D900: 29 3B 0D 0A 20 20 44 72 61 77 53 74 72 61 69 67 );.. DrawStraig
01D910: 68 74 28 32 31 35 2C 34 31 37 2C 31 32 30 29 3B ht(215,417,120);
01D920: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01D930: 7B 74 72 61 63 65 20 6C 61 20 6C 69 67 6E 65 20 {trace la ligne
01D940: 61 20 72 65 6C 69 65 72 7D 0D 0A 20 20 53 65 74 a relier}.. Set
01D950: 57 69 6E 64 6F 77 4D 6F 64 65 4F 66 66 3B 0D 0A WindowModeOff;..
01D960: 20 20 44 72 61 77 41 72 72 6F 77 56 65 72 28 34 DrawArrowVer(4
01D970: 31 37 2C 31 32 30 2C 34 31 37 2C 31 31 30 29 3B 17,120,417,110);
01D980: 0D 0A 20 20 44 72 61 77 41 72 72 6F 77 56 65 72 .. DrawArrowVer
01D990: 28 31 35 31 2C 31 33 30 2C 31 35 31 2C 31 35 35 (151,130,151,155
01D9A0: 29 3B 0D 0A 20 20 53 65 74 57 69 6E 64 6F 77 4D );.. SetWindowM
01D9B0: 6F 64 65 4F 6E 3B 0D 0A 20 20 53 65 6C 65 63 74 odeOn;.. Select
01D9C0: 57 69 6E 64 6F 77 28 31 29 3B 0D 0A 20 20 44 72 Window(1);.. Dr
01D9D0: 61 77 54 65 78 74 28 33 30 30 2C 31 31 30 2C 32 awText(300,110,2
01D9E0: 2C 27 4F 55 49 27 29 3B 0D 0A 20 20 44 72 61 77 ,'OUI');.. Draw
01D9F0: 54 65 78 74 28 31 36 30 2C 31 33 37 2C 32 2C 27 Text(160,137,2,'
01DA00: 70 72 6F 67 72 61 6D 20 46 6C 6F 77 44 65 6D 6F program FlowDemo
01DA10: 3B 0D 0A 0D 0A 7B 24 49 20 74 79 70 65 64 65 66 ;....{$I typedef
01DA20: 2E 73 79 73 7D 20 20 20 20 20 20 20 20 20 20 20 .sys}
01DA30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01DA40: 20 20 7B 43 65 73 20 66 69 63 68 69 65 72 73 20 {Ces fichiers
01DA50: 64 6F 69 76 65 6E 74 20 65 74 72 65 7D 0D 0A 7B doivent etre}..{
01DA60: 24 49 20 67 72 61 70 68 69 78 2E 73 79 73 7D 20 $I graphix.sys}
01DA70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01DA80: 20 20 20 20 20 20 20 20 20 20 20 20 7B 69 6E 63 {inc
01DA90: 6C 75 73 20 64 61 6E 73 20 63 65 74 20 6F 72 64 lus dans cet ord
01DAA0: 72 65 7D 0D 0A 7B 24 49 20 6B 65 72 6E 65 6C 2E re}..{$I kernel.
01DAB0: 73 79 73 7D 0D 0A 7B 24 49 20 6B 65 72 6E 65 6C sys}..{$I kernel
01DAC0: 31 2E 73 79 73 7D 0D 0A 7B 24 49 20 77 69 6E 64 1.sys}..{$I wind
01DAD0: 6F 77 73 2E 73 79 73 7D 0D 0A 0D 0A 70 72 6F 63 ows.sys}....proc
01DAE0: 65 64 75 72 65 20 46 6C 6F 77 43 68 61 72 74 44 edure FlowChartD
01DAF0: 65 6D 6F 3B 0D 0A 0D 0A 76 61 72 20 58 31 2C 59 emo;....var X1,Y
01DB00: 31 2C 58 32 2C 59 32 2C 69 2C 43 6F 75 6E 74 3A 1,X2,Y2,i,Count:
01DB10: 69 6E 74 65 67 65 72 3B 0D 0A 20 20 20 20 54 65 integer;.. Te
01DB20: 6D 70 3A 77 72 6B 73 74 72 69 6E 67 3B 0D 0A 0D mp:wrkstring;...
01DB30: 0A 0D 0A 70 72 6F 63 65 64 75 72 65 20 44 72 61 ...procedure Dra
01DB40: 77 41 72 72 6F 77 48 6F 72 28 58 31 2C 59 31 2C wArrowHor(X1,Y1,
01DB50: 58 32 2C 59 32 3A 69 6E 74 65 67 65 72 29 3B 20 X2,Y2:integer);
01DB60: 7B 74 72 61 63 65 20 75 6E 65 20 66 6C 65 63 68 {trace une flech
01DB70: 65 20 68 6F 72 69 7A 6F 6E 74 61 6C 65 7D 0D 0A e horizontale}..
01DB80: 0D 0A 62 65 67 69 6E 0D 0A 20 20 44 72 61 77 4C ..begin.. DrawL
01DB90: 69 6E 65 28 58 31 2C 59 31 2C 58 32 2C 59 32 29 ine(X1,Y1,X2,Y2)
01DBA0: 3B 0D 0A 20 20 69 66 20 58 32 3E 58 31 20 74 68 ;.. if X2>X1 th
01DBB0: 65 6E 0D 0A 20 20 20 62 65 67 69 6E 0D 0A 20 20 en.. begin..
01DBC0: 20 20 44 72 61 77 4C 69 6E 65 28 58 32 2D 34 2C DrawLine(X2-4,
01DBD0: 59 32 2D 32 2C 58 32 2C 59 32 29 3B 0D 0A 20 20 Y2-2,X2,Y2);..
01DBE0: 20 20 44 72 61 77 4C 69 6E 65 28 58 32 2D 34 2C DrawLine(X2-4,
01DBF0: 59 32 2B 32 2C 58 32 2C 59 32 29 3B 0D 0A 20 20 Y2+2,X2,Y2);..
01DC00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
01DC10: 19 00 01 00 02 09 50 E5 19 00 41 02 00 00 00 02 ......P...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: 4E 4F 4E 27 29 3B 0D 0A 0D 0A 20 20 53 65 6C 65 NON');.... Sele
01DD10: 63 74 57 69 6E 64 6F 77 28 35 29 3B 20 20 20 20 ctWindow(5);
01DD20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01DD30: 20 20 20 20 20 20 7B 74 72 61 63 65 20 6C 61 20 {trace la
01DD40: 66 65 6E 65 74 72 65 20 27 49 3D 49 2B 31 27 7D fenetre 'I=I+1'}
01DD50: 0D 0A 20 20 44 72 61 77 42 6F 72 64 65 72 3B 0D .. DrawBorder;.
01DD60: 0A 20 20 44 72 61 77 54 65 78 74 28 33 39 30 2C . DrawText(390,
01DD70: 39 38 2C 32 2C 27 49 3D 49 2B 31 27 29 3B 0D 0A 98,2,'I=I+1');..
01DD80: 20 20 53 65 74 57 69 6E 64 6F 77 4D 6F 64 65 4F SetWindowModeO
01DD90: 66 66 3B 0D 0A 20 20 44 72 61 77 4C 69 6E 65 28 ff;.. DrawLine(
01DDA0: 34 31 37 2C 39 30 2C 34 31 37 2C 38 30 29 3B 20 417,90,417,80);
01DDB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01DDC0: 20 7B 74 72 61 63 65 20 6C 65 73 20 6C 69 67 6E {trace les lign
01DDD0: 65 73 20 61 20 72 65 6C 69 65 72 7D 0D 0A 20 20 es a relier}..
01DDE0: 44 72 61 77 41 72 72 6F 77 48 6F 72 28 34 31 37 DrawArrowHor(417
01DDF0: 2C 38 30 2C 31 35 31 2C 38 30 29 3B 0D 0A 0D 0A ,80,151,80);....
01DE00: 20 20 53 65 74 41 73 70 65 63 74 28 31 2E 30 29 SetAspect(1.0)
01DE10: 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ;
01DE20: 20 20 20 20 20 20 20 20 20 20 20 20 7B 74 72 61 {tra
01DE30: 63 65 20 46 49 4E 20 64 75 20 63 65 72 63 6C 65 ce FIN du cercle
01DE40: 7D 0D 0A 20 20 44 72 61 77 43 69 72 63 6C 65 28 }.. DrawCircle(
01DE50: 31 35 31 2C 31 36 35 2C 32 35 29 3B 0D 0A 20 20 151,165,25);..
01DE60: 53 65 6C 65 63 74 57 69 6E 64 6F 77 28 31 29 3B SelectWindow(1);
01DE70: 0D 0A 20 20 44 72 61 77 54 65 78 74 28 31 33 37 .. DrawText(137
01DE80: 2C 31 36 33 2C 32 2C 27 46 49 4E 27 29 3B 0D 0A ,163,2,'FIN');..
01DE90: 20 20 53 65 74 57 69 6E 64 6F 77 4D 6F 64 65 4F SetWindowModeO
01DEA0: 6E 3B 0D 0A 20 20 53 65 74 48 65 61 64 65 72 4F n;.. SetHeaderO
01DEB0: 6E 3B 0D 0A 0D 0A 20 20 43 6F 70 79 53 63 72 65 n;.... CopyScre
01DEC0: 65 6E 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 en;
01DED0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01DEE0: 20 20 7B 66 61 69 74 20 75 6E 65 20 69 6D 61 67 {fait une imag
01DEF0: 65 20 64 65 20 6C 27 27 65 63 72 61 6E 7D 0D 0A e de l''ecran}..
01DF00: 70 72 6F 67 72 61 6D 20 4D 6F 76 65 50 6F 6C 79 program MovePoly
01DF10: 67 6F 6E 3B 0D 0A 0D 0A 7B 24 49 20 74 79 70 65 gon;....{$I type
01DF20: 64 65 66 2E 73 79 73 7D 20 20 20 20 20 20 20 20 def.sys}
01DF30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7B {
01DF40: 43 65 73 20 66 69 63 68 69 65 72 73 20 64 6F 69 Ces fichiers doi
01DF50: 76 65 6E 74 20 65 74 72 65 7D 0D 0A 7B 24 49 20 vent etre}..{$I
01DF60: 67 72 61 70 68 69 78 2E 73 79 73 7D 20 20 20 20 graphix.sys}
01DF70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01DF80: 20 20 20 7B 69 6E 63 6C 75 73 20 64 61 6E 73 20 {inclus dans
01DF90: 63 65 74 20 6F 72 64 72 65 7D 0D 0A 7B 24 49 20 cet ordre}..{$I
01DFA0: 6B 65 72 6E 65 6C 2E 73 79 73 7D 0D 0A 7B 24 49 kernel.sys}..{$I
01DFB0: 20 6B 65 72 6E 65 6C 31 2E 73 79 73 7D 0D 0A 7B kernel1.sys}..{
01DFC0: 24 49 20 77 69 6E 64 6F 77 73 2E 73 79 73 7D 0D $I windows.sys}.
01DFD0: 0A 7B 24 49 20 70 6F 6C 79 67 6F 6E 2E 68 67 68 .{$I polygon.hgh
01DFE0: 7D 0D 0A 7B 24 49 20 6D 6F 64 70 6F 6C 79 2E 68 }..{$I modpoly.h
01DFF0: 67 68 7D 0D 0A 0D 0A 76 61 72 20 41 72 72 6F 77 gh}....var Arrow
01E000: 41 6E 67 6C 65 3A 20 69 6E 74 65 67 65 72 3B 0D Angle: integer;.
01E010: 0A 20 20 20 43 68 3A 20 63 68 61 72 3B 0D 0A 20 . Ch: char;..
01E020: 20 20 41 72 72 6F 77 3A 20 50 6C 6F 74 41 72 72 Arrow: PlotArr
01E030: 61 79 3B 0D 0A 20 20 20 43 75 72 72 58 2C 43 75 ay;.. CurrX,Cu
01E040: 72 72 59 2C 49 6E 63 72 58 2C 49 6E 63 72 59 2C rrY,IncrX,IncrY,
01E050: 53 69 7A 65 2C 53 70 65 65 64 3A 20 72 65 61 6C Size,Speed: real
01E060: 3B 0D 0A 20 20 20 41 72 72 6F 77 49 6E 63 72 3A ;.. ArrowIncr:
01E070: 20 61 72 72 61 79 5B 30 2E 2E 37 2C 31 2E 2E 32 array[0..7,1..2
01E080: 5D 20 6F 66 20 72 65 61 6C 3B 0D 0A 0D 0A 0D 0A ] of real;......
01E090: 70 72 6F 63 65 64 75 72 65 20 4D 61 6B 65 41 72 procedure MakeAr
01E0A0: 72 6F 77 3B 0D 0A 62 65 67 69 6E 20 20 20 20 20 row;..begin
01E0B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01E0C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 7B 69 6E {in
01E0D0: 69 74 69 61 6C 69 73 61 74 69 6F 6E 20 64 27 27 itialisation d''
01E0E0: 75 6E 20 74 61 62 6C 65 61 75 20 64 65 20 66 6C un tableau de fl
01E0F0: 65 63 68 65 73 7D 0D 0A 20 20 41 72 72 6F 77 5B eches}.. Arrow[
01E100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01E110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01E120: 20 20 20 20 20 20 20 20 20 20 20 20 7B 73 75 72 {sur
01E130: 20 6C 61 20 52 41 4D 20 65 63 72 61 6E 7D 0D 0A la RAM ecran}..
01E140: 20 20 7B 43 6C 65 61 72 45 6F 6C 28 32 35 29 3B {ClearEol(25);
01E150: 7D 0D 0A 20 20 7B 67 6F 74 6F 78 79 28 32 37 2C }.. {gotoxy(27,
01E160: 32 35 29 3B 7D 0D 0A 0D 0A 20 20 44 65 66 69 6E 25);}.... Defin
01E170: 65 57 69 6E 64 6F 77 28 32 2C 31 35 2C 32 31 2C eWindow(2,15,21,
01E180: 32 32 2C 33 39 29 3B 20 20 20 20 20 20 20 20 20 22,39);
01E190: 20 20 20 20 20 7B 64 65 66 69 6E 69 74 20 6C 61 {definit la
01E1A0: 20 66 65 6E 65 74 72 65 20 61 20 65 6E 6C 65 76 fenetre a enlev
01E1B0: 65 72 7D 0D 0A 20 20 53 65 6C 65 63 74 57 69 6E er}.. SelectWin
01E1C0: 64 6F 77 28 32 29 3B 0D 0A 20 20 53 65 74 42 61 dow(2);.. SetBa
01E1D0: 63 6B 67 72 6F 75 6E 64 28 30 29 3B 0D 0A 20 20 ckground(0);..
01E1E0: 44 72 61 77 42 6F 72 64 65 72 3B 0D 0A 20 20 49 DrawBorder;.. I
01E1F0: 6E 76 65 72 74 57 69 6E 64 6F 77 3B 0D 0A 20 20 nvertWindow;..
01E200: 44 65 6C 61 79 28 31 30 30 30 29 3B 0D 0A 20 20 Delay(1000);..
01E210: 49 6E 76 65 72 74 57 69 6E 64 6F 77 3B 0D 0A 0D InvertWindow;...
01E220: 0A 20 20 54 65 6D 70 3A 3D 27 31 32 33 34 35 36 . Temp:='123456
01E230: 27 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ';
01E240: 20 20 20 20 20 20 20 20 20 20 20 20 7B 69 6E 69 {ini
01E250: 74 69 61 6C 69 73 65 20 6C 65 20 6E 75 6D 65 72 tialise le numer
01E260: 6F 20 64 75 20 74 61 62 6C 65 61 75 7D 0D 0A 20 o du tableau}..
01E270: 20 4D 6F 76 65 56 65 72 28 33 35 2C 74 72 75 65 MoveVer(35,true
01E280: 29 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 );
01E290: 20 20 20 20 20 20 20 20 20 20 7B 65 6E 6C 65 76 {enlev
01E2A0: 65 72 20 6C 61 20 66 65 6E 65 74 72 65 7D 0D 0A er la fenetre}..
01E2B0: 20 20 44 72 61 77 54 65 78 74 28 31 33 39 2C 36 DrawText(139,6
01E2C0: 33 2C 32 2C 27 49 3D 27 2B 54 65 6D 70 5B 31 5D 3,2,'I='+Temp[1]
01E2D0: 29 3B 20 20 20 20 20 20 20 20 20 7B 6C 27 69 6E ); {l'in
01E2E0: 69 74 69 61 6C 69 73 65 7D 0D 0A 20 20 42 6C 69 itialise}.. Bli
01E2F0: 6E 6B 28 33 30 2C 35 30 29 3B 0D 0A 20 20 4D 6F nk(30,50);.. Mo
01E300: 31 2C 31 5D 3A 3D 30 3B 0D 0A 20 20 41 72 72 6F 1,1]:=0;.. Arro
01E310: 77 5B 31 2C 32 5D 3A 3D 30 3B 0D 0A 20 20 41 72 w[1,2]:=0;.. Ar
01E320: 72 6F 77 5B 32 2C 31 5D 3A 3D 53 69 7A 65 3B 0D row[2,1]:=Size;.
01E330: 0A 20 20 41 72 72 6F 77 5B 32 2C 32 5D 3A 3D 2D . Arrow[2,2]:=-
01E340: 53 69 7A 65 3B 0D 0A 20 20 41 72 72 6F 77 5B 33 Size;.. Arrow[3
01E350: 2C 31 5D 3A 3D 30 3B 0D 0A 20 20 41 72 72 6F 77 ,1]:=0;.. Arrow
01E360: 5B 33 2C 32 5D 3A 3D 53 69 7A 65 3B 0D 0A 20 20 [3,2]:=Size;..
01E370: 41 72 72 6F 77 5B 34 2C 31 5D 3A 3D 2D 53 69 7A Arrow[4,1]:=-Siz
01E380: 65 3B 0D 0A 20 20 41 72 72 6F 77 5B 34 2C 32 5D e;.. Arrow[4,2]
01E390: 3A 3D 2D 53 69 7A 65 3B 0D 0A 20 20 41 72 72 6F :=-Size;.. Arro
01E3A0: 77 5B 35 2C 31 5D 3A 3D 30 3B 0D 0A 20 20 41 72 w[5,1]:=0;.. Ar
01E3B0: 72 6F 77 5B 35 2C 32 5D 3A 3D 30 3B 0D 0A 65 6E row[5,2]:=0;..en
01E3C0: 64 3B 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 65 20 d;....procedure
01E3D0: 4D 61 6B 65 4D 6F 76 65 54 61 62 6C 65 3B 0D 0A MakeMoveTable;..
01E3E0: 62 65 67 69 6E 0D 0A 20 20 41 72 72 6F 77 49 6E begin.. ArrowIn
01E3F0: 63 72 5B 30 2C 31 5D 3A 3D 30 3B 0D 0A 20 20 41 cr[0,1]:=0;.. A
01E400: 72 72 6F 77 49 6E 63 72 5B 30 2C 32 5D 3A 3D 31 rrowIncr[0,2]:=1
01E410: 3B 0D 0A 20 20 41 72 72 6F 77 49 6E 63 72 5B 31 ;.. ArrowIncr[1
01E420: 2C 31 5D 3A 3D 2D 31 3B 0D 0A 20 20 41 72 72 6F ,1]:=-1;.. Arro
01E430: 77 49 6E 63 72 5B 31 2C 32 5D 3A 3D 31 3B 0D 0A wIncr[1,2]:=1;..
01E440: 20 20 41 72 72 6F 77 49 6E 63 72 5B 32 2C 31 5D ArrowIncr[2,1]
01E450: 3A 3D 2D 31 3B 0D 0A 20 20 41 72 72 6F 77 49 6E :=-1;.. ArrowIn
01E460: 63 72 5B 32 2C 32 5D 3A 3D 30 3B 0D 0A 20 20 41 cr[2,2]:=0;.. A
01E470: 72 72 6F 77 49 6E 63 72 5B 33 2C 31 5D 3A 3D 2D rrowIncr[3,1]:=-
01E480: 31 3B 0D 0A 20 20 41 72 72 6F 77 49 6E 63 72 5B 1;.. ArrowIncr[
01E490: 33 2C 32 5D 3A 3D 2D 31 3B 0D 0A 20 20 41 72 72 3,2]:=-1;.. Arr
01E4A0: 6F 77 49 6E 63 72 5B 34 2C 31 5D 3A 3D 30 3B 0D owIncr[4,1]:=0;.
01E4B0: 0A 20 20 41 72 72 6F 77 49 6E 63 72 5B 34 2C 32 . ArrowIncr[4,2
01E4C0: 5D 3A 3D 2D 31 3B 0D 0A 20 20 41 72 72 6F 77 49 ]:=-1;.. ArrowI
01E4D0: 6E 63 72 5B 35 2C 31 5D 3A 3D 31 3B 0D 0A 20 20 ncr[5,1]:=1;..
01E4E0: 41 72 72 6F 77 49 6E 63 72 5B 35 2C 32 5D 3A 3D ArrowIncr[5,2]:=
01E4F0: 2D 31 3B 0D 0A 20 20 41 72 72 6F 77 49 6E 63 72 -1;.. ArrowIncr
01E500: 76 65 56 65 72 28 35 35 2C 74 72 75 65 29 3B 20 veVer(55,true);
01E510: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01E520: 20 20 20 20 20 20 20 7B 74 72 61 6E 73 66 65 72 {transfer
01E530: 74 7D 0D 0A 0D 0A 20 20 66 6F 72 20 43 6F 75 6E t}.... for Coun
01E540: 74 3A 3D 32 20 74 6F 20 36 20 64 6F 20 20 20 20 t:=2 to 6 do
01E550: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01E560: 20 7B 69 6E 63 72 65 6D 65 6E 74 61 74 69 6F 6E {incrementation
01E570: 7D 0D 0A 20 20 20 20 62 65 67 69 6E 0D 0A 20 20 }.. begin..
01E580: 20 20 20 20 44 65 6C 61 79 28 35 30 30 29 3B 0D Delay(500);.
01E590: 0A 20 20 20 20 20 20 4D 6F 76 65 48 6F 72 28 33 . MoveHor(3
01E5A0: 33 2C 74 72 75 65 29 3B 0D 0A 20 20 20 20 20 20 3,true);..
01E5B0: 4D 6F 76 65 56 65 72 28 2D 32 30 2C 74 72 75 65 MoveVer(-20,true
01E5C0: 29 3B 0D 0A 20 20 20 20 20 20 53 65 74 42 61 63 );.. SetBac
01E5D0: 6B 67 72 6F 75 6E 64 28 30 29 3B 0D 0A 20 20 20 kground(0);..
01E5E0: 20 20 20 44 72 61 77 42 6F 72 64 65 72 3B 0D 0A DrawBorder;..
01E5F0: 20 20 20 20 20 20 44 72 61 77 54 65 78 74 28 34 DrawText(4
01E600: 30 30 2C 39 38 2C 32 2C 27 49 3D 27 2B 54 65 6D 00,98,2,'I='+Tem
01E610: 70 5B 43 6F 75 6E 74 5D 29 3B 0D 0A 20 20 20 20 p[Count]);..
01E620: 20 20 42 6C 69 6E 6B 28 33 30 2C 35 30 29 3B 0D Blink(30,50);.
01E630: 0A 20 20 20 20 20 20 4D 6F 76 65 56 65 72 28 2D . MoveVer(-
01E640: 32 30 2C 74 72 75 65 29 3B 0D 0A 20 20 20 20 20 20,true);..
01E650: 20 4D 6F 76 65 48 6F 72 28 2D 33 33 2C 74 72 75 MoveHor(-33,tru
01E660: 65 29 3B 0D 0A 20 20 20 20 20 20 4D 6F 76 65 56 e);.. MoveV
01E670: 65 72 28 34 30 2C 74 72 75 65 29 3B 0D 0A 20 20 er(40,true);..
01E680: 20 20 65 6E 64 3B 0D 0A 0D 0A 20 20 49 6E 76 65 end;.... Inve
01E690: 72 74 57 69 6E 64 6F 77 3B 0D 0A 20 20 44 65 6C rtWindow;.. Del
01E6A0: 61 79 28 31 30 30 30 29 3B 0D 0A 20 20 4D 6F 76 ay(1000);.. Mov
01E6B0: 65 56 65 72 28 34 36 2C 74 72 75 65 29 3B 20 20 eVer(46,true);
01E6C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01E6D0: 20 20 20 20 20 20 7B 6A 75 73 71 75 27 27 61 20 {jusqu''a
01E6E0: 6C 61 20 66 69 6E 7D 0D 0A 20 20 42 6C 69 6E 6B la fin}.. Blink
01E6F0: 28 33 30 2C 35 30 29 3B 0D 0A 0D 0A 20 20 4D 6F (30,50);.... Mo
01E700: 5B 36 2C 31 5D 3A 3D 31 3B 0D 0A 20 20 41 72 72 [6,1]:=1;.. Arr
01E710: 6F 77 49 6E 63 72 5B 36 2C 32 5D 3A 3D 30 3B 0D owIncr[6,2]:=0;.
01E720: 0A 20 20 41 72 72 6F 77 49 6E 63 72 5B 37 2C 31 . ArrowIncr[7,1
01E730: 5D 3A 3D 31 3B 0D 0A 20 20 41 72 72 6F 77 49 6E ]:=1;.. ArrowIn
01E740: 63 72 5B 37 2C 32 5D 3A 3D 31 3B 0D 0A 65 6E 64 cr[7,2]:=1;..end
01E750: 3B 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 65 20 4D ;....procedure M
01E760: 6F 76 65 46 6F 72 77 61 72 64 3B 20 20 20 20 20 oveForward;
01E770: 20 20 20 20 20 20 20 20 20 20 20 7B 72 6F 75 74 {rout
01E780: 69 6E 65 20 70 6F 75 72 20 6D 6F 75 76 6F 69 72 ine pour mouvoir
01E790: 20 6C 65 73 20 70 6F 6C 79 67 6F 6E 65 73 7D 0D les polygones}.
01E7A0: 0A 62 65 67 69 6E 0D 0A 20 20 53 65 74 43 6F 6C .begin.. SetCol
01E7B0: 6F 72 42 6C 61 63 6B 3B 20 20 20 20 20 20 20 20 orBlack;
01E7C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7B 74 {t
01E7D0: 72 61 63 65 20 73 75 72 20 6C 27 61 6E 63 69 65 race sur l'ancie
01E7E0: 6E 20 70 6F 6C 79 67 6F 6E 65 20 65 74 20 6C 27 n polygone et l'
01E7F0: 27 65 63 72 61 73 65 7D 0D 0A 20 20 44 72 61 77 'ecrase}.. Draw
01E800: 50 6F 6C 79 67 6F 6E 28 41 72 72 6F 77 2C 31 2C Polygon(Arrow,1,
01E810: 2D 35 2C 30 2C 30 2C 30 29 3B 0D 0A 20 20 43 75 -5,0,0,0);.. Cu
01E820: 72 72 58 3A 3D 43 75 72 72 58 2B 49 6E 63 72 58 rrX:=CurrX+IncrX
01E830: 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ;
01E840: 20 20 7B 6E 6F 75 76 65 6C 6C 65 20 70 6F 73 69 {nouvelle posi
01E850: 74 69 6F 6E 7D 0D 0A 20 20 43 75 72 72 59 3A 3D tion}.. CurrY:=
01E860: 43 75 72 72 59 2B 49 6E 63 72 59 3B 0D 0A 20 20 CurrY+IncrY;..
01E870: 54 72 61 6E 73 6C 61 74 65 50 6F 6C 79 67 6F 6E TranslatePolygon
01E880: 28 41 72 72 6F 77 2C 35 2C 49 6E 63 72 58 2C 49 (Arrow,5,IncrX,I
01E890: 6E 63 72 59 29 3B 0D 0A 20 20 53 65 74 43 6F 6C ncrY);.. SetCol
01E8A0: 6F 72 57 68 69 74 65 3B 20 20 20 20 20 20 20 20 orWhite;
01E8B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7B 74 {t
01E8C0: 72 61 63 65 20 75 6E 20 70 6C 79 67 6F 6E 65 20 race un plygone
01E8D0: 61 20 6C 61 20 6E 6F 75 76 65 6C 6C 65 20 70 6F a la nouvelle po
01E8E0: 73 69 74 69 6F 6E 7D 0D 0A 20 20 44 72 61 77 50 sition}.. DrawP
01E8F0: 6F 6C 79 67 6F 6E 28 41 72 72 6F 77 2C 31 2C 2D olygon(Arrow,1,-
01E900: 76 65 48 6F 72 28 34 35 2C 74 72 75 65 29 3B 20 veHor(45,true);
01E910: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01E920: 20 20 20 20 20 20 20 7B 72 65 63 6F 70 69 65 20 {recopie
01E930: 6C 65 20 68 61 75 74 7D 0D 0A 20 20 4D 6F 76 65 le haut}.. Move
01E940: 56 65 72 28 2D 31 33 36 2C 74 72 75 65 29 3B 0D Ver(-136,true);.
01E950: 0A 20 20 4D 6F 76 65 48 6F 72 28 2D 34 35 2C 74 . MoveHor(-45,t
01E960: 72 75 65 29 3B 0D 0A 20 20 53 65 74 48 65 61 64 rue);.. SetHead
01E970: 65 72 4F 6E 3B 0D 0A 65 6E 64 3B 0D 0A 0D 0A 0D erOn;..end;.....
01E980: 0A 0D 0A 62 65 67 69 6E 0D 0A 0D 0A 49 6E 69 74 ...begin....Init
01E990: 47 72 61 70 68 69 63 3B 20 20 20 20 20 20 20 20 Graphic;
01E9A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01E9B0: 20 20 20 20 20 20 7B 69 6E 69 74 69 61 6C 69 73 {initialis
01E9C0: 65 20 6C 65 73 20 20 67 72 61 70 68 69 73 6D 65 e les graphisme
01E9D0: 73 7D 0D 0A 0D 0A 46 6C 6F 77 43 68 61 72 74 44 s}....FlowChartD
01E9E0: 65 6D 6F 3B 20 20 20 20 20 20 20 20 20 20 20 20 emo;
01E9F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01EA00: 7B 66 61 69 74 20 6C 61 20 64 65 6D 6F 7D 0D 0A {fait la demo}..
01EA10: 0D 0A 72 65 70 65 61 74 20 75 6E 74 69 6C 20 6B ..repeat until k
01EA20: 65 79 70 72 65 73 73 65 64 3B 20 20 20 20 20 20 eypressed;
01EA30: 20 20 20 20 20 20 20 20 20 20 20 20 7B 61 74 74 {att
01EA40: 65 6E 64 20 6A 75 73 71 75 27 27 61 20 63 65 20 end jusqu''a ce
01EA50: 71 75 27 27 75 6E 65 20 74 6F 75 63 68 65 20 73 qu''une touche s
01EA60: 6F 69 74 20 66 72 61 70 70 65 65 7D 0D 0A 0D 0A oit frappee}....
01EA70: 4C 65 61 76 65 47 72 61 70 68 69 63 3B 20 20 20 LeaveGraphic;
01EA80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01EA90: 20 20 20 20 20 20 20 20 20 20 7B 71 75 69 74 74 {quitt
01EAA0: 65 20 6C 65 20 67 72 61 70 68 69 73 6D 65 7D 0D e le graphisme}.
01EAB0: 0A 0D 0A 65 6E 64 2E 0D 0A 0D 0A 1A 1A 1A 1A 1A ...end..........
01EAC0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
01EAD0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
01EAE0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
01EAF0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
01EB00: 35 2C 30 2C 30 2C 30 29 3B 0D 0A 65 6E 64 3B 0D 5,0,0,0);..end;.
01EB10: 0A 0D 0A 70 72 6F 63 65 64 75 72 65 20 4D 6F 76 ...procedure Mov
01EB20: 65 42 61 63 6B 3B 20 20 20 20 20 20 20 20 20 20 eBack;
01EB30: 20 20 20 20 20 20 20 20 20 7B 72 6F 75 74 69 6E {routin
01EB40: 65 20 70 6F 75 72 20 72 65 73 74 61 75 72 65 72 e pour restaurer
01EB50: 20 75 6E 20 70 6F 6C 79 67 6F 6E 65 7D 0D 0A 62 un polygone}..b
01EB60: 65 67 69 6E 0D 0A 20 20 53 65 74 43 6F 6C 6F 72 egin.. SetColor
01EB70: 42 6C 61 63 6B 3B 20 20 20 20 20 20 20 20 20 20 Black;
01EB80: 20 20 20 20 20 20 20 20 20 20 20 20 7B 6D 65 6D {mem
01EB90: 65 20 71 75 27 27 61 75 20 64 65 73 73 75 73 7D e qu''au dessus}
01EBA0: 0D 0A 20 20 44 72 61 77 50 6F 6C 79 67 6F 6E 28 .. DrawPolygon(
01EBB0: 41 72 72 6F 77 2C 31 2C 2D 35 2C 30 2C 30 2C 30 Arrow,1,-5,0,0,0
01EBC0: 29 3B 0D 0A 20 20 43 75 72 72 58 3A 3D 43 75 72 );.. CurrX:=Cur
01EBD0: 72 58 2D 49 6E 63 72 58 3B 0D 0A 20 20 43 75 72 rX-IncrX;.. Cur
01EBE0: 72 59 3A 3D 43 75 72 72 59 2D 49 6E 63 72 59 3B rY:=CurrY-IncrY;
01EBF0: 0D 0A 20 20 54 72 61 6E 73 6C 61 74 65 50 6F 6C .. TranslatePol
01EC00: 79 67 6F 6E 28 41 72 72 6F 77 2C 35 2C 2D 49 6E ygon(Arrow,5,-In
01EC10: 63 72 58 2C 2D 49 6E 63 72 59 29 3B 0D 0A 20 20 crX,-IncrY);..
01EC20: 53 65 74 43 6F 6C 6F 72 57 68 69 74 65 3B 0D 0A SetColorWhite;..
01EC30: 20 20 44 72 61 77 50 6F 6C 79 67 6F 6E 28 41 72 DrawPolygon(Ar
01EC40: 72 6F 77 2C 31 2C 2D 35 2C 30 2C 30 2C 30 29 3B row,1,-5,0,0,0);
01EC50: 0D 0A 65 6E 64 3B 0D 0A 0D 0A 70 72 6F 63 65 64 ..end;....proced
01EC60: 75 72 65 20 54 75 72 6E 4C 65 66 74 3B 20 20 20 ure TurnLeft;
01EC70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01EC80: 20 7B 72 6F 74 61 74 69 6F 6E 20 64 61 6E 73 20 {rotation dans
01EC90: 6C 65 20 73 65 6E 73 20 64 65 73 20 61 69 67 75 le sens des aigu
01ECA0: 69 6C 6C 65 73 20 64 27 27 75 6E 65 20 6D 6F 6E illes d''une mon
01ECB0: 74 72 65 7D 0D 0A 62 65 67 69 6E 0D 0A 20 20 53 tre}..begin.. S
01ECC0: 65 74 43 6F 6C 6F 72 42 6C 61 63 6B 3B 20 20 20 etColorBlack;
01ECD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01ECE0: 20 20 20 20 7B 6E 65 20 74 72 61 63 65 20 70 61 {ne trace pa
01ECF0: 73 20 64 65 20 6C 27 61 6E 63 69 65 6E 20 70 6F s de l'ancien po
01ED00: 02 14 00 00 1A 03 00 00 20 20 20 4E 6A 6F 72 6C ........ Njorl
01ED10: 27 73 20 43 61 73 74 6C 65 20 20 20 00 FD 00 10 's Castle ....
01ED20: 28 04 D9 75 09 09 03 09 04 27 85 09 0A 07 07 09 (..u.....'......
01ED30: 27 85 09 11 0A 08 06 27 85 09 19 0B 01 01 27 85 '......'......'.
01ED40: 09 19 0C 02 01 27 85 09 19 0D 0D 02 27 85 09 19 .....'......'...
01ED50: 0F 0B 01 27 85 09 20 0B 07 02 27 85 09 1F 09 09 ...'.. ...'.....
01ED60: 02 27 85 FE 27 0A 01 03 27 85 FE 26 0D 01 01 27 .'..'...'..&...'
01ED70: 85 FE 25 0E 01 01 27 85 FD 24 0F 01 01 D7 78 09 ..%...'..$....x.
01ED80: 07 10 1E 01 47 8A 09 06 11 20 01 47 8A FC 0A 10 ....G.... .G....
01ED90: 1A 01 27 85 F8 14 05 03 0B 27 85 00 0A 03 01 01 ..'......'......
01EDA0: 23 10 00 10 03 01 01 23 10 00 0D 0C 01 01 23 10 #......#......#.
01EDB0: 00 11 0C 01 01 23 10 00 15 0C 01 01 23 10 00 15 .....#......#...
01EDC0: 07 01 01 23 10 00 22 09 01 01 23 10 00 25 09 01 ...#.."...#..%..
01EDD0: 01 23 10 00 23 0B 01 01 23 10 00 24 0D 01 01 23 .#..#...#..$...#
01EDE0: 10 00 0C 03 03 02 23 10 FD 0D 06 01 04 D7 78 FD ......#.......x.
01EDF0: 0C 07 03 01 D7 78 0A 0C 08 09 00 27 85 0A 0E 08 .....x.....'....
01EE00: 09 00 27 85 0A 09 0F 00 00 23 10 0A 23 0F 09 00 ..'......#..#...
01EE10: 27 85 FF 01 01 02 02 06 06 14 14 12 12 08 08 18 '...............
01EE20: 18 1A 1A 0C 0C 03 03 12 01 01 12 0F 0F 14 02 02 ................
01EE30: 14 00 00 00 16 19 00 20 57 68 65 72 65 20 45 61 ....... Where Ea
01EE40: 67 6C 65 73 20 44 61 72 65 20 20 00 09 24 06 04 gles Dare ..$..
01EE50: 01 57 8A 09 20 07 05 06 57 8A 09 1F 08 01 05 57 .W.. ...W......W
01EE60: 8A 09 1E 09 01 03 57 8A 09 1D 0B 01 01 57 8A 09 ......W......W..
01EE70: 21 0D 03 01 57 8A 09 0E 0B 05 03 57 8A 09 0C 0C !...W......W....
01EE80: 02 02 57 8A 09 13 0C 01 01 57 8A 09 0F 0E 03 01 ..W......W......
01EE90: 57 8A 09 17 0D 01 01 97 8A 09 18 0D 01 01 A7 8A W...............
01EEA0: 09 0D 10 01 01 97 8A 09 0E 10 01 01 A7 8A 09 07 ................
01EEB0: 12 07 01 57 8A 09 07 13 08 01 57 8A 09 16 11 03 ...W......W.....
01EEC0: 01 57 8A 09 13 12 08 01 57 8A 09 12 13 0B 01 57 .W......W......W
01EED0: 8A FD 25 07 03 07 67 8A FD 23 08 02 05 67 8A FD ..%...g..#...g..
01EEE0: 21 09 02 03 67 8A FD 24 0D 01 01 07 8B FD 25 0E !...g..$......%.
01EEF0: 01 01 D7 8A FD 26 0E 02 01 67 8A FD 00 11 03 03 .....&...g......
01EF00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
01EF10: 1A 00 01 00 02 09 50 E5 1A 00 41 02 00 00 00 02 ......P...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: 6C 79 67 6F 6E 65 7D 0D 0A 20 20 44 72 61 77 50 lygone}.. DrawP
01F010: 6F 6C 79 67 6F 6E 28 41 72 72 6F 77 2C 31 2C 2D olygon(Arrow,1,-
01F020: 35 2C 30 2C 30 2C 30 29 3B 0D 0A 20 20 52 6F 74 5,0,0,0);.. Rot
01F030: 61 74 65 50 6F 6C 79 67 6F 6E 28 41 72 72 6F 77 atePolygon(Arrow
01F040: 2C 35 2C 34 35 29 3B 20 20 20 20 20 20 20 20 20 ,5,45);
01F050: 20 20 7B 72 6F 74 61 74 61 74 69 6F 6E 20 61 20 {rotatation a
01F060: 34 35 20 64 65 67 72 65 73 7D 0D 0A 20 20 41 72 45 degres}.. Ar
01F070: 72 6F 77 41 6E 67 6C 65 3A 3D 41 72 72 6F 77 41 rowAngle:=ArrowA
01F080: 6E 67 6C 65 2B 31 3B 0D 0A 20 20 69 66 20 41 72 ngle+1;.. if Ar
01F090: 72 6F 77 41 6E 67 6C 65 3E 37 20 74 68 65 6E 20 rowAngle>7 then
01F0A0: 41 72 72 6F 77 41 6E 67 6C 65 3A 3D 30 3B 0D 0A ArrowAngle:=0;..
01F0B0: 20 20 49 6E 63 72 58 3A 3D 53 70 65 65 64 20 2A IncrX:=Speed *
01F0C0: 20 41 72 72 6F 77 49 6E 63 72 5B 41 72 72 6F 77 ArrowIncr[Arrow
01F0D0: 41 6E 67 6C 65 2C 31 5D 3B 20 20 7B 6E 6F 75 76 Angle,1]; {nouv
01F0E0: 65 6C 6C 65 20 76 65 6C 6F 63 69 74 65 7D 0D 0A elle velocite}..
01F0F0: 20 20 49 6E 63 72 79 3A 3D 53 70 65 65 64 20 2A Incry:=Speed *
01F100: 20 41 72 72 6F 77 49 6E 63 72 5B 41 72 72 6F 77 ArrowIncr[Arrow
01F110: 41 6E 67 6C 65 2C 32 5D 3B 0D 0A 20 20 53 65 74 Angle,2];.. Set
01F120: 43 6F 6C 6F 72 57 68 69 74 65 3B 20 20 20 20 20 ColorWhite;
01F130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01F140: 20 20 7B 74 72 61 63 65 20 75 6E 20 70 6F 6C 79 {trace un poly
01F150: 67 6F 6E 65 20 61 79 61 6E 74 20 66 61 69 74 20 gone ayant fait
01F160: 73 61 20 72 6F 74 61 74 69 6F 6D 7D 0D 0A 20 20 sa rotatiom}..
01F170: 44 72 61 77 50 6F 6C 79 67 6F 6E 28 41 72 72 6F DrawPolygon(Arro
01F180: 77 2C 31 2C 2D 35 2C 30 2C 30 2C 30 29 3B 0D 0A w,1,-5,0,0,0);..
01F190: 65 6E 64 3B 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 end;....procedur
01F1A0: 65 20 54 75 72 6E 52 69 67 68 74 3B 20 20 20 20 e TurnRight;
01F1B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7B {
01F1C0: 72 6F 74 61 74 69 6F 6E 20 64 61 6E 73 20 6C 65 rotation dans le
01F1D0: 20 73 65 6E 73 20 64 65 73 20 61 69 67 75 69 6C sens des aiguil
01F1E0: 6C 65 73 20 64 27 27 75 6E 65 20 6D 6F 6E 74 72 les d''une montr
01F1F0: 65 7D 0D 0A 62 65 67 69 6E 0D 0A 20 20 53 65 74 e}..begin.. Set
01F200: 65 7D 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 e}..
01F210: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01F220: 20 7B 28 6C 65 73 20 64 69 6D 65 6E 73 69 6F 6E {(les dimension
01F230: 73 20 64 65 20 6C 61 20 66 65 6E 65 74 72 65 20 s de la fenetre
01F240: 70 72 69 6D 61 69 72 65 7D 0D 0A 20 20 20 20 20 primaire}..
01F250: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01F260: 20 20 20 20 20 20 20 20 7B 70 61 72 20 64 65 66 {par def
01F270: 61 75 74 20 63 65 6C 6C 65 73 20 64 65 20 6C 27 aut celles de l'
01F280: 27 65 63 72 61 6E 7D 0D 0A 0D 0A 44 65 66 69 6E 'ecran}....Defin
01F290: 65 57 69 6E 64 6F 77 28 31 2C 74 72 75 6E 63 28 eWindow(1,trunc(
01F2A0: 58 4D 61 78 47 6C 62 2F 31 30 29 2C 74 72 75 6E XMaxGlb/10),trun
01F2B0: 63 28 59 4D 61 78 47 6C 62 2F 31 30 29 2C 0D 0A c(YMaxGlb/10),..
01F2C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 t
01F2D0: 72 75 6E 63 28 58 4D 61 78 47 6C 62 2F 32 29 2C runc(XMaxGlb/2),
01F2E0: 74 72 75 6E 63 28 59 4D 61 78 47 6C 62 2F 32 29 trunc(YMaxGlb/2)
01F2F0: 29 3B 0D 0A 0D 0A 44 65 66 69 6E 65 48 65 61 64 );....DefineHead
01F300: 65 72 28 31 27 43 27 45 53 54 20 55 4E 45 20 46 er(1'C'EST UNE F
01F310: 45 4E 45 54 52 45 20 46 49 58 45 27 29 3B 20 7B ENETRE FIXE'); {
01F320: 64 6F 6E 6E 65 20 75 6E 65 20 65 6E 74 65 74 65 donne une entete
01F330: 7D 0D 0A 0D 0A 44 65 66 69 6E 65 57 6F 72 6C 64 }....DefineWorld
01F340: 28 31 2C 30 2C 31 30 30 30 2C 31 30 30 30 2C 30 (1,0,1000,1000,0
01F350: 29 3B 20 7B 64 6F 6E 6E 65 20 75 6E 20 6D 6F 6E ); {donne un mon
01F360: 64 65 20 65 6E 20 63 6F 6F 72 64 6F 6E 6E 65 65 de en coordonnee
01F370: 73 20 73 79 73 74 65 6D 65 73 7D 0D 0A 0D 0A 0D s systemes}.....
01F380: 0A 0D 0A 44 65 66 69 6E 65 57 69 6E 64 6F 77 28 ...DefineWindow(
01F390: 32 2C 74 72 75 6E 63 28 58 4D 61 78 47 6C 62 2F 2,trunc(XMaxGlb/
01F3A0: 32 29 2C 74 72 75 6E 63 28 59 4D 61 78 47 6C 62 2),trunc(YMaxGlb
01F3B0: 2F 32 29 2C 0D 0A 20 20 20 20 20 20 20 20 20 20 /2),..
01F3C0: 20 20 20 20 20 74 72 75 6E 63 28 28 58 4D 61 78 trunc((XMax
01F3D0: 47 6C 62 2A 39 29 2F 31 30 29 2C 74 72 75 6E 63 Glb*9)/10),trunc
01F3E0: 28 28 59 4D 61 78 47 6C 62 2A 39 29 2F 31 30 29 ((YMaxGlb*9)/10)
01F3F0: 29 3B 0D 0A 0D 0A 44 65 66 69 6E 65 48 65 61 64 );....DefineHead
01F400: 43 6F 6C 6F 72 42 6C 61 63 6B 3B 20 20 20 20 20 ColorBlack;
01F410: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01F420: 20 20 7B 6D 65 6D 65 20 71 75 27 27 61 75 20 64 {meme qu''au d
01F430: 65 73 73 75 73 7D 0D 0A 20 20 44 72 61 77 50 6F essus}.. DrawPo
01F440: 6C 79 67 6F 6E 28 41 72 72 6F 77 2C 31 2C 2D 35 lygon(Arrow,1,-5
01F450: 2C 30 2C 30 2C 30 29 3B 0D 0A 20 20 52 6F 74 61 ,0,0,0);.. Rota
01F460: 74 65 50 6F 6C 79 67 6F 6E 28 41 72 72 6F 77 2C tePolygon(Arrow,
01F470: 35 2C 2D 34 35 29 3B 0D 0A 20 20 41 72 72 6F 77 5,-45);.. Arrow
01F480: 41 6E 67 6C 65 3A 3D 41 72 72 6F 77 41 6E 67 6C Angle:=ArrowAngl
01F490: 65 2D 31 3B 0D 0A 20 20 69 66 20 41 72 72 6F 77 e-1;.. if Arrow
01F4A0: 41 6E 67 6C 65 3C 30 20 74 68 65 6E 20 41 72 72 Angle<0 then Arr
01F4B0: 6F 77 41 6E 67 6C 65 3A 3D 37 3B 0D 0A 20 20 49 owAngle:=7;.. I
01F4C0: 6E 63 72 58 3A 3D 53 70 65 65 64 20 2A 20 41 72 ncrX:=Speed * Ar
01F4D0: 72 6F 77 49 6E 63 72 5B 41 72 72 6F 77 41 6E 67 rowIncr[ArrowAng
01F4E0: 6C 65 2C 31 5D 3B 0D 0A 20 20 49 6E 63 72 79 3A le,1];.. Incry:
01F4F0: 3D 53 70 65 65 64 20 2A 20 41 72 72 6F 77 49 6E =Speed * ArrowIn
01F500: 63 72 5B 41 72 72 6F 77 41 6E 67 6C 65 2C 32 5D cr[ArrowAngle,2]
01F510: 3B 0D 0A 20 20 53 65 74 43 6F 6C 6F 72 57 68 69 ;.. SetColorWhi
01F520: 74 65 3B 0D 0A 20 20 44 72 61 77 50 6F 6C 79 67 te;.. DrawPolyg
01F530: 6F 6E 28 41 72 72 6F 77 2C 31 2C 2D 35 2C 30 2C on(Arrow,1,-5,0,
01F540: 30 2C 30 29 3B 0D 0A 65 6E 64 3B 0D 0A 0D 0A 0D 0,0);..end;.....
01F550: 0A 62 65 67 69 6E 0D 0A 0D 0A 49 6E 69 74 47 72 .begin....InitGr
01F560: 61 70 68 69 63 3B 20 20 20 20 20 20 20 20 20 20 aphic;
01F570: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01F580: 20 7B 69 6E 69 74 69 61 6C 69 73 65 20 6C 65 73 {initialise les
01F590: 20 67 72 61 70 68 69 73 6D 65 73 7D 0D 0A 0D 0A graphismes}....
01F5A0: 44 65 66 69 6E 65 57 69 6E 64 6F 77 28 31 2C 30 DefineWindow(1,0
01F5B0: 2C 30 2C 58 4D 61 78 47 6C 62 2C 59 4D 61 78 47 ,0,XMaxGlb,YMaxG
01F5C0: 6C 62 29 3B 0D 0A 0D 0A 44 65 66 69 6E 65 57 6F lb);....DefineWo
01F5D0: 72 6C 64 28 31 2C 2D 31 30 30 30 2C 31 30 30 30 rld(1,-1000,1000
01F5E0: 2C 31 30 30 30 2C 2D 31 30 30 30 29 3B 20 20 7B ,1000,-1000); {
01F5F0: 64 6F 6E 6E 65 20 75 6E 20 6D 6F 6E 64 65 20 64 donne un monde d
01F600: 65 72 28 32 27 43 27 45 53 54 20 55 4E 45 20 46 er(2'C'EST UNE F
01F610: 45 4E 45 54 52 45 20 41 4D 4F 56 49 42 4C 45 29 ENETRE AMOVIBLE)
01F620: 3B 20 7B 64 6F 6E 6E 65 20 75 6E 65 20 65 6E 74 ; {donne une ent
01F630: 65 74 65 7D 0D 0A 0D 0A 44 65 66 69 6E 65 57 6F ete}....DefineWo
01F640: 72 6C 64 28 32 2C 30 2C 31 30 30 30 2C 31 30 30 rld(2,0,1000,100
01F650: 30 2C 30 29 3B 20 7B 64 6F 6E 6E 65 20 75 6E 20 0,0); {donne un
01F660: 6D 6F 6E 64 65 20 65 6E 20 63 6F 6F 72 64 6F 6E monde en coordon
01F670: 6E 65 65 73 20 73 79 73 74 65 6D 65 7D 0D 0A 0D nees systeme}...
01F680: 0A 53 65 6C 65 63 74 57 69 6E 64 6F 77 28 31 29 .SelectWindow(1)
01F690: 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 7B 63 ; {c
01F6A0: 68 6F 69 73 69 74 20 6C 61 20 66 65 6E 65 74 72 hoisit la fenetr
01F6B0: 65 20 66 69 78 65 7D 0D 0A 53 65 74 48 65 61 64 e fixe}..SetHead
01F6C0: 65 72 4F 6E 3B 0D 0A 53 65 6C 65 63 74 57 6F 72 erOn;..SelectWor
01F6D0: 6C 64 28 31 29 3B 20 20 20 20 20 20 20 20 20 20 ld(1);
01F6E0: 20 20 20 20 7B 63 68 6F 69 73 69 74 20 73 6F 6E {choisit son
01F6F0: 20 6D 6F 6E 64 65 7D 0D 0A 53 65 74 42 61 63 6B monde}..SetBack
01F700: 67 72 6F 75 6E 64 28 30 29 3B 20 20 20 20 20 20 ground(0);
01F710: 20 20 20 20 20 20 7B 61 72 72 69 65 72 65 20 70 {arriere p
01F720: 6C 61 6E 20 6E 6F 69 72 7D 0D 0A 44 72 61 77 42 lan noir}..DrawB
01F730: 6F 72 64 65 72 3B 20 20 20 20 20 20 20 20 20 20 order;
01F740: 20 20 20 20 20 20 20 20 7B 74 72 61 63 65 20 75 {trace u
01F750: 6E 65 20 66 65 6E 65 74 72 65 7D 0D 0A 44 72 61 ne fenetre}..Dra
01F760: 77 4C 69 6E 65 73 3B 20 20 20 20 20 20 20 20 20 wLines;
01F770: 20 20 20 20 20 20 20 20 20 20 7B 64 65 73 73 69 {dessi
01F780: 6E 65 20 75 6E 65 20 6C 69 67 6E 65 20 64 65 73 ne une ligne des
01F790: 73 75 73 7D 0D 0A 43 6F 70 79 53 63 72 65 65 6E sus}..CopyScreen
01F7A0: 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ;
01F7B0: 20 20 20 7B 6C 61 20 63 6F 70 69 65 20 64 61 6E {la copie dan
01F7C0: 73 20 6C 27 27 65 63 72 61 6E 20 76 69 72 74 75 s l''ecran virtu
01F7D0: 65 6C 7D 0D 0A 0D 0A 53 65 74 42 72 65 61 6B 4F el}....SetBreakO
01F7E0: 66 66 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 ff;
01F7F0: 20 20 20 20 7B 65 72 72 65 75 72 7D 0D 0A 53 65 {erreur}..Se
01F800: 65 20 63 6F 6F 72 64 6F 6E 6E 65 65 73 20 73 79 e coordonnees sy
01F810: 73 74 65 6D 65 7D 0D 0A 0D 0A 53 65 6C 65 63 74 steme}....Select
01F820: 57 6F 72 6C 64 28 31 29 3B 20 20 20 20 20 20 20 World(1);
01F830: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01F840: 20 7B 63 68 6F 69 73 69 74 20 63 65 20 6D 6F 6E {choisit ce mon
01F850: 64 65 7D 0D 0A 53 65 6C 65 63 74 57 69 6E 64 6F de}..SelectWindo
01F860: 77 28 31 29 3B 20 20 20 20 20 20 20 20 20 20 20 w(1);
01F870: 20 20 20 20 20 20 20 20 20 20 20 20 7B 63 68 6F {cho
01F880: 69 73 69 74 20 75 6E 65 20 66 65 6E 65 74 72 65 isit une fenetre
01F890: 7D 0D 0A 53 65 74 42 61 63 6B 67 72 6F 75 6E 64 }..SetBackground
01F8A0: 28 30 29 3B 20 20 20 20 20 20 20 20 20 20 20 20 (0);
01F8B0: 20 20 20 20 20 20 20 20 20 20 7B 64 6F 6E 6E 65 {donne
01F8C0: 20 75 6E 20 61 72 72 69 65 72 65 20 70 6C 61 6E un arriere plan
01F8D0: 20 6E 6F 69 72 7D 0D 0A 0D 0A 53 69 7A 65 3A 3D noir}....Size:=
01F8E0: 31 30 30 3B 0D 0A 53 70 65 65 64 3A 3D 33 30 3B 100;..Speed:=30;
01F8F0: 0D 0A 43 75 72 72 58 3A 3D 30 3B 0D 0A 43 75 72 ..CurrX:=0;..Cur
01F900: 72 59 3A 3D 30 3B 0D 0A 41 72 72 6F 77 41 6E 67 rY:=0;..ArrowAng
01F910: 6C 65 3A 3D 30 3B 0D 0A 49 6E 63 72 58 3A 3D 30 le:=0;..IncrX:=0
01F920: 3B 0D 0A 49 6E 63 72 59 3A 3D 53 70 65 65 64 3B ;..IncrY:=Speed;
01F930: 0D 0A 0D 0A 4D 61 6B 65 41 72 72 6F 77 3B 20 20 ....MakeArrow;
01F940: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01F950: 20 20 20 20 20 20 20 20 20 20 20 7B 66 61 69 74 {fait
01F960: 20 6C 61 20 66 6C 65 63 68 65 20 64 65 20 74 65 la fleche de te
01F970: 74 65 7D 0D 0A 4D 61 6B 65 4D 6F 76 65 54 61 62 te}..MakeMoveTab
01F980: 6C 65 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 le;
01F990: 20 20 20 20 20 20 20 20 20 20 20 20 7B 66 61 69 {fai
01F9A0: 74 20 75 6E 65 20 74 61 62 6C 65 20 7D 0D 0A 44 t une table }..D
01F9B0: 72 61 77 50 6F 6C 79 67 6F 6E 28 41 72 72 6F 77 rawPolygon(Arrow
01F9C0: 2C 31 2C 35 2C 30 2C 30 2C 30 29 3B 20 20 20 20 ,1,5,0,0,0);
01F9D0: 20 20 20 20 20 20 7B 74 72 61 63 65 20 6C 65 73 {trace les
01F9E0: 20 66 6C 65 63 68 65 73 7D 0D 0A 0D 0A 0D 0A 72 fleches}......r
01F9F0: 65 70 65 61 74 0D 0A 20 20 72 65 61 64 28 4B 62 epeat.. read(Kb
01FA00: 74 4D 65 73 73 61 67 65 4F 66 66 3B 0D 0A 0D 0A tMessageOff;....
01FA10: 53 65 6C 65 63 74 57 69 6E 64 6F 77 28 32 29 3B SelectWindow(2);
01FA20: 20 20 20 20 20 20 20 20 20 20 20 20 20 7B 63 68 {ch
01FA30: 6F 69 73 69 74 20 75 6E 65 20 66 65 6E 65 74 72 oisit une fenetr
01FA40: 65 20 61 6D 6F 76 69 62 6C 65 7D 0D 0A 53 65 74 e amovible}..Set
01FA50: 48 65 61 64 65 72 4F 6E 3B 0D 0A 53 65 6C 65 63 HeaderOn;..Selec
01FA60: 74 57 6F 72 6C 64 28 32 29 3B 20 20 20 20 20 20 tWorld(2);
01FA70: 20 20 20 20 20 20 20 20 7B 63 68 6F 69 73 69 74 {choisit
01FA80: 20 73 6F 6E 20 6D 6F 6E 64 65 7D 0D 0A 53 65 74 son monde}..Set
01FA90: 42 61 63 6B 67 72 6F 75 6E 64 28 30 29 3B 20 20 Background(0);
01FAA0: 20 20 20 20 20 20 20 20 20 20 7B 61 72 72 69 65 {arrie
01FAB0: 72 65 20 70 6C 61 6E 20 6E 6F 69 72 7D 0D 0A 44 re plan noir}..D
01FAC0: 72 61 77 42 6F 72 64 65 72 3B 20 20 20 20 20 20 rawBorder;
01FAD0: 20 20 20 20 20 20 20 20 20 20 20 20 7B 74 72 61 {tra
01FAE0: 63 65 20 75 6E 65 20 66 65 6E 65 74 72 65 7D 0D ce une fenetre}.
01FAF0: 0A 44 72 61 77 4C 69 6E 65 73 3B 20 20 20 20 20 .DrawLines;
01FB00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7B 74 {t
01FB10: 72 61 63 65 20 64 65 73 20 6C 69 67 6E 65 73 20 race des lignes
01FB20: 64 65 73 73 75 73 7D 0D 0A 0D 0A 72 65 70 65 61 dessus}....repea
01FB30: 74 0D 0A 20 20 72 65 61 64 28 4B 62 64 2C 43 68 t.. read(Kbd,Ch
01FB40: 29 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 );
01FB50: 7B 6C 69 74 20 6C 65 20 63 6C 61 76 69 65 72 7D {lit le clavier}
01FB60: 0D 0A 20 20 63 61 73 65 20 6F 72 64 28 43 68 29 .. case ord(Ch)
01FB70: 20 6F 66 0D 0A 20 20 20 20 20 20 37 32 20 3A 20 of.. 72 :
01FB80: 4D 6F 76 65 56 65 72 28 2D 34 2C 74 72 75 65 29 MoveVer(-4,true)
01FB90: 3B 20 7B 66 6C 65 63 68 65 20 68 61 75 74 3F 7D ; {fleche haut?}
01FBA0: 0D 0A 20 20 20 20 20 20 37 35 20 3A 20 4D 6F 76 .. 75 : Mov
01FBB0: 65 48 6F 72 28 2D 31 2C 74 72 75 65 29 3B 20 7B eHor(-1,true); {
01FBC0: 66 6C 65 63 68 65 20 67 61 75 63 68 65 3F 7D 0D fleche gauche?}.
01FBD0: 0A 20 20 20 20 20 20 37 37 20 3A 20 4D 6F 76 65 . 77 : Move
01FBE0: 48 6F 72 28 31 2C 74 72 75 65 29 3B 20 20 7B 66 Hor(1,true); {f
01FBF0: 6C 65 63 68 65 20 64 72 6F 69 74 65 3F 7D 0D 0A leche droite?}..
01FC00: 64 2C 43 68 29 3B 20 20 20 20 20 20 20 20 20 20 d,Ch);
01FC10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7B 6C {l
01FC20: 69 74 20 6C 65 20 63 6C 61 76 69 65 72 7D 0D 0A it le clavier}..
01FC30: 20 20 63 61 73 65 20 6F 72 64 28 43 68 29 20 6F case ord(Ch) o
01FC40: 66 0D 0A 20 20 20 20 20 20 37 32 20 3A 20 4D 6F f.. 72 : Mo
01FC50: 76 65 46 6F 72 77 61 72 64 3B 20 20 20 20 20 20 veForward;
01FC60: 20 20 20 20 20 20 20 20 20 20 7B 66 6C 65 63 68 {flech
01FC70: 65 20 68 61 75 74 3F 7D 0D 0A 20 20 20 20 20 20 e haut?}..
01FC80: 37 35 20 3A 20 54 75 72 6E 4C 65 66 74 3B 20 20 75 : TurnLeft;
01FC90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01FCA0: 20 7B 66 6C 65 63 68 65 20 67 61 75 63 68 65 3F {fleche gauche?
01FCB0: 7D 0D 0A 20 20 20 20 20 20 37 37 20 3A 20 54 75 }.. 77 : Tu
01FCC0: 72 6E 52 69 67 68 74 3B 20 20 20 20 20 20 20 20 rnRight;
01FCD0: 20 20 20 20 20 20 20 20 20 20 7B 66 6C 65 63 68 {flech
01FCE0: 65 20 64 72 6F 69 74 65 3F 7D 0D 0A 20 20 20 20 e droite?}..
01FCF0: 20 20 38 30 20 3A 20 4D 6F 76 65 42 61 63 6B 3B 80 : MoveBack;
01FD00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01FD10: 20 20 20 7B 66 6C 65 63 68 65 20 62 61 73 3F 7D {fleche bas?}
01FD20: 0D 0A 20 20 65 6E 64 3B 0D 0A 75 6E 74 69 6C 20 .. end;..until
01FD30: 43 68 3D 27 20 27 3B 20 20 20 20 20 20 20 20 20 Ch=' ';
01FD40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01FD50: 20 7B 27 65 73 70 61 63 65 27 20 73 6F 72 74 20 {'espace' sort
01FD60: 64 75 20 70 72 6F 67 72 61 6D 6D 65 7D 0D 0A 0D du programme}...
01FD70: 0A 4C 65 61 76 65 47 72 61 70 68 69 63 3B 20 20 .LeaveGraphic;
01FD80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01FD90: 20 20 20 20 20 20 20 20 7B 71 75 69 74 74 65 20 {quitte
01FDA0: 6C 65 73 20 67 72 61 70 68 69 73 6D 65 73 7D 0D les graphismes}.
01FDB0: 0A 0D 0A 65 6E 64 2E 0D 0A 1A 1A 1A 1A 1A 1A 1A ...end..........
01FDC0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
01FDD0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
01FDE0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
01FDF0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
01FE00: 20 20 20 20 20 20 38 30 20 3A 20 4D 6F 76 65 56 80 : MoveV
01FE10: 65 72 28 34 2C 74 72 75 65 29 3B 20 20 7B 66 6C er(4,true); {fl
01FE20: 65 63 68 65 20 62 61 73 3F 7D 0D 0A 20 20 65 6E eche bas?}.. en
01FE30: 64 3B 0D 0A 75 6E 74 69 6C 20 43 68 3D 27 20 27 d;..until Ch=' '
01FE40: 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ;
01FE50: 20 7B 65 73 70 61 63 65 20 70 6F 75 72 20 73 6F {espace pour so
01FE60: 72 74 69 72 20 64 75 20 70 72 6F 67 72 61 6D 6D rtir du programm
01FE70: 65 7D 0D 0A 0D 0A 4C 65 61 76 65 47 72 61 70 68 e}....LeaveGraph
01FE80: 69 63 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 ic;
01FE90: 20 20 20 20 7B 71 75 69 74 74 65 20 6C 65 73 20 {quitte les
01FEA0: 67 72 61 70 68 69 73 6D 65 73 7D 0D 0A 0D 0A 65 graphismes}....e
01FEB0: 6E 64 2E 0D 0A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A nd..............
01FEC0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
01FED0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
01FEE0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
01FEF0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
01FF00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7B 74 {t
01FF10: 72 61 63 65 20 64 65 73 20 6C 69 67 6E 65 73 20 race des lignes
01FF20: 64 65 73 73 75 73 7D 0D 0A 0D 0A 72 65 70 65 61 dessus}....repea
01FF30: 74 0D 0A 20 20 72 65 61 64 28 4B 62 64 2C 43 68 t.. read(Kbd,Ch
01FF40: 29 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 );
01FF50: 7B 6C 69 74 20 6C 65 20 63 6C 61 76 69 65 72 7D {lit le clavier}
01FF60: 0D 0A 20 20 63 61 73 65 20 6F 72 64 28 43 68 29 .. case ord(Ch)
01FF70: 20 6F 66 0D 0A 20 20 20 20 20 20 37 32 20 3A 20 of.. 72 :
01FF80: 4D 6F 76 65 56 65 72 28 2D 34 2C 74 72 75 65 29 MoveVer(-4,true)
01FF90: 3B 20 7B 66 6C 65 63 68 65 20 68 61 75 74 3F 7D ; {fleche haut?}
01FFA0: 0D 0A 20 20 20 20 20 20 37 35 20 3A 20 4D 6F 76 .. 75 : Mov
01FFB0: 65 48 6F 72 28 2D 31 2C 74 72 75 65 29 3B 20 7B eHor(-1,true); {
01FFC0: 66 6C 65 63 68 65 20 67 61 75 63 68 65 3F 7D 0D fleche gauche?}.
01FFD0: 0A 20 20 20 20 20 20 37 37 20 3A 20 4D 6F 76 65 . 77 : Move
01FFE0: 48 6F 72 28 31 2C 74 72 75 65 29 3B 20 20 7B 66 Hor(1,true); {f
01FFF0: 6C 65 63 68 65 20 64 72 6F 69 74 65 3F 7D 0D 0A leche droite?}..
020000: 70 72 6F 67 72 61 6D 20 4D 6F 76 65 57 69 6E 64 program MoveWind
020010: 6F 77 73 3B 0D 0A 0D 0A 7B 24 49 20 74 79 70 65 ows;....{$I type
020020: 64 65 66 2E 73 79 73 7D 20 20 20 20 20 20 20 20 def.sys}
020030: 20 20 20 20 20 7B 43 65 73 20 66 69 63 68 69 65 {Ces fichie
020040: 72 73 20 64 6F 69 76 65 6E 74 20 65 74 72 65 7D rs doivent etre}
020050: 0D 0A 7B 24 49 20 67 72 61 70 68 69 78 2E 73 79 ..{$I graphix.sy
020060: 73 7D 20 20 20 20 20 20 20 20 20 20 20 20 20 7B s} {
020070: 69 6E 63 6C 75 73 20 64 61 6E 73 20 63 65 74 20 inclus dans cet
020080: 6F 72 64 72 65 7D 0D 0A 7B 24 49 20 6B 65 72 6E ordre}..{$I kern
020090: 65 6C 2E 73 79 73 7D 0D 0A 7B 24 49 20 6B 65 72 el.sys}..{$I ker
0200A0: 6E 65 6C 31 2E 73 79 73 7D 0D 0A 7B 24 49 20 77 nel1.sys}..{$I w
0200B0: 69 6E 64 6F 77 73 2E 73 79 73 7D 0D 0A 0D 0A 76 indows.sys}....v
0200C0: 61 72 20 69 3A 20 69 6E 74 65 67 65 72 3B 0D 0A ar i: integer;..
0200D0: 20 20 20 43 68 3A 20 63 68 61 72 3B 0D 0A 0D 0A Ch: char;....
0200E0: 70 72 6F 63 65 64 75 72 65 20 44 72 61 77 4C 69 procedure DrawLi
0200F0: 6E 65 73 3B 0D 0A 76 61 72 20 69 3A 69 6E 74 65 nes;..var i:inte
020100: 67 65 72 3B 0D 0A 62 65 67 69 6E 0D 0A 20 20 66 ger;..begin.. f
020110: 6F 72 20 69 3A 3D 31 20 74 6F 20 32 30 20 64 6F or i:=1 to 20 do
020120: 20 44 72 61 77 4C 69 6E 65 28 69 2A 35 30 2C 30 DrawLine(i*50,0
020130: 2C 31 30 30 30 2D 69 2A 35 30 2C 69 2A 35 30 29 ,1000-i*50,i*50)
020140: 3B 0D 0A 65 6E 64 3B 0D 0A 0D 0A 0D 0A 62 65 67 ;..end;......beg
020150: 69 6E 0D 0A 0D 0A 49 6E 69 74 47 72 61 70 68 69 in....InitGraphi
020160: 63 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 c;
020170: 20 20 20 7B 69 6E 69 74 69 61 6C 69 73 65 7D 0D {initialise}.
020180: 0A 0D 0A 0D 0A 44 72 61 77 42 6F 72 64 65 72 3B .....DrawBorder;
020190: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0201A0: 20 20 7B 74 72 61 63 65 20 75 6E 65 20 62 6F 72 {trace une bor
0201B0: 64 75 72 65 20 61 75 74 6F 75 72 20 64 75 20 64 dure autour du d
0201C0: 65 73 73 69 6E 7D 0D 0A 20 20 20 20 20 20 20 20 essin}..
0201D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0201E0: 20 20 20 20 20 7B 61 69 72 65 20 64 65 20 6C 61 {aire de la
0201F0: 20 66 65 6E 65 74 72 65 20 70 72 69 6D 61 69 72 fenetre primair
020200: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
020210: 1B 00 01 00 02 09 50 E5 1B 00 41 02 00 00 00 02 ......P...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: 40 77 85 77 85 00 04 14 32 00 03 22 77 86 77 86 @w.w....2.."w.w.
020310: 04 36 3F 02 00 22 77 86 77 86 04 72 17 FE 00 2A .6?.."w.w..r...*
020320: 77 86 77 86 00 01 3A 7F FE 00 1C 07 8A 23 10 01 w.w...:......#..
020330: 92 7F FE 00 1C 23 10 07 8A 04 4C 85 00 FE 18 57 .....#....L....W
020340: 81 57 81 02 2A 1E 02 00 24 23 10 A7 80 00 04 18 .W..*...$#......
020350: 9D 00 FE 2C 57 81 57 81 02 3C 4B 00 04 16 A7 80 ...,W.W..<K.....
020360: A7 80 04 64 9D 00 FE 30 57 81 57 81 01 7C 31 00 ...d...0W.W..|1.
020370: 02 14 77 7F 77 7F 00 04 3E 77 02 00 24 C7 77 C9 ..w.w...>w..$.w.
020380: 76 02 60 32 00 03 12 97 7A 97 7A 01 28 4D 00 FE v.`2....z.z.(M..
020390: 10 77 7F 77 7F 00 01 02 9F 02 00 20 07 8A 07 8A .w.w....... ....
0203A0: 02 48 9D 00 FE 20 F7 7F F7 7F 04 96 67 FE 00 1E .H... ......g...
0203B0: 23 10 17 7B 00 01 4E 7F 02 00 26 23 10 07 8A 04 #..{..N...&#....
0203C0: 4A 5F FE 00 26 17 7C 17 7B 04 7A 1B FE 04 14 17 J_..&.|.{.z.....
0203D0: 7C 17 7B 00 02 1C 43 00 04 18 77 7F F7 7F 04 94 |.{...C...w.....
0203E0: 77 FC 00 1D 17 7C 17 7B 04 4E 5F 02 00 26 57 8B w....|.{.N_..&W.
0203F0: 57 8B 00 02 24 3B 00 04 1A A7 80 A7 80 01 84 66 W...$;.........f
020400: 00 FF 20 17 8B 17 8B 00 01 1C 40 00 01 18 17 8B .. .......@.....
020410: 17 8B 01 2C 56 00 FF 18 17 8B 17 8B 02 8E 3F FE ...,V.........?.
020420: 00 2E 77 7F F7 7F 00 02 20 9E 00 FF 68 77 7F 77 ..w..... ...hw.w
020430: 7F 02 78 9E 00 FF 68 F7 7F F7 7F 02 30 39 00 02 ..x...h.....09..
020440: 34 F7 7F F7 7F 02 68 39 00 02 34 77 7F 77 7F 02 4.....h9..4w.w..
020450: 4C 9B 00 FC 1A 77 7F F7 7F 00 04 66 17 FE 00 1E L....w.....f....
020460: 57 8B 57 8B 01 84 63 00 FC 16 17 8B 17 8B 00 04 W.W...c.........
020470: 08 8F 04 00 24 17 7B 17 7C 04 34 51 00 02 18 D7 ....$.{.|.4Q....
020480: 8C D7 8C 04 48 7B 00 FC 0C D7 8C D7 8C 04 5C 51 ....H{........\Q
020490: 00 02 18 D7 8C D7 8C 02 1F 17 03 00 22 57 8C 57 ............"W.W
0204A0: 8C 00 02 0D 47 01 00 4C 57 8C 57 8C 02 87 1F FF ....G..LW.W.....
0204B0: 00 38 57 8C 57 8C 00 01 80 57 FC 00 21 D7 8D 23 .8W.W....W..!..#
0204C0: 10 01 88 57 FC 00 21 17 8E 23 10 00 01 90 97 FC ...W..!..#......
0204D0: 00 25 97 8E 23 10 01 3C 96 00 FF 25 97 87 97 87 .%..#..<...%....
0204E0: 01 0E 17 02 00 22 57 8E 23 10 01 92 38 FE FF 22 ....."W.#...8.."
0204F0: 23 10 57 8E 00 01 0C 93 00 FC 20 37 8F 37 8F 01 #.W....... 7.7..
020500: 70 72 6F 67 72 61 6D 20 4F 6E 65 41 78 69 73 3B program OneAxis;
020510: 0D 0A 0D 0A 7B 24 49 20 74 79 70 65 64 65 66 2E ....{$I typedef.
020520: 73 79 73 7D 20 20 20 20 20 20 20 20 20 20 20 20 sys}
020530: 20 20 20 20 20 20 20 20 20 7B 74 68 65 73 65 20 {these
020540: 66 69 6C 65 73 20 6D 75 73 74 20 62 65 7D 0D 0A files must be}..
020550: 7B 24 49 20 67 72 61 70 68 69 78 2E 73 79 73 7D {$I graphix.sys}
020560: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
020570: 20 20 20 20 20 7B 69 6E 63 6C 75 64 65 64 20 61 {included a
020580: 6E 64 20 69 6E 20 74 68 69 73 20 6F 72 64 65 72 nd in this order
020590: 7D 0D 0A 7B 24 49 20 6B 65 72 6E 65 6C 2E 73 79 }..{$I kernel.sy
0205A0: 73 7D 0D 0A 7B 24 49 20 6B 65 72 6E 65 6C 31 2E s}..{$I kernel1.
0205B0: 73 79 73 7D 0D 0A 7B 24 49 20 77 69 6E 64 6F 77 sys}..{$I window
0205C0: 73 2E 73 79 73 7D 0D 0A 7B 24 49 20 61 78 69 73 s.sys}..{$I axis
0205D0: 2E 68 67 68 7D 0D 0A 0D 0A 0D 0A 70 72 6F 63 65 .hgh}......proce
0205E0: 64 75 72 65 20 4F 6E 65 41 78 69 73 44 65 6D 3B dure OneAxisDem;
0205F0: 0D 0A 0D 0A 62 65 67 69 6E 0D 0A 20 20 43 6C 65 ....begin.. Cle
020600: 61 72 53 63 72 65 65 6E 3B 20 20 20 20 20 20 20 arScreen;
020610: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
020620: 20 7B 69 6E 69 74 20 73 63 72 65 65 6E 7D 0D 0A {init screen}..
020630: 20 20 53 65 74 43 6F 6C 6F 72 57 68 69 74 65 3B SetColorWhite;
020640: 0D 0A 20 20 53 65 74 42 61 63 6B 67 72 6F 75 6E .. SetBackgroun
020650: 64 28 30 29 3B 0D 0A 0D 0A 20 20 44 65 66 69 6E d(0);.... Defin
020660: 65 48 65 61 64 65 72 28 31 2C 27 4C 41 42 45 4C eHeader(1,'LABEL
020670: 45 44 20 41 58 45 53 27 29 3B 20 20 20 20 7B 64 ED AXES'); {d
020680: 65 66 69 6E 65 20 74 68 65 20 77 69 6E 64 6F 77 efine the window
020690: 7D 0D 0A 20 20 53 65 74 48 65 61 64 65 72 4F 6E }.. SetHeaderOn
0206A0: 3B 0D 0A 20 20 44 65 66 69 6E 65 57 6F 72 6C 64 ;.. DefineWorld
0206B0: 28 31 2C 2D 31 30 2C 31 30 2C 31 30 2C 2D 31 30 (1,-10,10,10,-10
0206C0: 29 3B 0D 0A 20 20 53 65 6C 65 63 74 57 69 6E 64 );.. SelectWind
0206D0: 6F 77 28 31 29 3B 0D 0A 20 20 53 65 6C 65 63 74 ow(1);.. Select
0206E0: 57 6F 72 6C 64 28 31 29 3B 0D 0A 0D 0A 20 20 44 World(1);.... D
0206F0: 72 61 77 42 6F 72 64 65 72 3B 20 20 20 20 20 20 rawBorder;
020700: 70 72 6F 67 72 61 6D 20 4F 6E 65 50 6F 6C 79 67 program OnePolyg
020710: 6F 6E 3B 0D 0A 0D 0A 7B 24 49 20 74 79 70 65 64 on;....{$I typed
020720: 65 66 2E 73 79 73 7D 20 20 20 20 20 20 20 20 20 ef.sys}
020730: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
020740: 7B 63 65 73 20 66 69 63 68 69 65 72 73 20 64 6F {ces fichiers do
020750: 69 76 65 6E 74 20 65 74 72 65 7D 0D 0A 7B 24 49 ivent etre}..{$I
020760: 20 67 72 61 70 68 69 78 2E 73 79 73 7D 20 20 20 graphix.sys}
020770: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
020780: 20 20 20 20 20 20 7B 69 6E 63 6C 75 73 20 64 61 {inclus da
020790: 6E 73 20 63 65 74 20 6F 72 64 72 65 7D 0D 0A 7B ns cet ordre}..{
0207A0: 24 49 20 6B 65 72 6E 65 6C 2E 73 79 73 7D 0D 0A $I kernel.sys}..
0207B0: 7B 24 49 20 6B 65 72 6E 65 6C 31 2E 73 79 73 7D {$I kernel1.sys}
0207C0: 0D 0A 7B 24 49 20 77 69 6E 64 6F 77 73 2E 73 79 ..{$I windows.sy
0207D0: 73 7D 0D 0A 7B 24 49 20 70 6F 6C 79 67 6F 6E 2E s}..{$I polygon.
0207E0: 68 67 68 7D 0D 0A 0D 0A 0D 0A 70 72 6F 63 65 64 hgh}......proced
0207F0: 75 72 65 20 50 6F 6C 79 67 6F 6E 44 65 6D 3B 0D ure PolygonDem;.
020800: 0A 76 61 72 20 6E 3A 69 6E 74 65 67 65 72 3B 0D .var n:integer;.
020810: 0A 20 20 20 20 62 2C 61 3A 50 6C 6F 74 41 72 72 . b,a:PlotArr
020820: 61 79 3B 0D 0A 20 20 20 20 63 68 3A 63 68 61 72 ay;.. ch:char
020830: 3B 0D 0A 20 20 20 20 78 31 2C 78 32 3A 69 6E 74 ;.. x1,x2:int
020840: 65 67 65 72 3B 0D 0A 0D 0A 70 72 6F 63 65 64 75 eger;....procedu
020850: 72 65 20 47 65 6E 65 72 61 74 65 46 75 6E 63 74 re GenerateFunct
020860: 69 6F 6E 28 76 61 72 20 61 2C 62 3A 50 6C 6F 74 ion(var a,b:Plot
020870: 41 72 72 61 79 3B 6E 3A 69 6E 74 65 67 65 72 29 Array;n:integer)
020880: 3B 0D 0A 0D 0A 76 61 72 20 69 3A 69 6E 74 65 67 ;....var i:integ
020890: 65 72 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 er;
0208A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7B 67 {g
0208B0: 65 6E 65 72 65 20 75 6E 20 70 6F 6C 79 67 6F 6E enere un polygon
0208C0: 65 7D 0D 0A 20 20 20 20 64 65 6C 74 61 3A 72 65 e}.. delta:re
0208D0: 61 6C 3B 0D 0A 0D 0A 62 65 67 69 6E 0D 0A 20 20 al;....begin..
0208E0: 64 65 6C 74 61 3A 3D 32 2A 70 69 2F 28 6E 2D 31 delta:=2*pi/(n-1
0208F0: 29 3B 0D 0A 20 20 66 6F 72 20 69 3A 3D 31 20 74 );.. for i:=1 t
020900: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
020910: 20 20 20 7B 64 72 61 77 20 69 74 7D 0D 0A 0D 0A {draw it}....
020920: 20 20 44 72 61 77 41 78 69 73 28 38 2C 2D 37 2C DrawAxis(8,-7,
020930: 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 74 72 75 65 0,0,0,0,0,0,true
020940: 29 3B 20 20 20 20 7B 64 72 61 77 20 63 6F 6F 72 ); {draw coor
020950: 64 69 6E 61 74 65 20 61 78 69 73 7D 0D 0A 0D 0A dinate axis}....
020960: 65 6E 64 3B 0D 0A 0D 0A 0D 0A 62 65 67 69 6E 0D end;......begin.
020970: 0A 0D 0A 49 6E 69 74 47 72 61 70 68 69 63 3B 20 ...InitGraphic;
020980: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
020990: 20 20 20 20 20 20 20 20 20 7B 69 6E 69 74 69 61 {initia
0209A0: 6C 69 7A 65 20 74 68 65 20 67 72 61 70 68 69 63 lize the graphic
0209B0: 73 20 73 79 73 74 65 6D 7D 0D 0A 0D 0A 4F 6E 65 s system}....One
0209C0: 41 78 69 73 44 65 6D 3B 20 20 20 20 20 20 20 20 AxisDem;
0209D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0209E0: 20 20 20 7B 64 6F 20 74 68 65 20 64 65 6D 6F 7D {do the demo}
0209F0: 0D 0A 0D 0A 72 65 70 65 61 74 20 75 6E 74 69 6C ....repeat until
020A00: 20 6B 65 79 70 72 65 73 73 65 64 3B 20 20 20 20 keypressed;
020A10: 20 20 20 20 20 20 20 20 20 20 7B 77 61 69 74 20 {wait
020A20: 75 6E 74 69 6C 20 61 20 6B 65 79 20 69 73 20 70 until a key is p
020A30: 72 65 73 73 65 64 7D 0D 0A 0D 0A 4C 65 61 76 65 ressed}....Leave
020A40: 47 72 61 70 68 69 63 3B 20 20 20 20 20 20 20 20 Graphic;
020A50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
020A60: 20 7B 6C 65 61 76 65 20 74 68 65 20 67 72 61 70 {leave the grap
020A70: 68 69 63 73 20 73 79 73 74 65 6D 7D 0D 0A 0D 0A hics system}....
020A80: 65 6E 64 2E 0D 0A 0D 0A 1A 1A 1A 1A 1A 1A 1A 1A end.............
020A90: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
020AA0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
020AB0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
020AC0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
020AD0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
020AE0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
020AF0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
020B00: 6F 20 6E 20 64 6F 0D 0A 20 20 20 20 62 65 67 69 o n do.. begi
020B10: 6E 0D 0A 20 20 20 20 20 20 61 5B 69 2C 31 5D 3A n.. a[i,1]:
020B20: 3D 28 69 2D 31 29 2A 64 65 6C 74 61 2D 70 69 3B =(i-1)*delta-pi;
020B30: 0D 0A 20 20 20 20 20 20 61 5B 69 2C 32 5D 3A 3D .. a[i,2]:=
020B40: 73 69 6E 28 61 5B 69 2C 31 5D 29 3B 0D 0A 20 20 sin(a[i,1]);..
020B50: 20 20 65 6E 64 3B 0D 0A 65 6E 64 3B 0D 0A 0D 0A end;..end;....
020B60: 0D 0A 62 65 67 69 6E 0D 0A 20 20 43 6C 65 61 72 ..begin.. Clear
020B70: 53 63 72 65 65 6E 3B 0D 0A 0D 0A 20 20 6E 3A 3D Screen;.... n:=
020B80: 33 30 3B 0D 0A 20 20 47 65 6E 65 72 61 74 65 46 30;.. GenerateF
020B90: 75 6E 63 74 69 6F 6E 28 61 2C 62 2C 6E 29 3B 20 unction(a,b,n);
020BA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7B 67 {g
020BB0: 65 6E 65 72 61 74 69 6F 6E 20 64 75 20 70 6F 6C eneration du pol
020BC0: 79 67 6F 6E 65 7D 0D 0A 0D 0A 20 20 44 65 66 69 ygone}.... Defi
020BD0: 6E 65 57 69 6E 64 6F 77 28 31 2C 30 2C 30 2C 58 neWindow(1,0,0,X
020BE0: 4D 61 78 47 6C 62 2C 59 4D 61 78 47 6C 62 29 3B MaxGlb,YMaxGlb);
020BF0: 0D 0A 20 20 44 65 66 69 6E 65 48 65 61 64 65 72 .. DefineHeader
020C00: 28 31 2C 27 43 4F 55 52 42 45 20 53 49 4E 55 4F (1,'COURBE SINUO
020C10: 53 49 44 41 4C 45 27 29 3B 20 20 20 20 7B 6D 69 SIDALE'); {mi
020C20: 73 65 20 65 6E 20 70 6C 61 63 65 20 64 65 20 6C se en place de l
020C30: 27 27 65 63 72 61 6E 7D 0D 0A 20 20 44 65 66 69 ''ecran}.. Defi
020C40: 6E 65 57 6F 72 6C 64 28 31 2C 2D 70 69 2C 31 2C neWorld(1,-pi,1,
020C50: 70 69 2C 2D 31 29 3B 0D 0A 20 20 53 65 6C 65 63 pi,-1);.. Selec
020C60: 74 57 6F 72 6C 64 28 31 29 3B 0D 0A 20 20 53 65 tWorld(1);.. Se
020C70: 6C 65 63 74 57 69 6E 64 6F 77 28 31 29 3B 0D 0A lectWindow(1);..
020C80: 20 20 53 65 74 42 61 63 6B 67 72 6F 75 6E 64 28 SetBackground(
020C90: 30 29 3B 0D 0A 20 20 53 65 74 48 65 61 64 65 72 0);.. SetHeader
020CA0: 4F 6E 3B 0D 0A 20 20 44 72 61 77 42 6F 72 64 65 On;.. DrawBorde
020CB0: 72 3B 0D 0A 0D 0A 20 20 44 72 61 77 50 6F 6C 79 r;.... DrawPoly
020CC0: 67 6F 6E 28 61 2C 31 2C 6E 2C 30 2C 30 2C 30 29 gon(a,1,n,0,0,0)
020CD0: 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7B ; {
020CE0: 74 72 61 63 65 20 6C 65 20 70 6F 6C 79 67 6F 6E trace le polygon
020CF0: 65 7D 0D 0A 0D 0A 65 6E 64 3B 0D 0A 0D 0A 0D 0A e}....end;......
020D00: 70 72 6F 67 72 61 6D 20 4F 6E 65 50 6F 6C 79 67 program OnePolyg
020D10: 6F 6E 3B 0D 0A 0D 0A 7B 24 49 20 74 79 70 65 64 on;....{$I typed
020D20: 65 66 2E 73 79 73 7D 20 20 20 20 20 20 20 20 20 ef.sys}
020D30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
020D40: 7B 63 65 73 20 66 69 63 68 69 65 72 73 20 64 6F {ces fichiers do
020D50: 69 76 65 6E 74 20 65 74 72 65 7D 0D 0A 7B 24 49 ivent etre}..{$I
020D60: 20 67 72 61 70 68 69 78 2E 73 79 73 7D 20 20 20 graphix.sys}
020D70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
020D80: 20 20 20 20 20 20 7B 69 6E 63 6C 75 73 20 64 61 {inclus da
020D90: 6E 73 20 63 65 74 20 6F 72 64 72 65 7D 0D 0A 7B ns cet ordre}..{
020DA0: 24 49 20 6B 65 72 6E 65 6C 2E 73 79 73 7D 0D 0A $I kernel.sys}..
020DB0: 7B 24 49 20 6B 65 72 6E 65 6C 31 2E 73 79 73 7D {$I kernel1.sys}
020DC0: 0D 0A 7B 24 49 20 77 69 6E 64 6F 77 73 2E 73 79 ..{$I windows.sy
020DD0: 73 7D 0D 0A 7B 24 49 20 61 78 69 73 2E 68 67 68 s}..{$I axis.hgh
020DE0: 7D 0D 0A 7B 24 49 20 70 6F 6C 79 67 6F 6E 2E 68 }..{$I polygon.h
020DF0: 67 68 7D 0D 0A 0D 0A 0D 0A 70 72 6F 63 65 64 75 gh}......procedu
020E00: 72 65 20 50 6F 6C 79 67 6F 6E 44 65 6D 3B 0D 0A re PolygonDem;..
020E10: 76 61 72 20 6E 3A 69 6E 74 65 67 65 72 3B 0D 0A var n:integer;..
020E20: 20 20 20 20 62 2C 61 3A 50 6C 6F 74 41 72 72 61 b,a:PlotArra
020E30: 79 3B 0D 0A 20 20 20 20 63 68 3A 63 68 61 72 3B y;.. ch:char;
020E40: 0D 0A 20 20 20 20 78 31 2C 78 32 3A 69 6E 74 65 .. x1,x2:inte
020E50: 67 65 72 3B 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 ger;....procedur
020E60: 65 20 47 65 6E 65 72 61 74 65 46 75 6E 63 74 69 e GenerateFuncti
020E70: 6F 6E 28 76 61 72 20 61 2C 62 3A 50 6C 6F 74 41 on(var a,b:PlotA
020E80: 72 72 61 79 3B 6E 3A 69 6E 74 65 67 65 72 29 3B rray;n:integer);
020E90: 0D 0A 0D 0A 76 61 72 20 69 3A 69 6E 74 65 67 65 ....var i:intege
020EA0: 72 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 r;
020EB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 7B 67 65 {ge
020EC0: 6E 65 72 65 20 75 6E 20 70 6C 6F 79 67 6F 6E 65 nere un ploygone
020ED0: 7D 0D 0A 20 20 20 20 64 65 6C 74 61 3A 72 65 61 }.. delta:rea
020EE0: 6C 3B 0D 0A 0D 0A 62 65 67 69 6E 0D 0A 20 20 64 l;....begin.. d
020EF0: 65 6C 74 61 3A 3D 32 2A 70 69 2F 28 6E 2D 31 29 elta:=2*pi/(n-1)
020F00: 0D 0A 62 65 67 69 6E 0D 0A 0D 0A 49 6E 69 74 47 ..begin....InitG
020F10: 72 61 70 68 69 63 3B 20 20 20 20 20 20 20 20 20 raphic;
020F20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
020F30: 20 20 20 20 7B 69 6E 69 74 69 61 6C 69 73 65 20 {initialise
020F40: 6C 65 73 20 67 72 61 70 68 69 73 6D 65 73 7D 0D les graphismes}.
020F50: 0A 0D 0A 50 6F 6C 79 67 6F 6E 44 65 6D 3B 20 20 ...PolygonDem;
020F60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
020F70: 20 20 20 20 20 20 20 20 20 20 20 20 7B 66 61 69 {fai
020F80: 74 20 6C 61 20 64 65 6D 6F 7D 0D 0A 0D 0A 72 65 t la demo}....re
020F90: 70 65 61 74 20 75 6E 74 69 6C 20 6B 65 79 70 72 peat until keypr
020FA0: 65 73 73 65 64 3B 20 20 20 20 20 20 20 20 20 20 essed;
020FB0: 20 20 20 20 20 20 20 7B 61 74 74 65 6E 64 20 6A {attend j
020FC0: 75 73 71 75 27 27 61 20 63 65 20 71 75 27 27 75 usqu''a ce qu''u
020FD0: 6E 65 20 74 6F 75 63 68 65 20 73 6F 69 74 20 66 ne touche soit f
020FE0: 72 61 70 70 65 65 7D 0D 0A 0D 0A 4C 65 61 76 65 rappee}....Leave
020FF0: 47 72 61 70 68 69 63 3B 20 20 20 20 20 20 20 20 Graphic;
021000: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
021010: 20 20 20 20 7B 71 75 69 74 74 65 20 6C 65 20 67 {quitte le g
021020: 72 61 70 68 69 73 6D 65 7D 0D 0A 0D 0A 65 6E 64 raphisme}....end
021030: 2E 0D 0A 0D 0A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
021040: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
021050: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
021060: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
021070: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
021080: 20 20 53 65 74 42 61 63 6B 67 72 6F 75 6E 64 28 SetBackground(
021090: 30 29 3B 0D 0A 20 20 53 65 74 48 65 61 64 65 72 0);.. SetHeader
0210A0: 4F 6E 3B 0D 0A 20 20 44 72 61 77 42 6F 72 64 65 On;.. DrawBorde
0210B0: 72 3B 0D 0A 0D 0A 20 20 44 72 61 77 50 6F 6C 79 r;.... DrawPoly
0210C0: 67 6F 6E 28 61 2C 31 2C 6E 2C 30 2C 30 2C 30 29 gon(a,1,n,0,0,0)
0210D0: 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7B ; {
0210E0: 74 72 61 63 65 20 6C 65 20 70 6F 6C 79 67 6F 6E trace le polygon
0210F0: 65 7D 0D 0A 0D 0A 65 6E 64 3B 0D 0A 0D 0A 0D 0A e}....end;......
021100: 3B 0D 0A 20 20 66 6F 72 20 69 3A 3D 31 20 74 6F ;.. for i:=1 to
021110: 20 6E 20 64 6F 0D 0A 20 20 20 20 62 65 67 69 6E n do.. begin
021120: 0D 0A 20 20 20 20 20 20 61 5B 69 2C 31 5D 3A 3D .. a[i,1]:=
021130: 28 69 2D 31 29 2A 64 65 6C 74 61 2D 70 69 3B 0D (i-1)*delta-pi;.
021140: 0A 20 20 20 20 20 20 61 5B 69 2C 32 5D 3A 3D 73 . a[i,2]:=s
021150: 69 6E 28 61 5B 69 2C 31 5D 29 3B 0D 0A 20 20 20 in(a[i,1]);..
021160: 20 65 6E 64 3B 0D 0A 65 6E 64 3B 0D 0A 0D 0A 0D end;..end;.....
021170: 0A 62 65 67 69 6E 0D 0A 20 20 43 6C 65 61 72 53 .begin.. ClearS
021180: 63 72 65 65 6E 3B 0D 0A 0D 0A 20 20 6E 3A 3D 33 creen;.... n:=3
021190: 30 3B 0D 0A 20 20 47 65 6E 65 72 61 74 65 46 75 0;.. GenerateFu
0211A0: 6E 63 74 69 6F 6E 28 61 2C 62 2C 6E 29 3B 20 20 nction(a,b,n);
0211B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 7B 67 65 {ge
0211C0: 6E 65 72 61 74 69 6F 6E 20 64 75 20 20 70 6F 6C neration du pol
0211D0: 79 67 6F 6E 65 7D 0D 0A 0D 0A 20 20 44 65 66 69 ygone}.... Defi
0211E0: 6E 65 57 69 6E 64 6F 77 28 31 2C 30 2C 30 2C 58 neWindow(1,0,0,X
0211F0: 4D 61 78 47 6C 62 2C 59 4D 61 78 47 6C 62 29 3B MaxGlb,YMaxGlb);
021200: 0D 0A 20 20 44 65 66 69 6E 65 48 65 61 64 65 72 .. DefineHeader
021210: 28 31 2C 27 43 4F 55 52 42 45 20 53 49 4E 55 4F (1,'COURBE SINUO
021220: 53 49 44 41 4C 45 20 43 4F 4D 4D 45 20 55 4E 20 SIDALE COMME UN
021230: 50 4F 4C 59 47 4F 4E 45 27 29 3B 20 20 20 20 7B POLYGONE'); {
021240: 6D 69 73 65 20 65 6E 20 70 6C 61 63 65 20 64 65 mise en place de
021250: 20 6C 27 27 65 63 72 61 6E 7D 0D 0A 20 20 44 65 l''ecran}.. De
021260: 66 69 6E 65 57 6F 72 6C 64 28 31 2C 2D 70 69 2C fineWorld(1,-pi,
021270: 31 2C 70 69 2C 2D 31 29 3B 0D 0A 20 20 53 65 6C 1,pi,-1);.. Sel
021280: 65 63 74 57 6F 72 6C 64 28 31 29 3B 0D 0A 20 20 ectWorld(1);..
021290: 53 65 6C 65 63 74 57 69 6E 64 6F 77 28 31 29 3B SelectWindow(1);
0212A0: 0D 0A 20 20 53 65 74 42 61 63 6B 67 72 6F 75 6E .. SetBackgroun
0212B0: 64 28 30 29 3B 0D 0A 20 20 53 65 74 48 65 61 64 d(0);.. SetHead
0212C0: 65 72 4F 6E 3B 0D 0A 20 20 44 72 61 77 42 6F 72 erOn;.. DrawBor
0212D0: 64 65 72 3B 0D 0A 0D 0A 20 20 44 72 61 77 41 78 der;.... DrawAx
0212E0: 69 73 28 38 2C 2D 38 2C 30 2C 30 2C 30 2C 30 2C is(8,-8,0,0,0,0,
0212F0: 30 2C 30 2C 66 61 6C 73 65 29 3B 20 20 20 20 20 0,0,false);
021300: 00 00 00 00 00 04 00 00 00 04 82 00 00 0C C3 C3 ................
021310: 82 49 C3 C3 C3 14 3C 69 C3 00 3C 3C 82 00 FF 3C .I....<i..<<...<
021320: 28 14 3C BE 00 00 3C 3C 00 00 7D 3C 00 00 3C 7D (.<...<<..}<..<}
021330: 28 14 00 14 28 00 00 00 14 00 00 00 00 00 00 00 (...(...........
021340: 00 00 00 00 00 00 00 00 00 04 00 00 00 04 96 28 ...............(
021350: 00 14 7D 3C 28 49 3C 7D C3 14 3C 3C 69 00 3C 3C ..}<(I<}..<<i.<<
021360: 82 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
021370: 00 00 00 00 00 00 00 00 00 00 28 00 00 00 14 00 ..........(.....
021380: 00 00 14 3C 00 00 7D BE 3C 00 14 7D 28 04 14 3C ...<..}.<..}(..<
021390: 28 04 3C BE 00 0C 3C 3C 82 49 C3 3C 69 41 C3 C3 (.<...<<.I.<iA..
0213A0: C3 00 41 C3 82 00 00 00 00 00 00 00 00 00 00 00 ..A.............
0213B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0213C0: 00 00 00 00 00 00 00 00 00 04 00 00 00 04 96 28 ...............(
0213D0: 00 14 7D 3C 28 49 3C 7D C3 14 3C 3C 69 00 3C 3C ..}<(I<}..<<i.<<
0213E0: 82 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0213F0: 00 00 00 00 00 00 00 00 00 14 00 00 00 28 00 00 .............(..
021400: 3C 28 00 3C 7D BE 00 14 BE 28 00 14 3C 28 08 00 <(.<}....(..<(..
021410: 7D 3C 08 41 3C 3C 0C 96 3C C3 86 C3 C3 C3 82 41 }<.A<<..<......A
021420: C3 82 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
021430: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
021440: 00 00 00 00 00 00 00 00 00 00 08 00 14 69 08 14 .............i..
021450: 3C BE 2C C3 BE 3C 86 96 3C 3C 28 41 3C 3C 00 00 <.,..<..<<(A<<..
021460: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
021470: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
021480: 00 00 00 00 00 00 08 00 00 41 08 41 C3 C3 0C C3 .........A.A....
021490: C3 C3 86 C3 96 3C 28 41 3C 3C 00 14 3C FF 00 00 .....<(A<<..<...
0214A0: 7D 3C 28 00 3C 3C 00 00 3C BE 00 14 BE 3C 00 14 }<(.<<..<....<..
0214B0: 28 00 28 28 00 00 00 00 00 00 00 00 00 00 00 00 (.((............
0214C0: 00 00 00 00 00 00 00 00 00 00 08 00 14 69 08 14 .............i..
0214D0: 3C BE 2C C3 BE 3C 86 96 3C 3C 28 41 3C 3C 00 00 <.,..<..<<(A<<..
0214E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0214F0: 00 00 00 00 00 00 00 66 33 33 66 99 CC 33 99 99 .......f33f..3..
021500: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
021510: 1C 00 01 00 02 09 50 E5 1C 00 41 02 00 00 00 02 ......P...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: 20 7B 74 72 61 63 65 20 6C 65 73 20 61 78 65 73 {trace les axes
021610: 7D 0D 0A 0D 0A 20 20 44 72 61 77 50 6F 6C 79 67 }.... DrawPolyg
021620: 6F 6E 28 61 2C 31 2C 6E 2C 30 2C 30 2C 30 29 3B on(a,1,n,0,0,0);
021630: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7B 74 {t
021640: 72 61 63 65 20 6C 65 20 70 6F 6C 79 67 6F 6E 65 race le polygone
021650: 7D 0D 0A 0D 0A 65 6E 64 3B 0D 0A 0D 0A 0D 0A 0D }....end;.......
021660: 0A 62 65 67 69 6E 0D 0A 0D 0A 49 6E 69 74 47 72 .begin....InitGr
021670: 61 70 68 69 63 3B 20 20 20 20 20 20 20 20 20 20 aphic;
021680: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
021690: 20 20 20 7B 69 6E 69 74 69 61 6C 69 73 65 20 6C {initialise l
0216A0: 65 73 20 67 72 61 70 68 69 73 6D 65 73 7D 0D 0A es graphismes}..
0216B0: 0D 0A 50 6F 6C 79 67 6F 6E 44 65 6D 3B 20 20 20 ..PolygonDem;
0216C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0216D0: 20 20 20 20 20 20 20 20 20 20 20 7B 66 61 69 74 {fait
0216E0: 20 6C 61 20 64 65 6D 6F 7D 0D 0A 0D 0A 72 65 70 la demo}....rep
0216F0: 65 61 74 20 75 6E 74 69 6C 20 6B 65 79 70 72 65 eat until keypre
021700: 73 73 65 64 3B 20 20 20 20 20 20 20 20 20 20 20 ssed;
021710: 20 20 20 20 20 20 7B 61 74 74 65 6E 64 20 6A 75 {attend ju
021720: 73 71 75 27 27 61 20 63 65 20 71 75 65 20 75 6E squ''a ce que un
021730: 65 20 74 6F 75 63 68 65 20 73 6F 69 74 20 66 72 e touche soit fr
021740: 61 70 70 65 65 7D 0D 0A 0D 0A 4C 65 61 76 65 47 appee}....LeaveG
021750: 72 61 70 68 69 63 3B 20 20 20 20 20 20 20 20 20 raphic;
021760: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
021770: 20 20 20 7B 6C 65 61 76 65 20 74 68 65 20 67 72 {leave the gr
021780: 61 70 68 69 63 73 20 73 79 73 74 65 6D 7D 0D 0A aphics system}..
021790: 0D 0A 65 6E 64 2E 0D 0A 0D 0A 1A 1A 1A 1A 1A 1A ..end...........
0217A0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0217B0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0217C0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0217D0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0217E0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0217F0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
021800: 61 5B 69 2B 31 2C 32 5D 3A 3D 72 61 6E 64 6F 6D a[i+1,2]:=random
021810: 3B 0D 0A 20 20 20 20 65 6E 64 3B 0D 0A 0D 0A 20 ;.. end;....
021820: 20 53 65 74 43 6F 6C 6F 72 57 68 69 74 65 3B 20 SetColorWhite;
021830: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
021840: 20 20 20 7B 6D 69 73 65 20 65 6E 20 70 6C 61 63 {mise en plac
021850: 65 20 64 65 73 20 62 61 72 72 65 73 20 7D 0D 0A e des barres }..
021860: 20 20 53 65 74 42 61 63 6B 67 72 6F 75 6E 64 28 SetBackground(
021870: 30 29 3B 0D 0A 20 20 53 65 74 48 65 61 64 65 72 0);.. SetHeader
021880: 4F 6E 3B 0D 0A 20 20 44 65 66 69 6E 65 57 69 6E On;.. DefineWin
021890: 64 6F 77 28 31 2C 30 2C 30 2C 58 4D 61 78 47 6C dow(1,0,0,XMaxGl
0218A0: 62 2C 59 4D 61 78 47 6C 62 29 3B 0D 0A 20 20 44 b,YMaxGlb);.. D
0218B0: 65 66 69 6E 65 48 65 61 64 65 72 28 31 2C 27 48 efineHeader(1,'H
0218C0: 49 53 54 4F 47 52 41 4D 4D 45 20 48 41 43 48 55 ISTOGRAMME HACHU
0218D0: 52 45 20 41 4C 45 41 54 4F 49 52 45 4D 45 4E 54 RE ALEATOIREMENT
0218E0: 27 29 3B 0D 0A 20 20 44 65 66 69 6E 65 57 6F 72 ');.. DefineWor
0218F0: 6C 64 28 31 2C 2D 31 30 2C 31 2E 30 2C 31 30 2C ld(1,-10,1.0,10,
021900: 30 29 3B 0D 0A 20 20 53 65 6C 65 63 74 57 6F 72 0);.. SelectWor
021910: 6C 64 28 31 29 3B 0D 0A 20 20 53 65 6C 65 63 74 ld(1);.. Select
021920: 57 69 6E 64 6F 77 28 31 29 3B 0D 0A 0D 0A 20 20 Window(1);....
021930: 44 72 61 77 42 6F 72 64 65 72 3B 20 20 20 20 20 DrawBorder;
021940: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
021950: 20 20 7B 74 72 61 63 65 20 6C 61 20 66 65 6E 74 {trace la fent
021960: 72 65 7D 0D 0A 0D 0A 0D 0A 20 20 48 61 74 63 68 re}...... Hatch
021970: 3A 3D 74 72 75 65 3B 20 20 20 20 20 20 20 20 20 :=true;
021980: 20 20 20 20 20 20 20 20 20 20 20 20 20 7B 64 65 {de
021990: 73 61 63 74 69 76 65 20 6C 65 20 68 61 63 68 75 sactive le hachu
0219A0: 72 61 67 65 7D 0D 0A 20 20 48 61 74 63 68 44 65 rage}.. HatchDe
0219B0: 6E 3A 3D 37 3B 0D 0A 0D 0A 0D 0A 20 20 44 72 61 n:=7;...... Dra
0219C0: 77 48 69 73 74 6F 67 72 61 6D 28 61 2C 2D 44 69 wHistogram(a,-Di
0219D0: 73 70 6C 79 4C 65 6E 2C 48 61 74 63 68 2C 48 61 splyLen,Hatch,Ha
0219E0: 74 63 68 44 65 6E 29 3B 20 20 20 7B 74 72 61 63 tchDen); {trac
0219F0: 65 20 6C 27 27 6F 72 67 61 6E 69 67 72 61 6D 6D e l''organigramm
021A00: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
021A10: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
021A20: 00 00 00 11 33 33 22 62 FF D5 33 77 D5 EA BB 33 ....33"b..3w...3
021A30: EA FF 91 11 33 33 22 00 00 00 00 00 00 00 00 00 ....33".........
021A40: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
021A50: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
021A60: 00 00 00 00 00 00 00 00 00 00 00 00 FC FC 00 54 ...............T
021A70: FC FC A8 54 54 A8 A8 FC 54 A8 FC A8 54 A8 54 A8 ...TT...T...T.T.
021A80: 54 A8 54 A8 FC FC 54 FC A8 54 FC FC 00 00 FC 54 T.T...T..T.....T
021A90: 00 00 A8 54 A8 54 A8 00 FC FC 00 00 00 00 00 00 ...T.T..........
021AA0: 00 00 00 00 00 00 00 00 00 00 00 00 54 A8 00 00 ............T...
021AB0: FC FC 00 00 FC FC 00 54 A8 FC A8 54 A8 A8 A8 54 .......T...T...T
021AC0: A8 A8 A8 54 A8 A8 A8 54 FC FC A8 54 FC 54 A8 00 ...T...T...T.T..
021AD0: FC 54 00 00 FC FC 00 00 54 A8 00 00 00 00 00 00 .T......T.......
021AE0: 00 00 00 00 00 00 00 00 00 00 00 00 54 A8 00 00 ............T...
021AF0: 54 A8 00 00 54 A8 00 00 54 A8 00 00 54 A8 00 00 T...T...T...T...
021B00: 54 A8 00 00 54 A8 00 00 54 A8 00 00 54 A8 00 00 T...T...T...T...
021B10: 54 A8 00 00 54 A8 00 00 54 A8 00 00 00 00 00 00 T...T...T.......
021B20: 00 00 00 00 00 00 00 00 00 00 00 00 54 A8 00 00 ............T...
021B30: FC FC 00 00 FC FC 00 54 FC 54 A8 54 54 54 A8 54 .......T.T.TTT.T
021B40: 54 54 A8 54 54 54 A8 54 FC FC A8 54 A8 FC A8 00 TT.TTT.T...T....
021B50: A8 FC 00 00 FC FC 00 00 54 A8 00 00 00 00 00 00 ........T.......
021B60: 00 00 00 00 FC FC 00 54 EC DC A8 FC DC CC FC EC .......T........
021B70: FC FC DC FC CC CC FC 54 EC FC A8 00 54 A8 00 00 .......T....T...
021B80: 54 A8 00 00 FC FC 00 00 FC FC 00 00 54 A8 00 00 T...........T...
021B90: 54 A8 00 00 FC FC 00 00 FC FC 00 FF FF 00 FF EB T...............
021BA0: D7 FF C3 D7 EB C3 FF AA 55 FF FF 00 54 00 54 00 ........U...T.T.
021BB0: DC 00 DC 54 DC 54 DC DC DC DC DC 88 00 88 00 DC ...T.T..........
021BC0: 00 DC 00 DC 88 DC 88 DC DC DC DC DC DC DC DC DC ................
021BD0: DC DC DC DC DC DC DC 00 00 00 33 00 00 11 33 00 ..........3...3.
021BE0: 00 33 33 00 00 33 33 00 11 33 33 00 11 33 33 00 .33..33..33..33.
021BF0: 3B 49 19 51 11 0C 19 15 11 49 19 51 11 19 19 00 ;I.Q.....I.Q....
021C00: 65 7D 0D 0A 0D 0A 65 6E 64 3B 0D 0A 0D 0A 0D 0A e}....end;......
021C10: 62 65 67 69 6E 0D 0A 0D 0A 49 6E 69 74 47 72 61 begin....InitGra
021C20: 70 68 69 63 3B 20 20 20 20 20 20 20 20 20 20 20 phic;
021C30: 20 20 20 20 20 20 20 20 20 20 20 20 20 7B 69 6E {in
021C40: 69 74 69 61 6C 69 73 65 20 6C 65 73 20 67 72 61 itialise les gra
021C50: 70 68 69 73 6D 65 73 7D 0D 0A 0D 0A 48 69 73 74 phismes}....Hist
021C60: 6F 44 65 6D 3B 20 20 20 20 20 20 20 20 20 20 20 oDem;
021C70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
021C80: 7B 66 61 69 74 20 6C 61 20 64 65 6D 6F 7D 0D 0A {fait la demo}..
021C90: 0D 0A 72 65 70 65 61 74 20 75 6E 74 69 6C 20 6B ..repeat until k
021CA0: 65 79 70 72 65 73 73 65 64 3B 20 20 20 20 20 20 eypressed;
021CB0: 20 20 20 20 20 20 7B 61 74 74 65 6E 64 20 6A 75 {attend ju
021CC0: 73 71 75 27 27 61 20 63 65 20 71 75 27 27 75 6E squ''a ce qu''un
021CD0: 65 20 74 6F 75 63 68 65 20 73 6F 69 74 20 66 72 e touche soit fr
021CE0: 61 70 70 65 65 7D 0D 0A 0D 0A 4C 65 61 76 65 47 appee}....LeaveG
021CF0: 72 61 70 68 69 63 3B 20 20 20 20 20 20 20 20 20 raphic;
021D00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7B 71 {q
021D10: 75 69 74 74 65 20 6C 65 20 67 72 61 70 68 69 73 uitte le graphis
021D20: 6D 65 7D 0D 0A 0D 0A 65 6E 64 2E 0D 0A 0D 0A 1A me}....end......
021D30: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
021D40: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
021D50: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
021D60: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
021D70: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
021D80: 20 20 20 20 20 20 20 20 20 20 20 20 20 7B 64 65 {de
021D90: 73 61 63 74 69 76 65 20 6C 65 20 68 61 63 68 75 sactive le hachu
021DA0: 72 61 67 65 7D 0D 0A 20 20 48 61 74 63 68 44 65 rage}.. HatchDe
021DB0: 6E 3A 3D 37 3B 0D 0A 0D 0A 0D 0A 20 20 44 72 61 n:=7;...... Dra
021DC0: 77 48 69 73 74 6F 67 72 61 6D 28 61 2C 2D 44 69 wHistogram(a,-Di
021DD0: 73 70 6C 79 4C 65 6E 2C 48 61 74 63 68 2C 48 61 splyLen,Hatch,Ha
021DE0: 74 63 68 44 65 6E 29 3B 20 20 20 7B 74 72 61 63 tchDen); {trac
021DF0: 65 20 6C 27 27 6F 72 67 61 6E 69 67 72 61 6D 6D e l''organigramm
021E00: 70 72 6F 67 72 61 6D 20 53 69 6D 70 6C 65 57 69 program SimpleWi
021E10: 6E 64 6F 77 3B 0D 0A 0D 0A 7B 24 49 20 74 79 70 ndow;....{$I typ
021E20: 65 64 65 66 2E 73 79 73 7D 20 20 20 20 20 20 20 edef.sys}
021E30: 20 20 20 20 20 20 7B 63 65 73 20 66 69 63 68 69 {ces fichi
021E40: 65 72 73 20 64 6F 69 76 65 6E 74 20 65 74 72 65 ers doivent etre
021E50: 20 7D 0D 0A 7B 24 49 20 67 72 61 70 68 69 78 2E }..{$I graphix.
021E60: 73 79 73 7D 20 20 20 20 20 20 20 20 20 20 20 20 sys}
021E70: 20 7B 69 6E 63 6C 75 73 20 64 61 6E 73 20 63 65 {inclus dans ce
021E80: 74 20 6F 72 64 72 65 7D 0D 0A 7B 24 49 20 6B 65 t ordre}..{$I ke
021E90: 72 6E 65 6C 2E 73 79 73 7D 0D 0A 7B 24 49 20 6B rnel.sys}..{$I k
021EA0: 65 72 6E 65 6C 31 2E 73 79 73 7D 0D 0A 7B 24 49 ernel1.sys}..{$I
021EB0: 20 77 69 6E 64 6F 77 73 2E 73 79 73 7D 0D 0A 0D windows.sys}...
021EC0: 0A 0D 0A 0D 0A 62 65 67 69 6E 0D 0A 0D 0A 49 6E .....begin....In
021ED0: 69 74 47 72 61 70 68 69 63 3B 20 20 20 20 20 20 itGraphic;
021EE0: 20 20 20 20 20 20 20 20 20 20 20 7B 69 6E 69 74 {init
021EF0: 69 61 6C 69 73 65 20 6C 65 73 20 67 72 61 70 68 ialise les graph
021F00: 69 73 6D 65 73 7D 0D 0A 0D 0A 0D 0A 44 72 61 77 ismes}......Draw
021F10: 42 6F 72 64 65 72 3B 20 20 20 20 20 20 20 20 20 Border;
021F20: 20 20 20 20 20 20 20 20 20 7B 74 72 61 63 65 20 {trace
021F30: 75 6E 65 20 62 6F 72 64 75 72 65 20 61 75 74 6F une bordure auto
021F40: 75 72 20 64 75 20 64 65 73 73 69 6E 7D 0D 0A 20 ur du dessin}..
021F50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
021F60: 20 20 20 20 20 20 20 20 20 20 20 20 7B 61 69 72 {air
021F70: 65 20 64 65 20 6C 61 20 66 65 6E 65 74 72 65 20 e de la fenetre
021F80: 70 72 69 6D 61 69 72 65 7D 0D 0A 0D 0A 44 65 66 primaire}....Def
021F90: 69 6E 65 57 69 6E 64 6F 77 28 31 2C 31 30 2C 32 ineWindow(1,10,2
021FA0: 30 2C 58 4D 61 78 47 6C 62 2D 31 30 2C 59 4D 61 0,XMaxGlb-10,YMa
021FB0: 78 47 6C 62 2D 32 30 29 3B 20 7B 64 65 66 69 6E xGlb-20); {defin
021FC0: 69 74 20 75 6E 65 20 66 65 6E 65 74 72 65 20 64 it une fenetre d
021FD0: 65 20 38 30 20 70 69 78 65 6C 73 7D 0D 0A 0D 0A e 80 pixels}....
021FE0: 44 65 66 69 6E 65 48 65 61 64 65 72 28 31 2C 27 DefineHeader(1,'
021FF0: 43 27 45 53 54 20 55 4E 45 20 53 49 4D 50 4C 45 C'EST UNE SIMPLE
022000: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
022010: 00 00 00 00 00 00 00 00 00 00 00 00 04 00 00 00 ................
022020: AC A8 00 54 00 54 00 88 00 00 88 CC CC CC 88 88 ...T.T..........
022030: 88 88 88 CC CC CC 88 88 88 88 88 CC CC CC 88 CC ................
022040: 44 44 88 44 CC CC 00 00 08 00 08 00 08 41 49 41 DD.D.........AIA
022050: 0C 11 FC 11 FC 41 0C 3C 28 78 28 39 28 78 28 39 .....A.<(x(9(x(9
022060: 28 78 28 39 28 3C 28 00 FF FF 00 55 FF FF AA FF (x(9(<(....U....
022070: FF FF FF FF FF FF FF FF FF FF BE FF FF FF BE FF ................
022080: FF FF 3C FF 3C 3C 3C EB 3C 3C 96 EB 86 0C 1C EB ..<.<<<.<<......
022090: C6 5C 1C EB AC 8C 1C FF 86 0C 3C FF 3C 3C 7D 55 .\........<.<<}U
0220A0: 3C 3C 28 00 FF 7D 00 41 82 C3 C3 C3 86 86 0C 86 <<(..}.A........
0220B0: 1C 96 3C 96 2C 04 08 00 00 00 00 00 00 00 00 00 ..<.,...........
0220C0: 00 00 00 00 00 00 00 00 00 00 00 3C 3C 3C 3C 3C ...........<<<<<
0220D0: 3C 3C 3C 3C 3C 3C 3C 39 33 33 36 7D FF FF BE 7D <<<<<<<9336}...}
0220E0: 0C 0C BE 7D FF FF BE 7D FF FF BE 7D FF FF BE 7D ...}...}...}...}
0220F0: FF FF BE 3C 3C 3C 3C 4F 4F 0C 0C D5 C0 D5 C0 0C ...<<<<OO.......
022100: 0C 8F 8F 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
022110: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
022120: 00 00 00 FC FC FC A8 FC FC FD A8 C0 C0 C0 80 FC ................
022130: FC FC A8 FD 7D 7D A8 BC BE BE A8 FD 7D 7D A8 BC ....}}......}}..
022140: BE BE A8 FC FC FC A8 00 00 00 00 00 00 00 00 00 ................
022150: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
022160: 00 00 00 FF FF FF FF BB 77 FF FF FF FF FF FF 33 ........w......3
022170: 33 33 33 FF FF FF FF BB BB BB AE 77 77 77 1C BB 333........www..
022180: BB AE 38 FF FF 1C 75 0C 0C 0C 0C 0C 0C 0C 0C 0C ..8...u.........
022190: 0C 0C 0C 0C 0C 0C 0C CC CC CC CC CC CC CC CC CC ................
0221A0: CC CC CC CC CC CC CC 33 93 33 33 93 33 33 93 33 .......3.33.33.3
0221B0: 33 63 33 33 63 33 33 00 00 00 00 00 00 00 00 00 3c33c33.........
0221C0: 1A 5F 00 27 04 35 31 2C 39 39 2C 35 31 2C 35 31 ._.'.51,99,51,51
0221D0: 0D 1A FF 00 FF 00 00 08 00 00 C3 96 00 00 00 00 ................
0221E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0221F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
022200: 20 46 45 4E 45 54 52 45 27 29 3B 20 7B 64 6F 6E FENETRE'); {don
022210: 6E 65 20 6C 27 27 65 6E 74 65 74 65 7D 0D 0A 0D ne l''entete}...
022220: 0A 53 65 74 48 65 61 64 65 72 4F 6E 3B 0D 0A 0D .SetHeaderOn;...
022230: 0A 44 65 66 69 6E 65 57 6F 72 6C 64 28 31 2C 30 .DefineWorld(1,0
022240: 2C 31 30 30 30 2C 31 30 30 30 2C 30 29 3B 20 7B ,1000,1000,0); {
022250: 64 6F 6E 6E 65 20 6C 65 20 6D 6F 6E 64 65 20 64 donne le monde d
022260: 65 20 63 6F 6F 72 64 6F 6E 6E 65 65 73 20 73 79 e coordonnees sy
022270: 73 74 65 6D 65 7D 0D 0A 0D 0A 53 65 6C 65 63 74 steme}....Select
022280: 57 69 6E 64 6F 77 28 31 29 3B 20 20 20 20 20 20 Window(1);
022290: 20 20 20 20 20 20 20 20 20 7B 63 68 6F 69 73 69 {choisi
0222A0: 74 20 6C 61 20 66 65 6E 65 74 72 65 7D 0D 0A 0D t la fenetre}...
0222B0: 0A 53 65 6C 65 63 74 57 6F 72 6C 64 28 31 29 3B .SelectWorld(1);
0222C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0222D0: 7B 63 68 6F 69 73 69 74 20 6C 65 20 6D 6F 6E 64 {choisit le mond
0222E0: 65 7D 0D 0A 0D 0A 53 65 74 42 61 63 6B 67 72 6F e}....SetBackgro
0222F0: 75 6E 64 28 38 35 29 3B 20 20 20 20 20 20 20 20 und(85);
022300: 20 20 20 20 20 7B 64 6F 6E 6E 65 20 6C 27 27 61 {donne l''a
022310: 72 72 69 65 72 65 20 70 6C 61 6E 20 67 72 69 73 rriere plan gris
022320: 7D 7D 0D 0A 0D 0A 44 72 61 77 42 6F 72 64 65 72 }}....DrawBorder
022330: 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ;
022340: 20 20 20 20 20 7B 74 72 61 63 65 20 6C 61 20 62 {trace la b
022350: 6F 72 64 75 72 65 7D 0D 0A 0D 0A 72 65 70 65 61 ordure}....repea
022360: 74 20 75 6E 74 69 6C 20 6B 65 79 70 72 65 73 73 t until keypress
022370: 65 64 3B 20 20 20 20 20 20 20 7B 61 74 74 65 6E ed; {atten
022380: 64 20 6A 75 73 71 75 27 27 61 20 63 65 20 71 75 d jusqu''a ce qu
022390: 27 27 75 6E 65 20 74 6F 75 63 68 65 20 73 6F 69 ''une touche soi
0223A0: 74 20 66 72 61 70 70 65 65 7D 0D 0A 0D 0A 4C 65 t frappee}....Le
0223B0: 61 76 65 47 72 61 70 68 69 63 3B 20 20 20 20 20 aveGraphic;
0223C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 7B 71 75 {qu
0223D0: 69 74 74 65 20 6C 65 73 20 67 72 61 70 68 69 73 itte les graphis
0223E0: 6D 65 73 7D 0D 0A 0D 0A 65 6E 64 2E 0D 0A 1A 1A mes}....end.....
0223F0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
022400: 70 72 6F 67 72 61 6D 20 4F 6E 65 50 69 65 44 65 program OnePieDe
022410: 6D 6F 3B 0D 0A 0D 0A 7B 24 49 20 74 79 70 65 64 mo;....{$I typed
022420: 65 66 2E 73 79 73 7D 20 20 20 20 20 20 20 20 20 ef.sys}
022430: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7B {
022440: 63 65 73 20 66 69 63 68 69 65 72 73 20 64 6F 69 ces fichiers doi
022450: 76 65 6E 74 20 65 74 72 65 7D 0D 0A 7B 24 49 20 vent etre}..{$I
022460: 67 72 61 70 68 69 78 2E 73 79 73 7D 20 20 20 20 graphix.sys}
022470: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
022480: 20 20 20 20 7B 69 6E 63 6C 75 73 20 64 61 6E 73 {inclus dans
022490: 20 63 65 74 20 6F 72 64 72 65 7D 0D 0A 7B 24 49 cet ordre}..{$I
0224A0: 20 6B 65 72 6E 65 6C 2E 73 79 73 7D 0D 0A 7B 24 kernel.sys}..{$
0224B0: 49 20 6B 65 72 6E 65 6C 31 2E 73 79 73 7D 0D 0A I kernel1.sys}..
0224C0: 7B 24 49 20 77 69 6E 64 6F 77 73 2E 73 79 73 7D {$I windows.sys}
0224D0: 0D 0A 7B 24 49 20 63 69 72 63 73 65 67 6D 2E 68 ..{$I circsegm.h
0224E0: 67 68 7D 0D 0A 7B 24 49 20 70 69 65 2E 68 67 68 gh}..{$I pie.hgh
0224F0: 7D 0D 0A 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 65 }......procedure
022500: 20 4F 6E 65 50 69 65 44 65 6D 3B 0D 0A 0D 0A 76 OnePieDem;....v
022510: 61 72 20 73 75 6D 2C 78 31 2C 79 31 2C 52 61 64 ar sum,x1,y1,Rad
022520: 69 75 73 2C 54 68 65 74 61 2C 49 6E 52 61 64 69 ius,Theta,InRadi
022530: 75 73 2C 4F 75 74 52 61 64 69 75 73 3A 72 65 61 us,OutRadius:rea
022540: 6C 3B 0D 0A 20 20 20 20 6E 2C 4D 6F 64 65 2C 53 l;.. n,Mode,S
022550: 69 7A 65 3A 69 6E 74 65 67 65 72 3B 0D 0A 20 20 ize:integer;..
022560: 20 20 61 3A 50 69 65 41 72 72 61 79 3B 0D 0A 20 a:PieArray;..
022570: 20 20 20 62 61 63 6B 3A 62 79 74 65 3B 0D 0A 20 back:byte;..
022580: 20 20 20 63 68 3A 63 68 61 72 3B 0D 0A 0D 0A 62 ch:char;....b
022590: 65 67 69 6E 0D 0A 20 20 43 6C 65 61 72 53 63 72 egin.. ClearScr
0225A0: 65 65 6E 3B 0D 0A 20 20 53 65 74 43 6F 6C 6F 72 een;.. SetColor
0225B0: 57 68 69 74 65 3B 0D 0A 0D 0A 20 20 44 65 66 69 White;.... Defi
0225C0: 6E 65 57 69 6E 64 6F 77 28 31 2C 30 2C 30 2C 58 neWindow(1,0,0,X
0225D0: 4D 61 78 47 6C 62 2C 59 4D 61 78 47 6C 62 29 3B MaxGlb,YMaxGlb);
0225E0: 0D 0A 20 20 44 65 66 69 6E 65 48 65 61 64 65 72 .. DefineHeader
0225F0: 28 31 2C 27 55 4E 20 43 41 4D 45 4D 42 45 52 54 (1,'UN CAMEMBERT
022600: 70 72 6F 67 72 61 6D 20 4F 6E 65 48 69 73 74 3B program OneHist;
022610: 0D 0A 0D 0A 7B 24 49 20 74 79 70 65 64 65 66 2E ....{$I typedef.
022620: 73 79 73 7D 20 20 20 20 20 20 20 20 20 20 20 20 sys}
022630: 20 20 20 20 20 20 20 20 7B 63 65 73 20 66 69 63 {ces fic
022640: 68 69 65 72 73 20 64 6F 69 76 65 6E 74 20 65 74 hiers doivent et
022650: 72 65 7D 0D 0A 7B 24 49 20 67 72 61 70 68 69 78 re}..{$I graphix
022660: 2E 73 79 73 7D 20 20 20 20 20 20 20 20 20 20 20 .sys}
022670: 20 20 20 20 20 20 20 20 20 7B 69 6E 63 6C 75 73 {inclus
022680: 20 64 61 6E 73 20 63 65 74 20 6F 72 64 72 65 7D dans cet ordre}
022690: 0D 0A 7B 24 49 20 6B 65 72 6E 65 6C 2E 73 79 73 ..{$I kernel.sys
0226A0: 7D 0D 0A 7B 24 49 20 6B 65 72 6E 65 6C 31 2E 73 }..{$I kernel1.s
0226B0: 79 73 7D 0D 0A 7B 24 49 20 77 69 6E 64 6F 77 73 ys}..{$I windows
0226C0: 2E 73 79 73 7D 0D 0A 7B 24 49 20 68 61 74 63 68 .sys}..{$I hatch
0226D0: 2E 68 67 68 7D 0D 0A 7B 24 49 20 68 69 73 74 6F .hgh}..{$I histo
0226E0: 67 72 6D 2E 68 67 68 7D 0D 0A 0D 0A 0D 0A 70 72 grm.hgh}......pr
0226F0: 6F 63 65 64 75 72 65 20 48 69 73 74 6F 44 65 6D ocedure HistoDem
022700: 3B 0D 0A 76 61 72 20 69 2C 44 69 73 70 6C 79 4C ;..var i,DisplyL
022710: 65 6E 2C 48 61 74 63 68 44 65 6E 3A 69 6E 74 65 en,HatchDen:inte
022720: 67 65 72 3B 0D 0A 20 20 20 20 61 3A 50 6C 6F 74 ger;.. a:Plot
022730: 41 72 72 61 79 3B 0D 0A 20 20 20 20 72 3A 72 65 Array;.. r:re
022740: 61 6C 3B 0D 0A 20 20 20 20 63 68 3A 63 68 61 72 al;.. ch:char
022750: 3B 0D 0A 20 20 20 20 48 61 74 63 68 3A 62 6F 6F ;.. Hatch:boo
022760: 6C 65 61 6E 3B 0D 0A 0D 0A 0D 0A 62 65 67 69 6E lean;......begin
022770: 0D 0A 20 20 44 69 73 70 6C 79 4C 65 6E 3A 3D 31 .. DisplyLen:=1
022780: 30 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0;
022790: 20 20 20 20 20 20 7B 20 6C 65 20 74 72 61 63 65 { le trace
0227A0: 7D 0D 0A 0D 0A 20 20 66 6F 72 20 69 3A 3D 30 20 }.... for i:=0
0227B0: 74 6F 20 44 69 73 70 6C 79 4C 65 6E 20 64 6F 20 to DisplyLen do
0227C0: 20 20 20 20 20 20 20 20 20 7B 69 6E 69 74 69 61 {initia
0227D0: 6C 69 73 65 20 6C 27 27 65 63 72 61 6E 20 61 6C lise l''ecran al
0227E0: 65 61 74 6F 69 72 65 6D 65 6E 74 7D 0D 0A 20 20 eatoirement}..
0227F0: 20 20 62 65 67 69 6E 3B 0D 0A 20 20 20 20 20 20 begin;..
022800: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
022810: 1D 00 01 00 02 09 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: 27 29 3B 20 20 7B 6D 69 73 65 20 65 6E 20 70 6C '); {mise en pl
022910: 61 63 65 20 64 65 20 6C 61 20 66 65 6E 65 74 72 ace de la fenetr
022920: 65 7D 0D 0A 20 20 44 65 66 69 6E 65 57 6F 72 6C e}.. DefineWorl
022930: 64 28 31 2C 30 2C 31 30 30 30 2C 31 30 30 30 2C d(1,0,1000,1000,
022940: 30 29 3B 0D 0A 20 20 53 65 6C 65 63 74 57 6F 72 0);.. SelectWor
022950: 6C 64 28 31 29 3B 0D 0A 20 20 53 65 6C 65 63 74 ld(1);.. Select
022960: 57 69 6E 64 6F 77 28 31 29 3B 0D 0A 20 20 53 65 Window(1);.. Se
022970: 74 48 65 61 64 65 72 4F 6E 3B 0D 0A 20 20 53 65 tHeaderOn;.. Se
022980: 74 42 61 63 6B 67 72 6F 75 6E 64 28 30 29 3B 0D tBackground(0);.
022990: 0A 20 20 44 72 61 77 42 6F 72 64 65 72 3B 0D 0A . DrawBorder;..
0229A0: 0D 0A 20 20 6E 3A 3D 35 3B 20 20 20 20 20 20 20 .. n:=5;
0229B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0229C0: 20 20 20 20 20 20 20 20 20 20 20 7B 6C 65 20 6E {le n
0229D0: 6F 6D 62 72 65 20 64 65 20 73 65 67 6D 65 6E 74 ombre de segment
0229E0: 7D 0D 0A 20 20 61 5B 31 5D 2E 61 72 65 61 3A 3D }.. a[1].area:=
0229F0: 32 35 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 25;
022A00: 20 20 20 20 20 20 20 20 20 20 20 20 7B 69 6E 69 {ini
022A10: 74 69 61 6C 69 73 65 20 6C 65 20 74 61 62 6C 65 tialise le table
022A20: 61 75 7D 0D 0A 20 20 61 5B 32 5D 2E 61 72 65 61 au}.. a[2].area
022A30: 3A 3D 31 37 2E 35 3B 0D 0A 20 20 61 5B 33 5D 2E :=17.5;.. a[3].
022A40: 61 72 65 61 3A 3D 39 2E 36 3B 0D 0A 20 20 61 5B area:=9.6;.. a[
022A50: 34 5D 2E 61 72 65 61 3A 3D 32 31 3B 0D 0A 20 20 4].area:=21;..
022A60: 61 5B 35 5D 2E 61 72 65 61 3A 3D 33 35 3B 0D 0A a[5].area:=35;..
022A70: 20 20 61 5B 31 5D 2E 74 65 78 74 3A 3D 27 4A 41 a[1].text:='JA
022A80: 4E 2E 3D 27 3B 0D 0A 20 20 61 5B 32 5D 2E 74 65 N.=';.. a[2].te
022A90: 78 74 3A 3D 27 46 45 56 2E 3D 27 3B 0D 0A 20 20 xt:='FEV.=';..
022AA0: 61 5B 33 5D 2E 74 65 78 74 3A 3D 27 4D 41 52 2E a[3].text:='MAR.
022AB0: 3D 27 3B 0D 0A 20 20 61 5B 34 5D 2E 74 65 78 74 =';.. a[4].text
022AC0: 3A 3D 27 41 56 52 2E 3D 27 3B 0D 0A 20 20 61 5B :='AVR.=';.. a[
022AD0: 35 5D 2E 74 65 78 74 3A 3D 27 4D 41 49 3D 27 3B 5].text:='MAI=';
022AE0: 0D 0A 0D 0A 20 20 61 5B 31 5D 2E 61 72 65 61 3A .... a[1].area:
022AF0: 3D 2D 61 5B 31 5D 2E 61 72 65 61 3B 20 20 20 20 =-a[1].area;
022B00: 70 72 6F 67 72 61 6D 20 49 6E 74 65 72 70 6F 6C program Interpol
022B10: 61 74 65 3B 0D 0A 0D 0A 7B 24 49 20 74 79 70 65 ate;....{$I type
022B20: 64 65 66 2E 73 79 73 7D 20 20 20 20 20 20 20 20 def.sys}
022B30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7B {
022B40: 63 65 73 20 66 69 63 68 69 65 72 73 20 64 6F 69 ces fichiers doi
022B50: 76 65 6E 74 20 65 74 72 65 7D 0D 0A 7B 24 49 20 vent etre}..{$I
022B60: 67 72 61 70 68 69 78 2E 73 79 73 7D 20 20 20 20 graphix.sys}
022B70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
022B80: 20 20 20 7B 69 6E 63 6C 75 73 20 64 61 6E 73 20 {inclus dans
022B90: 63 65 74 20 6F 72 64 72 65 7D 0D 0A 7B 24 49 20 cet ordre}..{$I
022BA0: 6B 65 72 6E 65 6C 2E 73 79 73 7D 0D 0A 7B 24 49 kernel.sys}..{$I
022BB0: 20 6B 65 72 6E 65 6C 31 2E 73 79 73 7D 0D 0A 7B kernel1.sys}..{
022BC0: 24 49 20 77 69 6E 64 6F 77 73 2E 73 79 73 7D 0D $I windows.sys}.
022BD0: 0A 7B 24 49 20 66 69 6E 64 77 72 6C 64 2E 68 67 .{$I findwrld.hg
022BE0: 68 7D 0D 0A 7B 24 49 20 61 78 69 73 2E 68 67 68 h}..{$I axis.hgh
022BF0: 7D 0D 0A 7B 24 49 20 70 6F 6C 79 67 6F 6E 2E 68 }..{$I polygon.h
022C00: 67 68 7D 0D 0A 7B 24 49 20 73 70 6C 69 6E 65 2E gh}..{$I spline.
022C10: 68 67 68 7D 0D 0A 0D 0A 0D 0A 70 72 6F 63 65 64 hgh}......proced
022C20: 75 72 65 20 53 70 6C 69 6E 65 44 65 6D 3B 0D 0A ure SplineDem;..
022C30: 0D 0A 76 61 72 20 78 2C 74 65 6D 70 3A 72 65 61 ..var x,temp:rea
022C40: 6C 3B 0D 0A 20 20 20 20 64 78 2C 64 79 2C 69 2C l;.. dx,dy,i,
022C50: 6E 2C 6D 2C 6C 69 6E 65 73 2C 73 63 61 6C 65 3A n,m,lines,scale:
022C60: 69 6E 74 65 67 65 72 3B 0D 0A 20 20 20 20 58 31 integer;.. X1
022C70: 2C 59 31 2C 58 32 2C 59 32 3A 69 6E 74 65 67 65 ,Y1,X2,Y2:intege
022C80: 72 3B 0D 0A 20 20 20 20 62 2C 61 3A 50 6C 6F 74 r;.. b,a:Plot
022C90: 41 72 72 61 79 3B 0D 0A 0D 0A 62 65 67 69 6E 0D Array;....begin.
022CA0: 0A 0D 0A 20 20 44 65 66 69 6E 65 57 69 6E 64 6F ... DefineWindo
022CB0: 77 28 31 2C 30 2C 30 2C 58 4D 61 78 47 6C 62 2C w(1,0,0,XMaxGlb,
022CC0: 59 4D 61 78 47 6C 62 29 3B 20 20 20 20 20 20 20 YMaxGlb);
022CD0: 20 20 20 7B 64 65 66 69 6E 69 74 20 61 20 6C 61 {definit a la
022CE0: 20 66 6F 69 73 20 6C 65 73 20 66 65 6E 65 74 72 fois les fenetr
022CF0: 65 73 20 65 74 20 6C 27 27 65 63 72 61 6E 7D 0D es et l''ecran}.
022D00: 20 20 20 20 20 20 20 20 20 20 20 20 20 7B 73 6F {so
022D10: 72 74 20 6C 65 20 70 72 65 6D 69 65 72 20 73 65 rt le premier se
022D20: 67 65 6D 65 6E 74 7D 0D 0A 0D 0A 20 20 78 31 3A gement}.... x1:
022D30: 3D 35 30 30 3B 20 20 20 20 20 20 20 20 20 20 20 =500;
022D40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
022D50: 20 20 20 20 7B 70 6F 73 69 74 69 6F 6E 6E 65 20 {positionne
022D60: 61 75 20 6D 69 6C 69 65 75 20 64 65 20 6C 27 27 au milieu de l''
022D70: 65 63 72 61 6E 7D 0D 0A 20 20 79 31 3A 3D 35 30 ecran}.. y1:=50
022D80: 30 3B 0D 0A 0D 0A 20 20 52 61 64 69 75 73 3A 3D 0;.... Radius:=
022D90: 32 30 30 3B 20 20 20 20 20 20 20 20 20 20 20 20 200;
022DA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7B {
022DB0: 64 65 62 75 74 20 64 75 20 63 65 72 63 6C 65 7D debut du cercle}
022DC0: 0D 0A 20 20 54 68 65 74 61 3A 3D 36 30 3B 0D 0A .. Theta:=60;..
022DD0: 0D 0A 20 20 53 65 74 41 73 70 65 63 74 28 31 2E .. SetAspect(1.
022DE0: 30 29 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 0);
022DF0: 20 20 20 20 20 20 20 20 20 20 20 7B 6C 65 20 72 {le r
022E00: 61 74 69 6F 7D 0D 0A 0D 0A 20 20 49 6E 52 61 64 atio}.... InRad
022E10: 69 75 73 3A 3D 30 2E 37 3B 20 20 20 20 20 20 20 ius:=0.7;
022E20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
022E30: 20 20 7B 70 6F 73 69 74 69 6F 6E 6E 65 20 6C 65 {positionne le
022E40: 73 20 63 6F 6D 6D 65 6E 74 61 69 72 65 73 7D 0D s commentaires}.
022E50: 0A 20 20 4F 75 74 52 61 64 69 75 73 3A 3D 31 2E . OutRadius:=1.
022E60: 32 35 3B 0D 0A 0D 0A 20 20 4D 6F 64 65 3A 3D 32 25;.... Mode:=2
022E70: 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ;
022E80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
022E90: 7B 74 72 61 63 65 20 6C 65 73 20 63 6F 6D 6D 65 {trace les comme
022EA0: 6E 74 61 69 72 65 73 7D 0D 0A 20 20 53 69 7A 65 ntaires}.. Size
022EB0: 3A 3D 32 3B 20 20 20 20 20 20 20 20 20 20 20 20 :=2;
022EC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
022ED0: 20 20 20 7B 70 6F 73 69 74 69 6F 6E 6E 65 20 6C {positionne l
022EE0: 61 20 74 61 69 6C 6C 65 20 64 75 20 74 65 78 74 a taille du text
022EF0: 65 7D 0D 0A 0D 0A 20 20 20 20 20 20 20 20 20 20 e}....
022F00: 0A 20 20 44 65 66 69 6E 65 57 69 6E 64 6F 77 28 . DefineWindow(
022F10: 32 2C 30 2C 30 2C 58 4D 61 78 47 6C 62 2C 59 4D 2,0,0,XMaxGlb,YM
022F20: 61 78 47 6C 62 29 3B 0D 0A 20 20 44 65 66 69 6E axGlb);.. Defin
022F30: 65 57 6F 72 6C 64 28 31 2C 30 2C 31 30 30 30 2C eWorld(1,0,1000,
022F40: 31 30 30 30 2C 30 29 3B 20 20 20 20 20 20 20 20 1000,0);
022F50: 7B 64 6F 6E 6E 65 20 75 6E 20 6D 6F 6E 64 65 20 {donne un monde
022F60: 61 20 6C 27 27 65 63 72 61 6E 7D 0D 0A 0D 0A 20 a l''ecran}....
022F70: 20 44 65 66 69 6E 65 48 65 61 64 65 72 28 32 2C DefineHeader(2,
022F80: 27 49 6E 74 65 72 70 6F 6C 61 74 69 6F 6E 27 29 'Interpolation')
022F90: 3B 20 20 20 20 7B 66 65 6E 65 74 72 65 73 20 6F ; {fenetres o
022FA0: 75 20 69 72 6F 6E 74 20 6C 65 73 20 63 6F 75 72 u iront les cour
022FB0: 62 65 73 7D 0D 0A 20 20 53 65 74 48 65 61 64 65 bes}.. SetHeade
022FC0: 72 4F 6E 3B 0D 0A 0D 0A 20 20 6E 3A 3D 31 32 3B rOn;.... n:=12;
022FD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
022FE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7B {
022FF0: 72 65 6D 70 6C 69 74 20 6C 65 20 74 61 62 6C 65 remplit le table
023000: 61 75 7D 0D 0A 20 20 66 6F 72 20 69 3A 3D 31 20 au}.. for i:=1
023010: 74 6F 20 6E 20 64 6F 0D 0A 20 20 20 20 62 65 67 to n do.. beg
023020: 69 6E 0D 0A 20 20 20 20 20 20 61 5B 69 2C 31 5D in.. a[i,1]
023030: 3A 3D 69 2D 31 3B 0D 0A 20 20 20 20 20 20 61 5B :=i-1;.. a[
023040: 69 2C 32 5D 3A 3D 72 61 6E 64 6F 6D 2D 30 2E 35 i,2]:=random-0.5
023050: 3B 0D 0A 20 20 20 20 65 6E 64 3B 0D 0A 0D 0A 20 ;.. end;....
023060: 20 6D 3A 3D 35 30 3B 20 20 20 20 20 20 20 20 20 m:=50;
023070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
023080: 20 20 20 20 20 20 7B 67 65 6E 65 72 61 74 69 6F {generatio
023090: 6E 20 64 65 20 35 30 20 70 6F 69 6E 74 73 7D 0D n de 50 points}.
0230A0: 0A 20 20 73 70 6C 69 6E 65 28 61 2C 6E 2C 61 5B . spline(a,n,a[
0230B0: 32 2C 31 5D 2C 61 5B 6E 2D 31 2C 31 5D 2C 62 2C 2,1],a[n-1,1],b,
0230C0: 6D 29 3B 0D 0A 20 20 46 69 6E 64 57 6F 72 6C 64 m);.. FindWorld
0230D0: 28 32 2C 62 2C 6D 2C 31 2C 31 2E 30 38 29 3B 20 (2,b,m,1,1.08);
0230E0: 20 20 20 20 20 20 20 20 20 20 20 20 7B 64 65 75 {deu
0230F0: 78 69 65 6D 65 20 6D 6F 6E 64 65 20 73 75 72 20 xieme monde sur
023100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
023110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7B {
023120: 74 72 61 63 65 20 6C 65 20 63 61 6D 65 6D 62 65 trace le camembe
023130: 72 74 7D 0D 0A 20 20 44 72 61 77 50 6F 6C 61 72 rt}.. DrawPolar
023140: 50 69 65 28 78 31 2C 79 31 2C 52 61 64 69 75 73 Pie(x1,y1,Radius
023150: 2C 54 68 65 74 61 2C 49 6E 52 61 64 69 75 73 2C ,Theta,InRadius,
023160: 4F 75 74 52 61 64 69 75 73 2C 61 2C 6E 2C 4D 6F OutRadius,a,n,Mo
023170: 64 65 2C 53 69 7A 65 29 3B 0D 0A 0D 0A 65 6E 64 de,Size);....end
023180: 3B 0D 0A 0D 0A 0D 0A 0D 0A 62 65 67 69 6E 0D 0A ;........begin..
023190: 0D 0A 49 6E 69 74 47 72 61 70 68 69 63 3B 20 20 ..InitGraphic;
0231A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0231B0: 20 20 20 20 20 20 20 20 20 20 20 7B 69 6E 69 74 {init
0231C0: 69 61 6C 69 73 65 20 6C 65 20 67 72 61 70 68 69 ialise le graphi
0231D0: 73 6D 65 7D 0D 0A 0D 0A 4F 6E 65 50 69 65 44 65 sme}....OnePieDe
0231E0: 6D 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 m;
0231F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
023200: 20 7B 66 61 69 74 20 6C 61 20 64 65 6D 6F 7D 0D {fait la demo}.
023210: 0A 0D 0A 72 65 70 65 61 74 20 75 6E 74 69 6C 20 ...repeat until
023220: 6B 65 79 70 72 65 73 73 65 64 3B 20 20 20 20 20 keypressed;
023230: 20 20 20 20 20 20 20 20 20 20 20 20 7B 61 74 74 {att
023240: 65 6E 64 20 71 75 27 27 75 6E 65 20 74 6F 75 63 end qu''une touc
023250: 68 65 20 73 6F 69 74 20 66 72 61 70 70 65 65 7D he soit frappee}
023260: 0D 0A 0D 0A 4C 65 61 76 65 47 72 61 70 68 69 63 ....LeaveGraphic
023270: 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ;
023280: 20 20 20 20 20 20 20 20 20 20 20 20 20 7B 71 75 {qu
023290: 69 74 74 65 20 6C 65 20 67 72 61 70 68 69 73 6D itte le graphism
0232A0: 65 7D 0D 0A 0D 0A 65 6E 64 2E 0D 0A 0D 0A 1A 1A e}....end.......
0232B0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0232C0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0232D0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0232E0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0232F0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
023300: 6C 61 20 64 72 6F 69 74 65 7D 0D 0A 20 20 77 69 la droite}.. wi
023310: 74 68 20 77 6F 72 6C 64 5B 32 5D 20 64 6F 20 20 th world[2] do
023320: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
023330: 20 20 20 7B 70 65 72 6D 75 74 65 20 6C 65 20 6D {permute le m
023340: 6F 6E 64 65 20 76 65 72 74 69 63 61 6C 65 6D 65 onde verticaleme
023350: 6E 74 7D 0D 0A 20 20 20 62 65 67 69 6E 0D 0A 20 nt}.. begin..
023360: 20 20 20 74 65 6D 70 3A 3D 79 31 3B 0D 0A 20 20 temp:=y1;..
023370: 20 20 79 31 3A 3D 79 32 3B 0D 0A 20 20 20 20 79 y1:=y2;.. y
023380: 32 3A 3D 74 65 6D 70 3B 0D 0A 20 20 20 65 6E 64 2:=temp;.. end
023390: 3B 0D 0A 20 20 53 65 6C 65 63 74 57 69 6E 64 6F ;.. SelectWindo
0233A0: 77 28 32 29 3B 20 20 20 20 20 20 20 20 20 20 20 w(2);
0233B0: 20 20 20 20 20 20 20 20 20 20 7B 6C 65 20 63 68 {le ch
0233C0: 6F 69 73 69 74 20 74 72 61 63 65 20 75 6E 65 20 oisit trace une
0233D0: 62 6F 72 64 75 72 65 7D 0D 0A 20 20 44 72 61 77 bordure}.. Draw
0233E0: 42 6F 72 64 65 72 3B 0D 0A 0D 0A 20 20 64 78 3A Border;.... dx:
0233F0: 3D 2D 38 3B 20 20 20 20 20 20 20 20 20 20 20 20 =-8;
023400: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
023410: 20 20 7B 74 72 61 63 65 20 6C 65 73 20 61 78 65 {trace les axe
023420: 73 20 61 20 6C 27 27 69 6E 74 65 72 69 65 75 72 s a l''interieur
023430: 20 64 65 20 6C 61 20 66 65 6E 65 74 72 65 7D 0D de la fenetre}.
023440: 0A 20 20 64 79 3A 3D 37 3B 0D 0A 20 20 58 31 3A . dy:=7;.. X1:
023450: 3D 33 3B 0D 0A 20 20 59 31 3A 3D 35 3B 0D 0A 20 =3;.. Y1:=5;..
023460: 20 58 32 3A 3D 32 35 3B 0D 0A 20 20 59 32 3A 3D X2:=25;.. Y2:=
023470: 31 30 3B 0D 0A 20 20 6C 69 6E 65 73 3A 3D 30 3B 10;.. lines:=0;
023480: 0D 0A 20 20 73 63 61 6C 65 3A 3D 30 3B 0D 0A 0D .. scale:=0;...
023490: 0A 20 20 53 65 74 4C 69 6E 65 53 74 79 6C 65 28 . SetLineStyle(
0234A0: 31 29 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 1);
0234B0: 20 20 20 20 20 20 20 20 7B 74 72 61 63 65 20 75 {trace u
0234C0: 6E 65 20 63 6F 75 72 62 65 20 65 6E 20 70 6F 69 ne courbe en poi
0234D0: 6E 74 69 6C 6C 65 73 7D 0D 0A 20 20 44 72 61 77 ntilles}.. Draw
0234E0: 41 78 69 73 28 64 78 2C 64 79 2C 58 31 2C 59 31 Axis(dx,dy,X1,Y1
0234F0: 2C 58 32 2C 59 32 2C 6C 69 6E 65 73 2C 73 63 61 ,X2,Y2,lines,sca
023500: 70 72 6F 67 72 61 6D 20 57 6F 72 6C 64 44 72 61 program WorldDra
023510: 77 50 6F 69 6E 74 73 3B 0D 0A 0D 0A 7B 24 49 20 wPoints;....{$I
023520: 74 79 70 65 64 65 66 2E 73 79 73 7D 20 20 20 20 typedef.sys}
023530: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7B 69 {i
023540: 6E 63 6C 75 73 20 6C 65 73 20 67 72 61 70 68 69 nclus les graphi
023550: 73 6D 65 73 7D 0D 0A 7B 24 49 20 67 72 61 70 68 smes}..{$I graph
023560: 69 78 2E 73 79 73 7D 0D 0A 7B 24 49 20 6B 65 72 ix.sys}..{$I ker
023570: 6E 65 6C 2E 73 79 73 7D 0D 0A 7B 24 49 20 6B 65 nel.sys}..{$I ke
023580: 72 6E 65 6C 31 2E 73 79 73 7D 0D 0A 0D 0A 76 61 rnel1.sys}....va
023590: 72 20 69 3A 69 6E 74 65 67 65 72 3B 0D 0A 0D 0A r i:integer;....
0235A0: 62 65 67 69 6E 0D 0A 20 20 49 6E 69 74 47 72 61 begin.. InitGra
0235B0: 70 68 69 63 3B 20 20 20 20 20 20 20 20 20 20 20 phic;
0235C0: 20 20 20 20 20 20 20 20 20 7B 69 6E 69 74 69 61 {initia
0235D0: 6C 69 73 65 20 6C 65 20 73 79 73 74 65 6D 65 20 lise le systeme
0235E0: 65 74 20 6C 27 27 65 63 72 61 6E 7D 0D 0A 20 20 et l''ecran}..
0235F0: 44 72 61 77 42 6F 72 64 65 72 3B 0D 0A 0D 0A 20 DrawBorder;....
023600: 20 44 65 66 69 6E 65 57 6F 72 6C 64 28 31 2C 30 DefineWorld(1,0
023610: 2C 31 30 30 30 2C 31 30 30 30 2C 30 29 3B 20 20 ,1000,1000,0);
023620: 20 7B 64 65 66 69 6E 69 74 20 75 6E 20 6D 6F 6E {definit un mon
023630: 64 65 20 61 20 64 65 73 73 69 6E 65 72 7D 0D 0A de a dessiner}..
023640: 20 20 53 65 6C 65 63 74 57 6F 72 6C 64 28 31 29 SelectWorld(1)
023650: 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ;
023660: 20 20 7B 73 6F 6E 20 63 68 6F 69 78 7D 0D 0A 20 {son choix}..
023670: 20 53 65 6C 65 63 74 57 69 6E 64 6F 77 28 31 29 SelectWindow(1)
023680: 3B 0D 0A 0D 0A 20 20 66 6F 72 20 69 3A 3D 31 20 ;.... for i:=1
023690: 74 6F 20 31 30 30 30 20 64 6F 20 20 20 20 20 20 to 1000 do
0236A0: 20 20 20 20 20 20 20 7B 74 72 61 63 65 20 31 30 {trace 10
0236B0: 30 30 20 70 6F 69 6E 74 73 20 61 6C 65 61 74 6F 00 points aleato
0236C0: 69 72 65 6D 65 6E 74 20 73 75 72 20 6C 65 20 6D irement sur le m
0236D0: 6F 6E 64 65 7D 0D 0A 20 20 20 20 20 44 72 61 77 onde}.. Draw
0236E0: 50 6F 69 6E 74 28 72 61 6E 64 6F 6D 28 31 30 30 Point(random(100
0236F0: 30 29 2C 72 61 6E 64 6F 6D 28 31 30 30 30 29 29 0),random(1000))
023700: 6C 65 2C 66 61 6C 73 65 29 3B 0D 0A 20 20 44 72 le,false);.. Dr
023710: 61 77 50 6F 6C 79 67 6F 6E 28 61 2C 32 2C 6E 2D awPolygon(a,2,n-
023720: 31 2C 37 2C 32 2C 30 29 3B 20 20 20 20 20 20 20 1,7,2,0);
023730: 20 20 20 7B 6E 65 20 74 72 61 63 65 20 70 61 73 {ne trace pas
023740: 20 64 65 73 20 70 6F 69 6E 74 73 20 64 65 20 66 des points de f
023750: 69 6E 7D 0D 0A 0D 0A 20 20 53 65 74 4C 69 6E 65 in}.... SetLine
023760: 53 74 79 6C 65 28 30 29 3B 20 20 20 20 20 20 20 Style(0);
023770: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7B 74 {t
023780: 72 61 63 65 20 75 6E 65 20 6C 69 67 6E 65 20 69 race une ligne i
023790: 6E 74 65 72 70 6F 6C 65 65 7D 0D 0A 20 20 44 72 nterpolee}.. Dr
0237A0: 61 77 41 78 69 73 28 30 2C 30 2C 58 31 2C 59 31 awAxis(0,0,X1,Y1
0237B0: 2C 58 32 2C 59 32 2C 30 2C 30 2C 66 61 6C 73 65 ,X2,Y2,0,0,false
0237C0: 29 3B 0D 0A 20 20 44 72 61 77 50 6F 6C 79 67 6F );.. DrawPolygo
0237D0: 6E 28 62 2C 31 2C 2D 6D 2C 30 2C 30 2C 30 29 3B n(b,1,-m,0,0,0);
0237E0: 20 20 20 20 20 20 20 20 20 20 20 7B 73 70 6C 69 {spli
0237F0: 6E 65 20 6E 27 27 65 73 74 20 70 61 73 20 62 6F ne n''est pas bo
023800: 6E 20 6C 65 73 20 70 6F 69 6E 74 73 20 64 65 20 n les points de
023810: 66 69 6E 7D 0D 0A 0D 0A 20 20 53 65 6C 65 63 74 fin}.... Select
023820: 57 6F 72 6C 64 28 31 29 3B 20 20 20 20 20 20 20 World(1);
023830: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7B {
023840: 63 68 6F 69 78 20 68 6F 72 73 20 64 65 20 6C 61 choix hors de la
023850: 20 66 65 6E 65 74 72 65 7D 0D 0A 20 20 53 65 6C fenetre}.. Sel
023860: 65 63 74 57 69 6E 64 6F 77 28 31 29 3B 0D 0A 0D ectWindow(1);...
023870: 0A 20 20 44 72 61 77 54 65 78 74 57 28 37 33 30 . DrawTextW(730
023880: 2C 34 30 30 2C 31 2C 5E 5B 27 37 40 32 20 20 20 ,400,1,^['7@2
023890: 54 68 65 20 64 6F 6E 6E 65 65 27 29 3B 20 20 20 The donnee');
0238A0: 20 20 20 20 20 20 20 20 20 7B 61 66 66 69 63 68 {affich
0238B0: 65 20 6C 61 20 6C 65 67 65 6E 64 65 7D 0D 0A 20 e la legende}..
0238C0: 20 44 72 61 77 54 65 78 74 57 28 37 33 30 2C 35 DrawTextW(730,5
0238D0: 30 30 2C 31 2C 27 2E 2E 20 20 4C 65 20 70 6F 6C 00,1,'.. Le pol
0238E0: 79 67 6F 6E 65 20 69 6E 69 74 69 61 6C 27 29 3B ygone initial');
0238F0: 0D 0A 20 20 44 72 61 77 54 65 78 74 57 28 37 33 .. DrawTextW(73
023900: 3B 0D 0A 0D 0A 20 20 72 65 70 65 61 74 20 75 6E ;.... repeat un
023910: 74 69 6C 20 6B 65 79 70 72 65 73 73 65 64 3B 20 til keypressed;
023920: 20 20 20 20 20 20 20 7B 61 74 74 65 6E 64 20 6A {attend j
023930: 75 73 71 75 27 27 61 20 63 65 20 71 75 27 27 75 usqu''a ce qu''u
023940: 6E 65 20 74 6F 75 63 68 65 20 73 6F 69 74 20 66 ne touche soit f
023950: 72 61 70 70 65 65 7D 0D 0A 20 20 4C 65 61 76 65 rappee}.. Leave
023960: 47 72 61 70 68 69 63 3B 0D 0A 65 6E 64 2E 0D 0A Graphic;..end...
023970: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
023980: 72 6E 65 6C 31 2E 73 79 73 7D 0D 0A 0D 0A 76 61 rnel1.sys}....va
023990: 72 20 69 3A 69 6E 74 65 67 65 72 3B 0D 0A 0D 0A r i:integer;....
0239A0: 62 65 67 69 6E 0D 0A 20 20 49 6E 69 74 47 72 61 begin.. InitGra
0239B0: 70 68 69 63 3B 20 20 20 20 20 20 20 20 20 20 20 phic;
0239C0: 20 20 20 20 20 20 20 20 20 7B 69 6E 69 74 69 61 {initia
0239D0: 6C 69 73 65 20 6C 65 20 73 79 73 74 65 6D 65 20 lise le systeme
0239E0: 65 74 20 6C 27 27 65 63 72 61 6E 7D 0D 0A 20 20 et l''ecran}..
0239F0: 44 72 61 77 42 6F 72 64 65 72 3B 0D 0A 0D 0A 20 DrawBorder;....
023A00: 20 44 65 66 69 6E 65 57 6F 72 6C 64 28 31 2C 30 DefineWorld(1,0
023A10: 2C 31 30 30 30 2C 31 30 30 30 2C 30 29 3B 20 20 ,1000,1000,0);
023A20: 20 7B 64 65 66 69 6E 69 74 20 75 6E 20 6D 6F 6E {definit un mon
023A30: 64 65 20 61 20 64 65 73 73 69 6E 65 72 7D 0D 0A de a dessiner}..
023A40: 20 20 53 65 6C 65 63 74 57 6F 72 6C 64 28 31 29 SelectWorld(1)
023A50: 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ;
023A60: 20 20 7B 73 6F 6E 20 63 68 6F 69 78 7D 0D 0A 20 {son choix}..
023A70: 20 53 65 6C 65 63 74 57 69 6E 64 6F 77 28 31 29 SelectWindow(1)
023A80: 3B 0D 0A 0D 0A 20 20 66 6F 72 20 69 3A 3D 31 20 ;.... for i:=1
023A90: 74 6F 20 31 30 30 30 20 64 6F 20 20 20 20 20 20 to 1000 do
023AA0: 20 20 20 20 20 20 20 7B 74 72 61 63 65 20 31 30 {trace 10
023AB0: 30 30 20 70 6F 69 6E 74 73 20 61 6C 65 61 74 6F 00 points aleato
023AC0: 69 72 65 6D 65 6E 74 20 73 75 72 20 6C 65 20 6D irement sur le m
023AD0: 6F 6E 64 65 7D 0D 0A 20 20 20 20 20 44 72 61 77 onde}.. Draw
023AE0: 50 6F 69 6E 74 28 72 61 6E 64 6F 6D 28 31 30 30 Point(random(100
023AF0: 30 29 2C 72 61 6E 64 6F 6D 28 31 30 30 30 29 29 0),random(1000))
023B00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
023B10: 1E 00 01 00 02 09 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: 30 2C 36 30 30 2C 31 2C 27 5F 5F 20 20 4C 61 20 0,600,1,'__ La
023C10: 76 61 6C 65 75 72 20 69 6E 74 65 72 70 6F 6C 65 valeur interpole
023C20: 65 27 29 3B 0D 0A 0D 0A 65 6E 64 3B 0D 0A 0D 0A e');....end;....
023C30: 0D 0A 0D 0A 62 65 67 69 6E 0D 0A 0D 0A 49 6E 69 ....begin....Ini
023C40: 74 47 72 61 70 68 69 63 3B 20 20 20 20 20 20 20 tGraphic;
023C50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
023C60: 20 20 20 20 7B 69 6E 69 74 69 61 6C 69 73 65 20 {initialise
023C70: 6C 65 73 20 67 72 61 70 68 69 73 6D 65 73 7D 0D les graphismes}.
023C80: 0A 0D 0A 53 70 6C 69 6E 65 44 65 6D 3B 20 20 20 ...SplineDem;
023C90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
023CA0: 20 20 20 20 20 20 20 20 20 20 7B 66 61 69 74 20 {fait
023CB0: 6C 61 20 64 65 6D 6F 7D 0D 0A 0D 0A 72 65 70 65 la demo}....repe
023CC0: 61 74 20 75 6E 74 69 6C 20 6B 65 79 70 72 65 73 at until keypres
023CD0: 73 65 64 3B 20 20 20 20 20 20 20 20 20 20 20 20 sed;
023CE0: 20 20 20 7B 61 74 74 65 6E 64 20 6A 75 73 71 75 {attend jusqu
023CF0: 27 27 61 20 63 65 20 71 75 27 27 75 6E 65 20 74 ''a ce qu''une t
023D00: 6F 75 63 68 65 20 73 6F 69 74 20 66 72 61 70 70 ouche soit frapp
023D10: 65 65 7D 0D 0A 0D 0A 4C 65 61 76 65 47 72 61 70 ee}....LeaveGrap
023D20: 68 69 63 3B 20 20 20 20 20 20 20 20 20 20 20 20 hic;
023D30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7B 71 {q
023D40: 75 69 74 74 65 20 6C 65 20 67 72 61 70 68 69 73 uitte le graphis
023D50: 6D 65 7D 0D 0A 0D 0A 65 6E 64 2E 0D 0A 0D 0A 1A me}....end......
023D60: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
023D70: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
023D80: 2C 34 30 30 2C 31 2C 5E 5B 27 37 40 32 20 20 20 ,400,1,^['7@2
023D90: 54 68 65 20 64 6F 6E 6E 65 65 27 29 3B 20 20 20 The donnee');
023DA0: 20 20 20 20 20 20 20 20 20 7B 61 66 66 69 63 68 {affich
023DB0: 65 20 6C 61 20 6C 65 67 65 6E 64 65 7D 0D 0A 20 e la legende}..
023DC0: 20 44 72 61 77 54 65 78 74 57 28 37 33 30 2C 35 DrawTextW(730,5
023DD0: 30 30 2C 31 2C 27 2E 2E 20 20 4C 65 20 70 6F 6C 00,1,'.. Le pol
023DE0: 79 67 6F 6E 65 20 69 6E 69 74 69 61 6C 27 29 3B ygone initial');
023DF0: 0D 0A 20 20 44 72 61 77 54 65 78 74 57 28 37 33 .. DrawTextW(73
023E00: 20 20 70 6C 6F 74 3B 0D 0A 20 20 20 20 63 28 69 plot;.. c(i
023E10: 2D 31 29 3B 0D 0A 20 20 20 20 78 3A 3D 78 2D 68 -1);.. x:=x-h
023E20: 3B 0D 0A 20 20 20 20 79 3A 3D 79 2B 68 3B 0D 0A ;.. y:=y+h;..
023E30: 20 20 20 20 70 6C 6F 74 3B 0D 0A 20 20 20 20 64 plot;.. d
023E40: 28 69 2D 31 29 3B 0D 0A 20 20 65 6E 64 3B 0D 0A (i-1);.. end;..
023E50: 65 6E 64 3B 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 end;....procedur
023E60: 65 20 44 6F 49 74 3B 20 20 20 20 20 20 20 20 20 e DoIt;
023E70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7B {
023E80: 70 72 6F 63 65 64 75 72 65 20 70 72 69 6E 63 69 procedure princi
023E90: 70 61 6C 65 20 64 65 20 73 69 65 72 70 69 6E 73 pale de sierpins
023EA0: 6B 69 20 7D 0D 0A 62 65 67 69 6E 0D 0A 20 20 69 ki }..begin.. i
023EB0: 3A 3D 33 3B 0D 0A 20 20 68 3A 3D 31 36 3B 0D 0A :=3;.. h:=16;..
023EC0: 20 20 78 30 3A 3D 33 30 3B 0D 0A 20 20 79 30 3A x0:=30;.. y0:
023ED0: 3D 32 34 30 3B 0D 0A 20 20 72 65 70 65 61 74 0D =240;.. repeat.
023EE0: 0A 20 20 20 20 69 3A 3D 69 2B 31 3B 0D 0A 20 20 . i:=i+1;..
023EF0: 20 20 78 30 3A 3D 78 30 2D 68 3B 0D 0A 20 20 20 x0:=x0-h;..
023F00: 20 68 3A 3D 68 20 64 69 76 20 32 3B 0D 0A 20 20 h:=h div 2;..
023F10: 20 20 79 30 3A 3D 79 30 2B 68 3B 0D 0A 20 20 20 y0:=y0+h;..
023F20: 20 78 3A 3D 78 30 3B 0D 0A 20 20 20 20 79 3A 3D x:=x0;.. y:=
023F30: 79 30 3B 0D 0A 20 20 20 20 61 28 69 2D 31 29 3B y0;.. a(i-1);
023F40: 0D 0A 20 20 20 20 78 3A 3D 78 2B 68 3B 0D 0A 20 .. x:=x+h;..
023F50: 20 20 20 79 3A 3D 79 2D 68 3B 0D 0A 20 20 20 20 y:=y-h;..
023F60: 70 6C 6F 74 3B 0D 0A 20 20 20 20 62 28 69 2D 31 plot;.. b(i-1
023F70: 29 3B 0D 0A 20 20 20 20 78 3A 3D 78 2D 68 3B 0D );.. x:=x-h;.
023F80: 0A 20 20 20 20 79 3A 3D 79 2D 68 3B 0D 0A 20 20 . y:=y-h;..
023F90: 20 20 70 6C 6F 74 3B 0D 0A 20 20 20 20 63 28 69 plot;.. c(i
023FA0: 2D 31 29 3B 0D 0A 20 20 20 20 78 3A 3D 78 2D 68 -1);.. x:=x-h
023FB0: 3B 0D 0A 20 20 20 20 79 3A 3D 79 2B 68 3B 0D 0A ;.. y:=y+h;..
023FC0: 20 20 20 20 70 6C 6F 74 3B 0D 0A 20 20 20 20 64 plot;.. d
023FD0: 28 69 2D 31 29 3B 0D 0A 20 20 20 20 78 3A 3D 78 (i-1);.. x:=x
023FE0: 2B 68 3B 0D 0A 20 20 20 20 79 3A 3D 79 2B 68 3B +h;.. y:=y+h;
023FF0: 0D 0A 20 20 20 20 70 6C 6F 74 3B 0D 0A 20 20 75 .. plot;.. u
024000: 4D 69 73 73 69 6C 65 20 53 69 6C 6F 20 23 34 37 Missile Silo #47
024010: 20 20 01 00 27 01 01 02 23 A0 0A 07 02 00 00 23 ..'...#......#
024020: A0 FD 1A 03 02 01 57 89 0A 1A 04 00 00 23 A0 0A ......W......#..
024030: 1B 04 00 00 23 A0 00 1A 05 02 03 B7 90 F9 1F 05 ....#...........
024040: 02 0E 8B 90 09 23 05 02 01 77 8B 09 05 07 12 01 .....#...w......
024050: 77 8B 00 19 07 01 01 9B 90 00 1C 07 01 01 AB 90 w...............
024060: 0A 21 07 00 00 23 A0 09 25 07 02 01 77 8B 09 19 .!...#..%...w...
024070: 08 06 01 8B 90 FD 21 08 01 01 47 89 09 01 09 02 ......!...G.....
024080: 01 77 8B 0A 13 09 00 00 23 A0 00 19 09 04 09 B7 .w......#.......
024090: 90 09 23 09 02 01 77 8B 09 01 0B 02 01 77 8B 09 ..#...w......w..
0240A0: 25 0B 02 01 77 8B 09 05 0D 12 01 77 8B 09 23 0D %...w......w..#.
0240B0: 02 01 77 8B 09 19 0E 06 01 8B 90 0A 21 0E 00 00 ..w.........!...
0240C0: 23 A0 09 01 0F 02 01 77 8B 0A 08 0F 00 00 23 A0 #......w......#.
0240D0: FD 21 0F 01 01 47 89 09 25 0F 02 01 77 8B 00 18 .!...G..%...w...
0240E0: 10 01 01 9B 90 00 1D 10 01 01 AB 90 09 01 11 02 ................
0240F0: 01 77 8B 00 17 11 02 02 B7 90 00 1D 11 02 02 B7 .w..............
024100: 90 00 17 11 01 01 9B 90 00 1E 11 01 01 AB 90 09 ................
024110: 23 11 02 01 77 8B 00 1F 12 02 01 8B 90 FF 01 01 #...w...........
024120: 02 02 06 06 14 14 12 12 08 08 18 18 1A 1A 14 14 ................
024130: 03 03 12 01 01 12 04 04 14 01 01 14 0F 0F 00 00 ................
024140: 00 28 41 66 74 65 72 20 54 68 65 20 48 6F 6C 6F .(After The Holo
024150: 63 61 75 73 74 20 01 0A 0D 07 00 00 23 A0 0A 26 caust ......#..&
024160: 07 00 00 23 A0 FE 23 08 05 0C 89 86 FE 0F 09 03 ...#..#.........
024170: 01 99 86 FE 00 0A 07 0A 89 86 FE 16 0A 03 01 99 ................
024180: 86 FE 22 0A 01 0A 89 86 09 0A 0B 01 01 99 86 FE ..".............
024190: 07 0C 02 08 89 86 09 1C 0C 01 01 99 86 FE 20 0C .............. .
0241A0: 02 08 89 86 FE 09 0D 01 07 89 86 0A 13 0E 00 00 ................
0241B0: 23 A0 0A 14 0E 00 00 23 A0 FE 1E 0E 02 06 89 86 #......#........
0241C0: FE 0A 0F 02 05 89 86 FE 1C 0F 02 05 89 86 FE 0C ................
0241D0: 10 02 04 89 86 FE 1A 10 02 04 89 86 FE 0E 11 03 ................
0241E0: 03 89 86 FE 17 11 03 03 89 86 FD 11 12 06 01 67 ...............g
0241F0: 89 FE 11 13 06 01 89 86 FF 0D 0D 04 04 06 06 14 ................
024200: 6E 74 69 6C 20 69 3D 6E 3B 0D 0A 65 6E 64 3B 0D ntil i=n;..end;.
024210: 0A 0D 0A 62 65 67 69 6E 20 20 20 7B 73 69 65 72 ...begin {sier
024220: 70 69 6E 73 6B 69 7D 0D 0A 20 20 53 65 74 48 65 pinski}.. SetHe
024230: 61 64 65 72 4F 6E 3B 0D 0A 20 20 44 65 66 69 6E aderOn;.. Defin
024240: 65 57 6F 72 6C 64 28 31 2C 2D 33 2C 32 35 38 2C eWorld(1,-3,258,
024250: 32 35 38 2C 2D 33 29 3B 0D 0A 20 20 53 65 6C 65 258,-3);.. Sele
024260: 63 74 57 6F 72 6C 64 28 31 29 3B 0D 0A 20 20 53 ctWorld(1);.. S
024270: 65 6C 65 63 74 57 69 6E 64 6F 77 28 31 29 3B 0D electWindow(1);.
024280: 0A 20 20 44 72 61 77 42 6F 72 64 65 72 3B 0D 0A . DrawBorder;..
024290: 20 20 44 6F 49 74 3B 0D 0A 0D 0A 65 6E 64 3B 0D DoIt;....end;.
0242A0: 0A 0D 0A 0D 0A 62 65 67 69 6E 0D 0A 0D 0A 49 6E .....begin....In
0242B0: 69 74 47 72 61 70 68 69 63 3B 20 20 20 20 20 20 itGraphic;
0242C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0242D0: 20 20 20 20 20 7B 69 6E 69 74 69 61 6C 69 7A 65 {initialize
0242E0: 20 74 68 65 20 67 72 61 70 68 69 63 73 20 73 79 the graphics sy
0242F0: 73 74 65 6D 7D 0D 0A 0D 0A 44 65 66 69 6E 65 48 stem}....DefineH
024300: 65 61 64 65 72 28 31 2C 27 44 45 4D 4F 4E 53 54 eader(1,'DEMONST
024310: 52 41 54 45 20 53 43 52 45 45 4E 20 50 52 49 4E RATE SCREEN PRIN
024320: 54 49 4E 47 27 29 3B 20 7B 67 69 76 65 20 69 74 TING'); {give it
024330: 20 61 20 68 65 61 64 65 72 7D 0D 0A 0D 0A 53 65 a header}....Se
024340: 74 48 65 61 64 65 72 4F 6E 3B 0D 0A 0D 0A 53 69 tHeaderOn;....Si
024350: 65 72 70 69 6E 73 6B 69 3B 20 20 20 20 20 20 20 erpinski;
024360: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
024370: 20 20 20 20 20 7B 64 6F 20 74 68 65 20 63 75 72 {do the cur
024380: 76 65 7D 0D 0A 0D 0A 0D 0A 48 61 72 64 43 6F 70 ve}......HardCop
024390: 79 28 66 61 6C 73 65 2C 31 29 3B 20 20 20 20 20 y(false,1);
0243A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0243B0: 7B 70 72 69 6E 74 20 69 74 7D 0D 0A 0D 0A 0D 0A {print it}......
0243C0: 72 65 70 65 61 74 20 75 6E 74 69 6C 20 6B 65 79 repeat until key
0243D0: 70 72 65 73 73 65 64 3B 20 20 20 20 20 20 20 20 pressed;
0243E0: 20 20 20 20 20 20 20 7B 77 61 69 74 20 75 6E 74 {wait unt
0243F0: 69 6C 20 61 20 6B 65 79 20 69 73 20 70 72 65 73 il a key is pres
024400: 70 72 6F 67 72 61 6D 20 53 63 72 65 65 6E 49 4F program ScreenIO
024410: 3B 0D 0A 0D 0A 7B 24 49 20 74 79 70 65 64 65 66 ;....{$I typedef
024420: 2E 73 79 73 7D 20 20 20 20 20 20 20 20 20 20 20 .sys}
024430: 20 20 20 20 20 20 20 20 20 20 20 20 7B 43 65 73 {Ces
024440: 20 66 69 63 68 69 65 72 73 20 64 6F 69 76 65 6E fichiers doiven
024450: 74 20 65 74 72 65 7D 0D 0A 7B 24 49 20 67 72 61 t etre}..{$I gra
024460: 70 68 69 78 2E 73 79 73 7D 20 20 20 20 20 20 20 phix.sys}
024470: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
024480: 7B 69 6E 63 6C 75 73 20 64 61 6E 73 20 63 65 74 {inclus dans cet
024490: 20 6F 72 64 72 65 7D 0D 0A 7B 24 49 20 6B 65 72 ordre}..{$I ker
0244A0: 6E 65 6C 2E 73 79 73 7D 0D 0A 7B 24 49 20 6B 65 nel.sys}..{$I ke
0244B0: 72 6E 65 6C 31 2E 73 79 73 7D 0D 0A 0D 0A 0D 0A rnel1.sys}......
0244C0: 70 72 6F 63 65 64 75 72 65 20 53 69 65 72 70 69 procedure Sierpi
0244D0: 6E 73 6B 69 3B 0D 0A 63 6F 6E 73 74 20 6E 3D 36 nski;..const n=6
0244E0: 3B 0D 0A 76 61 72 20 69 2C 68 2C 78 2C 79 2C 78 ;..var i,h,x,y,x
0244F0: 30 2C 79 30 3A 69 6E 74 65 67 65 72 3B 0D 0A 20 0,y0:integer;..
024500: 20 20 20 73 65 63 3A 62 6F 6F 6C 65 61 6E 3B 0D sec:boolean;.
024510: 0A 0D 0A 70 72 6F 63 65 64 75 72 65 20 70 6C 6F ...procedure plo
024520: 74 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 t;
024530: 20 20 20 20 20 20 20 20 20 20 7B 74 72 61 63 65 {trace
024540: 20 75 6E 65 20 6C 69 67 6E 65 7D 0D 0A 62 65 67 une ligne}..beg
024550: 69 6E 0D 0A 20 20 44 72 61 77 4C 69 6E 65 28 78 in.. DrawLine(x
024560: 2C 79 2C 78 30 2C 79 30 29 3B 0D 0A 20 20 78 30 ,y,x0,y0);.. x0
024570: 3A 3D 78 3B 0D 0A 20 20 79 30 3A 3D 79 3B 0D 0A :=x;.. y0:=y;..
024580: 65 6E 64 3B 0D 0A 0D 0A 0D 0A 70 72 6F 63 65 64 end;......proced
024590: 75 72 65 20 62 28 69 3A 69 6E 74 65 67 65 72 29 ure b(i:integer)
0245A0: 3B 20 66 6F 72 77 61 72 64 3B 20 20 20 20 20 20 ; forward;
0245B0: 20 7B 66 6F 72 77 61 72 64 20 72 65 66 65 72 65 {forward refere
0245C0: 6E 63 65 73 20 70 6F 75 72 20 72 65 63 75 72 73 nces pour recurs
0245D0: 69 6F 6E 7D 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 ion}....procedur
0245E0: 65 20 63 28 69 3A 69 6E 74 65 67 65 72 29 3B 20 e c(i:integer);
0245F0: 66 6F 72 77 61 72 64 3B 0D 0A 0D 0A 70 72 6F 63 forward;....proc
024600: 73 65 64 7D 0D 0A 0D 0A 4C 65 61 76 65 47 72 61 sed}....LeaveGra
024610: 70 68 69 63 3B 20 20 20 20 20 20 20 20 20 20 20 phic;
024620: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7B {
024630: 6C 65 61 76 65 20 74 68 65 20 67 72 61 70 68 69 leave the graphi
024640: 63 73 20 73 79 73 74 65 6D 7D 0D 0A 0D 0A 65 6E cs system}....en
024650: 64 2E 0D 0A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A d...............
024660: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
024670: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
024680: 0A 20 20 44 72 61 77 42 6F 72 64 65 72 3B 0D 0A . DrawBorder;..
024690: 20 20 44 6F 49 74 3B 0D 0A 0D 0A 65 6E 64 3B 0D DoIt;....end;.
0246A0: 0A 0D 0A 0D 0A 62 65 67 69 6E 0D 0A 0D 0A 49 6E .....begin....In
0246B0: 69 74 47 72 61 70 68 69 63 3B 20 20 20 20 20 20 itGraphic;
0246C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0246D0: 20 20 20 20 20 7B 69 6E 69 74 69 61 6C 69 7A 65 {initialize
0246E0: 20 74 68 65 20 67 72 61 70 68 69 63 73 20 73 79 the graphics sy
0246F0: 73 74 65 6D 7D 0D 0A 0D 0A 44 65 66 69 6E 65 48 stem}....DefineH
024700: 65 61 64 65 72 28 31 2C 27 44 45 4D 4F 4E 53 54 eader(1,'DEMONST
024710: 52 41 54 45 20 53 43 52 45 45 4E 20 50 52 49 4E RATE SCREEN PRIN
024720: 54 49 4E 47 27 29 3B 20 7B 67 69 76 65 20 69 74 TING'); {give it
024730: 20 61 20 68 65 61 64 65 72 7D 0D 0A 0D 0A 53 65 a header}....Se
024740: 74 48 65 61 64 65 72 4F 6E 3B 0D 0A 0D 0A 53 69 tHeaderOn;....Si
024750: 65 72 70 69 6E 73 6B 69 3B 20 20 20 20 20 20 20 erpinski;
024760: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
024770: 20 20 20 20 20 7B 64 6F 20 74 68 65 20 63 75 72 {do the cur
024780: 76 65 7D 0D 0A 0D 0A 0D 0A 48 61 72 64 43 6F 70 ve}......HardCop
024790: 79 28 66 61 6C 73 65 2C 31 29 3B 20 20 20 20 20 y(false,1);
0247A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0247B0: 7B 70 72 69 6E 74 20 69 74 7D 0D 0A 0D 0A 0D 0A {print it}......
0247C0: 72 65 70 65 61 74 20 75 6E 74 69 6C 20 6B 65 79 repeat until key
0247D0: 70 72 65 73 73 65 64 3B 20 20 20 20 20 20 20 20 pressed;
0247E0: 20 20 20 20 20 20 20 7B 77 61 69 74 20 75 6E 74 {wait unt
0247F0: 69 6C 20 61 20 6B 65 79 20 69 73 20 70 72 65 73 il a key is pres
024800: 65 64 75 72 65 20 64 28 69 3A 69 6E 74 65 67 65 edure d(i:intege
024810: 72 29 3B 20 66 6F 72 77 61 72 64 3B 0D 0A 0D 0A r); forward;....
024820: 70 72 6F 63 65 64 75 72 65 20 61 28 69 3A 69 6E procedure a(i:in
024830: 74 65 67 65 72 29 3B 20 20 20 20 20 20 20 20 20 teger);
024840: 20 20 20 20 20 20 20 7B 70 72 65 6D 69 65 72 65 {premiere
024850: 20 70 72 6F 63 65 64 75 72 65 20 72 65 63 75 72 procedure recur
024860: 73 69 76 65 7D 0D 0A 62 65 67 69 6E 0D 0A 20 20 sive}..begin..
024870: 69 66 20 69 3E 30 20 74 68 65 6E 0D 0A 20 20 62 if i>0 then.. b
024880: 65 67 69 6E 0D 0A 20 20 20 20 61 28 69 2D 31 29 egin.. a(i-1)
024890: 3B 0D 0A 20 20 20 20 78 3A 3D 78 2B 68 3B 0D 0A ;.. x:=x+h;..
0248A0: 20 20 20 20 79 3A 3D 79 2D 68 3B 0D 0A 20 20 20 y:=y-h;..
0248B0: 20 70 6C 6F 74 3B 0D 0A 20 20 20 20 62 28 69 2D plot;.. b(i-
0248C0: 31 29 3B 0D 0A 20 20 20 20 78 3A 3D 78 2B 32 2A 1);.. x:=x+2*
0248D0: 68 3B 0D 0A 20 20 20 20 70 6C 6F 74 3B 0D 0A 20 h;.. plot;..
0248E0: 20 20 20 64 28 69 2D 31 29 3B 0D 0A 20 20 20 20 d(i-1);..
0248F0: 78 3A 3D 78 2B 68 3B 0D 0A 20 20 20 20 79 3A 3D x:=x+h;.. y:=
024900: 79 2B 68 3B 0D 0A 20 20 20 20 70 6C 6F 74 3B 0D y+h;.. plot;.
024910: 0A 20 20 20 20 61 28 69 2D 31 29 3B 0D 0A 20 20 . a(i-1);..
024920: 65 6E 64 3B 0D 0A 65 6E 64 3B 0D 0A 0D 0A 70 72 end;..end;....pr
024930: 6F 63 65 64 75 72 65 20 62 3B 20 20 20 20 20 20 ocedure b;
024940: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
024950: 20 20 20 20 20 7B 73 65 63 6F 6E 64 65 20 70 72 {seconde pr
024960: 6F 63 65 64 75 72 65 20 72 65 63 75 72 73 69 76 ocedure recursiv
024970: 65 7D 0D 0A 62 65 67 69 6E 0D 0A 20 20 69 66 20 e}..begin.. if
024980: 69 3E 30 20 74 68 65 6E 0D 0A 20 20 62 65 67 69 i>0 then.. begi
024990: 6E 0D 0A 20 20 20 20 62 28 69 2D 31 29 3B 0D 0A n.. b(i-1);..
0249A0: 20 20 20 20 78 3A 3D 78 2D 68 3B 0D 0A 20 20 20 x:=x-h;..
0249B0: 20 79 3A 3D 79 2D 68 3B 0D 0A 20 20 20 20 70 6C y:=y-h;.. pl
0249C0: 6F 74 3B 0D 0A 20 20 20 20 63 28 69 2D 31 29 3B ot;.. c(i-1);
0249D0: 0D 0A 20 20 20 20 79 3A 3D 79 2D 32 2A 68 3B 0D .. y:=y-2*h;.
0249E0: 0A 20 20 20 20 70 6C 6F 74 3B 0D 0A 20 20 20 20 . plot;..
0249F0: 61 28 69 2D 31 29 3B 0D 0A 20 20 20 20 78 3A 3D a(i-1);.. x:=
024A00: 70 72 6F 67 72 61 6D 20 46 69 6E 64 57 6F 72 6C program FindWorl
024A10: 64 3B 0D 0A 0D 0A 7B 24 49 20 74 79 70 65 64 65 d;....{$I typede
024A20: 66 2E 73 79 73 7D 20 20 20 20 20 20 20 20 20 20 f.sys}
024A30: 20 20 20 20 20 20 20 20 20 20 20 20 20 7B 63 65 {ce
024A40: 73 20 66 69 63 68 69 65 72 73 20 64 6F 69 76 65 s fichiers doive
024A50: 6E 74 20 65 74 72 65 7D 0D 0A 7B 24 49 20 67 72 nt etre}..{$I gr
024A60: 61 70 68 69 78 2E 73 79 73 7D 20 20 20 20 20 20 aphix.sys}
024A70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
024A80: 20 7B 69 6E 63 6C 75 73 20 64 61 6E 73 20 63 65 {inclus dans ce
024A90: 74 20 6F 72 64 72 65 7D 0D 0A 7B 24 49 20 6B 65 t ordre}..{$I ke
024AA0: 72 6E 65 6C 2E 73 79 73 7D 0D 0A 7B 24 49 20 6B rnel.sys}..{$I k
024AB0: 65 72 6E 65 6C 31 2E 73 79 73 7D 0D 0A 7B 24 49 ernel1.sys}..{$I
024AC0: 20 77 69 6E 64 6F 77 73 2E 73 79 73 7D 0D 0A 7B windows.sys}..{
024AD0: 24 49 20 66 69 6E 64 77 72 6C 64 2E 68 67 68 7D $I findwrld.hgh}
024AE0: 0D 0A 7B 24 49 20 61 78 69 73 2E 68 67 68 7D 0D ..{$I axis.hgh}.
024AF0: 0A 7B 24 49 20 70 6F 6C 79 67 6F 6E 2E 68 67 68 .{$I polygon.hgh
024B00: 7D 0D 0A 7B 24 49 20 73 70 6C 69 6E 65 2E 68 67 }..{$I spline.hg
024B10: 68 7D 0D 0A 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 h}......procedur
024B20: 65 20 46 69 6E 64 57 6F 72 6C 64 44 65 6D 3B 0D e FindWorldDem;.
024B30: 0A 0D 0A 76 61 72 20 78 3A 72 65 61 6C 3B 0D 0A ...var x:real;..
024B40: 20 20 20 20 64 78 2C 64 79 2C 69 2C 6E 2C 6C 69 dx,dy,i,n,li
024B50: 6E 65 73 2C 73 63 61 6C 65 3A 69 6E 74 65 67 65 nes,scale:intege
024B60: 72 3B 0D 0A 20 20 20 20 58 31 2C 59 31 2C 58 32 r;.. X1,Y1,X2
024B70: 2C 59 32 3A 69 6E 74 65 67 65 72 3B 0D 0A 20 20 ,Y2:integer;..
024B80: 20 20 62 2C 61 3A 50 6C 6F 74 41 72 72 61 79 3B b,a:PlotArray;
024B90: 0D 0A 0D 0A 62 65 67 69 6E 0D 0A 0D 0A 20 20 44 ....begin.... D
024BA0: 65 66 69 6E 65 57 69 6E 64 6F 77 28 31 2C 30 2C efineWindow(1,0,
024BB0: 30 2C 58 4D 61 78 47 6C 62 2C 59 4D 61 78 47 6C 0,XMaxGlb,YMaxGl
024BC0: 62 29 3B 20 20 20 20 20 20 20 20 20 20 7B 64 65 b); {de
024BD0: 66 69 6E 69 74 20 6C 61 20 66 65 6E 65 74 72 65 finit la fenetre
024BE0: 20 63 6F 6D 6D 65 20 6C 27 27 65 63 72 61 6E 20 comme l''ecran
024BF0: 65 6E 74 69 65 72 7D 0D 0A 20 20 44 65 66 69 6E entier}.. Defin
024C00: 78 2B 68 3B 0D 0A 20 20 20 20 79 3A 3D 79 2D 68 x+h;.. y:=y-h
024C10: 3B 0D 0A 20 20 20 20 70 6C 6F 74 3B 0D 0A 20 20 ;.. plot;..
024C20: 20 20 62 28 69 2D 31 29 3B 0D 0A 20 20 65 6E 64 b(i-1);.. end
024C30: 3B 0D 0A 65 6E 64 3B 0D 0A 0D 0A 70 72 6F 63 65 ;..end;....proce
024C40: 64 75 72 65 20 63 3B 20 20 20 20 20 20 20 20 20 dure c;
024C50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
024C60: 20 20 7B 74 72 6F 69 73 69 65 6D 65 20 70 72 6F {troisieme pro
024C70: 63 65 64 75 72 65 20 72 65 63 75 72 73 69 76 65 cedure recursive
024C80: 7D 0D 0A 62 65 67 69 6E 0D 0A 20 20 69 66 20 69 }..begin.. if i
024C90: 3E 30 20 74 68 65 6E 0D 0A 20 20 62 65 67 69 6E >0 then.. begin
024CA0: 0D 0A 20 20 20 20 63 28 69 2D 31 29 3B 0D 0A 20 .. c(i-1);..
024CB0: 20 20 20 78 3A 3D 78 2D 68 3B 0D 0A 20 20 20 20 x:=x-h;..
024CC0: 79 3A 3D 79 2B 68 3B 0D 0A 20 20 20 20 70 6C 6F y:=y+h;.. plo
024CD0: 74 3B 0D 0A 20 20 20 20 64 28 69 2D 31 29 3B 0D t;.. d(i-1);.
024CE0: 0A 20 20 20 20 78 3A 3D 78 2D 32 2A 68 3B 0D 0A . x:=x-2*h;..
024CF0: 20 20 20 20 70 6C 6F 74 3B 0D 0A 20 20 20 20 62 plot;.. b
024D00: 28 69 2D 31 29 3B 0D 0A 20 20 20 20 78 3A 3D 78 (i-1);.. x:=x
024D10: 2D 68 3B 0D 0A 20 20 20 20 79 3A 3D 79 2D 68 3B -h;.. y:=y-h;
024D20: 0D 0A 20 20 20 20 70 6C 6F 74 3B 0D 0A 20 20 20 .. plot;..
024D30: 20 63 28 69 2D 31 29 3B 0D 0A 20 20 65 6E 64 3B c(i-1);.. end;
024D40: 0D 0A 65 6E 64 3B 0D 0A 0D 0A 70 72 6F 63 65 64 ..end;....proced
024D50: 75 72 65 20 64 3B 20 20 20 20 20 20 20 20 20 20 ure d;
024D60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
024D70: 20 7B 64 65 72 6E 69 65 72 65 20 70 72 6F 63 65 {derniere proce
024D80: 64 75 72 65 20 72 65 63 75 72 73 69 76 65 7D 0D dure recursive}.
024D90: 0A 62 65 67 69 6E 0D 0A 20 20 69 66 20 69 3E 30 .begin.. if i>0
024DA0: 20 74 68 65 6E 0D 0A 20 20 62 65 67 69 6E 0D 0A then.. begin..
024DB0: 20 20 20 20 64 28 69 2D 31 29 3B 0D 0A 20 20 20 d(i-1);..
024DC0: 20 78 3A 3D 78 2B 68 3B 0D 0A 20 20 20 20 79 3A x:=x+h;.. y:
024DD0: 3D 79 2B 68 3B 0D 0A 20 20 20 20 70 6C 6F 74 3B =y+h;.. plot;
024DE0: 0D 0A 20 20 20 20 61 28 69 2D 31 29 3B 0D 0A 20 .. a(i-1);..
024DF0: 20 20 20 79 3A 3D 79 2B 32 2A 68 3B 0D 0A 20 20 y:=y+2*h;..
024E00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
024E10: 1F 00 01 00 02 09 50 E5 1F 00 41 02 00 00 00 02 ......P...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: 65 57 69 6E 64 6F 77 28 32 2C 30 2C 30 2C 58 4D eWindow(2,0,0,XM
024F10: 61 78 47 6C 62 2C 59 4D 61 78 47 6C 62 29 3B 0D axGlb,YMaxGlb);.
024F20: 0A 20 20 44 65 66 69 6E 65 57 6F 72 6C 64 28 31 . DefineWorld(1
024F30: 2C 30 2C 31 30 30 30 2C 31 30 30 30 2C 30 29 3B ,0,1000,1000,0);
024F40: 20 20 20 20 20 20 20 20 7B 64 6F 6E 6E 65 20 75 {donne u
024F50: 6E 20 6D 6F 6E 64 65 20 61 20 6C 27 27 65 63 72 n monde a l''ecr
024F60: 61 6E 7D 0D 0A 0D 0A 20 20 44 65 66 69 6E 65 48 an}.... DefineH
024F70: 65 61 64 65 72 28 32 2C 27 4C 45 20 4D 4F 4E 44 eader(2,'LE MOND
024F80: 45 20 43 48 45 52 43 48 45 27 29 3B 20 20 20 20 E CHERCHE');
024F90: 20 7B 66 65 6E 65 74 72 65 20 6F 75 20 6C 65 73 {fenetre ou les
024FA0: 20 63 6F 75 72 62 65 73 20 69 72 6F 6E 74 7D 0D courbes iront}.
024FB0: 0A 20 20 53 65 6C 65 63 74 57 69 6E 64 6F 77 28 . SelectWindow(
024FC0: 32 29 3B 0D 0A 20 20 53 65 74 48 65 61 64 65 72 2);.. SetHeader
024FD0: 4F 6E 3B 0D 0A 0D 0A 20 20 6E 3A 3D 31 30 3B 20 On;.... n:=10;
024FE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
024FF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7B 72 {r
025000: 65 6D 70 6C 69 74 20 6C 65 20 74 61 62 6C 65 61 emplit le tablea
025010: 75 7D 0D 0A 20 20 66 6F 72 20 69 3A 3D 31 20 74 u}.. for i:=1 t
025020: 6F 20 6E 20 64 6F 0D 0A 20 20 20 20 62 65 67 69 o n do.. begi
025030: 6E 0D 0A 20 20 20 20 20 20 61 5B 69 2C 31 5D 3A n.. a[i,1]:
025040: 3D 69 2D 31 3B 0D 0A 20 20 20 20 20 20 61 5B 69 =i-1;.. a[i
025050: 2C 32 5D 3A 3D 72 61 6E 64 6F 6D 2D 30 2E 35 3B ,2]:=random-0.5;
025060: 0D 0A 20 20 20 20 65 6E 64 3B 0D 0A 0D 0A 20 20 .. end;....
025070: 46 69 6E 64 57 6F 72 6C 64 28 32 2C 61 2C 6E 2C FindWorld(2,a,n,
025080: 31 2C 31 2E 30 38 29 3B 20 20 20 20 20 20 20 20 1,1.08);
025090: 20 20 20 20 20 7B 64 65 75 78 69 65 6D 65 20 6D {deuxieme m
0250A0: 6F 6E 64 65 20 61 20 64 72 6F 69 74 65 7D 0D 0A onde a droite}..
0250B0: 0D 0A 20 20 53 65 6C 65 63 74 57 69 6E 64 6F 77 .. SelectWindow
0250C0: 28 32 29 3B 0D 0A 20 20 44 72 61 77 42 6F 72 64 (2);.. DrawBord
0250D0: 65 72 3B 0D 0A 0D 0A 20 20 64 78 3A 3D 2D 38 3B er;.... dx:=-8;
0250E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0250F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7B 74 {t
025100: 77 7D 0D 0A 20 20 53 65 6C 65 63 74 57 69 6E 64 w}.. SelectWind
025110: 6F 77 28 31 29 3B 0D 0A 20 20 53 65 74 48 65 61 ow(1);.. SetHea
025120: 64 65 72 4F 6E 3B 0D 0A 20 20 53 65 74 42 61 63 derOn;.. SetBac
025130: 6B 67 72 6F 75 6E 64 28 30 29 3B 0D 0A 20 20 44 kground(0);.. D
025140: 72 61 77 42 6F 72 64 65 72 3B 0D 0A 0D 0A 0D 0A rawBorder;......
025150: 20 20 66 6F 72 20 69 3A 3D 31 20 74 6F 20 6E 20 for i:=1 to n
025160: 64 6F 20 20 20 20 20 20 20 20 20 20 20 20 20 20 do
025170: 20 20 20 20 20 20 20 20 20 20 7B 74 79 70 65 20 {type
025180: 74 68 65 20 69 6E 66 6F 20 69 6E 20 74 68 65 20 the info in the
025190: 75 70 2D 72 74 20 63 6F 72 6E 65 72 7D 0D 0A 20 up-rt corner}..
0251A0: 20 20 62 65 67 69 6E 0D 0A 20 20 20 20 47 6F 74 begin.. Got
0251B0: 6F 58 59 28 36 30 2C 34 2B 69 29 3B 20 20 20 20 oXY(60,4+i);
0251C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0251D0: 20 20 20 7B 67 6F 74 6F 20 63 6F 72 72 65 63 74 {goto correct
0251E0: 20 6C 69 6E 65 7D 0D 0A 20 20 20 20 77 72 69 74 line}.. writ
0251F0: 65 28 61 5B 69 5D 2E 74 65 78 74 2C 27 3D 27 29 e(a[i].text,'=')
025200: 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ;
025210: 20 20 7B 74 79 70 65 20 74 68 65 20 6C 61 62 6C {type the labl
025220: 65 20 69 6E 66 6F 7D 0D 0A 20 20 20 20 73 74 72 e info}.. str
025230: 28 61 5B 69 5D 2E 61 72 65 61 3A 36 3A 32 2C 4E (a[i].area:6:2,N
025240: 75 6D 54 65 78 74 29 3B 20 20 20 20 20 20 20 20 umText);
025250: 20 20 20 7B 66 6F 72 6D 61 74 20 74 68 65 20 6E {format the n
025260: 75 6D 65 72 69 63 20 69 6E 66 6F 7D 0D 0A 20 20 umeric info}..
025270: 20 20 77 72 69 74 65 28 4E 75 6D 54 65 78 74 29 write(NumText)
025280: 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ;
025290: 20 20 20 20 20 20 20 20 7B 74 79 70 65 20 74 68 {type th
0252A0: 65 20 6E 75 6D 65 72 69 63 20 69 6E 66 6F 7D 0D e numeric info}.
0252B0: 0A 20 20 20 65 6E 64 3B 0D 0A 0D 0A 0D 0A 20 20 . end;......
0252C0: 44 65 66 69 6E 65 57 69 6E 64 6F 77 28 32 2C 74 DefineWindow(2,t
0252D0: 72 75 6E 63 28 58 4D 61 78 47 6C 62 2F 31 30 29 runc(XMaxGlb/10)
0252E0: 2C 74 72 75 6E 63 28 59 4D 61 78 47 6C 62 2F 31 ,trunc(YMaxGlb/1
0252F0: 30 29 2C 0D 0A 20 20 20 20 20 20 20 20 20 20 20 0),..
025300: 72 61 63 65 20 6C 65 73 20 61 78 65 73 20 61 20 race les axes a
025310: 6C 27 27 69 6E 74 65 72 69 65 75 72 20 64 65 20 l''interieur de
025320: 6C 61 20 66 65 6E 65 74 72 65 7D 0D 0A 20 20 64 la fenetre}.. d
025330: 79 3A 3D 37 3B 0D 0A 20 20 58 31 3A 3D 33 3B 0D y:=7;.. X1:=3;.
025340: 0A 20 20 59 31 3A 3D 35 3B 0D 0A 20 20 58 32 3A . Y1:=5;.. X2:
025350: 3D 32 35 3B 0D 0A 20 20 59 32 3A 3D 31 30 3B 0D =25;.. Y2:=10;.
025360: 0A 20 20 6C 69 6E 65 73 3A 3D 30 3B 0D 0A 20 20 . lines:=0;..
025370: 73 63 61 6C 65 3A 3D 30 3B 0D 0A 0D 0A 20 20 53 scale:=0;.... S
025380: 65 74 4C 69 6E 65 53 74 79 6C 65 28 30 29 3B 20 etLineStyle(0);
025390: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0253A0: 20 20 20 20 7B 74 72 61 63 65 20 75 6E 65 20 63 {trace une c
0253B0: 6F 75 72 62 65 7D 0D 0A 20 20 44 72 61 77 41 78 ourbe}.. DrawAx
0253C0: 69 73 28 64 78 2C 64 79 2C 58 31 2C 59 31 2C 58 is(dx,dy,X1,Y1,X
0253D0: 32 2C 59 32 2C 6C 69 6E 65 73 2C 73 63 61 6C 65 2,Y2,lines,scale
0253E0: 2C 66 61 6C 73 65 29 3B 0D 0A 20 20 44 72 61 77 ,false);.. Draw
0253F0: 50 6F 6C 79 67 6F 6E 28 61 2C 31 2C 6E 2C 37 2C Polygon(a,1,n,7,
025400: 32 2C 30 29 3B 0D 0A 0D 0A 0D 0A 20 20 53 65 6C 2,0);...... Sel
025410: 65 63 74 57 6F 72 6C 64 28 31 29 3B 20 20 20 20 ectWorld(1);
025420: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
025430: 20 20 7B 63 68 6F 69 78 20 68 6F 72 73 20 64 65 {choix hors de
025440: 20 6C 61 20 66 65 6E 65 74 72 65 7D 0D 0A 20 20 la fenetre}..
025450: 53 65 6C 65 63 74 57 69 6E 64 6F 77 28 31 29 3B SelectWindow(1);
025460: 0D 0A 0D 0A 20 20 44 72 61 77 54 65 78 74 57 28 .... DrawTextW(
025470: 37 33 30 2C 34 35 30 2C 31 2C 5E 5B 27 37 40 32 730,450,1,^['7@2
025480: 20 20 20 4C 61 20 64 6F 6E 6E 65 65 27 29 3B 20 La donnee');
025490: 20 20 20 20 20 20 20 20 20 20 20 7B 61 66 66 69 {affi
0254A0: 63 68 65 20 6C 61 20 6C 65 67 65 6E 64 65 7D 0D che la legende}.
0254B0: 0A 20 20 44 72 61 77 54 65 78 74 57 28 37 33 30 . DrawTextW(730
0254C0: 2C 35 35 30 2C 31 2C 27 2D 2D 20 20 4C 61 20 63 ,550,1,'-- La c
0254D0: 6F 75 72 62 65 27 29 3B 0D 0A 0D 0A 65 6E 64 3B ourbe');....end;
0254E0: 0D 0A 0D 0A 0D 0A 0D 0A 62 65 67 69 6E 0D 0A 0D ........begin...
0254F0: 0A 49 6E 69 74 47 72 61 70 68 69 63 3B 20 20 20 .InitGraphic;
025500: 20 20 20 20 20 20 74 72 75 6E 63 28 58 4D 61 78 trunc(XMax
025510: 47 6C 62 2A 36 2F 31 30 29 2C 74 72 75 6E 63 28 Glb*6/10),trunc(
025520: 59 4D 61 78 47 6C 62 2A 37 2F 31 30 29 29 3B 0D YMaxGlb*7/10));.
025530: 0A 20 20 44 65 66 69 6E 65 48 65 61 64 65 72 28 . DefineHeader(
025540: 32 2C 27 41 20 50 49 45 20 43 48 41 52 54 27 29 2,'A PIE CHART')
025550: 3B 20 20 20 20 20 20 20 20 20 20 7B 73 65 74 20 ; {set
025560: 75 70 20 61 20 77 69 6E 64 6F 77 7D 0D 0A 20 20 up a window}..
025570: 44 65 66 69 6E 65 57 6F 72 6C 64 28 32 2C 30 2C DefineWorld(2,0,
025580: 31 30 30 30 2C 31 30 30 30 2C 30 29 3B 0D 0A 20 1000,1000,0);..
025590: 20 53 65 6C 65 63 74 57 6F 72 6C 64 28 32 29 3B SelectWorld(2);
0255A0: 0D 0A 20 20 53 65 6C 65 63 74 57 69 6E 64 6F 77 .. SelectWindow
0255B0: 28 32 29 3B 0D 0A 20 20 53 65 74 48 65 61 64 65 (2);.. SetHeade
0255C0: 72 4F 6E 3B 0D 0A 20 20 53 65 74 42 61 63 6B 67 rOn;.. SetBackg
0255D0: 72 6F 75 6E 64 28 30 29 3B 0D 0A 20 20 44 72 61 round(0);.. Dra
0255E0: 77 42 6F 72 64 65 72 3B 0D 0A 0D 0A 20 20 61 5B wBorder;.... a[
0255F0: 31 5D 2E 61 72 65 61 3A 3D 2D 61 5B 31 5D 2E 61 1].area:=-a[1].a
025600: 72 65 61 3B 20 20 20 20 20 20 20 20 20 20 20 20 rea;
025610: 20 20 20 20 20 7B 6D 6F 76 65 20 74 68 65 20 66 {move the f
025620: 69 72 73 74 20 73 65 67 6D 65 6E 74 20 6F 75 74 irst segment out
025630: 77 61 72 64 7D 0D 0A 20 20 53 65 74 41 73 70 65 ward}.. SetAspe
025640: 63 74 28 31 2E 30 29 3B 20 20 20 20 20 20 20 20 ct(1.0);
025650: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
025660: 7B 73 65 74 20 74 68 65 20 61 73 70 65 63 74 20 {set the aspect
025670: 72 61 74 69 6F 7D 0D 0A 0D 0A 20 20 78 31 3A 3D ratio}.... x1:=
025680: 35 30 30 3B 20 20 20 20 20 20 20 20 20 20 20 20 500;
025690: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0256A0: 20 20 20 7B 73 65 74 20 74 68 65 20 63 65 6E 74 {set the cent
0256B0: 65 72 20 74 6F 20 6D 69 64 20 73 63 72 65 65 6E er to mid screen
0256C0: 7D 0D 0A 20 20 79 31 3A 3D 35 30 30 3B 0D 0A 0D }.. y1:=500;...
0256D0: 0A 20 20 78 32 3A 3D 36 30 30 3B 20 20 20 20 20 . x2:=600;
0256E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0256F0: 20 20 20 20 20 20 20 20 20 20 7B 73 65 74 20 74 {set t
025700: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
025710: 20 20 20 20 20 20 20 20 7B 69 6E 69 74 69 61 6C {initial
025720: 69 73 65 20 6C 65 73 20 67 72 61 70 68 69 73 6D ise les graphism
025730: 65 73 7D 0D 0A 0D 0A 46 69 6E 64 57 6F 72 6C 64 es}....FindWorld
025740: 44 65 6D 3B 20 20 20 20 20 20 20 20 20 20 20 20 Dem;
025750: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7B 66 {f
025760: 61 69 74 20 6C 61 20 64 65 6D 6F 7D 0D 0A 0D 0A ait la demo}....
025770: 72 65 70 65 61 74 20 75 6E 74 69 6C 20 6B 65 79 repeat until key
025780: 70 72 65 73 73 65 64 3B 20 20 20 20 20 20 20 20 pressed;
025790: 20 20 20 20 20 20 20 7B 61 74 74 65 6E 64 20 6A {attend j
0257A0: 75 73 71 75 27 27 61 20 63 65 20 71 75 27 27 75 usqu''a ce qu''u
0257B0: 6E 65 20 74 6F 75 63 68 65 20 73 6F 69 74 20 66 ne touche soit f
0257C0: 72 61 70 70 65 65 7D 0D 0A 0D 0A 4C 65 61 76 65 rappee}....Leave
0257D0: 47 72 61 70 68 69 63 3B 20 20 20 20 20 20 20 20 Graphic;
0257E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0257F0: 20 20 7B 71 75 69 74 74 65 20 6C 65 73 20 67 72 {quitte les gr
025800: 61 70 68 69 73 6D 65 73 7D 0D 0A 0D 0A 65 6E 64 aphismes}....end
025810: 2E 0D 0A 0D 0A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
025820: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
025830: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
025840: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
025850: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
025860: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
025870: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
025880: 20 20 20 4C 61 20 64 6F 6E 6E 65 65 27 29 3B 20 La donnee');
025890: 20 20 20 20 20 20 20 20 20 20 20 7B 61 66 66 69 {affi
0258A0: 63 68 65 20 6C 61 20 6C 65 67 65 6E 64 65 7D 0D che la legende}.
0258B0: 0A 20 20 44 72 61 77 54 65 78 74 57 28 37 33 30 . DrawTextW(730
0258C0: 2C 35 35 30 2C 31 2C 27 2D 2D 20 20 4C 61 20 63 ,550,1,'-- La c
0258D0: 6F 75 72 62 65 27 29 3B 0D 0A 0D 0A 65 6E 64 3B ourbe');....end;
0258E0: 0D 0A 0D 0A 0D 0A 0D 0A 62 65 67 69 6E 0D 0A 0D ........begin...
0258F0: 0A 49 6E 69 74 47 72 61 70 68 69 63 3B 20 20 20 .InitGraphic;
025900: 68 65 20 73 74 61 72 74 20 6F 66 20 74 68 65 20 he start of the
025910: 63 69 72 63 6C 65 7D 0D 0A 20 20 79 32 3A 3D 33 circle}.. y2:=3
025920: 35 30 3B 0D 0A 0D 0A 20 20 49 6E 52 61 64 69 75 50;.... InRadiu
025930: 73 3A 3D 30 2E 37 3B 20 20 20 20 20 20 20 20 20 s:=0.7;
025940: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
025950: 7B 73 65 74 20 74 68 65 20 65 6E 64 73 20 6F 66 {set the ends of
025960: 20 74 68 65 20 6C 61 62 6C 65 20 6C 69 6E 65 7D the lable line}
025970: 0D 0A 20 20 4F 75 74 52 61 64 69 75 73 3A 3D 31 .. OutRadius:=1
025980: 2E 32 35 3B 0D 0A 0D 0A 20 20 44 72 61 77 43 61 .25;.... DrawCa
025990: 72 74 50 69 65 28 78 31 2C 79 31 2C 78 32 2C 79 rtPie(x1,y1,x2,y
0259A0: 32 2C 49 6E 52 61 64 69 75 73 2C 4F 75 74 52 61 2,InRadius,OutRa
0259B0: 64 69 75 73 2C 61 2C 6E 2C 32 2C 31 29 3B 20 7B dius,a,n,2,1); {
0259C0: 64 72 61 77 20 74 68 65 20 70 69 65 7D 0D 0A 0D draw the pie}...
0259D0: 0A 20 20 61 5B 31 5D 2E 61 72 65 61 3A 3D 2D 61 . a[1].area:=-a
0259E0: 5B 31 5D 2E 61 72 65 61 3B 20 20 20 20 20 20 20 [1].area;
0259F0: 20 20 20 20 20 20 20 20 20 20 7B 72 65 73 65 74 {reset
025A00: 20 74 68 65 20 73 69 67 6E 7D 0D 0A 0D 0A 20 20 the sign}....
025A10: 44 65 66 69 6E 65 57 69 6E 64 6F 77 28 33 2C 74 DefineWindow(3,t
025A20: 72 75 6E 63 28 58 4D 61 78 47 6C 62 2F 32 29 2C runc(XMaxGlb/2),
025A30: 74 72 75 6E 63 28 59 4D 61 78 47 6C 62 2F 32 29 trunc(YMaxGlb/2)
025A40: 2C 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ,..
025A50: 20 20 20 20 74 72 75 6E 63 28 58 4D 61 78 47 6C trunc(XMaxGl
025A60: 62 2A 39 2F 31 30 29 2C 74 72 75 6E 63 28 59 4D b*9/10),trunc(YM
025A70: 61 78 47 6C 62 2A 39 2F 31 30 29 29 3B 0D 0A 20 axGlb*9/10));..
025A80: 20 44 65 66 69 6E 65 48 65 61 64 65 72 28 33 2C DefineHeader(3,
025A90: 27 41 20 42 41 52 20 43 48 41 52 54 27 29 3B 20 'A BAR CHART');
025AA0: 20 20 20 20 20 20 20 20 7B 73 65 74 20 75 70 20 {set up
025AB0: 61 20 77 69 6E 64 6F 77 7D 0D 0A 20 20 44 65 66 a window}.. Def
025AC0: 69 6E 65 57 6F 72 6C 64 28 33 2C 30 2C 36 30 2C ineWorld(3,0,60,
025AD0: 31 30 2C 30 29 3B 0D 0A 20 20 53 65 6C 65 63 74 10,0);.. Select
025AE0: 57 6F 72 6C 64 28 33 29 3B 0D 0A 20 20 53 65 6C World(3);.. Sel
025AF0: 65 63 74 57 69 6E 64 6F 77 28 33 29 3B 0D 0A 20 ectWindow(3);..
025B00: 70 72 6F 67 72 61 6D 20 50 69 65 48 69 73 74 6F program PieHisto
025B10: 3B 0D 0A 0D 0A 7B 24 49 20 74 79 70 65 64 65 66 ;....{$I typedef
025B20: 2E 73 79 73 7D 20 20 20 20 20 20 20 20 20 20 20 .sys}
025B30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7B 74 {t
025B40: 68 65 73 65 20 66 69 6C 65 73 20 6D 75 73 74 20 hese files must
025B50: 62 65 7D 0D 0A 7B 24 49 20 67 72 61 70 68 69 78 be}..{$I graphix
025B60: 2E 73 79 73 7D 20 20 20 20 20 20 20 20 20 20 20 .sys}
025B70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7B 69 {i
025B80: 6E 63 6C 75 64 65 64 20 61 6E 64 20 69 6E 20 74 ncluded and in t
025B90: 68 69 73 20 6F 72 64 65 72 7D 0D 0A 7B 24 49 20 his order}..{$I
025BA0: 6B 65 72 6E 65 6C 2E 73 79 73 7D 0D 0A 7B 24 49 kernel.sys}..{$I
025BB0: 20 6B 65 72 6E 65 6C 31 2E 73 79 73 7D 0D 0A 7B kernel1.sys}..{
025BC0: 24 49 20 77 69 6E 64 6F 77 73 2E 73 79 73 7D 0D $I windows.sys}.
025BD0: 0A 7B 24 49 20 63 69 72 63 73 65 67 6D 2E 68 67 .{$I circsegm.hg
025BE0: 68 7D 0D 0A 7B 24 49 20 70 69 65 2E 68 67 68 7D h}..{$I pie.hgh}
025BF0: 0D 0A 7B 24 49 20 68 61 74 63 68 2E 68 67 68 7D ..{$I hatch.hgh}
025C00: 0D 0A 7B 24 49 20 68 69 73 74 6F 67 72 6D 2E 68 ..{$I histogrm.h
025C10: 67 68 7D 0D 0A 0D 0A 0D 0A 70 72 6F 63 65 64 75 gh}......procedu
025C20: 72 65 20 50 69 65 48 69 73 74 6F 44 65 6D 3B 0D re PieHistoDem;.
025C30: 0A 0D 0A 76 61 72 20 73 75 6D 2C 78 31 2C 79 31 ...var sum,x1,y1
025C40: 2C 78 32 2C 79 32 2C 49 6E 52 61 64 69 75 73 2C ,x2,y2,InRadius,
025C50: 4F 75 74 52 61 64 69 75 73 3A 72 65 61 6C 3B 0D OutRadius:real;.
025C60: 0A 20 20 20 20 69 2C 6E 3A 69 6E 74 65 67 65 72 . i,n:integer
025C70: 3B 0D 0A 20 20 20 20 61 3A 50 69 65 41 72 72 61 ;.. a:PieArra
025C80: 79 3B 0D 0A 20 20 20 20 62 3A 50 6C 6F 74 41 72 y;.. b:PlotAr
025C90: 72 61 79 3B 0D 0A 20 20 20 20 63 68 3A 63 68 61 ray;.. ch:cha
025CA0: 72 3B 0D 0A 20 20 20 20 4E 75 6D 54 65 78 74 3A r;.. NumText:
025CB0: 57 72 6B 53 74 72 69 6E 67 3B 0D 0A 0D 0A 62 65 WrkString;....be
025CC0: 67 69 6E 0D 0A 0D 0A 20 20 6E 3A 3D 35 3B 20 20 gin.... n:=5;
025CD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
025CE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
025CF0: 7B 74 68 65 20 6E 75 6D 62 65 72 20 6F 66 20 64 {the number of d
025D00: 20 53 65 74 48 65 61 64 65 72 4F 6E 3B 0D 0A 20 SetHeaderOn;..
025D10: 20 53 65 74 42 61 63 6B 67 72 6F 75 6E 64 28 30 SetBackground(0
025D20: 29 3B 0D 0A 20 20 44 72 61 77 42 6F 72 64 65 72 );.. DrawBorder
025D30: 3B 0D 0A 0D 0A 20 20 44 72 61 77 48 69 73 74 6F ;.... DrawHisto
025D40: 67 72 61 6D 28 62 2C 6E 2C 74 72 75 65 2C 35 29 gram(b,n,true,5)
025D50: 3B 0D 0A 0D 0A 66 6F 72 20 69 3A 3D 31 20 74 6F ;....for i:=1 to
025D60: 20 6E 20 64 6F 20 20 20 20 20 20 20 20 20 20 20 n do
025D70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7B 64 {d
025D80: 72 61 77 20 74 68 65 20 62 61 72 20 63 68 61 72 raw the bar char
025D90: 74 20 6C 61 62 6C 65 73 7D 0D 0A 20 62 65 67 69 t lables}.. begi
025DA0: 6E 0D 0A 20 20 44 72 61 77 54 65 78 74 57 28 28 n.. DrawTextW((
025DB0: 31 30 2F 6E 29 2A 28 69 2D 31 29 2C 31 30 2C 31 10/n)*(i-1),10,1
025DC0: 2C 27 20 20 20 27 2B 61 5B 69 5D 2E 74 65 78 74 ,' '+a[i].text
025DD0: 29 3B 20 20 7B 64 72 61 77 20 74 68 65 20 74 65 ); {draw the te
025DE0: 78 74 7D 0D 0A 20 20 73 74 72 28 61 5B 69 5D 2E xt}.. str(a[i].
025DF0: 61 72 65 61 3A 36 3A 32 2C 4E 75 6D 54 65 78 74 area:6:2,NumText
025E00: 29 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 );
025E10: 20 20 20 20 20 20 7B 66 6F 72 6D 61 74 20 74 68 {format th
025E20: 65 20 6E 75 6D 62 65 72 7D 0D 0A 20 20 44 72 61 e number}.. Dra
025E30: 77 54 65 78 74 57 28 28 31 30 2F 6E 29 2A 28 69 wTextW((10/n)*(i
025E40: 2D 31 29 2C 31 36 2C 31 2C 27 20 27 2B 4E 75 6D -1),16,1,' '+Num
025E50: 54 65 78 74 29 3B 20 20 20 20 20 20 7B 64 72 61 Text); {dra
025E60: 77 20 74 68 65 20 6E 75 6D 62 65 72 7D 0D 0A 20 w the number}..
025E70: 65 6E 64 3B 0D 0A 0D 0A 65 6E 64 3B 0D 0A 0D 0A end;....end;....
025E80: 0D 0A 0D 0A 62 65 67 69 6E 0D 0A 0D 0A 49 6E 69 ....begin....Ini
025E90: 74 47 72 61 70 68 69 63 3B 20 20 20 20 20 20 20 tGraphic;
025EA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
025EB0: 20 20 20 20 20 20 7B 69 6E 69 74 69 61 6C 69 7A {initializ
025EC0: 65 20 74 68 65 20 67 72 61 70 68 69 63 73 20 73 e the graphics s
025ED0: 79 73 74 65 6D 7D 0D 0A 0D 0A 50 69 65 48 69 73 ystem}....PieHis
025EE0: 74 6F 44 65 6D 3B 20 20 20 20 20 20 20 20 20 20 toDem;
025EF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
025F00: 61 74 61 20 70 6F 69 6E 74 73 7D 0D 0A 20 20 61 ata points}.. a
025F10: 5B 31 5D 2E 61 72 65 61 3A 3D 32 35 3B 20 20 20 [1].area:=25;
025F20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
025F30: 20 20 20 20 20 20 7B 69 6E 69 74 69 61 6C 69 7A {initializ
025F40: 65 20 74 68 65 20 70 69 65 20 61 72 72 61 79 7D e the pie array}
025F50: 0D 0A 20 20 61 5B 32 5D 2E 61 72 65 61 3A 3D 31 .. a[2].area:=1
025F60: 37 2E 35 3B 0D 0A 20 20 61 5B 33 5D 2E 61 72 65 7.5;.. a[3].are
025F70: 61 3A 3D 39 2E 36 3B 0D 0A 20 20 61 5B 34 5D 2E a:=9.6;.. a[4].
025F80: 61 72 65 61 3A 3D 32 31 3B 0D 0A 20 20 61 5B 35 area:=21;.. a[5
025F90: 5D 2E 61 72 65 61 3A 3D 33 35 3B 0D 0A 20 20 61 ].area:=35;.. a
025FA0: 5B 31 5D 2E 74 65 78 74 3A 3D 27 4A 41 4E 2E 20 [1].text:='JAN.
025FB0: 27 3B 0D 0A 20 20 61 5B 32 5D 2E 74 65 78 74 3A ';.. a[2].text:
025FC0: 3D 27 46 45 42 2E 20 27 3B 0D 0A 20 20 61 5B 33 ='FEB. ';.. a[3
025FD0: 5D 2E 74 65 78 74 3A 3D 27 4D 41 52 2E 20 27 3B ].text:='MAR. ';
025FE0: 0D 0A 20 20 61 5B 34 5D 2E 74 65 78 74 3A 3D 27 .. a[4].text:='
025FF0: 41 50 52 2E 20 27 3B 0D 0A 20 20 61 5B 35 5D 2E APR. ';.. a[5].
026000: 74 65 78 74 3A 3D 27 4D 41 59 20 20 27 3B 0D 0A text:='MAY ';..
026010: 0D 0A 0D 0A 20 20 66 6F 72 20 69 3A 3D 31 20 74 .... for i:=1 t
026020: 6F 20 6E 20 64 6F 20 20 20 20 20 20 20 20 20 20 o n do
026030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7B 69 {i
026040: 6E 69 74 20 74 68 65 20 68 69 73 74 6F 67 72 61 nit the histogra
026050: 6D 20 61 72 72 61 79 7D 0D 0A 20 20 20 20 62 5B m array}.. b[
026060: 69 2C 32 5D 3A 3D 61 5B 69 5D 2E 61 72 65 61 3B i,2]:=a[i].area;
026070: 0D 0A 0D 0A 20 20 43 6C 65 61 72 53 63 72 65 65 .... ClearScree
026080: 6E 3B 0D 0A 20 20 53 65 74 43 6F 6C 6F 72 57 68 n;.. SetColorWh
026090: 69 74 65 3B 0D 0A 0D 0A 20 20 44 65 66 69 6E 65 ite;.... Define
0260A0: 57 69 6E 64 6F 77 28 31 2C 30 2C 30 2C 58 4D 61 Window(1,0,0,XMa
0260B0: 78 47 6C 62 2C 59 4D 61 78 47 6C 62 29 3B 0D 0A xGlb,YMaxGlb);..
0260C0: 20 20 44 65 66 69 6E 65 48 65 61 64 65 72 28 31 DefineHeader(1
0260D0: 2C 27 42 4F 54 48 20 41 20 50 49 45 20 41 4E 44 ,'BOTH A PIE AND
0260E0: 20 41 20 42 41 52 20 43 48 41 52 54 27 29 3B 20 A BAR CHART');
0260F0: 20 7B 73 65 74 20 75 70 20 61 20 77 69 6E 64 6F {set up a windo
026100: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
026110: 20 00 01 00 02 09 50 E5 20 00 41 02 00 00 00 02 .....P. .A.....
026120: 20 00 46 02 00 00 00 02 20 00 42 02 00 00 00 02 .F..... .B.....
026130: 20 00 47 02 00 00 00 02 20 00 43 02 00 00 00 02 .G..... .C.....
026140: 20 00 48 02 00 00 00 02 20 00 44 02 00 00 00 02 .H..... .D.....
026150: 20 00 49 02 00 00 00 02 20 00 45 02 00 00 00 02 .I..... .E.....
026160: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
026170: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
026180: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
026190: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0261A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0261B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0261C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0261D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0261E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0261F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
026200: 20 20 20 7B 64 6F 20 74 68 65 20 64 65 6D 6F 7D {do the demo}
026210: 0D 0A 0D 0A 72 65 70 65 61 74 20 75 6E 74 69 6C ....repeat until
026220: 20 6B 65 79 70 72 65 73 73 65 64 3B 20 20 20 20 keypressed;
026230: 20 20 20 20 20 20 20 20 20 20 20 20 20 7B 77 61 {wa
026240: 69 74 20 75 6E 74 69 6C 20 61 20 6B 65 79 20 69 it until a key i
026250: 73 20 70 72 65 73 73 65 64 7D 0D 0A 0D 0A 4C 65 s pressed}....Le
026260: 61 76 65 47 72 61 70 68 69 63 3B 20 20 20 20 20 aveGraphic;
026270: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
026280: 20 20 20 20 20 20 20 7B 6C 65 61 76 65 20 74 68 {leave th
026290: 65 20 67 72 61 70 68 69 63 73 20 73 79 73 74 65 e graphics syste
0262A0: 6D 7D 0D 0A 0D 0A 65 6E 64 2E 0D 0A 0D 0A 1A 1A m}....end.......
0262B0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0262C0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0262D0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0262E0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0262F0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
026300: 29 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 );
026310: 20 20 20 20 20 20 7B 66 6F 72 6D 61 74 20 74 68 {format th
026320: 65 20 6E 75 6D 62 65 72 7D 0D 0A 20 20 44 72 61 e number}.. Dra
026330: 77 54 65 78 74 57 28 28 31 30 2F 6E 29 2A 28 69 wTextW((10/n)*(i
026340: 2D 31 29 2C 31 36 2C 31 2C 27 20 27 2B 4E 75 6D -1),16,1,' '+Num
026350: 54 65 78 74 29 3B 20 20 20 20 20 20 7B 64 72 61 Text); {dra
026360: 77 20 74 68 65 20 6E 75 6D 62 65 72 7D 0D 0A 20 w the number}..
026370: 65 6E 64 3B 0D 0A 0D 0A 65 6E 64 3B 0D 0A 0D 0A end;....end;....
026380: 0D 0A 0D 0A 62 65 67 69 6E 0D 0A 0D 0A 49 6E 69 ....begin....Ini
026390: 74 47 72 61 70 68 69 63 3B 20 20 20 20 20 20 20 tGraphic;
0263A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0263B0: 20 20 20 20 20 20 7B 69 6E 69 74 69 61 6C 69 7A {initializ
0263C0: 65 20 74 68 65 20 67 72 61 70 68 69 63 73 20 73 e the graphics s
0263D0: 79 73 74 65 6D 7D 0D 0A 0D 0A 50 69 65 48 69 73 ystem}....PieHis
0263E0: 74 6F 44 65 6D 3B 20 20 20 20 20 20 20 20 20 20 toDem;
0263F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
026400: 99 14 C1 DA 6C 27 3F 70 9F 53 5A 3E 0F F8 5D D9 ....l'?p.SZ>..].
026410: 37 76 2F 21 DF 46 8F 87 77 F6 EC B4 EF 1C 59 04 7v/!.F..w.....Y.
026420: FF B8 30 DC 54 5B B8 D3 85 DF 37 98 4C BD C4 6F ..0.T[....7.L..o
026430: DC BE 63 A0 EC 84 81 57 7F 3F FC DA 81 F3 82 41 ..c....W.?.....A
026440: A6 3A F8 58 00 87 33 0B F0 B5 D9 BB 83 F3 7F 9C .:.X..3.........
026450: 19 18 6C 03 24 DC 86 1A F9 F4 9D 12 09 C1 90 48 ..l.$..........H
026460: 30 10 18 D6 44 92 99 95 CC AF DD 01 63 EF 41 47 0...D.......c.AG
026470: B7 1A 8A 6B A0 F0 83 EE C4 3B 98 13 36 59 DC 1A ...k.....;..6Y..
026480: 8B 14 D9 C6 5F 0F 13 D4 AF F3 48 20 03 E2 41 C5 ...._.....H ..A.
026490: 28 75 33 23 F3 69 8F 01 73 B4 C8 0F FD 01 5A 04 (u3#.i..s.....Z.
0264A0: FF BD 2E C1 50 5F B8 D5 8F DF 32 98 52 A4 C2 73 ....P_....2.R..s
0264B0: C4 B6 75 8C F8 B4 31 71 F3 C7 CD 64 8D F1 89 5D ..u...1q...d...]
0264C0: BF 3B E0 46 1D 81 37 0B F3 A1 C2 B8 9D FB 7F 9F .;.F..7.........
0264D0: 1B 18 6D 1E 21 C2 9E 1C D9 EB BC F0 B7 49 3C 59 ..m.!........I<Y
0264E0: 30 10 00 C9 4F 8A 84 95 CC B7 C3 1E 6A F2 42 5B 0...O.......j.B[
0264F0: B5 1A 8F 69 B4 E4 85 C2 D1 0B 74 0B BA BD E9 A5 ...i......t.....
026500: 9B 00 DF C6 5D 04 0F C0 AA E7 56 3D 09 EC 41 C7 ....].....V=..A.
026510: 34 68 32 20 ED 75 BD 11 73 5E CC 75 D9 BC 4A 01 4h2 .u..s^.u..J.
026520: E6 B7 2E C1 50 47 A5 D7 83 DF 32 98 4C B9 C3 77 ....PG....2.L..w
026530: C4 BF 71 8C FB B1 03 7F C7 2F E9 C8 AD D3 BA 6D ..q....../.....m
026540: 96 84 F4 5B 19 86 2B 13 F0 B5 DF BC 9B EF 63 AB ...[..+.......c.
026550: 3B 34 56 2A 9F CE 93 15 E0 D8 8C 3E 83 E9 2C 68 ;4V*.......>..,h
026560: 07 20 38 FF F0 A6 B8 A4 E2 9E FC 32 5B 22 9F 78 . 8........2[".x
026570: 84 A7 BE 4F 8C E0 B0 5C FD 0B 98 ED D9 68 C1 C6 ...O...\.....h..
026580: 47 35 BD 0C 75 23 3F D4 9B ED 7F 01 3B D4 9E DD G5..u#?.....;...
026590: 09 44 03 F0 F6 B6 70 34 5B 77 CC 83 3F 19 6B 3D .D....p4[w..?.k=
0265A0: D3 8F E1 D8 6D 6B 94 05 9E 1C FC AD 48 85 F0 43 ....mk......H..C
0265B0: 0A A7 42 AD CA 84 D0 BC FE 1F C9 09 59 CF BA 6B ..B.........Y..k
0265C0: 93 34 D1 DA 2C B9 07 61 C5 21 F4 C9 AE EF 5D AB .4..,..a.!....].
0265D0: 3F 34 0C 2A 8D E3 AA 2C 3B 1B 49 0B 81 29 E9 71 ?4.*...,;.I..).q
0265E0: 15 C6 3C FA 79 A6 EF A1 62 96 F1 32 BA 2C 7F 9B ..<.y...b..2.,..
0265F0: 92 36 96 5B E8 CD 21 DB C2 FD 95 0F 36 4E F0 9B .6.[..!.....6N..
026600: 49 C0 EF EA 6C D4 D9 C4 99 DF 7A EF CE D6 6D F5 I...l.....z...m.
026610: E6 6D F4 08 ED 59 89 21 9D 78 2C 83 CA 30 92 32 .m...Y.!.x,..0.2
026620: 7D 81 2E EA EE 6A 95 70 BA F3 03 49 4C 92 7E 42 }....j.p...IL.~B
026630: C4 80 43 A6 CA 86 32 E3 F3 16 C9 E4 AE 60 A4 69 ..C...2......`.i
026640: 95 08 F6 6A 3A B1 C2 07 A4 EB 8F FE 8F A2 3D CF ...j:.........=.
026650: 0B 41 32 4B 61 8F DD 0C AA 91 DD 60 D0 AD 70 01 .A2Ka......`..p.
026660: 66 48 58 FA 7F A6 95 A7 23 82 EE 32 79 C3 5A 74 fHX.....#..2y.Zt
026670: 88 36 BE AF 63 37 B7 EA D8 06 98 0F CE 68 C2 D6 .6..c7.......h..
026680: AA 05 1A C2 61 37 3F 15 6F C6 82 25 12 D4 5C F5 ....a7?.o..%..\.
026690: 30 47 0E 11 DF 21 FC D5 9C 60 8C 82 29 29 5D C6 0G...!...`..))].
0266A0: 2C 9A 2A FD 60 6B 60 CD B6 FE 03 A8 19 FB 04 AC ,.*.`k`.........
0266B0: F1 B9 B5 5F CF AC 3C 53 F3 EB E0 1D B4 38 BA 4F ..._..<S.....8.O
0266C0: 93 36 D7 C4 21 B2 07 5F B3 6D C2 84 AF C3 2A D8 .6..!.._.m....*.
0266D0: DF 35 C8 22 13 EE 52 00 D4 F4 BC EB 9F D5 30 79 .5."..R.......0y
0266E0: 01 28 2C B2 74 79 AC BB FC B9 F1 60 58 6D 7D 77 .(,.ty.....`Xm}w
0266F0: 85 4E CD AF A0 C5 B5 C2 89 78 6C 0E A2 90 D8 96 .N.......xl.....
026700: 53 00 E0 EA 6C CE 13 E3 B7 CF 7A 04 3B 88 6E 2A S...l.....z.;.n*
026710: 1D BB 03 1D DF 3F 8C A1 6A 70 53 9D CB 33 6A 36 .....?..jpS..3j6
026720: D3 FF 01 39 60 7F 94 9E B4 F2 C3 C9 40 FB 84 22 ...9`.......@.."
026730: 9A FA 30 80 A2 E1 43 36 F3 5D C9 6C AE 4C 9A 5B ..0...C6.].l.L.[
026740: BF 38 F8 58 14 9E 36 10 F2 B5 C3 BE 9D EF 7E 9A .8.X..6.......~.
026750: 1C 06 70 02 2A DC 86 1C F5 D9 8A 26 9F F5 30 45 ..p.*......&..0E
026760: 34 18 00 D7 45 9E 99 89 C8 AB DD 1F 69 FB 5C 5A 4...E.......i.\Z
026770: B6 02 92 6B A0 E5 83 EE DD 3B 98 2C 36 13 DB 1A ...k.....;.,6...
026780: 8B 18 DF C6 59 07 13 D8 A2 F3 4B 3F 0B F8 40 C0 ....Y.....K?..@.
026790: 32 68 2E 24 EF 75 A2 15 41 56 E1 B6 ED 30 7E 30 2h.$.u..AV...0~0
0267A0: 4B 8C 03 30 0D 4B E7 90 D6 81 77 DB 40 E0 95 31 K..0.K....w.@..1
0267B0: 8D 8E 34 A0 68 87 BD 73 C2 2F FB C4 9D EC 8B 5D ..4.h..s./.....]
0267C0: A1 24 E5 5D 1E 9E 2A 16 F3 AD C2 A4 9E F4 61 87 .$.]..*.......a.
0267D0: 06 05 69 19 3F C3 92 1C F5 D9 8D 25 8B E9 31 59 ..i.?......%..1Y
0267E0: 36 12 00 D7 45 97 85 88 D1 AA C6 00 77 EE 42 46 6...E.......w.BF
0267F0: B5 1A 8E 77 A1 F9 82 FA DC 3B B4 22 07 AA E0 BA ...w.....;."....
026800: C3 E2 20 CD AB 43 6F 70 79 72 69 67 68 74 20 28 .. ..Copyright (
026810: 43 29 20 31 39 38 35 20 42 4F 52 4C 41 4E 44 20 C) 1985 BORLAND
026820: 49 6E 63 00 04 00 A1 42 00 00 00 00 00 00 00 00 Inc....B........
026830: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
026840: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
026850: 00 00 00 06 5A 65 6E 69 74 68 64 65 72 20 43 50 ....Zenithder CP
026860: 43 34 36 34 2F 36 36 34 50 18 00 00 1C 00 0D 0D C464/664P.......
026870: 1C 01 01 01 1D 03 03 1B 1B 1B D5 00 1C 01 00 00 ................
026880: 1C 00 17 17 1D 17 17 EF 9E CD BD 04 1B 59 00 00 .............Y..
026890: 00 00 00 00 00 00 00 00 00 00 00 01 20 20 04 03 ............ ..
0268A0: 00 00 02 1B 45 00 00 00 00 00 00 00 00 00 02 1B ....E...........
0268B0: 4C 00 00 00 02 1B 4D 00 00 00 00 00 02 1B 4B 00 L.....M.......K.
0268C0: 00 00 02 1B 71 00 00 00 02 1B 70 00 00 00 00 00 ....q.....p.....
0268D0: 7E B7 37 C8 23 F5 E5 7E CD E8 01 E1 F1 3D C8 18 ~.7.#..~.....=..
0268E0: F3 CD 00 02 0D 0A 00 C9 6F E5 CD A6 00 C9 FE 80 ........o.......
0268F0: DC 6B 02 D4 84 02 E6 7F 18 EE E5 21 EE 01 18 04 .k.........!....
026900: E5 21 E8 01 22 13 02 E1 E3 F5 C5 D5 7E 23 B7 28 .!..".......~#.(
026910: 07 E5 CD E8 01 E1 18 F4 D1 C1 F1 E3 C9 7D B4 C8 .............}..
026920: 3A 24 01 87 87 87 E3 E3 E3 E3 C5 01 D2 04 C1 3D :$.............=
026930: 20 F4 2B 18 E8 CD D0 01 D8 2A CE 01 18 DF F5 C5 .+......*......
026940: D5 E5 21 A8 01 CD 35 02 21 A2 01 CD D0 01 2A BA ..!...5.!.....*.
026950: 01 D4 1D 02 E1 D1 C1 F1 C9 F5 C5 D5 E5 21 B4 01 .............!..
026960: 18 E9 F5 C5 D5 E5 21 AE 01 18 E0 F5 3A E0 00 B7 ......!.....:...
026970: 28 10 C5 D5 E5 AF 32 E0 00 21 C8 01 CD 35 02 E1 (.....2..!...5..
026980: D1 C1 F1 C9 F5 3A E0 00 FE FF 28 F6 C5 D5 E5 3E .....:....(....>
026990: FF 32 E0 00 21 C2 01 18 E3 F5 C5 D5 E5 21 BC 01 .2..!........!..
0269A0: 18 DA F5 C5 D5 E5 E5 11 F0 00 21 8B 01 01 10 00 ..........!.....
0269B0: ED B0 D1 3A 9E 01 4F 3A 9C 01 82 D5 CD DC 02 D1 ...:..O:........
0269C0: 3A 9F 01 4F 3A 9D 01 83 CD DC 02 21 F0 00 CD D0 :..O:......!....
0269D0: 01 2A A0 01 CD 1D 02 E1 D1 C1 F1 C9 21 F0 00 06 .*..........!...
0269E0: 00 09 EB 21 9B 01 34 35 28 02 12 C9 1B 1B 21 0A ...!..45(.....!.
0269F0: 03 06 03 2B 0E 2F 0C 96 30 FC 86 F5 79 FE 30 28 ...+./..0...y.0(
026A00: 70 72 6F 67 72 61 6D 20 44 72 61 77 41 6C 74 65 program DrawAlte
026A10: 72 6E 61 74 65 54 65 78 74 3B 0D 0A 0D 0A 7B 24 rnateText;....{$
026A20: 49 20 74 79 70 65 64 65 66 2E 73 79 73 7D 20 20 I typedef.sys}
026A30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
026A40: 20 20 20 20 20 20 20 20 20 20 20 7B 69 6E 63 6C {incl
026A50: 75 73 20 6C 65 73 20 67 72 61 70 68 69 73 6D 65 us les graphisme
026A60: 73 7D 0D 0A 7B 24 49 20 67 72 61 70 68 69 78 2E s}..{$I graphix.
026A70: 73 79 73 7D 0D 0A 7B 24 49 20 6B 65 72 6E 65 6C sys}..{$I kernel
026A80: 2E 73 79 73 7D 0D 0A 7B 24 49 20 6B 65 72 6E 65 .sys}..{$I kerne
026A90: 6C 31 2E 73 79 73 7D 0D 0A 0D 0A 0D 0A 63 6F 6E l1.sys}......con
026AA0: 73 74 20 4D 61 78 57 6F 72 6C 64 58 3A 20 72 65 st MaxWorldX: re
026AB0: 61 6C 3D 31 30 30 30 2E 30 3B 0D 0A 20 20 20 20 al=1000.0;..
026AC0: 20 20 4D 61 78 57 6F 72 6C 64 59 3A 20 72 65 61 MaxWorldY: rea
026AD0: 6C 3D 31 30 30 30 2E 30 3B 0D 0A 20 20 20 20 20 l=1000.0;..
026AE0: 20 43 68 61 72 41 72 72 61 79 31 3A 20 61 72 72 CharArray1: arr
026AF0: 61 79 20 5B 30 2E 2E 32 35 5D 20 6F 66 20 63 68 ay [0..25] of ch
026B00: 61 72 3D 20 20 7B 64 65 66 69 6E 69 74 20 75 6E ar= {definit un
026B10: 20 74 61 62 6C 65 61 75 20 64 65 20 63 61 72 61 tableau de cara
026B20: 63 74 65 72 65 73 7D 0D 0A 20 20 20 20 20 20 20 cteres}..
026B30: 20 28 27 41 27 2C 27 42 27 2C 27 43 27 2C 27 44 ('A','B','C','D
026B40: 27 2C 27 45 27 2C 27 46 27 2C 27 47 27 2C 27 48 ','E','F','G','H
026B50: 27 2C 27 49 27 2C 27 4A 27 2C 27 4B 27 2C 27 4C ','I','J','K','L
026B60: 27 2C 0D 0A 20 20 20 20 20 20 20 20 20 27 4D 27 ',.. 'M'
026B70: 2C 27 4E 27 2C 27 4F 27 2C 27 50 27 2C 27 51 27 ,'N','O','P','Q'
026B80: 2C 27 52 27 2C 27 53 27 2C 27 54 27 2C 27 55 27 ,'R','S','T','U'
026B90: 2C 27 56 27 2C 27 57 27 2C 27 58 27 2C 27 59 27 ,'V','W','X','Y'
026BA0: 2C 27 5A 27 29 3B 0D 0A 0D 0A 76 61 72 20 69 3A ,'Z');....var i:
026BB0: 69 6E 74 65 67 65 72 3B 0D 0A 20 20 20 20 43 68 integer;.. Ch
026BC0: 61 72 48 65 69 67 68 74 2C 43 68 61 72 57 69 64 arHeight,CharWid
026BD0: 74 68 3A 72 65 61 6C 3B 0D 0A 0D 0A 62 65 67 69 th:real;....begi
026BE0: 6E 0D 0A 20 20 49 6E 69 74 47 72 61 70 68 69 63 n.. InitGraphic
026BF0: 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ;
026C00: 01 12 13 F1 10 ED C9 01 0A 64 21 6B 01 C3 35 02 .........d!k..5.
026C10: 21 7B 01 C3 35 02 11 03 00 CD 5F 03 E6 01 18 06 !{..5....._.....
026C20: 11 06 00 CD 5F 03 6F 26 00 C9 11 12 00 18 F4 11 ...._.o&........
026C30: 0C 00 18 08 11 0F 00 18 03 11 09 00 E1 C1 E5 3A ...............:
026C40: DD 00 B7 28 1A D5 C5 CD A0 00 7C B5 28 0F CD E1 ...(......|.(...
026C50: 03 FE 13 20 08 CD E1 03 FE 03 CA D4 20 C1 D1 2A ... ........ ..*
026C60: 01 00 19 E9 22 D2 00 78 32 DD 00 79 B7 28 0B 3E ...."..x2..y.(.>
026C70: C3 32 38 00 21 FB 1F 22 39 00 21 A5 03 11 A0 00 .28.!.."9.!.....
026C80: 01 18 00 ED B0 21 BD 03 11 B8 00 01 0C 00 ED B0 .....!..........
026C90: AF 6F 67 32 D0 00 22 D4 00 22 D6 00 3E 7E 32 D1 .og2..".."..>~2.
026CA0: 00 32 E0 00 C9 C3 16 03 C3 20 03 C3 39 03 C3 2F .2....... ..9../
026CB0: 03 C3 34 03 C3 2A 03 C3 39 03 C3 20 03 C1 00 82 ..4..*..9.. ....
026CC0: 00 43 00 C4 00 C5 00 C1 00 C5 D5 E5 DD E5 FD E5 .C..............
026CD0: F5 6F 26 00 E5 CD A6 00 F1 FD E1 DD E1 E1 D1 C1 .o&.............
026CE0: C9 C5 D5 E5 DD E5 FD E5 CD A3 00 7D 18 EB 0E FF .........£.}....
026CF0: 18 0C 0E 00 ED 5B D2 00 13 1A FE 20 28 FA 21 65 .....[..... (.!e
026D00: 00 06 03 CD 7B 04 1A CD A6 04 FE 41 38 12 FE 51 ....{......A8..Q
026D10: 30 0E 47 13 1A FE 3A 20 06 78 D6 40 13 18 02 1B 0.G...: .x.@....
026D20: AF 21 5C 00 77 23 0C 0D 28 19 1A CD 82 04 20 13 .!\.w#..(..... .
026D30: FE 3F 28 0F FE 2A 28 0B FE 2E 28 07 06 0B CD 77 .?(..*(...(....w
026D40: 04 18 10 06 08 CD 5E 04 1A FE 2E 20 06 13 06 03 ......^.... ....
026D50: CD 5E 04 21 68 00 06 18 36 00 23 10 FB C9 1A 0C .^.!h...6.#.....
026D60: 0D 28 08 FE 3F 28 09 FE 2A 28 0B CD 82 04 28 0B .(..?(..*(....(.
026D70: 77 23 13 10 E9 C9 13 3E 3F 18 02 3E 20 77 23 10 w#.....>?..> w#.
026D80: FC C9 CD A6 04 FE 20 38 0D E5 C5 21 98 04 01 0E ...... 8...!....
026D90: 00 ED B1 C1 E1 C9 BF C9 20 2E 2C 3B 3A 3D 3F 2A ........ .,;:=?*
026DA0: 5B 5D 3C 3E 7B 7D FE 61 D8 FE 7B D0 D6 20 C9 7C []<>{}.a..{.. .|
026DB0: CD B4 04 7D F5 1F 1F 1F 1F CD BD 04 F1 E6 0F C6 ...}............
026DC0: 90 27 CE 40 27 C3 C9 03 AF 37 CB 7C C0 7C B7 7D .'.@'....7.|.|.}
026DD0: C8 3E FF C9 32 D8 00 C5 CD AF 1E C1 2A 06 00 B7 .>..2.......*...
026DE0: ED 42 DA A8 20 EB D1 F9 01 00 FC 09 22 C6 00 AF .B.. ......."...
026DF0: 6F 67 22 CE 00 32 DC 00 3E C3 32 D9 00 21 DE 20 og"..2..>.2..!.
026E00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
026E10: 7B 69 6E 69 74 69 61 6C 69 73 65 20 6C 65 73 20 {initialise les
026E20: 67 72 61 70 68 69 73 6D 65 73 7D 0D 0A 0D 0A 20 graphismes}....
026E30: 20 44 65 66 69 6E 65 57 6F 72 6C 64 28 31 2C 30 DefineWorld(1,0
026E40: 2C 4D 61 78 57 6F 72 6C 64 59 2C 4D 61 78 57 6F ,MaxWorldY,MaxWo
026E50: 72 6C 64 58 2C 30 29 3B 20 20 20 20 7B 64 65 66 rldX,0); {def
026E60: 69 6E 69 74 20 6C 65 20 6D 6F 6E 64 65 20 61 20 init le monde a
026E70: 64 65 73 73 69 6E 65 72 7D 0D 0A 20 20 53 65 6C dessiner}.. Sel
026E80: 65 63 74 57 6F 72 6C 64 28 31 29 3B 0D 0A 20 20 ectWorld(1);..
026E90: 53 65 6C 65 63 74 57 69 6E 64 6F 77 28 31 29 3B SelectWindow(1);
026EA0: 0D 0A 20 20 44 72 61 77 42 6F 72 64 65 72 3B 0D .. DrawBorder;.
026EB0: 0A 0D 0A 20 20 46 6F 72 20 69 3A 3D 31 20 74 6F ... For i:=1 to
026EC0: 20 35 30 20 64 6F 20 20 20 20 20 20 20 20 20 20 50 do
026ED0: 20 20 20 7B 61 66 66 69 63 68 65 20 61 6C 65 61 {affiche alea
026EE0: 74 6F 69 72 65 6D 65 6E 74 20 64 65 73 20 63 61 toirement des ca
026EF0: 72 61 63 74 65 72 65 73 20 61 75 20 63 65 6E 74 racteres au cent
026F00: 72 65 20 64 65 20 6C 27 27 65 63 72 61 6E 7D 0D re de l''ecran}.
026F10: 0A 20 20 20 20 20 20 44 72 61 77 54 65 78 74 57 . DrawTextW
026F20: 28 72 61 6E 64 6F 6D 28 36 30 30 29 2B 32 30 30 (random(600)+200
026F30: 2C 72 61 6E 64 6F 6D 28 36 30 30 29 2B 32 30 30 ,random(600)+200
026F40: 2C 72 61 6E 64 6F 6D 28 35 29 2C 0D 0A 20 20 20 ,random(5),..
026F50: 20 20 20 20 20 20 20 20 20 20 20 20 20 43 68 61 Cha
026F60: 72 41 72 72 61 79 31 5B 72 61 6E 64 6F 6D 28 32 rArray1[random(2
026F70: 36 29 5D 29 3B 0D 0A 0D 0A 20 20 44 72 61 77 54 6)]);.... DrawT
026F80: 65 78 74 57 28 31 35 2C 35 30 2C 31 2C 27 41 42 extW(15,50,1,'AB
026F90: 43 44 45 46 47 48 49 4A 4B 4C 4D 4E 4F 50 51 52 CDEFGHIJKLMNOPQR
026FA0: 53 54 55 56 57 58 59 5A 27 29 3B 20 20 20 20 20 STUVWXYZ');
026FB0: 20 7B 66 72 61 70 70 65 20 64 65 20 63 61 72 61 {frappe de cara
026FC0: 63 74 65 72 65 73 20 64 61 6E 73 20 6C 65 20 63 cteres dans le c
026FD0: 6F 69 6E 7D 0D 0A 20 20 44 72 61 77 54 65 78 74 oin}.. DrawText
026FE0: 57 28 31 35 2C 31 30 30 2C 31 2C 27 61 62 63 64 W(15,100,1,'abcd
026FF0: 65 66 67 68 69 6A 6B 6C 6D 6E 6F 70 71 72 73 74 efghijklmnopqrst
027000: 22 DA 00 EB 22 CC 00 E9 E5 2A C6 00 B7 ED 42 22 "..."....*....B"
027010: C6 00 ED 5B C4 00 B7 ED 52 19 EB E1 DA 75 1D ED ...[....R....u..
027020: B0 C9 2A C6 00 ED B0 22 C6 00 D9 C9 5E 23 56 23 ..*...."....^#V#
027030: D5 5E 23 56 23 4E 23 46 E1 C9 DD E1 EB 1A 4F 06 .^#V#N#F......O.
027040: 00 2F 6F 26 FF 39 F9 EB 03 ED B0 DD E9 D1 1A 4F ./o&.9.........O
027050: 06 00 2F 6F 26 FF 39 F9 EB 03 ED B0 E9 DD E1 EB ../o&.9.........
027060: 21 E0 FF 39 F9 EB C5 04 05 28 05 AF 12 13 10 FC !..9.....(......
027070: ED B0 C1 3E 20 90 91 28 06 47 AF 12 13 10 FC DD ...> ..(.G......
027080: E9 DD E1 21 E0 FF 39 F9 06 20 AF 77 23 10 FC DD ...!..9.. .w#...
027090: E9 DD E1 45 CD BA 05 B6 77 DD E9 DD E1 D1 7D 93 ...E....w.....}.
0270A0: 38 F7 3C 4F 43 CD BA 05 5F 41 AF B3 CB 23 30 06 8.<OC..._A...#0.
0270B0: B6 77 23 AF 1E 01 10 F3 18 DD 78 E6 F8 0F 0F 0F .w#.......x.....
0270C0: C6 02 6F 26 00 39 78 E6 07 3C 47 AF 37 17 10 FD ..o&.9x..<G.7...
0270D0: C9 E5 D9 EB E3 73 23 72 23 D1 73 23 72 23 71 23 .....s#r#.s#r#q#
0270E0: 70 C9 DD E1 78 EB 21 00 00 44 39 4E E5 09 23 E3 p...x.!..D9N..#.
0270F0: B9 38 01 79 12 13 23 B7 28 03 4F ED B0 E1 F9 DD .8.y..#.(.O.....
027100: E9 DD E1 78 21 00 00 44 39 4E E5 09 23 5E 23 56 ...x!..D9N..#^#V
027110: 18 DC DD E1 EB 68 26 00 44 39 ED B0 21 20 00 39 .....h&.D9..! .9
027120: F9 DD E9 DD E1 21 20 00 39 5E 23 56 68 26 00 44 .....! .9^#Vh&.D
027130: 39 ED B0 21 22 00 18 E7 DD E1 EB 78 2F 6F 26 FF 9..!"......x/o&.
027140: 39 F9 70 23 48 06 00 EB ED B0 DD E9 B7 ED 52 19 9.p#H.........R.
027150: D8 3E 90 C3 27 20 B7 ED 52 B7 ED 42 30 03 09 19 .>..' ..R..B0...
027160: C9 3E 91 C3 27 20 B7 ED 52 EB 13 EA 71 06 F0 18 .>..' ..R...q...
027170: 01 F8 11 00 00 C9 D5 EB B7 ED 52 EB E1 18 EB B7 ..........R.....
027180: ED 52 21 01 00 C8 2B C9 CD DF 0B 18 F5 CD B0 09 .R!...+.........
027190: 18 F0 B7 ED 52 21 01 00 C0 2B C9 CD DF 0B 18 F5 ....R!...+......
0271A0: CD B0 09 18 F0 CD 72 07 21 01 00 D0 2B C9 CD DF ......r.!...+...
0271B0: 0B 18 F5 CD B0 09 18 F0 CD 72 07 21 01 00 C8 D8 .........r.!....
0271C0: 2B C9 CD DF 0B 18 F4 CD B0 09 18 EF CD 72 07 21 +............r.!
0271D0: 00 00 C8 D8 23 C9 CD DF 0B 18 F4 CD B0 09 18 EF ....#...........
0271E0: CD 72 07 21 01 00 D8 2B C9 CD DF 0B 18 F5 CD B0 .r.!...+........
0271F0: 09 18 F0 54 5D 4B 42 EB 21 00 00 7A B7 3E 10 20 ...T]KB.!..z.>.
027200: 75 76 77 78 79 7A 27 29 3B 0D 0A 20 20 44 72 61 uvwxyz');.. Dra
027210: 77 54 65 78 74 57 28 31 35 2C 31 35 30 2C 31 2C wTextW(15,150,1,
027220: 27 31 32 33 34 35 36 37 38 39 30 2D 3D 5C 60 7E '1234567890-=\`~
027230: 21 40 23 24 25 5E 26 2A 28 29 5F 2B 7C 27 29 3B !@#$%^&*()_+|');
027240: 0D 0A 20 20 44 72 61 77 54 65 78 74 57 28 31 35 .. DrawTextW(15
027250: 2C 32 30 30 2C 31 2C 27 5B 5D 7B 7D 3A 22 3B 2C ,200,1,'[]{}:";,
027260: 2E 3C 3E 2F 3F 27 29 3B 0D 0A 0D 0A 20 20 72 65 .<>/?');.... re
027270: 70 65 61 74 20 75 6E 74 69 6C 20 6B 65 79 70 72 peat until keypr
027280: 65 73 73 65 64 3B 20 20 20 20 20 20 20 20 20 20 essed;
027290: 20 20 20 20 20 20 20 20 20 7B 61 74 74 65 6E 64 {attend
0272A0: 20 6A 75 73 71 75 27 27 61 20 63 65 20 71 75 65 jusqu''a ce que
0272B0: 20 75 6E 65 20 74 6F 75 63 68 65 20 73 6F 69 74 une touche soit
0272C0: 20 66 72 61 70 70 65 65 7D 0D 0A 20 20 4C 65 61 frappee}.. Lea
0272D0: 76 65 47 72 61 70 68 69 63 3B 20 20 20 20 20 20 veGraphic;
0272E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0272F0: 20 20 20 20 20 20 20 20 7B 71 75 69 74 74 65 20 {quitte
027300: 6C 65 20 73 79 73 74 65 6D 65 20 67 72 61 70 68 le systeme graph
027310: 69 71 75 65 7D 0D 0A 65 6E 64 2E 1A 1A 1A 1A 1A ique}..end......
027320: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
027330: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
027340: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
027350: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
027360: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
027370: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
027380: 65 78 74 57 28 31 35 2C 35 30 2C 31 2C 27 41 42 extW(15,50,1,'AB
027390: 43 44 45 46 47 48 49 4A 4B 4C 4D 4E 4F 50 51 52 CDEFGHIJKLMNOPQR
0273A0: 53 54 55 56 57 58 59 5A 27 29 3B 20 20 20 20 20 STUVWXYZ');
0273B0: 20 7B 66 72 61 70 70 65 20 64 65 20 63 61 72 61 {frappe de cara
0273C0: 63 74 65 72 65 73 20 64 61 6E 73 20 6C 65 20 63 cteres dans le c
0273D0: 6F 69 6E 7D 0D 0A 20 20 44 72 61 77 54 65 78 74 oin}.. DrawText
0273E0: 57 28 31 35 2C 31 30 30 2C 31 2C 27 61 62 63 64 W(15,100,1,'abcd
0273F0: 65 66 67 68 69 6A 6B 6C 6D 6E 6F 70 71 72 73 74 efghijklmnopqrst
027400: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
027410: 21 00 01 00 02 09 50 E5 21 00 41 02 00 00 00 02 !.....P.!.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: 03 53 3E 08 29 EB 29 EB 30 01 09 3D 20 F6 C9 7C .S>.).).0..= ..|
027510: B5 CA 03 0A 7C AA F5 CD 80 07 EB CD 80 07 EB 44 ....|..........D
027520: 4D AF 67 6F 3E 11 ED 6A ED 42 30 02 09 37 3F CB M.go>..j.B0..7?.
027530: 13 CB 12 3D 20 F0 EB F1 F0 18 48 E5 CD 92 07 CB ...= .....H.....
027540: 3C CB 1D D1 EB CD 0F 07 EB CB 7A C8 18 35 CD 61 <.........z..5.a
027550: 07 C8 29 10 FD C9 CD 61 07 C8 CB 3C CB 1D 10 FA ..)....a...<....
027560: C9 EB 7A B7 20 08 7B FE 10 30 03 47 B7 C9 AF 67 ..z. .{..0.G...g
027570: 6F C9 EB 7C AA 7C FA 7E 07 BA C0 7D BB C9 17 C9 o..|.|.~...}....
027580: CB 7C C8 7C 2F 67 7D 2F 6F 23 C9 7D E6 01 6F 26 .|.|/g}/o#.}..o&
027590: 00 C9 ED 4B CA 00 ED 5B C8 00 C5 D5 78 41 4A 53 ...K...[....xAJS
0275A0: 1E 00 1F CB 18 CB 19 CB 1A CB 1B E1 19 EB E1 ED ................
0275B0: 4A 44 4D 21 E9 62 19 22 C8 00 EB 21 19 36 ED 4A JDM!.b."...!.6.J
0275C0: 22 CA 00 44 4D C9 06 00 11 10 27 CD E2 07 11 E8 "..DM.....'.....
0275D0: 03 CD E2 07 11 64 00 CD E2 07 1E 0A CD E2 07 7D .....d.........}
0275E0: 18 0D AF 3C ED 52 30 FB 19 04 3D 20 02 05 C8 C6 ...<.R0...= ....
0275F0: 30 DD 77 00 DD 23 C9 DD 7E 00 D6 24 4F 21 00 00 0.w..#..~..$O!..
027600: 20 02 DD 23 DD 7E 00 CD A6 04 D6 30 38 29 FE 0A ..#.~.....08)..
027610: 38 0E 0C 0D 20 21 D6 07 FE 0A 38 1B FE 10 30 17 8... !....8...0.
027620: 54 5D 29 D8 29 D8 0C 0D 20 02 54 5D 19 D8 29 D8 T]).)... .T]..).
027630: 5F 16 00 19 D8 18 CB 79 B7 C8 7C 87 C9 DD E1 E1 _......y..|.....
027640: E5 7D 26 00 23 39 4E 81 38 1C 77 EB 21 00 00 44 .}&.#9N.8.w.!..D
027650: ED 42 39 F9 EB E5 03 ED B0 EB E1 2B 1B 4F 03 ED .B9........+.O..
027660: B8 EB 23 F9 DD E9 3E 10 C3 29 20 DD E1 CD C8 04 ..#...>..) .....
027670: 57 E1 CD DD 09 5F E1 E5 7D 93 38 1A 14 15 28 16 W...._..}.8...(.
027680: BA 38 16 4A 06 00 60 39 7B 82 54 5D 3D 6F 60 39 .8.J..`9{.T]=o`9
027690: 79 ED B8 EB 18 09 AF 18 03 3C 6B 2D 26 00 39 77 y........<k-&.9w
0276A0: F9 DD E9 DD E1 E1 E5 7D 26 00 23 39 F9 6F 26 00 .......}&.#9.o&.
0276B0: DD E9 DD E1 21 00 00 54 39 5E 4B 23 E5 19 5E 43 ....!..T9^K#..^C
0276C0: 23 E5 19 E5 FD E1 D1 E1 79 90 38 10 3C 4F C5 D5 #.......y.8.<O..
0276D0: E5 1A BE 28 0C E1 D1 C1 23 0D 20 F2 21 00 00 18 ...(....#. .!...
0276E0: 0E 23 13 10 EC D1 E1 C1 21 00 00 39 EB ED 52 FD .#......!..9..R.
0276F0: F9 DD E9 DD E1 CD C8 04 4F E1 CD DD 09 5F E1 7E ........O...._.~
027700: CB B8 7D D9 D6 80 6F 9F 67 11 4D 00 CD F5 06 11 ..}...o.g.M.....
027710: 05 00 19 7C FE D9 20 01 3C FD 77 00 ED 44 CD 40 ...|.. .<.w..D.@
027720: 12 7D FE 81 30 06 CD B3 12 FD 35 00 CB F8 3E 84 .}..0.....5...>.
027730: 95 2E 00 28 08 CD 7A 0B CB 1D 3D 20 F8 FD 7E 00 ...(..z...= ..~.
027740: F5 3E 0C 08 78 1F 1F 1F 1F E6 0F C6 30 FD 77 00 .>..x.......0.w.
027750: FD 23 78 E6 0F 47 C5 D5 E5 CB 25 CD 87 0B CB 25 .#x..G....%....%
027760: CD 87 0B EB E3 19 D1 E3 ED 5A EB E1 E3 ED 4A 44 .........Z....JD
027770: 4D E1 CB 25 CD 87 0B 08 3D 20 C8 F1 C1 FD E1 C9 M..%....= ......
027780: FD E5 E1 5F 16 00 19 7E 36 00 FE 35 D8 1D FA 9C ..._...~6..5....
027790: 11 2B 7E 3C 77 FE 3A D8 36 00 18 F1 36 31 23 36 .+~<w.:.6...61#6
0277A0: 00 0C C9 D9 01 00 00 D9 CD 72 0B DD 7E 00 CD A6 .........r..~...
0277B0: 04 FE 2E 20 0C D9 CB 70 37 C0 CB F0 D9 DD 23 18 ... ...p7.....#.
0277C0: EA FE 45 28 21 CD 39 12 30 54 08 CD B3 12 D8 08 ..E(!.9.0T......
0277D0: D9 C5 6F 26 00 CD 08 10 CD E9 09 D9 C1 D8 CB 70 ..o&...........p
0277E0: 28 01 0D D9 18 D7 CD 1E 12 D8 D9 CB E0 DD 23 DD (.............#.
0277F0: 7E 00 FE 2B 28 06 FE 2D 20 04 CB E8 DD 23 CD 36 ~..+(..- ....#.6
027800: 12 3F D8 4F DD 23 CD 36 12 30 0A DD 23 57 79 87 .?.O.#.6.0..#Wy.
027810: 87 81 87 82 4F CB 68 28 04 79 ED 44 4F D9 D9 79 ....O.h(.y.DO..y
027820: C6 80 FE 5A D8 FE A6 3F D8 C5 DD E5 79 CD 40 12 ...Z...?....y.@.
027830: DD E1 D9 C1 D9 C9 DD 7E 00 D6 30 3F D0 FE 0A C9 .......~..0?....
027840: F5 B7 F2 47 12 ED 44 F5 CB 3F CB 3F 3C 21 FA FF ...G..D..?.?<!..
027850: 11 06 00 19 3D 20 FC EB DD 21 77 12 DD 19 CD 73 ....= ...!w....s
027860: 0F F1 E6 03 28 08 F5 CD B3 12 F1 3D 20 F8 F1 B7 ....(......= ...
027870: F2 97 0A D9 C3 F5 0A 81 00 00 00 00 00 8E 00 00 ................
027880: 00 40 1C 9B 00 00 20 BC 3E A8 00 10 A5 D4 68 B6 .@.... .>.....h.
027890: 04 BF C9 1B 0E C3 AC C5 EB 78 2D D0 CD CE 1B C2 .........x-.....
0278A0: 53 DE F9 78 39 3F 01 EB 2B A8 AD C5 1D F8 C9 7B S..x9?..+......{
0278B0: CE 97 40 7D B7 C8 CB F8 C5 D5 7C CD 7A 0B CD 7A ..@}......|.z..z
0278C0: 0B 84 67 E3 ED 5A EB E1 E3 ED 4A 44 4D E1 30 06 ..g..Z....JDM.0.
0278D0: CD 7B 0B 2C 37 C8 7D C6 03 6F CB B8 C9 0E 01 18 .{.,7.}..o......
0278E0: 02 0E 00 CD 3F 13 1A BE 20 08 23 13 10 F8 79 EE ....?... .#...y.
0278F0: 01 4F 21 40 00 39 F9 69 26 00 DD E9 0E 01 18 02 .O!@.9.i&.......
027900: 93 38 1B 0C 0D 28 17 91 38 12 F5 7E 91 77 06 00 .8...(..8..~.w..
027910: 50 19 54 5D 09 F1 3C 4F ED B0 18 02 1D 73 DD E9 P.T]..<O.....s..
027920: DD E1 CD DD 09 4F D1 ED 53 E8 00 21 00 00 39 1A .....O..S..!..9.
027930: F5 86 38 03 B8 38 01 78 12 F1 57 5E 91 38 2F 3C ..8..8.x..W^.8/<
027940: 6F 7A 83 38 04 B8 7D 38 08 78 93 38 26 91 38 23 oz.8..}8.x.8&.8#
027950: 3C B7 28 1F C5 D5 2A E8 00 5F 1D 16 00 42 19 09 <.(...*.._...B..
027960: D1 D5 E5 50 19 EB E1 4F ED B8 D1 C1 18 05 7A 3C ...P...O......z<
027970: 28 19 4F 78 91 3C BB 38 01 7B B7 28 0E 2A E8 00 (.Ox.<.8.{.(.*..
027980: 06 00 09 EB 21 01 00 39 4F ED B0 21 00 00 54 39 ....!..9O..!..T9
027990: 5E 13 19 F9 DD E9 DD E1 E1 2D C2 66 08 6C 26 00 ^........-.f.l&.
0279A0: DD E9 21 02 00 54 39 5E 13 19 7E 36 01 23 77 C9 ..!..T9^..~6.#w.
0279B0: 21 04 00 54 39 5E 4B 23 E5 19 5E 43 23 E5 19 E5 !..T9^K#..^C#...
0279C0: FD E1 D1 E1 AF B8 28 04 B9 20 08 78 B9 E1 D1 FD ......(.. .x....
0279D0: F9 D5 E9 1A BE 20 F6 23 13 05 0D 18 E7 7C B7 20 ..... .#.....|.
0279E0: 03 7D B7 C0 3E 11 C3 29 20 CD 0D 0A D0 3E 01 C3 .}..>..) ....>..
0279F0: 27 20 CD 81 0A 18 F5 CD AC 0F CD 97 0A 18 ED D9 ' ..............
027A00: 7D B7 D9 3E 02 CA 27 20 CD F5 0A 18 DF D9 CB 78 }..>..' .......x
027A10: D9 C2 88 0A D9 7D B7 D9 C8 D9 C5 D5 E5 D9 7D B7 .....}........}.
027A20: 20 05 D9 CB B8 18 54 C5 CB F8 AF 08 D9 CB F8 7D .....T........}
027A30: D9 95 28 13 30 06 ED 44 08 3D 08 D9 CD 7A 0B 2C ..(.0..D.=...z.,
027A40: 3D 20 F9 08 28 01 D9 F1 E6 80 20 0F CD 92 0B 30 = ..(..... ....0
027A50: 25 CD 7B 0B B7 2C 20 1E 37 18 20 CD C6 0B 3F F5 %.{.., .7. ...?.
027A60: 28 10 38 01 D9 CD AC 0B CB 78 20 09 CD 86 0B 2D (.8......x ....-
027A70: 20 F6 CD 72 0B F1 38 02 CB B8 B7 D9 E1 D1 C1 D9 ..r..8.........
027A80: C9 D9 CB 78 D9 C2 14 0A CD 8F 0A CD 14 0A D8 2C ...x...........,
027A90: 2D C8 78 EE 80 47 C9 D9 7D B7 D9 CA 72 0B 7D B7 -.x..G..}...r.}.
027AA0: C8 D9 85 D9 CD 4D 0B C5 D5 E5 DD 39 CD 72 0B D9 .....M.....9.r..
027AB0: 2E 05 D9 3E 08 DD 23 DD 6E 00 08 CB 1D 30 03 CD ...>..#.n....0..
027AC0: 92 0B CD 7B 0B 08 3D 20 F1 D9 2D D9 20 E5 DD 6E ...{..= ..-. ..n
027AD0: FB CB 78 20 09 08 CD 87 0B 2C 2D 28 01 2D F1 F1 ..x .....,-(.-..
027AE0: F1 B7 08 F1 D9 C1 E1 D9 DD E1 CB B8 B0 47 2C 2D .............G,-
027AF0: CC 72 0B 08 C9 7D B7 C8 D9 95 D9 3F CD 4D 0B E5 .r...}.....?.M..
027B00: 0E 00 CD 3F 13 0D 20 01 EB 0E 00 1A B6 BE 20 E2 ...?.. ....... .
027B10: 23 13 10 F7 0E 01 18 DA CD 3F 13 1A B6 77 23 13 #........?...w#.
027B20: 10 F9 EB F9 DD E9 CD 3F 13 1A 2F A6 77 23 13 10 .......?../.w#..
027B30: F8 18 EF CD 3F 13 1A A6 77 23 13 10 F9 18 E3 FD ....?...w#......
027B40: E1 DD E1 21 00 00 39 EB 21 20 00 45 39 FD E9 DD ...!..9.! .E9...
027B50: E1 21 21 00 39 7E B7 28 03 AF 18 06 2B 46 CD BA .!!.9~.(....+F..
027B60: 05 A6 21 22 00 39 F9 21 00 00 28 01 23 DD E9 3E ..!".9.!..(.#..>
027B70: AF 32 E8 00 FD E1 2A D2 00 06 10 CD E2 05 AF 12 .2....*.........
027B80: E1 22 E2 00 FD E5 7C B7 20 06 3E 22 32 D0 00 C9 ."....|. .>"2...
027B90: 3A E8 00 B7 28 0A CD B6 13 20 05 2A E2 00 77 C9 :...(.... .*..w.
027BA0: CD F2 03 2A E2 00 36 00 11 0C 00 19 EB 21 5C 00 ...*..6......!\.
027BB0: 01 24 00 ED B0 C9 06 06 21 E6 13 C5 E5 06 03 ED .$......!.......
027BC0: 5B D2 00 13 1A FE 20 28 FA 1A CD A6 04 96 28 0A [..... (......(.
027BD0: E1 C1 11 04 00 19 10 E3 B7 C9 23 13 10 EB C1 C1 ..........#.....
027BE0: 1A FE 3A C0 7E C9 43 4F 4E C1 54 52 4D C1 4B 42 ..:.~.CON.TRM.KB
027BF0: 44 82 4C 53 54 43 41 55 58 C4 55 53 52 C5 3E AF D.LSTCAUX.USR.>.
027C00: 32 E8 00 CD 69 14 3A D0 00 B7 C0 2A E2 00 CB AE 2...i.:....*....
027C10: 7E E6 0F C0 CD 30 14 3A D0 00 B7 C0 2A E2 00 3A ~....0.:....*..:
027C20: E8 00 B7 01 80 80 28 03 01 40 00 71 23 23 70 C9 ......(..@.q##p.
027C30: CD 5A 14 2A E2 00 11 0C 00 19 EB 3A E8 00 B7 01 .Z.*.......:....
027C40: 0F 01 28 0A D5 0E 13 CD 05 00 D1 01 16 F1 C5 CD ..(.............
027C50: 05 00 C1 3C C0 78 32 D0 00 C9 2A E2 00 11 18 00 ...<.x2...*.....
027C60: 19 06 18 36 00 23 10 FB C9 22 E2 00 7E E6 0F C0 ...6.#..."..~...
027C70: CB 76 28 0A 3E 1A CD C6 16 CD 0C 17 18 03 CB 7E .v(.>..........~
027C80: C8 2A E2 00 E5 11 0C 00 19 EB 0E 10 CD 05 00 E1 .*..............
027C90: 3C 20 05 3E FF 32 D0 00 36 00 C9 E3 22 E4 00 E3 < .>.2..6..."...
027CA0: E5 21 C2 00 22 E2 00 E1 C9 E3 22 E4 00 E3 22 E2 .!.."....."...".
027CB0: 00 CB 7E C0 3E 02 32 D0 00 C9 E3 22 E4 00 E3 22 ..~.>.2...."..."
027CC0: E2 00 CB 76 C0 3E 03 32 D0 00 C9 3E AF E3 22 E4 ...v.>.2...>..".
027CD0: 00 E3 E5 21 C2 00 22 E2 00 CB AE F5 CD E8 14 F1 ...!..".........
027CE0: B7 28 03 CD E1 01 E1 C9 06 00 21 D1 00 7E FE 7F .(........!..~..
027CF0: 38 02 3E 7E 4F 36 7E 2A D2 00 22 D4 00 16 00 CD 8.>~O6~*..".....
027D00: E5 E5 DD 39 D9 2E 05 D9 3E 08 08 CD C6 0B 38 03 ...9....>.....8.
027D10: CD AC 0B 3F CB 15 08 3D 20 0C DD 75 05 DD 2B D9 ...?...= ..u..+.
027D20: 2D D9 28 0E 3E 08 CD 86 0B 30 DF 08 CD AC 0B B7 -.(.>....0......
027D30: 18 E1 CD 86 0B 38 04 CD C6 0B 3F E1 D1 C1 CB 78 .....8....?....x
027D40: 20 05 CD 87 0B 18 9A 2C 20 97 37 18 95 38 06 C6 ......, .7..8..
027D50: 80 38 06 18 1B C6 80 38 17 6F DD E3 D9 E5 C5 78 .8.....8.o.....x
027D60: CB F8 D9 A8 E6 80 F5 CB F8 DD E5 DD 21 00 00 C9 ............!...
027D70: E1 D8 AF 6F 47 4F 57 5F 67 C9 B7 CB 18 CB 19 CB ...oGOW_g.......
027D80: 1A CB 1B CB 1C C9 B7 CB 14 CB 13 CB 12 CB 11 CB ................
027D90: 10 C9 7C D9 84 D9 67 7B D9 8B D9 5F 7A D9 8A D9 ..|...g{..._z...
027DA0: 57 79 D9 89 D9 4F 78 D9 88 D9 47 C9 7C D9 94 D9 Wy...Ox...G.|...
027DB0: 67 7B D9 9B D9 5F 7A D9 9A D9 57 79 D9 99 D9 4F g{..._z...Wy...O
027DC0: 78 D9 98 D9 47 C9 78 D9 B8 D9 C0 79 D9 B9 D9 C0 x...G.x....y....
027DD0: 7A D9 BA D9 C0 7B D9 BB D9 C0 7C D9 BC D9 C9 D9 z....{....|.....
027DE0: 78 D9 A8 F2 E9 0B 78 17 C9 CB 78 28 06 CD F3 0B x.....x...x(....
027DF0: C8 3F C9 7D D9 BD D9 C0 B7 C8 C3 C6 0B 7D D6 81 .?.}.........}..
027E00: DA 72 0B 3C FE 28 D0 D9 C5 D5 E5 08 CD 72 0B 08 .r.<.(.......r..
027E10: 37 CD 7B 0B 3D 20 F9 D9 7C D9 A4 D9 67 7B D9 A3 7.{.= ..|...g{.£
027E20: D9 5F 7A D9 A2 D9 57 79 D9 A1 D9 4F 78 D9 A0 D9 ._z...Wy...Ox...
027E30: 47 C3 7B 0A D9 C5 D5 E5 D9 CD AC 0F D9 CD FD 0B G.{.............
027E40: D9 CD 81 0A 18 EB 7D B7 C8 CB 78 3E 03 C2 27 20 ......}...x>..'
027E50: CD AC 0F 7D C6 80 CB 2F C6 80 6F D6 14 F5 D9 C5 ...}.../..o.....
027E60: D5 E5 CD F5 0A CD 0D 0A 2D C5 D5 E5 CD 81 0A 7D ........-......}
027E70: E1 D1 C1 D9 E1 D1 C1 E3 BC E3 30 E3 F1 D9 C9 D9 ..........0.....
027E80: CD 8E 0F 2D CD 81 0A D9 CD 8E 0F 2C D9 7D FE 6C ...-.......,.}.l
027E90: D8 C5 CB B8 CD DF 0B C1 38 09 CD F5 0A CD 34 0C ........8.....4.
027EA0: CD 97 0A CB 78 28 03 CD 0D 0A D9 2D D9 CD DF 0B ....x(.....-....
027EB0: F5 38 03 CD 81 0A D9 2D D9 CD DF 0B 38 05 D9 2C .8.....-....8..,
027EC0: CD 81 0A 7D FE 6C 38 3B D9 01 AA 2A 11 AA AA 21 ...}.l8;...*...!
027ED0: 7F AA CD 97 0A DD E5 DD 21 07 0D 3E 05 CD 34 0F ........!..>..4.
027EE0: DD E1 CD AC 0F CD 97 0A CD 97 0A C5 D5 E5 D9 CD ................
027EF0: AC 0F 2D 2D D9 2D CD 0D 0A D9 E1 D1 C1 D9 CD 81 ..--.-..........
027F00: E1 03 77 1E 01 FE 08 28 36 FE 7F 28 32 1D FE 18 ..w....(6..(2...
027F10: 28 2D FE 1B 28 29 FE 1A 28 36 FE 0D 28 38 FE 20 (-..()..(6..(8.
027F20: 30 11 FE 03 20 D9 3A DD 00 B7 28 D3 DD 2A E4 00 0... .:...(..*..
027F30: C3 16 20 79 BA 28 C8 7E 14 23 CD C9 03 18 C0 15 .. y.(.~.#......
027F40: FA FD 14 2B CD 00 02 08 20 08 00 1D 28 B1 18 EF ...+.... ...(...
027F50: 04 05 28 AB 18 04 04 05 20 04 36 1A 18 08 CD E1 ..(..... .6.....
027F60: 01 36 0D 23 36 0A 23 22 D6 00 C9 2A E2 00 3A D0 .6.#6.#"...*..:.
027F70: 00 B7 20 79 7E CB 6F 20 70 E6 0F 20 2E 23 23 7E .. y~.o p.. .##~
027F80: B7 F2 97 15 0E 14 E5 CD BA 19 E1 28 08 E5 11 2E ...........(....
027F90: 00 19 36 1A E1 AF 77 34 C6 2E 5F 16 00 19 7E FE ..6...w4.._...~.
027FA0: 1A 20 3D 2A E2 00 23 23 35 18 35 3D 20 1B 2A D4 . =*..##5.5= .*.
027FB0: 00 ED 5B D6 00 B7 ED 52 38 05 06 FF CD EA 14 2A ..[....R8......*
027FC0: D4 00 7E 23 22 D4 00 18 17 3D 20 06 CD A3 00 7D ..~#"....= ..£.}
027FD0: 18 0E 3D 3D 20 06 CD AF 00 7D 18 04 CD B5 00 7D ..== ....}.....}
027FE0: 2A E2 00 CB EE 23 77 2B C9 23 7E 2B C9 3E 1A C9 *....#w+.#~+.>..
027FF0: E5 2A E2 00 7E E6 0F FE 06 28 27 CD 6B 15 FE 21 .*..~....('.k..!
028000: 30 08 FE 1A 28 04 CB AE 18 F1 11 5D 00 06 1E C5 0...(......]....
028010: D5 CD 6B 15 D1 C1 FE 21 38 06 CB AE 12 13 10 EF ..k....!8.......
028020: AF 12 E1 C9 DD 21 5D 00 DD 7E 00 B7 C8 06 00 FE .....!]..~......
028030: 2D C0 04 DD 23 C9 38 05 DD 7E 00 B7 C8 3E 10 32 -...#.8..~...>.2
028040: D0 00 37 C9 E5 CD 6B 15 CB AE E1 77 C9 3E AF 4F ..7...k....w.>.O
028050: C5 CD F0 15 C1 CD 24 16 C8 C5 E5 CD F7 07 D1 C1 ......$.........
028060: CD 36 16 D8 05 CC 83 07 EB 73 0C 0D 20 02 23 72 .6.......s.. .#r
028070: EB C9 CD F0 15 CD 24 16 C8 C5 E5 CD A3 11 D9 E1 ......$.....£...
028080: C1 CD 36 16 D8 05 D9 CC 8F 0A D9 C3 D1 05 E5 EB ..6.............
028090: 0E 00 C5 D5 CD 6B 15 D1 C1 FE 0D 28 0B FE 1A 28 .....k.....(...(
0280A0: 07 CB AE 0C 13 12 10 EA E1 71 C9 CD 6B 15 FE 1A .........q..k...
0280B0: 28 13 CB AE FE 0A 28 0D FE 0D 20 EF CD 6B 15 FE (.....(... ..k..
0280C0: 0A 20 02 CB AE C9 2A E2 00 4F 3A D0 00 B7 C0 7E . ....*..O:....~
0280D0: E6 0F 20 10 23 23 E5 7E C6 2E 5F 16 00 19 71 E1 .. .##.~.._...q.
0280E0: 34 F0 18 28 FE 06 28 15 E1 06 00 C5 E5 3D CA A6 4..(..(......=..
0280F0: 00 3D 3D CA A9 00 3D CA AC 00 C3 B2 00 2A E8 00 .==...=......*..
028100: 0A 2C 2C F1 2C 2D C8 D8 78 EE 80 47 C9 67 AA 3F .,,.,-..x..G.g.?
028110: 2B 32 D7 6E B6 2A 1D EF 38 74 0D D0 00 0D D0 7A +2.n.*..8t.....z
028120: 88 88 88 88 08 7E AB AA AA AA AA 2C 2D 3E 04 CA .....~.....,->..
028130: 27 20 CB 78 C2 27 20 D9 CD 98 0F D9 7D 2E 81 95 ' .x.' .....}...
028140: F5 CD F5 0A D9 CD 86 0F D9 CD 81 0A C5 D5 E5 D9 ................
028150: 2C CD 0D 0A D9 E1 D1 C1 CD F5 0A DD E5 DD 21 8C ,.............!.
028160: 0D 3E 06 CD 34 0F DD E1 2C D9 CD A2 0F 2D D9 CD .>..4...,....-..
028170: 0D 0A F1 C5 D5 E5 6F 26 00 30 01 25 CD 08 10 D9 ......o&.0.%....
028180: 2C CD 97 0A D9 E1 D1 C1 CD 0D 0A 7D FE 67 DA 72 ,..........}.g.r
028190: 0B C9 7D 8A 9D D8 89 1D 7D E9 A2 8B 2E 3A 7D 8E ..}.....}....:}.
0281A0: E3 38 8E 63 7E 49 92 24 49 12 7E CD CC CC CC 4C .8.c~I.$I.~....L
0281B0: 7F AB AA AA AA 2A D9 CD A2 0F D9 B7 CB 78 F5 CB .....*.......x..
0281C0: B8 CD F5 0A 7D FE 88 30 47 C5 D5 E5 2C CD D0 0F ....}..0G...,...
0281D0: E5 CB 3C CB 1D 7D E1 F5 CD 08 10 2C 2D 28 01 2D ..<..}.....,-(.-
0281E0: D9 F1 E1 D1 C1 F5 CD 81 0A DD E5 DD 21 10 0E 3E ............!..>
0281F0: 08 CD 49 0F DD E1 F1 30 0A F5 D9 CD 98 0F D9 CD ..I....0........
028200: 97 0A F1 85 6F 38 09 F1 C8 D9 CD 86 0F C3 F5 0A ....o8..........
028210: E1 3E 01 C3 27 20 6D 2E 1D 11 60 31 70 46 2C FE .>..' m...`1pF,.
028220: E5 7F 74 36 7C 89 84 21 77 53 3C FF C3 2E 7A D2 ..t6|..!wS<...z.
028230: 7D 5B 95 1D 7C 25 B8 46 58 63 7E 16 FC EF FD 75 }[..|%.FXc~....u
028240: 80 D2 F7 17 72 31 7D B7 C8 DD E5 D9 CD 86 0F D9 ....r1}.........
028250: AF CB 78 28 03 3C CB B8 F5 CD DF 0B 38 08 D9 CD ..x(.<......8...
028260: F5 0A F1 CB FF F5 D9 01 CF 06 11 8E E9 21 7E 4A .............!~J
028270: D9 CD DF 0B 30 05 CD 2E 0F 18 4F DD 21 CE 0E 3E ....0.....O.!..>
028280: 02 08 D9 11 12 00 DD 19 CD 73 0F D9 CD DF 0B 38 .........s.....8
028290: 0B 08 3D 20 EC D9 11 0C 00 DD 19 D9 D9 CD 6E 0F ..= ..........n.
0282A0: CB F8 CD 0D 0A C5 D5 E5 CD 73 0F CD 97 0A D9 CD .........s......
0282B0: 86 0F CD 0D 0A D9 E1 D1 C1 CD F5 0A DD E5 CD 2E ................
0282C0: 0F DD E1 D9 CD 6E 0F CD 0D 0A F1 17 30 0A F5 D9 .....n......0...
0282D0: CD 8E 0F 2D CD 81 0A F1 DD E1 CB 4F C8 CB F8 C9 ...-.......O....
0282E0: 7F E7 CF CC 13 54 7F F6 F4 A2 30 09 7F 6A C1 91 .....T....0..j..
0282F0: 0A 06 80 B5 9E 8A 6F 44 80 82 2C 3A CD 13 80 6A ......oD..,:...j
028300: 3A EA 00 BE C8 34 5E 16 00 19 71 C9 2A E2 00 23 :....4^...q.*..#
028310: 23 7E B7 C8 36 00 0E 15 CD BA 19 C8 3E F0 32 D0 #~..6.......>.2.
028320: 00 C9 7D C3 C6 16 C1 D1 C5 DD 2A D2 00 CB 7C 28 ..}.......*...|(
028330: 06 CD 83 07 EB 18 0E EB CB 7C 28 09 CD 83 07 DD .........|(.....
028340: 36 00 2D DD 23 D5 CD C6 07 E1 CD C8 04 ED 5B D2 6.-.#.........[.
028350: 00 DD E5 E1 B7 ED 52 4D EB 91 38 0E 28 0C 47 E5 ......RM..8.(.G.
028360: 3E 20 C5 CD C6 16 C1 10 F7 E1 41 04 05 C8 7E C5 > ........A...~.
028370: E5 CD C6 16 E1 C1 23 18 F3 C1 D1 D9 E1 D1 C1 D9 ......#.........
028380: C5 DD 2A D2 00 D5 CD 27 10 18 BE C1 D1 C5 CD C8 ..*....'........
028390: 04 CB 43 21 A1 17 0E 04 20 BF 21 A5 17 0E 05 18 ..C!.... .!.....
0283A0: B8 54 52 55 45 46 41 4C 53 45 CD C8 04 21 02 00 .TRUEFALSE...!..
0283B0: 39 4E 23 CD 59 17 D1 F9 D5 C9 E1 7E 23 B7 28 0C 9N#.Y......~#.(.
0283C0: 47 7E C5 E5 CD C6 16 E1 C1 23 10 F5 E9 3E 0D CD G~.......#...>..
0283D0: C6 16 3E 0A C3 C6 16 11 0D 01 18 0D 11 0D 00 18 ..>.............
0283E0: 08 11 1A 01 18 03 11 1A 00 22 E2 00 CB 7E 28 1C ........."...~(.
0283F0: D5 CD 6B 15 D1 BB 28 10 FE 1A 28 0C FE 21 30 0C ..k...(...(..!0.
028400: 14 15 28 08 CB AE 18 E8 21 01 00 C9 21 00 00 C9 ..(.....!...!...
028410: 3E AF 32 E8 00 ED 53 E6 00 CD 7A 18 3A D0 00 B7 >.2...S...z.:...
028420: C0 CD 30 14 3A D0 00 B7 C0 2A E2 00 36 D0 23 23 ..0.:....*..6.##
028430: 77 11 06 00 19 77 23 77 11 24 00 19 77 23 77 11 w....w#w.$..w#w.
028440: D6 FF 19 3A E8 00 B7 20 1B E5 01 04 00 AF CD 09 ...:... ........
028450: 19 E1 23 23 4E 23 46 2A E6 00 B7 ED 42 C8 3E 90 ..##N#F*....B.>.
028460: 32 D0 00 C9 E5 AF 77 23 77 23 ED 5B E6 00 73 23 2.....w#w#.[..s#
028470: 72 E1 01 04 00 3E 03 C3 09 19 22 E2 00 7E E6 C0 r....>...."..~..
028480: C8 CD AE 19 2A E2 00 11 2D 00 19 AF 77 23 77 11 ....*...-...w#w.
028490: D4 FF 19 77 23 23 01 04 00 3E 01 CD 09 19 CD AE ...w##...>......
0284A0: 19 C3 81 14 E3 22 E4 00 E3 22 E2 00 7E E6 C0 C0 ....."..."..~...
0284B0: 3E 04 32 D0 00 C9 3A D0 00 B7 C0 E5 CD 5A 1A EB >.2...:......Z..
0284C0: B7 ED 52 E1 30 10 AF CD 09 19 2A E2 00 11 08 00 ..R.0.....*.....
0284D0: 19 34 C0 23 34 C9 3E 99 32 D0 00 C9 3A D0 00 B7 .4.#4.>.2...:...
0284E0: C0 E5 CD 5A 1A B7 ED 52 3E 01 20 10 2A E2 00 11 ...Z...R>. .*...
0284F0: 04 00 19 34 20 04 23 34 28 08 3E 03 E1 CD 09 19 ...4 .#4(.>.....
028500: C1 91 0A 06 81 00 00 00 00 00 80 21 A2 DA 0F 49 ...........!...I
028510: 7D E8 A2 8B 2E BA 7D 8E E3 38 8E 63 7E 49 92 24 }.....}..8.c~I.$
028520: 49 92 7E CD CC CC CC 4C 7F AB AA AA AA AA DD 21 I.~....L.......!
028530: 0A 0F 3E 05 C5 D5 E5 F5 CD AC 0F CD 97 0A F1 CD ..>.............
028540: 49 0F D9 E1 D1 C1 C3 97 0A F5 D9 CD 6E 0F 18 10 I...........n...
028550: F5 D9 C5 D5 E5 CD 6E 0F CD 0D 0A D9 E1 D1 C1 D9 ......n.........
028560: CD 97 0A F1 3D 20 E9 D9 CD 86 0F C3 0D 0A 11 06 ....= ..........
028570: 00 DD 19 DD 6E 00 DD 66 01 DD 5E 02 DD 56 03 DD ....n..f..^..V..
028580: 4E 04 DD 46 05 C9 21 81 00 44 4C 54 5C C9 01 0F N..F..!..DLT\...
028590: 49 11 A2 DA 21 82 21 C9 01 04 35 11 33 F3 21 81 I...!.!...5.3.!.
0285A0: FA C9 01 72 31 11 F7 17 21 80 D2 C9 C5 D5 E5 D9 ...r1...!.......
0285B0: E1 D1 C1 C9 CD 92 07 21 80 00 3E 20 CB 78 20 0D .......!..> .x .
0285C0: CB 23 CB 12 CB 11 CB 10 2D 3D 20 F0 6F CB B8 C9 .#......-= .o...
0285D0: CB 78 D9 CD 86 0F 28 02 CB F8 2D CD 0D 0A B7 CB .x....(...-.....
0285E0: 7D 28 1C CB 78 08 CB F8 3E 8F BD 38 16 28 06 CD }(..x...>..8.(..
0285F0: 7A 0B 2C 18 F3 CD 7A 0B 08 60 69 C8 C3 83 07 21 z.,...z..`i....!
028600: 00 00 C9 3E 92 C3 27 20 7C B5 CA 72 0B CB 7C 08 ...>..' |..r..|.
028610: CD 80 07 3E 90 29 3D CB 7C 28 FA 44 4D 11 00 00 ...>.)=.|(.DM...
028620: 62 6F 08 C0 CB B8 C9 CD C8 04 EB 1E 00 38 04 FE bo...........8..
028630: 19 38 18 1D CD C8 04 D9 CB 78 D9 16 07 28 01 14 .8.......x...(..
028640: 92 30 01 AF FE 09 38 02 3E 09 3C 57 D5 D9 FD 21 .0....8.>.<W...!
028650: 5D 00 DD E5 CD EB 10 DD E1 D1 4F 7A 3C CB 7B 20 ].........Oz<.{
028660: 10 81 F2 6B 10 FD 36 00 00 18 0B FE 0C 38 02 3E ...k..6......8.>
028670: 0B D5 CD 80 11 D1 CB 78 28 05 3E 2D CD E5 10 CB .......x(.>-....
028680: 7B 28 03 61 0E 00 CB 79 28 05 CD E3 10 18 07 CD {(.a...y(.......
028690: D9 10 0D F2 8F 10 7A B7 28 17 3E 2E CD E5 10 0C ......z.(.>.....
0286A0: 28 06 CD E3 10 15 20 F7 15 FA B1 10 CD D9 10 18 (..... .........
0286B0: F7 CB 7B C8 3E 45 CD E5 10 3E 2B CB 7C 28 06 7C ..{.>E...>+.|(.|
0286C0: ED 44 67 3E 2D CD E5 10 7C 06 2F 04 D6 0A 30 FB .Dg>-...|./...0.
0286D0: C6 3A DD 70 00 DD 23 18 0C FD 7E 00 FD 23 B7 20 .:.p..#...~..#.
0286E0: 04 FD 2B 3E 30 DD 77 00 DD 23 C9 FD E5 2C 2D 20 ..+>0.w..#...,-
0286F0: 0E 06 0C FD 36 00 30 FD 23 10 F8 AF C3 7D 11 C5 ....6.0.#....}..
028700: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
028710: 22 00 01 00 02 09 50 E5 22 00 41 02 00 00 00 02 ".....P.".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: 18 C8 E1 3E F2 32 D0 00 C9 32 E9 00 EB 2A E2 00 ...>.2...2...*..
028810: CB 66 28 2F CB A6 3A E9 00 CB 47 28 18 23 23 7E .f(/..:...G(.##~
028820: 2B 2B B7 20 10 3A E9 00 CB 4F 20 17 78 B7 20 13 ++. .:...O .x. .
028830: 79 B7 FA 43 19 C5 D5 0E 21 CD BA 19 D1 C1 20 51 y..C....!..... Q
028840: 2A E2 00 3A E9 00 CB 47 28 02 CB EE 23 23 7E C6 *..:...G(...##~.
028850: 2E D5 5F 16 00 19 D1 D6 2E CD 9A 19 ED A0 E2 66 .._............f
028860: 19 3C F2 5C 19 3D 3C CD 9A 19 2A E2 00 23 23 E6 .<.\.=<...*..##.
028870: 7F 77 20 16 C5 D5 E5 CD AE 19 E1 D1 C1 20 15 D5 .w .......... ..
028880: 11 2B 00 19 D1 34 20 02 23 34 78 B1 C2 0D 19 EB .+...4 .#4x.....
028890: C9 3E 99 01 3E F0 32 D0 00 C9 F5 3A E9 00 CB 47 .>..>.2....:...G
0288A0: 28 01 EB F1 C9 22 E2 00 CD AE 19 C8 18 E6 0E 22 (...."........."
0288B0: 2A E2 00 CB E6 CB 6E C8 CB AE 2A E2 00 E5 C5 11 *.....n...*.....
0288C0: 30 00 19 EB 0E 1A CD 05 00 C1 E1 11 0C 00 19 EB 0...............
0288D0: CD 05 00 B7 C9 C1 D1 ED 53 E2 00 C5 E5 CD 5A 1A ........S.....Z.
0288E0: D1 B7 ED 52 38 40 2A E2 00 01 06 00 09 4E 23 46 ...R8@*......N#F
0288F0: 23 73 23 72 CD 2C 1A 01 04 00 09 30 01 13 7D E6 #s#r.,.....0..}.
028900: 7F 29 EB ED 6A EB 53 5C 2A E2 00 23 23 77 01 2B .)..j.S\*..##w.+
028910: 00 09 4E 23 46 EB B7 ED 42 09 C8 D5 E5 CD AE 19 ..N#F...B.......
028920: D1 E1 72 2B 73 C9 3E 91 32 D0 00 C9 D5 D9 E1 D9 ..r+s.>.2.......
028930: 21 00 00 54 5D 3E 10 29 EB ED 6A EB D9 29 D9 30 !..T]>.)..j..).0
028940: 04 09 30 01 13 3D 20 EF C9 CD 5D 1A B7 ED 52 21 ..0..= ...]...R!
028950: 00 00 C0 23 C9 CD 5D 1A EB C9 2A E2 00 11 04 00 ...#..]...*.....
028960: 19 5E 23 56 23 D5 4E 23 46 23 5E 23 56 E1 C9 3E .^#V#.N#F#^#V..>
028970: AF 32 E8 00 CD B0 1A 3A D0 00 B7 C0 CD 30 14 3A .2.....:.....0.:
028980: D0 00 B7 C0 2A E2 00 36 C0 E5 11 0C 00 19 EB 0E ....*..6........
028990: 23 CD 05 00 E1 11 2D 00 19 AF 4E 77 23 46 77 11 #.....-...Nw#Fw.
0289A0: D6 FF 19 71 23 70 23 36 80 23 77 23 77 23 77 C9 ...q#p#6.#w#w#w.
0289B0: 22 E2 00 7E E6 C0 C8 C3 81 14 3E 22 18 02 3E 21 "..~......>"..>!
0289C0: 44 4D 21 F0 00 22 E6 00 DD E1 D1 E1 DD E5 C5 CD DM!.."..........
0289D0: FD 1A C1 3A D0 00 B7 C0 2A F0 00 ED 42 C8 3A E9 ...:....*...B.:.
0289E0: 00 FE 21 3E 99 28 02 3E F0 32 D0 00 C9 3E 22 18 ..!>.(.>.2...>".
0289F0: 02 3E 21 22 E6 00 DD E1 C1 D1 E1 DD E5 32 E9 00 .>!".........2..
028A00: 2A 9F E1 E5 2A 99 E1 E5 2A 97 E1 D1 19 E5 CD FF *...*...*.......
028A10: 21 22 AA E4 CD 50 E2 C3 F0 22 19 11 03 00 B7 ED !"...P..."......
028A20: 52 C2 03 00 2A 9F E1 E5 2A 9D E1 E5 CD FF 21 22 R...*...*.....!"
028A30: AC E4 2A AC E4 E5 2A 97 E1 D1 EB B7 ED 52 22 AA ..*...*......R".
028A40: E4 CD 31 E2 C3 22 23 19 11 02 00 B7 ED 52 C2 02 ..1.."#......R..
028A50: 00 21 FD E1 E5 21 04 00 D1 19 E5 21 B8 00 EB E1 .!...!.....!....
028A60: 73 2A 9B E1 E5 2A 99 E1 E5 CD FF 21 22 AC E4 2A s*...*.....!"..*
028A70: AC E4 E5 2A 97 E1 D1 19 22 AA E4 CD 50 E2 C9 FD ...*...."...P...
028A80: E1 E1 22 86 E1 E1 22 88 E1 E1 22 8A E1 E1 22 8C .."..."..."...".
028A90: E1 FD E5 21 31 E2 E5 21 01 00 D1 19 E5 21 6F E2 ...!1..!.....!o.
028AA0: 26 00 EB E1 73 21 31 E2 E5 21 02 00 D1 19 E5 21 &...s!1..!.....!
028AB0: 6F E2 6C 26 00 EB E1 73 2A 88 E1 E5 2A 8C E1 D1 o.l&...s*...*...
028AC0: EB B7 ED 52 E5 21 01 00 D1 19 22 A8 E4 2A 86 E1 ...R.!...."..*..
028AD0: E5 2A 8A E1 D1 EB B7 ED 52 E5 21 01 00 D1 19 7D .*......R.!....}
028AE0: 32 AE E4 2A 8C E1 E5 2A 8A E1 E5 CD FF 21 22 AC 2..*...*.....!".
028AF0: E4 CD 31 E2 21 31 E2 E5 21 01 00 D1 19 E5 21 FD ..1.!1..!.....!.
028B00: E1 26 00 EB E1 73 21 31 E2 E5 21 02 00 D1 19 E5 .&...s!1..!.....
028B10: 21 FD E1 6C 26 00 EB E1 73 C9 FD E1 E1 22 7C E1 !..l&...s...."|.
028B20: FD E5 21 AF E4 E5 21 00 00 D1 19 E5 21 CD 00 EB ..!...!.....!...
028B30: E1 73 21 AF E4 E5 21 01 00 D1 19 E5 21 5A 00 EB .s!...!.....!Z..
028B40: E1 73 21 AF E4 E5 21 02 00 D1 19 E5 21 FC 00 EB .s!...!.....!...
028B50: E1 73 21 AF E4 E5 21 03 00 D1 19 E5 2A 7C E1 26 .s!...!.....*|.&
028B60: 00 EB E1 73 21 AF E4 E5 21 04 00 D1 19 E5 2A 7C ...s!...!.....*|
028B70: E1 6C 26 00 EB E1 73 21 AF E4 E5 21 05 00 D1 19 .l&...s!...!....
028B80: E5 21 C9 00 EB E1 73 3A AE E4 ED 4B A8 E4 ED 5B .!....s:...K...[
028B90: AA E4 2A AC E4 CD AF E4 32 AE E4 ED 43 A8 E4 ED ..*.....2...C...
028BA0: 53 AA E4 22 AC E4 C9 FD E1 E1 22 6A E1 E1 22 6C S.."......"j.."l
028BB0: E1 E1 22 6E E1 E1 22 70 E1 E1 22 72 E1 FD E5 2A .."n.."p.."r...*
028BC0: 70 E1 22 5E E1 2A 6C E1 22 5C E1 2A 6A E1 22 60 p."^.*l."\.*j."`
028BD0: E1 2A 6E E1 E5 21 08 00 D1 CD 4E 07 E5 2A 72 E1 .*n..!....N..*r.
028BE0: D1 7C B2 67 7D B3 6F 22 5A E1 ED 4B 5A E1 CD 57 .|.g}.o"Z..KZ..W
028BF0: FC 2A 5C E1 ED 4B 60 E1 ED 5B 5E E1 CD 4B FC C9 .*\..K`..[^..K..
028C00: 22 E2 00 7E E6 C0 CA B0 18 2A E6 00 AF 77 23 77 "..~.....*...w#w
028C10: 78 B1 28 39 C5 D5 0E 1A CD 05 00 2A E2 00 11 0C x.(9.......*....
028C20: 00 19 EB 3A E9 00 4F CD 05 00 D1 C1 B7 20 1E D5 ...:..O...... ..
028C30: 2A E2 00 11 2D 00 19 34 20 02 23 34 D1 21 80 00 *...-..4 .#4.!..
028C40: 19 EB 2A E6 00 34 20 02 23 34 0B 18 C3 2A E2 00 ..*..4 .#4...*..
028C50: 11 2D 00 19 4E 23 46 11 DA FF 19 71 23 70 11 FC .-..N#F....q#p..
028C60: FF 19 56 2B 5E EB B7 ED 42 D0 EB 71 23 70 C9 C1 ..V+^...B..q#p..
028C70: D1 ED 53 E2 00 C5 E5 CD 5A 1A D1 B7 ED 52 DA 26 ..S.....Z....R.&
028C80: 1A 2A E2 00 01 08 00 09 73 23 72 01 24 00 09 73 .*......s#r.$..s
028C90: 23 72 C9 CD 4C 1C C0 11 0C 00 19 EB 0E 13 CD 05 #r..L...........
028CA0: 00 3C C0 18 3F FD E1 2A D2 00 06 10 CD E2 05 AF .<..?..*........
028CB0: 12 E1 FD E5 CD 4C 1C C0 E5 CD F2 03 E1 E5 11 1C .....L..........
028CC0: 00 19 EB 21 5C 00 01 0C 00 ED B0 E1 11 0C 00 19 ...!\...........
028CD0: E5 EB 0E 17 CD 05 00 D1 3C 28 09 21 5C 00 01 24 ........<(.!\..$
028CE0: 00 ED B0 C9 3E 01 32 D0 00 C9 3E AF 32 E8 00 CD ....>.2...>.2...
028CF0: 4C 1C C0 3A D8 00 B7 3E 21 28 EB 2A E2 00 11 0C L..:...>!(.*....
028D00: 00 19 11 5C 00 01 24 00 ED B0 11 5C 00 0E 0F CD ...\..$....\....
028D10: 05 00 3C 28 CF 21 33 1C 11 B0 00 01 19 00 ED B0 ..<(.!3.........
028D20: 11 00 01 3A E8 00 B7 20 04 ED 5B 01 01 31 00 01 ...:... ..[..1..
028D30: C3 B0 00 D5 0E 1A CD 05 00 11 5C 00 0E 14 CD 05 ..........\.....
028D40: 00 D1 21 80 00 19 EB B7 28 E9 18 37 22 E2 00 7E ..!.....(..7"..~
028D50: E6 0F C8 3E 20 32 D0 00 C9 22 E6 00 ED 53 E8 00 ...> 2..."...S..
028D60: EB E1 22 E2 00 4E 73 23 46 72 EB B7 ED 42 28 5A .."..Ns#Fr...B(Z
028D70: EB 23 11 5C 00 3A DC 00 12 13 01 0B 00 ED B0 06 .#.\.:..........
028D80: 18 AF 12 13 10 FC E5 11 5C 00 0E 0F CD 05 00 D1 ........\.......
028D90: 3C 28 3F 2A E6 00 22 7D 00 ED 4B E8 00 C5 D5 0E <(?*.."}..K.....
028DA0: 1A CD 05 00 11 5C 00 0E 21 CD 05 00 D1 C1 B7 20 .....\..!......
028DB0: 21 2A 7D 00 23 22 7D 00 21 80 00 19 EB 0B 78 B1 !*}.#"}.!.....x.
028DC0: 20 DB 11 5C 00 0E 10 CD 05 00 2A E2 00 11 0D 00 ..\......*.....
028DD0: 19 E9 DD 2A E2 00 3E F0 C3 29 20 CD C8 04 FE 11 ...*..>..) .....
028DE0: D0 32 DC 00 C9 22 F0 00 EB E1 E3 22 F2 00 13 13 .2..."....."....
028DF0: 13 7B E6 FC 5F 21 DE 00 22 F8 00 DD 2A DE 00 DD .{.._!.."...*...
028E00: FD E1 E1 7D 32 59 E1 FD E5 2A 59 E1 26 00 7D 32 ...}2Y...*Y.&.}2
028E10: A7 E4 2A 59 E1 26 00 7D 32 AE E4 21 DE BB E5 CD ..*Y.&.}2..!....
028E20: 1A 24 C9 FD E1 E1 22 4D E1 E1 22 4F E1 FD E5 21 .$...."M.."O...!
028E30: C7 00 E5 2A 4D E1 D1 EB B7 ED 52 E5 21 01 00 D1 ...*M.....R.!...
028E40: CD 4E 07 22 AC E4 2A 4F E1 22 AA E4 21 C0 BB E5 .N."..*O."..!...
028E50: CD 1A 24 C9 FD E1 E1 22 41 E1 E1 22 43 E1 FD E5 ..$...."A.."C...
028E60: 21 C7 00 E5 2A 41 E1 D1 EB B7 ED 52 E5 21 01 00 !...*A.....R.!..
028E70: D1 CD 4E 07 22 AC E4 2A 43 E1 22 AA E4 21 F6 BB ..N."..*C."..!..
028E80: E5 CD 1A 24 C9 FD E1 E1 22 35 E1 E1 22 37 E1 FD ...$...."5.."7..
028E90: E5 21 01 00 E5 2A 35 E1 E5 21 00 00 E5 2A 37 E1 .!...*5..!...*7.
028EA0: E5 21 07 00 D1 CD 4E 07 E5 21 00 40 D1 19 E5 21 .!....N..!.@...!
028EB0: 80 00 E5 CD A7 24 C9 FD E1 E1 22 25 E1 E1 22 27 .....$...."%.."'
028EC0: E1 FD E5 21 00 00 E5 2A 27 E1 E5 21 07 00 D1 CD ...!...*'..!....
028ED0: 4E 07 E5 21 00 40 D1 19 E5 21 01 00 E5 2A 25 E1 N..!.@...!...*%.
028EE0: E5 21 80 00 E5 CD A7 24 C9 FD E1 E1 22 13 E1 E1 .!.....$...."...
028EF0: 22 15 E1 FD E5 2A 15 E1 22 AA E4 21 C7 00 E5 2A "....*.."..!...*
028F00: 13 E1 D1 EB B7 ED 52 22 AC E4 21 1D BC E5 CD 1A ......R"..!.....
028F10: 24 2A AC E4 E5 21 FF 7F D1 7C A2 67 7D A3 6F E5 $*...!...|.g}£o.
028F20: 21 00 40 D1 7C B2 67 7D B3 6F 22 17 E1 2A 17 E1 !.@.|.g}.o"..*..
028F30: C9 FD E1 E1 22 05 E1 E1 22 07 E1 E1 22 09 E1 FD ...."..."..."...
028F40: E5 2A 07 E1 E5 21 03 00 D1 CD 4E 07 E5 2A 05 E1 .*...!....N..*..
028F50: E5 CD E9 25 E5 21 00 40 D1 EB B7 ED 52 22 FB E0 ...%.!.@....R"..
028F60: 21 76 E3 E5 2A FB E0 E5 21 07 00 D1 CD 56 07 CD !v..*...!....V..
028F70: 6F 1B 21 76 E3 E5 21 A7 E3 E5 21 02 00 CD BE 1A o.!v..!...!.....
028F80: CD F1 1F E5 21 00 00 D1 CD 7F 06 CB 45 CA 7F 06 ....!.......E...
028F90: 21 A7 E3 E5 2A FB E0 E5 21 7F 00 D1 7C A2 67 7D !...*...!...|.g}
028FA0: A3 6F D1 19 E5 21 AE E2 E5 2A 09 E1 CD 64 1F C9 £o...!...*...d..
028FB0: FD E1 E1 22 F5 E0 E1 22 F7 E0 E1 22 F9 E0 FD E5 ..."..."..."....
028FC0: 2A F7 E0 E5 21 03 00 D1 CD 4E 07 E5 2A F5 E0 E5 *...!....N..*...
028FD0: CD E9 25 E5 21 00 40 D1 EB B7 ED 52 22 EB E0 21 ..%.!.@....R"..!
028FE0: 76 E3 E5 2A EB E0 E5 21 07 00 D1 CD 56 07 CD 6F v..*...!....V..o
028FF0: 1B CD 1B 20 21 76 E3 E5 21 A7 E3 E5 21 02 00 CD ... !v..!...!...
029000: 6E 02 DD 66 03 7D B4 28 48 ED 52 30 0F DD 6E 00 n..f.}.(H.R0..n.
029010: DD 66 01 E5 DD 22 F8 00 DD E1 18 E3 20 0A DD 5E .f..."...... ..^
029020: 00 DD 56 01 DD E5 18 1B 4D 44 DD 6E 00 DD 66 01 ..V.....MD.n..f.
029030: DD E5 DD 19 DD 75 00 DD 74 01 DD 71 02 DD 70 03 .....u..t..q..p.
029040: DD E5 D1 2A F8 00 73 23 72 D1 2A F2 00 73 23 72 ...*..s#r.*..s#r
029050: C9 DD E5 E1 19 22 C4 00 2A F0 00 01 04 00 09 DD ....."..*.......
029060: E5 C1 09 DA 75 1D ED 4B C6 00 ED 42 01 00 00 21 ....u..K...B...!
029070: 00 00 DA 30 1D 3E FF C3 27 20 EB E1 E3 7E 23 66 ...0.>..' ...~#f
029080: 6F 13 13 13 7B E6 FC 5F EB 22 F0 00 2A DE 00 E5 o...{.._."..*...
029090: DD E1 B7 ED 52 30 52 DD 6E 00 DD 66 01 E5 B7 ED ....R0R.n..f....
0290A0: 52 30 04 DD E1 18 F0 E1 D5 FD E1 ED 4B F0 00 FD R0..........K...
0290B0: 71 02 FD 70 03 FD 75 00 FD 74 01 DD 73 00 DD 72 q..p..u..t..s..r
0290C0: 01 DD E5 E1 DD 4E 02 DD 46 03 CD 04 1E 28 09 DD .....N..F....(..
0290D0: 5E 00 DD 56 01 D5 DD E1 DD E5 E1 DD 4E 02 DD 46 ^..V........N..F
0290E0: 03 DD 5E 00 DD 56 01 18 1B 2A DE 00 ED 53 DE 00 ..^..V...*...S..
0290F0: D5 DD E1 DD 75 00 DD 74 01 ED 4B F0 00 DD 71 02 ....u..t..K...q.
029100: DD 70 03 EB 09 B7 ED 52 C0 D5 FD E1 2A C4 00 B7 .p.....R....*...
029110: ED 52 28 1B FD 7E 00 DD 77 00 FD 7E 01 DD 77 01 .R(..~..w..~..w.
029120: FD 6E 02 FD 66 03 09 DD 75 02 DD 74 03 AF C9 DD .n..f...u..t....
029130: E5 E1 22 C4 00 06 04 36 00 23 10 FB C9 CD 4B 1E .."....6.#....K.
029140: 2A F4 00 C9 CD 4B 1E 2A F6 00 C9 21 00 00 22 F4 *....K.*...!..".
029150: 00 22 F6 00 DD 2A DE 00 DD 4E 02 DD 46 03 79 B0 ."...*...N..F.y.
029160: 28 1E 2A F4 00 09 22 F4 00 2A F6 00 B7 ED 42 30 (.*..."..*....B0
029170: 04 ED 43 F6 00 DD 6E 00 DD 66 01 E5 DD E1 18 D8 ..C...n..f......
029180: 2A C6 00 01 FB FF 09 ED 5B C4 00 B7 ED 52 D8 EB *.......[....R..
029190: 2A F4 00 19 22 F4 00 2A F6 00 B7 ED 52 D0 ED 53 *..."..*....R..S
0291A0: F6 00 C9 ED 5B C4 00 73 23 72 C9 5E 23 56 EB 22 ....[..s#r.^#V."
0291B0: C4 00 22 DE 00 06 04 36 00 23 10 FB C9 3E AF 4F .."....6.#...>.O
0291C0: 22 E8 00 AF 77 32 D0 00 78 32 EA 00 2A E2 00 22 "...w2..x2..*.."
0291D0: ED 00 21 46 1F 22 E2 00 E1 22 E4 00 E1 0C 0D 20 ..!F."...".....
0291E0: 05 CD 26 17 18 03 CD 79 17 2A ED 00 22 E2 00 2A ..&....y.*.."..*
0291F0: E4 00 E9 3E AF 32 EC 00 22 E8 00 2A E2 00 22 ED ...>.2.."..*..".
029200: BE 1A CD F1 1F E5 21 00 00 D1 CD 7F 06 CB 45 CA ......!.......E.
029210: 7F 06 21 AE E2 E5 21 A7 E3 E5 2A EB E0 E5 21 7F ..!...!...*...!.
029220: 00 D1 7C A2 67 7D A3 6F D1 19 E5 2A F9 E0 CD 64 ..|.g}£o...*...d
029230: 1F 21 76 E3 E5 21 A7 E3 E5 21 02 00 CD BA 1A CD .!v..!...!......
029240: F1 1F E5 21 00 00 D1 CD 7F 06 CB 45 CA 7F 06 C9 ...!.......E....
029250: FD E1 E1 22 DD E0 E1 22 DF E0 E1 22 E1 E0 E1 22 ..."..."..."..."
029260: E3 E0 E1 22 E5 E0 E1 22 E7 E0 E1 22 E9 E0 FD E5 ..."..."..."....
029270: 2A DF E0 E5 21 02 00 D1 CD 7F 06 E5 2A DD E0 E5 *...!.......*...
029280: 21 02 00 D1 CD 7F 06 D1 7D A3 6F CB 45 CA 37 76 !.......}£o.E.7v
029290: 2A E9 E0 E5 2A E7 E0 E5 2A E5 E0 E5 CD 31 26 2A *...*...*....1&*
0292A0: E9 E0 E5 2A E3 E0 E5 2A E1 E0 E5 CD B0 26 C3 8E ...*...*.....&..
0292B0: 27 2A DF E0 E5 21 02 00 D1 CD 7F 06 E5 2A DD E0 '*...!.......*..
0292C0: E5 21 01 00 D1 CD 7F 06 D1 7D A3 6F CB 45 CA 37 .!.......}£o.E.7
0292D0: 76 2A E9 E0 E5 2A E7 E0 E5 2A E5 E0 E5 CD 31 26 v*...*...*....1&
0292E0: 21 01 00 E5 21 AE E2 E5 21 00 00 E5 2A E3 E0 E5 !...!...!...*...
0292F0: 21 03 00 D1 CD 4E 07 E5 2A E1 E0 E5 CD E9 25 E5 !....N..*.....%.
029300: 2A E9 E0 E5 CD A7 24 C3 CF 27 2A DF E0 E5 21 01 *.....$..'*...!.
029310: 00 D1 CD 7F 06 E5 2A DD E0 E5 21 02 00 D1 CD 7F ......*...!.....
029320: 06 D1 7D A3 6F CB 45 CA 37 76 21 00 00 E5 2A E7 ..}£o.E.7v!...*.
029330: E0 E5 21 03 00 D1 CD 4E 07 E5 2A E5 E0 E5 CD E9 ..!....N..*.....
029340: 25 E5 21 01 00 E5 21 AE E2 E5 2A E9 E0 E5 CD A7 %.!...!...*.....
029350: 24 2A E9 E0 E5 2A E3 E0 E5 2A E1 E0 E5 CD B0 26 $*...*...*.....&
029360: C3 28 28 21 00 00 E5 2A E7 E0 E5 21 03 00 D1 CD .((!...*...!....
029370: 4E 07 E5 2A E5 E0 E5 CD E9 25 E5 21 00 00 E5 2A N..*.....%.!...*
029380: E3 E0 E5 21 03 00 D1 CD 4E 07 E5 2A E1 E0 E5 CD ...!....N..*....
029390: E9 25 E5 2A E9 E0 E5 CD A7 24 C9 FD E1 E1 22 CD .%.*.....$....".
0293A0: E0 E1 22 CF E0 E1 22 D1 E0 E1 22 D3 E0 FD E5 21 .."..."..."....!
0293B0: AE E2 E5 2A D1 E0 E5 2A D3 E0 CD 4E 1F 21 01 00 ...*...*...N.!..
0293C0: E5 21 AE E2 E5 21 00 00 E5 2A CF E0 E5 21 03 00 .!...!...*...!..
0293D0: D1 CD 4E 07 E5 2A CD E0 E5 CD E9 25 E5 2A D1 E0 ..N..*.....%.*..
0293E0: E5 CD A7 24 C9 FD E1 E1 22 BF E0 E1 22 C1 E0 E1 ...$...."..."...
0293F0: 22 C3 E0 FD E5 21 00 00 E5 2A C3 E0 E5 21 03 00 "....!...*...!..
029400: 00 21 46 1F 22 E2 00 E1 22 E4 00 E1 22 EA 00 21 .!F."..."..."..!
029410: 5C 00 06 1E CD E2 05 AF 12 2A EA 00 3A EC 00 B7 \........*..:...
029420: 20 05 CD 4E 16 18 03 CD 72 16 21 D0 00 7E 36 00 ..N....r.!..~6.
029430: B7 67 6F 28 08 DD E5 E1 11 5C 00 ED 52 EB 2A E8 .go(.....\..R.*.
029440: 00 73 23 72 18 A3 C6 00 ED 5F 32 CB 00 C9 EB DD .s#r.£..._2.....
029450: E1 C1 E1 78 B1 28 0B 73 0B 78 B1 28 05 54 5D 13 ...x.(.s.x.(.T].
029460: ED B0 DD E9 44 4D DD E1 D1 E1 78 B1 28 F4 ED 52 ....DM....x.(..R
029470: 19 30 ED 0B 09 EB 09 EB 03 ED B8 DD E9 55 14 15 .0...........U..
029480: 28 03 CD 9D 1F DD E1 4F 06 00 2F 6F 26 FF 39 F9 (......O../o&.9.
029490: 71 23 EB 0C 0D 28 02 ED B0 DD E9 16 00 21 80 00 q#...(.......!..
0294A0: 3E 1F 46 B8 30 02 06 1F 23 0E 00 04 05 28 0D 7E >.F.0...#....(.~
0294B0: FE 20 28 04 FE 09 20 04 23 05 18 EF 5D 04 05 28 . (... .#...]..(
0294C0: 0D 7E FE 20 28 08 FE 09 28 04 23 05 18 EF 7D 93 .~. (...(.#...}.
0294D0: 28 04 0C 15 20 D5 69 26 00 54 C9 D1 C1 D5 2D 61 (... .i&.T....-a
0294E0: 25 C3 A2 02 7D CD A6 04 6F C9 2A 01 00 19 19 19 %...}...o.*.....
0294F0: E9 21 D0 00 7E 36 00 6F 26 00 C9 CD 16 03 7C B5 .!..~6.o&.....|.
029500: C8 3A DD 00 F5 AF 32 DD 00 CD 20 03 F1 32 DD 00 .:....2... ..2..
029510: 7D FE 03 C0 DD E1 11 01 00 18 11 3A D0 00 B7 C8 }..........:....
029520: DD E1 5F 16 01 18 05 DD E1 5F 16 02 D5 CD 7A 03 .._......_....z.
029530: D1 AF 32 DD 00 2A CE 00 7C B5 DD E5 E1 ED 4B CC ..2..*..|.....K.
029540: 00 ED 42 01 15 00 09 22 CE 00 B7 20 07 D5 D5 E5 ..B...."... ....
029550: CD D9 00 D1 7A B7 20 14 CD 00 02 5E 43 0D 0A 55 ....z. ....^C..U
029560: 73 65 72 20 62 72 65 61 6B 00 18 2B 3D 20 0B CD ser break..+= ..
029570: 00 02 0D 0A 49 2F 4F 00 18 0E CD 00 02 0D 0A 52 ....I/O........R
029580: 75 6E 2D 74 69 6D 65 00 CD 00 02 20 65 72 72 6F un-time.... erro
029590: 72 20 00 7B CD B4 04 CD 00 02 2C 20 50 43 3D 00 r .{......, PC=.
0295A0: 2A CE 00 CD AF 04 18 15 CD 00 02 4E 6F 74 20 65 *..........Not e
0295B0: 6E 6F 75 67 68 20 6D 65 6D 6F 72 79 00 CD 00 02 nough memory....
0295C0: 0D 0A 50 72 6F 67 72 61 6D 20 61 62 6F 72 74 65 ..Program aborte
0295D0: 64 0D 0A 00 3A D8 00 B7 CA 8E 27 C3 00 00 E1 D1 d...:.....'.....
0295E0: D1 E9 31 00 01 21 C2 F2 01 C2 F2 CD 64 03 21 64 ..1..!......d.!d
0295F0: 03 11 64 03 01 42 F3 3E 01 CD D4 04 C3 BA F2 01 ..d..B.>........
029600: D1 CD 4E 07 E5 2A C1 E0 E5 CD E9 25 E5 21 01 00 ..N..*.....%.!..
029610: E5 21 AE E2 E5 2A BF E0 E5 CD A7 24 21 00 00 E5 .!...*.....$!...
029620: 2A BF E0 D1 CD 66 06 7A B3 CA 00 00 D5 22 B5 E0 *....f.z....."..
029630: 21 AE E2 E5 2A B5 E0 D1 19 E5 21 AE E2 E5 2A B5 !...*.....!...*.
029640: E0 D1 19 6E 26 00 7D 2F 6F 7C 2F 67 EB E1 73 2A ...n&.}/o|/g..s*
029650: B5 E0 23 D1 1B C3 27 29 21 01 00 E5 21 AE E2 E5 ..#...')!...!...
029660: 21 00 00 E5 2A C3 E0 E5 21 03 00 D1 CD 4E 07 E5 !...*...!....N..
029670: 2A C1 E0 E5 CD E9 25 E5 2A BF E0 E5 CD A7 24 C9 *.....%.*.....$.
029680: FD E1 E1 22 AD E0 E1 22 AF E0 E1 22 B1 E0 E1 22 ..."..."..."..."
029690: B3 E0 FD E5 21 00 00 E5 2A AF E0 E5 21 03 00 D1 ....!...*...!...
0296A0: CD 4E 07 E5 2A AD E0 E5 CD E9 25 E5 21 01 00 E5 .N..*.....%.!...
0296B0: 2A B1 E0 E5 2A B3 E0 E5 CD A7 24 C9 FD E1 E1 22 *...*.....$...."
0296C0: 9D E0 E1 22 9F E0 E1 22 A1 E0 E1 22 A3 E0 FD E5 ..."..."..."£...
0296D0: 21 01 00 E5 2A A1 E0 E5 21 00 00 E5 2A 9F E0 E5 !...*...!...*...
0296E0: 21 03 00 D1 CD 4E 07 E5 2A 9D E0 E5 CD E9 25 E5 !....N..*.....%.
0296F0: 2A A3 E0 E5 CD A7 24 C9 FD E1 E1 7D 32 8E E0 E1 *£....$....}2...
029700: 22 8F E0 E1 22 91 E0 E1 22 93 E0 FD E5 2A 8E E0 "..."..."....*..
029710: 26 00 CB 45 CA 37 76 2A 8F E0 22 84 E0 21 00 00 &..E.7v*.."..!..
029720: E5 2A 93 E0 E5 21 01 00 D1 EB B7 ED 52 D1 CD 66 .*...!......R..f
029730: 06 7A B3 CA 00 00 D5 22 80 E0 2A 91 E0 E5 21 03 .z....."..*...!.
029740: 00 D1 CD 4E 07 E5 2A 84 E0 E5 CD E9 25 E5 21 00 ...N..*.....%.!.
029750: 40 D1 EB B7 ED 52 22 82 E0 21 76 E3 E5 2A 82 E0 @....R"..!v..*..
029760: E5 21 07 00 D1 CD 56 07 CD 6F 1B CD 1B 20 21 76 .!....V..o... !v
029770: E3 E5 21 A7 E3 E5 21 01 00 CD BE 1A CD F1 1F E5 ..!...!.........
029780: 21 00 00 D1 CD 7F 06 CB 45 CA 7F 06 21 AE E2 E5 !.......E...!...
029790: 2A 80 E0 D1 19 E5 21 A7 E3 E5 2A 82 E0 E5 21 7F *.....!...*...!.
0297A0: 00 D1 7C A2 67 7D A3 6F D1 19 6E 26 00 EB E1 73 ..|.g}£o..n&...s
0297B0: 2A 84 E0 E5 21 01 00 D1 19 22 84 E0 2A 80 E0 23 *...!...."..*..#
0297C0: D1 1B C3 31 2A C3 15 2A 21 AE E2 E5 2A 93 E0 E5 ...1*..*!...*...
0297D0: 2A A7 E4 26 00 7D 2F 6F 7C 2F 67 E5 21 FF 00 D1 *..&.}/o|/g.!...
0297E0: 7C A2 67 7D A3 6F CD 4E 1F C9 FD E1 E1 22 7A E0 |.g}£o.N....."z.
0297F0: E1 22 7C E0 E1 22 7E E0 FD E5 21 AE E2 22 AA E4 ."|.."~...!.."..
029800: 07 34 78 36 2E 66 6F 6E 00 00 00 00 00 00 00 00 .4x6.fon........
029810: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029820: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029830: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029840: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029850: 00 E1 ED 73 B9 E1 31 CF E1 E5 F3 01 8E 7F 3E C1 ...s..1.......>.
029860: ED 79 ED 79 ED 4B A8 E4 ED 5B AA E4 2A AC E4 C9 .y.y.K...[..*...
029870: 01 8E 7F 3E C2 ED 79 FB ED 7B B9 E1 C9 CD D1 E1 ...>..y..{......
029880: ED B0 C3 F0 E1 CD D1 E1 1A 77 13 D5 CD 15 E2 D1 .........w......
029890: 10 F6 C3 F0 E1 11 00 08 19 CB 7C C8 11 B0 3F A7 ..........|...?.
0298A0: ED 52 C9 11 00 08 A7 ED 52 CB 74 C0 11 B0 3F 19 .R......R.t...?.
0298B0: C9 CD FD E1 2A AC E4 CD 15 E2 22 AC E4 2A AA E4 ....*....."..*..
0298C0: CD 15 E2 22 AA E4 3A AE E4 3D 32 AE E4 20 E2 C9 ..."..:..=2.. ..
0298D0: CD FD E1 2A AC E4 CD 23 E2 22 AC E4 2A AA E4 CD ...*...#."..*...
0298E0: 23 E2 22 AA E4 3A AE E4 3D 32 AE E4 20 E2 C9 CD #."..:..=2.. ...
0298F0: D1 E1 7E 2F 77 23 0B 78 B1 20 F7 C3 F0 E1 C9 FD ..~/w#.x. ......
029900: E1 E1 22 AB E1 E1 22 AD E1 FD E5 21 00 40 E5 2A .."..."....!.@.*
029910: AB E1 E5 21 07 00 D1 7C A2 67 7D A3 6F E5 21 00 ...!...|.g}£o.!.
029920: 08 D1 CD F5 06 E5 2A AB E1 E5 21 03 00 D1 CD 56 ......*...!....V
029930: 07 E5 21 50 00 D1 CD F5 06 D1 19 E5 2A AD E1 D1 ..!P........*...
029940: 19 E5 21 FF 7F D1 7C A2 67 7D A3 6F D1 19 22 AF ..!...|.g}£o..".
029950: E1 2A AF E1 C9 FD E1 E1 7D 32 96 E1 E1 22 97 E1 .*......}2..."..
029960: E1 22 99 E1 E1 22 9B E1 E1 22 9D E1 E1 22 9F E1 ."..."..."..."..
029970: E1 22 A1 E1 FD E5 2A 9B E1 E5 2A 9F E1 D1 EB B7 ."....*...*.....
029980: ED 52 E5 21 01 00 D1 19 22 A8 E4 2A 99 E1 E5 2A .R.!...."..*...*
029990: 9D E1 D1 EB B7 ED 52 E5 21 01 00 D1 19 7D 32 AE ......R.!....}2.
0299A0: E4 21 FD E1 E5 21 04 00 D1 19 E5 21 B0 00 EB E1 .!...!.....!....
0299B0: 73 2A A1 E1 11 00 00 B7 ED 52 C2 00 00 2A 9F E1 s*.......R...*..
0299C0: E5 2A 9D E1 E5 CD FF 21 22 AC E4 2A 9F E1 E5 2A .*.....!"..*...*
0299D0: 9D E1 E5 2A 97 E1 D1 EB B7 ED 52 E5 CD FF 21 22 ...*......R...!"
0299E0: AA E4 CD 31 E2 C3 BB 22 19 11 01 00 B7 ED 52 C2 ...1..."......R.
0299F0: 01 00 2A 9F E1 E5 2A 99 E1 E5 CD FF 21 22 AC E4 ..*...*.....!"..
029A00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
029A10: 23 00 01 00 02 09 50 E5 23 00 41 02 00 00 00 02 #.....P.#.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: 2A 7C E0 E5 2A 7A E0 E5 CD FF 21 22 AC E4 2A 7E *|..*z....!"..*~
029B10: E0 7D 32 A9 E4 CD 05 E2 C9 21 78 BB E5 CD 1A 24 .}2......!x....$
029B20: 2A AD E4 26 00 22 70 E0 2A 70 E0 C9 21 78 BB E5 *..&."p.*p..!x..
029B30: CD 1A 24 2A AC E4 26 00 22 66 E0 2A 66 E0 C9 FD ..$*..&."f.*f...
029B40: E1 E1 22 5A E0 E1 22 5C E0 FD E5 CD 9B 14 21 1B .."Z.."\......!.
029B50: 00 CD 22 17 21 59 00 CD 22 17 2A 5A E0 E5 21 1F ..".!Y..".*Z..!.
029B60: 00 D1 19 CD 22 17 2A 5C E0 E5 21 1F 00 D1 19 CD ....".*\..!.....
029B70: 22 17 CD 1B 20 C9 C3 B8 30 FD E1 E1 22 50 E0 FD "... ...0..."P..
029B80: E5 2A 50 E0 E5 CD 81 05 21 01 00 E5 21 10 00 CD .*P.....!...!...
029B90: 9B 05 CD 4F 13 7D EE 01 6F CB 45 CA AC 2B 21 0E ...O.}..o.E..+!.
029BA0: 00 E5 21 02 00 E5 CD 76 2B C3 08 2C 21 B5 E4 E5 ..!....v+..,!...
029BB0: 2A 50 E0 2B 11 5E 00 CD F5 06 D1 19 22 48 E0 2A *P.+.^......"H.*
029BC0: 48 E0 22 4A E0 2A 48 E0 11 5D 00 19 6E 26 00 CB H."J.*H..]..n&..
029BD0: 45 CA FA 2B 21 7E E2 E5 CD 4D 05 05 77 69 6E 66 E..+!~...M..winf
029BE0: 2E 2A 50 E0 E5 21 30 00 D1 19 65 2E 01 E5 CD 3D .*P..!0...e....=
029BF0: 08 CD 70 13 21 7E E2 CD 93 1B 2A 48 E0 11 5D 00 ..p.!~....*H..].
029C00: 19 E5 21 00 00 EB E1 73 C9 21 01 00 E5 21 10 00 ..!....s.!...!..
029C10: D1 CD 66 06 7A B3 CA 2D 2C D5 22 3E E0 2A 3E E0 ..f.z..-,.">.*>.
029C20: E5 CD 79 2B 2A 3E E0 23 D1 1B C3 14 2C C9 21 7B ..y+*>.#....,.!{
029C30: BB E5 CD 1A 24 CD 9B 14 21 1B 00 CD 22 17 21 31 ....$...!...".!1
029C40: 00 CD 22 17 21 1B 00 CD 22 17 21 78 00 CD 22 17 ..".!...".!x..".
029C50: 21 1B 00 CD 22 17 21 76 00 CD 22 17 CD 1B 20 21 !...".!v.."... !
029C60: 76 E3 CD B0 1A 21 76 E3 CD 93 1B CD F1 1F E5 21 v....!v........!
029C70: 00 00 D1 CD 7F 06 CB 45 CA 7B 2C CD 09 2C C9 21 .......E.{,..,.!
029C80: 14 BC E5 CD 1A 24 C9 CD 9B 14 21 1B 00 CD 22 17 .....$....!...".
029C90: 21 79 00 CD 22 17 21 1B 00 CD 22 17 21 30 00 CD !y..".!...".!0..
029CA0: 22 17 21 1B 00 CD 22 17 21 77 00 CD 22 17 CD 1B ".!...".!w.."...
029CB0: 20 21 7E BB E5 CD 1A 24 CD 7F 2C 21 51 21 01 AD !~....$..,!Q!..
029CC0: 00 11 D1 E1 ED B0 21 76 E3 E5 CD 4D 05 0A 73 61 ......!v...M..sa
029CD0: 76 73 63 72 2E 24 24 24 CD 70 13 21 76 E3 CD 6F vscr.$$$.p.!v..o
029CE0: 1A CD 1B 20 21 A7 E3 E5 21 00 01 E5 21 00 00 CD ... !...!...!...
029CF0: 4E 1F 21 00 00 E5 21 3F 00 D1 CD 66 06 7A B3 CA N.!...!?...f.z..
029D00: E5 CD 81 05 21 00 00 E5 21 04 00 CD 9B 05 CD 4F ....!...!......O
029D10: 13 7D EE 01 6F CB 45 CA 31 35 2A E4 DD E5 21 FF .}..o.E.15*...!.
029D20: 00 D1 7C A2 67 7D A3 6F E5 21 00 01 D1 19 22 E4 ..|.g}£o.!....".
029D30: DD 2A E4 DD 22 80 F2 2A E4 DD E5 21 05 00 D1 CD .*.."..*...!....
029D40: E0 06 CB 45 CA 56 35 21 F0 34 E5 2A E4 DD D1 19 ...E.V5!.4.*....
029D50: 6E 26 00 22 E4 DD 21 00 00 E5 21 07 00 D1 CD 66 n&."..!...!....f
029D60: 06 7A B3 CA A7 35 D5 22 DA DD 21 5D F2 E5 21 07 .z...5."..!]..!.
029D70: 00 E5 2A DA DD D1 EB B7 ED 52 D1 19 E5 2A E4 DD ..*......R...*..
029D80: E5 2A DA DD D1 CD 56 07 E5 21 01 00 D1 7C A2 67 .*....V..!...|.g
029D90: 7D A3 6F E5 21 00 00 D1 CD 92 06 EB E1 73 2A DA }£o.!........s*.
029DA0: DD 23 D1 1B C3 61 35 21 07 00 7D 32 66 F2 C9 2A .#...a5!..}2f..*
029DB0: 80 F2 22 D8 DD 2A D8 DD C9 FD E1 E1 22 CE DD FD .."..*......"...
029DC0: E5 2A CE DD E5 21 00 00 D1 CD CC 06 CB 45 CA D7 .*...!.......E..
029DD0: 35 2A CE DD 22 70 F2 C9 2A 70 F2 22 C4 DD 2A C4 5*.."p..*p."..*.
029DE0: DD C9 FD E1 06 50 21 69 DD CD E2 05 E1 22 BA DD .....P!i....."..
029DF0: FD E5 2A BA DD E5 CD 81 05 21 01 00 E5 21 10 00 ..*......!...!..
029E00: CD 9B 05 CD 4F 13 CB 45 CA 2E 36 21 B4 EB E5 2A ....O..E..6!...*
029E10: BA DD 2B 11 5D 00 CD F5 06 D1 19 11 08 00 19 E5 ..+.]...........
029E20: 21 69 DD CD 3A 05 06 50 CD 01 06 C3 39 36 21 03 !i..:..P....96!.
029E30: 00 E5 21 02 00 E5 CD 76 2B C9 2A A6 E3 26 00 7D ..!....v+.*..&.}
029E40: 32 60 DD 2A 60 DD 26 00 C9 FD E1 E1 D1 C1 D9 21 2`.*`.&........!
029E50: 3E DD CD D1 05 E1 D1 C1 D9 21 44 DD CD D1 05 E1 >........!D.....
029E60: D1 C1 D9 21 4A DD CD D1 05 E1 D1 C1 D9 21 50 DD ...!J........!P.
029E70: CD D1 05 E1 22 56 DD FD E5 21 50 DD CD 2C 05 C5 ...."V...!P..,..
029E80: D5 E5 21 44 DD CD 2C 05 D9 E1 D1 C1 CD 9B 06 E5 ..!D..,.........
029E90: 21 4A DD CD 2C 05 C5 D5 E5 21 3E DD CD 2C 05 D9 !J..,....!>..,..
029EA0: E1 D1 C1 CD 9B 06 D1 7D A3 6F E5 2A 56 DD E5 CD .......}£o.*V...
029EB0: 81 05 21 01 00 E5 21 04 00 CD 9B 05 CD 4F 13 D1 ..!...!......O..
029EC0: 7D A3 6F CB 45 CA 3A 37 21 84 F1 E5 2A 56 DD 2B }£o.E.:7!...*V.+
029ED0: 11 18 00 CD F5 06 D1 19 22 36 DD 21 50 DD CD 2C ........"6.!P..,
029EE0: 05 D9 2A 36 DD CD D1 05 2A 36 DD 11 06 00 19 E5 ..*6....*6......
029EF0: 21 3E DD CD 2C 05 D9 E1 CD D1 05 2A 36 DD 11 0C !>..,......*6...
029F00: 20 2D D5 22 24 E0 21 76 E3 E5 21 A7 E3 E5 21 02 -."$.!v..!...!.
029F10: 00 CD BA 1A CD 1B 20 2A 24 E0 23 D1 1B C3 FD 2C ...... *$.#....,
029F20: C9 FD E1 E1 22 22 E0 FD E5 2A 22 E0 E5 CD 00 25 ....""...*"....%
029F30: C9 FD E1 E1 22 18 E0 FD E5 2A 18 E0 7D 32 AE E4 ...."....*..}2..
029F40: 21 E4 BB E5 CD 1A 24 C9 FD E1 E1 22 0C E0 E1 22 !.....$...."..."
029F50: 0E E0 FD E5 21 C7 00 E5 2A 0C E0 D1 EB B7 ED 52 ....!...*......R
029F60: E5 21 01 00 D1 CD 4E 07 22 AC E4 2A 0E E0 22 AA .!....N."..*..".
029F70: E4 21 EA BB E5 CD 1A 24 C9 FD E1 E1 22 FF DF E1 .!.....$...."...
029F80: 22 01 E0 FD E5 21 C7 00 E5 2A FF DF D1 EB B7 ED "....!...*......
029F90: 52 E5 21 01 00 D1 CD 4E 07 22 AC E4 2A 01 E0 22 R.!....N."..*.."
029FA0: AA E4 21 F0 BB E5 CD 1A 24 2A AE E4 26 00 E5 21 ..!.....$*..&..!
029FB0: 00 00 D1 CD 92 06 7D 32 03 E0 2A 03 E0 26 00 C9 ......}2..*..&..
029FC0: FD E1 E1 11 EF DF 01 08 00 ED B0 FD E5 2A 84 F2 .............*..
029FD0: E5 2A 82 F2 D1 CD 66 06 7A B3 CA 20 2E D5 22 E5 .*....f.z.. ..".
029FE0: DF 21 EF DF E5 2A E5 DF E5 21 07 00 D1 7C A2 67 .!...*...!...|.g
029FF0: 7D A3 6F D1 19 6E 26 00 E5 2A 86 F2 E5 2A 88 F2 }£o..n&..*...*..
02A000: D1 EB B7 ED 52 E5 21 01 00 D1 19 E5 2A 88 F2 E5 ....R.!.....*...
02A010: 2A E5 DF E5 CD 9B 28 2A E5 DF 23 D1 1B C3 D8 2D *.....(*..#....-
02A020: C9 FD E1 E1 7D 32 E4 DF FD E5 21 D4 DF E5 21 08 ....}2....!...!.
02A030: 00 E5 2A E4 DF 26 00 CD 4E 1F 21 D4 DF E5 CD C0 ..*..&..N.!.....
02A040: 2D C9 FD E1 E1 22 CE DF E1 22 D0 DF E1 22 D2 DF -...."..."..."..
02A050: FD E5 2A D2 DF E5 2A CE DF E5 CD 23 25 2A D0 DF ..*...*....#%*..
02A060: E5 2A CE DF E5 CD 54 25 C9 FD E1 E1 22 C4 DF FD .*....T%...."...
02A070: E5 CD F1 1F E5 21 00 00 D1 CD 92 06 CB 45 CA 8C .....!.......E..
02A080: 2E 2A C4 DF E5 21 05 00 E5 CD 76 2B C9 FD E1 06 .*...!....v+....
02A090: 50 21 6B DF CD E2 05 FD E5 21 7E E2 E5 21 6B DF P!k......!~..!k.
02A0A0: CD 3A 05 CD 70 13 21 7E E2 CD 6F 1A 21 1B 00 E5 .:..p.!~..o.!...
02A0B0: CD 69 2E 21 00 00 E5 21 7F 00 D1 CD 66 06 7A B3 .i.!...!....f.z.
02A0C0: CA F0 2E D5 22 61 DF 2A 61 DF E5 21 A7 E3 E5 CD ...."a.*a..!....
02A0D0: B7 25 21 7E E2 E5 21 A7 E3 E5 21 01 00 CD BA 1A .%!~..!...!.....
02A0E0: 21 1B 00 E5 CD 69 2E 2A 61 DF 23 D1 1B C3 BE 2E !....i.*a.#.....
02A0F0: 21 7E E2 CD B0 1A CD 1B 20 21 1B 00 E5 CD 69 2E !~...... !....i.
02A100: 00 19 E5 21 44 DD CD 2C 05 D9 E1 CD D1 05 2A 36 ...!D..,......*6
02A110: DD 11 12 00 19 E5 21 4A DD CD 2C 05 D9 E1 CD D1 ......!J..,.....
02A120: 05 2A 56 DD E5 2A 7E F2 D1 CD CC 06 CB 45 CA 37 .*V..*~......E.7
02A130: 37 2A 56 DD 22 7E F2 C3 6C 37 2A 56 DD E5 CD 81 7*V."~..l7*V....
02A140: 05 21 01 00 E5 21 04 00 CD 9B 05 CD 4F 13 CB 45 .!...!......O..E
02A150: CA 61 37 21 01 00 E5 21 03 00 E5 CD 76 2B C3 6C .a7!...!....v+.l
02A160: 37 21 01 00 E5 21 02 00 E5 CD 76 2B C9 FD E1 E1 7!...!....v+....
02A170: 22 34 DD FD E5 2A 34 DD E5 CD 81 05 21 01 00 E5 "4...*4.....!...
02A180: 2A 7E F2 CD 9B 05 CD 4F 13 CB 45 CA E4 37 21 84 *~.....O..E..7!.
02A190: F1 E5 2A 34 DD 2B 11 18 00 CD F5 06 D1 19 22 2C ..*4.+........",
02A1A0: DD 2A 2C DD CD 2C 05 D9 21 B4 F2 CD D1 05 2A 2C .*,..,..!.....*,
02A1B0: DD 11 06 00 19 CD 2C 05 D9 21 A8 F2 CD D1 05 2A ......,..!.....*
02A1C0: 2C DD 11 0C 00 19 CD 2C 05 D9 21 AE F2 CD D1 05 ,......,..!.....
02A1D0: 2A 2C DD 11 12 00 19 CD 2C 05 D9 21 A2 F2 CD D1 *,......,..!....
02A1E0: 05 C3 EF 37 21 02 00 E5 21 02 00 E5 CD 76 2B C9 ...7!...!....v+.
02A1F0: FD E1 E1 22 22 DD E1 22 24 DD E1 22 26 DD E1 22 ..."".."$.."&.."
02A200: 28 DD E1 22 2A DD FD E5 2A 2A DD E5 CD 81 05 21 (.."*...**.....!
02A210: 01 00 E5 21 10 00 CD 9B 05 CD 4F 13 E5 2A 28 DD ...!......O..*(.
02A220: E5 2A 24 DD D1 CD B8 06 D1 7D A3 6F E5 2A 26 DD .*$......}£o.*&.
02A230: E5 2A 22 DD D1 CD B8 06 D1 7D A3 6F E5 2A 28 DD .*"......}£o.*(.
02A240: E5 21 00 00 D1 CD A5 06 D1 7D A3 6F E5 2A 24 DD .!.......}£o.*$.
02A250: E5 21 4F 00 D1 CD B8 06 D1 7D A3 6F E5 2A 26 DD .!O......}£o.*&.
02A260: E5 21 00 00 D1 CD A5 06 D1 7D A3 6F E5 2A 22 DD .!.......}£o.*".
02A270: E5 21 C7 00 D1 CD B8 06 D1 7D A3 6F CB 45 CA E7 .!.......}£o.E..
02A280: 38 21 B4 EB E5 2A 2A DD 2B 11 5D 00 CD F5 06 D1 8!...**.+.].....
02A290: 19 22 1A DD 2A 28 DD EB 2A 1A DD 73 23 72 2A 1A ."..*(..*..s#r*.
02A2A0: DD 11 02 00 19 E5 2A 26 DD EB E1 73 23 72 2A 1A ......*&...s#r*.
02A2B0: DD 11 04 00 19 E5 2A 24 DD EB E1 73 23 72 2A 1A ......*$...s#r*.
02A2C0: DD 11 06 00 19 E5 2A 22 DD EB E1 73 23 72 2A 2A ......*"...s#r**
02A2D0: DD E5 2A 7C F2 D1 CD CC 06 CB 45 CA E4 38 2A 2A ..*|......E..8**
02A2E0: DD 22 7C F2 C3 19 39 2A 2A DD E5 CD 81 05 21 01 ."|...9**.....!.
02A2F0: 00 E5 21 10 00 CD 9B 05 CD 4F 13 CB 45 CA 0E 39 ..!......O..E..9
02A300: C9 FD E1 E1 22 5F DF FD E5 2A 5F DF 7D 32 A6 E3 ...."_...*_.}2..
02A310: C9 FD E1 06 50 21 06 DF CD E2 05 FD E5 21 7E E2 ....P!.......!~.
02A320: E5 21 06 DF CD 3A 05 CD 70 13 21 7E E2 CD 70 1A .!...:..p.!~..p.
02A330: 21 0B 00 E5 CD 69 2E 21 00 00 E5 21 7F 00 D1 CD !....i.!...!....
02A340: 66 06 7A B3 CA 70 2F D5 22 FC DE 21 7E E2 E5 21 f.z..p/."..!~..!
02A350: A7 E3 E5 21 01 00 CD BE 1A CD 1B 20 2A FC DE E5 ...!....... *...
02A360: 21 A7 E3 E5 CD 85 25 2A FC DE 23 D1 1B C3 42 2F !.....%*..#...B/
02A370: 21 7E E2 CD B0 1A CD 1B 20 C9 21 76 E3 E5 21 00 !~...... .!v..!.
02A380: 00 CD 6F 1B CD 1B 20 21 00 00 E5 21 7F 00 D1 CD ..o... !...!....
02A390: 66 06 7A B3 CA F5 2F D5 22 F2 DE 2A F2 DE E5 21 f.z.../."..*...!
02A3A0: A7 E3 E5 CD B7 25 21 76 E3 E5 21 A7 E3 E5 21 80 .....%!v..!...!.
02A3B0: 00 D1 19 E5 21 01 00 CD BE 1A CD 1B 20 2A F2 DE ....!....... *..
02A3C0: E5 21 A7 E3 E5 21 80 00 D1 19 E5 CD 85 25 21 76 .!...!.......%!v
02A3D0: E3 E5 2A F2 DE CD 6F 1B CD 1B 20 21 76 E3 E5 21 ..*...o... !v..!
02A3E0: A7 E3 E5 21 01 00 CD BA 1A CD 1B 20 2A F2 DE 23 ...!....... *..#
02A3F0: D1 1B C3 92 2F C9 21 76 E3 E5 21 00 00 CD 6F 1B ..../.!v..!...o.
02A400: CD 1B 20 21 00 00 E5 21 7F 00 D1 CD 66 06 7A B3 .. !...!....f.z.
02A410: CA 40 30 D5 22 E8 DE 2A E8 DE E5 21 A7 E3 E5 CD .@0."..*...!....
02A420: B7 25 21 76 E3 E5 21 A7 E3 E5 21 01 00 CD BA 1A .%!v..!...!.....
02A430: 21 0B 00 E5 CD 69 2E 2A E8 DE 23 D1 1B C3 0E 30 !....i.*..#....0
02A440: C9 21 76 E3 E5 21 00 00 CD 6F 1B CD 1B 20 21 00 .!v..!...o... !.
02A450: 00 E5 21 7F 00 D1 CD 66 06 7A B3 CA 8B 30 D5 22 ..!....f.z...0."
02A460: DE DE 21 76 E3 E5 21 A7 E3 E5 21 01 00 CD BE 1A ..!v..!...!.....
02A470: 21 0B 00 E5 CD 69 2E 2A DE DE E5 21 A7 E3 E5 CD !....i.*...!....
02A480: 85 25 2A DE DE 23 D1 1B C3 59 30 C9 2A A6 E3 26 .%*..#...Y0.*..&
02A490: 00 E5 21 02 00 D1 CD 7F 06 CB 45 CA A4 30 CD 41 ..!.......E..0.A
02A4A0: 30 C3 A7 30 CD F6 2F C9 21 00 40 22 A8 E4 21 00 0..0../.!.@"..!.
02A4B0: 40 22 AC E4 CD 6F E2 C9 FD E1 E1 22 CA DE E1 22 @"...o....."..."
02A4C0: CC DE FD E5 2A CC DE E5 CD 81 05 21 00 00 E5 21 ....*......!...!
02A4D0: 1B 00 CD 9B 05 CD 4F 13 7D EE 01 6F CB 45 CA 26 ......O.}..o.E.&
02A4E0: 31 CD 2E 2C CD 9B 14 CD BA 17 28 46 41 54 41 4C 1..,......(FATAL
02A4F0: 20 45 52 52 4F 52 20 31 3A 20 69 6C 6C 65 67 61 ERROR 1: illega
02A500: 21 03 00 E5 21 03 00 E5 CD 76 2B C3 19 39 21 03 !...!....v+..9!.
02A510: 00 E5 21 02 00 E5 CD 76 2B C9 FD E1 E1 22 10 DD ..!....v+...."..
02A520: E1 22 12 DD E1 22 14 DD E1 22 16 DD E1 22 18 DD ."..."..."..."..
02A530: FD E5 2A 18 DD E5 2A 16 DD E5 2A 14 DD E5 2A 12 ..*...*...*...*.
02A540: DD E5 2A 10 DD E5 CD F0 37 21 B4 EB E5 2A 18 DD ..*.....7!...*..
02A550: 2B 11 5D 00 CD F5 06 D1 19 22 08 DD 2A 08 DD 11 +.]......"..*...
02A560: 08 00 19 E5 CD 4D 05 00 06 50 CD 01 06 2A 08 DD .....M...P...*..
02A570: 11 5A 00 19 E5 21 01 00 EB E1 73 2A 08 DD 11 59 .Z...!....s*...Y
02A580: 00 19 E5 21 00 00 EB E1 73 C9 FD E1 E1 22 02 DD ...!....s...."..
02A590: E1 22 04 DD FD E5 2A 04 DD E5 21 01 00 D1 EB B7 ."....*...!.....
02A5A0: ED 52 E5 21 7F 02 E5 21 01 00 D1 19 E5 21 50 00 .R.!...!.....!P.
02A5B0: D1 CD 0F 07 D1 CD F5 06 E5 2A 02 DD D1 EB B7 ED .........*......
02A5C0: 52 E5 21 08 00 D1 CD 0F 07 22 F8 DC 2A F8 DC E5 R.!......"..*...
02A5D0: 21 00 00 D1 CD E0 06 CB 45 CA E5 39 21 00 00 22 !.......E..9!.."
02A5E0: F8 DC C3 FB 39 2A F8 DC E5 21 4F 00 D1 CD CC 06 ....9*...!O.....
02A5F0: CB 45 CA FB 39 21 4F 00 22 F8 DC 2A F8 DC 22 06 .E..9!O."..*..".
02A600: DD 2A 06 DD C9 FD E1 E1 22 F2 DC E1 22 F4 DC FD .*......"..."...
02A610: E5 21 7F 02 E5 21 01 00 D1 19 E5 21 50 00 D1 CD .!...!.....!P...
02A620: 0F 07 22 E8 DC 2A F4 DC E5 2A E8 DC D1 CD F5 06 .."..*...*......
02A630: E5 2A F2 DC D1 19 E5 21 01 00 D1 EB B7 ED 52 E5 .*.....!......R.
02A640: 21 08 00 D1 CD 0F 07 22 E8 DC 2A E8 DC E5 21 00 !......"..*...!.
02A650: 00 D1 CD E0 06 CB 45 CA 63 3A 21 00 00 22 E8 DC ......E.c:!.."..
02A660: C3 79 3A 2A E8 DC E5 21 4F 00 D1 CD CC 06 CB 45 .y:*...!O......E
02A670: CA 79 3A 21 4F 00 22 E8 DC 2A E8 DC 22 F6 DC 2A .y:!O."..*.."..*
02A680: F6 DC C9 FD E1 E1 22 E2 DC E1 22 E4 DC FD E5 2A ......"..."....*
02A690: E4 DC E5 21 01 00 D1 EB B7 ED 52 E5 21 C7 00 E5 ...!......R.!...
02A6A0: 21 01 00 D1 19 E5 21 19 00 D1 CD 0F 07 D1 CD F5 !.....!.........
02A6B0: 06 E5 2A E2 DC D1 EB B7 ED 52 22 D8 DC 2A D8 DC ..*......R"..*..
02A6C0: E5 21 00 00 D1 CD E0 06 CB 45 CA D6 3A 21 00 00 .!.......E..:!..
02A6D0: 22 D8 DC C3 EC 3A 2A D8 DC E5 21 C7 00 D1 CD CC "....:*...!.....
02A6E0: 06 CB 45 CA EC 3A 21 C7 00 22 D8 DC 2A D8 DC 22 ..E..:!.."..*.."
02A6F0: E6 DC 2A E6 DC C9 FD E1 E1 22 D2 DC E1 22 D4 DC ..*......"..."..
02A700: 6C 20 70 72 6F 63 65 64 75 72 65 20 6E 75 6D 62 l procedure numb
02A710: 65 72 20 2A CC DE E5 21 00 00 CD 26 17 CD CD 17 er *...!...&....
02A720: CD 1B 20 C3 D4 20 2A CA DE E5 CD 81 05 21 00 00 .. .. *......!..
02A730: E5 21 07 00 CD 9B 05 CD 4F 13 7D EE 01 6F CB 45 .!......O.}..o.E
02A740: CA 82 31 CD 2E 2C CD 9B 14 CD BA 17 22 46 41 54 ..1..,......"FAT
02A750: 41 4C 20 45 52 52 4F 52 20 32 3A 20 69 6C 6C 65 AL ERROR 2: ille
02A760: 67 61 6C 20 65 72 72 6F 72 20 63 6F 64 65 20 2A gal error code *
02A770: CA DE E5 21 00 00 CD 26 17 CD CD 17 CD 1B 20 C3 ...!...&...... .
02A780: D4 20 2A CA DE 7D 32 65 F2 2A 69 F2 26 00 CB 45 . *..}2e.*i.&..E
02A790: CA 96 31 CD 2E 2C 2A 6A F2 26 00 E5 2A 69 F2 26 ..1..,*j.&..*i.&
02A7A0: 00 D1 7D B3 6F CB 45 CA 62 32 CD 19 2B 22 C0 DE ..}.o.E.b2..+"..
02A7B0: CD 2C 2B 22 BE DE 21 01 00 E5 21 18 00 E5 CD 3F .,+"..!...!....?
02A7C0: 2B CD 99 02 CD 9B 14 CD BA 17 15 54 75 72 62 6F +..........Turbo
02A7D0: 20 47 72 61 70 68 69 78 20 65 72 72 6F 72 20 23 Graphix error #
02A7E0: 2A CA DE E5 21 00 00 CD 26 17 CD BA 17 0F 20 69 *...!...&..... i
02A7F0: 6E 20 70 72 6F 63 65 64 75 72 65 20 23 2A CC DE n procedure #*..
02A800: E5 21 00 00 CD 26 17 CD CD 17 CD 1B 20 2A 6A F2 .!...&...... *j.
02A810: 26 00 CB 45 CA 62 32 CD 99 02 CD 9B 14 21 28 00 &..E.b2......!(.
02A820: CD 22 17 21 15 F2 E5 2A CA DE 29 D1 19 5E 23 56 .".!...*..)..^#V
02A830: EB CD 3A 05 21 00 00 CD AA 17 CD BA 17 04 20 69 ..:.!......... i
02A840: 6E 20 21 25 F2 E5 2A CC DE 29 D1 19 5E 23 56 EB n !%..*..)..^#V.
02A850: CD 3A 05 21 00 00 CD AA 17 21 29 00 CD 22 17 CD .:.!.....!).."..
02A860: 1B 20 2A 6A F2 26 00 E5 2A 69 F2 26 00 D1 7D A3 . *j.&..*i.&..}£
02A870: 6F CB 45 CA 7C 32 C3 D4 20 C3 04 33 2A 69 F2 26 o.E.|2.. ..3*i.&
02A880: 00 CB 45 CA 8C 32 C3 D4 20 C3 04 33 2A 6A F2 26 ..E..2.. ..3*j.&
02A890: 00 CB 45 CA 04 33 CD 9B 14 CD BA 17 0E 2E 20 20 ..E..3........
02A8A0: 48 69 74 20 65 6E 74 65 72 3A 20 CD 1B 20 21 BA Hit enter: .. !.
02A8B0: 00 CD A9 14 21 BD DE CD 44 16 CD 1B 20 2A BD DE ....!...D... *..
02A8C0: 26 00 E5 21 0D 00 D1 CD 7F 06 E5 2A BD DE 26 00 &..!.......*..&.
02A8D0: E5 21 03 00 D1 CD 7F 06 D1 7D B3 6F CB 45 CA AE .!.......}.o.E..
02A8E0: 32 2A BD DE 26 00 E5 21 03 00 D1 CD 7F 06 CB 45 2*..&..!.......E
02A8F0: CA F9 32 CD 2E 2C C3 D4 20 2A C0 DE E5 2A BE DE ..2..,.. *...*..
02A900: FD E5 2A D4 DC E5 21 C7 00 E5 21 01 00 D1 19 E5 ..*...!...!.....
02A910: 21 19 00 D1 CD 0F 07 D1 CD F5 06 E5 2A D2 DC D1 !...........*...
02A920: 19 E5 21 01 00 D1 EB B7 ED 52 22 C8 DC 2A C8 DC ..!......R"..*..
02A930: E5 21 00 00 D1 CD E0 06 CB 45 CA 46 3B 21 00 00 .!.......E.F;!..
02A940: 22 C8 DC C3 5C 3B 2A C8 DC E5 21 C7 00 D1 CD CC "...\;*...!.....
02A950: 06 CB 45 CA 5C 3B 21 C7 00 22 C8 DC 2A C8 DC 22 ..E.\;!.."..*.."
02A960: D6 DC 2A D6 DC C9 FD E1 E1 22 BC DC E1 22 BE DC ..*......"..."..
02A970: E1 22 C0 DC E1 22 C2 DC E1 22 C4 DC E1 22 C6 DC ."..."..."..."..
02A980: FD E5 2A C6 DC E5 2A C4 DC E5 2A BC DC E5 CD 8A ..*...*...*.....
02A990: 39 E5 2A C2 DC E5 2A BC DC E5 CD 83 3A E5 2A C0 9.*...*.....:.*.
02A9A0: DC E5 2A BC DC E5 CD 05 3A E5 2A BE DC E5 2A BC ..*.....:.*...*.
02A9B0: DC E5 CD F6 3A E5 CD 1A 39 C9 FD E1 E1 22 B2 DC ....:...9...."..
02A9C0: FD E5 2A B2 DC E5 CD 81 05 21 01 00 E5 2A 7C F2 ..*......!...*|.
02A9D0: CD 9B 05 CD 4F 13 CB 45 CA 48 3D 21 B4 EB E5 2A ....O..E.H=!...*
02A9E0: B2 DC 2B 11 5D 00 CD F5 06 D1 19 22 AA DC 2A B2 ..+.]......"..*.
02A9F0: DC 22 7A F2 2A AA DC 5E 23 56 EB 22 88 F2 2A AA ."z.*..^#V."..*.
02AA00: DC 11 02 00 19 5E 23 56 EB 22 84 F2 2A AA DC 11 .....^#V."..*...
02AA10: 04 00 19 5E 23 56 EB 22 86 F2 2A AA DC 11 06 00 ...^#V."..*.....
02AA20: 19 5E 23 56 EB 22 82 F2 2A AA DC 11 04 00 19 5E .^#V."..*......^
02AA30: 23 56 EB E5 2A AA DC 5E 23 56 EB D1 EB B7 ED 52 #V..*..^#V.....R
02AA40: E5 21 03 00 D1 CD 4E 07 E5 21 07 00 D1 19 E5 21 .!....N..!.....!
02AA50: AE F2 CD 2C 05 C5 D5 E5 21 B4 F2 CD 2C 05 D9 E1 ...,....!...,...
02AA60: D1 C1 CD F2 09 D9 E1 CD 08 10 CD FF 09 D9 21 90 ..............!.
02AA70: F2 CD D1 05 2A AA DC 11 06 00 19 5E 23 56 EB E5 ....*......^#V..
02AA80: 2A AA DC 11 02 00 19 5E 23 56 EB D1 EB B7 ED 52 *......^#V.....R
02AA90: E5 21 A2 F2 CD 2C 05 C5 D5 E5 21 A8 F2 CD 2C 05 .!...,....!...,.
02AAA0: D9 E1 D1 C1 CD F2 09 D9 E1 CD 08 10 CD FF 09 D9 ................
02AAB0: 21 8A F2 CD D1 05 2A AA DC 5E 23 56 EB E5 21 03 !.....*..^#V..!.
02AAC0: 00 D1 CD 4E 07 E5 21 B4 F2 CD 2C 05 C5 D5 E5 21 ...N..!...,....!
02AAD0: 90 F2 CD 2C 05 D9 E1 D1 C1 CD FA 09 D9 E1 CD 08 ...,............
02AAE0: 10 CD F2 09 D9 21 9C F2 CD D1 05 2A AA DC 11 02 .....!.....*....
02AAF0: 00 19 5E 23 56 EB E5 21 A8 F2 CD 2C 05 C5 D5 E5 ..^#V..!...,....
02AB00: E5 CD 3F 2B C9 21 00 00 7D 32 69 F2 C9 21 01 00 ..?+.!..}2i..!..
02AB10: 7D 32 69 F2 C9 2A 65 F2 26 00 7D 32 AC DE 21 00 }2i..*e.&.}2..!.
02AB20: 00 7D 32 65 F2 2A AC DE 26 00 C9 21 01 00 7D 32 .}2e.*..&..!..}2
02AB30: 6E F2 C9 21 00 00 7D 32 6E F2 C9 21 01 00 7D 32 n..!..}2n..!..}2
02AB40: 6D F2 C9 21 00 00 7D 32 6D F2 C9 21 01 00 7D 32 m..!..}2m..!..}2
02AB50: 6A F2 C9 21 00 00 7D 32 6A F2 C9 21 01 00 7D 32 j..!..}2j..!..}2
02AB60: 68 F2 C9 21 00 00 7D 32 68 F2 C9 21 01 00 7D 32 h..!..}2h..!..}2
02AB70: 67 F2 C9 21 00 00 7D 32 67 F2 C9 FD E1 E1 22 52 g..!..}2g....."R
02AB80: DE FD E5 2A 52 DE E5 CD 81 05 21 01 00 E5 21 10 ...*R.....!...!.
02AB90: 00 CD 9B 05 CD 4F 13 CB 45 CA DF 33 21 B4 EB E5 .....O..E..3!...
02ABA0: 2A 52 DE 2B 11 5D 00 CD F5 06 D1 19 22 4A DE 2A *R.+.]......"J.*
02ABB0: 4A DE 11 59 00 19 E5 21 00 00 EB E1 73 2A 4A DE J..Y...!....s*J.
02ABC0: 11 5A 00 19 E5 21 01 00 EB E1 73 2A 4A DE 11 08 .Z...!....s*J...
02ABD0: 00 19 E5 CD 4D 05 00 06 50 CD 01 06 C3 EA 33 21 ....M...P.....3!
02ABE0: 16 00 E5 21 02 00 E5 CD 76 2B C9 21 FF 00 E5 CD ...!....v+.!....
02ABF0: 00 25 C9 21 00 00 E5 CD 00 25 C9 2A 7A F2 22 38 .%.!.....%.*z."8
02AC00: DE 2A 38 DE C9 2A 6D F2 26 00 7D 32 2F DE 2A 2F .*8..*m.&.}2/.*/
02AC10: DE 26 00 C9 2A 6E F2 26 00 7D EE 01 6F 7D 32 26 .&..*n.&.}..o}2&
02AC20: DE 2A 26 DE 26 00 C9 FD E1 E1 D1 C1 D9 21 18 DE .*&.&........!..
02AC30: CD D1 05 FD E5 21 18 DE CD 2C 05 C5 D5 E5 21 00 .....!...,....!.
02AC40: 00 11 00 00 01 00 00 D9 E1 D1 C1 CD 9B 06 CB 45 ...............E
02AC50: CA 62 34 21 18 DE CD 2C 05 CB B8 D9 21 E6 F1 CD .b4!...,....!...
02AC60: D1 05 C9 21 E6 F1 CD 2C 05 D9 21 0A DE CD D1 05 ...!...,..!.....
02AC70: 21 0A DE CD 2C 05 C9 FD E1 E1 D1 C1 D9 21 FC DD !...,........!..
02AC80: CD D1 05 FD E5 21 FC DD CD 2C 05 C5 D5 E5 21 00 .....!...,....!.
02AC90: 00 11 00 00 01 00 00 D9 E1 D1 C1 CD 9B 06 CB 45 ...............E
02ACA0: CA C5 34 21 FC DD CD 2C 05 CB B8 C5 D5 E5 21 80 ..4!...,......!.
02ACB0: 00 11 00 00 01 00 00 D9 E1 D1 C1 CD FA 09 D9 21 ...............!
02ACC0: E6 F1 CD D1 05 C9 21 E6 F1 CD 2C 05 C5 D5 E5 21 ......!...,....!
02ACD0: 80 00 11 00 00 01 00 00 D9 E1 D1 C1 CD FF 09 D9 ................
02ACE0: 21 EE DD CD D1 05 21 EE DD CD 2C 05 C9 C3 F5 34 !.....!...,....4
02ACF0: FF 88 F8 E4 EE FD E1 E1 22 E4 DD FD E5 2A E4 DD ........"....*..
02AD00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
02AD10: 24 00 01 00 02 09 50 E5 24 00 41 02 00 00 00 02 $.....P.$.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: 21 8A F2 CD 2C 05 D9 E1 D1 C1 CD FA 09 D9 E1 CD !...,...........
02AE10: 08 10 CD F2 09 D9 21 96 F2 CD D1 05 2A 6C F2 26 ......!.....*l.&
02AE20: 00 CB 45 CA 45 3D 21 00 00 7D 32 6C F2 21 00 00 ..E.E=!..}2l.!..
02AE30: 22 78 F2 21 00 00 22 74 F2 21 00 00 22 76 F2 21 "x.!.."t.!.."v.!
02AE40: 00 00 22 72 F2 C3 53 3D 21 04 00 E5 21 02 00 E5 .."r..S=!...!...
02AE50: CD 76 2B C9 FD E1 E1 D1 C1 D9 21 A2 DC CD D1 05 .v+.......!.....
02AE60: FD E5 21 9C F2 CD 2C 05 C5 D5 E5 21 90 F2 CD 2C ..!...,....!...,
02AE70: 05 C5 D5 E5 21 A2 DC CD 2C 05 D9 E1 D1 C1 CD FA ....!...,.......
02AE80: 09 D9 E1 D1 C1 CD E9 09 CD DE 0F 22 A8 DC 2A A8 ..........."..*.
02AE90: DC C9 FD E1 E1 D1 C1 D9 21 92 DC CD D1 05 FD E5 ........!.......
02AEA0: 21 96 F2 CD 2C 05 C5 D5 E5 21 8A F2 CD 2C 05 C5 !...,....!...,..
02AEB0: D5 E5 21 92 DC CD 2C 05 D9 E1 D1 C1 CD FA 09 D9 ..!...,.........
02AEC0: E1 D1 C1 CD E9 09 CD DE 0F 22 98 DC 2A 98 DC C9 ........."..*...
02AED0: 21 01 00 E5 21 01 00 E5 CD 3F 2B 21 01 00 7D 32 !...!....?+!..}2
02AEE0: 6A F2 21 00 00 7D 32 69 F2 21 25 F2 E5 21 00 00 j.!..}2i.!%..!..
02AEF0: 29 D1 19 E5 21 10 00 CD E5 1C 21 15 F2 E5 21 00 )...!.....!...!.
02AF00: 00 29 D1 19 E5 21 18 00 CD E5 1C 21 25 F2 E5 21 .)...!.....!%..!
02AF10: 00 00 29 D1 19 5E 23 56 EB E5 CD 4D 05 0B 49 6E ..)..^#V...M..In
02AF20: 69 74 47 72 61 70 68 69 63 06 50 CD 01 06 21 15 itGraphic.P...!.
02AF30: F2 E5 21 00 00 29 D1 19 5E 23 56 EB E5 CD 4D 05 ..!..)..^#V...M.
02AF40: 11 45 52 52 4F 52 2E 4D 53 47 20 6D 69 73 73 69 .ERROR.MSG missi
02AF50: 6E 67 06 50 CD 01 06 21 22 DB E5 CD 4D 05 09 65 ng.P...!"...M..e
02AF60: 72 72 6F 72 2E 6D 73 67 CD 6F 13 CD 1B 20 21 22 rror.msg.o... !"
02AF70: DB CD FF 13 CD F1 1F E5 21 00 00 D1 CD 7F 06 CB ........!.......
02AF80: 45 CA 94 3F 21 00 00 E5 21 1B 00 D1 CD 66 06 7A E..?!...!....f.z
02AF90: B3 CA FC 3E D5 22 CF DA 21 22 DB CD A9 14 21 D1 ...>."..!"....!.
02AFA0: DA 06 50 CD 8E 16 CD AB 16 CD 1B 20 2A CF DA E5 ..P........ *...
02AFB0: 21 00 00 D1 CD 92 06 CB 45 CA D9 3E 21 25 F2 E5 !.......E..>!%..
02AFC0: 2A CF DA 29 D1 19 E5 21 D1 DA CD 3A 05 CD A3 08 *..)...!...:..£.
02AFD0: E5 21 01 00 D1 19 CD E5 1C 21 25 F2 E5 2A CF DA .!.......!%..*..
02AFE0: 29 D1 19 5E 23 56 EB E5 21 D1 DA CD 3A 05 06 50 )..^#V..!...:..P
02AFF0: CD 01 06 2A CF DA 23 D1 1B C3 8F 3E 21 00 00 E5 ...*..#....>!...
02B000: B2 DA 73 23 72 2A B6 DA 5E 23 56 EB E5 2A 84 F2 ..s#r*..^#V..*..
02B010: E5 2A 82 F2 E5 CD 80 42 22 A6 DA 2A B2 DA 5E 23 .*.....B"..*..^#
02B020: 56 EB E5 2A 84 F2 E5 2A 82 F2 E5 CD 80 42 22 A2 V..*...*.....B".
02B030: DA 2A A6 DA E5 21 00 00 D1 CD 92 06 E5 2A A2 DA .*...!.......*..
02B040: E5 21 00 00 D1 CD 92 06 D1 7D B3 6F CB 45 CA 58 .!.......}.o.E.X
02B050: 47 21 00 00 7D 32 9B DA 2A 9B DA 26 00 CB 45 CA G!..}2..*..&..E.
02B060: B5 47 2A B8 DA 5E 23 56 EB E5 2A 9E DA E5 2A 9C .G*..^#V..*...*.
02B070: DA E5 CD 80 42 22 A8 DA 2A B4 DA 5E 23 56 EB E5 ....B"..*..^#V..
02B080: 2A 9E DA E5 2A 9C DA E5 CD 80 42 22 A4 DA 2A A4 *...*.....B"..*.
02B090: DA E5 21 00 00 D1 CD 92 06 E5 2A A8 DA E5 21 00 ..!.......*...!.
02B0A0: 00 D1 CD 92 06 D1 7D B3 6F CB 45 CA B5 47 21 00 ......}.o.E..G!.
02B0B0: 00 7D 32 9B DA 2A 9B DA 26 00 7D 32 BA DA 2A BA .}2..*..&.}2..*.
02B0C0: DA 26 00 C9 FD E1 E1 D1 C1 D9 21 7F DA CD D1 05 .&........!.....
02B0D0: E1 D1 C1 D9 21 85 DA CD D1 05 FD E5 2A 6E F2 26 ....!.......*n.&
02B0E0: 00 CB 45 CA 00 48 21 85 DA CD 2C 05 CD DE 0F E5 ..E..H!...,.....
02B0F0: 21 7F DA CD 2C 05 CD DE 0F E5 CD 48 2D C3 97 48 !...,......H-..H
02B100: 21 85 DA CD 2C 05 C5 D5 E5 CD 54 3D 22 75 DA 21 !...,.....T="u.!
02B110: 7F DA CD 2C 05 C5 D5 E5 CD 92 3D 22 73 DA 2A 6D ...,......="s.*m
02B120: F2 26 00 CB 45 CA 8C 48 2A 75 DA E5 2A 88 F2 E5 .&..E..H*u..*...
02B130: 21 03 00 D1 CD 4E 07 D1 CD A5 06 E5 2A 75 DA E5 !....N......*u..
02B140: 2A 86 F2 E5 21 03 00 D1 CD 4E 07 E5 21 07 00 D1 *...!....N..!...
02B150: 19 D1 CD E0 06 D1 7D A3 6F CB 45 CA 89 48 2A 73 ......}£o.E..H*s
02B160: DA E5 2A 84 F2 D1 CD A5 06 E5 2A 73 DA E5 2A 82 ..*.......*s..*.
02B170: F2 D1 CD B8 06 D1 7D A3 6F CB 45 CA 89 48 2A 75 ......}£o.E..H*u
02B180: DA E5 2A 73 DA E5 CD 48 2D C3 97 48 2A 75 DA E5 ..*s...H-..H*u..
02B190: 2A 73 DA E5 CD 48 2D C9 FD E1 E1 D1 C1 D9 21 66 *s...H-.......!f
02B1A0: DA CD D1 05 E1 D1 C1 D9 21 6C DA CD D1 05 FD E5 ........!l......
02B1B0: 2A 6E F2 26 00 CB 45 CA D8 48 21 6C DA CD 2C 05 *n.&..E..H!l..,.
02B1C0: CD DE 0F E5 21 66 DA CD 2C 05 CD DE 0F E5 CD 79 ....!f..,......y
02B1D0: 2D 7D 32 72 DA C3 F9 48 21 6C DA CD 2C 05 C5 D5 -}2r...H!l..,...
02B1E0: E5 CD 54 3D E5 21 66 DA CD 2C 05 C5 D5 E5 CD 92 ..T=.!f..,......
02B1F0: 3D E5 CD 79 2D 7D 32 72 DA 2A 72 DA 26 00 C9 FD =..y-}2r.*r.&...
02B200: 21 07 00 D1 CD 66 06 7A B3 CA 74 3F D5 22 CF DA !....f.z..t?."..
02B210: 21 22 DB CD A9 14 21 D1 DA 06 50 CD 8E 16 CD AB !"....!...P.....
02B220: 16 CD 1B 20 2A CF DA E5 21 00 00 D1 CD 92 06 CB ... *...!.......
02B230: 45 CA 51 3F 21 15 F2 E5 2A CF DA 29 D1 19 E5 21 E.Q?!...*..)...!
02B240: D1 DA CD 3A 05 CD A3 08 E5 21 01 00 D1 19 CD E5 ...:..£..!......
02B250: 1C 21 15 F2 E5 2A CF DA 29 D1 19 5E 23 56 EB E5 .!...*..)..^#V..
02B260: 21 D1 DA CD 3A 05 06 50 CD 01 06 2A CF DA 23 D1 !...:..P...*..#.
02B270: 1B C3 07 3F 21 22 DB CD A9 14 21 EC F1 06 28 CD ...?!"....!...(.
02B280: 8E 16 CD AB 16 CD 1B 20 21 22 DB CD 69 14 CD 1B ....... !"..i...
02B290: 20 C3 4B 40 21 25 F2 E5 21 01 00 29 D1 19 E5 21 .K@!%..!..)...!
02B2A0: 0E 00 CD E5 1C 21 25 F2 E5 21 01 00 29 D1 19 5E .....!%..!..)..^
02B2B0: 23 56 EB E5 CD 4D 05 0D 2A 2A 20 55 4E 4B 4E 4F #V...M..** UNKNO
02B2C0: 57 4E 20 2A 2A 06 50 CD 01 06 21 02 00 E5 21 1B WN **.P...!...!.
02B2D0: 00 D1 CD 66 06 7A B3 CA 05 40 D5 22 CF DA 21 25 ...f.z...@."..!%
02B2E0: F2 E5 2A CF DA 29 D1 19 E5 21 25 F2 E5 21 01 00 ..*..)...!%..!..
02B2F0: 29 D1 19 5E 23 56 EB EB E1 73 23 72 2A CF DA 23 )..^#V...s#r*..#
02B300: D1 1B C3 D5 3F 21 01 00 E5 21 07 00 D1 CD 66 06 ....?!...!....f.
02B310: 7A B3 CA 40 40 D5 22 CF DA 21 15 F2 E5 2A CF DA z..@@."..!...*..
02B320: 29 D1 19 E5 21 25 F2 E5 21 01 00 29 D1 19 5E 23 )...!%..!..)..^#
02B330: 56 EB EB E1 73 23 72 2A CF DA 23 D1 1B C3 10 40 V...s#r*..#....@
02B340: 21 00 00 E5 21 00 00 E5 CD 76 2B 21 01 00 E5 21 !...!....v+!...!
02B350: 04 00 D1 CD 66 06 7A B3 CA 93 40 D5 22 CF DA 2A ....f.z...@."..*
02B360: CF DA E5 21 00 00 CD 08 10 C5 D5 E5 21 00 00 CD ...!........!...
02B370: 08 10 C5 D5 E5 21 7F 02 CD 08 10 C5 D5 E5 21 C7 .....!........!.
02B380: 00 CD 08 10 C5 D5 E5 CD 49 36 2A CF DA 23 D1 1B ........I6*..#..
02B390: C3 56 40 21 01 00 22 7E F2 21 01 00 E5 21 10 00 .V@!.."~.!...!..
02B3A0: D1 CD 66 06 7A B3 CA 05 41 D5 22 CF DA 2A CF DA ..f.z...A."..*..
02B3B0: E5 21 00 00 E5 21 00 00 E5 21 4F 00 E5 21 C7 00 .!...!...!O..!..
02B3C0: E5 CD 1A 39 21 B5 E4 E5 2A CF DA 2B 11 5E 00 CD ...9!...*..+.^..
02B3D0: F5 06 D1 19 22 82 DC 2A 82 DC 11 5B 00 19 E5 21 ...."..*...[...!
02B3E0: 00 00 EB E1 73 23 72 2A 82 DC 11 5D 00 19 E5 21 ....s#r*...]...!
02B3F0: 00 00 EB E1 73 2A CF DA E5 CD 7B 33 2A CF DA 23 ....s*....{3*..#
02B400: E1 E1 22 56 DA E1 22 58 DA E1 22 5A DA E1 22 5C .."V.."X.."Z.."\
02B410: DA FD E5 2A 80 F2 E5 21 00 00 D1 CD 7F 06 CB 45 ...*...!.......E
02B420: CA 3C 49 2A 5C DA E5 2A 5A DA E5 CD 23 25 2A 58 .<I*\..*Z...#%*X
02B430: DA E5 2A 56 DA E5 CD 54 25 C3 68 4A 2A 5C DA 22 ..*V...T%.hJ*\."
02B440: 4C DA 2A 5A DA 22 4A DA 21 01 00 22 44 DA 21 01 L.*Z."J.!.."D.!.
02B450: 00 22 42 DA 2A 5C DA E5 2A 58 DA D1 CD CC 06 CB ."B.*\..*X......
02B460: 45 CA 6A 49 21 FF FF 22 44 DA 2A 5A DA E5 2A 56 E.jI!.."D.*Z..*V
02B470: DA D1 CD CC 06 CB 45 CA 80 49 21 FF FF 22 42 DA ......E..I!.."B.
02B480: 2A 58 DA E5 2A 5C DA D1 EB B7 ED 52 CD 80 07 22 *X..*\.....R..."
02B490: 48 DA 2A 56 DA E5 2A 5A DA D1 EB B7 ED 52 CD 80 H.*V..*Z.....R..
02B4A0: 07 22 46 DA 2A 48 DA E5 21 00 00 D1 CD 7F 06 CB ."F.*H..!.......
02B4B0: 45 CA BD 49 21 FF FF 22 40 DA C3 C3 49 21 00 00 E..I!.."@...I!..
02B4C0: 22 40 DA 2A 4C DA E5 2A 58 DA D1 CD 7F 06 E5 2A "@.*L..*X......*
02B4D0: 4A DA E5 2A 56 DA D1 CD 7F 06 D1 7D A3 6F 7D EE J..*V......}£o}.
02B4E0: 01 6F CB 45 CA 68 4A 2A 66 F2 26 00 E5 21 01 00 .o.E.hJ*f.&..!..
02B4F0: D1 19 E5 21 07 00 D1 7C A2 67 7D A3 6F 7D 32 66 ...!...|.g}£o}2f
02B500: F2 21 5D F2 E5 2A 66 F2 26 00 D1 19 6E 26 00 CB .!]..*f.&...n&..
02B510: 45 CA 1F 4A 2A 4C DA E5 2A 4A DA E5 CD 48 2D 2A E..J*L..*J...H-*
02B520: 40 DA E5 21 00 00 D1 CD E0 06 CB 45 CA 4A 4A 2A @..!.......E.JJ*
02B530: 4A DA E5 2A 42 DA D1 19 22 4A DA 2A 40 DA E5 2A J..*B..."J.*@..*
02B540: 48 DA D1 19 22 40 DA C3 65 4A 2A 4C DA E5 2A 44 H..."@..eJ*L..*D
02B550: DA D1 19 22 4C DA 2A 40 DA E5 2A 46 DA D1 EB B7 ..."L.*@..*F....
02B560: ED 52 22 40 DA C3 C3 49 C9 FD E1 E1 22 38 DA E1 .R"@...I...."8..
02B570: 22 3A DA E1 22 3C DA E1 22 3E DA FD E5 21 3E DA ":.."<..">...!>.
02B580: E5 21 3C DA E5 21 3A DA E5 21 38 DA E5 CD 7D 42 .!<..!:..!8...}B
02B590: CB 45 CA A8 4A 2A 3E DA E5 2A 3C DA E5 2A 3A DA .E..J*>..*<..*:.
02B5A0: E5 2A 38 DA E5 CD FF 48 C9 FD E1 E1 D1 C1 D9 21 .*8....H.......!
02B5B0: 18 DA CD D1 05 E1 D1 C1 D9 21 1E DA CD D1 05 E1 .........!......
02B5C0: D1 C1 D9 21 24 DA CD D1 05 E1 D1 C1 D9 21 2A DA ...!$........!*.
02B5D0: CD D1 05 FD E5 2A 6E F2 26 00 CB 45 CA 0D 4B 21 .....*n.&..E..K!
02B5E0: 2A DA CD 2C 05 CD DE 0F E5 21 24 DA CD 2C 05 CD *..,.....!$..,..
02B5F0: DE 0F E5 21 1E DA CD 2C 05 CD DE 0F E5 21 18 DA ...!...,.....!..
02B600: D1 1B C3 A4 40 21 01 00 22 7C F2 21 D2 DB E5 21 ....@!.."|.!...!
02B610: 00 21 CD 3A 05 CD 70 13 21 D2 DB 11 1D 01 CD 11 .!.:..p.!.......
02B620: 18 CD F1 1F E5 21 00 00 D1 CD 7F 06 CB 45 CA 43 .....!.......E.C
02B630: 41 21 D2 DB CD A4 18 21 97 EA CD B6 18 CD 1B 20 A!.....!.......
02B640: C3 4E 41 21 00 00 E5 21 01 00 E5 CD 76 2B 21 D2 .NA!...!....v+!.
02B650: DB CD 7A 18 CD 1B 20 21 01 00 7D 32 69 F2 21 01 ..z... !..}2i.!.
02B660: 00 E5 CD 01 2F 21 01 00 22 7A F2 21 01 00 E5 CD ..../!.."z.!....
02B670: 6D 37 21 01 00 E5 CD BA 3B CD EB 33 CD 3B 33 21 m7!.....;..3.;3!
02B680: 80 00 11 00 00 01 00 00 C5 D5 E5 CD 77 34 21 00 ............w4!.
02B690: 00 7D 32 6E F2 21 00 00 7D 32 6F F2 CD 4B 33 CD .}2n.!..}2o..K3.
02B6A0: 63 33 CD 6B 33 21 00 00 7D 32 65 F2 21 00 00 E5 c3.k3!..}2e.!...
02B6B0: CD ED 34 21 05 00 22 70 F2 CD 87 2C 21 00 00 22 ..4!.."p...,!.."
02B6C0: 78 F2 21 00 00 22 76 F2 21 00 00 22 74 F2 21 00 x.!.."v.!.."t.!.
02B6D0: 00 22 72 F2 21 00 00 7D 32 6C F2 21 00 00 7D 32 ."r.!..}2l.!..}2
02B6E0: 6B F2 C9 21 01 00 E5 21 10 00 D1 CD 66 06 7A B3 k..!...!....f.z.
02B6F0: CA 1E 42 D5 22 C5 DA 2A C5 DA E5 21 00 00 E5 21 ..B."..*...!...!
02B700: 00 00 E5 21 4F 00 E5 21 C7 00 E5 CD 1A 39 2A C5 ...!O..!.....9*.
02B710: DA E5 CD 7B 33 2A C5 DA 23 D1 1B C3 EE 41 21 01 ...{3*..#....A!.
02B720: 00 E5 CD BA 3B C9 21 01 00 E5 21 04 00 D1 CD 66 ....;.!...!....f
02B730: 06 7A B3 CA 6E 42 D5 22 BB DA 2A BB DA E5 21 00 .z..nB."..*...!.
02B740: 00 CD 08 10 C5 D5 E5 21 00 00 CD 08 10 C5 D5 E5 .......!........
02B750: 21 7F 02 CD 08 10 C5 D5 E5 21 C7 00 CD 08 10 C5 !........!......
02B760: D5 E5 CD 49 36 2A BB DA 23 D1 1B C3 31 42 21 01 ...I6*..#...1B!.
02B770: 00 E5 CD 6D 37 2A 7A F2 E5 CD BA 3B C9 C3 C9 42 ...m7*z....;...B
02B780: FD E1 E1 22 93 DA E1 22 95 DA E1 22 97 DA FD E5 ..."..."..."....
02B790: 21 00 00 22 99 DA 2A 97 DA E5 2A 95 DA D1 CD E0 !.."..*...*.....
02B7A0: 06 CB 45 CA AF 42 21 FF FF 22 99 DA C3 C5 42 2A ..E..B!.."....B*
02B7B0: 97 DA E5 2A 93 DA D1 CD CC 06 CB 45 CA C5 42 21 ...*.......E..B!
02B7C0: 01 00 22 99 DA 2A 99 DA C9 FD E1 E1 22 B2 DA E1 .."..*......"...
02B7D0: 22 B4 DA E1 22 B6 DA E1 22 B8 DA FD E5 21 01 00 "..."..."....!..
02B7E0: 7D 32 BA DA 21 01 00 7D 32 9B DA 2A 6D F2 26 00 }2..!..}2..*m.&.
02B7F0: CB 45 CA BE 47 2A 6B F2 26 00 CB 45 CA 0E 43 2A .E..G*k.&..E..C*
02B800: CD 2C 05 CD DE 0F E5 CD FF 48 C3 44 4B 21 2A DA .,.......H.DK!*.
02B810: CD 2C 05 C5 D5 E5 CD 54 3D E5 21 24 DA CD 2C 05 .,.....T=.!$..,.
02B820: C5 D5 E5 CD 92 3D E5 21 1E DA CD 2C 05 C5 D5 E5 .....=.!...,....
02B830: CD 54 3D E5 21 18 DA CD 2C 05 C5 D5 E5 CD 92 3D .T=.!...,......=
02B840: E5 CD 69 4A C9 FD E1 E1 22 08 DA E1 22 0A DA E1 ..iJ...."..."...
02B850: 22 0C DA E1 22 0E DA FD E5 21 0E DA E5 21 0C DA "..."....!...!..
02B860: E5 21 0A DA E5 21 08 DA E5 CD 7D 42 CB 45 CA 98 .!...!....}B.E..
02B870: 4B 2A 0E DA CD 08 10 C5 D5 E5 2A 0C DA CD 08 10 K*........*.....
02B880: C5 D5 E5 2A 0A DA CD 08 10 C5 D5 E5 2A 08 DA CD ...*........*...
02B890: 08 10 C5 D5 E5 CD A9 4A C9 FD E1 E1 7D 32 F7 D9 .......J....}2..
02B8A0: E1 22 F8 D9 E1 22 FA D9 E1 22 FC D9 E1 22 FE D9 ."..."..."..."..
02B8B0: FD E5 2A F7 D9 26 00 7D EE 01 6F CB 45 CA 5F 4C ..*..&.}..o.E._L
02B8C0: 2A FE D9 CD 08 10 C5 D5 E5 2A FC D9 CD 08 10 C5 *........*......
02B8D0: D5 E5 2A FA D9 CD 08 10 C5 D5 E5 2A FC D9 CD 08 ..*........*....
02B8E0: 10 C5 D5 E5 CD A9 4A 2A FA D9 CD 08 10 C5 D5 E5 ......J*........
02B8F0: 2A FC D9 CD 08 10 C5 D5 E5 2A FA D9 CD 08 10 C5 *........*......
02B900: D5 E5 2A F8 D9 CD 08 10 C5 D5 E5 CD A9 4A 2A FE ..*..........J*.
02B910: D9 CD 08 10 C5 D5 E5 2A F8 D9 CD 08 10 C5 D5 E5 .......*........
02B920: 2A FA D9 CD 08 10 C5 D5 E5 2A F8 D9 CD 08 10 C5 *........*......
02B930: D5 E5 CD A9 4A 2A FE D9 CD 08 10 C5 D5 E5 2A F8 ....J*........*.
02B940: D9 CD 08 10 C5 D5 E5 2A FE D9 CD 08 10 C5 D5 E5 .......*........
02B950: 2A FC D9 CD 08 10 C5 D5 E5 CD A9 4A C3 A3 4C 2A *..........J.£L*
02B960: FC D9 E5 2A F8 D9 D1 CD 66 06 7A B3 CA A3 4C D5 ...*....f.z..£L.
02B970: 22 ED D9 2A FE D9 CD 08 10 C5 D5 E5 2A ED D9 CD "..*........*...
02B980: 08 10 C5 D5 E5 2A FA D9 CD 08 10 C5 D5 E5 2A ED .....*........*.
02B990: D9 CD 08 10 C5 D5 E5 CD A9 4A 2A ED D9 23 D1 1B .........J*..#..
02B9A0: C3 6A 4C C9 FD E1 E1 7D 32 E4 D9 E1 22 E5 D9 E1 .jL....}2..."...
02B9B0: 22 E7 D9 E1 22 E9 D9 E1 22 EB D9 FD E5 21 EB D9 "..."..."....!..
02B9C0: E5 21 E5 D9 E5 21 E7 D9 E5 21 E9 D9 E5 CD 7D 42 .!...!...!....}B
02B9D0: CB 45 CA EE 4C 2A EB D9 E5 2A E5 D9 E5 2A E7 D9 .E..L*...*...*..
02B9E0: E5 2A E9 D9 E5 2A E4 D9 26 00 E5 CD 99 4B C9 FD .*...*..&....K..
02B9F0: E1 E1 7D 32 C3 D9 E1 D1 C1 D9 21 C4 D9 CD D1 05 ..}2......!.....
02BA00: 88 F2 22 9E DA 2A 86 F2 22 9C DA C3 30 43 2A 88 .."..*.."...0C*.
02BA10: F2 E5 21 03 00 D1 CD 4E 07 22 9E DA 2A 86 F2 E5 ..!....N."..*...
02BA20: 21 03 00 D1 CD 4E 07 E5 21 07 00 D1 19 22 9C DA !....N..!...."..
02BA30: 2A B8 DA 5E 23 56 EB E5 2A 9E DA E5 2A 9C DA E5 *..^#V..*...*...
02BA40: CD 80 42 22 A8 DA 2A B6 DA 5E 23 56 EB E5 2A 84 ..B"..*..^#V..*.
02BA50: F2 E5 2A 82 F2 E5 CD 80 42 22 A6 DA 2A B4 DA 5E ..*.....B"..*..^
02BA60: 23 56 EB E5 2A 9E DA E5 2A 9C DA E5 CD 80 42 22 #V..*...*.....B"
02BA70: A4 DA 2A B2 DA 5E 23 56 EB E5 2A 84 F2 E5 2A 82 ..*..^#V..*...*.
02BA80: F2 E5 CD 80 42 22 A2 DA 2A A8 DA E5 2A A4 DA D1 ....B"..*...*...
02BA90: 7C B2 67 7D B3 6F E5 2A A6 DA D1 7C B2 67 7D B3 |.g}.o.*...|.g}.
02BAA0: 6F E5 2A A2 DA D1 7C B2 67 7D B3 6F E5 21 00 00 o.*...|.g}.o.!..
02BAB0: D1 CD 92 06 CB 45 CA BE 47 2A B8 DA 5E 23 56 EB .....E..G*..^#V.
02BAC0: E5 2A B4 DA 5E 23 56 EB D1 CD 92 06 CB 45 CA 81 .*..^#V......E..
02BAD0: 45 2A A8 DA E5 21 00 00 D1 CD 92 06 CB 45 CA 87 E*...!.......E..
02BAE0: 44 2A A8 DA E5 21 00 00 D1 CD E0 06 CB 45 CA FA D*...!.......E..
02BAF0: 43 2A 9E DA 22 A0 DA C3 00 44 2A 9C DA 22 A0 DA C*.."....D*.."..
02BB00: 2A B2 DA 5E 23 56 EB E5 2A B6 DA 5E 23 56 EB D1 *..^#V..*..^#V..
02BB10: CD 92 06 CB 45 CA 7D 44 2A B6 DA 5E 23 56 EB E5 ....E.}D*..^#V..
02BB20: 2A B2 DA 5E 23 56 EB E5 2A B6 DA 5E 23 56 EB D1 *..^#V..*..^#V..
02BB30: EB B7 ED 52 E5 2A B4 DA 5E 23 56 EB E5 2A B8 DA ...R.*..^#V..*..
02BB40: 5E 23 56 EB D1 EB B7 ED 52 CD 08 10 D9 E1 CD 08 ^#V.....R.......
02BB50: 10 CD FF 09 C5 D5 E5 2A A0 DA E5 2A B8 DA 5E 23 .......*...*..^#
02BB60: 56 EB D1 EB B7 ED 52 CD 08 10 D9 E1 D1 C1 CD FA V.....R.........
02BB70: 09 CD DE 0F D1 19 EB 2A B6 DA 73 23 72 2A A0 DA .......*..s#r*..
02BB80: EB 2A B8 DA 73 23 72 2A A4 DA E5 21 00 00 D1 CD .*..s#r*...!....
02BB90: 92 06 E5 2A B8 DA 5E 23 56 EB E5 2A B4 DA 5E 23 ...*..^#V..*..^#
02BBA0: 56 EB D1 CD 92 06 D1 7D A3 6F CB 45 CA 55 45 2A V......}£o.E.UE*
02BBB0: A4 DA E5 21 00 00 D1 CD E0 06 CB 45 CA C8 44 2A ...!.......E..D*
02BBC0: 9E DA 22 A0 DA C3 CE 44 2A 9C DA 22 A0 DA 2A B2 .."....D*.."..*.
02BBD0: DA 5E 23 56 EB E5 2A B6 DA 5E 23 56 EB D1 CD 92 .^#V..*..^#V....
02BBE0: 06 CB 45 CA 4B 45 2A B6 DA 5E 23 56 EB E5 2A B2 ..E.KE*..^#V..*.
02BBF0: DA 5E 23 56 EB E5 2A B6 DA 5E 23 56 EB D1 EB B7 .^#V..*..^#V....
02BC00: E1 D1 C1 D9 21 CA D9 CD D1 05 E1 D1 C1 D9 21 D0 ....!.........!.
02BC10: D9 CD D1 05 E1 D1 C1 D9 21 D6 D9 CD D1 05 FD E5 ........!.......
02BC20: 2A 6E F2 26 00 CB 45 CA 5E 4D 21 D6 D9 CD 2C 05 *n.&..E.^M!...,.
02BC30: CD DE 0F E5 21 D0 D9 CD 2C 05 CD DE 0F E5 21 CA ....!...,.....!.
02BC40: D9 CD 2C 05 CD DE 0F E5 21 C4 D9 CD 2C 05 CD DE ..,.....!...,...
02BC50: 0F E5 2A C3 D9 26 00 E5 CD 99 4B C3 B4 4D 2A 6E ..*..&....K..M*n
02BC60: F2 26 00 7D 32 BA D9 21 01 00 7D 32 6E F2 21 D6 .&.}2..!..}2n.!.
02BC70: D9 CD 2C 05 C5 D5 E5 CD 54 3D E5 21 D0 D9 CD 2C ..,.....T=.!...,
02BC80: 05 C5 D5 E5 CD 92 3D E5 21 CA D9 CD 2C 05 C5 D5 ......=.!...,...
02BC90: E5 CD 54 3D E5 21 C4 D9 CD 2C 05 C5 D5 E5 CD 92 ..T=.!...,......
02BCA0: 3D E5 2A C3 D9 26 00 E5 CD A4 4C 2A BA D9 26 00 =.*..&....L*..&.
02BCB0: 7D 32 6E F2 C9 C3 30 4E 00 00 79 00 EF 00 63 01 }2n...0N..y...c.
02BCC0: D1 01 38 02 97 02 ED 02 37 03 75 03 A7 03 CB 03 ..8.....7.u.....
02BCD0: E1 03 E8 03 FD E1 E1 22 8D D9 E1 22 8F D9 E1 22 ......."..."..."
02BCE0: 91 D9 E1 22 93 D9 FD E5 2A B3 D9 26 00 CB 45 CA ..."....*..&..E.
02BCF0: 1C 4E 2A 93 D9 CD 08 10 C5 D5 E5 2A 91 D9 CD 08 .N*........*....
02BD00: 10 C5 D5 E5 2A 8F D9 CD 08 10 C5 D5 E5 2A 8D D9 ....*........*..
02BD10: CD 08 10 C5 D5 E5 CD A9 4A C3 2F 4E 2A 93 D9 E5 ........J./N*...
02BD20: 2A 91 D9 E5 2A 8F D9 E5 2A 8D D9 E5 CD 45 4B C9 *...*...*....EK.
02BD30: FD E1 E1 7D 32 B3 D9 E1 22 B4 D9 E1 22 B6 D9 E1 ...}2..."..."...
02BD40: 22 B8 D9 FD E5 2A B4 D9 E5 21 77 8D 11 97 6E 01 "....*...!w...n.
02BD50: 12 03 D9 E1 CD 08 10 CD FA 09 CB B8 D9 21 9B D9 .............!..
02BD60: CD D1 05 21 9B D9 CD 2C 05 C5 D5 E5 21 E6 F1 CD ...!...,....!...
02BD70: 2C 05 D9 E1 D1 C1 CD FA 09 D9 21 95 D9 CD D1 05 ,.........!.....
02BD80: 21 9B D9 CD 2C 05 C5 D5 E5 21 00 00 11 00 00 01 !...,....!......
02BD90: 00 00 D9 E1 D1 C1 CD D6 06 CB 45 CA 91 50 21 B8 ..........E..P!.
02BDA0: 4D E5 21 01 00 2B 29 D1 19 5E 23 56 EB E5 21 9B M.!..+)..^#V..!.
02BDB0: D9 CD 2C 05 D9 E1 CD 08 10 CD FA 09 C5 D5 E5 21 ..,............!
02BDC0: 80 00 11 00 00 01 00 00 D9 E1 D1 C1 CD E9 09 CD ................
02BDD0: DE 0F 22 A7 D9 21 B8 4D E5 21 0E 00 2B 29 D1 19 .."..!.M.!..+)..
02BDE0: 5E 23 56 EB E5 21 95 D9 CD 2C 05 D9 E1 CD 08 10 ^#V..!...,......
02BDF0: CD FA 09 C5 D5 E5 21 80 00 11 00 00 01 00 00 D9 ......!.........
02BE00: ED 52 E5 2A B4 DA 5E 23 56 EB E5 2A B8 DA 5E 23 .R.*..^#V..*..^#
02BE10: 56 EB D1 EB B7 ED 52 CD 08 10 D9 E1 CD 08 10 CD V.....R.........
02BE20: FF 09 C5 D5 E5 2A A0 DA E5 2A B8 DA 5E 23 56 EB .....*...*..^#V.
02BE30: D1 EB B7 ED 52 CD 08 10 D9 E1 D1 C1 CD FA 09 CD ....R...........
02BE40: DE 0F D1 19 EB 2A B2 DA 73 23 72 2A A0 DA EB 2A .....*..s#r*...*
02BE50: B4 DA 73 23 72 2A B6 DA 5E 23 56 EB E5 2A 84 F2 ..s#r*..^#V..*..
02BE60: E5 2A 82 F2 E5 CD 80 42 22 A6 DA 2A B2 DA 5E 23 .*.....B"..*..^#
02BE70: 56 EB E5 2A 84 F2 E5 2A 82 F2 E5 CD 80 42 22 A2 V..*...*.....B".
02BE80: DA 2A B6 DA 5E 23 56 EB E5 2A B2 DA 5E 23 56 EB .*..^#V..*..^#V.
02BE90: D1 CD 92 06 CB 45 CA 05 47 2A A6 DA E5 21 00 00 .....E..G*...!..
02BEA0: D1 CD 92 06 CB 45 CA 4F 46 2A A6 DA E5 21 00 00 .....E.OF*...!..
02BEB0: D1 CD E0 06 CB 45 CA C2 45 2A 84 F2 22 A0 DA C3 .....E..E*.."...
02BEC0: C8 45 2A 82 F2 22 A0 DA 2A B8 DA 5E 23 56 EB E5 .E*.."..*..^#V..
02BED0: 2A B4 DA 5E 23 56 EB D1 CD 92 06 CB 45 CA 45 46 *..^#V......E.EF
02BEE0: 2A B8 DA 5E 23 56 EB E5 2A B4 DA 5E 23 56 EB E5 *..^#V..*..^#V..
02BEF0: 2A B8 DA 5E 23 56 EB D1 EB B7 ED 52 E5 2A B2 DA *..^#V.....R.*..
02BF00: 5E 23 56 EB E5 2A B6 DA 5E 23 56 EB D1 EB B7 ED ^#V..*..^#V.....
02BF10: 52 CD 08 10 D9 E1 CD 08 10 CD FF 09 C5 D5 E5 2A R..............*
02BF20: A0 DA E5 2A B6 DA 5E 23 56 EB D1 EB B7 ED 52 CD ...*..^#V.....R.
02BF30: 08 10 D9 E1 D1 C1 CD FA 09 CD DE 0F D1 19 EB 2A ...............*
02BF40: B8 DA 73 23 72 2A A0 DA EB 2A B6 DA 73 23 72 2A ..s#r*...*..s#r*
02BF50: A2 DA E5 21 00 00 D1 CD 92 06 CB 45 CA 05 47 2A ...!.......E..G*
02BF60: A2 DA E5 21 00 00 D1 CD E0 06 CB 45 CA 78 46 2A ...!.......E.xF*
02BF70: 84 F2 22 A0 DA C3 7E 46 2A 82 F2 22 A0 DA 2A B8 .."...~F*.."..*.
02BF80: DA 5E 23 56 EB E5 2A B4 DA 5E 23 56 EB D1 CD 92 .^#V..*..^#V....
02BF90: 06 CB 45 CA FB 46 2A B8 DA 5E 23 56 EB E5 2A B4 ..E..F*..^#V..*.
02BFA0: DA 5E 23 56 EB E5 2A B8 DA 5E 23 56 EB D1 EB B7 .^#V..*..^#V....
02BFB0: ED 52 E5 2A B2 DA 5E 23 56 EB E5 2A B6 DA 5E 23 .R.*..^#V..*..^#
02BFC0: 56 EB D1 EB B7 ED 52 CD 08 10 D9 E1 CD 08 10 CD V.....R.........
02BFD0: FF 09 C5 D5 E5 2A A0 DA E5 2A B6 DA 5E 23 56 EB .....*...*..^#V.
02BFE0: D1 EB B7 ED 52 CD 08 10 D9 E1 D1 C1 CD FA 09 CD ....R...........
02BFF0: DE 0F D1 19 EB 2A B4 DA 73 23 72 2A A0 DA EB 2A .....*..s#r*...*
02C000: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
02C010: 25 00 01 00 02 09 50 E5 25 00 41 02 00 00 00 02 %.....P.%.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: E1 D1 C1 CD E9 09 CD DE 0F 22 A3 D9 21 02 00 E5 ........."£.!...
02C110: 21 0E 00 D1 CD 66 06 7A B3 CA 8E 50 D5 22 A9 D9 !....f.z...P."..
02C120: 21 B8 4D E5 2A A9 D9 2B 29 D1 19 5E 23 56 EB E5 !.M.*..+)..^#V..
02C130: 21 9B D9 CD 2C 05 D9 E1 CD 08 10 CD FA 09 C5 D5 !...,...........
02C140: E5 21 80 00 11 00 00 01 00 00 D9 E1 D1 C1 CD E9 .!..............
02C150: 09 CD DE 0F 22 A5 D9 21 B8 4D E5 21 0E 00 E5 2A ...."..!.M.!...*
02C160: A9 D9 D1 EB B7 ED 52 E5 21 01 00 D1 19 2B 29 D1 ......R.!....+).
02C170: 19 5E 23 56 EB E5 21 95 D9 CD 2C 05 D9 E1 CD 08 .^#V..!...,.....
02C180: 10 CD FA 09 C5 D5 E5 21 80 00 11 00 00 01 00 00 .......!........
02C190: D9 E1 D1 C1 CD E9 09 CD DE 0F 22 A1 D9 2A B8 D9 .........."..*..
02C1A0: E5 2A A7 D9 D1 EB B7 ED 52 E5 2A B6 D9 E5 2A A3 .*......R.*...*£
02C1B0: D9 D1 19 E5 2A B8 D9 E5 2A A5 D9 D1 EB B7 ED 52 ....*...*......R
02C1C0: E5 2A B6 D9 E5 2A A1 D9 D1 19 E5 CD D4 4D 2A B8 .*...*.......M*.
02C1D0: D9 E5 2A A7 D9 D1 19 E5 2A B6 D9 E5 2A A3 D9 D1 ..*.....*...*£..
02C1E0: 19 E5 2A B8 D9 E5 2A A5 D9 D1 19 E5 2A B6 D9 E5 ..*...*.....*...
02C1F0: 2A A1 D9 D1 19 E5 CD D4 4D 2A B8 D9 E5 2A A7 D9 *.......M*...*..
02C200: D1 19 E5 2A B6 D9 E5 2A A3 D9 D1 EB B7 ED 52 E5 ...*...*£.....R.
02C210: 21 01 00 D1 19 E5 2A B8 D9 E5 2A A5 D9 D1 19 E5 !.....*...*.....
02C220: 2A B6 D9 E5 2A A1 D9 D1 EB B7 ED 52 E5 21 01 00 *...*......R.!..
02C230: D1 19 E5 CD D4 4D 2A B8 D9 E5 2A A7 D9 D1 EB B7 .....M*...*.....
02C240: ED 52 E5 2A B6 D9 E5 2A A3 D9 D1 EB B7 ED 52 E5 .R.*...*£.....R.
02C250: 21 01 00 D1 19 E5 2A B8 D9 E5 2A A5 D9 D1 EB B7 !.....*...*.....
02C260: ED 52 E5 2A B6 D9 E5 2A A1 D9 D1 EB B7 ED 52 E5 .R.*...*......R.
02C270: 21 01 00 D1 19 E5 CD D4 4D 2A A5 D9 22 A7 D9 2A !.......M*.."..*
02C280: A1 D9 22 A3 D9 2A A9 D9 23 D1 1B C3 17 4F C3 9C .."£.*..#....O..
02C290: 50 2A B8 D9 E5 2A B6 D9 E5 CD 48 2D C9 FD E1 E1 P*...*....H-....
02C2A0: D1 C1 D9 21 73 D9 CD D1 05 E1 D1 C1 D9 21 79 D9 ...!s........!y.
02C2B0: CD D1 05 E1 D1 C1 D9 21 7F D9 CD D1 05 FD E5 2A .......!.......*
02C2C0: 6E F2 26 00 7D 32 6A D9 21 01 00 7D 32 6E F2 2A n.&.}2j.!..}2n.*
02C2D0: 6A D9 26 00 CB 45 CA 01 51 21 7F D9 CD 2C 05 CD j.&..E..Q!...,..
02C2E0: DE 0F E5 21 79 D9 CD 2C 05 CD DE 0F E5 21 73 D9 ...!y..,.....!s.
02C2F0: CD 2C 05 CD DE 0F E5 21 01 00 E5 CD B5 4D C3 3F .,.....!.....M.?
02C300: D8 D1 19 E5 2A FD D8 E5 2A 96 D8 E5 21 01 00 D1 ....*...*...!...
02C310: CD 56 07 D1 19 E5 2A 96 D8 E5 21 01 00 D1 19 E5 .V....*...!.....
02C320: 21 00 00 E5 CD B5 4D 2A FF D8 E5 21 03 00 E5 2A !.....M*...!...*
02C330: 96 D8 D1 CD F5 06 D1 19 22 FF D8 2A FB D8 22 96 ........"..*..".
02C340: D8 C3 57 59 21 FF D8 E5 21 FD D8 E5 2A FB D8 E5 ..WY!...!...*...
02C350: 2A 9C D8 E5 CD 1C 54 2A 98 D8 E5 21 01 00 D1 19 *.....T*...!....
02C360: 22 98 D8 C3 94 56 2A 93 D8 26 00 7D 32 6E F2 2A "....V*..&.}2n.*
02C370: A0 D8 E5 CD ED 34 C9 FD E1 06 50 21 34 D8 CD E2 .....4....P!4...
02C380: 05 E1 22 85 D8 E1 D1 C1 D9 21 87 D8 CD D1 05 E1 .."......!......
02C390: D1 C1 D9 21 8D D8 CD D1 05 FD E5 2A 6E F2 26 00 ...!.......*n.&.
02C3A0: CB 45 CA C9 59 21 8D D8 CD 2C 05 CD DE 0F E5 21 .E..Y!...,.....!
02C3B0: 87 D8 CD 2C 05 CD DE 0F E5 2A 85 D8 E5 21 34 D8 ...,.....*...!4.
02C3C0: CD 3A 05 CD 4D 56 C3 F0 59 21 8D D8 CD 2C 05 C5 .:..MV..Y!...,..
02C3D0: D5 E5 CD 54 3D E5 21 87 D8 CD 2C 05 C5 D5 E5 CD ...T=.!...,.....
02C3E0: 92 3D E5 2A 85 D8 E5 21 34 D8 CD 3A 05 CD 4D 56 .=.*...!4..:..MV
02C3F0: C9 C3 29 5C FD E1 E1 22 1A D8 E1 22 1C D8 FD E5 ..)\..."..."....
02C400: 2A 1C D8 E5 2A 1A D8 D1 CD 66 06 7A B3 CA 2C 5A *...*....f.z..,Z
02C410: D5 22 10 D8 2A 20 D8 E5 2A 1E D8 E5 2A 10 D8 E5 ."..* ..*...*...
02C420: CD 42 2E 2A 10 D8 23 D1 1B C3 0B 5A C9 21 B4 EB .B.*..#....Z.!..
02C430: E5 2A 7A F2 2B 11 5D 00 CD F5 06 D1 19 22 08 D8 .*z.+.]......"..
02C440: 2A 84 F2 22 02 D8 2A 82 F2 22 00 D8 2A 08 D8 11 *.."..*.."..*...
02C450: 59 00 19 6E 26 00 CB 45 CA A6 5A 2A 08 D8 11 5A Y..n&..E..Z*...Z
02C460: 00 19 6E 26 00 CB 45 CA 7C 5A 2A 02 D8 E5 21 0A ..n&..E.|Z*...!.
02C470: 00 D1 EB B7 ED 52 22 02 D8 C3 88 5A 2A 00 D8 E5 .....R"....Z*...
02C480: 21 0A 00 D1 19 22 00 D8 2A 7A F2 E5 2A 88 F2 E5 !...."..*z..*...
02C490: 2A 02 D8 E5 2A 86 F2 E5 2A 00 D8 E5 CD F0 37 2A *...*...*.....7*
02C4A0: 7A F2 E5 CD BA 3B 2A 67 F2 26 00 CB 45 CA E0 5A z....;*g.&..E..Z
02C4B0: 2A 84 F2 E5 21 0A 00 D1 19 22 02 D8 2A 82 F2 22 *...!...."..*.."
02C4C0: 00 D8 2A 84 F2 22 06 D8 2A 84 F2 E5 21 0A 00 D1 ..*.."..*...!...
02C4D0: 19 E5 21 01 00 D1 EB B7 ED 52 22 04 D8 C3 10 5B ..!......R"....[
02C4E0: 2A 84 F2 22 02 D8 2A 82 F2 E5 21 0A 00 D1 EB B7 *.."..*...!.....
02C4F0: ED 52 22 00 D8 2A 82 F2 E5 21 0A 00 D1 EB B7 ED .R"..*...!......
02C500: 51 21 7F D9 CD 2C 05 C5 D5 E5 CD 54 3D E5 21 79 Q!...,.....T=.!y
02C510: D9 CD 2C 05 C5 D5 E5 CD 92 3D E5 21 73 D9 CD 2C ..,......=.!s..,
02C520: 05 C5 D5 E5 21 87 00 11 00 00 01 00 48 D9 E1 D1 ....!.......H...
02C530: C1 CD FA 09 CD DE 0F E5 21 00 00 E5 CD B5 4D 2A ........!.....M*
02C540: 6A D9 26 00 7D 32 6E F2 C9 FD E1 E1 22 64 D9 E1 j.&.}2n....."d..
02C550: 22 66 D9 E1 22 68 D9 FD E5 2A 68 D9 E5 2A 64 D9 "f.."h...*h..*d.
02C560: D1 EB B7 ED 52 E5 2A 66 D9 E5 2A 68 D9 E5 2A 64 ....R.*f..*h..*d
02C570: D9 D1 19 E5 21 02 00 D1 19 E5 2A 66 D9 E5 CD 45 ....!.....*f...E
02C580: 4B 2A 68 D9 E5 2A 66 D9 E5 2A 64 D9 D1 EB B7 ED K*h..*f..*d.....
02C590: 52 E5 2A 68 D9 E5 2A 66 D9 E5 2A 64 D9 D1 19 E5 R.*h..*f..*d....
02C5A0: 21 01 00 D1 19 E5 CD 45 4B C9 FD E1 E1 22 56 D9 !......EK...."V.
02C5B0: E1 22 58 D9 E1 22 5A D9 FD E5 2A 5A D9 E5 2A 56 ."X.."Z...*Z..*V
02C5C0: D9 D1 EB B7 ED 52 E5 2A 58 D9 E5 2A 56 D9 D1 19 .....R.*X..*V...
02C5D0: E5 2A 5A D9 E5 2A 56 D9 D1 19 E5 21 01 00 D1 19 .*Z..*V....!....
02C5E0: E5 2A 58 D9 E5 2A 56 D9 D1 EB B7 ED 52 E5 21 01 .*X..*V.....R.!.
02C5F0: 00 D1 EB B7 ED 52 E5 CD 45 4B 2A 5A D9 E5 2A 56 .....R..EK*Z..*V
02C600: D9 D1 EB B7 ED 52 E5 2A 58 D9 E5 2A 56 D9 D1 EB .....R.*X..*V...
02C610: B7 ED 52 E5 2A 5A D9 E5 2A 56 D9 D1 19 E5 21 01 ..R.*Z..*V....!.
02C620: 00 D1 19 E5 2A 58 D9 E5 2A 56 D9 D1 19 E5 21 01 ....*X..*V....!.
02C630: 00 D1 19 E5 CD 45 4B C9 FD E1 E1 22 48 D9 E1 22 .....EK...."H.."
02C640: 4A D9 E1 22 4C D9 FD E5 2A 4C D9 E5 2A 48 D9 D1 J.."L...*L..*H..
02C650: EB B7 ED 52 E5 2A 4A D9 E5 2A 4C D9 E5 2A 4A D9 ...R.*J..*L..*J.
02C660: E5 2A 48 D9 D1 EB B7 ED 52 E5 21 01 00 D1 EB B7 .*H.....R.!.....
02C670: ED 52 E5 CD 45 4B 2A 4C D9 E5 2A 4A D9 E5 2A 48 .R..EK*L..*J..*H
02C680: D9 D1 EB B7 ED 52 E5 21 01 00 D1 19 E5 2A 4C D9 .....R.!.....*L.
02C690: E5 2A 48 D9 D1 19 E5 2A 4A D9 E5 21 01 00 D1 19 .*H....*J..!....
02C6A0: E5 CD 45 4B 2A 4C D9 E5 2A 48 D9 D1 19 E5 2A 4A ..EK*L..*H....*J
02C6B0: D9 E5 21 01 00 D1 19 E5 2A 4C D9 E5 2A 4A D9 E5 ..!.....*L..*J..
02C6C0: 2A 48 D9 D1 19 E5 CD 45 4B 2A 4C D9 E5 2A 4A D9 *H.....EK*L..*J.
02C6D0: E5 2A 48 D9 D1 19 E5 2A 4C D9 E5 2A 48 D9 D1 EB .*H....*L..*H...
02C6E0: B7 ED 52 E5 2A 4A D9 E5 CD 45 4B C9 FD E1 E1 22 ..R.*J...EK...."
02C6F0: 3A D9 E1 22 3C D9 E1 22 3E D9 FD E5 2A 3E D9 E5 :.."<..">...*>..
02C700: 52 E5 21 01 00 D1 19 22 06 D8 2A 82 F2 22 04 D8 R.!...."..*.."..
02C710: 2A 08 D8 11 5A 00 19 E5 2A 67 F2 26 00 EB E1 73 *...Z...*g.&...s
02C720: 2A 7A F2 E5 2A 88 F2 E5 2A 02 D8 E5 2A 86 F2 E5 *z..*...*...*...
02C730: 2A 00 D8 E5 CD F0 37 2A 7A F2 E5 CD BA 3B 2A 06 *.....7*z....;*.
02C740: D8 E5 2A 04 D8 E5 CD F4 59 21 FF 00 E5 2A A7 E4 ..*.....Y!...*..
02C750: 26 00 D1 EB B7 ED 52 E5 CD 00 25 2A 20 D8 E5 21 &.....R...%* ..!
02C760: 02 00 D1 19 E5 2A 1E D8 E5 2A 20 D8 D1 EB B7 ED .....*...* .....
02C770: 52 E5 2A 08 D8 11 08 00 19 CD 3A 05 CD A3 08 E5 R.*.......:..£..
02C780: 21 06 00 D1 CD F5 06 D1 EB B7 ED 52 E5 21 01 00 !..........R.!..
02C790: D1 CD 56 07 D1 19 E5 2A 06 D8 E5 21 03 00 D1 19 ..V....*...!....
02C7A0: E5 21 01 00 E5 2A 08 D8 11 08 00 19 CD 3A 05 CD .!...*.......:..
02C7B0: 4D 56 2A 20 D8 CD 08 10 C5 D5 E5 2A 06 D8 CD 08 MV* .......*....
02C7C0: 10 C5 D5 E5 2A 1E D8 CD 08 10 C5 D5 E5 2A 04 D8 ....*........*..
02C7D0: CD 08 10 C5 D5 E5 21 00 00 E5 CD EF 4C 21 FF 00 ......!.....L!..
02C7E0: E5 2A A7 E4 26 00 D1 EB B7 ED 52 E5 CD 00 25 2A .*..&.....R...%*
02C7F0: 20 D8 CD 08 10 C5 D5 E5 2A 84 F2 CD 08 10 C5 D5 .......*.......
02C800: E5 2A 1E D8 CD 08 10 C5 D5 E5 2A 82 F2 CD 08 10 .*........*.....
02C810: C5 D5 E5 21 00 00 E5 CD EF 4C 2A 08 D8 11 59 00 ...!.....L*...Y.
02C820: 19 E5 21 01 00 EB E1 73 C9 2A 6E F2 26 00 7D 32 ..!....s.*n.&.}2
02C830: 22 D8 21 01 00 7D 32 6E F2 2A 6D F2 26 00 7D 32 ".!..}2n.*m.&.}2
02C840: 23 D8 21 00 00 7D 32 6D F2 2A 88 F2 E5 21 03 00 #.!..}2m.*...!..
02C850: D1 CD 4E 07 22 20 D8 2A 86 F2 E5 21 03 00 D1 CD ..N." .*...!....
02C860: 4E 07 E5 21 07 00 D1 19 22 1E D8 21 B4 EB E5 2A N..!...."..!...*
02C870: 7A F2 2B 11 5D 00 CD F5 06 D1 19 22 24 D8 2A 68 z.+.]......"$.*h
02C880: F2 26 00 E5 2A 24 D8 11 08 00 19 CD 3A 05 CD A3 .&..*$......:..£
02C890: 08 E5 21 00 00 D1 CD CC 06 D1 7D A3 6F E5 2A 24 ..!.......}£o.*$
02C8A0: D8 11 06 00 19 5E 23 56 EB E5 2A 24 D8 11 02 00 .....^#V..*$....
02C8B0: 19 5E 23 56 EB D1 EB B7 ED 52 E5 21 0A 00 D1 CD .^#V.....R.!....
02C8C0: CC 06 D1 7D A3 6F E5 2A 24 D8 11 08 00 19 CD 3A ...}£o.*$......:
02C8D0: 05 CD A3 08 E5 21 06 00 D1 CD F5 06 E5 2A 1E D8 ..£..!.......*..
02C8E0: E5 2A 20 D8 D1 EB B7 ED 52 CD 80 07 E5 21 04 00 .* .....R....!..
02C8F0: D1 EB B7 ED 52 D1 CD E0 06 D1 7D A3 6F CB 45 CA ....R.....}£o.E.
02C900: 2A 3A D9 D1 EB B7 ED 52 E5 2A 3C D9 E5 2A 3A D9 *:.....R.*<..*:.
02C910: D1 19 E5 2A 3E D9 E5 2A 3A D9 D1 19 E5 21 01 00 ...*>..*:....!..
02C920: D1 19 E5 2A 3C D9 E5 2A 3A D9 D1 EB B7 ED 52 E5 ...*<..*:.....R.
02C930: 21 01 00 D1 EB B7 ED 52 E5 CD 45 4B 2A 3E D9 E5 !......R..EK*>..
02C940: 2A 3A D9 D1 EB B7 ED 52 E5 2A 3C D9 E5 2A 3A D9 *:.....R.*<..*:.
02C950: D1 EB B7 ED 52 E5 2A 3E D9 E5 2A 3A D9 D1 19 E5 ....R.*>..*:....
02C960: 21 01 00 D1 19 E5 2A 3C D9 E5 2A 3A D9 D1 19 E5 !.....*<..*:....
02C970: 21 01 00 D1 19 E5 CD 45 4B 2A 3E D9 E5 2A 3A D9 !......EK*>..*:.
02C980: D1 EB B7 ED 52 E5 21 02 00 D1 EB B7 ED 52 E5 2A ....R.!......R.*
02C990: 3C D9 E5 2A 3E D9 E5 2A 3A D9 D1 19 E5 21 04 00 <..*>..*:....!..
02C9A0: D1 19 E5 2A 3C D9 E5 CD 45 4B C9 FD E1 E1 22 2C ...*<...EK....",
02C9B0: D9 E1 22 2E D9 E1 22 30 D9 FD E5 2A 30 D9 E5 2A .."..."0...*0..*
02C9C0: 2C D9 D1 EB B7 ED 52 E5 2A 2E D9 E5 2A 2C D9 D1 ,.....R.*...*,..
02C9D0: EB B7 ED 52 E5 2A 30 D9 E5 2A 2E D9 E5 CD 45 4B ...R.*0..*....EK
02C9E0: 2A 30 D9 E5 2A 2C D9 D1 19 E5 2A 2E D9 E5 2A 2C *0..*,....*...*,
02C9F0: D9 D1 EB B7 ED 52 E5 2A 30 D9 E5 2A 2E D9 E5 CD .....R.*0..*....
02CA00: 45 4B 2A 30 D9 E5 2A 2E D9 E5 2A 30 D9 E5 2A 2E EK*0..*...*0..*.
02CA10: D9 E5 2A 2C D9 D1 19 E5 CD 45 4B C9 FD E1 E1 7D ..*,.....EK....}
02CA20: 32 1E D9 E1 7D 32 1F D9 E1 22 20 D9 E1 22 22 D9 2...}2..." .."".
02CA30: FD E5 2A 88 F2 E5 21 03 00 D1 CD 4E 07 22 14 D9 ..*...!....N."..
02CA40: 2A 86 F2 E5 21 03 00 D1 CD 4E 07 E5 21 07 00 D1 *...!....N..!...
02CA50: 19 22 12 D9 21 00 00 E5 21 05 00 D1 CD 66 06 7A ."..!...!....f.z
02CA60: B3 CA 2E 56 D5 22 0E D9 21 97 EA E5 2A 1E D9 26 ...V."..!...*..&
02CA70: 00 11 E0 FF 19 11 03 00 CD F5 06 D1 19 E5 21 07 ..............!.
02CA80: 00 E5 2A 0E D9 D1 EB B7 ED 52 E5 21 01 00 D1 CD ..*......R.!....
02CA90: 56 07 2B D1 19 6E 26 00 E5 2A 0E D9 E5 21 01 00 V.+..n&..*...!..
02CAA0: D1 7C A2 67 7D A3 6F E5 21 02 00 D1 CD 4E 07 D1 .|.g}£o.!....N..
02CAB0: CD 56 07 E5 21 0F 00 D1 7C A2 67 7D A3 6F 7D 32 .V..!...|.g}£o}2
02CAC0: 01 D9 21 00 00 E5 21 03 00 D1 CD 66 06 7A B3 CA ..!...!....f.z..
02CAD0: 25 56 D5 22 10 D9 2A 01 D9 26 00 E5 21 03 00 E5 %V."..*..&..!...
02CAE0: 2A 10 D9 D1 EB B7 ED 52 D1 CD 56 07 E5 21 01 00 *......R..V..!..
02CAF0: D1 7C A2 67 7D A3 6F E5 21 00 00 D1 CD 92 06 CB .|.g}£o.!.......
02CB00: 08 5D CD 2D 5A C3 41 5D 2A 24 D8 11 59 00 19 E5 .].-Z.A]*$..Y...
02CB10: 21 00 00 EB E1 73 2A 20 D8 CD 08 10 C5 D5 E5 2A !....s* .......*
02CB20: 84 F2 CD 08 10 C5 D5 E5 2A 1E D8 CD 08 10 C5 D5 ........*.......
02CB30: E5 2A 82 F2 CD 08 10 C5 D5 E5 21 00 00 E5 CD EF .*........!.....
02CB40: 4C 2A 22 D8 26 00 7D 32 6E F2 2A 23 D8 26 00 7D L*".&.}2n.*#.&.}
02CB50: 32 6D F2 C9 C3 CA 5E C3 EC 5D C3 65 5D 80 40 20 2m....^..].e].@
02CB60: 10 08 04 02 01 FD E1 E1 22 DF D7 E1 22 E1 D7 FD ........"..."...
02CB70: E5 2A DF D7 E5 21 03 00 D1 CD 4E 07 22 DF D7 21 .*...!....N."..!
02CB80: 00 00 7D 32 D6 D7 21 00 00 E5 2A EC D7 D1 CD 66 ..}2..!...*....f
02CB90: 06 7A B3 CA DD 5D D5 7D 32 D5 D7 2A E1 D7 E5 2A .z...].}2..*...*
02CBA0: DF D7 E5 2A D5 D7 26 00 D1 19 E5 CD 79 2D CB 45 ...*..&.....y-.E
02CBB0: CA D2 5D 2A D6 D7 26 00 E5 21 5D 5D E5 2A D5 D7 ..]*..&..!]].*..
02CBC0: 26 00 D1 19 6E 26 00 D1 7C B2 67 7D B3 6F 7D 32 &...n&..|.g}.o}2
02CBD0: D6 D7 2A D5 D7 26 00 23 D1 1B C3 91 5D 2A D6 D7 ..*..&.#....]*..
02CBE0: 26 00 7D 32 E3 D7 2A E3 D7 26 00 C9 FD E1 E1 22 &.}2..*..&....."
02CBF0: EC D7 FD E5 2A FE D7 26 00 E5 21 01 00 D1 CD 7F ....*..&..!.....
02CC00: 06 CB 45 CA 18 5E 21 BC 00 CD BA 14 CD BA 17 02 ..E..^!.........
02CC10: 1B 4C CD 1B 20 C3 2F 5E 21 BC 00 CD BA 14 CD BA .L.. ./^!.......
02CC20: 17 02 1B 2A 2A FE D7 26 00 CD 22 17 CD 1B 20 21 ...**..&.."... !
02CC30: BC 00 CD BA 14 21 7F 02 E5 21 01 00 D1 19 26 00 .....!...!....&.
02CC40: CD 22 17 21 7F 02 E5 21 01 00 D1 19 6C 26 00 CD .".!...!....l&..
02CC50: 22 17 CD 1B 20 21 00 00 E5 21 7F 02 D1 CD 66 06 "... !...!....f.
02CC60: 7A B3 CA AB 5E D5 22 F2 D7 2A F2 D7 E5 2A F4 D7 z...^."..*...*..
02CC70: E5 CD 5A 5D 7D 32 EE D7 2A FF D7 26 00 CB 45 CA ..Z]}2..*..&..E.
02CC80: 91 5E 2A EE D7 26 00 7D 2F 6F 7C 2F 67 7D 32 EE .^*..&.}/o|/g}2.
02CC90: D7 21 BC 00 CD BA 14 2A EE D7 26 00 CD 22 17 CD .!.....*..&.."..
02CCA0: 1B 20 2A F2 D7 23 D1 1B C3 60 5E 2A FE D7 26 00 . *..#...`^*..&.
02CCB0: E5 21 04 00 D1 CD 92 06 CB 45 CA C9 5E 21 BC 00 .!.......E..^!..
02CCC0: CD BA 14 CD CD 17 CD 1B 20 C9 FD E1 E1 7D 32 FE ........ ....}2.
02CCD0: D7 E1 7D 32 FF D7 FD E5 21 07 00 22 F0 D7 2A A7 ..}2....!.."..*.
02CCE0: E4 26 00 7D 32 EF D7 21 FF 00 E5 CD 00 25 2A FE .&.}2..!.....%*.
02CCF0: D7 26 00 E5 21 07 00 D1 7C A2 67 7D A3 6F 7D 32 .&..!...|.g}£o}2
02CD00: 45 CA 1C 56 2A 22 D9 5E 23 56 EB E5 2A 10 D9 E5 E..V*".^#V..*...
02CD10: 2A 1F D9 26 00 D1 CD F5 06 D1 19 22 0C D9 2A 0C *..&......."..*.
02CD20: D9 E5 2A 1F D9 26 00 D1 19 E5 21 01 00 D1 EB B7 ..*..&....!.....
02CD30: ED 52 22 08 D9 2A 20 D9 5E 23 56 EB E5 21 01 00 .R"..* .^#V..!..
02CD40: D1 19 E5 2A 0E D9 E5 21 02 00 D1 EB B7 ED 52 E5 ...*...!......R.
02CD50: 2A 1F D9 26 00 D1 CD F5 06 D1 19 22 0A D9 2A 0A *..&......."..*.
02CD60: D9 E5 2A 1F D9 26 00 D1 19 E5 21 01 00 D1 EB B7 ..*..&....!.....
02CD70: ED 52 22 06 D9 2A 6D F2 26 00 CB 45 CA D7 55 2A .R"..*m.&..E..U*
02CD80: 0C D9 E5 2A 14 D9 D1 CD E0 06 CB 45 CA 95 55 2A ...*.......E..U*
02CD90: 14 D9 22 0C D9 2A 08 D9 E5 2A 12 D9 D1 CD CC 06 .."..*...*......
02CDA0: CB 45 CA AB 55 2A 12 D9 22 08 D9 2A 0A D9 E5 2A .E..U*.."..*...*
02CDB0: 84 F2 D1 CD E0 06 CB 45 CA C1 55 2A 84 F2 22 0A .......E..U*..".
02CDC0: D9 2A 06 D9 E5 2A 82 F2 D1 CD CC 06 CB 45 CA D7 .*...*.......E..
02CDD0: 55 2A 82 F2 22 06 D9 2A 0A D9 E5 2A 06 D9 D1 CD U*.."..*...*....
02CDE0: 66 06 7A B3 CA 1C 56 D5 22 02 D9 2A 0C D9 E5 2A f.z...V."..*...*
02CDF0: 08 D9 D1 CD 66 06 7A B3 CA 13 56 D5 22 04 D9 2A ....f.z...V."..*
02CE00: 04 D9 E5 2A 02 D9 E5 CD 48 2D 2A 04 D9 23 D1 1B ...*....H-*..#..
02CE10: C3 F6 55 2A 02 D9 23 D1 1B C3 E2 55 2A 10 D9 23 ..U*..#....U*..#
02CE20: D1 1B C3 CD 54 2A 0E D9 23 D1 1B C3 5F 54 2A 22 ....T*..#..._T*"
02CE30: D9 5E 23 56 EB E5 2A 1F D9 26 00 E5 21 06 00 D1 .^#V..*..&..!...
02CE40: CD F5 06 D1 19 EB 2A 22 D9 73 23 72 C9 FD E1 06 ......*".s#r....
02CE50: 50 21 AA D8 CD E2 05 E1 22 FB D8 E1 22 FD D8 E1 P!......"..."...
02CE60: 22 FF D8 FD E5 2A 6E F2 26 00 7D 32 93 D8 21 01 "....*n.&.}2..!.
02CE70: 00 7D 32 6E F2 2A 80 F2 22 A0 D8 21 00 00 E5 CD .}2n.*.."..!....
02CE80: ED 34 21 AA D8 CD 3A 05 CD A3 08 22 9A D8 21 01 .4!...:..£."..!.
02CE90: 00 22 98 D8 2A 98 D8 E5 2A 9A D8 D1 CD B8 06 CB ."..*...*.......
02CEA0: 45 CA 66 59 21 AA D8 E5 2A 98 D8 D1 19 6E 26 00 E.fY!...*....n&.
02CEB0: 22 9C D8 2A 9C D8 E5 21 1B 00 D1 CD 7F 06 CB 45 "..*...!.......E
02CEC0: CA 44 59 2A FB D8 22 96 D8 2A 98 D8 E5 21 01 00 .DY*.."..*...!..
02CED0: D1 19 22 98 D8 2A 98 D8 E5 2A 9A D8 D1 CD B8 06 .."..*...*......
02CEE0: CB 45 CA 41 59 21 AA D8 E5 2A 98 D8 D1 19 6E 26 .E.AY!...*....n&
02CEF0: 00 65 2E 01 E5 21 94 D8 E5 21 9E D8 CD F4 1E 2A .e...!...!.....*
02CF00: FE D7 2A FE D7 26 00 E5 21 05 00 D1 CD 7F 06 E5 ..*..&..!.......
02CF10: 2A FE D7 26 00 E5 21 00 00 D1 CD 7F 06 D1 7D B3 *..&..!.......}.
02CF20: 6F CB 45 CA 2D 5F 21 04 00 7D 32 FE D7 21 BC 00 o.E.-_!..}2..!..
02CF30: CD BA 14 CD BA 17 03 1B 33 18 CD 1B 20 21 00 00 ........3... !..
02CF40: E5 21 C7 00 E5 21 01 00 D1 19 E5 21 03 00 D1 CD .!...!.....!....
02CF50: 56 07 E5 21 01 00 D1 EB B7 ED 52 D1 CD 66 06 7A V..!......R..f.z
02CF60: B3 CA 78 5F D5 22 F4 D7 21 07 00 E5 CD 57 5D 2A ..x_."..!....W]*
02CF70: F4 D7 23 D1 1B C3 5F 5F 21 C7 00 E5 21 01 00 D1 ..#...__!...!...
02CF80: 19 E5 21 03 00 D1 CD 56 07 22 F4 D7 21 C7 00 E5 ..!....V."..!...
02CF90: 21 01 00 D1 19 E5 21 07 00 D1 7C A2 67 7D A3 6F !.....!...|.g}£o
02CFA0: E5 21 00 00 D1 CD 92 06 CB 45 CA C5 5F 21 C7 00 .!.......E.._!..
02CFB0: E5 21 01 00 D1 19 E5 21 07 00 D1 7C A2 67 7D A3 .!.....!...|.g}£
02CFC0: 6F E5 CD 57 5D 21 BC 00 CD BA 14 CD BA 17 02 1B o..W]!..........
02CFD0: 32 CD CD 17 CD 1B 20 2A EF D7 26 00 E5 CD 00 25 2..... *..&....%
02CFE0: C9 C3 DC 62 FD E1 E1 22 BF D7 FD E5 2A C7 D7 E5 ...b..."....*...
02CFF0: 21 FF FF D1 CD 7F 06 CB 45 CA 1A 60 21 00 00 22 !.......E..`!.."
02D000: B1 D7 2A 82 F2 E5 2A BF D7 D1 EB B7 ED 52 22 B3 ..*...*......R".
02D010: D7 2A 82 F2 22 B5 D7 C3 32 60 21 01 00 22 B1 D7 .*.."...2`!.."..
02D020: 2A 84 F2 E5 2A BF D7 D1 19 22 B3 D7 2A 84 F2 22 *...*...."..*.."
02D030: B5 D7 2A 86 F2 E5 2A 88 F2 D1 EB B7 ED 52 E5 21 ..*...*......R.!
02D040: 01 00 D1 19 22 C1 D7 2A B1 D7 E5 2A 88 F2 E5 2A ...."..*...*...*
02D050: 84 F2 E5 2A 86 F2 E5 2A 82 F2 E5 2A BF D7 E5 2A ...*...*...*...*
02D060: D1 D7 26 00 E5 CD 55 22 2A B5 D7 22 C3 D7 2A D1 ..&...U"*.."..*.
02D070: D7 26 00 7D EE 01 6F CB 45 CA B9 60 2A C3 D7 E5 .&.}..o.E..`*...
02D080: 2A B3 D7 D1 CD 92 06 CB 45 CA B6 60 2A A7 E4 26 *.......E..`*..&
02D090: 00 7D 2F 6F 7C 2F 67 E5 2A C1 D7 E5 2A 88 F2 E5 .}/o|/g.*...*...
02D0A0: 2A C3 D7 E5 CD 9B 28 2A C3 D7 E5 2A C7 D7 D1 19 *.....(*...*....
02D0B0: 22 C3 D7 C3 7C 60 C3 F7 60 2A C3 D7 E5 2A B3 D7 "...|`..`*...*..
02D0C0: D1 CD 92 06 CB 45 CA F7 60 2A C1 D7 E5 2A 88 F2 .....E..`*...*..
02D0D0: E5 2A C3 D7 E5 2A 88 F2 E5 2A C3 D7 E5 21 02 00 .*...*...*...!..
02D0E0: E5 21 01 00 E5 CD 50 27 2A C3 D7 E5 2A C7 D7 D1 .!....P'*...*...
02D0F0: 19 22 C3 D7 C3 B9 60 2A 7A F2 E5 2A 88 F2 E5 2A ."....`*z..*...*
02D100: 98 D8 E5 21 02 00 D1 19 E5 2A 9A D8 D1 CD B8 06 ...!.....*......
02D110: E5 21 AA D8 E5 2A 98 D8 E5 21 01 00 D1 19 D1 19 .!...*...!......
02D120: 6E 26 00 E5 21 40 00 D1 CD 7F 06 D1 7D A3 6F CB n&..!@......}£o.
02D130: 45 CA 60 57 21 AA D8 E5 2A 98 D8 E5 21 02 00 D1 E.`W!...*...!...
02D140: 19 D1 19 6E 26 00 65 2E 01 E5 21 96 D8 E5 21 9E ...n&.e...!...!.
02D150: D8 CD F4 1E 2A 98 D8 E5 21 02 00 D1 19 22 98 D8 ....*...!...."..
02D160: 2A 94 D8 11 01 00 B7 ED 52 C2 8A 57 2A FF D8 E5 *.......R..W*...
02D170: 2A 96 D8 D1 19 E5 2A FD D8 E5 2A FB D8 D1 19 E5 *.....*...*.....
02D180: 2A 96 D8 E5 CD 49 51 C3 27 59 19 11 02 00 B7 ED *....IQ.'Y......
02D190: 52 C2 B2 57 2A FF D8 E5 2A 96 D8 D1 19 E5 2A FD R..W*...*.....*.
02D1A0: D8 E5 2A FB D8 D1 19 E5 2A 96 D8 E5 CD AA 51 C3 ..*.....*.....Q.
02D1B0: 27 59 19 11 03 00 B7 ED 52 CA C6 57 19 11 04 00 'Y......R..W....
02D1C0: B7 ED 52 C2 16 58 2A FF D8 E5 2A FD D8 E5 2A 96 ..R..X*...*...*.
02D1D0: D8 E5 21 01 00 D1 CD 4E 07 D1 19 E5 21 01 00 D1 ..!....N....!...
02D1E0: EB B7 ED 52 E5 2A FF D8 E5 2A 96 D8 E5 21 01 00 ...R.*...*...!..
02D1F0: D1 CD 4E 07 D1 19 E5 2A FD D8 E5 21 01 00 D1 EB ..N....*...!....
02D200: B7 ED 52 E5 2A 94 D8 E5 21 04 00 D1 CD 7F 06 E5 ..R.*...!.......
02D210: CD A4 4C C3 27 59 19 11 05 00 B7 ED 52 C2 72 58 ..L.'Y......R.rX
02D220: 2A FF D8 E5 21 81 00 11 00 00 01 00 40 C5 D5 E5 *...!.......@...
02D230: 2A 96 D8 CD 08 10 D9 E1 D1 C1 CD FA 09 CD DE 0F *...............
02D240: D1 19 E5 2A FD D8 E5 2A 96 D8 D1 19 E5 21 01 00 ...*...*.....!..
02D250: D1 EB B7 ED 52 E5 2A 96 D8 E5 21 01 00 D1 19 E5 ....R.*...!.....
02D260: CD 38 52 2A FF D8 E5 2A 96 D8 D1 19 22 FF D8 C3 .8R*...*...."...
02D270: 27 59 19 11 06 00 B7 ED 52 C2 A3 58 2A FF D8 E5 'Y......R.£X*...
02D280: 2A 96 D8 D1 19 E5 2A FD D8 E5 2A 96 D8 D1 19 E5 *.....*...*.....
02D290: 21 01 00 D1 EB B7 ED 52 E5 2A 96 D8 E5 CD AB 53 !......R.*.....S
02D2A0: C3 27 59 19 11 07 00 B7 ED 52 C2 F0 58 2A FF D8 .'Y......R..X*..
02D2B0: E5 2A 96 D8 E5 21 01 00 D1 CD 4E 07 D1 19 E5 2A .*...!....N....*
02D2C0: FD D8 E5 2A 96 D8 D1 19 E5 21 01 00 D1 EB B7 ED ...*.....!......
02D2D0: 52 E5 2A 96 D8 E5 CD EC 52 2A FF D8 E5 2A 96 D8 R.*.....R*...*..
02D2E0: E5 21 01 00 D1 CD 4E 07 D1 19 22 FF D8 C3 27 59 .!....N..."...'Y
02D2F0: 19 11 08 00 B7 ED 52 C2 27 59 2A FF D8 E5 2A 96 ......R.'Y*...*.
02D300: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
02D310: 26 00 01 00 02 09 50 E5 26 00 41 02 00 00 00 02 &.....P.&.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: 84 F2 E5 2A BF D7 E5 2A C7 D7 D1 CD F5 06 D1 19 ...*...*........
02D410: E5 2A 86 F2 E5 2A 82 F2 E5 2A BF D7 E5 2A C7 D7 .*...*...*...*..
02D420: D1 CD F5 06 D1 19 E5 CD F0 37 2A 7A F2 E5 CD BA .........7*z....
02D430: 3B C9 2A 88 F2 E5 2A D3 D7 D1 19 E5 21 00 00 D1 ;.*...*.....!...
02D440: CD E0 06 E5 2A 86 F2 E5 2A D3 D7 D1 19 E5 21 4F ....*...*.....!O
02D450: 00 D1 CD CC 06 D1 7D B3 6F CB 45 CA 6C 61 21 18 ......}.o.E.la!.
02D460: 00 E5 21 07 00 E5 CD 76 2B C3 44 62 21 01 00 E5 ..!....v+.Db!...
02D470: 2A D3 D7 CD 80 07 D1 CD 66 06 7A B3 CA 44 62 D5 *.......f.z..Db.
02D480: 22 C5 D7 2A C7 D7 E5 21 FF FF D1 CD 7F 06 CB 45 "..*...!.......E
02D490: CA A2 61 2A 86 F2 22 A5 D7 21 03 00 22 A7 D7 C3 ..a*.."..!.."...
02D4A0: AE 61 2A 88 F2 22 A5 D7 21 02 00 22 A7 D7 2A 82 .a*.."..!.."..*.
02D4B0: F2 E5 2A 84 F2 D1 EB B7 ED 52 E5 21 01 00 D1 19 ..*......R.!....
02D4C0: E5 2A A5 D7 E5 2A 84 F2 E5 2A D1 D7 26 00 E5 CD .*...*...*..&...
02D4D0: F8 29 2A A7 D7 E5 2A 88 F2 E5 2A 84 F2 E5 2A 86 .)*...*...*...*.
02D4E0: F2 E5 2A 82 F2 E5 21 01 00 E5 2A D1 D7 26 00 E5 ..*...!...*..&..
02D4F0: CD 55 22 2A 82 F2 E5 2A 84 F2 D1 EB B7 ED 52 E5 .U"*...*......R.
02D500: 21 01 00 D1 19 E5 2A A5 D7 E5 2A 84 F2 E5 CD EA !.....*...*.....
02D510: 2A 2A 7A F2 E5 2A 88 F2 E5 2A C7 D7 D1 19 E5 2A **z..*...*.....*
02D520: 84 F2 E5 2A 86 F2 E5 2A C7 D7 D1 19 E5 2A 82 F2 ...*...*.....*..
02D530: E5 CD F0 37 2A 7A F2 E5 CD BA 3B 2A C5 D7 23 D1 ...7*z....;*..#.
02D540: 1B C3 7A 61 C9 2A 84 F2 E5 2A D3 D7 D1 19 E5 21 ..za.*...*.....!
02D550: 00 00 D1 CD E0 06 E5 2A 82 F2 E5 2A D3 D7 D1 19 .......*...*....
02D560: E5 21 C7 00 D1 CD CC 06 D1 7D B3 6F CB 45 CA 7F .!.......}.o.E..
02D570: 62 21 17 00 E5 21 07 00 E5 CD 76 2B C3 DB 62 21 b!...!....v+..b!
02D580: 01 00 E5 2A D3 D7 CD 80 07 E5 2A 70 F2 D1 CD 0F ...*......*p....
02D590: 07 D1 CD 66 06 7A B3 CA AE 62 D5 22 C5 D7 2A 70 ...f.z...b."..*p
02D5A0: F2 E5 CD E4 5F 2A C5 D7 23 D1 1B C3 95 62 2A D3 ...._*..#....b*.
02D5B0: D7 CD 80 07 E5 2A 70 F2 D1 CD 45 07 E5 21 00 00 .....*p...E..!..
02D5C0: D1 CD 92 06 CB 45 CA DB 62 2A D3 D7 CD 80 07 E5 .....E..b*......
02D5D0: 2A 70 F2 D1 CD 45 07 E5 CD E4 5F C9 FD E1 E1 7D *p...E...._....}
02D5E0: 32 D1 D7 E1 7D 32 D2 D7 E1 22 D3 D7 FD E5 2A D3 2...}2..."....*.
02D5F0: D7 E5 21 00 00 D1 CD 92 06 CB 45 CA CB 63 21 01 ..!.......E..c!.
02D600: D5 5E 23 56 EB D1 EB B7 ED 52 E5 21 01 00 D1 19 .^#V.....R.!....
02D610: D1 CD F5 06 22 E2 D5 2A E4 D5 11 59 00 19 6E 26 ...."..*...Y..n&
02D620: 00 CB 45 CA 37 76 2A E2 D5 E5 21 0A 00 E5 2A E4 ..E.7v*...!...*.
02D630: D5 11 04 00 19 5E 23 56 EB E5 2A E4 D5 5E 23 56 .....^#V..*..^#V
02D640: EB D1 EB B7 ED 52 E5 21 01 00 D1 19 D1 CD F5 06 .....R.!........
02D650: D1 19 22 E2 D5 2A E2 D5 E5 21 7F 00 D1 19 E5 21 .."..*...!.....!
02D660: 80 FF D1 7C A2 67 7D A3 6F 22 E2 D5 2A E2 D5 22 ...|.g}£o"..*.."
02D670: EE D5 2A EE D5 C9 FD E1 E1 22 E0 D5 FD E5 2A E0 ..*......"....*.
02D680: D5 E5 CD 81 05 21 01 00 E5 2A 7C F2 CD 9B 05 CD .....!...*|.....
02D690: 4F 13 7D EE 01 6F CB 45 CA 37 76 21 0F 00 E5 21 O.}..o.E.7v!...!
02D6A0: 02 00 E5 CD 76 2B C3 99 6B 21 B5 E4 E5 2A E0 D5 ....v+..k!...*..
02D6B0: 2B 11 5E 00 CD F5 06 D1 19 11 5D 00 19 6E 26 00 +.^.......]..n&.
02D6C0: CB 45 CA 37 76 2A E0 D5 E5 CD 79 2B 2A E0 D5 E5 .E.7v*....y+*...
02D6D0: CD 4D 05 05 77 69 6E 66 2E 2A E0 D5 E5 21 30 00 .M..winf.*...!0.
02D6E0: D1 19 65 2E 01 E5 CD 3D 08 CD AD 65 21 B5 E4 E5 ..e....=...e!...
02D6F0: 2A E0 D5 2B 11 5E 00 CD F5 06 D1 19 22 D8 D5 2A *..+.^......"..*
02D700: D8 D5 22 DA D5 21 B4 EB E5 2A E0 D5 2B 11 5D 00 .."..!...*..+.].
02D710: CD F5 06 D1 19 ED 5B D8 D5 01 5D 00 ED B0 2A D8 ......[...]...*.
02D720: D5 11 5D 00 19 E5 21 01 00 EB E1 73 C9 FD E1 E1 ..]...!....s....
02D730: 22 D2 D5 E1 22 D4 D5 E1 22 D6 D5 FD E5 2A D6 D5 "..."..."....*..
02D740: E5 CD 81 05 21 01 00 E5 21 10 00 CD 9B 05 CD 4F ....!...!......O
02D750: 13 7D EE 01 6F CB 45 CA 37 76 21 10 00 E5 21 02 .}..o.E.7v!...!.
02D760: 00 E5 CD 76 2B C3 58 6C 21 B5 E4 E5 2A D6 D5 CD ...v+.Xl!...*...
02D770: 80 07 2B 11 5E 00 CD F5 06 D1 19 22 CA D5 2A CA ..+.^......"..*.
02D780: D5 11 61 D5 01 5D 00 ED B0 2A CA D5 11 5D 00 19 ..a..]...*...]..
02D790: 6E 26 00 7D EE 01 6F CB 45 CA 37 76 21 10 00 E5 n&.}..o.E.7v!...
02D7A0: 21 02 00 E5 CD 76 2B C3 9A 6C 21 61 D5 22 CC D5 !....v+..l!a."..
02D7B0: 2A CC D5 5E 23 56 EB E5 2A D4 D5 D1 19 EB 2A CC *..^#V..*.....*.
02D7C0: D5 73 23 72 2A CC D5 11 04 00 19 E5 2A CC D5 11 .s#r*.......*...
02D7D0: 04 00 19 5E 23 56 EB E5 2A D4 D5 D1 19 EB E1 73 ...^#V..*......s
02D7E0: 23 72 2A CC D5 11 02 00 19 E5 2A CC D5 11 02 00 #r*.......*.....
02D7F0: 19 5E 23 56 EB E5 2A D2 D5 D1 19 EB E1 73 23 72 .^#V..*......s#r
02D800: 00 22 C7 D7 2A D3 D7 E5 21 00 00 D1 CD E0 06 CB ."..*...!.......
02D810: 45 CA 1A 63 21 FF FF 22 C7 D7 21 B4 EB E5 2A 7A E..c!.."..!...*z
02D820: F2 2B 11 5D 00 CD F5 06 D1 19 22 C9 D7 2A C9 D7 .+.]......"..*..
02D830: 11 59 00 19 6E 26 00 CB 45 CA 69 63 2A C9 D7 11 .Y..n&..E.ic*...
02D840: 5A 00 19 6E 26 00 CB 45 CA 5D 63 2A 84 F2 E5 21 Z..n&..E.]c*...!
02D850: 0A 00 D1 EB B7 ED 52 22 84 F2 C3 69 63 2A 82 F2 ......R"...ic*..
02D860: E5 21 0A 00 D1 19 22 82 F2 2A D2 D7 26 00 CB 45 .!...."..*..&..E
02D870: CA 79 63 CD 32 61 C3 7C 63 CD 45 62 21 B4 EB E5 .yc.2a.|c.Eb!...
02D880: 2A 7A F2 2B 11 5D 00 CD F5 06 D1 19 22 C9 D7 2A *z.+.]......"..*
02D890: C9 D7 11 59 00 19 6E 26 00 CB 45 CA CB 63 2A C9 ...Y..n&..E..c*.
02D8A0: D7 11 5A 00 19 6E 26 00 CB 45 CA BC 63 2A 84 F2 ..Z..n&..E..c*..
02D8B0: E5 21 0A 00 D1 19 22 84 F2 C3 CB 63 2A 82 F2 E5 .!...."....c*...
02D8C0: 21 0A 00 D1 EB B7 ED 52 22 82 F2 C9 FD E1 E1 7D !......R"......}
02D8D0: 32 9A D7 E1 22 9B D7 FD E5 2A 9B D7 E5 21 01 00 2..."....*...!..
02D8E0: E5 2A 9A D7 26 00 E5 CD E1 5F C9 FD E1 E1 7D 32 .*..&...._....}2
02D8F0: 8F D7 E1 22 90 D7 FD E5 2A 90 D7 E5 21 00 00 E5 ..."....*...!...
02D900: 2A 8F D7 26 00 E5 CD E1 5F C9 FD E1 E1 22 81 D7 *..&...._...."..
02D910: E1 22 83 D7 E1 7D 32 85 D7 E1 7D 32 86 D7 FD E5 ."...}2...}2....
02D920: 2A 83 D7 E5 21 00 00 D1 CD E0 06 E5 2A 81 D7 E5 *...!.......*...
02D930: 21 00 00 D1 CD E0 06 D1 7D B3 6F CB 45 CA 4E 64 !.......}.o.E.Nd
02D940: 21 11 00 E5 21 03 00 E5 CD 76 2B C3 AC 65 21 B4 !...!....v+..e!.
02D950: EB E5 2A 7A F2 2B 11 5D 00 CD F5 06 D1 19 22 79 ..*z.+.]......"y
02D960: D7 2A 79 D7 11 59 00 19 6E 26 00 CB 45 CA 9D 64 .*y..Y..n&..E..d
02D970: 2A 79 D7 11 5A 00 19 6E 26 00 CB 45 CA 91 64 2A *y..Z..n&..E..d*
02D980: 84 F2 E5 21 0A 00 D1 EB B7 ED 52 22 84 F2 C3 9D ...!......R"....
02D990: 64 2A 82 F2 E5 21 0A 00 D1 19 22 82 F2 2A 86 F2 d*...!...."..*..
02D9A0: E5 2A 88 F2 D1 EB B7 ED 52 22 75 D7 2A 82 F2 E5 .*......R"u.*...
02D9B0: 2A 84 F2 D1 EB B7 ED 52 22 73 D7 2A 83 D7 E5 2A *......R"s.*...*
02D9C0: 75 D7 D1 19 E5 21 4F 00 D1 CD CC 06 CB 45 CA E0 u....!O......E..
02D9D0: 64 21 4F 00 E5 2A 83 D7 D1 EB B7 ED 52 22 75 D7 d!O..*......R"u.
02D9E0: 2A 81 D7 E5 2A 73 D7 D1 19 E5 21 C7 00 D1 CD CC *...*s....!.....
02D9F0: 06 CB 45 CA 05 65 21 C7 00 E5 2A 81 D7 D1 EB B7 ..E..e!...*.....
02DA00: 2A CC D5 11 06 00 19 E5 2A CC D5 11 06 00 19 5E *.......*......^
02DA10: 23 56 EB E5 2A D2 D5 D1 19 EB E1 73 23 72 2A CC #V..*......s#r*.
02DA20: D5 11 59 00 19 6E 26 00 E5 2A CC D5 11 5A 00 19 ..Y..n&..*...Z..
02DA30: 6E 26 00 D1 7D A3 6F CB 45 CA 37 76 2A CC D5 11 n&..}£o.E.7v*...
02DA40: 02 00 19 5E 23 56 EB E5 21 0A 00 D1 EB B7 ED 52 ...^#V..!......R
02DA50: 22 C2 D5 C3 3A 6D 2A CC D5 11 02 00 19 5E 23 56 "...:m*......^#V
02DA60: EB 22 C2 D5 2A CC D5 5E 23 56 EB E5 21 00 00 D1 ."..*..^#V..!...
02DA70: CD A5 06 E5 2A CC D5 5E 23 56 EB E5 21 4F 00 D1 ....*..^#V..!O..
02DA80: CD B8 06 D1 7D A3 6F E5 2A CC D5 11 04 00 19 5E ....}£o.*......^
02DA90: 23 56 EB E5 21 00 00 D1 CD A5 06 D1 7D A3 6F E5 #V..!.......}£o.
02DAA0: 2A CC D5 11 04 00 19 5E 23 56 EB E5 21 4F 00 D1 *......^#V..!O..
02DAB0: CD B8 06 D1 7D A3 6F E5 2A CC D5 11 02 00 19 5E ....}£o.*......^
02DAC0: 23 56 EB E5 21 00 00 D1 CD A5 06 D1 7D A3 6F E5 #V..!.......}£o.
02DAD0: 2A CC D5 11 02 00 19 5E 23 56 EB E5 21 C7 00 D1 *......^#V..!...
02DAE0: CD B8 06 D1 7D A3 6F E5 2A CC D5 11 06 00 19 5E ....}£o.*......^
02DAF0: 23 56 EB E5 21 00 00 D1 CD A5 06 D1 7D A3 6F E5 #V..!.......}£o.
02DB00: 2A CC D5 11 06 00 19 5E 23 56 EB E5 21 C7 00 D1 *......^#V..!...
02DB10: CD B8 06 D1 7D A3 6F CB 45 CA 37 76 2A D6 D5 E5 ....}£o.E.7v*...
02DB20: 2A CC D5 5E 23 56 EB E5 2A C2 D5 E5 CD 4D 05 05 *..^#V..*....M..
02DB30: 77 69 6E 66 2E 2A D6 D5 E5 21 30 00 D1 19 65 2E winf.*...!0...e.
02DB40: 01 E5 CD 3D 08 CD 78 67 2A D6 D5 E5 21 00 00 D1 ...=..xg*...!...
02DB50: CD E0 06 CB 45 CA E0 06 2A D6 D5 CD 80 07 E5 CD ....E...*.......
02DB60: 79 2B 2A D6 D5 E5 2A 7A F2 D1 CD 7F 06 CB 45 CA y+*...*z......E.
02DB70: 7F 06 2A D6 D5 E5 CD BA 3B 21 B4 EB E5 2A D6 D5 ..*.....;!...*..
02DB80: 2B 11 5D 00 CD F5 06 D1 19 E5 21 61 D5 D1 01 5D +.].......!a...]
02DB90: 00 ED B0 C9 FD E1 06 50 21 60 D4 CD E2 05 FD E5 .......P!`......
02DBA0: 21 B1 D4 E5 21 60 D4 CD 3A 05 CD 4D 05 04 2E 70 !...!`..:..M...p
02DBB0: 74 72 CD 3D 08 CD 70 13 21 B1 D4 11 5D 00 CD 10 tr.=..p.!...]...
02DBC0: 18 CD F1 1F E5 21 00 00 D1 CD 92 06 CB 45 CA 92 .....!.......E..
02DBD0: 06 21 1A 00 E5 21 05 00 E5 CD 76 2B C3 CF 6E 21 .!...!....v+..n!
02DBE0: 01 00 E5 21 10 00 D1 CD 66 06 7A B3 CA 00 00 D5 ...!....f.z.....
02DBF0: 22 56 D4 21 B1 D4 CD A4 18 21 B5 E4 E5 2A 56 D4 "V.!.....!...*V.
02DC00: ED 52 22 73 D7 2A 75 D7 E5 21 01 00 D1 19 22 75 .R"s.*u..!...."u
02DC10: D7 21 00 00 E5 2A 73 D7 D1 CD 66 06 7A B3 CA 5D .!...*s...f.z..]
02DC20: 65 D5 22 77 D7 2A 75 D7 E5 2A 88 F2 E5 2A 84 F2 e."w.*u..*...*..
02DC30: E5 2A 77 D7 D1 19 E5 2A 88 F2 E5 2A 81 D7 E5 2A .*w....*...*...*
02DC40: 77 D7 D1 19 E5 2A 86 D7 26 00 E5 2A 85 D7 26 00 w....*..&..*..&.
02DC50: E5 CD 50 27 2A 77 D7 23 D1 1B C3 1C 65 21 B4 EB ..P'*w.#....e!..
02DC60: E5 2A 7A F2 2B 11 5D 00 CD F5 06 D1 19 22 79 D7 .*z.+.]......"y.
02DC70: 2A 79 D7 11 59 00 19 6E 26 00 CB 45 CA AC 65 2A *y..Y..n&..E..e*
02DC80: 79 D7 11 5A 00 19 6E 26 00 CB 45 CA 9D 65 2A 84 y..Z..n&..E..e*.
02DC90: F2 E5 21 0A 00 D1 19 22 84 F2 C3 AC 65 2A 82 F2 ..!...."....e*..
02DCA0: E5 21 0A 00 D1 EB B7 ED 52 22 82 F2 C9 FD E1 06 .!......R"......
02DCB0: 50 21 20 D7 CD E2 05 E1 22 71 D7 FD E5 21 B4 EB P! ....."q...!..
02DCC0: E5 2A 71 D7 2B 11 5D 00 CD F5 06 D1 19 11 B3 D6 .*q.+.].........
02DCD0: 01 5D 00 ED B0 21 7E E2 E5 21 20 D7 CD 3A 05 CD .]...!~..! ..:..
02DCE0: 70 13 21 7E E2 CD 6F 1A CD F1 1F E5 21 00 00 D1 p.!~..o.....!...
02DCF0: CD 92 06 CB 45 CA 06 66 21 19 00 E5 21 05 00 E5 ....E..f!...!...
02DD00: CD 76 2B C3 F6 65 21 B3 D6 E5 21 A7 E3 E5 21 5D .v+..e!...!...!]
02DD10: 00 CD 64 1F 21 5D 00 22 12 D7 21 B3 D6 22 18 D7 ..d.!]."..!.."..
02DD20: 2A 18 D7 11 59 00 19 6E 26 00 CB 45 CA 37 76 2A *...Y..n&..E.7v*
02DD30: 18 D7 11 5A 00 19 6E 26 00 CB 45 CA 37 76 2A 18 ...Z..n&..E.7v*.
02DD40: D7 11 02 00 19 E5 2A 18 D7 11 02 00 19 5E 23 56 ......*......^#V
02DD50: EB E5 21 0A 00 D1 EB B7 ED 52 EB E1 73 23 72 C3 ..!......R..s#r.
02DD60: 3C 66 2A 18 D7 11 06 00 19 E5 2A 18 D7 11 06 00 <f*.......*.....
02DD70: 19 5E 23 56 EB E5 21 0A 00 D1 19 EB E1 73 23 72 .^#V..!......s#r
02DD80: 2A 18 D7 11 04 00 19 5E 23 56 EB E5 2A 18 D7 5E *......^#V..*..^
02DD90: 23 56 EB D1 EB B7 ED 52 E5 21 01 00 D1 19 22 10 #V.....R.!....".
02DDA0: D7 2A 18 D7 11 02 00 19 5E 23 56 EB E5 2A 18 D7 .*......^#V..*..
02DDB0: 11 06 00 19 5E 23 56 EB D1 CD 66 06 7A B3 CA 00 ....^#V...f.z...
02DDC0: 00 D5 22 16 D7 2A 10 D7 E5 21 A7 E3 E5 2A 12 D7 .."..*...!...*..
02DDD0: D1 19 E5 2A 18 D7 5E 23 56 EB E5 2A 16 D7 E5 CD ...*..^#V..*....
02DDE0: 80 29 2A 12 D7 E5 2A 10 D7 D1 19 22 12 D7 2A 12 .)*...*...."..*.
02DDF0: D7 E5 21 7F 00 D1 CD CC 06 CB 45 CA CC 06 21 7E ..!.......E...!~
02DE00: 2B 11 5E 00 CD F5 06 D1 19 CD DC 18 CD 1B 20 2A +.^........... *
02DE10: 56 D4 23 D1 1B C3 EA 6E 21 B1 D4 CD 7A 18 CD 1B V.#....n!...z...
02DE20: 20 C9 FD E1 06 50 21 05 D4 CD E2 05 FD E5 21 B1 ....P!.......!.
02DE30: D4 E5 21 05 D4 CD 3A 05 CD 4D 05 04 2E 70 74 72 ..!...:..M...ptr
02DE40: CD 3D 08 CD 70 13 21 B1 D4 11 5D 00 CD 11 18 CD .=..p.!...].....
02DE50: F1 1F E5 21 00 00 D1 CD 7F 06 CB 45 CA 7F 06 21 ...!.......E...!
02DE60: 01 00 E5 21 10 00 D1 CD 66 06 7A B3 CA 00 00 D5 ...!....f.z.....
02DE70: 22 FB D3 21 B1 D4 CD A4 18 21 B5 E4 E5 2A FB D3 "..!.....!...*..
02DE80: 2B 11 5E 00 CD F5 06 D1 19 CD B6 18 CD 1B 20 2A +.^........... *
02DE90: FB D3 23 D1 1B C3 6A 6F 21 B1 D4 CD 7A 18 CD 1B ..#...jo!...z...
02DEA0: 20 C3 5D 6F 21 15 00 E5 21 05 00 E5 CD 76 2B C9 .]o!...!....v+.
02DEB0: 2A 84 F2 22 F1 D3 2A 82 F2 22 EF D3 21 B4 EB E5 *.."..*.."..!...
02DEC0: 2A 7A F2 2B 11 5D 00 CD F5 06 D1 19 22 F3 D3 2A *z.+.]......"..*
02DED0: F3 D3 11 59 00 19 6E 26 00 CB 45 CA 37 76 2A F3 ...Y..n&..E.7v*.
02DEE0: D3 11 5A 00 19 6E 26 00 CB 45 CA 37 76 2A 84 F2 ..Z..n&..E.7v*..
02DEF0: E5 21 0A 00 D1 EB B7 ED 52 22 F1 D3 C3 EB 6F 2A .!......R"....o*
02DF00: 82 F2 E5 21 0A 00 D1 19 22 EF D3 2A 88 F2 E5 2A ...!...."..*...*
02DF10: F1 D3 E5 2A 86 F2 E5 2A EF D3 E5 CD 7F 23 C9 FD ...*...*.....#..
02DF20: E1 E1 D1 C1 D9 21 2F CF CD D1 05 E1 D1 C1 D9 21 .....!/........!
02DF30: 35 CF CD D1 05 E1 22 3B CF E1 11 3D CF 01 B0 04 5.....";...=....
02DF40: ED B0 E1 22 ED D3 FD E5 2A 3B CF CD 80 07 22 3B ..."....*;....";
02DF50: CF 2A 3B CF E5 21 02 00 D1 CD A5 06 CB 45 CA A5 .*;..!.......E..
02DF60: 06 2A ED D3 E5 CD 81 05 21 01 00 E5 21 04 00 CD .*......!...!...
02DF70: 9B 05 CD 4F 13 CB 45 CA 4F 13 21 3D CF E5 21 01 ...O..E.O.!=..!.
02DF80: 00 2B 11 0C 00 CD F5 06 D1 19 E5 21 01 00 2B 29 .+.........!..+)
02DF90: 5D 54 29 19 D1 19 CD 2C 05 D9 21 21 CF CD D1 05 ]T)....,..!!....
02DFA0: 21 3D CF E5 21 01 00 2B 11 0C 00 CD F5 06 D1 19 !=..!..+........
02DFB0: E5 21 02 00 2B 29 5D 54 29 19 D1 19 CD 2C 05 D9 .!..+)]T)....,..
02DFC0: 21 1B CF CD D1 05 21 21 CF CD 2C 05 D9 21 15 CF !.....!!..,..!..
02DFD0: CD D1 05 21 1B CF CD 2C 05 D9 21 0F CF CD D1 05 ...!...,..!.....
02DFE0: 21 02 00 E5 2A 3B CF D1 CD 66 06 7A B3 CA 00 00 !...*;...f.z....
02DFF0: D5 22 0D CF 21 3D CF E5 2A 0D CF 2B 11 0C 00 CD ."..!=..*..+....
02E000: E2 E5 21 A7 E3 E5 21 00 00 D1 19 E5 21 01 00 CD ..!...!.....!...
02E010: BA 1A CD 1B 20 21 A7 E3 E5 21 80 00 D1 19 E5 21 .... !...!.....!
02E020: A7 E3 E5 21 00 00 D1 19 E5 21 80 00 CD 64 1F 2A ...!.....!...d.*
02E030: 12 D7 E5 21 80 00 D1 EB B7 ED 52 22 12 D7 2A 16 ...!......R"..*.
02E040: D7 23 D1 1B C3 BC 66 2A 12 D7 E5 21 00 00 D1 CD .#....f*...!....
02E050: 92 06 CB 45 CA 92 06 21 7E E2 E5 21 A7 E3 E5 21 ...E...!~..!...!
02E060: 00 00 D1 19 E5 21 01 00 CD BA 1A CD 1B 20 21 7E .....!....... !~
02E070: E2 CD B0 1A CD 1B 20 C9 FD E1 06 50 21 5C D6 CD ...... ....P!\..
02E080: E2 05 E1 22 AD D6 E1 22 AF D6 E1 22 B1 D6 FD E5 ..."..."..."....
02E090: 21 7E E2 E5 21 5C D6 CD 3A 05 CD 70 13 21 7E E2 !~..!\..:..p.!~.
02E0A0: CD 70 1A CD F1 1F E5 21 00 00 D1 CD 92 06 CB 45 .p.....!.......E
02E0B0: CA 92 06 21 0C 00 E5 21 05 00 E5 CD 76 2B C3 B1 ...!...!....v+..
02E0C0: 67 21 7E E2 E5 21 A7 E3 E5 21 00 00 D1 19 E5 21 g!~..!...!.....!
02E0D0: 01 00 CD BE 1A CD 1B 20 21 A7 E3 E5 21 F1 D5 E5 ....... !...!...
02E0E0: 21 5D 00 CD 64 1F 21 5D 00 22 50 D6 21 00 00 7D !]..d.!]."P.!..}
02E0F0: 32 F0 D5 21 B4 EB E5 2A B1 D6 2B 11 5D 00 CD F5 2..!...*..+.]...
02E100: 06 D1 19 E5 21 F1 D5 D1 01 5D 00 ED B0 21 F1 D5 ....!....]...!..
02E110: 22 54 D6 2A 54 D6 11 59 00 19 6E 26 00 CB 45 CA "T.*T..Y..n&..E.
02E120: 37 76 2A 54 D6 11 5A 00 19 6E 26 00 CB 45 CA 37 7v*T..Z..n&..E.7
02E130: 76 2A 54 D6 11 02 00 19 E5 2A 54 D6 11 02 00 19 v*T......*T.....
02E140: 5E 23 56 EB E5 21 0A 00 D1 EB B7 ED 52 EB E1 73 ^#V..!......R..s
02E150: 23 72 C3 2F 68 2A 54 D6 11 06 00 19 E5 2A 54 D6 #r./h*T......*T.
02E160: 11 06 00 19 5E 23 56 EB E5 21 0A 00 D1 19 EB E1 ....^#V..!......
02E170: 73 23 72 2A 54 D6 11 04 00 19 5E 23 56 EB E5 2A s#r*T.....^#V..*
02E180: 54 D6 5E 23 56 EB D1 EB B7 ED 52 E5 21 01 00 D1 T.^#V.....R.!...
02E190: 19 22 4E D6 2A AF D6 E5 21 00 00 D1 CD A5 06 CB ."N.*...!.......
02E1A0: 45 CA A5 06 2A 54 D6 11 04 00 19 E5 2A AF D6 E5 E...*T......*...
02E1B0: 2A 54 D6 11 04 00 19 5E 23 56 EB D1 19 E5 2A 54 *T.....^#V....*T
02E1C0: D6 5E 23 56 EB D1 EB B7 ED 52 EB E1 73 23 72 2A .^#V.....R..s#r*
02E1D0: AF D6 EB 2A 54 D6 73 23 72 2A AD D6 E5 21 00 00 ...*T.s#r*...!..
02E1E0: D1 CD A5 06 CB 45 CA A5 06 2A 54 D6 11 06 00 19 .....E...*T.....
02E1F0: E5 2A AD D6 E5 2A 54 D6 11 06 00 19 5E 23 56 EB .*...*T.....^#V.
02E200: F5 06 D1 19 E5 21 01 00 2B 29 5D 54 29 19 D1 19 .....!..+)]T)...
02E210: CD 2C 05 C5 D5 E5 21 21 CF CD 2C 05 D9 E1 D1 C1 .,....!!..,.....
02E220: CD D6 06 CB 45 CA D6 06 21 3D CF E5 2A 0D CF 2B ....E...!=..*..+
02E230: 11 0C 00 CD F5 06 D1 19 E5 21 01 00 2B 29 5D 54 .........!..+)]T
02E240: 29 19 D1 19 CD 2C 05 D9 21 21 CF CD D1 05 C3 26 )....,..!!.....&
02E250: 71 21 3D CF E5 2A 0D CF 2B 11 0C 00 CD F5 06 D1 q!=..*..+.......
02E260: 19 E5 21 01 00 2B 29 5D 54 29 19 D1 19 CD 2C 05 ..!..+)]T)....,.
02E270: C5 D5 E5 21 15 CF CD 2C 05 D9 E1 D1 C1 CD E9 06 ...!...,........
02E280: CB 45 CA E9 06 21 3D CF E5 2A 0D CF 2B 11 0C 00 .E...!=..*..+...
02E290: CD F5 06 D1 19 E5 21 01 00 2B 29 5D 54 29 19 D1 ......!..+)]T)..
02E2A0: 19 CD 2C 05 D9 21 15 CF CD D1 05 21 3D CF E5 2A ..,..!.....!=..*
02E2B0: 0D CF 2B 11 0C 00 CD F5 06 D1 19 E5 21 02 00 2B ..+.........!..+
02E2C0: 29 5D 54 29 19 D1 19 CD 2C 05 C5 D5 E5 21 1B CF )]T)....,....!..
02E2D0: CD 2C 05 D9 E1 D1 C1 CD D6 06 CB 45 CA D6 06 21 .,.........E...!
02E2E0: 3D CF E5 2A 0D CF 2B 11 0C 00 CD F5 06 D1 19 E5 =..*..+.........
02E2F0: 21 02 00 2B 29 5D 54 29 19 D1 19 CD 2C 05 D9 21 !..+)]T)....,..!
02E300: 1B CF CD D1 05 C3 DD 71 21 3D CF E5 2A 0D CF 2B .......q!=..*..+
02E310: 11 0C 00 CD F5 06 D1 19 E5 21 02 00 2B 29 5D 54 .........!..+)]T
02E320: 29 19 D1 19 CD 2C 05 C5 D5 E5 21 0F CF CD 2C 05 )....,....!...,.
02E330: D9 E1 D1 C1 CD E9 06 CB 45 CA E9 06 21 3D CF E5 ........E...!=..
02E340: 2A 0D CF 2B 11 0C 00 CD F5 06 D1 19 E5 21 02 00 *..+.........!..
02E350: 2B 29 5D 54 29 19 D1 19 CD 2C 05 D9 21 0F CF CD +)]T)....,..!...
02E360: D1 05 2A 0D CF 23 D1 1B C3 EB 70 21 35 CF CD 2C ..*..#....p!5..,
02E370: 05 CB B8 D9 21 35 CF CD D1 05 21 2F CF CD 2C 05 ....!5....!/..,.
02E380: CB B8 D9 21 2F CF CD D1 05 21 21 CF CD 2C 05 C5 ...!/....!!..,..
02E390: D5 E5 21 35 CF CD 2C 05 D9 E1 D1 C1 CD FA 09 D9 ..!5..,.........
02E3A0: 21 21 CF CD D1 05 21 15 CF CD 2C 05 C5 D5 E5 21 !!....!...,....!
02E3B0: 35 CF CD 2C 05 D9 E1 D1 C1 CD FA 09 D9 21 15 CF 5..,.........!..
02E3C0: CD D1 05 21 1B CF CD 2C 05 C5 D5 E5 21 2F CF CD ...!...,....!/..
02E3D0: 2C 05 D9 E1 D1 C1 CD FA 09 D9 21 1B CF CD D1 05 ,.........!.....
02E3E0: 21 0F CF CD 2C 05 C5 D5 E5 21 2F CF CD 2C 05 D9 !...,....!/..,..
02E3F0: E1 D1 C1 CD FA 09 D9 21 0F CF CD D1 05 2A ED D3 .......!.....*..
02E400: D1 19 E5 2A 54 D6 11 02 00 19 5E 23 56 EB D1 EB ...*T.....^#V...
02E410: B7 ED 52 EB E1 73 23 72 2A 54 D6 11 02 00 19 E5 ..R..s#r*T......
02E420: 2A AD D6 EB E1 73 23 72 2A 54 D6 5E 23 56 EB E5 *....s#r*T.^#V..
02E430: 21 00 00 D1 CD E0 06 E5 2A 54 D6 11 02 00 19 5E !.......*T.....^
02E440: 23 56 EB E5 21 00 00 D1 CD E0 06 D1 7D B3 6F E5 #V..!.......}.o.
02E450: 2A 54 D6 11 04 00 19 5E 23 56 EB E5 21 4F 00 D1 *T.....^#V..!O..
02E460: CD CC 06 D1 7D B3 6F E5 2A 54 D6 11 06 00 19 5E ....}.o.*T.....^
02E470: 23 56 EB E5 21 C7 00 D1 CD CC 06 D1 7D B3 6F CB #V..!.......}.o.
02E480: 45 CA 37 76 21 0C 00 E5 21 03 00 E5 CD 76 2B C3 E.7v!...!....v+.
02E490: 82 69 2A 54 D6 11 02 00 19 5E 23 56 EB E5 2A 54 .i*T.....^#V..*T
02E4A0: D6 11 06 00 19 5E 23 56 EB D1 CD 66 06 7A B3 CA .....^#V...f.z..
02E4B0: 00 00 D5 22 52 D6 2A 50 D6 E5 2A 4E D6 D1 19 E5 ..."R.*P..*N....
02E4C0: 21 7F 00 D1 CD CC 06 E5 2A F0 D5 26 00 7D EE 01 !.......*..&.}..
02E4D0: 6F D1 7D A3 6F E5 21 7E E2 CD 49 1A 7D EE 01 6F o.}£o.!~..I.}..o
02E4E0: D1 7D A3 6F CB 45 CA 37 76 21 7E E2 E5 21 A7 E3 .}£o.E.7v!~..!..
02E4F0: E5 21 80 00 D1 19 E5 21 01 00 CD BE 1A CD 1B 20 .!.....!.......
02E500: 21 01 00 7D 32 F0 D5 2A 4E D6 E5 21 A7 E3 E5 2A !..}2..*N..!...*
02E510: 50 D6 D1 19 E5 2A 54 D6 5E 23 56 EB E5 2A 52 D6 P....*T.^#V..*R.
02E520: E5 CD BC 29 2A 50 D6 E5 2A 4E D6 D1 19 22 50 D6 ...)*P..*N..."P.
02E530: 2A 50 D6 E5 21 7F 00 D1 CD CC 06 CB 45 CA CC 06 *P..!.......E...
02E540: 21 A7 E3 E5 21 80 00 D1 19 E5 21 A7 E3 E5 21 00 !...!.....!...!.
02E550: 00 D1 19 E5 21 80 00 CD 64 1F 2A 50 D6 E5 21 80 ....!...d.*P..!.
02E560: 00 D1 EB B7 ED 52 22 50 D6 21 00 00 7D 32 F0 D5 .....R"P.!..}2..
02E570: 2A 52 D6 23 D1 1B C3 AD 69 21 7E E2 CD B0 1A CD *R.#....i!~.....
02E580: 1B 20 C9 FD E1 E1 22 EC D5 FD E5 21 FF FF 22 E2 . ...."....!..".
02E590: D5 2A EC D5 E5 CD 81 05 21 01 00 E5 21 10 00 CD .*......!...!...
02E5A0: 9B 05 CD 4F 13 7D EE 01 6F CB 45 CA 37 76 21 0D ...O.}..o.E.7v!.
02E5B0: 00 E5 21 02 00 E5 CD 76 2B C3 AC 6A 21 B4 EB E5 ..!....v+..j!...
02E5C0: 2A EC D5 2B 11 5D 00 CD F5 06 D1 19 22 E4 D5 2A *..+.]......"..*
02E5D0: E4 D5 11 06 00 19 5E 23 56 EB E5 2A E4 D5 11 02 ......^#V..*....
02E5E0: 00 19 5E 23 56 EB D1 EB B7 ED 52 E5 21 01 00 D1 ..^#V.....R.!...
02E5F0: 19 E5 2A E4 D5 11 04 00 19 5E 23 56 EB E5 2A E4 ..*......^#V..*.
02E600: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
02E610: 27 00 01 00 02 09 50 E5 27 00 41 02 00 00 00 02 '.....P.'.A.....
02E620: 27 00 46 02 00 00 00 02 27 00 42 02 00 00 00 02 '.F.....'.B.....
02E630: 27 00 47 02 00 00 00 02 27 00 43 02 00 00 00 02 '.G.....'.C.....
02E640: 27 00 48 02 00 00 00 02 27 00 44 02 00 00 00 02 '.H.....'.D.....
02E650: 27 00 49 02 00 00 00 02 27 00 45 02 00 00 00 02 '.I.....'.E.....
02E660: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E670: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E680: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E690: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E6A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E6B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E6C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E6D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E6E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E6F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E700: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E710: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E720: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E730: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E740: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E750: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E760: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E770: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E780: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E790: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E7A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E7B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E7C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E7D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E7E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E7F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E800: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E810: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E820: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E830: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E840: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E850: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E860: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E870: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E880: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E890: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E8A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E8B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E8C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E8D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E8E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E8F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E900: 31 52 65 66 4C 6F 63 3B 0D 0A 20 20 20 20 20 20 1RefLoc;..
02E910: 20 20 58 32 52 65 66 47 6C 62 3A 3D 58 32 52 65 X2RefGlb:=X2Re
02E920: 66 4C 6F 63 3B 0D 0A 20 20 20 20 20 20 20 20 59 fLoc;.. Y
02E930: 31 52 65 66 47 6C 62 3A 3D 59 31 52 65 66 4C 6F 1RefGlb:=Y1RefLo
02E940: 63 3B 0D 0A 20 20 20 20 20 20 20 20 59 32 52 65 c;.. Y2Re
02E950: 66 47 6C 62 3A 3D 59 32 52 65 66 4C 6F 63 3B 0D fGlb:=Y2RefLoc;.
02E960: 0A 20 20 20 20 20 20 20 20 44 69 72 65 63 74 4D . DirectM
02E970: 6F 64 65 47 6C 62 3A 3D 44 69 72 65 63 74 4D 6F odeGlb:=DirectMo
02E980: 64 65 4C 6F 63 3B 0D 0A 20 20 20 20 20 20 20 65 deLoc;.. e
02E990: 6E 64 3B 0D 0A 20 20 20 20 65 6E 64 3B 20 7B 20 nd;.. end; {
02E9A0: 48 61 74 63 68 44 69 72 65 63 74 20 7D 0D 0A 0D HatchDirect }...
02E9B0: 0A 20 20 62 65 67 69 6E 20 7B 20 48 61 74 63 68 . begin { Hatch
02E9C0: 20 7D 0D 0A 20 20 20 20 69 66 20 44 69 72 65 63 }.. if Direc
02E9D0: 74 4D 6F 64 65 47 6C 62 20 74 68 65 6E 0D 0A 20 tModeGlb then..
02E9E0: 20 20 20 20 20 48 61 74 63 68 44 69 72 65 63 74 HatchDirect
02E9F0: 28 74 72 75 6E 63 28 58 5F 31 29 2C 74 72 75 6E (trunc(X_1),trun
02EA00: 63 28 59 5F 31 29 2C 74 72 75 6E 63 28 58 5F 32 c(Y_1),trunc(X_2
02EA10: 29 2C 74 72 75 6E 63 28 59 5F 32 29 2C 74 72 75 ),trunc(Y_2),tru
02EA20: 6E 63 28 44 65 6C 74 61 29 29 0D 0A 20 20 20 20 nc(Delta))..
02EA30: 65 6C 73 65 0D 0A 20 20 20 20 20 62 65 67 69 6E else.. begin
02EA40: 0D 0A 20 20 20 20 20 20 44 69 72 65 63 74 4D 6F .. DirectMo
02EA50: 64 65 4C 6F 63 3A 3D 44 69 72 65 63 74 4D 6F 64 deLoc:=DirectMod
02EA60: 65 47 6C 62 3B 0D 0A 20 20 20 20 20 20 44 69 72 eGlb;.. Dir
02EA70: 65 63 74 4D 6F 64 65 47 6C 62 3A 3D 74 72 75 65 ectModeGlb:=true
02EA80: 3B 0D 0A 20 20 20 20 20 20 78 31 3A 3D 57 69 6E ;.. x1:=Win
02EA90: 64 6F 77 58 28 58 5F 31 29 3B 0D 0A 20 20 20 20 dowX(X_1);..
02EAA0: 20 20 79 31 3A 3D 57 69 6E 64 6F 77 59 28 59 5F y1:=WindowY(Y_
02EAB0: 31 29 3B 0D 0A 20 20 20 20 20 20 78 32 3A 3D 57 1);.. x2:=W
02EAC0: 69 6E 64 6F 77 58 28 58 5F 32 29 3B 0D 0A 20 20 indowX(X_2);..
02EAD0: 20 20 20 20 79 32 3A 3D 57 69 6E 64 6F 77 59 28 y2:=WindowY(
02EAE0: 59 5F 32 29 3B 0D 0A 20 20 20 20 20 20 44 75 6D Y_2);.. Dum
02EAF0: 6D 79 3A 3D 63 6C 69 70 28 78 31 2C 79 31 2C 78 my:=clip(x1,y1,x
02EB00: 28 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A (***************
02EB10: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
02EB20: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
02EB30: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 29 0D 0A 28 ************)..(
02EB40: 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 *
02EB50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02EB60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02EB70: 20 20 20 20 20 20 20 20 20 20 2A 29 0D 0A 28 2A *)..(*
02EB80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02EB90: 54 55 52 42 4F 20 47 52 41 50 48 49 58 20 76 65 TURBO GRAPHIX ve
02EBA0: 72 73 69 6F 6E 20 31 2E 30 35 41 20 20 20 20 20 rsion 1.05A
02EBB0: 20 20 20 20 20 20 20 20 20 2A 29 0D 0A 28 2A 20 *)..(*
02EBC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02EBD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02EBE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02EBF0: 20 20 20 20 20 20 20 20 2A 29 0D 0A 28 2A 20 20 *)..(*
02EC00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02EC10: 20 20 43 72 6F 73 73 68 61 74 63 68 20 6D 6F 64 Crosshatch mod
02EC20: 75 6C 65 20 20 20 20 20 20 20 20 20 20 20 20 20 ule
02EC30: 20 20 20 20 20 20 20 2A 29 0D 0A 28 2A 20 20 20 *)..(*
02EC40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4D M
02EC50: 6F 64 75 6C 65 20 76 65 72 73 69 6F 6E 20 20 31 odule version 1
02EC60: 2E 30 30 41 20 20 20 20 20 20 20 20 20 20 20 20 .00A
02EC70: 20 20 20 20 20 20 2A 29 0D 0A 28 2A 20 20 20 20 *)..(*
02EC80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02EC90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02ECA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02ECB0: 20 20 20 20 20 2A 29 0D 0A 28 2A 20 20 20 20 20 *)..(*
02ECC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 43 6F 70 Cop
02ECD0: 79 72 69 67 68 74 20 28 43 29 20 31 39 38 35 20 yright (C) 1985
02ECE0: 62 79 20 20 20 20 20 20 20 20 20 20 20 20 20 20 by
02ECF0: 20 20 20 20 2A 29 0D 0A 28 2A 20 20 20 20 20 20 *)..(*
02ED00: 32 2C 79 31 29 3B 0D 0A 20 20 20 20 20 20 44 75 2,y1);.. Du
02ED10: 6D 6D 79 3A 3D 63 6C 69 70 28 78 31 2C 79 31 2C mmy:=clip(x1,y1,
02ED20: 78 31 2C 79 32 29 3B 0D 0A 20 20 20 20 20 20 48 x1,y2);.. H
02ED30: 61 74 63 68 44 69 72 65 63 74 28 78 31 2C 79 31 atchDirect(x1,y1
02ED40: 2C 78 32 2C 79 32 2C 74 72 75 6E 63 28 44 65 6C ,x2,y2,trunc(Del
02ED50: 74 61 29 29 3B 0D 0A 20 20 20 20 20 20 44 69 72 ta));.. Dir
02ED60: 65 63 74 4D 6F 64 65 47 6C 62 3A 3D 44 69 72 65 ectModeGlb:=Dire
02ED70: 63 74 4D 6F 64 65 4C 6F 63 3B 0D 0A 20 20 20 20 ctModeLoc;..
02ED80: 20 65 6E 64 3B 0D 0A 20 20 65 6E 64 3B 20 7B 20 end;.. end; {
02ED90: 48 61 74 63 68 20 7D 0D 0A 1A E5 E5 E5 E5 E5 E5 Hatch }.........
02EDA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EDB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EDC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EDD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EDE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EDF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EE00: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02EE10: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02EE20: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02EE30: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02EE40: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02EE50: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02EE60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02EE70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02EE80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02EE90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02EEA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02EEB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02EEC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02EED0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02EEE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02EEF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02EF00: 20 20 20 20 20 20 20 20 20 20 20 20 42 4F 52 4C BORL
02EF10: 41 4E 44 20 49 6E 74 65 72 6E 61 74 69 6F 6E 61 AND Internationa
02EF20: 6C 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 l
02EF30: 20 20 20 2A 29 0D 0A 28 2A 20 20 20 20 20 20 20 *)..(*
02EF40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02EF50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02EF60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02EF70: 20 20 2A 29 0D 0A 28 2A 2A 2A 2A 2A 2A 2A 2A 2A *)..(*********
02EF80: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
02EF90: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
02EFA0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
02EFB0: 2A 2A 29 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 65 **)....procedure
02EFC0: 20 48 61 74 63 68 28 58 5F 31 2C 59 5F 31 2C 58 Hatch(X_1,Y_1,X
02EFD0: 5F 32 2C 59 5F 32 2C 44 65 6C 74 61 3A 72 65 61 _2,Y_2,Delta:rea
02EFE0: 6C 29 3B 0D 0A 20 20 76 61 72 20 78 31 2C 79 31 l);.. var x1,y1
02EFF0: 2C 78 32 2C 79 32 3A 69 6E 74 65 67 65 72 3B 0D ,x2,y2:integer;.
02F000: 0A 20 20 20 20 20 20 44 69 72 65 63 74 4D 6F 64 . DirectMod
02F010: 65 4C 6F 63 2C 44 75 6D 6D 79 3A 62 6F 6F 6C 65 eLoc,Dummy:boole
02F020: 61 6E 3B 0D 0A 0D 0A 20 20 70 72 6F 63 65 64 75 an;.... procedu
02F030: 72 65 20 48 61 74 63 68 44 69 72 65 63 74 28 78 re HatchDirect(x
02F040: 31 2C 79 31 2C 78 32 2C 79 32 2C 44 65 6C 74 61 1,y1,x2,y2,Delta
02F050: 3A 69 6E 74 65 67 65 72 29 3B 0D 0A 20 20 20 20 :integer);..
02F060: 76 61 72 20 69 2C 79 73 74 2C 79 65 6E 2C 63 6F var i,yst,yen,co
02F070: 75 6E 74 3A 69 6E 74 65 67 65 72 3B 0D 0A 20 20 unt:integer;..
02F080: 20 20 20 20 20 20 58 31 52 65 66 4C 6F 63 2C 58 X1RefLoc,X
02F090: 32 52 65 66 4C 6F 63 2C 59 31 52 65 66 4C 6F 63 2RefLoc,Y1RefLoc
02F0A0: 2C 59 32 52 65 66 4C 6F 63 3A 69 6E 74 65 67 65 ,Y2RefLoc:intege
02F0B0: 72 3B 0D 0A 20 20 20 20 20 20 20 20 44 69 72 65 r;.. Dire
02F0C0: 63 74 4D 6F 64 65 4C 6F 63 2C 43 6C 69 70 70 69 ctModeLoc,Clippi
02F0D0: 6E 67 4C 6F 63 3A 62 6F 6F 6C 65 61 6E 3B 0D 0A ngLoc:boolean;..
02F0E0: 20 20 20 20 20 20 20 20 58 31 44 2C 59 31 44 2C X1D,Y1D,
02F0F0: 58 32 44 2C 59 32 44 3A 20 69 6E 74 65 67 65 72 X2D,Y2D: integer
02F100: 28 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A (***************
02F110: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
02F120: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
02F130: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 29 0D 0A 28 ************)..(
02F140: 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 *
02F150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02F160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02F170: 20 20 20 20 20 20 20 20 20 20 2A 29 0D 0A 28 2A *)..(*
02F180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02F190: 54 55 52 42 4F 20 47 52 41 50 48 49 58 20 76 65 TURBO GRAPHIX ve
02F1A0: 72 73 69 6F 6E 20 31 2E 30 35 41 20 20 20 20 20 rsion 1.05A
02F1B0: 20 20 20 20 20 20 20 20 20 2A 29 0D 0A 28 2A 20 *)..(*
02F1C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02F1D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02F1E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02F1F0: 20 20 20 20 20 20 20 20 2A 29 0D 0A 28 2A 20 20 *)..(*
02F200: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02F210: 50 6F 6C 79 67 6F 6E 20 64 72 61 77 69 6E 67 20 Polygon drawing
02F220: 6D 6F 64 75 6C 65 20 20 20 20 20 20 20 20 20 20 module
02F230: 20 20 20 20 20 20 20 2A 29 0D 0A 28 2A 20 20 20 *)..(*
02F240: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02F250: 4D 6F 64 75 6C 65 20 76 65 72 73 69 6F 6E 20 31 Module version 1
02F260: 2E 30 35 41 20 20 20 20 20 20 20 20 20 20 20 20 .05A
02F270: 20 20 20 20 20 20 2A 29 0D 0A 28 2A 20 20 20 20 *)..(*
02F280: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02F290: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02F2A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02F2B0: 20 20 20 20 20 2A 29 0D 0A 28 2A 20 20 20 20 20 *)..(*
02F2C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 43 6F 70 Cop
02F2D0: 79 72 69 67 68 74 20 28 43 29 20 31 39 38 35 20 yright (C) 1985
02F2E0: 62 79 20 20 20 20 20 20 20 20 20 20 20 20 20 20 by
02F2F0: 20 20 20 20 2A 29 0D 0A 28 2A 20 20 20 20 20 20 *)..(*
02F300: 3B 0D 0A 0D 0A 20 20 20 20 62 65 67 69 6E 20 7B ;.... begin {
02F310: 20 48 61 74 63 68 44 69 72 65 63 74 20 7D 0D 0A HatchDirect }..
02F320: 20 20 20 20 20 20 69 66 20 44 65 6C 74 61 3C 3E if Delta<>
02F330: 30 20 74 68 65 6E 0D 0A 20 20 20 20 20 20 20 62 0 then.. b
02F340: 65 67 69 6E 0D 0A 20 20 20 20 20 20 20 20 48 61 egin.. Ha
02F350: 74 63 68 47 6C 62 3A 3D 74 72 75 65 3B 0D 0A 20 tchGlb:=true;..
02F360: 20 20 20 20 20 20 20 44 69 72 65 63 74 4D 6F 64 DirectMod
02F370: 65 4C 6F 63 3A 3D 44 69 72 65 63 74 4D 6F 64 65 eLoc:=DirectMode
02F380: 47 6C 62 3B 0D 0A 20 20 20 20 20 20 20 20 44 69 Glb;.. Di
02F390: 72 65 63 74 4D 6F 64 65 47 6C 62 3A 3D 74 72 75 rectModeGlb:=tru
02F3A0: 65 3B 0D 0A 20 20 20 20 20 20 20 20 43 6C 69 70 e;.. Clip
02F3B0: 70 69 6E 67 4C 6F 63 3A 3D 43 6C 69 70 70 69 6E pingLoc:=Clippin
02F3C0: 67 47 6C 62 3B 0D 0A 20 20 20 20 20 20 20 20 43 gGlb;.. C
02F3D0: 6C 69 70 70 69 6E 67 47 6C 62 3A 3D 74 72 75 65 lippingGlb:=true
02F3E0: 3B 0D 0A 20 20 20 20 20 20 20 20 58 31 52 65 66 ;.. X1Ref
02F3F0: 4C 6F 63 3A 3D 58 31 52 65 66 47 6C 62 3B 0D 0A Loc:=X1RefGlb;..
02F400: 20 20 20 20 20 20 20 20 58 31 52 65 66 47 6C 62 X1RefGlb
02F410: 3A 3D 78 31 3B 0D 0A 20 20 20 20 20 20 20 20 58 :=x1;.. X
02F420: 32 52 65 66 4C 6F 63 3A 3D 58 32 52 65 66 47 6C 2RefLoc:=X2RefGl
02F430: 62 3B 0D 0A 20 20 20 20 20 20 20 20 58 32 52 65 b;.. X2Re
02F440: 66 47 6C 62 3A 3D 78 32 3B 0D 0A 20 20 20 20 20 fGlb:=x2;..
02F450: 20 20 20 59 31 52 65 66 4C 6F 63 3A 3D 59 31 52 Y1RefLoc:=Y1R
02F460: 65 66 47 6C 62 3B 0D 0A 20 20 20 20 20 20 20 20 efGlb;..
02F470: 59 31 52 65 66 47 6C 62 3A 3D 79 31 3B 0D 0A 20 Y1RefGlb:=y1;..
02F480: 20 20 20 20 20 20 20 59 32 52 65 66 4C 6F 63 3A Y2RefLoc:
02F490: 3D 59 32 52 65 66 47 6C 62 3B 0D 0A 20 20 20 20 =Y2RefGlb;..
02F4A0: 20 20 20 20 59 32 52 65 66 47 6C 62 3A 3D 79 32 Y2RefGlb:=y2
02F4B0: 3B 0D 0A 20 20 20 20 20 20 20 20 79 73 74 3A 3D ;.. yst:=
02F4C0: 79 31 2B 44 65 6C 74 61 3B 0D 0A 20 20 20 20 20 y1+Delta;..
02F4D0: 20 20 20 79 65 6E 3A 3D 79 31 2D 78 32 2B 78 31 yen:=y1-x2+x1
02F4E0: 2B 44 65 6C 74 61 3B 0D 0A 20 20 20 20 20 20 20 +Delta;..
02F4F0: 20 69 66 20 44 65 6C 74 61 3C 30 20 74 68 65 6E if Delta<0 then
02F500: 20 20 20 20 20 20 20 20 20 20 20 20 42 4F 52 4C BORL
02F510: 41 4E 44 20 49 6E 74 65 72 6E 61 74 69 6F 6E 61 AND Internationa
02F520: 6C 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 l
02F530: 20 20 20 2A 29 0D 0A 28 2A 20 20 20 20 20 20 20 *)..(*
02F540: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02F550: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02F560: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02F570: 20 20 2A 29 0D 0A 28 2A 2A 2A 2A 2A 2A 2A 2A 2A *)..(*********
02F580: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
02F590: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
02F5A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
02F5B0: 2A 2A 29 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 65 **)....procedure
02F5C0: 20 44 72 61 77 50 6F 6C 79 67 6F 6E 28 41 3A 50 DrawPolygon(A:P
02F5D0: 6C 6F 74 41 72 72 61 79 3B 0D 0A 20 20 20 20 20 lotArray;..
02F5E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02F5F0: 20 49 30 2C 4E 50 6F 69 6E 74 73 2C 4C 69 6E 65 I0,NPoints,Line
02F600: 2C 53 63 61 6C 65 2C 4C 69 6E 65 73 3A 69 6E 74 ,Scale,Lines:int
02F610: 65 67 65 72 29 3B 0D 0A 20 20 76 61 72 20 69 2C eger);.. var i,
02F620: 78 31 2C 78 32 2C 79 31 2C 79 32 2C 58 4F 66 66 x1,x2,y1,y2,XOff
02F630: 73 65 74 2C 59 4F 66 66 73 65 74 3A 69 6E 74 65 set,YOffset:inte
02F640: 67 65 72 3B 0D 0A 20 20 20 20 20 20 58 31 52 65 ger;.. X1Re
02F650: 66 4C 6F 63 2C 59 31 52 65 66 4C 6F 63 2C 58 32 fLoc,Y1RefLoc,X2
02F660: 52 65 66 4C 6F 63 2C 59 32 52 65 66 4C 6F 63 3A RefLoc,Y2RefLoc:
02F670: 69 6E 74 65 67 65 72 3B 0D 0A 20 20 20 20 20 20 integer;..
02F680: 44 65 6C 74 61 59 2C 58 4F 73 31 2C 58 4F 73 32 DeltaY,XOs1,XOs2
02F690: 2C 59 4F 73 31 2C 59 4F 73 32 3A 69 6E 74 65 67 ,YOs1,YOs2:integ
02F6A0: 65 72 3B 0D 0A 20 20 20 20 20 20 41 75 74 6F 43 er;.. AutoC
02F6B0: 6C 69 70 2C 44 69 72 65 63 74 4D 6F 64 65 4C 6F lip,DirectModeLo
02F6C0: 63 2C 50 6C 6F 74 4C 69 6E 65 2C 50 6C 6F 74 53 c,PlotLine,PlotS
02F6D0: 79 6D 62 6F 6C 3A 62 6F 6F 6C 65 61 6E 3B 0D 0A ymbol:boolean;..
02F6E0: 20 20 20 20 20 20 58 31 4C 6F 63 2C 59 31 4C 6F X1Loc,Y1Lo
02F6F0: 63 2C 58 32 4C 6F 63 2C 59 32 4C 6F 63 3A 69 6E c,X2Loc,Y2Loc:in
02F700: 0D 0A 20 20 20 20 20 20 20 20 20 62 65 67 69 6E .. begin
02F710: 0D 0A 20 20 20 20 20 20 20 20 20 20 44 65 6C 74 .. Delt
02F720: 61 3A 3D 2D 44 65 6C 74 61 3B 0D 0A 20 20 20 20 a:=-Delta;..
02F730: 20 20 20 20 20 20 69 3A 3D 79 73 74 3B 0D 0A 20 i:=yst;..
02F740: 20 20 20 20 20 20 20 20 20 79 73 74 3A 3D 79 65 yst:=ye
02F750: 6E 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 79 65 n;.. ye
02F760: 6E 3A 3D 69 3B 0D 0A 20 20 20 20 20 20 20 20 20 n:=i;..
02F770: 65 6E 64 3B 0D 0A 20 20 20 20 20 20 20 20 63 6F end;.. co
02F780: 75 6E 74 3A 3D 28 79 32 2D 79 31 2B 78 32 2D 78 unt:=(y2-y1+x2-x
02F790: 31 2B 78 32 2D 78 31 29 20 64 69 76 20 44 65 6C 1+x2-x1) div Del
02F7A0: 74 61 3B 0D 0A 20 20 20 20 20 20 20 20 66 6F 72 ta;.. for
02F7B0: 20 69 3A 3D 31 20 74 6F 20 63 6F 75 6E 74 2D 31 i:=1 to count-1
02F7C0: 20 64 6F 0D 0A 20 20 20 20 20 20 20 20 20 62 65 do.. be
02F7D0: 67 69 6E 0D 0A 20 20 20 20 20 20 20 20 20 20 58 gin.. X
02F7E0: 31 44 3A 3D 78 31 3B 0D 0A 20 20 20 20 20 20 20 1D:=x1;..
02F7F0: 20 20 20 59 31 44 3A 3D 79 73 74 3B 0D 0A 20 20 Y1D:=yst;..
02F800: 20 20 20 20 20 20 20 20 58 32 44 3A 3D 78 32 3B X2D:=x2;
02F810: 0D 0A 20 20 20 20 20 20 20 20 20 20 59 32 44 3A .. Y2D:
02F820: 3D 79 65 6E 3B 0D 0A 20 20 20 20 20 20 20 20 20 =yen;..
02F830: 20 69 66 20 63 6C 69 70 28 58 31 44 2C 59 31 44 if clip(X1D,Y1D
02F840: 2C 58 32 44 2C 59 32 44 29 20 74 68 65 6E 20 44 ,X2D,Y2D) then D
02F850: 72 61 77 4C 69 6E 65 28 58 31 44 2C 59 31 44 2C rawLine(X1D,Y1D,
02F860: 58 32 44 2C 59 32 44 29 3B 0D 0A 20 20 20 20 20 X2D,Y2D);..
02F870: 20 20 20 20 20 79 73 74 3A 3D 79 73 74 2B 44 65 yst:=yst+De
02F880: 6C 74 61 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 lta;..
02F890: 79 65 6E 3A 3D 79 65 6E 2B 44 65 6C 74 61 3B 0D yen:=yen+Delta;.
02F8A0: 0A 20 20 20 20 20 20 20 20 20 65 6E 64 3B 0D 0A . end;..
02F8B0: 20 20 20 20 20 20 20 20 43 6C 69 70 70 69 6E 67 Clipping
02F8C0: 47 6C 62 3A 3D 43 6C 69 70 70 69 6E 67 4C 6F 63 Glb:=ClippingLoc
02F8D0: 3B 0D 0A 20 20 20 20 20 20 20 20 48 61 74 63 68 ;.. Hatch
02F8E0: 47 6C 62 3A 3D 66 61 6C 73 65 3B 0D 0A 20 20 20 Glb:=false;..
02F8F0: 20 20 20 20 20 58 31 52 65 66 47 6C 62 3A 3D 58 X1RefGlb:=X
02F900: 4F 66 66 73 65 74 2D 49 6E 66 6F 0D 0A 00 00 C1 Offset-Info.....
02F910: 18 96 00 24 03 B2 05 40 08 CE 0A 5C 0D EA 0F 78 ...$...@...\...x
02F920: 12 06 15 BF 18 94 00 22 03 B0 05 3E 08 CC 0A 5A ......."...>...Z
02F930: 0D E8 0F 76 12 04 15 AE 18 95 00 19 03 A7 05 35 ...v...........5
02F940: 08 C3 0A 51 0D DF 0F 6D 12 F1 14 6C 18 95 00 19 ...Q...m...l....
02F950: 03 9D 05 23 08 A8 0A 2E 0D B4 0F 37 12 BA 14 85 ...#.......7....
02F960: 18 94 00 18 03 9C 05 22 08 B0 0A 35 0D C3 0F 45 ......."...5...E
02F970: 12 D3 14 C0 18 95 00 23 03 B1 05 3F 08 CD 0A 5B .......#...?...[
02F980: 0D E9 0F 77 12 05 15 C1 18 95 00 23 03 B1 05 3F ...w.......#...?
02F990: 08 CD 0A 5B 0D E9 0F 77 12 05 15 C0 18 94 00 22 ...[...w......."
02F9A0: 03 B0 05 3E 08 CC 0A 5A 0D E8 0F 76 12 04 15 C1 ...>...Z...v....
02F9B0: 18 94 00 22 03 B0 05 3E 08 CC 0A 5A 0D E8 0F 76 ..."...>...Z...v
02F9C0: 12 04 15 C0 18 94 00 22 03 B0 05 3E 08 CC 0A 5A ......."...>...Z
02F9D0: 0D E8 0F 76 12 04 15 C1 18 95 00 23 03 B1 05 3F ...v.......#...?
02F9E0: 08 CD 0A 5B 0D E9 0F 77 12 05 15 C2 18 95 00 23 ...[...w.......#
02F9F0: 03 B1 05 3F 08 CD 0A 5B 0D E9 0F 77 12 05 15 C1 ...?...[...w....
02FA00: 18 94 00 22 03 B0 05 3E 08 CC 0A 5A 0D E8 0F 76 ..."...>...Z...v
02FA10: 12 04 15 C0 18 94 00 22 03 B0 05 3E 08 CC 0A 5A ......."...>...Z
02FA20: 0D E8 0F 76 12 04 15 C2 18 95 00 23 03 B1 05 3F ...v.......#...?
02FA30: 08 CD 0A 5B 0D E9 0F 77 12 05 15 C0 18 93 00 21 ...[...w.......!
02FA40: 03 AF 05 3D 08 CB 0A 59 0D E7 0F 75 12 03 15 C1 ...=...Y...u....
02FA50: 18 95 00 23 03 B1 05 3F 08 CD 0A 5B 0D E9 0F 77 ...#...?...[...w
02FA60: 12 05 15 C1 18 94 00 22 03 B0 05 3E 08 CC 0A 5A ......."...>...Z
02FA70: 0D E8 0F 76 12 04 15 C0 18 94 00 22 03 B0 05 3E ...v......."...>
02FA80: 08 CC 0A 5A 0D E8 0F 76 12 04 15 C1 18 95 00 23 ...Z...v.......#
02FA90: 03 B1 05 3F 08 CD 0A 5B 0D E9 0F 77 12 05 15 C0 ...?...[...w....
02FAA0: 18 94 00 22 03 B0 05 3E 08 CC 0A 5A 0D E8 0F 76 ..."...>...Z...v
02FAB0: 12 04 15 C1 18 95 00 23 03 B1 05 3F 08 CD 0A 5B .......#...?...[
02FAC0: 0D E9 0F 77 12 05 15 C0 18 95 00 23 03 B1 05 3F ...w.......#...?
02FAD0: 08 CD 0A 5B 0D E9 0F 77 12 05 15 C1 18 94 00 22 ...[...w......."
02FAE0: 03 B0 05 3E 08 CC 0A 5A 0D E8 0F 76 12 04 15 C1 ...>...Z...v....
02FAF0: 18 94 00 22 03 B0 05 3E 08 CC 0A 5A 0D E8 0F 76 ..."...>...Z...v
02FB00: 12 04 15 C1 18 94 00 22 03 B0 05 3E 08 CC 0A 5A ......."...>...Z
02FB10: 0D E8 0F 76 12 04 15 C0 18 93 00 21 03 AF 05 3D ...v.......!...=
02FB20: 08 CB 0A 59 0D E7 0F 75 12 03 15 C0 18 94 00 22 ...Y...u......."
02FB30: 03 B0 05 3E 08 CC 0A 5A 0D E8 0F 76 12 04 15 C1 ...>...Z...v....
02FB40: 18 94 00 22 03 B0 05 3E 08 CC 0A 5A 0D E8 0F 76 ..."...>...Z...v
02FB50: 12 04 15 BF 18 93 00 21 03 AF 05 3D 08 CB 0A 59 .......!...=...Y
02FB60: 0D E7 0F 75 12 03 15 C1 18 94 00 22 03 B0 05 3E ...u......."...>
02FB70: 08 CC 0A 5A 0D E8 0F 76 12 04 15 C0 18 94 00 22 ...Z...v......."
02FB80: 03 B0 05 3E 08 CC 0A 5A 0D E8 0F 76 12 04 15 C0 ...>...Z...v....
02FB90: 18 93 00 21 03 AF 05 3D 08 CB 0A 59 0D E7 0F 75 ...!...=...Y...u
02FBA0: 12 03 15 C1 18 94 00 22 03 B0 05 3E 08 CC 0A 5A ......."...>...Z
02FBB0: 0D E8 0F 76 12 04 15 C0 18 93 00 21 03 AF 05 3D ...v.......!...=
02FBC0: 08 CB 0A 59 0D E7 0F 75 12 03 15 C0 18 93 00 21 ...Y...u.......!
02FBD0: 03 AF 05 3D 08 CB 0A 59 0D E7 0F 75 12 03 15 C2 ...=...Y...u....
02FBE0: 18 93 00 21 03 AF 05 3D 08 CB 0A 59 0D E7 0F 75 ...!...=...Y...u
02FBF0: 12 03 15 C1 18 93 00 21 03 AF 05 3D 08 CB 0A 59 .......!...=...Y
02FC00: 0D E7 0F 75 12 03 15 C0 18 93 00 21 03 AF 05 3D ...u.......!...=
02FC10: 08 CB 0A 59 0D E7 0F 75 12 03 15 C0 18 93 00 21 ...Y...u.......!
02FC20: 03 AF 05 3D 08 CB 0A 59 0D E7 0F 75 12 03 15 00 ...=...Y...u....
02FC30: 00 00 00 ...
RESULT OF SEARCH :
PRO=172 CHEA=0 COD=11 MUSI=0 COP=30 GRA=253 WRIT=178 198=10 199=13 STARTER=0 KBI=0 CAAV=0 L.TOURNIER=0
EXTENDED CPC DSK File SAMdisk190122* 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!#! PAFBGCHDIETGDEMO0 INC BEZIDEM
OCOM TURBO COMq !"TGDEMO1 INC#$TGDEMO4 INC %&TGDEMO CHO'()TGDEMO10INC*+,-TGDE
MO PAS./01TGDEMO2 INC2345TGDEMO3 INC6789TGDEMO5 INCTGDEMO6 INCTGDEMO INF2ABCDE
SCREENIOPASFGHDRWCIR PASITGDEMO11INCJKLMure msg(swrkstring) begin ClearEol(
25) gotoxy(1,25) write(s) delay(750) end procedure SelectIBM begin
SelectWorld(2) SelectWindow(10) end procedure DefineWindowIBM(i,X1,Y1
,X2,Y2integer) begin DefineWindow(i,Trunc(X1/79*XMaxGlb+0.001),Trunc(Y1/199*
YMaxGlb+0.001), Trunc(X2/79*XMaxGlb+0.5),Trunc(Y2/199*YMaxGlb+
0.5)) end procedure MoveHorIBM(deltaintegerfillboolean) var dinteger begin
dTrunc(abs(delta)/79*XMaxGlb+0.001) if delTGDEMO12INCNOPTGDEMO13INCQRSDRW
HCH PASTUDRWLINS PASVDRWLIN PASWDRWPNT PASXDRWPNTS PASYDRWSQ PASZSAMPLE PA
SDRWSTXT PASMULTWINDPASBEZIDEMOPASabcdFLOWDEMOPAS$efghiMOVEPOLYPAS jklmMOVEWINDP
ASnopONEPOLY PASqrta0 then d-d MoveHor(d,fill) end procedure MoveVerIBM(d
eltaintegerfillboolean) var dinteger begin dTrunc(abs(delta)/199*YMaxGlb+0.
001) if delta0 then d-d MoveVer(d,fill) end c(X1/79*XMaxGlb+0.001),Tru
nc(Y1/199*YMaxGlb+0.001), Trunc(X2/79*XMaxGlb+0.5),Trunc(Y2/19
9*YMaxGlb+0.5)) end procedure MoveHorIBM(deltaintegerfillboolean) var dinte
ger begin dTrunc(abs(delta)/79*XMaxGlb+0.001) if delONEAXIS PASsPOLYAXISP
AStuSIMPWINDPASvONEHIST PASwxONEPIE PASyzWDRWPNTSPASINTERP PASSCRNPRNTPASFINDW
RLDPASPIEHISTOPASDRWATXT PASTGDEMO COMTGDEMO COMd£HATCH HGHPOLYGON $$$!q !p
+q.* !q*&!p+q*2!p+q*2!p+q*22!p+q*!p+q*!p+q*!p+q*2!p+q* Copyright (C) 1985 BORLAN
D IncBamstrad 6128C464/664P Y ELMKqp7# ok!!"#($ +*!5!*!!(2!5(2!!!OO!*!!45(! +
/0y0( procedure delay(n real) var ireal chchar begin i0 ch' '
repeat ii+1 if keypressed then read(kbd,ch) if chC then begin
leavegraphic halt end until (chM) or (in) end procedure
waitreturn(n real) begin write('Press RETURN to continue') delay(n) end
procedure ClearEol(iinteger) begin gotoxy(1,i) write('
') end proced
NAFBGCHDIE 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! ,,,-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,j""*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 !I.8cI$IL! I nn nfVNF!DLTI!!53!r1!! x #- ox(- (x8(z,zi!' r)(DMbo88x(0
8W!Oz k68x(-(ay( z(.( E+(Dg-/ 0p## +0w#,- 60#S))0 DMgojB07 Hz5a)az 0Ggo/g/o#o&K
xAJSJDM!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+w661#6r. p7#E(!90To&p( #+(
- #6O#60 #WyOh(yDOyZy0 GD! !ws( hx-Sx9+zzgZJDM0,7o #yO!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 --- NAFBGCHDIEw(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 ##.q
4((*!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 '!*"HE!zd k4q*##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( BEAE--K-%D(2BE"---
------------------------------------ *"D2D (!TURBO Pascal systemkV!Version 3.0
0A V!CP/M-80, Z80 Copyright (C) 1983,84,85 BORLAND Inc. (! Terminal !S
Include error messages!-2AE--z"!"!$r$P$8 z ogged driveAork file51ain fileD-dit
ompile un ave eecute ir uit22*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 compiler ptions Text DE*FE+8#FE*HEFree R. bytes (-)
compile - V!!y#Da#emory a#om-file a#cn-file D(tart address*D (min ! ) nd
address*D (max *) ind run-time error uit !k$$P$(#7#VLWMECRSXDQOMCHSEFQ,$$*'
(*9&-++$+y#'D'H'P'n''$z" Main file name-a"2D*-D!$!%"%& Work file namea"2E -"*-
E!"*w#wx(9*O *-4 #4!*4 #4*-N#Fq#pV+Bq#pSZR&*s#r$s#rL*L!(!$22L!(*$(!3 1!(7" 2"S"N
s#FrB(Z#(*"K! !*#"!x * *) 2""!"*$!%"%!%"%-E*DE"D"bD"PD"TD"XD"jDKHE%6 #"FE Loadi
ng -&$&Wyer(.CmKmB&Wyw# File not foundv.%2 New File#!*FE File too big%2E"!e6B
#6A#6KD(,Workfile 51 not saved. Save2D!-P-!E$ Saving -*FE+6%&er!l2D2D&*DE&er(NW
yer#G& Wyx x er!6T Directory nf(HR0nf" VMDnfutqp*s#r*s#r"*uKB!0' #fo"*R0RnfR0K
qputsrNF(VNFV*SutKqpR*R(wwnfut"6#K*K*!""*NFy(*"*B0Cnf*R*"*RSs#r#V""6#O"w2x2*"!F"
" &y*"*2"*" PAFBGCHDIE Disk fullv.&&D2D!l2D%&"2D-Start addressa"! -"DEnd addr
essa"*-"D * "Enter PCa"-"'!"y2y Searching-(K-P-z-!E P--(&!%"%!%"%D%2D3y$2y*" y*
FE6#"y'D( C!OMC!HN2y"y2y*D"y*D" y3y&ererZ*!(*y"y*y7R8&*y"er3yer! "Z*! Compiling
3y( -- --JEy Compilation aborted" li0(-'11d1 1R800 E- #V6#/0 Dy 6 04J (/#4 1
- qB((( 104s#/8V15+ 1B2D1 2UFindD1Replace withDOptionsD1hg%.2D12 2/6##RDAtRPD"D
!DF6(C#080&400.+W U N G B SD*DEDg(*FE *D"Df FE33Dnes yp)y z*not found "( *y
R.#Code y*y+8#*y.#* yData 8#2BEZ*0sGError &ha.AE(f*B( 80O#0#(# # (7 0!B 0 (
#z*found2Dy(.&E!y% Error found in above include filez-(E!Dv.*y*Disk or directo
ry fullv."Run-time error position BE'(D(3+z-!E(!D3yC!OM2y"y3y&er!Bz+2( Running
*yP-!*DGf(0F(3838T(4 K6F( 48386fD04 KDCDx E48f(*D4233Search string not found3,F
E8"PDRt"RDDEA*FE+A08A8 a8f(f(V(30kb)))B(N a3N UReplace (/) nf2BB y !2BB y qBY( N
2BEDODO0f *Dx(!DBGA ,9Af F,*DbD"B!B".*i-&*B""&3+'&!O!VR .!&( Programa"!C!OM .(!
D!!!PD!!Dir maska"er(erA2,Wyer&O(RyO!ay !Wy h0 #x ( ( No file 2qnf"o#,*o,i,Byt
es Remaining On X Ra.ker,,(,0q)New drivea" A er2e6,Write block to filef5*-&("Ove
rwrite old --(&*bD6 *D&wD1DRead block from filef5*-& .6*FEHERDM*D7!5*DR!5"%%"bD
*D"D*mRDM!D56,6*DD"D"bD*D3b76,6*D"D"bD,b7F(##RDADtRPD"DDbD80*DR"DMDKDy/Ox/GD*DF*
D"PD*TDD8bD0*PD"TD*bDDR,MD*PD"D"bD,b7!D7r (Y/N) Y(N N-P!AS2e"fer2EK- z- $E!D$2DD
&%DE!D#*DE6 #"FE2D2D2BE*B"DE!M!SG .2AEv.(!%"%!%"%%*FE6#"DE!0 8 ))))o x./-!Q.DwQ.
wQ.6- not found&&. Press ESC *FEr+sS2tD2uD!C"r!lD*DE3D(!DG //0.(!.z8 2DW2BE!WD
Db7*RD"fD*PD"bDNF A((*RD"dD*PD"DF*D3*bD3&7!tN7GA*FE3!t"RD##8!"RD6!rDw6!yDfn*PDA*
PDA"PD,*PDA*jDDE*PDjD(APD"PDi A*PDA7*PD*jDiGA78jD0A*jDPD*jDiGAiOG*jDA"jDA*PDA"PD
GA,iGO*jDA"jDA*PDA*jDDE(GA*DE"PD"jD,!t"RDF(7q72BE /6qB2D!BE6*RD0FAw#A"RD.qB0 !D6
#w!DB/ !DiC/7( !C#V7/qB4#w/2BB!!D#/ N#0O # O2BB!tD s6!"vD2xDh88!*51!BLine !BCo
l !rD BInsert BOverwrite yD BIndentlD*xD(2xD!o&0vD*PD77DE*PDRMDy( 02BB !0*PD
"vD70G PAFBGCHDIE97 FkC.ArP9*PD,A"PD!t"RD,P9 *PDA,b9A##RDAtR*PD76 #6 *RD"RD*R
D*XD"PD*ZD/99*RD*A88"RD79&7*PDA82"PD,#*RD8*A88*A0#"RD*RD#RDR02q+8+*PDA*PDA"PD,!t
"RD*A8*A08q ##*A8*PDAkqD*RD"hD*PDA"PD,!C"r!C"r2qD"PD,FN7*RDhDRA6 N7*RD6 (#A!t"R
D*PD ,.*+-/$()#' 89999777"88r8q7z7M888h77E797Bsxx&7796 s4+r7,12K2tttYY A8 RMD&,
D*PDA,++( Yi,9A,#RD8 (8*A8*sA*A8%*PDA7z7B*RD*RD8"RDsAAsA (B70707uD!i74&o*jDG( A0
#FER#+DE 8 #+t hGlDG(0 (hGF(#RDA#"D0+D(0 (0 0(MFF dD87fD8!,FF !D8bD(0 FkFsq*FE
#"$$$$"* y"ygo2222222y22""q+"Ty 222*DE""!y6*yl*HE+"wTB"s"u"k!tEy ll"yrovn)u Fo F
o(noHo1!k!yy(0lk(kk!dk!kkkk* ykyg.k!kFR.r ! kyBllBl*sm"s0lwkkZnur H H J *K*yHyrM
!4y! 2tDio& !Y*PDSdDSfD!t6D "dDbD "fD X6 #(e0bD0!"fDD0!"dD2oD6 #*RDFN7uDN7 (w#
0£DLine too long - CR inserted!p9, B6!! !s+ PYA##MD*dD4"dD*fD4"fDi#tRoDO0*PD*PD
!tA(%dD "DfD "bDw##+ w*HER8&B 0B byte(s) leftERROR Out of space.*** 460#/ 0p#w!Y
k!k!k#y l2l**y*"y!"!9!3y$y '!4y6#3yererr22*y"Znur*Ty"*y*KDM*yR8""yyl2R(k)*R0S#s
#rvnu(*"yy 3yer!93y$""y"2!"Tylkz F(KFNR(l+l"2umrmzmzmmo(Ho*summ#o 8 jxzmx um !Wz
yzm# ummINTERRUPTED.+Bv.0zFERBTSFEx 8 G 2By(*D"D*bD"bD*jD"jD*PD"PD*TD"TD*XD"XDB
FERMDx 8 G 2By(SFEdDAF("dDNfDA"fDthOR882lDh2pDb72pD2lD6b7F*jDDEA"jDPD8EPD(Ay2B"j
D6x (i8 ! b GAPD(Ay2Bx iyW81 FA0'uD8!(2uD*jDBA"jDsq*jDiyO0Ay "jDGA'ozmrm*summOZ
r+svo7IrHoZnu 80r W*m*qR*mkR#*R z o fo7Iz(oiyr2bknoIm U*mfoO*b!Tnr)vR*XRrEbo7Io(
noR(k+Im *m*b"o*R0o"*n(+Jvnu J""*o(8o!Wz "*!WzoGk#Im ibG0Okk ix( rkJbkkir,r8rr-
*s*summ*suDoi((2uD*jDA"jDir(7qD02uD6F(*dD8"dDN(*fD8"fDLA!R(MDkb#!6 7h*RDGA*FE+RD
MT8 A7MD 8 (8 #iLAR+MDkb+y(6 F(CE2CE*D"DB*DcBDRw"D#mR!YD*DR(cB"DD*DR PAFBGCHD
IEummvoOZr+s6HoZnu R5OHoZnu G222maLumm**u"*sumumumumumumo R*sumumvnu mo(o y2Or!
u"Zp+qZ+r+so(no(&o2O0r0Zr+s"mHo )vn3u kvnu iw+p+r+sHo6+p+(r+sr+rLnHo*yW(!"**s"6
+F+V++(#l(%V++R2*b20l"r+s+x(JOF+2+V++"ZR*sb Pk&kPkk###l22o!(Pkf(Pkir.kvnu "ir.R#
kPkRBPkR2o(kko(BlkkS22o(vn0u(6wkklvnnu(1Urr)Svn0u(PolTnr(rHumzmwkumk!ragr!4!w*"k
o(vnrur S2fo)o( )o(2goG j x (Ar! 6*)o (Tn vR*XTn( TnrJ++V+umzm+(zmumumm2ROA*s**!
4F222""S(R( kk!kMPk##V+++(vRW 78((98(6 0/Pk)sk*Xk*bkPk2W2!"bskfPkR!5(F* GPk!k!kP
k" !k!,k*k Pk&*('R(( kkk!"kPkHo"s"u"*sR##V( +++(rI*summzmumummo(*sORvnbu #rKTn
0j+)o(-)o((0 $% kk/)oVno+F+V++V++++V++V++WfoF++2WV++H+(ARW *8dX(*8) $Pk*mIg*mgm
iXImok(o(onoz(kkk(80r6O G(*"Xgok2WoY*mIgCmXd((PkPk*ekPk*okPk x -!# x Pke. x !k
y**Rr,(O 04 o '#000* *m2+V+i"2Or$2rCNo2N(xrK! *b 0l*"++(+w+r+s+Zr+s+++OvnBu
O9PQQkQQQRr$TnV+"ZRvnHu0oR*Z*R#rbo(8ooO*Z"*brrb"b"2TRvnTu!42**!""2P*"b""2222TRPv
nu(5O*R8"o(8O5OoP*io(ofo2P2"o(novn0uro !i0 #r,V++V+SXR2WodXfZ!p !oUY4okonokZ!UY
Z!!!ZYZZr!(!ookoZr!!Y!ZZ *qR*okZ!ZnoY#VkpozifoZrg780g2£o(ZsZ8 rA!kQgZZg8( 8rB bg
.k!!r(!D(!Nb !Mko(no!£kG! k!w(!£(!2£k2£o(!kZ8! vn0uvnQuoR*rFo"b*Z"2TR'oum*smm"22
!"bTRvnMuvnu O80rD*Z"!!02"bTRvnZu0oi$%r1,-r18o#o!ummzmummo(no!42S"z!(#"bTR jx r3
vnurir,rr4RQOr rum*s"Z!zm#mi+2WV++SXV++"y*sKyB#N#F 6++ +(6++V*sKwBr*#N#F ++(+(F+
Nq+pR2rA!kb!k/!kj !x ,() !kkbx8 8rB o AHao x *o ok!x .kx ok!kx!(!y(!& ( !(!"ko&
no!Z!!"£r#!k*qRo $mgCmX*knoZ!!Zr%okogokoo(okg b rYfookooko!nokfoookbg.ok! gr"fo
Hao okx (-o ok!x (.kokx (!k2wS"k*suR0I#N#F###VGz(+Or(+V+x BlrGlGskk*#Rl+lSvn0uPo
22(2kZnu('gWTnWTn(TnYZn8v#VorH+r+w+r+sPkEkvnjurSvnnu wkklSlvnrur PkEkSklSvntu(Po
PkEkTnr)vRW 0r*mookr,Znurr,vnrur Pkcm!f#(!vkPkzf!4S!5Im*X*k PAFBGCHDIEokobg.k!
x (!foog( b rokog b r! (!fo!oko.!Hkfo!o*qR*ok!Yo*qR*ok!zY!£!okfogrfo!Yfogokog
!dvfogokooko!N! !!k!!!k!b!Y9V! kPkioPk*mImeookx rx rxrx r!kxr!Pke.Zn%v(Ha*k **kb
Pk&gb PknPk#V*qR*bkgk j 1xr.ak"X2!t"!"i"bbk!*Xkgr)g*O G!(*kG kPkh("Tn .vRW!(*!
p*X"h(1i(ti(ivnxe 2!"b-"-"iGX!OTn x*"!6Hingok*qRir,*k 0!()Pk+ 8Pk# 0jkPkO(*mkR#k
!Lk*R*b (. Pk)$ Pk)T)g k!k iPk oGh"a!hx(##(##(###Vzr/.x 0r/!kokxr/y(r,!OkTZnvxr/
HaT x Pke.a0Jx!&()!((% r/(PkPkR kr/!x ( r/PkgPko( r/PkgPkoZnvxr/Ha x !kax !
3(! (!r/k!( ( r/PkgPk£o r/!(!E(!N(!Vvnyu "ax (r/P8o2 (E(okPk)PkoOTnr)vR*X!F(g6*
X"*X"'o! 4g6Pk#V*Rngok*bO(k!LkPk8o2!"b+"-"2 jr)ix rixr 9jj(rJjx xG/g/o#-(+ox ( r
jTnFx+ 8V+ F+N+V+++ngNWz (+'((# f!Wz($#(6' B#r7' #' w##r7#w##r8koPk/o/g9j2bJj(x
Pk/o/g#PkxG2x 0(Pkokz x !k x Pke.x Pk z !kz (0#(8 Pkx sk!kPkxr, yKr,*zRr,
WWYj 5j2x 1yOkkk!MkkTn WR*"Gg 0( f*"GROrg*r* r*bre.k!8kn E!knx Or,vnu! y gWzoo$
(3r0r0E(. .()(£r9r8 F#k#yk!Wz #k)%!kz !kkGy p#((*Rrly( y(*s7Rrc*y%%Rrb!F(l!Wyp,l
l*Ty#"Ty2*yRrb"yy(k*G(##VR8###+h&))DMT+#s#r#s#r!4G*#V#lF#lF#lyyR2)lgTyR(l"Ty!!ok
xr,!ko(8oo noZnw #Vvnu !k.dTnr)V+ reGe!x (!kex (Pk!J!F!!!!F!+ ! !!4e!x kk!!ex
k#+ekePk&ePkl&ePklge!k!fonox( ee!"e!fo!£nocfoo!fooookno!kkfoo !kno!e!ko! no! k!e
!fY!!!er#k!UU!N"Wyer3yerrdW"!9 *dW"!9 dW!9 zzm*sw+"skqrrnna80 zm#r0*s#oqrr*usRum
*s"u**w"(y2*uR 2##V(+# ++F+Ha80 y(r8"S2*mN##V#n+#( #V#qr8nr8noF#Ha80 y(!uN ##
V#cn r5Omr+)o(.#o)oer(!!Dfooko PkDMPk!nok Pko&fooko PkPk!foTn(Tn ++V+kgno foTn V
+Rgl*bePkMhPk!9 0o8ofonofofoo(!k2ZrnoIIWO*X 4g!# &bg.k! (!(**Xkk Pk! sk('O( *R(
kR#k!Vk PkPksbPk#r*X b" Pk2kPk*k 0 (g!,( !(4g! PAFBGCHDIE.),.( )onrnrororo(r)o
roror#orvnurvnur$q22( (((((* $qF$(!$qx* ) $q $q$qI(MR(GA(AU(X(5V (/B()C(#W(LK(D
(F(RG(NP(Jr$q+( -(r6!w$q,o$qrr02$qr0 $qyr*-errZy$y( !Wy"!y!*sSRrco)dSEEKEOLdFIL
ESIZdFILEPOdKEYPRESSEdMEMAVAIeMAXAVAIePOReSTACKPTeADDveSIZEOeBDOSHSeBDOTeBIOSHeB
IOeMExFLUSYEXECUTYCHAIyYSTVA"BDOSeBIOeCH%dORdCOPdLENGTAdPORdCONCAdSUCcPREcUPCAS7
dTRUNcROUNcODdABqcSQcSQRcSIcCOcARCTAcLcEXcIN£cFRAcRANDOdPARAMCOUNdPARAMSTdLcHcSW
AcPT+dIORESULdEOdEOLdSEEKEOdSEEKEOLdFILESIZdFILEPOdKEYPRESSEdMEMAVAIeMAXAVAIePOR
eSTACKPTeADDveSIZEOeBDOSHSeBDOTeBIOSHeBIOeME""22y!"22Hp#r*"*"!yq ( (( 8w#2qqq6*#
"( y(I *a.(. *** Abort compilation-r y *#"*R80Geryer !S*#" 2y22*#"Aaqr0rDM!)
)0 BKgojB07 ## ##+q2y( yRy ''V$O$r!w#w#b!"!F#v2G*##w*##*q!6!!#fk"!G#*####*#V!
*"*DER"yy 3yerqtEGETNItAHCtAERtAELOOBtXETuTYBURT SLAF NIXAM!IP tUPTUOtUPNI tOC t
RT tBK tSL tUA tSU uELFUBtTPPAEHtTPRUCERtTPTSNOCtTPNINOCtTPTUONOCtTPTUOTSLtTPNIX
UAtTPTUOXUAtTPNIRSUtTPTUORSUtTPRORRE tAERBC ------------------------------------
---------------------------------------- overlay procedure intro var iintege
r begin SetHeaderOff DefineWindowIBM(1,5,40,25,80) DefineWindowIBM(2,1
6,55,43,95) DefineWindowIBM(4,15,60,43,135) SelectWindow(1) DrawBorde
r SelectIBM DrawTextW(52,55,5,'TURBO') StoreWindow(1) delay(500)
SelectWindow(2) SetBackground(0) DrawBorder SelectIBM DrawTextW(14
0,70,5,'GRAPHIX') StoreWindow(2) delay(500) )uuuuvv4vPROGRAENFORWAREX
TERNAPACKEARRAFILSERECORSTRINOABSOLUTTHEELSDUNTINONI.LABECONSTYPVABEGIOVERLAPROC
EDURFUNCTIOBEGIwSISWHIL$TREPEALTFOkTCAS!UGOT&VWITNVINLINVT#DOWNT+ANDIMOSHSHOXO (
IWRITELZWRITZREADL2ZREA3ZDELETfINSERASSIGCYRESEYREWRITYCLOSYERASqYRENAMfYSEEYGET
MENEFREEMEDISPOSMARRELEASOVRDRIVCRTINI8CRTEXIGOTOXmCLRSCBCLREOHNORM for i1 to 4
do begin RestoreWindow(1,0,0) delay(800) RestoreWindow(2,0,0)
delay(800) end for i1 to 8 do begin RestoreWindow(1,trunc(3
*i*XMaxGlb/79),trunc(9*i*YMaxGlb/199)) delay(500) RestoreWindow(2,trun
c(3*i*XMaxGlb/79),trunc(9*i*YMaxGlb/199)) delay(500) end delay(500)
SelectWindow(4) StoreWindow(4) SetBackground(0) DrawBorder got
oxy(18,10) writeln('GRAPHICS POUR TURBO PASCAL') for i2 to 40 do bVIDE
MHIGHVIDEMLOWVIDERINSLINWDELLINDELABLOCKREABLOCKWRITRANDOMIZMOVFILLCHAEXIaHALgPO
RmSTACKPTxFLUSYEXECUTYCHAIyYSTVA"BDOSeBIOeCH%dORdCOPdLENGTAdPORdCONCAdSUCcPREcUP
CAS7dTRUNcROUNcODdABqcSQcSQRcSIcCOcARCTAcLcEXcIN£cFRAcRANDOdPARAMCOUNdPARAMSTdLc
HcSWAcPT+dIORESULdEOdEOLdSEEKEOdSEEKEOLdFILESIZdFILEPOdKEYPRESSEdMEMAVAIeMAXAVAI
ePOReSTACKPTeADDveSIZEOeBDOSHSeBDOTeBIOSHeBIOeME P A F B G C H D I Eegin
DrawLine(i*8,60,639-i*8,190) DrawLine(639-i*8,60,i*8,190) end delay(
2500) RestoreWindow(4,0,0) InvertScreen delay(5000) SelectScreen
(2) ClearScreen InvertScreen SetColorBlack SelectIBM DrawTextW(40
,75,3,'BY') DrawTextW(40,140,4,'BORLAND INTERNATIONAL') CopyScreen
SelectScreen(1) delay(5000) DefineWindowIBM(1,1,125,35,168) StoreWindo
w(1) DefineWindowIBM(2,36,125,78,168) StoreWindow(2) for i1 to t0)
end ensite du hachurage peut etre modifiee DrawHistogram') SelectWindow(
3) SetBackground(0) DrawBorder xDrawHistogram(a,-n,true,4) delay(1
5000) msg('La densite des axes peut etre modifiee DrawAxis , DrawHistogram
') SelectWindow(4) SetBackground(0) DrawBorder xDrawAxis(7,-7,0,0,0,
0,0,0,true) xDrawHistogram(a,-n,true,2) delay(1500runc(34*XMaxGlb/79) do
begin SelectWindow(1) MoveHor(1,false) ReDefineWindow(1,X1Ref
Glb,Y1RefGlb,X2RefGlb-1,Y2RefGlb) SelectWindow(2) MoveHor(-1,false)
ReDefineWindow(2,X1RefGlb+1,Y1RefGlb,X2RefGlb,Y2RefGlb) end delay(100
0) RestoreWindow(1,0,0) RestoreWindow(2,0,0) GotoXY(1,25) ClrEol
GotoXY(17,25) Write('Copyright (C) 1985 Borland International, Inc.') de
lay(3000) SetColorWhite SetHeaderOn end ------------------------------
---------------------------------------------- overlay function menuchoice(ol
dchoiceinteger)integer const promptstring6'8 ' title'Demomstration TUR
BO GRAPHIX TOOLBOX' n9 menuitemsarray 0..9 of string30 ('
Sortir de la demonstration', 'Utilisation des fenetre', 'Si
mples commandes graphiques', 'Courbes de Sierpinski ', 'Came
mberts', 'Lissage', 'Polygones', var i,ninteger a
PlotArray r,tempreal begin gotoxy(50,25) write('Un moment ....')
n50 rabs(n/2) for i0 to abs(n-1) do begin ai+1,1i-r
ai+1,2sin(ai+1,1/10)*exp(-abs(ai+1,1)*0.01)+random*0.1 end ClearScreen
SetColorWhite DefineWindowIBM(1,0,0,79,185) DefineWindowIBM(2,20,20,75
,175) DefineWindowIBM(3,5,35,60,170) DefineWindowIBM(4,10,50,55,165)
DefineHeader(1,'Un histogramme en mode valeur absolue 'Histogramme',
'Application Un organigramme', 'Trace') var x,y,i,jinteger c
hchar quitboolean begin ch' ' quitfalse oldchoiceoldchoice+1 i
f oldchoicen then oldchoice1 x40-length(title) div 2 gotoxy(x,1) write(
title) gotoxy(1,25) write('ESPACE / BACKSPACE ou un nombre,tapez sur RETU
RN') y8-n div 2 x20 for i0 to n do begin gotoxy(x-4,y+i*2)
write(i1,' -- ',menuitemsi) end value ') DefineHeader(2,'Un histo
gramme en mode normal') DefineHeader(3,'Un histogramme en mode normal avec ha
churage') DefineHeader(4,'Un histogramme avec axes') msg('Affichage des
totaux DrawHistogram') FindWorld(1,a,n,1.1,1.1) with world1 do begin
tempy1 y1y2 y2temp end SelectWorld(1) SelectWindow(1)
DrawBorder xDrawHistogram(a,n,false,5) delay(15000) msg('Afficha
ge des valeurs positives et negatives DrawHistogr ioldchoice gotoxy(x-10,
y+i*2) write(prompt,i1,' -- ',menuitemsi) gotoxy(62,y+i*2) write('')
j0 while chM do begin ch'.' if keypressed then b
egin read(kbd,ch) j0 end if chH then
begin gotoxy(x-10,y+i*2) write(' ') go
toxy(62,y+i*2) write(' ') ii-1 if i-1 then in
gotoxy(x-10,y+i*2) am') SelectWindow(2) SetBackgroun
d(0) DrawBorder xDrawHistogram(a,-n,false,5) delay(15000) msg('L
a densite du hachurage peut etre modifiee DrawHistogram') SelectWindow(3)
SetBackground(0) DrawBorder xDrawHistogram(a,-n,true,4) delay(15000)
msg('La densite des axes peut etre modifiee DrawAxis , DrawHistogram')
SelectWindow(4) SetBackground(0) DrawBorder xDrawAxis(7,-7,0,0,0,0,0,0
,true) xDrawHistogram(a,-n,true,2) delay(1500 PAFBGCHDIE write(prompt,i
1,' -- ',menuitemsi) gotoxy(62,y+i*2) write('') e
nd if ch' ' then begin gotoxy(x-10,y+i*2)
write(' ') gotoxy(62,y+i*2) write(' ') i
i+1 if in then i0 gotoxy(x-10,y+i*2) write(prom
pt,i1,' -- ',menuitemsi) gotoxy(62,y+i*2) write('')
end if (ord(ch)-48 in 0..n) and (ord(ch)-48i) thene a l'interieur avec
GRAPHIX. ') gotoxy(8,9)WriteSlow ('fenetre est une partie de l''ecran.
') gotoxy(8,10)WriteSlow('Pour les autres commandes referez vous a ') go
toxy(8,11)WriteSlow('celle-ci.Les parties du diagramme qui sont') gotoxy(8,12
)WriteSlow('hors de la fenetre ne sont pas dessinees ') gotoxy(8,13)WriteSlow
('l''echelle d''un diagramme est aussi faite') gotoxy(8,14)WriteSlow('par GRA
PHIX, vous permettant de dessine ') gotoxy(19,16) StoreWindow(2) wa
begin gotoxy(x-10,y+i*2) write(' ')
gotoxy(62,y+i*2) write(' ') iord(ch)-48 goto
xy(x-10,y+i*2) write(prompt,i1,' -- ',menuitemsi) gotoxy(6
2,y+i*2) write('') end if chC then quittrue if
(ch) then if keypressed then begin read(kbd,ch)
if ch'O' then quittrue end else quittrue itret
urn(60000.0) DefineWindowIBM(3,25,30,78,180) DefineHeader(3,'exemple C
amemberts') SelectWindow(3) SetBackground(0) DrawBorder gotoxy(28,7)
write(' 1 2 3 4 5') for i1 to 12 do
begin gotoxy(28,7+i) write(i2) end gotoxy(28,20)write('Commande
') gotoxy(28,22)write('en cours ventes.clc libre 85 kByte 92.3 %'
) gotoxy(40,9)write(' V E N T E if quit then begin
LeaveGraphic halt end jj+1 if j15000 then chM
end menuchoicei end ,y+i*2) write('') end
if chC then quittrue if (ch) then if keypressed then b
egin read(kbd,ch) if ch'O' then quittrue end
else quittrue 1984') gotoxy(40,10)write(' ') gotoxy(
32,12)write('Cout de production 1456.35') gotoxy(32,13)write('Cout du pe
rsonnel 145.23') gotoxy(32,14)write('T.V.A 524.12')
gotoxy(32,15)write('--------------------------------') gotoxy(32,16)write
('Soustotal 2125.70') gotoxy(32,18)write('Solde
145') delay(4000) gotoxy(39,20) waitreturn(15000) DefineWin
dow----------------------------------------------------------------------------
overlay procedure WindowDemo var row,column,iinteger procedure WriteSlo
w(swrkstring) begin rowrow+1 gotoxy(17,5) write(row2) gotoxy(8,6+ro
w) for i1 to length(s) do begin write(si) gotoxy(28,5) writ
e(column+i2) gotoxy(8+i,6+row) delay(10+random(100)) end end be
gin ClearScreen SetHeaderOn DefineWindowIBM(1,0,0,79,190) DefineHead
er(1,'IBM(4,12,60,68,164) DefineHeader(4,'Exemple Graphismes') SelectWin
dow(4) SetBackground(0) DrawBorder for i1 to 85 do DrawLine(20+i*7,30,6
30-i*7,170) gotoxy(29,20) CopyScreen waitreturn(15000) RestoreWind
ow(2,trunc(16*XMaxGlb/79),trunc(32*YMaxGlb/199)) SelectWindow(2) delay(200
0) MoveHorIBM(-16,true) MoveVerIBM(-32,true) for i1 to 11 do begin
gotoxy(8,6+i) write(' ')
end row0Utilisation de plusieurs fenetre sur l'ecan') SelectWindow(1)
SetBackground(24) DrawBorder DefineWindowIBM(2,4,16,55,140) DefineHe
ader(2,'Exemple Edition') SelectWindow(2) SetBackground(0) DrawBorde
r column0row0 gotoxy(11,5)write('Ligne Colonne Fichier ATEST.T
XT') gotoxy(8,6)write('L----#----#----#----#----#----#----#----#----R') go
toxy(8,7)WriteSlow ('Ceci est demonstration d''utilisation ') gotoxy(8,8)W
riteSlow ('de fenetr PAFBGCHDIE column0 gotoxy(8,7) WriteSlow('Vous pouve
z aussi deplacer les fenetre a ') gotoxy(8,8) WriteSlow('l''interieur de l
''ecran.Vous pouvez les faire') gotoxy(8,9) WriteSlow('glisser les unes sur l
es autres ou les mettre') gotoxy(8,10)WriteSlow('les unes au-dessus de l''aut
re.Une fenetre peut') gotoxy(8,11)WriteSlow('etre mise dans une page memoir e
t etre ramenee') gotoxy(8,12)WriteSlow('sur l''ecran au fur et a mesure des b
esoins') gotoxy(8,13)WriteSlow('La taille de var eplotarrayfin
teger) $Ispline.hgh begin spline(a,b,c,d,e,f) end overlay procedure xd
rawcartpie(a,b,c,d,e,frealgpiearray h,i,jinteger
) $Icircsegm.hgh $Ipie.hgh begin drawcartpie(a,b,c,d,e,f,g,h,i,j) end
overlay procedure xdrawhistogram(aplotarraynintegerhbooleanzinteger) $I hatch.
hgh $I histogrm.hgh begin drawhistogram(a,n,h,z) end overlay procedure
xbezier(aplotarraycintegervar bplotarrayla fenetre memoire est seulement') g
otoxy(8,14)WriteSlow('limitee a celle de la memoire physique .') gotoxy(19,16
) waitreturn(60000.0) end0)WriteSlow('les unes au-dessus de l''autre.Une fen
etre peut') gotoxy(8,11)WriteSlow('etre mise dans une page memoir et etre ram
enee') gotoxy(8,12)WriteSlow('sur l''ecran au fur et a mesure des besoins')
gotoxy(8,13)WriteSlow('La taille de zinteger) $I bezier.hgh bezier begin
bezier(a,c,b,z) end overlay procedure xhatch(a,b,c,d,ereal) $I hatch.hg
h begin hatch(a,b,c,d,e) end $I tgdemo.inf ------------------------
overlay - partie deux-------------------------- procedure dummy2 begin end o
verlay procedure PieDem $I tgdemo12.inc camembert overlay procedure Spline
Dem $I tgdemo13.inc spline overlay procedure simple $I tgdemo2.inc simple
s overlay procedure PolygonDem(*********************************************
**************) (* *)
(* TURBO GRAPHIX version 1.05A *) (*
*) (* Demonstration
program *) (* Module version 1.03A
*) (* *) (*
Copyright (C) 1985 by *) (* $I tgdemo3.i
nc polygone overlay procedure HistoDem $I tgdemo4.inc histogramme $I
tgdemo5.inc organigramme overlay procedure BezierDem $I tgdemo6.inc $
I tgdemo.cho Begin InitGraphic SetBreakOn SetMessageOn SetHeade
rOn DefineWorld(2,0,199,639,0) DefineWindow(10,0,0,XMaxGlb,YMaxGlb) int
ro choice0 repeat ClearScreen ResetWindowStack ResetWindows
ResetWorlds DefineWorld(2,0,199,639,0) DefineWind BOR
LAND International *) (*
*) (* modified by HEIMSOETH Software Munich 11.1985
*) (* *) (**********
*************************************************) $x- $C- program TurboGraph
icsDemo $I btypedef.sys $I bgraphix.sys $I bkernel.sys $I bkernel1.sys $I
bwindows.sys $I bfindwrld.hgh var choiceinteger $I tgdemo0.inc ow(10,0,0,X
MaxGlb,YMaxGlb) SelectWorld(2) SelectWindow(10) SetAspect(1.0)
choicemenuchoice(choice) ClearScreen case choice of 1begin w
indowdemoinfo WindowDemo end 2begin simpleInfo Simple end 3sier
4begin pieinfo Piedem end 5begin splineInfo Splinedem end 6be
gin polygonInfo Polygondem end 7HistoDem 8FlowChartDem 9beg
in BezierInfo Bezierdem end end until choice0 Lea procedures commune
s --------------- Over lay Partie one --------------------------- $I tgdemo
1.inc introduction $I tgdemo10.inc fenetre $I tgdemo11.inc overlay
procedure xdrawpolygon(aplotarrayc,d,e,f,ginteger) $I bpolygon.hgh begin d
rawpolygon(a,c,d,e,f,g) end overlay procedure xdrawaxis(a,b,c,d,e,f,g,hinteg
eriboolean) $I axis.hgh begin drawaxis(a,b,c,d,e,f,g,h,i) end overlay
procedure xspline(aplotarraybintegerc,dreal P A F B G C H D I Eve
Graphic end. ClearScreen case choice of 1begin windowdemoinfo
WindowDemo end 2begin simpleInfo Simple end 3sier 4begin p
ieinfo Piedem end 5begin splineInfo Splinedem end 6begin polygonIn
fo Polygondem end 7HistoDem 8FlowChartDem 9begin BezierInfo
Bezierdem end end until choice0 Leaay(1000) DefineWindowIBM(4,2
8,60,49,140) SelectWindow(4) msg(' Trace de carres DrawSquare') D
rawSquares MoveVerIBM(-44,true) MoveHorIBM(26,true) delay(1000) De
fineWindowIBM(5,28,60,49,140) SelectWindow(5) msg(' Trace de cercles et d
'ellipses DrawCircle') DrawCircles MoveVerIBM(40,true) MoveHorIBM(26,
true) delay(1000) DefineWindowIBM(6,28,60,49,140)SelectWindow(6) msg(
' Trace de segments de cercles DrawCircleSegment') Dravar i,j,rndinteger
radreal chchar procedure DrawPoints var iinteger begin SetBackgroun
d(0) DrawBorder for i1 to 250 do DrawPoint(random(640),random(200)) end
procedure DrawLines var iinteger begin SetBackground(0) DrawBorder
for i1 to 20 do DrawLine(i*31,0,640-i*31,i*10) end procedure DrawSquares va
r iinteger begin SetBackground(0) DrawBorder for i1 to 15 do DrawSquar
e(320-i*20,100-i*6,320+i*20,100+i*6,false) end procedwPie1 MoveVerIBM(40,
true) CopyScreen delay(1000) DefineWindowIBM(7,28,60,49,140) Selec
tWindow(7) msg(' Carres hachures hatch') HatchIt MoveVerIBM(40,t
rue) MoveHorIBM(-26,true) delay(1000) ClearEol(25) for i1 to 5 do
begin SelectWindow(2) InvertWindow for j3 to 7 do begin
SelectWindow(j) InvertWindow SelectWindow(j-1) Inver
tWindow end SelectWindow(7) InvertWindow endure DrawCircles
var iinteger AspectLocreal Begin SetBackground(0) DrawBorder rad0
.8 AspectLocGetAspect SetAspect(1/4.5) for i1 to 15 do begin Dr
awCircle(320,100,rad) SetAspect((1+i)/4.5) radrad-0.05 end SetAs
pect(AspectLoc) end procedure DrawPie1 var aPieArray iinteger begin
SetBackground(0) DrawBorder for i1 to 5 do begin ai.arearandom+0
.35 ai.text'' end a2.area-a2.area msg(' Taper RETURN pour contin
uer') for i2 to 7 do begin SelectWindow(i) InvertWindow end i0 ch' '
repeat rndrandom(6)+1 SelectWindow(rnd+1) case rnd of 1Dr
awPoints 2DrawLines 3DrawSquares 4DrawCircles 5DrawP
ie1 6HatchIt end InvertWindow ii+1 if keypressed then
read(kbd,ch) until (chM) or (i30) end xDrawCartPie(320,100,500,100
,1,1,a,5,0,1) end procedure HatchIt var i,temp,x1,x2,y1,y2integer begin
SetBackground(0) DrawBorder for i1 to 5 do begin x1100+random(500
) x2100+random(500) y130+random(160) y230+random(160) if x1x
2 then begin tempx1x1x2x2temp end if y1y2 then begin tempy1y1y2y2temp end
DrawSquare(x1,y1,x2,y2,false) xhatch(x1,y1,x2,y2,random(6)+5) end e
nd begin ClearScreen Se LINE POSITION JCFINISCARRY SET BY GNB IF END F
ILE MOVB,A PRINT HEX VALUES CHECK FOR LINE FOLD MOVA,L ANI0FHCHECK LOW 4 BI
TS JNZNONUM PRINT LINE NUMBER CALLCRLF CHECK FOR BREAK KEY CALLBREAK ACC
UM LSB 1 IF CHARACTER READY RRCINTO CARRY JCFINISDON'T PRINT ANY MORE MOVA
,H CALLPHEX MOVA,L CALLPHEX NONUM INXHTO NEXT LINE NUMBER MVIA,' ' CALLPC
HAR MOVA,B CALLPHEX JMPGLOOP FINIS END OF DUMP, RETURN TO CCP (NOTE tHea
derOn DefineWindowIBM(1,0,0,79,185) DefineHeader(1,'Simples procedures gra
phiques') SelectWindow(1) SetBackground(90) DrawBorder CopyScreen
DefineWindowIBM(2,28,60,49,140) SelectWindow(2) msg(' Trace de points
DrawPoint') DrawPoints MoveVerIBM(-44,true) MoveHorIBM(-26,true)
delay(1000) DefineWindowIBM(3,28,60,49,140) SelectWindow(3) msg(' T
race de lignes DrawLine') DrawLines MoveVerIBM(-44,true) CopyScreen
del PAFBGCHDIEvar ninteger b,aPlotArray x1,x2integer procedure
GenerateFunction(var a,bPlotArrayninteger) var iinteger deltareal begin
delta2*pi/(n-1) for i1 to n do begin ai,1(i-1)*delta-pi
bi,1ai,1 bi,2exp(-abs(ai,1)) ai,2sin(ai,1)*exp(-abs(ai,1)*0.1)
end end begin ClearScreen SetColorWhite n30 gotoxy(50,25) w
rite('Un moment S.V.P.....') GenerateFunction(a,b,n) ClearScreen olygon(b
,1,n,-4,2,0) delay(15000) msg('Les points de la seconde fonction relie
s par des lignes DrawPolygon') xDrawAxis(0,0,0,0,0,0,0,0,false) SetLinest
yle(1) xDrawPolygon(b,1,n,0,0,0) SetLinestyle(0) delay(15000) ms
g('Lettrage des axes avec la plus grande densite DrawAxis,DrawPolygon') Defin
eWindowIBM(2,8,15,70,170) DefineHeader(2,'Marquage des points') SelectWind
ow(2) SetBackground(0) DrawBorder xDrawAxis(8,-8,0,0,0,0,0,1,false)
xDrawPo DefineWorld(1,-pi,1,pi,-1) SelectWorld(1) msg('La fonction d'ex
emple en coordonnees monde -Pi,Pi DrawPolygon') DefineWindowIBM(1,0,0,39,95)
DefineHeader(1,'La fonction d''exemple') SelectWindow(1) DrawBorder
xDrawPolygon(a,1,n,0,0,0) delay(15000) msg('Procedures utilisees Dra
wAxis , DrawPolygon') DefineWindowIBM(2,20,40,79,185) DefineHeader(2,'Exem
ple de fonction avec axes') SelectWindow(2) SetBackground(0) DrawBorder
xDrawAxis(8,-8,0lygon(a,1,n,-2,3,0) delay(15000) xDrawAxis(0,0,0,0
,0,0,-1,-1,false) xDrawPolygon(a,1,n,9,1,-1) delay(15000) xDrawAxis
(0,0,0,0,0,0,-1,-1,false) SetLinestyle(2) xDrawPolygon(a,1,n,0,0,0) Set
Linestyle(0) delay(15000) end 'Marquage des points') SelectWindo
w(2) SetBackground(0) DrawBorder xDrawAxis(8,-8,0,0,0,0,0,1,false) x
DrawPo,0,0,0,0,0,false) xDrawPolygon(a,1,n,0,0,0) delay(15000) msg(
'Axe de densite plus grande DrawAxis , DrawPolygon') DefineWindowIBM(2,8,15,
70,170) DefineHeader(2,'Exemple de fonction avec axes') SelectWindow(2)
SetBackground(0) DrawBorder xDrawAxis(9,-9,0,0,0,0,1,1,false) xDrawPol
ygon(a,1,n,0,0,0) delay(15000) msg('La fonction d''exemple tracee poin
t a point DrawPolygon') DefineWindowIBM(1,0,0,39,95) DefineHeader(1,'La f
onction d''exemple') SelectWindow(1) SetBackground(0) DrawBorder xDr
awPolygon(a,1,n,9,1,0) delay(15000) msg('La fonction d''exemple tracee
avec des cercles DrawPolygon') xDrawPolygon(a,1,n,-8,3,0) delay(15000)
msg('La fonction d''exemple reliee par des lignes SetLinestyle , DrawPolyg
on') SetLinestyle(1) xDrawPolygon(a,1,n,0,0,0) SetLinestyle(0) del
ay(15000) msg('Affichage de plusieurs fonctions par appels repetes de DrawP
olygon') DefineWindowIBM(2,20,40,7-------------------------------------------
--------------------------------- overlay procedure FlowChartDem var x1,y1,x
2,y2,i,countinteger procedure DrawArrowHor(x1,y1,x2,y2integer) begin DrawLi
ne(x1,y1,x2,y2) if x2x1 then begin DrawLine(x2-4,y2-2,x2,y2) Dr
awLine(x2-4,y2+2,x2,y2) end else begin DrawLine(x2+5,y2-2,x2,y2)
DrawLine(x2+5,y2+2,x2,y2) end end procedure DrawArrowVer(x1,y1,x2,y2
integer) begin DrawLine(x1,y1,x2,y2) if y2y9,185) DefineHeader(2,'Deux
fonctions affichees avec les axes') SelectWindow(2) SetBackground(0) D
rawBorder xDrawAxis(8,-8,0,0,0,0,0,0,false) xDrawPolygon(a,1,n,-1,4,0)
delay(15000) msg('Les points de la premiere fonction relies par des ligne
s DrawPolygon') xDrawAxis(0,0,0,0,0,0,0,0,false) xDrawPolygon(a,1,n,0,0,0
) delay(15000) msg('Les points de la seconde fonction dans le meme sys
teme de coordonnees') xDrawAxis(0,0,0,0,0,0,0,0,false) xDrawP PAFBGCHDIE1
then begin DrawLine(x2-2,y2-3,x2,y2) DrawLine(x2+2,y2-3,x2,y2)
end else begin DrawLine(x2-2,y2+3,x2,y2) DrawLine(x2+2,y2+3,x
2,y2) end end procedure blink(count,timeinteger) var iinteger begin f
or i1 to count do begin delay(time) InvertWindow end end b
egin DefineWindowIBM(1,0,0,79,185) DefineWindowIBM(2,12,20,25,40) Defin
eWindowIBM(3,15,55,22,75) DefineWindowIBM(4,11,110,26,130) DefineWindowIBM
(5,47,90,56const MaxControlPoints7 MaxIntPoints15 var iinteger dumm
yx,dummyyreal a,bPlotArray Begin a1,11a2,11.5a3,12a4,12.5a5,13a6,14
a7,15 a1,22a2,21.5a3,21a4,22.5a5,24a6,24.5a7,25 ClearScreen SetColorWhi
te DefineWorld(1,0,6,6,0) SelectWorld(1) DefineWindowIBM(1,0,0,79,170)
SelectWindow(1) SetBackground(0) DefineHeader(1,'Une demonstration de m
odelisation de graphisme ') Draw,110) DefineHeader(1,'Un organigramme')
SetColorWhite SetHeaderOn SelectWindow(1) DrawBorder SetHeaderOff
SelectWindow(2) DrawBorder SelectIBM DrawTextW(125,27,2,'Debut')
DrawArrowVer(151,40,151,55) SelectWindow(3) DrawBorder SelectIBM
DrawTextW(136,63,2,'I1') DrawArrowVer(151,75,151,110) SelectWindow(4)
DrawBorder SelectIBM DrawTextW(108,118,2,'If I5') DrawLine(215,120,4
17,120) DrawArrowVer(417,120,417,110) Border repeat SetLinestyle(1)
xDrawPolygon(a,1,MaxControlPoints,4,2,0) xbezier(a,MaxControlPoints,b,M
axIntPoints) SetLinestyle(0) xDrawPolygon(b,1,MaxIntPoints,0,0,0)
repeat ClearEol(23) gotoxy(1,23) write('Entrez le nombre d
e point a changer ') i0 $I- read(i) $I+ if IOResult0 then i
0 until i in 0..MaxControlPoints if i0 then begin repe
at gotoxy(1,24) clreol DrawArrowVer(151,130,151,155)
SelectIBM DrawTextW(300,110,2,'OUI') DrawTextW(160,137,2,'NON') Selec
tWindow(5) DrawBorder SelectIBM DrawTextW(390,98,2,'II+1') DrawLine(
417,80,417,90) DrawArrowHor(417,80,151,80) DrawCircle(151,165,0.25) Dra
wTextW(137,163,2,'Fin') SetHeaderOn CopyScreen ClearEol(25) goto
xy(27,25) DefineWindowIBM(2,15,21,22,39) SelectWindow(2) SetBackg
round(0) DrawBorder InvertWindow delay( write('Ancienn
e position ',ai,142,',',ai,242,'') dummyxai,1 dummyyai,2
repeat gotoxy(40,24) clreol wr
ite(' Nouvelle Position x ') $I- read(dummyx) $I+ unt
il IOResult0 repeat gotoxy(40,25) clreol
write(' Nouvelle Position y ') $I- read(dummyy) $I+
until IOResult0 until (1000) InvertWindow MoveVerIB
M(35,true) SelectIBM DrawTextW(139,63,2,'I1') SelectWindow(2)
blink(30,50) MoveVerIBM(55,true) for count2 to 6 do begin
delay(500) MoveHorIBM(33,true) MoveVerIBM(-20,true) SetBa
ckground(0) DrawBorder SelectIBM DrawTextW(400,98,2,'I'+chr
(48+count)) SelectWindow(2) blink(30,50) MoveVerIBM(-20,tru
e) MoveHorIBM(-33,true) MoveVerIBM(40(dummyxX1WldGlb) and (dummyxX
2WldGlb)) and ((dummyyY1WldGlb) and (dummyyY2WldGlb)) SetLinestyle(1)
SetColorBlack xDrawPolygon(a,1,MaxControlPoints,4,2,0)
SetLinestyle(0) xDrawPolygon(b,1,MaxIntPoints,0,0,0) ai,1dumm
yx ai,2dummyy SetColorWhite End until i0 end
write(' Nouvelle Position y ') $I- read(dummyy) $I+
until IOResult0 until (,true) end InvertWindow del
ay(1000) MoveVerIBM(46,true) blink(30,50) MoveHorIBM(45,true)
MoveVerIBM(-136,true) MoveHorIBM(-45,true) SetHeaderOn end M
oveVerIBM(-20,true) SetBackground(0) DrawBorder SelectIBM
DrawTextW(400,98,2,'I'+chr(48+count)) SelectWindow(2) blink(
30,50) MoveVerIBM(-20,true) MoveHorIBM(-33,true) MoveVerIBM
(40 PAFBGCHDIEoverlay procedure SimpleInfo begin gotoxy(20,5) writeln('L
es simples commandes de dessin') gotoxy(10,10)write('Le moyen le plus simple
pour parvenir a dessiner est de se') gotoxy(10,11)write('representer mentalem
ent l''image du graphisme desire.') gotoxy(10,12)write('Ces commandes se refe
reront a la fenetre en cours.Alors) gotoxy(10,13)write('seulement vous dessin
erez a l''interieur de celle-ci.Si une ou) gotoxy(10,14)write('des parties du
diagramme vont au dela des limites)write('Procedure spline(parametre)') got
oxy(10,13)write('Celle-ci cree des lissage de courbe. ') gotoxy(10,14)write('
Donnez un nombre de colonnes,determinez celles de debut et de fin') gotoxy(10
,15)write('puis les points de l''interpolation,les points entre le debut') go
toxy(10,16)write('et la fin,appellez spline,cela dessinera les points avec l''ai
de') gotoxy(10,17)write('de la procedure DrawPolygon .' ) gotoxy(10,18)wri
te('Dans l''exemple suivant la donnee (*) sera repre de la') gotoxy(10,15)wri
te('fenetre,elles ne seront pas affichees.Pour fournir une plus ') gotoxy(10
,16)write('grande flexibilite d''emploi cette caracteristique peut etre annulee'
) gotoxy(10,17)write('La mise a l''echelle d''un diagramme est aussi pris en
charge ') gotoxy(10,18)write('par TURBO GRAPHIX.Neanmoins,il est possible de
dessiner des ') gotoxy(10,19)write('coordonnes systeme sans effectuer des cal
culs compliques.) gotoxy(10,20)write('Un systeme de coordonnees separsentee e
n premier,') gotoxy(10,19)write('puis la fonction spline affichera 50 points'
) gotoxy(10,21)write('(drawn line)') gotoxy(20,25) waitreturn(60000.0) e
nd overlay procedure PieInfo begin gotoxy(20,5)writeln('Utilisation des c
amemberts') gotoxy(10,8)write('Procedure DrawCartPie ou DrawPolarPie(paramet
re)') gotoxy(10,10)write('Celles-ci permettent de creer des camemberts.')
gotoxy(10,11)write('Pour utiliser l''une de ces dernieres,donnez les coordonnees
du ceees peut etre nomee par toutes ') gotoxy(10,21)write('les fenetres qui
ont deja ete definies.') gotoxy(31,25) waitreturn(60000.0) end overlay
procedure WindowDemoInfo begin gotoxy(20,5) writeln('L''utilisation de l
a fenetre') gotoxy(10,8)write('A l''interieur de TURBO GRAPHIX, on peut affic
her autant de fenetres') gotoxy(10,9)write('que l''on desire celles-ci repres
entent la feuille du dessin') gotoxy(10,10)write('en cours qui a ete predefin
ie.Toutes les operationsntre,') gotoxy(10,12)write('le npmbre de segments a d
essiner,le nombre total de ceux-ci,un ') gotoxy(10,13)write(champs numerique
et un texte descriptif.Si vous le desirez,le texte') gotoxy(10,14)write('et l
es chiffres seront affiches ensemble ou separement. ') gotoxy(10,16)write('L'
'exemple suivant liste les donnees de base du diagramme.') gotoxy(10,17)write
('En meme temps,un camembert est dessine, en arriere plan, sur ') gotoxy(10,1
8)write('le second ecran puis est copie sur graphiques') gotoxy(10,11)write(
'pourront etre realisees n''importe ou sur l''ecran et etre comprises,') goto
xy(10,12)write('dans une ou plusieurs fenetres,exactement de la meme facon')
gotoxy(10,13)write('alors les differentes operations pourront etre affichees sur
') gotoxy(10,14)write('l''ecran du facon simple et claire ') gotoxy(10,15)
write('Grace a ces commandes simples,les fenetres pourront etre mues sur') go
toxy(10,16)write('L''ecran,et etre imprimees dans la desiree.Cesle premier ecran
. ') gotoxy(20,24) waitreturn(60000.0) end overlay procedure BezierInf
o begin gotoxy(10,5)writeln('Utilisation de la fonction BEZIER pour dessiner
') gotoxy(3,8)write('Procedure bezier(parametre)') gotoxy(3,10)write('Cel
le-ci permet de lisser 2 objets dimensionnels a partir des') gotoxy(3,11)writ
e('points donnees par l''utilisateur.Elle peut etre aussi utilisee') gotoxy(3
,12)write('pour des courbes a large incurvation et faire correspondre des.')
dernieres') gotoxy(10,17)write('pourront etre stockees dans une page memoire,
qui est independante') gotoxy(10,18)write('de l''ecran ,et ainsi elles seront
rapidement restaurees n''importe') gotoxy(10,19)write('ou sur l''ecran.La ta
ille de la page memoire est limitee') gotoxy(10,20)write('par celle de la mem
oire physique.') gotoxy(31,25) waitreturn(60000.0) end overlay procedu
re SplineInfo begin gotoxy(20,5)writeln(' Utilisation des fonctions Spline')
gotoxy(10,10 PAFBGCHDIE gotoxy(3,13)write('polynomes incompatibles') got
oxy(3,14)write('L''exemple suivant dessinera 7 points (le carre) et leur fonctio
n') gotoxy(3,15)write('respective (ligne dessinee).Vous pouvez changer la pos
ition des ') gotoxy(3,16)write('points en entrant leur nombre (1 a 7) et leur
s nouvelles coordonnees') gotoxy(3,17)write('La procedure creera alors les fo
nctions respectives') gotoxy(3,18)write('Vous puvez quitter ce module en tapa
nt sur RETOUR vers le numero.') gotoxy(3,19)program ScreenIO $I typedef.sy
s ces fichiers doivent etre $I graphix.sys
inclus dans cet ordre $I kernel.sys $I kernel1.sys procedure Sier
pinski const n5 var i,h,x,y,x0,y0integer secboolean procedure plot
trace une ligne begin DrawLine(x,y,x0,y0) x0x y0y
end $A- procedure b(iinteger) forward forward references pour recursi
on procedure c(iinteger) forward write('du point en question.') gotoxy(2
0,25) waitreturn(60000.0) end overlay procedure PolygonInfo begin got
oxy(10,5)writeln('Possibilites de diagramme de polygone') gotoxy(3,8)write('C
ommande DrawPolygon(parametre)') gotoxy(3,10)write('Cette commande est utili
see pour dessiner les polygones.Celle-ci') gotoxy(3,11)write('relie le sommet
d''un polygone avec les differents types de lignes') gotoxy(3,12)write('marq
ue les coins avec differents symboles tel que les etoi procedure d(iinteger) for
ward procedure a(iinteger) premiere procedure recursive begin
if i0 then begin a(i-1) xx+h yy-h plot b(i-1)
xx+2*h plot d(i-1) xx+h yy+h plot a(i-1) end
end procedure b second procedure recursive begin
if i0 then begin b(i-1) xx-h yy-h plot c(i-1)
yy-2*h plot a(i-1) les,carres') gotoxy(3,13)write(', etc.,cr
ee des barres et plus encore.Au moyen de dessins repetes dans') gotoxy(3,14)w
rite('la meme fenetre,plusieurs polygones peuvent etre mis les uns sur les autre
s') gotoxy(3,15)write(Tout diagramme peut etre dessine avec ou sans coordonne
s ou texte.') gotoxy(3,16)write('Les exemples suivants ont ete crees avec la
procedure tout en faisant varier') ) gotoxy(3,17)write('le parametre.Grace a
la commande DrawAxis une presentation des axes ') got xx+h yy-h plo
t b(i-1) end end procedure c troisieme proce
dure recursive begin if i0 then begin c(i-1) xx-h yy+h
plot d(i-1) xx-2*h plot b(i-1) xx-h yy-h pl
ot c(i-1) end end procedure d derniere pro
cedure recursive begin if i0 then begin d(i-1) xx+h yy+h
plot a(i-1) yy+2*h oxy(3,18)write('incluant du texte a ete rendue
possible.Tapez sur RETOUR pour revenir') gotoxy(3,19)write('a l''interieur d
e ce module de demonstration') gotoxy(20,25) waitreturn(60000.0) end
tre dessine avec ou sans coordonnes ou texte.') gotoxy(3,16)write('Les exe
mples suivants ont ete crees avec la procedure tout en faisant varier') ) got
oxy(3,17)write('le parametre.Grace a la commande DrawAxis une presentation des a
xes ') got plot c(i-1) xx-h yy+h plot d(i-1)
end end $A+ procedure DoIt procedure principale
de sierpinski begin i3 h16 x030 y0240 repeat ii+1 x0x
0-h hh div 2 y0y0+h xx0 yy0 a(i-1) xx+h yy-h
plot b(i-1) xx-h yy-h plot c(i-1) xx-h y
y+h plot d(i-1) xx+h yy+h finished$ abandoned$and destinat
ion disc into drive B$Please$started$complete$Formatting whilst copying$$Please
insert destination disc into drive A $Do you want to check another disc (Y/N)$
Reading track $ Formatting track $ Checking track $ C...aborted$Bad format op
tion (you may only enter S, V, D or I)$Insufficient space in TPA$You must insert
tinto drive A$You must insert tinto drive B$You must$Tin drive B must be write-
enabled$Tis not a CP/M sy PAFBGCHDIE plot until in end begin sierpi
nski SetHeaderOn DefineWorld(1,-3,258,258,-3) SelectWorld(1) SelectW
indow(1) DrawBorder DoIt end begin InitGraphic
initialisation du graphisme DefineHeader(1,'DEMONSTRATION ECRAN SAU
VER ET LIRE SUR LE DISQUE') SetHeaderOn donnez lui
une en-tete Sierpinski fait une courbe SaveSc
reen('DEMO.PIC') sauve l''ecrforward procedure d(iinteger) for
ward procedure a(iinteger) begin if i0 then begin a(i-1) xx+
h yy-h plot b(i-1) xx+2*h plot d(i-1) xx+h
yy+h plot a(i-1) end end procedure b begin if i0 then
begin b(i-1) xx-h yy-h plot c(i-1) yy-2*h pl
ot a(i-1) xx+h yy-h plot b(i-1) end end procedur
e c begin if ian sur le disque ClearScreen vide
l''ecran Delay(1000) Retarde, soit le disque ou la
RAM disque afin que l''utilisateur pui
sse voir l''action LoadScreen('DEMO.PIC') Le retrouve sur le
disque repeat until keypressed attend jusqu'a ce que une touc
he soit frappee LeaveGraphic quitte le systeme graph
ique end. 0 then begin c(i-1) xx-h yy+h plot d(i
-1) xx-2*h plot b(i-1) xx-h yy-h plot c(i-1)
end end procedure d begin if i0 then begin d(i-1) xx+h
yy+h plot a(i-1) yy+2*h plot c(i-1) xx-h
yy+h plot d(i-1) end end $A+ procedure DoIt begin i3
h16 x030 y0240 repeat ii+1 x0x0-h program DrawCirc $I typ
edef.sys inclus les codes graphiques $I graphix.sys $I kernel
.sys $I kernel1.sys var iinteger AspectLoc,radreal begin InitGraphi
c initialise le systeme et l''ecran DefineWorld(1,0,1000
,1000,0) definit un monde a dessiner SelectWorld(1) Son cho
ix SelectWindow(1) DrawBorder rad1.5 initialis
e le radian AspectLocGetAspect sauve p hh div 2 y0y0+h
xx0 yy0 a(i-1) xx+h yy-h plot b(i-1) xx-h
yy-h plot c(i-1) xx-h yy+h plot d(i-1) xx+
h yy+h plot until in end begin SetHeaderOn DefineWorld(1,
-3,514,514,-3) SelectWorld(1) DefineWindowIBM(2,0,0,39,99) SelectWindow
(2) InvertWindow DefineWindowIBM(2,40,100,79,190) SelectWindow(2) In
vertWindow DefineWindowIar defaut le ratio SetAspect(0.2)
l''initialise pour cette routine for i1 to 15 do trace de cer
cles begin DrawCircle(500,500,rad) SetAspect(0.2+i/10) radrad-
0.05 end SetAspect(AspectLoc) restaure le ratio anterieur
repeat until keypressed attend jusqu''a une touche soit frappee Leave
Graphic end. BM(1,0,0,79,190) DefineHeader(1,'Une courbe de Sierpinski')
SelectWindow(1) DrawBorder gotoxy(1,25) write('L''ecran complet est la
fenetre actuelle.') secfalse DoIt gotoxy(57,25) waitreturn(15000)
DefineWindowIBM(1,20,40,59,159) RemoveHeader(1) SelectWindow(1) Set
Background(0) DrawBorder DefineWindowIBM(2,40,40,59,99) SelectWindow(2)
InvertWindow DefineWindowIBM(2,20,100,39,159) SelectWindow(2) Inver
tWindow SelectWindow(--------------------------------------------------------
-------------------- overlay procedure sier const n4 var i,h,x,y,x0,y0integ
er secboolean procedure plot begin if sec then SetColorWhite else Se
tColorBlack DrawLine(x,y,x0,y0) DrawLine(x+256,y+256,x0+256,y0+256) if
sec then SetColorBlack else SetColorWhite DrawLine(x+256,y,x0+256,y0) Draw
Line(x,y+256,x0,y0+256) x0x y0y end $A- procedure b(iinteger) forward
procedure c(iinteger) PAFBGCHDIE1) ClearEol(25) gotoxy(1,25) writ
e(' Les memes dessins dans une fenetre plus petite ') sectrue DoIt goto
xy(57,25) waitreturn(15000) ClearEol(25) gotoxy(1,25) write('L''ec
ran est sauve avec la procedure SaveScreen , ...') SaveScreen('TEST.PIC')
delay(1000) ClearScreen delay(1000) LoadScreen('TEST.PIC') ClearEol(
25) gotoxy(1,25) write('... et ramene.') gotoxy(57,25) waitreturn(15
000) DefineWorld(1,0,199,639,0) SelectWo gotoxy(40,8) write('Totaux en
pourcentage') for i1 to n do begin gotoxy(11,9+i) writeln(ai.t
ext,' ',ai.area32,' ',ai.area/sum*10032) end
msg(' Dessin en arriere plan SelectScreen') copyscreen SelectScreen(2
) ClearScreen SelectWindow(2) SetBackground(0) DrawBorder a1.are
a-a1.area xDrawCartPie(300,100,390,73,1.05,1.5,a,n,2,2) ResetWindowStack
StoreWindow(2) selectScreen(2) crld(1) SelectWindow(1) SetColorWhi
te end toxy(57,25) waitreturn(15000) ClearEol(25) gotoxy(1,25)
write('L''ecran est sauve avec la procedure SaveScreen , ...') SaveScreen('T
EST.PIC') delay(1000) ClearScreen delay(1000) LoadScreen('TEST.PIC')
ClearEol(25) gotoxy(1,25) write('... et ramene.') gotoxy(57,25)
waitreturn(15000) DefineWorld(1,0,199,639,0) SelectWoopyscreen SelectSc
reen(1) RestoreWindow(2,0,0) delay(15000) CopyScreen msg('Les va
riations d''un histogramme DrawCartPie') SetColorBlack SelectWindow(3)
SetBackground(255) DrawBorder a4.area-a4.area xDrawCartPie(320,100,4
37,73,1.05,1.6,a,n,1,1) a4.area-a4.area MoveVerIBM(-32,true) MoveHorIBM
(-26,true) CopyScreen delay(1000) SelectWindow(4) SetBackground(25
5) DrawBorder xDrawCartPie(320,100,437,73,0.75,1.5,a!%L $#$!!9 L $!"F#V#N#
!"!#c O!ORADCSF+V!"!"!#4ogw#q7U!"ToO!"1!"1!#7T+xGw#E572"2"2#G##y7c !PTV !TW7!y$F
#N# !%L !RA,n,1,1) MoveVerIBM(-44,true) MoveHorIBM(19,true) delay(1000
) CopyScreen SelectWindow(5) SetBackground(255) DrawBorder xDra
wCartPie(320,100,437,100,0.7,1.4,a,n,2,1) MoveVerIBM(30,true) MoveHorIBM(-
18,true) delay(1000) SelectWindow(6) SetBackground(255) DrawBorder
xDrawCartPie(320,100,482,73,1,1.5,a,n,0,1) delay(1000) delay(15000)
RestoreWindow(2,0,0) delay(15000) SetColorWhite end var sumreal
i,j,ninteger aPieArray begin ClearScreen SetColorWhite
DefineWindowIBM(1,0,0,79,185) DefineWindowIBM(2,20,20,77,180) DefineWindow
IBM(3,28,60,59,160) DefineWindowIBM(4,28,60,59,150) DefineWindowIBM(5,28,6
0,59,150) DefineWindowIBM(6,28,60,59,150) DefineHeader(1,'Les applicatio
ns avec camembert') DefineHeader(2,'Volumee des ventes') DefineHeader(3,'A
vec texte') DefineHeader(4,'Avec texte') DefineHeader(5,'Avec texte et nom
breal command buffer$** Sign-on string empty$Sign-on string$Enter new sign-on st
ring$** Printer power-up string empty$Printer power-up string$Enter new printer
power-up string$No keyboard translations set$Keyboard translationsKey code No
rmal Shift Control$ $ $ - $Enter re
quired command from- A - Add key translation (key number, normal, shift, co
ntrol) D - Delete key translation (key number) C - Clear all translats
') DefineHeader(6,'Sans texte') a1.area25 a1.text'JAN. ' a2.area17
.5 a2.text'FEV. ' a3.area9.6 a3.text'MAR. ' a4.area21 a4.text'AVR
. ' a5.area35 a5.text'MAI ' n5 sum0 for i1 to n do begin
ai.areaai.area+5.35 sumsum+ai.area end SelectWindow(1)
DrawBorder gotoxy(24,5) writeln('Ventes 1985') gotoxy(5,8) write(
'Totals in $ (x 1,000,000)') PAFBGCHDIEvar x,tempreal m,dx,dy,i,j,n,li
nes,scaleinteger X1,Y1,X2,Y2integer b,aPlotArray begin ClearScreen
SetColorWhite gotoxy(50,25) write('Un moment ....') dx-8 dy7
X13 Y15 X225 Y210 lines0 scale0 n12 m50 x-49 Defin
eWindowIBM(1,0,0,79,185) DefineWindowIBM(2,30,20,70,164) DefineHeader(1,
Interpolation Spline') DefineHeader(2,'Une variation d''un diagramme')
x-49 for i1 to n dnslation table full$Key numbers must be in the range 0 to 7
9$Key codes must be in the range 0 to 255$Keyboard expansion buffer full$Keyboar
d expansion buffer empty$Key tokens must be in the range 0 to 31$CON may only be
assigned to TTY, CRT, BAT or UC1$RDR may only be assigned to TTY, PTR, UR1 or U
R2$PUN may only be assigned to TTY, PTP, UP1 or UP2$LST may only be assigned to
TTY, CRT, LPT or UL1$Invalid command (you may only specify CON, RDR, PUN oo
begin ai,1i-1 ai,2random-0.5 xx+7 end xspline(a,
n,a2,1,an-1,1,b,m) FindWorld(1,b,m,1,1.08) SelectWindow(1) ClearEol(2
5) gotoxy(10,25) write('L''information de la donnee') FindWorld(1,b,m,1
,1.08) SelectWindow(1) DrawBorder xDrawAxis(dx,dy,X1,Y1,X2,Y2,lines,sca
le,false) SetLineStyle(1) xDrawPolygon(a,2,n-1,7,2,0) SetLineStyle(0)
SelectIBM DrawTextW(470,70,1,'72 La donnee') DrawTextW(470,9program Dr
awHatch $I typedef.sys inclus les codes graphiques $I graph
ix.sys $I kernel.sys $I kernel1.sys $I hatch.hgh var iinteger x1,x2,y1
,y2,tempreal begin InitGraphic initialise le systeme e
t l''ecran DefineWorld(1,0,1000,1000,0) definit un monde a dessiner
SelectWorld(1) son choix SelectWindow(1) DrawBorder f
or i1 to 5 do dessine aleatoirement des boites avec des 0,1,'--
Les valeurs interpolees') gotoxy(50,25) SelectWorld(1) SelectWindow(1)
waitreturn(15000) ClearEol(25) gotoxy(10,25) write('L'interpolat
ion de. la fonction spline') xDrawAxis(0,0,X1,Y1,X2,Y2,0,0,false) xDrawPol
ygon(b,1,-m,0,0,0) CopyScreen gotoxy(50,25) waitreturn(15000) Cl
earEol(25) gotoxy(10,25) write('Coordonnees verticales echangees') with
world1 do begin tempy1 y1y2 y2temp end SelectWorhachu
rage begin x1100+random(800) x2100+random(800) y1100+random(80
0) y2100+random(800) if x1x2 then permute x's
begin tempx1 x1x2 x2temp end if y1y2 then
permute y's begin tempy1 y1y2 y2temp
end DrawSquare(x1,y1,x2,y2,false) trace un carre hatch(x
1,y1,x2,y2,random(22)-11) le hachure end repeatld(1) SelectWind
ow(2) SetBackground(255) SetColorBlack DrawBorder xDrawAxis(abs(dx),
abs(dy),0,0,0,0,0,0,false) xDrawPolygon(a,2,n-1,-2,2,-1) xDrawAxis(0,0,0,0
,0,0,0,0,false) xDrawPolygon(b,1,-m,0,0,0) SetColorWhite gotoxy(50,25)
waitreturn(15000) ClearEol(25) gotoxy(10,25) write('Deplacement d'
'une fenetre') MoveVerIBM(-15,true) MoveHorIBM(-30,true) MoveVerIBM(35,
true) MoveHorIBM(35,true) MoveVerIBM(-5,true) MoveHorIBM(-5,true until
keypressed attend jusqu''a une touche soit frappee LeaveGraphic end.
if x1x2 then permute x's begin tempx1 x
1x2 x2temp end if y1y2 then permute y's
begin tempy1 y1y2 y2temp end DrawSquare(x1,y
1,x2,y2,false) trace un carre hatch(x1,y1,x2,y2,random(22)-11)
le hachure end repeat) gotoxy(50,25) waitreturn(15000) Cle
arEol(25) gotoxy(10,25) write('Inversion d''une fenetre') InvertWindow
SetColorWhite gotoxy(50,25) waitreturn(15000) SelectScreen(2) C
learEol(25) gotoxy(10,25) write('La reconstruction du premier chiffre')
CopyScreen SelectScreen(1) gotoxy(50,25) waitreturn(15000) end P
AFBGCHDIEO*lV y4!N#FyAZZZz!m£m#x7$%&'(!G# S#!F#######F#NSAVADI'.!JNGY7G1UWbsaGx1
2kJi#6!*G#$#$+#$program ExamplePoint $I typedef.sys inclus un systeme
independant de definitions types $I graphix.sys inclus un systeme depe
ndant de defs et de routines $I kernel.sys inclus un systeme independa
nt de routines de support $I kernel1.sys inclus un systeme independant
de routtines de support begin InitGraphic initialise le
s graphismes DrawBorder DrawPoint(100,100) trace le point
repeat until Keypresseprogram DrawLines $I typedef.sys in
clus les codes graphiques $I graphix.sys $I kernel.sys $I kernel1.sys var
iinteger begin InitGraphic initialise le systeme et l''
ecran DefineWorld(1,0,1000,1000,0) definit un monde a dessiner Selec
tWorld(1) son choix SelectWindow(1) SetBackground(0)
DrawBorder for i1 to 20 do DrawLine(i*50,0,1000-i*50,i*50) repeat unti
l keypressed attendd attend jusqu''a ce qu''une soit frappee Leav
eGraphic quitte les graphismes end. inclus un systeme depen
dant de defs et de routines $I kernel.sys inclus un systeme independan
t de routines de support $I kernel1.sys inclus un systeme independant d
e routtines de support begin InitGraphic initialise les
graphismes DrawBorder DrawPoint(100,100) trace le point
repeat until Keypresse jusqu''a une touche soit frappee LeaveGraphic end.
ernel1.sys var iinteger begin InitGraphic initialise
le systeme et l''ecran DefineWorld(1,0,1000,1000,0) definit un monde a
dessiner SelectWorld(1) son choix SelectWindow(1) Se
tBackground(0) DrawBorder for i1 to 20 do DrawLine(i*50,0,1000-i*50,i*50
) repeat until keypressed attendprogram DrawPoints $I typedef.sys
inclus les codes graphiques $I graphix.sys $I kernel.sys $I ker
nel1.sys var iinteger begin InitGraphic initialise le sy
steme et l''ecran DrawBorder for i1 to 1000 do dessine aleatoire
ment 1000 points sur ecran format IBM DrawPoint(random(639),random(199))
repeat until keypressed attend jusqu''a ce qu''une touche soit frappee
LeaveGraphic end. program DrawLine $I typedef.sys inclus le
s graphiques $I graphix.sys $I kernel.sys $I kernel1.sys var iinteger
begin InitGraphic initialise les graphiques DrawBorder
DefineWorld(1,0,1000,1000,0) definit un monde a dessiner SelectWorld(1)
SelectWindow(1) DrawLine(0,1000,1000,0) trace la ligne repeat
until keypressed attend jusqu''a ce q'' une touche soit frappee LeaveGra
phic qufy 0 or 1)$Program error Cassette stream not open$CP/M fi
le does not exist$Failed to rename temporary file$F###t7OF####7#foyOF####z#+#7#f
oyd CP/M filename$Cannot read protected cassette files$Program error Cassette st
ream in use$** Break **$CP/M file already exists$Disc directory full$Disc or dir
ectory full$Failed to close CP/M file correctly$Invalid speed setting (you may o
nly speciitte le graphisme end. s var iinteger begin InitGraphic
initialise les graphiques DrawBorder DefineWorld(1,0,1000,
1000,0) definit un monde a dessiner SelectWorld(1) SelectWindow(1) D
rawLine(0,1000,1000,0) trace la ligne repeat until keypressed att
end jusqu''a ce q'' une touche soit frappee LeaveGraphic qu
PAFBGCHDIEprogram DrawSquares $I typedef.sys inclus les code
s graphiques $I graphix.sys $I kernel.sys $I kernel1.sys var iinteger b
egin InitGraphic initialise le systeme et l''ecran De
fineWorld(1,0,1000,1000,0) definit un monde a dessiner SelectWorld(1)
son choix SelectWindow(1) DrawBorder for i1 to 20 do DrawS
quare(500-i*25,500-i*25,500+i*25,500+i*25,false) repeat until keypressed
attend j texte writeln('* - Ca sera au centre de l''ecran ') deux ligne
s de texte write('Ca sera la prochaine ligne') CharWidthMaxWorldX/80
calcule la largeur du caractere CharHeightMaxWorldY/25 calcule la haute
ur du caractere DrawSquare(9*CharWidth,7*CharHeight, trace une boite 10
,8 (22*CharWidth)+2,(8*CharHeight)+2,true) GotoXY(10,8)
ecrit le texte dedans write('Texte dans une boite') repeat un
til keypressed usqu''a une touche soit frappee LeaveGraphic end. kernel
1.sys var iinteger begin InitGraphic initialise le s
ysteme et l''ecran DefineWorld(1,0,1000,1000,0) definit un monde a dessin
er SelectWorld(1) son choix SelectWindow(1) DrawBorder
for i1 to 20 do DrawSquare(500-i*25,500-i*25,500+i*25,500+i*25,false)
repeat until keypressed attend j attend jusqu''a une touche soit frappee
LeaveGraphic quitte le graphisme end.CharWidthMaxWorldX/80
calcule la largeur du caractere CharHeightMaxWorldY/25 calcule la hau
teur du caractere DrawSquare(9*CharWidth,7*CharHeight, trace une boite
10,8 (22*CharWidth)+2,(8*CharHeight)+2,true) GotoXY(10,8)
ecrit le texte dedans write('Texte dans une boite') repeat
until keypressed program simple $I typedef.sys ces
fichiers doivent etre $I graphix.sys inclus dans cet ordr
e $I kernel.sys $I kernel1.sys begin InitGraphic
initialise les graphismes DrawBorder trace
une bordure autour du dessin aire de la
fenetre primaire (les dimensions de la f
enetre primaire par defaut a 640x200 po
ints) DrawLine(10,10,600,180) trace une ligne DrawSquare(1
0,10,600,180,false) trace un carre DrawLine(-100,-20,750,320)
trace une ligne pour demontrer repeat until keypressed gele l
''ecran jusqu''a ce une touche soit frappee LeaveGraphic
quitte les graphismes end. program MultipleWindows $I typedef.sys
Ces fichiers doivent etre $I graphix.sys inclus dans cet
ordre $I kernel.sys $I kernel1.sys var i integer procedure DrawLines va
r iinteger begin for i1 to 20 do DrawLine(i*50,0,1000-i*50,i*50) end b
egin InitGraphic initialise les graphismes DrawBorder
trace une bordure autour du dessin
aire de la fenetre primaire program DrawStandardText $I typedef.sys
inclus les graphismes $I graphix.sys $I kernel.sys $I kernel
1.sys const MaxWorldX real1000.0 MaxWorldY real1000.0 var iinteger
CharHeight,CharWidthreal begin InitGraphic initialis
e les graphismes DefineWorld(1,0,MaxWorldX,MaxWorldX,0) definit un monde a
dessiner SelectWorld(1) SelectWindow(1) DrawBorder GotoXY(39,12)
va au centre de l''ecran PAFBGCHDIE (les dim
ensions de la fenetre primaire dimensions par defa
ut de l''ecran) DefineWindow(1,trunc(XMaxGlb/10),trunc(YMaxGlb/10),
trunc(XMaxGlb/2),trunc(YMaxGlb/2)) definit
une fenetre d''une dizaine de facons depuis en hau
t a gauche, ou du milieu depuis en bas a droite
DefineHeader(1,'CECI EST UN MONDE PLUS GRAND') donne une entete program Bezi
Demo $I typedef.sys ces fichiers doivent etre $I graph
ix.sys inclus dans cet ordre $I kernel.sys $I kernel1.sy
s $I windows.sys $I axis.hgh $I polygon.hgh $I bezier.hgh procedure Cle
arToEol proc pour vider la fin de la ligne var i integer be
gin for i1 to 80 do write(' ') end procedure BezierDem var result,
i,MaxControlPoints,MaxIntPointsinteger dummyx,dummyyreal DefineWorld(1,0
,2000,2000,0) donne des coordonnees systemes plus grandes DefineWindow(2,
trunc(XMaxGlb/3),trunc(YMaxGlb/3), trunc((XMaxGlb*2)/3),trunc((Y
MaxGlb*2)/3)) definit une fenetre d''une des trois
facons depuis en haut a gauchei
depuis en bas a droite DefineHeader(2,'CECI EST MONDE CORRECTE')
donne une entete DefineWorld(2,0,1000,1000,0) donne les coordonnees systeme
du a,bPlotArray breakboolean DummyS,Temp2,Tempwrkstring begin
MaxControlPoints7 initialise tout MaxIntPoints15 a1,11a2,
11.5a3,12a4,12.5a5,13a6,14a7,15 a1,22a2,21.5a3,21a4,22.5a5,24a6,24.5a7,25
ClearScreen mise en place de l''ecran SetColorWhite
DefineWorld(1,0,7.0,6.33,0) definit si les regles sont justes Sel
ectWorld(1) DefineW monde correcte DefineWindow(3,trunc(XMaxGlb/2),trunc
(YMaxGlb/2), trunc((XMaxGlb*9)/10),trunc((YMaxGlb*9)/10)) Def
ineHeader(3,'CECI EST UN MONDE PLUS PETIT') donne une entete DefineWorld(3,0,
500,500,0) donne les coordonnees systemes d''un monde plus petit for i1 to 3
do begin SelectWindow(i) son choix SetHeaderOn SelectWor
ld(i) son choix SetBackground(0) donne l''arriere plan
DrawBorder trace indow(1,0,0,XMaxGlb,17*YMaxGlb div 20) Select
Window(1) SetBackground(0) DrawBorder DrawAxis(7,-7,0,0,0,0,0,0,false)
breakfalse repeat SetLinestyle(1) trace un poly
gone entre des points DrawAxis(0,0,0,0,0,0,0,0,false) aligne ce dernier (
pas de texte) DrawPolygon(a,1,MaxControlPoints,4,2,0) bezier(a,MaxCo
ntrolPoints,b,MaxIntPoints) fait les operations de Bezier SetLinestyle(0
) les traces DrawAxiune bordure DrawLines
trace des lignes end repeat until keypressed attend jusqu''a une
touche soit frapee LeaveGraphic quitte les graphismes end.
s systemes d''un monde plus petit for i1 to 3 do begin SelectWindow(
i) son choix SetHeaderOn SelectWorld(i) son choix
SetBackground(0) donne l''arriere plan DrawBorder tra
ce s(0,0,0,0,0,0,0,0,false) DrawPolygon(b,1,MaxIntPoints,0,0,0) repe
at gotoxy(1,24) vide l''ancien texte ClearToEol
gotoxy(1,25) ClearToEol gotoxy(1,23) ClearToEol
gotoxy(1,23) point a changer write('Entrer le nomb
re de points a changer ') gotoxy(43,23) read(Temp) val(Te
mp,i,result) until i in 0..MaxControlPoints if i0 then begin
repe&nTV/VNFnf ( y!/&jDJ)))))K'''&oT##Awp/###P).0P Are you using a Gr
een Screen Press Y or N - Q*q.yY5 (5(4(3210(/(.(-(,(+((*()(((('(&(%($(#("P!( (((
(((((((((((((( ((((/'OGwoLGHogg'48WAmsoft Presents PAFBGCHDIEat got
oxy(1,24) nouvelles valeurs pour x et y write('Old po
sition ',ai,142,',',ai,242,'') gotoxy(40,24)write(' Nouvelle posit
ion x ') gotoxy(60,24) read(DummyS) while Dum
myS1' ' do delete(DummyS,1,1) TempDummyS gotoxy(40,25)writ
e(' Nouvelle position y ') gotoxy(60,25) read(DummyS)
while DummyS1' ' do delete(DummyS,1,1) end else begi
n DrawLine(X2+5,Y2-2,X2,Y2) DrawLine(X2+5,Y2+2,X2,Y2) end end
procedure DrawArrowVer(X1,Y1,X2,Y2integer) trace une fleche verticale begin
DrawLine(X1,Y1,X2,Y2) if Y2Y1 then begin DrawLine(X2-2,Y2-3,X2,Y
2) DrawLine(X2+2,Y2-3,X2,Y2) end else begin DrawLine(X2-2,Y
2+3,X2,Y2) DrawLine(X2+2,Y2+3,X2,Y2) end end procedure Blink(Coun
t,timeinteger) blanchit la fenetre courante var iinteger be Temp2Dumm
ySval(Temp,dummyx,result)val(Temp2,dummyy,result) until ((dummyxX1WldGl
b) and (dummyxX2WldGlb)) and ((dummyyY1WldGlb) and (dummyyY2WldGlb))
SetLinestyle(1) ne trace pas l''ancienne courbe SetColorB
lack DrawAxis(0,0,0,0,0,0,0,0,false) DrawPolygon(a,1,MaxContro
lPoints,4,2,0) SetLinestyle(0) DrawAxis(0,0,0,0,0,0,0,0,false)
DrawPolygon(b,1,MaxIntPoints,0,0,0) ai,1dummyxai,2gin for i1
to Count do begin Delay(time) InvertWindow end end begin F
lowChartDemo DefineWindow(1,0,0,79,185) definit la fenetre de l
''ORGANIGRAMME DefineWindow(2,12,20,25,40) definit la fenetre de
DEBUT DefineWindow(3,15,55,22,75) definit la fenetre 'I1' De
fineWindow(4,11,110,26,130) definit la fenetre 'IF I5' DefineWindo
w(5,47,90,56,110) definit la fenetre 'II+1' ClearScreen dummyy
SetColorWhite end else breaktrue fait u
ntil break end begin InitGraphic initialise
les graphismes BezierDem fait la demo LeaveGr
aphic quitte le graphisme end. yle(0) Dr
awAxis(0,0,0,0,0,0,0,0,false) DrawPolygon(b,1,MaxIntPoints,0,0,0)
ai,1dummyxai,2 trace une fenetre entouree Set
ColorWhite DefineHeader(1,'UN ORGANIGRAMME') SetHeaderOn SelectWindow(1
) DrawBorder SetHeaderOff SelectWindow(2) tr
ace la fenetre de DEBUT DrawBorder DrawText(125,27,2,'DEBUT') SetWindow
ModeOff DrawArrowVer(151,40,151,55) trace les lignes a relier
SetWindowModeOn SelectWindow(3) trace la fenetre
'I1' DrawBorder Draw#wwwww!!%w''(w" Jenny Goes Spinning #'#Wgw#g$w # W W
# Wxxxxxx # Missile Silo #47 '# #x # #k#WW !#%Wk!xW ##WText(136,63,2,'I1')
SetWindowModeOff DrawArrowVer(151,75,151,110) trace la ligne a
relier SetWindowModeOn SelectWindow(4) trace l
a fenetre 'IF I5' DrawBorder DrawText(108,118,2,'IF I5') DrawStraight(2
15,417,120) trace la ligne a relier SetWindowModeOff DrawAr
rowVer(417,120,417,110) DrawArrowVer(151,130,151,155) SetWindowModeOn S
electWindow(1) DrawText(300,110,2,'OUI') DrawText(160,137,2,'program FlowD
emo $I typedef.sys Ces fichiers doivent etre $I
graphix.sys inclus dans cet ordre $I kernel.sys $I
kernel1.sys $I windows.sys procedure FlowChartDemo var X1,Y1,X2,Y2,i,Cou
ntinteger Tempwrkstring procedure DrawArrowHor(X1,Y1,X2,Y2integer) tra
ce une fleche horizontale begin DrawLine(X1,Y1,X2,Y2) if X2X1 then
begin DrawLine(X2-4,Y2-2,X2,Y2) DrawLine(X2-4,Y2+2,X2,Y2) PAFBGCH
DIENON') SelectWindow(5) trace la fenetre 'II+1'
DrawBorder DrawText(390,98,2,'II+1') SetWindowModeOff DrawLine(417,90
,417,80) trace les lignes a relier DrawArrowHor(417,80,151,8
0) SetAspect(1.0) trace FIN du cercle DrawCirc
le(151,165,25) SelectWindow(1) DrawText(137,163,2,'FIN') SetWindowModeO
n SetHeaderOn CopyScreen fait une image de
l''ecran program MovePolygon $I typedef.sys Ces fichi
ers doivent etre $I graphix.sys inclus dans cet ordre $I
kernel.sys $I kernel1.sys $I windows.sys $I polygon.hgh $I modpoly.hgh v
ar ArrowAngle integer Ch char Arrow PlotArray CurrX,CurrY,IncrX,Incr
Y,Size,Speed real ArrowIncr array0..7,1..2 of real procedure MakeArrow
begin initialisation d''un tableau de fleches
Arrow sur la RAM ecran ClearEol
(25) gotoxy(27,25) DefineWindow(2,15,21,22,39) definit la f
enetre a enlever SelectWindow(2) SetBackground(0) DrawBorder InvertW
indow Delay(1000) InvertWindow Temp'123456'
initialise le numero du tableau MoveVer(35,true) enlev
er la fenetre DrawText(139,63,2,'I'+Temp1) l'initialise Blink(30,5
0) Mo1,10 Arrow1,20 Arrow2,1Size Arrow2,2-Size Arrow3,10 Arrow
3,2Size Arrow4,1-Size Arrow4,2-Size Arrow5,10 Arrow5,20 end proc
edure MakeMoveTable begin ArrowIncr0,10 ArrowIncr0,21 ArrowIncr1,1-1
ArrowIncr1,21 ArrowIncr2,1-1 ArrowIncr2,20 ArrowIncr3,1-1 ArrowInc
r3,2-1 ArrowIncr4,10 ArrowIncr4,2-1 ArrowIncr5,11 ArrowIncr5,2-1
ArrowIncrveVer(55,true) transfert for Count2 to 6 do
incrementation begin Delay(500) MoveHor(
33,true) MoveVer(-20,true) SetBackground(0) DrawBorder
DrawText(400,98,2,'I'+TempCount) Blink(30,50) MoveVer(-20,true)
MoveHor(-33,true) MoveVer(40,true) end InvertWindow
Delay(1000) MoveVer(46,true) jusqu''a la fin Blink(
30,50) Mo6,11 ArrowIncr6,20 ArrowIncr7,11 ArrowIncr7,21 end pr
ocedure MoveForward routine pour mouvoir les polygones begin
SetColorBlack trace sur l'ancien polygone et l''ecrase D
rawPolygon(Arrow,1,-5,0,0,0) CurrXCurrX+IncrX nouvelle positi
on CurrYCurrY+IncrY TranslatePolygon(Arrow,5,IncrX,IncrY) SetColorWhite
trace un plygone a la nouvelle position DrawPolygon(Arr
ow,1,-veHor(45,true) recopie le haut MoveVer(-136,true
) MoveHor(-45,true) SetHeaderOn end begin InitGraphic
initialise les graphismes FlowChartDemo
fait la demo repeat until keypressed attend jusqu
''a ce qu''une touche soit frappee LeaveGraphic q
uitte le graphisme end. 5,0,0,0) end procedure MoveBack
routine pour restaurer un polygone begin SetColorBlack
meme qu''au dessus DrawPolygon(Arrow,1,-5,0,0,0) CurrXCurrX-IncrX C
urrYCurrY-IncrY TranslatePolygon(Arrow,5,-IncrX,-IncrY) SetColorWhite D
rawPolygon(Arrow,1,-5,0,0,0) end procedure TurnLeft rotat
ion dans le sens des aiguilles d''une montre begin SetColorBlack
ne trace pas de l'ancien po Njorl's Castle (u' ' ''' '' ''' '& '
%'$xG G '' ## ####"#%###$ ## xx ' ' # #' Where Eagles Dare $W WWWW! WWWWW WWW
WW%g#g!g$ %&g PAFBGCHDIElygone DrawPolygon(Arrow,1,-5,0,0,0) RotatePolygo
n(Arrow,5,45) rotatation a 45 degres ArrowAngleArrowAngle+1 if A
rrowAngle7 then ArrowAngle0 IncrXSpeed * ArrowIncrArrowAngle,1 nouvelle velo
cite IncrySpeed * ArrowIncrArrowAngle,2 SetColorWhite
trace un polygone ayant fait sa rotatiom DrawPolygon(Arrow,1,-5,0,0,0) end
procedure TurnRight rotation dans le sens des aiguilles d'
'une montre begin Sete (les dimensions de la f
enetre primaire par defaut celles de l''ecran D
efineWindow(1,trunc(XMaxGlb/10),trunc(YMaxGlb/10), trunc(XMaxGlb
/2),trunc(YMaxGlb/2)) DefineHeader(1'C'EST UNE FENETRE FIXE') donne une entet
e DefineWorld(1,0,1000,1000,0) donne un monde en coordonnees systemes
DefineWindow(2,trunc(XMaxGlb/2),trunc(YMaxGlb/2), trunc((XMaxGlb
*9)/10),trunc((YMaxGlb*9)/10)) DefineHeadColorBlack mem
e qu''au dessus DrawPolygon(Arrow,1,-5,0,0,0) RotatePolygon(Arrow,5,-45)
ArrowAngleArrowAngle-1 if ArrowAngle0 then ArrowAngle7 IncrXSpeed * Arro
wIncrArrowAngle,1 IncrySpeed * ArrowIncrArrowAngle,2 SetColorWhite Draw
Polygon(Arrow,1,-5,0,0,0) end begin InitGraphic
initialise les graphismes DefineWindow(1,0,0,XMaxGlb,YMaxGlb) DefineWor
ld(1,-1000,1000,1000,-1000) donne un monde der(2'C'EST UNE FENETRE AMOVIBLE) do
nne une entete DefineWorld(2,0,1000,1000,0) donne un monde en coordonnees sys
teme SelectWindow(1) choisit la fenetre fixe SetHeaderOn Select
World(1) choisit son monde SetBackground(0) arriere pla
n noir DrawBorder trace une fenetre DrawLines
dessine une ligne dessus CopyScreen la copie dans l''ecran
virtuel SetBreakOff erreur See coordonnees systeme Select
World(1) choisit ce monde SelectWindow(1)
choisit une fenetre SetBackground(0) donne un arri
ere plan noir Size100 Speed30 CurrX0 CurrY0 ArrowAngle0 IncrX0 IncrYSpe
ed MakeArrow fait la fleche de tete MakeMoveTabl
e fait une table DrawPolygon(Arrow,1,5,0,0,0)
trace les fleches repeat read(KbtMessageOff SelectWindow(2)
choisit une fenetre amovible SetHeaderOn SelectWorld(2) chois
it son monde SetBackground(0) arriere plan noir DrawBorder
trace une fenetre DrawLines trace des lignes dessus
repeat read(Kbd,Ch) lit le clavier case ord(Ch) of
72 MoveVer(-4,true) fleche haut 75 MoveHor(-1,true) fleche gauche
77 MoveHor(1,true) fleche droite d,Ch) lit le clavie
r case ord(Ch) of 72 MoveForward fleche haut 75
TurnLeft fleche gauche 77 TurnRight
fleche droite 80 MoveBack fleche bas end until Ch
' ' 'espace' sort du programme LeaveGraphic
quitte les graphismes end. 80 MoveVer(4,true) flech
e bas end until Ch' ' espace pour sortir du programme Leav
eGraphic quitte les graphismes end. trace des
lignes dessus repeat read(Kbd,Ch) lit le clavier case ord(
Ch) of 72 MoveVer(-4,true) fleche haut 75 MoveHor(-1,true) flech
e gauche 77 MoveHor(1,true) fleche droite program MoveWindows $I ty
pedef.sys Ces fichiers doivent etre $I graphix.sys incl
us dans cet ordre $I kernel.sys $I kernel1.sys $I windows.sys var i intege
r Ch char procedure DrawLines var iinteger begin for i1 to 20 do Dra
wLine(i*50,0,1000-i*50,i*50) end begin InitGraphic init
ialise DrawBorder trace une bordure autour du dessin
aire de la fenetre primair PAFBGCHDIEww2"ww6"wwr*ww##L
WW*$#,WWKd0WW1www$wv2zz(Mww H g#N&#J&zCwwN&WW$f ,V.w hwwxh094h94wwLwfWWc$4QHQ"WW
GLWW8WWW!#W!#%#%"W#8"#W 77program OneAxis $I typedef.sys
these files must be $I graphix.sys included and in this or
der $I kernel.sys $I kernel1.sys $I windows.sys $I axis.hgh procedure O
neAxisDem begin ClearScreen init screen SetColor
White SetBackground(0) DefineHeader(1,'LABELED AXES') define the wind
ow SetHeaderOn DefineWorld(1,-10,10,10,-10) SelectWindow(1) SelectWo
rld(1) DrawBorder program OnePolygon $I typedef.sys
ces fichiers doivent etre $I graphix.sys inclu
s dans cet ordre $I kernel.sys $I kernel1.sys $I windows.sys $I polygon.hgh
procedure PolygonDem var ninteger b,aPlotArray chchar x1,x2
integer procedure GenerateFunction(var a,bPlotArrayninteger) var iinteger
genere un polygone deltareal begin delta2*p
i/(n-1) for i1 t draw it DrawAxis(8,-7,0,0,0,0,0,0,tru
e) draw coordinate axis end begin InitGraphic
initialize the graphics system OneAxisDem do t
he demo repeat until keypressed wait until a key is pressed L
eaveGraphic leave the graphics system end. o n do
begin ai,1(i-1)*delta-pi ai,2sin(ai,1) end end beg
in ClearScreen n30 GenerateFunction(a,b,n) generation d
u polygone DefineWindow(1,0,0,XMaxGlb,YMaxGlb) DefineHeader(1,'COURBE SI
NUOSIDALE') mise en place de l''ecran DefineWorld(1,-pi,1,pi,-1) Select
World(1) SelectWindow(1) SetBackground(0) SetHeaderOn DrawBorder
DrawPolygon(a,1,n,0,0,0) trace le polygone end program On
ePolygon $I typedef.sys ces fichiers doivent etre $I
graphix.sys inclus dans cet ordre $I kernel.sys $I ke
rnel1.sys $I windows.sys $I axis.hgh $I polygon.hgh procedure PolygonDem
var ninteger b,aPlotArray chchar x1,x2integer procedure Gene
rateFunction(var a,bPlotArrayninteger) var iinteger
genere un ploygone deltareal begin delta2*pi/(n-1) begin InitGra
phic initialise les graphismes PolygonDem
fait la demo repeat until keypressed at
tend jusqu''a ce qu''une touche soit frappee LeaveGraphic
quitte le graphisme end. SetBackground(0) SetHeaderOn Draw
Border DrawPolygon(a,1,n,0,0,0) trace le polygone end
for i1 to n do begin ai,1(i-1)*delta-pi ai,2sin(ai,1)
end end begin ClearScreen n30 GenerateFunction(a,b,n)
generation du polygone DefineWindow(1,0,0,XMaxGlb,YMaxGlb) Defin
eHeader(1,'COURBE SINUOSIDALE COMME UN POLYGONE') mise en place de l''ecran
DefineWorld(1,-pi,1,pi,-1) SelectWorld(1) SelectWindow(1) SetBackgrou
nd(0) SetHeaderOn DrawBorder DrawAxis(8,-8,0,0,0,0,0,0,false) Ii(
((((Ii(((IiAA((Ii((((AAi,(AAA(A((((i,(Af33f3 PAFBGCHDIE trace les axes Dra
wPolygon(a,1,n,0,0,0) trace le polygone end begin Init
Graphic initialise les graphismes PolygonDem
fait la demo repeat until keypressed
attend jusqu''a ce que une touche soit frappee LeaveGraphic
leave the graphics system end. ai+1,2random end SetCo
lorWhite mise en place des barres SetBackground(0) Set
HeaderOn DefineWindow(1,0,0,XMaxGlb,YMaxGlb) DefineHeader(1,'HISTOGRAMME H
ACHURE ALEATOIREMENT') DefineWorld(1,-10,1.0,10,0) SelectWorld(1) Selec
tWindow(1) DrawBorder trace la fentre Hatchtru
e desactive le hachurage HatchDen7 DrawHistogram(
a,-DisplyLen,Hatch,HatchDen) trace l''organigramm33"b3w333"TTTTTTTTTTTTTTTTTTT
TTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTUTTTT3333333333IQIQe end begin I
nitGraphic initialise les graphismes HistoDem
fait la demo repeat until keypressed attend jusq
u''a ce qu''une touche soit frappee LeaveGraphic quitte
le graphisme end. desactive le hachurage HatchDen7
DrawHistogram(a,-DisplyLen,Hatch,HatchDen) trace l''organigrammprogram Simple
Window $I typedef.sys ces fichiers doivent etre $I graphix.sys
inclus dans cet ordre $I kernel.sys $I kernel1.sys $I windows.sys
begin InitGraphic initialise les graphismes Draw
Border trace une bordure autour du dessin
aire de la fenetre primaire DefineWindow(1,10,20,XMaxGlb-10,YMaxGlb-
20) definit une fenetre de 80 pixels DefineHeader(1,'C'EST UNE SIMPLETTDDDAIA
A(x(9(x(9(x(9((UU(A,9336OOw3333www8u3333333c33c33'51,99,51,51 FENETRE') donne l
''entete SetHeaderOn DefineWorld(1,0,1000,1000,0) donne le monde de coordo
nnees systeme SelectWindow(1) choisit la fenetre SelectWorld
(1) choisit le monde SetBackground(85) donne l''ar
riere plan gris DrawBorder trace la bordure repeat unti
l keypressed attend jusqu''a ce qu''une touche soit frappee LeaveGraphi
c quitte les graphismes end. program OnePieDemo $I typed
ef.sys ces fichiers doivent etre $I graphix.sys
inclus dans cet ordre $I kernel.sys $I kernel1.sys $I windows.
sys $I circsegm.hgh $I pie.hgh procedure OnePieDem var sum,x1,y1,Radiu
s,Theta,InRadius,OutRadiusreal n,Mode,Sizeinteger aPieArray backb
yte chchar begin ClearScreen SetColorWhite DefineWindow(1,0,0
,XMaxGlb,YMaxGlb) DefineHeader(1,'UN CAMEMBERTprogram OneHist $I typedef.s
ys ces fichiers doivent etre $I graphix.sys
inclus dans cet ordre $I kernel.sys $I kernel1.sys $I windows.sys $I hatc
h.hgh $I histogrm.hgh procedure HistoDem var i,DisplyLen,HatchDeninteger
aPlotArray rreal chchar Hatchboolean begin DisplyLen
10 le trace for i0 to DisplyLen do initialise
l''ecran aleatoirement begin PAFBGCHDIE') mise en place de la fen
etre DefineWorld(1,0,1000,1000,0) SelectWorld(1) SelectWindow(1) Set
HeaderOn SetBackground(0) DrawBorder n5
le nombre de segment a1.area25 initialise le tabl
eau a2.area17.5 a3.area9.6 a4.area21 a5.area35 a1.text'JAN.' a
2.text'FEV.' a3.text'MAR.' a4.text'AVR.' a5.text'MAI' a1.area-a1.a
rea program Interpolate $I typedef.sys ces fichiers
doivent etre $I graphix.sys inclus dans cet ordre $I ker
nel.sys $I kernel1.sys $I windows.sys $I findwrld.hgh $I axis.hgh $I polygo
n.hgh $I spline.hgh procedure SplineDem var x,tempreal dx,dy,i,n,m
,lines,scaleinteger X1,Y1,X2,Y2integer b,aPlotArray begin Defi
neWindow(1,0,0,XMaxGlb,YMaxGlb) definit a la fois les fenetres et l''ec
ran sort le premier segement x1500
positionne au milieu de l''ecran y1500 Radius200
debut du cercle Theta60 SetAspect(1.0) le r
atio InRadius0.7 positionne les commentaires Out
Radius1.25 Mode2 trace les commentaires Si
ze2 positionne la taille du texte
DefineWindow(2,0,0,XMaxGlb,YMaxGlb) DefineWorld(1,0,1000,1000,0) donne
un monde a l''ecran DefineHeader(2,'Interpolation') fenetres ou iront l
es courbes SetHeaderOn n12 remplit le tabl
eau for i1 to n do begin ai,1i-1 ai,2random-0.5 end
m50 generation de 50 points spline(a,n,a2,1
,an-1,1,b,m) FindWorld(2,b,m,1,1.08) deuxieme monde sur
trace le camembert DrawPolarPie(x1,y1,Radius,Theta,InRa
dius,OutRadius,a,n,Mode,Size) end begin InitGraphic
initialise le graphisme OnePieDem
fait la demo repeat until keypressed attend qu''une touche so
it frappee LeaveGraphic quitte le graphisme end
. la droite with world2 do permute le monde verticalem
ent begin tempy1 y1y2 y2temp end SelectWindow(2)
le choisit trace une bordure DrawBorder dx-8
trace les axes a l''interieur de la fenetre dy7 X13 Y1
5 X225 Y210 lines0 scale0 SetLineStyle(1) t
race une courbe en pointilles DrawAxis(dx,dy,X1,Y1,X2,Y2,lines,scaprogram Wor
ldDrawPoints $I typedef.sys inclus les graphismes $I graphi
x.sys $I kernel.sys $I kernel1.sys var iinteger begin InitGraphic
initialise le systeme et l''ecran DrawBorder DefineWorld
(1,0,1000,1000,0) definit un monde a dessiner SelectWorld(1)
son choix SelectWindow(1) for i1 to 1000 do trace 1000 poi
nts aleatoirement sur le monde DrawPoint(random(1000),random(1000))le,fals
e) DrawPolygon(a,2,n-1,7,2,0) ne trace pas des points de fin Se
tLineStyle(0) trace une ligne interpolee DrawAxis(0,0,X1,
Y1,X2,Y2,0,0,false) DrawPolygon(b,1,-m,0,0,0) spline n''est pas bon
les points de fin SelectWorld(1) choix hors de la fen
etre SelectWindow(1) DrawTextW(730,400,1,'72 The donnee') a
ffiche la legende DrawTextW(730,500,1,'.. Le polygone initial') DrawTextW
(73 repeat until keypressed attend jusqu''a ce qu''une touche soit f
rappee LeaveGraphic end. rnel1.sys var iinteger begin InitGraphic
initialise le systeme et l''ecran DrawBorder DefineWo
rld(1,0,1000,1000,0) definit un monde a dessiner SelectWorld(1)
son choix SelectWindow(1) for i1 to 1000 do trace 1000
points aleatoirement sur le monde DrawPoint(random(1000),random(1000)) PA
FBGCHDIE0,600,1,' La valeur interpolee') end begin InitGraphic
initialise les graphismes SplineDem
fait la demo repeat until keypressed attend jusqu''a
ce qu''une touche soit frappee LeaveGraphic quitte l
e graphisme end. ,400,1,'72 The donnee') affiche la legende
DrawTextW(730,500,1,'.. Le polygone initial') DrawTextW(73 plot c(i-
1) xx-h yy+h plot d(i-1) end end procedure DoIt
procedure principale de sierpinski begin i3 h16 x03
0 y0240 repeat ii+1 x0x0-h hh div 2 y0y0+h xx0
yy0 a(i-1) xx+h yy-h plot b(i-1) xx-h yy-h
plot c(i-1) xx-h yy+h plot d(i-1) xx+h
yy+h plot uMissile Silo #47 '# #W # ##ww !#%w!Gw ##ww%w w# w !#w #!G%ww
#w(After The Holocaust # &## " # # g ntil in end begin sierpinsk
i SetHeaderOn DefineWorld(1,-3,258,258,-3) SelectWorld(1) SelectWind
ow(1) DrawBorder DoIt end begin InitGraphic
initialize the graphics system DefineHeader(1,'DEMONSTRATE SCREEN PRIN
TING') give it a header SetHeaderOn Sierpinski
do the curve HardCopy(false,1) print it repeat unt
il keypressed wait until a key is presprogram ScreenIO $I typed
ef.sys Ces fichiers doivent etre $I graphix.sys
inclus dans cet ordre $I kernel.sys $I kernel1.sys procedure
Sierpinski const n6 var i,h,x,y,x0,y0integer secboolean procedure plo
t trace une ligne begin DrawLine(x,y,x0,y0) x0x
y0y end procedure b(iinteger) forward forward references pour recur
sion procedure c(iinteger) forward procsed LeaveGraphic
leave the graphics system end. DrawBorder DoIt end b
egin InitGraphic initialize the graphics system
DefineHeader(1,'DEMONSTRATE SCREEN PRINTING') give it a header SetHeaderOn
Sierpinski do the curve HardCopy(false,1)
print it repeat until keypressed wait until a
key is presedure d(iinteger) forward procedure a(iinteger) pre
miere procedure recursive begin if i0 then begin a(i-1) xx+h
yy-h plot b(i-1) xx+2*h plot d(i-1) xx+h y
y+h plot a(i-1) end end procedure b s
econde procedure recursive begin if i0 then begin b(i-1) xx-h
yy-h plot c(i-1) yy-2*h plot a(i-1) xprogram F
indWorld $I typedef.sys ces fichiers doivent etre $I g
raphix.sys inclus dans cet ordre $I kernel.sys $I kernel
1.sys $I windows.sys $I findwrld.hgh $I axis.hgh $I polygon.hgh $I spline.h
gh procedure FindWorldDem var xreal dx,dy,i,n,lines,scaleinteger
X1,Y1,X2,Y2integer b,aPlotArray begin DefineWindow(1,0,0,XMaxGlb
,YMaxGlb) definit la fenetre comme l''ecran entier Definx+h yy-
h plot b(i-1) end end procedure c tro
isieme procedure recursive begin if i0 then begin c(i-1) xx-h
yy+h plot d(i-1) xx-2*h plot b(i-1) xx-h
yy-h plot c(i-1) end end procedure d
derniere procedure recursive begin if i0 then begin d(i-1) xx+h
yy+h plot a(i-1) yy+2*h PAFBGCHDIEeWindow(2,0,0,XMaxGl
b,YMaxGlb) DefineWorld(1,0,1000,1000,0) donne un monde a l''ecran
DefineHeader(2,'LE MONDE CHERCHE') fenetre ou les courbes iront SelectWi
ndow(2) SetHeaderOn n10 remplit le tableau
for i1 to n do begin ai,1i-1 ai,2random-0.5 end
FindWorld(2,a,n,1,1.08) deuxieme monde a droite SelectWindow(2
) DrawBorder dx-8 tw SelectWindow(1)
SetHeaderOn SetBackground(0) DrawBorder for i1 to n do
type the info in the up-rt corner begin GotoXY(60,4+i)
goto correct line write(ai.text,'') type t
he lable info str(ai.area62,NumText) format the numeric info
write(NumText) type the numeric info end Defin
eWindow(2,trunc(XMaxGlb/10),trunc(YMaxGlb/10), race les axes a l''in
terieur de la fenetre dy7 X13 Y15 X225 Y210 lines0 scale0
SetLineStyle(0) trace une courbe DrawAxis(dx,dy,X1,Y1
,X2,Y2,lines,scale,false) DrawPolygon(a,1,n,7,2,0) SelectWorld(1)
choix hors de la fenetre SelectWindow(1) DrawTextW(730,
450,1,'72 La donnee') affiche la legende DrawTextW(730,550,1,'--
La courbe') end begin InitGraphic trunc(XMaxGlb*6/10),tru
nc(YMaxGlb*7/10)) DefineHeader(2,'A PIE CHART') set up a window D
efineWorld(2,0,1000,1000,0) SelectWorld(2) SelectWindow(2) SetHeaderOn
SetBackground(0) DrawBorder a1.area-a1.area move the
first segment outward SetAspect(1.0) set the aspect ra
tio x1500 set the center to mid screen y15
00 x2600 set t initial
ise les graphismes FindWorldDem fait la demo repe
at until keypressed attend jusqu''a ce qu''une touche soit frappee
LeaveGraphic quitte les graphismes end. La
donnee') affiche la legende DrawTextW(730,550,1,'-- La courbe')
end begin InitGraphic he start of the circle y2350 InRadi
us0.7 set the ends of the lable line OutRadius1.25
DrawCartPie(x1,y1,x2,y2,InRadius,OutRadius,a,n,2,1) draw the pie a1.area
-a1.area reset the sign DefineWindow(3,trunc(XMaxGlb/2),tru
nc(YMaxGlb/2), trunc(XMaxGlb*9/10),trunc(YMaxGlb*9/10)) Def
ineHeader(3,'A BAR CHART') set up a window DefineWorld(3,0,60,10,0)
SelectWorld(3) SelectWindow(3) program PieHisto $I typedef.sys
these files must be $I graphix.sys inc
luded and in this order $I kernel.sys $I kernel1.sys $I windows.sys $I circs
egm.hgh $I pie.hgh $I hatch.hgh $I histogrm.hgh procedure PieHistoDem
var sum,x1,y1,x2,y2,InRadius,OutRadiusreal i,ninteger aPieArray
bPlotArray chchar NumTextWrkString begin n5
the number of d SetHeaderOn SetBackground(0) DrawBorder
DrawHistogram(b,n,true,5) for i1 to n do draw the b
ar chart lables begin DrawTextW((10/n)*(i-1),10,1,' '+ai.text) draw the
text str(ai.area62,NumText) format the number DrawTextW
((10/n)*(i-1),16,1,' '+NumText) draw the number end end begin
InitGraphic initialize the graphics system PieH
istoDem ata points a1.area25
initialize the pie array a2.area17.5 a3.area9.6 a4.area21 a5.area35
a1.text'JAN. ' a2.text'FEB. ' a3.text'MAR. ' a4.text'APR. ' a5.t
ext'MAY ' for i1 to n do init the histogram array
bi,2ai.area ClearScreen SetColorWhite DefineWindow(1,0,0,XMax
Glb,YMaxGlb) DefineHeader(1,'BOTH A PIE AND A BAR CHART') set up a windo P
A F B G C H D I E do the demo repeat until keypressed wait
until a key is pressed LeaveGraphic leave the gra
phics system end. ) format the number DrawTextW((10/
n)*(i-1),16,1,' '+NumText) draw the number end end begin Ini
tGraphic initialize the graphics system PieHistoD
em l'pSZ7v/!FwY0T7LocWAX3l$H0DcAGk6YH A(u3#isZ.P2Rsu1qd
F7m!IY0OjBitVA4h2 usuJ.PG2Lwq/m+c4V*,h 82"xOhG5u#Dp4wkmkHC BYk4,a!4*,I)qyb2,6!6N
IlzmmY!x,02.jpILBC2ijA2KapfHX#2yZt6c7ha7o%0G!)),*kS8O6!m*5"R0y(,tyXmwNxlSlzn*jpS
3j69"0C6lL8X6p*&0E4EiZk,6YK2h.$uAV00K0 Kw14hs/$*ai%1Y6EwBFw" Copyright (C) 1985
BORLAND IncBZenithder CPC464/664P Y ELMKqp7# ok!!"#($ +*!5!*!!(2!5(2!!!OO!*!!
45(! +/0y0(program DrawAlternateText $I typedef.sys
inclus les graphismes $I graphix.sys $I kernel.sys $I kernel1.sys con
st MaxWorldX real1000.0 MaxWorldY real1000.0 CharArray1 array 0..2
5 of char definit un tableau de caracteres ('A','B','C','D','E','F','G
','H','I','J','K','L', 'M','N','O','P','Q','R','S','T','U','V','W','X'
,'Y','Z') var iinteger CharHeight,CharWidthreal begin InitGraphic
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! initialise les graphi
smes DefineWorld(1,0,MaxWorldY,MaxWorldX,0) definit le monde a dessiner
SelectWorld(1) SelectWindow(1) DrawBorder For i1 to 50 do
affiche aleatoirement des caracteres au centre de l''ecran DrawTextW(
random(600)+200,random(600)+200,random(5), CharArray1random(26)
) DrawTextW(15,50,1,'ABCDEFGHIJKLMNOPQRSTUVWXYZ') frappe de caracteres
dans le coin DrawTextW(15,100,1,'abcdefghijklmnopqrst""*B"Ru*"#V##V#N#FO/o&9
O/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 uvwxyz') DrawTextW(15,150,1,'1234
567890-!#$%&*()+') DrawTextW(15,200,1,'",./') repeat until keypressed
attend jusqu''a ce que une touche soit frappee LeaveGraphic
quitte le systeme graphique end.extW(15,50,1,'ABCDE
FGHIJKLMNOPQRSTUVWXYZ') frappe de caracteres dans le coin DrawTextW(15,1
00,1,'abcdefghijklmnopqrst !P!A!F!B!G!C!H!D!I!ES))0 DMgojB07 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+w661#6r. p7#E(!90To&p(
#+(- #6O#60 #WyOh(yDOyZy0 GD! !ws( hx-Sx9+zzgZJDM0,7o #yO!9i&8 (8wPTOsOS!988x
W8/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! !TRUE
FALSE!9N#Y#(G# "(k((!0(!!2Sz0*6##ww#w$w#w ##N#F*B2w#w#s#r"*-w#ww##""2ZR0*4#4
2ZR *4 #4( !I.8cI$IL! I nn nfVNF!DLTI!!53!r1!! x #- ox(- (x8(z,zi!' r)(D
Mbo88x(08W!Oz k68x(-(ay( z(.( E+(Dg-/ 0p## +0w#,- 60# "P"A"F"B"G"C"H"D"I"E22*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"R**!"**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" VMDnfu
tqp*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!!!E"""""""*!*!£oE7v**
*1&***&'*!*!£oE7v***1&!!!*!N*%*$'*!*!£oE7v!*!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 memo
ry Program aborted '1!d!ddBN*%!!*$!*fz"!*!*n&/o/gs*#')!!!*!N*%*$""""!*!N*%!**$
""""£!*!*!N*%*£$2"""*&E7v*"!*!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**!" #P#A#F#B#G#C#H#D#I#E**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!!fz-,"*y+*#,!$
!"!1"!"!x"!"!v" !v!v!E,,!$!"!y"!"!0"!"!w" !$,!Q!!vM savscr.$$$p!vo !!!N!!fz!!OoE
15*!g£o!"*"*!EV5!4*n&"!!fz5"!!*R**V!g£o!s*#a5!2f*"*"*!E5*"p*p"*P!i"*!!OE.6!*+!iP
96!!v+*&2*&!!D!J!P"V!P,!D,!J,!,£o*V!!O£oE7!*V+"6!P,*6*6!,*6 -"$!v!! *$#,""*"%"*2
!$""!*R!N"*"!$""!*R!N"*"!$*&!2*&**fz ."!*!g£on&**R!**(*#-2!!*&N!-"""**#%**T%"!E.
*!v+P!k!!kp!o!i.!!fz."a*a!%!!!!i.*a#.! !i.!D,*6!J,*V*E77*V"l7*V!!OEa7!!v+l7!!v+"
4*4!*OE7!*4+",*,,!*,,!*,,!*,,!7!!v+"""$"&"("***!!O*(*$£o*&*"£o*(!£o*$!O£o*&!£o*"
!£oE8!**+"*(*s#r**&s#r**$s#r**"s#r***E8**"9**!!OE9"*2P!!!p!p!i.!!fzp/"!!! *!%*#B
/! !v!o !!fz/"*!%!v!!! *!!%!v*o !v!! *#/!v!o !!fz0"*!%!v!!!i.*#0!v!o !!fz0"!v!!!
i.*!%*#Y0*&!E0A00/!"!"o""*!!OoE&1.,(FATAL ERROR 1 illega!!v+9!!v+"""""*****7!*+"
*MP*Z!s*Y!s""*!R!!!P*R!"*!E9!"9*!OE9!O"*"*""!!!P"***!R!"*!Ec!"y*!OEy!O"*"*""*!R!
!!*R"*!E!"*!E!"*"*""l procedure number *!& *!!OoE1.,"FATAL ERROR 2 illegal erro
r code *!& *2e*i&E1.,*j&*i&oEb2+",+"!!+Turbo Graphix error #*!& in procedure #*
!& *j&Eb2!("!*)#V! in !%*)#V!!)" *j&*i&£oE2 3*i&E2 3*j&E3. Hit enter !!D *&! *
&!oE2*&!E2., ***!!!*!R"*!EF!"*!E!"*"*""""""***9******9"*!*OEH!*+"*"z*#V"*#V"*#V"
*#V"*#V*#VR!N!!,!,!*#V*#VR!,!,!*#V!N!,!,!*#V!,+!2i!2i*e&2!2e*&!2n!2n!2m!2m!2j!2j
!2h!2h!2g!2g"R*R!!OE3!*R+"J*JY!s*JZ!s*JMP3!!v+!%!%*z"8*8*m&2/*/&*n&o2&*&&!!,!Eb4
!,!!,! ! ,!!,!E4!,!!!,!!!,4"* $P$A$F$B$G$C$H$D$I$E!,!*l&EE!2l!"x!"t!"v!"rS!!v+!
!,!,!,"*!!,!,!,"*!!+!2j!2i!%!)!!!)!!%!)#VMInitGraphicP!!)#VMERROR.MSG missingP!"
Merror.msgo !"!E!!fz"!"!P *!E!%*)!£!!%*)#V!P*#!s#r*#V**B"*#V**B"*!*!oEXG!2*&EG*#
V**B"*#V**B"*!*!oEG!2*&2*&!!*n&EH!,!,H-H!,T"u!,"s*m&EH*u*!N*u*!N!£oEH*s**s*£oEH*
u*sH-H*u*sH-!f!l*n&EH!l,!f,y-2rH!l,T!f,y-2r*r&!fzt"!"!P *!EQ!*)!£!!*)#V!P*#!"!(
!"i K!%!)!!%!)#VM ** UNKNOWN **P!!fz"!%*)!%!)#Vs#r*#!!fz"!*)!%!)#Vs#r*#!!v+!!fz"
*!!!!I6*#V!"!!fzA"*!!!O!9!*+"*!s#r*!s*3*#"V"X"Z"*!EI**Z#%*X*VT%hJ*"L*Z"J!"D!"B**
XEjI!"D*Z*VEI!"B*X*R"H*V*ZR"F*H!EI!"I!"*L*X*J*V£ooEhJ*f&!!g£o2f!*f&n&EJ*L*JH-*!E
JJ*J*B"J**H"eJ*L*D"L**FR"I"8"""!!!!8BEJ****8H!!!$!**n&E K!*,!$,!,!!"!!!p!!ECA!!
NA!!v+!z !2i!/!"z!m7!33!w4!2n!2oK3c3k3!2e!4!"p,!"x!"v!"t!"r!2l!2k!!fzB"*!!!O!9*3
*#A!!!fznB"*!!!!I6*#1B!m7*zB"""!"**EB!"B**EB!"*""""!2!2*m&EG*k&EC*,HDK!*,T!$,!,T
!,iJ"" ""!!! !BEK*** *J2""""*&oEL****J****J****J****J£L**fz£L"****J*#jL2""""!!!!
BEL*****&K2!"*"0C*!N"*!N!"*#V**B"*#V**B"*#V**B"*#V**B"**go*go*go!EG*#V*#VEE*!ED*
!EC*"D*"*#V*#VED*#V*#V*#VR*#V*#VR**#VR*s#r**s#r*!*#V*#V£oEUE*!ED*"D*"*#V*#VEKE*#
V*#V*#V!!!*n&EM!,!,!,!,*&KM*n&2!2n!,T!,!,T!,*&L*&2n0Nyc87u""""*&EN****J/N****EK2
"""*!wn!!,!,!!,!EP!M!+)#V!,!"!M!+)#V!,!R*#V*#VR**#VR*s#r**s#r*#V**B"*#V**B"*#V*#
VEG*!EOF*!EE*"E*"*#V*#VEEF*#V*#V*#VR*#V*#VR**#VR*s#r**s#r*!EG*!ExF*"F*"*#V*#VEF*
#V*#V*#VR*#V*#VR**#VR*s#r** %P%A%F%B%G%C%H%D%I%E"£!!fzP"!M*+)#V!,!"!M!*R!+)#V!,
!"**R**£**R**M****£****M****£R!****R!M**R**£R!**R**R!M*"*"£*#OP**H-!s!y!*n&2j!2n
*j&EQ!,!y,!s,!M**!V*!!M*!*"*"WY!!**T*!"V*&2n*4P!4"!!*n&EY!,!,*!4MVY!,T!,*!4MV)""
**fz,Z"* **B.*#Z!*z+"*"*"*Yn&EZ*Zn&EZ*! R"Z*! "*z****7*z*g&EZ*! "*"*"*! !R"*"*!
R"*! Q!,T!y,!s,!H!M*j&2n"d"f"h*h*dR*f*h*d!*fEK*h*f*dR*h*f*d!EK"V"X"Z*Z*VR*X*V*Z*
V!*X*VR!REK*Z*VR*X*VR*Z*V!*X*V!EK"H"J"L*L*HR*J*L*J*HR!REK*L*J*HR!*L*H*J!EK*L*H*J
!*L*J*HEK*L*J*H*L*HR*JEK"""*R!"*"*Z*g&s*z****7*z**Y!*&R%* !** R*£!R!V*!!*MV* ***
!L!*&R%* ***!L*Y!s*n&2"!2n*m&2#!2m*!N" *!N!"!*z+"$*h&*$£!£o*$#V*$#VR! £o*$£!** R
!R£oE*R****!**R!REK**R**R**!**!EK**R!R***!*EK","."0*0*,R*.*,R*0*.EK*0*,*.*,R*0*.
EK*0*.*0*.*,EK22" ""*!N"*!N!"!!fz.V"!*&!*R!V+n&*!g£o!NV!g£o2!!fz%V"*&!*RV!g£o!-Z
A*$Y!s* ***!L*"&2n*#&2me ""*!N"!2!*fz2***&y-E*&!*&n&go2*&#*&2*&"*&!E!L /!**&" !!
!&"!!l&" !!fz"**Z2*&E*&/o/g2!*&" *#*&!E! 22!"*&2!%*&!g£o2EV*"#V**&"**&!R"* #V!*!
R*&" * *&!R"*m&EU**EU*"**EU*"* *EU*" **EU*"* *fzV"**fzV"**H-*#U*#U*#T*#T*"#V*&!*
"s#rP!"""*n&2!2n*"!4!£"!"**EfY!*n&"*!EDY*"*!"**EAY!*n&e.!!**&!*&!oE-!2!3 !!!!V!R
fzx"!W*#!!!V"!!!g£o!E!!!g£oW!2 *&%b"*!E!"**R"*"2!"**"*"**R!"*******&U"*"*&oE**E*
&/o/g***(**"**E*****!!P'**"*z**!*!*!n&!£oEW!*!n&e.!!*!"*RW*****IQ'YRW*****Q'YRWR
X***!N!R**!N*!R*!L'YRrX*!***!R*!8R**"'YR£X****!R*S'YRX**!N**!R*R**!N"'YR'Y** &P
&A&F&B&G&C&H&D&I&E******7*z**!**!OoEla!!v+Db!*fzDb"*!Ea*"!"a*"!"**R!***&)*****!*
&U"**R!****z******7*z*#za**!**!oEb!!v+b!**pfzb"*p*#b**pE!Eb**pE22"*!Ec!#VR!"*Yn&
E7v*! *#V*#VR!"*!!g£o"*"*"*!*OoE7v!!v+k!*+n&E7v*y+*Mwinf.*!0e.e!*+"*"!*+*!s"""*!
!OoE7v!!v+Xl!*+"*a*n&oE7v!!v+l!a"*#V**s#r**#V*s#r**#V*s#r"*!Ec!"!*z+"*Yn&Eic*Zn&
Ec*! R"ic*! "*&Eyc2acEb!*z+"*Yn&Ec*Zn&Ec*! "c*! R"2"*!*&2"*!*&""22*!*!oENd!!v+e!
*z+"y*yYn&Ed*yZn&Ed*! R"d*! "**R"u**R"s**u!OEd!O*R"u**s!Ee!***#V*s#r*Yn&*Zn&£oE7
v*#V! R"m*#V"*#V!*#V!O£o*#V!£o*#V!O£o*#V!£o*#V!£o*#V!£o*#V!£oE7v**#V*Mwinf.*!0e.
xg*!E*y+**zE*!*+!aP!!!M.ptrp!!E!!v+n!!fz"V!!*VR"s*u!"u!*sfze"w*u***w***w*&*&P'*w
#e!*z+"y*yYn&Ee*yZn&Ee*! "e*! R"P! "q!*q+!! p!o!Ef!!v+e!!!d!"!"*Yn&E7v*Zn&E7v**#
V! Rs#rf**#V! s#r*#V*#VR!"*#V*#Vfz"*!**#V*)**"*!E!+ *V#n!z P!!!M.ptrp!!E!!fz"!!*
+ *#jo!z o!!v+*"*"!*z+"*Yn&E7v*Zn&E7v*! R"o*! "****#!/!5""*"*!E*!!OEO!!+!+)T),!!
!!+!+)T),!!!,!!,!!*fz" !* +!!! !!!!!d*!R"*#f*!E!!!! ! P!"""!!p!p!E!!v+g!!!! !!!d
!"P!2!*+!!"T*TYn&E7v*TZn&E7v*T*T#V! Rs#r/h*T*T#V! s#r*T#V*T#VR!"N*!E*T**T#V*T#VR
s#r**Ts#r*!E*T**T#V!+)T),!!,E!* +!+)T),!!&q!* +!+)T),!,E!* +!+)T),!!* +!+)T),!,E
!* +!+)T),!q!* +!+)T),!,E!* +!+)T),!* #p!5,!5!/,!/!!,!5,!!!,!5,!!,!/,!!,!/,!**T#
VRs#r*T*s#r*T#V!*T#V!o*T#V!Oo*T#V!oE7v!!v+i*T#V*T#Vfz"R*P*N!*&o£o!Io£oE7v!!!! !2
*N!*P*T#V*R)*P*N"P*P!E!!!!!d*P!R"P!2*R#i! "!"*!!OoE7v! !v+j!*+"*#V*#VR!*#V* 'P'
A'F'B'G'C'H'D'I'E1RefLoc X2RefGlbX2RefLoc Y1RefGlbY1RefLoc
Y2RefGlbY2RefLoc DirectModeGlbDirectModeLoc end end
HatchDirect begin Hatch if DirectModeGlb then HatchDirect(t
runc(X1),trunc(Y1),trunc(X2),trunc(Y2),trunc(Delta)) else begin
DirectModeLocDirectModeGlb DirectModeGlbtrue x1WindowX(X1)
y1WindowY(Y1) x2WindowX(X2) y2WindowY(Y2) Dummyclip(x1,y1
,x(***********************************************************) (*
*) (* TURBO GRAPHIX
version 1.05A *) (*
*) (* Crosshatch module *) (*
Module version 1.00A *) (*
*) (* Copyright (C) 198
5 by *) (* 2,y1) Dummyclip(x1,y1,x1,y2) Hat
chDirect(x1,y1,x2,y2,trunc(Delta)) DirectModeGlbDirectModeLoc end
end Hatch BORLAND International *) (*
*) (**************************
*********************************) procedure Hatch(X1,Y1,X2,Y2,Deltareal)
var x1,y1,x2,y2integer DirectModeLoc,Dummyboolean procedure HatchDir
ect(x1,y1,x2,y2,Deltainteger) var i,yst,yen,countinteger X1RefLoc,
X2RefLoc,Y1RefLoc,Y2RefLocinteger DirectModeLoc,ClippingLocboolean
X1D,Y1D,X2D,Y2D integer(***************************************************
********) (* *) (*
TURBO GRAPHIX version 1.05A *) (*
*) (* Polygon drawing modu
le *) (* Module version 1.05A
*) (* *) (*
Copyright (C) 1985 by *) (* begin Hatch
Direct if Delta0 then begin HatchGlbtrue Direc
tModeLocDirectModeGlb DirectModeGlbtrue ClippingLocClippingGlb
ClippingGlbtrue X1RefLocX1RefGlb X1RefGlbx1
X2RefLocX2RefGlb X2RefGlbx2 Y1RefLocY1RefGlb Y1RefGl
by1 Y2RefLocY2RefGlb Y2RefGlby2 ysty1+Delta
yeny1-x2+x1+Delta if Delta0 then BORLAND International
*) (* *) (
***********************************************************) procedure DrawPo
lygon(APlotArray I0,NPoints,Line,Scale,Linesinteger) v
ar i,x1,x2,y1,y2,XOffset,YOffsetinteger X1RefLoc,Y1RefLoc,X2RefLoc,Y2RefL
ocinteger DeltaY,XOs1,XOs2,YOs1,YOs2integer AutoClip,DirectModeLoc
,PlotLine,PlotSymbolboolean X1Loc,Y1Loc,X2Loc,Y2Locin 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 Y2D
yen if clip(X1D,Y1D,X2D,Y2D) then DrawLine(X1D,Y1D,X2D,Y2D)
ystyst+Delta yenyen+Delta end ClippingGlbClippin
gLoc HatchGlbfalse X1RefGlbX $ x" Z v5 Q ml# . 7" 5 E# w#
w" Z v" Z v" Z v# w# w" Z v" Z v# w! Y u# w" Z v" Z v# w" Z v# w# w" Z v"
Z v" Z v! Y u" Z v" Z v! Y u" Z v" Z v! Y u" Z v! Y u! Y u! Y u! Y u! Y u! Y u