Turbo Graphix ToolBox 1.0 (F) (Face A) (1986) (CPM) (Serie F411A1A1077765) [Original] [UTILITAIRE].dsk
Size : 512 (Real : 512)
000000: 60 69 11 00 05 01 33 00 ED B0 0E 42 11 00 00 21 `i....3....B...!
000010: 00 03 CD 89 BE 30 06 CD 50 01 C3 03 05 CD 59 02 .....0..P.....Y.
000020: 0D 0A 46 61 69 6C 65 64 20 74 6F 20 6C 6F 61 64 ..Failed to load
000030: 20 74 68 65 20 63 6F 6E 66 69 67 75 72 61 74 69 the configurati
000040: 6F 6E 20 73 65 63 74 6F 72 0D 0A 0A 24 C3 03 05 on sector...$...
000050: CD 59 02 04 02 24 2A 00 03 11 CB ED 19 7C B5 28 .Y...$*......|.(
000060: 26 CD 59 02 0D 0A 49 6C 6C 65 67 61 6C 20 63 6F &.Y...Illegal co
000070: 6E 66 69 67 75 72 61 74 69 6F 6E 20 73 65 63 74 nfiguration sect
000080: 6F 72 0D 0A 0A 24 C9 2A 02 03 22 3D 02 2A 04 03 or...$.*.."=.*..
000090: 22 3F 02 3A 06 03 32 43 02 21 3D 02 CD 83 BE 3A "?.:..2C.!=....:
0000A0: 07 03 32 03 00 3A 08 03 CD 80 BE 3A 09 03 CD 9E ..2..:.....:....
0000B0: BE 21 0A 03 CD A1 BE 21 64 03 CD 5F 02 7E 23 B7 .!.....!d.._.~#.
0000C0: 28 0C 47 4E 23 E5 C5 CD 0F 05 C1 E1 10 F5 EB 21 (.GN#..........!
0000D0: 27 BB CD 46 02 21 2D BB CD 46 02 21 33 BB CD 46 '..F.!-..F.!3..F
0000E0: 02 EB 7E 23 B7 28 50 57 46 23 4E 23 E5 D5 C5 CD ..~#.(PWF#N#....
0000F0: 0F BB C1 D1 E1 38 3A CD 59 02 0D 0A 45 78 70 61 .....8:.Y...Expa
000100: 6E 73 69 6F 6E 20 62 75 66 66 65 72 20 66 75 6C nsion buffer ful
000110: 6C 20 6F 72 20 69 6C 6C 65 67 61 6C 20 74 6F 6B l or illegal tok
000120: 65 6E 20 73 70 65 63 69 66 69 65 64 0D 0A 0A 24 en specified...$
000130: C9 06 00 09 15 20 B1 3A 16 03 C3 A4 BE 00 00 00 ..... .:........
000140: 00 AF 1E 00 01 03 1A 4F 13 B7 C8 1A 47 13 1A 13 .......O....G...
000150: E5 CD 6C 02 E1 0D 20 F3 C9 E3 CD 5F 02 E3 C9 7E ..l... ...._...~
000160: 23 FE 24 C8 4F E5 CD 0C 05 E1 18 F3 E9 CF CF CF #.$.O...........
000170: CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF ................
000180: CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF ................
000190: CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF ................
0001A0: CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF ................
0001B0: CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF ................
0001C0: CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF ................
0001D0: CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF ................
0001E0: CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF ................
0001F0: CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 35 12 32 00 FA 00 0C 81 00 00 44 6A E1 44 6A E1 5.2.......Dj.Dj.
000010: 0D 00 0D 00 0D 00 00 00 00 00 00 00 00 00 00 00 ................
000020: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000030: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000040: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000050: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000060: 00 00 00 00 1C 40 77 77 1C 61 40 40 1D 77 77 43 .....@ww.a@@.wwC
000070: 50 2F 4D 20 32 2E 32 20 2D 20 41 6D 73 74 72 61 P/M 2.2 - Amstra
000080: 64 20 43 6F 6E 73 75 6D 65 72 20 45 6C 65 63 74 d Consumer Elect
000090: 72 6F 6E 69 63 73 20 70 6C 63 0A 0D 24 00 00 00 ronics plc..$...
0000A0: 00 00 00 00 08 08 09 01 0A 02 07 1B 42 7F 10 08 ............B...
0000B0: 4F 0B 00 08 08 09 01 0A 02 07 1B 42 7F 10 08 4F O..........B...O
0000C0: 0B 00 08 08 09 01 0A 02 00 00 31 31 31 31 31 31 ..........111111
0000D0: 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 1111111111111111
0000E0: 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 1111111111111111
0000F0: 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 1111111111111111
000100: 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 1111111111111111
000110: 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 1111111111111111
000120: 31 31 31 31 31 31 31 31 31 31 01 66 32 32 32 32 1111111111.f2222
000130: 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 2222222222222222
000140: 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 2222222222222222
000150: 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 2222222222222222
000160: 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 2222222222222222
000170: 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 2222222222222222
000180: 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 2222222222222222
000190: 32 32 03 1C 33 33 33 33 33 33 33 33 33 33 33 33 22..333333333333
0001A0: 33 33 33 33 33 33 33 33 33 33 33 33 33 33 33 33 3333333333333333
0001B0: 34 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 4...............
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 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: C3 5C 9A C3 58 9A 7F 00 20 20 20 20 20 20 20 20 .\..X...
000010: 20 20 20 20 20 20 20 20 43 4F 50 59 52 49 47 48 COPYRIGH
000020: 54 20 28 43 29 20 31 39 37 39 2C 20 44 49 47 49 T (C) 1979, DIGI
000030: 54 41 4C 20 52 45 53 45 41 52 43 48 20 20 00 00 TAL RESEARCH ..
000040: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000050: 00 00 00 00 00 00 00 00 00 00 00 00 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 08 97 00 00 5F 0E 02 C3 ............_...
000090: 05 00 C5 CD 8C 97 C1 C9 3E 0D CD 92 97 3E 0A C3 ........>....>..
0000A0: 92 97 3E 20 C3 92 97 C5 CD 98 97 E1 7E B7 C8 23 ..> ........~..#
0000B0: E5 CD 8C 97 E1 C3 AC 97 0E 0D C3 05 00 5F 0E 0E ............._..
0000C0: C3 05 00 CD 05 00 32 EE 9E 3C C9 0E 0F C3 C3 97 ......2..<......
0000D0: AF 32 ED 9E 11 CD 9E C3 CB 97 0E 10 C3 C3 97 0E .2..............
0000E0: 11 C3 C3 97 0E 12 C3 C3 97 11 CD 9E C3 DF 97 0E ................
0000F0: 13 C3 05 00 CD 05 00 B7 C9 0E 14 C3 F4 97 11 CD ................
000100: 9E C3 F9 97 0E 15 C3 F4 97 0E 16 C3 C3 97 0E 17 ................
000110: C3 05 00 1E FF 0E 20 C3 05 00 CD 13 98 87 87 87 ...... .........
000120: 87 21 EF 9E B6 32 04 00 C9 3A EF 9E 32 04 00 C9 .!...2...:..2...
000130: FE 61 D8 FE 7B D0 E6 5F C9 3A AB 9E B7 CA 96 98 .a..{.._.:......
000140: 3A EF 9E B7 3E 00 C4 BD 97 11 AC 9E CD CB 97 CA :...>...........
000150: 96 98 3A BB 9E 3D 32 CC 9E 11 AC 9E CD F9 97 C2 ..:..=2.........
000160: 96 98 11 07 97 21 80 00 06 80 CD 42 9B 21 BA 9E .....!.....B.!..
000170: 36 00 23 35 11 AC 9E CD DA 97 CA 96 98 3A EF 9E 6.#5.........:..
000180: B7 C4 BD 97 21 08 97 CD AC 97 CD C2 98 CA A7 98 ....!...........
000190: CD DD 98 C3 82 9A CD DD 98 CD 1A 98 0E 0A 11 06 ................
0001A0: 97 CD 05 00 CD 29 98 21 07 97 46 23 78 B7 CA BA .....).!..F#x...
0001B0: 98 7E CD 30 98 77 05 C3 AB 98 77 21 08 97 22 88 .~.0.w....w!..".
0001C0: 97 C9 0E 0B CD 05 00 B7 C8 0E 01 CD 05 00 B7 C9 ................
0001D0: 0E 19 C3 05 00 11 80 00 0E 1A C3 05 00 21 AB 9E .............!..
0001E0: 7E B7 C8 36 00 AF CD BD 97 11 AC 9E CD EF 97 3A ~..6...........:
0001F0: EF 9E C3 BD 97 11 28 9A 21 00 9F 06 06 1A BE C2 ......(.!.......
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: CF 9A 13 23 05 C2 FD 98 C9 CD 98 97 2A 8A 97 7E ...#........*..~
000010: FE 20 CA 22 99 B7 CA 22 99 E5 CD 8C 97 E1 23 C3 . ."..."......#.
000020: 0F 99 3E 3F CD 8C 97 CD 98 97 CD DD 98 C3 82 9A ..>?............
000030: 1A B7 C8 FE 20 DA 09 99 C8 FE 3D C8 FE 5F C8 FE .... .....=.._..
000040: 2E C8 FE 3A C8 FE 3B C8 FE 3C C8 FE 3E C8 C9 1A ...:..;..<..>...
000050: B7 C8 FE 20 C0 13 C3 4F 99 85 6F D0 24 C9 3E 00 ... ...O..o.$.>.
000060: 21 CD 9E CD 59 99 E5 E5 AF 32 F0 9E 2A 88 97 EB !...Y....2..*...
000070: CD 4F 99 EB 22 8A 97 EB E1 1A B7 CA 89 99 DE 40 .O.."..........@
000080: 47 13 1A FE 3A CA 90 99 1B 3A EF 9E 77 C3 96 99 G...:....:..w...
000090: 78 32 F0 9E 70 13 06 08 CD 30 99 CA B9 99 23 FE x2..p....0....#.
0000A0: 2A C2 A9 99 36 3F C3 AB 99 77 13 05 C2 98 99 CD *...6?...w......
0000B0: 30 99 CA C0 99 13 C3 AF 99 23 36 20 05 C2 B9 99 0........#6 ....
0000C0: 06 03 FE 2E C2 E9 99 13 CD 30 99 CA E9 99 23 FE .........0....#.
0000D0: 2A C2 D9 99 36 3F C3 DB 99 77 13 05 C2 C8 99 CD *...6?...w......
0000E0: 30 99 CA F0 99 13 C3 DF 99 23 36 20 05 C2 E9 99 0........#6 ....
0000F0: 06 03 23 36 00 05 C2 F2 99 EB 22 88 97 E1 01 0B ..#6......".....
000100: 00 23 7E FE 3F C2 09 9A 04 0D C2 01 9A 78 B7 C9 .#~.?........x..
000110: 44 49 52 20 45 52 41 20 54 59 50 45 53 41 56 45 DIR ERA TYPESAVE
000120: 52 45 4E 20 55 53 45 52 D0 16 04 00 00 00 21 10 REN USER......!.
000130: 9A 0E 00 79 FE 06 D0 11 CE 9E 06 04 1A BE C2 4F ...y...........O
000140: 9A 13 23 05 C2 3C 9A 1A FE 20 C2 54 9A 79 C9 23 ..#..<... .T.y.#
000150: 05 C2 4F 9A 0C C3 33 9A AF 32 07 97 31 AB 9E C5 ..O...3..2..1...
000160: 79 1F 1F 1F 1F E6 0F 5F CD 15 98 CD B8 97 32 AB y......_......2.
000170: 9E C1 79 E6 0F 32 EF 9E CD BD 97 3A 07 97 B7 C2 ..y..2.....:....
000180: 98 9A 31 AB 9E CD 98 97 CD D0 98 C6 41 CD 8C 97 ..1.........A...
000190: 3E 3E CD 8C 97 CD 39 98 11 80 00 CD D8 98 CD D0 >>....9.........
0001A0: 98 32 EF 9E CD 5E 99 C4 09 99 3A F0 9E B7 C2 A5 .2...^....:.....
0001B0: 9D CD 2E 9A 21 C1 9A 5F 16 00 19 19 7E 23 66 6F ....!.._....~#fo
0001C0: E9 77 9B 1F 9C 5D 9C AD 9C 10 9D 8E 9D A5 9D 21 .w...].........!
0001D0: F3 76 22 00 97 21 00 97 E9 01 DF 9A C3 A7 97 52 .v"..!.........R
0001E0: 45 41 44 20 45 52 52 4F 52 00 01 F0 9A C3 A7 97 EAD ERROR.......
0001F0: 4E 4F 20 46 49 4C 45 00 CD 5E 99 3A F0 9E B7 C2 NO FILE..^.:....
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 09 99 21 CE 9E 01 0B 00 7E FE 20 CA 33 9B 23 D6 ..!.....~. .3.#.
000010: 30 FE 0A D2 09 99 57 78 E6 E0 C2 09 99 78 07 07 0.....Wx.....x..
000020: 07 80 DA 09 99 80 DA 09 99 82 DA 09 99 47 0D C2 .............G..
000030: 08 9B C9 7E FE 20 C2 09 99 23 0D C2 33 9B 78 C9 ...~. ...#..3.x.
000040: 06 03 7E 12 23 13 05 C2 42 9B C9 21 80 00 81 CD ..~.#...B..!....
000050: 59 99 7E C9 AF 32 CD 9E 3A F0 9E B7 C8 3D 21 EF Y.~..2..:....=!.
000060: 9E BE C8 C3 BD 97 3A F0 9E B7 C8 3D 21 EF 9E BE ......:....=!...
000070: C8 3A EF 9E C3 BD 97 CD 5E 99 CD 54 9B 21 CE 9E .:......^..T.!..
000080: 7E FE 20 C2 8F 9B 06 0B 36 3F 23 05 C2 88 9B 1E ~. .....6?#.....
000090: 00 D5 CD E9 97 CC EA 9A CA 1B 9C 3A EE 9E 0F 0F ...........:....
0000A0: 0F E6 60 4F 3E 0A CD 4B 9B 17 DA 0F 9C D1 7B 1C ..`O>..K......{.
0000B0: D5 E6 03 F5 C2 CC 9B CD 98 97 C5 CD D0 98 C1 C6 ................
0000C0: 41 CD 92 97 3E 3A CD 92 97 C3 D4 9B CD A2 97 3E A...>:.........>
0000D0: 3A CD 92 97 CD A2 97 06 01 78 CD 4B 9B E6 7F FE :........x.K....
0000E0: 20 C2 F9 9B F1 F5 FE 03 C2 F7 9B 3E 09 CD 4B 9B ..........>..K.
0000F0: E6 7F FE 20 CA 0E 9C 3E 20 CD 92 97 04 78 FE 0C ... ...> ....x..
000100: D2 0E 9C FE 09 C2 D9 9B CD A2 97 C3 D9 9B F1 CD ................
000110: C2 98 C2 1B 9C CD E4 97 C3 98 9B D1 C3 86 9E CD ................
000120: 5E 99 FE 0B C2 42 9C 01 52 9C CD A7 97 CD 39 98 ^....B..R.....9.
000130: 21 07 97 35 C2 82 9A 23 7E FE 59 C2 82 9A 23 22 !..5...#~.Y...#"
000140: 88 97 CD 54 9B 11 CD 9E CD EF 97 3C CC EA 9A C3 ...T.......<....
000150: 86 9E 41 4C 4C 20 28 59 2F 4E 29 3F 00 CD 5E 99 ..ALL (Y/N)?..^.
000160: C2 09 99 CD 54 9B CD D0 97 CA A7 9C CD 98 97 21 ....T..........!
000170: F1 9E 36 FF 21 F1 9E 7E FE 80 DA 87 9C E5 CD FE ..6.!..~........
000180: 97 E1 C2 A0 9C AF 77 34 21 80 00 CD 59 99 7E FE ......w4!...Y.~.
000190: 1A CA 86 9E CD 8C 97 CD C2 98 C2 86 9E C3 74 9C ..............t.
0001A0: 3D CA 86 9E CD D9 9A CD 66 9B C3 09 99 CD F8 9A =.......f.......
0001B0: F5 CD 5E 99 C2 09 99 CD 54 9B 11 CD 9E D5 CD EF ..^.....T.......
0001C0: 97 D1 CD 09 98 CA FB 9C AF 32 ED 9E F1 6F 26 00 .........2...o&.
0001D0: 29 11 00 01 7C B5 CA F1 9C 2B E5 21 80 00 19 E5 )...|....+.!....
0001E0: CD D8 98 11 CD 9E CD 04 98 D1 E1 C2 FB 9C C3 D4 ................
0001F0: 9C 11 CD 9E CD DA 97 3C C2 01 9D 01 07 9D CD A7 .......<........
Size : 512 (Real : 512)
000000: FF 22 EA AC C9 2A C8 AC EB 2A EA AC 23 22 EA AC ."...*...*..#"..
000010: CD 95 A4 D2 19 A5 C3 FE A4 3A EA AC E6 03 06 05 .........:......
000020: 87 05 C2 20 A5 32 E9 AC B7 C0 C5 CD C3 A2 CD D4 ... .2..........
000030: A4 C1 C3 9E A4 79 E6 07 3C 5F 57 79 0F 0F 0F E6 .....y..<_Wy....
000040: 1F 4F 78 87 87 87 87 87 B1 4F 78 0F 0F 0F E6 1F .Ox......Ox.....
000050: 47 2A BF AC 09 7E 07 1D C2 56 A5 C9 D5 CD 35 A5 G*...~...V....5.
000060: E6 FE C1 B1 0F 15 C2 64 A5 77 C9 CD 5E A4 11 10 .......d.w..^...
000070: 00 19 C5 0E 11 D1 0D C8 D5 3A DD AC B7 CA 88 A5 .........:......
000080: C5 E5 4E 06 00 C3 8E A5 0D C5 4E 23 46 E5 79 B0 ..N.......N#F.y.
000090: CA 9D A5 2A C6 AC 7D 91 7C 98 D4 5C A5 E1 23 C1 ...*..}.|..\..#.
0000A0: C3 75 A5 2A C6 AC 0E 03 CD EA A3 23 44 4D 2A BF .u.*.......#DM*.
0000B0: AC 36 00 23 0B 78 B1 C2 B1 A5 2A CA AC EB 2A BF .6.#.x....*...*.
0000C0: AC 73 23 72 CD A1 A2 2A B3 AC 36 03 23 36 00 CD .s#r...*..6.#6..
0000D0: FE A4 0E FF CD 05 A5 CD F5 A4 C8 CD 5E A4 3E E5 ............^.>.
0000E0: BE CA D2 A5 3A 41 A2 BE C2 F6 A5 23 7E D6 24 C2 ....:A.....#~.$.
0000F0: F6 A5 3D 32 45 A2 0E 01 CD 6B A5 CD 8C A4 C3 D2 ..=2E....k......
000100: A5 3A D4 AC C3 01 A2 C5 F5 3A C5 AC 2F 47 79 A0 .:.......:../Gy.
000110: 4F F1 A0 91 E6 1F C1 C9 3E FF 32 D4 AC 21 D8 AC O.......>.2..!..
000120: 71 2A 43 A2 22 D9 AC CD FE A4 CD A1 A2 0E 00 CD q*C."...........
000130: 05 A5 CD F5 A4 CA 94 A6 2A D9 AC EB 1A FE E5 CA ........*.......
000140: 4A A6 D5 CD 7F A4 D1 D2 94 A6 CD 5E A4 3A D8 AC J..........^.:..
000150: 4F 06 00 79 B7 CA 83 A6 1A FE 3F CA 7C A6 78 FE O..y......?.|.x.
000160: 0D CA 7C A6 FE 0C 1A CA 73 A6 96 E6 7F C2 2D A6 ..|.....s.....-.
000170: C3 7C A6 C5 4E CD 07 A6 C1 C2 2D A6 13 23 04 0D .|..N.....-..#..
000180: C3 53 A6 3A EA AC E6 03 32 45 A2 21 D4 AC 7E 17 .S.:....2E.!..~.
000190: D0 AF 77 C9 CD FE A4 3E FF C3 01 A2 CD 54 A4 0E ..w....>.....T..
0001A0: 0C CD 18 A6 CD F5 A4 C8 CD 44 A4 CD 5E A4 36 E5 .........D..^.6.
0001B0: 0E 00 CD 6B A5 CD C6 A4 CD 2D A6 C3 A4 A6 50 59 ...k.....-....PY
0001C0: 79 B0 CA D1 A6 0B D5 C5 CD 35 A5 1F D2 EC A6 C1 y........5......
0001D0: D1 2A C6 AC 7B 95 7A 9C D2 F4 A6 13 C5 D5 42 4B .*..{.z.......BK
0001E0: CD 35 A5 1F D2 EC A6 D1 C1 C3 C0 A6 17 3C CD 64 .5...........<.d
0001F0: A5 E1 D1 C9 79 B0 C2 C0 A6 21 00 00 C9 0E 00 1E ....y....!......
Size : 512 (Real : 512)
000000: 97 CD D5 98 C3 86 9E 4E 4F 20 53 50 41 43 45 00 .......NO SPACE.
000010: CD 5E 99 C2 09 99 3A F0 9E F5 CD 54 9B CD E9 97 .^....:....T....
000020: C2 79 9D 21 CD 9E 11 DD 9E 06 10 CD 42 9B 2A 88 .y.!........B.*.
000030: 97 EB CD 4F 99 FE 3D CA 3F 9D FE 5F C2 73 9D EB ...O..=.?.._.s..
000040: 23 22 88 97 CD 5E 99 C2 73 9D F1 47 21 F0 9E 7E #"...^..s..G!..~
000050: B7 CA 59 9D B8 70 C2 73 9D 70 AF 32 CD 9E CD E9 ..Y..p.s.p.2....
000060: 97 CA 6D 9D 11 CD 9E CD 0E 98 C3 86 9E CD EA 9A ..m.............
000070: C3 86 9E CD 66 9B C3 09 99 01 82 9D CD A7 97 C3 ....f...........
000080: 86 9E 46 49 4C 45 20 45 58 49 53 54 53 00 CD F8 ..FILE EXISTS...
000090: 9A FE 10 D2 09 99 5F 3A CE 9E FE 20 CA 09 99 CD ......_:... ....
0000A0: 15 98 C3 89 9E CD F5 98 3A CE 9E FE 20 C2 C4 9D ........:... ...
0000B0: 3A F0 9E B7 CA 89 9E 3D 32 EF 9E CD 29 98 CD BD :......=2...)...
0000C0: 97 C3 89 9E 11 D6 9E 1A FE 20 C2 09 99 D5 CD 54 ......... .....T
0000D0: 9B D1 21 83 9E CD 40 9B CD D0 97 CA 6B 9E 21 00 ..!...@.....k.!.
0000E0: 01 E5 EB CD D8 98 11 CD 9E CD F9 97 C2 01 9E E1 ................
0000F0: 11 80 00 19 11 00 97 7D 93 7C 9A D2 71 9E C3 E1 .......}.|..q...
000100: 9D E1 3D C2 71 9E CD 66 9B CD 5E 99 21 F0 9E E5 ..=.q..f..^.!...
000110: 7E 32 CD 9E 3E 10 CD 60 99 E1 7E 32 DD 9E AF 32 ~2..>..`..~2...2
000120: ED 9E 11 5C 00 21 CD 9E 06 21 CD 42 9B 21 08 97 ...\.!...!.B.!..
000130: 7E B7 CA 3E 9E FE 20 CA 3E 9E 23 C3 30 9E 06 00 ~..>.. .>.#.0...
000140: 11 81 00 7E 12 B7 CA 4F 9E 04 23 13 C3 43 9E 78 ...~...O..#..C.x
000150: 32 80 00 CD 98 97 CD D5 98 CD 1A 98 CD 00 01 31 2..............1
000160: AB 9E CD 29 98 CD BD 97 C3 82 9A CD 66 9B C3 09 ...)........f...
000170: 99 01 7A 9E CD A7 97 C3 86 9E 42 41 44 20 4C 4F ..z.......BAD LO
000180: 41 44 00 43 4F 4D CD 66 9B CD 5E 99 3A CE 9E D6 AD.COM.f..^.:...
000190: 20 21 F0 9E B6 C2 09 99 C3 82 9A 00 00 00 00 00 !..............
0001A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 24 24 24 .............$$$
0001B0: 20 20 20 20 20 53 55 42 00 00 00 00 00 00 00 00 SUB........
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 ................
Size : 512 (Real : 512)
000000: 20 D5 06 00 2A 43 A2 09 EB CD 5E A4 C1 CD 4F A2 ...*C....^...O.
000010: CD C3 A2 C3 C6 A4 CD 54 A4 0E 0C CD 18 A6 2A 43 .......T......*C
000020: A2 7E 11 10 00 19 77 CD F5 A4 C8 CD 44 A4 0E 10 .~....w.....D...
000030: 1E 0C CD 01 A7 CD 2D A6 C3 27 A7 0E 0C CD 18 A6 ......-..'......
000040: CD F5 A4 C8 0E 00 1E 0C CD 01 A7 CD 2D A6 C3 40 ............-..@
000050: A7 0E 0F CD 18 A6 CD F5 A4 C8 CD A6 A3 7E F5 E5 .............~..
000060: CD 5E A4 EB 2A 43 A2 0E 20 D5 CD 4F A2 CD 78 A4 .^..*C.. ..O..x.
000070: D1 21 0C 00 19 4E 21 0F 00 19 46 E1 F1 77 79 BE .!...N!...F..wy.
000080: 78 CA 8B A7 3E 00 DA 8B A7 3E 80 2A 43 A2 11 0F x...>....>.*C...
000090: 00 19 77 C9 7E 23 B6 2B C0 1A 77 13 23 1A 77 1B ..w.~#.+..w.#.w.
0000A0: 2B C9 AF 32 45 A2 32 EA AC 32 EB AC CD 1E A4 C0 +..2E.2..2......
0000B0: CD 69 A4 E6 80 C0 0E 0F CD 18 A6 CD F5 A4 C8 01 .i..............
0000C0: 10 00 CD 5E A4 09 EB 2A 43 A2 09 0E 10 3A DD AC ...^...*C....:..
0000D0: B7 CA E8 A7 7E B7 1A C2 DB A7 77 B7 C2 E1 A7 7E ....~.....w....~
0000E0: 12 BE C2 1F A8 C3 FD A7 CD 94 A7 EB CD 94 A7 EB ................
0000F0: 1A BE C2 1F A8 13 23 1A BE C2 1F A8 0D 13 23 0D ......#.......#.
000100: C2 CD A7 01 EC FF 09 EB 09 1A BE DA 17 A8 77 01 ..............w.
000110: 03 00 09 EB 09 7E 12 3E FF 32 D2 AC C3 10 A7 21 .....~.>.2.....!
000120: 45 A2 35 C9 CD 54 A4 2A 43 A2 E5 21 AC AC 22 43 E.5..T.*C..!.."C
000130: A2 0E 01 CD 18 A6 CD F5 A4 E1 22 43 A2 C8 EB 21 .........."C...!
000140: 0F 00 19 0E 11 AF 77 23 0D C2 46 A8 21 0D 00 19 ......w#..F.!...
000150: 77 CD 8C A4 CD FD A6 C3 78 A4 AF 32 D2 AC CD A2 w.......x..2....
000160: A7 CD F5 A4 C8 2A 43 A2 01 0C 00 09 7E 3C E6 1F .....*C.....~<..
000170: 77 CA 83 A8 47 3A C5 AC A0 21 D2 AC A6 CA 8E A8 w...G:...!......
000180: C3 AC A8 01 02 00 09 34 7E E6 0F CA B6 A8 0E 0F .......4~.......
000190: CD 18 A6 CD F5 A4 C2 AC A8 3A D3 AC 3C CA B6 A8 .........:..<...
0001A0: CD 24 A8 CD F5 A4 CA B6 A8 C3 AF A8 CD 5A A7 CD .$...........Z..
0001B0: BB A3 AF C3 01 A2 CD 05 A2 C3 78 A4 3E 01 32 D5 ..........x.>.2.
0001C0: AC 3E FF 32 D3 AC CD BB A3 3A E3 AC 21 E1 AC BE .>.2.....:..!...
0001D0: DA E6 A8 FE 80 C2 FB A8 CD 5A A8 AF 32 E3 AC 3A .........Z..2..:
0001E0: 45 A2 B7 C2 FB A8 CD 77 A3 CD 84 A3 CA FB A8 CD E......w........
0001F0: 8A A3 CD D1 A2 CD B2 A2 C3 D2 A3 C3 05 A2 3E 01 ..............>.
Size : 512 (Real : 512)
000000: D0 16 04 00 00 00 C3 11 9F 99 9F A5 9F AB 9F B1 ................
000010: 9F EB 22 43 A2 EB 7B 32 D6 AC 21 00 00 22 45 A2 .."C..{2..!.."E.
000020: 39 22 0F A2 31 41 A2 AF 32 E0 AC 32 DE AC 21 74 9"..1A..2..2..!t
000030: AC E5 79 FE 29 D0 4B 21 47 9F 5F 16 00 19 19 5E ..y.).K!G._....^
000040: 23 56 2A 43 A2 EB E9 03 AD C8 A1 90 A0 CE A1 12 #V*C............
000050: AD 0F AD D4 A1 ED A1 F3 A1 F8 A1 E1 A0 FE A1 7E ...............~
000060: AB 83 AB 45 AB 9C AB A5 AB AB AB C8 AB D7 AB E0 ...E............
000070: AB E6 AB EC AB F5 AB FE AB 04 AC 0A AC 11 AC 2C ...............,
000080: A4 17 AC 1D AC 26 AC 2D AC 41 AC 47 AC 4D AC 0E .....&.-.A.G.M..
000090: AB 53 AC 04 A2 04 A2 9B AC 21 CA 9F CD E5 9F FE .S.......!......
0000A0: 03 CA 00 00 C9 21 D5 9F C3 B4 9F 21 E1 9F C3 B4 .....!.....!....
0000B0: 9F 21 DC 9F CD E5 9F C3 00 00 42 64 6F 73 20 45 .!........Bdos E
0000C0: 72 72 20 4F 6E 20 20 3A 20 24 42 61 64 20 53 65 rr On : $Bad Se
0000D0: 63 74 6F 72 24 53 65 6C 65 63 74 24 46 69 6C 65 ctor$Select$File
0000E0: 20 52 2F 4F 24 E5 CD C9 A0 3A 42 A2 C6 41 32 C6 R/O$....:B..A2.
0000F0: 9F 01 BA 9F CD D3 A0 C1 CD D3 A0 21 0E A2 7E 36 ...........!..~6
000100: 00 B7 C0 C3 09 AD CD FB 9F CD 14 A0 D8 F5 4F CD ..............O.
000110: 90 A0 F1 C9 FE 0D C8 FE 0A C8 FE 09 C8 FE 08 C8 ................
000120: FE 20 C9 3A 0E A2 B7 C2 45 A0 CD 06 AD E6 01 C8 . .:....E.......
000130: CD 09 AD FE 13 C2 42 A0 CD 09 AD FE 03 CA 00 00 ......B.........
000140: AF C9 32 0E A2 3E 01 C9 3A 0A A2 B7 C2 62 A0 C5 ..2..>..:....b..
000150: CD 2A A0 C1 C5 CD 0C AD C1 C5 3A 0D A2 B7 C4 0F .*........:.....
000160: AD C1 79 21 0C A2 FE 7F C8 34 FE 20 D0 35 7E B7 ..y!.....4. .5~.
000170: C8 79 FE 08 C2 79 A0 35 C9 FE 0A C0 36 00 C9 79 .y...y.5....6..y
000180: CD 14 A0 D2 90 A0 F5 0E 5E CD 48 A0 F1 F6 40 4F ........^.H...@O
000190: 79 FE 09 C2 48 A0 0E 20 CD 48 A0 3A 0C A2 E6 07 y...H.. .H.:....
0001A0: C2 96 A0 C9 CD AC A0 0E 20 CD 0C AD 0E 08 C3 0C ........ .......
0001B0: AD 0E 23 CD 48 A0 CD C9 A0 3A 0C A2 21 0B A2 BE ..#.H....:..!...
0001C0: D0 0E 20 CD 48 A0 C3 B9 A0 0E 0D CD 48 A0 0E 0A .. .H.......H...
0001D0: C3 48 A0 0A FE 24 C8 03 C5 4F CD 90 A0 C1 C3 D3 .H...$...O......
0001E0: A0 3A 0C A2 32 0B A2 2A 43 A2 4E 23 E5 06 00 C5 .:..2..*C.N#....
0001F0: E5 CD FB 9F E6 7F E1 C1 FE 0D CA C1 A1 FE 0A CA ................
Size : 512 (Real : 512)
000000: 32 D5 AC 3E 00 32 D3 AC CD 54 A4 2A 43 A2 CD 47 2..>.2...T.*C..G
000010: A4 CD BB A3 3A E3 AC FE 80 D2 05 A2 CD 77 A3 CD ....:........w..
000020: 84 A3 0E 00 C2 6E A9 CD 3E A3 32 D7 AC 01 00 00 .....n..>.2.....
000030: B7 CA 3B A9 4F 0B CD 5E A3 44 4D CD BE A6 7D B4 ..;.O..^.DM...}.
000040: C2 48 A9 3E 02 C3 01 A2 22 E5 AC EB 2A 43 A2 01 .H.>...."...*C..
000050: 10 00 09 3A DD AC B7 3A D7 AC CA 64 A9 CD 64 A4 ...:...:...d..d.
000060: 73 C3 6C A9 4F 06 00 09 09 73 23 72 0E 02 3A 45 s.l.O....s#r..:E
000070: A2 B7 C0 C5 CD 8A A3 3A D5 AC 3D 3D C2 BB A9 C1 .......:..==....
000080: C5 79 3D 3D C2 BB A9 E5 2A B9 AC 57 77 23 14 F2 .y==....*..Ww#..
000090: 8C A9 CD E0 A4 2A E7 AC 0E 02 22 E5 AC C5 CD D1 .....*....".....
0000A0: A2 C1 CD B8 A2 2A E5 AC 0E 00 3A C4 AC 47 A5 B8 .....*....:..G..
0000B0: 23 C2 9A A9 E1 22 E5 AC CD DA A4 CD D1 A2 C1 C5 #...."..........
0000C0: CD B8 A2 C1 3A E3 AC 21 E1 AC BE DA D2 A9 77 34 ....:..!......w4
0000D0: 0E 02 00 00 21 00 97 F5 CD 69 A4 E6 7F 77 F1 FE ....!....i...w..
0000E0: 7F C2 00 AA 3A D5 AC FE 01 C2 00 AA CD D2 A3 CD ....:...........
0000F0: 5A A8 21 45 A2 7E B7 C2 FE A9 3D 32 E3 AC 36 00 Z.!E.~....=2..6.
000100: C3 D2 A3 AF 32 D5 AC C5 2A 43 A2 EB 21 21 00 19 ....2...*C..!!..
000110: 7E E6 7F F5 7E 17 23 7E 17 E6 1F 4F 7E 1F 1F 1F ~...~.#~...O~...
000120: 1F E6 0F 47 F1 23 6E 2C 2D 2E 06 C2 8B AA 21 20 ...G.#n,-.....!
000130: 00 19 77 21 0C 00 19 79 96 C2 47 AA 21 0E 00 19 ..w!...y..G.!...
000140: 78 96 E6 7F CA 7F AA C5 D5 CD A2 A7 D1 C1 2E 03 x...............
000150: 3A 45 A2 3C CA 84 AA 21 0C 00 19 71 21 0E 00 19 :E.<...!...q!...
000160: 70 CD 51 A7 3A 45 A2 3C C2 7F AA C1 C5 2E 04 0C p.Q.:E.<........
000170: CA 84 AA CD 24 A8 2E 05 3A 45 A2 3C CA 84 AA C1 ....$...:E.<....
000180: AF C3 01 A2 E5 CD 69 A4 36 C0 E1 C1 7D 32 45 A2 ......i.6...}2E.
000190: C3 78 A4 0E FF CD 03 AA CC C1 A8 C9 0E 00 CD 03 .x..............
0001A0: AA CC 03 A9 C9 EB 19 4E 06 00 21 0C 00 19 7E 0F .......N..!...~.
0001B0: E6 80 81 4F 3E 00 88 47 7E 0F E6 0F 80 47 21 0E ...O>..G~....G!.
0001C0: 00 19 7E 87 87 87 87 F5 80 47 F5 E1 7D E1 B5 E6 ..~......G..}...
0001D0: 01 C9 0E 0C CD 18 A6 2A 43 A2 11 21 00 19 E5 72 .......*C..!...r
0001E0: 23 72 23 72 CD F5 A4 CA 0C AB CD 5E A4 11 0F 00 #r#r.......^....
0001F0: CD A5 AA E1 E5 5F 79 96 23 78 9E 23 7B 9E DA 06 ....._y.#x.#{...
Size : 512 (Real : 512)
000000: C1 A1 FE 08 C2 16 A1 78 B7 CA EF A0 05 3A 0C A2 .......x.....:..
000010: 32 0A A2 C3 70 A1 FE 7F C2 26 A1 3E 08 C3 07 A1 2...p....&.>....
000020: 7E 05 2B C3 A9 A1 FE 05 C2 37 A1 C5 E5 CD C9 A0 ~.+......7......
000030: AF 32 0B A2 C3 F1 A0 FE 10 C2 48 A1 E5 21 0D A2 .2........H..!..
000040: 3E 01 96 77 E1 C3 EF A0 FE 18 C2 5F A1 E1 3A 0B >..w......._..:.
000050: A2 21 0C A2 BE D2 E1 A0 35 CD A4 A0 C3 4E A1 FE .!......5....N..
000060: 15 C2 6B A1 CD B1 A0 E1 C3 E1 A0 FE 12 C2 A6 A1 ..k.............
000070: C5 CD B1 A0 C1 E1 E5 C5 78 B7 CA 8A A1 23 4E 05 ........x....#N.
000080: C5 E5 CD 7F A0 E1 C1 C3 78 A1 E5 3A 0A A2 B7 CA ........x..:....
000090: F1 A0 21 0C A2 96 32 0A A2 CD A4 A0 21 0A A2 35 ..!...2.....!..5
0000A0: C2 99 A1 C3 F1 A0 23 77 04 C5 E5 4F CD 7F A0 E1 ......#w...O....
0000B0: C1 7E FE 03 78 C2 BD A1 FE 01 CA 00 00 B9 DA EF .~..x...........
0000C0: A0 E1 70 0E 0D C3 48 A0 CD 06 A0 C3 01 A2 CD 15 ..p...H.........
0000D0: AD C3 01 A2 79 3C CA E0 A1 3C CA 06 AD C3 0C AD ....y<...<......
0000E0: CD 06 AD B7 CA 91 AC CD 09 AD C3 01 A2 3A 03 00 .............:..
0000F0: C3 01 A2 21 03 00 71 C9 EB 4D 44 C3 D3 A0 CD 23 ...!..q..MD....#
000100: A0 32 45 A2 C9 3E 01 C3 01 A2 00 00 00 00 00 00 .2E..>..........
000110: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000120: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000130: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000140: 00 00 00 00 00 00 00 21 0B 9F 5E 23 56 EB E9 0C .......!..^#V...
000150: 0D C8 1A 77 13 23 C3 50 A2 3A 42 A2 4F CD 1B AD ...w.#.P.:B.O...
000160: 7C B5 C8 5E 23 56 23 22 B3 AC 23 23 22 B5 AC 23 |..^#V#"..##"..#
000170: 23 22 B7 AC 23 23 EB 22 D0 AC 21 B9 AC 0E 08 CD #"..##."..!.....
000180: 4F A2 2A BB AC EB 21 C1 AC 0E 0F CD 4F A2 2A C6 O.*...!.....O.*.
000190: AC 7C 21 DD AC 36 FF B7 CA 9D A2 36 00 3E FF B7 .|!..6.....6.>..
0001A0: C9 CD 18 AD AF 2A B5 AC 77 23 77 2A B7 AC 77 23 .....*..w#w*..w#
0001B0: 77 C9 CD 27 AD C3 BB A2 CD 2A AD B7 C8 21 09 9F w..'.....*...!..
0001C0: C3 4A A2 2A EA AC 0E 02 CD EA A3 22 E5 AC 22 EC .J.*......."..".
0001D0: AC 21 E5 AC 4E 23 46 2A B7 AC 5E 23 56 2A B5 AC .!..N#F*..^#V*..
0001E0: 7E 23 66 6F 79 93 78 9A D2 FA A2 E5 2A C1 AC 7B ~#foy.x.....*..{
0001F0: 95 5F 7A 9C 57 E1 2B C3 E4 A2 E5 2A C1 AC 19 DA ._z.W.+....*....
Size : 512 (Real : 512)
000000: AB 73 2B 70 2B 71 CD 2D A6 C3 E4 AA E1 C9 2A 43 .s+p+q.-......*C
000010: A2 11 20 00 CD A5 AA 21 21 00 19 71 23 70 23 77 .. ....!!..q#p#w
000020: C9 2A AF AC 3A 42 A2 4F CD EA A3 E5 EB CD 59 A2 .*..:B.O......Y.
000030: E1 CC 47 A2 7D 1F D8 2A AF AC 4D 44 CD 0B A4 22 ..G.}..*..MD..."
000040: AF AC C3 A3 A5 3A D6 AC 21 42 A2 BE C8 77 C3 21 .....:..!B...w.!
000050: AB 3E FF 32 DE AC 2A 43 A2 7E E6 1F 3D 32 D6 AC .>.2..*C.~..=2..
000060: FE 1E D2 75 AB 3A 42 A2 32 DF AC 7E 32 E0 AC E6 ...u.:B.2..~2...
000070: E0 77 CD 45 AB 3A 41 A2 2A 43 A2 B6 77 C9 3E 22 .w.E.:A.*C..w.>"
000080: C3 01 A2 21 00 00 22 AD AC 22 AF AC AF 32 42 A2 ...!..".."...2B.
000090: 21 80 00 22 B1 AC CD DA A4 C3 21 AB CD 72 A4 CD !.."......!..r..
0000A0: 51 AB C3 51 A7 CD 51 AB C3 A2 A7 0E 00 EB 7E FE Q..Q..Q.......~.
0000B0: 3F CA C2 AB CD A6 A3 7E FE 3F C4 72 A4 CD 51 AB ?......~.?.r..Q.
0000C0: 0E 0F CD 18 A6 C3 E9 A4 2A D9 AC 22 43 A2 CD 51 ........*.."C..Q
0000D0: AB CD 2D A6 C3 E9 A4 CD 51 AB CD 9C A6 C3 01 A6 ..-.....Q.......
0000E0: CD 51 AB C3 BC A8 CD 51 AB C3 FE A8 CD 72 A4 CD .Q.....Q.....r..
0000F0: 51 AB C3 24 A8 CD 51 AB CD 16 A7 C3 01 A6 2A AF Q..$..Q.......*.
000100: AC C3 29 AC 3A 42 A2 C3 01 A2 EB 22 B1 AC C3 DA ..).:B....."....
000110: A4 2A BF AC C3 29 AC 2A AD AC C3 29 AC CD 51 AB .*...).*...)..Q.
000120: CD 3B A7 C3 01 A6 2A BB AC 22 45 A2 C9 3A D6 AC .;....*.."E..:..
000130: FE FF C2 3B AC 3A 41 A2 C3 01 A2 E6 1F 32 41 A2 ...;.:A......2A.
000140: C9 CD 51 AB C3 93 AA CD 51 AB C3 9C AA CD 51 AB ..Q.....Q.....Q.
000150: C3 D2 AA 2A 43 A2 7D 2F 5F 7C 2F 2A AF AC A4 57 ...*C.}/_|/*...W
000160: 7D A3 5F 2A AD AC EB 22 AF AC 7D A3 6F 7C A2 67 }._*..."..}.o|.g
000170: 22 AD AC C9 3A DE AC B7 CA 91 AC 2A 43 A2 36 00 "...:......*C.6.
000180: 3A E0 AC B7 CA 91 AC 77 3A DF AC 32 D6 AC CD 45 :......w:..2...E
000190: AB 2A 0F A2 F9 2A 45 A2 7D 44 C9 CD 51 AB 3E 02 .*...*E.}D..Q.>.
0001A0: 32 D5 AC 0E 00 CD 07 AA CC 03 A9 C9 E5 00 00 00 2...............
0001B0: 00 80 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 ................
Size : 512 (Real : 512)
000000: 0F A3 79 95 78 9C DA 0F A3 EB E1 23 C3 FA A2 E1 ..y.x......#....
000010: C5 D5 E5 EB 2A CE AC 19 44 4D CD 1E AD D1 2A B5 ....*...DM....*.
000020: AC 73 23 72 D1 2A B7 AC 73 23 72 C1 79 93 4F 78 .s#r.*..s#r.y.Ox
000030: 9A 47 2A D0 AC EB CD 30 AD 4D 44 C3 21 AD 21 C3 .G*....0.MD.!.!.
000040: AC 4E 3A E3 AC B7 1F 0D C2 45 A3 47 3E 08 96 4F .N:......E.G>..O
000050: 3A E2 AC 0D CA 5C A3 B7 17 C3 53 A3 80 C9 2A 43 :....\....S...*C
000060: A2 11 10 00 19 09 3A DD AC B7 CA 71 A3 6E 26 00 ......:....q.n&.
000070: C9 09 5E 23 56 EB C9 CD 3E A3 4F 06 00 CD 5E A3 ..^#V...>.O...^.
000080: 22 E5 AC C9 2A E5 AC 7D B4 C9 3A C3 AC 2A E5 AC "...*..}..:..*..
000090: 29 3D C2 90 A3 22 E7 AC 3A C4 AC 4F 3A E3 AC A1 )=..."..:..O:...
0000A0: B5 6F 22 E5 AC C9 2A 43 A2 11 0C 00 19 C9 2A 43 .o"...*C......*C
0000B0: A2 11 0F 00 19 EB 21 11 00 19 C9 CD AE A3 7E 32 ......!.......~2
0000C0: E3 AC EB 7E 32 E1 AC CD A6 A3 3A C5 AC A6 32 E2 ...~2.....:...2.
0000D0: AC C9 CD AE A3 3A D5 AC FE 02 C2 DE A3 AF 4F 3A .....:........O:
0000E0: E3 AC 81 77 EB 3A E1 AC 77 C9 0C 0D C8 7C B7 1F ...w.:..w....|..
0000F0: 67 7D 1F 6F C3 EB A3 0E 80 2A B9 AC AF 86 23 0D g}.o.....*....#.
000100: C2 FD A3 C9 0C 0D C8 29 C3 05 A4 C5 3A 42 A2 4F .......)....:B.O
000110: 21 01 00 CD 04 A4 C1 79 B5 6F 78 B4 67 C9 2A AD !......y.ox.g.*.
000120: AC 3A 42 A2 4F CD EA A3 7D E6 01 C9 21 AD AC 4E .:B.O...}...!..N
000130: 23 46 CD 0B A4 22 AD AC 2A C8 AC 23 EB 2A B3 AC #F..."..*..#.*..
000140: 73 23 72 C9 CD 5E A4 11 09 00 19 7E 17 D0 21 0F s#r..^.....~..!.
000150: 9F C3 4A A2 CD 1E A4 C8 21 0D 9F C3 4A A2 2A B9 ..J.....!...J.*.
000160: AC 3A E9 AC 85 6F D0 24 C9 2A 43 A2 11 0E 00 19 .:...o.$.*C.....
000170: 7E C9 CD 69 A4 36 00 C9 CD 69 A4 F6 80 77 C9 2A ~..i.6...i...w.*
000180: EA AC EB 2A B3 AC 7B 96 23 7A 9E C9 CD 7F A4 D8 ...*..{.#z......
000190: 13 72 2B 73 C9 7B 95 6F 7A 9C 67 C9 0E FF 2A EC .r+s.{.oz.g...*.
0001A0: AC EB 2A CC AC CD 95 A4 D0 C5 CD F7 A3 2A BD AC ..*..........*..
0001B0: EB 2A EC AC 19 C1 0C CA C4 A4 BE C8 CD 7F A4 D0 .*..............
0001C0: CD 2C A4 C9 77 C9 CD 9C A4 CD E0 A4 0E 01 CD B8 .,..w...........
0001D0: A2 C3 DA A4 CD E0 A4 CD B2 A2 21 B1 AC C3 E3 A4 ..........!.....
0001E0: 21 B9 AC 4E 23 46 C3 24 AD 2A B9 AC EB 2A B1 AC !..N#F.$.*...*..
0001F0: 0E 80 C3 4F A2 21 EA AC 7E 23 BE C0 3C C9 21 FF ...O.!..~#..<.!.
Size : 512 (Real : 512)
000000: 00 54 47 44 45 4D 4F 30 20 49 4E 43 00 00 00 0A .TGDEMO0 INC....
000010: 02 03 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000020: 00 42 45 5A 49 44 45 4D 4F 43 4F 4D 00 00 00 40 .BEZIDEMOCOM...@
000030: 04 05 06 07 08 09 0A 0B 00 00 00 00 00 00 00 00 ................
000040: E5 54 55 52 42 4F 20 20 20 43 4F 4D 01 00 00 71 .TURBO COM...q
000050: 14 15 16 17 18 19 1A 1B 1C 1D 1E 1F 20 21 22 00 ............ !".
000060: 00 54 47 44 45 4D 4F 31 20 49 4E 43 00 00 00 10 .TGDEMO1 INC....
000070: 23 24 00 00 00 00 00 00 00 00 00 00 00 00 00 00 #$..............
000080: 00 54 47 44 45 4D 4F 34 20 49 4E 43 00 00 00 0D .TGDEMO4 INC....
000090: 25 26 00 00 00 00 00 00 00 00 00 00 00 00 00 00 %&..............
0000A0: 00 54 47 44 45 4D 4F 20 20 43 48 4F 00 00 00 16 .TGDEMO CHO....
0000B0: 27 28 29 00 00 00 00 00 00 00 00 00 00 00 00 00 '().............
0000C0: 00 54 47 44 45 4D 4F 31 30 49 4E 43 00 00 00 1E .TGDEMO10INC....
0000D0: 2A 2B 2C 2D 00 00 00 00 00 00 00 00 00 00 00 00 *+,-............
0000E0: 00 54 47 44 45 4D 4F 20 20 50 41 53 00 00 00 1D .TGDEMO PAS....
0000F0: 2E 2F 30 31 00 00 00 00 00 00 00 00 00 00 00 00 ./01............
000100: 00 54 47 44 45 4D 4F 32 20 49 4E 43 00 00 00 1C .TGDEMO2 INC....
000110: 32 33 34 35 00 00 00 00 00 00 00 00 00 00 00 00 2345............
000120: 00 54 47 44 45 4D 4F 33 20 49 4E 43 00 00 00 1B .TGDEMO3 INC....
000130: 36 37 38 39 00 00 00 00 00 00 00 00 00 00 00 00 6789............
000140: 00 54 47 44 45 4D 4F 35 20 49 4E 43 00 00 00 16 .TGDEMO5 INC....
000150: 3A 3B 3C 00 00 00 00 00 00 00 00 00 00 00 00 00 :;<.............
000160: 00 54 47 44 45 4D 4F 36 20 49 4E 43 00 00 00 0F .TGDEMO6 INC....
000170: 3D 3E 00 00 00 00 00 00 00 00 00 00 00 00 00 00 =>..............
000180: 00 54 47 44 45 4D 4F 20 20 49 4E 46 00 00 00 32 .TGDEMO INF...2
000190: 3F 40 41 42 43 44 45 00 00 00 00 00 00 00 00 00 ?@ABCDE.........
0001A0: 00 53 43 52 45 45 4E 49 4F 50 41 53 00 00 00 18 .SCREENIOPAS....
0001B0: 46 47 48 00 00 00 00 00 00 00 00 00 00 00 00 00 FGH.............
0001C0: 00 44 52 57 43 49 52 20 20 50 41 53 00 00 00 08 .DRWCIR PAS....
0001D0: 49 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 I...............
0001E0: 00 54 47 44 45 4D 4F 31 31 49 4E 43 00 00 00 19 .TGDEMO11INC....
0001F0: 4A 4B 4C 4D 00 00 00 00 00 00 00 00 00 00 00 00 JKLM............
Size : 512 (Real : 512)
000000: 75 72 65 20 6D 73 67 28 73 3A 77 72 6B 73 74 72 ure msg(s:wrkstr
000010: 69 6E 67 29 3B 0D 0A 62 65 67 69 6E 0D 0A 20 20 ing);..begin..
000020: 43 6C 65 61 72 45 6F 6C 28 32 35 29 3B 0D 0A 20 ClearEol(25);..
000030: 20 67 6F 74 6F 78 79 28 31 2C 32 35 29 3B 0D 0A gotoxy(1,25);..
000040: 20 20 77 72 69 74 65 28 73 29 3B 0D 0A 20 20 64 write(s);.. d
000050: 65 6C 61 79 28 37 35 30 29 3B 0D 0A 65 6E 64 3B elay(750);..end;
000060: 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 65 20 53 65 ....procedure Se
000070: 6C 65 63 74 49 42 4D 3B 0D 0A 62 65 67 69 6E 0D lectIBM;..begin.
000080: 0A 20 20 53 65 6C 65 63 74 57 6F 72 6C 64 28 32 . SelectWorld(2
000090: 29 3B 0D 0A 20 20 53 65 6C 65 63 74 57 69 6E 64 );.. SelectWind
0000A0: 6F 77 28 31 30 29 3B 0D 0A 65 6E 64 3B 0D 0A 0D ow(10);..end;...
0000B0: 0A 70 72 6F 63 65 64 75 72 65 20 44 65 66 69 6E .procedure Defin
0000C0: 65 57 69 6E 64 6F 77 49 42 4D 28 69 2C 58 31 2C eWindowIBM(i,X1,
0000D0: 59 31 2C 58 32 2C 59 32 3A 69 6E 74 65 67 65 72 Y1,X2,Y2:integer
0000E0: 29 3B 0D 0A 62 65 67 69 6E 0D 0A 20 20 44 65 66 );..begin.. Def
0000F0: 69 6E 65 57 69 6E 64 6F 77 28 69 2C 54 72 75 6E ineWindow(i,Trun
000100: 63 28 58 31 2F 37 39 2A 58 4D 61 78 47 6C 62 2B c(X1/79*XMaxGlb+
000110: 30 2E 30 30 31 29 2C 54 72 75 6E 63 28 59 31 2F 0.001),Trunc(Y1/
000120: 31 39 39 2A 59 4D 61 78 47 6C 62 2B 30 2E 30 30 199*YMaxGlb+0.00
000130: 31 29 2C 0D 0A 20 20 20 20 20 20 20 20 20 20 20 1),..
000140: 20 20 20 20 20 20 54 72 75 6E 63 28 58 32 2F 37 Trunc(X2/7
000150: 39 2A 58 4D 61 78 47 6C 62 2B 30 2E 35 29 2C 54 9*XMaxGlb+0.5),T
000160: 72 75 6E 63 28 59 32 2F 31 39 39 2A 59 4D 61 78 runc(Y2/199*YMax
000170: 47 6C 62 2B 30 2E 35 29 29 3B 0D 0A 65 6E 64 3B Glb+0.5));..end;
000180: 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 65 20 4D 6F ....procedure Mo
000190: 76 65 48 6F 72 49 42 4D 28 64 65 6C 74 61 3A 69 veHorIBM(delta:i
0001A0: 6E 74 65 67 65 72 3B 66 69 6C 6C 3A 62 6F 6F 6C nteger;fill:bool
0001B0: 65 61 6E 29 3B 0D 0A 76 61 72 20 64 3A 69 6E 74 ean);..var d:int
0001C0: 65 67 65 72 3B 0D 0A 62 65 67 69 6E 0D 0A 20 20 eger;..begin..
0001D0: 64 3A 3D 54 72 75 6E 63 28 61 62 73 28 64 65 6C d:=Trunc(abs(del
0001E0: 74 61 29 2F 37 39 2A 58 4D 61 78 47 6C 62 2B 30 ta)/79*XMaxGlb+0
0001F0: 2E 30 30 31 29 3B 0D 0A 20 20 69 66 20 64 65 6C .001);.. if del
Size : 512 (Real : 512)
000000: 00 54 47 44 45 4D 4F 31 32 49 4E 43 00 00 00 14 .TGDEMO12INC....
000010: 4E 4F 50 00 00 00 00 00 00 00 00 00 00 00 00 00 NOP.............
000020: 00 54 47 44 45 4D 4F 31 33 49 4E 43 00 00 00 14 .TGDEMO13INC....
000030: 51 52 53 00 00 00 00 00 00 00 00 00 00 00 00 00 QRS.............
000040: 00 44 52 57 48 43 48 20 20 50 41 53 00 00 00 09 .DRWHCH PAS....
000050: 54 55 00 00 00 00 00 00 00 00 00 00 00 00 00 00 TU..............
000060: 00 44 52 57 4C 49 4E 53 20 50 41 53 00 00 00 05 .DRWLINS PAS....
000070: 56 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 V...............
000080: 00 44 52 57 4C 49 4E 20 20 50 41 53 00 00 00 05 .DRWLIN PAS....
000090: 57 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 W...............
0000A0: 00 44 52 57 50 4E 54 20 20 50 41 53 00 00 00 05 .DRWPNT PAS....
0000B0: 58 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 X...............
0000C0: 00 44 52 57 50 4E 54 53 20 50 41 53 00 00 00 04 .DRWPNTS PAS....
0000D0: 59 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 Y...............
0000E0: 00 44 52 57 53 51 20 20 20 50 41 53 00 00 00 05 .DRWSQ PAS....
0000F0: 5A 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 Z...............
000100: 00 53 41 4D 50 4C 45 20 20 50 41 53 00 00 00 08 .SAMPLE PAS....
000110: 5B 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 [...............
000120: 00 44 52 57 53 54 58 54 20 50 41 53 00 00 00 09 .DRWSTXT PAS....
000130: 5C 5D 00 00 00 00 00 00 00 00 00 00 00 00 00 00 \]..............
000140: 00 4D 55 4C 54 57 49 4E 44 50 41 53 00 00 00 12 .MULTWINDPAS....
000150: 5E 5F 60 00 00 00 00 00 00 00 00 00 00 00 00 00 ^_`.............
000160: 00 42 45 5A 49 44 45 4D 4F 50 41 53 00 00 00 1B .BEZIDEMOPAS....
000170: 61 62 63 64 00 00 00 00 00 00 00 00 00 00 00 00 abcd............
000180: 00 46 4C 4F 57 44 45 4D 4F 50 41 53 00 00 00 24 .FLOWDEMOPAS...$
000190: 65 66 67 68 69 00 00 00 00 00 00 00 00 00 00 00 efghi...........
0001A0: 00 4D 4F 56 45 50 4F 4C 59 50 41 53 00 00 00 20 .MOVEPOLYPAS...
0001B0: 6A 6B 6C 6D 00 00 00 00 00 00 00 00 00 00 00 00 jklm............
0001C0: 00 4D 4F 56 45 57 49 4E 44 50 41 53 00 00 00 12 .MOVEWINDPAS....
0001D0: 6E 6F 70 00 00 00 00 00 00 00 00 00 00 00 00 00 nop.............
0001E0: 00 4F 4E 45 50 4F 4C 59 20 50 41 53 00 00 00 0B .ONEPOLY PAS....
0001F0: 71 72 00 00 00 00 00 00 00 00 00 00 00 00 00 00 qr..............
Size : 512 (Real : 512)
000000: 74 61 3C 30 20 74 68 65 6E 20 64 3A 3D 2D 64 3B ta<0 then d:=-d;
000010: 0D 0A 20 20 4D 6F 76 65 48 6F 72 28 64 2C 66 69 .. MoveHor(d,fi
000020: 6C 6C 29 3B 0D 0A 65 6E 64 3B 0D 0A 0D 0A 70 72 ll);..end;....pr
000030: 6F 63 65 64 75 72 65 20 4D 6F 76 65 56 65 72 49 ocedure MoveVerI
000040: 42 4D 28 64 65 6C 74 61 3A 69 6E 74 65 67 65 72 BM(delta:integer
000050: 3B 66 69 6C 6C 3A 62 6F 6F 6C 65 61 6E 29 3B 0D ;fill:boolean);.
000060: 0A 76 61 72 20 64 3A 69 6E 74 65 67 65 72 3B 0D .var d:integer;.
000070: 0A 62 65 67 69 6E 0D 0A 20 20 64 3A 3D 54 72 75 .begin.. d:=Tru
000080: 6E 63 28 61 62 73 28 64 65 6C 74 61 29 2F 31 39 nc(abs(delta)/19
000090: 39 2A 59 4D 61 78 47 6C 62 2B 30 2E 30 30 31 29 9*YMaxGlb+0.001)
0000A0: 3B 0D 0A 20 20 69 66 20 64 65 6C 74 61 3C 30 20 ;.. if delta<0
0000B0: 74 68 65 6E 20 64 3A 3D 2D 64 3B 0D 0A 20 20 4D then d:=-d;.. M
0000C0: 6F 76 65 56 65 72 28 64 2C 66 69 6C 6C 29 3B 0D oveVer(d,fill);.
0000D0: 0A 65 6E 64 3B 0D 0A 0D 0A 1A 1A 1A 1A 1A 1A 1A .end;...........
0000E0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0000F0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000100: 63 28 58 31 2F 37 39 2A 58 4D 61 78 47 6C 62 2B c(X1/79*XMaxGlb+
000110: 30 2E 30 30 31 29 2C 54 72 75 6E 63 28 59 31 2F 0.001),Trunc(Y1/
000120: 31 39 39 2A 59 4D 61 78 47 6C 62 2B 30 2E 30 30 199*YMaxGlb+0.00
000130: 31 29 2C 0D 0A 20 20 20 20 20 20 20 20 20 20 20 1),..
000140: 20 20 20 20 20 20 54 72 75 6E 63 28 58 32 2F 37 Trunc(X2/7
000150: 39 2A 58 4D 61 78 47 6C 62 2B 30 2E 35 29 2C 54 9*XMaxGlb+0.5),T
000160: 72 75 6E 63 28 59 32 2F 31 39 39 2A 59 4D 61 78 runc(Y2/199*YMax
000170: 47 6C 62 2B 30 2E 35 29 29 3B 0D 0A 65 6E 64 3B Glb+0.5));..end;
000180: 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 65 20 4D 6F ....procedure Mo
000190: 76 65 48 6F 72 49 42 4D 28 64 65 6C 74 61 3A 69 veHorIBM(delta:i
0001A0: 6E 74 65 67 65 72 3B 66 69 6C 6C 3A 62 6F 6F 6C nteger;fill:bool
0001B0: 65 61 6E 29 3B 0D 0A 76 61 72 20 64 3A 69 6E 74 ean);..var d:int
0001C0: 65 67 65 72 3B 0D 0A 62 65 67 69 6E 0D 0A 20 20 eger;..begin..
0001D0: 64 3A 3D 54 72 75 6E 63 28 61 62 73 28 64 65 6C d:=Trunc(abs(del
0001E0: 74 61 29 2F 37 39 2A 58 4D 61 78 47 6C 62 2B 30 ta)/79*XMaxGlb+0
0001F0: 2E 30 30 31 29 3B 0D 0A 20 20 69 66 20 64 65 6C .001);.. if del
Size : 512 (Real : 512)
000000: 00 4F 4E 45 41 58 49 53 20 50 41 53 00 00 00 08 .ONEAXIS PAS....
000010: 73 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 s...............
000020: 00 50 4F 4C 59 41 58 49 53 50 41 53 00 00 00 0C .POLYAXISPAS....
000030: 74 75 00 00 00 00 00 00 00 00 00 00 00 00 00 00 tu..............
000040: 00 53 49 4D 50 57 49 4E 44 50 41 53 00 00 00 08 .SIMPWINDPAS....
000050: 76 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 v...............
000060: 00 4F 4E 45 48 49 53 54 20 50 41 53 00 00 00 0B .ONEHIST PAS....
000070: 77 78 00 00 00 00 00 00 00 00 00 00 00 00 00 00 wx..............
000080: 00 4F 4E 45 50 49 45 20 20 50 41 53 00 00 00 10 .ONEPIE PAS....
000090: 79 7A 00 00 00 00 00 00 00 00 00 00 00 00 00 00 yz..............
0000A0: 00 57 44 52 57 50 4E 54 53 50 41 53 00 00 00 05 .WDRWPNTSPAS....
0000B0: 7B 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 {...............
0000C0: 00 49 4E 54 45 52 50 20 20 50 41 53 00 00 00 13 .INTERP PAS....
0000D0: 7C 7D 7E 00 00 00 00 00 00 00 00 00 00 00 00 00 |}~.............
0000E0: 00 53 43 52 4E 50 52 4E 54 50 41 53 00 00 00 15 .SCRNPRNTPAS....
0000F0: 7F 80 81 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000100: 00 46 49 4E 44 57 52 4C 44 50 41 53 00 00 00 0F .FINDWRLDPAS....
000110: 82 83 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000120: 00 50 49 45 48 49 53 54 4F 50 41 53 00 00 00 1A .PIEHISTOPAS....
000130: 84 85 86 87 00 00 00 00 00 00 00 00 00 00 00 00 ................
000140: 00 44 52 57 41 54 58 54 20 50 41 53 00 00 00 0B .DRWATXT PAS....
000150: 88 89 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000160: E5 54 47 44 45 4D 4F 20 20 43 4F 4D 00 00 00 00 .TGDEMO COM....
000170: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000180: E5 54 47 44 45 4D 4F 20 20 43 4F 4D 01 00 00 64 .TGDEMO COM...d
000190: 9A 9B 9C 9D 9E 9F A0 A1 A2 A3 A4 A5 A6 00 00 00 ................
0001A0: 00 48 41 54 43 48 20 20 20 48 47 48 00 00 00 16 .HATCH HGH....
0001B0: A7 A8 A9 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001C0: E5 50 4F 4C 59 47 4F 4E 20 24 24 24 00 00 00 08 .POLYGON $$$....
0001D0: AA 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000010: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000020: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000030: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000040: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000050: 00 00 00 00 00 00 00 00 00 00 00 00 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: FA 00 1A 1D 3E FA CD A6 1D C9 11 00 00 0E 03 CD ....>...........
000110: 05 00 C9 11 00 00 0E 01 CD 05 00 C9 21 AB 1E 71 ............!..q
000120: 3A AB 1E E6 7F 5F 16 00 0E 02 CD 05 00 C9 0E 0D :...._..........
000130: CD 1C 08 0E 0A CD 1C 08 C9 21 AD 1E 70 2B 71 CD .........!..p+q.
000140: 2E 08 2A AC 1E EB 0E 09 CD 05 00 C9 11 00 00 0E ..*.............
000150: 0C CD 05 00 C9 11 00 00 0E 0D CD 05 00 C9 21 AF ..............!.
000160: 1E 71 2A AF 1E 26 00 EB 0E 0E CD 05 00 C9 21 B1 .q*..&........!.
000170: 1E 70 2B 71 2A B0 1E EB 0E 0F CD 05 00 32 AE 1E .p+q*........2..
000180: C9 21 B3 1E 70 2B 71 2A B2 1E EB 0E 10 CD 05 00 .!..p+q*........
000190: 32 AE 1E C9 21 B5 1E 70 2B 71 2A B4 1E EB 0E 11 2...!..p+q*.....
0001A0: CD 05 00 32 AE 1E C9 11 00 00 0E 12 CD 05 00 32 ...2...........2
0001B0: AE 1E C9 21 B7 1E 70 2B 71 2A B6 1E EB 0E 13 CD ...!..p+q*......
0001C0: 05 00 C9 21 B9 1E 70 2B 71 2A B8 1E EB 0E 14 CD ...!..p+q*......
0001D0: 05 00 C9 21 BB 1E 70 2B 71 2A BA 1E EB 0E 15 CD ...!..p+q*......
0001E0: 05 00 C9 21 BD 1E 70 2B 71 2A BC 1E EB 0E 16 CD ...!..p+q*......
0001F0: 05 00 32 AE 1E C9 21 BF 1E 70 2B 71 2A BE 1E EB ..2...!..p+q*...
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: C3 E2 20 CD AB 43 6F 70 79 72 69 67 68 74 20 28 .. ..Copyright (
000010: 43 29 20 31 39 38 35 20 42 4F 52 4C 41 4E 44 20 C) 1985 BORLAND
000020: 49 6E 63 00 04 00 A1 42 00 00 00 00 00 00 00 00 Inc....B........
000030: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000040: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000050: 00 00 00 0C 61 6D 73 74 72 61 64 20 36 31 32 38 ....amstrad 6128
000060: 43 34 36 34 2F 36 36 34 50 18 00 00 1C 00 0D 0D C464/664P.......
000070: 1C 01 01 01 1D 03 03 1B 1B 1B D5 00 1C 01 00 00 ................
000080: 1C 00 17 17 1D 17 17 EF 9E CD BD 04 1B 59 00 00 .............Y..
000090: 00 00 00 00 00 00 00 00 00 00 00 01 20 20 04 03 ............ ..
0000A0: 00 00 02 1B 45 00 00 00 00 00 00 00 00 00 02 1B ....E...........
0000B0: 4C 00 00 00 02 1B 4D 00 00 00 00 00 02 1B 4B 00 L.....M.......K.
0000C0: 00 00 02 1B 71 00 00 00 02 1B 70 00 00 00 00 00 ....q.....p.....
0000D0: 7E B7 37 C8 23 F5 E5 7E CD E8 01 E1 F1 3D C8 18 ~.7.#..~.....=..
0000E0: F3 CD 00 02 0D 0A 00 C9 6F E5 CD A6 00 C9 FE 80 ........o.......
0000F0: DC 6B 02 D4 84 02 E6 7F 18 EE E5 21 EE 01 18 04 .k.........!....
000100: E5 21 E8 01 22 13 02 E1 E3 F5 C5 D5 7E 23 B7 28 .!..".......~#.(
000110: 07 E5 CD E8 01 E1 18 F4 D1 C1 F1 E3 C9 7D B4 C8 .............}..
000120: 3A 24 01 87 87 87 E3 E3 E3 E3 C5 01 D2 04 C1 3D :$.............=
000130: 20 F4 2B 18 E8 CD D0 01 D8 2A CE 01 18 DF F5 C5 .+......*......
000140: D5 E5 21 A8 01 CD 35 02 21 A2 01 CD D0 01 2A BA ..!...5.!.....*.
000150: 01 D4 1D 02 E1 D1 C1 F1 C9 F5 C5 D5 E5 21 B4 01 .............!..
000160: 18 E9 F5 C5 D5 E5 21 AE 01 18 E0 F5 3A E0 00 B7 ......!.....:...
000170: 28 10 C5 D5 E5 AF 32 E0 00 21 C8 01 CD 35 02 E1 (.....2..!...5..
000180: D1 C1 F1 C9 F5 3A E0 00 FE FF 28 F6 C5 D5 E5 3E .....:....(....>
000190: FF 32 E0 00 21 C2 01 18 E3 F5 C5 D5 E5 21 BC 01 .2..!........!..
0001A0: 18 DA F5 C5 D5 E5 E5 11 F0 00 21 8B 01 01 10 00 ..........!.....
0001B0: ED B0 D1 3A 9E 01 4F 3A 9C 01 82 D5 CD DC 02 D1 ...:..O:........
0001C0: 3A 9F 01 4F 3A 9D 01 83 CD DC 02 21 F0 00 CD D0 :..O:......!....
0001D0: 01 2A A0 01 CD 1D 02 E1 D1 C1 F1 C9 21 F0 00 06 .*..........!...
0001E0: 00 09 EB 21 9B 01 34 35 28 02 12 C9 1B 1B 21 0A ...!..45(.....!.
0001F0: 03 06 03 2B 0E 2F 0C 96 30 FC 86 F5 79 FE 30 28 ...+./..0...y.0(
Size : 512 (Real : 512)
000000: 0D 0A 70 72 6F 63 65 64 75 72 65 20 64 65 6C 61 ..procedure dela
000010: 79 28 6E 3A 20 72 65 61 6C 29 3B 0D 0A 76 61 72 y(n: real);..var
000020: 20 69 3A 72 65 61 6C 3B 0D 0A 20 20 20 20 63 68 i:real;.. ch
000030: 3A 63 68 61 72 3B 0D 0A 0D 0A 62 65 67 69 6E 0D :char;....begin.
000040: 0A 20 20 69 3A 3D 30 3B 0D 0A 20 20 63 68 3A 3D . i:=0;.. ch:=
000050: 27 20 27 3B 0D 0A 20 20 72 65 70 65 61 74 0D 0A ' ';.. repeat..
000060: 20 20 20 20 69 3A 3D 69 2B 31 3B 0D 0A 20 20 20 i:=i+1;..
000070: 20 69 66 20 6B 65 79 70 72 65 73 73 65 64 20 74 if keypressed t
000080: 68 65 6E 20 72 65 61 64 28 6B 62 64 2C 63 68 29 hen read(kbd,ch)
000090: 3B 0D 0A 20 20 20 20 69 66 20 63 68 3D 5E 43 20 ;.. if ch=^C
0000A0: 74 68 65 6E 20 62 65 67 69 6E 0D 0A 20 20 20 20 then begin..
0000B0: 20 20 6C 65 61 76 65 67 72 61 70 68 69 63 3B 0D leavegraphic;.
0000C0: 0A 20 20 20 20 20 20 68 61 6C 74 3B 0D 0A 20 20 . halt;..
0000D0: 20 20 65 6E 64 3B 0D 0A 20 20 75 6E 74 69 6C 20 end;.. until
0000E0: 28 63 68 3D 5E 4D 29 20 6F 72 20 28 69 3E 3D 6E (ch=^M) or (i>=n
0000F0: 29 3B 0D 0A 65 6E 64 3B 0D 0A 0D 0A 70 72 6F 63 );..end;....proc
000100: 65 64 75 72 65 20 77 61 69 74 72 65 74 75 72 6E edure waitreturn
000110: 28 6E 3A 20 72 65 61 6C 29 3B 0D 0A 62 65 67 69 (n: real);..begi
000120: 6E 0D 0A 20 20 77 72 69 74 65 28 27 50 72 65 73 n.. write('Pres
000130: 73 20 52 45 54 55 52 4E 20 74 6F 20 63 6F 6E 74 s RETURN to cont
000140: 69 6E 75 65 27 29 3B 0D 0A 20 20 64 65 6C 61 79 inue');.. delay
000150: 28 6E 29 3B 0D 0A 65 6E 64 3B 0D 0A 0D 0A 70 72 (n);..end;....pr
000160: 6F 63 65 64 75 72 65 20 43 6C 65 61 72 45 6F 6C ocedure ClearEol
000170: 28 69 3A 69 6E 74 65 67 65 72 29 3B 0D 0A 62 65 (i:integer);..be
000180: 67 69 6E 0D 0A 20 20 67 6F 74 6F 78 79 28 31 2C gin.. gotoxy(1,
000190: 69 29 3B 0D 0A 20 20 77 72 69 74 65 28 27 20 20 i);.. write('
0001A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 27 29 3B ');
0001F0: 0D 0A 65 6E 64 3B 0D 0A 0D 0A 70 72 6F 63 65 64 ..end;....proced
Size : 512 (Real : 512)
000000: 01 12 13 F1 10 ED C9 01 0A 64 21 6B 01 C3 35 02 .........d!k..5.
000010: 21 7B 01 C3 35 02 11 03 00 CD 5F 03 E6 01 18 06 !{..5....._.....
000020: 11 06 00 CD 5F 03 6F 26 00 C9 11 12 00 18 F4 11 ...._.o&........
000030: 0C 00 18 08 11 0F 00 18 03 11 09 00 E1 C1 E5 3A ...............:
000040: DD 00 B7 28 1A D5 C5 CD A0 00 7C B5 28 0F CD E1 ...(......|.(...
000050: 03 FE 13 20 08 CD E1 03 FE 03 CA D4 20 C1 D1 2A ... ........ ..*
000060: 01 00 19 E9 22 D2 00 78 32 DD 00 79 B7 28 0B 3E ...."..x2..y.(.>
000070: C3 32 38 00 21 FB 1F 22 39 00 21 A5 03 11 A0 00 .28.!.."9.!.....
000080: 01 18 00 ED B0 21 BD 03 11 B8 00 01 0C 00 ED B0 .....!..........
000090: AF 6F 67 32 D0 00 22 D4 00 22 D6 00 3E 7E 32 D1 .og2..".."..>~2.
0000A0: 00 32 E0 00 C9 C3 16 03 C3 20 03 C3 39 03 C3 2F .2....... ..9../
0000B0: 03 C3 34 03 C3 2A 03 C3 39 03 C3 20 03 C1 00 82 ..4..*..9.. ....
0000C0: 00 43 00 C4 00 C5 00 C1 00 C5 D5 E5 DD E5 FD E5 .C..............
0000D0: F5 6F 26 00 E5 CD A6 00 F1 FD E1 DD E1 E1 D1 C1 .o&.............
0000E0: C9 C5 D5 E5 DD E5 FD E5 CD A3 00 7D 18 EB 0E FF ...........}....
0000F0: 18 0C 0E 00 ED 5B D2 00 13 1A FE 20 28 FA 21 65 .....[..... (.!e
000100: 00 06 03 CD 7B 04 1A CD A6 04 FE 41 38 12 FE 51 ....{......A8..Q
000110: 30 0E 47 13 1A FE 3A 20 06 78 D6 40 13 18 02 1B 0.G...: .x.@....
000120: AF 21 5C 00 77 23 0C 0D 28 19 1A CD 82 04 20 13 .!\.w#..(..... .
000130: FE 3F 28 0F FE 2A 28 0B FE 2E 28 07 06 0B CD 77 .?(..*(...(....w
000140: 04 18 10 06 08 CD 5E 04 1A FE 2E 20 06 13 06 03 ......^.... ....
000150: CD 5E 04 21 68 00 06 18 36 00 23 10 FB C9 1A 0C .^.!h...6.#.....
000160: 0D 28 08 FE 3F 28 09 FE 2A 28 0B CD 82 04 28 0B .(..?(..*(....(.
000170: 77 23 13 10 E9 C9 13 3E 3F 18 02 3E 20 77 23 10 w#.....>?..> w#.
000180: FC C9 CD A6 04 FE 20 38 0D E5 C5 21 98 04 01 0E ...... 8...!....
000190: 00 ED B1 C1 E1 C9 BF C9 20 2E 2C 3B 3A 3D 3F 2A ........ .,;:=?*
0001A0: 5B 5D 3C 3E 7B 7D FE 61 D8 FE 7B D0 D6 20 C9 7C []<>{}.a..{.. .|
0001B0: CD B4 04 7D F5 1F 1F 1F 1F CD BD 04 F1 E6 0F C6 ...}............
0001C0: 90 27 CE 40 27 C3 C9 03 AF 37 CB 7C C0 7C B7 7D .'.@'....7.|.|.}
0001D0: C8 3E FF C9 32 D8 00 C5 CD AF 1E C1 2A 06 00 B7 .>..2.......*...
0001E0: ED 42 DA A8 20 EB D1 F9 01 00 FC 09 22 C6 00 AF .B.. ......."...
0001F0: 6F 67 22 CE 00 32 DC 00 3E C3 32 D9 00 21 DE 20 og"..2..>.2..!.
Size : 512 (Real : 512)
000000: 0A 2C 2C F1 2C 2D C8 D8 78 EE 80 47 C9 67 AA 3F .,,.,-..x..G.g.?
000010: 2B 32 D7 6E B6 2A 1D EF 38 74 0D D0 00 0D D0 7A +2.n.*..8t.....z
000020: 88 88 88 88 08 7E AB AA AA AA AA 2C 2D 3E 04 CA .....~.....,->..
000030: 27 20 CB 78 C2 27 20 D9 CD 98 0F D9 7D 2E 81 95 ' .x.' .....}...
000040: F5 CD F5 0A D9 CD 86 0F D9 CD 81 0A C5 D5 E5 D9 ................
000050: 2C CD 0D 0A D9 E1 D1 C1 CD F5 0A DD E5 DD 21 8C ,.............!.
000060: 0D 3E 06 CD 34 0F DD E1 2C D9 CD A2 0F 2D D9 CD .>..4...,....-..
000070: 0D 0A F1 C5 D5 E5 6F 26 00 30 01 25 CD 08 10 D9 ......o&.0.%....
000080: 2C CD 97 0A D9 E1 D1 C1 CD 0D 0A 7D FE 67 DA 72 ,..........}.g.r
000090: 0B C9 7D 8A 9D D8 89 1D 7D E9 A2 8B 2E 3A 7D 8E ..}.....}....:}.
0000A0: E3 38 8E 63 7E 49 92 24 49 12 7E CD CC CC CC 4C .8.c~I.$I.~....L
0000B0: 7F AB AA AA AA 2A D9 CD A2 0F D9 B7 CB 78 F5 CB .....*.......x..
0000C0: B8 CD F5 0A 7D FE 88 30 47 C5 D5 E5 2C CD D0 0F ....}..0G...,...
0000D0: E5 CB 3C CB 1D 7D E1 F5 CD 08 10 2C 2D 28 01 2D ..<..}.....,-(.-
0000E0: D9 F1 E1 D1 C1 F5 CD 81 0A DD E5 DD 21 10 0E 3E ............!..>
0000F0: 08 CD 49 0F DD E1 F1 30 0A F5 D9 CD 98 0F D9 CD ..I....0........
000100: 97 0A F1 85 6F 38 09 F1 C8 D9 CD 86 0F C3 F5 0A ....o8..........
000110: E1 3E 01 C3 27 20 6D 2E 1D 11 60 31 70 46 2C FE .>..' m...`1pF,.
000120: E5 7F 74 36 7C 89 84 21 77 53 3C FF C3 2E 7A D2 ..t6|..!wS<...z.
000130: 7D 5B 95 1D 7C 25 B8 46 58 63 7E 16 FC EF FD 75 }[..|%.FXc~....u
000140: 80 D2 F7 17 72 31 7D B7 C8 DD E5 D9 CD 86 0F D9 ....r1}.........
000150: AF CB 78 28 03 3C CB B8 F5 CD DF 0B 38 08 D9 CD ..x(.<......8...
000160: F5 0A F1 CB FF F5 D9 01 CF 06 11 8E E9 21 7E 4A .............!~J
000170: D9 CD DF 0B 30 05 CD 2E 0F 18 4F DD 21 CE 0E 3E ....0.....O.!..>
000180: 02 08 D9 11 12 00 DD 19 CD 73 0F D9 CD DF 0B 38 .........s.....8
000190: 0B 08 3D 20 EC D9 11 0C 00 DD 19 D9 D9 CD 6E 0F ..= ..........n.
0001A0: CB F8 CD 0D 0A C5 D5 E5 CD 73 0F CD 97 0A D9 CD .........s......
0001B0: 86 0F CD 0D 0A D9 E1 D1 C1 CD F5 0A DD E5 CD 2E ................
0001C0: 0F DD E1 D9 CD 6E 0F CD 0D 0A F1 17 30 0A F5 D9 .....n......0...
0001D0: CD 8E 0F 2D CD 81 0A F1 DD E1 CB 4F C8 CB F8 C9 ...-.......O....
0001E0: 7F E7 CF CC 13 54 7F F6 F4 A2 30 09 7F 6A C1 91 .....T....0..j..
0001F0: 0A 06 80 B5 9E 8A 6F 44 80 82 2C 3A CD 13 80 6A ......oD..,:...j
Size : 512 (Real : 512)
000000: 22 DA 00 EB 22 CC 00 E9 E5 2A C6 00 B7 ED 42 22 "..."....*....B"
000010: C6 00 ED 5B C4 00 B7 ED 52 19 EB E1 DA 75 1D ED ...[....R....u..
000020: B0 C9 2A C6 00 ED B0 22 C6 00 D9 C9 5E 23 56 23 ..*...."....^#V#
000030: D5 5E 23 56 23 4E 23 46 E1 C9 DD E1 EB 1A 4F 06 .^#V#N#F......O.
000040: 00 2F 6F 26 FF 39 F9 EB 03 ED B0 DD E9 D1 1A 4F ./o&.9.........O
000050: 06 00 2F 6F 26 FF 39 F9 EB 03 ED B0 E9 DD E1 EB ../o&.9.........
000060: 21 E0 FF 39 F9 EB C5 04 05 28 05 AF 12 13 10 FC !..9.....(......
000070: ED B0 C1 3E 20 90 91 28 06 47 AF 12 13 10 FC DD ...> ..(.G......
000080: E9 DD E1 21 E0 FF 39 F9 06 20 AF 77 23 10 FC DD ...!..9.. .w#...
000090: E9 DD E1 45 CD BA 05 B6 77 DD E9 DD E1 D1 7D 93 ...E....w.....}.
0000A0: 38 F7 3C 4F 43 CD BA 05 5F 41 AF B3 CB 23 30 06 8.<OC..._A...#0.
0000B0: B6 77 23 AF 1E 01 10 F3 18 DD 78 E6 F8 0F 0F 0F .w#.......x.....
0000C0: C6 02 6F 26 00 39 78 E6 07 3C 47 AF 37 17 10 FD ..o&.9x..<G.7...
0000D0: C9 E5 D9 EB E3 73 23 72 23 D1 73 23 72 23 71 23 .....s#r#.s#r#q#
0000E0: 70 C9 DD E1 78 EB 21 00 00 44 39 4E E5 09 23 E3 p...x.!..D9N..#.
0000F0: B9 38 01 79 12 13 23 B7 28 03 4F ED B0 E1 F9 DD .8.y..#.(.O.....
000100: E9 DD E1 78 21 00 00 44 39 4E E5 09 23 5E 23 56 ...x!..D9N..#^#V
000110: 18 DC DD E1 EB 68 26 00 44 39 ED B0 21 20 00 39 .....h&.D9..! .9
000120: F9 DD E9 DD E1 21 20 00 39 5E 23 56 68 26 00 44 .....! .9^#Vh&.D
000130: 39 ED B0 21 22 00 18 E7 DD E1 EB 78 2F 6F 26 FF 9..!"......x/o&.
000140: 39 F9 70 23 48 06 00 EB ED B0 DD E9 B7 ED 52 19 9.p#H.........R.
000150: D8 3E 90 C3 27 20 B7 ED 52 B7 ED 42 30 03 09 19 .>..' ..R..B0...
000160: C9 3E 91 C3 27 20 B7 ED 52 EB 13 EA 71 06 F0 18 .>..' ..R...q...
000170: 01 F8 11 00 00 C9 D5 EB B7 ED 52 EB E1 18 EB B7 ..........R.....
000180: ED 52 21 01 00 C8 2B C9 CD DF 0B 18 F5 CD B0 09 .R!...+.........
000190: 18 F0 B7 ED 52 21 01 00 C0 2B C9 CD DF 0B 18 F5 ....R!...+......
0001A0: CD B0 09 18 F0 CD 72 07 21 01 00 D0 2B C9 CD DF ......r.!...+...
0001B0: 0B 18 F5 CD B0 09 18 F0 CD 72 07 21 01 00 C8 D8 .........r.!....
0001C0: 2B C9 CD DF 0B 18 F4 CD B0 09 18 EF CD 72 07 21 +............r.!
0001D0: 00 00 C8 D8 23 C9 CD DF 0B 18 F4 CD B0 09 18 EF ....#...........
0001E0: CD 72 07 21 01 00 D8 2B C9 CD DF 0B 18 F5 CD B0 .r.!...+........
0001F0: 09 18 F0 54 5D 4B 42 EB 21 00 00 7A B7 3E 10 20 ...T]KB.!..z.>.
Size : 512 (Real : 512)
000000: C1 91 0A 06 81 00 00 00 00 00 80 21 A2 DA 0F 49 ...........!...I
000010: 7D E8 A2 8B 2E BA 7D 8E E3 38 8E 63 7E 49 92 24 }.....}..8.c~I.$
000020: 49 92 7E CD CC CC CC 4C 7F AB AA AA AA AA DD 21 I.~....L.......!
000030: 0A 0F 3E 05 C5 D5 E5 F5 CD AC 0F CD 97 0A F1 CD ..>.............
000040: 49 0F D9 E1 D1 C1 C3 97 0A F5 D9 CD 6E 0F 18 10 I...........n...
000050: F5 D9 C5 D5 E5 CD 6E 0F CD 0D 0A D9 E1 D1 C1 D9 ......n.........
000060: CD 97 0A F1 3D 20 E9 D9 CD 86 0F C3 0D 0A 11 06 ....= ..........
000070: 00 DD 19 DD 6E 00 DD 66 01 DD 5E 02 DD 56 03 DD ....n..f..^..V..
000080: 4E 04 DD 46 05 C9 21 81 00 44 4C 54 5C C9 01 0F N..F..!..DLT\...
000090: 49 11 A2 DA 21 82 21 C9 01 04 35 11 33 F3 21 81 I...!.!...5.3.!.
0000A0: FA C9 01 72 31 11 F7 17 21 80 D2 C9 C5 D5 E5 D9 ...r1...!.......
0000B0: E1 D1 C1 C9 CD 92 07 21 80 00 3E 20 CB 78 20 0D .......!..> .x .
0000C0: CB 23 CB 12 CB 11 CB 10 2D 3D 20 F0 6F CB B8 C9 .#......-= .o...
0000D0: CB 78 D9 CD 86 0F 28 02 CB F8 2D CD 0D 0A B7 CB .x....(...-.....
0000E0: 7D 28 1C CB 78 08 CB F8 3E 8F BD 38 16 28 06 CD }(..x...>..8.(..
0000F0: 7A 0B 2C 18 F3 CD 7A 0B 08 60 69 C8 C3 83 07 21 z.,...z..`i....!
000100: 00 00 C9 3E 92 C3 27 20 7C B5 CA 72 0B CB 7C 08 ...>..' |..r..|.
000110: CD 80 07 3E 90 29 3D CB 7C 28 FA 44 4D 11 00 00 ...>.)=.|(.DM...
000120: 62 6F 08 C0 CB B8 C9 CD C8 04 EB 1E 00 38 04 FE bo...........8..
000130: 19 38 18 1D CD C8 04 D9 CB 78 D9 16 07 28 01 14 .8.......x...(..
000140: 92 30 01 AF FE 09 38 02 3E 09 3C 57 D5 D9 FD 21 .0....8.>.<W...!
000150: 5D 00 DD E5 CD EB 10 DD E1 D1 4F 7A 3C CB 7B 20 ].........Oz<.{
000160: 10 81 F2 6B 10 FD 36 00 00 18 0B FE 0C 38 02 3E ...k..6......8.>
000170: 0B D5 CD 80 11 D1 CB 78 28 05 3E 2D CD E5 10 CB .......x(.>-....
000180: 7B 28 03 61 0E 00 CB 79 28 05 CD E3 10 18 07 CD {(.a...y(.......
000190: D9 10 0D F2 8F 10 7A B7 28 17 3E 2E CD E5 10 0C ......z.(.>.....
0001A0: 28 06 CD E3 10 15 20 F7 15 FA B1 10 CD D9 10 18 (..... .........
0001B0: F7 CB 7B C8 3E 45 CD E5 10 3E 2B CB 7C 28 06 7C ..{.>E...>+.|(.|
0001C0: ED 44 67 3E 2D CD E5 10 7C 06 2F 04 D6 0A 30 FB .Dg>-...|./...0.
0001D0: C6 3A DD 70 00 DD 23 18 0C FD 7E 00 FD 23 B7 20 .:.p..#...~..#.
0001E0: 04 FD 2B 3E 30 DD 77 00 DD 23 C9 FD E5 2C 2D 20 ..+>0.w..#...,-
0001F0: 0E 06 0C FD 36 00 30 FD 23 10 F8 AF C3 7D 11 C5 ....6.0.#....}..
Size : 512 (Real : 512)
000000: 03 53 3E 08 29 EB 29 EB 30 01 09 3D 20 F6 C9 7C .S>.).).0..= ..|
000010: B5 CA 03 0A 7C AA F5 CD 80 07 EB CD 80 07 EB 44 ....|..........D
000020: 4D AF 67 6F 3E 11 ED 6A ED 42 30 02 09 37 3F CB M.go>..j.B0..7?.
000030: 13 CB 12 3D 20 F0 EB F1 F0 18 48 E5 CD 92 07 CB ...= .....H.....
000040: 3C CB 1D D1 EB CD 0F 07 EB CB 7A C8 18 35 CD 61 <.........z..5.a
000050: 07 C8 29 10 FD C9 CD 61 07 C8 CB 3C CB 1D 10 FA ..)....a...<....
000060: C9 EB 7A B7 20 08 7B FE 10 30 03 47 B7 C9 AF 67 ..z. .{..0.G...g
000070: 6F C9 EB 7C AA 7C FA 7E 07 BA C0 7D BB C9 17 C9 o..|.|.~...}....
000080: CB 7C C8 7C 2F 67 7D 2F 6F 23 C9 7D E6 01 6F 26 .|.|/g}/o#.}..o&
000090: 00 C9 ED 4B CA 00 ED 5B C8 00 C5 D5 78 41 4A 53 ...K...[....xAJS
0000A0: 1E 00 1F CB 18 CB 19 CB 1A CB 1B E1 19 EB E1 ED ................
0000B0: 4A 44 4D 21 E9 62 19 22 C8 00 EB 21 19 36 ED 4A JDM!.b."...!.6.J
0000C0: 22 CA 00 44 4D C9 06 00 11 10 27 CD E2 07 11 E8 "..DM.....'.....
0000D0: 03 CD E2 07 11 64 00 CD E2 07 1E 0A CD E2 07 7D .....d.........}
0000E0: 18 0D AF 3C ED 52 30 FB 19 04 3D 20 02 05 C8 C6 ...<.R0...= ....
0000F0: 30 DD 77 00 DD 23 C9 DD 7E 00 D6 24 4F 21 00 00 0.w..#..~..$O!..
000100: 20 02 DD 23 DD 7E 00 CD A6 04 D6 30 38 29 FE 0A ..#.~.....08)..
000110: 38 0E 0C 0D 20 21 D6 07 FE 0A 38 1B FE 10 30 17 8... !....8...0.
000120: 54 5D 29 D8 29 D8 0C 0D 20 02 54 5D 19 D8 29 D8 T]).)... .T]..).
000130: 5F 16 00 19 D8 18 CB 79 B7 C8 7C 87 C9 DD E1 E1 _......y..|.....
000140: E5 7D 26 00 23 39 4E 81 38 1C 77 EB 21 00 00 44 .}&.#9N.8.w.!..D
000150: ED 42 39 F9 EB E5 03 ED B0 EB E1 2B 1B 4F 03 ED .B9........+.O..
000160: B8 EB 23 F9 DD E9 3E 10 C3 29 20 DD E1 CD C8 04 ..#...>..) .....
000170: 57 E1 CD DD 09 5F E1 E5 7D 93 38 1A 14 15 28 16 W...._..}.8...(.
000180: BA 38 16 4A 06 00 60 39 7B 82 54 5D 3D 6F 60 39 .8.J..`9{.T]=o`9
000190: 79 ED B8 EB 18 09 AF 18 03 3C 6B 2D 26 00 39 77 y........<k-&.9w
0001A0: F9 DD E9 DD E1 E1 E5 7D 26 00 23 39 F9 6F 26 00 .......}&.#9.o&.
0001B0: DD E9 DD E1 21 00 00 54 39 5E 4B 23 E5 19 5E 43 ....!..T9^K#..^C
0001C0: 23 E5 19 E5 FD E1 D1 E1 79 90 38 10 3C 4F C5 D5 #.......y.8.<O..
0001D0: E5 1A BE 28 0C E1 D1 C1 23 0D 20 F2 21 00 00 18 ...(....#. .!...
0001E0: 0E 23 13 10 EC D1 E1 C1 21 00 00 39 EB ED 52 FD .#......!..9..R.
0001F0: F9 DD E9 DD E1 CD C8 04 4F E1 CD DD 09 5F E1 7E ........O...._.~
Size : 512 (Real : 512)
000000: CB B8 7D D9 D6 80 6F 9F 67 11 4D 00 CD F5 06 11 ..}...o.g.M.....
000010: 05 00 19 7C FE D9 20 01 3C FD 77 00 ED 44 CD 40 ...|.. .<.w..D.@
000020: 12 7D FE 81 30 06 CD B3 12 FD 35 00 CB F8 3E 84 .}..0.....5...>.
000030: 95 2E 00 28 08 CD 7A 0B CB 1D 3D 20 F8 FD 7E 00 ...(..z...= ..~.
000040: F5 3E 0C 08 78 1F 1F 1F 1F E6 0F C6 30 FD 77 00 .>..x.......0.w.
000050: FD 23 78 E6 0F 47 C5 D5 E5 CB 25 CD 87 0B CB 25 .#x..G....%....%
000060: CD 87 0B EB E3 19 D1 E3 ED 5A EB E1 E3 ED 4A 44 .........Z....JD
000070: 4D E1 CB 25 CD 87 0B 08 3D 20 C8 F1 C1 FD E1 C9 M..%....= ......
000080: FD E5 E1 5F 16 00 19 7E 36 00 FE 35 D8 1D FA 9C ..._...~6..5....
000090: 11 2B 7E 3C 77 FE 3A D8 36 00 18 F1 36 31 23 36 .+~<w.:.6...61#6
0000A0: 00 0C C9 D9 01 00 00 D9 CD 72 0B DD 7E 00 CD A6 .........r..~...
0000B0: 04 FE 2E 20 0C D9 CB 70 37 C0 CB F0 D9 DD 23 18 ... ...p7.....#.
0000C0: EA FE 45 28 21 CD 39 12 30 54 08 CD B3 12 D8 08 ..E(!.9.0T......
0000D0: D9 C5 6F 26 00 CD 08 10 CD E9 09 D9 C1 D8 CB 70 ..o&...........p
0000E0: 28 01 0D D9 18 D7 CD 1E 12 D8 D9 CB E0 DD 23 DD (.............#.
0000F0: 7E 00 FE 2B 28 06 FE 2D 20 04 CB E8 DD 23 CD 36 ~..+(..- ....#.6
000100: 12 3F D8 4F DD 23 CD 36 12 30 0A DD 23 57 79 87 .?.O.#.6.0..#Wy.
000110: 87 81 87 82 4F CB 68 28 04 79 ED 44 4F D9 D9 79 ....O.h(.y.DO..y
000120: C6 80 FE 5A D8 FE A6 3F D8 C5 DD E5 79 CD 40 12 ...Z...?....y.@.
000130: DD E1 D9 C1 D9 C9 DD 7E 00 D6 30 3F D0 FE 0A C9 .......~..0?....
000140: F5 B7 F2 47 12 ED 44 F5 CB 3F CB 3F 3C 21 FA FF ...G..D..?.?<!..
000150: 11 06 00 19 3D 20 FC EB DD 21 77 12 DD 19 CD 73 ....= ...!w....s
000160: 0F F1 E6 03 28 08 F5 CD B3 12 F1 3D 20 F8 F1 B7 ....(......= ...
000170: F2 97 0A D9 C3 F5 0A 81 00 00 00 00 00 8E 00 00 ................
000180: 00 40 1C 9B 00 00 20 BC 3E A8 00 10 A5 D4 68 B6 .@.... .>.....h.
000190: 04 BF C9 1B 0E C3 AC C5 EB 78 2D D0 CD CE 1B C2 .........x-.....
0001A0: 53 DE F9 78 39 3F 01 EB 2B A8 AD C5 1D F8 C9 7B S..x9?..+......{
0001B0: CE 97 40 7D B7 C8 CB F8 C5 D5 7C CD 7A 0B CD 7A ..@}......|.z..z
0001C0: 0B 84 67 E3 ED 5A EB E1 E3 ED 4A 44 4D E1 30 06 ..g..Z....JDM.0.
0001D0: CD 7B 0B 2C 37 C8 7D C6 03 6F CB B8 C9 0E 01 18 .{.,7.}..o......
0001E0: 02 0E 00 CD 3F 13 1A BE 20 08 23 13 10 F8 79 EE ....?... .#...y.
0001F0: 01 4F 21 40 00 39 F9 69 26 00 DD E9 0E 01 18 02 .O!@.9.i&.......
Size : 512 (Real : 512)
000000: 93 38 1B 0C 0D 28 17 91 38 12 F5 7E 91 77 06 00 .8...(..8..~.w..
000010: 50 19 54 5D 09 F1 3C 4F ED B0 18 02 1D 73 DD E9 P.T]..<O.....s..
000020: DD E1 CD DD 09 4F D1 ED 53 E8 00 21 00 00 39 1A .....O..S..!..9.
000030: F5 86 38 03 B8 38 01 78 12 F1 57 5E 91 38 2F 3C ..8..8.x..W^.8/<
000040: 6F 7A 83 38 04 B8 7D 38 08 78 93 38 26 91 38 23 oz.8..}8.x.8&.8#
000050: 3C B7 28 1F C5 D5 2A E8 00 5F 1D 16 00 42 19 09 <.(...*.._...B..
000060: D1 D5 E5 50 19 EB E1 4F ED B8 D1 C1 18 05 7A 3C ...P...O......z<
000070: 28 19 4F 78 91 3C BB 38 01 7B B7 28 0E 2A E8 00 (.Ox.<.8.{.(.*..
000080: 06 00 09 EB 21 01 00 39 4F ED B0 21 00 00 54 39 ....!..9O..!..T9
000090: 5E 13 19 F9 DD E9 DD E1 E1 2D C2 66 08 6C 26 00 ^........-.f.l&.
0000A0: DD E9 21 02 00 54 39 5E 13 19 7E 36 01 23 77 C9 ..!..T9^..~6.#w.
0000B0: 21 04 00 54 39 5E 4B 23 E5 19 5E 43 23 E5 19 E5 !..T9^K#..^C#...
0000C0: FD E1 D1 E1 AF B8 28 04 B9 20 08 78 B9 E1 D1 FD ......(.. .x....
0000D0: F9 D5 E9 1A BE 20 F6 23 13 05 0D 18 E7 7C B7 20 ..... .#.....|.
0000E0: 03 7D B7 C0 3E 11 C3 29 20 CD 0D 0A D0 3E 01 C3 .}..>..) ....>..
0000F0: 27 20 CD 81 0A 18 F5 CD AC 0F CD 97 0A 18 ED D9 ' ..............
000100: 7D B7 D9 3E 02 CA 27 20 CD F5 0A 18 DF D9 CB 78 }..>..' .......x
000110: D9 C2 88 0A D9 7D B7 D9 C8 D9 C5 D5 E5 D9 7D B7 .....}........}.
000120: 20 05 D9 CB B8 18 54 C5 CB F8 AF 08 D9 CB F8 7D .....T........}
000130: D9 95 28 13 30 06 ED 44 08 3D 08 D9 CD 7A 0B 2C ..(.0..D.=...z.,
000140: 3D 20 F9 08 28 01 D9 F1 E6 80 20 0F CD 92 0B 30 = ..(..... ....0
000150: 25 CD 7B 0B B7 2C 20 1E 37 18 20 CD C6 0B 3F F5 %.{.., .7. ...?.
000160: 28 10 38 01 D9 CD AC 0B CB 78 20 09 CD 86 0B 2D (.8......x ....-
000170: 20 F6 CD 72 0B F1 38 02 CB B8 B7 D9 E1 D1 C1 D9 ..r..8.........
000180: C9 D9 CB 78 D9 C2 14 0A CD 8F 0A CD 14 0A D8 2C ...x...........,
000190: 2D C8 78 EE 80 47 C9 D9 7D B7 D9 CA 72 0B 7D B7 -.x..G..}...r.}.
0001A0: C8 D9 85 D9 CD 4D 0B C5 D5 E5 DD 39 CD 72 0B D9 .....M.....9.r..
0001B0: 2E 05 D9 3E 08 DD 23 DD 6E 00 08 CB 1D 30 03 CD ...>..#.n....0..
0001C0: 92 0B CD 7B 0B 08 3D 20 F1 D9 2D D9 20 E5 DD 6E ...{..= ..-. ..n
0001D0: FB CB 78 20 09 08 CD 87 0B 2C 2D 28 01 2D F1 F1 ..x .....,-(.-..
0001E0: F1 B7 08 F1 D9 C1 E1 D9 DD E1 CB B8 B0 47 2C 2D .............G,-
0001F0: CC 72 0B 08 C9 7D B7 C8 D9 95 D9 3F CD 4D 0B E5 .r...}.....?.M..
Size : 512 (Real : 512)
000000: 0E 00 CD 3F 13 0D 20 01 EB 0E 00 1A B6 BE 20 E2 ...?.. ....... .
000010: 23 13 10 F7 0E 01 18 DA CD 3F 13 1A B6 77 23 13 #........?...w#.
000020: 10 F9 EB F9 DD E9 CD 3F 13 1A 2F A6 77 23 13 10 .......?../.w#..
000030: F8 18 EF CD 3F 13 1A A6 77 23 13 10 F9 18 E3 FD ....?...w#......
000040: E1 DD E1 21 00 00 39 EB 21 20 00 45 39 FD E9 DD ...!..9.! .E9...
000050: E1 21 21 00 39 7E B7 28 03 AF 18 06 2B 46 CD BA .!!.9~.(....+F..
000060: 05 A6 21 22 00 39 F9 21 00 00 28 01 23 DD E9 3E ..!".9.!..(.#..>
000070: AF 32 E8 00 FD E1 2A D2 00 06 10 CD E2 05 AF 12 .2....*.........
000080: E1 22 E2 00 FD E5 7C B7 20 06 3E 22 32 D0 00 C9 ."....|. .>"2...
000090: 3A E8 00 B7 28 0A CD B6 13 20 05 2A E2 00 77 C9 :...(.... .*..w.
0000A0: CD F2 03 2A E2 00 36 00 11 0C 00 19 EB 21 5C 00 ...*..6......!\.
0000B0: 01 24 00 ED B0 C9 06 06 21 E6 13 C5 E5 06 03 ED .$......!.......
0000C0: 5B D2 00 13 1A FE 20 28 FA 1A CD A6 04 96 28 0A [..... (......(.
0000D0: E1 C1 11 04 00 19 10 E3 B7 C9 23 13 10 EB C1 C1 ..........#.....
0000E0: 1A FE 3A C0 7E C9 43 4F 4E C1 54 52 4D C1 4B 42 ..:.~.CON.TRM.KB
0000F0: 44 82 4C 53 54 43 41 55 58 C4 55 53 52 C5 3E AF D.LSTCAUX.USR.>.
000100: 32 E8 00 CD 69 14 3A D0 00 B7 C0 2A E2 00 CB AE 2...i.:....*....
000110: 7E E6 0F C0 CD 30 14 3A D0 00 B7 C0 2A E2 00 3A ~....0.:....*..:
000120: E8 00 B7 01 80 80 28 03 01 40 00 71 23 23 70 C9 ......(..@.q##p.
000130: CD 5A 14 2A E2 00 11 0C 00 19 EB 3A E8 00 B7 01 .Z.*.......:....
000140: 0F 01 28 0A D5 0E 13 CD 05 00 D1 01 16 F1 C5 CD ..(.............
000150: 05 00 C1 3C C0 78 32 D0 00 C9 2A E2 00 11 18 00 ...<.x2...*.....
000160: 19 06 18 36 00 23 10 FB C9 22 E2 00 7E E6 0F C0 ...6.#..."..~...
000170: CB 76 28 0A 3E 1A CD C6 16 CD 0C 17 18 03 CB 7E .v(.>..........~
000180: C8 2A E2 00 E5 11 0C 00 19 EB 0E 10 CD 05 00 E1 .*..............
000190: 3C 20 05 3E FF 32 D0 00 36 00 C9 E3 22 E4 00 E3 < .>.2..6..."...
0001A0: E5 21 C2 00 22 E2 00 E1 C9 E3 22 E4 00 E3 22 E2 .!.."....."...".
0001B0: 00 CB 7E C0 3E 02 32 D0 00 C9 E3 22 E4 00 E3 22 ..~.>.2...."..."
0001C0: E2 00 CB 76 C0 3E 03 32 D0 00 C9 3E AF E3 22 E4 ...v.>.2...>..".
0001D0: 00 E3 E5 21 C2 00 22 E2 00 CB AE F5 CD E8 14 F1 ...!..".........
0001E0: B7 28 03 CD E1 01 E1 C9 06 00 21 D1 00 7E FE 7F .(........!..~..
0001F0: 38 02 3E 7E 4F 36 7E 2A D2 00 22 D4 00 16 00 CD 8.>~O6~*..".....
Size : 512 (Real : 512)
000000: E5 E5 DD 39 D9 2E 05 D9 3E 08 08 CD C6 0B 38 03 ...9....>.....8.
000010: CD AC 0B 3F CB 15 08 3D 20 0C DD 75 05 DD 2B D9 ...?...= ..u..+.
000020: 2D D9 28 0E 3E 08 CD 86 0B 30 DF 08 CD AC 0B B7 -.(.>....0......
000030: 18 E1 CD 86 0B 38 04 CD C6 0B 3F E1 D1 C1 CB 78 .....8....?....x
000040: 20 05 CD 87 0B 18 9A 2C 20 97 37 18 95 38 06 C6 ......, .7..8..
000050: 80 38 06 18 1B C6 80 38 17 6F DD E3 D9 E5 C5 78 .8.....8.o.....x
000060: CB F8 D9 A8 E6 80 F5 CB F8 DD E5 DD 21 00 00 C9 ............!...
000070: E1 D8 AF 6F 47 4F 57 5F 67 C9 B7 CB 18 CB 19 CB ...oGOW_g.......
000080: 1A CB 1B CB 1C C9 B7 CB 14 CB 13 CB 12 CB 11 CB ................
000090: 10 C9 7C D9 84 D9 67 7B D9 8B D9 5F 7A D9 8A D9 ..|...g{..._z...
0000A0: 57 79 D9 89 D9 4F 78 D9 88 D9 47 C9 7C D9 94 D9 Wy...Ox...G.|...
0000B0: 67 7B D9 9B D9 5F 7A D9 9A D9 57 79 D9 99 D9 4F g{..._z...Wy...O
0000C0: 78 D9 98 D9 47 C9 78 D9 B8 D9 C0 79 D9 B9 D9 C0 x...G.x....y....
0000D0: 7A D9 BA D9 C0 7B D9 BB D9 C0 7C D9 BC D9 C9 D9 z....{....|.....
0000E0: 78 D9 A8 F2 E9 0B 78 17 C9 CB 78 28 06 CD F3 0B x.....x...x(....
0000F0: C8 3F C9 7D D9 BD D9 C0 B7 C8 C3 C6 0B 7D D6 81 .?.}.........}..
000100: DA 72 0B 3C FE 28 D0 D9 C5 D5 E5 08 CD 72 0B 08 .r.<.(.......r..
000110: 37 CD 7B 0B 3D 20 F9 D9 7C D9 A4 D9 67 7B D9 A3 7.{.= ..|...g{..
000120: D9 5F 7A D9 A2 D9 57 79 D9 A1 D9 4F 78 D9 A0 D9 ._z...Wy...Ox...
000130: 47 C3 7B 0A D9 C5 D5 E5 D9 CD AC 0F D9 CD FD 0B G.{.............
000140: D9 CD 81 0A 18 EB 7D B7 C8 CB 78 3E 03 C2 27 20 ......}...x>..'
000150: CD AC 0F 7D C6 80 CB 2F C6 80 6F D6 14 F5 D9 C5 ...}.../..o.....
000160: D5 E5 CD F5 0A CD 0D 0A 2D C5 D5 E5 CD 81 0A 7D ........-......}
000170: E1 D1 C1 D9 E1 D1 C1 E3 BC E3 30 E3 F1 D9 C9 D9 ..........0.....
000180: CD 8E 0F 2D CD 81 0A D9 CD 8E 0F 2C D9 7D FE 6C ...-.......,.}.l
000190: D8 C5 CB B8 CD DF 0B C1 38 09 CD F5 0A CD 34 0C ........8.....4.
0001A0: CD 97 0A CB 78 28 03 CD 0D 0A D9 2D D9 CD DF 0B ....x(.....-....
0001B0: F5 38 03 CD 81 0A D9 2D D9 CD DF 0B 38 05 D9 2C .8.....-....8..,
0001C0: CD 81 0A 7D FE 6C 38 3B D9 01 AA 2A 11 AA AA 21 ...}.l8;...*...!
0001D0: 7F AA CD 97 0A DD E5 DD 21 07 0D 3E 05 CD 34 0F ........!..>..4.
0001E0: DD E1 CD AC 0F CD 97 0A CD 97 0A C5 D5 E5 D9 CD ................
0001F0: AC 0F 2D 2D D9 2D CD 0D 0A D9 E1 D1 C1 D9 CD 81 ..--.-..........
Size : 512 (Real : 512)
000000: E1 03 77 1E 01 FE 08 28 36 FE 7F 28 32 1D FE 18 ..w....(6..(2...
000010: 28 2D FE 1B 28 29 FE 1A 28 36 FE 0D 28 38 FE 20 (-..()..(6..(8.
000020: 30 11 FE 03 20 D9 3A DD 00 B7 28 D3 DD 2A E4 00 0... .:...(..*..
000030: C3 16 20 79 BA 28 C8 7E 14 23 CD C9 03 18 C0 15 .. y.(.~.#......
000040: FA FD 14 2B CD 00 02 08 20 08 00 1D 28 B1 18 EF ...+.... ...(...
000050: 04 05 28 AB 18 04 04 05 20 04 36 1A 18 08 CD E1 ..(..... .6.....
000060: 01 36 0D 23 36 0A 23 22 D6 00 C9 2A E2 00 3A D0 .6.#6.#"...*..:.
000070: 00 B7 20 79 7E CB 6F 20 70 E6 0F 20 2E 23 23 7E .. y~.o p.. .##~
000080: B7 F2 97 15 0E 14 E5 CD BA 19 E1 28 08 E5 11 2E ...........(....
000090: 00 19 36 1A E1 AF 77 34 C6 2E 5F 16 00 19 7E FE ..6...w4.._...~.
0000A0: 1A 20 3D 2A E2 00 23 23 35 18 35 3D 20 1B 2A D4 . =*..##5.5= .*.
0000B0: 00 ED 5B D6 00 B7 ED 52 38 05 06 FF CD EA 14 2A ..[....R8......*
0000C0: D4 00 7E 23 22 D4 00 18 17 3D 20 06 CD A3 00 7D ..~#"....= ....}
0000D0: 18 0E 3D 3D 20 06 CD AF 00 7D 18 04 CD B5 00 7D ..== ....}.....}
0000E0: 2A E2 00 CB EE 23 77 2B C9 23 7E 2B C9 3E 1A C9 *....#w+.#~+.>..
0000F0: E5 2A E2 00 7E E6 0F FE 06 28 27 CD 6B 15 FE 21 .*..~....('.k..!
000100: 30 08 FE 1A 28 04 CB AE 18 F1 11 5D 00 06 1E C5 0...(......]....
000110: D5 CD 6B 15 D1 C1 FE 21 38 06 CB AE 12 13 10 EF ..k....!8.......
000120: AF 12 E1 C9 DD 21 5D 00 DD 7E 00 B7 C8 06 00 FE .....!]..~......
000130: 2D C0 04 DD 23 C9 38 05 DD 7E 00 B7 C8 3E 10 32 -...#.8..~...>.2
000140: D0 00 37 C9 E5 CD 6B 15 CB AE E1 77 C9 3E AF 4F ..7...k....w.>.O
000150: C5 CD F0 15 C1 CD 24 16 C8 C5 E5 CD F7 07 D1 C1 ......$.........
000160: CD 36 16 D8 05 CC 83 07 EB 73 0C 0D 20 02 23 72 .6.......s.. .#r
000170: EB C9 CD F0 15 CD 24 16 C8 C5 E5 CD A3 11 D9 E1 ......$.........
000180: C1 CD 36 16 D8 05 D9 CC 8F 0A D9 C3 D1 05 E5 EB ..6.............
000190: 0E 00 C5 D5 CD 6B 15 D1 C1 FE 0D 28 0B FE 1A 28 .....k.....(...(
0001A0: 07 CB AE 0C 13 12 10 EA E1 71 C9 CD 6B 15 FE 1A .........q..k...
0001B0: 28 13 CB AE FE 0A 28 0D FE 0D 20 EF CD 6B 15 FE (.....(... ..k..
0001C0: 0A 20 02 CB AE C9 2A E2 00 4F 3A D0 00 B7 C0 7E . ....*..O:....~
0001D0: E6 0F 20 10 23 23 E5 7E C6 2E 5F 16 00 19 71 E1 .. .##.~.._...q.
0001E0: 34 F0 18 28 FE 06 28 15 E1 06 00 C5 E5 3D CA A6 4..(..(......=..
0001F0: 00 3D 3D CA A9 00 3D CA AC 00 C3 B2 00 2A E8 00 .==...=......*..
Size : 512 (Real : 512)
000000: 00 21 46 1F 22 E2 00 E1 22 E4 00 E1 22 EA 00 21 .!F."..."..."..!
000010: 5C 00 06 1E CD E2 05 AF 12 2A EA 00 3A EC 00 B7 \........*..:...
000020: 20 05 CD 4E 16 18 03 CD 72 16 21 D0 00 7E 36 00 ..N....r.!..~6.
000030: B7 67 6F 28 08 DD E5 E1 11 5C 00 ED 52 EB 2A E8 .go(.....\..R.*.
000040: 00 73 23 72 18 A3 C6 00 ED 5F 32 CB 00 C9 EB DD .s#r....._2.....
000050: E1 C1 E1 78 B1 28 0B 73 0B 78 B1 28 05 54 5D 13 ...x.(.s.x.(.T].
000060: ED B0 DD E9 44 4D DD E1 D1 E1 78 B1 28 F4 ED 52 ....DM....x.(..R
000070: 19 30 ED 0B 09 EB 09 EB 03 ED B8 DD E9 55 14 15 .0...........U..
000080: 28 03 CD 9D 1F DD E1 4F 06 00 2F 6F 26 FF 39 F9 (......O../o&.9.
000090: 71 23 EB 0C 0D 28 02 ED B0 DD E9 16 00 21 80 00 q#...(.......!..
0000A0: 3E 1F 46 B8 30 02 06 1F 23 0E 00 04 05 28 0D 7E >.F.0...#....(.~
0000B0: FE 20 28 04 FE 09 20 04 23 05 18 EF 5D 04 05 28 . (... .#...]..(
0000C0: 0D 7E FE 20 28 08 FE 09 28 04 23 05 18 EF 7D 93 .~. (...(.#...}.
0000D0: 28 04 0C 15 20 D5 69 26 00 54 C9 D1 C1 D5 2D 61 (... .i&.T....-a
0000E0: 25 C3 A2 02 7D CD A6 04 6F C9 2A 01 00 19 19 19 %...}...o.*.....
0000F0: E9 21 D0 00 7E 36 00 6F 26 00 C9 CD 16 03 7C B5 .!..~6.o&.....|.
000100: C8 3A DD 00 F5 AF 32 DD 00 CD 20 03 F1 32 DD 00 .:....2... ..2..
000110: 7D FE 03 C0 DD E1 11 01 00 18 11 3A D0 00 B7 C8 }..........:....
000120: DD E1 5F 16 01 18 05 DD E1 5F 16 02 D5 CD 7A 03 .._......_....z.
000130: D1 AF 32 DD 00 2A CE 00 7C B5 DD E5 E1 ED 4B CC ..2..*..|.....K.
000140: 00 ED 42 01 15 00 09 22 CE 00 B7 20 07 D5 D5 E5 ..B...."... ....
000150: CD D9 00 D1 7A B7 20 14 CD 00 02 5E 43 0D 0A 55 ....z. ....^C..U
000160: 73 65 72 20 62 72 65 61 6B 00 18 2B 3D 20 0B CD ser break..+= ..
000170: 00 02 0D 0A 49 2F 4F 00 18 0E CD 00 02 0D 0A 52 ....I/O........R
000180: 75 6E 2D 74 69 6D 65 00 CD 00 02 20 65 72 72 6F un-time.... erro
000190: 72 20 00 7B CD B4 04 CD 00 02 2C 20 50 43 3D 00 r .{......, PC=.
0001A0: 2A CE 00 CD AF 04 18 15 CD 00 02 4E 6F 74 20 65 *..........Not e
0001B0: 6E 6F 75 67 68 20 6D 65 6D 6F 72 79 00 CD 00 02 nough memory....
0001C0: 0D 0A 50 72 6F 67 72 61 6D 20 61 62 6F 72 74 65 ..Program aborte
0001D0: 64 0D 0A 00 3A D8 00 B7 CA 8E 27 C3 00 00 E1 D1 d...:.....'.....
0001E0: D1 E9 C3 5E 21 2A 06 00 C1 F9 C5 11 00 FC 19 22 ...^!*........."
0001F0: 48 45 21 D7 7A 01 00 00 CD 64 03 CD 0A 03 CD 6B HE!.z....d.....k
Size : 512 (Real : 512)
000000: 3A EA 00 BE C8 34 5E 16 00 19 71 C9 2A E2 00 23 :....4^...q.*..#
000010: 23 7E B7 C8 36 00 0E 15 CD BA 19 C8 3E F0 32 D0 #~..6.......>.2.
000020: 00 C9 7D C3 C6 16 C1 D1 C5 DD 2A D2 00 CB 7C 28 ..}.......*...|(
000030: 06 CD 83 07 EB 18 0E EB CB 7C 28 09 CD 83 07 DD .........|(.....
000040: 36 00 2D DD 23 D5 CD C6 07 E1 CD C8 04 ED 5B D2 6.-.#.........[.
000050: 00 DD E5 E1 B7 ED 52 4D EB 91 38 0E 28 0C 47 E5 ......RM..8.(.G.
000060: 3E 20 C5 CD C6 16 C1 10 F7 E1 41 04 05 C8 7E C5 > ........A...~.
000070: E5 CD C6 16 E1 C1 23 18 F3 C1 D1 D9 E1 D1 C1 D9 ......#.........
000080: C5 DD 2A D2 00 D5 CD 27 10 18 BE C1 D1 C5 CD C8 ..*....'........
000090: 04 CB 43 21 A1 17 0E 04 20 BF 21 A5 17 0E 05 18 ..C!.... .!.....
0000A0: B8 54 52 55 45 46 41 4C 53 45 CD C8 04 21 02 00 .TRUEFALSE...!..
0000B0: 39 4E 23 CD 59 17 D1 F9 D5 C9 E1 7E 23 B7 28 0C 9N#.Y......~#.(.
0000C0: 47 7E C5 E5 CD C6 16 E1 C1 23 10 F5 E9 3E 0D CD G~.......#...>..
0000D0: C6 16 3E 0A C3 C6 16 11 0D 01 18 0D 11 0D 00 18 ..>.............
0000E0: 08 11 1A 01 18 03 11 1A 00 22 E2 00 CB 7E 28 1C ........."...~(.
0000F0: D5 CD 6B 15 D1 BB 28 10 FE 1A 28 0C FE 21 30 0C ..k...(...(..!0.
000100: 14 15 28 08 CB AE 18 E8 21 01 00 C9 21 00 00 C9 ..(.....!...!...
000110: 3E AF 32 E8 00 ED 53 E6 00 CD 7A 18 3A D0 00 B7 >.2...S...z.:...
000120: C0 CD 30 14 3A D0 00 B7 C0 2A E2 00 36 D0 23 23 ..0.:....*..6.##
000130: 77 11 06 00 19 77 23 77 11 24 00 19 77 23 77 11 w....w#w.$..w#w.
000140: D6 FF 19 3A E8 00 B7 20 1B E5 01 04 00 AF CD 09 ...:... ........
000150: 19 E1 23 23 4E 23 46 2A E6 00 B7 ED 42 C8 3E 90 ..##N#F*....B.>.
000160: 32 D0 00 C9 E5 AF 77 23 77 23 ED 5B E6 00 73 23 2.....w#w#.[..s#
000170: 72 E1 01 04 00 3E 03 C3 09 19 22 E2 00 7E E6 C0 r....>...."..~..
000180: C8 CD AE 19 2A E2 00 11 2D 00 19 AF 77 23 77 11 ....*...-...w#w.
000190: D4 FF 19 77 23 23 01 04 00 3E 01 CD 09 19 CD AE ...w##...>......
0001A0: 19 C3 81 14 E3 22 E4 00 E3 22 E2 00 7E E6 C0 C0 ....."..."..~...
0001B0: 3E 04 32 D0 00 C9 3A D0 00 B7 C0 E5 CD 5A 1A EB >.2...:......Z..
0001C0: B7 ED 52 E1 30 10 AF CD 09 19 2A E2 00 11 08 00 ..R.0.....*.....
0001D0: 19 34 C0 23 34 C9 3E 99 32 D0 00 C9 3A D0 00 B7 .4.#4.>.2...:...
0001E0: C0 E5 CD 5A 1A B7 ED 52 3E 01 20 10 2A E2 00 11 ...Z...R>. .*...
0001F0: 04 00 19 34 20 04 23 34 28 08 3E 03 E1 CD 09 19 ...4 .#4(.>.....
Size : 512 (Real : 512)
000000: 02 C3 84 02 CD E5 20 3A 42 45 F5 3A 41 45 B7 C4 ...... :BE.:AE..
000010: A4 2D CD 8F 2D CD 4B 2D C4 06 25 3A F3 44 3D 28 .-..-.K-..%:.D=(
000020: 04 F1 32 42 45 C3 3B 22 CD 00 02 2D 2D 2D 2D 2D ..2BE.;"...-----
000030: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000040: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000050: 2D 2D 0D 0A 00 C9 CD 00 02 20 00 10 F9 C9 2A 06 --....... ....*.
000060: 00 01 3C FD 09 22 F6 44 0E 19 CD 05 00 3C 32 F8 ..<..".D.....<2.
000070: 44 CD E5 20 CD 3E 02 CD 28 21 CD 00 02 54 55 52 D.. .>..(!...TUR
000080: 42 4F 20 50 61 73 63 61 6C 20 73 79 73 74 65 6D BO Pascal system
000090: 00 CD 6B 02 06 07 CD 56 21 CD 00 02 56 65 72 73 ..k....V!...Vers
0000A0: 69 6F 6E 20 33 2E 30 30 41 0D 0A 00 06 1B CD 56 ion 3.00A......V
0000B0: 21 CD 00 02 43 50 2F 4D 2D 38 30 2C 20 5A 38 30 !...CP/M-80, Z80
0000C0: 0D 0A 0D 0A 43 6F 70 79 72 69 67 68 74 20 28 43 ....Copyright (C
0000D0: 29 20 31 39 38 33 2C 38 34 2C 38 35 20 20 20 00 ) 1983,84,85 .
0000E0: CD 84 02 CD 00 02 42 4F 52 4C 41 4E 44 20 49 6E ......BORLAND In
0000F0: 63 2E 0D 0A 00 CD 28 21 CD 00 02 0A 54 65 72 6D c.....(!....Term
000100: 69 6E 61 6C 3A 20 00 21 53 01 CD D0 01 CD 00 02 inal: .!S.......
000110: 0D 0A 0A 0A 0A 49 6E 63 6C 75 64 65 20 65 72 72 .....Include err
000120: 6F 72 20 6D 65 73 73 61 67 65 73 00 CD 21 2D 32 or messages..!-2
000130: 41 45 C4 A4 2D CD 8F 2D CD 7A 22 ED 7B 06 00 21 AE..-..-.z".{..!
000140: 3B 22 E5 CD FA 01 8D 8A BE 00 CD E1 03 CD A6 04 ;"..............
000150: CD E1 01 21 60 24 11 72 24 06 0B CD 50 24 38 1A ...!`$.r$...P$8.
000160: E9 CD 00 02 3A 20 00 CD E8 14 CD E1 01 11 D7 7A ....: .........z
000170: 1A FE 1A C8 FE 20 C0 13 18 F6 CD 3E 02 CD FA 01 ..... .....>....
000180: CC 6F 67 67 65 64 20 64 72 69 76 65 3A A0 00 0E .ogged drive:...
000190: 19 CD 05 00 C6 41 CD C9 03 CD FA 01 8D 8A 8A D7 .....A..........
0001A0: 6F 72 6B 20 66 69 6C 65 3A A0 00 CD 35 31 CD FA ork file:...51..
0001B0: 01 8D 8A CD 61 69 6E 20 66 69 6C 65 3A A0 00 11 ....ain file:...
0001C0: F9 44 CD F8 2D CD FA 01 8D 8A 8A C5 64 69 74 20 .D..-.......dit
0001D0: 20 20 20 20 C3 6F 6D 70 69 6C 65 20 20 D2 75 6E .ompile .un
0001E0: 20 20 20 D3 61 76 65 0D 0A 0A 65 D8 65 63 75 74 .ave...e.ecut
0001F0: 65 20 20 C4 69 72 20 20 20 20 20 20 D1 75 69 74 e .ir .uit
Size : 512 (Real : 512)
000000: 18 C8 E1 3E F2 32 D0 00 C9 32 E9 00 EB 2A E2 00 ...>.2...2...*..
000010: CB 66 28 2F CB A6 3A E9 00 CB 47 28 18 23 23 7E .f(/..:...G(.##~
000020: 2B 2B B7 20 10 3A E9 00 CB 4F 20 17 78 B7 20 13 ++. .:...O .x. .
000030: 79 B7 FA 43 19 C5 D5 0E 21 CD BA 19 D1 C1 20 51 y..C....!..... Q
000040: 2A E2 00 3A E9 00 CB 47 28 02 CB EE 23 23 7E C6 *..:...G(...##~.
000050: 2E D5 5F 16 00 19 D1 D6 2E CD 9A 19 ED A0 E2 66 .._............f
000060: 19 3C F2 5C 19 3D 3C CD 9A 19 2A E2 00 23 23 E6 .<.\.=<...*..##.
000070: 7F 77 20 16 C5 D5 E5 CD AE 19 E1 D1 C1 20 15 D5 .w .......... ..
000080: 11 2B 00 19 D1 34 20 02 23 34 78 B1 C2 0D 19 EB .+...4 .#4x.....
000090: C9 3E 99 01 3E F0 32 D0 00 C9 F5 3A E9 00 CB 47 .>..>.2....:...G
0000A0: 28 01 EB F1 C9 22 E2 00 CD AE 19 C8 18 E6 0E 22 (...."........."
0000B0: 2A E2 00 CB E6 CB 6E C8 CB AE 2A E2 00 E5 C5 11 *.....n...*.....
0000C0: 30 00 19 EB 0E 1A CD 05 00 C1 E1 11 0C 00 19 EB 0...............
0000D0: CD 05 00 B7 C9 C1 D1 ED 53 E2 00 C5 E5 CD 5A 1A ........S.....Z.
0000E0: D1 B7 ED 52 38 40 2A E2 00 01 06 00 09 4E 23 46 ...R8@*......N#F
0000F0: 23 73 23 72 CD 2C 1A 01 04 00 09 30 01 13 7D E6 #s#r.,.....0..}.
000100: 7F 29 EB ED 6A EB 53 5C 2A E2 00 23 23 77 01 2B .)..j.S\*..##w.+
000110: 00 09 4E 23 46 EB B7 ED 42 09 C8 D5 E5 CD AE 19 ..N#F...B.......
000120: D1 E1 72 2B 73 C9 3E 91 32 D0 00 C9 D5 D9 E1 D9 ..r+s.>.2.......
000130: 21 00 00 54 5D 3E 10 29 EB ED 6A EB D9 29 D9 30 !..T]>.)..j..).0
000140: 04 09 30 01 13 3D 20 EF C9 CD 5D 1A B7 ED 52 21 ..0..= ...]...R!
000150: 00 00 C0 23 C9 CD 5D 1A EB C9 2A E2 00 11 04 00 ...#..]...*.....
000160: 19 5E 23 56 23 D5 4E 23 46 23 5E 23 56 E1 C9 3E .^#V#.N#F#^#V..>
000170: AF 32 E8 00 CD B0 1A 3A D0 00 B7 C0 CD 30 14 3A .2.....:.....0.:
000180: D0 00 B7 C0 2A E2 00 36 C0 E5 11 0C 00 19 EB 0E ....*..6........
000190: 23 CD 05 00 E1 11 2D 00 19 AF 4E 77 23 46 77 11 #.....-...Nw#Fw.
0001A0: D6 FF 19 71 23 70 23 36 80 23 77 23 77 23 77 C9 ...q#p#6.#w#w#w.
0001B0: 22 E2 00 7E E6 C0 C8 C3 81 14 3E 22 18 02 3E 21 "..~......>"..>!
0001C0: 44 4D 21 F0 00 22 E6 00 DD E1 D1 E1 DD E5 C5 CD DM!.."..........
0001D0: FD 1A C1 3A D0 00 B7 C0 2A F0 00 ED 42 C8 3A E9 ...:....*...B.:.
0001E0: 00 FE 21 3E 99 28 02 3E F0 32 D0 00 C9 3E 22 18 ..!>.(.>.2...>".
0001F0: 02 3E 21 22 E6 00 DD E1 C1 D1 E1 DD E5 32 E9 00 .>!".........2..
Size : 512 (Real : 512)
000000: 20 20 63 6F 6D 70 69 6C 65 72 20 CF 70 74 69 6F compiler .ptio
000010: 6E 73 0D 0A 0A 54 65 78 74 3A 20 00 ED 5B 44 45 ns...Text: ..[DE
000020: 2A 46 45 2B CD 38 23 ED 5B 46 45 2A 48 45 CD 00 *FE+.8#.[FE*HE..
000030: 02 46 72 65 65 3A 20 00 E5 D5 B7 ED 52 CD 5C 2E .Free: .....R.\.
000040: CD 00 02 20 62 79 74 65 73 20 28 00 E1 CD AF 04 ... bytes (.....
000050: 3E 2D CD C9 03 E1 CD AF 04 3E 29 CD C9 03 C3 E1 >-.......>).....
000060: 01 3D 20 10 CD FA 01 63 6F 6D 70 69 6C 65 20 2D .= ....compile -
000070: 3E 20 00 C9 06 0B C3 56 21 21 79 23 E5 CD 3E 02 > .....V!!y#..>.
000080: 3A F3 44 CD 61 23 CD FA 01 CD 65 6D 6F 72 79 0D :.D.a#....emory.
000090: 0A 00 CD 61 23 CD FA 01 C3 6F 6D 2D 66 69 6C 65 ...a#....om-file
0000A0: 0D 0A 00 CD 61 23 CD FA 01 63 C8 6E 2D 66 69 6C ....a#...c.n-fil
0000B0: 65 0D 0A 0A 00 3A F3 44 FE 01 28 5D CD FA 01 D3 e....:.D..(]....
0000C0: 74 61 72 74 20 61 64 64 72 65 73 73 3A A0 00 2A tart address:..*
0000D0: F4 44 CD AF 04 CD FA 01 20 28 6D 69 6E 20 00 21 .D...... (min .!
0000E0: E2 20 CD AF 04 CD FA 01 29 0D 0A C5 6E 64 20 20 . ......)...nd
0000F0: 20 61 64 64 72 65 73 73 3A A0 00 2A F6 44 CD AF address:..*.D..
000100: 04 CD FA 01 20 28 6D 61 78 20 00 2A 06 00 CD AF .... (max .*....
000110: 04 CD FA 01 29 0D 0A 0A 00 CD FA 01 C6 69 6E 64 ....)........ind
000120: 20 72 75 6E 2D 74 69 6D 65 20 65 72 72 6F 72 20 run-time error
000130: 20 D1 75 69 74 0D 0A 0A BE 00 CD E1 03 CD A6 04 .uit...........
000140: CD E1 01 21 6B 24 11 88 24 06 07 CD 50 24 D8 E9 ...!k$..$...P$..
000150: BE 28 07 23 13 13 10 F8 37 C9 EB 5E 23 56 EB C9 .(.#....7..^#V..
000160: 4C 57 4D 45 43 52 53 58 44 51 4F 4D 43 48 53 45 LWMECRSXDQOMCHSE
000170: 46 51 CE 2C C9 24 9A 24 F8 2A 27 28 97 2A 39 26 FQ.,.$.$.*'(.*9&
000180: 2D 2B 93 2B 24 2B 79 23 40 27 44 27 48 27 50 27 -+.+$+y#@'D'H'P'
000190: 6E 27 9B 27 96 24 E1 C3 7A 22 CD 00 02 0D 0A 4D n'.'.$..z".....M
0001A0: 61 69 6E 20 66 69 6C 65 20 6E 61 6D 65 00 CD 9F ain file name...
0001B0: 2D CD 61 22 3E 00 32 FA 44 C8 CD 2A 2D 11 F9 44 -.a">.2.D..*-..D
0001C0: 21 5C 00 01 24 00 ED B0 C9 21 BC 25 22 9E 25 CD !\..$....!.%".%.
0001D0: 01 26 CD 00 02 0D 0A 57 6F 72 6B 20 66 69 6C 65 .&.....Work file
0001E0: 20 6E 61 6D 65 00 CD 61 22 3E 00 32 1E 45 20 06 name..a">.2.E .
0001F0: CD 8F 2D C3 3B 22 CD 2A 2D 11 1D 45 21 5C 00 01 ..-.;".*-..E!\..
Size : 512 (Real : 512)
000000: 22 E2 00 7E E6 C0 CA B0 18 2A E6 00 AF 77 23 77 "..~.....*...w#w
000010: 78 B1 28 39 C5 D5 0E 1A CD 05 00 2A E2 00 11 0C x.(9.......*....
000020: 00 19 EB 3A E9 00 4F CD 05 00 D1 C1 B7 20 1E D5 ...:..O...... ..
000030: 2A E2 00 11 2D 00 19 34 20 02 23 34 D1 21 80 00 *...-..4 .#4.!..
000040: 19 EB 2A E6 00 34 20 02 23 34 0B 18 C3 2A E2 00 ..*..4 .#4...*..
000050: 11 2D 00 19 4E 23 46 11 DA FF 19 71 23 70 11 FC .-..N#F....q#p..
000060: FF 19 56 2B 5E EB B7 ED 42 D0 EB 71 23 70 C9 C1 ..V+^...B..q#p..
000070: D1 ED 53 E2 00 C5 E5 CD 5A 1A D1 B7 ED 52 DA 26 ..S.....Z....R.&
000080: 1A 2A E2 00 01 08 00 09 73 23 72 01 24 00 09 73 .*......s#r.$..s
000090: 23 72 C9 CD 4C 1C C0 11 0C 00 19 EB 0E 13 CD 05 #r..L...........
0000A0: 00 3C C0 18 3F FD E1 2A D2 00 06 10 CD E2 05 AF .<..?..*........
0000B0: 12 E1 FD E5 CD 4C 1C C0 E5 CD F2 03 E1 E5 11 1C .....L..........
0000C0: 00 19 EB 21 5C 00 01 0C 00 ED B0 E1 11 0C 00 19 ...!\...........
0000D0: E5 EB 0E 17 CD 05 00 D1 3C 28 09 21 5C 00 01 24 ........<(.!\..$
0000E0: 00 ED B0 C9 3E 01 32 D0 00 C9 3E AF 32 E8 00 CD ....>.2...>.2...
0000F0: 4C 1C C0 3A D8 00 B7 3E 21 28 EB 2A E2 00 11 0C L..:...>!(.*....
000100: 00 19 11 5C 00 01 24 00 ED B0 11 5C 00 0E 0F CD ...\..$....\....
000110: 05 00 3C 28 CF 21 33 1C 11 B0 00 01 19 00 ED B0 ..<(.!3.........
000120: 11 00 01 3A E8 00 B7 20 04 ED 5B 01 01 31 00 01 ...:... ..[..1..
000130: C3 B0 00 D5 0E 1A CD 05 00 11 5C 00 0E 14 CD 05 ..........\.....
000140: 00 D1 21 80 00 19 EB B7 28 E9 18 37 22 E2 00 7E ..!.....(..7"..~
000150: E6 0F C8 3E 20 32 D0 00 C9 22 E6 00 ED 53 E8 00 ...> 2..."...S..
000160: EB E1 22 E2 00 4E 73 23 46 72 EB B7 ED 42 28 5A .."..Ns#Fr...B(Z
000170: EB 23 11 5C 00 3A DC 00 12 13 01 0B 00 ED B0 06 .#.\.:..........
000180: 18 AF 12 13 10 FC E5 11 5C 00 0E 0F CD 05 00 D1 ........\.......
000190: 3C 28 3F 2A E6 00 22 7D 00 ED 4B E8 00 C5 D5 0E <(?*.."}..K.....
0001A0: 1A CD 05 00 11 5C 00 0E 21 CD 05 00 D1 C1 B7 20 .....\..!......
0001B0: 21 2A 7D 00 23 22 7D 00 21 80 00 19 EB 0B 78 B1 !*}.#"}.!.....x.
0001C0: 20 DB 11 5C 00 0E 10 CD 05 00 2A E2 00 11 0D 00 ..\......*.....
0001D0: 19 E9 DD 2A E2 00 3E F0 C3 29 20 CD C8 04 FE 11 ...*..>..) .....
0001E0: D0 32 DC 00 C9 22 F0 00 EB E1 E3 22 F2 00 13 13 .2..."....."....
0001F0: 13 7B E6 FC 5F 21 DE 00 22 F8 00 DD 2A DE 00 DD .{.._!.."...*...
Size : 512 (Real : 512)
000000: 24 00 ED B0 18 06 21 B7 25 22 9E 25 21 EB 25 22 $.....!.%".%!.%"
000010: 7D 25 CD 8F 2D 11 1D 45 2A 44 45 22 60 44 22 62 }%..-..E*DE"`D"b
000020: 44 22 50 44 22 54 44 22 58 44 22 6A 44 ED 4B 48 D"PD"TD"XD"jD.KH
000030: 45 CD 3B 25 36 0D 23 22 46 45 C9 E5 C5 D5 CD 00 E.;%6.#"FE......
000040: 02 0D 0A 4C 6F 61 64 69 6E 67 20 00 CD F8 2D 11 ...Loading ...-.
000050: 5C 00 CD DC 26 E1 01 24 00 ED B0 0E 0F CD D3 26 \...&..$.......&
000060: F5 11 57 79 0E 1A CD 65 72 F1 C1 E1 3C 28 2E ED ..Wy...er...<(..
000070: 43 6D 7B ED 4B 6D 7B 05 B7 ED 42 09 D2 D2 04 E5 Cm{.Km{...B.....
000080: 0E 14 CD D3 26 E1 B7 C0 11 57 79 06 80 1A FE FF ....&....Wy.....
000090: C8 E6 7F FE 1A C8 77 23 13 10 F2 18 D6 C3 D2 04 ......w#........
0000A0: CD 00 02 0D 0A 46 69 6C 65 20 6E 6F 74 20 66 6F .....File not fo
0000B0: 75 6E 64 00 C3 76 2E CD A0 25 18 32 CD 00 02 0D und..v...%.2....
0000C0: 0A 4E 65 77 20 46 69 6C 65 00 23 E5 21 E8 03 CD .New File.#.!...
0000D0: 1D 02 E1 C9 2A 46 45 CD 00 02 0D 0A 46 69 6C 65 ....*FE.....File
0000E0: 20 74 6F 6F 20 62 69 67 00 18 C9 CD D4 25 AF 32 too big.....%.2
0000F0: 1E 45 C3 3B 22 21 65 00 36 42 23 36 41 23 36 4B .E.;"!e.6B#6A#6K
000100: C9 3E AF 08 3A 7F 44 B7 C8 08 B7 28 2C CD 00 02 .>..:.D....(,...
000110: 57 6F 72 6B 66 69 6C 65 20 00 CD 35 31 CD 00 02 Workfile ..51...
000120: 20 6E 6F 74 20 73 61 76 65 64 2E 20 53 61 76 65 not saved. Save
000130: 00 AF 32 7F 44 CD 21 2D C8 CD 50 2D 21 1D 45 E5 ..2.D.!-..P-!.E.
000140: 11 5C 00 01 24 00 ED B0 CD 00 02 0D 0A 53 61 76 .\..$........Sav
000150: 69 6E 67 20 00 11 5C 00 CD F8 2D 2A 46 45 2B 36 ing ..\...-*FE+6
000160: 1A CD F5 25 CD D9 26 0E 13 CD 65 72 21 5D 00 11 ...%..&...er!]..
000170: 6C 00 AF 32 7F 44 12 3C 32 F2 44 13 01 0F 00 ED l..2.D.<2.D.....
000180: B0 E1 11 5C 00 01 10 00 ED B0 0E 17 CD D3 26 2A ...\..........&*
000190: 44 45 E5 CD D9 26 0E 16 CD 65 72 E1 3C 28 4E E5 DE...&...er.<(N.
0001A0: 11 57 79 D5 0E 1A CD 65 72 D1 E1 06 80 7E 23 12 .Wy....er....~#.
0001B0: 13 10 13 47 C5 E5 0E 15 CD D3 26 E1 C1 B7 20 3E ...G......&... >
0001C0: 11 57 79 78 06 80 FE 1A 20 E3 78 D6 80 3E 1A 20 .Wyx.... .x..>.
0001D0: DE 0E 10 11 5C 00 C3 65 72 11 5C 00 D5 21 0C 00 ....\..er.\..!..
0001E0: 19 36 00 54 5D 13 01 17 00 ED B0 D1 C9 CD 00 02 .6.T]...........
0001F0: 20 20 44 69 72 65 63 74 6F 72 79 00 18 0A CD 00 Directory.....
Size : 512 (Real : 512)
000000: 6E 02 DD 66 03 7D B4 28 48 ED 52 30 0F DD 6E 00 n..f.}.(H.R0..n.
000010: DD 66 01 E5 DD 22 F8 00 DD E1 18 E3 20 0A DD 5E .f..."...... ..^
000020: 00 DD 56 01 DD E5 18 1B 4D 44 DD 6E 00 DD 66 01 ..V.....MD.n..f.
000030: DD E5 DD 19 DD 75 00 DD 74 01 DD 71 02 DD 70 03 .....u..t..q..p.
000040: DD E5 D1 2A F8 00 73 23 72 D1 2A F2 00 73 23 72 ...*..s#r.*..s#r
000050: C9 DD E5 E1 19 22 C4 00 2A F0 00 01 04 00 09 DD ....."..*.......
000060: E5 C1 09 DA 75 1D ED 4B C6 00 ED 42 01 00 00 21 ....u..K...B...!
000070: 00 00 DA 30 1D 3E FF C3 27 20 EB E1 E3 7E 23 66 ...0.>..' ...~#f
000080: 6F 13 13 13 7B E6 FC 5F EB 22 F0 00 2A DE 00 E5 o...{.._."..*...
000090: DD E1 B7 ED 52 30 52 DD 6E 00 DD 66 01 E5 B7 ED ....R0R.n..f....
0000A0: 52 30 04 DD E1 18 F0 E1 D5 FD E1 ED 4B F0 00 FD R0..........K...
0000B0: 71 02 FD 70 03 FD 75 00 FD 74 01 DD 73 00 DD 72 q..p..u..t..s..r
0000C0: 01 DD E5 E1 DD 4E 02 DD 46 03 CD 04 1E 28 09 DD .....N..F....(..
0000D0: 5E 00 DD 56 01 D5 DD E1 DD E5 E1 DD 4E 02 DD 46 ^..V........N..F
0000E0: 03 DD 5E 00 DD 56 01 18 1B 2A DE 00 ED 53 DE 00 ..^..V...*...S..
0000F0: D5 DD E1 DD 75 00 DD 74 01 ED 4B F0 00 DD 71 02 ....u..t..K...q.
000100: DD 70 03 EB 09 B7 ED 52 C0 D5 FD E1 2A C4 00 B7 .p.....R....*...
000110: ED 52 28 1B FD 7E 00 DD 77 00 FD 7E 01 DD 77 01 .R(..~..w..~..w.
000120: FD 6E 02 FD 66 03 09 DD 75 02 DD 74 03 AF C9 DD .n..f...u..t....
000130: E5 E1 22 C4 00 06 04 36 00 23 10 FB C9 CD 4B 1E .."....6.#....K.
000140: 2A F4 00 C9 CD 4B 1E 2A F6 00 C9 21 00 00 22 F4 *....K.*...!..".
000150: 00 22 F6 00 DD 2A DE 00 DD 4E 02 DD 46 03 79 B0 ."...*...N..F.y.
000160: 28 1E 2A F4 00 09 22 F4 00 2A F6 00 B7 ED 42 30 (.*..."..*....B0
000170: 04 ED 43 F6 00 DD 6E 00 DD 66 01 E5 DD E1 18 D8 ..C...n..f......
000180: 2A C6 00 01 FB FF 09 ED 5B C4 00 B7 ED 52 D8 EB *.......[....R..
000190: 2A F4 00 19 22 F4 00 2A F6 00 B7 ED 52 D0 ED 53 *..."..*....R..S
0001A0: F6 00 C9 ED 5B C4 00 73 23 72 C9 5E 23 56 EB 22 ....[..s#r.^#V."
0001B0: C4 00 22 DE 00 06 04 36 00 23 10 FB C9 3E AF 4F .."....6.#...>.O
0001C0: 22 E8 00 AF 77 32 D0 00 78 32 EA 00 2A E2 00 22 "...w2..x2..*.."
0001D0: ED 00 21 46 1F 22 E2 00 E1 22 E4 00 E1 0C 0D 20 ..!F."...".....
0001E0: 05 CD 26 17 18 03 CD 79 17 2A ED 00 22 E2 00 2A ..&....y.*.."..*
0001F0: E4 00 E9 3E AF 32 EC 00 22 E8 00 2A E2 00 22 ED ...>.2.."..*..".
Size : 512 (Real : 512)
000000: 02 20 20 44 69 73 6B 00 CD 00 02 20 66 75 6C 6C . Disk.... full
000010: 00 CD 76 2E CD D9 26 0E 13 CD D3 26 3A F2 44 B7 ..v...&....&:.D.
000020: C8 32 7F 44 21 5D 00 11 6C 00 AF 32 F2 44 12 13 .2.D!]..l..2.D..
000030: 01 0F 00 ED B0 CD F5 25 0E 17 CD D3 26 C3 3B 22 .......%....&.;"
000040: 3E 01 18 06 3E 02 18 02 3E 03 32 F3 44 C3 9F 2D >...>...>.2.D..-
000050: CD 00 02 53 74 61 72 74 20 61 64 64 72 65 73 73 ...Start address
000060: 00 CD 61 22 21 E2 20 C4 D9 2D 22 F4 44 C9 CD 00 ..a"!. ..-".D...
000070: 02 45 6E 64 20 61 64 64 72 65 73 73 00 CD 61 22 .End address..a"
000080: 2A 06 00 01 3C FD 09 C4 D9 2D 22 F6 44 C9 CD E5 *...<....-".D...
000090: 20 2A CE 00 7C B5 20 19 C3 3B 22 CD 00 02 45 6E *..|. ..;"...En
0000A0: 74 65 72 20 50 43 00 CD 61 22 C8 CD D9 2D 22 CE ter PC..a"...-".
0000B0: 00 CD E1 01 CD D7 27 21 00 00 22 04 79 3E 02 32 ......'!..".y>.2
0000C0: 00 79 CD 00 02 0D 0A 53 65 61 72 63 68 69 6E 67 .y.....Searching
0000D0: 00 CD 9F 2D C3 D0 28 CD 4B 2D CC 50 2D CD 7A 2D ...-..(.K-.P-.z-
0000E0: 21 1D 45 20 05 CD 50 2D 18 1E CD 7F 2D 28 F1 CD !.E ..P-....-(..
0000F0: 02 26 21 EB 25 22 7D 25 21 B7 25 22 9E 25 11 F9 .&!.%"}%!.%".%..
000100: 44 D5 CD 18 25 3E 01 E1 32 F1 44 11 33 79 01 24 D...%>..2.D.3y.$
000110: 00 ED B0 AF 32 00 79 2A 06 00 22 0A 79 2A 46 45 ....2.y*..".y*FE
000120: 36 1A 23 22 04 79 C9 CD D7 27 3A F3 44 3D CA AA 6.#".y...':.D=..
000130: 28 3D F5 20 07 3E 43 21 4F 4D 18 05 3E 43 21 48 (=. .>C!OM..>C!H
000140: 4E 32 3C 79 22 3D 79 3E 01 32 00 79 2A F4 44 22 N2<y"=y>.2.y*.D"
000150: 04 79 2A F6 44 22 0A 79 11 33 79 D5 CD DC 26 0E .y*.D".y.3y...&.
000160: 13 CD 65 72 D1 0E 16 CD 65 72 3C CA 5A 2A F1 21 ..er....er<.Z*.!
000170: 00 01 28 03 2A 04 79 22 02 79 EB 2A 04 79 37 ED ..(.*.y".y.*.y7.
000180: 52 38 26 2A 04 79 22 01 01 D5 0E 1A CD 65 72 0E R8&*.y"......er.
000190: 15 11 33 79 CD 65 72 D1 21 E2 20 22 01 01 B7 C2 ..3y.er.!. "....
0001A0: 5A 2A 21 80 00 19 EB 18 D2 3E AF CD 00 02 0D 0A Z*!......>......
0001B0: 43 6F 6D 70 69 6C 69 6E 67 20 00 11 33 79 B7 28 Compiling ..3y.(
0001C0: 0C CD 00 02 20 2D 2D 3E 20 00 CD F8 2D CD 9F 2D .... --> ...-..-
0001D0: CD E1 01 CD 4A 45 3A 01 79 FE CA 20 1D CD 00 02 ....JE:.y.. ....
0001E0: 0D 0A 0A 43 6F 6D 70 69 6C 61 74 69 6F 6E 20 61 ...Compilation a
0001F0: 62 6F 72 74 65 64 00 C3 3B 22 CD 00 02 20 6C 69 borted..;"... li
Size : 512 (Real : 512)
000000: 3E 30 28 2D 11 10 27 CD 1F 31 11 E8 03 CD 1F 31 >0(-..'..1.....1
000010: 11 64 00 CD 1F 31 11 0A 00 CD 1F 31 11 01 00 AF .d...1.....1....
000020: ED 52 38 03 3C 18 F9 19 C6 30 FE 30 20 03 04 05 .R8.<....0.0 ...
000030: C8 05 C3 C9 03 11 1D 45 C3 F8 2D CD 00 02 3A 20 .......E..-...:
000040: 00 EB E5 DD E1 23 56 36 00 23 FD CB 07 86 D5 E5 .....#V6.#......
000050: CD 3A 2F E1 D1 FD CB 07 C6 30 5E 20 08 3A 83 44 .:/......0^ .:.D
000060: CD F6 3E 18 E5 79 FE 00 20 03 36 1A C9 FE 03 20 ..>..y.. .6....
000070: 0B DD 7E 01 BA 30 D3 DD 34 01 18 4A FE 05 20 10 ..~..0..4..J.. .
000080: DD 7E 01 BA 28 C4 7E CD A8 2F 23 DD 34 01 18 F0 .~..(.~../#.4...
000090: FE 04 20 07 CD D7 31 20 FB 18 AF FE 2D 20 05 CD .. ...1 ....- ..
0000A0: 71 42 18 15 FE 1B 28 0C FE 1C 28 08 FE 01 28 04 qB....(...(...(.
0000B0: FE 02 20 96 CD D7 31 18 91 5F DD 7E 01 DD BE 00 .. ...1.._.~....
0000C0: 30 88 DD 34 01 73 7E 23 CD A8 2F DD 7E 01 BA 38 0..4.s~#../.~..8
0000D0: E6 DD 56 01 C3 B7 31 DD 7E 01 B7 C8 DD 35 01 2B ..V...1.~....5.+
0000E0: 7E FE 20 DC E6 31 CD 11 42 88 A0 88 00 3E FF B7 ~. ..1..B....>..
0000F0: C9 AF 32 7E 44 CD FD 31 CD 20 32 18 55 CD 04 3E ..2~D..1. 2.U..>
000100: 46 69 6E 64 00 11 90 44 C3 3B 31 CD 07 3E 52 65 Find...D.;1..>Re
000110: 70 6C 61 63 65 20 77 69 74 68 00 11 B1 44 18 E8 place with...D..
000120: CD 07 3E 4F 70 74 69 6F 6E 73 00 11 D2 44 CD 3B ..>Options...D.;
000130: 31 3A 68 01 67 25 2E 00 C3 A2 02 3E FF 32 7E 44 1:h.g%.....>.2~D
000140: CD FD 31 CD 0B 32 CD 20 32 18 07 CD 8A 2F FD 36 ..1..2. 2..../.6
000150: 16 03 CD 40 3E CD 23 3E 23 ED 5B 52 44 CD 91 41 ...@>.#>#.[RD..A
000160: 11 74 7B B7 ED 52 ED 5B 50 44 19 22 88 44 11 00 .t{..R.[PD.".D..
000170: 00 21 D3 44 46 FD 36 11 00 04 05 28 43 23 7E FE .!.DF.6....(C#~.
000180: 30 38 10 FE 3A 30 0C CD 26 34 D6 30 83 5F 30 2E 08..:0..&4.0._0.
000190: 14 18 2B CD A6 04 FE 57 20 04 FD CB 11 C6 FE 55 ..+....W ......U
0001A0: 20 04 FD CB 11 D6 FE 4E 20 04 FD CB 11 CE FE 47 ......N ......G
0001B0: 20 04 FD CB 11 DE FE 42 20 04 FD CB 11 E6 10 BD ......B .......
0001C0: 7B B2 20 03 11 01 00 ED 53 8A 44 2A 44 45 3A 7D {. .....S.D*DE:}
0001D0: 44 CB 67 28 03 2A 46 45 CB 5F 20 03 2A 88 44 22 D.g(.*FE._ .*.D"
0001E0: 88 44 FD CB 11 66 20 0D ED 5B 46 45 1B CD E2 3B .D...f ..[FE...;
0001F0: D2 80 33 18 06 CD EE 3B DA 80 33 11 92 44 3A 91 ..3....;..3..D:.
Size : 512 (Real : 512)
000000: 6E 65 73 0D 0A 0A 00 3A 01 79 B7 C2 70 29 3A 00 nes....:.y..p):.
000010: 79 FE 02 20 15 CD 7A 2A CD 00 02 6E 6F 74 20 66 y.. ..z*...not f
000020: 6F 75 6E 64 0D 0A 00 C3 3B 22 B7 28 0D 2A 04 79 ound....;".(.*.y
000030: 11 E2 20 B7 ED 52 19 C4 2E 23 CD 00 02 43 6F 64 .. ..R...#...Cod
000040: 65 3A 20 00 ED 5B 04 79 2A 06 79 E5 2B CD 38 23 e: ..[.y*.y.+.8#
000050: D1 2A 08 79 E5 CD 2E 23 D1 13 2A 0A 79 CD 00 02 .*.y...#..*.y...
000060: 44 61 74 61 3A 20 00 CD 38 23 3E FF 32 42 45 C9 Data: ..8#>.2BE.
000070: FE FA D2 5A 2A FE C8 30 73 47 CD 00 02 45 72 72 ...Z*..0sG...Err
000080: 6F 72 20 00 26 00 68 C5 CD 61 2E C1 3A 41 45 B7 or .&.h..a..:AE.
000090: 28 66 2A 9E 42 7E FE 1A 28 5E FE 20 38 0F D6 30 (f*.B~..(^. 8..0
0000A0: 4F 87 87 81 87 23 86 D6 30 23 B8 28 09 7E 23 FE O....#..0#.(.~#.
0000B0: 0D 20 FA 23 18 DF CD 00 02 3A 20 00 7E FE 0D 28 . .#.....: .~..(
0000C0: 37 FE 20 30 21 ED 5B 9E 42 1A 13 FE 20 30 0E BE 7. 0!.[.B... 0..
0000D0: 20 0B 1A FE 0D 28 12 CD C9 03 13 18 F5 1A 13 FE ....(..........
0000E0: 0D 20 FA 13 18 E3 CD C9 03 23 18 D0 CD 7A 2A CD . .......#...z*.
0000F0: 00 02 66 6F 75 6E 64 00 AF 32 F1 44 3A 0E 79 B7 ..found..2.D:.y.
000100: 28 3F 3E 2E CD C9 03 CD 02 26 11 1D 45 21 0F 79 (?>......&..E!.y
000110: 01 0C 00 ED B0 CD 06 25 CD 00 02 0D 0A 45 72 72 .......%.....Err
000120: 6F 72 20 66 6F 75 6E 64 20 69 6E 20 61 62 6F 76 or found in abov
000130: 65 20 69 6E 63 6C 75 64 65 20 66 69 6C 65 00 18 e include file..
000140: 10 CD 7A 2D 28 0B 11 1D 45 21 F9 44 01 0C 00 ED ..z-(...E!.D....
000150: B0 CD 76 2E 2A 0C 79 C3 FE 2A CD 00 02 44 69 73 ..v.*.y..*...Dis
000160: 6B 20 6F 72 20 64 69 72 65 63 74 6F 72 79 20 66 k or directory f
000170: 75 6C 6C 00 CD 76 2E C3 3B 22 CD 00 02 52 75 6E ull..v..;"...Run
000180: 2D 74 69 6D 65 20 65 72 72 6F 72 20 70 6F 73 69 -time error posi
000190: 74 69 6F 6E 20 00 C9 3A 42 45 B7 CC 27 28 3A F3 tion ..:BE..'(:.
0001A0: 44 3D 28 3B 3D C0 CD 33 2B C8 CD 7A 2D 21 1D 45 D=(;=..3+..z-!.E
0001B0: 28 03 21 F9 44 11 33 79 01 0C 00 ED B0 3E 43 21 (.!.D.3y.....>C!
0001C0: 4F 4D 32 3C 79 22 3D 79 11 33 79 CD DC 26 D5 0E OM2<y"=y.3y..&..
0001D0: 0F CD 65 72 E1 3C CA 04 21 11 A0 42 C3 7A 2B 32 ..er.<..!..B.z+2
0001E0: 80 00 CD 1D 28 CD 00 02 0D 0A 52 75 6E 6E 69 6E ....(.....Runnin
0001F0: 67 0D 0A 00 2A 04 79 E9 CD 50 2D 21 FF FF E5 2A g...*.y..P-!...*
Size : 512 (Real : 512)
000000: 44 47 FD CB 11 66 28 06 3D 83 5F 30 01 14 FD CB DG...f(.=._0....
000010: 11 46 28 0F D5 E5 CD FB 33 7E E1 D1 38 05 CD E4 .F(.....3~..8...
000020: 33 38 54 05 04 28 07 CD 0F 34 20 4B 10 36 FD CB 38T..(...4 K.6..
000030: 11 46 28 0D E5 CD 06 34 7E E1 38 05 CD E4 33 38 .F(....4~.8...38
000040: 36 FD CB 11 66 CC DD 3B 3A 7E 44 B7 C4 30 34 FD 6...f..;:~D..04.
000050: CB 11 5E 20 8A ED 4B 8A 44 0B ED 43 8A 44 78 B1 ..^ ..K.D..C.Dx.
000060: 20 F1 18 45 D5 CD 06 34 D1 38 15 FD CB 11 66 28 ..E...4.8....f(
000070: 03 1B 18 B3 13 18 B0 2A 88 44 CD 06 34 D2 DF 32 .......*.D..4..2
000080: CD D6 33 CD A9 33 FD CB 11 5E C0 CD 04 3E 53 65 ..3..3...^...>Se
000090: 61 72 63 68 20 73 74 72 69 6E 67 20 6E 6F 74 20 arch string not
0000A0: 66 6F 75 6E 64 00 C3 12 3F CD AF 33 C3 2C 3D ED found...?..3.,=.
0000B0: 5B 46 45 1B CD E2 3B 38 01 EB E5 E5 CD F5 3B 22 [FE...;8......;"
0000C0: 50 44 B7 EB E1 ED 52 11 74 7B 19 22 52 44 CD E7 PD....R.t{."RD..
0000D0: 3F CD 1F 40 E1 C9 ED 5B 44 45 CD 91 41 2A 46 45 ?..@...[DE..A*FE
0000E0: 2B C3 91 41 FE 30 38 11 FE 3A D8 FE 41 38 0A FE +..A.08..:..A8..
0000F0: 5B D8 FE 61 38 03 FE 7B D8 B7 C9 FD CB 11 66 28 [..a8..{......f(
000100: 0B CD DD 3B 3F C9 FD CB 11 66 28 F5 C3 EE 3B 1A ...;?....f(...;.
000110: FE 01 C8 BE C8 FD CB 11 56 28 09 CD E4 33 30 04 ........V(...30.
000120: AE E6 DF C9 BE C9 E5 6B 62 29 29 19 29 EB E1 C9 .......kb)).)...
000130: E5 CD 8F 42 28 06 FD CB 11 4E 20 61 CD A9 33 CD ...B(....N a..3.
000140: 96 3B FD CB 11 4E 20 55 CD 07 3E 52 65 70 6C 61 .;...N U..>Repla
000150: 63 65 20 28 D9 2F CE 29 3A 20 00 FD 6E 05 FD 66 ce (./.): ..n..f
000160: 04 CD A2 02 01 D0 07 CD 32 42 CD 8F 42 20 1D 0B ........2B..B ..
000170: 79 B0 20 F3 21 00 0F CD A2 02 01 D0 07 CD 32 42 y. .!.........2B
000180: CD 8F 42 20 07 0B 79 B0 20 F3 18 CF CD 71 42 CD ..B ..y. ....qB.
000190: F6 3E CD A6 04 FE 59 28 04 FE 19 20 4E FD CB 13 .>....Y(... N...
0001A0: C6 AF 32 42 45 3A B2 44 4F 06 00 E1 E5 C5 3A 91 ..2BE:.DO.....:.
0001B0: 44 91 4F F5 30 01 05 FD CB 11 66 20 03 2A 88 44 D.O.0.....f .*.D
0001C0: F1 E5 C4 18 3F D1 C1 78 B1 28 05 21 B3 44 ED B0 ....?..x.(.!.D..
0001D0: CD 8F 42 F5 C4 47 41 F1 20 08 D5 CD 2C 3D CD 39 ..B..GA. ...,=.9
0001E0: 41 D1 FD CB 11 66 20 03 E1 EB C9 E1 C9 FD CB 14 A....f .........
0001F0: 46 C0 CD 40 3E CD 2C 3D 2A 60 44 ED 5B 62 44 CD F..@>.,=*`D.[bD.
Size : 512 (Real : 512)
000000: A7 00 22 1E 42 21 14 42 22 A7 00 E1 C3 91 2E CD ..".B!.B".......
000010: 40 3E 2A 69 01 2D 26 00 CD A2 02 2A 1E 42 22 A7 @>*i.-&....*.B".
000020: 00 C3 3B 22 CD 01 26 CD 10 03 C3 00 00 CD 33 2B ..;"..&.......3+
000030: C8 18 27 CD 01 26 11 7D 21 3E 4F 21 56 52 CD 20 ..'..&.}!>O!VR.
000040: 2E C8 11 80 8F 21 80 00 19 E5 EB 0E 1A CD 05 00 .....!..........
000050: 0E 14 CD D3 26 D1 B7 28 EC C9 CD 00 02 0D 0A 50 ....&..(.......P
000060: 72 6F 67 72 61 6D 00 CD 61 22 CA 04 21 3E 43 21 rogram..a"..!>C!
000070: 4F 4D CD 20 2E 28 E3 21 5C 00 D5 E5 3A F8 44 F5 OM. .(.!\...:.D.
000080: 21 EE 03 E5 21 F4 00 E5 21 50 44 E5 21 04 21 E5 !...!...!PD.!.!.
000090: C3 00 90 CD 00 02 44 69 72 20 6D 61 73 6B 00 CD ......Dir mask..
0000A0: 61 22 CD EE 03 0E 19 CD 65 72 F5 F5 3A 5C 00 B7 a"......er..:\..
0000B0: 28 09 E1 3D 5F F5 0E 0E CD 65 72 F1 C6 41 32 8D (..=_....er..A2.
0000C0: 2C 11 57 79 0E 1A CD 65 72 11 00 00 0E 11 D5 CD ,.Wy...er.......
0000D0: D3 26 D1 4F 3C 28 52 79 87 87 87 87 87 4F 06 00 .&.O<(Ry.....O..
0000E0: 21 61 79 09 CB 7E 20 3D 16 FF 21 57 79 09 1C 1D !ay..~ =..!Wy...
0000F0: 20 0D 3A 68 01 3D 1E FF 1C D6 0F 30 FB 18 06 CD .:h.=.....0....
000100: 00 02 3A 20 00 06 0B 23 7E E6 7F CD C9 03 78 FE ..: ...#~.....x.
000110: 04 3E 20 CC C9 03 10 EF 1D 28 07 3E 20 CD C9 03 .> ......(.> ...
000120: 18 03 CD E1 01 0E 12 18 A5 1C 1D C4 E1 01 14 28 ...............(
000130: 0D CD 00 02 4E 6F 20 66 69 6C 65 0D 0A 00 CD E1 ....No file.....
000140: 01 0E 1F CD 05 00 E5 DD E1 DD 7E 03 3C 1F 1F 1F ..........~.<...
000150: E6 1F 32 71 7B DD 6E 05 DD 66 06 22 6F 7B 23 CD ..2q{.n..f."o{#.
000160: C6 2C E5 0E 1B CD 05 00 EB 2A 6F 7B 01 00 00 CD .,.......*o{....
000170: A5 2C 60 69 CD C6 2C CD 00 02 42 79 74 65 73 20 .,`i..,...Bytes
000180: 52 65 6D 61 69 6E 69 6E 67 20 4F 6E 20 58 3A 20 Remaining On X:
000190: 00 EB E1 B7 ED 52 CD 61 2E 3E 6B CD C9 03 F1 5F .....R.a.>k...._
0001A0: 0E 0E C3 65 72 C5 01 F8 FF 09 C1 7C B7 1A F2 B8 ...er......|....
0001B0: 2C 2C 28 09 B7 1F 18 F9 CD BD 2C 18 E8 13 B7 C8 ,,(.......,.....
0001C0: 1F 30 FB 03 18 F8 3A 71 7B 1F D8 29 18 FB CD 00 .0....:q{..)....
0001D0: 02 4E 65 77 20 64 72 69 76 65 00 CD 61 22 1A FE .New drive..a"..
0001E0: 1A 20 05 3A 04 00 18 09 CD A6 04 D6 41 D8 FE 10 . .:........A...
0001F0: D0 F5 0E 0D CD 65 72 F1 32 04 00 5F 0E 0E C3 65 .....er.2.._...e
Size : 512 (Real : 512)
000000: E2 3B D0 CD 3C 36 CD 2C 3D CD 04 3E 57 72 69 74 .;..<6.,=..>Writ
000010: 65 20 62 6C 6F 63 6B 20 74 6F 20 66 69 6C 65 00 e block to file.
000020: CD 66 35 C8 CD 2A 2D 0E 0F CD D3 26 3C 28 22 CD .f5..*-....&<(".
000030: 07 3E 4F 76 65 72 77 72 69 74 65 20 6F 6C 64 20 .>Overwrite old
000040: 00 11 5C 00 CD F8 2D CD 01 2D 28 BD 0E 13 CD D3 ..\...-..-(.....
000050: 26 2A 62 44 7E F5 E5 36 1A CD 0D 3E 2A 60 44 CD &*bD~..6...>*`D.
000060: 92 26 E1 F1 77 C9 11 DF 44 CD 3B 31 11 E1 44 1A .&..w...D.;1..D.
000070: FE 1A C9 CD 04 3E 52 65 61 64 20 62 6C 6F 63 6B .....>Read block
000080: 20 66 72 6F 6D 20 66 69 6C 65 00 CD 66 35 C8 CD from file..f5..
000090: 2A 2D 0E 0F CD D3 26 3C 20 0E CD 0D 3E 11 5C 00 *-....&< ...>.\.
0000A0: CD 3E 2E CD 12 3F 18 CB FD CB 14 86 CD 3C 36 2A .>...?.......<6*
0000B0: 46 45 ED 5B 48 45 01 FE 00 09 B7 ED 52 E5 44 4D FE.[HE......R.DM
0000C0: 2A 8C 44 37 CD 18 3F D1 21 DD 35 E5 2A 8C 44 E5 *.D7..?.!.5.*.D.
0000D0: AF ED 52 E5 21 F1 35 22 7D 25 C3 60 25 22 62 44 ..R.!.5"}%.`%"bD
0000E0: EB 2A 8C 44 22 60 44 2A 6D 7B B7 ED 52 44 4D 18 .*.D"`D*m{..RDM.
0000F0: 21 ED 5B 8C 44 CD E7 35 C3 D9 3E CD 3C 36 D2 2C !.[.D..5..>.<6.,
000100: 3D CD 87 36 2A 8C 44 ED 5B 60 44 22 60 44 09 22 =..6*.D.[`D"`D."
000110: 62 44 EB B7 CD 18 3F 2A 60 44 CD A9 33 C3 62 37 bD....?*`D..3.b7
000120: CD 3C 36 D2 2C 3D CD 87 36 2A 8C 44 22 60 44 09 .<6.,=..6*.D"`D.
000130: 22 62 44 CD 1F 40 CD 2C 3D C3 62 37 FD CB 14 46 "bD..@.,=.b7...F
000140: 28 02 AF C9 CD 23 3E 23 ED 5B 52 44 D5 CD 91 41 (....#>#.[RD...A
000150: EB CD 44 3E E1 11 74 7B B7 ED 52 ED 5B 50 44 19 ..D>..t{..R.[PD.
000160: 22 8C 44 E5 ED 5B 60 44 13 CD E2 3B ED 5B 62 44 ".D..[`D...;.[bD
000170: 38 08 CD E2 3B 30 03 B7 18 0B 2A 60 44 B7 ED 52 8...;0....*`D..R
000180: 22 8E 44 4D 44 E1 C9 CD 18 3F ED 4B 8E 44 79 2F ".DMD....?.K.Dy/
000190: 4F 78 2F 47 03 ED 5B 8C 44 2A 60 44 C5 ED B0 C1 Ox/G..[.D*`D....
0001A0: C9 FD CB 14 46 C0 CD 40 3E 2A 60 44 CD F5 3B 22 ....F..@>*`D..;"
0001B0: 50 44 2A 54 44 ED 5B 60 44 13 CD E2 3B 38 0F ED PD*TD.[`D...;8..
0001C0: 5B 62 44 CD E2 3B 30 06 2A 50 44 22 54 44 2A 62 [bD..;0.*PD"TD*b
0001D0: 44 ED 5B 60 44 B7 ED 52 DA 2C 3D 4D 44 EB E5 C5 D.[`D..R.,=MD...
0001E0: F5 CD 1F 40 F1 C1 E1 CD 18 3F 2A 50 44 22 60 44 ...@.....?*PD"`D
0001F0: 22 62 44 CD 2C 3D C3 62 37 21 80 44 CD 96 37 C3 "bD.,=.b7!.D..7.
Size : 512 (Real : 512)
000000: 72 CD 00 02 20 28 59 2F 4E 29 3F 20 00 CD E1 03 r... (Y/N)? ....
000010: CD A6 04 FE 59 28 04 FE 4E 20 F2 CD C9 03 D6 4E ....Y(..N .....N
000020: C9 CD 01 2D F5 CD E1 01 F1 C9 3E 50 21 41 53 32 ...-......>P!AS2
000030: 65 00 22 66 00 0E 00 CD 06 04 3A 5C 00 B7 C0 D5 e."f......:\....
000040: 0E 19 CD 65 72 3C 32 5C 00 D1 C9 3A 1E 45 B7 C9 ...er<2\...:.E..
000050: CD 4B 2D 20 1A CD 7A 2D 20 05 CD C9 24 18 10 11 .K- ..z- ...$...
000060: 1D 45 21 F9 44 01 24 00 ED B0 3E 01 32 F1 44 3A .E!.D.$...>.2.D:
000070: F1 44 B7 C8 CD 02 26 C3 06 25 3A FA 44 B7 C9 11 .D....&..%:.D...
000080: 1D 45 21 F9 44 06 0C 1A 96 C0 13 23 10 F9 C9 2A .E!.D......#...*
000090: 44 45 36 20 23 22 46 45 AF 32 7F 44 32 F1 44 AF DE6 #"FE.2.D2.D.
0000A0: 32 42 45 C9 2A 9E 42 22 44 45 11 7D 21 3E 4D 21 2BE.*.B"DE.}!>M!
0000B0: 53 47 CD 20 2E 32 41 45 CC 76 2E 28 12 21 A0 25 SG. .2AE.v.(.!.%
0000C0: 22 9E 25 21 D4 25 22 7D 25 11 5C 00 CD 18 25 2A ".%!.%"}%.\...%*
0000D0: 46 45 36 1A 23 22 44 45 C9 21 00 00 1A CD A6 04 FE6.#"DE.!......
0000E0: D6 30 D8 FE 0A 38 08 D6 07 FE 0A D8 FE 10 D0 29 .0...8.........)
0000F0: 29 29 29 B5 6F 13 18 E4 13 1A 1B B7 C8 1A C6 40 ))).o..........@
000100: FE 40 C4 C9 03 3E 3A C4 C9 03 06 0B 13 1A E6 7F .@...>:.........
000110: FE 20 C4 C9 03 78 FE 04 3E 2E CC C9 03 10 ED C9 . ...x..>.......
000120: CD 2F 2D 21 5C 00 CD 51 2E C0 3A F8 44 BE 77 C4 ./-!\..Q..:.D.w.
000130: 51 2E C0 3E 01 BE 77 C4 51 2E C0 36 00 EB CD F8 Q..>..w.Q..6....
000140: 2D CD 00 02 20 6E 6F 74 20 66 6F 75 6E 64 00 AF -... not found..
000150: C9 D5 E5 0E 0F CD D3 26 E1 D1 3C C9 11 FB FF 18 .......&..<.....
000160: 03 11 FF FF DD E5 FD E5 E5 D5 CD 9B 14 E1 CD 26 ...............&
000170: 17 FD E1 DD E1 C9 F5 CD 00 02 2E 20 50 72 65 73 ........... Pres
000180: 73 20 3C 45 53 43 3E 00 CD E1 03 FE FC 20 F9 F1 s <ESC>...... ..
000190: C9 E5 11 0D 0A 2A 46 45 72 2B 73 ED 53 F3 7B AF .....*FEr+s.S.{.
0001A0: 32 74 44 3C 32 75 44 21 DE 43 22 72 7B FD 21 6C 2tD<2uD!.C"r{.!l
0001B0: 44 CD 3E 02 D1 13 2A 44 45 19 CD A9 33 3A 82 44 D.>...*DE...3:.D
0001C0: 3D 28 12 21 00 00 CD A2 02 3A 82 44 87 47 3E 20 =(.!.....:.D.G>
0001D0: CD C9 03 10 FB CD 96 3B CD F7 2F CD 3A 2F 30 2E .......;../.:/0.
0001E0: 28 DB 21 BD 2E 7A FE 7F 38 0A 32 7F 44 E6 7F 57 (.!..z..8.2.D..W
0001F0: AF 32 42 45 E5 D5 21 57 44 11 5B 44 01 08 00 ED .2BE..!WD.[D....
Size : 512 (Real : 512)
000000: 62 37 2A 52 44 22 66 44 2A 50 44 22 62 44 FD CB b7*RD"fD*PD"bD..
000010: 01 4E FD CB 01 CE 08 FD CB 14 46 FD CB 14 86 20 .N........F....
000020: 41 08 28 3E 18 28 2A 52 44 22 64 44 2A 50 44 22 A.(>.(*RD"dD*PD"
000030: 60 44 FD CB 01 46 FD CB 01 C6 18 DA CD 40 3E 2A `D...F.......@>*
000040: 60 44 C3 A9 33 CD 40 3E 2A 62 44 C3 A9 33 26 00 `D..3.@>*bD..3&.
000050: CD A7 37 21 74 7B FD CB 10 C6 CD 1A 3C FD CB 10 ..7!t{......<...
000060: 86 C9 CD 4E 37 C3 47 41 CD 40 3E 2A 46 45 C3 A9 ...N7.GA.@>*FE..
000070: 33 21 74 7B 22 52 44 C3 E7 3F CD 23 3E 23 11 F3 3!t{"RD..?.#>#..
000080: 7B CD E2 3B 38 03 21 F2 7B 22 52 44 C3 E7 3F FD {..;8.!.{"RD..?.
000090: 36 08 00 21 72 44 7E EE 01 77 C9 FD 36 08 00 21 6..!rD~..w..6..!
0000A0: 79 44 18 F2 FD 66 04 FD 6E 05 C3 A2 02 2A 50 44 yD...f..n....*PD
0000B0: CD B1 41 D8 CD 40 3E 2A 50 44 CD B1 41 22 50 44 ..A..@>*PD..A"PD
0000C0: FD CB 0E 86 FD CB 15 C6 CD 1F 40 FD CB 15 86 C3 ..........@.....
0000D0: 2C 3D 2A 50 44 CD D0 41 D8 E5 CD 40 3E E1 18 DD ,=*PD..A...@>...
0000E0: 2A 6A 44 ED 5B 44 45 CD E2 3B C8 CD 40 3E 06 00 *jD.[DE..;..@>..
0000F0: 2A 50 44 ED 5B 6A 44 CD E2 3B 28 06 CD D0 41 04 *PD.[jD..;(...A.
000100: 18 F1 ED 5B 50 44 22 50 44 EB 3A 69 01 D6 03 B8 ...[PD"PD.:i....
000110: 20 03 CD D0 41 E5 2A 50 44 CD D0 41 CD BD 37 E1 ...A.*PD..A..7.
000120: 18 9B CD 40 3E 2A 50 44 E5 2A 6A 44 3A 69 01 D6 ...@>*PD.*jD:i..
000130: 02 47 CD B1 41 10 FB F5 CD BD 37 F1 E1 38 E1 ED .G..A.....7..8..
000140: 5B 6A 44 CD E2 3B 30 D8 CD B1 41 18 D3 2A 6A 44 [jD..;0...A..*jD
000150: ED 5B 50 44 CD E2 3B C8 E5 CD 40 3E E1 18 C1 CD .[PD..;...@>....
000160: 40 3E 2A 6A 44 3A 69 01 D6 03 47 CD B1 41 10 FB @>*jD:i...G..A..
000170: 18 AE CD 40 3E 3A 69 01 D6 02 4F 47 2A 6A 44 CD ...@>:i...OG*jD.
000180: B1 41 10 FB 22 6A 44 41 2A 50 44 CD B1 41 10 FB .A.."jDA*PD..A..
000190: 22 50 44 CD 1F 40 CD 47 41 C3 2C 3D CD 40 3E 3A "PD..@.GA.,=.@>:
0001A0: 69 01 D6 02 47 4F 2A 6A 44 CD D0 41 10 FB 22 6A i...GO*jD..A.."j
0001B0: 44 41 2A 50 44 CD D0 41 10 FB 18 D4 2A 6A 44 ED DA*PD..A....*jD.
0001C0: 5B 44 45 CD E2 3B 28 03 CD 47 41 CD 40 3E 2A 44 [DE..;(..GA.@>*D
0001D0: 45 22 50 44 22 6A 44 CD 1F 40 CD 2C 3D 21 74 7B E"PD"jD..@.,=!t{
0001E0: 22 52 44 C3 E7 3F FD CB 06 46 28 06 CD AD 37 C3 "RD..?...F(...7.
0001F0: 71 37 FD CB 13 C6 AF 32 42 45 3E 0A CD C9 03 CD q7.....2BE>.....
Size : 512 (Real : 512)
000000: B8 C9 CD 8A 2F FD 36 16 03 CD 71 42 18 08 32 7F ..../.6...qB..2.
000010: 44 21 42 45 36 00 2A 52 44 11 F1 7B CD E2 3B 30 D!BE6.*RD..{..;0
000020: 9C FD CB 06 46 F5 CC EB 41 F1 77 23 E5 CD 97 41 ....F...A.w#...A
000030: E1 22 52 44 CD E7 3F C3 BD 2E CD 71 42 FE 7F 30 ."RD..?....qB..0
000040: 03 FE 20 D0 21 82 44 36 01 23 77 E5 21 82 44 11 .. .!.D6.#w.!.D.
000050: A1 42 06 FF CD C1 2F E1 B7 20 10 E5 21 82 44 11 .B..../.. ..!.D.
000060: 69 43 06 1F CD C1 2F E1 B7 37 C8 3D 28 0A 21 F4 iC..../..7.=(.!.
000070: 43 09 09 5E 23 56 37 C9 CD 8A 2F F5 CD 71 42 FD C..^#V7.../..qB.
000080: 34 16 23 77 F1 CC 8A 2F 18 C1 CD 32 42 CD 8F 42 4.#w.../...2B..B
000090: C0 E5 21 00 00 CD A2 02 21 82 44 7E F5 23 7E CD ..!.....!.D~.#~.
0000A0: A8 2F F1 3D 20 F6 E1 C9 F5 CD EC 3C F1 FE 20 D2 ./.= ......<.. .
0000B0: C9 03 F5 F5 3E 5E CD C9 03 F1 C6 40 CD C9 03 F1 ....>^.....@....
0000C0: C9 0E FF C5 E5 E1 C1 1A 13 B7 C8 0C C5 E5 4E 91 ..............N.
0000D0: 23 30 04 81 4F 18 19 F5 1A 96 A0 20 10 13 23 0D #0..O...... ..#.
0000E0: 20 F6 F1 E1 C1 06 00 3E FF C8 3E 01 C9 F1 81 4F ......>..>....O
0000F0: 06 00 EB 09 EB 18 CE CD 32 42 CD 8F 42 C0 21 74 ........2B..B.!t
000100: 44 7E B7 20 73 36 FF 21 00 00 22 76 44 AF 32 78 D~. s6.!.."vD.2x
000110: 44 CD A2 02 CD 12 3C CD DF 3C 3A 68 01 FE 38 38 D.....<..<:h..88
000120: 09 21 00 2A CD A2 02 CD 35 31 21 00 06 CD 0E 42 .!.*....51!....B
000130: 4C 69 6E 65 20 00 21 00 10 CD 0E 42 43 6F 6C 20 Line .!....BCol
000140: 00 21 00 18 3A 72 44 B7 20 10 CD 0E 42 49 6E 73 .!..:rD. ...BIns
000150: 65 72 74 20 20 20 20 00 18 0E CD 0E 42 4F 76 65 ert .....BOve
000160: 72 77 72 69 74 65 20 00 3A 79 44 B7 20 0A CD 11 rwrite .:yD. ...
000170: 42 49 6E 64 65 6E 74 00 3A 6C 44 FD 86 04 3C 2A BIndent.:lD...<*
000180: 78 44 BD 28 16 32 78 44 F5 21 00 14 CD A2 02 CD xD.(.2xD.!......
000190: DF 3C F1 6F 26 00 3E 03 CD EC 30 ED 5B 76 44 2A .<.o&.>...0.[vD*
0001A0: 50 44 CD E2 3B CA A4 37 CD A4 37 ED 5B 44 45 2A PD..;..7..7.[DE*
0001B0: 50 44 B7 ED 52 4D 44 EB 11 01 00 79 B0 28 14 3E PD..RMD....y.(.>
0001C0: 0A 13 ED B1 E2 D3 30 1D 1C CC 32 42 CD 8F 42 20 ......0...2B..B
0001D0: 18 18 EC 21 00 0B D5 CD A2 02 CD DF 3C E1 3E 05 ...!........<.>.
0001E0: CD EC 30 2A 50 44 22 76 44 C3 A4 37 F5 06 00 CD ..0*PD"vD..7....
0001F0: FE 30 F1 80 C8 47 3E 20 CD C9 03 10 FB C9 7C B5 .0...G> ......|.
Size : 512 (Real : 512)
000000: 18 39 CD A4 37 FD CB 0D 46 C0 CD 6B 3A D8 11 F2 .9..7...F..k:...
000010: 43 CD 2E 41 DA 72 3A C9 CD 50 39 2A 50 44 E5 CD C..A.r:..P9*PD..
000020: 2C 3D CD 40 3E E1 CD B1 41 22 50 44 21 74 7B 22 ,=.@>...A"PD!t{"
000030: 52 44 CD E7 3F CD 1F 40 C3 2C 3D CD 50 39 CD 00 RD..?..@.,=.P9..
000040: 02 0D 0A 00 2A 50 44 CD B1 41 CD 1A 3C C3 2C 3D ....*PD..A..<.,=
000050: CD 40 3E 3A AE 01 B7 F5 C4 62 02 F1 CC 39 41 CD .@>:.....b...9A.
000060: 23 3E 23 ED 5B 52 44 CD 91 41 11 74 7B B7 ED 52 #>#.[RD..A.t{..R
000070: EB 2A 50 44 19 E5 37 01 FE FF CD 18 3F E1 36 0D .*PD..7.....?.6.
000080: 23 36 0A C9 2A 52 44 CD 02 3C D8 22 52 44 C3 E7 #6..*RD..<."RD..
000090: 3F 2A 52 44 CD E8 3B D0 18 F1 CD 40 3E 2A 58 44 ?*RD..;....@>*XD
0000A0: CD F5 3B 22 50 44 2A 5A 44 C3 2F 39 CD 0B 3A CD ..;"PD*ZD./9..:.
0000B0: EA 39 2A 52 44 CD 2A 41 38 05 CD E8 3B 38 F6 22 .9*RD.*A8...;8."
0000C0: 52 44 CD 02 37 CD EA 39 C3 26 37 2A 50 44 CD D0 RD..7..9.&7*PD..
0000D0: 41 38 32 E5 CD 40 3E E1 22 50 44 FD CB 0E 86 CD A82..@>."PD.....
0000E0: 1F 40 CD 2C 3D CD 23 3E 18 17 2A 52 44 CD 02 3C .@.,=.#>..*RD..<
0000F0: 38 D9 CD 2A 41 38 F6 CD 02 3C 38 05 CD 2A 41 30 8..*A8...<8..*A0
000100: F6 23 22 52 44 2A 52 44 C3 E7 3F CD 23 3E ED 5B .#"RD*RD..?.#>.[
000110: 52 44 D5 AF ED 52 30 01 3C 32 71 7B E1 2B CD E8 RD...R0.<2q{.+..
000120: 3B 38 2B 2A 50 44 CD B1 41 D8 CD 40 3E 2A 50 44 ;8+*PD..A..@>*PD
000130: CD B1 41 22 50 44 FD CB 0E 86 CD 1F 40 CD 2C 3D ..A"PD......@.,=
000140: 21 74 7B 22 52 44 CD 2A 41 38 D2 C3 E7 3F CD 2A !t{"RD.*A8...?.*
000150: 41 30 CB CD E8 3B 38 0C 3A 71 7B B7 20 C5 CD 23 A0...;8.:q{. ..#
000160: 3E 23 18 9E CD 2A 41 38 EA 18 97 2A 50 44 CD D0 >#...*A8...*PD..
000170: 41 C9 CD 6B 3A D8 3A 71 44 F5 2A 52 44 22 68 44 A..k:.:qD.*RD"hD
000180: FD CB 07 86 CD 40 3E 2A 50 44 E5 CD D0 41 22 50 .....@>*PD...A"P
000190: 44 CD 2C 3D 21 F2 43 22 72 7B CD 0B 3A 21 DE 43 D.,=!.C"r{..:!.C
0001A0: 22 72 7B E1 F1 32 71 44 22 50 44 CD 2C 3D FD CB "r{..2qD"PD.,=..
0001B0: 07 C6 FD CB 06 46 C2 4E 37 2A 52 44 ED 5B 68 44 .....F.N7*RD.[hD
0001C0: ED 52 D8 C8 EB D5 CD EB 41 36 20 D1 1D 20 F6 C3 .R......A6 .. ..
0001D0: 4E 37 2A 52 44 E5 CD C5 3F E1 E5 11 F2 7B 36 20 N7*RD...?....{6
0001E0: CD E2 3B 28 03 23 18 F6 E1 C3 97 41 21 74 7B 22 ..;(.#.....A!t{"
0001F0: 52 44 CD E7 3F CD D2 3A CD 40 3E 2A 50 44 E5 E5 RD..?..:.@>*PD..
Size : 512 (Real : 512)
000000: FF 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000010: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000020: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000030: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000040: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000050: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000060: 00 00 00 00 00 00 00 00 00 01 0D 01 13 01 08 01 ................
000070: 04 01 01 01 06 01 05 01 18 01 17 01 1A 01 12 01 ................
000080: 03 02 11 13 02 11 04 02 11 05 02 11 18 02 11 12 ................
000090: 02 11 03 02 11 02 02 11 0B 02 11 10 01 16 01 0E ................
0000A0: 01 19 02 11 19 01 14 01 07 01 7F 01 FF 02 0B 02 ................
0000B0: 02 0B 0B 02 0B 14 02 0B 08 02 0B 03 02 0B 16 02 ................
0000C0: 0B 19 02 0B 12 02 0B 17 02 0B 04 01 09 02 11 09 ................
0000D0: 02 11 0C 02 11 06 02 11 01 01 0C 01 10 00 3C 3E ..............<>
0000E0: 2C 5B 5D 2E 2A 2B 2D 2F 24 3A 3D 28 29 7B 7D 5E ,[].*+-/$:=(){}^
0000F0: 23 27 20 00 E6 38 84 39 84 39 91 39 EA 39 0B 3A #' ..8.9.9.9.9.:
000100: D2 37 AD 37 E0 37 22 38 9C 38 72 38 71 37 7A 37 .7.7.7"8.8r8q7z7
000110: 4D 38 5F 38 BC 38 68 37 3C 37 45 37 9A 39 8F 37 M8_8.8h7<7E7.9.7
000120: 3B B9 EC BA D2 BA 42 BB 73 BB 78 BB 78 BB 26 37 ;.....B.s.x.x.&7
000130: 02 37 AC 39 F9 36 20 B6 FB B5 A1 B6 73 B5 ED 34 .7.9.6 .....s..4
000140: 0F 2B 72 BA 9B 37 2C BD F1 31 3B 32 4B 32 02 AF .+r..7,..1;2K2..
000150: 00 00 74 7B 00 00 74 7B 00 00 74 7B 59 7B 59 7B ..t{..t{..t{Y{Y{
000160: 00 00 00 00 02 00 02 00 00 00 00 00 00 00 01 01 ................
000170: 00 01 00 01 00 01 00 00 00 00 01 01 00 00 00 00 ................
000180: 00 00 03 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000190: 1E 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 1E 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 0A 00 00 00 00 00 00 00 00 00 00 00 00 0F ................
0001E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001F0: 00 00 00 01 E2 20 00 00 00 00 00 00 00 00 00 00 ..... ..........
Size : 512 (Real : 512)
000000: CD B1 41 D1 38 0A B7 ED 52 4D 44 E1 C2 26 3B C9 ..A.8...RMD..&;.
000010: E1 C3 2C 3D CD 44 3E 2A 50 44 CD B1 41 DA 2C 3D ..,=.D>*PD..A.,=
000020: 2B 2B 01 02 00 B7 CD 18 3F 3A B4 01 B7 28 0D CD ++......?:...(..
000030: 59 02 3A 69 01 3D CD BC 3B C3 2C 3D CD 39 41 C3 Y.:i.=..;.,=.9A.
000040: 2C 3D CD 23 3E ED 5B 52 44 CD E2 3B EB 38 C5 7E ,=.#>.[RD..;.8.~
000050: FE 20 28 38 CD 2A 41 38 2A CD 73 41 CD 2A 41 38 . (8.*A8*.sA.*A8
000060: 25 18 F6 2A 50 44 CD D0 41 D8 CD D2 37 CD 7A 37 %..*PD..A...7.z7
000070: C3 42 3B 2A 52 44 18 0B 2A 52 44 CD 02 3C 38 E3 .B;*RD..*RD..<8.
000080: 22 52 44 CD 73 41 CD E7 3F C3 97 41 CD 73 41 7E "RD.sA..?..A.sA~
000090: FE 20 28 F8 18 F0 CD 8F 42 C2 A4 37 CD AC 3B 30 . (.....B..7..;0
0000A0: F5 C3 A4 37 CD AC 3B 30 FB C3 A4 37 3A 75 44 21 ...7..;0...7:uD!
0000B0: 69 01 BE 37 C8 FD 34 09 FD BE 05 C8 26 00 6F F5 i..7..4.....&.o.
0000C0: CD A2 02 F1 2A 6A 44 47 05 28 0D CD B1 41 30 F8 ....*jDG.(...A0.
0000D0: CD EC 3C CD 12 3C AF C9 CD 1A 3C AF C9 23 ED 5B ..<..<....<..#.[
0000E0: 46 45 E5 B7 ED 52 E1 C9 23 11 F1 7B 18 F4 2B ED FE...R..#..{..+.
0000F0: 5B 44 45 18 ED 3E 0A CD EE 3B C8 38 03 BE 20 F7 [DE..>...;.8.. .
000100: 23 C9 2B 11 74 7B 18 DA FE 0D C0 7E CD DD 3B D0 #.+.t{.....~..;.
000110: 18 F6 3A 68 01 3D 47 C3 F9 3C CD A1 3C CD C0 3C ..:h.=G..<..<..<
000120: 3A 6C 44 47 B7 28 0F 7E CD DD 3B 30 E5 CD 08 3C :lDG.(.~..;0...<
000130: FE 0A 28 DE 10 F1 3A 68 01 3D 47 FD CB 10 46 28 ..(...:h.=G...F(
000140: 1D CD A1 3C CD C0 3C E5 CD 23 3E ED 5B 52 44 CD ...<..<..#>.[RD.
000150: 91 41 EB 23 22 86 44 EB E1 CD E2 3B 30 2B CD A1 .A.#".D....;0+..
000160: 3C CD C0 3C ED 5B 86 44 CD E2 3B 28 1C 7E CD DD <..<.[.D..;(.~..
000170: 3B 30 A4 CD 08 3C FE 0A 28 9D CD 8B 3C 10 DF 7E ;0...<..(...<..~
000180: CD DD 3B 30 04 FE 0A 20 F6 18 8C FE 20 30 07 C6 ..;0... .... 0..
000190: 40 F5 CD 99 3C F1 C3 C9 03 3A E0 00 B7 28 4D 18 @...<....:...(M.
0001A0: 3E FD CB 10 46 C8 FD CB 14 46 20 40 ED 5B 64 44 >...F....F @.[dD
0001B0: CD E2 3B 38 37 ED 5B 66 44 CD E2 3B 38 21 18 2C ..;87.[fD..;8!.,
0001C0: FD CB 10 46 C0 FD CB 14 46 20 21 ED 5B 60 44 CD ...F....F !.[`D.
0001D0: E2 3B 38 18 ED 5B 62 44 CD E2 3B 28 0F 30 0D 3A .;8..[bD..;(.0.:
0001E0: E0 00 B7 C8 FD CB 07 46 C8 C3 6B 02 3A E0 00 B7 .......F..k.:...
0001F0: C0 FD CB 07 46 C8 C3 84 02 04 05 C8 3A BC 01 B7 ....F.......:...
Size : 512 (Real : 512)
000000: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000010: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000020: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000030: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000040: 00 00 00 00 F5 7B F5 7B 00 00 ED 73 71 7B 2A 46 .....{.{...sq{*F
000050: 45 23 22 DF 7B 24 24 24 24 22 E1 7B 2A 0A 79 22 E#".{$$$$".{*.y"
000060: 08 79 AF 67 6F 32 91 7B 32 92 7B 32 94 7B 32 A2 .y.go2.{2.{2.{2.
000070: 7B 32 A0 7B 32 E3 7B 32 0E 79 32 96 7B 32 DB 7B {2.{2.{2.y2.{2.{
000080: 22 DD 7B 22 EF 7B CD 8F 71 2B 22 54 79 3E 0D 32 ".{".{..q+"Ty>.2
000090: 93 7B 3E F5 32 9D 7B 3E 04 32 C7 7B 2A 44 45 22 .{>.2.{>.2.{*DE"
0000A0: D7 7B 22 D9 7B DD 21 D7 79 DD 36 00 00 2A 04 79 .{".{.!.y.6..*.y
0000B0: CD C2 6C 2A 48 45 2B 22 77 7B 54 5D 01 B4 01 B7 ..l*HE+"w{T]....
0000C0: ED 42 22 73 7B 22 75 7B 22 7B 7B CD C7 6B 21 D2 .B"s{"u{"{{..k!.
0000D0: 74 ED B8 CD EA 45 3A 00 79 3D 20 06 CD 96 6C CD t....E:.y= ...l.
0000E0: FD 6C FD 22 06 79 AF C3 E3 72 CD 95 6F CD 76 6E .l.".y...r..o.vn
0000F0: 29 75 20 16 CD 92 46 CD 1B 6F 20 0B CD 92 46 CD )u ...F..o ...F.
000100: 13 6F 28 F8 CD 6E 6F CD 48 6F 3E 31 21 00 01 CD .o(..no.Ho>1!...
000110: 94 6B 21 D7 79 3A 00 79 B7 28 06 11 80 00 CD 30 .k!.y:.y.(.....0
000120: 6C CD 92 6B 3A 9D 7B CB 7F 16 00 28 01 15 D5 3E l..k:.{....(...>
000130: 01 CD 9C 6B FD E5 CD 97 6B 21 64 03 CD 86 6B 3E ...k....k!d...k>
000140: 21 CD 9C 6B FD E5 CD 97 6B 3E 11 CD 9C 6B FD E5 !..k....k>...k..
000150: CD 97 6B 2A 0A 79 CD 8A 6B 3A 00 79 67 2E 3E CD ..k*.y..k:.yg.>.
000160: 97 6B 21 D4 04 CD 86 6B CD 9E 46 CD FC 52 DD 7E .k!....k..F..R.~
000170: 00 FE 2E CD DA 72 0A 21 D4 20 CD 82 6B E1 ED 5B .....r.!. ..k..[
000180: 08 79 CD 42 6C E1 CD 3F 6C E1 D1 3A A0 7B 5F C3 .y.Bl..?l..:.{_.
000190: 42 6C 2A 73 7B E5 CD 87 6D E1 22 73 7B C9 3A C7 Bl*s{...m."s{.:.
0001A0: 7B F5 87 5F 16 00 CD 30 6C E5 CD 77 6B FD E5 E5 {.._...0l..wk...
0001B0: CD 97 6B CD 5A 6E 01 84 75 CD DA 72 0C 7E FE 01 ..k.Zn..u..r.~..
0001C0: 20 05 CD 8E 48 18 EC FE 02 20 05 CD B7 48 18 EE ...H.... ...H..
0001D0: FE 03 20 05 CD EB 4A 18 E5 FE 04 20 09 CD 2A 4B .. ...J.... ..*K
0001E0: 2A 08 79 E3 18 D8 FE 07 C2 5E 48 3A 00 79 B7 CD *.y......^H:.y..
0001F0: D4 72 4D 21 34 79 11 B2 7B 01 08 00 ED B0 21 96 .rM!4y..{.....!.
Size : 512 (Real : 512)
000000: C2 99 02 3E 20 CD C9 03 10 F9 C9 3A B4 01 B7 20 ...> ......:...
000010: 12 32 74 44 3A 69 01 3D 6F 26 00 CD A2 02 3E 0A .2tD:i.=o&....>.
000020: C3 C9 03 21 01 00 CD A2 02 C3 59 02 2A 50 44 11 ...!......Y.*PD.
000030: 00 00 ED 53 64 44 ED 53 66 44 06 7F DD 21 74 7B ...SdD.SfD...!t{
000040: FD 36 01 00 7E ED 5B 60 44 CD E2 3B 20 08 DD 22 .6..~.[`D..; .."
000050: 64 44 FD CB 01 C6 ED 5B 62 44 CD E2 3B 20 08 DD dD.....[bD..; ..
000060: 22 66 44 FD CB 01 CE FE 0D 20 58 DD 36 00 20 DD "fD...... X.6. .
000070: 23 05 28 65 CD DD 3B 30 CB ED 5B 62 44 CD E2 3B #.(e..;0..[bD..;
000080: 30 08 E5 21 FF FF 22 66 44 E1 ED 5B 60 44 CD E2 0..!.."fD..[`D..
000090: 3B 30 06 21 FF FF 22 64 44 3E 7F 90 32 6F 44 DD ;0.!.."dD>..2oD.
0000A0: 36 00 20 DD 23 10 F8 2A 52 44 CD E7 3F FD CB 0E 6. .#..*RD..?...
0000B0: 46 FD CB 0E C6 C2 4E 37 3A 75 44 3D FD BE 05 D0 F.....N7:uD=....
0000C0: C3 4E 37 FE 0A 28 B2 DD 77 00 DD 23 05 20 02 18 .N7..(..w..#. ..
0000D0: 08 CD DD 3B 30 A3 C3 44 3D CD 04 3E 4C 69 6E 65 ...;0..D=..>Line
0000E0: 20 74 6F 6F 20 6C 6F 6E 67 20 2D 20 43 52 20 69 too long - CR i
0000F0: 6E 73 65 72 74 65 64 00 CD 12 3F 21 7D 00 CD 70 nserted...?!}..p
000100: 39 C3 2C 3D CD A4 3B CD 0D 3E C3 11 42 FD 36 08 9.,=..;..>..B.6.
000110: 00 21 00 00 CD A2 02 CD 12 3C 21 00 00 CD A2 02 .!.......<!.....
000120: C3 DF 3C 3E 20 21 F2 7B 11 73 7B BE C0 2B CD E2 ..<> !.{.s{..+..
000130: 3B 20 F8 C9 11 F3 7B CD E2 3B D0 50 59 C3 91 41 ; ....{..;.PY..A
000140: CD 23 3E 23 4D 44 2A 64 44 CD 34 3E 22 64 44 2A .#>#MD*dD.4>"dD*
000150: 66 44 CD 34 3E 22 66 44 69 60 23 11 74 7B B7 ED fD.4>"fDi`#.t{..
000160: 52 E5 3A 6F 44 95 4F 06 00 30 02 06 FF 2A 50 44 R.:oD.O..0...*PD
000170: C4 18 3F C1 DD 2A 50 44 21 74 7B 41 05 04 28 25 ..?..*PD!t{A..(%
000180: 7E ED 5B 64 44 CD E2 3B 20 04 DD 22 60 44 ED 5B ~.[dD..; .."`D.[
000190: 66 44 CD E2 3B 20 04 DD 22 62 44 DD 77 00 23 DD fD..; .."bD.w.#.
0001A0: 23 10 DD DD 2B 3E 0D DD 77 00 C9 2A 48 45 B7 ED #...+>..w..*HE..
0001B0: 52 38 26 01 FE 00 ED 42 D0 09 E5 CD 0D 3E E1 06 R8&....B.....>..
0001C0: 00 CD FE 30 CD 11 42 20 62 79 74 65 28 73 29 20 ...0..B byte(s)
0001D0: 6C 65 66 74 00 CD 12 3F C9 CD 04 3E 45 52 52 4F left...?...>ERRO
0001E0: 52 3A 20 4F 75 74 20 6F 66 20 73 70 61 63 65 00 R: Out of space.
0001F0: CD 12 3F C3 BD 2E FE 15 C0 CD 04 3E 2A 2A 2A 20 ..?........>***
Size : 512 (Real : 512)
000000: 7B 7E 34 EB 36 30 23 06 2F 04 D6 0A 30 FB 70 23 {~4.60#./...0.p#
000010: C6 3A 77 21 59 1C CD 86 6B 21 FF FF CD 97 6B 21 .:w!Y...k!....k!
000020: B2 7B 06 0B 7E CD 9C 6B 23 10 F9 3A 00 79 3D 20 .{..~..k#..:.y=
000030: 0A CD 96 6C AF 32 E3 7B CD FD 6C 2A DD 7B E5 2A ...l.2.{..l*.{.*
000040: 02 79 E5 2A B0 7B E5 FD 22 02 79 21 00 00 22 B0 .y.*.{..".y!..".
000050: 7B 21 DC FF 39 F9 EB 21 33 79 01 24 00 ED B0 3A {!..9..!3y.$...:
000060: 00 79 3D 20 27 21 B2 7B 11 34 79 01 0B 00 ED B0 .y= '!.{.4y.....
000070: EB 06 18 36 00 23 10 FB 11 33 79 D5 0E 13 CD 65 ...6.#...3y....e
000080: 72 D1 0E 16 CD 65 72 3C CD D4 72 5C AF 32 DB 7B r....er<..r\.2.{
000090: 32 DC 7B 2A 08 79 22 AB 7B CD 5A 6E 01 A7 75 CD 2.{*.y".{.Zn..u.
0000A0: DA 72 10 7E FD E5 2A 54 79 22 DD 7B 2A 08 79 E5 .r.~..*Ty".{*.y.
0000B0: 2A AB 7B E5 1E FF CD 3A 4B 44 4D D1 2A 08 79 B7 *.{....:KDM.*.y.
0000C0: ED 52 19 38 01 EB 22 AB 7B E1 22 08 79 D1 C5 D5 .R.8..".{.".y...
0000D0: 3A 00 79 3D CC 96 6C AF 32 E3 7B D1 D5 FD E5 E1 :.y=..l.2.{.....
0000E0: B7 ED 52 7D E6 7F 28 06 AF CD 9C 6B 18 EF 29 5C ..R}..(....k..)\
0000F0: 16 00 CB 12 2A B0 7B ED 52 30 04 ED 53 B0 7B FD ....*.{.R0..S.{.
000100: E1 E1 23 73 23 72 CD 76 6E 9F 75 28 8C 2A AB 7B ..#s#r.vn.u(.*.{
000110: 22 08 79 3A 00 79 3D 20 08 11 33 79 0E 10 CD 65 ".y:.y= ..3y...e
000120: 72 21 00 00 39 11 33 79 01 24 00 ED B0 F9 ED 5B r!..9.3y.$.....[
000130: B0 7B E1 22 B0 7B E1 22 02 79 E1 22 DD 7B AF 32 .{.".{.".y.".{.2
000140: DB 7B 21 FF FF 22 54 79 FD E5 E1 CD C2 6C 06 80 .{!.."Ty.....l..
000150: AF CD 9C 6B 10 FA 1B 7A B3 20 F3 C3 B3 46 FE 08 ...k...z. ...F..
000160: 28 08 1E 00 CD 3A 4B C3 B3 46 CD 8A 4E D1 E1 D5 (....:K..F..N...
000170: FD E5 D1 1B 1B B7 ED 52 19 28 05 CD 3F 6C 18 04 .......R.(..?l..
000180: 2B CD C2 6C D1 E1 22 CA 7B F1 32 C6 7B C9 11 00 +..l..".{.2.{...
000190: 01 CD 75 6D DD 7E 00 CD 82 72 CD 8D 6D 3A 94 7B ..um.~...r..m:.{
0001A0: CD 7A 6D 06 03 3E FF CD 7A 6D 10 F9 CD C6 6D CD .zm..>..zm....m.
0001B0: 13 6F 28 DA C3 48 6F 2A 73 7B E5 11 00 00 CD 75 .o(..Ho*s{.....u
0001C0: 6D CD 87 6D CD 23 6F 20 38 CD 0D 6A 78 CD 7A 6D m..m.#o 8..jx.zm
0001D0: 78 FE 09 20 0E D9 E5 D5 C5 06 03 D1 CD 75 6D 10 x.. .........um.
0001E0: FA 18 17 FE 08 20 0F 21 57 7A 79 0C CD 7A 6D 7E ..... .!Wzy..zm~
0001F0: 23 0D 20 F8 18 04 EB CD 75 6D CD C6 6D 16 02 18 #. .....um..m...
Size : 512 (Real : 512)
000000: 49 4E 54 45 52 52 55 50 54 45 44 00 CD 12 3F C3 INTERRUPTED...?.
000010: BD 2E CD 2B 42 C3 76 2E E5 C5 30 7A ED 5B 46 45 ...+B.v...0z.[FE
000020: D5 D5 EB B7 ED 52 E3 B7 ED 42 D2 D9 3E 5D 54 D5 .....R...B..>]T.
000030: CD AB 3E D1 C1 03 E1 ED 53 46 45 78 D6 20 38 0D ..>.....SFEx. 8.
000040: 47 C5 01 00 20 ED B8 C1 CD 32 42 18 EF 79 B0 28 G... ....2B..y.(
000050: 02 ED B8 C1 E1 EB 13 2A 60 44 CD 8E 3F 22 60 44 .......*`D..?"`D
000060: 2A 62 44 CD 8E 3F 22 62 44 2A 6A 44 CD 8E 3F 22 *bD..?"bD*jD..?"
000070: 6A 44 2A 50 44 CD 8E 3F 22 50 44 2A 54 44 CD 8E jD*PD..?"PD*TD..
000080: 3F 22 54 44 2A 58 44 CD 8E 3F 22 58 44 C9 CD E2 ?"TD*XD..?"XD...
000090: 3B D8 B7 ED 42 C9 E5 09 E5 ED 5B 46 45 13 EB B7 ;...B.....[FE...
0000A0: ED 52 4D 44 E1 D1 78 D6 20 38 0D 47 C5 01 00 20 .RMD..x. 8.G...
0000B0: ED B0 C1 CD 32 42 18 EF 79 B0 28 03 ED B0 1B ED ....2B..y.(.....
0000C0: 53 46 45 18 8E E5 ED 5B 64 44 CD 91 41 FD CB 01 SFE....[dD..A...
0000D0: 46 28 03 22 64 44 E1 FD CB 01 4E C8 ED 5B 66 44 F(."dD....N..[fD
0000E0: CD 91 41 22 66 44 C9 11 74 7B 3A 68 01 3D 4F B7 ..A"fD..t{:h.=O.
0000F0: ED 52 7D FD 96 00 38 1A B9 38 13 91 3C FD 86 00 .R}...8..8..<...
000100: 32 6C 44 3A 68 01 3D 3D 32 70 44 C3 62 37 32 70 2lD:h.==2pD.b72p
000110: 44 C9 FD 86 00 32 6C 44 FD 36 04 00 C3 62 37 FD D....2lD.6...b7.
000120: CB 07 46 C8 2A 6A 44 ED 5B 44 45 CD 91 41 EB 22 ..F.*jD.[DE..A."
000130: 6A 44 01 01 00 ED 5B 50 44 CD E2 3B CA DA 40 38 jD....[PD..;..@8
000140: 45 ED 5B 50 44 CD E2 3B 28 0B CD D0 41 03 79 B7 E.[PD..;(...A.y.
000150: CC 32 42 18 EC 22 6A 44 FD 36 05 01 FD CB 0E C6 .2B.."jD.6......
000160: 78 B7 20 1F 3A AE 01 B7 28 19 3A 69 01 3D B9 38 x. .:...(.:i.=.8
000170: 12 0D 21 01 00 CD A2 02 0D F5 0C CD 62 02 0D 20 ..!.........b..
000180: FA F1 C8 C3 47 41 ED 5B 50 44 CD E2 3B 28 0B CD ....GA.[PD..;(..
000190: B1 41 03 79 B7 CC 32 42 18 EC 78 B7 20 40 3A 69 .A.y..2B..x. @:i
0001A0: 01 3D 5F 79 93 57 14 38 31 15 20 07 FD CB 15 46 .=_y.W.81. ....F
0001B0: C2 03 41 14 93 30 27 3A 75 44 92 38 21 28 1F 32 ..A..0':uD.8!(.2
0001C0: 75 44 2A 6A 44 42 D5 CD B1 41 E5 CD 0B 3D E1 10 uD*jDB...A...=..
0001D0: F6 22 6A 44 D1 1D FD 73 05 C9 FD 71 05 C9 2A 6A ."jD...s...q..*j
0001E0: 44 0B 3A 69 01 D6 03 5F 79 93 4F 30 01 05 CD B1 D.:i..._y.O0....
0001F0: 41 0B 79 B0 20 F8 22 6A 44 CD 47 41 FD CB 0E C6 A.y. ."jD.GA....
Size : 512 (Real : 512)
000000: 27 CD 40 6F AF CD 7A 6D CD 72 6D 2A 73 7B E5 CD '.@o..zm.rm*s{..
000010: 75 6D CD C6 6D CD 9B 4F E1 ED 5B 5A 7B 72 2B 73 um..m..O..[Z{r+s
000020: CD 76 6F CD 37 49 16 04 E1 72 CD 48 6F CD 5A 6E .vo.7I...r.Ho.Zn
000030: 01 84 75 20 82 7E C9 3A 5C 7B FE 04 38 08 FE 08 ..u .~.:\{..8...
000040: 30 04 CD E1 72 3D FE 01 20 57 CD 2A 6D 2A 60 7B 0...r=.. W.*m*`{
000050: CD 71 52 2A 6D 7B ED 5B 6B 7B B7 ED 52 23 E5 2A .qR*m{.[k{..R#.*
000060: 5E 7B CD 87 52 D1 3A 5C 7B FE 0C 20 0B 7A B7 20 ^{..R.:\{.. .z.
000070: 07 CD 1B 6F 20 14 18 03 CD 66 6F D5 CD 37 49 D1 ...o ....fo..7I.
000080: 1B 7A B3 28 15 CD 5E 6F 18 F1 D5 CD FD 69 D1 79 .z.(..^o.....i.y
000090: BB CD DA 72 32 CD 62 6B 18 03 CD 6E 6F CD 49 6D ...r2.bk...no.Im
0000A0: C9 FE 02 20 55 CD 2A 6D CD 66 6F 3A 5D 7B 4F 2A ... U.*m.fo:]{O*
0000B0: 62 7B E5 21 00 00 C5 E5 06 04 CD 54 6E CD DA 72 b{.!.......Tn..r
0000C0: 29 CD 76 52 D1 2A 58 7B B7 ED 52 19 CD DA 72 45 ).vR.*X{..R...rE
0000D0: ED 5B 62 7B 19 E5 CD 40 6F CD 37 49 E1 C1 CD 0F .[b{...@o.7I....
0000E0: 6F 28 D3 CD 6E 6F D1 EB B7 ED 52 7C B5 28 07 AF o(..no....R|.(..
0000F0: CD 9C 6B 2B 18 F5 CD 49 6D C9 FE 03 20 7C CD 2A ..k+...Im... |.*
000100: 6D 2A 62 7B 22 6F 7B 2A 5E 7B CD 87 52 CD 30 6F m*b{"o{*^{..R.0o
000110: DD 22 A9 7B CD 81 05 DD 2A A9 7B CD F7 6E 28 2B .".{....*.{..n(+
000120: CD CA 4A E5 CD 76 6E 80 75 20 0C CD CA 4A DD 22 ..J..vn.u ...J."
000130: A9 7B CD 9B 05 18 08 E1 DD 22 A9 7B CD 91 05 DD .{.......".{....
000140: 2A A9 7B CD 13 6F 28 D8 CD 38 6F 21 57 7A 01 20 *.{..o(..8o!Wz.
000150: 00 DD 22 A9 7B CD 12 06 DD 2A A9 7B 21 57 7A 3A ..".{....*.{!Wz:
000160: 5E 7B 1F 1F 1F E6 1F 5F 16 00 19 3A 6F 7B 47 7E ^{....._...:o{G~
000170: CD 9C 6B 23 10 F9 CD 49 6D C9 FE 08 20 1B CD FD ..k#...Im... ...
000180: 69 3A 62 7B 3D 91 47 30 04 81 4F 06 00 CD 5E 6B i:b{=.G0..O...^k
000190: 04 05 C8 AF CD 9C 6B 18 F8 FE 09 20 1F CD EA 69 ......k.... ...i
0001A0: 78 FE 09 28 0A FE 0A CD DA 72 19 CD 08 10 D9 D9 x..(.....r......
0001B0: C5 D5 E5 06 03 E1 CD 97 6B 10 FA C9 CD CA 4A 3A ........k.....J:
0001C0: 62 7B 3D 7D CA 9C 6B C3 97 6B CD EA 69 3A 5C 7B b{=}..k..k..i:\{
0001D0: B8 CD DA 72 2C ED 5B 5E 7B CD 8D 72 38 09 ED 5B ...r,.[^{..r8..[
0001E0: 60 7B CD 8D 72 D8 C8 CD E1 72 2D 2A 73 7B E5 2A `{..r....r-*s{.*
0001F0: 73 7B E5 11 00 00 CD 75 6D CD 87 6D 2A 73 7B E5 s{.....um..m*s{.
Size : 512 (Real : 512)
000000: C3 1F 40 CD D5 40 3A 75 44 6F 3A 69 01 BD 7D 28 ..@..@:uDo:i..}(
000010: 06 3D 28 03 32 75 44 2A 6A 44 CD B1 41 22 6A 44 .=(.2uD*jD..A"jD
000020: CD 0B 3D 3A 69 01 3D C3 BC 3B ED 5B 72 7B 1A B7 ..=:i.=..;.[r{..
000030: C8 BE 28 03 13 18 F7 37 C9 F5 3A 71 44 FD BE 09 ..(....7..:qD...
000040: 30 03 32 75 44 F1 C9 FD 36 09 01 C9 EB FD CB 01 0.2uD...6.......
000050: 46 28 0C 2A 64 44 CD E2 3B 38 04 09 22 64 44 FD F(.*dD..;8.."dD.
000060: CB 01 4E 28 0C 2A 66 44 CD E2 3B 38 04 09 22 66 ..N(.*fD..;8.."f
000070: 44 EB C9 E5 01 FF FF CD 4C 41 EB 21 F2 7B B7 ED D.......LA.!.{..
000080: 52 28 07 4D 44 6B 62 23 ED B0 21 F2 7B 36 20 E1 R(.MDkb#..!.{6 .
000090: C9 CD E2 3B D8 EB C9 CD A4 37 3A 68 01 3D FD 96 ...;.....7:h.=..
0000A0: 04 2A 52 44 47 FD CB 10 C6 CD 41 3C FD CB 10 86 .*RDG.....A<....
0000B0: C9 C5 EB 2A 46 45 2B B7 ED 52 44 4D 03 EB 54 5D ...*FE+..RDM..T]
0000C0: 38 0A 3E 0A ED B1 E2 CC 41 B7 C1 C9 37 EB C1 C9 8.>.....A...7...
0000D0: C5 4D 44 3E 0A CD EE 3B 38 0D CD EE 3B 28 06 38 .MD>...;8...;(.8
0000E0: 06 BE 20 F6 23 C1 C9 60 69 C1 C9 E5 01 01 00 CD .. .#..`i.......
0000F0: 4C 41 11 F2 7B EB B7 ED 52 2B 4D 44 11 F1 7B 6B LA..{...R+MD..{k
000100: 62 2B 79 B0 28 06 D5 ED B8 E1 36 20 E1 C9 CD A2 b+y.(.....6 ....
000110: 02 C3 FA 01 E1 E3 FD CB 07 46 28 04 E5 CD D2 04 .........F(.....
000120: 3A 43 45 D6 02 32 43 45 C0 18 13 2A 5C 44 22 5E :CE..2CE...*\D"^
000130: 44 C9 F5 C5 D5 E5 CD 3E 42 E1 D1 C1 F1 C9 2A 5E D......>B.....*^
000140: 44 CD 63 42 ED 5B 5C 44 EB ED 52 EB C8 E5 DD E5 D.cB.[\D..R.....
000150: FD E5 CD A0 00 FD E1 DD E1 E1 C8 CD E1 03 77 22 ..............w"
000160: 5E 44 C9 23 11 6D 7B B7 EB ED 52 EB C0 21 59 7B ^D.#.m{...R..!Y{
000170: C9 E5 D5 ED 5B 5C 44 2A 5E 44 B7 ED 52 EB 28 09 ....[\D*^D..R.(.
000180: CD 63 42 7E 22 5C 44 18 03 CD E1 03 D1 E1 C9 E5 .cB~"\D.........
000190: D5 ED 5B 5C 44 2A 5E 44 B7 ED 52 D1 E1 C9 F5 7B ..[\D*^D..R....{
0001A0: 1A 01 0D 01 F2 01 FF 01 F3 01 FA 01 FB 01 F0 01 ................
0001B0: F1 01 F5 01 F4 01 F8 01 F9 01 F6 01 F7 01 FF 01 ................
0001C0: FF 01 FF 01 FF 01 FF 01 FF 01 FF 01 E0 01 FF 01 ................
0001D0: FF 01 FF 01 FF 01 FF 01 FF 01 FF 01 FF 01 FF 01 ................
0001E0: FF 01 FF 01 FF 01 FF 01 FF 01 FF 01 FF 01 FF 01 ................
0001F0: FF 01 FF 01 FF 01 FF 01 FF 01 FF 01 FF 00 FF 01 ................
Size : 512 (Real : 512)
000000: CD 75 6D CD C6 6D CD 76 6F CD 9B 4F E1 ED 5B 5A .um..m.vo..O..[Z
000010: 7B 72 2B 73 E1 36 03 CD 48 6F CD 5A 6E 01 84 75 {r+s.6..Ho.Zn..u
000020: 20 CD 7E E1 F5 CD 95 52 F1 C9 CD 35 4F CD 48 6F .~....R...5O.Ho
000030: CD 5A 6E 01 84 75 20 F2 7E C9 47 0E 00 D6 05 32 .Zn..u .~.G....2
000040: 97 7B 7B 32 99 7B 3A 9D 7B 32 9E 7B C5 CD DB 6D .{{2.{:.{2.{...m
000050: CA 61 4C D1 CD 75 6D CD 87 6D 2A 7B 7B E5 2A 75 .aL..um..m*{{.*u
000060: 7B 22 7B 7B 2A 73 7B E5 CD 75 6D CD 75 6D CD 75 {"{{*s{..um.um.u
000070: 6D CD 75 6D ED 5B DD 7B CD 75 6D 11 00 00 CD 75 m.um.[.{.um....u
000080: 6D CD 1B 6F 06 00 20 52 C5 2A 73 7B E5 CD 75 6D m..o.. R.*s{..um
000090: CD 75 6D CD 76 6E 95 75 01 00 00 20 01 0D C5 CD .um.vn.u... ....
0000A0: 87 6D C1 04 CD 13 6F 28 F5 C5 CD 0B 6F 20 09 79 .m....o(....o .y
0000B0: 32 8F 7B CD 18 4F 18 0B 0C CD DA 72 02 21 12 75 2.{..O.....r.!.u
0000C0: 22 5A 7B C1 E1 70 2B 71 ED 5B 5A 7B 2B 72 2B 73 "Z{..p+q.[Z{+r+s
0000D0: C1 04 CD 0F 6F 28 B1 CD 6E 6F C5 3A 97 7B B7 28 ....o(..no.:.{.(
0000E0: 26 CD 40 6F AF 32 8F 7B CD 18 4F 3A 5C 7B FE 08 &.@o.2.{..O:\{..
0000F0: 30 06 FE 04 CD DA 72 30 C1 E1 E5 C5 11 FC FF 19 0.....r0........
000100: ED 5B 5A 7B 72 2B 73 C1 D1 E1 22 7B 7B D5 C5 CD .[Z{r+s..."{{...
000110: C6 6D CD 48 6F 3A 99 7B B7 20 29 CD 76 6E 33 75 .m.Ho:.{. ).vn3u
000120: 20 0A FD E5 D1 CD 82 6B 3E FF 18 0C CD 76 6E 3A ......k>....vn:
000130: 75 20 11 CD F2 69 EB AF C1 E1 77 2B 70 2B 72 2B u ...i....w+p+r+
000140: 73 C3 48 6F C1 E1 E5 36 00 2B 70 2B FD E5 D1 3A s.Ho...6.+p+...:
000150: 99 7B B7 28 06 EB 01 F0 FF 09 EB 72 2B 73 E1 18 .{.(.......r+s..
000160: 15 7E B7 CD D4 72 2B 3A 99 7B B7 CD DA 72 4C CD .~...r+:.{...rL.
000170: 96 6E D1 CD 48 6F EB 3A 9D 7B 2A 08 79 CB 57 28 .n..Ho.:.{*.y.W(
000180: 03 21 00 00 22 83 7B 2A 7B 7B E5 2A 73 7B 22 7B .!..".{*{{.*s{"{
000190: 7B E5 EB 7E 36 00 2B 46 2B 56 2B 5E 2B B7 28 07 {..~6.+F+V+^+.(.
0001A0: E5 EB 23 CD 3F 6C E1 3A 97 7B B7 28 25 56 2B 5E ..#.?l.:.{.(%V+^
0001B0: 2B E5 EB CD 87 52 3A 5C 7B 32 87 7B 2A 62 7B 7D +....R:\{2.{*b{}
0001C0: 32 88 7B EB CD 30 6C 22 89 7B EB E1 72 2B 73 2B 2.{..0l".{..r+s+
0001D0: 18 04 11 FC FF 19 11 FC FF 19 E5 0E 00 78 B7 28 .............x.(
0001E0: 4A 7E 81 4F C5 46 2B 7E 32 8F 7B 2B 56 2B 5E 2B J~.O.F+~2.{+V+^+
0001F0: E5 EB 22 5A 7B CD 87 52 2A 73 7B E3 C5 C5 11 00 .."Z{..R*s{.....
Size : 512 (Real : 512)
000000: 3A 62 7B 3D 20 06 CD 50 6B 02 26 00 7B CD 9C 6B :b{= ..Pk.&.{..k
000010: CD 50 6B 03 D1 1B C3 E1 CD 97 6B 23 23 23 C3 3F .Pk.......k###.?
000020: 6C CD BB 5E 32 9C 7B AF 32 9B 7B CD 88 6F 06 00 l..^2.{.2.{..o..
000030: C5 06 01 C5 21 9B 7B CB 7E 28 0E CD 50 6B 01 19 ....!.{.~(..Pk..
000040: CB 66 28 05 CD 50 6B 01 09 CD EA 69 3A 9C 7B B8 .f(..Pk....i:.{.
000050: CD DA 72 2E CD 8E 6B E5 CD 76 6E 80 75 E1 20 22 ..r...k..vn.u. "
000060: E5 CD EA 69 3A 9C 7B B8 CD DA 72 2E D1 B7 ED 52 ...i:.{...r....R
000070: 23 CD 8A 6B CD 50 6B 06 B7 ED 52 B7 ED 42 3E DA #..k.Pk...R..B>.
000080: 18 09 CD 50 6B 03 B7 ED 52 3E CA 32 9B 7B CD 0B ...Pk...R>.2.{..
000090: 6F C1 28 11 3A 9B 7B CD 9C 6B FD E5 CD 97 6B CD o.(.:.{..k....k.
0000A0: 5E 6F 04 18 8E FD E5 D1 13 13 13 05 28 06 E1 CD ^o..........(...
0000B0: 42 6C 18 F7 3A 9B 7B CB 9F CD 9C 6B C1 FD E5 04 Bl..:.{....k....
0000C0: C5 CD 97 6B 3A 9B 7B F5 3A 9C 7B F5 CD 85 53 F1 ...k:.{.:.{...S.
0000D0: 32 9C 7B F1 32 9B 7B CD 0F 6F 1E 01 28 01 1D D5 2.{.2.{..o..(...
0000E0: CD 76 6E 30 75 D1 28 36 CD 77 6B C1 E1 FD E5 C5 .vn0u.(6.wk.....
0000F0: D5 CD 97 6B CD 3F 6C CD 76 6E 6E 75 D1 28 10 1D ...k.?l.vnnu.(..
000100: CA 31 55 3A 98 7B B7 CD D4 72 0E CD E1 72 29 CD .1U:.{...r...r).
000110: 85 53 CD 76 6E 30 75 28 05 CD 50 6F 18 F1 C1 E1 .S.vn0u(..Po....
000120: CD 3F 6C 10 FA C9 01 00 01 CD 54 6E CD DA 72 28 .?l.......Tn..r(
000130: 3A 94 7B BE CD DA 72 48 EB CD 75 6D 3A 95 7B CD :.{...rH..um:.{.
000140: 7A 6D CD 77 6B FD E5 D1 CD 75 6D C3 97 6B 3A C9 zm.wk....um..k:.
000150: 7B F5 3A C6 7B 21 C9 7B BE CD D4 72 61 CD 7F 67 {.:.{!.{...ra..g
000160: 3A 5C 7B FE 02 CD DA 72 1D 21 C9 7B 5E 16 00 34 :\{....r.!.{^..4
000170: 21 CC 7B 19 3A 5D 7B 77 2A CA 7B 19 19 3E 22 CD !.{.:]{w*.{..>".
000180: 94 6B CD 13 6F 28 CB CD 76 6E 72 75 CD DA 72 0D .k..o(..vnru..r.
000190: CD 85 53 F1 32 C9 7B C9 CD 66 6F 3E 3E CD 29 6F ..S.2.{..fo>>.)o
0001A0: 3E 02 28 0A 3E 3C CD 29 6F 3E 01 28 01 AF 32 A6 >.(.><.)o>.(..2.
0001B0: 7B AF 67 6F 47 C5 E5 CD 0D 6A 20 09 78 FE 0A 28 {.goG....j .x..(
0001C0: 41 CD E1 72 16 21 A6 7B 7E B7 20 02 36 02 3E 2A A..r.!.{~. .6.>*
0001D0: CD 29 6F 20 05 FD E5 E1 18 28 01 00 04 CD 54 6E .)o .....(....Tn
0001E0: 20 08 CD 76 52 2A 58 7B 18 18 01 00 05 CD 54 6E ..vR*X{......Tn
0001F0: 28 0A 01 00 06 CD 54 6E CD DA 72 4A 2B 2B 56 2B (.....Tn..rJ++V+
Size : 512 (Real : 512)
000000: 04 CD 75 6D 7E CD 7A 6D CB 7E 2B 28 F7 E5 CD 7A ..um~.zm.~+(...z
000010: 6D CD 75 6D CD 75 6D CD C6 6D E1 C1 10 DF C1 E3 m.um.um..m......
000020: AF 32 90 7B CD 52 4F E1 C1 10 B6 41 C5 2A 73 7B .2.{.RO....A.*s{
000030: E5 2A 83 7B E5 2A 89 7B E5 3A 87 7B F5 3A 88 7B .*.{.*.{.:.{.:.{
000040: F5 3A 97 7B F5 21 94 7B 34 CD 9E 46 F1 32 97 7B .:.{.!.{4..F.2.{
000050: F1 32 88 7B F1 32 87 7B E1 22 89 7B E1 22 83 7B .2.{.2.{.".{.".{
000060: ED 53 85 7B 7C B5 28 11 ED 52 28 0D CD 8A 6B EB .S.{|.(..R(...k.
000070: CD 92 6B 21 08 05 CD 86 6B E1 C1 04 05 CA F3 4D ..k!....k......M
000080: CD 50 6B 02 FD E1 C5 23 5E 23 56 19 E5 2B 2B CB .Pk....#^#V..++.
000090: 7E 2B 28 FB CD 76 52 3A 57 7B B7 20 37 3A 5C 7B ~+(..vR:W{. 7:\{
0000A0: FE 03 38 19 28 40 FE 04 28 39 FE 08 38 0F 28 36 ..8.(@..(9..8.(6
0000B0: FE 0A 30 2F CD 50 6B 03 E1 D1 C1 18 29 CD 73 6B ..0/.Pk.....).sk
0000C0: 2A 58 7B CD 8E 6B 2A 62 7B CD 8A 6B CD 50 6B 02 *X{..k*b{..k.Pk.
0000D0: ED B0 18 15 AF 32 57 7B 3E 04 32 5C 7B 21 02 00 .....2W{>.2\{!..
0000E0: 22 62 7B CD 73 6B CD 1B 66 E1 C1 10 99 CD 50 6B "b{.sk..f.....Pk
0000F0: 02 FD E5 CD FC 52 21 94 7B 35 3A 97 7B B7 28 46 .....R!.{5:.{.(F
000100: 2A 89 7B 3A 87 7B FE 08 20 1A 47 CD 50 6B 02 FD *.{:.{.. .G.Pk..
000110: E1 3E 21 CD 94 6B 21 3A 05 CD 86 6B CD 50 6B 02 .>!..k!:...k.Pk.
000120: FD E5 18 22 FE 09 20 0D 3E 21 CD 94 6B 21 2C 05 ...".. .>!..k!,.
000130: CD 86 6B 18 11 3E 2A CD 94 6B 3A 88 7B 3D 20 06 ..k..>*..k:.{= .
000140: CD 50 6B 02 26 00 2A 83 7B 7C B5 28 27 ED 5B 85 .Pk.&.*.{|.('.[.
000150: 7B ED 52 28 1F 3A 97 7B B7 28 0A 3A 87 7B FE 08 {.R(.:.{.(.:.{..
000160: 3E D9 C4 9C 6B CD 8A 6B EB CD 8E 6B 21 22 05 CD >...k..k...k!"..
000170: 82 6B 18 05 CD 50 6B 01 C9 CD 48 6F D1 E1 22 73 .k...Pk...Ho.."s
000180: 7B 22 75 7B E1 22 7B 7B EB C9 2A 73 7B ED 5B 7B {"u{."{{..*s{.[{
000190: 7B B7 ED 52 19 C8 23 5E 23 56 19 7E FE 06 28 04 {..R..#^#V.~..(.
0001A0: FE 05 20 E9 E5 2B 2B CB 7E 2B 28 FB 7E B7 CD DA .. ..++.~+(.~...
0001B0: 72 49 E1 18 D8 2A 73 7B E5 06 00 C5 16 04 3A 91 rI...*s{......:.
0001C0: 7B 5F CD 75 6D CD 87 6D CD 7A 6D CD 75 6D CD 75 {_.um..m.zm.um.u
0001D0: 6D CD C6 6D C1 04 CD 13 6F 28 E0 E1 C9 2A 73 7B m..m....o(...*s{
0001E0: E5 CD 9B 4F E1 CD 95 52 CD 76 6E 62 75 3E 00 20 ...O...R.vnbu>.
0001F0: 23 3A 91 7B B7 CD DA 72 4B 01 00 04 CD 54 6E 20 #:.{...rK....Tn
Size : 512 (Real : 512)
000000: 5E EB D1 C1 05 20 03 CD 30 6A 19 06 00 3E 2B CD ^.... ..0j...>+.
000010: 29 6F 28 A1 04 3E 2D CD 29 6F 28 99 3A A6 7B FE )o(..>-.)o(.:.{.
000020: 01 28 06 30 0A 24 25 20 06 7D CD 9C 6B 18 03 CD .(.0.$% .}..k...
000030: 97 6B 3E 2F CD 29 6F CA 9B 56 C3 6E 6F 2B 46 2B .k>/.)o..V.no+F+
000040: 56 2B 5E 2B D5 56 2B 5E 2B D5 2B 2B 56 2B 5E 2B V+^+.V+^+.++V+^+
000050: D5 56 2B 5E 2B D5 04 05 CA D6 57 CD 66 6F C5 46 .V+^+.....W.fo.F
000060: 2B 7E 2B 32 57 7B 56 2B 5E 2B 48 CB 7E 2B 28 FB +~+2W{V+^+H.~+(.
000070: 10 F9 41 E5 EB CD 87 52 C5 3A 57 7B B7 20 2A 3A ..A....R.:W{. *:
000080: 5C 7B FE 03 38 1B CD 84 5E CD 64 58 3A 5C 7B FE \{..8...^.dX:\{.
000090: 04 28 2A FE 09 38 29 20 24 CD 50 6B 02 C5 D5 18 .(*..8) $.Pk....
0000A0: 1C CD 2A 6D CD 49 67 18 06 CD 2A 6D CD 7F 67 CD ..*m.Ig...*m..g.
0000B0: 5D 6D 3A 69 7B FE 00 C4 C5 58 CD 49 6D CD 6F 6B ]m:i{....X.Im.ok
0000C0: C1 05 28 05 CD 5E 6F 18 AF E1 C1 05 28 05 CD 5E ..(..^o.....(..^
0000D0: 6F 18 8B CD 6E 6F D1 E1 7A B3 28 07 CD 92 6B EB o...no..z.(...k.
0000E0: CD 8E 6B D1 E1 3E CD C3 94 6B 3A 5C 7B FE 00 28 ..k..>...k:\{..(
0000F0: 08 FE 05 38 08 FE 08 30 04 CD E1 72 36 3A BD 7B ...8...0...r6:.{
000100: CB 4F 20 0E CB 47 28 02 3E FF 2A BE 7B 22 58 7B .O ..G(.>.*.{"X{
000110: 18 08 CD 8B 67 CD 6F 6B 3E 01 32 57 7B CD 7E 6F ....g.ok>.2W{.~o
000120: 3A 5C 7B FE 03 D2 3A 59 CD 2A 6D CD 49 67 CD 43 :\{...:Y.*m.Ig.C
000130: 6D CD C5 58 3A 64 7B 3D 28 18 3C 28 08 CD 50 6B m..X:d{=(.<(..Pk
000140: 02 ED 5B 18 05 CD 50 6B 01 11 2A 65 7B CD 97 6B ..[...Pk..*e{..k
000150: 18 05 CD 50 6B 01 D1 2A 6F 7B CD 8A 6B CD 50 6B ...Pk..*o{..k.Pk
000160: 02 ED B0 C9 3A 5C 7B FE 09 20 0C 78 FE 0A 20 2D ....:\{.. .x.. -
000170: 06 09 21 08 10 18 23 FE 08 20 11 78 FE 0C 20 1D ..!...#.. .x.. .
000180: 06 08 CD 50 6B 04 65 2E 01 E5 18 11 FE 0C 20 0D ...Pk.e....... .
000190: 78 FE 08 20 08 06 0C 21 96 09 CD 86 6B 3A 5C 7B x.. ...!....k:\{
0001A0: B8 20 1E FE 03 20 0A 79 B7 C8 2A 5E 7B BE C8 18 . ... .y..*^{...
0001B0: 10 FE 04 C0 2A 8B 7B 7C B5 C8 ED 5B 5E 7B ED 52 ....*.{|...[^{.R
0001C0: C8 CD E1 72 2C 3A 5C 7B FE 00 28 4F 0E BF FE 0A ...r,:\{..(O....
0001D0: 30 34 0E 83 FE 08 20 0B 3A 9E 7B CB 6F 20 27 0E 04.... .:.{.o '.
0001E0: 80 18 23 FE 06 30 1F 0E B3 FE 03 30 19 0E C3 FE ..#..0.....0....
0001F0: 02 30 13 2A 60 7B 7C B5 0E BF 20 0A 2A 6D 7B 7E .0.*`{|... .*m{~
Size : 512 (Real : 512)
000000: 0B 7E 32 8F 7B 2B 56 2B 5E EB 18 03 CD F2 69 22 .~2.{+V+^.....i"
000010: 7F 7B 3E FF 32 90 7B C9 CD C8 4F CD DA 72 24 AF .{>.2.{...O..r$.
000020: 32 90 7B 3A 8F 7B B7 C0 3A 5C 7B FE 05 D8 FE 08 2.{:.{..:\{.....
000030: D0 CD E1 72 43 CD B5 4E E5 C5 CD 40 6F AF 32 8F ...rC..N...@o.2.
000040: 7B CD DD 4E C1 3A 90 7B B7 28 06 78 3D CD DA 72 {..N.:.{.(.x=..r
000050: 4B E1 C5 E5 3A 8F 7B 21 02 00 B7 20 03 2A 62 7B K...:.{!... .*b{
000060: EB 3A 91 7B B7 20 0B 3A 90 7B B7 20 05 CD 30 6C .:.{. .:.{. ..0l
000070: 18 09 2A 7F 7B E5 19 22 7F 7B E1 EB E1 2B 2B CB ..*.{..".{...++.
000080: 7E 28 FB 2B 3A 8F 7B 77 2B 72 2B 73 2B ED 5B 5A ~(.+:.{w+r+s+.[Z
000090: 7B 72 2B 73 2B 2B 2B C1 10 B8 C9 CD C8 4F C8 CD {r+s+++......O..
0000A0: 76 6E 42 75 CD DB 4F C8 CD 39 50 C8 CD 06 51 C8 vnBu..O..9P...Q.
0000B0: CD 40 51 C8 CD 6B 51 C8 CD A5 51 C8 CD C5 51 C8 .@Q..kQ...Q...Q.
0000C0: CD 10 52 C8 CD E1 72 24 01 00 03 CD 54 6E C0 56 ..R...r$....Tn.V
0000D0: 2B 5E EB 22 5A 7B CD 87 52 AF C9 CD 76 6E 48 75 +^."Z{..R...vnHu
0000E0: C0 CD 30 6F 06 00 C5 CD 3B 52 C1 2A 5A 7B E5 2A ..0o....;R.*Z{.*
0000F0: 60 7B ED 5B 5E 7B B7 ED 52 23 7C B5 CD D4 72 62 `{.[^{..R#|...rb
000100: E5 04 CD 13 6F 28 DF C5 CD 38 6F CD 88 6F CD 9B ....o(...8o..o..
000110: 4F C1 2A 5A 7B 22 5E 7B 2A 62 7B D1 C5 CD 9A 72 O.*Z{"^{*b{....r
000120: CD C8 72 62 C1 22 62 7B E1 22 60 7B 3E 01 32 5C ..rb."b{."`{>.2\
000130: 7B C5 CD 54 52 C1 10 DA C9 CD 76 6E 54 75 C0 3A {..TR.....vnTu.:
000140: 9A 7B F5 3A 91 7B F5 21 92 7B 34 7E 32 91 7B 2A .{.:.{.!.{4~2.{*
000150: 7F 7B E5 2A 81 7B E5 21 00 00 22 7F 7B 22 81 7B .{.*.{.!..".{".{
000160: AF 32 9A 7B CD 8B 50 2A 81 7B 22 62 7B E1 22 81 .2.{..P*.{"b{.".
000170: 7B E1 22 7F 7B 3A 91 7B 32 5D 7B F1 32 91 7B F1 {.".{:.{2]{.2.{.
000180: 32 9A 7B 3E 02 32 5C 7B C3 54 52 CD F9 50 C8 CD 2.{>.2\{.TR..P..
000190: 76 6E DA 75 28 1A CD 35 4F 2A 7F 7B ED 5B 81 7B vn.u(..5O*.{.[.{
0001A0: B7 ED 52 38 04 19 22 81 7B CD 0F 6F 28 DD 18 38 ..R8..".{..o(..8
0001B0: CD C8 4F C4 35 4F CD 88 6F CD F9 50 C8 2A 7F 7B ..O.5O..o..P.*.{
0001C0: E5 CD EA 69 CD 13 6F 28 F8 CD 40 6F CD 66 6F 3A ...i..o(..@o.fo:
0001D0: 9A 7B F5 3E FF 32 9A 7B CD 8B 50 F1 32 9A 7B E1 .{.>.2.{..P.2.{.
0001E0: 22 7F 7B CD 0F 6F 28 D1 3A 9A 7B B7 C2 6E 6F CD ".{..o(.:.{..no.
0001F0: 76 6E 30 75 C8 CD E1 72 0E 3A 9A 7B B7 C2 1F 6F vn0u...r.:.{...o
Size : 512 (Real : 512)
000000: FE 0A 20 17 0E B3 21 5C 7B 11 69 7B 06 08 CB 11 .. ...!\{.i{....
000010: 30 04 1A BE 20 05 23 13 10 F4 C9 CD E1 72 2C 11 0... .#......r,.
000020: FC FF 19 56 2B 5E 2B D5 56 2B 5E ED 53 58 7B E1 ...V+^+.V+^.SX{.
000030: CD 87 52 AF 32 57 7B CD 7E 6F CD 84 5E CD 64 58 ..R.2W{.~o..^.dX
000040: C3 1B 66 CD 0C 5A 21 70 13 FE 06 20 08 21 6F 13 ..f..Z!p... .!o.
000050: CD 55 59 18 34 E5 CD 6F 6B CD 5E 6F CD D0 5E E1 .UY.4..ok.^o..^.
000060: CD 6E 6F C3 86 6B CD 0C 5A 21 A5 1B CD 55 59 18 .no..k..Z!...UY.
000070: 18 CD 0C 5A 21 93 1B 18 E7 21 EB 1B 18 03 21 EA ...Z!....!....!.
000080: 1B E5 CD 0C 5A E1 CD 60 59 C3 BE 5A CD 0C 5A FE ....Z..`Y..Z..Z.
000090: 06 CD D4 72 3F 21 D5 19 FE 05 28 03 21 6F 1B E5 ...r?!....(.!o..
0000A0: CD 6F 6B CD 5E 6F CD 97 5E 18 DA CD 0C 5A FE 05 .ok.^o..^....Z..
0000B0: CD DA 72 40 21 A5 19 18 CD 21 FA 59 18 03 21 00 ..r@!....!.Y..!.
0000C0: 5A E5 CD 0C 5A 3A 5C 7B FE 05 20 0C 2A 5E 7B CD Z...Z:\{.. .*^{.
0000D0: 71 52 2A 6F 7B CD 8E 6B E1 18 06 CD 0C 5A 21 06 qR*o{..k.....Z!.
0000E0: 5A CD 6E 6F CD E9 59 18 A0 3A 5C 7B D6 05 87 5F Z.no..Y..:\{..._
0000F0: 16 00 19 5E 23 56 EB C3 86 6B 11 18 FF 13 70 1A ...^#V...k....p.
000100: 10 18 FE 13 6F 1A 7A 18 69 14 B0 1A CD 66 6F CD ....o.z.i....fo.
000110: 17 5A C8 CD E1 72 15 CD B2 67 37 C0 3A 5C 7B FE .Z...r...g7.:\{.
000120: 05 38 0C FE 08 30 08 CD 8B 67 AF 3A 5C 7B C9 AF .8...0...g.:\{..
000130: 3D C9 3E AF 32 A3 7B CD 1B 6F 28 05 CD CA 5A 18 =.>.2.{..o(...Z.
000140: 73 CD 17 5A 38 1D 20 13 FE 05 CA D8 5B FE 06 CD s..Z8. .....[...
000150: DA 72 41 21 A9 14 CD 86 6B 18 51 CD 8B 67 CD CA .rA!....k.Q..g..
000160: 5A 18 06 CD CA 5A CD 7F 67 3A 5C 7B FE 08 38 08 Z....Z..g:\{..8.
000170: FE 0B 28 04 FE 0D 38 04 CD E1 72 42 FE 08 20 0F ..(...8...rB.. .
000180: 3A 62 7B 3D 67 2E 06 CD 97 6B 21 8E 16 18 1A 21 :b{=g....k!....!
000190: 72 16 FE 09 28 13 21 44 16 FE 0C 28 0C 21 4E 16 r...(.!D...(.!N.
0001A0: 3A 62 7B 3D 20 03 21 4D 16 CD 86 6B CD 13 6F 28 :b{= .!M...k..o(
0001B0: B5 CD 6E 6F 21 AB 16 3A A3 7B B7 C4 86 6B 3A 9E ..no!..:.{...k:.
0001C0: 7B CB 47 C8 21 1B 20 C3 86 6B 21 9B 14 3A 9E 7B {.G.!. ..k!..:.{
0001D0: CB 77 28 10 21 CC 14 3A A3 7B B7 28 07 21 CB 14 .w(.!..:.{.(.!..
0001E0: AF 32 A3 7B C3 86 6B 3E AF 32 A3 7B CD 1B 6F 28 .2.{..k>.2.{..o(
0001F0: 09 21 9B 14 CD 86 6B C3 D2 5B CD 17 5A 38 21 20 .!....k..[..Z8!
Size : 512 (Real : 512)
000000: CD 76 6E 30 75 C9 CD 76 6E 51 75 C0 CD 88 6F CD .vn0u..vnQu...o.
000010: 3B 52 2A 60 7B ED 5B 5E 7B 7C B2 CD DA 72 46 CB ;R*`{.[^{|...rF.
000020: 3D CB 3D CB 3D CB 3B CB 3B CB 3B 7D 3C 93 6F 22 =.=.=.;.;.;}<.o"
000030: 62 7B 2A 5A 7B 22 5E 7B 3E 03 32 5C 7B C3 54 52 b{*Z{"^{>.2\{.TR
000040: CD 27 6F C0 11 00 00 CD 75 6D 2A 73 7B E5 CD BA .'o.....um*s{...
000050: 6D CD C6 6D E1 22 5E 7B 3E 04 32 5C 7B 3E FF 32 m..m."^{>.2\{>.2
000060: 5D 7B 21 02 00 22 62 7B C3 54 52 CD 76 6E 4D 75 ]{!.."b{.TR.vnMu
000070: C0 CD 76 6E 60 75 20 1F CD 9B 4F 3A 5C 7B FE 05 ..vn`u ...O:\{..
000080: 38 08 FE 08 30 04 CD E1 72 44 2A 5A 7B 22 5E 7B 8...0...rD*Z{"^{
000090: 3E 05 21 B0 00 18 05 3E 07 21 30 00 32 5C 7B 22 >.!....>.!0.2\{"
0000A0: 62 7B C3 54 52 CD 76 6E 5A 75 C0 CD 30 6F CD F2 b{.TR.vnZu..0o..
0000B0: 69 24 25 CD DA 72 31 2C 2D CD D4 72 31 CD 38 6F i$%..r1,-..r1.8o
0000C0: 23 3E 08 18 D7 CD 1B 6F C0 21 FF FF E5 11 00 02 #>.....o.!......
0000D0: CD 75 6D CD 87 6D 3A 93 7B CD 7A 6D D1 13 D5 CD .um..m:.{.zm....
0000E0: 75 6D CD C6 6D E1 CD 13 6F 28 E1 CD 6E 6F E5 21 um..m...o(..no.!
0000F0: 93 7B 7E 34 E1 11 00 00 32 5C 7B ED 53 5E 7B 22 .{~4....2\{.S^{"
000100: 60 7B 7A B4 21 01 00 28 01 23 22 62 7B C3 54 52 `{z.!..(.#"b{.TR
000110: CD 0D 6A C0 78 F5 FE 0A CD C8 72 33 E5 CD 76 6E ..j.x.....r3..vn
000120: 80 75 CD DA 72 0B CD EA 69 D1 F1 F5 B8 CD DA 72 .u..r...i......r
000130: 2C CD 8D 72 CD C8 72 34 F1 18 BD CD 10 52 C8 CD ,..r..r4.....R..
000140: C5 51 C8 CD C8 4F CD DA 72 1E 3A 5C 7B FE 0A D0 .Q...O..r.:\{...
000150: CD E1 72 1E 11 00 08 CD 75 6D 2A 73 7B 22 5A 7B ..r.....um*s{"Z{
000160: 21 5C 7B 06 08 7E CD 7A 6D 23 10 F9 CD C6 6D AF !\{..~.zm#....m.
000170: C9 11 69 7B 18 14 7E 2B 32 57 7B 56 2B 5E 2B ED ..i{..~+2W{V+^+.
000180: 53 58 7B 56 2B 5E EB 11 5C 7B C5 06 08 7E 12 2B SX{V+^..\{...~.+
000190: 13 10 FA C1 C9 22 79 7B 2A 73 7B ED 4B 79 7B B7 ....."y{*s{.Ky{.
0001A0: ED 42 09 C8 23 4E 23 46 09 7E FE 08 20 ED 36 00 .B..#N#F.~.. .6.
0001B0: E5 2B 2B 7E FE 04 20 40 2B 7E B7 28 3B 36 00 2B .++~.. @+~.(;6.+
0001C0: E5 5E 2B 56 2A 73 7B ED 4B 77 7B B7 ED 42 09 CD .^+V*s{.Kw{..B..
0001D0: D4 72 2A 23 4E 23 46 09 7E FE 03 20 EA E5 D5 2B .r*#N#F.~.. ...+
0001E0: 2B 1A BE 28 04 D1 E1 18 DE CB 7E 2B 1B 28 F2 C1 +..(......~+.(..
0001F0: C1 46 2B 4E E1 71 2B 70 E1 C3 9B 52 AF 32 95 7B .F+N.q+p...R.2.{
Size : 512 (Real : 512)
000000: 14 FE 05 CA DD 5B FE 06 CD DA 72 41 21 BA 14 CD .....[....rA!...
000010: 86 6B C3 C9 5B CD 0F 62 21 9B 14 CD 86 6B 18 2F .k..[..b!....k./
000020: 21 9B 14 CD 86 6B CD 5C 6A 20 21 78 FE 08 20 17 !....k.\j !x.. .
000030: DD 7E 00 FE 2C 28 04 FE 29 20 0C 21 BA 17 CD 86 .~..,(..) .!....
000040: 6B CD 5E 6B C3 C9 5B CD 01 62 18 03 CD E8 5E 78 k.^k..[..b....^x
000050: FE 08 38 04 FE 0D 38 04 CD E1 72 42 FE 0C 20 0A ..8...8...rB.. .
000060: CD 0B 6F 20 41 CD DD 5E 18 08 CD 48 61 CD 0B 6F ..o A..^...Ha..o
000070: 20 19 C5 CD 97 5E C1 78 FE 09 20 2A CD 0B 6F 20 ....^.x.. *..o
000080: 1C C5 CD 6F 6B CD 97 5E C1 18 1B 21 00 00 78 FE ...ok..^...!..x.
000090: 09 20 02 2E 12 CD 92 6B 78 FE 09 20 09 CD 6F 6B . .....kx.. ..ok
0000A0: 21 FF FF CD 92 6B 78 21 AA 17 FE 08 28 18 21 79 !....kx!....(.!y
0000B0: 17 FE 09 28 11 21 26 17 FE 0A 28 0A 21 8B 17 FE ...(.!&...(.!...
0000C0: 0B 28 03 21 22 17 CD 86 6B CD 13 6F CA 26 5B CD .(.!"...k..o.&[.
0000D0: 6E 6F 21 CD 17 C3 B7 5A 21 B6 18 18 03 21 DC 18 no!....Z!....!..
0000E0: 22 A7 7B 3A A3 7B B7 CD DA 72 23 21 A4 18 CD 86 ".{:.{...r#!....
0000F0: 6B 2A 5E 7B CD 71 52 CD 13 6F 20 14 CD 24 6D CD k*^{.qR..o ..$m.
000100: 7F 67 CD 43 6D CD C5 58 2A A7 7B CD 86 6B 18 E7 .g.Cm..X*.{..k..
000110: CD 6E 6F C3 BE 5A 21 F1 1A 11 BE 1A 18 06 21 ED .no..Z!.......!.
000120: 1A 11 BA 1A E5 D5 CD 0C 5A FE 07 CD DA 72 25 CD ........Z....r%.
000130: 6F 6B CD 5E 6F CD 7F 67 CD 6F 6B CD 5E 6F CD 97 ok.^o..g.ok.^o..
000140: 5E CD 13 6F D1 E1 28 03 D5 18 18 E5 CD 6F 6B CD ^..o..(......ok.
000150: 7F 67 3A 5C 7B FE 0A 20 06 3A 62 7B 3D 20 04 CD .g:\{.. .:b{= ..
000160: E1 72 18 C3 85 59 CD 66 6F CD AD 5C CD 6F 6B CD .r...Y.fo..\.ok.
000170: 5E 6F CD 97 5E CD 6F 6B CD 5E 6F CD 97 5E 21 F3 ^o..^.ok.^o..^!.
000180: 08 CD 6E 6F C3 86 6B CD 66 6F CD D0 5E CD 5E 6F ..no..k.fo..^.^o
000190: CD AD 5C CD 6F 6B 3A 62 7B 3D 67 2E 06 E5 CD 5E ..\.ok:b{=g....^
0001A0: 6F CD 97 5E E1 CD 97 6B 21 20 09 18 D4 CD 7F 67 o..^...k! .....g
0001B0: 3A 5C 7B FE 08 C8 CD E1 72 22 CD 66 6F CD A2 5E :\{.....r".fo..^
0001C0: CD 48 61 CD 0B 6F 20 1C C5 CD 97 5E CD 6F 6B C1 .Ha..o ....^.ok.
0001D0: 78 FE 0A 28 2D CD 0B 6F 20 1F C5 CD 97 5E CD 6F x..(-..o ....^.o
0001E0: 6B C1 18 1E 21 00 00 78 FE 0A 28 02 2E 12 CD 92 k...!..x..(.....
0001F0: 6B CD 6F 6B 78 FE 0A 28 09 21 FF FF CD 92 6B CD k.okx..(.!....k.
Size : 512 (Real : 512)
000000: 32 C9 7B CD 77 53 FD 22 A4 7B CD 82 6B 2A 73 7B 2.{.wS.".{..k*s{
000010: ED 5B 75 7B B7 ED 52 19 30 49 23 4E 23 46 23 7E .[u{..R.0I#N#F#~
000020: 23 5E 23 56 E5 C5 47 7A B3 28 0F EB 2B 7E 4F 3C #^#V..Gz.(..+~O<
000030: CD D4 72 28 2B 56 2B 5E 18 06 ED 5B A4 7B 0E 00 ..r(+V+^...[.{..
000040: E1 78 91 20 05 CD 42 6C 18 16 CD C8 72 47 D5 F5 .x. ..Bl....rG..
000050: CD 3F 6C F1 47 CD 73 6B 10 FB 3E C3 E1 CD 94 6B .?l.G.sk..>....k
000060: E1 18 AD 2A A4 7B 23 FD E5 D1 1B 1B B7 ED 52 19 ...*.{#.......R.
000070: C2 3F 6C 2B C3 C2 6C CD 85 53 CD 76 6E 30 75 C8 .?l+..l..S.vn0u.
000080: CD 50 6F 18 F2 3E FF 32 98 7B 3A 9D 7B 32 9E 7B .Po..>.2.{:.{2.{
000090: CB 5F 28 08 3E FF 32 A0 7B CD 9C 6B CD 5A 6E 02 ._(.>.2.{..k.Zn.
0000A0: BB 75 28 27 CD B2 67 CA EA 57 01 00 05 CD 54 6E .u('..g..W....Tn
0000B0: CA 3D 57 01 00 01 CD 54 6E 28 15 01 00 06 CD 54 .=W....Tn(.....T
0000C0: 6E CA 1F 59 CD 5A 6E 02 38 76 C0 5E 23 56 EB E9 n..Y.Zn.8v.^#V..
0000D0: CD 40 6F 3A 94 7B BE CD DA 72 48 2B 7E 3C CD DA .@o:.{...rH+~<..
0000E0: 72 2B 3A 95 7B 77 FD E5 D1 2B 72 2B 73 18 96 CD r+:.{w...+r+s...
0000F0: B0 5E CD 50 6B 03 CB 45 CA FD E5 CD 97 6B CD 76 .^.Pk..E.....k.v
000100: 6E 6A 75 CD DA 72 11 CD 85 53 CD 76 6E 6E 75 20 nju..r...S.vnnu
000110: 0F CD 77 6B E1 FD E5 CD 97 6B CD 3F 6C CD 85 53 ..wk.....k.?l..S
000120: E1 C3 3F 6C FD E5 CD B0 5E CD 76 6E 72 75 CD DA ..?l....^.vnru..
000130: 72 0D CD 50 6B 03 CB 45 CA FD E5 CD 97 6B CD 85 r..Pk..E.....k..
000140: 53 D1 E1 3E C3 CD 94 6B EB C3 3F 6C FD E5 CD 85 S..>...k..?l....
000150: 53 CD 76 6E 74 75 28 05 CD 50 6F 18 F1 CD B0 5E S.vntu(..Po....^
000160: CD 50 6B 03 CB 45 CA E1 C3 97 6B 01 00 04 CD 54 .Pk..E....k....T
000170: 6E CD DA 72 29 CD 76 52 3A 57 7B B7 20 07 3A 5C n..r).vR:W{. .:\
000180: 7B FE 0A 30 04 CD E1 72 1E CD 2A 6D 3A 5C 7B F5 {..0...r..*m:\{.
000190: CD 7E 6F CD E8 5E CD 6F 6B F1 F5 B8 CD DA 72 2C .~o..^.ok.....r,
0001A0: CD 5A 6E 01 F5 75 CD DA 72 12 5E D5 CD E8 5E D1 .Zn..u..r.^...^.
0001B0: F1 D5 B8 CD DA 72 2C CD 76 6E 72 75 CD DA 72 0D .....r,.vnru..r.
0001C0: CD 50 6B 01 D1 D1 CD 63 6D D5 7B 21 66 06 FE 23 .Pk....cm.{!f..#
0001D0: 28 03 21 76 06 CD 86 6B FD E5 CD 50 6B 06 7A B3 (.!v...k...Pk.z.
0001E0: CA 00 00 D5 CD 1B 66 21 95 7B 34 CD 85 53 21 95 ......f!.{4..S!.
0001F0: 7B 35 E1 D1 CD 49 6D E5 2A 58 7B 3E 2A CD 94 6B {5...Im.*X{>*..k
Size : 512 (Real : 512)
000000: 6F 6B CD 5E 6F C5 CD AD 5C 3A 62 7B 3D 67 2E 06 ok.^o...\:b{=g..
000010: CD 97 6B C1 21 BE 1E 78 FE 0A 28 03 21 BD 1E C3 ..k.!..x..(.!...
000020: 81 5C CD 66 6F CD D0 5E CD 5E 6F CD 7F 67 3A 5C .\.fo..^.^o..g:\
000030: 7B FE 09 28 10 FE 0A 20 08 3A 62 7B 3D 3E 0A 20 {..(... .:b{=>.
000040: 04 CD E1 72 1B F5 CD 6F 6B CD 5E 6F CD 7F 67 3A ...r...ok.^o..g:
000050: 5C 7B FE 0A 20 06 3A 62 7B 3D 20 04 CD E1 72 18 \{.. .:b{= ...r.
000060: F1 21 F4 1E FE 0A 28 B7 21 F3 1E 18 B2 CD 66 6F .!....(.!.....fo
000070: CD 97 5E 21 DB 1F E5 CD 6F 6B CD 5E 6F CD 97 5E ..^!....ok.^o..^
000080: E1 18 2E 21 48 1F C3 86 6B CD 66 6F CD 97 5E 21 ...!H...k.fo..^!
000090: 1D 02 18 1D CD E3 5D CD 5E 6F CD 97 5E 18 0F CD ......].^o..^...
0000A0: E3 5D 2A 5E 7B CD 71 52 2A 6F 7B CD 92 6B 21 E5 .]*^{.qR*o{..k!.
0000B0: 1C C3 60 59 CD E3 5D CD 5E 6F CD 97 5E 18 0F CD ..`Y..].^o..^...
0000C0: E3 5D 2A 5E 7B CD 71 52 2A 6F 7B CD 92 6B 21 7A .]*^{.qR*o{..k!z
0000D0: 1D C3 60 59 21 A3 1E 18 03 21 AB 1E E5 CD E9 5D ..`Y!....!.....]
0000E0: E1 18 CE CD E9 5D C3 6F 6B CD 66 6F CD 7F 67 3A .....].ok.fo..g:
0000F0: 5C 7B FE 04 C8 CD E1 72 1C CD 66 6F CD 97 5E 21 \{.....r..fo..^!
000100: DB 1C C3 60 59 CD 66 6F CD 7F 67 CD 6F 6B CD 5E ...`Y.fo..g.ok.^
000110: 6F CD 7F 67 21 64 1F C3 76 5D CD 66 6F CD 7F 67 o..g!d..v].fo..g
000120: CD 6F 6B CD 5E 6F CD 97 5E CD 6F 6B CD 5E 6F CD .ok.^o..^.ok.^o.
000130: BB 5E 21 4E 1F C3 B1 5D 21 0A 03 18 08 21 10 03 .^!N...]!....!..
000140: 18 03 21 3E 02 C3 86 6B 21 99 02 18 F8 21 84 02 ..!>...k!....!..
000150: 18 F3 21 6B 02 18 EE 21 62 02 18 E9 21 59 02 18 ..!k...!b...!Y..
000160: E4 11 00 00 C3 39 56 21 D4 20 C3 82 6B CD 8E 5E .....9V!. ..k..^
000170: CD 50 6B 03 C1 ED 69 C9 CD 7E 6F CD 97 5E CD 50 .Pk...i..~o..^.P
000180: 6B 01 F9 C9 CD 2A 6D CD E8 5E CD 49 6D C9 CD D5 k....*m..^.Im...
000190: 65 CD 7E 6F CD 6F 6B CD E8 5E 78 FE 0A C8 CD E1 e.~o.ok..^x.....
0001A0: 72 17 CD E8 5E 78 FE 0A C8 FE 09 C8 CD E1 72 1A r...^x........r.
0001B0: CD E8 5E 78 FE 0B C8 CD E1 72 14 CD E8 5E 78 FE ..^x.....r...^x.
0001C0: 0A D0 FE 08 CD DA 72 1F 06 0C 21 96 09 C3 86 6B ......r...!....k
0001D0: CD E8 5E 78 FE 08 C8 FE 0C CD DA 72 21 06 08 CD ..^x.......r!...
0001E0: 50 6B 04 65 2E 01 E5 C9 CD 98 5F C5 CD 5A 6E 01 Pk.e......_..Zn.
0001F0: 25 76 C1 C0 7E 3C 28 3C 3D F5 C5 CD 48 61 2A 8B %v..~<(<=...Ha*.
Size : 512 (Real : 512)
000000: 6B 3A BD 7B B7 20 14 3E 2A 2A BE 7B CD 94 6B 3A k:.{. .>**.{..k:
000010: 62 7B 3D C0 CD 50 6B 02 26 00 C9 CD 8B 67 3A 62 b{=..Pk.&....g:b
000020: 7B 3D 20 07 CD 50 6B 01 6E 18 E9 CD 50 6B 04 5E {= ..Pk.n...Pk.^
000030: 23 56 EB C9 2A 5E 7B CD 71 52 2A 62 7B 3A 6B 7B #V..*^{.qR*b{:k{
000040: 1F 1F 1F E6 1F 67 C3 8A 6B CD 0D 6A 20 31 78 FE .....g..k..j 1x.
000050: 08 CD DA 72 3C 2E 18 61 CD 97 6B FD 22 58 7B 3E ...r<..a..k."X{>
000060: 01 32 5C 7B 21 E2 74 22 5E 7B 21 00 00 22 60 7B .2\{!.t"^{!.."`{
000070: 69 22 62 7B CD 62 6B 3E 21 2A 58 7B C3 94 6B CD i"b{.bk>!*X{..k.
000080: 87 67 C8 CD E1 72 29 CD B2 67 C0 3A BD 7B 2A BE .g...r)..g.:.{*.
000090: 7B CB 4F 20 0D CB 47 3E 21 28 02 3E 2A CD 94 6B {.O ..G>!(.>*..k
0000A0: 18 0E CB 47 20 0A 3E 11 CD 94 6B CD 50 6B 01 19 ...G .>...k.Pk..
0000B0: AF C9 CD 0C 68 28 22 01 00 04 CD 54 6E 20 2E CD ....h("....Tn ..
0000C0: 76 52 3A 57 7B B7 3E 21 06 00 28 03 3E 2A 04 21 vR:W{.>!..(.>*.!
0000D0: BD 7B 70 2A 58 7B 22 BE 7B CD 3A 68 28 FB CD 31 .{p*X{".{.:h(..1
0000E0: 69 28 F6 CD 74 69 28 F1 CD 9F 69 AF C9 CD 76 6E i(..ti(...i...vn
0000F0: FA 78 C0 CD D5 65 3E 0A 32 5C 7B 21 01 00 22 62 .x...e>.2\{!.."b
000100: 7B 2D 22 5E 7B 2D 22 60 7B C3 03 69 3A C9 7B 47 {-"^{-"`{..i:.{G
000110: 05 F8 C5 58 16 00 21 CC 7B 19 7E 4F 06 04 CD 54 ...X..!.{.~O...T
000120: 6E C1 20 EC E5 78 87 5F 16 00 2A CA 7B 19 22 BE n. ..x._..*.{.".
000130: 7B 21 BD 7B 36 01 E1 C3 48 69 3A 5C 7B FE 01 C0 {!.{6...Hi:\{...
000140: CD E0 6E C0 CD 8B 67 CD 6F 6B CD 84 5E 2A 60 7B ..n...g.ok..^*`{
000150: CD 71 52 3A 69 7B B8 CD DA 72 2C 2A 6B 7B 7C B7 .qR:i{...r,*k{|.
000160: 20 12 7D FE 04 30 21 B7 28 29 F5 CD 50 6B 01 2B .}..0!.()..Pk.+
000170: F1 3D 18 F3 3C 20 11 7D FE FD 38 0C F5 CD 50 6B .=..< .}..8...Pk
000180: 01 23 F1 3C 20 F6 18 0B CD 30 6A CD 8E 6B CD 50 .#.< ....0j..k.P
000190: 6B 01 19 3A 9E 7B CB 4F 28 14 2A 6D 7B ED 5B 6B k..:.{.O(.*m{.[k
0001A0: 7B B7 ED 52 23 CD 8E 6B 21 4C 06 CD 86 6B 2A 5E {..R#..k!L...k*^
0001B0: 7B CD 87 52 2A 62 7B 7C B7 20 1D 7D 3D 28 2E 3D {..R*b{|. .}=(.=
0001C0: 20 07 CD 50 6B 01 29 18 24 FE 04 20 0B CD 50 6B ..Pk.).$.. ..Pk
0001D0: 05 29 5D 54 29 19 18 15 3A 9E 7B CB 67 20 0B CD .)]T)...:.{.g ..
0001E0: 8E 6B 21 F5 06 CD 86 6B 18 03 CD 0A 69 CD 50 6B .k!....k....i.Pk
0001F0: 02 D1 19 3A 5C 7B FE 01 20 06 CD 13 6F CA 47 68 ...:\{.. ...o.Gh
Size : 512 (Real : 512)
000000: 7B E5 CD 98 5F E1 22 8D 7B D1 CD 60 61 F1 5F 16 {..._.".{..`a._.
000010: 00 21 68 5F 19 78 FE 03 28 0E 23 23 FE 09 28 08 .!h_.x..(.##..(.
000020: 23 23 FE 08 28 02 23 23 5E 23 56 7A B3 CD D4 72 ##..(.##^#Vz...r
000030: 2F EB 18 2E 78 FE 0A 30 0E FE 08 CD DA 72 2F 21 /...x..0.....r/!
000040: 96 09 CD 86 6B 06 0C C5 CD 6F 6B CD 98 5F D1 78 ....k....ok.._.x
000050: FE 03 CD DA 72 2F 79 B7 28 05 BA CD DA 72 2C 21 ....r/y.(....r,!
000060: 4F 13 CD 86 6B 06 0B C9 E1 12 88 06 8D 06 7F 06 O...k...........
000070: DD 12 9B 06 A0 06 92 06 00 13 AE 06 B3 06 A5 06 ................
000080: FC 12 C2 06 C7 06 B8 06 00 00 D6 06 DB 06 CC 06 ................
000090: 00 00 E9 06 EE 06 E0 06 CD 54 60 C5 CD 5A 6E 01 .........T`..Zn.
0000A0: 19 76 C1 C0 78 FE 04 CD D4 72 2F 7E F5 C5 CD 48 .v..x....r/~...H
0000B0: 61 CD 54 60 D1 F1 F5 B7 20 0F 78 FE 0C 20 0A CD a.T`.... .x.. ..
0000C0: 50 6B 04 65 2E 01 E5 06 08 CD 60 61 F1 FE 02 30 Pk.e......`a...0
0000D0: 4A F5 78 21 18 13 11 26 13 FE 03 28 29 21 E9 09 J.x!...&...()!..
0000E0: 11 F2 09 FE 09 28 1F FE 08 28 25 FE 0A CD DA 72 .....(...(%....r
0000F0: 2F F1 3D 28 07 CD 50 6B 01 19 18 9F CD 50 6B 04 /.=(..Pk.....Pk.
000100: EB B7 ED 52 18 95 F1 3D 20 01 EB CD 86 6B 18 8B ...R...= ....k..
000110: F1 3D CD D4 72 2F 21 3D 08 18 F0 78 20 1B FE 0B .=..r/!=...x ...
000120: 28 0D FE 0A CD DA 72 2F CD 50 6B 03 7C B2 67 CD (.....r/.Pk.|.g.
000130: 50 6B 03 7D B3 6F C3 9B 5F FE 0B 28 0D FE 0A CD Pk.}.o.._..(....
000140: DA 72 2F CD 50 6B 03 7C AA 67 CD 50 6B 03 7D AB .r/.Pk.|.g.Pk.}.
000150: 6F C3 9B 5F CD E9 60 C5 CD 5A 6E 01 00 76 C1 C0 o.._..`..Zn..v..
000160: 78 FE 04 CD D4 72 2F 7E F5 C5 CD 48 61 CD E9 60 x....r/~...Ha..`
000170: D1 F1 F5 3D 20 0D 78 FE 0A 20 08 21 08 10 CD 86 ...= .x.. .!....
000180: 6B 06 09 CD 60 61 F1 5F 78 1C 1D 20 1C 21 33 13 k...`a._x.. .!3.
000190: FE 03 28 10 21 F5 06 FE 0A 28 09 21 FA 09 FE 09 ..(.!....(.!....
0001A0: CD DA 72 2F CD 86 6B 18 AE 21 FF 09 1D 28 EF 1D ..r/..k..!...(..
0001B0: 20 1A FE 0B 28 0D FE 0A CD DA 72 2F CD 50 6B 03 ...(.....r/.Pk.
0001C0: 7C A2 67 CD 50 6B 03 7D A3 6F 18 8B FE 0A CD DA |.g.Pk.}.o......
0001D0: 72 2F 21 0F 07 1D 28 CC 21 45 07 1D 28 C6 21 4E r/!...(.!E..(.!N
0001E0: 07 1D 28 C0 21 56 07 18 BB CD 76 6E 79 75 20 22 ..(.!V....vnyu "
0001F0: CD 12 61 78 FE 0A 28 0F FE 0B CD DA 72 2F CD 50 ..ax..(.....r/.P
Size : 512 (Real : 512)
000000: CD 38 6F 3E 03 32 BD 7B AF C9 06 01 7C B7 20 04 .8o>.2.{....|. .
000010: 7D 3D 28 13 CB 45 28 04 CD 6F 6B 04 CD 50 6B 01 }=(..E(..ok..Pk.
000020: 29 CB 3C CB 1D 18 E5 05 C8 CD 50 6B 02 D1 19 18 ).<.......Pk....
000030: F6 3A 5C 7B FE 02 C0 CD 17 6F C0 3A 5D 7B 4F 06 .:\{.....o.:]{O.
000040: 04 CD 54 6E CD DA 72 29 CD 76 52 2A 58 7B 7C B5 ..Tn..r).vR*X{|.
000050: C8 21 BD 7B CB 46 28 0F E5 CD 8B 67 E1 36 02 2A .!.{.F(....g.6.*
000060: 58 7B 22 BE 7B AF C9 2A BE 7B ED 5B 58 7B 19 22 X{".{..*.{.[X{."
000070: BE 7B AF C9 3A 5C 7B FE 04 C0 CD 27 6F C0 21 BD .{..:\{....'o.!.
000080: 7B 7E B7 20 03 34 18 0F E5 CD 8B 67 E1 36 03 CD {~. .4.....g.6..
000090: 50 6B 04 5E 23 56 EB 2A 5E 7B CD 87 52 AF C9 3A Pk.^#V.*^{..R..:
0000A0: 5C 7B FE 08 C0 CD E0 6E C0 CD 8B 67 CD 6F 6B 2A \{.....n...g.ok*
0000B0: 62 7B E5 CD 97 5E E1 3A 9E 7B CB 4F 28 09 CD 8E b{...^.:.{.O(...
0000C0: 6B 21 4C 06 CD 86 6B CD 50 6B 02 D1 19 CD 38 6F k!L...k.Pk....8o
0000D0: 3E 0C 32 5C 7B 21 01 00 22 62 7B 2B 22 5E 7B 2D >.2\{!.."b{+"^{-
0000E0: 22 60 7B 3E 03 32 BD 7B AF C9 CD 0D 6A C8 CD E1 "`{>.2.{....j...
0000F0: 72 29 CD EA 69 78 FE 0A C8 CD E1 72 16 CD EA 69 r)..ix.....r...i
000100: 78 FE 08 C8 FE 0C CD DA 72 20 06 08 C9 CD 39 6A x.......r ....9j
000110: D5 CD 5C 6A D1 28 08 1C 1D CD DA 72 19 1D C9 CD ..\j.(.....r....
000120: 4A 6A C8 78 FE 09 20 08 D9 78 EE 80 47 D9 AF C9 Jj.x.. ..x..G...
000130: 7C 2F 67 7D 2F 6F 23 AF C9 1E FF DD 7E 00 FE 2D |/g}/o#.....~..-
000140: 28 05 1C FE 2B C0 1C C3 92 6F 1C 1D C8 78 FE 0A (...+....o...x..
000150: 28 04 FE 09 20 02 1D C9 CD E1 72 19 CD 99 6A C8 (... .....r...j.
000160: 01 00 02 CD 54 6E C0 46 78 2B FE 0A 38 06 56 2B ....Tn.Fx+..8.V+
000170: 5E EB AF C9 FE 09 20 10 C5 46 2B 4E 2B 56 2B 5E ^..... ..F+N+V+^
000180: 2B 7E 2B 6E 67 D9 C1 C9 4E 11 57 7A C5 0C 0D 28 +~+ng...N.Wz...(
000190: 06 2B 7E 12 13 18 F7 C1 C9 DD 7E 00 FE 27 28 08 .+~.......~..'(.
0001A0: FE 5E 28 04 FE 23 20 66 21 57 7A 0E 00 DD 7E 00 .^(..# f!Wz...~.
0001B0: FE 5E 28 24 FE 23 28 36 FE 27 20 42 DD 23 DD 7E .^($.#(6.' B.#.~
0001C0: 00 B7 CD D4 72 37 FE 27 20 09 DD 23 DD 7E 00 FE ....r7.' ..#.~..
0001D0: 27 20 DA 77 23 0C 18 E4 DD 23 DD 7E 00 CD A6 04 ' .w#....#.~....
0001E0: B7 CD D4 72 37 EE 40 DD 23 77 23 0C 18 BF DD 23 ...r7.@.#w#....#
0001F0: C5 E5 CD F7 07 7D E1 C1 CD C8 72 38 18 EB 06 08 .....}....r8....
Size : 512 (Real : 512)
000000: 6B 04 7D EE 01 6F C9 CD 50 6B 06 7D 2F 6F 7C 2F k.}..o..Pk.}/o|/
000010: 67 C9 3A A1 7B F5 CD 39 6A 7B 32 A1 7B CD 1D 62 g.:.{..9j{2.{..b
000020: 3A A1 7B 5F CD 4A 6A 28 1A 78 FE 0A 20 0D CD 50 :.{_.Jj(.x.. ..P
000030: 6B 07 7D 2F 6F 7C 2F 67 23 18 08 CD 50 6B 04 78 k.}/o|/g#...Pk.x
000040: EE 80 47 F1 32 A1 7B C9 78 FE 0A 30 10 FE 04 28 ..G.2.{.x..0...(
000050: 0C FE 08 C8 FE 03 C8 CD 50 6B 02 C5 D5 C3 6F 6B ........Pk....ok
000060: 7A FE 09 20 0F 78 FE 0A 20 1D 21 08 10 CD 86 6B z.. .x.. .!....k
000070: 06 09 18 13 FE 08 20 0F 78 FE 0C 20 0A CD 50 6B ...... .x.. ..Pk
000080: 04 65 2E 01 E5 06 08 78 FE 09 20 07 CD 50 6B 01 .e.....x.. ..Pk.
000090: D9 18 11 FE 08 20 0D 7A FE 0C 20 08 21 A2 09 CD ..... .z.. .!...
0000A0: 86 6B 16 08 7A FE 0A 28 13 30 23 FE 04 28 1F FE .k..z..(.0#..(..
0000B0: 09 38 20 CD 50 6B 03 E1 D1 C1 18 17 78 FE 09 20 .8 .Pk......x..
0000C0: 0D CD 73 6B 21 08 10 CD 86 6B 16 09 18 05 CD 50 ..sk!....k.....P
0000D0: 6B 01 D1 78 BA CD DA 72 2C FE 03 20 0D 7B B9 C8 k..x...r,.. .{..
0000E0: B7 C8 79 4B B7 C8 CD E1 72 2C FE 04 C0 2A 8B 7B ..yK....r,...*.{
0000F0: 7C B5 C8 ED 5B 8D 7B 7A B3 C8 ED 52 C8 CD E1 72 |...[.{z...R...r
000100: 2C 11 EB 5E D5 11 9B 5F D5 11 57 60 D5 18 1E 11 ,..^..._..W`....
000110: EB 5E D5 11 9B 5F D5 11 57 60 D5 18 59 CD 5C 6A .^..._..W`..Y.\j
000120: 20 35 3A A1 7B 5F CD 1F 6A AF 32 A1 7B 78 FE 09 5:.{_..j.2.{x..
000130: 20 17 D9 C5 D5 E5 01 31 03 79 D6 10 4F CD 9C 6B ......1.y..O..k
000140: E1 CD 97 6B 10 F3 06 09 C9 FE 08 C2 92 6B 21 4D ...k.........k!M
000150: 05 CD 86 6B C3 5E 6B 01 00 06 CD 54 6E 20 12 CD ...k.^k....Tn ..
000160: 3D 57 EB CD 87 52 2A 5E 7B 22 8B 7B 3A 5C 7B 47 =W...R*^{".{:\{G
000170: C9 CD B2 67 20 5C 3A 5C 7B FE 08 30 08 FE 03 28 ...g \:\{..0...(
000180: 04 FE 04 20 18 CD DA 66 2A 5E 7B 22 8B 7B 3A 5C ... ...f*^{".{:\
000190: 7B 47 FE 03 C0 CD 87 52 3A 5C 7B 4F C9 FE 01 CD {G.....R:\{O....
0001A0: DA 72 3E CD 8B 67 2A 5E 7B 7E FE 0C CD DA 72 3E .r>..g*^{~....r>
0001B0: 2A 60 7B 7E FE 0A CD DA 72 3E 2A 62 7B 7C B7 CD *`{~....r>*b{|..
0001C0: DA 72 3E 65 2E 06 CD 97 6B 21 38 06 CD 86 6B 06 .r>e....k!8...k.
0001D0: 08 C9 CD E0 6E 20 45 21 81 05 CD 86 6B CD F7 6E ....n E!....k..n
0001E0: 01 00 03 C8 C5 CD BB 5E 78 C1 0C 0D 20 01 4F B9 .......^x... .O.
0001F0: CD DA 72 2C C5 CD 76 6E 80 75 21 91 05 20 11 CD ..r,..vn.u!.. ..
Size : 512 (Real : 512)
000000: 79 3D 20 07 67 3A 57 7A 6F 06 0C C3 95 6F FE 24 y= .g:Wzo....o.$
000010: 28 33 CD 86 72 30 03 AF 3D C9 DD E5 D1 13 1A CD (3..r0..=.......
000020: 86 72 30 F9 CD A6 04 FE 45 28 0E FE 2E 20 16 13 .r0.....E(... ..
000030: 1A FE 2E 28 10 FE 29 28 0C CD A3 11 CD C8 72 39 ...(..)(......r9
000040: D9 06 09 18 C6 CD F7 07 CD C8 72 38 06 0A 18 BB ..........r8....
000050: E3 C5 46 23 7E CD 9C 6B 23 10 F9 C1 E3 C9 79 CD ..F#~..k#.....y.
000060: 9C 6B 21 57 7A 0C 0D C8 7E 23 CD 9C 6B 18 F7 3E .k!Wz...~#..k..>
000070: E5 18 29 3E E1 18 25 3E C3 18 21 7B CD 9C 6B 7A ..)>..%>..!{..kz
000080: 18 1A 3E C3 18 0E 3E CD 18 0A 3E 01 18 06 3E 11 ..>...>...>...>.
000090: 18 02 3E 21 CD 9C 6B 7D CD 9C 6B 7C C5 47 3A 00 ..>!..k}..k|.G:.
0000A0: 79 B7 20 03 FD 70 00 FD 23 B7 28 1A E5 D5 3D 28 y. ..p..#.(...=(
0000B0: 10 FD E5 D1 1B 2A CE 00 B7 ED 52 CD D4 72 C8 18 .....*....R..r..
0000C0: 03 CD 02 6C D1 E1 C1 E5 D5 FD E5 D1 3A 00 79 B7 ...l........:.y.
0000D0: 28 15 ED 5B DF 7B 3D 20 0E ED 5B E1 7B 3A 0E 79 (..[.{= ..[.{:.y
0000E0: B7 28 04 ED 5B E6 7B 2A 73 7B 37 ED 52 CD C8 72 .(..[.{*s{7.R..r
0000F0: 63 FD E5 D1 2A 08 79 25 25 ED 52 CD C8 72 62 D1 c...*.y%%.R..rb.
000100: E1 C9 21 DB 7B CB CE CB 46 28 07 CB 86 C5 CD F9 ..!.{...F(......
000110: 6C C1 3A DC 7B 5F 16 00 21 57 79 19 70 3C F2 2C l.:.{_..!Wy.p<.,
000120: 6C CD FD 6C 2A 54 79 23 22 54 79 AF 32 DC 7B C9 l..l*Ty#"Ty.2.{.
000130: 2A 08 79 B7 ED 52 CD C8 72 62 22 08 79 18 88 FD *.y..R..rb".y...
000140: E5 D1 3A 00 79 3D 28 0B FD E5 E5 FD E1 CD 7B 6B ..:.y=(.......{k
000150: FD E1 C9 C5 D5 E5 2A DF 7B 3A E3 7B 47 04 05 28 ......*.{:.{G..(
000160: 23 5E 23 56 E3 B7 ED 52 19 E3 38 05 23 23 23 18 #^#V...R..8.###.
000170: ED 2B EB 68 26 00 29 29 44 4D 19 54 5D 2B 13 13 .+.h&.))DM.T]+..
000180: 13 ED B8 23 D1 73 23 72 23 D1 73 23 72 C1 21 E3 ...#.s#r#.s#r.!.
000190: 7B 34 C0 AF 18 05 3A E3 7B B7 C8 C5 D5 FD E5 47 {4....:.{......G
0001A0: 2A DF 7B C5 5E 23 56 23 E5 EB CD C2 6C E1 46 23 *.{.^#V#....l.F#
0001B0: E5 CD 02 6C E1 46 23 E5 CD 02 6C E1 C1 10 E4 E1 ...l.F#...l.....
0001C0: D1 C1 E5 FD E1 3A 00 79 3D C0 D5 C5 ED 5B 02 79 .....:.y=....[.y
0001D0: B7 ED 52 7D E6 7F 32 DC 7B 29 6C 17 E6 01 67 ED ..R}..2.{)l...g.
0001E0: 5B DD 7B 19 ED 5B 54 79 B7 ED 52 19 28 08 E5 CD [.{..[Ty..R.(...
0001F0: FD 6C E1 22 54 79 C1 D1 C9 0E 21 18 0C 21 DB 7B .l."Ty....!..!.{
Size : 512 (Real : 512)
000000: 6F 6B CD BB 5E 78 C1 C5 B9 CD DA 72 2C 21 9B 05 ok..^x.....r,!..
000010: CD 86 6B C1 CD 13 6F 28 CB C3 38 6F CD 1B 6F 20 ..k...o(..8o..o
000020: 06 CD E8 5E C3 6E 6F CD 5A 6E 02 B1 77 20 06 5E ...^.no.Zn..w .^
000030: 23 56 EB AF E9 CD 76 6E 7C 75 20 09 21 00 00 CD #V....vn|u .!...
000040: 92 6B C3 2E 64 01 00 03 CD 54 6E CD DA 72 29 56 .k..d....Tn..r)V
000050: 2B 5E 1A FE 0A CD C8 72 1E F5 CD EF 65 F1 47 C9 +^.....r....e.G.
000060: CD E7 65 21 F3 06 78 FE 0A 28 03 21 F7 09 C3 86 ..e!..x..(.!....
000070: 6B CD E7 65 78 FE 0A 28 07 CD 50 6B 02 CB B8 C9 k..ex..(..Pk....
000080: 21 80 07 18 4A 21 46 0C 18 21 21 87 0C 18 1C 21 !...J!F..!!....!
000090: 7F 0C 18 17 21 46 0E 18 12 21 2B 0D 18 0D 21 B6 ....!F...!+...!.
0000A0: 0D 18 08 21 FD 0B 18 03 21 34 0C E5 CD E7 65 21 ...!....!4....e!
0000B0: 08 10 78 FE 0A CC 86 6B E1 06 09 C3 86 6B 21 DE ..x....k.....k!.
0000C0: 0F 18 03 21 D0 0F E5 CD E7 65 E1 78 FE 0A C8 06 ...!.....e.x....
0000D0: 0A C3 86 6B 3E 23 11 3E 2B F5 CD EF 65 F1 C3 9C ...k>#.>+...e...
0000E0: 6B CD DE 65 CD 50 6B 02 26 00 C9 CD DE 65 CD 50 k..e.Pk.&....e.P
0000F0: 6B 03 6C 26 00 C9 CD DE 65 CD 50 6B 03 7D 6C 67 k.l&....e.Pk.}lg
000100: C9 CD DE 65 21 8B 07 06 0B C3 86 6B 21 A0 00 18 ...e!......k!...
000110: F6 CD 66 6F CD E8 5E CD 6E 6F 78 FE 04 28 03 CD ..fo..^.nox..(..
000120: BE 5E 06 0A C9 CD DE 65 06 0C C9 CD DE 65 21 00 .^.....e.....e!.
000130: 00 22 8B 7B 06 04 C9 CD EF 65 06 0C 21 E4 1F 18 .".{.....e..!...
000140: C8 CD 66 6F 21 A3 08 E5 CD D0 5E CD 6E 6F E1 C3 ..fo!.....^.no..
000150: CF 63 CD 66 6F CD D0 5E CD 5E 6F 21 B2 08 18 E7 .c.fo..^.^o!....
000160: CD 66 6F CD D0 5E CD 5E 6F CD 97 5E CD 5E 6F CD .fo..^.^o..^.^o.
000170: 6F 6B CD 97 5E CD 6E 6F 21 6B 08 CD 86 6B 06 08 ok..^.no!k...k..
000180: C9 CD 66 6F CD D0 5E CD 13 6F 20 0B CD D0 5E 21 ..fo..^..o ...^!
000190: 3D 08 CD 86 6B 18 F0 CD 6E 6F 18 E2 21 9B 1F 18 =...k...no..!...
0001A0: 1E CD DE 65 21 7D 1F 06 08 C3 86 6B CD 1B 6F 21 ...e!}.....k..o!
0001B0: B4 0F 06 09 20 0B CD 97 5E CD 6E 6F 21 3B 07 06 .... ...^.no!;..
0001C0: 0A C3 86 6B 21 F1 1F 18 F6 CD F7 65 21 15 66 CD ...k!......e!.f.
0001D0: E9 59 06 0B C9 21 E1 17 18 08 21 D7 17 18 03 21 .Y...!....!....!
0001E0: DC 17 E5 CD F7 65 FE 06 CD DA 72 23 E1 CD 86 6B .....e....r#...k
0001F0: 18 E0 21 55 1A 11 55 1A 18 06 21 5D 1A 11 5D 1A ..!U..U...!]..].
Size : 512 (Real : 512)
000000: CB C6 CB 4E C8 CB 8E 0E 22 C5 11 57 79 0E 1A CD ...N...."..Wy...
000010: 65 72 C1 11 33 79 CD 65 72 B7 C8 3D C8 FE 03 C8 er..3y.er..=....
000020: CD E1 72 FA D9 11 64 7B 18 04 D9 11 57 7B E1 22 ..r...d{....W{."
000030: D5 7B 21 F3 FF 39 F9 EB 01 0D 00 ED B0 2A D5 7B .{!..9.......*.{
000040: E5 D9 C9 D9 11 64 7B 18 04 D9 11 57 7B E1 22 D5 .....d{....W{.".
000050: 7B 21 00 00 39 01 0D 00 ED B0 F9 18 E0 D9 11 64 {!..9..........d
000060: 7B 18 04 D9 11 57 7B 21 02 00 39 01 0D 00 ED B0 {....W{!..9.....
000070: D9 C9 FD E5 D1 7A CD 7A 6D 7B E5 2A 73 7B 77 2B .....z.zm{.*s{w+
000080: 22 73 7B E1 C3 C7 6B DD 7E 00 CD 71 72 CD C8 72 "s{...k.~..qr..r
000090: 3A CD D0 6E CD B8 6E DD 7E 00 FE 61 38 06 FE 7B :..n..n.~..a8..{
0000A0: 30 02 D6 20 CD 7A 6D DD 23 DD 7E 00 CD 82 72 30 0.. .zm.#.~...r0
0000B0: E9 2A 73 7B 23 CB FE C3 95 6F DD 7E 00 CD 71 72 .*s{#....o.~..qr
0000C0: CD C8 72 3A 18 CE 2A 75 7B ED 5B 73 7B B7 ED 52 ..r:..*u{.[s{..R
0000D0: EB CD 75 6D 2A 73 7B 22 75 7B C9 2A 7B 7B 18 03 ..um*s{"u{.*{{..
0000E0: 2A 77 7B 22 7D 7B 3A C0 7B B9 28 5C 79 32 C0 7B *w{"}{:.{.(\y2.{
0000F0: 2A 75 7B ED 5B 7D 7B AF ED 52 19 20 06 AF 32 C1 *u{.[}{..R. ..2.
000100: 7B 3D C9 23 5E 23 56 19 7E B7 28 E7 2B 7E 23 B9 {=.#^#V.~.(.+~#.
000110: 20 E1 DD E5 D1 C5 E5 2B 2B 46 1A 2B 13 48 CB B8 ......++F.+.H..
000120: FE 61 38 06 FE 7B 30 02 D6 20 B8 20 0A CB 79 28 .a8..{0.. . ..y(
000130: E8 1A CD 82 72 38 04 E1 C1 18 B8 22 C2 7B ED 53 ....r8.....".{.S
000140: C4 7B E1 C1 7E 32 C1 7B 2A C2 7B ED 5B C4 7B 3A .{..~2.{*.{.[.{:
000150: C1 7B B8 C9 CD E0 6D C0 18 3C E3 4E 23 5E 23 56 .{....m..<.N#^#V
000160: 23 E3 EB CD 7D 6E C8 2B CB 7E 23 28 FB 06 00 09 #...}n.+.~#(....
000170: 7E B7 20 EF 3D C9 E3 5E 23 56 23 E3 EB DD E5 D1 ~. .=..^#V#.....
000180: 7E CD 71 72 38 0C CD 9C 6E C0 1A CD 82 72 38 06 ~.qr8...n....r8.
000190: B7 C9 CD 9C 6E C0 D5 DD E1 C3 95 6F C5 46 1A 23 ....n......o.F.#
0001A0: 13 48 CB B8 FE 61 38 06 FE 7B 30 02 D6 20 B8 20 .H...a8..{0.. .
0001B0: 05 CB 79 28 E8 AF C1 C9 21 13 75 4E 0C C8 0D 23 ..y(....!.uN...#
0001C0: 5E 23 56 23 E5 EB CD 63 6E E1 20 EF CD E1 72 35 ^#V#...cn. ...r5
0001D0: 3A 91 7B 4F CD DB 6D 3A C1 7B B7 C8 CD E1 72 2B :.{O..m:.{....r+
0001E0: 3E 5B CD 29 6F C8 DD 7E 00 FE 28 C0 DD 7E 01 FE >[.)o..~..(..~..
0001F0: 2E C0 DD 23 C3 92 6F 3E 5D CD 29 6F C8 DD 7E 00 ...#..o>].)o..~.
Size : 512 (Real : 512)
000000: E5 D5 CD F7 65 D1 E1 FE 06 CD D4 72 3F FE 05 28 ....e......r?..(
000010: AE EB 18 AB 21 3D 1E 18 A6 21 44 1E 18 A1 3E AF ....!=...!D...>.
000020: F5 CD 66 6F CD 97 5E CD 6F 6B CD 13 6F 20 09 CD ..fo..^.ok..o ..
000030: 97 5E CD 50 6B 02 44 4D CD 50 6B 01 D1 21 EA 1F .^.Pk.DM.Pk..!..
000040: CD 6E 6F CD 86 6B F1 06 0A B7 C0 CD 50 6B 03 6F .no..k......Pk.o
000050: 26 00 C9 3E AF F5 CD 66 6F CD 97 5E CD 6F 6B CD &..>...fo..^.ok.
000060: 13 6F 20 08 CD 97 5E CD 50 6B 01 EB CD 50 6B 01 .o ...^.Pk...Pk.
000070: C1 21 05 00 18 CA CD 66 6F 01 00 05 CD 54 6E 28 .!.....fo....Tn(
000080: 08 01 00 06 CD 54 6E 20 0B 2B 2B 56 2B 5E EB CD .....Tn .++V+^..
000090: 92 6B 18 03 CD 7F 67 CD 6E 6F 06 0A C9 CD 66 6F .k....g.no....fo
0000A0: 01 00 03 CD 54 6E 20 09 56 2B 5E EB CD 87 52 18 ....Tn .V+^...R.
0000B0: 09 FD E5 CD 7F 67 E1 CD C2 6C 2A 62 7B 18 D0 CD .....g...l*b{...
0000C0: D5 65 CD 50 6B 03 4D ED 68 C9 CD 50 6B 04 21 00 .e.Pk.M.h..Pk.!.
0000D0: 00 39 06 0A C9 CD 30 6F CD 97 5E C3 38 6F CD 66 .9....0o..^.8o.f
0000E0: 6F CD 97 5E C3 6E 6F CD 66 6F CD A2 5E 18 F5 CD o..^.no.fo..^...
0000F0: 66 6F CD BB 5E 18 ED CD 1B 6F 28 0C 21 C2 00 CD fo..^....o(.!...
000100: 92 6B 3E 06 32 5C 7B C9 CD 17 5A CD DA 72 15 F5 .k>.2\{...Z..r..
000110: CD 6E 6F F1 C9 49 1A E6 17 49 1A 3A 57 7B 4F 2A .no..I...I.:W{O*
000120: 58 7B 3A 5C 7B FE 03 20 0B CD 34 67 21 23 06 11 X{:\{.. ..4g!#..
000130: 12 06 18 14 FE 08 20 26 3A 62 7B 3D 67 2E 06 CD ...... &:b{=g...
000140: 97 6B 21 01 06 11 E2 05 0D 28 10 EB 3E 21 0C 28 .k!......(..>!.(
000150: 02 3E 2A E5 2A 58 7B CD 94 6B E1 C3 86 6B FE 09 .>*.*X{..k...k..
000160: 20 10 CD 50 6B 01 D9 21 D1 05 0D 20 DF CD 73 6B ..Pk..!... ..sk
000170: 18 E9 FE 04 28 27 3A 9E 7B CB 4F 28 20 2A 5E 7B ....(':.{.O( *^{
000180: ED 5B 60 7B 13 B7 ED 52 19 28 12 1B CD 8E 6B EB .[`{...R.(....k.
000190: B7 ED 52 23 CD 8A 6B 21 56 06 CD 86 6B 0D 20 17 ..R#..k!V...k. .
0001A0: CD 50 6B 02 EB E1 CD 50 6B 01 73 3A 62 7B 3D C8 .Pk....Pk.s:b{=.
0001B0: CD 50 6B 02 23 72 C9 2A 58 7B 0C 20 12 3A 62 7B .Pk.#r.*X{. .:b{
0001C0: 3D 3E 22 20 07 CD 50 6B 01 7D 3E 32 C3 94 6B CD =>" ..Pk.}>2..k.
0001D0: 50 6B 02 EB 2A CD 97 6B 18 CC 3A 5C 7B FE 0A 30 Pk..*..k..:\{..0
0001E0: 20 FE 04 28 1C F5 CD 8B 67 F1 21 2C 05 FE 09 28 ..(....g.!,...(
0001F0: 0D 21 3A 05 FE 08 28 06 CD 34 67 21 5D 05 C3 86 .!:...(..4g!]...
Size : 512 (Real : 512)
000000: FE 2E C0 DD 7E 01 FE 29 C0 18 E7 3E 3A 18 1A 3E ....~..)...>:..>
000010: 3B 18 16 3E 2C 18 12 3E 2E 18 0E 3E 28 18 0A 3E ;..>,..>...>(..>
000020: 29 18 06 3E 3D 18 02 3E 5E DD BE 00 C0 C3 92 6F )..>=..>^......o
000030: CD E0 6E C8 CD E1 72 08 CD F7 6E C8 CD E1 72 09 ..n...r...n...r.
000040: CD 0B 6F C8 CD E1 72 02 CD 0F 6F C8 CD E1 72 01 ..o...r...o...r.
000050: CD 0F 6F C8 3A 98 7B B7 28 F2 CD E1 72 29 CD 13 ..o.:.{.(...r)..
000060: 6F C8 CD E1 72 03 CD 1B 6F C8 CD E1 72 04 CD 1F o...r...o...r...
000070: 6F C8 CD E1 72 05 CD 23 6F C8 CD E1 72 06 CD 76 o...r..#o...r..v
000080: 6E 82 75 C8 CD E1 72 07 CD 76 6E 60 75 C8 CD E1 n.u...r..vn`u...
000090: 72 0F CD 24 71 AF 32 98 7B 3D 32 C0 7B DD 7E 00 r..$q.2.{=2.{.~.
0000A0: B7 28 EF FE 20 28 EB FE 09 28 E7 FE 28 28 06 FE .(.. (...(..((..
0000B0: 7B 28 0C AF C9 DD 7E 01 FE 2A 20 F7 CD 24 71 C5 {(....~..* ..$q.
0000C0: DD 46 00 DD 7E 01 FE 24 28 21 CD 24 71 78 FE 2A .F..~..$(!.$qx.*
0000D0: DD 7E 00 20 0F B8 20 F2 DD 7E 01 FE 29 20 EB CD .~. .. ..~..) ..
0000E0: 24 71 18 04 FE 7D 20 E2 C1 18 A7 C5 D5 E5 CD 24 $q...} ........$
0000F0: 71 CD 24 71 DD 7E 00 CD A6 04 FE 49 06 01 28 4D q.$q.~.....I..(M
000100: FE 52 06 02 28 47 FE 41 06 04 28 41 FE 55 06 08 .R..(G.A..(A.U..
000110: 28 3B FE 58 06 10 28 35 FE 56 06 20 28 2F FE 42 (;.X..(5.V. (/.B
000120: 06 40 28 29 FE 43 06 80 28 23 FE 57 28 4C 06 00 .@().C..(#.W(L..
000130: FE 4B 28 19 FE 44 28 15 FE 46 28 52 FE 47 28 4E .K(..D(..F(R.G(N
000140: FE 50 28 4A CD E1 72 5D E1 D1 C1 18 80 CD 24 71 .P(J..r]......$q
000150: DD 7E 00 0E 00 FE 2B 28 0C 0D FE 2D 28 07 05 CD .~....+(...-(...
000160: DA 72 5D 18 36 21 9D 7B 7E A9 B0 A9 77 CD 24 71 .r].6!.{~...w.$q
000170: DD 7E 00 FE 2C CA F1 6F 18 CE CD 24 71 DD 7E 00 .~..,..o...$q.~.
000180: CD 86 72 CD C8 72 5D D6 30 32 C7 7B 18 DF CD 24 ..r..r].02.{...$
000190: 71 DD 7E 00 CD 86 72 30 F5 18 D5 FE 20 20 08 CD q.~...r0.... ..
0001A0: 24 71 DD 7E 00 18 F4 3A 0E 79 B7 CD DA 72 60 DD $q.~...:.y...r`.
0001B0: E5 D1 CD 2A 2D D5 DD E1 11 5C 00 D5 0E 0F CD 65 ...*-....\.....e
0001C0: 72 E1 3C CD D4 72 5A 11 0F 79 01 24 00 ED B0 3A r.<..rZ..y.$...:
0001D0: 00 79 3D 28 0D 21 57 79 22 E4 7B 21 D7 79 3E 01 .y=(.!Wy".{!.y>.
0001E0: 18 21 2A 73 7B ED 5B E1 7B ED 53 E4 7B B7 ED 52 .!*s{.[.{.S.{..R
0001F0: CB 3C CB 1D 7C B7 CD D4 72 63 7D E6 80 6F E5 29 .<..|...rc}..o.)
Size : 512 (Real : 512)
000000: 1A 64 53 45 45 4B 45 4F 4C CE DA 64 46 49 4C 45 .dSEEKEOL..dFILE
000010: 53 49 5A C5 FA 64 46 49 4C 45 50 4F D3 F2 64 4B SIZ..dFILEPO..dK
000020: 45 59 50 52 45 53 53 45 C4 0C 64 4D 45 4D 41 56 EYPRESSE..dMEMAV
000030: 41 49 CC 14 65 4D 41 58 41 56 41 49 CC 19 65 50 AI..eMAXAVAI..eP
000040: 4F 52 D4 BF 65 53 54 41 43 4B 50 54 D2 CA 65 41 OR..eSTACKPT..eA
000050: 44 44 D2 76 65 53 49 5A 45 4F C6 9D 65 42 44 4F DD.veSIZEO..eBDO
000060: 53 48 CC 53 65 42 44 4F D3 54 65 42 49 4F 53 48 SH.SeBDO.TeBIOSH
000070: CC 1E 65 42 49 4F D3 1F 65 00 4D 45 CD 00 00 00 ..eBIO..e.ME....
000080: D2 78 5E 46 4C 55 53 C8 AB 59 45 58 45 43 55 54 .x^FLUS..YEXECUT
000090: C5 7E 59 43 48 41 49 CE 79 59 53 54 D2 BA 5C 56 .~YCHAI.yYST..\V
0000A0: 41 CC 22 5D 42 44 4F D3 53 65 42 49 4F D3 1E 65 A."]BDO.SeBIO..e
0000B0: 00 43 48 D2 25 64 4F 52 C4 11 64 43 4F 50 D9 60 .CH.%dOR..dCOP.`
0000C0: 64 4C 45 4E 47 54 C8 41 64 50 4F D3 52 64 43 4F dLENGT.AdPO.RdCO
0000D0: 4E 43 41 D4 81 64 53 55 43 C3 D4 63 50 52 45 C4 NCA..dSUC..cPRE.
0000E0: D7 63 55 50 43 41 53 C5 37 64 54 52 55 4E C3 BE .cUPCAS.7dTRUN..
0000F0: 63 52 4F 55 4E C4 C3 63 4F 44 C4 01 64 41 42 D3 cROUN..cOD..dAB.
000100: 71 63 53 51 D2 60 63 53 51 52 D4 85 63 53 49 CE qcSQ.`cSQR..cSI.
000110: 8A 63 43 4F D3 8F 63 41 52 43 54 41 CE 94 63 4C .cCO..cARCTA..cL
000120: CE 99 63 45 58 D0 9E 63 49 4E D4 A3 63 46 52 41 ..cEX..cIN..cFRA
000130: C3 A8 63 52 41 4E 44 4F CD AC 64 50 41 52 41 4D ..cRANDO..dPARAM
000140: 43 4F 55 4E D4 9C 64 50 41 52 41 4D 53 54 D2 A1 COUN..dPARAMST..
000150: 64 4C CF E1 63 48 C9 EB 63 53 57 41 D0 F6 63 50 dL..cH..cSWA..cP
000160: 54 D2 2B 64 49 4F 52 45 53 55 4C D4 C4 64 45 4F T.+dIORESUL..dEO
000170: C6 C9 64 45 4F 4C CE DF 64 53 45 45 4B 45 4F C6 ..dEOL..dSEEKEO.
000180: D5 64 53 45 45 4B 45 4F 4C CE DA 64 46 49 4C 45 .dSEEKEOL..dFILE
000190: 53 49 5A C5 FA 64 46 49 4C 45 50 4F D3 F2 64 4B SIZ..dFILEPO..dK
0001A0: 45 59 50 52 45 53 53 45 C4 0C 64 4D 45 4D 41 56 EYPRESSE..dMEMAV
0001B0: 41 49 CC 14 65 4D 41 58 41 56 41 49 CC 19 65 50 AI..eMAXAVAI..eP
0001C0: 4F 52 D4 BF 65 53 54 41 43 4B 50 54 D2 CA 65 41 OR..eSTACKPT..eA
0001D0: 44 44 D2 76 65 53 49 5A 45 4F C6 9D 65 42 44 4F DD.veSIZEO..eBDO
0001E0: 53 48 CC 53 65 42 44 4F D3 54 65 42 49 4F 53 48 SH.SeBDO.TeBIOSH
0001F0: CC 1E 65 42 49 4F D3 1F 65 00 4D 45 CD 00 00 00 ..eBIO..e.ME....
Size : 512 (Real : 512)
000000: 7C E1 19 22 E6 7B 22 E9 7B 32 E8 7B 32 0E 79 21 |..".{".{2.{2.y!
000010: 00 00 22 EB 7B 3A 9D 7B 32 9F 7B 3A C7 7B 32 C8 ..".{:.{2.{:.{2.
000020: 7B C3 48 70 DD 7E 00 DD 23 B7 C0 C5 D5 E5 3A A2 {.Hp.~..#.....:.
000030: 7B B7 CD DA 72 5B 2A D7 7B 22 D9 7B 2A EB 7B 22 {...r[*.{".{*.{"
000040: ED 7B 21 D7 79 E5 DD E1 06 7F E5 C5 CD F3 71 C1 .{!.y.........q.
000050: E1 FE 0D 28 20 FE 1A 28 11 FE 09 28 04 FE 20 38 ...( ..(...(.. 8
000060: E9 10 03 04 18 E4 77 23 18 E0 32 A2 7B CD 7E 71 ......w#..2.{.~q
000070: CD 8F 71 18 03 CD 7E 71 36 00 E1 D1 C1 C9 F5 E5 ..q...~q6.......
000080: 2A EF 7B 23 22 EF 7B 7D E6 0F 28 05 E1 F1 C9 F5 *.{#".{}..(.....
000090: E5 C5 D5 DD E5 FD E5 3E 0D CD C9 03 3A 0E 79 B7 .......>....:.y.
0000A0: 28 04 3E 49 18 02 3E 20 CD C9 03 3E 20 CD C9 03 (.>I..> ...> ...
0000B0: 2A EF 7B CD 61 2E CD A0 00 B7 28 2E CD 00 02 20 *.{.a.....(....
0000C0: 20 20 2A 2A 2A 20 41 62 6F 72 74 20 63 6F 6D 70 *** Abort comp
0000D0: 69 6C 61 74 69 6F 6E 00 CD 01 2D CD DA 72 CA 06 ilation...-..r..
0000E0: 20 CD 00 02 08 20 08 00 10 F7 FD E1 DD E1 D1 C1 .... ..........
0000F0: E1 F1 C9 3A 0E 79 B7 20 0C 2A D7 7B 7E FE 1A C8 ...:.y. .*.{~...
000100: 23 22 D7 7B C9 2A E9 7B ED 5B E6 7B B7 ED 52 19 #".{.*.{.[.{..R.
000110: 38 30 ED 5B E4 7B 3A E8 7B 47 C5 D5 0E 1A CD 65 80.[.{:.{G.....e
000120: 72 11 0F 79 0E 14 CD 65 72 D1 C1 B7 20 09 21 80 r..y...er... .!.
000130: 00 19 EB 10 E5 18 08 3E 1A 12 13 ED 53 E6 7B 2A .......>....S.{*
000140: E4 7B 7E 23 22 E9 7B FE 1A 20 12 AF 32 0E 79 3A .{~#".{.. ..2.y:
000150: 9F 7B 32 9D 7B 3A C8 7B 32 C7 7B 18 9C 2A EB 7B .{2.{:.{2.{..*.{
000160: 23 22 EB 7B C9 DD E5 FD E5 CD 05 00 FD E1 DD E1 #".{............
000170: C9 FE 41 D8 FE 5B 3F D0 FE 5F C8 FE 61 D8 FE 7B ..A..[?.._..a..{
000180: 3F C9 CD 71 72 D0 FE 30 D8 FE 3A 3F C9 7C AA 7C ?..qr..0..:?.|.|
000190: FA 98 72 BA C0 7D BB C9 17 C9 44 4D 21 00 00 3E ..r..}....DM!..>
0001A0: 10 29 D8 EB 29 EB 30 02 09 D8 3D 20 F4 C9 42 4B .)..).0...= ..BK
0001B0: EB AF 67 6F 3E 11 ED 6A ED 42 30 02 09 37 3F CB ..go>..j.B0..7?.
0001C0: 13 CB 12 3D 20 F0 EB C9 E3 23 E3 D0 18 10 E3 23 ...= ....#.....#
0001D0: E3 D8 18 0A E3 23 E3 C0 18 04 E3 23 E3 C8 E1 2B .....#.....#...+
0001E0: E5 E1 7E CD 8F 71 32 01 79 B7 28 20 DD E5 E1 11 ..~..q2.y.( ....
0001F0: D7 79 ED 52 ED 5B ED 7B 3A 0E 79 B7 20 0A ED 5B .y.R.[.{:.y. ..[
Size : 512 (Real : 512)
000000: 12 C9 3A 0A 11 FE 0D CA 1E 13 FE 27 C2 3C 12 CD ..:........'.<..
000010: AD 11 FE 27 C0 C3 3C 12 F5 3E 56 C3 24 13 F5 3E ...'..<..>V.$..>
000020: 4F C3 24 13 C5 E5 CD 18 02 E1 C1 F1 C9 F5 3A 85 O.$...........:.
000030: 01 FE 03 C4 9E 11 F1 C9 00 00 00 00 00 00 00 00 ................
000040: C3 A0 15 C3 5C 14 C3 9E 14 C3 98 14 C3 EB 14 C3 ....\...........
000050: 60 15 C3 72 15 C3 8D 15 C3 96 15 00 00 00 00 00 `..r............
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: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000110: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000120: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000130: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000140: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000150: 00 00 00 00 00 00 00 00 00 00 00 00 21 5B 13 06 ............![..
000160: 80 AF 77 23 77 23 05 C2 62 14 21 00 00 22 D6 01 ..w#w#..b.!.."..
000170: C9 21 88 01 46 AF 23 86 05 C2 76 14 E6 7F 32 5B .!..F.#...v...2[
000180: 14 C9 47 2A D6 01 23 23 7E E6 F0 B0 77 C9 2A D6 ..G*..##~...w.*.
000190: 01 23 23 7E E6 0F 3C C9 2A D6 01 7D B4 C9 CD 71 .##~..<.*..}...q
0001A0: 14 21 88 01 7E FE 11 DA AC 14 36 10 21 5B 14 5E .!..~.....6.![.^
0001B0: 16 00 21 5B 13 19 19 5E 23 66 6B 22 D6 01 CD 98 ..![...^#fk"....
0001C0: 14 C8 CD 8E 14 21 88 01 BE C2 E1 14 47 23 EB 2A .....!......G#.*
0001D0: D6 01 23 23 23 1A BE C2 E1 14 13 23 05 C2 D5 14 ..###......#....
0001E0: C9 2A D6 01 5E 23 56 EB C3 BB 14 21 88 01 5E 16 .*..^#V....!..^.
0001F0: 00 2A CB 01 22 D6 01 19 11 05 00 19 EB 2A CD 01 .*.."........*..
Size : 512 (Real : 512)
000000: 44 45 ED 52 ED 5B D9 7B 19 22 0C 79 3A 00 79 3D DE.R.[.{.".y:.y=
000010: 20 08 11 33 79 0E 10 CD 65 72 ED 7B 71 7B C9 0B ..3y...er.{q{..
000020: 00 DA 74 D2 45 47 45 54 4E 49 00 03 08 00 E2 74 ..t.EGETNI.....t
000030: D2 41 48 43 00 03 08 00 EA 74 CC 41 45 52 00 03 .AHC.....t.AER..
000040: 0B 00 F2 74 CE 41 45 4C 4F 4F 42 00 03 08 00 FA ...t.AELOOB.....
000050: 74 D4 58 45 54 00 03 08 00 02 75 C5 54 59 42 00 t.XET.....u.TYB.
000060: 03 09 00 01 00 0B C5 55 52 54 00 02 0A 00 00 00 .......URT......
000070: 0B C5 53 4C 41 46 00 02 0B 00 FF 7F 0A D4 4E 49 ..SLAF........NI
000080: 58 41 4D 00 02 0B 00 82 21 A2 DA 0F 49 09 C9 50 XAM.....!...I..P
000090: 00 02 0D 00 FA 74 C2 00 00 D4 55 50 54 55 4F 00 .....t....UPTUO.
0000A0: 04 0C 00 FA 74 C2 00 00 D4 55 50 4E 49 00 04 0A ....t....UPNI...
0000B0: 00 FA 74 B8 00 00 CE 4F 43 00 04 0A 00 FA 74 B8 ..t....OC.....t.
0000C0: 00 00 CD 52 54 00 04 0A 00 FA 74 BA 00 00 C4 42 ...RT.....t....B
0000D0: 4B 00 04 0A 00 FA 74 BC 00 00 D4 53 4C 00 04 0A K.....t....SL...
0000E0: 00 FA 74 BE 00 00 D8 55 41 00 04 0A 00 FA 74 C0 ..t....UA.....t.
0000F0: 00 00 D2 53 55 00 04 0D 00 02 75 D1 00 00 CE 45 ...SU.....u....E
000100: 4C 46 55 42 00 04 0E 00 DA 74 C4 00 00 D2 54 50 LFUB.....t....TP
000110: 50 41 45 48 00 04 0F 00 DA 74 C6 00 00 D2 54 50 PAEH.....t....TP
000120: 52 55 43 45 52 00 04 0F 00 DA 74 A1 00 00 D2 54 RUCER.....t....T
000130: 50 54 53 4E 4F 43 00 04 0F 00 DA 74 A4 00 00 D2 PTSNOC.....t....
000140: 54 50 4E 49 4E 4F 43 00 04 10 00 DA 74 A7 00 00 TPNINOC.....t...
000150: D2 54 50 54 55 4F 4E 4F 43 00 04 10 00 DA 74 AA .TPTUONOC.....t.
000160: 00 00 D2 54 50 54 55 4F 54 53 4C 00 04 0F 00 DA ...TPTUOTSL.....
000170: 74 B0 00 00 D2 54 50 4E 49 58 55 41 00 04 10 00 t....TPNIXUA....
000180: DA 74 AD 00 00 D2 54 50 54 55 4F 58 55 41 00 04 .t....TPTUOXUA..
000190: 0F 00 DA 74 B6 00 00 D2 54 50 4E 49 52 53 55 00 ...t....TPNIRSU.
0001A0: 04 10 00 DA 74 B3 00 00 D2 54 50 54 55 4F 52 53 ....t....TPTUORS
0001B0: 55 00 04 0F 00 DA 74 DA 00 00 D2 54 50 52 4F 52 U.....t....TPROR
0001C0: 52 45 00 04 0D 00 F2 74 DD 00 00 CB 41 45 52 42 RE.....t....AERB
0001D0: 43 00 04 00 02 7F FF 80 00 00 0A 00 01 00 FF 00 C...............
0001E0: 00 00 0C 00 06 00 00 00 00 00 09 00 01 00 01 00 ................
0001F0: 00 00 0B 00 B0 00 00 00 00 00 06 00 01 00 FF 00 ................
Size : 512 (Real : 512)
000000: 7B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D {---------------
000010: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000020: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000030: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000040: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 7D 0D 0A -------------}..
000050: 0D 0A 6F 76 65 72 6C 61 79 20 70 72 6F 63 65 64 ..overlay proced
000060: 75 72 65 20 69 6E 74 72 6F 3B 0D 0A 76 61 72 20 ure intro;..var
000070: 69 3A 69 6E 74 65 67 65 72 3B 0D 0A 62 65 67 69 i:integer;..begi
000080: 6E 0D 0A 20 20 53 65 74 48 65 61 64 65 72 4F 66 n.. SetHeaderOf
000090: 66 3B 0D 0A 20 20 44 65 66 69 6E 65 57 69 6E 64 f;.. DefineWind
0000A0: 6F 77 49 42 4D 28 31 2C 35 2C 34 30 2C 32 35 2C owIBM(1,5,40,25,
0000B0: 38 30 29 3B 0D 0A 20 20 44 65 66 69 6E 65 57 69 80);.. DefineWi
0000C0: 6E 64 6F 77 49 42 4D 28 32 2C 31 36 2C 35 35 2C ndowIBM(2,16,55,
0000D0: 34 33 2C 39 35 29 3B 0D 0A 20 20 44 65 66 69 6E 43,95);.. Defin
0000E0: 65 57 69 6E 64 6F 77 49 42 4D 28 34 2C 31 35 2C eWindowIBM(4,15,
0000F0: 36 30 2C 34 33 2C 31 33 35 29 3B 0D 0A 0D 0A 20 60,43,135);....
000100: 20 53 65 6C 65 63 74 57 69 6E 64 6F 77 28 31 29 SelectWindow(1)
000110: 3B 0D 0A 20 20 44 72 61 77 42 6F 72 64 65 72 3B ;.. DrawBorder;
000120: 0D 0A 20 20 53 65 6C 65 63 74 49 42 4D 3B 0D 0A .. SelectIBM;..
000130: 20 20 44 72 61 77 54 65 78 74 57 28 35 32 2C 35 DrawTextW(52,5
000140: 35 2C 35 2C 27 54 55 52 42 4F 27 29 3B 0D 0A 20 5,5,'TURBO');..
000150: 20 53 74 6F 72 65 57 69 6E 64 6F 77 28 31 29 3B StoreWindow(1);
000160: 0D 0A 20 20 64 65 6C 61 79 28 35 30 30 29 3B 0D .. delay(500);.
000170: 0A 0D 0A 20 20 53 65 6C 65 63 74 57 69 6E 64 6F ... SelectWindo
000180: 77 28 32 29 3B 0D 0A 20 20 53 65 74 42 61 63 6B w(2);.. SetBack
000190: 67 72 6F 75 6E 64 28 30 29 3B 0D 0A 20 20 44 72 ground(0);.. Dr
0001A0: 61 77 42 6F 72 64 65 72 3B 0D 0A 20 20 53 65 6C awBorder;.. Sel
0001B0: 65 63 74 49 42 4D 3B 0D 0A 20 20 44 72 61 77 54 ectIBM;.. DrawT
0001C0: 65 78 74 57 28 31 34 30 2C 37 30 2C 35 2C 27 47 extW(140,70,5,'G
0001D0: 52 41 50 48 49 58 27 29 3B 0D 0A 20 20 53 74 6F RAPHIX');.. Sto
0001E0: 72 65 57 69 6E 64 6F 77 28 32 29 3B 0D 0A 20 20 reWindow(2);..
0001F0: 64 65 6C 61 79 28 35 30 30 29 3B 0D 0A 0D 0A 20 delay(500);....
Size : 512 (Real : 512)
000000: 00 00 0A 00 09 00 00 00 00 00 08 00 00 00 00 00 ................
000010: 00 00 00 00 29 75 01 84 75 02 BB 75 01 F5 75 01 ....)u..u..u..u.
000020: 04 76 01 1D 76 01 34 76 FF 50 52 4F 47 52 41 CD .v..v.4v.PROGRA.
000030: 45 4E C4 46 4F 52 57 41 52 C4 45 58 54 45 52 4E EN.FORWAR.EXTERN
000040: 41 CC 50 41 43 4B 45 C4 41 52 52 41 D9 46 49 4C A.PACKE.ARRA.FIL
000050: C5 53 45 D4 52 45 43 4F 52 C4 53 54 52 49 4E C7 .SE.RECOR.STRIN.
000060: 4F C6 41 42 53 4F 4C 55 54 C5 54 48 45 CE 45 4C O.ABSOLUT.THE.EL
000070: 53 C5 44 CF 55 4E 54 49 CC 4E 4F D4 4E 49 CC 00 S.D.UNTI.NO.NI..
000080: 2E AE 3A BD 4C 41 42 45 CC 01 43 4F 4E 53 D4 02 ..:.LABE..CONS..
000090: 54 59 50 C5 03 56 41 D2 04 42 45 47 49 CE 08 4F TYP..VA..BEGI..O
0000A0: 56 45 52 4C 41 D9 07 50 52 4F 43 45 44 55 52 C5 VERLA..PROCEDUR.
0000B0: 05 46 55 4E 43 54 49 4F CE 06 00 42 45 47 49 CE .FUNCTIO...BEGI.
0000C0: 77 53 49 C6 EF 53 57 48 49 4C C5 24 54 52 45 50 wSI..SWHIL.$TREP
0000D0: 45 41 D4 4C 54 46 4F D2 6B 54 43 41 53 C5 21 55 EA.LTFO.kTCAS.!U
0000E0: 47 4F 54 CF 26 56 57 49 54 C8 4E 56 49 4E 4C 49 GOT.&VWIT.NVINLI
0000F0: 4E C5 98 56 00 54 CF 23 44 4F 57 4E 54 CF 2B 00 N..V.T.#DOWNT.+.
000100: AA 00 AF 01 41 4E C4 02 44 49 D6 03 4D 4F C4 04 ....AN..DI..MO..
000110: 53 48 CC 05 53 48 D2 06 00 AB 00 AD 01 4F D2 02 SH..SH.......O..
000120: 58 4F D2 03 00 BD 00 3C BE 08 3E BD 10 3C BD 18 XO.....<..>..<..
000130: BE 20 BC 28 49 CE FF 00 57 52 49 54 45 4C CE E7 . .(I...WRITEL..
000140: 5A 57 52 49 54 C5 E8 5A 52 45 41 44 4C CE 32 5A ZWRIT..ZREADL.2Z
000150: 52 45 41 C4 33 5A 44 45 4C 45 54 C5 66 5C 49 4E REA.3ZDELET.f\IN
000160: 53 45 52 D4 87 5C 41 53 53 49 47 CE 43 59 52 45 SER..\ASSIG.CYRE
000170: 53 45 D4 B9 59 52 45 57 52 49 54 C5 BE 59 43 4C SE..YREWRIT..YCL
000180: 4F 53 C5 DB 59 45 52 41 53 C5 71 59 52 45 4E 41 OS..YERAS.qYRENA
000190: 4D C5 66 59 53 45 45 CB 8C 59 47 45 54 4D 45 CD M.fYSEE..YGETME.
0001A0: 94 5D 4E 45 D7 9F 5D 46 52 45 45 4D 45 CD B4 5D .]NE..]FREEME..]
0001B0: 44 49 53 50 4F 53 C5 BF 5D 4D 41 52 CB D4 5D 52 DISPOS..]MAR..]R
0001C0: 45 4C 45 41 53 C5 D9 5D 4F 56 52 44 52 49 56 C5 ELEAS..]OVRDRIV.
0001D0: F9 5D 43 52 54 49 4E 49 D4 38 5E 43 52 54 45 58 .]CRTINI.8^CRTEX
0001E0: 49 D4 3D 5E 47 4F 54 4F 58 D9 6D 5D 43 4C 52 53 I.=^GOTOX.m]CLRS
0001F0: 43 D2 42 5E 43 4C 52 45 4F CC 48 5E 4E 4F 52 4D C.B^CLREO.H^NORM
Size : 512 (Real : 512)
000000: 20 66 6F 72 20 69 3A 3D 31 20 74 6F 20 34 20 64 for i:=1 to 4 d
000010: 6F 0D 0A 20 20 62 65 67 69 6E 0D 0A 20 20 20 20 o.. begin..
000020: 52 65 73 74 6F 72 65 57 69 6E 64 6F 77 28 31 2C RestoreWindow(1,
000030: 30 2C 30 29 3B 0D 0A 20 20 20 20 64 65 6C 61 79 0,0);.. delay
000040: 28 38 30 30 29 3B 0D 0A 20 20 20 20 52 65 73 74 (800);.. Rest
000050: 6F 72 65 57 69 6E 64 6F 77 28 32 2C 30 2C 30 29 oreWindow(2,0,0)
000060: 3B 0D 0A 20 20 20 20 64 65 6C 61 79 28 38 30 30 ;.. delay(800
000070: 29 3B 0D 0A 20 20 65 6E 64 3B 0D 0A 0D 0A 20 20 );.. end;....
000080: 66 6F 72 20 69 3A 3D 31 20 74 6F 20 38 20 64 6F for i:=1 to 8 do
000090: 0D 0A 20 20 62 65 67 69 6E 0D 0A 20 20 20 20 52 .. begin.. R
0000A0: 65 73 74 6F 72 65 57 69 6E 64 6F 77 28 31 2C 74 estoreWindow(1,t
0000B0: 72 75 6E 63 28 33 2A 69 2A 58 4D 61 78 47 6C 62 runc(3*i*XMaxGlb
0000C0: 2F 37 39 29 2C 74 72 75 6E 63 28 39 2A 69 2A 59 /79),trunc(9*i*Y
0000D0: 4D 61 78 47 6C 62 2F 31 39 39 29 29 3B 0D 0A 20 MaxGlb/199));..
0000E0: 20 20 20 64 65 6C 61 79 28 35 30 30 29 3B 0D 0A delay(500);..
0000F0: 20 20 20 20 52 65 73 74 6F 72 65 57 69 6E 64 6F RestoreWindo
000100: 77 28 32 2C 74 72 75 6E 63 28 33 2A 69 2A 58 4D w(2,trunc(3*i*XM
000110: 61 78 47 6C 62 2F 37 39 29 2C 74 72 75 6E 63 28 axGlb/79),trunc(
000120: 39 2A 69 2A 59 4D 61 78 47 6C 62 2F 31 39 39 29 9*i*YMaxGlb/199)
000130: 29 3B 0D 0A 20 20 20 20 64 65 6C 61 79 28 35 30 );.. delay(50
000140: 30 29 3B 0D 0A 20 20 65 6E 64 3B 0D 0A 0D 0A 20 0);.. end;....
000150: 20 64 65 6C 61 79 28 35 30 30 29 3B 0D 0A 0D 0A delay(500);....
000160: 20 20 53 65 6C 65 63 74 57 69 6E 64 6F 77 28 34 SelectWindow(4
000170: 29 3B 0D 0A 20 20 53 74 6F 72 65 57 69 6E 64 6F );.. StoreWindo
000180: 77 28 34 29 3B 0D 0A 20 20 53 65 74 42 61 63 6B w(4);.. SetBack
000190: 67 72 6F 75 6E 64 28 30 29 3B 0D 0A 20 20 44 72 ground(0);.. Dr
0001A0: 61 77 42 6F 72 64 65 72 3B 0D 0A 20 20 67 6F 74 awBorder;.. got
0001B0: 6F 78 79 28 31 38 2C 31 30 29 3B 0D 0A 20 20 77 oxy(18,10);.. w
0001C0: 72 69 74 65 6C 6E 28 27 47 52 41 50 48 49 43 53 riteln('GRAPHICS
0001D0: 20 50 4F 55 52 20 54 55 52 42 4F 20 50 41 53 43 POUR TURBO PASC
0001E0: 41 4C 27 29 3B 0D 0A 20 20 66 6F 72 20 69 3A 3D AL');.. for i:=
0001F0: 32 20 74 6F 20 34 30 20 64 6F 0D 0A 20 20 20 62 2 to 40 do.. b
Size : 512 (Real : 512)
000000: 56 49 44 45 CF 4D 5E 48 49 47 48 56 49 44 45 CF VIDE.M^HIGHVIDE.
000010: 4D 5E 4C 4F 57 56 49 44 45 CF 52 5E 49 4E 53 4C M^LOWVIDE.R^INSL
000020: 49 4E C5 57 5E 44 45 4C 4C 49 4E C5 5C 5E 44 45 IN.W^DELLIN.\^DE
000030: 4C 41 D9 89 5D 42 4C 4F 43 4B 52 45 41 C4 16 5C LA..]BLOCKREA..\
000040: 42 4C 4F 43 4B 57 52 49 54 C5 1E 5C 52 41 4E 44 BLOCKWRIT..\RAND
000050: 4F 4D 49 5A C5 83 5D 4D 4F 56 C5 05 5E 46 49 4C OMIZ..]MOV..^FIL
000060: 4C 43 48 41 D2 1A 5E 45 58 49 D4 61 5E 48 41 4C LCHA..^EXI.a^HAL
000070: D4 67 5E 50 4F 52 D4 6D 5E 53 54 41 43 4B 50 54 .g^POR.m^STACKPT
000080: D2 78 5E 46 4C 55 53 C8 AB 59 45 58 45 43 55 54 .x^FLUS..YEXECUT
000090: C5 7E 59 43 48 41 49 CE 79 59 53 54 D2 BA 5C 56 .~YCHAI.yYST..\V
0000A0: 41 CC 22 5D 42 44 4F D3 53 65 42 49 4F D3 1E 65 A."]BDO.SeBIO..e
0000B0: 00 43 48 D2 25 64 4F 52 C4 11 64 43 4F 50 D9 60 .CH.%dOR..dCOP.`
0000C0: 64 4C 45 4E 47 54 C8 41 64 50 4F D3 52 64 43 4F dLENGT.AdPO.RdCO
0000D0: 4E 43 41 D4 81 64 53 55 43 C3 D4 63 50 52 45 C4 NCA..dSUC..cPRE.
0000E0: D7 63 55 50 43 41 53 C5 37 64 54 52 55 4E C3 BE .cUPCAS.7dTRUN..
0000F0: 63 52 4F 55 4E C4 C3 63 4F 44 C4 01 64 41 42 D3 cROUN..cOD..dAB.
000100: 71 63 53 51 D2 60 63 53 51 52 D4 85 63 53 49 CE qcSQ.`cSQR..cSI.
000110: 8A 63 43 4F D3 8F 63 41 52 43 54 41 CE 94 63 4C .cCO..cARCTA..cL
000120: CE 99 63 45 58 D0 9E 63 49 4E D4 A3 63 46 52 41 ..cEX..cIN..cFRA
000130: C3 A8 63 52 41 4E 44 4F CD AC 64 50 41 52 41 4D ..cRANDO..dPARAM
000140: 43 4F 55 4E D4 9C 64 50 41 52 41 4D 53 54 D2 A1 COUN..dPARAMST..
000150: 64 4C CF E1 63 48 C9 EB 63 53 57 41 D0 F6 63 50 dL..cH..cSWA..cP
000160: 54 D2 2B 64 49 4F 52 45 53 55 4C D4 C4 64 45 4F T.+dIORESUL..dEO
000170: C6 C9 64 45 4F 4C CE DF 64 53 45 45 4B 45 4F C6 ..dEOL..dSEEKEO.
000180: D5 64 53 45 45 4B 45 4F 4C CE DA 64 46 49 4C 45 .dSEEKEOL..dFILE
000190: 53 49 5A C5 FA 64 46 49 4C 45 50 4F D3 F2 64 4B SIZ..dFILEPO..dK
0001A0: 45 59 50 52 45 53 53 45 C4 0C 64 4D 45 4D 41 56 EYPRESSE..dMEMAV
0001B0: 41 49 CC 14 65 4D 41 58 41 56 41 49 CC 19 65 50 AI..eMAXAVAI..eP
0001C0: 4F 52 D4 BF 65 53 54 41 43 4B 50 54 D2 CA 65 41 OR..eSTACKPT..eA
0001D0: 44 44 D2 76 65 53 49 5A 45 4F C6 9D 65 42 44 4F DD.veSIZEO..eBDO
0001E0: 53 48 CC 53 65 42 44 4F D3 54 65 42 49 4F 53 48 SH.SeBDO.TeBIOSH
0001F0: CC 1E 65 42 49 4F D3 1F 65 00 4D 45 CD 00 00 00 ..eBIO..e.ME....
Size : 512 (Real : 512)
000000: 65 67 69 6E 0D 0A 20 20 20 20 44 72 61 77 4C 69 egin.. DrawLi
000010: 6E 65 28 69 2A 38 2C 36 30 2C 36 33 39 2D 69 2A ne(i*8,60,639-i*
000020: 38 2C 31 39 30 29 3B 0D 0A 20 20 20 20 44 72 61 8,190);.. Dra
000030: 77 4C 69 6E 65 28 36 33 39 2D 69 2A 38 2C 36 30 wLine(639-i*8,60
000040: 2C 69 2A 38 2C 31 39 30 29 3B 0D 0A 20 20 20 65 ,i*8,190);.. e
000050: 6E 64 3B 0D 0A 20 20 64 65 6C 61 79 28 32 35 30 nd;.. delay(250
000060: 30 29 3B 0D 0A 0D 0A 20 20 52 65 73 74 6F 72 65 0);.... Restore
000070: 57 69 6E 64 6F 77 28 34 2C 30 2C 30 29 3B 0D 0A Window(4,0,0);..
000080: 0D 0A 20 20 49 6E 76 65 72 74 53 63 72 65 65 6E .. InvertScreen
000090: 3B 0D 0A 20 20 64 65 6C 61 79 28 35 30 30 30 29 ;.. delay(5000)
0000A0: 3B 0D 0A 7B 20 20 53 65 6C 65 63 74 53 63 72 65 ;..{ SelectScre
0000B0: 65 6E 28 32 29 3B 7D 0D 0A 20 20 43 6C 65 61 72 en(2);}.. Clear
0000C0: 53 63 72 65 65 6E 3B 0D 0A 20 20 49 6E 76 65 72 Screen;.. Inver
0000D0: 74 53 63 72 65 65 6E 3B 0D 0A 20 20 53 65 74 43 tScreen;.. SetC
0000E0: 6F 6C 6F 72 42 6C 61 63 6B 3B 0D 0A 20 20 53 65 olorBlack;.. Se
0000F0: 6C 65 63 74 49 42 4D 3B 0D 0A 20 20 44 72 61 77 lectIBM;.. Draw
000100: 54 65 78 74 57 28 34 30 2C 37 35 2C 33 2C 27 42 TextW(40,75,3,'B
000110: 59 27 29 3B 0D 0A 20 20 44 72 61 77 54 65 78 74 Y');.. DrawText
000120: 57 28 34 30 2C 31 34 30 2C 34 2C 27 42 4F 52 4C W(40,140,4,'BORL
000130: 41 4E 44 20 49 4E 54 45 52 4E 41 54 49 4F 4E 41 AND INTERNATIONA
000140: 4C 27 29 3B 0D 0A 0D 0A 20 20 43 6F 70 79 53 63 L');.... CopySc
000150: 72 65 65 6E 3B 0D 0A 0D 0A 7B 20 20 53 65 6C 65 reen;....{ Sele
000160: 63 74 53 63 72 65 65 6E 28 31 29 3B 20 7D 0D 0A ctScreen(1); }..
000170: 20 20 64 65 6C 61 79 28 35 30 30 30 29 3B 0D 0A delay(5000);..
000180: 20 20 44 65 66 69 6E 65 57 69 6E 64 6F 77 49 42 DefineWindowIB
000190: 4D 28 31 2C 31 2C 31 32 35 2C 33 35 2C 31 36 38 M(1,1,125,35,168
0001A0: 29 3B 0D 0A 20 20 53 74 6F 72 65 57 69 6E 64 6F );.. StoreWindo
0001B0: 77 28 31 29 3B 0D 0A 20 20 44 65 66 69 6E 65 57 w(1);.. DefineW
0001C0: 69 6E 64 6F 77 49 42 4D 28 32 2C 33 36 2C 31 32 indowIBM(2,36,12
0001D0: 35 2C 37 38 2C 31 36 38 29 3B 0D 0A 20 20 53 74 5,78,168);.. St
0001E0: 6F 72 65 57 69 6E 64 6F 77 28 32 29 3B 0D 0A 0D oreWindow(2);...
0001F0: 0A 20 20 66 6F 72 20 69 3A 3D 31 20 74 6F 20 74 . for i:=1 to t
Size : 512 (Real : 512)
000000: 30 29 3B 0D 0A 0D 0A 65 6E 64 3B 0D 0A 0D 0A 1A 0);....end;.....
000010: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000020: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000030: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000040: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000050: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000060: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000070: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000080: 65 6E 73 69 74 65 20 64 75 20 68 61 63 68 75 72 ensite du hachur
000090: 61 67 65 20 70 65 75 74 20 65 74 72 65 20 6D 6F age peut etre mo
0000A0: 64 69 66 69 65 65 20 3A 20 44 72 61 77 48 69 73 difiee : DrawHis
0000B0: 74 6F 67 72 61 6D 27 29 3B 0D 0A 20 20 53 65 6C togram');.. Sel
0000C0: 65 63 74 57 69 6E 64 6F 77 28 33 29 3B 0D 0A 20 ectWindow(3);..
0000D0: 20 53 65 74 42 61 63 6B 67 72 6F 75 6E 64 28 30 SetBackground(0
0000E0: 29 3B 0D 0A 20 20 44 72 61 77 42 6F 72 64 65 72 );.. DrawBorder
0000F0: 3B 0D 0A 20 20 78 44 72 61 77 48 69 73 74 6F 67 ;.. xDrawHistog
000100: 72 61 6D 28 61 2C 2D 6E 2C 74 72 75 65 2C 34 29 ram(a,-n,true,4)
000110: 3B 0D 0A 0D 0A 20 20 64 65 6C 61 79 28 31 35 30 ;.... delay(150
000120: 30 30 29 3B 0D 0A 0D 0A 20 20 6D 73 67 28 27 4C 00);.... msg('L
000130: 61 20 64 65 6E 73 69 74 65 20 64 65 73 20 61 78 a densite des ax
000140: 65 73 20 70 65 75 74 20 65 74 72 65 20 6D 6F 64 es peut etre mod
000150: 69 66 69 65 65 20 3A 20 44 72 61 77 41 78 69 73 ifiee : DrawAxis
000160: 20 2C 20 44 72 61 77 48 69 73 74 6F 67 72 61 6D , DrawHistogram
000170: 27 29 3B 0D 0A 20 20 53 65 6C 65 63 74 57 69 6E ');.. SelectWin
000180: 64 6F 77 28 34 29 3B 0D 0A 20 20 53 65 74 42 61 dow(4);.. SetBa
000190: 63 6B 67 72 6F 75 6E 64 28 30 29 3B 0D 0A 20 20 ckground(0);..
0001A0: 44 72 61 77 42 6F 72 64 65 72 3B 0D 0A 20 20 78 DrawBorder;.. x
0001B0: 44 72 61 77 41 78 69 73 28 37 2C 2D 37 2C 30 2C DrawAxis(7,-7,0,
0001C0: 30 2C 30 2C 30 2C 30 2C 30 2C 74 72 75 65 29 3B 0,0,0,0,0,true);
0001D0: 0D 0A 20 20 78 44 72 61 77 48 69 73 74 6F 67 72 .. xDrawHistogr
0001E0: 61 6D 28 61 2C 2D 6E 2C 74 72 75 65 2C 32 29 3B am(a,-n,true,2);
0001F0: 0D 0A 0D 0A 20 20 64 65 6C 61 79 28 31 35 30 30 .... delay(1500
Size : 512 (Real : 512)
000000: 72 75 6E 63 28 33 34 2A 58 4D 61 78 47 6C 62 2F runc(34*XMaxGlb/
000010: 37 39 29 20 64 6F 0D 0A 20 20 62 65 67 69 6E 0D 79) do.. begin.
000020: 0A 20 20 20 20 53 65 6C 65 63 74 57 69 6E 64 6F . SelectWindo
000030: 77 28 31 29 3B 0D 0A 20 20 20 20 4D 6F 76 65 48 w(1);.. MoveH
000040: 6F 72 28 31 2C 66 61 6C 73 65 29 3B 0D 0A 20 20 or(1,false);..
000050: 20 20 52 65 44 65 66 69 6E 65 57 69 6E 64 6F 77 ReDefineWindow
000060: 28 31 2C 58 31 52 65 66 47 6C 62 2C 59 31 52 65 (1,X1RefGlb,Y1Re
000070: 66 47 6C 62 2C 58 32 52 65 66 47 6C 62 2D 31 2C fGlb,X2RefGlb-1,
000080: 59 32 52 65 66 47 6C 62 29 3B 0D 0A 20 20 20 20 Y2RefGlb);..
000090: 53 65 6C 65 63 74 57 69 6E 64 6F 77 28 32 29 3B SelectWindow(2);
0000A0: 0D 0A 20 20 20 20 4D 6F 76 65 48 6F 72 28 2D 31 .. MoveHor(-1
0000B0: 2C 66 61 6C 73 65 29 3B 0D 0A 20 20 20 20 52 65 ,false);.. Re
0000C0: 44 65 66 69 6E 65 57 69 6E 64 6F 77 28 32 2C 58 DefineWindow(2,X
0000D0: 31 52 65 66 47 6C 62 2B 31 2C 59 31 52 65 66 47 1RefGlb+1,Y1RefG
0000E0: 6C 62 2C 58 32 52 65 66 47 6C 62 2C 59 32 52 65 lb,X2RefGlb,Y2Re
0000F0: 66 47 6C 62 29 3B 0D 0A 20 20 65 6E 64 3B 0D 0A fGlb);.. end;..
000100: 0D 0A 20 20 64 65 6C 61 79 28 31 30 30 30 29 3B .. delay(1000);
000110: 0D 0A 20 20 52 65 73 74 6F 72 65 57 69 6E 64 6F .. RestoreWindo
000120: 77 28 31 2C 30 2C 30 29 3B 0D 0A 20 20 52 65 73 w(1,0,0);.. Res
000130: 74 6F 72 65 57 69 6E 64 6F 77 28 32 2C 30 2C 30 toreWindow(2,0,0
000140: 29 3B 0D 0A 0D 0A 20 20 47 6F 74 6F 58 59 28 31 );.... GotoXY(1
000150: 2C 32 35 29 3B 0D 0A 20 20 43 6C 72 45 6F 6C 3B ,25);.. ClrEol;
000160: 0D 0A 20 20 47 6F 74 6F 58 59 28 31 37 2C 32 35 .. GotoXY(17,25
000170: 29 3B 0D 0A 20 20 57 72 69 74 65 28 27 43 6F 70 );.. Write('Cop
000180: 79 72 69 67 68 74 20 28 43 29 20 31 39 38 35 20 yright (C) 1985
000190: 42 6F 72 6C 61 6E 64 20 49 6E 74 65 72 6E 61 74 Borland Internat
0001A0: 69 6F 6E 61 6C 2C 20 49 6E 63 2E 27 29 3B 0D 0A ional, Inc.');..
0001B0: 20 20 64 65 6C 61 79 28 33 30 30 30 29 3B 0D 0A delay(3000);..
0001C0: 20 20 53 65 74 43 6F 6C 6F 72 57 68 69 74 65 3B SetColorWhite;
0001D0: 0D 0A 20 20 53 65 74 48 65 61 64 65 72 4F 6E 3B .. SetHeaderOn;
0001E0: 0D 0A 65 6E 64 3B 0D 0A 0D 0A 1A 1A 1A 1A 1A 1A ..end;..........
0001F0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
Size : 512 (Real : 512)
000000: 7B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D {---------------
000010: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000020: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000030: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000040: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 7D 0D 0A -------------}..
000050: 0D 0A 6F 76 65 72 6C 61 79 20 66 75 6E 63 74 69 ..overlay functi
000060: 6F 6E 20 6D 65 6E 75 63 68 6F 69 63 65 28 6F 6C on menuchoice(ol
000070: 64 63 68 6F 69 63 65 3A 69 6E 74 65 67 65 72 29 dchoice:integer)
000080: 3A 69 6E 74 65 67 65 72 3B 0D 0A 63 6F 6E 73 74 :integer;..const
000090: 20 70 72 6F 6D 70 74 3A 73 74 72 69 6E 67 5B 36 prompt:string[6
0000A0: 5D 3D 27 3D 3D 38 3E 20 20 20 27 3B 0D 0A 20 20 ]='==8> ';..
0000B0: 20 20 20 20 74 69 74 6C 65 3D 27 44 65 6D 6F 6D title='Demom
0000C0: 73 74 72 61 74 69 6F 6E 20 54 55 52 42 4F 20 47 stration TURBO G
0000D0: 52 41 50 48 49 58 20 54 4F 4F 4C 42 4F 58 27 3B RAPHIX TOOLBOX';
0000E0: 0D 0A 20 20 20 20 20 20 6E 3D 39 3B 0D 0A 20 20 .. n=9;..
0000F0: 20 20 20 20 6D 65 6E 75 69 74 65 6D 73 3A 61 72 menuitems:ar
000100: 72 61 79 20 5B 30 2E 2E 39 5D 20 6F 66 20 73 74 ray [0..9] of st
000110: 72 69 6E 67 5B 33 30 5D 3D 0D 0A 20 20 20 20 20 ring[30]=..
000120: 20 20 20 28 27 53 6F 72 74 69 72 20 64 65 20 6C ('Sortir de l
000130: 61 20 20 64 65 6D 6F 6E 73 74 72 61 74 69 6F 6E a demonstration
000140: 27 2C 0D 0A 20 20 20 20 20 20 20 20 20 27 55 74 ',.. 'Ut
000150: 69 6C 69 73 61 74 69 6F 6E 20 64 65 73 20 66 65 ilisation des fe
000160: 6E 65 74 72 65 27 2C 0D 0A 20 20 20 20 20 20 20 netre',..
000170: 20 20 27 53 69 6D 70 6C 65 73 20 63 6F 6D 6D 61 'Simples comma
000180: 6E 64 65 73 20 67 72 61 70 68 69 71 75 65 73 27 ndes graphiques'
000190: 2C 0D 0A 20 20 20 20 20 20 20 20 20 27 43 6F 75 ,.. 'Cou
0001A0: 72 62 65 73 20 64 65 20 53 69 65 72 70 69 6E 73 rbes de Sierpins
0001B0: 6B 69 20 27 2C 0D 0A 20 20 20 20 20 20 20 20 20 ki ',..
0001C0: 27 43 61 6D 65 6D 62 65 72 74 73 27 2C 0D 0A 20 'Camemberts',..
0001D0: 20 20 20 20 20 20 20 20 27 4C 69 73 73 61 67 65 'Lissage
0001E0: 27 2C 0D 0A 20 20 20 20 20 20 20 20 20 27 50 6F ',.. 'Po
0001F0: 6C 79 67 6F 6E 65 73 27 2C 0D 0A 20 20 20 20 20 lygones',..
Size : 512 (Real : 512)
000000: 76 61 72 20 69 2C 6E 3A 69 6E 74 65 67 65 72 3B var i,n:integer;
000010: 0D 0A 20 20 20 20 61 3A 50 6C 6F 74 41 72 72 61 .. a:PlotArra
000020: 79 3B 0D 0A 20 20 20 20 72 2C 74 65 6D 70 3A 72 y;.. r,temp:r
000030: 65 61 6C 3B 0D 0A 0D 0A 62 65 67 69 6E 0D 0A 20 eal;....begin..
000040: 20 67 6F 74 6F 78 79 28 35 30 2C 32 35 29 3B 0D gotoxy(50,25);.
000050: 0A 20 20 77 72 69 74 65 28 27 55 6E 20 20 6D 6F . write('Un mo
000060: 6D 65 6E 74 20 2E 2E 2E 2E 27 29 3B 0D 0A 20 20 ment ....');..
000070: 6E 3A 3D 35 30 3B 0D 0A 20 20 72 3A 3D 61 62 73 n:=50;.. r:=abs
000080: 28 6E 2F 32 29 3B 0D 0A 20 20 66 6F 72 20 69 3A (n/2);.. for i:
000090: 3D 30 20 74 6F 20 61 62 73 28 6E 2D 31 29 20 64 =0 to abs(n-1) d
0000A0: 6F 0D 0A 20 20 20 20 62 65 67 69 6E 3B 0D 0A 20 o.. begin;..
0000B0: 20 20 20 20 20 61 5B 69 2B 31 2C 31 5D 3A 3D 69 a[i+1,1]:=i
0000C0: 2D 72 3B 0D 0A 20 20 20 20 20 20 61 5B 69 2B 31 -r;.. a[i+1
0000D0: 2C 32 5D 3A 3D 73 69 6E 28 61 5B 69 2B 31 2C 31 ,2]:=sin(a[i+1,1
0000E0: 5D 2F 31 30 29 2A 65 78 70 28 2D 61 62 73 28 61 ]/10)*exp(-abs(a
0000F0: 5B 69 2B 31 2C 31 5D 29 2A 30 2E 30 31 29 2B 72 [i+1,1])*0.01)+r
000100: 61 6E 64 6F 6D 2A 30 2E 31 3B 0D 0A 20 20 20 20 andom*0.1;..
000110: 65 6E 64 3B 0D 0A 20 20 43 6C 65 61 72 53 63 72 end;.. ClearScr
000120: 65 65 6E 3B 0D 0A 20 20 53 65 74 43 6F 6C 6F 72 een;.. SetColor
000130: 57 68 69 74 65 3B 0D 0A 0D 0A 20 20 44 65 66 69 White;.... Defi
000140: 6E 65 57 69 6E 64 6F 77 49 42 4D 28 31 2C 30 2C neWindowIBM(1,0,
000150: 30 2C 37 39 2C 31 38 35 29 3B 0D 0A 20 20 44 65 0,79,185);.. De
000160: 66 69 6E 65 57 69 6E 64 6F 77 49 42 4D 28 32 2C fineWindowIBM(2,
000170: 32 30 2C 32 30 2C 37 35 2C 31 37 35 29 3B 0D 0A 20,20,75,175);..
000180: 20 20 44 65 66 69 6E 65 57 69 6E 64 6F 77 49 42 DefineWindowIB
000190: 4D 28 33 2C 35 2C 33 35 2C 36 30 2C 31 37 30 29 M(3,5,35,60,170)
0001A0: 3B 0D 0A 20 20 44 65 66 69 6E 65 57 69 6E 64 6F ;.. DefineWindo
0001B0: 77 49 42 4D 28 34 2C 31 30 2C 35 30 2C 35 35 2C wIBM(4,10,50,55,
0001C0: 31 36 35 29 3B 0D 0A 0D 0A 20 20 44 65 66 69 6E 165);.... Defin
0001D0: 65 48 65 61 64 65 72 28 31 2C 27 55 6E 20 68 69 eHeader(1,'Un hi
0001E0: 73 74 6F 67 72 61 6D 6D 65 20 65 6E 20 6D 6F 64 stogramme en mod
0001F0: 65 20 76 61 6C 65 75 72 20 61 62 73 6F 6C 75 65 e valeur absolue
Size : 512 (Real : 512)
000000: 20 20 20 20 27 48 69 73 74 6F 67 72 61 6D 6D 65 'Histogramme
000010: 27 2C 0D 0A 20 20 20 20 20 20 20 20 20 27 41 70 ',.. 'Ap
000020: 70 6C 69 63 61 74 69 6F 6E 3A 20 55 6E 20 6F 72 plication: Un or
000030: 67 61 6E 69 67 72 61 6D 6D 65 27 2C 0D 0A 20 20 ganigramme',..
000040: 20 20 20 20 20 20 20 27 54 72 61 63 65 27 29 3B 'Trace');
000050: 0D 0A 0D 0A 76 61 72 20 78 2C 79 2C 69 2C 6A 3A ....var x,y,i,j:
000060: 69 6E 74 65 67 65 72 3B 0D 0A 20 20 20 20 63 68 integer;.. ch
000070: 3A 63 68 61 72 3B 0D 0A 20 20 20 20 71 75 69 74 :char;.. quit
000080: 3A 62 6F 6F 6C 65 61 6E 3B 0D 0A 62 65 67 69 6E :boolean;..begin
000090: 0D 0A 20 20 63 68 3A 3D 27 20 27 3B 0D 0A 20 20 .. ch:=' ';..
0000A0: 71 75 69 74 3A 3D 66 61 6C 73 65 3B 0D 0A 20 20 quit:=false;..
0000B0: 6F 6C 64 63 68 6F 69 63 65 3A 3D 6F 6C 64 63 68 oldchoice:=oldch
0000C0: 6F 69 63 65 2B 31 3B 0D 0A 20 20 69 66 20 6F 6C oice+1;.. if ol
0000D0: 64 63 68 6F 69 63 65 3E 6E 20 74 68 65 6E 20 6F dchoice>n then o
0000E0: 6C 64 63 68 6F 69 63 65 3A 3D 31 3B 0D 0A 20 20 ldchoice:=1;..
0000F0: 78 3A 3D 34 30 2D 6C 65 6E 67 74 68 28 74 69 74 x:=40-length(tit
000100: 6C 65 29 20 64 69 76 20 32 3B 0D 0A 20 20 67 6F le) div 2;.. go
000110: 74 6F 78 79 28 78 2C 31 29 3B 0D 0A 20 20 77 72 toxy(x,1);.. wr
000120: 69 74 65 28 74 69 74 6C 65 29 3B 0D 0A 20 20 67 ite(title);.. g
000130: 6F 74 6F 78 79 28 31 2C 32 35 29 3B 0D 0A 20 20 otoxy(1,25);..
000140: 77 72 69 74 65 28 27 45 53 50 41 43 45 20 2F 20 write('ESPACE /
000150: 42 41 43 4B 53 50 41 43 45 20 6F 75 20 75 6E 20 BACKSPACE ou un
000160: 6E 6F 6D 62 72 65 2C 74 61 70 65 7A 20 73 75 72 nombre,tapez sur
000170: 20 20 52 45 54 55 52 4E 27 29 3B 0D 0A 20 20 79 RETURN');.. y
000180: 3A 3D 38 2D 6E 20 64 69 76 20 32 3B 0D 0A 20 20 :=8-n div 2;..
000190: 78 3A 3D 32 30 3B 0D 0A 20 20 66 6F 72 20 69 3A x:=20;.. for i:
0001A0: 3D 30 20 74 6F 20 6E 20 64 6F 0D 0A 20 20 20 20 =0 to n do..
0001B0: 62 65 67 69 6E 0D 0A 20 20 20 20 20 20 67 6F 74 begin.. got
0001C0: 6F 78 79 28 78 2D 34 2C 79 2B 69 2A 32 29 3B 0D oxy(x-4,y+i*2);.
0001D0: 0A 20 20 20 20 20 20 77 72 69 74 65 28 69 3A 31 . write(i:1
0001E0: 2C 27 20 2D 2D 20 27 2C 6D 65 6E 75 69 74 65 6D ,' -- ',menuitem
0001F0: 73 5B 69 5D 29 3B 0D 0A 20 20 20 20 65 6E 64 3B s[i]);.. end;
Size : 512 (Real : 512)
000000: 20 76 61 6C 75 65 20 27 29 3B 0D 0A 20 20 44 65 value ');.. De
000010: 66 69 6E 65 48 65 61 64 65 72 28 32 2C 27 55 6E fineHeader(2,'Un
000020: 20 68 69 73 74 6F 67 72 61 6D 6D 65 20 65 6E 20 histogramme en
000030: 6D 6F 64 65 20 6E 6F 72 6D 61 6C 27 29 3B 0D 0A mode normal');..
000040: 20 20 44 65 66 69 6E 65 48 65 61 64 65 72 28 33 DefineHeader(3
000050: 2C 27 55 6E 20 68 69 73 74 6F 67 72 61 6D 6D 65 ,'Un histogramme
000060: 20 65 6E 20 6D 6F 64 65 20 6E 6F 72 6D 61 6C 20 en mode normal
000070: 61 76 65 63 20 68 61 63 68 75 72 61 67 65 27 29 avec hachurage')
000080: 3B 0D 0A 20 20 44 65 66 69 6E 65 48 65 61 64 65 ;.. DefineHeade
000090: 72 28 34 2C 27 55 6E 20 68 69 73 74 6F 67 72 61 r(4,'Un histogra
0000A0: 6D 6D 65 20 61 76 65 63 20 61 78 65 73 27 29 3B mme avec axes');
0000B0: 0D 0A 0D 0A 20 20 6D 73 67 28 27 41 66 66 69 63 .... msg('Affic
0000C0: 68 61 67 65 20 64 65 73 20 74 6F 74 61 75 78 20 hage des totaux
0000D0: 20 3A 20 44 72 61 77 48 69 73 74 6F 67 72 61 6D : DrawHistogram
0000E0: 27 29 3B 0D 0A 20 20 46 69 6E 64 57 6F 72 6C 64 ');.. FindWorld
0000F0: 28 31 2C 61 2C 6E 2C 31 2E 31 2C 31 2E 31 29 3B (1,a,n,1.1,1.1);
000100: 0D 0A 20 20 77 69 74 68 20 77 6F 72 6C 64 5B 31 .. with world[1
000110: 5D 20 64 6F 0D 0A 20 20 20 62 65 67 69 6E 0D 0A ] do.. begin..
000120: 20 20 20 20 74 65 6D 70 3A 3D 79 31 3B 0D 0A 20 temp:=y1;..
000130: 20 20 20 79 31 3A 3D 79 32 3B 0D 0A 20 20 20 20 y1:=y2;..
000140: 79 32 3A 3D 74 65 6D 70 3B 0D 0A 20 20 20 65 6E y2:=temp;.. en
000150: 64 3B 0D 0A 20 20 53 65 6C 65 63 74 57 6F 72 6C d;.. SelectWorl
000160: 64 28 31 29 3B 0D 0A 20 20 53 65 6C 65 63 74 57 d(1);.. SelectW
000170: 69 6E 64 6F 77 28 31 29 3B 0D 0A 20 20 44 72 61 indow(1);.. Dra
000180: 77 42 6F 72 64 65 72 3B 0D 0A 20 20 78 44 72 61 wBorder;.. xDra
000190: 77 48 69 73 74 6F 67 72 61 6D 28 61 2C 6E 2C 66 wHistogram(a,n,f
0001A0: 61 6C 73 65 2C 35 29 3B 0D 0A 0D 0A 20 20 64 65 alse,5);.... de
0001B0: 6C 61 79 28 31 35 30 30 30 29 3B 0D 0A 0D 0A 20 lay(15000);....
0001C0: 20 6D 73 67 28 27 41 66 66 69 63 68 61 67 65 20 msg('Affichage
0001D0: 64 65 73 20 76 61 6C 65 75 72 73 20 70 6F 73 69 des valeurs posi
0001E0: 74 69 76 65 73 20 65 74 20 6E 65 67 61 74 69 76 tives et negativ
0001F0: 65 73 20 3A 20 44 72 61 77 48 69 73 74 6F 67 72 es : DrawHistogr
Size : 512 (Real : 512)
000000: 0D 0A 20 20 69 3A 3D 6F 6C 64 63 68 6F 69 63 65 .. i:=oldchoice
000010: 3B 0D 0A 20 20 67 6F 74 6F 78 79 28 78 2D 31 30 ;.. gotoxy(x-10
000020: 2C 79 2B 69 2A 32 29 3B 0D 0A 20 20 77 72 69 74 ,y+i*2);.. writ
000030: 65 28 70 72 6F 6D 70 74 2C 69 3A 31 2C 27 20 2D e(prompt,i:1,' -
000040: 2D 20 27 2C 6D 65 6E 75 69 74 65 6D 73 5B 69 5D - ',menuitems[i]
000050: 29 3B 0D 0A 20 20 67 6F 74 6F 78 79 28 36 32 2C );.. gotoxy(62,
000060: 79 2B 69 2A 32 29 3B 0D 0A 20 20 77 72 69 74 65 y+i*2);.. write
000070: 28 27 3C 3D 3D 27 29 3B 0D 0A 20 20 6A 3A 3D 30 ('<==');.. j:=0
000080: 3B 0D 0A 20 20 77 68 69 6C 65 20 63 68 3C 3E 5E ;.. while ch<>^
000090: 4D 20 64 6F 0D 0A 20 20 20 20 62 65 67 69 6E 0D M do.. begin.
0000A0: 0A 20 20 20 20 20 20 63 68 3A 3D 27 2E 27 3B 0D . ch:='.';.
0000B0: 0A 20 20 20 20 20 20 69 66 20 6B 65 79 70 72 65 . if keypre
0000C0: 73 73 65 64 20 74 68 65 6E 0D 0A 20 20 20 20 20 ssed then..
0000D0: 20 20 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 20 begin..
0000E0: 20 20 20 20 72 65 61 64 28 6B 62 64 2C 63 68 29 read(kbd,ch)
0000F0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 6A 3A 3D ;.. j:=
000100: 30 3B 0D 0A 20 20 20 20 20 20 20 20 65 6E 64 3B 0;.. end;
000110: 0D 0A 20 20 20 20 20 20 69 66 20 63 68 3D 5E 48 .. if ch=^H
000120: 20 74 68 65 6E 0D 0A 20 20 20 20 20 20 20 20 62 then.. b
000130: 65 67 69 6E 0D 0A 20 20 20 20 20 20 20 20 20 20 egin..
000140: 67 6F 74 6F 78 79 28 78 2D 31 30 2C 79 2B 69 2A gotoxy(x-10,y+i*
000150: 32 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 77 2);.. w
000160: 72 69 74 65 28 27 20 20 20 20 20 20 27 29 3B 0D rite(' ');.
000170: 0A 20 20 20 20 20 20 20 20 20 20 67 6F 74 6F 78 . gotox
000180: 79 28 36 32 2C 79 2B 69 2A 32 29 3B 0D 0A 20 20 y(62,y+i*2);..
000190: 20 20 20 20 20 20 20 20 77 72 69 74 65 28 27 20 write('
0001A0: 20 20 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 ');..
0001B0: 20 69 3A 3D 69 2D 31 3B 0D 0A 20 20 20 20 20 20 i:=i-1;..
0001C0: 20 20 20 20 69 66 20 69 3D 2D 31 20 74 68 65 6E if i=-1 then
0001D0: 20 69 3A 3D 6E 3B 0D 0A 20 20 20 20 20 20 20 20 i:=n;..
0001E0: 20 20 67 6F 74 6F 78 79 28 78 2D 31 30 2C 79 2B gotoxy(x-10,y+
0001F0: 69 2A 32 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 i*2);..
Size : 512 (Real : 512)
000000: 61 6D 27 29 3B 0D 0A 20 20 53 65 6C 65 63 74 57 am');.. SelectW
000010: 69 6E 64 6F 77 28 32 29 3B 0D 0A 20 20 53 65 74 indow(2);.. Set
000020: 42 61 63 6B 67 72 6F 75 6E 64 28 30 29 3B 0D 0A Background(0);..
000030: 20 20 44 72 61 77 42 6F 72 64 65 72 3B 0D 0A 20 DrawBorder;..
000040: 20 78 44 72 61 77 48 69 73 74 6F 67 72 61 6D 28 xDrawHistogram(
000050: 61 2C 2D 6E 2C 66 61 6C 73 65 2C 35 29 3B 0D 0A a,-n,false,5);..
000060: 0D 0A 20 20 64 65 6C 61 79 28 31 35 30 30 30 29 .. delay(15000)
000070: 3B 0D 0A 0D 0A 20 20 6D 73 67 28 27 4C 61 20 64 ;.... msg('La d
000080: 65 6E 73 69 74 65 20 64 75 20 68 61 63 68 75 72 ensite du hachur
000090: 61 67 65 20 70 65 75 74 20 65 74 72 65 20 6D 6F age peut etre mo
0000A0: 64 69 66 69 65 65 20 3A 20 44 72 61 77 48 69 73 difiee : DrawHis
0000B0: 74 6F 67 72 61 6D 27 29 3B 0D 0A 20 20 53 65 6C togram');.. Sel
0000C0: 65 63 74 57 69 6E 64 6F 77 28 33 29 3B 0D 0A 20 ectWindow(3);..
0000D0: 20 53 65 74 42 61 63 6B 67 72 6F 75 6E 64 28 30 SetBackground(0
0000E0: 29 3B 0D 0A 20 20 44 72 61 77 42 6F 72 64 65 72 );.. DrawBorder
0000F0: 3B 0D 0A 20 20 78 44 72 61 77 48 69 73 74 6F 67 ;.. xDrawHistog
000100: 72 61 6D 28 61 2C 2D 6E 2C 74 72 75 65 2C 34 29 ram(a,-n,true,4)
000110: 3B 0D 0A 0D 0A 20 20 64 65 6C 61 79 28 31 35 30 ;.... delay(150
000120: 30 30 29 3B 0D 0A 0D 0A 20 20 6D 73 67 28 27 4C 00);.... msg('L
000130: 61 20 64 65 6E 73 69 74 65 20 64 65 73 20 61 78 a densite des ax
000140: 65 73 20 70 65 75 74 20 65 74 72 65 20 6D 6F 64 es peut etre mod
000150: 69 66 69 65 65 20 3A 20 44 72 61 77 41 78 69 73 ifiee : DrawAxis
000160: 20 2C 20 44 72 61 77 48 69 73 74 6F 67 72 61 6D , DrawHistogram
000170: 27 29 3B 0D 0A 20 20 53 65 6C 65 63 74 57 69 6E ');.. SelectWin
000180: 64 6F 77 28 34 29 3B 0D 0A 20 20 53 65 74 42 61 dow(4);.. SetBa
000190: 63 6B 67 72 6F 75 6E 64 28 30 29 3B 0D 0A 20 20 ckground(0);..
0001A0: 44 72 61 77 42 6F 72 64 65 72 3B 0D 0A 20 20 78 DrawBorder;.. x
0001B0: 44 72 61 77 41 78 69 73 28 37 2C 2D 37 2C 30 2C DrawAxis(7,-7,0,
0001C0: 30 2C 30 2C 30 2C 30 2C 30 2C 74 72 75 65 29 3B 0,0,0,0,0,true);
0001D0: 0D 0A 20 20 78 44 72 61 77 48 69 73 74 6F 67 72 .. xDrawHistogr
0001E0: 61 6D 28 61 2C 2D 6E 2C 74 72 75 65 2C 32 29 3B am(a,-n,true,2);
0001F0: 0D 0A 0D 0A 20 20 64 65 6C 61 79 28 31 35 30 30 .... delay(1500
Size : 512 (Real : 512)
000000: 20 77 72 69 74 65 28 70 72 6F 6D 70 74 2C 69 3A write(prompt,i:
000010: 31 2C 27 20 2D 2D 20 27 2C 6D 65 6E 75 69 74 65 1,' -- ',menuite
000020: 6D 73 5B 69 5D 29 3B 0D 0A 20 20 20 20 20 20 20 ms[i]);..
000030: 20 20 20 67 6F 74 6F 78 79 28 36 32 2C 79 2B 69 gotoxy(62,y+i
000040: 2A 32 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 *2);..
000050: 77 72 69 74 65 28 27 3C 3D 3D 27 29 3B 0D 0A 20 write('<==');..
000060: 20 20 20 20 20 20 20 65 6E 64 3B 0D 0A 20 20 20 end;..
000070: 20 20 20 69 66 20 63 68 3D 27 20 27 20 74 68 65 if ch=' ' the
000080: 6E 0D 0A 20 20 20 20 20 20 20 20 62 65 67 69 6E n.. begin
000090: 0D 0A 20 20 20 20 20 20 20 20 20 20 67 6F 74 6F .. goto
0000A0: 78 79 28 78 2D 31 30 2C 79 2B 69 2A 32 29 3B 0D xy(x-10,y+i*2);.
0000B0: 0A 20 20 20 20 20 20 20 20 20 20 77 72 69 74 65 . write
0000C0: 28 27 20 20 20 20 20 20 27 29 3B 0D 0A 20 20 20 (' ');..
0000D0: 20 20 20 20 20 20 20 67 6F 74 6F 78 79 28 36 32 gotoxy(62
0000E0: 2C 79 2B 69 2A 32 29 3B 0D 0A 20 20 20 20 20 20 ,y+i*2);..
0000F0: 20 20 20 20 77 72 69 74 65 28 27 20 20 20 27 29 write(' ')
000100: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 69 3A 3D ;.. i:=
000110: 69 2B 31 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 i+1;..
000120: 69 66 20 69 3E 6E 20 74 68 65 6E 20 69 3A 3D 30 if i>n then i:=0
000130: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 67 6F 74 ;.. got
000140: 6F 78 79 28 78 2D 31 30 2C 79 2B 69 2A 32 29 3B oxy(x-10,y+i*2);
000150: 0D 0A 20 20 20 20 20 20 20 20 20 20 77 72 69 74 .. writ
000160: 65 28 70 72 6F 6D 70 74 2C 69 3A 31 2C 27 20 2D e(prompt,i:1,' -
000170: 2D 20 27 2C 6D 65 6E 75 69 74 65 6D 73 5B 69 5D - ',menuitems[i]
000180: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 67 6F );.. go
000190: 74 6F 78 79 28 36 32 2C 79 2B 69 2A 32 29 3B 0D toxy(62,y+i*2);.
0001A0: 0A 20 20 20 20 20 20 20 20 20 20 77 72 69 74 65 . write
0001B0: 28 27 3C 3D 3D 27 29 3B 0D 0A 20 20 20 20 20 20 ('<==');..
0001C0: 20 20 65 6E 64 3B 0D 0A 20 20 20 20 20 20 69 66 end;.. if
0001D0: 20 28 6F 72 64 28 63 68 29 2D 34 38 20 69 6E 20 (ord(ch)-48 in
0001E0: 5B 30 2E 2E 6E 5D 29 20 61 6E 64 20 28 6F 72 64 [0..n]) and (ord
0001F0: 28 63 68 29 2D 34 38 3C 3E 69 29 20 74 68 65 6E (ch)-48<>i) then
Size : 512 (Real : 512)
000000: 65 20 61 20 6C 27 69 6E 74 65 72 69 65 75 72 20 e a l'interieur
000010: 61 76 65 63 20 47 52 41 50 48 49 58 2E 20 20 20 avec GRAPHIX.
000020: 27 29 3B 0D 0A 20 20 67 6F 74 6F 78 79 28 38 2C ');.. gotoxy(8,
000030: 39 29 3B 57 72 69 74 65 53 6C 6F 77 20 28 27 66 9);WriteSlow ('f
000040: 65 6E 65 74 72 65 20 65 73 74 20 75 6E 65 20 70 enetre est une p
000050: 61 72 74 69 65 20 64 65 20 6C 27 27 65 63 72 61 artie de l''ecra
000060: 6E 2E 20 20 20 20 20 20 27 29 3B 0D 0A 20 20 67 n. ');.. g
000070: 6F 74 6F 78 79 28 38 2C 31 30 29 3B 57 72 69 74 otoxy(8,10);Writ
000080: 65 53 6C 6F 77 28 27 50 6F 75 72 20 6C 65 73 20 eSlow('Pour les
000090: 61 75 74 72 65 73 20 63 6F 6D 6D 61 6E 64 65 73 autres commandes
0000A0: 20 72 65 66 65 72 65 7A 20 76 6F 75 73 20 61 20 referez vous a
0000B0: 27 29 3B 0D 0A 20 20 67 6F 74 6F 78 79 28 38 2C ');.. gotoxy(8,
0000C0: 31 31 29 3B 57 72 69 74 65 53 6C 6F 77 28 27 63 11);WriteSlow('c
0000D0: 65 6C 6C 65 2D 63 69 2E 4C 65 73 20 70 61 72 74 elle-ci.Les part
0000E0: 69 65 73 20 64 75 20 64 69 61 67 72 61 6D 6D 65 ies du diagramme
0000F0: 20 71 75 69 20 73 6F 6E 74 27 29 3B 0D 0A 20 20 qui sont');..
000100: 67 6F 74 6F 78 79 28 38 2C 31 32 29 3B 57 72 69 gotoxy(8,12);Wri
000110: 74 65 53 6C 6F 77 28 27 68 6F 72 73 20 64 65 20 teSlow('hors de
000120: 6C 61 20 66 65 6E 65 74 72 65 20 6E 65 20 73 6F la fenetre ne so
000130: 6E 74 20 70 61 73 20 64 65 73 73 69 6E 65 65 73 nt pas dessinees
000140: 20 27 29 3B 0D 0A 20 20 67 6F 74 6F 78 79 28 38 ');.. gotoxy(8
000150: 2C 31 33 29 3B 57 72 69 74 65 53 6C 6F 77 28 27 ,13);WriteSlow('
000160: 6C 27 27 65 63 68 65 6C 6C 65 20 64 27 27 75 6E l''echelle d''un
000170: 20 64 69 61 67 72 61 6D 6D 65 20 65 73 74 20 61 diagramme est a
000180: 75 73 73 69 20 66 61 69 74 65 27 29 3B 0D 0A 20 ussi faite');..
000190: 20 67 6F 74 6F 78 79 28 38 2C 31 34 29 3B 57 72 gotoxy(8,14);Wr
0001A0: 69 74 65 53 6C 6F 77 28 27 70 61 72 20 47 52 41 iteSlow('par GRA
0001B0: 50 48 49 58 2C 20 76 6F 75 73 20 70 65 72 6D 65 PHIX, vous perme
0001C0: 74 74 61 6E 74 20 64 65 20 64 65 73 73 69 6E 65 ttant de dessine
0001D0: 20 20 27 29 3B 0D 0A 20 20 67 6F 74 6F 78 79 28 ');.. gotoxy(
0001E0: 31 39 2C 31 36 29 3B 0D 0A 20 20 53 74 6F 72 65 19,16);.. Store
0001F0: 57 69 6E 64 6F 77 28 32 29 3B 0D 0A 20 20 77 61 Window(2);.. wa
Size : 512 (Real : 512)
000000: 0D 0A 20 20 20 20 20 20 20 20 62 65 67 69 6E 0D .. begin.
000010: 0A 20 20 20 20 20 20 20 20 20 20 67 6F 74 6F 78 . gotox
000020: 79 28 78 2D 31 30 2C 79 2B 69 2A 32 29 3B 0D 0A y(x-10,y+i*2);..
000030: 20 20 20 20 20 20 20 20 20 20 77 72 69 74 65 28 write(
000040: 27 20 20 20 20 20 20 27 29 3B 0D 0A 20 20 20 20 ' ');..
000050: 20 20 20 20 20 20 67 6F 74 6F 78 79 28 36 32 2C gotoxy(62,
000060: 79 2B 69 2A 32 29 3B 0D 0A 20 20 20 20 20 20 20 y+i*2);..
000070: 20 20 20 77 72 69 74 65 28 27 20 20 20 27 29 3B write(' ');
000080: 0D 0A 20 20 20 20 20 20 20 20 20 20 69 3A 3D 6F .. i:=o
000090: 72 64 28 63 68 29 2D 34 38 3B 0D 0A 20 20 20 20 rd(ch)-48;..
0000A0: 20 20 20 20 20 20 67 6F 74 6F 78 79 28 78 2D 31 gotoxy(x-1
0000B0: 30 2C 79 2B 69 2A 32 29 3B 0D 0A 20 20 20 20 20 0,y+i*2);..
0000C0: 20 20 20 20 20 77 72 69 74 65 28 70 72 6F 6D 70 write(promp
0000D0: 74 2C 69 3A 31 2C 27 20 2D 2D 20 27 2C 6D 65 6E t,i:1,' -- ',men
0000E0: 75 69 74 65 6D 73 5B 69 5D 29 3B 0D 0A 20 20 20 uitems[i]);..
0000F0: 20 20 20 20 20 20 20 67 6F 74 6F 78 79 28 36 32 gotoxy(62
000100: 2C 79 2B 69 2A 32 29 3B 0D 0A 20 20 20 20 20 20 ,y+i*2);..
000110: 20 20 20 20 77 72 69 74 65 28 27 3C 3D 3D 27 29 write('<==')
000120: 3B 0D 0A 20 20 20 20 20 20 20 20 65 6E 64 3B 0D ;.. end;.
000130: 0A 20 20 20 20 20 20 69 66 20 63 68 3D 5E 43 20 . if ch=^C
000140: 74 68 65 6E 20 71 75 69 74 3A 3D 74 72 75 65 3B then quit:=true;
000150: 0D 0A 20 20 20 20 20 20 69 66 20 28 63 68 3D 5E .. if (ch=^
000160: 5B 29 20 74 68 65 6E 0D 0A 20 20 20 20 20 20 20 [) then..
000170: 20 69 66 20 6B 65 79 70 72 65 73 73 65 64 20 74 if keypressed t
000180: 68 65 6E 0D 0A 20 20 20 20 20 20 20 20 20 62 65 hen.. be
000190: 67 69 6E 0D 0A 20 20 20 20 20 20 20 20 20 20 72 gin.. r
0001A0: 65 61 64 28 6B 62 64 2C 63 68 29 3B 0D 0A 20 20 ead(kbd,ch);..
0001B0: 20 20 20 20 20 20 20 20 69 66 20 63 68 3D 27 4F if ch='O
0001C0: 27 20 74 68 65 6E 20 71 75 69 74 3A 3D 74 72 75 ' then quit:=tru
0001D0: 65 3B 0D 0A 20 20 20 20 20 20 20 20 20 65 6E 64 e;.. end
0001E0: 0D 0A 20 20 20 20 20 20 20 20 65 6C 73 65 20 71 .. else q
0001F0: 75 69 74 3A 3D 74 72 75 65 3B 0D 0A 20 20 20 20 uit:=true;..
Size : 512 (Real : 512)
000000: 69 74 72 65 74 75 72 6E 28 36 30 30 30 30 2E 30 itreturn(60000.0
000010: 29 3B 0D 0A 0D 0A 20 20 44 65 66 69 6E 65 57 69 );.... DefineWi
000020: 6E 64 6F 77 49 42 4D 28 33 2C 32 35 2C 33 30 2C ndowIBM(3,25,30,
000030: 37 38 2C 31 38 30 29 3B 0D 0A 20 20 44 65 66 69 78,180);.. Defi
000040: 6E 65 48 65 61 64 65 72 28 33 2C 27 65 78 65 6D neHeader(3,'exem
000050: 70 6C 65 20 3A 20 20 43 61 6D 65 6D 62 65 72 74 ple : Camembert
000060: 73 27 29 3B 0D 0A 20 20 53 65 6C 65 63 74 57 69 s');.. SelectWi
000070: 6E 64 6F 77 28 33 29 3B 0D 0A 20 20 53 65 74 42 ndow(3);.. SetB
000080: 61 63 6B 67 72 6F 75 6E 64 28 30 29 3B 0D 0A 20 ackground(0);..
000090: 20 44 72 61 77 42 6F 72 64 65 72 3B 0D 0A 20 20 DrawBorder;..
0000A0: 67 6F 74 6F 78 79 28 32 38 2C 37 29 3B 0D 0A 20 gotoxy(28,7);..
0000B0: 20 77 72 69 74 65 28 27 20 20 20 20 20 20 20 20 write('
0000C0: 31 20 20 20 20 20 20 20 20 32 20 20 20 20 20 20 1 2
0000D0: 20 20 33 20 20 20 20 20 20 20 20 34 20 20 20 20 3 4
0000E0: 20 20 20 20 35 27 29 3B 0D 0A 20 20 66 6F 72 20 5');.. for
0000F0: 69 3A 3D 31 20 74 6F 20 31 32 20 64 6F 0D 0A 20 i:=1 to 12 do..
000100: 20 62 65 67 69 6E 0D 0A 20 20 20 20 67 6F 74 6F begin.. goto
000110: 78 79 28 32 38 2C 37 2B 69 29 3B 0D 0A 20 20 20 xy(28,7+i);..
000120: 20 77 72 69 74 65 28 69 3A 32 29 3B 0D 0A 20 20 write(i:2);..
000130: 65 6E 64 3B 0D 0A 20 20 67 6F 74 6F 78 79 28 32 end;.. gotoxy(2
000140: 38 2C 32 30 29 3B 77 72 69 74 65 28 27 43 6F 6D 8,20);write('Com
000150: 6D 61 6E 64 65 20 3F 20 5F 5F 5F 5F 5F 5F 5F 5F mande ? ________
000160: 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F ________________
000170: 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F 5F ________________
000180: 5F 27 29 3B 0D 0A 20 20 67 6F 74 6F 78 79 28 32 _');.. gotoxy(2
000190: 38 2C 32 32 29 3B 77 72 69 74 65 28 27 65 6E 20 8,22);write('en
0001A0: 63 6F 75 72 73 20 3A 20 76 65 6E 74 65 73 2E 63 cours : ventes.c
0001B0: 6C 63 20 20 20 20 20 20 20 20 6C 69 62 72 65 20 lc libre
0001C0: 3A 20 38 35 20 6B 42 79 74 65 20 3D 20 39 32 2E : 85 kByte = 92.
0001D0: 33 20 25 27 29 3B 0D 0A 20 20 67 6F 74 6F 78 79 3 %');.. gotoxy
0001E0: 28 34 30 2C 39 29 3B 77 72 69 74 65 28 27 20 20 (40,9);write('
0001F0: 56 20 45 20 4E 20 54 20 45 20 20 20 20 20 20 20 V E N T E
Size : 512 (Real : 512)
000000: 20 20 69 66 20 71 75 69 74 20 74 68 65 6E 0D 0A if quit then..
000010: 20 20 20 20 20 20 20 62 65 67 69 6E 0D 0A 20 20 begin..
000020: 20 20 20 20 20 20 4C 65 61 76 65 47 72 61 70 68 LeaveGraph
000030: 69 63 3B 0D 0A 20 20 20 20 20 20 20 20 68 61 6C ic;.. hal
000040: 74 3B 0D 0A 20 20 20 20 20 20 20 65 6E 64 3B 0D t;.. end;.
000050: 0A 20 20 20 20 20 20 6A 3A 3D 6A 2B 31 3B 0D 0A . j:=j+1;..
000060: 20 20 20 20 20 20 69 66 20 6A 3D 31 35 30 30 30 if j=15000
000070: 20 74 68 65 6E 20 63 68 3A 3D 5E 4D 3B 0D 0A 20 then ch:=^M;..
000080: 20 20 20 65 6E 64 3B 0D 0A 20 20 6D 65 6E 75 63 end;.. menuc
000090: 68 6F 69 63 65 3A 3D 69 3B 0D 0A 0D 0A 65 6E 64 hoice:=i;....end
0000A0: 3B 0D 0A 0D 0A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ;...............
0000B0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0000C0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0000D0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0000E0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0000F0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000100: 2C 79 2B 69 2A 32 29 3B 0D 0A 20 20 20 20 20 20 ,y+i*2);..
000110: 20 20 20 20 77 72 69 74 65 28 27 3C 3D 3D 27 29 write('<==')
000120: 3B 0D 0A 20 20 20 20 20 20 20 20 65 6E 64 3B 0D ;.. end;.
000130: 0A 20 20 20 20 20 20 69 66 20 63 68 3D 5E 43 20 . if ch=^C
000140: 74 68 65 6E 20 71 75 69 74 3A 3D 74 72 75 65 3B then quit:=true;
000150: 0D 0A 20 20 20 20 20 20 69 66 20 28 63 68 3D 5E .. if (ch=^
000160: 5B 29 20 74 68 65 6E 0D 0A 20 20 20 20 20 20 20 [) then..
000170: 20 69 66 20 6B 65 79 70 72 65 73 73 65 64 20 74 if keypressed t
000180: 68 65 6E 0D 0A 20 20 20 20 20 20 20 20 20 62 65 hen.. be
000190: 67 69 6E 0D 0A 20 20 20 20 20 20 20 20 20 20 72 gin.. r
0001A0: 65 61 64 28 6B 62 64 2C 63 68 29 3B 0D 0A 20 20 ead(kbd,ch);..
0001B0: 20 20 20 20 20 20 20 20 69 66 20 63 68 3D 27 4F if ch='O
0001C0: 27 20 74 68 65 6E 20 71 75 69 74 3A 3D 74 72 75 ' then quit:=tru
0001D0: 65 3B 0D 0A 20 20 20 20 20 20 20 20 20 65 6E 64 e;.. end
0001E0: 0D 0A 20 20 20 20 20 20 20 20 65 6C 73 65 20 71 .. else q
0001F0: 75 69 74 3A 3D 74 72 75 65 3B 0D 0A 20 20 20 20 uit:=true;..
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 20 20 20 31 39 38 34 27 1984'
000010: 29 3B 0D 0A 20 20 67 6F 74 6F 78 79 28 34 30 2C );.. gotoxy(40,
000020: 31 30 29 3B 77 72 69 74 65 28 27 20 3D 3D 3D 3D 10);write(' ====
000030: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
000040: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 27 29 3B 0D 0A ===========');..
000050: 20 20 67 6F 74 6F 78 79 28 33 32 2C 31 32 29 3B gotoxy(32,12);
000060: 77 72 69 74 65 28 27 43 6F 75 74 20 64 65 20 70 write('Cout de p
000070: 72 6F 64 75 63 74 69 6F 6E 20 20 20 3A 20 20 20 roduction :
000080: 31 34 35 36 2E 33 35 27 29 3B 0D 0A 20 20 67 6F 1456.35');.. go
000090: 74 6F 78 79 28 33 32 2C 31 33 29 3B 77 72 69 74 toxy(32,13);writ
0000A0: 65 28 27 43 6F 75 74 20 64 75 20 70 65 72 73 6F e('Cout du perso
0000B0: 6E 6E 65 6C 20 20 20 20 3A 20 20 20 20 31 34 35 nnel : 145
0000C0: 2E 32 33 27 29 3B 0D 0A 20 20 67 6F 74 6F 78 79 .23');.. gotoxy
0000D0: 28 33 32 2C 31 34 29 3B 77 72 69 74 65 28 27 54 (32,14);write('T
0000E0: 2E 56 2E 41 20 20 20 20 20 20 20 20 20 20 20 20 .V.A
0000F0: 20 20 20 20 3A 20 20 20 20 35 32 34 2E 31 32 27 : 524.12'
000100: 29 3B 0D 0A 20 20 67 6F 74 6F 78 79 28 33 32 2C );.. gotoxy(32,
000110: 31 35 29 3B 77 72 69 74 65 28 27 2D 2D 2D 2D 2D 15);write('-----
000120: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000130: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 27 29 3B 0D 0A -----------');..
000140: 20 20 67 6F 74 6F 78 79 28 33 32 2C 31 36 29 3B gotoxy(32,16);
000150: 77 72 69 74 65 28 27 53 6F 75 73 74 6F 74 61 6C write('Soustotal
000160: 20 20 20 20 20 20 20 20 20 20 20 20 3A 20 20 20 :
000170: 32 31 32 35 2E 37 30 27 29 3B 0D 0A 20 20 67 6F 2125.70');.. go
000180: 74 6F 78 79 28 33 32 2C 31 38 29 3B 77 72 69 74 toxy(32,18);writ
000190: 65 28 27 53 6F 6C 64 65 20 20 20 20 20 20 20 20 e('Solde
0001A0: 20 20 20 20 20 20 20 20 3A 20 20 20 20 20 20 20 :
0001B0: 31 34 35 27 29 3B 0D 0A 20 20 64 65 6C 61 79 28 145');.. delay(
0001C0: 34 30 30 30 29 3B 0D 0A 20 20 67 6F 74 6F 78 79 4000);.. gotoxy
0001D0: 28 33 39 2C 32 30 29 3B 0D 0A 20 20 77 61 69 74 (39,20);.. wait
0001E0: 72 65 74 75 72 6E 28 31 35 30 30 30 29 3B 0D 0A return(15000);..
0001F0: 0D 0A 20 20 44 65 66 69 6E 65 57 69 6E 64 6F 77 .. DefineWindow
Size : 512 (Real : 512)
000000: 7B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D {---------------
000010: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000020: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000030: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000040: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 7D 0D 0A -------------}..
000050: 0D 0A 6F 76 65 72 6C 61 79 20 70 72 6F 63 65 64 ..overlay proced
000060: 75 72 65 20 57 69 6E 64 6F 77 44 65 6D 6F 3B 0D ure WindowDemo;.
000070: 0A 76 61 72 20 72 6F 77 2C 63 6F 6C 75 6D 6E 2C .var row,column,
000080: 69 3A 69 6E 74 65 67 65 72 3B 0D 0A 0D 0A 0D 0A i:integer;......
000090: 70 72 6F 63 65 64 75 72 65 20 57 72 69 74 65 53 procedure WriteS
0000A0: 6C 6F 77 28 73 3A 77 72 6B 73 74 72 69 6E 67 29 low(s:wrkstring)
0000B0: 3B 0D 0A 62 65 67 69 6E 0D 0A 20 20 72 6F 77 3A ;..begin.. row:
0000C0: 3D 72 6F 77 2B 31 3B 0D 0A 20 20 67 6F 74 6F 78 =row+1;.. gotox
0000D0: 79 28 31 37 2C 35 29 3B 0D 0A 20 20 77 72 69 74 y(17,5);.. writ
0000E0: 65 28 72 6F 77 3A 32 29 3B 0D 0A 20 20 67 6F 74 e(row:2);.. got
0000F0: 6F 78 79 28 38 2C 36 2B 72 6F 77 29 3B 0D 0A 20 oxy(8,6+row);..
000100: 20 66 6F 72 20 69 3A 3D 31 20 74 6F 20 6C 65 6E for i:=1 to len
000110: 67 74 68 28 73 29 20 64 6F 0D 0A 20 20 62 65 67 gth(s) do.. beg
000120: 69 6E 0D 0A 20 20 20 20 77 72 69 74 65 28 73 5B in.. write(s[
000130: 69 5D 29 3B 0D 0A 20 20 20 20 67 6F 74 6F 78 79 i]);.. gotoxy
000140: 28 32 38 2C 35 29 3B 0D 0A 20 20 20 20 77 72 69 (28,5);.. wri
000150: 74 65 28 63 6F 6C 75 6D 6E 2B 69 3A 32 29 3B 0D te(column+i:2);.
000160: 0A 20 20 20 20 67 6F 74 6F 78 79 28 38 2B 69 2C . gotoxy(8+i,
000170: 36 2B 72 6F 77 29 3B 0D 0A 20 20 20 20 64 65 6C 6+row);.. del
000180: 61 79 28 31 30 2B 72 61 6E 64 6F 6D 28 31 30 30 ay(10+random(100
000190: 29 29 3B 0D 0A 20 20 65 6E 64 3B 0D 0A 65 6E 64 ));.. end;..end
0001A0: 3B 0D 0A 0D 0A 62 65 67 69 6E 0D 0A 20 20 43 6C ;....begin.. Cl
0001B0: 65 61 72 53 63 72 65 65 6E 3B 0D 0A 20 20 53 65 earScreen;.. Se
0001C0: 74 48 65 61 64 65 72 4F 6E 3B 0D 0A 20 20 44 65 tHeaderOn;.. De
0001D0: 66 69 6E 65 57 69 6E 64 6F 77 49 42 4D 28 31 2C fineWindowIBM(1,
0001E0: 30 2C 30 2C 37 39 2C 31 39 30 29 3B 0D 0A 20 20 0,0,79,190);..
0001F0: 44 65 66 69 6E 65 48 65 61 64 65 72 28 31 2C 27 DefineHeader(1,'
Size : 512 (Real : 512)
000000: 49 42 4D 28 34 2C 31 32 2C 36 30 2C 36 38 2C 31 IBM(4,12,60,68,1
000010: 36 34 29 3B 0D 0A 20 20 44 65 66 69 6E 65 48 65 64);.. DefineHe
000020: 61 64 65 72 28 34 2C 27 45 78 65 6D 70 6C 65 20 ader(4,'Exemple
000030: 3A 20 20 47 72 61 70 68 69 73 6D 65 73 27 29 3B : Graphismes');
000040: 0D 0A 20 20 53 65 6C 65 63 74 57 69 6E 64 6F 77 .. SelectWindow
000050: 28 34 29 3B 0D 0A 20 20 53 65 74 42 61 63 6B 67 (4);.. SetBackg
000060: 72 6F 75 6E 64 28 30 29 3B 0D 0A 20 20 44 72 61 round(0);.. Dra
000070: 77 42 6F 72 64 65 72 3B 0D 0A 20 20 66 6F 72 20 wBorder;.. for
000080: 69 3A 3D 31 20 74 6F 20 38 35 20 64 6F 20 44 72 i:=1 to 85 do Dr
000090: 61 77 4C 69 6E 65 28 32 30 2B 69 2A 37 2C 33 30 awLine(20+i*7,30
0000A0: 2C 36 33 30 2D 69 2A 37 2C 31 37 30 29 3B 0D 0A ,630-i*7,170);..
0000B0: 20 20 67 6F 74 6F 78 79 28 32 39 2C 32 30 29 3B gotoxy(29,20);
0000C0: 0D 0A 20 20 43 6F 70 79 53 63 72 65 65 6E 3B 0D .. CopyScreen;.
0000D0: 0A 20 20 77 61 69 74 72 65 74 75 72 6E 28 31 35 . waitreturn(15
0000E0: 30 30 30 29 3B 0D 0A 0D 0A 20 20 52 65 73 74 6F 000);.... Resto
0000F0: 72 65 57 69 6E 64 6F 77 28 32 2C 74 72 75 6E 63 reWindow(2,trunc
000100: 28 31 36 2A 58 4D 61 78 47 6C 62 2F 37 39 29 2C (16*XMaxGlb/79),
000110: 74 72 75 6E 63 28 33 32 2A 59 4D 61 78 47 6C 62 trunc(32*YMaxGlb
000120: 2F 31 39 39 29 29 3B 0D 0A 20 20 53 65 6C 65 63 /199));.. Selec
000130: 74 57 69 6E 64 6F 77 28 32 29 3B 0D 0A 20 20 64 tWindow(2);.. d
000140: 65 6C 61 79 28 32 30 30 30 29 3B 0D 0A 20 20 4D elay(2000);.. M
000150: 6F 76 65 48 6F 72 49 42 4D 28 2D 31 36 2C 74 72 oveHorIBM(-16,tr
000160: 75 65 29 3B 0D 0A 20 20 4D 6F 76 65 56 65 72 49 ue);.. MoveVerI
000170: 42 4D 28 2D 33 32 2C 74 72 75 65 29 3B 0D 0A 20 BM(-32,true);..
000180: 20 66 6F 72 20 69 3A 3D 31 20 74 6F 20 31 31 20 for i:=1 to 11
000190: 64 6F 0D 0A 20 20 62 65 67 69 6E 0D 0A 20 20 20 do.. begin..
0001A0: 20 67 6F 74 6F 78 79 28 38 2C 36 2B 69 29 3B 0D gotoxy(8,6+i);.
0001B0: 0A 20 20 20 20 77 72 69 74 65 28 27 20 20 20 20 . write('
0001C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001E0: 20 20 20 20 20 20 20 20 20 20 27 29 3B 0D 0A 20 ');..
0001F0: 20 65 6E 64 3B 0D 0A 20 20 72 6F 77 3A 3D 30 3B end;.. row:=0;
Size : 512 (Real : 512)
000000: 55 74 69 6C 69 73 61 74 69 6F 6E 20 64 65 20 70 Utilisation de p
000010: 6C 75 73 69 65 75 72 73 20 66 65 6E 65 74 72 65 lusieurs fenetre
000020: 20 73 75 72 20 6C 27 65 63 61 6E 27 29 3B 0D 0A sur l'ecan');..
000030: 20 20 53 65 6C 65 63 74 57 69 6E 64 6F 77 28 31 SelectWindow(1
000040: 29 3B 0D 0A 20 20 53 65 74 42 61 63 6B 67 72 6F );.. SetBackgro
000050: 75 6E 64 28 32 34 29 3B 0D 0A 20 20 44 72 61 77 und(24);.. Draw
000060: 42 6F 72 64 65 72 3B 0D 0A 0D 0A 20 20 44 65 66 Border;.... Def
000070: 69 6E 65 57 69 6E 64 6F 77 49 42 4D 28 32 2C 34 ineWindowIBM(2,4
000080: 2C 31 36 2C 35 35 2C 31 34 30 29 3B 0D 0A 20 20 ,16,55,140);..
000090: 44 65 66 69 6E 65 48 65 61 64 65 72 28 32 2C 27 DefineHeader(2,'
0000A0: 45 78 65 6D 70 6C 65 20 3A 20 45 64 69 74 69 6F Exemple : Editio
0000B0: 6E 27 29 3B 0D 0A 0D 0A 20 20 53 65 6C 65 63 74 n');.... Select
0000C0: 57 69 6E 64 6F 77 28 32 29 3B 0D 0A 20 20 53 65 Window(2);.. Se
0000D0: 74 42 61 63 6B 67 72 6F 75 6E 64 28 30 29 3B 0D tBackground(0);.
0000E0: 0A 20 20 44 72 61 77 42 6F 72 64 65 72 3B 0D 0A . DrawBorder;..
0000F0: 20 20 63 6F 6C 75 6D 6E 3A 3D 30 3B 72 6F 77 3A column:=0;row:
000100: 3D 30 3B 0D 0A 20 20 67 6F 74 6F 78 79 28 31 31 =0;.. gotoxy(11
000110: 2C 35 29 3B 77 72 69 74 65 28 27 4C 69 67 6E 65 ,5);write('Ligne
000120: 20 20 20 20 20 20 43 6F 6C 6F 6E 6E 65 20 20 20 Colonne
000130: 20 20 20 20 46 69 63 68 69 65 72 20 3A 20 41 3A Fichier : A:
000140: 54 45 53 54 2E 54 58 54 27 29 3B 0D 0A 20 20 67 TEST.TXT');.. g
000150: 6F 74 6F 78 79 28 38 2C 36 29 3B 77 72 69 74 65 otoxy(8,6);write
000160: 28 27 4C 2D 2D 2D 2D 23 2D 2D 2D 2D 23 2D 2D 2D ('L----#----#---
000170: 2D 23 2D 2D 2D 2D 23 2D 2D 2D 2D 23 2D 2D 2D 2D -#----#----#----
000180: 23 2D 2D 2D 2D 23 2D 2D 2D 2D 23 2D 2D 2D 2D 52 #----#----#----R
000190: 27 29 3B 0D 0A 20 20 67 6F 74 6F 78 79 28 38 2C ');.. gotoxy(8,
0001A0: 37 29 3B 57 72 69 74 65 53 6C 6F 77 20 28 27 43 7);WriteSlow ('C
0001B0: 65 63 69 20 65 73 74 20 64 65 6D 6F 6E 73 74 72 eci est demonstr
0001C0: 61 74 69 6F 6E 20 64 27 27 75 74 69 6C 69 73 61 ation d''utilisa
0001D0: 74 69 6F 6E 20 20 20 20 27 29 3B 0D 0A 20 20 67 tion ');.. g
0001E0: 6F 74 6F 78 79 28 38 2C 38 29 3B 57 72 69 74 65 otoxy(8,8);Write
0001F0: 53 6C 6F 77 20 28 27 64 65 20 66 65 6E 65 74 72 Slow ('de fenetr
Size : 512 (Real : 512)
000000: 0D 0A 20 20 63 6F 6C 75 6D 6E 3A 3D 30 3B 0D 0A .. column:=0;..
000010: 20 20 67 6F 74 6F 78 79 28 38 2C 37 29 3B 20 57 gotoxy(8,7); W
000020: 72 69 74 65 53 6C 6F 77 28 27 56 6F 75 73 20 70 riteSlow('Vous p
000030: 6F 75 76 65 7A 20 61 75 73 73 69 20 64 65 70 6C ouvez aussi depl
000040: 61 63 65 72 20 6C 65 73 20 66 65 6E 65 74 72 65 acer les fenetre
000050: 20 61 20 20 20 20 27 29 3B 0D 0A 20 20 67 6F 74 a ');.. got
000060: 6F 78 79 28 38 2C 38 29 3B 20 57 72 69 74 65 53 oxy(8,8); WriteS
000070: 6C 6F 77 28 27 6C 27 27 69 6E 74 65 72 69 65 75 low('l''interieu
000080: 72 20 64 65 20 6C 27 27 65 63 72 61 6E 2E 56 6F r de l''ecran.Vo
000090: 75 73 20 70 6F 75 76 65 7A 20 6C 65 73 20 66 61 us pouvez les fa
0000A0: 69 72 65 27 29 3B 0D 0A 20 20 67 6F 74 6F 78 79 ire');.. gotoxy
0000B0: 28 38 2C 39 29 3B 20 57 72 69 74 65 53 6C 6F 77 (8,9); WriteSlow
0000C0: 28 27 67 6C 69 73 73 65 72 20 6C 65 73 20 75 6E ('glisser les un
0000D0: 65 73 20 73 75 72 20 6C 65 73 20 61 75 74 72 65 es sur les autre
0000E0: 73 20 6F 75 20 6C 65 73 20 6D 65 74 74 72 65 27 s ou les mettre'
0000F0: 29 3B 0D 0A 20 20 67 6F 74 6F 78 79 28 38 2C 31 );.. gotoxy(8,1
000100: 30 29 3B 57 72 69 74 65 53 6C 6F 77 28 27 6C 65 0);WriteSlow('le
000110: 73 20 75 6E 65 73 20 61 75 2D 64 65 73 73 75 73 s unes au-dessus
000120: 20 64 65 20 6C 27 27 61 75 74 72 65 2E 55 6E 65 de l''autre.Une
000130: 20 66 65 6E 65 74 72 65 20 70 65 75 74 27 29 3B fenetre peut');
000140: 0D 0A 20 20 67 6F 74 6F 78 79 28 38 2C 31 31 29 .. gotoxy(8,11)
000150: 3B 57 72 69 74 65 53 6C 6F 77 28 27 65 74 72 65 ;WriteSlow('etre
000160: 20 6D 69 73 65 20 64 61 6E 73 20 75 6E 65 20 70 mise dans une p
000170: 61 67 65 20 6D 65 6D 6F 69 72 20 65 74 20 65 74 age memoir et et
000180: 72 65 20 72 61 6D 65 6E 65 65 27 29 3B 0D 0A 20 re ramenee');..
000190: 20 67 6F 74 6F 78 79 28 38 2C 31 32 29 3B 57 72 gotoxy(8,12);Wr
0001A0: 69 74 65 53 6C 6F 77 28 27 73 75 72 20 6C 27 27 iteSlow('sur l''
0001B0: 65 63 72 61 6E 20 61 75 20 66 75 72 20 65 74 20 ecran au fur et
0001C0: 61 20 6D 65 73 75 72 65 20 64 65 73 20 62 65 73 a mesure des bes
0001D0: 6F 69 6E 73 27 29 3B 0D 0A 20 20 67 6F 74 6F 78 oins');.. gotox
0001E0: 79 28 38 2C 31 33 29 3B 57 72 69 74 65 53 6C 6F y(8,13);WriteSlo
0001F0: 77 28 27 4C 61 20 74 61 69 6C 6C 65 20 64 65 20 w('La taille de
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 76 v
000010: 61 72 20 65 3A 70 6C 6F 74 61 72 72 61 79 3B 66 ar e:plotarray;f
000020: 3A 69 6E 74 65 67 65 72 29 3B 0D 0A 7B 24 49 73 :integer);..{$Is
000030: 70 6C 69 6E 65 2E 68 67 68 7D 0D 0A 62 65 67 69 pline.hgh}..begi
000040: 6E 0D 0A 20 20 20 73 70 6C 69 6E 65 28 61 2C 62 n.. spline(a,b
000050: 2C 63 2C 64 2C 65 2C 66 29 3B 0D 0A 65 6E 64 3B ,c,d,e,f);..end;
000060: 0D 0A 0D 0A 6F 76 65 72 6C 61 79 20 70 72 6F 63 ....overlay proc
000070: 65 64 75 72 65 20 78 64 72 61 77 63 61 72 74 70 edure xdrawcartp
000080: 69 65 28 61 2C 62 2C 63 2C 64 2C 65 2C 66 3A 72 ie(a,b,c,d,e,f:r
000090: 65 61 6C 3B 67 3A 70 69 65 61 72 72 61 79 3B 0D eal;g:piearray;.
0000A0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
0000B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000C0: 68 2C 69 2C 6A 3A 69 6E 74 65 67 65 72 29 3B 0D h,i,j:integer);.
0000D0: 0A 7B 24 49 63 69 72 63 73 65 67 6D 2E 68 67 68 .{$Icircsegm.hgh
0000E0: 7D 0D 0A 7B 24 49 70 69 65 2E 68 67 68 7D 0D 0A }..{$Ipie.hgh}..
0000F0: 62 65 67 69 6E 0D 0A 20 20 20 64 72 61 77 63 61 begin.. drawca
000100: 72 74 70 69 65 28 61 2C 62 2C 63 2C 64 2C 65 2C rtpie(a,b,c,d,e,
000110: 66 2C 67 2C 68 2C 69 2C 6A 29 0D 0A 65 6E 64 3B f,g,h,i,j)..end;
000120: 0D 0A 0D 0A 6F 76 65 72 6C 61 79 20 70 72 6F 63 ....overlay proc
000130: 65 64 75 72 65 20 78 64 72 61 77 68 69 73 74 6F edure xdrawhisto
000140: 67 72 61 6D 28 61 3A 70 6C 6F 74 61 72 72 61 79 gram(a:plotarray
000150: 3B 6E 3A 69 6E 74 65 67 65 72 3B 68 3A 62 6F 6F ;n:integer;h:boo
000160: 6C 65 61 6E 3B 7A 3A 69 6E 74 65 67 65 72 29 3B lean;z:integer);
000170: 0D 0A 7B 24 49 20 68 61 74 63 68 2E 68 67 68 7D ..{$I hatch.hgh}
000180: 0D 0A 7B 24 49 20 68 69 73 74 6F 67 72 6D 2E 68 ..{$I histogrm.h
000190: 67 68 7D 0D 0A 62 65 67 69 6E 0D 0A 20 20 20 64 gh}..begin.. d
0001A0: 72 61 77 68 69 73 74 6F 67 72 61 6D 28 61 2C 6E rawhistogram(a,n
0001B0: 2C 68 2C 7A 29 3B 0D 0A 65 6E 64 3B 0D 0A 0D 0A ,h,z);..end;....
0001C0: 6F 76 65 72 6C 61 79 20 70 72 6F 63 65 64 75 72 overlay procedur
0001D0: 65 20 78 62 65 7A 69 65 72 28 61 3A 70 6C 6F 74 e xbezier(a:plot
0001E0: 61 72 72 61 79 3B 63 3A 69 6E 74 65 67 65 72 3B array;c:integer;
0001F0: 76 61 72 20 62 3A 70 6C 6F 74 61 72 72 61 79 3B var b:plotarray;
Size : 512 (Real : 512)
000000: 6C 61 20 66 65 6E 65 74 72 65 20 6D 65 6D 6F 69 la fenetre memoi
000010: 72 65 20 65 73 74 20 73 65 75 6C 65 6D 65 6E 74 re est seulement
000020: 27 29 3B 0D 0A 20 20 67 6F 74 6F 78 79 28 38 2C ');.. gotoxy(8,
000030: 31 34 29 3B 57 72 69 74 65 53 6C 6F 77 28 27 6C 14);WriteSlow('l
000040: 69 6D 69 74 65 65 20 61 20 63 65 6C 6C 65 20 64 imitee a celle d
000050: 65 20 6C 61 20 6D 65 6D 6F 69 72 65 20 70 68 79 e la memoire phy
000060: 73 69 71 75 65 20 2E 27 29 3B 0D 0A 20 20 67 6F sique .');.. go
000070: 74 6F 78 79 28 31 39 2C 31 36 29 3B 0D 0A 20 20 toxy(19,16);..
000080: 77 61 69 74 72 65 74 75 72 6E 28 36 30 30 30 30 waitreturn(60000
000090: 2E 30 29 3B 0D 0A 65 6E 64 3B 1A 1A 1A 1A 1A 1A .0);..end;......
0000A0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0000B0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0000C0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0000D0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0000E0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0000F0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000100: 30 29 3B 57 72 69 74 65 53 6C 6F 77 28 27 6C 65 0);WriteSlow('le
000110: 73 20 75 6E 65 73 20 61 75 2D 64 65 73 73 75 73 s unes au-dessus
000120: 20 64 65 20 6C 27 27 61 75 74 72 65 2E 55 6E 65 de l''autre.Une
000130: 20 66 65 6E 65 74 72 65 20 70 65 75 74 27 29 3B fenetre peut');
000140: 0D 0A 20 20 67 6F 74 6F 78 79 28 38 2C 31 31 29 .. gotoxy(8,11)
000150: 3B 57 72 69 74 65 53 6C 6F 77 28 27 65 74 72 65 ;WriteSlow('etre
000160: 20 6D 69 73 65 20 64 61 6E 73 20 75 6E 65 20 70 mise dans une p
000170: 61 67 65 20 6D 65 6D 6F 69 72 20 65 74 20 65 74 age memoir et et
000180: 72 65 20 72 61 6D 65 6E 65 65 27 29 3B 0D 0A 20 re ramenee');..
000190: 20 67 6F 74 6F 78 79 28 38 2C 31 32 29 3B 57 72 gotoxy(8,12);Wr
0001A0: 69 74 65 53 6C 6F 77 28 27 73 75 72 20 6C 27 27 iteSlow('sur l''
0001B0: 65 63 72 61 6E 20 61 75 20 66 75 72 20 65 74 20 ecran au fur et
0001C0: 61 20 6D 65 73 75 72 65 20 64 65 73 20 62 65 73 a mesure des bes
0001D0: 6F 69 6E 73 27 29 3B 0D 0A 20 20 67 6F 74 6F 78 oins');.. gotox
0001E0: 79 28 38 2C 31 33 29 3B 57 72 69 74 65 53 6C 6F y(8,13);WriteSlo
0001F0: 77 28 27 4C 61 20 74 61 69 6C 6C 65 20 64 65 20 w('La taille de
Size : 512 (Real : 512)
000000: 7A 3A 69 6E 74 65 67 65 72 29 3B 0D 0A 7B 24 49 z:integer);..{$I
000010: 20 62 65 7A 69 65 72 2E 68 67 68 7D 20 20 7B 20 bezier.hgh} {
000020: 62 65 7A 69 65 72 20 7D 0D 0A 62 65 67 69 6E 0D bezier }..begin.
000030: 0A 20 20 20 62 65 7A 69 65 72 28 61 2C 63 2C 62 . bezier(a,c,b
000040: 2C 7A 29 3B 0D 0A 65 6E 64 3B 0D 0A 0D 0A 6F 76 ,z);..end;....ov
000050: 65 72 6C 61 79 20 70 72 6F 63 65 64 75 72 65 20 erlay procedure
000060: 78 68 61 74 63 68 28 61 2C 62 2C 63 2C 64 2C 65 xhatch(a,b,c,d,e
000070: 3A 72 65 61 6C 29 3B 0D 0A 7B 24 49 20 68 61 74 :real);..{$I hat
000080: 63 68 2E 68 67 68 7D 0D 0A 62 65 67 69 6E 0D 0A ch.hgh}..begin..
000090: 20 20 20 68 61 74 63 68 28 61 2C 62 2C 63 2C 64 hatch(a,b,c,d
0000A0: 2C 65 29 3B 0D 0A 65 6E 64 3B 0D 0A 0D 0A 7B 24 ,e);..end;....{$
0000B0: 49 20 74 67 64 65 6D 6F 2E 69 6E 66 7D 0D 0A 0D I tgdemo.inf}...
0000C0: 0A 7B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D .{--------------
0000D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 20 6F 76 65 72 6C ---------- overl
0000E0: 61 79 20 2D 20 70 61 72 74 69 65 20 64 65 75 78 ay - partie deux
0000F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000100: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 7D 0D 0A 70 72 6F ----------}..pro
000110: 63 65 64 75 72 65 20 64 75 6D 6D 79 32 3B 20 62 cedure dummy2; b
000120: 65 67 69 6E 20 65 6E 64 3B 0D 0A 0D 0A 6F 76 65 egin end;....ove
000130: 72 6C 61 79 20 70 72 6F 63 65 64 75 72 65 20 50 rlay procedure P
000140: 69 65 44 65 6D 3B 0D 0A 7B 24 49 20 74 67 64 65 ieDem;..{$I tgde
000150: 6D 6F 31 32 2E 69 6E 63 7D 20 7B 20 63 61 6D 65 mo12.inc} { came
000160: 6D 62 65 72 74 20 7D 0D 0A 0D 0A 6F 76 65 72 6C mbert }....overl
000170: 61 79 20 70 72 6F 63 65 64 75 72 65 20 53 70 6C ay procedure Spl
000180: 69 6E 65 44 65 6D 3B 0D 0A 7B 24 49 20 74 67 64 ineDem;..{$I tgd
000190: 65 6D 6F 31 33 2E 69 6E 63 7D 20 7B 20 73 70 6C emo13.inc} { spl
0001A0: 69 6E 65 20 7D 0D 0A 0D 0A 6F 76 65 72 6C 61 79 ine }....overlay
0001B0: 20 70 72 6F 63 65 64 75 72 65 20 73 69 6D 70 6C procedure simpl
0001C0: 65 3B 0D 0A 7B 24 49 20 74 67 64 65 6D 6F 32 2E e;..{$I tgdemo2.
0001D0: 69 6E 63 7D 20 7B 73 69 6D 70 6C 65 73 20 7D 0D inc} {simples }.
0001E0: 0A 0D 0A 6F 76 65 72 6C 61 79 20 70 72 6F 63 65 ...overlay proce
0001F0: 64 75 72 65 20 50 6F 6C 79 67 6F 6E 44 65 6D 3B dure PolygonDem;
Size : 512 (Real : 512)
000000: 28 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A (***************
000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
000020: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
000030: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 29 0D 0A 28 ************)..(
000040: 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 *
000050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000070: 20 20 20 20 20 20 20 20 20 20 2A 29 0D 0A 28 2A *)..(*
000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000090: 54 55 52 42 4F 20 47 52 41 50 48 49 58 20 76 65 TURBO GRAPHIX ve
0000A0: 72 73 69 6F 6E 20 31 2E 30 35 41 20 20 20 20 20 rsion 1.05A
0000B0: 20 20 20 20 20 20 20 20 20 2A 29 0D 0A 28 2A 20 *)..(*
0000C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000F0: 20 20 20 20 20 20 20 20 2A 29 0D 0A 28 2A 20 20 *)..(*
000100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000110: 44 65 6D 6F 6E 73 74 72 61 74 69 6F 6E 20 70 72 Demonstration pr
000120: 6F 67 72 61 6D 20 20 20 20 20 20 20 20 20 20 20 ogram
000130: 20 20 20 20 20 20 20 2A 29 0D 0A 28 2A 20 20 20 *)..(*
000140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4D M
000150: 6F 64 75 6C 65 20 76 65 72 73 69 6F 6E 20 20 31 odule version 1
000160: 2E 30 33 41 20 20 20 20 20 20 20 20 20 20 20 20 .03A
000170: 20 20 20 20 20 20 2A 29 0D 0A 28 2A 20 20 20 20 *)..(*
000180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000190: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001B0: 20 20 20 20 20 2A 29 0D 0A 28 2A 20 20 20 20 20 *)..(*
0001C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 43 6F 70 Cop
0001D0: 79 72 69 67 68 74 20 28 43 29 20 31 39 38 35 20 yright (C) 1985
0001E0: 62 79 20 20 20 20 20 20 20 20 20 20 20 20 20 20 by
0001F0: 20 20 20 20 2A 29 0D 0A 28 2A 20 20 20 20 20 20 *)..(*
Size : 512 (Real : 512)
000000: 0D 0A 7B 24 49 20 74 67 64 65 6D 6F 33 2E 69 6E ..{$I tgdemo3.in
000010: 63 7D 20 7B 20 70 6F 6C 79 67 6F 6E 65 20 7D 0D c} { polygone }.
000020: 0A 0D 0A 6F 76 65 72 6C 61 79 20 70 72 6F 63 65 ...overlay proce
000030: 64 75 72 65 20 48 69 73 74 6F 44 65 6D 3B 0D 0A dure HistoDem;..
000040: 7B 24 49 20 74 67 64 65 6D 6F 34 2E 69 6E 63 7D {$I tgdemo4.inc}
000050: 20 7B 20 68 69 73 74 6F 67 72 61 6D 6D 65 20 7D { histogramme }
000060: 0D 0A 0D 0A 7B 24 49 20 74 67 64 65 6D 6F 35 2E ....{$I tgdemo5.
000070: 69 6E 63 7D 20 7B 20 6F 72 67 61 6E 69 67 72 61 inc} { organigra
000080: 6D 6D 65 20 7D 0D 0A 0D 0A 6F 76 65 72 6C 61 79 mme }....overlay
000090: 20 70 72 6F 63 65 64 75 72 65 20 42 65 7A 69 65 procedure Bezie
0000A0: 72 44 65 6D 3B 0D 0A 0D 0A 7B 24 49 20 74 67 64 rDem;....{$I tgd
0000B0: 65 6D 6F 36 2E 69 6E 63 7D 0D 0A 0D 0A 7B 24 49 emo6.inc}....{$I
0000C0: 20 74 67 64 65 6D 6F 2E 63 68 6F 7D 0D 0A 0D 0A tgdemo.cho}....
0000D0: 0D 0A 42 65 67 69 6E 0D 0A 20 20 49 6E 69 74 47 ..Begin.. InitG
0000E0: 72 61 70 68 69 63 3B 0D 0A 20 20 53 65 74 42 72 raphic;.. SetBr
0000F0: 65 61 6B 4F 6E 3B 0D 0A 20 20 53 65 74 4D 65 73 eakOn;.. SetMes
000100: 73 61 67 65 4F 6E 3B 0D 0A 20 20 53 65 74 48 65 sageOn;.. SetHe
000110: 61 64 65 72 4F 6E 3B 0D 0A 20 20 44 65 66 69 6E aderOn;.. Defin
000120: 65 57 6F 72 6C 64 28 32 2C 30 2C 31 39 39 2C 36 eWorld(2,0,199,6
000130: 33 39 2C 30 29 3B 0D 0A 20 20 44 65 66 69 6E 65 39,0);.. Define
000140: 57 69 6E 64 6F 77 28 31 30 2C 30 2C 30 2C 58 4D Window(10,0,0,XM
000150: 61 78 47 6C 62 2C 59 4D 61 78 47 6C 62 29 3B 0D axGlb,YMaxGlb);.
000160: 0A 20 20 69 6E 74 72 6F 3B 0D 0A 20 20 63 68 6F . intro;.. cho
000170: 69 63 65 3A 3D 30 3B 0D 0A 20 20 72 65 70 65 61 ice:=0;.. repea
000180: 74 0D 0A 20 20 20 20 43 6C 65 61 72 53 63 72 65 t.. ClearScre
000190: 65 6E 3B 0D 0A 20 20 20 20 52 65 73 65 74 57 69 en;.. ResetWi
0001A0: 6E 64 6F 77 53 74 61 63 6B 3B 0D 0A 20 20 20 20 ndowStack;..
0001B0: 52 65 73 65 74 57 69 6E 64 6F 77 73 3B 0D 0A 20 ResetWindows;..
0001C0: 20 20 20 52 65 73 65 74 57 6F 72 6C 64 73 3B 0D ResetWorlds;.
0001D0: 0A 20 20 20 20 44 65 66 69 6E 65 57 6F 72 6C 64 . DefineWorld
0001E0: 28 32 2C 30 2C 31 39 39 2C 36 33 39 2C 30 29 3B (2,0,199,639,0);
0001F0: 0D 0A 20 20 20 20 44 65 66 69 6E 65 57 69 6E 64 .. DefineWind
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 20 20 20 20 42 4F 52 4C BORL
000010: 41 4E 44 20 49 6E 74 65 72 6E 61 74 69 6F 6E 61 AND Internationa
000020: 6C 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 l
000030: 20 20 20 2A 29 0D 0A 28 2A 20 20 20 20 20 20 20 *)..(*
000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000070: 20 20 2A 29 0D 0A 28 2A 20 20 20 20 6D 6F 64 69 *)..(* modi
000080: 66 69 65 64 20 20 62 79 20 48 45 49 4D 53 4F 45 fied by HEIMSOE
000090: 54 48 20 53 6F 66 74 77 61 72 65 20 4D 75 6E 69 TH Software Muni
0000A0: 63 68 20 31 31 2E 31 39 38 35 20 20 20 20 20 20 ch 11.1985
0000B0: 20 2A 29 0D 0A 28 2A 20 20 20 20 20 20 20 20 20 *)..(*
0000C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000F0: 2A 29 0D 0A 28 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A *)..(***********
000100: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
000110: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
000120: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
000130: 29 0D 0A 7B 24 78 2D 7D 0D 0A 7B 24 43 2D 7D 0D )..{$x-}..{$C-}.
000140: 0A 70 72 6F 67 72 61 6D 20 54 75 72 62 6F 47 72 .program TurboGr
000150: 61 70 68 69 63 73 44 65 6D 6F 3B 0D 0A 0D 0A 7B aphicsDemo;....{
000160: 24 49 20 62 3A 74 79 70 65 64 65 66 2E 73 79 73 $I b:typedef.sys
000170: 7D 0D 0A 7B 24 49 20 62 3A 67 72 61 70 68 69 78 }..{$I b:graphix
000180: 2E 73 79 73 7D 0D 0A 7B 24 49 20 62 3A 6B 65 72 .sys}..{$I b:ker
000190: 6E 65 6C 2E 73 79 73 7D 0D 0A 7B 24 49 20 62 3A nel.sys}..{$I b:
0001A0: 6B 65 72 6E 65 6C 31 2E 73 79 73 7D 0D 0A 7B 24 kernel1.sys}..{$
0001B0: 49 20 62 3A 77 69 6E 64 6F 77 73 2E 73 79 73 7D I b:windows.sys}
0001C0: 0D 0A 7B 24 49 20 62 3A 66 69 6E 64 77 72 6C 64 ..{$I b:findwrld
0001D0: 2E 68 67 68 7D 0D 0A 76 61 72 20 63 68 6F 69 63 .hgh}..var choic
0001E0: 65 3A 69 6E 74 65 67 65 72 3B 0D 0A 0D 0A 7B 24 e:integer;....{$
0001F0: 49 20 74 67 64 65 6D 6F 30 2E 69 6E 63 7D 20 7B I tgdemo0.inc} {
Size : 512 (Real : 512)
000000: 6F 77 28 31 30 2C 30 2C 30 2C 58 4D 61 78 47 6C ow(10,0,0,XMaxGl
000010: 62 2C 59 4D 61 78 47 6C 62 29 3B 0D 0A 20 20 20 b,YMaxGlb);..
000020: 20 53 65 6C 65 63 74 57 6F 72 6C 64 28 32 29 3B SelectWorld(2);
000030: 0D 0A 20 20 20 20 53 65 6C 65 63 74 57 69 6E 64 .. SelectWind
000040: 6F 77 28 31 30 29 3B 0D 0A 20 20 20 20 53 65 74 ow(10);.. Set
000050: 41 73 70 65 63 74 28 31 2E 30 29 3B 0D 0A 20 20 Aspect(1.0);..
000060: 20 20 63 68 6F 69 63 65 3A 3D 6D 65 6E 75 63 68 choice:=menuch
000070: 6F 69 63 65 28 63 68 6F 69 63 65 29 3B 0D 0A 20 oice(choice);..
000080: 20 20 20 43 6C 65 61 72 53 63 72 65 65 6E 3B 0D ClearScreen;.
000090: 0A 20 20 20 20 63 61 73 65 20 63 68 6F 69 63 65 . case choice
0000A0: 20 6F 66 0D 0A 20 20 20 20 20 20 31 3A 62 65 67 of.. 1:beg
0000B0: 69 6E 20 77 69 6E 64 6F 77 64 65 6D 6F 69 6E 66 in windowdemoinf
0000C0: 6F 3B 20 57 69 6E 64 6F 77 44 65 6D 6F 3B 20 65 o; WindowDemo; e
0000D0: 6E 64 3B 0D 0A 20 20 20 20 20 20 32 3A 62 65 67 nd;.. 2:beg
0000E0: 69 6E 20 73 69 6D 70 6C 65 49 6E 66 6F 3B 20 53 in simpleInfo; S
0000F0: 69 6D 70 6C 65 3B 20 65 6E 64 3B 0D 0A 20 20 20 imple; end;..
000100: 20 20 20 33 3A 73 69 65 72 3B 0D 0A 20 20 20 20 3:sier;..
000110: 20 20 34 3A 62 65 67 69 6E 20 70 69 65 69 6E 66 4:begin pieinf
000120: 6F 3B 20 50 69 65 64 65 6D 3B 20 65 6E 64 3B 0D o; Piedem; end;.
000130: 0A 20 20 20 20 20 20 35 3A 62 65 67 69 6E 20 73 . 5:begin s
000140: 70 6C 69 6E 65 49 6E 66 6F 3B 20 53 70 6C 69 6E plineInfo; Splin
000150: 65 64 65 6D 3B 20 65 6E 64 3B 0D 0A 20 20 20 20 edem; end;..
000160: 20 20 36 3A 62 65 67 69 6E 20 70 6F 6C 79 67 6F 6:begin polygo
000170: 6E 49 6E 66 6F 3B 20 50 6F 6C 79 67 6F 6E 64 65 nInfo; Polygonde
000180: 6D 3B 20 65 6E 64 3B 0D 0A 20 20 20 20 20 20 37 m; end;.. 7
000190: 3A 48 69 73 74 6F 44 65 6D 3B 0D 0A 20 20 20 20 :HistoDem;..
0001A0: 20 20 38 3A 46 6C 6F 77 43 68 61 72 74 44 65 6D 8:FlowChartDem
0001B0: 3B 0D 0A 20 20 20 20 20 20 39 3A 62 65 67 69 6E ;.. 9:begin
0001C0: 20 42 65 7A 69 65 72 49 6E 66 6F 3B 20 42 65 7A BezierInfo; Bez
0001D0: 69 65 72 64 65 6D 3B 20 65 6E 64 3B 0D 0A 20 20 ierdem; end;..
0001E0: 20 20 65 6E 64 3B 0D 0A 20 20 75 6E 74 69 6C 20 end;.. until
0001F0: 63 68 6F 69 63 65 3D 30 3B 0D 0A 20 20 4C 65 61 choice=0;.. Lea
Size : 512 (Real : 512)
000000: 20 20 70 72 6F 63 65 64 75 72 65 73 20 63 6F 6D procedures com
000010: 6D 75 6E 65 73 20 7D 0D 0A 0D 0A 7B 2D 2D 2D 2D munes }....{----
000020: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 20 4F 76 65 72 ----------- Over
000030: 20 6C 61 79 20 50 61 72 74 69 65 20 6F 6E 65 20 lay Partie one
000040: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000050: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 7D 0D 0A 7B 24 -----------}..{$
000060: 49 20 74 67 64 65 6D 6F 31 2E 69 6E 63 7D 20 7B I tgdemo1.inc} {
000070: 20 69 6E 74 72 6F 64 75 63 74 69 6F 6E 20 7D 0D introduction }.
000080: 0A 0D 0A 7B 24 49 20 74 67 64 65 6D 6F 31 30 2E ...{$I tgdemo10.
000090: 69 6E 63 7D 20 7B 20 66 65 6E 65 74 72 65 20 7D inc} { fenetre }
0000A0: 0D 0A 0D 0A 7B 24 49 20 74 67 64 65 6D 6F 31 31 ....{$I tgdemo11
0000B0: 2E 69 6E 63 7D 0D 0A 0D 0A 6F 76 65 72 6C 61 79 .inc}....overlay
0000C0: 20 70 72 6F 63 65 64 75 72 65 20 78 64 72 61 77 procedure xdraw
0000D0: 70 6F 6C 79 67 6F 6E 28 61 3A 70 6C 6F 74 61 72 polygon(a:plotar
0000E0: 72 61 79 3B 63 2C 64 2C 65 2C 66 2C 67 3A 69 6E ray;c,d,e,f,g:in
0000F0: 74 65 67 65 72 29 3B 0D 0A 7B 24 49 20 62 3A 70 teger);..{$I b:p
000100: 6F 6C 79 67 6F 6E 2E 68 67 68 7D 0D 0A 62 65 67 olygon.hgh}..beg
000110: 69 6E 0D 0A 20 20 20 64 72 61 77 70 6F 6C 79 67 in.. drawpolyg
000120: 6F 6E 28 61 2C 63 2C 64 2C 65 2C 66 2C 67 29 3B on(a,c,d,e,f,g);
000130: 0D 0A 65 6E 64 3B 0D 0A 0D 0A 6F 76 65 72 6C 61 ..end;....overla
000140: 79 20 70 72 6F 63 65 64 75 72 65 20 78 64 72 61 y procedure xdra
000150: 77 61 78 69 73 28 61 2C 62 2C 63 2C 64 2C 65 2C waxis(a,b,c,d,e,
000160: 66 2C 67 2C 68 3A 69 6E 74 65 67 65 72 3B 69 3A f,g,h:integer;i:
000170: 62 6F 6F 6C 65 61 6E 29 3B 0D 0A 7B 24 49 20 61 boolean);..{$I a
000180: 78 69 73 2E 68 67 68 7D 0D 0A 62 65 67 69 6E 0D xis.hgh}..begin.
000190: 0A 20 20 20 64 72 61 77 61 78 69 73 28 61 2C 62 . drawaxis(a,b
0001A0: 2C 63 2C 64 2C 65 2C 66 2C 67 2C 68 2C 69 29 3B ,c,d,e,f,g,h,i);
0001B0: 0D 0A 65 6E 64 3B 0D 0A 0D 0A 6F 76 65 72 6C 61 ..end;....overla
0001C0: 79 20 70 72 6F 63 65 64 75 72 65 20 78 73 70 6C y procedure xspl
0001D0: 69 6E 65 28 61 3A 70 6C 6F 74 61 72 72 61 79 3B ine(a:plotarray;
0001E0: 62 3A 69 6E 74 65 67 65 72 3B 63 2C 64 3A 72 65 b:integer;c,d:re
0001F0: 61 6C 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 al;..
Size : 512 (Real : 512)
000000: 76 65 47 72 61 70 68 69 63 3B 0D 0A 65 6E 64 2E veGraphic;..end.
000010: 0D 0A 0D 0A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000020: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000030: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000040: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000050: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000060: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000070: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000080: 20 20 20 43 6C 65 61 72 53 63 72 65 65 6E 3B 0D ClearScreen;.
000090: 0A 20 20 20 20 63 61 73 65 20 63 68 6F 69 63 65 . case choice
0000A0: 20 6F 66 0D 0A 20 20 20 20 20 20 31 3A 62 65 67 of.. 1:beg
0000B0: 69 6E 20 77 69 6E 64 6F 77 64 65 6D 6F 69 6E 66 in windowdemoinf
0000C0: 6F 3B 20 57 69 6E 64 6F 77 44 65 6D 6F 3B 20 65 o; WindowDemo; e
0000D0: 6E 64 3B 0D 0A 20 20 20 20 20 20 32 3A 62 65 67 nd;.. 2:beg
0000E0: 69 6E 20 73 69 6D 70 6C 65 49 6E 66 6F 3B 20 53 in simpleInfo; S
0000F0: 69 6D 70 6C 65 3B 20 65 6E 64 3B 0D 0A 20 20 20 imple; end;..
000100: 20 20 20 33 3A 73 69 65 72 3B 0D 0A 20 20 20 20 3:sier;..
000110: 20 20 34 3A 62 65 67 69 6E 20 70 69 65 69 6E 66 4:begin pieinf
000120: 6F 3B 20 50 69 65 64 65 6D 3B 20 65 6E 64 3B 0D o; Piedem; end;.
000130: 0A 20 20 20 20 20 20 35 3A 62 65 67 69 6E 20 73 . 5:begin s
000140: 70 6C 69 6E 65 49 6E 66 6F 3B 20 53 70 6C 69 6E plineInfo; Splin
000150: 65 64 65 6D 3B 20 65 6E 64 3B 0D 0A 20 20 20 20 edem; end;..
000160: 20 20 36 3A 62 65 67 69 6E 20 70 6F 6C 79 67 6F 6:begin polygo
000170: 6E 49 6E 66 6F 3B 20 50 6F 6C 79 67 6F 6E 64 65 nInfo; Polygonde
000180: 6D 3B 20 65 6E 64 3B 0D 0A 20 20 20 20 20 20 37 m; end;.. 7
000190: 3A 48 69 73 74 6F 44 65 6D 3B 0D 0A 20 20 20 20 :HistoDem;..
0001A0: 20 20 38 3A 46 6C 6F 77 43 68 61 72 74 44 65 6D 8:FlowChartDem
0001B0: 3B 0D 0A 20 20 20 20 20 20 39 3A 62 65 67 69 6E ;.. 9:begin
0001C0: 20 42 65 7A 69 65 72 49 6E 66 6F 3B 20 42 65 7A BezierInfo; Bez
0001D0: 69 65 72 64 65 6D 3B 20 65 6E 64 3B 0D 0A 20 20 ierdem; end;..
0001E0: 20 20 65 6E 64 3B 0D 0A 20 20 75 6E 74 69 6C 20 end;.. until
0001F0: 63 68 6F 69 63 65 3D 30 3B 0D 0A 20 20 4C 65 61 choice=0;.. Lea
Size : 512 (Real : 512)
000000: 61 79 28 31 30 30 30 29 3B 0D 0A 0D 0A 20 20 44 ay(1000);.... D
000010: 65 66 69 6E 65 57 69 6E 64 6F 77 49 42 4D 28 34 efineWindowIBM(4
000020: 2C 32 38 2C 36 30 2C 34 39 2C 31 34 30 29 3B 0D ,28,60,49,140);.
000030: 0A 20 20 53 65 6C 65 63 74 57 69 6E 64 6F 77 28 . SelectWindow(
000040: 34 29 3B 0D 0A 20 20 6D 73 67 28 27 20 20 54 72 4);.. msg(' Tr
000050: 61 63 65 20 64 65 20 63 61 72 72 65 73 20 20 20 ace de carres
000060: 3A 20 20 20 44 72 61 77 53 71 75 61 72 65 27 29 : DrawSquare')
000070: 3B 0D 0A 20 20 44 72 61 77 53 71 75 61 72 65 73 ;.. DrawSquares
000080: 3B 0D 0A 20 20 4D 6F 76 65 56 65 72 49 42 4D 28 ;.. MoveVerIBM(
000090: 2D 34 34 2C 74 72 75 65 29 3B 0D 0A 20 20 4D 6F -44,true);.. Mo
0000A0: 76 65 48 6F 72 49 42 4D 28 32 36 2C 74 72 75 65 veHorIBM(26,true
0000B0: 29 3B 0D 0A 20 20 64 65 6C 61 79 28 31 30 30 30 );.. delay(1000
0000C0: 29 3B 0D 0A 0D 0A 20 20 44 65 66 69 6E 65 57 69 );.... DefineWi
0000D0: 6E 64 6F 77 49 42 4D 28 35 2C 32 38 2C 36 30 2C ndowIBM(5,28,60,
0000E0: 34 39 2C 31 34 30 29 3B 0D 0A 20 20 53 65 6C 65 49,140);.. Sele
0000F0: 63 74 57 69 6E 64 6F 77 28 35 29 3B 0D 0A 20 20 ctWindow(5);..
000100: 6D 73 67 28 27 20 20 54 72 61 63 65 20 64 65 20 msg(' Trace de
000110: 63 65 72 63 6C 65 73 20 65 74 20 64 27 65 6C 6C cercles et d'ell
000120: 69 70 73 65 73 20 3A 20 20 44 72 61 77 43 69 72 ipses : DrawCir
000130: 63 6C 65 27 29 3B 0D 0A 20 20 44 72 61 77 43 69 cle');.. DrawCi
000140: 72 63 6C 65 73 3B 0D 0A 20 20 4D 6F 76 65 56 65 rcles;.. MoveVe
000150: 72 49 42 4D 28 34 30 2C 74 72 75 65 29 3B 0D 0A rIBM(40,true);..
000160: 20 20 4D 6F 76 65 48 6F 72 49 42 4D 28 32 36 2C MoveHorIBM(26,
000170: 74 72 75 65 29 3B 0D 0A 20 20 64 65 6C 61 79 28 true);.. delay(
000180: 31 30 30 30 29 3B 0D 0A 0D 0A 20 20 44 65 66 69 1000);.... Defi
000190: 6E 65 57 69 6E 64 6F 77 49 42 4D 28 36 2C 32 38 neWindowIBM(6,28
0001A0: 2C 36 30 2C 34 39 2C 31 34 30 29 3B 53 65 6C 65 ,60,49,140);Sele
0001B0: 63 74 57 69 6E 64 6F 77 28 36 29 3B 0D 0A 20 20 ctWindow(6);..
0001C0: 6D 73 67 28 27 20 54 72 61 63 65 20 64 65 20 73 msg(' Trace de s
0001D0: 65 67 6D 65 6E 74 73 20 64 65 20 63 65 72 63 6C egments de cercl
0001E0: 65 73 20 3A 20 44 72 61 77 43 69 72 63 6C 65 53 es : DrawCircleS
0001F0: 65 67 6D 65 6E 74 27 29 3B 0D 0A 20 20 44 72 61 egment');.. Dra
Size : 512 (Real : 512)
000000: 76 61 72 20 69 2C 6A 2C 72 6E 64 3A 69 6E 74 65 var i,j,rnd:inte
000010: 67 65 72 3B 0D 0A 20 20 20 20 72 61 64 3A 72 65 ger;.. rad:re
000020: 61 6C 3B 0D 0A 20 20 20 20 63 68 3A 63 68 61 72 al;.. ch:char
000030: 3B 0D 0A 70 72 6F 63 65 64 75 72 65 20 44 72 61 ;..procedure Dra
000040: 77 50 6F 69 6E 74 73 3B 0D 0A 76 61 72 20 69 3A wPoints;..var i:
000050: 69 6E 74 65 67 65 72 3B 0D 0A 62 65 67 69 6E 0D integer;..begin.
000060: 0A 20 20 53 65 74 42 61 63 6B 67 72 6F 75 6E 64 . SetBackground
000070: 28 30 29 3B 0D 0A 20 20 44 72 61 77 42 6F 72 64 (0);.. DrawBord
000080: 65 72 3B 0D 0A 20 20 66 6F 72 20 69 3A 3D 31 20 er;.. for i:=1
000090: 74 6F 20 32 35 30 20 64 6F 20 44 72 61 77 50 6F to 250 do DrawPo
0000A0: 69 6E 74 28 72 61 6E 64 6F 6D 28 36 34 30 29 2C int(random(640),
0000B0: 72 61 6E 64 6F 6D 28 32 30 30 29 29 3B 0D 0A 65 random(200));..e
0000C0: 6E 64 3B 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 65 nd;....procedure
0000D0: 20 44 72 61 77 4C 69 6E 65 73 3B 0D 0A 76 61 72 DrawLines;..var
0000E0: 20 69 3A 69 6E 74 65 67 65 72 3B 0D 0A 62 65 67 i:integer;..beg
0000F0: 69 6E 0D 0A 20 20 53 65 74 42 61 63 6B 67 72 6F in.. SetBackgro
000100: 75 6E 64 28 30 29 3B 0D 0A 20 20 44 72 61 77 42 und(0);.. DrawB
000110: 6F 72 64 65 72 3B 0D 0A 20 20 66 6F 72 20 69 3A order;.. for i:
000120: 3D 31 20 74 6F 20 32 30 20 64 6F 20 44 72 61 77 =1 to 20 do Draw
000130: 4C 69 6E 65 28 69 2A 33 31 2C 30 2C 36 34 30 2D Line(i*31,0,640-
000140: 69 2A 33 31 2C 69 2A 31 30 29 3B 0D 0A 65 6E 64 i*31,i*10);..end
000150: 3B 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 65 20 44 ;....procedure D
000160: 72 61 77 53 71 75 61 72 65 73 3B 0D 0A 76 61 72 rawSquares;..var
000170: 20 69 3A 69 6E 74 65 67 65 72 3B 0D 0A 62 65 67 i:integer;..beg
000180: 69 6E 0D 0A 20 20 53 65 74 42 61 63 6B 67 72 6F in.. SetBackgro
000190: 75 6E 64 28 30 29 3B 0D 0A 20 20 44 72 61 77 42 und(0);.. DrawB
0001A0: 6F 72 64 65 72 3B 0D 0A 20 20 66 6F 72 20 69 3A order;.. for i:
0001B0: 3D 31 20 74 6F 20 31 35 20 64 6F 20 44 72 61 77 =1 to 15 do Draw
0001C0: 53 71 75 61 72 65 28 33 32 30 2D 69 2A 32 30 2C Square(320-i*20,
0001D0: 31 30 30 2D 69 2A 36 2C 33 32 30 2B 69 2A 32 30 100-i*6,320+i*20
0001E0: 2C 31 30 30 2B 69 2A 36 2C 66 61 6C 73 65 29 3B ,100+i*6,false);
0001F0: 0D 0A 65 6E 64 3B 0D 0A 0D 0A 70 72 6F 63 65 64 ..end;....proced
Size : 512 (Real : 512)
000000: 77 50 69 65 31 3B 0D 0A 20 20 4D 6F 76 65 56 65 wPie1;.. MoveVe
000010: 72 49 42 4D 28 34 30 2C 74 72 75 65 29 3B 0D 0A rIBM(40,true);..
000020: 20 20 43 6F 70 79 53 63 72 65 65 6E 3B 0D 0A 20 CopyScreen;..
000030: 20 64 65 6C 61 79 28 31 30 30 30 29 3B 0D 0A 0D delay(1000);...
000040: 0A 20 20 44 65 66 69 6E 65 57 69 6E 64 6F 77 49 . DefineWindowI
000050: 42 4D 28 37 2C 32 38 2C 36 30 2C 34 39 2C 31 34 BM(7,28,60,49,14
000060: 30 29 3B 0D 0A 20 20 53 65 6C 65 63 74 57 69 6E 0);.. SelectWin
000070: 64 6F 77 28 37 29 3B 0D 0A 20 20 6D 73 67 28 27 dow(7);.. msg('
000080: 20 20 43 61 72 72 65 73 20 68 61 63 68 75 72 65 Carres hachure
000090: 73 20 20 20 20 3A 20 20 20 68 61 74 63 68 27 29 s : hatch')
0000A0: 3B 0D 0A 20 20 48 61 74 63 68 49 74 3B 0D 0A 20 ;.. HatchIt;..
0000B0: 20 4D 6F 76 65 56 65 72 49 42 4D 28 34 30 2C 74 MoveVerIBM(40,t
0000C0: 72 75 65 29 3B 0D 0A 20 20 4D 6F 76 65 48 6F 72 rue);.. MoveHor
0000D0: 49 42 4D 28 2D 32 36 2C 74 72 75 65 29 3B 0D 0A IBM(-26,true);..
0000E0: 20 20 64 65 6C 61 79 28 31 30 30 30 29 3B 0D 0A delay(1000);..
0000F0: 20 20 43 6C 65 61 72 45 6F 6C 28 32 35 29 3B 0D ClearEol(25);.
000100: 0A 0D 0A 20 20 66 6F 72 20 69 3A 3D 31 20 74 6F ... for i:=1 to
000110: 20 35 20 64 6F 0D 0A 20 20 62 65 67 69 6E 0D 0A 5 do.. begin..
000120: 20 20 20 20 53 65 6C 65 63 74 57 69 6E 64 6F 77 SelectWindow
000130: 28 32 29 3B 0D 0A 20 20 20 20 49 6E 76 65 72 74 (2);.. Invert
000140: 57 69 6E 64 6F 77 3B 0D 0A 20 20 20 20 66 6F 72 Window;.. for
000150: 20 6A 3A 3D 33 20 74 6F 20 37 20 64 6F 0D 0A 20 j:=3 to 7 do..
000160: 20 20 20 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 begin..
000170: 20 53 65 6C 65 63 74 57 69 6E 64 6F 77 28 6A 29 SelectWindow(j)
000180: 3B 0D 0A 20 20 20 20 20 20 49 6E 76 65 72 74 57 ;.. InvertW
000190: 69 6E 64 6F 77 3B 0D 0A 20 20 20 20 20 20 53 65 indow;.. Se
0001A0: 6C 65 63 74 57 69 6E 64 6F 77 28 6A 2D 31 29 3B lectWindow(j-1);
0001B0: 0D 0A 20 20 20 20 20 20 49 6E 76 65 72 74 57 69 .. InvertWi
0001C0: 6E 64 6F 77 3B 0D 0A 20 20 20 20 20 65 6E 64 3B ndow;.. end;
0001D0: 0D 0A 20 20 20 20 53 65 6C 65 63 74 57 69 6E 64 .. SelectWind
0001E0: 6F 77 28 37 29 3B 0D 0A 20 20 20 20 49 6E 76 65 ow(7);.. Inve
0001F0: 72 74 57 69 6E 64 6F 77 3B 0D 0A 20 20 65 6E 64 rtWindow;.. end
Size : 512 (Real : 512)
000000: 75 72 65 20 44 72 61 77 43 69 72 63 6C 65 73 3B ure DrawCircles;
000010: 0D 0A 76 61 72 20 69 3A 69 6E 74 65 67 65 72 3B ..var i:integer;
000020: 0D 0A 20 20 20 20 41 73 70 65 63 74 4C 6F 63 3A .. AspectLoc:
000030: 72 65 61 6C 3B 0D 0A 42 65 67 69 6E 0D 0A 20 20 real;..Begin..
000040: 53 65 74 42 61 63 6B 67 72 6F 75 6E 64 28 30 29 SetBackground(0)
000050: 3B 0D 0A 20 20 44 72 61 77 42 6F 72 64 65 72 3B ;.. DrawBorder;
000060: 0D 0A 20 20 72 61 64 3A 3D 30 2E 38 3B 0D 0A 20 .. rad:=0.8;..
000070: 20 41 73 70 65 63 74 4C 6F 63 3A 3D 47 65 74 41 AspectLoc:=GetA
000080: 73 70 65 63 74 3B 0D 0A 20 20 53 65 74 41 73 70 spect;.. SetAsp
000090: 65 63 74 28 31 2F 34 2E 35 29 3B 0D 0A 20 20 66 ect(1/4.5);.. f
0000A0: 6F 72 20 69 3A 3D 31 20 74 6F 20 31 35 20 64 6F or i:=1 to 15 do
0000B0: 0D 0A 20 20 62 65 67 69 6E 0D 0A 20 20 20 20 44 .. begin.. D
0000C0: 72 61 77 43 69 72 63 6C 65 28 33 32 30 2C 31 30 rawCircle(320,10
0000D0: 30 2C 72 61 64 29 3B 0D 0A 20 20 20 20 53 65 74 0,rad);.. Set
0000E0: 41 73 70 65 63 74 28 28 31 2B 69 29 2F 34 2E 35 Aspect((1+i)/4.5
0000F0: 29 3B 0D 0A 20 20 20 20 72 61 64 3A 3D 72 61 64 );.. rad:=rad
000100: 2D 30 2E 30 35 3B 0D 0A 20 20 65 6E 64 3B 0D 0A -0.05;.. end;..
000110: 20 20 53 65 74 41 73 70 65 63 74 28 41 73 70 65 SetAspect(Aspe
000120: 63 74 4C 6F 63 29 3B 0D 0A 65 6E 64 3B 0D 0A 0D ctLoc);..end;...
000130: 0A 70 72 6F 63 65 64 75 72 65 20 44 72 61 77 50 .procedure DrawP
000140: 69 65 31 3B 0D 0A 76 61 72 20 61 3A 50 69 65 41 ie1;..var a:PieA
000150: 72 72 61 79 3B 0D 0A 20 20 20 20 69 3A 69 6E 74 rray;.. i:int
000160: 65 67 65 72 3B 0D 0A 62 65 67 69 6E 0D 0A 20 20 eger;..begin..
000170: 53 65 74 42 61 63 6B 67 72 6F 75 6E 64 28 30 29 SetBackground(0)
000180: 3B 0D 0A 20 20 44 72 61 77 42 6F 72 64 65 72 3B ;.. DrawBorder;
000190: 0D 0A 20 20 66 6F 72 20 69 3A 3D 31 20 74 6F 20 .. for i:=1 to
0001A0: 35 20 64 6F 0D 0A 20 20 62 65 67 69 6E 0D 0A 20 5 do.. begin..
0001B0: 20 20 20 61 5B 69 5D 2E 61 72 65 61 3A 3D 72 61 a[i].area:=ra
0001C0: 6E 64 6F 6D 2B 30 2E 33 35 3B 0D 0A 20 20 20 20 ndom+0.35;..
0001D0: 61 5B 69 5D 2E 74 65 78 74 3A 3D 27 27 3B 0D 0A a[i].text:='';..
0001E0: 20 20 65 6E 64 3B 0D 0A 20 20 61 5B 32 5D 2E 61 end;.. a[2].a
0001F0: 72 65 61 3A 3D 2D 61 5B 32 5D 2E 61 72 65 61 3B rea:=-a[2].area;
Size : 512 (Real : 512)
000000: 3B 0D 0A 0D 0A 20 20 6D 73 67 28 27 20 54 61 70 ;.... msg(' Tap
000010: 65 72 20 52 45 54 55 52 4E 20 70 6F 75 72 20 63 er RETURN pour c
000020: 6F 6E 74 69 6E 75 65 72 27 29 3B 0D 0A 20 20 66 ontinuer');.. f
000030: 6F 72 20 69 3A 3D 32 20 74 6F 20 37 20 64 6F 20 or i:=2 to 7 do
000040: 62 65 67 69 6E 20 53 65 6C 65 63 74 57 69 6E 64 begin SelectWind
000050: 6F 77 28 69 29 3B 20 49 6E 76 65 72 74 57 69 6E ow(i); InvertWin
000060: 64 6F 77 3B 20 65 6E 64 3B 0D 0A 20 20 69 3A 3D dow; end;.. i:=
000070: 30 3B 0D 0A 20 20 63 68 3A 3D 27 20 27 3B 0D 0A 0;.. ch:=' ';..
000080: 20 20 72 65 70 65 61 74 0D 0A 20 20 20 20 72 6E repeat.. rn
000090: 64 3A 3D 72 61 6E 64 6F 6D 28 36 29 2B 31 3B 0D d:=random(6)+1;.
0000A0: 0A 20 20 20 20 53 65 6C 65 63 74 57 69 6E 64 6F . SelectWindo
0000B0: 77 28 72 6E 64 2B 31 29 3B 0D 0A 20 20 20 20 63 w(rnd+1);.. c
0000C0: 61 73 65 20 72 6E 64 20 6F 66 0D 0A 20 20 20 20 ase rnd of..
0000D0: 20 20 31 3A 44 72 61 77 50 6F 69 6E 74 73 3B 0D 1:DrawPoints;.
0000E0: 0A 20 20 20 20 20 20 32 3A 44 72 61 77 4C 69 6E . 2:DrawLin
0000F0: 65 73 3B 0D 0A 20 20 20 20 20 20 33 3A 44 72 61 es;.. 3:Dra
000100: 77 53 71 75 61 72 65 73 3B 0D 0A 20 20 20 20 20 wSquares;..
000110: 20 34 3A 44 72 61 77 43 69 72 63 6C 65 73 3B 0D 4:DrawCircles;.
000120: 0A 20 20 20 20 20 20 35 3A 44 72 61 77 50 69 65 . 5:DrawPie
000130: 31 3B 0D 0A 20 20 20 20 20 20 36 3A 48 61 74 63 1;.. 6:Hatc
000140: 68 49 74 3B 0D 0A 20 20 20 20 65 6E 64 3B 0D 0A hIt;.. end;..
000150: 20 20 20 20 49 6E 76 65 72 74 57 69 6E 64 6F 77 InvertWindow
000160: 3B 0D 0A 20 20 20 20 69 3A 3D 69 2B 31 3B 0D 0A ;.. i:=i+1;..
000170: 20 20 20 20 69 66 20 6B 65 79 70 72 65 73 73 65 if keypresse
000180: 64 20 74 68 65 6E 20 72 65 61 64 28 6B 62 64 2C d then read(kbd,
000190: 63 68 29 3B 0D 0A 20 20 75 6E 74 69 6C 20 28 63 ch);.. until (c
0001A0: 68 3D 5E 4D 29 20 6F 72 20 28 69 3D 33 30 29 3B h=^M) or (i=30);
0001B0: 0D 0A 0D 0A 65 6E 64 3B 0D 0A 0D 0A 1A 1A 1A 1A ....end;........
0001C0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0001D0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0001E0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0001F0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
Size : 512 (Real : 512)
000000: 0D 0A 20 20 78 44 72 61 77 43 61 72 74 50 69 65 .. xDrawCartPie
000010: 28 33 32 30 2C 31 30 30 2C 35 30 30 2C 31 30 30 (320,100,500,100
000020: 2C 31 2C 31 2C 61 2C 35 2C 30 2C 31 29 3B 0D 0A ,1,1,a,5,0,1);..
000030: 65 6E 64 3B 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 end;....procedur
000040: 65 20 48 61 74 63 68 49 74 3B 0D 0A 76 61 72 20 e HatchIt;..var
000050: 69 2C 74 65 6D 70 2C 78 31 2C 78 32 2C 79 31 2C i,temp,x1,x2,y1,
000060: 79 32 3A 69 6E 74 65 67 65 72 3B 0D 0A 62 65 67 y2:integer;..beg
000070: 69 6E 0D 0A 20 20 53 65 74 42 61 63 6B 67 72 6F in.. SetBackgro
000080: 75 6E 64 28 30 29 3B 0D 0A 20 20 44 72 61 77 42 und(0);.. DrawB
000090: 6F 72 64 65 72 3B 0D 0A 20 20 66 6F 72 20 69 3A order;.. for i:
0000A0: 3D 31 20 74 6F 20 35 20 64 6F 0D 0A 20 20 62 65 =1 to 5 do.. be
0000B0: 67 69 6E 0D 0A 20 20 20 20 78 31 3A 3D 31 30 30 gin.. x1:=100
0000C0: 2B 72 61 6E 64 6F 6D 28 35 30 30 29 3B 0D 0A 20 +random(500);..
0000D0: 20 20 20 78 32 3A 3D 31 30 30 2B 72 61 6E 64 6F x2:=100+rando
0000E0: 6D 28 35 30 30 29 3B 0D 0A 20 20 20 20 79 31 3A m(500);.. y1:
0000F0: 3D 33 30 2B 72 61 6E 64 6F 6D 28 31 36 30 29 3B =30+random(160);
000100: 0D 0A 20 20 20 20 79 32 3A 3D 33 30 2B 72 61 6E .. y2:=30+ran
000110: 64 6F 6D 28 31 36 30 29 3B 0D 0A 20 20 20 20 69 dom(160);.. i
000120: 66 20 78 31 3E 78 32 20 74 68 65 6E 20 62 65 67 f x1>x2 then beg
000130: 69 6E 20 74 65 6D 70 3A 3D 78 31 3B 78 31 3A 3D in temp:=x1;x1:=
000140: 78 32 3B 78 32 3A 3D 74 65 6D 70 3B 20 65 6E 64 x2;x2:=temp; end
000150: 3B 0D 0A 20 20 20 20 69 66 20 79 31 3E 79 32 20 ;.. if y1>y2
000160: 74 68 65 6E 20 62 65 67 69 6E 20 74 65 6D 70 3A then begin temp:
000170: 3D 79 31 3B 79 31 3A 3D 79 32 3B 79 32 3A 3D 74 =y1;y1:=y2;y2:=t
000180: 65 6D 70 3B 20 65 6E 64 3B 0D 0A 20 20 20 20 44 emp; end;.. D
000190: 72 61 77 53 71 75 61 72 65 28 78 31 2C 79 31 2C rawSquare(x1,y1,
0001A0: 78 32 2C 79 32 2C 66 61 6C 73 65 29 3B 0D 0A 20 x2,y2,false);..
0001B0: 20 20 20 78 68 61 74 63 68 28 78 31 2C 79 31 2C xhatch(x1,y1,
0001C0: 78 32 2C 79 32 2C 72 61 6E 64 6F 6D 28 36 29 2B x2,y2,random(6)+
0001D0: 35 29 3B 0D 0A 20 20 65 6E 64 3B 0D 0A 65 6E 64 5);.. end;..end
0001E0: 3B 0D 0A 0D 0A 62 65 67 69 6E 0D 0A 20 20 43 6C ;....begin.. Cl
0001F0: 65 61 72 53 63 72 65 65 6E 3B 0D 0A 20 20 53 65 earScreen;.. Se
Size : 512 (Real : 512)
000000: 20 4C 49 4E 45 20 50 4F 53 49 54 49 4F 4E 0D 0A LINE POSITION..
000010: 09 4A 43 09 46 49 4E 49 53 09 3B 43 41 52 52 59 .JC.FINIS.;CARRY
000020: 20 53 45 54 20 42 59 20 47 4E 42 20 49 46 20 45 SET BY GNB IF E
000030: 4E 44 20 46 49 4C 45 0D 0A 09 4D 4F 56 09 42 2C ND FILE...MOV.B,
000040: 41 0D 0A 3B 09 50 52 49 4E 54 20 48 45 58 20 56 A..;.PRINT HEX V
000050: 41 4C 55 45 53 0D 0A 3B 09 43 48 45 43 4B 20 46 ALUES..;.CHECK F
000060: 4F 52 20 4C 49 4E 45 20 46 4F 4C 44 0D 0A 09 4D OR LINE FOLD...M
000070: 4F 56 09 41 2C 4C 0D 0A 09 41 4E 49 09 30 46 48 OV.A,L...ANI.0FH
000080: 09 3B 43 48 45 43 4B 20 4C 4F 57 20 34 20 42 49 .;CHECK LOW 4 BI
000090: 54 53 0D 0A 09 4A 4E 5A 09 4E 4F 4E 55 4D 0D 0A TS...JNZ.NONUM..
0000A0: 3B 09 50 52 49 4E 54 20 4C 49 4E 45 20 4E 55 4D ;.PRINT LINE NUM
0000B0: 42 45 52 0D 0A 09 43 41 4C 4C 09 43 52 4C 46 0D BER...CALL.CRLF.
0000C0: 0A 3B 0D 0A 3B 09 43 48 45 43 4B 20 46 4F 52 20 .;..;.CHECK FOR
0000D0: 42 52 45 41 4B 20 4B 45 59 0D 0A 09 43 41 4C 4C BREAK KEY...CALL
0000E0: 09 42 52 45 41 4B 0D 0A 3B 09 41 43 43 55 4D 20 .BREAK..;.ACCUM
0000F0: 4C 53 42 20 3D 20 31 20 49 46 20 43 48 41 52 41 LSB = 1 IF CHARA
000100: 43 54 45 52 20 52 45 41 44 59 0D 0A 09 52 52 43 CTER READY...RRC
000110: 09 09 3B 49 4E 54 4F 20 43 41 52 52 59 0D 0A 09 ..;INTO CARRY...
000120: 4A 43 09 46 49 4E 49 53 09 3B 44 4F 4E 27 54 20 JC.FINIS.;DON'T
000130: 50 52 49 4E 54 20 41 4E 59 20 4D 4F 52 45 0D 0A PRINT ANY MORE..
000140: 3B 0D 0A 09 4D 4F 56 09 41 2C 48 0D 0A 09 43 41 ;...MOV.A,H...CA
000150: 4C 4C 09 50 48 45 58 0D 0A 09 4D 4F 56 09 41 2C LL.PHEX...MOV.A,
000160: 4C 0D 0A 09 43 41 4C 4C 09 50 48 45 58 0D 0A 4E L...CALL.PHEX..N
000170: 4F 4E 55 4D 3A 0D 0A 09 49 4E 58 09 48 09 3B 54 ONUM:...INX.H.;T
000180: 4F 20 4E 45 58 54 20 4C 49 4E 45 20 4E 55 4D 42 O NEXT LINE NUMB
000190: 45 52 0D 0A 09 4D 56 49 09 41 2C 27 20 27 0D 0A ER...MVI.A,' '..
0001A0: 09 43 41 4C 4C 09 50 43 48 41 52 0D 0A 09 4D 4F .CALL.PCHAR...MO
0001B0: 56 09 41 2C 42 0D 0A 09 43 41 4C 4C 09 50 48 45 V.A,B...CALL.PHE
0001C0: 58 0D 0A 09 4A 4D 50 09 47 4C 4F 4F 50 0D 0A 3B X...JMP.GLOOP..;
0001D0: 0D 0A 46 49 4E 49 53 3A 0D 0A 3B 09 45 4E 44 20 ..FINIS:..;.END
0001E0: 4F 46 20 44 55 4D 50 2C 20 52 45 54 55 52 4E 20 OF DUMP, RETURN
0001F0: 54 4F 20 43 43 50 0D 0A 3B 09 28 4E 4F 54 45 20 TO CCP..;.(NOTE
Size : 512 (Real : 512)
000000: 74 48 65 61 64 65 72 4F 6E 3B 0D 0A 20 20 44 65 tHeaderOn;.. De
000010: 66 69 6E 65 57 69 6E 64 6F 77 49 42 4D 28 31 2C fineWindowIBM(1,
000020: 30 2C 30 2C 37 39 2C 31 38 35 29 3B 0D 0A 20 20 0,0,79,185);..
000030: 44 65 66 69 6E 65 48 65 61 64 65 72 28 31 2C 27 DefineHeader(1,'
000040: 53 69 6D 70 6C 65 73 20 70 72 6F 63 65 64 75 72 Simples procedur
000050: 65 73 20 67 72 61 70 68 69 71 75 65 73 27 29 3B es graphiques');
000060: 0D 0A 20 20 53 65 6C 65 63 74 57 69 6E 64 6F 77 .. SelectWindow
000070: 28 31 29 3B 0D 0A 20 20 53 65 74 42 61 63 6B 67 (1);.. SetBackg
000080: 72 6F 75 6E 64 28 39 30 29 3B 0D 0A 20 20 44 72 round(90);.. Dr
000090: 61 77 42 6F 72 64 65 72 3B 0D 0A 20 20 43 6F 70 awBorder;.. Cop
0000A0: 79 53 63 72 65 65 6E 3B 0D 0A 0D 0A 20 20 44 65 yScreen;.... De
0000B0: 66 69 6E 65 57 69 6E 64 6F 77 49 42 4D 28 32 2C fineWindowIBM(2,
0000C0: 32 38 2C 36 30 2C 34 39 2C 31 34 30 29 3B 0D 0A 28,60,49,140);..
0000D0: 20 20 53 65 6C 65 63 74 57 69 6E 64 6F 77 28 32 SelectWindow(2
0000E0: 29 3B 0D 0A 20 20 6D 73 67 28 27 20 54 72 61 63 );.. msg(' Trac
0000F0: 65 20 64 65 20 70 6F 69 6E 74 73 20 20 20 3A 20 e de points :
000100: 20 20 44 72 61 77 50 6F 69 6E 74 27 29 3B 0D 0A DrawPoint');..
000110: 20 20 44 72 61 77 50 6F 69 6E 74 73 3B 0D 0A 20 DrawPoints;..
000120: 20 4D 6F 76 65 56 65 72 49 42 4D 28 2D 34 34 2C MoveVerIBM(-44,
000130: 74 72 75 65 29 3B 0D 0A 20 20 4D 6F 76 65 48 6F true);.. MoveHo
000140: 72 49 42 4D 28 2D 32 36 2C 74 72 75 65 29 3B 0D rIBM(-26,true);.
000150: 0A 20 20 64 65 6C 61 79 28 31 30 30 30 29 3B 0D . delay(1000);.
000160: 0A 0D 0A 20 20 44 65 66 69 6E 65 57 69 6E 64 6F ... DefineWindo
000170: 77 49 42 4D 28 33 2C 32 38 2C 36 30 2C 34 39 2C wIBM(3,28,60,49,
000180: 31 34 30 29 3B 0D 0A 20 20 53 65 6C 65 63 74 57 140);.. SelectW
000190: 69 6E 64 6F 77 28 33 29 3B 0D 0A 20 20 6D 73 67 indow(3);.. msg
0001A0: 28 27 20 20 54 72 61 63 65 20 64 65 20 6C 69 67 (' Trace de lig
0001B0: 6E 65 73 20 3A 20 20 20 44 72 61 77 4C 69 6E 65 nes : DrawLine
0001C0: 27 29 3B 0D 0A 20 20 44 72 61 77 4C 69 6E 65 73 ');.. DrawLines
0001D0: 3B 0D 0A 20 20 4D 6F 76 65 56 65 72 49 42 4D 28 ;.. MoveVerIBM(
0001E0: 2D 34 34 2C 74 72 75 65 29 3B 0D 0A 20 20 43 6F -44,true);.. Co
0001F0: 70 79 53 63 72 65 65 6E 3B 0D 0A 20 20 64 65 6C pyScreen;.. del
Size : 512 (Real : 512)
000000: 76 61 72 20 6E 3A 69 6E 74 65 67 65 72 3B 0D 0A var n:integer;..
000010: 20 20 20 20 62 2C 61 3A 50 6C 6F 74 41 72 72 61 b,a:PlotArra
000020: 79 3B 0D 0A 20 20 20 20 78 31 2C 78 32 3A 69 6E y;.. x1,x2:in
000030: 74 65 67 65 72 3B 0D 0A 0D 0A 70 72 6F 63 65 64 teger;....proced
000040: 75 72 65 20 47 65 6E 65 72 61 74 65 46 75 6E 63 ure GenerateFunc
000050: 74 69 6F 6E 28 76 61 72 20 61 2C 62 3A 50 6C 6F tion(var a,b:Plo
000060: 74 41 72 72 61 79 3B 6E 3A 69 6E 74 65 67 65 72 tArray;n:integer
000070: 29 3B 0D 0A 76 61 72 20 69 3A 69 6E 74 65 67 65 );..var i:intege
000080: 72 3B 0D 0A 20 20 20 20 64 65 6C 74 61 3A 72 65 r;.. delta:re
000090: 61 6C 3B 0D 0A 62 65 67 69 6E 0D 0A 20 20 64 65 al;..begin.. de
0000A0: 6C 74 61 3A 3D 32 2A 70 69 2F 28 6E 2D 31 29 3B lta:=2*pi/(n-1);
0000B0: 0D 0A 20 20 66 6F 72 20 69 3A 3D 31 20 74 6F 20 .. for i:=1 to
0000C0: 6E 20 64 6F 0D 0A 20 20 20 20 62 65 67 69 6E 0D n do.. begin.
0000D0: 0A 20 20 20 20 20 20 61 5B 69 2C 31 5D 3A 3D 28 . a[i,1]:=(
0000E0: 69 2D 31 29 2A 64 65 6C 74 61 2D 70 69 3B 0D 0A i-1)*delta-pi;..
0000F0: 20 20 20 20 20 20 62 5B 69 2C 31 5D 3A 3D 61 5B b[i,1]:=a[
000100: 69 2C 31 5D 3B 0D 0A 20 20 20 20 20 20 62 5B 69 i,1];.. b[i
000110: 2C 32 5D 3A 3D 65 78 70 28 2D 61 62 73 28 61 5B ,2]:=exp(-abs(a[
000120: 69 2C 31 5D 29 29 3B 0D 0A 20 20 20 20 20 20 61 i,1]));.. a
000130: 5B 69 2C 32 5D 3A 3D 73 69 6E 28 61 5B 69 2C 31 [i,2]:=sin(a[i,1
000140: 5D 29 2A 65 78 70 28 2D 61 62 73 28 61 5B 69 2C ])*exp(-abs(a[i,
000150: 31 5D 29 2A 30 2E 31 29 3B 0D 0A 20 20 20 20 65 1])*0.1);.. e
000160: 6E 64 3B 0D 0A 65 6E 64 3B 0D 0A 0D 0A 62 65 67 nd;..end;....beg
000170: 69 6E 0D 0A 20 20 43 6C 65 61 72 53 63 72 65 65 in.. ClearScree
000180: 6E 3B 0D 0A 20 20 53 65 74 43 6F 6C 6F 72 57 68 n;.. SetColorWh
000190: 69 74 65 3B 0D 0A 20 20 6E 3A 3D 33 30 3B 0D 0A ite;.. n:=30;..
0001A0: 20 20 67 6F 74 6F 78 79 28 35 30 2C 32 35 29 3B gotoxy(50,25);
0001B0: 0D 0A 20 20 77 72 69 74 65 28 27 55 6E 20 6D 6F .. write('Un mo
0001C0: 6D 65 6E 74 20 53 2E 56 2E 50 2E 2E 2E 2E 2E 27 ment S.V.P.....'
0001D0: 29 3B 0D 0A 20 20 47 65 6E 65 72 61 74 65 46 75 );.. GenerateFu
0001E0: 6E 63 74 69 6F 6E 28 61 2C 62 2C 6E 29 3B 0D 0A nction(a,b,n);..
0001F0: 20 20 43 6C 65 61 72 53 63 72 65 65 6E 3B 0D 0A ClearScreen;..
Size : 512 (Real : 512)
000000: 6F 6C 79 67 6F 6E 28 62 2C 31 2C 6E 2C 2D 34 2C olygon(b,1,n,-4,
000010: 32 2C 30 29 3B 0D 0A 0D 0A 20 20 64 65 6C 61 79 2,0);.... delay
000020: 28 31 35 30 30 30 29 3B 0D 0A 0D 0A 20 20 6D 73 (15000);.... ms
000030: 67 28 27 4C 65 73 20 70 6F 69 6E 74 73 20 64 65 g('Les points de
000040: 20 6C 61 20 73 65 63 6F 6E 64 65 20 66 6F 6E 63 la seconde fonc
000050: 74 69 6F 6E 20 72 65 6C 69 65 73 20 70 61 72 20 tion relies par
000060: 64 65 73 20 6C 69 67 6E 65 73 20 3A 20 44 72 61 des lignes : Dra
000070: 77 50 6F 6C 79 67 6F 6E 27 29 3B 0D 0A 20 20 78 wPolygon');.. x
000080: 44 72 61 77 41 78 69 73 28 30 2C 30 2C 30 2C 30 DrawAxis(0,0,0,0
000090: 2C 30 2C 30 2C 30 2C 30 2C 66 61 6C 73 65 29 3B ,0,0,0,0,false);
0000A0: 0D 0A 20 20 53 65 74 4C 69 6E 65 73 74 79 6C 65 .. SetLinestyle
0000B0: 28 31 29 3B 0D 0A 20 20 78 44 72 61 77 50 6F 6C (1);.. xDrawPol
0000C0: 79 67 6F 6E 28 62 2C 31 2C 6E 2C 30 2C 30 2C 30 ygon(b,1,n,0,0,0
0000D0: 29 3B 0D 0A 20 20 53 65 74 4C 69 6E 65 73 74 79 );.. SetLinesty
0000E0: 6C 65 28 30 29 3B 0D 0A 0D 0A 20 20 64 65 6C 61 le(0);.... dela
0000F0: 79 28 31 35 30 30 30 29 3B 0D 0A 0D 0A 20 20 6D y(15000);.... m
000100: 73 67 28 27 4C 65 74 74 72 61 67 65 20 64 65 73 sg('Lettrage des
000110: 20 61 78 65 73 20 61 76 65 63 20 6C 61 20 70 6C axes avec la pl
000120: 75 73 20 67 72 61 6E 64 65 20 64 65 6E 73 69 74 us grande densit
000130: 65 3A 20 44 72 61 77 41 78 69 73 2C 44 72 61 77 e: DrawAxis,Draw
000140: 50 6F 6C 79 67 6F 6E 27 29 3B 0D 0A 20 20 44 65 Polygon');.. De
000150: 66 69 6E 65 57 69 6E 64 6F 77 49 42 4D 28 32 2C fineWindowIBM(2,
000160: 38 2C 31 35 2C 37 30 2C 31 37 30 29 3B 0D 0A 20 8,15,70,170);..
000170: 20 44 65 66 69 6E 65 48 65 61 64 65 72 28 32 2C DefineHeader(2,
000180: 27 4D 61 72 71 75 61 67 65 20 64 65 73 20 70 6F 'Marquage des po
000190: 69 6E 74 73 27 29 3B 0D 0A 20 20 53 65 6C 65 63 ints');.. Selec
0001A0: 74 57 69 6E 64 6F 77 28 32 29 3B 0D 0A 20 20 53 tWindow(2);.. S
0001B0: 65 74 42 61 63 6B 67 72 6F 75 6E 64 28 30 29 3B etBackground(0);
0001C0: 0D 0A 20 20 44 72 61 77 42 6F 72 64 65 72 3B 0D .. DrawBorder;.
0001D0: 0A 20 20 78 44 72 61 77 41 78 69 73 28 38 2C 2D . xDrawAxis(8,-
0001E0: 38 2C 30 2C 30 2C 30 2C 30 2C 30 2C 31 2C 66 61 8,0,0,0,0,0,1,fa
0001F0: 6C 73 65 29 3B 0D 0A 20 20 78 44 72 61 77 50 6F lse);.. xDrawPo
Size : 512 (Real : 512)
000000: 20 20 44 65 66 69 6E 65 57 6F 72 6C 64 28 31 2C DefineWorld(1,
000010: 2D 70 69 2C 31 2C 70 69 2C 2D 31 29 3B 0D 0A 20 -pi,1,pi,-1);..
000020: 20 53 65 6C 65 63 74 57 6F 72 6C 64 28 31 29 3B SelectWorld(1);
000030: 0D 0A 0D 0A 20 20 6D 73 67 28 27 4C 61 20 66 6F .... msg('La fo
000040: 6E 63 74 69 6F 6E 20 64 27 65 78 65 6D 70 6C 65 nction d'exemple
000050: 20 65 6E 20 63 6F 6F 72 64 6F 6E 6E 65 65 73 20 en coordonnees
000060: 6D 6F 6E 64 65 20 5B 2D 50 69 2C 50 69 5D 20 3A monde [-Pi,Pi] :
000070: 20 44 72 61 77 50 6F 6C 79 67 6F 6E 27 29 3B 0D DrawPolygon');.
000080: 0A 20 20 44 65 66 69 6E 65 57 69 6E 64 6F 77 49 . DefineWindowI
000090: 42 4D 28 31 2C 30 2C 30 2C 33 39 2C 39 35 29 3B BM(1,0,0,39,95);
0000A0: 0D 0A 20 20 44 65 66 69 6E 65 48 65 61 64 65 72 .. DefineHeader
0000B0: 28 31 2C 27 4C 61 20 66 6F 6E 63 74 69 6F 6E 20 (1,'La fonction
0000C0: 64 27 27 65 78 65 6D 70 6C 65 27 29 3B 0D 0A 20 d''exemple');..
0000D0: 20 53 65 6C 65 63 74 57 69 6E 64 6F 77 28 31 29 SelectWindow(1)
0000E0: 3B 0D 0A 20 20 44 72 61 77 42 6F 72 64 65 72 3B ;.. DrawBorder;
0000F0: 0D 0A 20 20 78 44 72 61 77 50 6F 6C 79 67 6F 6E .. xDrawPolygon
000100: 28 61 2C 31 2C 6E 2C 30 2C 30 2C 30 29 3B 0D 0A (a,1,n,0,0,0);..
000110: 0D 0A 20 20 64 65 6C 61 79 28 31 35 30 30 30 29 .. delay(15000)
000120: 3B 0D 0A 0D 0A 20 20 6D 73 67 28 27 50 72 6F 63 ;.... msg('Proc
000130: 65 64 75 72 65 73 20 75 74 69 6C 69 73 65 65 73 edures utilisees
000140: 20 3A 20 44 72 61 77 41 78 69 73 20 2C 20 44 72 : DrawAxis , Dr
000150: 61 77 50 6F 6C 79 67 6F 6E 27 29 3B 0D 0A 20 20 awPolygon');..
000160: 44 65 66 69 6E 65 57 69 6E 64 6F 77 49 42 4D 28 DefineWindowIBM(
000170: 32 2C 32 30 2C 34 30 2C 37 39 2C 31 38 35 29 3B 2,20,40,79,185);
000180: 0D 0A 20 20 44 65 66 69 6E 65 48 65 61 64 65 72 .. DefineHeader
000190: 28 32 2C 27 45 78 65 6D 70 6C 65 20 64 65 20 66 (2,'Exemple de f
0001A0: 6F 6E 63 74 69 6F 6E 20 61 76 65 63 20 61 78 65 onction avec axe
0001B0: 73 27 29 3B 0D 0A 20 20 53 65 6C 65 63 74 57 69 s');.. SelectWi
0001C0: 6E 64 6F 77 28 32 29 3B 0D 0A 20 20 53 65 74 42 ndow(2);.. SetB
0001D0: 61 63 6B 67 72 6F 75 6E 64 28 30 29 3B 0D 0A 20 ackground(0);..
0001E0: 20 44 72 61 77 42 6F 72 64 65 72 3B 0D 0A 20 20 DrawBorder;..
0001F0: 78 44 72 61 77 41 78 69 73 28 38 2C 2D 38 2C 30 xDrawAxis(8,-8,0
Size : 512 (Real : 512)
000000: 6C 79 67 6F 6E 28 61 2C 31 2C 6E 2C 2D 32 2C 33 lygon(a,1,n,-2,3
000010: 2C 30 29 3B 0D 0A 0D 0A 20 20 64 65 6C 61 79 28 ,0);.... delay(
000020: 31 35 30 30 30 29 3B 0D 0A 0D 0A 20 20 78 44 72 15000);.... xDr
000030: 61 77 41 78 69 73 28 30 2C 30 2C 30 2C 30 2C 30 awAxis(0,0,0,0,0
000040: 2C 30 2C 2D 31 2C 2D 31 2C 66 61 6C 73 65 29 3B ,0,-1,-1,false);
000050: 0D 0A 20 20 78 44 72 61 77 50 6F 6C 79 67 6F 6E .. xDrawPolygon
000060: 28 61 2C 31 2C 6E 2C 39 2C 31 2C 2D 31 29 3B 0D (a,1,n,9,1,-1);.
000070: 0A 0D 0A 20 20 64 65 6C 61 79 28 31 35 30 30 30 ... delay(15000
000080: 29 3B 0D 0A 0D 0A 20 20 78 44 72 61 77 41 78 69 );.... xDrawAxi
000090: 73 28 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 2D 31 s(0,0,0,0,0,0,-1
0000A0: 2C 2D 31 2C 66 61 6C 73 65 29 3B 0D 0A 20 20 53 ,-1,false);.. S
0000B0: 65 74 4C 69 6E 65 73 74 79 6C 65 28 32 29 3B 0D etLinestyle(2);.
0000C0: 0A 20 20 78 44 72 61 77 50 6F 6C 79 67 6F 6E 28 . xDrawPolygon(
0000D0: 61 2C 31 2C 6E 2C 30 2C 30 2C 30 29 3B 0D 0A 20 a,1,n,0,0,0);..
0000E0: 20 53 65 74 4C 69 6E 65 73 74 79 6C 65 28 30 29 SetLinestyle(0)
0000F0: 3B 0D 0A 0D 0A 20 20 64 65 6C 61 79 28 31 35 30 ;.... delay(150
000100: 30 30 29 3B 0D 0A 0D 0A 65 6E 64 3B 0D 0A 0D 0A 00);....end;....
000110: 0D 0A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000120: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000130: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000140: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000150: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000160: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000170: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000180: 27 4D 61 72 71 75 61 67 65 20 64 65 73 20 70 6F 'Marquage des po
000190: 69 6E 74 73 27 29 3B 0D 0A 20 20 53 65 6C 65 63 ints');.. Selec
0001A0: 74 57 69 6E 64 6F 77 28 32 29 3B 0D 0A 20 20 53 tWindow(2);.. S
0001B0: 65 74 42 61 63 6B 67 72 6F 75 6E 64 28 30 29 3B etBackground(0);
0001C0: 0D 0A 20 20 44 72 61 77 42 6F 72 64 65 72 3B 0D .. DrawBorder;.
0001D0: 0A 20 20 78 44 72 61 77 41 78 69 73 28 38 2C 2D . xDrawAxis(8,-
0001E0: 38 2C 30 2C 30 2C 30 2C 30 2C 30 2C 31 2C 66 61 8,0,0,0,0,0,1,fa
0001F0: 6C 73 65 29 3B 0D 0A 20 20 78 44 72 61 77 50 6F lse);.. xDrawPo
Size : 512 (Real : 512)
000000: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 66 61 6C 73 65 ,0,0,0,0,0,false
000010: 29 3B 0D 0A 20 20 78 44 72 61 77 50 6F 6C 79 67 );.. xDrawPolyg
000020: 6F 6E 28 61 2C 31 2C 6E 2C 30 2C 30 2C 30 29 3B on(a,1,n,0,0,0);
000030: 0D 0A 0D 0A 20 20 64 65 6C 61 79 28 31 35 30 30 .... delay(1500
000040: 30 29 3B 0D 0A 0D 0A 20 20 6D 73 67 28 27 41 78 0);.... msg('Ax
000050: 65 20 64 65 20 64 65 6E 73 69 74 65 20 70 6C 75 e de densite plu
000060: 73 20 67 72 61 6E 64 65 20 3A 20 44 72 61 77 41 s grande : DrawA
000070: 78 69 73 20 2C 20 44 72 61 77 50 6F 6C 79 67 6F xis , DrawPolygo
000080: 6E 27 29 3B 0D 0A 20 20 44 65 66 69 6E 65 57 69 n');.. DefineWi
000090: 6E 64 6F 77 49 42 4D 28 32 2C 38 2C 31 35 2C 37 ndowIBM(2,8,15,7
0000A0: 30 2C 31 37 30 29 3B 0D 0A 20 20 44 65 66 69 6E 0,170);.. Defin
0000B0: 65 48 65 61 64 65 72 28 32 2C 27 45 78 65 6D 70 eHeader(2,'Exemp
0000C0: 6C 65 20 64 65 20 66 6F 6E 63 74 69 6F 6E 20 61 le de fonction a
0000D0: 76 65 63 20 61 78 65 73 27 29 3B 0D 0A 20 20 53 vec axes');.. S
0000E0: 65 6C 65 63 74 57 69 6E 64 6F 77 28 32 29 3B 0D electWindow(2);.
0000F0: 0A 20 20 53 65 74 42 61 63 6B 67 72 6F 75 6E 64 . SetBackground
000100: 28 30 29 3B 0D 0A 20 20 44 72 61 77 42 6F 72 64 (0);.. DrawBord
000110: 65 72 3B 0D 0A 20 20 78 44 72 61 77 41 78 69 73 er;.. xDrawAxis
000120: 28 39 2C 2D 39 2C 30 2C 30 2C 30 2C 30 2C 31 2C (9,-9,0,0,0,0,1,
000130: 31 2C 66 61 6C 73 65 29 3B 0D 0A 20 20 78 44 72 1,false);.. xDr
000140: 61 77 50 6F 6C 79 67 6F 6E 28 61 2C 31 2C 6E 2C awPolygon(a,1,n,
000150: 30 2C 30 2C 30 29 3B 0D 0A 0D 0A 20 20 64 65 6C 0,0,0);.... del
000160: 61 79 28 31 35 30 30 30 29 3B 0D 0A 0D 0A 20 20 ay(15000);....
000170: 6D 73 67 28 27 4C 61 20 66 6F 6E 63 74 69 6F 6E msg('La fonction
000180: 20 64 27 27 65 78 65 6D 70 6C 65 20 74 72 61 63 d''exemple trac
000190: 65 65 20 70 6F 69 6E 74 20 61 20 70 6F 69 6E 74 ee point a point
0001A0: 20 3A 20 44 72 61 77 50 6F 6C 79 67 6F 6E 27 29 : DrawPolygon')
0001B0: 3B 0D 0A 20 20 44 65 66 69 6E 65 57 69 6E 64 6F ;.. DefineWindo
0001C0: 77 49 42 4D 28 31 2C 30 2C 30 2C 33 39 2C 39 35 wIBM(1,0,0,39,95
0001D0: 29 3B 0D 0A 20 20 44 65 66 69 6E 65 48 65 61 64 );.. DefineHead
0001E0: 65 72 28 31 2C 27 4C 61 20 66 6F 6E 63 74 69 6F er(1,'La fonctio
0001F0: 6E 20 64 27 27 65 78 65 6D 70 6C 65 27 29 3B 0D n d''exemple');.
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 0A 20 20 53 65 6C 65 63 74 57 69 6E 64 6F 77 28 . SelectWindow(
000010: 31 29 3B 0D 0A 20 20 53 65 74 42 61 63 6B 67 72 1);.. SetBackgr
000020: 6F 75 6E 64 28 30 29 3B 0D 0A 20 20 44 72 61 77 ound(0);.. Draw
000030: 42 6F 72 64 65 72 3B 0D 0A 20 20 78 44 72 61 77 Border;.. xDraw
000040: 50 6F 6C 79 67 6F 6E 28 61 2C 31 2C 6E 2C 39 2C Polygon(a,1,n,9,
000050: 31 2C 30 29 3B 0D 0A 0D 0A 20 20 64 65 6C 61 79 1,0);.... delay
000060: 28 31 35 30 30 30 29 3B 0D 0A 0D 0A 20 20 6D 73 (15000);.... ms
000070: 67 28 27 4C 61 20 66 6F 6E 63 74 69 6F 6E 20 64 g('La fonction d
000080: 27 27 65 78 65 6D 70 6C 65 20 74 72 61 63 65 65 ''exemple tracee
000090: 20 61 76 65 63 20 64 65 73 20 63 65 72 63 6C 65 avec des cercle
0000A0: 73 20 3A 20 44 72 61 77 50 6F 6C 79 67 6F 6E 27 s : DrawPolygon'
0000B0: 29 3B 0D 0A 20 20 78 44 72 61 77 50 6F 6C 79 67 );.. xDrawPolyg
0000C0: 6F 6E 28 61 2C 31 2C 6E 2C 2D 38 2C 33 2C 30 29 on(a,1,n,-8,3,0)
0000D0: 3B 0D 0A 0D 0A 20 20 64 65 6C 61 79 28 31 35 30 ;.... delay(150
0000E0: 30 30 29 3B 0D 0A 0D 0A 20 20 6D 73 67 28 27 4C 00);.... msg('L
0000F0: 61 20 66 6F 6E 63 74 69 6F 6E 20 64 27 27 65 78 a fonction d''ex
000100: 65 6D 70 6C 65 20 72 65 6C 69 65 65 20 70 61 72 emple reliee par
000110: 20 64 65 73 20 6C 69 67 6E 65 73 3A 20 53 65 74 des lignes: Set
000120: 4C 69 6E 65 73 74 79 6C 65 20 2C 20 44 72 61 77 Linestyle , Draw
000130: 50 6F 6C 79 67 6F 6E 27 29 3B 0D 0A 20 20 53 65 Polygon');.. Se
000140: 74 4C 69 6E 65 73 74 79 6C 65 28 31 29 3B 0D 0A tLinestyle(1);..
000150: 20 20 78 44 72 61 77 50 6F 6C 79 67 6F 6E 28 61 xDrawPolygon(a
000160: 2C 31 2C 6E 2C 30 2C 30 2C 30 29 3B 0D 0A 20 20 ,1,n,0,0,0);..
000170: 53 65 74 4C 69 6E 65 73 74 79 6C 65 28 30 29 3B SetLinestyle(0);
000180: 0D 0A 0D 0A 20 20 64 65 6C 61 79 28 31 35 30 30 .... delay(1500
000190: 30 29 3B 0D 0A 0D 0A 20 20 6D 73 67 28 27 41 66 0);.... msg('Af
0001A0: 66 69 63 68 61 67 65 20 64 65 20 70 6C 75 73 69 fichage de plusi
0001B0: 65 75 72 73 20 66 6F 6E 63 74 69 6F 6E 73 20 70 eurs fonctions p
0001C0: 61 72 20 61 70 70 65 6C 73 20 72 65 70 65 74 65 ar appels repete
0001D0: 73 20 64 65 20 44 72 61 77 50 6F 6C 79 67 6F 6E s de DrawPolygon
0001E0: 27 29 3B 0D 0A 20 20 44 65 66 69 6E 65 57 69 6E ');.. DefineWin
0001F0: 64 6F 77 49 42 4D 28 32 2C 32 30 2C 34 30 2C 37 dowIBM(2,20,40,7
Size : 512 (Real : 512)
000000: 7B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D {---------------
000010: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000020: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000030: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000040: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 7D 0D 0A -------------}..
000050: 0D 0A 6F 76 65 72 6C 61 79 20 70 72 6F 63 65 64 ..overlay proced
000060: 75 72 65 20 46 6C 6F 77 43 68 61 72 74 44 65 6D ure FlowChartDem
000070: 3B 0D 0A 76 61 72 20 78 31 2C 79 31 2C 78 32 2C ;..var x1,y1,x2,
000080: 79 32 2C 69 2C 63 6F 75 6E 74 3A 69 6E 74 65 67 y2,i,count:integ
000090: 65 72 3B 0D 0A 70 72 6F 63 65 64 75 72 65 20 44 er;..procedure D
0000A0: 72 61 77 41 72 72 6F 77 48 6F 72 28 78 31 2C 79 rawArrowHor(x1,y
0000B0: 31 2C 78 32 2C 79 32 3A 69 6E 74 65 67 65 72 29 1,x2,y2:integer)
0000C0: 3B 0D 0A 62 65 67 69 6E 0D 0A 20 20 44 72 61 77 ;..begin.. Draw
0000D0: 4C 69 6E 65 28 78 31 2C 79 31 2C 78 32 2C 79 32 Line(x1,y1,x2,y2
0000E0: 29 3B 0D 0A 20 20 69 66 20 78 32 3E 78 31 20 74 );.. if x2>x1 t
0000F0: 68 65 6E 0D 0A 20 20 20 62 65 67 69 6E 0D 0A 20 hen.. begin..
000100: 20 20 20 44 72 61 77 4C 69 6E 65 28 78 32 2D 34 DrawLine(x2-4
000110: 2C 79 32 2D 32 2C 78 32 2C 79 32 29 3B 0D 0A 20 ,y2-2,x2,y2);..
000120: 20 20 20 44 72 61 77 4C 69 6E 65 28 78 32 2D 34 DrawLine(x2-4
000130: 2C 79 32 2B 32 2C 78 32 2C 79 32 29 3B 0D 0A 20 ,y2+2,x2,y2);..
000140: 20 20 65 6E 64 0D 0A 20 20 65 6C 73 65 0D 0A 20 end.. else..
000150: 20 20 62 65 67 69 6E 0D 0A 20 20 20 20 44 72 61 begin.. Dra
000160: 77 4C 69 6E 65 28 78 32 2B 35 2C 79 32 2D 32 2C wLine(x2+5,y2-2,
000170: 78 32 2C 79 32 29 3B 0D 0A 20 20 20 20 44 72 61 x2,y2);.. Dra
000180: 77 4C 69 6E 65 28 78 32 2B 35 2C 79 32 2B 32 2C wLine(x2+5,y2+2,
000190: 78 32 2C 79 32 29 3B 0D 0A 20 20 20 65 6E 64 3B x2,y2);.. end;
0001A0: 0D 0A 65 6E 64 3B 0D 0A 70 72 6F 63 65 64 75 72 ..end;..procedur
0001B0: 65 20 44 72 61 77 41 72 72 6F 77 56 65 72 28 78 e DrawArrowVer(x
0001C0: 31 2C 79 31 2C 78 32 2C 79 32 3A 69 6E 74 65 67 1,y1,x2,y2:integ
0001D0: 65 72 29 3B 0D 0A 62 65 67 69 6E 0D 0A 20 20 44 er);..begin.. D
0001E0: 72 61 77 4C 69 6E 65 28 78 31 2C 79 31 2C 78 32 rawLine(x1,y1,x2
0001F0: 2C 79 32 29 3B 0D 0A 20 20 69 66 20 79 32 3E 79 ,y2);.. if y2>y
Size : 512 (Real : 512)
000000: 39 2C 31 38 35 29 3B 0D 0A 20 20 44 65 66 69 6E 9,185);.. Defin
000010: 65 48 65 61 64 65 72 28 32 2C 27 44 65 75 78 20 eHeader(2,'Deux
000020: 66 6F 6E 63 74 69 6F 6E 73 20 61 66 66 69 63 68 fonctions affich
000030: 65 65 73 20 61 76 65 63 20 6C 65 73 20 61 78 65 ees avec les axe
000040: 73 27 29 3B 0D 0A 20 20 53 65 6C 65 63 74 57 69 s');.. SelectWi
000050: 6E 64 6F 77 28 32 29 3B 0D 0A 20 20 53 65 74 42 ndow(2);.. SetB
000060: 61 63 6B 67 72 6F 75 6E 64 28 30 29 3B 0D 0A 20 ackground(0);..
000070: 20 44 72 61 77 42 6F 72 64 65 72 3B 0D 0A 20 20 DrawBorder;..
000080: 78 44 72 61 77 41 78 69 73 28 38 2C 2D 38 2C 30 xDrawAxis(8,-8,0
000090: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 66 61 6C 73 65 ,0,0,0,0,0,false
0000A0: 29 3B 0D 0A 20 20 78 44 72 61 77 50 6F 6C 79 67 );.. xDrawPolyg
0000B0: 6F 6E 28 61 2C 31 2C 6E 2C 2D 31 2C 34 2C 30 29 on(a,1,n,-1,4,0)
0000C0: 3B 0D 0A 0D 0A 20 20 64 65 6C 61 79 28 31 35 30 ;.... delay(150
0000D0: 30 30 29 3B 0D 0A 0D 0A 20 20 6D 73 67 28 27 4C 00);.... msg('L
0000E0: 65 73 20 70 6F 69 6E 74 73 20 64 65 20 6C 61 20 es points de la
0000F0: 70 72 65 6D 69 65 72 65 20 66 6F 6E 63 74 69 6F premiere fonctio
000100: 6E 20 72 65 6C 69 65 73 20 70 61 72 20 64 65 73 n relies par des
000110: 20 6C 69 67 6E 65 73 20 3A 20 44 72 61 77 50 6F lignes : DrawPo
000120: 6C 79 67 6F 6E 27 29 3B 0D 0A 20 20 78 44 72 61 lygon');.. xDra
000130: 77 41 78 69 73 28 30 2C 30 2C 30 2C 30 2C 30 2C wAxis(0,0,0,0,0,
000140: 30 2C 30 2C 30 2C 66 61 6C 73 65 29 3B 0D 0A 20 0,0,0,false);..
000150: 20 78 44 72 61 77 50 6F 6C 79 67 6F 6E 28 61 2C xDrawPolygon(a,
000160: 31 2C 6E 2C 30 2C 30 2C 30 29 3B 0D 0A 0D 0A 20 1,n,0,0,0);....
000170: 20 64 65 6C 61 79 28 31 35 30 30 30 29 3B 0D 0A delay(15000);..
000180: 0D 0A 20 20 6D 73 67 28 27 4C 65 73 20 70 6F 69 .. msg('Les poi
000190: 6E 74 73 20 64 65 20 6C 61 20 73 65 63 6F 6E 64 nts de la second
0001A0: 65 20 66 6F 6E 63 74 69 6F 6E 20 64 61 6E 73 20 e fonction dans
0001B0: 6C 65 20 6D 65 6D 65 20 73 79 73 74 65 6D 65 20 le meme systeme
0001C0: 64 65 20 63 6F 6F 72 64 6F 6E 6E 65 65 73 27 29 de coordonnees')
0001D0: 3B 0D 0A 20 20 78 44 72 61 77 41 78 69 73 28 30 ;.. xDrawAxis(0
0001E0: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 66 ,0,0,0,0,0,0,0,f
0001F0: 61 6C 73 65 29 3B 0D 0A 20 20 78 44 72 61 77 50 alse);.. xDrawP
Size : 512 (Real : 512)
000000: 31 20 74 68 65 6E 0D 0A 20 20 20 62 65 67 69 6E 1 then.. begin
000010: 0D 0A 20 20 20 20 44 72 61 77 4C 69 6E 65 28 78 .. DrawLine(x
000020: 32 2D 32 2C 79 32 2D 33 2C 78 32 2C 79 32 29 3B 2-2,y2-3,x2,y2);
000030: 0D 0A 20 20 20 20 44 72 61 77 4C 69 6E 65 28 78 .. DrawLine(x
000040: 32 2B 32 2C 79 32 2D 33 2C 78 32 2C 79 32 29 3B 2+2,y2-3,x2,y2);
000050: 0D 0A 20 20 20 65 6E 64 0D 0A 20 20 65 6C 73 65 .. end.. else
000060: 0D 0A 20 20 20 62 65 67 69 6E 0D 0A 20 20 20 20 .. begin..
000070: 44 72 61 77 4C 69 6E 65 28 78 32 2D 32 2C 79 32 DrawLine(x2-2,y2
000080: 2B 33 2C 78 32 2C 79 32 29 3B 0D 0A 20 20 20 20 +3,x2,y2);..
000090: 44 72 61 77 4C 69 6E 65 28 78 32 2B 32 2C 79 32 DrawLine(x2+2,y2
0000A0: 2B 33 2C 78 32 2C 79 32 29 3B 0D 0A 20 20 20 65 +3,x2,y2);.. e
0000B0: 6E 64 3B 0D 0A 65 6E 64 3B 0D 0A 70 72 6F 63 65 nd;..end;..proce
0000C0: 64 75 72 65 20 62 6C 69 6E 6B 28 63 6F 75 6E 74 dure blink(count
0000D0: 2C 74 69 6D 65 3A 69 6E 74 65 67 65 72 29 3B 0D ,time:integer);.
0000E0: 0A 76 61 72 20 69 3A 69 6E 74 65 67 65 72 3B 0D .var i:integer;.
0000F0: 0A 62 65 67 69 6E 0D 0A 20 20 66 6F 72 20 69 3A .begin.. for i:
000100: 3D 31 20 74 6F 20 63 6F 75 6E 74 20 64 6F 0D 0A =1 to count do..
000110: 20 20 20 62 65 67 69 6E 0D 0A 20 20 20 20 64 65 begin.. de
000120: 6C 61 79 28 74 69 6D 65 29 3B 0D 0A 20 20 20 20 lay(time);..
000130: 49 6E 76 65 72 74 57 69 6E 64 6F 77 3B 0D 0A 20 InvertWindow;..
000140: 20 20 65 6E 64 3B 0D 0A 65 6E 64 3B 0D 0A 0D 0A end;..end;....
000150: 62 65 67 69 6E 0D 0A 20 20 44 65 66 69 6E 65 57 begin.. DefineW
000160: 69 6E 64 6F 77 49 42 4D 28 31 2C 30 2C 30 2C 37 indowIBM(1,0,0,7
000170: 39 2C 31 38 35 29 3B 0D 0A 20 20 44 65 66 69 6E 9,185);.. Defin
000180: 65 57 69 6E 64 6F 77 49 42 4D 28 32 2C 31 32 2C eWindowIBM(2,12,
000190: 32 30 2C 32 35 2C 34 30 29 3B 0D 0A 20 20 44 65 20,25,40);.. De
0001A0: 66 69 6E 65 57 69 6E 64 6F 77 49 42 4D 28 33 2C fineWindowIBM(3,
0001B0: 31 35 2C 35 35 2C 32 32 2C 37 35 29 3B 0D 0A 20 15,55,22,75);..
0001C0: 20 44 65 66 69 6E 65 57 69 6E 64 6F 77 49 42 4D DefineWindowIBM
0001D0: 28 34 2C 31 31 2C 31 31 30 2C 32 36 2C 31 33 30 (4,11,110,26,130
0001E0: 29 3B 0D 0A 20 20 44 65 66 69 6E 65 57 69 6E 64 );.. DefineWind
0001F0: 6F 77 49 42 4D 28 35 2C 34 37 2C 39 30 2C 35 36 owIBM(5,47,90,56
Size : 512 (Real : 512)
000000: 63 6F 6E 73 74 20 4D 61 78 43 6F 6E 74 72 6F 6C const MaxControl
000010: 50 6F 69 6E 74 73 3D 37 3B 0D 0A 20 20 20 20 20 Points=7;..
000020: 20 4D 61 78 49 6E 74 50 6F 69 6E 74 73 3D 31 35 MaxIntPoints=15
000030: 3B 0D 0A 76 61 72 20 69 3A 69 6E 74 65 67 65 72 ;..var i:integer
000040: 3B 0D 0A 20 20 20 20 64 75 6D 6D 79 78 2C 64 75 ;.. dummyx,du
000050: 6D 6D 79 79 3A 72 65 61 6C 3B 0D 0A 20 20 20 20 mmyy:real;..
000060: 61 2C 62 3A 50 6C 6F 74 41 72 72 61 79 3B 0D 0A a,b:PlotArray;..
000070: 0D 0A 0D 0A 42 65 67 69 6E 0D 0A 20 20 61 5B 31 ....Begin.. a[1
000080: 2C 31 5D 3A 3D 31 3B 61 5B 32 2C 31 5D 3A 3D 31 ,1]:=1;a[2,1]:=1
000090: 2E 35 3B 61 5B 33 2C 31 5D 3A 3D 32 3B 61 5B 34 .5;a[3,1]:=2;a[4
0000A0: 2C 31 5D 3A 3D 32 2E 35 3B 61 5B 35 2C 31 5D 3A ,1]:=2.5;a[5,1]:
0000B0: 3D 33 3B 61 5B 36 2C 31 5D 3A 3D 34 3B 61 5B 37 =3;a[6,1]:=4;a[7
0000C0: 2C 31 5D 3A 3D 35 3B 0D 0A 20 20 61 5B 31 2C 32 ,1]:=5;.. a[1,2
0000D0: 5D 3A 3D 32 3B 61 5B 32 2C 32 5D 3A 3D 31 2E 35 ]:=2;a[2,2]:=1.5
0000E0: 3B 61 5B 33 2C 32 5D 3A 3D 31 3B 61 5B 34 2C 32 ;a[3,2]:=1;a[4,2
0000F0: 5D 3A 3D 32 2E 35 3B 61 5B 35 2C 32 5D 3A 3D 34 ]:=2.5;a[5,2]:=4
000100: 3B 61 5B 36 2C 32 5D 3A 3D 34 2E 35 3B 61 5B 37 ;a[6,2]:=4.5;a[7
000110: 2C 32 5D 3A 3D 35 3B 0D 0A 20 20 43 6C 65 61 72 ,2]:=5;.. Clear
000120: 53 63 72 65 65 6E 3B 0D 0A 20 20 53 65 74 43 6F Screen;.. SetCo
000130: 6C 6F 72 57 68 69 74 65 3B 0D 0A 20 20 44 65 66 lorWhite;.. Def
000140: 69 6E 65 57 6F 72 6C 64 28 31 2C 30 2C 36 2C 36 ineWorld(1,0,6,6
000150: 2C 30 29 3B 0D 0A 20 20 53 65 6C 65 63 74 57 6F ,0);.. SelectWo
000160: 72 6C 64 28 31 29 3B 0D 0A 20 20 44 65 66 69 6E rld(1);.. Defin
000170: 65 57 69 6E 64 6F 77 49 42 4D 28 31 2C 30 2C 30 eWindowIBM(1,0,0
000180: 2C 37 39 2C 31 37 30 29 3B 0D 0A 20 20 53 65 6C ,79,170);.. Sel
000190: 65 63 74 57 69 6E 64 6F 77 28 31 29 3B 0D 0A 20 ectWindow(1);..
0001A0: 20 53 65 74 42 61 63 6B 67 72 6F 75 6E 64 28 30 SetBackground(0
0001B0: 29 3B 0D 0A 20 20 44 65 66 69 6E 65 48 65 61 64 );.. DefineHead
0001C0: 65 72 28 31 2C 27 55 6E 65 20 64 65 6D 6F 6E 73 er(1,'Une demons
0001D0: 74 72 61 74 69 6F 6E 20 64 65 20 6D 6F 64 65 6C tration de model
0001E0: 69 73 61 74 69 6F 6E 20 64 65 20 67 72 61 70 68 isation de graph
0001F0: 69 73 6D 65 20 27 29 3B 0D 0A 20 20 44 72 61 77 isme ');.. Draw
Size : 512 (Real : 512)
000000: 2C 31 31 30 29 3B 0D 0A 0D 0A 20 20 44 65 66 69 ,110);.... Defi
000010: 6E 65 48 65 61 64 65 72 28 31 2C 27 55 6E 20 6F neHeader(1,'Un o
000020: 72 67 61 6E 69 67 72 61 6D 6D 65 27 29 3B 0D 0A rganigramme');..
000030: 20 20 53 65 74 43 6F 6C 6F 72 57 68 69 74 65 3B SetColorWhite;
000040: 0D 0A 20 20 53 65 74 48 65 61 64 65 72 4F 6E 3B .. SetHeaderOn;
000050: 0D 0A 20 20 53 65 6C 65 63 74 57 69 6E 64 6F 77 .. SelectWindow
000060: 28 31 29 3B 0D 0A 20 20 44 72 61 77 42 6F 72 64 (1);.. DrawBord
000070: 65 72 3B 0D 0A 20 20 53 65 74 48 65 61 64 65 72 er;.. SetHeader
000080: 4F 66 66 3B 0D 0A 0D 0A 20 20 53 65 6C 65 63 74 Off;.... Select
000090: 57 69 6E 64 6F 77 28 32 29 3B 0D 0A 20 20 44 72 Window(2);.. Dr
0000A0: 61 77 42 6F 72 64 65 72 3B 0D 0A 20 20 53 65 6C awBorder;.. Sel
0000B0: 65 63 74 49 42 4D 3B 0D 0A 20 20 44 72 61 77 54 ectIBM;.. DrawT
0000C0: 65 78 74 57 28 31 32 35 2C 32 37 2C 32 2C 27 44 extW(125,27,2,'D
0000D0: 65 62 75 74 27 29 3B 0D 0A 20 20 44 72 61 77 41 ebut');.. DrawA
0000E0: 72 72 6F 77 56 65 72 28 31 35 31 2C 34 30 2C 31 rrowVer(151,40,1
0000F0: 35 31 2C 35 35 29 3B 0D 0A 0D 0A 20 20 53 65 6C 51,55);.... Sel
000100: 65 63 74 57 69 6E 64 6F 77 28 33 29 3B 0D 0A 20 ectWindow(3);..
000110: 20 44 72 61 77 42 6F 72 64 65 72 3B 0D 0A 20 20 DrawBorder;..
000120: 53 65 6C 65 63 74 49 42 4D 3B 0D 0A 20 20 44 72 SelectIBM;.. Dr
000130: 61 77 54 65 78 74 57 28 31 33 36 2C 36 33 2C 32 awTextW(136,63,2
000140: 2C 27 49 3D 31 27 29 3B 0D 0A 20 20 44 72 61 77 ,'I=1');.. Draw
000150: 41 72 72 6F 77 56 65 72 28 31 35 31 2C 37 35 2C ArrowVer(151,75,
000160: 31 35 31 2C 31 31 30 29 3B 0D 0A 0D 0A 20 20 53 151,110);.... S
000170: 65 6C 65 63 74 57 69 6E 64 6F 77 28 34 29 3B 0D electWindow(4);.
000180: 0A 20 20 44 72 61 77 42 6F 72 64 65 72 3B 0D 0A . DrawBorder;..
000190: 20 20 53 65 6C 65 63 74 49 42 4D 3B 0D 0A 20 20 SelectIBM;..
0001A0: 44 72 61 77 54 65 78 74 57 28 31 30 38 2C 31 31 DrawTextW(108,11
0001B0: 38 2C 32 2C 27 49 66 20 49 3C 3D 35 27 29 3B 0D 8,2,'If I<=5');.
0001C0: 0A 20 20 44 72 61 77 4C 69 6E 65 28 32 31 35 2C . DrawLine(215,
0001D0: 31 32 30 2C 34 31 37 2C 31 32 30 29 3B 0D 0A 20 120,417,120);..
0001E0: 20 44 72 61 77 41 72 72 6F 77 56 65 72 28 34 31 DrawArrowVer(41
0001F0: 37 2C 31 32 30 2C 34 31 37 2C 31 31 30 29 3B 0D 7,120,417,110);.
Size : 512 (Real : 512)
000000: 42 6F 72 64 65 72 3B 0D 0A 20 20 72 65 70 65 61 Border;.. repea
000010: 74 0D 0A 20 20 20 20 53 65 74 4C 69 6E 65 73 74 t.. SetLinest
000020: 79 6C 65 28 31 29 3B 0D 0A 20 20 20 20 78 44 72 yle(1);.. xDr
000030: 61 77 50 6F 6C 79 67 6F 6E 28 61 2C 31 2C 4D 61 awPolygon(a,1,Ma
000040: 78 43 6F 6E 74 72 6F 6C 50 6F 69 6E 74 73 2C 34 xControlPoints,4
000050: 2C 32 2C 30 29 3B 0D 0A 20 20 20 20 78 62 65 7A ,2,0);.. xbez
000060: 69 65 72 28 61 2C 4D 61 78 43 6F 6E 74 72 6F 6C ier(a,MaxControl
000070: 50 6F 69 6E 74 73 2C 62 2C 4D 61 78 49 6E 74 50 Points,b,MaxIntP
000080: 6F 69 6E 74 73 29 3B 0D 0A 20 20 20 20 53 65 74 oints);.. Set
000090: 4C 69 6E 65 73 74 79 6C 65 28 30 29 3B 0D 0A 20 Linestyle(0);..
0000A0: 20 20 20 78 44 72 61 77 50 6F 6C 79 67 6F 6E 28 xDrawPolygon(
0000B0: 62 2C 31 2C 4D 61 78 49 6E 74 50 6F 69 6E 74 73 b,1,MaxIntPoints
0000C0: 2C 30 2C 30 2C 30 29 3B 0D 0A 20 20 20 20 72 65 ,0,0,0);.. re
0000D0: 70 65 61 74 0D 0A 20 20 20 20 20 20 43 6C 65 61 peat.. Clea
0000E0: 72 45 6F 6C 28 32 33 29 3B 0D 0A 20 20 20 20 20 rEol(23);..
0000F0: 20 67 6F 74 6F 78 79 28 31 2C 32 33 29 3B 0D 0A gotoxy(1,23);..
000100: 20 20 20 20 20 20 77 72 69 74 65 28 27 45 6E 74 write('Ent
000110: 72 65 7A 20 6C 65 20 6E 6F 6D 62 72 65 20 64 65 rez le nombre de
000120: 20 70 6F 69 6E 74 20 61 20 63 68 61 6E 67 65 72 point a changer
000130: 20 3A 27 29 3B 0D 0A 20 20 20 20 20 20 69 3A 3D :');.. i:=
000140: 30 3B 0D 0A 20 20 20 20 20 20 7B 24 49 2D 7D 20 0;.. {$I-}
000150: 72 65 61 64 28 69 29 3B 20 7B 24 49 2B 7D 0D 0A read(i); {$I+}..
000160: 20 20 20 20 20 20 69 66 20 49 4F 52 65 73 75 6C if IOResul
000170: 74 3C 3E 30 20 74 68 65 6E 20 69 3A 3D 30 3B 0D t<>0 then i:=0;.
000180: 0A 20 20 20 20 75 6E 74 69 6C 20 69 20 69 6E 20 . until i in
000190: 5B 30 2E 2E 4D 61 78 43 6F 6E 74 72 6F 6C 50 6F [0..MaxControlPo
0001A0: 69 6E 74 73 5D 3B 0D 0A 20 20 20 20 69 66 20 69 ints];.. if i
0001B0: 3E 30 20 74 68 65 6E 0D 0A 20 20 20 20 20 20 62 >0 then.. b
0001C0: 65 67 69 6E 0D 0A 20 20 20 20 20 20 20 20 72 65 egin.. re
0001D0: 70 65 61 74 0D 0A 20 20 20 20 20 20 20 20 20 20 peat..
0001E0: 67 6F 74 6F 78 79 28 31 2C 32 34 29 3B 0D 0A 20 gotoxy(1,24);..
0001F0: 20 20 20 20 20 20 20 20 20 63 6C 72 65 6F 6C 3B clreol;
Size : 512 (Real : 512)
000000: 0A 20 20 44 72 61 77 41 72 72 6F 77 56 65 72 28 . DrawArrowVer(
000010: 31 35 31 2C 31 33 30 2C 31 35 31 2C 31 35 35 29 151,130,151,155)
000020: 3B 0D 0A 20 20 53 65 6C 65 63 74 49 42 4D 3B 0D ;.. SelectIBM;.
000030: 0A 20 20 44 72 61 77 54 65 78 74 57 28 33 30 30 . DrawTextW(300
000040: 2C 31 31 30 2C 32 2C 27 4F 55 49 27 29 3B 0D 0A ,110,2,'OUI');..
000050: 20 20 44 72 61 77 54 65 78 74 57 28 31 36 30 2C DrawTextW(160,
000060: 31 33 37 2C 32 2C 27 4E 4F 4E 27 29 3B 0D 0A 0D 137,2,'NON');...
000070: 0A 20 20 53 65 6C 65 63 74 57 69 6E 64 6F 77 28 . SelectWindow(
000080: 35 29 3B 0D 0A 20 20 44 72 61 77 42 6F 72 64 65 5);.. DrawBorde
000090: 72 3B 0D 0A 20 20 53 65 6C 65 63 74 49 42 4D 3B r;.. SelectIBM;
0000A0: 0D 0A 20 20 44 72 61 77 54 65 78 74 57 28 33 39 .. DrawTextW(39
0000B0: 30 2C 39 38 2C 32 2C 27 49 3D 49 2B 31 27 29 3B 0,98,2,'I=I+1');
0000C0: 0D 0A 20 20 44 72 61 77 4C 69 6E 65 28 34 31 37 .. DrawLine(417
0000D0: 2C 38 30 2C 34 31 37 2C 39 30 29 3B 0D 0A 20 20 ,80,417,90);..
0000E0: 44 72 61 77 41 72 72 6F 77 48 6F 72 28 34 31 37 DrawArrowHor(417
0000F0: 2C 38 30 2C 31 35 31 2C 38 30 29 3B 0D 0A 20 20 ,80,151,80);..
000100: 44 72 61 77 43 69 72 63 6C 65 28 31 35 31 2C 31 DrawCircle(151,1
000110: 36 35 2C 30 2E 32 35 29 3B 0D 0A 20 20 44 72 61 65,0.25);.. Dra
000120: 77 54 65 78 74 57 28 31 33 37 2C 31 36 33 2C 32 wTextW(137,163,2
000130: 2C 27 46 69 6E 27 29 3B 0D 0A 20 20 53 65 74 48 ,'Fin');.. SetH
000140: 65 61 64 65 72 4F 6E 3B 0D 0A 0D 0A 20 20 43 6F eaderOn;.... Co
000150: 70 79 53 63 72 65 65 6E 3B 0D 0A 0D 0A 20 20 43 pyScreen;.... C
000160: 6C 65 61 72 45 6F 6C 28 32 35 29 3B 0D 0A 20 20 learEol(25);..
000170: 67 6F 74 6F 78 79 28 32 37 2C 32 35 29 3B 0D 0A gotoxy(27,25);..
000180: 0D 0A 20 20 44 65 66 69 6E 65 57 69 6E 64 6F 77 .. DefineWindow
000190: 49 42 4D 28 32 2C 31 35 2C 32 31 2C 32 32 2C 33 IBM(2,15,21,22,3
0001A0: 39 29 3B 0D 0A 20 20 20 20 53 65 6C 65 63 74 57 9);.. SelectW
0001B0: 69 6E 64 6F 77 28 32 29 3B 0D 0A 20 20 20 20 53 indow(2);.. S
0001C0: 65 74 42 61 63 6B 67 72 6F 75 6E 64 28 30 29 3B etBackground(0);
0001D0: 0D 0A 20 20 20 20 44 72 61 77 42 6F 72 64 65 72 .. DrawBorder
0001E0: 3B 0D 0A 20 20 20 20 49 6E 76 65 72 74 57 69 6E ;.. InvertWin
0001F0: 64 6F 77 3B 0D 0A 20 20 20 20 64 65 6C 61 79 28 dow;.. delay(
Size : 512 (Real : 512)
000000: 0D 0A 20 20 20 20 20 20 20 20 20 20 77 72 69 74 .. writ
000010: 65 28 27 41 6E 63 69 65 6E 6E 65 20 70 6F 73 69 e('Ancienne posi
000020: 74 69 6F 6E 20 3A 20 5B 27 2C 61 5B 69 2C 31 5D tion : [',a[i,1]
000030: 3A 34 3A 32 2C 27 2C 27 2C 61 5B 69 2C 32 5D 3A :4:2,',',a[i,2]:
000040: 34 3A 32 2C 27 5D 27 29 3B 0D 0A 20 20 20 20 20 4:2,']');..
000050: 20 20 20 20 20 64 75 6D 6D 79 78 3A 3D 61 5B 69 dummyx:=a[i
000060: 2C 31 5D 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 ,1];..
000070: 64 75 6D 6D 79 79 3A 3D 61 5B 69 2C 32 5D 3B 0D dummyy:=a[i,2];.
000080: 0A 20 20 20 20 20 20 20 20 20 20 72 65 70 65 61 . repea
000090: 74 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 67 t.. g
0000A0: 6F 74 6F 78 79 28 34 30 2C 32 34 29 3B 0D 0A 20 otoxy(40,24);..
0000B0: 20 20 20 20 20 20 20 20 20 20 20 63 6C 72 65 6F clreo
0000C0: 6C 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 l;..
0000D0: 77 72 69 74 65 28 27 20 20 20 4E 6F 75 76 65 6C write(' Nouvel
0000E0: 6C 65 20 50 6F 73 69 74 69 6F 6E 20 20 78 3A 20 le Position x:
0000F0: 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 ');..
000100: 20 7B 24 49 2D 7D 20 72 65 61 64 28 64 75 6D 6D {$I-} read(dumm
000110: 79 78 29 3B 20 7B 24 49 2B 7D 0D 0A 20 20 20 20 yx); {$I+}..
000120: 20 20 20 20 20 20 75 6E 74 69 6C 20 49 4F 52 65 until IORe
000130: 73 75 6C 74 3D 30 3B 0D 0A 20 20 20 20 20 20 20 sult=0;..
000140: 20 20 20 72 65 70 65 61 74 0D 0A 20 20 20 20 20 repeat..
000150: 20 20 20 20 20 20 20 67 6F 74 6F 78 79 28 34 30 gotoxy(40
000160: 2C 32 35 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 ,25);..
000170: 20 20 20 63 6C 72 65 6F 6C 3B 0D 0A 20 20 20 20 clreol;..
000180: 20 20 20 20 20 20 20 20 77 72 69 74 65 28 27 20 write('
000190: 20 20 4E 6F 75 76 65 6C 6C 65 20 50 6F 73 69 74 Nouvelle Posit
0001A0: 69 6F 6E 20 20 79 3A 20 27 29 3B 0D 0A 20 20 20 ion y: ');..
0001B0: 20 20 20 20 20 20 20 20 20 7B 24 49 2D 7D 20 72 {$I-} r
0001C0: 65 61 64 28 64 75 6D 6D 79 79 29 3B 20 7B 24 49 ead(dummyy); {$I
0001D0: 2B 7D 0D 0A 20 20 20 20 20 20 20 20 20 20 75 6E +}.. un
0001E0: 74 69 6C 20 49 4F 52 65 73 75 6C 74 3D 30 3B 0D til IOResult=0;.
0001F0: 0A 20 20 20 20 20 20 20 20 75 6E 74 69 6C 20 28 . until (
Size : 512 (Real : 512)
000000: 31 30 30 30 29 3B 0D 0A 20 20 20 20 49 6E 76 65 1000);.. Inve
000010: 72 74 57 69 6E 64 6F 77 3B 0D 0A 20 20 20 20 4D rtWindow;.. M
000020: 6F 76 65 56 65 72 49 42 4D 28 33 35 2C 74 72 75 oveVerIBM(35,tru
000030: 65 29 3B 0D 0A 20 20 20 20 53 65 6C 65 63 74 49 e);.. SelectI
000040: 42 4D 3B 0D 0A 20 20 20 20 44 72 61 77 54 65 78 BM;.. DrawTex
000050: 74 57 28 31 33 39 2C 36 33 2C 32 2C 27 49 3D 31 tW(139,63,2,'I=1
000060: 27 29 3B 0D 0A 20 20 20 20 53 65 6C 65 63 74 57 ');.. SelectW
000070: 69 6E 64 6F 77 28 32 29 3B 0D 0A 20 20 20 20 62 indow(2);.. b
000080: 6C 69 6E 6B 28 33 30 2C 35 30 29 3B 0D 0A 20 20 link(30,50);..
000090: 20 20 4D 6F 76 65 56 65 72 49 42 4D 28 35 35 2C MoveVerIBM(55,
0000A0: 74 72 75 65 29 3B 0D 0A 20 20 20 20 66 6F 72 20 true);.. for
0000B0: 63 6F 75 6E 74 3A 3D 32 20 74 6F 20 36 20 64 6F count:=2 to 6 do
0000C0: 0D 0A 20 20 20 20 62 65 67 69 6E 0D 0A 20 20 20 .. begin..
0000D0: 20 20 20 64 65 6C 61 79 28 35 30 30 29 3B 0D 0A delay(500);..
0000E0: 20 20 20 20 20 20 4D 6F 76 65 48 6F 72 49 42 4D MoveHorIBM
0000F0: 28 33 33 2C 74 72 75 65 29 3B 0D 0A 20 20 20 20 (33,true);..
000100: 20 20 4D 6F 76 65 56 65 72 49 42 4D 28 2D 32 30 MoveVerIBM(-20
000110: 2C 74 72 75 65 29 3B 0D 0A 20 20 20 20 20 20 53 ,true);.. S
000120: 65 74 42 61 63 6B 67 72 6F 75 6E 64 28 30 29 3B etBackground(0);
000130: 0D 0A 20 20 20 20 20 20 44 72 61 77 42 6F 72 64 .. DrawBord
000140: 65 72 3B 0D 0A 20 20 20 20 20 20 53 65 6C 65 63 er;.. Selec
000150: 74 49 42 4D 3B 0D 0A 20 20 20 20 20 20 44 72 61 tIBM;.. Dra
000160: 77 54 65 78 74 57 28 34 30 30 2C 39 38 2C 32 2C wTextW(400,98,2,
000170: 27 49 3D 27 2B 63 68 72 28 34 38 2B 63 6F 75 6E 'I='+chr(48+coun
000180: 74 29 29 3B 0D 0A 20 20 20 20 20 20 53 65 6C 65 t));.. Sele
000190: 63 74 57 69 6E 64 6F 77 28 32 29 3B 0D 0A 20 20 ctWindow(2);..
0001A0: 20 20 20 20 62 6C 69 6E 6B 28 33 30 2C 35 30 29 blink(30,50)
0001B0: 3B 0D 0A 20 20 20 20 20 20 4D 6F 76 65 56 65 72 ;.. MoveVer
0001C0: 49 42 4D 28 2D 32 30 2C 74 72 75 65 29 3B 0D 0A IBM(-20,true);..
0001D0: 20 20 20 20 20 20 4D 6F 76 65 48 6F 72 49 42 4D MoveHorIBM
0001E0: 28 2D 33 33 2C 74 72 75 65 29 3B 0D 0A 20 20 20 (-33,true);..
0001F0: 20 20 20 4D 6F 76 65 56 65 72 49 42 4D 28 34 30 MoveVerIBM(40
Size : 512 (Real : 512)
000000: 28 64 75 6D 6D 79 78 3E 3D 58 31 57 6C 64 47 6C (dummyx>=X1WldGl
000010: 62 29 20 61 6E 64 20 28 64 75 6D 6D 79 78 3C 3D b) and (dummyx<=
000020: 58 32 57 6C 64 47 6C 62 29 29 20 61 6E 64 20 28 X2WldGlb)) and (
000030: 28 64 75 6D 6D 79 79 3E 3D 59 31 57 6C 64 47 6C (dummyy>=Y1WldGl
000040: 62 29 20 61 6E 64 20 28 64 75 6D 6D 79 79 3C 3D b) and (dummyy<=
000050: 59 32 57 6C 64 47 6C 62 29 29 3B 0D 0A 20 20 20 Y2WldGlb));..
000060: 20 20 20 20 20 53 65 74 4C 69 6E 65 73 74 79 6C SetLinestyl
000070: 65 28 31 29 3B 0D 0A 20 20 20 20 20 20 20 20 53 e(1);.. S
000080: 65 74 43 6F 6C 6F 72 42 6C 61 63 6B 3B 0D 0A 20 etColorBlack;..
000090: 20 20 20 20 20 20 20 78 44 72 61 77 50 6F 6C 79 xDrawPoly
0000A0: 67 6F 6E 28 61 2C 31 2C 4D 61 78 43 6F 6E 74 72 gon(a,1,MaxContr
0000B0: 6F 6C 50 6F 69 6E 74 73 2C 34 2C 32 2C 30 29 3B olPoints,4,2,0);
0000C0: 0D 0A 20 20 20 20 20 20 20 20 53 65 74 4C 69 6E .. SetLin
0000D0: 65 73 74 79 6C 65 28 30 29 3B 0D 0A 20 20 20 20 estyle(0);..
0000E0: 20 20 20 20 78 44 72 61 77 50 6F 6C 79 67 6F 6E xDrawPolygon
0000F0: 28 62 2C 31 2C 4D 61 78 49 6E 74 50 6F 69 6E 74 (b,1,MaxIntPoint
000100: 73 2C 30 2C 30 2C 30 29 3B 0D 0A 20 20 20 20 20 s,0,0,0);..
000110: 20 20 20 61 5B 69 2C 31 5D 3A 3D 64 75 6D 6D 79 a[i,1]:=dummy
000120: 78 3B 0D 0A 20 20 20 20 20 20 20 20 61 5B 69 2C x;.. a[i,
000130: 32 5D 3A 3D 64 75 6D 6D 79 79 3B 0D 0A 20 20 20 2]:=dummyy;..
000140: 20 20 20 20 20 53 65 74 43 6F 6C 6F 72 57 68 69 SetColorWhi
000150: 74 65 3B 0D 0A 20 20 20 20 20 20 45 6E 64 3B 0D te;.. End;.
000160: 0A 20 20 75 6E 74 69 6C 20 69 3D 30 3B 0D 0A 0D . until i=0;...
000170: 0A 65 6E 64 3B 0D 0A 0D 0A 1A 1A 1A 1A 1A 1A 1A .end;...........
000180: 20 20 20 20 20 20 20 20 77 72 69 74 65 28 27 20 write('
000190: 20 20 4E 6F 75 76 65 6C 6C 65 20 50 6F 73 69 74 Nouvelle Posit
0001A0: 69 6F 6E 20 20 79 3A 20 27 29 3B 0D 0A 20 20 20 ion y: ');..
0001B0: 20 20 20 20 20 20 20 20 20 7B 24 49 2D 7D 20 72 {$I-} r
0001C0: 65 61 64 28 64 75 6D 6D 79 79 29 3B 20 7B 24 49 ead(dummyy); {$I
0001D0: 2B 7D 0D 0A 20 20 20 20 20 20 20 20 20 20 75 6E +}.. un
0001E0: 74 69 6C 20 49 4F 52 65 73 75 6C 74 3D 30 3B 0D til IOResult=0;.
0001F0: 0A 20 20 20 20 20 20 20 20 75 6E 74 69 6C 20 28 . until (
Size : 512 (Real : 512)
000000: 2C 74 72 75 65 29 3B 0D 0A 20 20 20 20 65 6E 64 ,true);.. end
000010: 3B 0D 0A 20 20 20 20 49 6E 76 65 72 74 57 69 6E ;.. InvertWin
000020: 64 6F 77 3B 0D 0A 20 20 20 20 64 65 6C 61 79 28 dow;.. delay(
000030: 31 30 30 30 29 3B 0D 0A 20 20 20 20 4D 6F 76 65 1000);.. Move
000040: 56 65 72 49 42 4D 28 34 36 2C 74 72 75 65 29 3B VerIBM(46,true);
000050: 0D 0A 20 20 20 20 62 6C 69 6E 6B 28 33 30 2C 35 .. blink(30,5
000060: 30 29 3B 0D 0A 20 20 20 20 4D 6F 76 65 48 6F 72 0);.. MoveHor
000070: 49 42 4D 28 34 35 2C 74 72 75 65 29 3B 0D 0A 20 IBM(45,true);..
000080: 20 20 20 4D 6F 76 65 56 65 72 49 42 4D 28 2D 31 MoveVerIBM(-1
000090: 33 36 2C 74 72 75 65 29 3B 0D 0A 20 20 20 20 4D 36,true);.. M
0000A0: 6F 76 65 48 6F 72 49 42 4D 28 2D 34 35 2C 74 72 oveHorIBM(-45,tr
0000B0: 75 65 29 3B 0D 0A 20 20 20 20 53 65 74 48 65 61 ue);.. SetHea
0000C0: 64 65 72 4F 6E 3B 0D 0A 0D 0A 65 6E 64 3B 0D 0A derOn;....end;..
0000D0: 0D 0A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0000E0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0000F0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000100: 20 20 4D 6F 76 65 56 65 72 49 42 4D 28 2D 32 30 MoveVerIBM(-20
000110: 2C 74 72 75 65 29 3B 0D 0A 20 20 20 20 20 20 53 ,true);.. S
000120: 65 74 42 61 63 6B 67 72 6F 75 6E 64 28 30 29 3B etBackground(0);
000130: 0D 0A 20 20 20 20 20 20 44 72 61 77 42 6F 72 64 .. DrawBord
000140: 65 72 3B 0D 0A 20 20 20 20 20 20 53 65 6C 65 63 er;.. Selec
000150: 74 49 42 4D 3B 0D 0A 20 20 20 20 20 20 44 72 61 tIBM;.. Dra
000160: 77 54 65 78 74 57 28 34 30 30 2C 39 38 2C 32 2C wTextW(400,98,2,
000170: 27 49 3D 27 2B 63 68 72 28 34 38 2B 63 6F 75 6E 'I='+chr(48+coun
000180: 74 29 29 3B 0D 0A 20 20 20 20 20 20 53 65 6C 65 t));.. Sele
000190: 63 74 57 69 6E 64 6F 77 28 32 29 3B 0D 0A 20 20 ctWindow(2);..
0001A0: 20 20 20 20 62 6C 69 6E 6B 28 33 30 2C 35 30 29 blink(30,50)
0001B0: 3B 0D 0A 20 20 20 20 20 20 4D 6F 76 65 56 65 72 ;.. MoveVer
0001C0: 49 42 4D 28 2D 32 30 2C 74 72 75 65 29 3B 0D 0A IBM(-20,true);..
0001D0: 20 20 20 20 20 20 4D 6F 76 65 48 6F 72 49 42 4D MoveHorIBM
0001E0: 28 2D 33 33 2C 74 72 75 65 29 3B 0D 0A 20 20 20 (-33,true);..
0001F0: 20 20 20 4D 6F 76 65 56 65 72 49 42 4D 28 34 30 MoveVerIBM(40
Size : 512 (Real : 512)
000000: 6F 76 65 72 6C 61 79 20 70 72 6F 63 65 64 75 72 overlay procedur
000010: 65 20 53 69 6D 70 6C 65 49 6E 66 6F 3B 0D 0A 62 e SimpleInfo;..b
000020: 65 67 69 6E 0D 0A 20 20 67 6F 74 6F 78 79 28 32 egin.. gotoxy(2
000030: 30 2C 35 29 3B 0D 0A 20 20 77 72 69 74 65 6C 6E 0,5);.. writeln
000040: 28 27 4C 65 73 20 73 69 6D 70 6C 65 73 20 63 6F ('Les simples co
000050: 6D 6D 61 6E 64 65 73 20 64 65 20 64 65 73 73 69 mmandes de dessi
000060: 6E 27 29 3B 0D 0A 20 20 67 6F 74 6F 78 79 28 31 n');.. gotoxy(1
000070: 30 2C 31 30 29 3B 77 72 69 74 65 28 27 4C 65 20 0,10);write('Le
000080: 6D 6F 79 65 6E 20 6C 65 20 70 6C 75 73 20 73 69 moyen le plus si
000090: 6D 70 6C 65 20 70 6F 75 72 20 70 61 72 76 65 6E mple pour parven
0000A0: 69 72 20 61 20 64 65 73 73 69 6E 65 72 20 65 73 ir a dessiner es
0000B0: 74 20 64 65 20 73 65 27 29 3B 0D 0A 20 20 67 6F t de se');.. go
0000C0: 74 6F 78 79 28 31 30 2C 31 31 29 3B 77 72 69 74 toxy(10,11);writ
0000D0: 65 28 27 72 65 70 72 65 73 65 6E 74 65 72 20 6D e('representer m
0000E0: 65 6E 74 61 6C 65 6D 65 6E 74 20 6C 27 27 69 6D entalement l''im
0000F0: 61 67 65 20 64 75 20 67 72 61 70 68 69 73 6D 65 age du graphisme
000100: 20 64 65 73 69 72 65 2E 27 29 3B 0D 0A 20 20 67 desire.');.. g
000110: 6F 74 6F 78 79 28 31 30 2C 31 32 29 3B 77 72 69 otoxy(10,12);wri
000120: 74 65 28 27 43 65 73 20 63 6F 6D 6D 61 6E 64 65 te('Ces commande
000130: 73 20 73 65 20 72 65 66 65 72 65 72 6F 6E 74 20 s se refereront
000140: 61 20 6C 61 20 66 65 6E 65 74 72 65 20 65 6E 20 a la fenetre en
000150: 63 6F 75 72 73 2E 41 6C 6F 72 73 29 3B 0D 0A 20 cours.Alors);..
000160: 20 67 6F 74 6F 78 79 28 31 30 2C 31 33 29 3B 77 gotoxy(10,13);w
000170: 72 69 74 65 28 27 73 65 75 6C 65 6D 65 6E 74 20 rite('seulement
000180: 76 6F 75 73 20 64 65 73 73 69 6E 65 72 65 7A 20 vous dessinerez
000190: 61 20 6C 27 27 69 6E 74 65 72 69 65 75 72 20 64 a l''interieur d
0001A0: 65 20 63 65 6C 6C 65 2D 63 69 2E 53 69 20 75 6E e celle-ci.Si un
0001B0: 65 20 6F 75 29 3B 0D 0A 20 20 67 6F 74 6F 78 79 e ou);.. gotoxy
0001C0: 28 31 30 2C 31 34 29 3B 77 72 69 74 65 28 27 64 (10,14);write('d
0001D0: 65 73 20 70 61 72 74 69 65 73 20 64 75 20 64 69 es parties du di
0001E0: 61 67 72 61 6D 6D 65 20 76 6F 6E 74 20 61 75 20 agramme vont au
0001F0: 64 65 6C 61 20 64 65 73 20 6C 69 6D 69 74 65 73 dela des limites
Size : 512 (Real : 512)
000000: 29 3B 77 72 69 74 65 28 27 50 72 6F 63 65 64 75 );write('Procedu
000010: 72 65 20 3A 20 73 70 6C 69 6E 65 28 70 61 72 61 re : spline(para
000020: 6D 65 74 72 65 29 3B 27 29 3B 0D 0A 20 20 67 6F metre);');.. go
000030: 74 6F 78 79 28 31 30 2C 31 33 29 3B 77 72 69 74 toxy(10,13);writ
000040: 65 28 27 43 65 6C 6C 65 2D 63 69 20 63 72 65 65 e('Celle-ci cree
000050: 20 64 65 73 20 6C 69 73 73 61 67 65 20 64 65 20 des lissage de
000060: 63 6F 75 72 62 65 2E 20 27 29 3B 0D 0A 20 20 67 courbe. ');.. g
000070: 6F 74 6F 78 79 28 31 30 2C 31 34 29 3B 77 72 69 otoxy(10,14);wri
000080: 74 65 28 27 44 6F 6E 6E 65 7A 20 75 6E 20 6E 6F te('Donnez un no
000090: 6D 62 72 65 20 64 65 20 63 6F 6C 6F 6E 6E 65 73 mbre de colonnes
0000A0: 2C 64 65 74 65 72 6D 69 6E 65 7A 20 63 65 6C 6C ,determinez cell
0000B0: 65 73 20 64 65 20 64 65 62 75 74 20 65 74 20 64 es de debut et d
0000C0: 65 20 66 69 6E 27 29 3B 0D 0A 20 20 67 6F 74 6F e fin');.. goto
0000D0: 78 79 28 31 30 2C 31 35 29 3B 77 72 69 74 65 28 xy(10,15);write(
0000E0: 27 70 75 69 73 20 6C 65 73 20 70 6F 69 6E 74 73 'puis les points
0000F0: 20 64 65 20 6C 27 27 69 6E 74 65 72 70 6F 6C 61 de l''interpola
000100: 74 69 6F 6E 2C 6C 65 73 20 70 6F 69 6E 74 73 20 tion,les points
000110: 65 6E 74 72 65 20 6C 65 20 64 65 62 75 74 27 29 entre le debut')
000120: 3B 0D 0A 20 20 67 6F 74 6F 78 79 28 31 30 2C 31 ;.. gotoxy(10,1
000130: 36 29 3B 77 72 69 74 65 28 27 65 74 20 6C 61 20 6);write('et la
000140: 66 69 6E 2C 61 70 70 65 6C 6C 65 7A 20 73 70 6C fin,appellez spl
000150: 69 6E 65 2C 63 65 6C 61 20 64 65 73 73 69 6E 65 ine,cela dessine
000160: 72 61 20 6C 65 73 20 70 6F 69 6E 74 73 20 61 76 ra les points av
000170: 65 63 20 6C 27 27 61 69 64 65 27 29 3B 0D 0A 20 ec l''aide');..
000180: 20 67 6F 74 6F 78 79 28 31 30 2C 31 37 29 3B 77 gotoxy(10,17);w
000190: 72 69 74 65 28 27 64 65 20 6C 61 20 70 72 6F 63 rite('de la proc
0001A0: 65 64 75 72 65 20 44 72 61 77 50 6F 6C 79 67 6F edure DrawPolygo
0001B0: 6E 20 2E 27 20 29 3B 0D 0A 20 20 67 6F 74 6F 78 n .' );.. gotox
0001C0: 79 28 31 30 2C 31 38 29 3B 77 72 69 74 65 28 27 y(10,18);write('
0001D0: 44 61 6E 73 20 6C 27 27 65 78 65 6D 70 6C 65 20 Dans l''exemple
0001E0: 73 75 69 76 61 6E 74 20 6C 61 20 64 6F 6E 6E 65 suivant la donne
0001F0: 65 20 28 2A 29 20 73 65 72 61 20 72 65 70 72 65 e (*) sera repre
Size : 512 (Real : 512)
000000: 20 64 65 20 6C 61 27 29 3B 0D 0A 20 20 67 6F 74 de la');.. got
000010: 6F 78 79 28 31 30 2C 31 35 29 3B 77 72 69 74 65 oxy(10,15);write
000020: 28 27 66 65 6E 65 74 72 65 2C 65 6C 6C 65 73 20 ('fenetre,elles
000030: 6E 65 20 73 65 72 6F 6E 74 20 70 61 73 20 61 66 ne seront pas af
000040: 66 69 63 68 65 65 73 2E 50 6F 75 72 20 66 6F 75 fichees.Pour fou
000050: 72 6E 69 72 20 75 6E 65 20 70 6C 75 73 20 20 27 rnir une plus '
000060: 29 3B 0D 0A 20 20 67 6F 74 6F 78 79 28 31 30 2C );.. gotoxy(10,
000070: 31 36 29 3B 77 72 69 74 65 28 27 67 72 61 6E 64 16);write('grand
000080: 65 20 66 6C 65 78 69 62 69 6C 69 74 65 20 64 27 e flexibilite d'
000090: 27 65 6D 70 6C 6F 69 20 63 65 74 74 65 20 63 61 'emploi cette ca
0000A0: 72 61 63 74 65 72 69 73 74 69 71 75 65 20 70 65 racteristique pe
0000B0: 75 74 20 65 74 72 65 20 61 6E 6E 75 6C 65 65 27 ut etre annulee'
0000C0: 29 3B 0D 0A 20 20 67 6F 74 6F 78 79 28 31 30 2C );.. gotoxy(10,
0000D0: 31 37 29 3B 77 72 69 74 65 28 27 4C 61 20 6D 69 17);write('La mi
0000E0: 73 65 20 61 20 6C 27 27 65 63 68 65 6C 6C 65 20 se a l''echelle
0000F0: 64 27 27 75 6E 20 64 69 61 67 72 61 6D 6D 65 20 d''un diagramme
000100: 65 73 74 20 61 75 73 73 69 20 70 72 69 73 20 65 est aussi pris e
000110: 6E 20 63 68 61 72 67 65 20 27 29 3B 0D 0A 20 20 n charge ');..
000120: 67 6F 74 6F 78 79 28 31 30 2C 31 38 29 3B 77 72 gotoxy(10,18);wr
000130: 69 74 65 28 27 70 61 72 20 54 55 52 42 4F 20 47 ite('par TURBO G
000140: 52 41 50 48 49 58 2E 4E 65 61 6E 6D 6F 69 6E 73 RAPHIX.Neanmoins
000150: 2C 69 6C 20 65 73 74 20 70 6F 73 73 69 62 6C 65 ,il est possible
000160: 20 64 65 20 64 65 73 73 69 6E 65 72 20 64 65 73 de dessiner des
000170: 20 27 29 3B 0D 0A 20 20 67 6F 74 6F 78 79 28 31 ');.. gotoxy(1
000180: 30 2C 31 39 29 3B 77 72 69 74 65 28 27 63 6F 6F 0,19);write('coo
000190: 72 64 6F 6E 6E 65 73 20 73 79 73 74 65 6D 65 20 rdonnes systeme
0001A0: 73 61 6E 73 20 65 66 66 65 63 74 75 65 72 20 64 sans effectuer d
0001B0: 65 73 20 63 61 6C 63 75 6C 73 20 63 6F 6D 70 6C es calculs compl
0001C0: 69 71 75 65 73 2E 29 3B 0D 0A 20 20 67 6F 74 6F iques.);.. goto
0001D0: 78 79 28 31 30 2C 32 30 29 3B 77 72 69 74 65 28 xy(10,20);write(
0001E0: 27 55 6E 20 73 79 73 74 65 6D 65 20 64 65 20 63 'Un systeme de c
0001F0: 6F 6F 72 64 6F 6E 6E 65 65 73 20 73 65 70 61 72 oordonnees separ
Size : 512 (Real : 512)
000000: 73 65 6E 74 65 65 20 65 6E 20 70 72 65 6D 69 65 sentee en premie
000010: 72 2C 27 29 3B 0D 0A 20 20 67 6F 74 6F 78 79 28 r,');.. gotoxy(
000020: 31 30 2C 31 39 29 3B 77 72 69 74 65 28 27 70 75 10,19);write('pu
000030: 69 73 20 6C 61 20 66 6F 6E 63 74 69 6F 6E 20 73 is la fonction s
000040: 70 6C 69 6E 65 20 61 66 66 69 63 68 65 72 61 20 pline affichera
000050: 35 30 20 70 6F 69 6E 74 73 27 29 3B 0D 0A 20 20 50 points');..
000060: 67 6F 74 6F 78 79 28 31 30 2C 32 31 29 3B 77 72 gotoxy(10,21);wr
000070: 69 74 65 28 27 28 64 72 61 77 6E 20 6C 69 6E 65 ite('(drawn line
000080: 29 27 29 3B 0D 0A 67 6F 74 6F 78 79 28 32 30 2C )');..gotoxy(20,
000090: 32 35 29 3B 0D 0A 20 20 77 61 69 74 72 65 74 75 25);.. waitretu
0000A0: 72 6E 28 36 30 30 30 30 2E 30 29 3B 0D 0A 65 6E rn(60000.0);..en
0000B0: 64 3B 0D 0A 0D 0A 6F 76 65 72 6C 61 79 20 70 72 d;....overlay pr
0000C0: 6F 63 65 64 75 72 65 20 50 69 65 49 6E 66 6F 3B ocedure PieInfo;
0000D0: 0D 0A 62 65 67 69 6E 0D 0A 20 20 67 6F 74 6F 78 ..begin.. gotox
0000E0: 79 28 32 30 2C 35 29 3B 77 72 69 74 65 6C 6E 28 y(20,5);writeln(
0000F0: 27 55 74 69 6C 69 73 61 74 69 6F 6E 20 64 65 73 'Utilisation des
000100: 20 63 61 6D 65 6D 62 65 72 74 73 27 29 3B 0D 0A camemberts');..
000110: 20 20 67 6F 74 6F 78 79 28 31 30 2C 38 29 3B 77 gotoxy(10,8);w
000120: 72 69 74 65 28 27 50 72 6F 63 65 64 75 72 65 20 rite('Procedure
000130: 3A 20 44 72 61 77 43 61 72 74 50 69 65 20 6F 75 : DrawCartPie ou
000140: 20 44 72 61 77 50 6F 6C 61 72 50 69 65 28 70 61 DrawPolarPie(pa
000150: 72 61 6D 65 74 72 65 29 3B 27 29 3B 0D 0A 20 20 rametre);');..
000160: 67 6F 74 6F 78 79 28 31 30 2C 31 30 29 3B 77 72 gotoxy(10,10);wr
000170: 69 74 65 28 27 43 65 6C 6C 65 73 2D 63 69 20 70 ite('Celles-ci p
000180: 65 72 6D 65 74 74 65 6E 74 20 64 65 20 63 72 65 ermettent de cre
000190: 65 72 20 64 65 73 20 63 61 6D 65 6D 62 65 72 74 er des camembert
0001A0: 73 2E 27 29 3B 0D 0A 20 20 67 6F 74 6F 78 79 28 s.');.. gotoxy(
0001B0: 31 30 2C 31 31 29 3B 77 72 69 74 65 28 27 50 6F 10,11);write('Po
0001C0: 75 72 20 75 74 69 6C 69 73 65 72 20 6C 27 27 75 ur utiliser l''u
0001D0: 6E 65 20 64 65 20 63 65 73 20 64 65 72 6E 69 65 ne de ces dernie
0001E0: 72 65 73 2C 64 6F 6E 6E 65 7A 20 6C 65 73 20 63 res,donnez les c
0001F0: 6F 6F 72 64 6F 6E 6E 65 65 73 20 64 75 20 63 65 oordonnees du ce
Size : 512 (Real : 512)
000000: 65 65 73 20 70 65 75 74 20 65 74 72 65 20 6E 6F ees peut etre no
000010: 6D 65 65 20 70 61 72 20 74 6F 75 74 65 73 20 27 mee par toutes '
000020: 29 3B 0D 0A 20 20 67 6F 74 6F 78 79 28 31 30 2C );.. gotoxy(10,
000030: 32 31 29 3B 77 72 69 74 65 28 27 6C 65 73 20 66 21);write('les f
000040: 65 6E 65 74 72 65 73 20 71 75 69 20 6F 6E 74 20 enetres qui ont
000050: 64 65 6A 61 20 65 74 65 20 64 65 66 69 6E 69 65 deja ete definie
000060: 73 2E 27 29 3B 0D 0A 20 20 67 6F 74 6F 78 79 28 s.');.. gotoxy(
000070: 33 31 2C 32 35 29 3B 0D 0A 20 20 77 61 69 74 72 31,25);.. waitr
000080: 65 74 75 72 6E 28 36 30 30 30 30 2E 30 29 3B 0D eturn(60000.0);.
000090: 0A 65 6E 64 3B 0D 0A 0D 0A 6F 76 65 72 6C 61 79 .end;....overlay
0000A0: 20 70 72 6F 63 65 64 75 72 65 20 57 69 6E 64 6F procedure Windo
0000B0: 77 44 65 6D 6F 49 6E 66 6F 3B 0D 0A 62 65 67 69 wDemoInfo;..begi
0000C0: 6E 0D 0A 20 20 67 6F 74 6F 78 79 28 32 30 2C 35 n.. gotoxy(20,5
0000D0: 29 3B 0D 0A 20 20 77 72 69 74 65 6C 6E 28 27 4C );.. writeln('L
0000E0: 27 27 75 74 69 6C 69 73 61 74 69 6F 6E 20 64 65 ''utilisation de
0000F0: 20 6C 61 20 66 65 6E 65 74 72 65 27 29 3B 0D 0A la fenetre');..
000100: 20 20 67 6F 74 6F 78 79 28 31 30 2C 38 29 3B 77 gotoxy(10,8);w
000110: 72 69 74 65 28 27 41 20 6C 27 27 69 6E 74 65 72 rite('A l''inter
000120: 69 65 75 72 20 64 65 20 54 55 52 42 4F 20 47 52 ieur de TURBO GR
000130: 41 50 48 49 58 2C 20 6F 6E 20 70 65 75 74 20 61 APHIX, on peut a
000140: 66 66 69 63 68 65 72 20 61 75 74 61 6E 74 20 64 fficher autant d
000150: 65 20 66 65 6E 65 74 72 65 73 27 29 3B 0D 0A 20 e fenetres');..
000160: 20 67 6F 74 6F 78 79 28 31 30 2C 39 29 3B 77 72 gotoxy(10,9);wr
000170: 69 74 65 28 27 71 75 65 20 6C 27 27 6F 6E 20 64 ite('que l''on d
000180: 65 73 69 72 65 20 63 65 6C 6C 65 73 2D 63 69 20 esire celles-ci
000190: 72 65 70 72 65 73 65 6E 74 65 6E 74 20 6C 61 20 representent la
0001A0: 66 65 75 69 6C 6C 65 20 64 75 20 64 65 73 73 69 feuille du dessi
0001B0: 6E 27 29 3B 0D 0A 20 20 67 6F 74 6F 78 79 28 31 n');.. gotoxy(1
0001C0: 30 2C 31 30 29 3B 77 72 69 74 65 28 27 65 6E 20 0,10);write('en
0001D0: 63 6F 75 72 73 20 71 75 69 20 61 20 65 74 65 20 cours qui a ete
0001E0: 70 72 65 64 65 66 69 6E 69 65 2E 54 6F 75 74 65 predefinie.Toute
0001F0: 73 20 6C 65 73 20 6F 70 65 72 61 74 69 6F 6E 73 s les operations
Size : 512 (Real : 512)
000000: 6E 74 72 65 2C 27 29 3B 0D 0A 20 20 67 6F 74 6F ntre,');.. goto
000010: 78 79 28 31 30 2C 31 32 29 3B 77 72 69 74 65 28 xy(10,12);write(
000020: 27 6C 65 20 6E 70 6D 62 72 65 20 64 65 20 73 65 'le npmbre de se
000030: 67 6D 65 6E 74 73 20 61 20 64 65 73 73 69 6E 65 gments a dessine
000040: 72 2C 6C 65 20 6E 6F 6D 62 72 65 20 74 6F 74 61 r,le nombre tota
000050: 6C 20 64 65 20 63 65 75 78 2D 63 69 2C 75 6E 20 l de ceux-ci,un
000060: 27 29 3B 0D 0A 20 20 67 6F 74 6F 78 79 28 31 30 ');.. gotoxy(10
000070: 2C 31 33 29 3B 77 72 69 74 65 28 63 68 61 6D 70 ,13);write(champ
000080: 73 20 6E 75 6D 65 72 69 71 75 65 20 65 74 20 75 s numerique et u
000090: 6E 20 74 65 78 74 65 20 64 65 73 63 72 69 70 74 n texte descript
0000A0: 69 66 2E 53 69 20 76 6F 75 73 20 6C 65 20 64 65 if.Si vous le de
0000B0: 73 69 72 65 7A 2C 6C 65 20 74 65 78 74 65 27 29 sirez,le texte')
0000C0: 3B 0D 0A 20 20 67 6F 74 6F 78 79 28 31 30 2C 31 ;.. gotoxy(10,1
0000D0: 34 29 3B 77 72 69 74 65 28 27 65 74 20 6C 65 73 4);write('et les
0000E0: 20 63 68 69 66 66 72 65 73 20 73 65 72 6F 6E 74 chiffres seront
0000F0: 20 61 66 66 69 63 68 65 73 20 65 6E 73 65 6D 62 affiches ensemb
000100: 6C 65 20 6F 75 20 73 65 70 61 72 65 6D 65 6E 74 le ou separement
000110: 2E 20 27 29 3B 0D 0A 20 20 67 6F 74 6F 78 79 28 . ');.. gotoxy(
000120: 31 30 2C 31 36 29 3B 77 72 69 74 65 28 27 4C 27 10,16);write('L'
000130: 27 65 78 65 6D 70 6C 65 20 73 75 69 76 61 6E 74 'exemple suivant
000140: 20 6C 69 73 74 65 20 6C 65 73 20 64 6F 6E 6E 65 liste les donne
000150: 65 73 20 64 65 20 62 61 73 65 20 64 75 20 64 69 es de base du di
000160: 61 67 72 61 6D 6D 65 2E 27 29 3B 0D 0A 20 20 67 agramme.');.. g
000170: 6F 74 6F 78 79 28 31 30 2C 31 37 29 3B 77 72 69 otoxy(10,17);wri
000180: 74 65 28 27 45 6E 20 6D 65 6D 65 20 74 65 6D 70 te('En meme temp
000190: 73 2C 75 6E 20 63 61 6D 65 6D 62 65 72 74 20 65 s,un camembert e
0001A0: 73 74 20 64 65 73 73 69 6E 65 2C 20 65 6E 20 61 st dessine, en a
0001B0: 72 72 69 65 72 65 20 70 6C 61 6E 2C 20 73 75 72 rriere plan, sur
0001C0: 20 27 29 3B 0D 0A 20 20 67 6F 74 6F 78 79 28 31 ');.. gotoxy(1
0001D0: 30 2C 31 38 29 3B 77 72 69 74 65 28 27 6C 65 20 0,18);write('le
0001E0: 73 65 63 6F 6E 64 20 65 63 72 61 6E 20 70 75 69 second ecran pui
0001F0: 73 20 65 73 74 20 63 6F 70 69 65 20 73 75 72 20 s est copie sur
Size : 512 (Real : 512)
000000: 20 67 72 61 70 68 69 71 75 65 73 27 29 3B 0D 0A graphiques');..
000010: 20 20 67 6F 74 6F 78 79 28 31 30 2C 31 31 29 3B gotoxy(10,11);
000020: 77 72 69 74 65 28 27 70 6F 75 72 72 6F 6E 74 20 write('pourront
000030: 65 74 72 65 20 72 65 61 6C 69 73 65 65 73 20 6E etre realisees n
000040: 27 27 69 6D 70 6F 72 74 65 20 6F 75 20 73 75 72 ''importe ou sur
000050: 20 6C 27 27 65 63 72 61 6E 20 65 74 20 65 74 72 l''ecran et etr
000060: 65 20 63 6F 6D 70 72 69 73 65 73 2C 27 29 3B 0D e comprises,');.
000070: 0A 20 20 67 6F 74 6F 78 79 28 31 30 2C 31 32 29 . gotoxy(10,12)
000080: 3B 77 72 69 74 65 28 27 64 61 6E 73 20 75 6E 65 ;write('dans une
000090: 20 6F 75 20 70 6C 75 73 69 65 75 72 73 20 66 65 ou plusieurs fe
0000A0: 6E 65 74 72 65 73 2C 65 78 61 63 74 65 6D 65 6E netres,exactemen
0000B0: 74 20 64 65 20 6C 61 20 6D 65 6D 65 20 66 61 63 t de la meme fac
0000C0: 6F 6E 27 29 3B 0D 0A 20 20 67 6F 74 6F 78 79 28 on');.. gotoxy(
0000D0: 31 30 2C 31 33 29 3B 77 72 69 74 65 28 27 61 6C 10,13);write('al
0000E0: 6F 72 73 20 6C 65 73 20 64 69 66 66 65 72 65 6E ors les differen
0000F0: 74 65 73 20 6F 70 65 72 61 74 69 6F 6E 73 20 70 tes operations p
000100: 6F 75 72 72 6F 6E 74 20 65 74 72 65 20 61 66 66 ourront etre aff
000110: 69 63 68 65 65 73 20 73 75 72 27 29 3B 0D 0A 20 ichees sur');..
000120: 20 67 6F 74 6F 78 79 28 31 30 2C 31 34 29 3B 77 gotoxy(10,14);w
000130: 72 69 74 65 28 27 6C 27 27 65 63 72 61 6E 20 64 rite('l''ecran d
000140: 75 20 66 61 63 6F 6E 20 73 69 6D 70 6C 65 20 65 u facon simple e
000150: 74 20 63 6C 61 69 72 65 20 27 29 3B 0D 0A 20 20 t claire ');..
000160: 67 6F 74 6F 78 79 28 31 30 2C 31 35 29 3B 77 72 gotoxy(10,15);wr
000170: 69 74 65 28 27 47 72 61 63 65 20 61 20 63 65 73 ite('Grace a ces
000180: 20 63 6F 6D 6D 61 6E 64 65 73 20 73 69 6D 70 6C commandes simpl
000190: 65 73 2C 6C 65 73 20 66 65 6E 65 74 72 65 73 20 es,les fenetres
0001A0: 70 6F 75 72 72 6F 6E 74 20 65 74 72 65 20 6D 75 pourront etre mu
0001B0: 65 73 20 73 75 72 27 29 3B 0D 0A 20 20 67 6F 74 es sur');.. got
0001C0: 6F 78 79 28 31 30 2C 31 36 29 3B 77 72 69 74 65 oxy(10,16);write
0001D0: 28 27 4C 27 27 65 63 72 61 6E 2C 65 74 20 65 74 ('L''ecran,et et
0001E0: 72 65 20 69 6D 70 72 69 6D 65 65 73 20 64 61 6E re imprimees dan
0001F0: 73 20 6C 61 20 64 65 73 69 72 65 65 2E 43 65 73 s la desiree.Ces
Size : 512 (Real : 512)
000000: 6C 65 20 70 72 65 6D 69 65 72 20 65 63 72 61 6E le premier ecran
000010: 2E 20 27 29 3B 0D 0A 20 20 67 6F 74 6F 78 79 28 . ');.. gotoxy(
000020: 32 30 2C 32 34 29 3B 0D 0A 20 20 77 61 69 74 72 20,24);.. waitr
000030: 65 74 75 72 6E 28 36 30 30 30 30 2E 30 29 3B 0D eturn(60000.0);.
000040: 0A 65 6E 64 3B 0D 0A 0D 0A 6F 76 65 72 6C 61 79 .end;....overlay
000050: 20 70 72 6F 63 65 64 75 72 65 20 42 65 7A 69 65 procedure Bezie
000060: 72 49 6E 66 6F 3B 0D 0A 62 65 67 69 6E 0D 0A 20 rInfo;..begin..
000070: 20 67 6F 74 6F 78 79 28 31 30 2C 35 29 3B 77 72 gotoxy(10,5);wr
000080: 69 74 65 6C 6E 28 27 55 74 69 6C 69 73 61 74 69 iteln('Utilisati
000090: 6F 6E 20 64 65 20 6C 61 20 66 6F 6E 63 74 69 6F on de la fonctio
0000A0: 6E 20 42 45 5A 49 45 52 20 70 6F 75 72 20 64 65 n BEZIER pour de
0000B0: 73 73 69 6E 65 72 27 29 3B 0D 0A 20 20 67 6F 74 ssiner');.. got
0000C0: 6F 78 79 28 33 2C 38 29 3B 77 72 69 74 65 28 27 oxy(3,8);write('
0000D0: 50 72 6F 63 65 64 75 72 65 20 3A 20 62 65 7A 69 Procedure : bezi
0000E0: 65 72 28 70 61 72 61 6D 65 74 72 65 29 3B 27 29 er(parametre);')
0000F0: 3B 0D 0A 20 20 67 6F 74 6F 78 79 28 33 2C 31 30 ;.. gotoxy(3,10
000100: 29 3B 77 72 69 74 65 28 27 43 65 6C 6C 65 2D 63 );write('Celle-c
000110: 69 20 70 65 72 6D 65 74 20 64 65 20 6C 69 73 73 i permet de liss
000120: 65 72 20 32 20 6F 62 6A 65 74 73 20 64 69 6D 65 er 2 objets dime
000130: 6E 73 69 6F 6E 6E 65 6C 73 20 61 20 70 61 72 74 nsionnels a part
000140: 69 72 20 64 65 73 27 29 3B 0D 0A 20 20 67 6F 74 ir des');.. got
000150: 6F 78 79 28 33 2C 31 31 29 3B 77 72 69 74 65 28 oxy(3,11);write(
000160: 27 70 6F 69 6E 74 73 20 64 6F 6E 6E 65 65 73 20 'points donnees
000170: 70 61 72 20 6C 27 27 75 74 69 6C 69 73 61 74 65 par l''utilisate
000180: 75 72 2E 45 6C 6C 65 20 70 65 75 74 20 65 74 72 ur.Elle peut etr
000190: 65 20 61 75 73 73 69 20 75 74 69 6C 69 73 65 65 e aussi utilisee
0001A0: 27 29 3B 0D 0A 20 20 67 6F 74 6F 78 79 28 33 2C ');.. gotoxy(3,
0001B0: 31 32 29 3B 77 72 69 74 65 28 27 70 6F 75 72 20 12);write('pour
0001C0: 64 65 73 20 63 6F 75 72 62 65 73 20 61 20 6C 61 des courbes a la
0001D0: 72 67 65 20 69 6E 63 75 72 76 61 74 69 6F 6E 20 rge incurvation
0001E0: 65 74 20 66 61 69 72 65 20 63 6F 72 72 65 73 70 et faire corresp
0001F0: 6F 6E 64 72 65 20 64 65 73 2E 27 29 3B 0D 0A 20 ondre des.');..
Size : 512 (Real : 512)
000000: 20 64 65 72 6E 69 65 72 65 73 27 29 3B 0D 0A 20 dernieres');..
000010: 20 67 6F 74 6F 78 79 28 31 30 2C 31 37 29 3B 77 gotoxy(10,17);w
000020: 72 69 74 65 28 27 70 6F 75 72 72 6F 6E 74 20 65 rite('pourront e
000030: 74 72 65 20 73 74 6F 63 6B 65 65 73 20 64 61 6E tre stockees dan
000040: 73 20 75 6E 65 20 70 61 67 65 20 6D 65 6D 6F 69 s une page memoi
000050: 72 65 2C 71 75 69 20 65 73 74 20 69 6E 64 65 70 re,qui est indep
000060: 65 6E 64 61 6E 74 65 27 29 3B 0D 0A 20 20 67 6F endante');.. go
000070: 74 6F 78 79 28 31 30 2C 31 38 29 3B 77 72 69 74 toxy(10,18);writ
000080: 65 28 27 64 65 20 6C 27 27 65 63 72 61 6E 20 2C e('de l''ecran ,
000090: 65 74 20 61 69 6E 73 69 20 65 6C 6C 65 73 20 73 et ainsi elles s
0000A0: 65 72 6F 6E 74 20 72 61 70 69 64 65 6D 65 6E 74 eront rapidement
0000B0: 20 72 65 73 74 61 75 72 65 65 73 20 6E 27 27 69 restaurees n''i
0000C0: 6D 70 6F 72 74 65 27 29 3B 0D 0A 20 20 67 6F 74 mporte');.. got
0000D0: 6F 78 79 28 31 30 2C 31 39 29 3B 77 72 69 74 65 oxy(10,19);write
0000E0: 28 27 6F 75 20 73 75 72 20 6C 27 27 65 63 72 61 ('ou sur l''ecra
0000F0: 6E 2E 4C 61 20 74 61 69 6C 6C 65 20 64 65 20 6C n.La taille de l
000100: 61 20 70 61 67 65 20 6D 65 6D 6F 69 72 65 20 65 a page memoire e
000110: 73 74 20 6C 69 6D 69 74 65 65 27 29 3B 0D 0A 20 st limitee');..
000120: 20 67 6F 74 6F 78 79 28 31 30 2C 32 30 29 3B 77 gotoxy(10,20);w
000130: 72 69 74 65 28 27 70 61 72 20 63 65 6C 6C 65 20 rite('par celle
000140: 64 65 20 6C 61 20 6D 65 6D 6F 69 72 65 20 70 68 de la memoire ph
000150: 79 73 69 71 75 65 2E 27 29 3B 0D 0A 20 20 67 6F ysique.');.. go
000160: 74 6F 78 79 28 33 31 2C 32 35 29 3B 0D 0A 20 20 toxy(31,25);..
000170: 77 61 69 74 72 65 74 75 72 6E 28 36 30 30 30 30 waitreturn(60000
000180: 2E 30 29 3B 0D 0A 65 6E 64 3B 0D 0A 0D 0A 6F 76 .0);..end;....ov
000190: 65 72 6C 61 79 20 70 72 6F 63 65 64 75 72 65 20 erlay procedure
0001A0: 53 70 6C 69 6E 65 49 6E 66 6F 3B 0D 0A 62 65 67 SplineInfo;..beg
0001B0: 69 6E 0D 0A 20 20 67 6F 74 6F 78 79 28 32 30 2C in.. gotoxy(20,
0001C0: 35 29 3B 77 72 69 74 65 6C 6E 28 27 20 55 74 69 5);writeln(' Uti
0001D0: 6C 69 73 61 74 69 6F 6E 20 64 65 73 20 66 6F 6E lisation des fon
0001E0: 63 74 69 6F 6E 73 20 53 70 6C 69 6E 65 27 29 3B ctions Spline');
0001F0: 0D 0A 20 20 67 6F 74 6F 78 79 28 31 30 2C 31 30 .. gotoxy(10,10
Size : 512 (Real : 512)
000000: 20 67 6F 74 6F 78 79 28 33 2C 31 33 29 3B 77 72 gotoxy(3,13);wr
000010: 69 74 65 28 27 70 6F 6C 79 6E 6F 6D 65 73 20 69 ite('polynomes i
000020: 6E 63 6F 6D 70 61 74 69 62 6C 65 73 27 29 3B 0D ncompatibles');.
000030: 0A 20 20 67 6F 74 6F 78 79 28 33 2C 31 34 29 3B . gotoxy(3,14);
000040: 77 72 69 74 65 28 27 4C 27 27 65 78 65 6D 70 6C write('L''exempl
000050: 65 20 73 75 69 76 61 6E 74 20 64 65 73 73 69 6E e suivant dessin
000060: 65 72 61 20 37 20 70 6F 69 6E 74 73 20 28 6C 65 era 7 points (le
000070: 20 63 61 72 72 65 29 20 65 74 20 6C 65 75 72 20 carre) et leur
000080: 66 6F 6E 63 74 69 6F 6E 27 29 3B 0D 0A 20 20 67 fonction');.. g
000090: 6F 74 6F 78 79 28 33 2C 31 35 29 3B 77 72 69 74 otoxy(3,15);writ
0000A0: 65 28 27 72 65 73 70 65 63 74 69 76 65 20 28 6C e('respective (l
0000B0: 69 67 6E 65 20 64 65 73 73 69 6E 65 65 29 2E 56 igne dessinee).V
0000C0: 6F 75 73 20 70 6F 75 76 65 7A 20 63 68 61 6E 67 ous pouvez chang
0000D0: 65 72 20 6C 61 20 70 6F 73 69 74 69 6F 6E 20 64 er la position d
0000E0: 65 73 20 27 29 3B 0D 0A 20 20 67 6F 74 6F 78 79 es ');.. gotoxy
0000F0: 28 33 2C 31 36 29 3B 77 72 69 74 65 28 27 70 6F (3,16);write('po
000100: 69 6E 74 73 20 65 6E 20 65 6E 74 72 61 6E 74 20 ints en entrant
000110: 6C 65 75 72 20 6E 6F 6D 62 72 65 20 28 31 20 61 leur nombre (1 a
000120: 20 37 29 20 65 74 20 6C 65 75 72 73 20 6E 6F 75 7) et leurs nou
000130: 76 65 6C 6C 65 73 20 63 6F 6F 72 64 6F 6E 6E 65 velles coordonne
000140: 65 73 27 29 3B 0D 0A 20 20 67 6F 74 6F 78 79 28 es');.. gotoxy(
000150: 33 2C 31 37 29 3B 77 72 69 74 65 28 27 4C 61 20 3,17);write('La
000160: 70 72 6F 63 65 64 75 72 65 20 63 72 65 65 72 61 procedure creera
000170: 20 61 6C 6F 72 73 20 6C 65 73 20 66 6F 6E 63 74 alors les fonct
000180: 69 6F 6E 73 20 72 65 73 70 65 63 74 69 76 65 73 ions respectives
000190: 27 29 3B 0D 0A 20 20 67 6F 74 6F 78 79 28 33 2C ');.. gotoxy(3,
0001A0: 31 38 29 3B 77 72 69 74 65 28 27 56 6F 75 73 20 18);write('Vous
0001B0: 70 75 76 65 7A 20 71 75 69 74 74 65 72 20 63 65 puvez quitter ce
0001C0: 20 6D 6F 64 75 6C 65 20 65 6E 20 74 61 70 61 6E module en tapan
0001D0: 74 20 73 75 72 20 52 45 54 4F 55 52 20 76 65 72 t sur RETOUR ver
0001E0: 73 20 6C 65 20 6E 75 6D 65 72 6F 2E 27 29 3B 0D s le numero.');.
0001F0: 0A 20 20 67 6F 74 6F 78 79 28 33 2C 31 39 29 3B . gotoxy(3,19);
Size : 512 (Real : 512)
000000: 70 72 6F 67 72 61 6D 20 53 63 72 65 65 6E 49 4F program ScreenIO
000010: 3B 0D 0A 0D 0A 7B 24 49 20 74 79 70 65 64 65 66 ;....{$I typedef
000020: 2E 73 79 73 7D 20 20 20 20 20 20 20 20 20 20 20 .sys}
000030: 20 20 20 20 20 20 20 20 20 20 20 20 7B 63 65 73 {ces
000040: 20 66 69 63 68 69 65 72 73 20 64 6F 69 76 65 6E fichiers doiven
000050: 74 20 65 74 72 65 7D 0D 0A 7B 24 49 20 67 72 61 t etre}..{$I gra
000060: 70 68 69 78 2E 73 79 73 7D 20 20 20 20 20 20 20 phix.sys}
000070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000080: 7B 69 6E 63 6C 75 73 20 64 61 6E 73 20 63 65 74 {inclus dans cet
000090: 20 6F 72 64 72 65 7D 0D 0A 7B 24 49 20 6B 65 72 ordre}..{$I ker
0000A0: 6E 65 6C 2E 73 79 73 7D 0D 0A 7B 24 49 20 6B 65 nel.sys}..{$I ke
0000B0: 72 6E 65 6C 31 2E 73 79 73 7D 0D 0A 0D 0A 0D 0A rnel1.sys}......
0000C0: 70 72 6F 63 65 64 75 72 65 20 53 69 65 72 70 69 procedure Sierpi
0000D0: 6E 73 6B 69 3B 0D 0A 63 6F 6E 73 74 20 6E 3D 35 nski;..const n=5
0000E0: 3B 0D 0A 76 61 72 20 69 2C 68 2C 78 2C 79 2C 78 ;..var i,h,x,y,x
0000F0: 30 2C 79 30 3A 69 6E 74 65 67 65 72 3B 0D 0A 20 0,y0:integer;..
000100: 20 20 20 73 65 63 3A 62 6F 6F 6C 65 61 6E 3B 0D sec:boolean;.
000110: 0A 0D 0A 70 72 6F 63 65 64 75 72 65 20 70 6C 6F ...procedure plo
000120: 74 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 t;
000130: 20 20 20 20 20 20 20 20 20 20 7B 74 72 61 63 65 {trace
000140: 20 75 6E 65 20 6C 69 67 6E 65 7D 0D 0A 62 65 67 une ligne}..beg
000150: 69 6E 0D 0A 20 20 44 72 61 77 4C 69 6E 65 28 78 in.. DrawLine(x
000160: 2C 79 2C 78 30 2C 79 30 29 3B 0D 0A 20 20 78 30 ,y,x0,y0);.. x0
000170: 3A 3D 78 3B 0D 0A 20 20 79 30 3A 3D 79 3B 0D 0A :=x;.. y0:=y;..
000180: 65 6E 64 3B 0D 0A 0D 0A 7B 24 41 2D 7D 0D 0A 70 end;....{$A-}..p
000190: 72 6F 63 65 64 75 72 65 20 62 28 69 3A 69 6E 74 rocedure b(i:int
0001A0: 65 67 65 72 29 3B 20 66 6F 72 77 61 72 64 3B 20 eger); forward;
0001B0: 20 20 20 20 20 20 7B 66 6F 72 77 61 72 64 20 72 {forward r
0001C0: 65 66 65 72 65 6E 63 65 73 20 70 6F 75 72 20 72 eferences pour r
0001D0: 65 63 75 72 73 69 6F 6E 7D 0D 0A 0D 0A 70 72 6F ecursion}....pro
0001E0: 63 65 64 75 72 65 20 63 28 69 3A 69 6E 74 65 67 cedure c(i:integ
0001F0: 65 72 29 3B 20 66 6F 72 77 61 72 64 3B 0D 0A 0D er); forward;...
Size : 512 (Real : 512)
000000: 77 72 69 74 65 28 27 64 75 20 70 6F 69 6E 74 20 write('du point
000010: 65 6E 20 71 75 65 73 74 69 6F 6E 2E 27 29 3B 0D en question.');.
000020: 0A 20 20 67 6F 74 6F 78 79 28 32 30 2C 32 35 29 . gotoxy(20,25)
000030: 3B 0D 0A 20 20 77 61 69 74 72 65 74 75 72 6E 28 ;.. waitreturn(
000040: 36 30 30 30 30 2E 30 29 3B 0D 0A 65 6E 64 3B 0D 60000.0);..end;.
000050: 0A 0D 0A 6F 76 65 72 6C 61 79 20 70 72 6F 63 65 ...overlay proce
000060: 64 75 72 65 20 50 6F 6C 79 67 6F 6E 49 6E 66 6F dure PolygonInfo
000070: 3B 0D 0A 62 65 67 69 6E 0D 0A 20 20 67 6F 74 6F ;..begin.. goto
000080: 78 79 28 31 30 2C 35 29 3B 77 72 69 74 65 6C 6E xy(10,5);writeln
000090: 28 27 50 6F 73 73 69 62 69 6C 69 74 65 73 20 64 ('Possibilites d
0000A0: 65 20 64 69 61 67 72 61 6D 6D 65 20 64 65 20 70 e diagramme de p
0000B0: 6F 6C 79 67 6F 6E 65 27 29 3B 0D 0A 20 20 67 6F olygone');.. go
0000C0: 74 6F 78 79 28 33 2C 38 29 3B 77 72 69 74 65 28 toxy(3,8);write(
0000D0: 27 43 6F 6D 6D 61 6E 64 65 20 3A 20 44 72 61 77 'Commande : Draw
0000E0: 50 6F 6C 79 67 6F 6E 28 70 61 72 61 6D 65 74 72 Polygon(parametr
0000F0: 65 29 3B 27 29 3B 0D 0A 20 20 67 6F 74 6F 78 79 e);');.. gotoxy
000100: 28 33 2C 31 30 29 3B 77 72 69 74 65 28 27 43 65 (3,10);write('Ce
000110: 74 74 65 20 63 6F 6D 6D 61 6E 64 65 20 65 73 74 tte commande est
000120: 20 75 74 69 6C 69 73 65 65 20 70 6F 75 72 20 64 utilisee pour d
000130: 65 73 73 69 6E 65 72 20 6C 65 73 20 70 6F 6C 79 essiner les poly
000140: 67 6F 6E 65 73 2E 43 65 6C 6C 65 2D 63 69 27 29 gones.Celle-ci')
000150: 3B 0D 0A 20 20 67 6F 74 6F 78 79 28 33 2C 31 31 ;.. gotoxy(3,11
000160: 29 3B 77 72 69 74 65 28 27 72 65 6C 69 65 20 6C );write('relie l
000170: 65 20 73 6F 6D 6D 65 74 20 64 27 27 75 6E 20 70 e sommet d''un p
000180: 6F 6C 79 67 6F 6E 65 20 61 76 65 63 20 6C 65 73 olygone avec les
000190: 20 64 69 66 66 65 72 65 6E 74 73 20 74 79 70 65 differents type
0001A0: 73 20 64 65 20 6C 69 67 6E 65 73 27 29 3B 0D 0A s de lignes');..
0001B0: 20 20 67 6F 74 6F 78 79 28 33 2C 31 32 29 3B 77 gotoxy(3,12);w
0001C0: 72 69 74 65 28 27 6D 61 72 71 75 65 20 6C 65 73 rite('marque les
0001D0: 20 63 6F 69 6E 73 20 61 76 65 63 20 64 69 66 66 coins avec diff
0001E0: 65 72 65 6E 74 73 20 73 79 6D 62 6F 6C 65 73 20 erents symboles
0001F0: 74 65 6C 20 71 75 65 20 6C 65 73 20 65 74 6F 69 tel que les etoi
Size : 512 (Real : 512)
000000: 0A 70 72 6F 63 65 64 75 72 65 20 64 28 69 3A 69 .procedure d(i:i
000010: 6E 74 65 67 65 72 29 3B 20 66 6F 72 77 61 72 64 nteger); forward
000020: 3B 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 65 20 61 ;....procedure a
000030: 28 69 3A 69 6E 74 65 67 65 72 29 3B 20 20 20 20 (i:integer);
000040: 20 20 20 20 20 20 20 20 20 20 20 20 7B 70 72 65 {pre
000050: 6D 69 65 72 65 20 70 72 6F 63 65 64 75 72 65 20 miere procedure
000060: 72 65 63 75 72 73 69 76 65 7D 0D 0A 62 65 67 69 recursive}..begi
000070: 6E 0D 0A 20 20 69 66 20 69 3E 30 20 74 68 65 6E n.. if i>0 then
000080: 0D 0A 20 20 62 65 67 69 6E 0D 0A 20 20 20 20 61 .. begin.. a
000090: 28 69 2D 31 29 3B 0D 0A 20 20 20 20 78 3A 3D 78 (i-1);.. x:=x
0000A0: 2B 68 3B 0D 0A 20 20 20 20 79 3A 3D 79 2D 68 3B +h;.. y:=y-h;
0000B0: 0D 0A 20 20 20 20 70 6C 6F 74 3B 0D 0A 20 20 20 .. plot;..
0000C0: 20 62 28 69 2D 31 29 3B 0D 0A 20 20 20 20 78 3A b(i-1);.. x:
0000D0: 3D 78 2B 32 2A 68 3B 0D 0A 20 20 20 20 70 6C 6F =x+2*h;.. plo
0000E0: 74 3B 0D 0A 20 20 20 20 64 28 69 2D 31 29 3B 0D t;.. d(i-1);.
0000F0: 0A 20 20 20 20 78 3A 3D 78 2B 68 3B 0D 0A 20 20 . x:=x+h;..
000100: 20 20 79 3A 3D 79 2B 68 3B 0D 0A 20 20 20 20 70 y:=y+h;.. p
000110: 6C 6F 74 3B 0D 0A 20 20 20 20 61 28 69 2D 31 29 lot;.. a(i-1)
000120: 3B 0D 0A 20 20 65 6E 64 3B 0D 0A 65 6E 64 3B 0D ;.. end;..end;.
000130: 0A 0D 0A 70 72 6F 63 65 64 75 72 65 20 62 3B 20 ...procedure b;
000140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000150: 20 20 20 20 20 20 20 20 20 20 7B 73 65 63 6F 6E {secon
000160: 64 20 70 72 6F 63 65 64 75 72 65 20 72 65 63 75 d procedure recu
000170: 72 73 69 76 65 7D 0D 0A 62 65 67 69 6E 0D 0A 20 rsive}..begin..
000180: 20 69 66 20 69 3E 30 20 74 68 65 6E 0D 0A 20 20 if i>0 then..
000190: 62 65 67 69 6E 0D 0A 20 20 20 20 62 28 69 2D 31 begin.. b(i-1
0001A0: 29 3B 0D 0A 20 20 20 20 78 3A 3D 78 2D 68 3B 0D );.. x:=x-h;.
0001B0: 0A 20 20 20 20 79 3A 3D 79 2D 68 3B 0D 0A 20 20 . y:=y-h;..
0001C0: 20 20 70 6C 6F 74 3B 0D 0A 20 20 20 20 63 28 69 plot;.. c(i
0001D0: 2D 31 29 3B 0D 0A 20 20 20 20 79 3A 3D 79 2D 32 -1);.. y:=y-2
0001E0: 2A 68 3B 0D 0A 20 20 20 20 70 6C 6F 74 3B 0D 0A *h;.. plot;..
0001F0: 20 20 20 20 61 28 69 2D 31 29 3B 0D 0A 20 20 20 a(i-1);..
Size : 512 (Real : 512)
000000: 6C 65 73 2C 63 61 72 72 65 73 27 29 3B 0D 0A 20 les,carres');..
000010: 20 67 6F 74 6F 78 79 28 33 2C 31 33 29 3B 77 72 gotoxy(3,13);wr
000020: 69 74 65 28 27 2C 20 65 74 63 2E 2C 63 72 65 65 ite(', etc.,cree
000030: 20 64 65 73 20 62 61 72 72 65 73 20 65 74 20 70 des barres et p
000040: 6C 75 73 20 65 6E 63 6F 72 65 2E 41 75 20 6D 6F lus encore.Au mo
000050: 79 65 6E 20 64 65 20 64 65 73 73 69 6E 73 20 72 yen de dessins r
000060: 65 70 65 74 65 73 20 64 61 6E 73 27 29 3B 0D 0A epetes dans');..
000070: 20 20 67 6F 74 6F 78 79 28 33 2C 31 34 29 3B 77 gotoxy(3,14);w
000080: 72 69 74 65 28 27 6C 61 20 6D 65 6D 65 20 66 65 rite('la meme fe
000090: 6E 65 74 72 65 2C 70 6C 75 73 69 65 75 72 73 20 netre,plusieurs
0000A0: 70 6F 6C 79 67 6F 6E 65 73 20 70 65 75 76 65 6E polygones peuven
0000B0: 74 20 65 74 72 65 20 6D 69 73 20 6C 65 73 20 75 t etre mis les u
0000C0: 6E 73 20 73 75 72 20 6C 65 73 20 61 75 74 72 65 ns sur les autre
0000D0: 73 27 29 3B 0D 0A 20 20 67 6F 74 6F 78 79 28 33 s');.. gotoxy(3
0000E0: 2C 31 35 29 3B 77 72 69 74 65 28 54 6F 75 74 20 ,15);write(Tout
0000F0: 64 69 61 67 72 61 6D 6D 65 20 70 65 75 74 20 65 diagramme peut e
000100: 74 72 65 20 64 65 73 73 69 6E 65 20 61 76 65 63 tre dessine avec
000110: 20 6F 75 20 73 61 6E 73 20 63 6F 6F 72 64 6F 6E ou sans coordon
000120: 6E 65 73 20 6F 75 20 74 65 78 74 65 2E 27 29 3B nes ou texte.');
000130: 0D 0A 20 20 67 6F 74 6F 78 79 28 33 2C 31 36 29 .. gotoxy(3,16)
000140: 3B 77 72 69 74 65 28 27 4C 65 73 20 65 78 65 6D ;write('Les exem
000150: 70 6C 65 73 20 73 75 69 76 61 6E 74 73 20 6F 6E ples suivants on
000160: 74 20 65 74 65 20 63 72 65 65 73 20 61 76 65 63 t ete crees avec
000170: 20 6C 61 20 70 72 6F 63 65 64 75 72 65 20 74 6F la procedure to
000180: 75 74 20 65 6E 20 66 61 69 73 61 6E 74 20 76 61 ut en faisant va
000190: 72 69 65 72 27 29 3B 20 29 3B 0D 0A 20 20 67 6F rier'); );.. go
0001A0: 74 6F 78 79 28 33 2C 31 37 29 3B 77 72 69 74 65 toxy(3,17);write
0001B0: 28 27 6C 65 20 70 61 72 61 6D 65 74 72 65 2E 47 ('le parametre.G
0001C0: 72 61 63 65 20 61 20 6C 61 20 63 6F 6D 6D 61 6E race a la comman
0001D0: 64 65 20 44 72 61 77 41 78 69 73 20 75 6E 65 20 de DrawAxis une
0001E0: 70 72 65 73 65 6E 74 61 74 69 6F 6E 20 64 65 73 presentation des
0001F0: 20 61 78 65 73 20 27 29 3B 0D 0A 20 20 67 6F 74 axes ');.. got
Size : 512 (Real : 512)
000000: 20 78 3A 3D 78 2B 68 3B 0D 0A 20 20 20 20 79 3A x:=x+h;.. y:
000010: 3D 79 2D 68 3B 0D 0A 20 20 20 20 70 6C 6F 74 3B =y-h;.. plot;
000020: 20 20 20 20 62 28 69 2D 31 29 3B 0D 0A 20 20 65 b(i-1);.. e
000030: 6E 64 3B 0D 0A 65 6E 64 3B 0D 0A 0D 0A 70 72 6F nd;..end;....pro
000040: 63 65 64 75 72 65 20 63 3B 20 20 20 20 20 20 20 cedure c;
000050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000060: 20 20 20 20 7B 74 72 6F 69 73 69 65 6D 65 20 70 {troisieme p
000070: 72 6F 63 65 64 75 72 65 20 72 65 63 75 72 73 69 rocedure recursi
000080: 76 65 7D 0D 0A 62 65 67 69 6E 0D 0A 20 20 69 66 ve}..begin.. if
000090: 20 69 3E 30 20 74 68 65 6E 0D 0A 20 20 62 65 67 i>0 then.. beg
0000A0: 69 6E 0D 0A 20 20 20 20 63 28 69 2D 31 29 3B 0D in.. c(i-1);.
0000B0: 0A 20 20 20 20 78 3A 3D 78 2D 68 3B 0D 0A 20 20 . x:=x-h;..
0000C0: 20 20 79 3A 3D 79 2B 68 3B 0D 0A 20 20 20 20 70 y:=y+h;.. p
0000D0: 6C 6F 74 3B 0D 0A 20 20 20 20 64 28 69 2D 31 29 lot;.. d(i-1)
0000E0: 3B 0D 0A 20 20 20 20 78 3A 3D 78 2D 32 2A 68 3B ;.. x:=x-2*h;
0000F0: 0D 0A 20 20 20 20 70 6C 6F 74 3B 0D 0A 20 20 20 .. plot;..
000100: 20 62 28 69 2D 31 29 3B 0D 0A 20 20 20 20 78 3A b(i-1);.. x:
000110: 3D 78 2D 68 3B 0D 0A 20 20 20 20 79 3A 3D 79 2D =x-h;.. y:=y-
000120: 68 3B 0D 0A 20 20 20 20 70 6C 6F 74 3B 0D 0A 20 h;.. plot;..
000130: 20 20 20 63 28 69 2D 31 29 3B 0D 0A 20 20 65 6E c(i-1);.. en
000140: 64 3B 0D 0A 65 6E 64 3B 0D 0A 0D 0A 70 72 6F 63 d;..end;....proc
000150: 65 64 75 72 65 20 64 3B 20 20 20 20 20 20 20 20 edure d;
000160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000170: 20 20 20 7B 64 65 72 6E 69 65 72 65 20 70 72 6F {derniere pro
000180: 63 65 64 75 72 65 20 72 65 63 75 72 73 69 76 65 cedure recursive
000190: 20 7D 0D 0A 62 65 67 69 6E 0D 0A 20 20 69 66 20 }..begin.. if
0001A0: 69 3E 30 20 74 68 65 6E 0D 0A 20 20 62 65 67 69 i>0 then.. begi
0001B0: 6E 0D 0A 20 20 20 20 64 28 69 2D 31 29 3B 0D 0A n.. d(i-1);..
0001C0: 20 20 20 20 78 3A 3D 78 2B 68 3B 0D 0A 20 20 20 x:=x+h;..
0001D0: 20 79 3A 3D 79 2B 68 3B 0D 0A 20 20 20 20 70 6C y:=y+h;.. pl
0001E0: 6F 74 3B 0D 0A 20 20 20 20 61 28 69 2D 31 29 3B ot;.. a(i-1);
0001F0: 0D 0A 20 20 20 20 79 3A 3D 79 2B 32 2A 68 3B 0D .. y:=y+2*h;.
Size : 512 (Real : 512)
000000: 6F 78 79 28 33 2C 31 38 29 3B 77 72 69 74 65 28 oxy(3,18);write(
000010: 27 69 6E 63 6C 75 61 6E 74 20 64 75 20 74 65 78 'incluant du tex
000020: 74 65 20 61 20 65 74 65 20 72 65 6E 64 75 65 20 te a ete rendue
000030: 70 6F 73 73 69 62 6C 65 2E 54 61 70 65 7A 20 73 possible.Tapez s
000040: 75 72 20 52 45 54 4F 55 52 20 70 6F 75 72 20 72 ur RETOUR pour r
000050: 65 76 65 6E 69 72 27 29 3B 0D 0A 20 20 67 6F 74 evenir');.. got
000060: 6F 78 79 28 33 2C 31 39 29 3B 77 72 69 74 65 28 oxy(3,19);write(
000070: 27 61 20 6C 27 27 69 6E 74 65 72 69 65 75 72 20 'a l''interieur
000080: 64 65 20 63 65 20 6D 6F 64 75 6C 65 20 64 65 20 de ce module de
000090: 64 65 6D 6F 6E 73 74 72 61 74 69 6F 6E 27 29 3B demonstration');
0000A0: 0D 0A 20 20 67 6F 74 6F 78 79 28 32 30 2C 32 35 .. gotoxy(20,25
0000B0: 29 3B 0D 0A 20 20 77 61 69 74 72 65 74 75 72 6E );.. waitreturn
0000C0: 28 36 30 30 30 30 2E 30 29 3B 0D 0A 65 6E 64 3B (60000.0);..end;
0000D0: 0D 0A 0D 0A 0D 0A 0D 0A 1A 1A 1A 1A 1A 1A 1A 1A ................
0000E0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0000F0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000100: 74 72 65 20 64 65 73 73 69 6E 65 20 61 76 65 63 tre dessine avec
000110: 20 6F 75 20 73 61 6E 73 20 63 6F 6F 72 64 6F 6E ou sans coordon
000120: 6E 65 73 20 6F 75 20 74 65 78 74 65 2E 27 29 3B nes ou texte.');
000130: 0D 0A 20 20 67 6F 74 6F 78 79 28 33 2C 31 36 29 .. gotoxy(3,16)
000140: 3B 77 72 69 74 65 28 27 4C 65 73 20 65 78 65 6D ;write('Les exem
000150: 70 6C 65 73 20 73 75 69 76 61 6E 74 73 20 6F 6E ples suivants on
000160: 74 20 65 74 65 20 63 72 65 65 73 20 61 76 65 63 t ete crees avec
000170: 20 6C 61 20 70 72 6F 63 65 64 75 72 65 20 74 6F la procedure to
000180: 75 74 20 65 6E 20 66 61 69 73 61 6E 74 20 76 61 ut en faisant va
000190: 72 69 65 72 27 29 3B 20 29 3B 0D 0A 20 20 67 6F rier'); );.. go
0001A0: 74 6F 78 79 28 33 2C 31 37 29 3B 77 72 69 74 65 toxy(3,17);write
0001B0: 28 27 6C 65 20 70 61 72 61 6D 65 74 72 65 2E 47 ('le parametre.G
0001C0: 72 61 63 65 20 61 20 6C 61 20 63 6F 6D 6D 61 6E race a la comman
0001D0: 64 65 20 44 72 61 77 41 78 69 73 20 75 6E 65 20 de DrawAxis une
0001E0: 70 72 65 73 65 6E 74 61 74 69 6F 6E 20 64 65 73 presentation des
0001F0: 20 61 78 65 73 20 27 29 3B 0D 0A 20 20 67 6F 74 axes ');.. got
Size : 512 (Real : 512)
000000: 0A 20 20 20 20 70 6C 6F 74 3B 0D 0A 20 20 20 20 . plot;..
000010: 63 28 69 2D 31 29 3B 0D 0A 20 20 20 20 78 3A 3D c(i-1);.. x:=
000020: 78 2D 68 3B 0D 0A 20 20 20 20 79 3A 3D 79 2B 68 x-h;.. y:=y+h
000030: 3B 0D 0A 20 20 20 20 70 6C 6F 74 3B 0D 0A 20 20 ;.. plot;..
000040: 20 20 64 28 69 2D 31 29 3B 0D 0A 20 20 65 6E 64 d(i-1);.. end
000050: 3B 0D 0A 65 6E 64 3B 0D 0A 0D 0A 7B 24 41 2B 7D ;..end;....{$A+}
000060: 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 65 20 44 6F ....procedure Do
000070: 49 74 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 It;
000080: 20 20 20 20 20 20 20 20 20 20 20 7B 20 70 72 6F { pro
000090: 63 65 64 75 72 65 20 70 72 69 6E 63 69 70 61 6C cedure principal
0000A0: 65 20 20 64 65 20 73 69 65 72 70 69 6E 73 6B 69 e de sierpinski
0000B0: 20 7D 0D 0A 62 65 67 69 6E 0D 0A 20 20 69 3A 3D }..begin.. i:=
0000C0: 33 3B 0D 0A 20 20 68 3A 3D 31 36 3B 0D 0A 20 20 3;.. h:=16;..
0000D0: 78 30 3A 3D 33 30 3B 0D 0A 20 20 79 30 3A 3D 32 x0:=30;.. y0:=2
0000E0: 34 30 3B 0D 0A 20 20 72 65 70 65 61 74 0D 0A 20 40;.. repeat..
0000F0: 20 20 20 69 3A 3D 69 2B 31 3B 0D 0A 20 20 20 20 i:=i+1;..
000100: 78 30 3A 3D 78 30 2D 68 3B 0D 0A 20 20 20 20 68 x0:=x0-h;.. h
000110: 3A 3D 68 20 64 69 76 20 32 3B 0D 0A 20 20 20 20 :=h div 2;..
000120: 79 30 3A 3D 79 30 2B 68 3B 0D 0A 20 20 20 20 78 y0:=y0+h;.. x
000130: 3A 3D 78 30 3B 0D 0A 20 20 20 20 79 3A 3D 79 30 :=x0;.. y:=y0
000140: 3B 0D 0A 20 20 20 20 61 28 69 2D 31 29 3B 0D 0A ;.. a(i-1);..
000150: 20 20 20 20 78 3A 3D 78 2B 68 3B 0D 0A 20 20 20 x:=x+h;..
000160: 20 79 3A 3D 79 2D 68 3B 0D 0A 20 20 20 20 70 6C y:=y-h;.. pl
000170: 6F 74 3B 0D 0A 20 20 20 20 62 28 69 2D 31 29 3B ot;.. b(i-1);
000180: 0D 0A 20 20 20 20 78 3A 3D 78 2D 68 3B 0D 0A 20 .. x:=x-h;..
000190: 20 20 20 79 3A 3D 79 2D 68 3B 0D 0A 20 20 20 20 y:=y-h;..
0001A0: 70 6C 6F 74 3B 0D 0A 20 20 20 20 63 28 69 2D 31 plot;.. c(i-1
0001B0: 29 3B 0D 0A 20 20 20 20 78 3A 3D 78 2D 68 3B 0D );.. x:=x-h;.
0001C0: 0A 20 20 20 20 79 3A 3D 79 2B 68 3B 0D 0A 20 20 . y:=y+h;..
0001D0: 20 20 70 6C 6F 74 3B 0D 0A 20 20 20 20 64 28 69 plot;.. d(i
0001E0: 2D 31 29 3B 0D 0A 20 20 20 20 78 3A 3D 78 2B 68 -1);.. x:=x+h
0001F0: 3B 0D 0A 20 20 20 20 79 3A 3D 79 2B 68 3B 0D 0A ;.. y:=y+h;..
Size : 512 (Real : 512)
000000: 5C 5C 81 20 66 69 6E 69 73 68 65 64 5C 24 5C 5C \\. finished\$\\
000010: 81 20 61 62 61 6E 64 6F 6E 65 64 5C 24 83 61 6E . abandoned\$.an
000020: 64 20 64 65 73 74 69 6E 61 74 69 6F 6E 20 64 69 d destination di
000030: 73 63 20 69 6E 74 6F 20 64 72 69 76 65 20 42 5C sc into drive B\
000040: 86 24 5C 50 6C 65 61 73 65 89 86 24 82 73 74 61 .$\Please..$.sta
000050: 72 74 65 64 24 82 63 6F 6D 70 6C 65 74 65 24 5C rted$.complete$\
000060: 46 6F 72 6D 61 74 74 69 6E 67 20 77 68 69 6C 73 Formatting whils
000070: 74 20 63 6F 70 79 69 6E 67 24 83 86 24 5C 50 6C t copying$..$\Pl
000080: 65 61 73 65 20 69 6E 73 65 72 74 20 64 65 73 74 ease insert dest
000090: 69 6E 61 74 69 6F 6E 20 64 69 73 63 20 69 6E 74 ination disc int
0000A0: 6F 20 64 72 69 76 65 20 41 20 86 24 5C 44 6F 20 o drive A .$\Do
0000B0: 79 6F 75 20 77 61 6E 74 20 74 6F 20 63 68 65 63 you want to chec
0000C0: 6B 20 61 6E 6F 74 68 65 72 20 64 69 73 63 20 28 k another disc (
0000D0: 59 2F 4E 29 3A 5F 24 0D 0A 52 65 61 64 69 6E 67 Y/N):_$..Reading
0000E0: 20 20 74 72 61 63 6B 20 F1 12 0B 24 0D 0A 46 6F track ...$..Fo
0000F0: 72 6D 61 74 74 69 6E 67 20 74 72 61 63 6B 20 F1 rmatting track .
000100: 12 0B 24 0D 0A 43 68 65 63 6B 69 6E 67 20 74 72 ..$..Checking tr
000110: 61 63 6B 20 F1 12 0B 24 20 5E 43 2E 2E 2E 61 62 ack ...$ ^C...ab
000120: 6F 72 74 65 64 24 5C 42 61 64 20 66 6F 72 6D 61 orted$\Bad forma
000130: 74 20 6F 70 74 69 6F 6E 20 28 79 6F 75 20 6D 61 t option (you ma
000140: 79 20 6F 6E 6C 79 20 65 6E 74 65 72 20 53 2C 20 y only enter S,
000150: 56 2C 20 44 20 6F 72 20 49 29 24 5C 49 6E 73 75 V, D or I)$\Insu
000160: 66 66 69 63 69 65 6E 74 20 73 70 61 63 65 20 69 fficient space i
000170: 6E 20 54 50 41 24 5C 5C 59 6F 75 20 6D 75 73 74 n TPA$\\You must
000180: 20 69 6E 73 65 72 74 20 74 84 69 6E 74 6F 20 64 insert t.into d
000190: 72 69 76 65 20 41 5C 24 5C 5C 59 6F 75 20 6D 75 rive A\$\\You mu
0001A0: 73 74 20 69 6E 73 65 72 74 20 74 85 69 6E 74 6F st insert t.into
0001B0: 20 64 72 69 76 65 20 42 5C 24 5C 5C 59 6F 75 20 drive B\$\\You
0001C0: 6D 75 73 74 89 5C 24 5C 5C 54 85 69 6E 20 64 72 must.\$\\T.in dr
0001D0: 69 76 65 20 42 20 6D 75 73 74 20 62 65 20 77 72 ive B must be wr
0001E0: 69 74 65 2D 65 6E 61 62 6C 65 64 5C 24 5C 54 84 ite-enabled\$\T.
0001F0: 69 73 20 6E 6F 74 20 61 20 43 50 2F 4D 20 73 79 is not a CP/M sy
Size : 512 (Real : 512)
000000: 20 20 20 20 70 6C 6F 74 3B 0D 0A 20 20 75 6E 74 plot;.. unt
000010: 69 6C 20 69 3D 6E 3B 0D 0A 65 6E 64 3B 0D 0A 0D il i=n;..end;...
000020: 0A 62 65 67 69 6E 20 20 20 7B 73 69 65 72 70 69 .begin {sierpi
000030: 6E 73 6B 69 7D 0D 0A 20 20 53 65 74 48 65 61 64 nski}.. SetHead
000040: 65 72 4F 6E 3B 0D 0A 20 20 44 65 66 69 6E 65 57 erOn;.. DefineW
000050: 6F 72 6C 64 28 31 2C 2D 33 2C 32 35 38 2C 32 35 orld(1,-3,258,25
000060: 38 2C 2D 33 29 3B 0D 0A 20 20 53 65 6C 65 63 74 8,-3);.. Select
000070: 57 6F 72 6C 64 28 31 29 3B 0D 0A 20 20 53 65 6C World(1);.. Sel
000080: 65 63 74 57 69 6E 64 6F 77 28 31 29 3B 0D 0A 20 ectWindow(1);..
000090: 20 44 72 61 77 42 6F 72 64 65 72 3B 0D 0A 20 20 DrawBorder;..
0000A0: 44 6F 49 74 3B 0D 0A 0D 0A 65 6E 64 3B 0D 0A 0D DoIt;....end;...
0000B0: 0A 0D 0A 62 65 67 69 6E 0D 0A 0D 0A 49 6E 69 74 ...begin....Init
0000C0: 47 72 61 70 68 69 63 3B 20 20 20 20 20 20 20 20 Graphic;
0000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000E0: 20 20 20 7B 69 6E 69 74 69 61 6C 69 73 61 74 69 {initialisati
0000F0: 6F 6E 20 64 75 20 67 72 61 70 68 69 73 6D 65 7D on du graphisme}
000100: 0D 0A 0D 0A 44 65 66 69 6E 65 48 65 61 64 65 72 ....DefineHeader
000110: 28 31 2C 27 44 45 4D 4F 4E 53 54 52 41 54 49 4F (1,'DEMONSTRATIO
000120: 4E 20 45 43 52 41 4E 20 53 41 55 56 45 52 20 45 N ECRAN SAUVER E
000130: 54 20 4C 49 52 45 20 53 55 52 20 4C 45 20 44 49 T LIRE SUR LE DI
000140: 53 51 55 45 27 29 3B 0D 0A 0D 0A 53 65 74 48 65 SQUE');....SetHe
000150: 61 64 65 72 4F 6E 3B 20 20 20 20 20 20 20 20 20 aderOn;
000160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000170: 20 20 7B 64 6F 6E 6E 65 7A 20 6C 75 69 20 75 6E {donnez lui un
000180: 65 20 65 6E 2D 74 65 74 65 7D 0D 0A 0D 0A 53 69 e en-tete}....Si
000190: 65 72 70 69 6E 73 6B 69 3B 20 20 20 20 20 20 20 erpinski;
0001A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001B0: 20 20 20 20 20 7B 66 61 69 74 20 75 6E 65 20 63 {fait une c
0001C0: 6F 75 72 62 65 7D 0D 0A 0D 0A 0D 0A 53 61 76 65 ourbe}......Save
0001D0: 53 63 72 65 65 6E 28 27 44 45 4D 4F 2E 50 49 43 Screen('DEMO.PIC
0001E0: 27 29 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 ');
0001F0: 20 20 20 7B 73 61 75 76 65 20 6C 27 27 65 63 72 {sauve l''ecr
Size : 512 (Real : 512)
000000: 66 6F 72 77 61 72 64 3B 0D 0A 0D 0A 70 72 6F 63 forward;....proc
000010: 65 64 75 72 65 20 64 28 69 3A 69 6E 74 65 67 65 edure d(i:intege
000020: 72 29 3B 20 66 6F 72 77 61 72 64 3B 0D 0A 0D 0A r); forward;....
000030: 70 72 6F 63 65 64 75 72 65 20 61 28 69 3A 69 6E procedure a(i:in
000040: 74 65 67 65 72 29 3B 0D 0A 62 65 67 69 6E 0D 0A teger);..begin..
000050: 20 20 69 66 20 69 3E 30 20 74 68 65 6E 0D 0A 20 if i>0 then..
000060: 20 62 65 67 69 6E 0D 0A 20 20 20 20 61 28 69 2D begin.. a(i-
000070: 31 29 3B 0D 0A 20 20 20 20 78 3A 3D 78 2B 68 3B 1);.. x:=x+h;
000080: 0D 0A 20 20 20 20 79 3A 3D 79 2D 68 3B 0D 0A 20 .. y:=y-h;..
000090: 20 20 20 70 6C 6F 74 3B 0D 0A 20 20 20 20 62 28 plot;.. b(
0000A0: 69 2D 31 29 3B 0D 0A 20 20 20 20 78 3A 3D 78 2B i-1);.. x:=x+
0000B0: 32 2A 68 3B 0D 0A 20 20 20 20 70 6C 6F 74 3B 0D 2*h;.. plot;.
0000C0: 0A 20 20 20 20 64 28 69 2D 31 29 3B 0D 0A 20 20 . d(i-1);..
0000D0: 20 20 78 3A 3D 78 2B 68 3B 0D 0A 20 20 20 20 79 x:=x+h;.. y
0000E0: 3A 3D 79 2B 68 3B 0D 0A 20 20 20 20 70 6C 6F 74 :=y+h;.. plot
0000F0: 3B 0D 0A 20 20 20 20 61 28 69 2D 31 29 3B 0D 0A ;.. a(i-1);..
000100: 20 20 65 6E 64 3B 0D 0A 65 6E 64 3B 0D 0A 0D 0A end;..end;....
000110: 70 72 6F 63 65 64 75 72 65 20 62 3B 0D 0A 62 65 procedure b;..be
000120: 67 69 6E 0D 0A 20 20 69 66 20 69 3E 30 20 74 68 gin.. if i>0 th
000130: 65 6E 0D 0A 20 20 62 65 67 69 6E 0D 0A 20 20 20 en.. begin..
000140: 20 62 28 69 2D 31 29 3B 0D 0A 20 20 20 20 78 3A b(i-1);.. x:
000150: 3D 78 2D 68 3B 0D 0A 20 20 20 20 79 3A 3D 79 2D =x-h;.. y:=y-
000160: 68 3B 0D 0A 20 20 20 20 70 6C 6F 74 3B 0D 0A 20 h;.. plot;..
000170: 20 20 20 63 28 69 2D 31 29 3B 0D 0A 20 20 20 20 c(i-1);..
000180: 79 3A 3D 79 2D 32 2A 68 3B 0D 0A 20 20 20 20 70 y:=y-2*h;.. p
000190: 6C 6F 74 3B 0D 0A 20 20 20 20 61 28 69 2D 31 29 lot;.. a(i-1)
0001A0: 3B 0D 0A 20 20 20 20 78 3A 3D 78 2B 68 3B 0D 0A ;.. x:=x+h;..
0001B0: 20 20 20 20 79 3A 3D 79 2D 68 3B 0D 0A 20 20 20 y:=y-h;..
0001C0: 20 70 6C 6F 74 3B 0D 0A 20 20 20 20 62 28 69 2D plot;.. b(i-
0001D0: 31 29 3B 0D 0A 20 20 65 6E 64 3B 0D 0A 65 6E 64 1);.. end;..end
0001E0: 3B 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 65 20 63 ;....procedure c
0001F0: 3B 0D 0A 62 65 67 69 6E 0D 0A 20 20 69 66 20 69 ;..begin.. if i
Size : 512 (Real : 512)
000000: 61 6E 20 73 75 72 20 6C 65 20 64 69 73 71 75 65 an sur le disque
000010: 7D 0D 0A 0D 0A 43 6C 65 61 72 53 63 72 65 65 6E }....ClearScreen
000020: 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ;
000030: 20 20 20 20 20 20 20 20 20 20 20 20 7B 76 69 64 {vid
000040: 65 20 6C 27 27 65 63 72 61 6E 7D 0D 0A 0D 0A 44 e l''ecran}....D
000050: 65 6C 61 79 28 31 30 30 30 29 3B 20 20 20 20 20 elay(1000);
000060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000070: 20 20 20 20 20 20 7B 52 65 74 61 72 64 65 2C 20 {Retarde,
000080: 73 6F 69 74 20 6C 65 20 64 69 73 71 75 65 20 6F soit le disque o
000090: 75 20 6C 61 20 52 41 4D 20 64 69 73 71 75 65 0D u la RAM disque.
0000A0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
0000B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000C0: 20 20 20 20 20 20 20 20 20 61 66 69 6E 20 71 75 afin qu
0000D0: 65 20 6C 27 27 75 74 69 6C 69 73 61 74 65 75 72 e l''utilisateur
0000E0: 20 70 75 69 73 73 65 20 76 6F 69 72 20 6C 27 27 puisse voir l''
0000F0: 61 63 74 69 6F 6E 20 7D 0D 0A 0D 0A 4C 6F 61 64 action }....Load
000100: 53 63 72 65 65 6E 28 27 44 45 4D 4F 2E 50 49 43 Screen('DEMO.PIC
000110: 27 29 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 ');
000120: 20 20 20 7B 4C 65 20 72 65 74 72 6F 75 76 65 20 {Le retrouve
000130: 73 75 72 20 6C 65 20 64 69 73 71 75 65 7D 0D 0A sur le disque}..
000140: 0D 0A 0D 0A 72 65 70 65 61 74 20 75 6E 74 69 6C ....repeat until
000150: 20 6B 65 79 70 72 65 73 73 65 64 3B 20 20 20 20 keypressed;
000160: 20 20 20 20 20 20 20 20 20 20 20 7B 61 74 74 65 {atte
000170: 6E 64 20 6A 75 73 71 75 27 61 20 63 65 20 71 75 nd jusqu'a ce qu
000180: 65 20 75 6E 65 20 74 6F 75 63 68 65 20 73 6F 69 e une touche soi
000190: 74 20 66 72 61 70 70 65 65 7D 0D 0A 0D 0A 4C 65 t frappee}....Le
0001A0: 61 76 65 47 72 61 70 68 69 63 3B 20 20 20 20 20 aveGraphic;
0001B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001C0: 20 20 20 20 20 7B 71 75 69 74 74 65 20 6C 65 20 {quitte le
0001D0: 73 79 73 74 65 6D 65 20 67 72 61 70 68 69 71 75 systeme graphiqu
0001E0: 65 7D 0D 0A 0D 0A 65 6E 64 2E 0D 0A 1A 1A 1A 1A e}....end.......
0001F0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
Size : 512 (Real : 512)
000000: 3E 30 20 74 68 65 6E 0D 0A 20 20 62 65 67 69 6E >0 then.. begin
000010: 0D 0A 20 20 20 20 63 28 69 2D 31 29 3B 0D 0A 20 .. c(i-1);..
000020: 20 20 20 78 3A 3D 78 2D 68 3B 0D 0A 20 20 20 20 x:=x-h;..
000030: 79 3A 3D 79 2B 68 3B 0D 0A 20 20 20 20 70 6C 6F y:=y+h;.. plo
000040: 74 3B 0D 0A 20 20 20 20 64 28 69 2D 31 29 3B 0D t;.. d(i-1);.
000050: 0A 20 20 20 20 78 3A 3D 78 2D 32 2A 68 3B 0D 0A . x:=x-2*h;..
000060: 20 20 20 20 70 6C 6F 74 3B 0D 0A 20 20 20 20 62 plot;.. b
000070: 28 69 2D 31 29 3B 0D 0A 20 20 20 20 78 3A 3D 78 (i-1);.. x:=x
000080: 2D 68 3B 0D 0A 20 20 20 20 79 3A 3D 79 2D 68 3B -h;.. y:=y-h;
000090: 0D 0A 20 20 20 20 70 6C 6F 74 3B 0D 0A 20 20 20 .. plot;..
0000A0: 20 63 28 69 2D 31 29 3B 0D 0A 20 20 65 6E 64 3B c(i-1);.. end;
0000B0: 0D 0A 65 6E 64 3B 0D 0A 0D 0A 70 72 6F 63 65 64 ..end;....proced
0000C0: 75 72 65 20 64 3B 0D 0A 62 65 67 69 6E 0D 0A 20 ure d;..begin..
0000D0: 20 69 66 20 69 3E 30 20 74 68 65 6E 0D 0A 20 20 if i>0 then..
0000E0: 62 65 67 69 6E 0D 0A 20 20 20 20 64 28 69 2D 31 begin.. d(i-1
0000F0: 29 3B 0D 0A 20 20 20 20 78 3A 3D 78 2B 68 3B 0D );.. x:=x+h;.
000100: 0A 20 20 20 20 79 3A 3D 79 2B 68 3B 0D 0A 20 20 . y:=y+h;..
000110: 20 20 70 6C 6F 74 3B 0D 0A 20 20 20 20 61 28 69 plot;.. a(i
000120: 2D 31 29 3B 0D 0A 20 20 20 20 79 3A 3D 79 2B 32 -1);.. y:=y+2
000130: 2A 68 3B 0D 0A 20 20 20 20 70 6C 6F 74 3B 0D 0A *h;.. plot;..
000140: 20 20 20 20 63 28 69 2D 31 29 3B 0D 0A 20 20 20 c(i-1);..
000150: 20 78 3A 3D 78 2D 68 3B 0D 0A 20 20 20 20 79 3A x:=x-h;.. y:
000160: 3D 79 2B 68 3B 0D 0A 20 20 20 20 70 6C 6F 74 3B =y+h;.. plot;
000170: 0D 0A 20 20 20 20 64 28 69 2D 31 29 3B 0D 0A 20 .. d(i-1);..
000180: 20 65 6E 64 3B 0D 0A 65 6E 64 3B 0D 0A 0D 0A 7B end;..end;....{
000190: 24 41 2B 7D 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 $A+}....procedur
0001A0: 65 20 44 6F 49 74 3B 0D 0A 62 65 67 69 6E 0D 0A e DoIt;..begin..
0001B0: 20 20 69 3A 3D 33 3B 0D 0A 20 20 68 3A 3D 31 36 i:=3;.. h:=16
0001C0: 3B 0D 0A 20 20 78 30 3A 3D 33 30 3B 0D 0A 20 20 ;.. x0:=30;..
0001D0: 79 30 3A 3D 32 34 30 3B 0D 0A 20 20 72 65 70 65 y0:=240;.. repe
0001E0: 61 74 0D 0A 20 20 20 20 69 3A 3D 69 2B 31 3B 0D at.. i:=i+1;.
0001F0: 0A 20 20 20 20 78 30 3A 3D 78 30 2D 68 3B 0D 0A . x0:=x0-h;..
Size : 512 (Real : 512)
000000: 70 72 6F 67 72 61 6D 20 44 72 61 77 43 69 72 63 program DrawCirc
000010: 3B 0D 0A 0D 0A 7B 24 49 20 74 79 70 65 64 65 66 ;....{$I typedef
000020: 2E 73 79 73 7D 20 20 20 20 20 20 20 20 20 20 20 .sys}
000030: 20 20 20 20 20 20 20 7B 69 6E 63 6C 75 73 20 6C {inclus l
000040: 65 73 20 63 6F 64 65 73 20 67 72 61 70 68 69 71 es codes graphiq
000050: 75 65 73 7D 0D 0A 7B 24 49 20 67 72 61 70 68 69 ues}..{$I graphi
000060: 78 2E 73 79 73 7D 0D 0A 7B 24 49 20 6B 65 72 6E x.sys}..{$I kern
000070: 65 6C 2E 73 79 73 7D 0D 0A 7B 24 49 20 6B 65 72 el.sys}..{$I ker
000080: 6E 65 6C 31 2E 73 79 73 7D 0D 0A 0D 0A 76 61 72 nel1.sys}....var
000090: 20 69 3A 69 6E 74 65 67 65 72 3B 0D 0A 20 20 41 i:integer;.. A
0000A0: 73 70 65 63 74 4C 6F 63 2C 72 61 64 3A 72 65 61 spectLoc,rad:rea
0000B0: 6C 3B 0D 0A 0D 0A 62 65 67 69 6E 0D 0A 20 20 49 l;....begin.. I
0000C0: 6E 69 74 47 72 61 70 68 69 63 3B 20 20 20 20 20 nitGraphic;
0000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7B {
0000E0: 69 6E 69 74 69 61 6C 69 73 65 20 6C 65 20 73 79 initialise le sy
0000F0: 73 74 65 6D 65 20 65 74 20 6C 27 27 65 63 72 61 steme et l''ecra
000100: 6E 7D 0D 0A 0D 0A 20 20 44 65 66 69 6E 65 57 6F n}.... DefineWo
000110: 72 6C 64 28 31 2C 30 2C 31 30 30 30 2C 31 30 30 rld(1,0,1000,100
000120: 30 2C 30 29 3B 20 20 20 7B 64 65 66 69 6E 69 74 0,0); {definit
000130: 20 75 6E 20 6D 6F 6E 64 65 20 61 20 64 65 73 73 un monde a dess
000140: 69 6E 65 72 7D 0D 0A 20 20 53 65 6C 65 63 74 57 iner}.. SelectW
000150: 6F 72 6C 64 28 31 29 3B 20 20 20 20 20 20 20 20 orld(1);
000160: 20 20 20 20 20 20 20 20 20 7B 53 6F 6E 20 63 68 {Son ch
000170: 6F 69 78 7D 0D 0A 20 20 53 65 6C 65 63 74 57 69 oix}.. SelectWi
000180: 6E 64 6F 77 28 31 29 3B 0D 0A 20 20 44 72 61 77 ndow(1);.. Draw
000190: 42 6F 72 64 65 72 3B 0D 0A 0D 0A 20 20 72 61 64 Border;.... rad
0001A0: 3A 3D 31 2E 35 3B 20 20 20 20 20 20 20 20 20 20 :=1.5;
0001B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 7B 20 69 { i
0001C0: 6E 69 74 69 61 6C 69 73 65 20 6C 65 20 72 61 64 nitialise le rad
0001D0: 69 61 6E 7D 0D 0A 20 20 41 73 70 65 63 74 4C 6F ian}.. AspectLo
0001E0: 63 3A 3D 47 65 74 41 73 70 65 63 74 3B 20 20 20 c:=GetAspect;
0001F0: 20 20 20 20 20 20 20 20 7B 73 61 75 76 65 20 70 {sauve p
Size : 512 (Real : 512)
000000: 20 20 20 20 68 3A 3D 68 20 64 69 76 20 32 3B 0D h:=h div 2;.
000010: 0A 20 20 20 20 79 30 3A 3D 79 30 2B 68 3B 0D 0A . y0:=y0+h;..
000020: 20 20 20 20 78 3A 3D 78 30 3B 0D 0A 20 20 20 20 x:=x0;..
000030: 79 3A 3D 79 30 3B 0D 0A 20 20 20 20 61 28 69 2D y:=y0;.. a(i-
000040: 31 29 3B 0D 0A 20 20 20 20 78 3A 3D 78 2B 68 3B 1);.. x:=x+h;
000050: 0D 0A 20 20 20 20 79 3A 3D 79 2D 68 3B 0D 0A 20 .. y:=y-h;..
000060: 20 20 20 70 6C 6F 74 3B 0D 0A 20 20 20 20 62 28 plot;.. b(
000070: 69 2D 31 29 3B 0D 0A 20 20 20 20 78 3A 3D 78 2D i-1);.. x:=x-
000080: 68 3B 0D 0A 20 20 20 20 79 3A 3D 79 2D 68 3B 0D h;.. y:=y-h;.
000090: 0A 20 20 20 20 70 6C 6F 74 3B 0D 0A 20 20 20 20 . plot;..
0000A0: 63 28 69 2D 31 29 3B 0D 0A 20 20 20 20 78 3A 3D c(i-1);.. x:=
0000B0: 78 2D 68 3B 0D 0A 20 20 20 20 79 3A 3D 79 2B 68 x-h;.. y:=y+h
0000C0: 3B 0D 0A 20 20 20 20 70 6C 6F 74 3B 0D 0A 20 20 ;.. plot;..
0000D0: 20 20 64 28 69 2D 31 29 3B 0D 0A 20 20 20 20 78 d(i-1);.. x
0000E0: 3A 3D 78 2B 68 3B 0D 0A 20 20 20 20 79 3A 3D 79 :=x+h;.. y:=y
0000F0: 2B 68 3B 0D 0A 20 20 20 20 70 6C 6F 74 3B 0D 0A +h;.. plot;..
000100: 20 20 75 6E 74 69 6C 20 69 3D 6E 3B 0D 0A 65 6E until i=n;..en
000110: 64 3B 0D 0A 0D 0A 62 65 67 69 6E 0D 0A 20 20 53 d;....begin.. S
000120: 65 74 48 65 61 64 65 72 4F 6E 3B 0D 0A 20 20 44 etHeaderOn;.. D
000130: 65 66 69 6E 65 57 6F 72 6C 64 28 31 2C 2D 33 2C efineWorld(1,-3,
000140: 35 31 34 2C 35 31 34 2C 2D 33 29 3B 0D 0A 20 20 514,514,-3);..
000150: 53 65 6C 65 63 74 57 6F 72 6C 64 28 31 29 3B 0D SelectWorld(1);.
000160: 0A 20 20 44 65 66 69 6E 65 57 69 6E 64 6F 77 49 . DefineWindowI
000170: 42 4D 28 32 2C 30 2C 30 2C 33 39 2C 39 39 29 3B BM(2,0,0,39,99);
000180: 0D 0A 20 20 53 65 6C 65 63 74 57 69 6E 64 6F 77 .. SelectWindow
000190: 28 32 29 3B 0D 0A 20 20 49 6E 76 65 72 74 57 69 (2);.. InvertWi
0001A0: 6E 64 6F 77 3B 0D 0A 20 20 44 65 66 69 6E 65 57 ndow;.. DefineW
0001B0: 69 6E 64 6F 77 49 42 4D 28 32 2C 34 30 2C 31 30 indowIBM(2,40,10
0001C0: 30 2C 37 39 2C 31 39 30 29 3B 0D 0A 20 20 53 65 0,79,190);.. Se
0001D0: 6C 65 63 74 57 69 6E 64 6F 77 28 32 29 3B 0D 0A lectWindow(2);..
0001E0: 20 20 49 6E 76 65 72 74 57 69 6E 64 6F 77 3B 0D InvertWindow;.
0001F0: 0A 20 20 44 65 66 69 6E 65 57 69 6E 64 6F 77 49 . DefineWindowI
Size : 512 (Real : 512)
000000: 61 72 20 64 65 66 61 75 74 20 6C 65 20 72 61 74 ar defaut le rat
000010: 69 6F 7D 0D 0A 20 20 53 65 74 41 73 70 65 63 74 io}.. SetAspect
000020: 28 30 2E 32 29 3B 20 20 20 20 20 20 20 20 20 20 (0.2);
000030: 20 20 20 20 20 20 20 7B 6C 27 27 69 6E 69 74 69 {l''initi
000040: 61 6C 69 73 65 20 70 6F 75 72 20 63 65 74 74 65 alise pour cette
000050: 20 72 6F 75 74 69 6E 65 7D 0D 0A 0D 0A 20 20 66 routine}.... f
000060: 6F 72 20 69 3A 3D 31 20 74 6F 20 31 35 20 64 6F or i:=1 to 15 do
000070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7B {
000080: 74 72 61 63 65 20 64 65 20 63 65 72 63 6C 65 73 trace de cercles
000090: 7D 0D 0A 20 20 62 65 67 69 6E 0D 0A 20 20 20 20 }.. begin..
0000A0: 44 72 61 77 43 69 72 63 6C 65 28 35 30 30 2C 35 DrawCircle(500,5
0000B0: 30 30 2C 72 61 64 29 3B 0D 0A 20 20 20 20 53 65 00,rad);.. Se
0000C0: 74 41 73 70 65 63 74 28 30 2E 32 2B 69 2F 31 30 tAspect(0.2+i/10
0000D0: 29 3B 0D 0A 20 20 20 20 72 61 64 3A 3D 72 61 64 );.. rad:=rad
0000E0: 2D 30 2E 30 35 3B 0D 0A 20 20 65 6E 64 3B 0D 0A -0.05;.. end;..
0000F0: 0D 0A 20 20 53 65 74 41 73 70 65 63 74 28 41 73 .. SetAspect(As
000100: 70 65 63 74 4C 6F 63 29 3B 20 20 20 20 20 20 20 pectLoc);
000110: 20 20 20 20 7B 72 65 73 74 61 75 72 65 20 6C 65 {restaure le
000120: 20 72 61 74 69 6F 20 61 6E 74 65 72 69 65 75 72 ratio anterieur
000130: 7D 0D 0A 0D 0A 20 20 72 65 70 65 61 74 20 75 6E }.... repeat un
000140: 74 69 6C 20 6B 65 79 70 72 65 73 73 65 64 3B 20 til keypressed;
000150: 20 20 20 20 20 20 20 7B 61 74 74 65 6E 64 20 6A {attend j
000160: 75 73 71 75 27 27 61 20 75 6E 65 20 74 6F 75 63 usqu''a une touc
000170: 68 65 20 73 6F 69 74 20 66 72 61 70 70 65 65 7D he soit frappee}
000180: 0D 0A 20 20 4C 65 61 76 65 47 72 61 70 68 69 63 .. LeaveGraphic
000190: 3B 0D 0A 65 6E 64 2E 0D 0A 1A 1A 1A 1A 1A 1A 1A ;..end..........
0001A0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0001B0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0001C0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0001D0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0001E0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0001F0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
Size : 512 (Real : 512)
000000: 42 4D 28 31 2C 30 2C 30 2C 37 39 2C 31 39 30 29 BM(1,0,0,79,190)
000010: 3B 0D 0A 20 20 44 65 66 69 6E 65 48 65 61 64 65 ;.. DefineHeade
000020: 72 28 31 2C 27 55 6E 65 20 63 6F 75 72 62 65 20 r(1,'Une courbe
000030: 64 65 20 53 69 65 72 70 69 6E 73 6B 69 27 29 3B de Sierpinski');
000040: 0D 0A 20 20 53 65 6C 65 63 74 57 69 6E 64 6F 77 .. SelectWindow
000050: 28 31 29 3B 0D 0A 20 20 44 72 61 77 42 6F 72 64 (1);.. DrawBord
000060: 65 72 3B 0D 0A 20 20 67 6F 74 6F 78 79 28 31 2C er;.. gotoxy(1,
000070: 32 35 29 3B 0D 0A 20 20 77 72 69 74 65 28 27 4C 25);.. write('L
000080: 27 27 65 63 72 61 6E 20 63 6F 6D 70 6C 65 74 20 ''ecran complet
000090: 65 73 74 20 6C 61 20 66 65 6E 65 74 72 65 20 61 est la fenetre a
0000A0: 63 74 75 65 6C 6C 65 2E 27 29 3B 0D 0A 20 20 73 ctuelle.');.. s
0000B0: 65 63 3A 3D 66 61 6C 73 65 3B 0D 0A 20 20 44 6F ec:=false;.. Do
0000C0: 49 74 3B 0D 0A 20 20 67 6F 74 6F 78 79 28 35 37 It;.. gotoxy(57
0000D0: 2C 32 35 29 3B 0D 0A 20 20 77 61 69 74 72 65 74 ,25);.. waitret
0000E0: 75 72 6E 28 31 35 30 30 30 29 3B 0D 0A 0D 0A 20 urn(15000);....
0000F0: 20 44 65 66 69 6E 65 57 69 6E 64 6F 77 49 42 4D DefineWindowIBM
000100: 28 31 2C 32 30 2C 34 30 2C 35 39 2C 31 35 39 29 (1,20,40,59,159)
000110: 3B 0D 0A 20 20 52 65 6D 6F 76 65 48 65 61 64 65 ;.. RemoveHeade
000120: 72 28 31 29 3B 0D 0A 20 20 53 65 6C 65 63 74 57 r(1);.. SelectW
000130: 69 6E 64 6F 77 28 31 29 3B 0D 0A 20 20 53 65 74 indow(1);.. Set
000140: 42 61 63 6B 67 72 6F 75 6E 64 28 30 29 3B 0D 0A Background(0);..
000150: 20 20 44 72 61 77 42 6F 72 64 65 72 3B 0D 0A 20 DrawBorder;..
000160: 20 44 65 66 69 6E 65 57 69 6E 64 6F 77 49 42 4D DefineWindowIBM
000170: 28 32 2C 34 30 2C 34 30 2C 35 39 2C 39 39 29 3B (2,40,40,59,99);
000180: 0D 0A 20 20 53 65 6C 65 63 74 57 69 6E 64 6F 77 .. SelectWindow
000190: 28 32 29 3B 0D 0A 20 20 49 6E 76 65 72 74 57 69 (2);.. InvertWi
0001A0: 6E 64 6F 77 3B 0D 0A 20 20 44 65 66 69 6E 65 57 ndow;.. DefineW
0001B0: 69 6E 64 6F 77 49 42 4D 28 32 2C 32 30 2C 31 30 indowIBM(2,20,10
0001C0: 30 2C 33 39 2C 31 35 39 29 3B 0D 0A 20 20 53 65 0,39,159);.. Se
0001D0: 6C 65 63 74 57 69 6E 64 6F 77 28 32 29 3B 0D 0A lectWindow(2);..
0001E0: 20 20 49 6E 76 65 72 74 57 69 6E 64 6F 77 3B 0D InvertWindow;.
0001F0: 0A 20 20 53 65 6C 65 63 74 57 69 6E 64 6F 77 28 . SelectWindow(
Size : 512 (Real : 512)
000000: 7B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D {---------------
000010: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000020: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000030: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000040: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 7D 0D 0A -------------}..
000050: 0D 0A 6F 76 65 72 6C 61 79 20 70 72 6F 63 65 64 ..overlay proced
000060: 75 72 65 20 73 69 65 72 3B 0D 0A 63 6F 6E 73 74 ure sier;..const
000070: 20 6E 3D 34 3B 0D 0A 76 61 72 20 69 2C 68 2C 78 n=4;..var i,h,x
000080: 2C 79 2C 78 30 2C 79 30 3A 69 6E 74 65 67 65 72 ,y,x0,y0:integer
000090: 3B 0D 0A 20 20 20 20 73 65 63 3A 62 6F 6F 6C 65 ;.. sec:boole
0000A0: 61 6E 3B 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 65 an;....procedure
0000B0: 20 70 6C 6F 74 3B 0D 0A 62 65 67 69 6E 0D 0A 20 plot;..begin..
0000C0: 20 69 66 20 73 65 63 20 74 68 65 6E 20 53 65 74 if sec then Set
0000D0: 43 6F 6C 6F 72 57 68 69 74 65 20 65 6C 73 65 20 ColorWhite else
0000E0: 53 65 74 43 6F 6C 6F 72 42 6C 61 63 6B 3B 0D 0A SetColorBlack;..
0000F0: 20 20 44 72 61 77 4C 69 6E 65 28 78 2C 79 2C 78 DrawLine(x,y,x
000100: 30 2C 79 30 29 3B 0D 0A 20 20 44 72 61 77 4C 69 0,y0);.. DrawLi
000110: 6E 65 28 78 2B 32 35 36 2C 79 2B 32 35 36 2C 78 ne(x+256,y+256,x
000120: 30 2B 32 35 36 2C 79 30 2B 32 35 36 29 3B 0D 0A 0+256,y0+256);..
000130: 20 20 69 66 20 73 65 63 20 74 68 65 6E 20 53 65 if sec then Se
000140: 74 43 6F 6C 6F 72 42 6C 61 63 6B 20 65 6C 73 65 tColorBlack else
000150: 20 53 65 74 43 6F 6C 6F 72 57 68 69 74 65 3B 0D SetColorWhite;.
000160: 0A 20 20 44 72 61 77 4C 69 6E 65 28 78 2B 32 35 . DrawLine(x+25
000170: 36 2C 79 2C 78 30 2B 32 35 36 2C 79 30 29 3B 0D 6,y,x0+256,y0);.
000180: 0A 20 20 44 72 61 77 4C 69 6E 65 28 78 2C 79 2B . DrawLine(x,y+
000190: 32 35 36 2C 78 30 2C 79 30 2B 32 35 36 29 3B 0D 256,x0,y0+256);.
0001A0: 0A 20 20 78 30 3A 3D 78 3B 0D 0A 20 20 79 30 3A . x0:=x;.. y0:
0001B0: 3D 79 3B 0D 0A 65 6E 64 3B 0D 0A 0D 0A 7B 24 41 =y;..end;....{$A
0001C0: 2D 7D 0D 0A 70 72 6F 63 65 64 75 72 65 20 62 28 -}..procedure b(
0001D0: 69 3A 69 6E 74 65 67 65 72 29 3B 20 66 6F 72 77 i:integer); forw
0001E0: 61 72 64 3B 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 ard;....procedur
0001F0: 65 20 63 28 69 3A 69 6E 74 65 67 65 72 29 3B 20 e c(i:integer);
Size : 512 (Real : 512)
000000: 31 29 3B 0D 0A 20 20 43 6C 65 61 72 45 6F 6C 28 1);.. ClearEol(
000010: 32 35 29 3B 0D 0A 20 20 67 6F 74 6F 78 79 28 31 25);.. gotoxy(1
000020: 2C 32 35 29 3B 0D 0A 20 20 77 72 69 74 65 28 27 ,25);.. write('
000030: 20 4C 65 73 20 6D 65 6D 65 73 20 64 65 73 73 69 Les memes dessi
000040: 6E 73 20 64 61 6E 73 20 75 6E 65 20 66 65 6E 65 ns dans une fene
000050: 74 72 65 20 70 6C 75 73 20 70 65 74 69 74 65 20 tre plus petite
000060: 27 29 3B 0D 0A 20 20 73 65 63 3A 3D 74 72 75 65 ');.. sec:=true
000070: 3B 0D 0A 20 20 44 6F 49 74 3B 0D 0A 20 20 67 6F ;.. DoIt;.. go
000080: 74 6F 78 79 28 35 37 2C 32 35 29 3B 0D 0A 20 20 toxy(57,25);..
000090: 77 61 69 74 72 65 74 75 72 6E 28 31 35 30 30 30 waitreturn(15000
0000A0: 29 3B 0D 0A 0D 0A 20 20 43 6C 65 61 72 45 6F 6C );.... ClearEol
0000B0: 28 32 35 29 3B 0D 0A 20 20 67 6F 74 6F 78 79 28 (25);.. gotoxy(
0000C0: 31 2C 32 35 29 3B 0D 0A 20 20 77 72 69 74 65 28 1,25);.. write(
0000D0: 27 4C 27 27 65 63 72 61 6E 20 65 73 74 20 73 61 'L''ecran est sa
0000E0: 75 76 65 20 61 76 65 63 20 6C 61 20 70 72 6F 63 uve avec la proc
0000F0: 65 64 75 72 65 20 53 61 76 65 53 63 72 65 65 6E edure SaveScreen
000100: 20 2C 20 2E 2E 2E 27 29 3B 0D 0A 20 20 53 61 76 , ...');.. Sav
000110: 65 53 63 72 65 65 6E 28 27 54 45 53 54 2E 50 49 eScreen('TEST.PI
000120: 43 27 29 3B 0D 0A 20 20 64 65 6C 61 79 28 31 30 C');.. delay(10
000130: 30 30 29 3B 0D 0A 20 20 43 6C 65 61 72 53 63 72 00);.. ClearScr
000140: 65 65 6E 3B 0D 0A 20 20 64 65 6C 61 79 28 31 30 een;.. delay(10
000150: 30 30 29 3B 0D 0A 20 20 4C 6F 61 64 53 63 72 65 00);.. LoadScre
000160: 65 6E 28 27 54 45 53 54 2E 50 49 43 27 29 3B 0D en('TEST.PIC');.
000170: 0A 20 20 43 6C 65 61 72 45 6F 6C 28 32 35 29 3B . ClearEol(25);
000180: 0D 0A 20 20 67 6F 74 6F 78 79 28 31 2C 32 35 29 .. gotoxy(1,25)
000190: 3B 0D 0A 20 20 77 72 69 74 65 28 27 2E 2E 2E 20 ;.. write('...
0001A0: 65 74 20 72 61 6D 65 6E 65 2E 27 29 3B 0D 0A 20 et ramene.');..
0001B0: 20 67 6F 74 6F 78 79 28 35 37 2C 32 35 29 3B 0D gotoxy(57,25);.
0001C0: 0A 20 20 77 61 69 74 72 65 74 75 72 6E 28 31 35 . waitreturn(15
0001D0: 30 30 30 29 3B 0D 0A 20 20 44 65 66 69 6E 65 57 000);.. DefineW
0001E0: 6F 72 6C 64 28 31 2C 30 2C 31 39 39 2C 36 33 39 orld(1,0,199,639
0001F0: 2C 30 29 3B 0D 0A 20 20 53 65 6C 65 63 74 57 6F ,0);.. SelectWo
Size : 512 (Real : 512)
000000: 20 67 6F 74 6F 78 79 28 34 30 2C 38 29 3B 0D 0A gotoxy(40,8);..
000010: 20 20 77 72 69 74 65 28 27 54 6F 74 61 75 78 20 write('Totaux
000020: 65 6E 20 20 70 6F 75 72 63 65 6E 74 61 67 65 27 en pourcentage'
000030: 29 3B 0D 0A 20 20 66 6F 72 20 69 3A 3D 31 20 74 );.. for i:=1 t
000040: 6F 20 6E 20 64 6F 0D 0A 20 20 20 62 65 67 69 6E o n do.. begin
000050: 0D 0A 20 20 20 20 67 6F 74 6F 78 79 28 31 31 2C .. gotoxy(11,
000060: 39 2B 69 29 3B 0D 0A 20 20 20 20 77 72 69 74 65 9+i);.. write
000070: 6C 6E 28 61 5B 69 5D 2E 74 65 78 74 2C 27 20 20 ln(a[i].text,'
000080: 27 2C 61 5B 69 5D 2E 61 72 65 61 3A 33 3A 32 2C ',a[i].area:3:2,
000090: 27 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 '
0000A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 27 2C 61 ',a
0000B0: 5B 69 5D 2E 61 72 65 61 2F 73 75 6D 2A 31 30 30 [i].area/sum*100
0000C0: 3A 33 3A 32 29 3B 0D 0A 20 20 20 65 6E 64 3B 0D :3:2);.. end;.
0000D0: 0A 0D 0A 20 20 6D 73 67 28 27 20 20 44 65 73 73 ... msg(' Dess
0000E0: 69 6E 20 65 6E 20 61 72 72 69 65 72 65 20 70 6C in en arriere pl
0000F0: 61 6E 20 3A 20 20 53 65 6C 65 63 74 53 63 72 65 an : SelectScre
000100: 65 6E 27 29 3B 0D 0A 20 20 63 6F 70 79 73 63 72 en');.. copyscr
000110: 65 65 6E 3B 0D 0A 7B 20 20 53 65 6C 65 63 74 53 een;..{ SelectS
000120: 63 72 65 65 6E 28 32 29 3B 20 7D 0D 0A 20 20 43 creen(2); }.. C
000130: 6C 65 61 72 53 63 72 65 65 6E 3B 0D 0A 20 20 53 learScreen;.. S
000140: 65 6C 65 63 74 57 69 6E 64 6F 77 28 32 29 3B 0D electWindow(2);.
000150: 0A 20 20 53 65 74 42 61 63 6B 67 72 6F 75 6E 64 . SetBackground
000160: 28 30 29 3B 0D 0A 20 20 44 72 61 77 42 6F 72 64 (0);.. DrawBord
000170: 65 72 3B 0D 0A 20 20 61 5B 31 5D 2E 61 72 65 61 er;.. a[1].area
000180: 3A 3D 2D 61 5B 31 5D 2E 61 72 65 61 3B 0D 0A 20 :=-a[1].area;..
000190: 20 78 44 72 61 77 43 61 72 74 50 69 65 28 33 30 xDrawCartPie(30
0001A0: 30 2C 31 30 30 2C 33 39 30 2C 37 33 2C 31 2E 30 0,100,390,73,1.0
0001B0: 35 2C 31 2E 35 2C 61 2C 6E 2C 32 2C 32 29 3B 0D 5,1.5,a,n,2,2);.
0001C0: 0A 20 20 52 65 73 65 74 57 69 6E 64 6F 77 53 74 . ResetWindowSt
0001D0: 61 63 6B 3B 0D 0A 20 20 53 74 6F 72 65 57 69 6E ack;.. StoreWin
0001E0: 64 6F 77 28 32 29 3B 0D 0A 20 20 73 65 6C 65 63 dow(2);.. selec
0001F0: 74 53 63 72 65 65 6E 28 32 29 3B 0D 0A 20 20 63 tScreen(2);.. c
Size : 512 (Real : 512)
000000: 72 6C 64 28 31 29 3B 0D 0A 20 20 53 65 6C 65 63 rld(1);.. Selec
000010: 74 57 69 6E 64 6F 77 28 31 29 3B 0D 0A 20 20 53 tWindow(1);.. S
000020: 65 74 43 6F 6C 6F 72 57 68 69 74 65 3B 0D 0A 65 etColorWhite;..e
000030: 6E 64 3B 0D 0A 0D 0A 1A 1A 1A 1A 1A 1A 1A 1A 1A nd;.............
000040: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000050: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000060: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000070: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000080: 74 6F 78 79 28 35 37 2C 32 35 29 3B 0D 0A 20 20 toxy(57,25);..
000090: 77 61 69 74 72 65 74 75 72 6E 28 31 35 30 30 30 waitreturn(15000
0000A0: 29 3B 0D 0A 0D 0A 20 20 43 6C 65 61 72 45 6F 6C );.... ClearEol
0000B0: 28 32 35 29 3B 0D 0A 20 20 67 6F 74 6F 78 79 28 (25);.. gotoxy(
0000C0: 31 2C 32 35 29 3B 0D 0A 20 20 77 72 69 74 65 28 1,25);.. write(
0000D0: 27 4C 27 27 65 63 72 61 6E 20 65 73 74 20 73 61 'L''ecran est sa
0000E0: 75 76 65 20 61 76 65 63 20 6C 61 20 70 72 6F 63 uve avec la proc
0000F0: 65 64 75 72 65 20 53 61 76 65 53 63 72 65 65 6E edure SaveScreen
000100: 20 2C 20 2E 2E 2E 27 29 3B 0D 0A 20 20 53 61 76 , ...');.. Sav
000110: 65 53 63 72 65 65 6E 28 27 54 45 53 54 2E 50 49 eScreen('TEST.PI
000120: 43 27 29 3B 0D 0A 20 20 64 65 6C 61 79 28 31 30 C');.. delay(10
000130: 30 30 29 3B 0D 0A 20 20 43 6C 65 61 72 53 63 72 00);.. ClearScr
000140: 65 65 6E 3B 0D 0A 20 20 64 65 6C 61 79 28 31 30 een;.. delay(10
000150: 30 30 29 3B 0D 0A 20 20 4C 6F 61 64 53 63 72 65 00);.. LoadScre
000160: 65 6E 28 27 54 45 53 54 2E 50 49 43 27 29 3B 0D en('TEST.PIC');.
000170: 0A 20 20 43 6C 65 61 72 45 6F 6C 28 32 35 29 3B . ClearEol(25);
000180: 0D 0A 20 20 67 6F 74 6F 78 79 28 31 2C 32 35 29 .. gotoxy(1,25)
000190: 3B 0D 0A 20 20 77 72 69 74 65 28 27 2E 2E 2E 20 ;.. write('...
0001A0: 65 74 20 72 61 6D 65 6E 65 2E 27 29 3B 0D 0A 20 et ramene.');..
0001B0: 20 67 6F 74 6F 78 79 28 35 37 2C 32 35 29 3B 0D gotoxy(57,25);.
0001C0: 0A 20 20 77 61 69 74 72 65 74 75 72 6E 28 31 35 . waitreturn(15
0001D0: 30 30 30 29 3B 0D 0A 20 20 44 65 66 69 6E 65 57 000);.. DefineW
0001E0: 6F 72 6C 64 28 31 2C 30 2C 31 39 39 2C 36 33 39 orld(1,0,199,639
0001F0: 2C 30 29 3B 0D 0A 20 20 53 65 6C 65 63 74 57 6F ,0);.. SelectWo
Size : 512 (Real : 512)
000000: 6F 70 79 73 63 72 65 65 6E 3B 0D 0A 20 20 53 65 opyscreen;.. Se
000010: 6C 65 63 74 53 63 72 65 65 6E 28 31 29 3B 0D 0A lectScreen(1);..
000020: 20 20 52 65 73 74 6F 72 65 57 69 6E 64 6F 77 28 RestoreWindow(
000030: 32 2C 30 2C 30 29 3B 0D 0A 0D 0A 20 20 64 65 6C 2,0,0);.... del
000040: 61 79 28 31 35 30 30 30 29 3B 0D 0A 0D 0A 20 20 ay(15000);....
000050: 43 6F 70 79 53 63 72 65 65 6E 3B 0D 0A 20 20 6D CopyScreen;.. m
000060: 73 67 28 27 4C 65 73 20 76 61 72 69 61 74 69 6F sg('Les variatio
000070: 6E 73 20 64 27 27 75 6E 20 68 69 73 74 6F 67 72 ns d''un histogr
000080: 61 6D 6D 65 20 20 3A 20 20 44 72 61 77 43 61 72 amme : DrawCar
000090: 74 50 69 65 27 29 3B 0D 0A 20 20 53 65 74 43 6F tPie');.. SetCo
0000A0: 6C 6F 72 42 6C 61 63 6B 3B 0D 0A 20 20 53 65 6C lorBlack;.. Sel
0000B0: 65 63 74 57 69 6E 64 6F 77 28 33 29 3B 0D 0A 20 ectWindow(3);..
0000C0: 20 53 65 74 42 61 63 6B 67 72 6F 75 6E 64 28 32 SetBackground(2
0000D0: 35 35 29 3B 0D 0A 20 20 44 72 61 77 42 6F 72 64 55);.. DrawBord
0000E0: 65 72 3B 0D 0A 20 20 61 5B 34 5D 2E 61 72 65 61 er;.. a[4].area
0000F0: 3A 3D 2D 61 5B 34 5D 2E 61 72 65 61 3B 0D 0A 20 :=-a[4].area;..
000100: 20 78 44 72 61 77 43 61 72 74 50 69 65 28 33 32 xDrawCartPie(32
000110: 30 2C 31 30 30 2C 34 33 37 2C 37 33 2C 31 2E 30 0,100,437,73,1.0
000120: 35 2C 31 2E 36 2C 61 2C 6E 2C 31 2C 31 29 3B 0D 5,1.6,a,n,1,1);.
000130: 0A 20 20 61 5B 34 5D 2E 61 72 65 61 3A 3D 2D 61 . a[4].area:=-a
000140: 5B 34 5D 2E 61 72 65 61 3B 0D 0A 20 20 4D 6F 76 [4].area;.. Mov
000150: 65 56 65 72 49 42 4D 28 2D 33 32 2C 74 72 75 65 eVerIBM(-32,true
000160: 29 3B 0D 0A 20 20 4D 6F 76 65 48 6F 72 49 42 4D );.. MoveHorIBM
000170: 28 2D 32 36 2C 74 72 75 65 29 3B 0D 0A 20 20 43 (-26,true);.. C
000180: 6F 70 79 53 63 72 65 65 6E 3B 0D 0A 20 20 64 65 opyScreen;.. de
000190: 6C 61 79 28 31 30 30 30 29 3B 0D 0A 0D 0A 20 20 lay(1000);....
0001A0: 53 65 6C 65 63 74 57 69 6E 64 6F 77 28 34 29 3B SelectWindow(4);
0001B0: 0D 0A 20 20 53 65 74 42 61 63 6B 67 72 6F 75 6E .. SetBackgroun
0001C0: 64 28 32 35 35 29 3B 0D 0A 20 20 44 72 61 77 42 d(255);.. DrawB
0001D0: 6F 72 64 65 72 3B 0D 0A 20 20 78 44 72 61 77 43 order;.. xDrawC
0001E0: 61 72 74 50 69 65 28 33 32 30 2C 31 30 30 2C 34 artPie(320,100,4
0001F0: 33 37 2C 37 33 2C 30 2E 37 35 2C 31 2E 35 2C 61 37,73,0.75,1.5,a
Size : 512 (Real : 512)
000000: FE 21 F9 25 CD 4C 0A D2 FA 02 11 81 1F B7 CA 1E .!.%.L..........
000010: 03 7E 12 FE 24 CA DE 02 23 13 05 C2 11 03 3E 24 .~..$...#.....>$
000020: 12 C3 DE 02 21 1D 21 7E B7 3E 10 CC 9B 0C CA 39 ....!.!~.>.....9
000030: 03 3E 11 CD 9B 0C CD 82 0A 3E 07 CD 86 0C D8 3E .>.......>.....>
000040: 12 CD 9B 0C 3E FF CD 4C 0A D2 3F 03 C3 24 03 21 ....>..L..?..$.!
000050: 1E 22 7E B7 3E 13 CC 9B 0C CA 7E 03 3E 14 CD 9B ."~.>.....~.>...
000060: 0C 46 23 56 23 4E 23 3E 15 CD 9B 0C E5 21 E7 22 .F#V#N#>.....!."
000070: CD C3 03 21 B0 23 CD C3 03 E1 05 C2 63 03 3E 07 ...!.#......c.>.
000080: CD 86 0C D8 3E 18 CD 9B 0C 3E 19 CD 9B 0C CD 3A ....>....>.....:
000090: 0B CD 0D 0B CA 4F 03 CD 1B 0B 21 B4 03 CD DB 1E .....O....!.....
0000A0: D2 AC 03 CD ED 01 D2 89 03 C3 4F 03 3E 52 CD 9B ..........O.>R..
0000B0: 0C C3 84 03 05 00 00 41 D4 03 44 0E 04 43 53 04 .......A..D..CS.
0000C0: 46 95 04 C5 CD 5F 04 C1 3E 17 D2 9B 0C 2B 56 3E F...._..>....+V>
0000D0: 16 C3 9B 0C CD 1D 04 21 1E 22 DC EB 03 21 E7 22 .......!."...!."
0000E0: DC EB 03 21 B0 23 DC EB 03 B7 C9 CD 05 0B DC 81 ...!.#..........
0000F0: 04 D0 F5 7E 87 3C FE C7 D2 07 04 34 85 6F 8C 95 ...~.<.....4.o..
000100: 67 F1 77 23 71 37 C9 3E 55 CD 9B 0C B7 C9 21 1E g.w#q7.>U.....!.
000110: 22 7E B7 3E 54 CA 9B 0C CD 1D 04 B7 C9 CD 6F 04 "~.>T.........o.
000120: D0 4F 21 1E 22 CD 31 04 21 E7 22 CD 31 04 21 B0 .O!.".1.!.".1.!.
000130: 23 E5 C5 CD 5F 04 DA 3D 04 C1 E1 37 C9 D5 54 5D #..._..=...7..T]
000140: 13 2B 78 87 47 1A 77 23 13 05 C2 45 04 D1 C1 E1 .+x.G.w#...E....
000150: 35 37 C9 AF 32 1E 22 32 E7 22 32 B0 23 B7 C9 7E 57..2."2."2.#..~
000160: B7 C8 47 23 23 79 BE 37 C8 05 C2 63 04 B7 C9 CD ..G##y.7...c....
000170: 0D 0B C8 21 50 00 CD 54 0B 7D D8 C0 3E 56 C3 9B ...!P..T.}..>V..
000180: 0C CD 0D 0B C8 E5 21 00 01 CD 54 0B 7D E1 D8 C0 ......!...T.}...
000190: 3E 57 C3 9B 0C 37 C9 21 79 24 7E B7 3E 1A CC 9B >W...7.!y$~.>...
0001A0: 0C CA BE 04 3E 1B CD 9B 0C 46 23 4E 23 3E 1C CD ....>....F#N#>..
0001B0: 9B 0C CD 82 0A 5E 16 00 13 19 05 C2 AB 04 3E 07 .....^........>.
0001C0: CD 86 0C D8 3E 1D CD 9B 0C 3E 19 CD 9B 0C 21 F9 ....>....>....!.
0001D0: 25 3E FF CD 4C 0A EB CD 0D 0B CA 97 04 CD 1B 0B %>..L...........
0001E0: 21 FA 04 CD DB 1E D2 F2 04 CD ED 01 D2 C9 04 C3 !...............
0001F0: 97 04 3E 52 CD 9B 0C C3 C4 04 05 00 00 41 09 05 ..>R.........A..
Size : 512 (Real : 512)
000000: 2C 6E 2C 31 2C 31 29 3B 0D 0A 20 20 4D 6F 76 65 ,n,1,1);.. Move
000010: 56 65 72 49 42 4D 28 2D 34 34 2C 74 72 75 65 29 VerIBM(-44,true)
000020: 3B 0D 0A 20 20 4D 6F 76 65 48 6F 72 49 42 4D 28 ;.. MoveHorIBM(
000030: 31 39 2C 74 72 75 65 29 3B 0D 0A 20 20 64 65 6C 19,true);.. del
000040: 61 79 28 31 30 30 30 29 3B 0D 0A 20 20 43 6F 70 ay(1000);.. Cop
000050: 79 53 63 72 65 65 6E 3B 0D 0A 0D 0A 20 20 53 65 yScreen;.... Se
000060: 6C 65 63 74 57 69 6E 64 6F 77 28 35 29 3B 0D 0A lectWindow(5);..
000070: 20 20 53 65 74 42 61 63 6B 67 72 6F 75 6E 64 28 SetBackground(
000080: 32 35 35 29 3B 0D 0A 20 20 44 72 61 77 42 6F 72 255);.. DrawBor
000090: 64 65 72 3B 0D 0A 20 20 78 44 72 61 77 43 61 72 der;.. xDrawCar
0000A0: 74 50 69 65 28 33 32 30 2C 31 30 30 2C 34 33 37 tPie(320,100,437
0000B0: 2C 31 30 30 2C 30 2E 37 2C 31 2E 34 2C 61 2C 6E ,100,0.7,1.4,a,n
0000C0: 2C 32 2C 31 29 3B 0D 0A 20 20 4D 6F 76 65 56 65 ,2,1);.. MoveVe
0000D0: 72 49 42 4D 28 33 30 2C 74 72 75 65 29 3B 0D 0A rIBM(30,true);..
0000E0: 20 20 4D 6F 76 65 48 6F 72 49 42 4D 28 2D 31 38 MoveHorIBM(-18
0000F0: 2C 74 72 75 65 29 3B 0D 0A 20 20 64 65 6C 61 79 ,true);.. delay
000100: 28 31 30 30 30 29 3B 0D 0A 0D 0A 20 20 53 65 6C (1000);.... Sel
000110: 65 63 74 57 69 6E 64 6F 77 28 36 29 3B 0D 0A 20 ectWindow(6);..
000120: 20 53 65 74 42 61 63 6B 67 72 6F 75 6E 64 28 32 SetBackground(2
000130: 35 35 29 3B 0D 0A 20 20 44 72 61 77 42 6F 72 64 55);.. DrawBord
000140: 65 72 3B 0D 0A 20 20 78 44 72 61 77 43 61 72 74 er;.. xDrawCart
000150: 50 69 65 28 33 32 30 2C 31 30 30 2C 34 38 32 2C Pie(320,100,482,
000160: 37 33 2C 31 2C 31 2E 35 2C 61 2C 6E 2C 30 2C 31 73,1,1.5,a,n,0,1
000170: 29 3B 0D 0A 20 20 64 65 6C 61 79 28 31 30 30 30 );.. delay(1000
000180: 29 3B 0D 0A 0D 0A 20 20 64 65 6C 61 79 28 31 35 );.... delay(15
000190: 30 30 30 29 3B 0D 0A 0D 0A 20 20 52 65 73 74 6F 000);.... Resto
0001A0: 72 65 57 69 6E 64 6F 77 28 32 2C 30 2C 30 29 3B reWindow(2,0,0);
0001B0: 0D 0A 0D 0A 20 20 64 65 6C 61 79 28 31 35 30 30 .... delay(1500
0001C0: 30 29 3B 0D 0A 20 20 53 65 74 43 6F 6C 6F 72 57 0);.. SetColorW
0001D0: 68 69 74 65 3B 0D 0A 65 6E 64 3B 0D 0A 0D 0A 1A hite;..end;.....
0001E0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0001F0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
Size : 512 (Real : 512)
000000: 76 61 72 20 73 75 6D 3A 72 65 61 6C 3B 0D 0A 20 var sum:real;..
000010: 20 20 20 69 2C 6A 2C 6E 3A 69 6E 74 65 67 65 72 i,j,n:integer
000020: 3B 0D 0A 20 20 20 20 61 3A 50 69 65 41 72 72 61 ;.. a:PieArra
000030: 79 3B 0D 0A 0D 0A 62 65 67 69 6E 0D 0A 20 20 43 y;....begin.. C
000040: 6C 65 61 72 53 63 72 65 65 6E 3B 0D 0A 20 20 53 learScreen;.. S
000050: 65 74 43 6F 6C 6F 72 57 68 69 74 65 3B 0D 0A 0D etColorWhite;...
000060: 0A 20 20 44 65 66 69 6E 65 57 69 6E 64 6F 77 49 . DefineWindowI
000070: 42 4D 28 31 2C 30 2C 30 2C 37 39 2C 31 38 35 29 BM(1,0,0,79,185)
000080: 3B 0D 0A 20 20 44 65 66 69 6E 65 57 69 6E 64 6F ;.. DefineWindo
000090: 77 49 42 4D 28 32 2C 32 30 2C 32 30 2C 37 37 2C wIBM(2,20,20,77,
0000A0: 31 38 30 29 3B 0D 0A 20 20 44 65 66 69 6E 65 57 180);.. DefineW
0000B0: 69 6E 64 6F 77 49 42 4D 28 33 2C 32 38 2C 36 30 indowIBM(3,28,60
0000C0: 2C 35 39 2C 31 36 30 29 3B 0D 0A 20 20 44 65 66 ,59,160);.. Def
0000D0: 69 6E 65 57 69 6E 64 6F 77 49 42 4D 28 34 2C 32 ineWindowIBM(4,2
0000E0: 38 2C 36 30 2C 35 39 2C 31 35 30 29 3B 0D 0A 20 8,60,59,150);..
0000F0: 20 44 65 66 69 6E 65 57 69 6E 64 6F 77 49 42 4D DefineWindowIBM
000100: 28 35 2C 32 38 2C 36 30 2C 35 39 2C 31 35 30 29 (5,28,60,59,150)
000110: 3B 0D 0A 20 20 44 65 66 69 6E 65 57 69 6E 64 6F ;.. DefineWindo
000120: 77 49 42 4D 28 36 2C 32 38 2C 36 30 2C 35 39 2C wIBM(6,28,60,59,
000130: 31 35 30 29 3B 0D 0A 0D 0A 20 20 44 65 66 69 6E 150);.... Defin
000140: 65 48 65 61 64 65 72 28 31 2C 27 4C 65 73 20 61 eHeader(1,'Les a
000150: 70 70 6C 69 63 61 74 69 6F 6E 73 20 61 76 65 63 pplications avec
000160: 20 63 61 6D 65 6D 62 65 72 74 27 29 3B 0D 0A 20 camembert');..
000170: 20 44 65 66 69 6E 65 48 65 61 64 65 72 28 32 2C DefineHeader(2,
000180: 27 56 6F 6C 75 6D 65 65 20 64 65 73 20 76 65 6E 'Volumee des ven
000190: 74 65 73 27 29 3B 0D 0A 20 20 44 65 66 69 6E 65 tes');.. Define
0001A0: 48 65 61 64 65 72 28 33 2C 27 41 76 65 63 20 74 Header(3,'Avec t
0001B0: 65 78 74 65 27 29 3B 0D 0A 20 20 44 65 66 69 6E exte');.. Defin
0001C0: 65 48 65 61 64 65 72 28 34 2C 27 41 76 65 63 20 eHeader(4,'Avec
0001D0: 74 65 78 74 65 27 29 3B 0D 0A 20 20 44 65 66 69 texte');.. Defi
0001E0: 6E 65 48 65 61 64 65 72 28 35 2C 27 41 76 65 63 neHeader(5,'Avec
0001F0: 20 74 65 78 74 65 20 65 74 20 6E 6F 6D 62 72 65 texte et nombre
Size : 512 (Real : 512)
000000: 61 6C 20 63 6F 6D 6D 61 6E 64 20 62 75 66 66 65 al command buffe
000010: 72 3A 5F 24 1E 2A 2A 20 53 69 67 6E 2D 6F 6E 20 r:_$.** Sign-on
000020: 73 74 72 69 6E 67 20 65 6D 70 74 79 24 1E 53 69 string empty$.Si
000030: 67 6E 2D 6F 6E 20 73 74 72 69 6E 67 3A 5C 5C 24 gn-on string:\\$
000040: 5C 5C 45 6E 74 65 72 20 6E 65 77 20 73 69 67 6E \\Enter new sign
000050: 2D 6F 6E 20 73 74 72 69 6E 67 3A 5F 24 1E 2A 2A -on string:_$.**
000060: 20 50 72 69 6E 74 65 72 20 70 6F 77 65 72 2D 75 Printer power-u
000070: 70 20 73 74 72 69 6E 67 20 65 6D 70 74 79 24 1E p string empty$.
000080: 50 72 69 6E 74 65 72 20 70 6F 77 65 72 2D 75 70 Printer power-up
000090: 20 73 74 72 69 6E 67 3A 5C 5C 24 5C 5C 45 6E 74 string:\\$\\Ent
0000A0: 65 72 20 6E 65 77 20 70 72 69 6E 74 65 72 20 70 er new printer p
0000B0: 6F 77 65 72 2D 75 70 20 73 74 72 69 6E 67 3A 5F ower-up string:_
0000C0: 24 1E 4E 6F 20 6B 65 79 62 6F 61 72 64 20 74 72 $.No keyboard tr
0000D0: 61 6E 73 6C 61 74 69 6F 6E 73 20 73 65 74 24 1E anslations set$.
0000E0: 4B 65 79 62 6F 61 72 64 20 74 72 61 6E 73 6C 61 Keyboard transla
0000F0: 74 69 6F 6E 73 3A 5C 5C 4B 65 79 20 63 6F 64 65 tions:\\Key code
000100: 20 20 20 20 4E 6F 72 6D 61 6C 20 20 20 20 20 20 Normal
000110: 20 53 68 69 66 74 20 20 20 20 20 20 43 6F 6E 74 Shift Cont
000120: 72 6F 6C 5C 24 5C 20 20 F0 20 20 20 20 20 20 20 rol\$\ .
000130: 20 20 F1 20 20 20 20 20 20 20 24 20 20 F1 20 20 . $ .
000140: 20 20 20 20 20 24 20 20 20 20 2D 20 20 20 20 20 $ -
000150: 20 20 24 5C 5C 45 6E 74 65 72 20 72 65 71 75 69 $\\Enter requi
000160: 72 65 64 20 63 6F 6D 6D 61 6E 64 20 66 72 6F 6D red command from
000170: 3A 2D 5C 20 20 20 20 20 20 41 20 2D 20 41 64 64 :-\ A - Add
000180: 20 6B 65 79 20 74 72 61 6E 73 6C 61 74 69 6F 6E key translation
000190: 20 28 6B 65 79 20 6E 75 6D 62 65 72 2C 20 6E 6F (key number, no
0001A0: 72 6D 61 6C 2C 20 73 68 69 66 74 2C 20 63 6F 6E rmal, shift, con
0001B0: 74 72 6F 6C 29 5C 20 20 20 20 20 20 44 20 2D 20 trol)\ D -
0001C0: 44 65 6C 65 74 65 20 6B 65 79 20 74 72 61 6E 73 Delete key trans
0001D0: 6C 61 74 69 6F 6E 20 28 6B 65 79 20 6E 75 6D 62 lation (key numb
0001E0: 65 72 29 5C 20 20 20 20 20 20 43 20 2D 20 43 6C er)\ C - Cl
0001F0: 65 61 72 20 61 6C 6C 20 74 72 61 6E 73 6C 61 74 ear all translat
Size : 512 (Real : 512)
000000: 73 27 29 3B 0D 0A 20 20 44 65 66 69 6E 65 48 65 s');.. DefineHe
000010: 61 64 65 72 28 36 2C 27 53 61 6E 73 20 74 65 78 ader(6,'Sans tex
000020: 74 65 27 29 3B 0D 0A 0D 0A 20 20 61 5B 31 5D 2E te');.... a[1].
000030: 61 72 65 61 3A 3D 32 35 3B 0D 0A 20 20 61 5B 31 area:=25;.. a[1
000040: 5D 2E 74 65 78 74 3A 3D 27 4A 41 4E 2E 20 27 3B ].text:='JAN. ';
000050: 0D 0A 20 20 61 5B 32 5D 2E 61 72 65 61 3A 3D 31 .. a[2].area:=1
000060: 37 2E 35 3B 0D 0A 20 20 61 5B 32 5D 2E 74 65 78 7.5;.. a[2].tex
000070: 74 3A 3D 27 46 45 56 2E 20 27 3B 0D 0A 20 20 61 t:='FEV. ';.. a
000080: 5B 33 5D 2E 61 72 65 61 3A 3D 39 2E 36 3B 0D 0A [3].area:=9.6;..
000090: 20 20 61 5B 33 5D 2E 74 65 78 74 3A 3D 27 4D 41 a[3].text:='MA
0000A0: 52 2E 20 27 3B 0D 0A 20 20 61 5B 34 5D 2E 61 72 R. ';.. a[4].ar
0000B0: 65 61 3A 3D 32 31 3B 0D 0A 20 20 61 5B 34 5D 2E ea:=21;.. a[4].
0000C0: 74 65 78 74 3A 3D 27 41 56 52 2E 20 27 3B 0D 0A text:='AVR. ';..
0000D0: 20 20 61 5B 35 5D 2E 61 72 65 61 3A 3D 33 35 3B a[5].area:=35;
0000E0: 0D 0A 20 20 61 5B 35 5D 2E 74 65 78 74 3A 3D 27 .. a[5].text:='
0000F0: 4D 41 49 20 20 27 3B 0D 0A 0D 0A 20 20 6E 3A 3D MAI ';.... n:=
000100: 35 3B 0D 0A 20 20 73 75 6D 3A 3D 30 3B 0D 0A 20 5;.. sum:=0;..
000110: 20 66 6F 72 20 69 3A 3D 31 20 74 6F 20 6E 20 64 for i:=1 to n d
000120: 6F 0D 0A 20 20 20 20 62 65 67 69 6E 0D 0A 20 20 o.. begin..
000130: 20 20 20 20 61 5B 69 5D 2E 61 72 65 61 3A 3D 61 a[i].area:=a
000140: 5B 69 5D 2E 61 72 65 61 2B 35 2E 33 35 3B 0D 0A [i].area+5.35;..
000150: 20 20 20 20 20 20 73 75 6D 3A 3D 73 75 6D 2B 61 sum:=sum+a
000160: 5B 69 5D 2E 61 72 65 61 3B 0D 0A 20 20 20 20 65 [i].area;.. e
000170: 6E 64 3B 0D 0A 0D 0A 20 20 53 65 6C 65 63 74 57 nd;.... SelectW
000180: 69 6E 64 6F 77 28 31 29 3B 0D 0A 20 20 44 72 61 indow(1);.. Dra
000190: 77 42 6F 72 64 65 72 3B 0D 0A 20 20 67 6F 74 6F wBorder;.. goto
0001A0: 78 79 28 32 34 2C 35 29 3B 0D 0A 20 20 77 72 69 xy(24,5);.. wri
0001B0: 74 65 6C 6E 28 27 56 65 6E 74 65 73 20 20 31 39 teln('Ventes 19
0001C0: 38 35 27 29 3B 0D 0A 20 20 67 6F 74 6F 78 79 28 85');.. gotoxy(
0001D0: 35 2C 38 29 3B 0D 0A 20 20 77 72 69 74 65 28 27 5,8);.. write('
0001E0: 54 6F 74 61 6C 73 20 69 6E 20 24 20 20 28 78 20 Totals in $ (x
0001F0: 31 2C 30 30 30 2C 30 30 30 29 27 29 3B 0D 0A 20 1,000,000)');..
Size : 512 (Real : 512)
000000: 76 61 72 20 78 2C 74 65 6D 70 3A 72 65 61 6C 3B var x,temp:real;
000010: 0D 0A 20 20 20 20 6D 2C 64 78 2C 64 79 2C 69 2C .. m,dx,dy,i,
000020: 6A 2C 6E 2C 6C 69 6E 65 73 2C 73 63 61 6C 65 3A j,n,lines,scale:
000030: 69 6E 74 65 67 65 72 3B 0D 0A 20 20 20 20 58 31 integer;.. X1
000040: 2C 59 31 2C 58 32 2C 59 32 3A 69 6E 74 65 67 65 ,Y1,X2,Y2:intege
000050: 72 3B 0D 0A 20 20 20 20 62 2C 61 3A 50 6C 6F 74 r;.. b,a:Plot
000060: 41 72 72 61 79 3B 0D 0A 62 65 67 69 6E 0D 0A 20 Array;..begin..
000070: 20 43 6C 65 61 72 53 63 72 65 65 6E 3B 0D 0A 20 ClearScreen;..
000080: 20 53 65 74 43 6F 6C 6F 72 57 68 69 74 65 3B 0D SetColorWhite;.
000090: 0A 20 20 67 6F 74 6F 78 79 28 35 30 2C 32 35 29 . gotoxy(50,25)
0000A0: 3B 0D 0A 20 20 77 72 69 74 65 28 27 55 6E 20 6D ;.. write('Un m
0000B0: 6F 6D 65 6E 74 20 20 2E 2E 2E 2E 27 29 3B 0D 0A oment ....');..
0000C0: 20 20 64 78 3A 3D 2D 38 3B 0D 0A 20 20 64 79 3A dx:=-8;.. dy:
0000D0: 3D 37 3B 0D 0A 20 20 58 31 3A 3D 33 3B 0D 0A 20 =7;.. X1:=3;..
0000E0: 20 59 31 3A 3D 35 3B 0D 0A 20 20 58 32 3A 3D 32 Y1:=5;.. X2:=2
0000F0: 35 3B 0D 0A 20 20 59 32 3A 3D 31 30 3B 0D 0A 20 5;.. Y2:=10;..
000100: 20 6C 69 6E 65 73 3A 3D 30 3B 0D 0A 20 20 73 63 lines:=0;.. sc
000110: 61 6C 65 3A 3D 30 3B 0D 0A 20 20 6E 3A 3D 31 32 ale:=0;.. n:=12
000120: 3B 0D 0A 20 20 6D 3A 3D 35 30 3B 0D 0A 20 20 78 ;.. m:=50;.. x
000130: 3A 3D 2D 34 39 3B 0D 0A 0D 0A 20 20 44 65 66 69 :=-49;.... Defi
000140: 6E 65 57 69 6E 64 6F 77 49 42 4D 28 31 2C 30 2C neWindowIBM(1,0,
000150: 30 2C 37 39 2C 31 38 35 29 3B 0D 0A 20 20 44 65 0,79,185);.. De
000160: 66 69 6E 65 57 69 6E 64 6F 77 49 42 4D 28 32 2C fineWindowIBM(2,
000170: 33 30 2C 32 30 2C 37 30 2C 31 36 34 29 3B 0D 0A 30,20,70,164);..
000180: 0D 0A 20 20 44 65 66 69 6E 65 48 65 61 64 65 72 .. DefineHeader
000190: 28 31 2C 49 6E 74 65 72 70 6F 6C 61 74 69 6F 6E (1,Interpolation
0001A0: 20 3A 20 53 70 6C 69 6E 65 27 29 3B 0D 0A 20 20 : Spline');..
0001B0: 44 65 66 69 6E 65 48 65 61 64 65 72 28 32 2C 27 DefineHeader(2,'
0001C0: 55 6E 65 20 76 61 72 69 61 74 69 6F 6E 20 64 27 Une variation d'
0001D0: 27 75 6E 20 64 69 61 67 72 61 6D 6D 65 27 29 3B 'un diagramme');
0001E0: 0D 0A 0D 0A 20 20 78 3A 3D 2D 34 39 3B 0D 0A 20 .... x:=-49;..
0001F0: 20 66 6F 72 20 69 3A 3D 31 20 74 6F 20 6E 20 64 for i:=1 to n d
Size : 512 (Real : 512)
000000: 6E 73 6C 61 74 69 6F 6E 20 74 61 62 6C 65 20 66 nslation table f
000010: 75 6C 6C 5C 24 07 5C 5C 4B 65 79 20 6E 75 6D 62 ull\$.\\Key numb
000020: 65 72 73 20 6D 75 73 74 20 62 65 20 69 6E 20 74 ers must be in t
000030: 68 65 20 72 61 6E 67 65 20 30 20 74 6F 20 37 39 he range 0 to 79
000040: 5C 24 07 5C 5C 4B 65 79 20 63 6F 64 65 73 20 6D \$.\\Key codes m
000050: 75 73 74 20 62 65 20 69 6E 20 74 68 65 20 72 61 ust be in the ra
000060: 6E 67 65 20 30 20 74 6F 20 32 35 35 5C 24 07 5C nge 0 to 255\$.\
000070: 5C 4B 65 79 62 6F 61 72 64 20 65 78 70 61 6E 73 \Keyboard expans
000080: 69 6F 6E 20 62 75 66 66 65 72 20 66 75 6C 6C 5C ion buffer full\
000090: 24 07 5C 5C 4B 65 79 62 6F 61 72 64 20 65 78 70 $.\\Keyboard exp
0000A0: 61 6E 73 69 6F 6E 20 62 75 66 66 65 72 20 65 6D ansion buffer em
0000B0: 70 74 79 5C 24 07 5C 5C 4B 65 79 20 74 6F 6B 65 pty\$.\\Key toke
0000C0: 6E 73 20 6D 75 73 74 20 62 65 20 69 6E 20 74 68 ns must be in th
0000D0: 65 20 72 61 6E 67 65 20 30 20 74 6F 20 33 31 5C e range 0 to 31\
0000E0: 24 07 5C 5C 43 4F 4E 3A 20 6D 61 79 20 6F 6E 6C $.\\CON: may onl
0000F0: 79 20 62 65 20 61 73 73 69 67 6E 65 64 20 74 6F y be assigned to
000100: 20 54 54 59 3A 2C 20 43 52 54 3A 2C 20 42 41 54 TTY:, CRT:, BAT
000110: 3A 20 6F 72 20 55 43 31 3A 24 07 5C 5C 52 44 52 : or UC1:$.\\RDR
000120: 3A 20 6D 61 79 20 6F 6E 6C 79 20 62 65 20 61 73 : may only be as
000130: 73 69 67 6E 65 64 20 74 6F 20 54 54 59 3A 2C 20 signed to TTY:,
000140: 50 54 52 3A 2C 20 55 52 31 3A 20 6F 72 20 55 52 PTR:, UR1: or UR
000150: 32 3A 24 07 5C 5C 50 55 4E 3A 20 6D 61 79 20 6F 2:$.\\PUN: may o
000160: 6E 6C 79 20 62 65 20 61 73 73 69 67 6E 65 64 20 nly be assigned
000170: 74 6F 20 54 54 59 3A 2C 20 50 54 50 3A 2C 20 55 to TTY:, PTP:, U
000180: 50 31 3A 20 6F 72 20 55 50 32 3A 24 07 5C 5C 4C P1: or UP2:$.\\L
000190: 53 54 3A 20 6D 61 79 20 6F 6E 6C 79 20 62 65 20 ST: may only be
0001A0: 61 73 73 69 67 6E 65 64 20 74 6F 20 54 54 59 3A assigned to TTY:
0001B0: 2C 20 43 52 54 3A 2C 20 4C 50 54 3A 20 6F 72 20 , CRT:, LPT: or
0001C0: 55 4C 31 3A 24 07 5C 5C 49 6E 76 61 6C 69 64 20 UL1:$.\\Invalid
0001D0: 63 6F 6D 6D 61 6E 64 20 28 79 6F 75 20 6D 61 79 command (you may
0001E0: 20 6F 6E 6C 79 20 73 70 65 63 69 66 79 20 43 4F only specify CO
0001F0: 4E 3A 2C 20 52 44 52 3A 2C 20 50 55 4E 3A 20 6F N:, RDR:, PUN: o
Size : 512 (Real : 512)
000000: 6F 0D 0A 20 20 20 20 62 65 67 69 6E 0D 0A 20 20 o.. begin..
000010: 20 20 20 20 61 5B 69 2C 31 5D 3A 3D 69 2D 31 3B a[i,1]:=i-1;
000020: 0D 0A 20 20 20 20 20 20 61 5B 69 2C 32 5D 3A 3D .. a[i,2]:=
000030: 72 61 6E 64 6F 6D 2D 30 2E 35 3B 0D 0A 20 20 20 random-0.5;..
000040: 20 20 20 78 3A 3D 78 2B 37 3B 0D 0A 20 20 20 20 x:=x+7;..
000050: 65 6E 64 3B 0D 0A 0D 0A 20 20 78 73 70 6C 69 6E end;.... xsplin
000060: 65 28 61 2C 6E 2C 61 5B 32 2C 31 5D 2C 61 5B 6E e(a,n,a[2,1],a[n
000070: 2D 31 2C 31 5D 2C 62 2C 6D 29 3B 0D 0A 20 20 46 -1,1],b,m);.. F
000080: 69 6E 64 57 6F 72 6C 64 28 31 2C 62 2C 6D 2C 31 indWorld(1,b,m,1
000090: 2C 31 2E 30 38 29 3B 0D 0A 0D 0A 20 20 53 65 6C ,1.08);.... Sel
0000A0: 65 63 74 57 69 6E 64 6F 77 28 31 29 3B 0D 0A 20 ectWindow(1);..
0000B0: 20 43 6C 65 61 72 45 6F 6C 28 32 35 29 3B 0D 0A ClearEol(25);..
0000C0: 20 20 67 6F 74 6F 78 79 28 31 30 2C 32 35 29 3B gotoxy(10,25);
0000D0: 0D 0A 20 20 77 72 69 74 65 28 27 4C 27 27 69 6E .. write('L''in
0000E0: 66 6F 72 6D 61 74 69 6F 6E 20 64 65 20 6C 61 20 formation de la
0000F0: 64 6F 6E 6E 65 65 27 29 3B 0D 0A 20 20 46 69 6E donnee');.. Fin
000100: 64 57 6F 72 6C 64 28 31 2C 62 2C 6D 2C 31 2C 31 dWorld(1,b,m,1,1
000110: 2E 30 38 29 3B 0D 0A 20 20 53 65 6C 65 63 74 57 .08);.. SelectW
000120: 69 6E 64 6F 77 28 31 29 3B 0D 0A 20 20 44 72 61 indow(1);.. Dra
000130: 77 42 6F 72 64 65 72 3B 0D 0A 20 20 78 44 72 61 wBorder;.. xDra
000140: 77 41 78 69 73 28 64 78 2C 64 79 2C 58 31 2C 59 wAxis(dx,dy,X1,Y
000150: 31 2C 58 32 2C 59 32 2C 6C 69 6E 65 73 2C 73 63 1,X2,Y2,lines,sc
000160: 61 6C 65 2C 66 61 6C 73 65 29 3B 0D 0A 20 20 53 ale,false);.. S
000170: 65 74 4C 69 6E 65 53 74 79 6C 65 28 31 29 3B 0D etLineStyle(1);.
000180: 0A 20 20 78 44 72 61 77 50 6F 6C 79 67 6F 6E 28 . xDrawPolygon(
000190: 61 2C 32 2C 6E 2D 31 2C 37 2C 32 2C 30 29 3B 0D a,2,n-1,7,2,0);.
0001A0: 0A 20 20 53 65 74 4C 69 6E 65 53 74 79 6C 65 28 . SetLineStyle(
0001B0: 30 29 3B 0D 0A 20 20 53 65 6C 65 63 74 49 42 4D 0);.. SelectIBM
0001C0: 3B 0D 0A 20 20 44 72 61 77 54 65 78 74 57 28 34 ;.. DrawTextW(4
0001D0: 37 30 2C 37 30 2C 31 2C 5E 5B 27 37 40 32 20 20 70,70,1,^['7@2
0001E0: 20 4C 61 20 64 6F 6E 6E 65 65 27 29 3B 0D 0A 20 La donnee');..
0001F0: 20 44 72 61 77 54 65 78 74 57 28 34 37 30 2C 39 DrawTextW(470,9
Size : 512 (Real : 512)
000000: 70 72 6F 67 72 61 6D 20 44 72 61 77 48 61 74 63 program DrawHatc
000010: 68 3B 0D 0A 0D 0A 7B 24 49 20 74 79 70 65 64 65 h;....{$I typede
000020: 66 2E 73 79 73 7D 20 20 20 20 20 20 20 20 20 20 f.sys}
000030: 20 20 20 20 20 20 20 20 7B 69 6E 63 6C 75 73 20 {inclus
000040: 6C 65 73 20 63 6F 64 65 73 20 67 72 61 70 68 69 les codes graphi
000050: 71 75 65 73 7D 0D 0A 7B 24 49 20 67 72 61 70 68 ques}..{$I graph
000060: 69 78 2E 73 79 73 7D 0D 0A 7B 24 49 20 6B 65 72 ix.sys}..{$I ker
000070: 6E 65 6C 2E 73 79 73 7D 0D 0A 7B 24 49 20 6B 65 nel.sys}..{$I ke
000080: 72 6E 65 6C 31 2E 73 79 73 7D 0D 0A 7B 24 49 20 rnel1.sys}..{$I
000090: 68 61 74 63 68 2E 68 67 68 7D 0D 0A 0D 0A 76 61 hatch.hgh}....va
0000A0: 72 20 69 3A 69 6E 74 65 67 65 72 3B 0D 0A 20 20 r i:integer;..
0000B0: 20 78 31 2C 78 32 2C 79 31 2C 79 32 2C 74 65 6D x1,x2,y1,y2,tem
0000C0: 70 3A 72 65 61 6C 3B 0D 0A 0D 0A 62 65 67 69 6E p:real;....begin
0000D0: 0D 0A 20 20 49 6E 69 74 47 72 61 70 68 69 63 3B .. InitGraphic;
0000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000F0: 20 20 20 20 7B 69 6E 69 74 69 61 6C 69 73 65 20 {initialise
000100: 6C 65 20 20 73 79 73 74 65 6D 65 20 65 74 20 6C le systeme et l
000110: 27 27 65 63 72 61 6E 7D 0D 0A 0D 0A 20 20 44 65 ''ecran}.... De
000120: 66 69 6E 65 57 6F 72 6C 64 28 31 2C 30 2C 31 30 fineWorld(1,0,10
000130: 30 30 2C 31 30 30 30 2C 30 29 3B 20 20 20 7B 64 00,1000,0); {d
000140: 65 66 69 6E 69 74 20 75 6E 20 6D 6F 6E 64 65 20 efinit un monde
000150: 61 20 64 65 73 73 69 6E 65 72 20 20 7D 0D 0A 20 a dessiner }..
000160: 20 53 65 6C 65 63 74 57 6F 72 6C 64 28 31 29 3B SelectWorld(1);
000170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000180: 20 7B 73 6F 6E 20 63 68 6F 69 78 7D 0D 0A 20 20 {son choix}..
000190: 53 65 6C 65 63 74 57 69 6E 64 6F 77 28 31 29 3B SelectWindow(1);
0001A0: 0D 0A 20 20 44 72 61 77 42 6F 72 64 65 72 3B 0D .. DrawBorder;.
0001B0: 0A 0D 0A 20 20 66 6F 72 20 69 3A 3D 31 20 74 6F ... for i:=1 to
0001C0: 20 35 20 64 6F 20 20 20 20 20 20 20 20 20 20 20 5 do
0001D0: 20 20 20 20 20 7B 64 65 73 73 69 6E 65 20 61 6C {dessine al
0001E0: 65 61 74 6F 69 72 65 6D 65 6E 74 20 64 65 73 20 eatoirement des
0001F0: 62 6F 69 74 65 73 20 61 76 65 63 20 64 65 73 20 boites avec des
Size : 512 (Real : 512)
000000: 30 2C 31 2C 27 2D 2D 20 20 4C 65 73 20 76 61 6C 0,1,'-- Les val
000010: 65 75 72 73 20 69 6E 74 65 72 70 6F 6C 65 65 73 eurs interpolees
000020: 27 29 3B 0D 0A 20 20 67 6F 74 6F 78 79 28 35 30 ');.. gotoxy(50
000030: 2C 32 35 29 3B 0D 0A 20 20 53 65 6C 65 63 74 57 ,25);.. SelectW
000040: 6F 72 6C 64 28 31 29 3B 0D 0A 20 20 53 65 6C 65 orld(1);.. Sele
000050: 63 74 57 69 6E 64 6F 77 28 31 29 3B 0D 0A 0D 0A ctWindow(1);....
000060: 20 20 77 61 69 74 72 65 74 75 72 6E 28 31 35 30 waitreturn(150
000070: 30 30 29 3B 0D 0A 0D 0A 20 20 43 6C 65 61 72 45 00);.... ClearE
000080: 6F 6C 28 32 35 29 3B 0D 0A 20 20 67 6F 74 6F 78 ol(25);.. gotox
000090: 79 28 31 30 2C 32 35 29 3B 0D 0A 20 20 77 72 69 y(10,25);.. wri
0000A0: 74 65 28 27 4C 27 69 6E 74 65 72 70 6F 6C 61 74 te('L'interpolat
0000B0: 69 6F 6E 20 64 65 2E 20 6C 61 20 66 6F 6E 63 74 ion de. la fonct
0000C0: 69 6F 6E 20 73 70 6C 69 6E 65 27 29 3B 0D 0A 20 ion spline');..
0000D0: 20 78 44 72 61 77 41 78 69 73 28 30 2C 30 2C 58 xDrawAxis(0,0,X
0000E0: 31 2C 59 31 2C 58 32 2C 59 32 2C 30 2C 30 2C 66 1,Y1,X2,Y2,0,0,f
0000F0: 61 6C 73 65 29 3B 0D 0A 20 20 78 44 72 61 77 50 alse);.. xDrawP
000100: 6F 6C 79 67 6F 6E 28 62 2C 31 2C 2D 6D 2C 30 2C olygon(b,1,-m,0,
000110: 30 2C 30 29 3B 0D 0A 0D 0A 20 20 43 6F 70 79 53 0,0);.... CopyS
000120: 63 72 65 65 6E 3B 0D 0A 20 20 67 6F 74 6F 78 79 creen;.. gotoxy
000130: 28 35 30 2C 32 35 29 3B 0D 0A 20 20 77 61 69 74 (50,25);.. wait
000140: 72 65 74 75 72 6E 28 31 35 30 30 30 29 3B 0D 0A return(15000);..
000150: 0D 0A 20 20 43 6C 65 61 72 45 6F 6C 28 32 35 29 .. ClearEol(25)
000160: 3B 0D 0A 20 20 67 6F 74 6F 78 79 28 31 30 2C 32 ;.. gotoxy(10,2
000170: 35 29 3B 0D 0A 20 20 77 72 69 74 65 28 27 43 6F 5);.. write('Co
000180: 6F 72 64 6F 6E 6E 65 65 73 20 76 65 72 74 69 63 ordonnees vertic
000190: 61 6C 65 73 20 65 63 68 61 6E 67 65 65 73 27 29 ales echangees')
0001A0: 3B 0D 0A 20 20 77 69 74 68 20 77 6F 72 6C 64 5B ;.. with world[
0001B0: 31 5D 20 64 6F 0D 0A 20 20 20 62 65 67 69 6E 0D 1] do.. begin.
0001C0: 0A 20 20 20 20 74 65 6D 70 3A 3D 79 31 3B 0D 0A . temp:=y1;..
0001D0: 20 20 20 20 79 31 3A 3D 79 32 3B 0D 0A 20 20 20 y1:=y2;..
0001E0: 20 79 32 3A 3D 74 65 6D 70 3B 0D 0A 20 20 20 65 y2:=temp;.. e
0001F0: 6E 64 3B 0D 0A 20 20 53 65 6C 65 63 74 57 6F 72 nd;.. SelectWor
Size : 512 (Real : 512)
000000: 68 61 63 68 75 72 61 67 65 7D 0D 0A 20 20 62 65 hachurage}.. be
000010: 67 69 6E 0D 0A 20 20 20 20 78 31 3A 3D 31 30 30 gin.. x1:=100
000020: 2B 72 61 6E 64 6F 6D 28 38 30 30 29 3B 0D 0A 20 +random(800);..
000030: 20 20 20 78 32 3A 3D 31 30 30 2B 72 61 6E 64 6F x2:=100+rando
000040: 6D 28 38 30 30 29 3B 0D 0A 20 20 20 20 79 31 3A m(800);.. y1:
000050: 3D 31 30 30 2B 72 61 6E 64 6F 6D 28 38 30 30 29 =100+random(800)
000060: 3B 0D 0A 20 20 20 20 79 32 3A 3D 31 30 30 2B 72 ;.. y2:=100+r
000070: 61 6E 64 6F 6D 28 38 30 30 29 3B 0D 0A 0D 0A 20 andom(800);....
000080: 20 20 20 69 66 20 78 31 3E 78 32 20 74 68 65 6E if x1>x2 then
000090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000A0: 20 7B 70 65 72 6D 75 74 65 20 20 78 27 73 7D 0D {permute x's}.
0000B0: 0A 20 20 20 20 20 62 65 67 69 6E 0D 0A 20 20 20 . begin..
0000C0: 20 20 20 74 65 6D 70 3A 3D 78 31 3B 0D 0A 20 20 temp:=x1;..
0000D0: 20 20 20 20 78 31 3A 3D 78 32 3B 0D 0A 20 20 20 x1:=x2;..
0000E0: 20 20 20 78 32 3A 3D 74 65 6D 70 3B 0D 0A 20 20 x2:=temp;..
0000F0: 20 20 20 65 6E 64 3B 0D 0A 0D 0A 20 20 20 20 69 end;.... i
000100: 66 20 79 31 3E 79 32 20 74 68 65 6E 20 20 20 20 f y1>y2 then
000110: 20 20 20 20 20 20 20 20 20 20 20 20 20 7B 70 65 {pe
000120: 72 6D 75 74 65 20 79 27 73 7D 0D 0A 20 20 20 20 rmute y's}..
000130: 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 20 74 65 begin.. te
000140: 6D 70 3A 3D 79 31 3B 0D 0A 20 20 20 20 20 20 79 mp:=y1;.. y
000150: 31 3A 3D 79 32 3B 0D 0A 20 20 20 20 20 20 79 32 1:=y2;.. y2
000160: 3A 3D 74 65 6D 70 3B 0D 0A 20 20 20 20 20 65 6E :=temp;.. en
000170: 64 3B 0D 0A 0D 0A 20 20 20 20 44 72 61 77 53 71 d;.... DrawSq
000180: 75 61 72 65 28 78 31 2C 79 31 2C 78 32 2C 79 32 uare(x1,y1,x2,y2
000190: 2C 66 61 6C 73 65 29 3B 20 20 20 20 20 20 20 20 ,false);
0001A0: 20 20 7B 74 72 61 63 65 20 75 6E 20 63 61 72 72 {trace un carr
0001B0: 65 7D 0D 0A 20 20 20 20 68 61 74 63 68 28 78 31 e}.. hatch(x1
0001C0: 2C 79 31 2C 78 32 2C 79 32 2C 72 61 6E 64 6F 6D ,y1,x2,y2,random
0001D0: 28 32 32 29 2D 31 31 29 3B 20 20 20 20 20 20 20 (22)-11);
0001E0: 7B 6C 65 20 68 61 63 68 75 72 65 7D 0D 0A 20 20 {le hachure}..
0001F0: 65 6E 64 3B 0D 0A 0D 0A 20 20 72 65 70 65 61 74 end;.... repeat
Size : 512 (Real : 512)
000000: 6C 64 28 31 29 3B 0D 0A 20 20 53 65 6C 65 63 74 ld(1);.. Select
000010: 57 69 6E 64 6F 77 28 32 29 3B 0D 0A 20 20 53 65 Window(2);.. Se
000020: 74 42 61 63 6B 67 72 6F 75 6E 64 28 32 35 35 29 tBackground(255)
000030: 3B 0D 0A 20 20 53 65 74 43 6F 6C 6F 72 42 6C 61 ;.. SetColorBla
000040: 63 6B 3B 0D 0A 20 20 44 72 61 77 42 6F 72 64 65 ck;.. DrawBorde
000050: 72 3B 0D 0A 20 20 78 44 72 61 77 41 78 69 73 28 r;.. xDrawAxis(
000060: 61 62 73 28 64 78 29 2C 61 62 73 28 64 79 29 2C abs(dx),abs(dy),
000070: 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 66 61 6C 73 0,0,0,0,0,0,fals
000080: 65 29 3B 0D 0A 20 20 78 44 72 61 77 50 6F 6C 79 e);.. xDrawPoly
000090: 67 6F 6E 28 61 2C 32 2C 6E 2D 31 2C 2D 32 2C 32 gon(a,2,n-1,-2,2
0000A0: 2C 2D 31 29 3B 0D 0A 20 20 78 44 72 61 77 41 78 ,-1);.. xDrawAx
0000B0: 69 73 28 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 is(0,0,0,0,0,0,0
0000C0: 2C 30 2C 66 61 6C 73 65 29 3B 0D 0A 20 20 78 44 ,0,false);.. xD
0000D0: 72 61 77 50 6F 6C 79 67 6F 6E 28 62 2C 31 2C 2D rawPolygon(b,1,-
0000E0: 6D 2C 30 2C 30 2C 30 29 3B 0D 0A 20 20 53 65 74 m,0,0,0);.. Set
0000F0: 43 6F 6C 6F 72 57 68 69 74 65 3B 0D 0A 20 20 67 ColorWhite;.. g
000100: 6F 74 6F 78 79 28 35 30 2C 32 35 29 3B 0D 0A 20 otoxy(50,25);..
000110: 20 77 61 69 74 72 65 74 75 72 6E 28 31 35 30 30 waitreturn(1500
000120: 30 29 3B 0D 0A 0D 0A 20 20 43 6C 65 61 72 45 6F 0);.... ClearEo
000130: 6C 28 32 35 29 3B 0D 0A 20 20 67 6F 74 6F 78 79 l(25);.. gotoxy
000140: 28 31 30 2C 32 35 29 3B 0D 0A 20 20 77 72 69 74 (10,25);.. writ
000150: 65 28 27 44 65 70 6C 61 63 65 6D 65 6E 74 20 64 e('Deplacement d
000160: 27 27 75 6E 65 20 66 65 6E 65 74 72 65 27 29 3B ''une fenetre');
000170: 0D 0A 20 20 4D 6F 76 65 56 65 72 49 42 4D 28 2D .. MoveVerIBM(-
000180: 31 35 2C 74 72 75 65 29 3B 0D 0A 20 20 4D 6F 76 15,true);.. Mov
000190: 65 48 6F 72 49 42 4D 28 2D 33 30 2C 74 72 75 65 eHorIBM(-30,true
0001A0: 29 3B 0D 0A 20 20 4D 6F 76 65 56 65 72 49 42 4D );.. MoveVerIBM
0001B0: 28 33 35 2C 74 72 75 65 29 3B 0D 0A 20 20 4D 6F (35,true);.. Mo
0001C0: 76 65 48 6F 72 49 42 4D 28 33 35 2C 74 72 75 65 veHorIBM(35,true
0001D0: 29 3B 0D 0A 20 20 4D 6F 76 65 56 65 72 49 42 4D );.. MoveVerIBM
0001E0: 28 2D 35 2C 74 72 75 65 29 3B 0D 0A 20 20 4D 6F (-5,true);.. Mo
0001F0: 76 65 48 6F 72 49 42 4D 28 2D 35 2C 74 72 75 65 veHorIBM(-5,true
Size : 512 (Real : 512)
000000: 20 75 6E 74 69 6C 20 6B 65 79 70 72 65 73 73 65 until keypresse
000010: 64 3B 20 20 20 20 20 20 20 20 7B 61 74 74 65 6E d; {atten
000020: 64 20 6A 75 73 71 75 27 27 61 20 75 6E 65 20 74 d jusqu''a une t
000030: 6F 75 63 68 65 20 73 6F 69 74 20 66 72 61 70 70 ouche soit frapp
000040: 65 65 7D 0D 0A 20 20 4C 65 61 76 65 47 72 61 70 ee}.. LeaveGrap
000050: 68 69 63 3B 0D 0A 65 6E 64 2E 0D 0A 1A 1A 1A 1A hic;..end.......
000060: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000070: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000080: 20 20 20 69 66 20 78 31 3E 78 32 20 74 68 65 6E if x1>x2 then
000090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000A0: 20 7B 70 65 72 6D 75 74 65 20 20 78 27 73 7D 0D {permute x's}.
0000B0: 0A 20 20 20 20 20 62 65 67 69 6E 0D 0A 20 20 20 . begin..
0000C0: 20 20 20 74 65 6D 70 3A 3D 78 31 3B 0D 0A 20 20 temp:=x1;..
0000D0: 20 20 20 20 78 31 3A 3D 78 32 3B 0D 0A 20 20 20 x1:=x2;..
0000E0: 20 20 20 78 32 3A 3D 74 65 6D 70 3B 0D 0A 20 20 x2:=temp;..
0000F0: 20 20 20 65 6E 64 3B 0D 0A 0D 0A 20 20 20 20 69 end;.... i
000100: 66 20 79 31 3E 79 32 20 74 68 65 6E 20 20 20 20 f y1>y2 then
000110: 20 20 20 20 20 20 20 20 20 20 20 20 20 7B 70 65 {pe
000120: 72 6D 75 74 65 20 79 27 73 7D 0D 0A 20 20 20 20 rmute y's}..
000130: 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 20 74 65 begin.. te
000140: 6D 70 3A 3D 79 31 3B 0D 0A 20 20 20 20 20 20 79 mp:=y1;.. y
000150: 31 3A 3D 79 32 3B 0D 0A 20 20 20 20 20 20 79 32 1:=y2;.. y2
000160: 3A 3D 74 65 6D 70 3B 0D 0A 20 20 20 20 20 65 6E :=temp;.. en
000170: 64 3B 0D 0A 0D 0A 20 20 20 20 44 72 61 77 53 71 d;.... DrawSq
000180: 75 61 72 65 28 78 31 2C 79 31 2C 78 32 2C 79 32 uare(x1,y1,x2,y2
000190: 2C 66 61 6C 73 65 29 3B 20 20 20 20 20 20 20 20 ,false);
0001A0: 20 20 7B 74 72 61 63 65 20 75 6E 20 63 61 72 72 {trace un carr
0001B0: 65 7D 0D 0A 20 20 20 20 68 61 74 63 68 28 78 31 e}.. hatch(x1
0001C0: 2C 79 31 2C 78 32 2C 79 32 2C 72 61 6E 64 6F 6D ,y1,x2,y2,random
0001D0: 28 32 32 29 2D 31 31 29 3B 20 20 20 20 20 20 20 (22)-11);
0001E0: 7B 6C 65 20 68 61 63 68 75 72 65 7D 0D 0A 20 20 {le hachure}..
0001F0: 65 6E 64 3B 0D 0A 0D 0A 20 20 72 65 70 65 61 74 end;.... repeat
Size : 512 (Real : 512)
000000: 29 3B 0D 0A 20 20 67 6F 74 6F 78 79 28 35 30 2C );.. gotoxy(50,
000010: 32 35 29 3B 0D 0A 20 20 77 61 69 74 72 65 74 75 25);.. waitretu
000020: 72 6E 28 31 35 30 30 30 29 3B 0D 0A 0D 0A 20 20 rn(15000);....
000030: 43 6C 65 61 72 45 6F 6C 28 32 35 29 3B 0D 0A 20 ClearEol(25);..
000040: 20 67 6F 74 6F 78 79 28 31 30 2C 32 35 29 3B 0D gotoxy(10,25);.
000050: 0A 20 20 77 72 69 74 65 28 27 49 6E 76 65 72 73 . write('Invers
000060: 69 6F 6E 20 64 27 27 75 6E 65 20 66 65 6E 65 74 ion d''une fenet
000070: 72 65 27 29 3B 0D 0A 20 20 49 6E 76 65 72 74 57 re');.. InvertW
000080: 69 6E 64 6F 77 3B 0D 0A 20 20 53 65 74 43 6F 6C indow;.. SetCol
000090: 6F 72 57 68 69 74 65 3B 0D 0A 20 20 67 6F 74 6F orWhite;.. goto
0000A0: 78 79 28 35 30 2C 32 35 29 3B 0D 0A 20 20 77 61 xy(50,25);.. wa
0000B0: 69 74 72 65 74 75 72 6E 28 31 35 30 30 30 29 3B itreturn(15000);
0000C0: 0D 0A 0D 0A 20 20 53 65 6C 65 63 74 53 63 72 65 .... SelectScre
0000D0: 65 6E 28 32 29 3B 0D 0A 20 20 43 6C 65 61 72 45 en(2);.. ClearE
0000E0: 6F 6C 28 32 35 29 3B 0D 0A 20 20 67 6F 74 6F 78 ol(25);.. gotox
0000F0: 79 28 31 30 2C 32 35 29 3B 0D 0A 20 20 77 72 69 y(10,25);.. wri
000100: 74 65 28 27 4C 61 20 72 65 63 6F 6E 73 74 72 75 te('La reconstru
000110: 63 74 69 6F 6E 20 64 75 20 70 72 65 6D 69 65 72 ction du premier
000120: 20 63 68 69 66 66 72 65 27 29 3B 0D 0A 20 20 43 chiffre');.. C
000130: 6F 70 79 53 63 72 65 65 6E 3B 0D 0A 20 20 53 65 opyScreen;.. Se
000140: 6C 65 63 74 53 63 72 65 65 6E 28 31 29 3B 0D 0A lectScreen(1);..
000150: 20 20 67 6F 74 6F 78 79 28 35 30 2C 32 35 29 3B gotoxy(50,25);
000160: 0D 0A 20 20 77 61 69 74 72 65 74 75 72 6E 28 31 .. waitreturn(1
000170: 35 30 30 30 29 3B 0D 0A 65 6E 64 3B 0D 0A 0D 0A 5000);..end;....
000180: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000190: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0001A0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0001B0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0001C0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0001D0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0001E0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0001F0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
Size : 512 (Real : 512)
000000: D1 E1 C9 E5 D5 4F 3E FF CD 9B BE 80 BE F5 3E 01 .....O>.......>.
000010: CD 9B BE 98 BE F5 2A 01 00 11 18 00 19 1E 00 C5 ......*.........
000020: CD 6C 03 C1 7C B5 CA 56 03 11 0A 00 79 B7 CA 34 .l..|..V....y..4
000030: 03 11 1A 00 CD 91 01 21 0F 00 19 4E 23 46 1E FF .......!...N#F..
000040: 79 FE 41 16 00 CA 5A 03 FE 01 16 03 CA 5A 03 FE y.A...Z......Z..
000050: C1 16 02 CA 5A 03 16 04 1E 00 F1 CD 9B BE 98 BE ....Z...........
000060: F1 CD 9B BE 80 BE 7B 17 7A D1 E1 C9 E9 E5 21 6D ......{.z.....!m
000070: 0C CD A3 03 E1 D0 E5 D5 C5 11 6D 0C 01 00 02 1A ..........m.....
000080: BE C2 8C 03 23 13 0B 78 B1 C2 7F 03 C1 D1 E1 37 ....#..x.......7
000090: C8 3E 24 C3 A5 04 E5 CD 9B BE 89 BE 3E 25 D4 B3 .>$.........>%..
0000A0: 04 E1 C9 E5 CD 9B BE 89 BE 3E 26 D4 B3 04 E1 C9 .........>&.....
0000B0: E5 CD 9B BE 8C BE 3E 27 D4 B3 04 E1 C9 E5 CD 9B ......>'........
0000C0: BE 8F BE 3E 28 D4 B3 04 E1 C9 21 80 00 7E 47 B7 ...>(.....!..~G.
0000D0: CA DE 03 23 7E FE 20 C2 E0 03 05 C2 D3 03 3E 53 ...#~. .......>S
0000E0: 23 E5 21 00 04 46 23 BE CA F8 03 23 23 23 23 05 #.!..F#....####.
0000F0: C2 E7 03 3E 19 C3 B3 04 23 7E 23 46 23 4E E1 C9 ...>....#~#F#N..
000100: 04 53 00 09 41 56 01 09 41 44 02 09 C1 49 03 08 .S..AV..AD...I..
000110: 01 3E 12 CD AD 04 CD 27 02 D2 11 04 3E 0B C3 86 .>.....'....>...
000120: 04 3E 13 CD AD 04 CD 2E 02 D2 21 04 3E 0B C3 86 .>........!.>...
000130: 04 CD 4A 04 FE 4E CA 47 04 FE 59 37 CA 47 04 3E ..J..N.G..Y7.G.>
000140: 07 CD 86 04 C3 31 04 C3 86 04 CD 55 04 FE 03 C0 .....1.....U....
000150: 3E 18 C3 B3 04 D5 C5 0E 06 1E FF CD 95 04 B7 C2 >...............
000160: 57 04 0E 06 1E FF CD 95 04 B7 CA 62 04 CD 73 04 W..........b..s.
000170: C1 D1 C9 C5 F5 FE 61 DA 81 04 FE 7B D2 81 04 E6 ......a....{....
000180: DF 47 F1 78 C1 C9 E5 D5 C5 F5 5F 0E 02 CD 05 00 .G.x......_.....
000190: F1 C1 D1 E1 C9 E5 D5 C5 CD 05 00 C1 D1 E1 C9 CD ................
0001A0: C2 04 C3 31 04 CD C2 04 AF 32 6B 0B C9 CD C2 04 ...1.....2k.....
0001B0: C3 4A 04 CD C2 04 3A 69 0B B7 3E 23 C4 C2 04 C3 .J....:i..>#....
0001C0: 36 01 E5 D5 C5 F5 21 84 06 FE 2A D2 D2 04 B7 C2 6.....!...*.....
0001D0: D6 04 CD F4 04 C7 C5 47 7E 23 FE 24 C2 D8 04 7E .......G~#.$...~
0001E0: 23 FE 24 CA D8 04 05 C2 D8 04 2B C1 CD F4 04 F1 #.$.......+.....
0001F0: C1 D1 E1 C9 7E 23 B7 FA 24 05 FE 5C CA 12 05 FE ....~#..$..\....
Size : 512 (Real : 512)
000000: 70 72 6F 67 72 61 6D 20 45 78 61 6D 70 6C 65 50 program ExampleP
000010: 6F 69 6E 74 3B 0D 0A 0D 0A 7B 24 49 20 74 79 70 oint;....{$I typ
000020: 65 64 65 66 2E 73 79 73 7D 20 20 20 20 20 20 20 edef.sys}
000030: 20 20 7B 69 6E 63 6C 75 73 20 75 6E 20 73 79 73 {inclus un sys
000040: 74 65 6D 65 20 69 6E 64 65 70 65 6E 64 61 6E 74 teme independant
000050: 20 64 65 20 64 65 66 69 6E 69 74 69 6F 6E 73 20 de definitions
000060: 74 79 70 65 73 7D 0D 0A 7B 24 49 20 67 72 61 70 types}..{$I grap
000070: 68 69 78 2E 73 79 73 7D 20 20 20 20 20 20 20 20 hix.sys}
000080: 20 7B 69 6E 63 6C 75 73 20 75 6E 20 73 79 73 74 {inclus un syst
000090: 65 6D 65 20 64 65 70 65 6E 64 61 6E 74 20 64 65 eme dependant de
0000A0: 20 64 65 66 73 20 65 74 20 64 65 20 72 6F 75 74 defs et de rout
0000B0: 69 6E 65 73 7D 0D 0A 7B 24 49 20 6B 65 72 6E 65 ines}..{$I kerne
0000C0: 6C 2E 73 79 73 7D 20 20 20 20 20 20 20 20 20 20 l.sys}
0000D0: 7B 69 6E 63 6C 75 73 20 75 6E 20 73 79 73 74 65 {inclus un syste
0000E0: 6D 65 20 69 6E 64 65 70 65 6E 64 61 6E 74 20 64 me independant d
0000F0: 65 20 72 6F 75 74 69 6E 65 73 20 64 65 20 73 75 e routines de su
000100: 70 70 6F 72 74 7D 0D 0A 7B 24 49 20 6B 65 72 6E pport}..{$I kern
000110: 65 6C 31 2E 73 79 73 7D 20 20 20 20 20 20 20 20 el1.sys}
000120: 20 7B 69 6E 63 6C 75 73 20 75 6E 20 73 79 73 74 {inclus un syst
000130: 65 6D 65 20 69 6E 64 65 70 65 6E 64 61 6E 74 20 eme independant
000140: 64 65 20 72 6F 75 74 74 69 6E 65 73 20 64 65 20 de routtines de
000150: 73 75 70 70 6F 72 74 7D 0D 0A 0D 0A 62 65 67 69 support}....begi
000160: 6E 0D 0A 0D 0A 20 20 49 6E 69 74 47 72 61 70 68 n.... InitGraph
000170: 69 63 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 ic;
000180: 20 20 20 20 20 7B 69 6E 69 74 69 61 6C 69 73 65 {initialise
000190: 20 6C 65 73 20 67 72 61 70 68 69 73 6D 65 73 7D les graphismes}
0001A0: 0D 0A 20 20 44 72 61 77 42 6F 72 64 65 72 3B 0D .. DrawBorder;.
0001B0: 0A 0D 0A 20 20 44 72 61 77 50 6F 69 6E 74 28 31 ... DrawPoint(1
0001C0: 30 30 2C 31 30 30 29 3B 20 20 20 20 20 20 20 20 00,100);
0001D0: 20 20 20 7B 74 72 61 63 65 20 6C 65 20 20 70 6F {trace le po
0001E0: 69 6E 74 7D 0D 0A 0D 0A 20 20 72 65 70 65 61 74 int}.... repeat
0001F0: 20 75 6E 74 69 6C 20 4B 65 79 70 72 65 73 73 65 until Keypresse
Size : 512 (Real : 512)
000000: 70 72 6F 67 72 61 6D 20 20 44 72 61 77 4C 69 6E program DrawLin
000010: 65 73 3B 0D 0A 0D 0A 7B 24 49 20 74 79 70 65 64 es;....{$I typed
000020: 65 66 2E 73 79 73 7D 20 20 20 20 20 20 20 20 20 ef.sys}
000030: 20 20 20 20 20 20 20 20 20 7B 69 6E 63 6C 75 73 {inclus
000040: 20 6C 65 73 20 63 6F 64 65 73 20 67 72 61 70 68 les codes graph
000050: 69 71 75 65 73 7D 0D 0A 7B 24 49 20 67 72 61 70 iques}..{$I grap
000060: 68 69 78 2E 73 79 73 7D 0D 0A 7B 24 49 20 6B 65 hix.sys}..{$I ke
000070: 72 6E 65 6C 2E 73 79 73 7D 0D 0A 7B 24 49 20 6B rnel.sys}..{$I k
000080: 65 72 6E 65 6C 31 2E 73 79 73 7D 0D 0A 0D 0A 76 ernel1.sys}....v
000090: 61 72 20 69 3A 69 6E 74 65 67 65 72 3B 0D 0A 0D ar i:integer;...
0000A0: 0A 62 65 67 69 6E 0D 0A 20 20 49 6E 69 74 47 72 .begin.. InitGr
0000B0: 61 70 68 69 63 3B 20 20 20 20 20 20 20 20 20 20 aphic;
0000C0: 20 20 20 20 20 20 20 20 20 20 7B 69 6E 69 74 69 {initi
0000D0: 61 6C 69 73 65 20 6C 65 20 73 79 73 74 65 6D 65 alise le systeme
0000E0: 20 65 74 20 6C 27 27 65 63 72 61 6E 20 7D 0D 0A et l''ecran }..
0000F0: 0D 0A 20 20 44 65 66 69 6E 65 57 6F 72 6C 64 28 .. DefineWorld(
000100: 31 2C 30 2C 31 30 30 30 2C 31 30 30 30 2C 30 29 1,0,1000,1000,0)
000110: 3B 20 20 20 7B 64 65 66 69 6E 69 74 20 75 6E 20 ; {definit un
000120: 6D 6F 6E 64 65 20 61 20 64 65 73 73 69 6E 65 72 monde a dessiner
000130: 20 7D 0D 0A 20 20 53 65 6C 65 63 74 57 6F 72 6C }.. SelectWorl
000140: 64 28 31 29 3B 20 20 20 20 20 20 20 20 20 20 20 d(1);
000150: 20 20 20 20 20 20 7B 73 6F 6E 20 63 68 6F 69 78 {son choix
000160: 7D 0D 0A 20 20 53 65 6C 65 63 74 57 69 6E 64 6F }.. SelectWindo
000170: 77 28 31 29 3B 0D 0A 0D 0A 20 20 53 65 74 42 61 w(1);.... SetBa
000180: 63 6B 67 72 6F 75 6E 64 28 30 29 3B 0D 0A 20 20 ckground(0);..
000190: 44 72 61 77 42 6F 72 64 65 72 3B 0D 0A 0D 0A 20 DrawBorder;....
0001A0: 20 66 6F 72 20 69 3A 3D 31 20 74 6F 20 32 30 20 for i:=1 to 20
0001B0: 64 6F 20 44 72 61 77 4C 69 6E 65 28 69 2A 35 30 do DrawLine(i*50
0001C0: 2C 30 2C 31 30 30 30 2D 69 2A 35 30 2C 69 2A 35 ,0,1000-i*50,i*5
0001D0: 30 29 3B 0D 0A 0D 0A 20 20 72 65 70 65 61 74 20 0);.... repeat
0001E0: 75 6E 74 69 6C 20 6B 65 79 70 72 65 73 73 65 64 until keypressed
0001F0: 3B 20 20 20 20 20 20 20 20 7B 61 74 74 65 6E 64 ; {attend
Size : 512 (Real : 512)
000000: 64 3B 20 20 20 20 20 20 7B 61 74 74 65 6E 64 20 d; {attend
000010: 6A 75 73 71 75 27 27 61 20 63 65 20 71 75 27 27 jusqu''a ce qu''
000020: 75 6E 65 20 73 6F 69 74 20 66 72 61 70 70 65 65 une soit frappee
000030: 7D 0D 0A 20 20 4C 65 61 76 65 47 72 61 70 68 69 }.. LeaveGraphi
000040: 63 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 c;
000050: 20 20 20 7B 71 75 69 74 74 65 20 6C 65 73 20 67 {quitte les g
000060: 72 61 70 68 69 73 6D 65 73 7D 0D 0A 0D 0A 65 6E raphismes}....en
000070: 64 2E 0D 0A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A d...............
000080: 20 7B 69 6E 63 6C 75 73 20 75 6E 20 73 79 73 74 {inclus un syst
000090: 65 6D 65 20 64 65 70 65 6E 64 61 6E 74 20 64 65 eme dependant de
0000A0: 20 64 65 66 73 20 65 74 20 64 65 20 72 6F 75 74 defs et de rout
0000B0: 69 6E 65 73 7D 0D 0A 7B 24 49 20 6B 65 72 6E 65 ines}..{$I kerne
0000C0: 6C 2E 73 79 73 7D 20 20 20 20 20 20 20 20 20 20 l.sys}
0000D0: 7B 69 6E 63 6C 75 73 20 75 6E 20 73 79 73 74 65 {inclus un syste
0000E0: 6D 65 20 69 6E 64 65 70 65 6E 64 61 6E 74 20 64 me independant d
0000F0: 65 20 72 6F 75 74 69 6E 65 73 20 64 65 20 73 75 e routines de su
000100: 70 70 6F 72 74 7D 0D 0A 7B 24 49 20 6B 65 72 6E pport}..{$I kern
000110: 65 6C 31 2E 73 79 73 7D 20 20 20 20 20 20 20 20 el1.sys}
000120: 20 7B 69 6E 63 6C 75 73 20 75 6E 20 73 79 73 74 {inclus un syst
000130: 65 6D 65 20 69 6E 64 65 70 65 6E 64 61 6E 74 20 eme independant
000140: 64 65 20 72 6F 75 74 74 69 6E 65 73 20 64 65 20 de routtines de
000150: 73 75 70 70 6F 72 74 7D 0D 0A 0D 0A 62 65 67 69 support}....begi
000160: 6E 0D 0A 0D 0A 20 20 49 6E 69 74 47 72 61 70 68 n.... InitGraph
000170: 69 63 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 ic;
000180: 20 20 20 20 20 7B 69 6E 69 74 69 61 6C 69 73 65 {initialise
000190: 20 6C 65 73 20 67 72 61 70 68 69 73 6D 65 73 7D les graphismes}
0001A0: 0D 0A 20 20 44 72 61 77 42 6F 72 64 65 72 3B 0D .. DrawBorder;.
0001B0: 0A 0D 0A 20 20 44 72 61 77 50 6F 69 6E 74 28 31 ... DrawPoint(1
0001C0: 30 30 2C 31 30 30 29 3B 20 20 20 20 20 20 20 20 00,100);
0001D0: 20 20 20 7B 74 72 61 63 65 20 6C 65 20 20 70 6F {trace le po
0001E0: 69 6E 74 7D 0D 0A 0D 0A 20 20 72 65 70 65 61 74 int}.... repeat
0001F0: 20 75 6E 74 69 6C 20 4B 65 79 70 72 65 73 73 65 until Keypresse
Size : 512 (Real : 512)
000000: 20 6A 75 73 71 75 27 27 61 20 75 6E 65 20 74 6F jusqu''a une to
000010: 75 63 68 65 20 73 6F 69 74 20 66 72 61 70 70 65 uche soit frappe
000020: 65 7D 0D 0A 20 20 4C 65 61 76 65 47 72 61 70 68 e}.. LeaveGraph
000030: 69 63 3B 0D 0A 65 6E 64 2E 0D 0A 1A 1A 1A 1A 1A ic;..end........
000040: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000050: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000060: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000070: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000080: 65 72 6E 65 6C 31 2E 73 79 73 7D 0D 0A 0D 0A 76 ernel1.sys}....v
000090: 61 72 20 69 3A 69 6E 74 65 67 65 72 3B 0D 0A 0D ar i:integer;...
0000A0: 0A 62 65 67 69 6E 0D 0A 20 20 49 6E 69 74 47 72 .begin.. InitGr
0000B0: 61 70 68 69 63 3B 20 20 20 20 20 20 20 20 20 20 aphic;
0000C0: 20 20 20 20 20 20 20 20 20 20 7B 69 6E 69 74 69 {initi
0000D0: 61 6C 69 73 65 20 6C 65 20 73 79 73 74 65 6D 65 alise le systeme
0000E0: 20 65 74 20 6C 27 27 65 63 72 61 6E 20 7D 0D 0A et l''ecran }..
0000F0: 0D 0A 20 20 44 65 66 69 6E 65 57 6F 72 6C 64 28 .. DefineWorld(
000100: 31 2C 30 2C 31 30 30 30 2C 31 30 30 30 2C 30 29 1,0,1000,1000,0)
000110: 3B 20 20 20 7B 64 65 66 69 6E 69 74 20 75 6E 20 ; {definit un
000120: 6D 6F 6E 64 65 20 61 20 64 65 73 73 69 6E 65 72 monde a dessiner
000130: 20 7D 0D 0A 20 20 53 65 6C 65 63 74 57 6F 72 6C }.. SelectWorl
000140: 64 28 31 29 3B 20 20 20 20 20 20 20 20 20 20 20 d(1);
000150: 20 20 20 20 20 20 7B 73 6F 6E 20 63 68 6F 69 78 {son choix
000160: 7D 0D 0A 20 20 53 65 6C 65 63 74 57 69 6E 64 6F }.. SelectWindo
000170: 77 28 31 29 3B 0D 0A 0D 0A 20 20 53 65 74 42 61 w(1);.... SetBa
000180: 63 6B 67 72 6F 75 6E 64 28 30 29 3B 0D 0A 20 20 ckground(0);..
000190: 44 72 61 77 42 6F 72 64 65 72 3B 0D 0A 0D 0A 20 DrawBorder;....
0001A0: 20 66 6F 72 20 69 3A 3D 31 20 74 6F 20 32 30 20 for i:=1 to 20
0001B0: 64 6F 20 44 72 61 77 4C 69 6E 65 28 69 2A 35 30 do DrawLine(i*50
0001C0: 2C 30 2C 31 30 30 30 2D 69 2A 35 30 2C 69 2A 35 ,0,1000-i*50,i*5
0001D0: 30 29 3B 0D 0A 0D 0A 20 20 72 65 70 65 61 74 20 0);.... repeat
0001E0: 75 6E 74 69 6C 20 6B 65 79 70 72 65 73 73 65 64 until keypressed
0001F0: 3B 20 20 20 20 20 20 20 20 7B 61 74 74 65 6E 64 ; {attend
Size : 512 (Real : 512)
000000: 70 72 6F 67 72 61 6D 20 44 72 61 77 50 6F 69 6E program DrawPoin
000010: 74 73 3B 0D 0A 0D 0A 7B 24 49 20 74 79 70 65 64 ts;....{$I typed
000020: 65 66 2E 73 79 73 7D 20 20 20 20 20 20 20 20 20 ef.sys}
000030: 20 20 20 20 20 7B 69 6E 63 6C 75 73 20 6C 65 73 {inclus les
000040: 20 63 6F 64 65 73 20 67 72 61 70 68 69 71 75 65 codes graphique
000050: 73 7D 0D 0A 7B 24 49 20 67 72 61 70 68 69 78 2E s}..{$I graphix.
000060: 73 79 73 7D 0D 0A 7B 24 49 20 6B 65 72 6E 65 6C sys}..{$I kernel
000070: 2E 73 79 73 7D 0D 0A 7B 24 49 20 6B 65 72 6E 65 .sys}..{$I kerne
000080: 6C 31 2E 73 79 73 7D 0D 0A 0D 0A 76 61 72 20 69 l1.sys}....var i
000090: 3A 69 6E 74 65 67 65 72 3B 0D 0A 0D 0A 62 65 67 :integer;....beg
0000A0: 69 6E 0D 0A 20 20 49 6E 69 74 47 72 61 70 68 69 in.. InitGraphi
0000B0: 63 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 c;
0000C0: 20 20 7B 69 6E 69 74 69 61 6C 69 73 65 20 6C 65 {initialise le
0000D0: 20 73 79 73 74 65 6D 65 20 65 74 20 6C 27 27 65 systeme et l''e
0000E0: 63 72 61 6E 7D 0D 0A 20 20 44 72 61 77 42 6F 72 cran}.. DrawBor
0000F0: 64 65 72 3B 0D 0A 0D 0A 20 20 66 6F 72 20 69 3A der;.... for i:
000100: 3D 31 20 74 6F 20 31 30 30 30 20 64 6F 20 20 20 =1 to 1000 do
000110: 20 20 20 20 20 20 7B 64 65 73 73 69 6E 65 20 61 {dessine a
000120: 6C 65 61 74 6F 69 72 65 6D 65 6E 74 20 31 30 30 leatoirement 100
000130: 30 20 70 6F 69 6E 74 73 20 73 75 72 20 65 63 72 0 points sur ecr
000140: 61 6E 20 66 6F 72 6D 61 74 20 49 42 4D 7D 0D 0A an format IBM}..
000150: 20 20 20 20 20 44 72 61 77 50 6F 69 6E 74 28 72 DrawPoint(r
000160: 61 6E 64 6F 6D 28 36 33 39 29 2C 72 61 6E 64 6F andom(639),rando
000170: 6D 28 31 39 39 29 29 3B 0D 0A 0D 0A 20 20 72 65 m(199));.... re
000180: 70 65 61 74 20 75 6E 74 69 6C 20 6B 65 79 70 72 peat until keypr
000190: 65 73 73 65 64 3B 20 20 20 20 7B 61 74 74 65 6E essed; {atten
0001A0: 64 20 6A 75 73 71 75 27 27 61 20 63 65 20 71 75 d jusqu''a ce qu
0001B0: 27 27 75 6E 65 20 74 6F 75 63 68 65 20 73 6F 69 ''une touche soi
0001C0: 74 20 66 72 61 70 70 65 65 7D 0D 0A 20 20 4C 65 t frappee}.. Le
0001D0: 61 76 65 47 72 61 70 68 69 63 3B 0D 0A 65 6E 64 aveGraphic;..end
0001E0: 2E 0D 0A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0001F0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
Size : 512 (Real : 512)
000000: 70 72 6F 67 72 61 6D 20 44 72 61 77 4C 69 6E 65 program DrawLine
000010: 3B 0D 0A 0D 0A 7B 24 49 20 74 79 70 65 64 65 66 ;....{$I typedef
000020: 2E 73 79 73 7D 20 20 20 20 20 20 20 20 20 20 20 .sys}
000030: 20 20 20 20 20 7B 69 6E 63 6C 75 73 20 6C 65 73 {inclus les
000040: 20 67 72 61 70 68 69 71 75 65 73 20 7D 0D 0A 7B graphiques }..{
000050: 24 49 20 67 72 61 70 68 69 78 2E 73 79 73 7D 0D $I graphix.sys}.
000060: 0A 7B 24 49 20 6B 65 72 6E 65 6C 2E 73 79 73 7D .{$I kernel.sys}
000070: 0D 0A 7B 24 49 20 6B 65 72 6E 65 6C 31 2E 73 79 ..{$I kernel1.sy
000080: 73 7D 0D 0A 0D 0A 76 61 72 20 69 3A 69 6E 74 65 s}....var i:inte
000090: 67 65 72 3B 0D 0A 0D 0A 62 65 67 69 6E 0D 0A 20 ger;....begin..
0000A0: 20 49 6E 69 74 47 72 61 70 68 69 63 3B 20 20 20 InitGraphic;
0000B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7B {
0000C0: 69 6E 69 74 69 61 6C 69 73 65 20 6C 65 73 20 67 initialise les g
0000D0: 72 61 70 68 69 71 75 65 73 20 7D 0D 0A 20 20 44 raphiques }.. D
0000E0: 72 61 77 42 6F 72 64 65 72 3B 0D 0A 0D 0A 20 20 rawBorder;....
0000F0: 44 65 66 69 6E 65 57 6F 72 6C 64 28 31 2C 30 2C DefineWorld(1,0,
000100: 31 30 30 30 2C 31 30 30 30 2C 30 29 3B 20 7B 64 1000,1000,0); {d
000110: 65 66 69 6E 69 74 20 75 6E 20 6D 6F 6E 64 65 20 efinit un monde
000120: 61 20 64 65 73 73 69 6E 65 72 20 7D 0D 0A 20 20 a dessiner }..
000130: 53 65 6C 65 63 74 57 6F 72 6C 64 28 31 29 3B 0D SelectWorld(1);.
000140: 0A 20 20 53 65 6C 65 63 74 57 69 6E 64 6F 77 28 . SelectWindow(
000150: 31 29 3B 0D 0A 0D 0A 20 20 44 72 61 77 4C 69 6E 1);.... DrawLin
000160: 65 28 30 2C 31 30 30 30 2C 31 30 30 30 2C 30 29 e(0,1000,1000,0)
000170: 3B 20 20 20 20 20 20 7B 74 72 61 63 65 20 6C 61 ; {trace la
000180: 20 6C 69 67 6E 65 7D 0D 0A 0D 0A 20 20 72 65 70 ligne}.... rep
000190: 65 61 74 20 75 6E 74 69 6C 20 6B 65 79 70 72 65 eat until keypre
0001A0: 73 73 65 64 3B 20 20 20 20 20 20 7B 61 74 74 65 ssed; {atte
0001B0: 6E 64 20 6A 75 73 71 75 27 27 61 20 63 65 20 71 nd jusqu''a ce q
0001C0: 27 27 20 75 6E 65 20 74 6F 75 63 68 65 20 73 6F '' une touche so
0001D0: 69 74 20 66 72 61 70 70 65 65 7D 0D 0A 20 20 4C it frappee}.. L
0001E0: 65 61 76 65 47 72 61 70 68 69 63 3B 20 20 20 20 eaveGraphic;
0001F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 7B 71 75 {qu
Size : 512 (Real : 512)
000000: 66 79 20 30 20 6F 72 20 31 29 24 5C 50 72 6F 67 fy 0 or 1)$\Prog
000010: 72 61 6D 20 65 72 72 6F 72 3A 20 43 61 73 73 65 ram error: Casse
000020: 74 74 65 20 73 74 72 65 61 6D 20 6E 6F 74 20 6F tte stream not o
000030: 70 65 6E 24 5C 43 50 2F 4D 20 66 69 6C 65 20 64 pen$\CP/M file d
000040: 6F 65 73 20 6E 6F 74 20 65 78 69 73 74 24 5C 46 oes not exist$\F
000050: 61 69 6C 65 64 20 74 6F 20 72 65 6E 61 6D 65 20 ailed to rename
000060: 74 65 6D 70 6F 72 61 72 79 20 66 69 6C 65 24 E5 temporary file$.
000070: C5 46 23 E5 B7 05 CA 81 07 23 BE 23 C2 74 07 E3 .F#......#.#.t..
000080: 37 E1 7E C1 E1 C9 C5 4F 46 23 E5 B7 05 CA 99 07 7.~....OF#......
000090: 23 23 BE 23 C2 8B 07 E3 37 E1 7E 23 66 6F 79 C1 ##.#....7.~#foy.
0000A0: C9 C5 4F 46 23 E5 B7 05 CA BD 07 23 23 7B BE 23 ..OF#......##{.#
0000B0: 7A 23 C2 A6 07 2B BE 23 C2 A6 07 E3 37 E1 7E 23 z#...+.#....7.~#
0000C0: 66 6F 79 C1 C9 00 00 00 00 00 00 00 00 00 00 00 foy.............
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: 64 20 43 50 2F 4D 20 66 69 6C 65 6E 61 6D 65 24 d CP/M filename$
000110: 5C 43 61 6E 6E 6F 74 20 72 65 61 64 20 70 72 6F \Cannot read pro
000120: 74 65 63 74 65 64 20 63 61 73 73 65 74 74 65 20 tected cassette
000130: 66 69 6C 65 73 24 5C 50 72 6F 67 72 61 6D 20 65 files$\Program e
000140: 72 72 6F 72 3A 20 43 61 73 73 65 74 74 65 20 73 rror: Cassette s
000150: 74 72 65 61 6D 20 69 6E 20 75 73 65 24 5C 2A 2A tream in use$\**
000160: 20 42 72 65 61 6B 20 2A 2A 24 5C 43 50 2F 4D 20 Break **$\CP/M
000170: 66 69 6C 65 20 61 6C 72 65 61 64 79 20 65 78 69 file already exi
000180: 73 74 73 24 5C 44 69 73 63 20 64 69 72 65 63 74 sts$\Disc direct
000190: 6F 72 79 20 66 75 6C 6C 24 5C 44 69 73 63 20 6F ory full$\Disc o
0001A0: 72 20 64 69 72 65 63 74 6F 72 79 20 66 75 6C 6C r directory full
0001B0: 24 5C 46 61 69 6C 65 64 20 74 6F 20 63 6C 6F 73 $\Failed to clos
0001C0: 65 20 43 50 2F 4D 20 66 69 6C 65 20 63 6F 72 72 e CP/M file corr
0001D0: 65 63 74 6C 79 24 5C 49 6E 76 61 6C 69 64 20 73 ectly$\Invalid s
0001E0: 70 65 65 64 20 73 65 74 74 69 6E 67 20 28 79 6F peed setting (yo
0001F0: 75 20 6D 61 79 20 6F 6E 6C 79 20 73 70 65 63 69 u may only speci
Size : 512 (Real : 512)
000000: 69 74 74 65 20 6C 65 20 67 72 61 70 68 69 73 6D itte le graphism
000010: 65 7D 0D 0A 65 6E 64 2E 0D 0A 1A 1A 1A 1A 1A 1A e}..end.........
000020: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000030: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000040: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000050: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000060: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000070: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000080: 73 7D 0D 0A 0D 0A 76 61 72 20 69 3A 69 6E 74 65 s}....var i:inte
000090: 67 65 72 3B 0D 0A 0D 0A 62 65 67 69 6E 0D 0A 20 ger;....begin..
0000A0: 20 49 6E 69 74 47 72 61 70 68 69 63 3B 20 20 20 InitGraphic;
0000B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7B {
0000C0: 69 6E 69 74 69 61 6C 69 73 65 20 6C 65 73 20 67 initialise les g
0000D0: 72 61 70 68 69 71 75 65 73 20 7D 0D 0A 20 20 44 raphiques }.. D
0000E0: 72 61 77 42 6F 72 64 65 72 3B 0D 0A 0D 0A 20 20 rawBorder;....
0000F0: 44 65 66 69 6E 65 57 6F 72 6C 64 28 31 2C 30 2C DefineWorld(1,0,
000100: 31 30 30 30 2C 31 30 30 30 2C 30 29 3B 20 7B 64 1000,1000,0); {d
000110: 65 66 69 6E 69 74 20 75 6E 20 6D 6F 6E 64 65 20 efinit un monde
000120: 61 20 64 65 73 73 69 6E 65 72 20 7D 0D 0A 20 20 a dessiner }..
000130: 53 65 6C 65 63 74 57 6F 72 6C 64 28 31 29 3B 0D SelectWorld(1);.
000140: 0A 20 20 53 65 6C 65 63 74 57 69 6E 64 6F 77 28 . SelectWindow(
000150: 31 29 3B 0D 0A 0D 0A 20 20 44 72 61 77 4C 69 6E 1);.... DrawLin
000160: 65 28 30 2C 31 30 30 30 2C 31 30 30 30 2C 30 29 e(0,1000,1000,0)
000170: 3B 20 20 20 20 20 20 7B 74 72 61 63 65 20 6C 61 ; {trace la
000180: 20 6C 69 67 6E 65 7D 0D 0A 0D 0A 20 20 72 65 70 ligne}.... rep
000190: 65 61 74 20 75 6E 74 69 6C 20 6B 65 79 70 72 65 eat until keypre
0001A0: 73 73 65 64 3B 20 20 20 20 20 20 7B 61 74 74 65 ssed; {atte
0001B0: 6E 64 20 6A 75 73 71 75 27 27 61 20 63 65 20 71 nd jusqu''a ce q
0001C0: 27 27 20 75 6E 65 20 74 6F 75 63 68 65 20 73 6F '' une touche so
0001D0: 69 74 20 66 72 61 70 70 65 65 7D 0D 0A 20 20 4C it frappee}.. L
0001E0: 65 61 76 65 47 72 61 70 68 69 63 3B 20 20 20 20 eaveGraphic;
0001F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 7B 71 75 {qu
Size : 512 (Real : 512)
000000: 70 72 6F 67 72 61 6D 20 44 72 61 77 53 71 75 61 program DrawSqua
000010: 72 65 73 3B 0D 0A 0D 0A 7B 24 49 20 74 79 70 65 res;....{$I type
000020: 64 65 66 2E 73 79 73 7D 20 20 20 20 20 20 20 20 def.sys}
000030: 20 20 20 20 20 20 20 20 20 20 7B 69 6E 63 6C 75 {inclu
000040: 73 20 6C 65 73 20 63 6F 64 65 73 20 67 72 61 70 s les codes grap
000050: 68 69 71 75 65 73 7D 0D 0A 7B 24 49 20 67 72 61 hiques}..{$I gra
000060: 70 68 69 78 2E 73 79 73 7D 0D 0A 7B 24 49 20 6B phix.sys}..{$I k
000070: 65 72 6E 65 6C 2E 73 79 73 7D 0D 0A 7B 24 49 20 ernel.sys}..{$I
000080: 6B 65 72 6E 65 6C 31 2E 73 79 73 7D 0D 0A 0D 0A kernel1.sys}....
000090: 76 61 72 20 69 3A 69 6E 74 65 67 65 72 3B 0D 0A var i:integer;..
0000A0: 0D 0A 62 65 67 69 6E 0D 0A 20 20 49 6E 69 74 47 ..begin.. InitG
0000B0: 72 61 70 68 69 63 3B 20 20 20 20 20 20 20 20 20 raphic;
0000C0: 20 20 20 20 20 20 20 20 20 20 20 7B 69 6E 69 74 {init
0000D0: 69 61 6C 69 73 65 20 6C 65 20 73 79 73 74 65 6D ialise le system
0000E0: 65 20 65 74 20 6C 27 27 65 63 72 61 6E 7D 0D 0A e et l''ecran}..
0000F0: 0D 0A 20 20 44 65 66 69 6E 65 57 6F 72 6C 64 28 .. DefineWorld(
000100: 31 2C 30 2C 31 30 30 30 2C 31 30 30 30 2C 30 29 1,0,1000,1000,0)
000110: 3B 20 20 20 7B 64 65 66 69 6E 69 74 20 75 6E 20 ; {definit un
000120: 6D 6F 6E 64 65 20 61 20 64 65 73 73 69 6E 65 72 monde a dessiner
000130: 7D 0D 0A 20 20 53 65 6C 65 63 74 57 6F 72 6C 64 }.. SelectWorld
000140: 28 31 29 3B 20 20 20 20 20 20 20 20 20 20 20 20 (1);
000150: 20 20 20 20 20 7B 73 6F 6E 20 63 68 6F 69 78 7D {son choix}
000160: 0D 0A 20 20 53 65 6C 65 63 74 57 69 6E 64 6F 77 .. SelectWindow
000170: 28 31 29 3B 0D 0A 20 20 44 72 61 77 42 6F 72 64 (1);.. DrawBord
000180: 65 72 3B 0D 0A 0D 0A 20 20 66 6F 72 20 69 3A 3D er;.... for i:=
000190: 31 20 74 6F 20 32 30 20 64 6F 20 44 72 61 77 53 1 to 20 do DrawS
0001A0: 71 75 61 72 65 28 35 30 30 2D 69 2A 32 35 2C 35 quare(500-i*25,5
0001B0: 30 30 2D 69 2A 32 35 2C 35 30 30 2B 69 2A 32 35 00-i*25,500+i*25
0001C0: 2C 35 30 30 2B 69 2A 32 35 2C 66 61 6C 73 65 29 ,500+i*25,false)
0001D0: 3B 0D 0A 0D 0A 20 20 72 65 70 65 61 74 20 75 6E ;.... repeat un
0001E0: 74 69 6C 20 6B 65 79 70 72 65 73 73 65 64 3B 20 til keypressed;
0001F0: 20 20 20 20 20 20 20 7B 61 74 74 65 6E 64 20 6A {attend j
Size : 512 (Real : 512)
000000: 20 74 65 78 74 65 7D 0D 0A 20 20 77 72 69 74 65 texte}.. write
000010: 6C 6E 28 27 2A 20 3C 2D 20 43 61 20 73 65 72 61 ln('* <- Ca sera
000020: 20 61 75 20 63 65 6E 74 72 65 20 64 65 20 6C 27 au centre de l'
000030: 27 65 63 72 61 6E 20 27 29 3B 20 20 7B 64 65 75 'ecran '); {deu
000040: 78 20 6C 69 67 6E 65 73 20 64 65 20 74 65 78 74 x lignes de text
000050: 65 7D 0D 0A 20 20 77 72 69 74 65 28 27 43 61 20 e}.. write('Ca
000060: 73 65 72 61 20 6C 61 20 70 72 6F 63 68 61 69 6E sera la prochain
000070: 65 20 6C 69 67 6E 65 27 29 3B 0D 0A 0D 0A 20 20 e ligne');....
000080: 43 68 61 72 57 69 64 74 68 3A 3D 4D 61 78 57 6F CharWidth:=MaxWo
000090: 72 6C 64 58 2F 38 30 3B 20 20 20 20 20 20 7B 63 rldX/80; {c
0000A0: 61 6C 63 75 6C 65 20 6C 61 20 6C 61 72 67 65 75 alcule la largeu
0000B0: 72 20 64 75 20 63 61 72 61 63 74 65 72 65 7D 0D r du caractere}.
0000C0: 0A 20 20 43 68 61 72 48 65 69 67 68 74 3A 3D 4D . CharHeight:=M
0000D0: 61 78 57 6F 72 6C 64 59 2F 32 35 3B 20 20 20 20 axWorldY/25;
0000E0: 20 7B 63 61 6C 63 75 6C 65 20 6C 61 20 68 61 75 {calcule la hau
0000F0: 74 65 75 72 20 64 75 20 63 61 72 61 63 74 65 72 teur du caracter
000100: 65 7D 0D 0A 0D 0A 20 20 44 72 61 77 53 71 75 61 e}.... DrawSqua
000110: 72 65 28 39 2A 43 68 61 72 57 69 64 74 68 2C 37 re(9*CharWidth,7
000120: 2A 43 68 61 72 48 65 69 67 68 74 2C 20 20 20 20 *CharHeight,
000130: 20 7B 74 72 61 63 65 20 75 6E 65 20 62 6F 69 74 {trace une boit
000140: 65 20 5B 31 30 2C 38 5D 7D 0D 0A 20 20 20 20 20 e [10,8]}..
000150: 20 20 20 20 20 20 20 20 28 32 32 2A 43 68 61 72 (22*Char
000160: 57 69 64 74 68 29 2B 32 2C 28 38 2A 43 68 61 72 Width)+2,(8*Char
000170: 48 65 69 67 68 74 29 2B 32 2C 74 72 75 65 29 3B Height)+2,true);
000180: 0D 0A 0D 0A 20 20 47 6F 74 6F 58 59 28 31 30 2C .... GotoXY(10,
000190: 38 29 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 8);
0001A0: 20 20 20 20 7B 65 63 72 69 74 20 6C 65 20 74 65 {ecrit le te
0001B0: 78 74 65 20 64 65 64 61 6E 73 7D 0D 0A 20 20 77 xte dedans}.. w
0001C0: 72 69 74 65 28 27 54 65 78 74 65 20 64 61 6E 73 rite('Texte dans
0001D0: 20 75 6E 65 20 62 6F 69 74 65 27 29 3B 0D 0A 0D une boite');...
0001E0: 0A 20 20 72 65 70 65 61 74 20 75 6E 74 69 6C 20 . repeat until
0001F0: 6B 65 79 70 72 65 73 73 65 64 3B 20 20 20 20 20 keypressed;
Size : 512 (Real : 512)
000000: 75 73 71 75 27 27 61 20 75 6E 65 20 74 6F 75 63 usqu''a une touc
000010: 68 65 20 73 6F 69 74 20 66 72 61 70 70 65 65 7D he soit frappee}
000020: 0D 0A 20 20 4C 65 61 76 65 47 72 61 70 68 69 63 .. LeaveGraphic
000030: 3B 0D 0A 65 6E 64 2E 0D 0A 1A 1A 1A 1A 1A 1A 1A ;..end..........
000040: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000050: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000060: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000070: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000080: 6B 65 72 6E 65 6C 31 2E 73 79 73 7D 0D 0A 0D 0A kernel1.sys}....
000090: 76 61 72 20 69 3A 69 6E 74 65 67 65 72 3B 0D 0A var i:integer;..
0000A0: 0D 0A 62 65 67 69 6E 0D 0A 20 20 49 6E 69 74 47 ..begin.. InitG
0000B0: 72 61 70 68 69 63 3B 20 20 20 20 20 20 20 20 20 raphic;
0000C0: 20 20 20 20 20 20 20 20 20 20 20 7B 69 6E 69 74 {init
0000D0: 69 61 6C 69 73 65 20 6C 65 20 73 79 73 74 65 6D ialise le system
0000E0: 65 20 65 74 20 6C 27 27 65 63 72 61 6E 7D 0D 0A e et l''ecran}..
0000F0: 0D 0A 20 20 44 65 66 69 6E 65 57 6F 72 6C 64 28 .. DefineWorld(
000100: 31 2C 30 2C 31 30 30 30 2C 31 30 30 30 2C 30 29 1,0,1000,1000,0)
000110: 3B 20 20 20 7B 64 65 66 69 6E 69 74 20 75 6E 20 ; {definit un
000120: 6D 6F 6E 64 65 20 61 20 64 65 73 73 69 6E 65 72 monde a dessiner
000130: 7D 0D 0A 20 20 53 65 6C 65 63 74 57 6F 72 6C 64 }.. SelectWorld
000140: 28 31 29 3B 20 20 20 20 20 20 20 20 20 20 20 20 (1);
000150: 20 20 20 20 20 7B 73 6F 6E 20 63 68 6F 69 78 7D {son choix}
000160: 0D 0A 20 20 53 65 6C 65 63 74 57 69 6E 64 6F 77 .. SelectWindow
000170: 28 31 29 3B 0D 0A 20 20 44 72 61 77 42 6F 72 64 (1);.. DrawBord
000180: 65 72 3B 0D 0A 0D 0A 20 20 66 6F 72 20 69 3A 3D er;.... for i:=
000190: 31 20 74 6F 20 32 30 20 64 6F 20 44 72 61 77 53 1 to 20 do DrawS
0001A0: 71 75 61 72 65 28 35 30 30 2D 69 2A 32 35 2C 35 quare(500-i*25,5
0001B0: 30 30 2D 69 2A 32 35 2C 35 30 30 2B 69 2A 32 35 00-i*25,500+i*25
0001C0: 2C 35 30 30 2B 69 2A 32 35 2C 66 61 6C 73 65 29 ,500+i*25,false)
0001D0: 3B 0D 0A 0D 0A 20 20 72 65 70 65 61 74 20 75 6E ;.... repeat un
0001E0: 74 69 6C 20 6B 65 79 70 72 65 73 73 65 64 3B 20 til keypressed;
0001F0: 20 20 20 20 20 20 20 7B 61 74 74 65 6E 64 20 6A {attend j
Size : 512 (Real : 512)
000000: 20 7B 61 74 74 65 6E 64 20 6A 75 73 71 75 27 27 {attend jusqu''
000010: 61 20 75 6E 65 20 74 6F 75 63 68 65 20 73 6F 69 a une touche soi
000020: 74 20 66 72 61 70 70 65 65 7D 0D 0A 20 20 4C 65 t frappee}.. Le
000030: 61 76 65 47 72 61 70 68 69 63 3B 20 20 20 20 20 aveGraphic;
000040: 20 20 20 20 20 20 20 20 20 20 20 20 7B 71 75 69 {qui
000050: 74 74 65 20 6C 65 20 67 72 61 70 68 69 73 6D 65 tte le graphisme
000060: 7D 0D 0A 65 6E 64 2E 1A 1A 1A 1A 1A 1A 1A 1A 1A }..end..........
000070: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000080: 43 68 61 72 57 69 64 74 68 3A 3D 4D 61 78 57 6F CharWidth:=MaxWo
000090: 72 6C 64 58 2F 38 30 3B 20 20 20 20 20 20 7B 63 rldX/80; {c
0000A0: 61 6C 63 75 6C 65 20 6C 61 20 6C 61 72 67 65 75 alcule la largeu
0000B0: 72 20 64 75 20 63 61 72 61 63 74 65 72 65 7D 0D r du caractere}.
0000C0: 0A 20 20 43 68 61 72 48 65 69 67 68 74 3A 3D 4D . CharHeight:=M
0000D0: 61 78 57 6F 72 6C 64 59 2F 32 35 3B 20 20 20 20 axWorldY/25;
0000E0: 20 7B 63 61 6C 63 75 6C 65 20 6C 61 20 68 61 75 {calcule la hau
0000F0: 74 65 75 72 20 64 75 20 63 61 72 61 63 74 65 72 teur du caracter
000100: 65 7D 0D 0A 0D 0A 20 20 44 72 61 77 53 71 75 61 e}.... DrawSqua
000110: 72 65 28 39 2A 43 68 61 72 57 69 64 74 68 2C 37 re(9*CharWidth,7
000120: 2A 43 68 61 72 48 65 69 67 68 74 2C 20 20 20 20 *CharHeight,
000130: 20 7B 74 72 61 63 65 20 75 6E 65 20 62 6F 69 74 {trace une boit
000140: 65 20 5B 31 30 2C 38 5D 7D 0D 0A 20 20 20 20 20 e [10,8]}..
000150: 20 20 20 20 20 20 20 20 28 32 32 2A 43 68 61 72 (22*Char
000160: 57 69 64 74 68 29 2B 32 2C 28 38 2A 43 68 61 72 Width)+2,(8*Char
000170: 48 65 69 67 68 74 29 2B 32 2C 74 72 75 65 29 3B Height)+2,true);
000180: 0D 0A 0D 0A 20 20 47 6F 74 6F 58 59 28 31 30 2C .... GotoXY(10,
000190: 38 29 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 8);
0001A0: 20 20 20 20 7B 65 63 72 69 74 20 6C 65 20 74 65 {ecrit le te
0001B0: 78 74 65 20 64 65 64 61 6E 73 7D 0D 0A 20 20 77 xte dedans}.. w
0001C0: 72 69 74 65 28 27 54 65 78 74 65 20 64 61 6E 73 rite('Texte dans
0001D0: 20 75 6E 65 20 62 6F 69 74 65 27 29 3B 0D 0A 0D une boite');...
0001E0: 0A 20 20 72 65 70 65 61 74 20 75 6E 74 69 6C 20 . repeat until
0001F0: 6B 65 79 70 72 65 73 73 65 64 3B 20 20 20 20 20 keypressed;
Size : 512 (Real : 512)
000000: 70 72 6F 67 72 61 6D 20 73 69 6D 70 6C 65 3B 0D program simple;.
000010: 0A 0D 0A 7B 24 49 20 74 79 70 65 64 65 66 2E 73 ...{$I typedef.s
000020: 79 73 7D 20 20 20 20 20 20 20 20 20 20 20 20 20 ys}
000030: 20 20 20 20 20 20 20 20 20 20 7B 63 65 73 20 66 {ces f
000040: 69 63 68 69 65 72 73 20 64 6F 69 76 65 6E 74 20 ichiers doivent
000050: 65 74 72 65 7D 0D 0A 7B 24 49 20 67 72 61 70 68 etre}..{$I graph
000060: 69 78 2E 73 79 73 7D 20 20 20 20 20 20 20 20 20 ix.sys}
000070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7B 69 {i
000080: 6E 63 6C 75 73 20 64 61 6E 73 20 63 65 74 20 6F nclus dans cet o
000090: 72 64 72 65 7D 0D 0A 7B 24 49 20 6B 65 72 6E 65 rdre}..{$I kerne
0000A0: 6C 2E 73 79 73 7D 0D 0A 7B 24 49 20 6B 65 72 6E l.sys}..{$I kern
0000B0: 65 6C 31 2E 73 79 73 7D 0D 0A 0D 0A 0D 0A 62 65 el1.sys}......be
0000C0: 67 69 6E 0D 0A 0D 0A 49 6E 69 74 47 72 61 70 68 gin....InitGraph
0000D0: 69 63 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 ic;
0000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7B 69 {i
0000F0: 6E 69 74 69 61 6C 69 73 65 20 6C 65 73 20 67 72 nitialise les gr
000100: 61 70 68 69 73 6D 65 73 7D 0D 0A 0D 0A 0D 0A 44 aphismes}......D
000110: 72 61 77 42 6F 72 64 65 72 3B 20 20 20 20 20 20 rawBorder;
000120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000130: 20 20 20 20 20 20 7B 74 72 61 63 65 20 75 6E 65 {trace une
000140: 20 62 6F 72 64 75 72 65 20 61 75 74 6F 75 72 20 bordure autour
000150: 64 75 20 64 65 73 73 69 6E 7D 0D 0A 20 20 20 20 du dessin}..
000160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000180: 20 20 20 7B 61 69 72 65 20 64 65 20 6C 61 20 66 {aire de la f
000190: 65 6E 65 74 72 65 20 70 72 69 6D 61 69 72 65 7D enetre primaire}
0001A0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
0001B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001C0: 20 20 20 20 20 20 20 20 20 7B 28 6C 65 73 20 64 {(les d
0001D0: 69 6D 65 6E 73 69 6F 6E 73 20 64 65 20 6C 61 20 imensions de la
0001E0: 66 65 6E 65 74 72 65 20 70 72 69 6D 61 69 72 65 fenetre primaire
0001F0: 7D 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 }..
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000010: 20 20 20 20 20 20 20 20 20 20 7B 20 70 61 72 20 { par
000020: 64 65 66 61 75 74 20 61 20 36 34 30 78 32 30 30 defaut a 640x200
000030: 20 70 6F 69 6E 74 73 29 7D 0D 0A 0D 0A 0D 0A 44 points)}......D
000040: 72 61 77 4C 69 6E 65 28 31 30 2C 31 30 2C 36 30 rawLine(10,10,60
000050: 30 2C 31 38 30 29 3B 20 20 20 20 20 20 20 20 20 0,180);
000060: 20 20 20 20 20 20 7B 74 72 61 63 65 20 75 6E 65 {trace une
000070: 20 6C 69 67 6E 65 7D 0D 0A 0D 0A 44 72 61 77 53 ligne}....DrawS
000080: 71 75 61 72 65 28 31 30 2C 31 30 2C 36 30 30 2C quare(10,10,600,
000090: 31 38 30 2C 66 61 6C 73 65 29 3B 20 20 20 20 20 180,false);
0000A0: 20 20 7B 74 72 61 63 65 20 75 6E 20 63 61 72 72 {trace un carr
0000B0: 65 7D 0D 0A 0D 0A 44 72 61 77 4C 69 6E 65 28 2D e}....DrawLine(-
0000C0: 31 30 30 2C 2D 32 30 2C 37 35 30 2C 33 32 30 29 100,-20,750,320)
0000D0: 3B 20 20 20 20 20 20 20 20 20 20 20 20 7B 74 72 ; {tr
0000E0: 61 63 65 20 75 6E 65 20 6C 69 67 6E 65 20 70 6F ace une ligne po
0000F0: 75 72 20 64 65 6D 6F 6E 74 72 65 72 7D 0D 0A 0D ur demontrer}...
000100: 0A 72 65 70 65 61 74 20 75 6E 74 69 6C 20 6B 65 .repeat until ke
000110: 79 70 72 65 73 73 65 64 3B 20 20 20 20 20 20 20 ypressed;
000120: 20 20 20 20 20 20 20 20 7B 67 65 6C 65 20 6C 27 {gele l'
000130: 27 65 63 72 61 6E 20 6A 75 73 71 75 27 27 61 20 'ecran jusqu''a
000140: 63 65 20 75 6E 65 20 74 6F 75 63 68 65 20 73 6F ce une touche so
000150: 69 74 20 66 72 61 70 70 65 65 7D 0D 0A 0D 0A 4C it frappee}....L
000160: 65 61 76 65 47 72 61 70 68 69 63 3B 20 20 20 20 eaveGraphic;
000170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000180: 20 20 20 20 20 20 7B 71 75 69 74 74 65 20 6C 65 {quitte le
000190: 73 20 67 72 61 70 68 69 73 6D 65 73 7D 0D 0A 0D s graphismes}...
0001A0: 0A 65 6E 64 2E 0D 0A 1A 1A 1A 1A 1A 1A 1A 1A 1A .end............
0001B0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0001C0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0001D0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0001E0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0001F0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
Size : 512 (Real : 512)
000000: 70 72 6F 67 72 61 6D 20 4D 75 6C 74 69 70 6C 65 program Multiple
000010: 57 69 6E 64 6F 77 73 3B 0D 0A 0D 0A 7B 24 49 20 Windows;....{$I
000020: 74 79 70 65 64 65 66 2E 73 79 73 7D 20 20 20 20 typedef.sys}
000030: 20 20 20 20 20 20 20 20 20 7B 43 65 73 20 66 69 {Ces fi
000040: 63 68 69 65 72 73 20 64 6F 69 76 65 6E 74 20 65 chiers doivent e
000050: 74 72 65 7D 0D 0A 7B 24 49 20 67 72 61 70 68 69 tre}..{$I graphi
000060: 78 2E 73 79 73 7D 20 20 20 20 20 20 20 20 20 20 x.sys}
000070: 20 20 20 7B 69 6E 63 6C 75 73 20 64 61 6E 73 20 {inclus dans
000080: 63 65 74 20 6F 72 64 72 65 7D 0D 0A 7B 24 49 20 cet ordre}..{$I
000090: 6B 65 72 6E 65 6C 2E 73 79 73 7D 0D 0A 7B 24 49 kernel.sys}..{$I
0000A0: 20 6B 65 72 6E 65 6C 31 2E 73 79 73 7D 0D 0A 0D kernel1.sys}...
0000B0: 0A 76 61 72 20 69 3A 20 69 6E 74 65 67 65 72 3B .var i: integer;
0000C0: 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 65 20 44 72 ....procedure Dr
0000D0: 61 77 4C 69 6E 65 73 3B 0D 0A 76 61 72 20 69 3A awLines;..var i:
0000E0: 69 6E 74 65 67 65 72 3B 0D 0A 62 65 67 69 6E 0D integer;..begin.
0000F0: 0A 20 20 66 6F 72 20 69 3A 3D 31 20 74 6F 20 32 . for i:=1 to 2
000100: 30 20 64 6F 20 44 72 61 77 4C 69 6E 65 28 69 2A 0 do DrawLine(i*
000110: 35 30 2C 30 2C 31 30 30 30 2D 69 2A 35 30 2C 69 50,0,1000-i*50,i
000120: 2A 35 30 29 3B 0D 0A 65 6E 64 3B 0D 0A 0D 0A 0D *50);..end;.....
000130: 0A 62 65 67 69 6E 0D 0A 0D 0A 49 6E 69 74 47 72 .begin....InitGr
000140: 61 70 68 69 63 3B 20 20 20 20 20 20 20 20 20 20 aphic;
000150: 20 20 20 20 20 20 20 7B 69 6E 69 74 69 61 6C 69 {initiali
000160: 73 65 20 6C 65 73 20 20 67 72 61 70 68 69 73 6D se les graphism
000170: 65 73 20 7D 0D 0A 0D 0A 0D 0A 44 72 61 77 42 6F es }......DrawBo
000180: 72 64 65 72 3B 20 20 20 20 20 20 20 20 20 20 20 rder;
000190: 20 20 20 20 20 20 20 7B 74 72 61 63 65 20 75 6E {trace un
0001A0: 65 20 62 6F 72 64 75 72 65 20 61 75 74 6F 75 72 e bordure autour
0001B0: 20 64 75 20 64 65 73 73 69 6E 7D 0D 0A 20 20 20 du dessin}..
0001C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001D0: 20 20 20 20 20 20 20 20 20 20 7B 61 69 72 65 20 {aire
0001E0: 64 65 20 6C 61 20 66 65 6E 65 74 72 65 20 70 72 de la fenetre pr
0001F0: 69 6D 61 69 72 65 7D 0D 0A 20 20 20 20 20 20 20 imaire}..
Size : 512 (Real : 512)
000000: 70 72 6F 67 72 61 6D 20 44 72 61 77 53 74 61 6E program DrawStan
000010: 64 61 72 64 54 65 78 74 3B 0D 0A 0D 0A 7B 24 49 dardText;....{$I
000020: 20 74 79 70 65 64 65 66 2E 73 79 73 7D 20 20 20 typedef.sys}
000030: 20 20 20 20 20 20 20 20 20 20 20 20 20 7B 69 6E {in
000040: 63 6C 75 73 20 6C 65 73 20 20 67 72 61 70 68 69 clus les graphi
000050: 73 6D 65 73 7D 0D 0A 7B 24 49 20 67 72 61 70 68 smes}..{$I graph
000060: 69 78 2E 73 79 73 7D 0D 0A 7B 24 49 20 6B 65 72 ix.sys}..{$I ker
000070: 6E 65 6C 2E 73 79 73 7D 0D 0A 7B 24 49 20 6B 65 nel.sys}..{$I ke
000080: 72 6E 65 6C 31 2E 73 79 73 7D 0D 0A 0D 0A 63 6F rnel1.sys}....co
000090: 6E 73 74 20 4D 61 78 57 6F 72 6C 64 58 3A 20 72 nst MaxWorldX: r
0000A0: 65 61 6C 3D 31 30 30 30 2E 30 3B 0D 0A 20 20 20 eal=1000.0;..
0000B0: 20 20 20 4D 61 78 57 6F 72 6C 64 59 3A 20 72 65 MaxWorldY: re
0000C0: 61 6C 3D 31 30 30 30 2E 30 3B 0D 0A 0D 0A 76 61 al=1000.0;....va
0000D0: 72 20 69 3A 69 6E 74 65 67 65 72 3B 0D 0A 20 20 r i:integer;..
0000E0: 20 20 43 68 61 72 48 65 69 67 68 74 2C 43 68 61 CharHeight,Cha
0000F0: 72 57 69 64 74 68 3A 72 65 61 6C 3B 0D 0A 0D 0A rWidth:real;....
000100: 62 65 67 69 6E 0D 0A 20 20 49 6E 69 74 47 72 61 begin.. InitGra
000110: 70 68 69 63 3B 20 20 20 20 20 20 20 20 20 20 20 phic;
000120: 20 20 20 20 20 20 20 7B 69 6E 69 74 69 61 6C 69 {initiali
000130: 73 65 20 6C 65 73 20 67 72 61 70 68 69 73 6D 65 se les graphisme
000140: 73 7D 0D 0A 0D 0A 20 20 44 65 66 69 6E 65 57 6F s}.... DefineWo
000150: 72 6C 64 28 31 2C 30 2C 4D 61 78 57 6F 72 6C 64 rld(1,0,MaxWorld
000160: 58 2C 4D 61 78 57 6F 72 6C 64 58 2C 30 29 3B 20 X,MaxWorldX,0);
000170: 7B 64 65 66 69 6E 69 74 20 75 6E 20 6D 6F 6E 64 {definit un mond
000180: 65 20 61 20 64 65 73 73 69 6E 65 72 7D 0D 0A 20 e a dessiner}..
000190: 20 53 65 6C 65 63 74 57 6F 72 6C 64 28 31 29 3B SelectWorld(1);
0001A0: 0D 0A 20 20 53 65 6C 65 63 74 57 69 6E 64 6F 77 .. SelectWindow
0001B0: 28 31 29 3B 0D 0A 20 20 44 72 61 77 42 6F 72 64 (1);.. DrawBord
0001C0: 65 72 3B 0D 0A 0D 0A 20 20 47 6F 74 6F 58 59 28 er;.... GotoXY(
0001D0: 33 39 2C 31 32 29 3B 20 20 20 20 20 20 20 20 20 39,12);
0001E0: 20 20 20 20 20 20 20 7B 76 61 20 61 75 20 63 65 {va au ce
0001F0: 6E 74 72 65 20 64 65 20 6C 27 27 65 63 72 61 6E ntre de l''ecran
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000010: 20 20 20 20 20 20 7B 28 6C 65 73 20 64 69 6D 65 {(les dime
000020: 6E 73 69 6F 6E 73 20 64 65 20 6C 61 20 66 65 6E nsions de la fen
000030: 65 74 72 65 20 70 72 69 6D 61 69 72 65 7D 0D 0A etre primaire}..
000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000050: 20 20 20 20 20 20 20 20 20 20 20 20 20 7B 64 69 {di
000060: 6D 65 6E 73 69 6F 6E 73 20 70 61 72 20 64 65 66 mensions par def
000070: 61 75 74 20 64 65 20 6C 27 27 65 63 72 61 6E 29 aut de l''ecran)
000080: 7D 0D 0A 0D 0A 44 65 66 69 6E 65 57 69 6E 64 6F }....DefineWindo
000090: 77 28 31 2C 74 72 75 6E 63 28 58 4D 61 78 47 6C w(1,trunc(XMaxGl
0000A0: 62 2F 31 30 29 2C 74 72 75 6E 63 28 59 4D 61 78 b/10),trunc(YMax
0000B0: 47 6C 62 2F 31 30 29 2C 0D 0A 20 20 20 20 20 20 Glb/10),..
0000C0: 20 20 20 20 20 20 20 20 20 74 72 75 6E 63 28 58 trunc(X
0000D0: 4D 61 78 47 6C 62 2F 32 29 2C 74 72 75 6E 63 28 MaxGlb/2),trunc(
0000E0: 59 4D 61 78 47 6C 62 2F 32 29 29 3B 0D 0A 20 20 YMaxGlb/2));..
0000F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000100: 20 20 20 20 20 20 20 20 20 20 20 7B 64 65 66 69 {defi
000110: 6E 69 74 20 75 6E 65 20 66 65 6E 65 74 72 65 20 nit une fenetre
000120: 64 27 27 75 6E 65 20 64 69 7A 61 69 6E 65 20 64 d''une dizaine d
000130: 65 20 66 61 63 6F 6E 73 7D 0D 0A 20 20 20 20 20 e facons}..
000140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000150: 20 20 20 20 20 20 20 20 7B 64 65 70 75 69 73 20 {depuis
000160: 65 6E 20 68 61 75 74 20 61 20 67 61 75 63 68 65 en haut a gauche
000170: 2C 20 6F 75 20 64 75 20 6D 69 6C 69 65 75 7D 0D , ou du milieu}.
000180: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
000190: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7B 64 {d
0001A0: 65 70 75 69 73 20 65 6E 20 62 61 73 20 61 20 64 epuis en bas a d
0001B0: 72 6F 69 74 65 7D 0D 0A 0D 0A 44 65 66 69 6E 65 roite}....Define
0001C0: 48 65 61 64 65 72 28 31 2C 27 43 45 43 49 20 45 Header(1,'CECI E
0001D0: 53 54 20 55 4E 20 4D 4F 4E 44 45 20 50 4C 55 53 ST UN MONDE PLUS
0001E0: 20 47 52 41 4E 44 27 29 3B 20 7B 64 6F 6E 6E 65 GRAND'); {donne
0001F0: 20 75 6E 65 20 65 6E 74 65 74 65 7D 0D 0A 0D 0A une entete}....
Size : 512 (Real : 512)
000000: 70 72 6F 67 72 61 6D 20 42 65 7A 69 44 65 6D 6F program BeziDemo
000010: 3B 0D 0A 0D 0A 7B 24 49 20 74 79 70 65 64 65 66 ;....{$I typedef
000020: 2E 73 79 73 7D 20 20 20 20 20 20 20 20 20 20 20 .sys}
000030: 20 20 20 20 20 20 20 20 20 20 20 20 7B 63 65 73 {ces
000040: 20 66 69 63 68 69 65 72 73 20 64 6F 69 76 65 6E fichiers doiven
000050: 74 20 65 74 72 65 7D 0D 0A 7B 24 49 20 67 72 61 t etre}..{$I gra
000060: 70 68 69 78 2E 73 79 73 7D 20 20 20 20 20 20 20 phix.sys}
000070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000080: 7B 69 6E 63 6C 75 73 20 64 61 6E 73 20 63 65 74 {inclus dans cet
000090: 20 6F 72 64 72 65 7D 0D 0A 7B 24 49 20 6B 65 72 ordre}..{$I ker
0000A0: 6E 65 6C 2E 73 79 73 7D 0D 0A 7B 24 49 20 6B 65 nel.sys}..{$I ke
0000B0: 72 6E 65 6C 31 2E 73 79 73 7D 0D 0A 7B 24 49 20 rnel1.sys}..{$I
0000C0: 77 69 6E 64 6F 77 73 2E 73 79 73 7D 0D 0A 7B 24 windows.sys}..{$
0000D0: 49 20 61 78 69 73 2E 68 67 68 7D 0D 0A 7B 24 49 I axis.hgh}..{$I
0000E0: 20 70 6F 6C 79 67 6F 6E 2E 68 67 68 7D 0D 0A 7B polygon.hgh}..{
0000F0: 24 49 20 62 65 7A 69 65 72 2E 68 67 68 7D 0D 0A $I bezier.hgh}..
000100: 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 65 20 43 6C ....procedure Cl
000110: 65 61 72 54 6F 45 6F 6C 3B 20 20 20 20 20 20 20 earToEol;
000120: 20 20 20 20 20 20 20 20 20 20 20 7B 70 72 6F 63 {proc
000130: 20 70 6F 75 72 20 76 69 64 65 72 20 6C 61 20 66 pour vider la f
000140: 69 6E 20 64 65 20 6C 61 20 6C 69 67 6E 65 7D 0D in de la ligne}.
000150: 0A 76 61 72 20 69 3A 20 69 6E 74 65 67 65 72 3B .var i: integer;
000160: 0D 0A 0D 0A 62 65 67 69 6E 0D 0A 20 20 66 6F 72 ....begin.. for
000170: 20 69 3A 3D 31 20 74 6F 20 38 30 20 64 6F 20 77 i:=1 to 80 do w
000180: 72 69 74 65 28 27 20 27 29 3B 0D 0A 65 6E 64 3B rite(' ');..end;
000190: 0D 0A 0D 0A 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 ........procedur
0001A0: 65 20 42 65 7A 69 65 72 44 65 6D 3B 0D 0A 0D 0A e BezierDem;....
0001B0: 76 61 72 20 72 65 73 75 6C 74 2C 69 2C 4D 61 78 var result,i,Max
0001C0: 43 6F 6E 74 72 6F 6C 50 6F 69 6E 74 73 2C 4D 61 ControlPoints,Ma
0001D0: 78 49 6E 74 50 6F 69 6E 74 73 3A 69 6E 74 65 67 xIntPoints:integ
0001E0: 65 72 3B 0D 0A 20 20 20 20 64 75 6D 6D 79 78 2C er;.. dummyx,
0001F0: 64 75 6D 6D 79 79 3A 72 65 61 6C 3B 0D 0A 20 20 dummyy:real;..
Size : 512 (Real : 512)
000000: 44 65 66 69 6E 65 57 6F 72 6C 64 28 31 2C 30 2C DefineWorld(1,0,
000010: 32 30 30 30 2C 32 30 30 30 2C 30 29 3B 20 7B 64 2000,2000,0); {d
000020: 6F 6E 6E 65 20 64 65 73 20 63 6F 6F 72 64 6F 6E onne des coordon
000030: 6E 65 65 73 20 73 79 73 74 65 6D 65 73 20 70 6C nees systemes pl
000040: 75 73 20 67 72 61 6E 64 65 73 7D 0D 0A 0D 0A 0D us grandes}.....
000050: 0A 0D 0A 44 65 66 69 6E 65 57 69 6E 64 6F 77 28 ...DefineWindow(
000060: 32 2C 74 72 75 6E 63 28 58 4D 61 78 47 6C 62 2F 2,trunc(XMaxGlb/
000070: 33 29 2C 74 72 75 6E 63 28 59 4D 61 78 47 6C 62 3),trunc(YMaxGlb
000080: 2F 33 29 2C 0D 0A 20 20 20 20 20 20 20 20 20 20 /3),..
000090: 20 20 20 20 20 74 72 75 6E 63 28 28 58 4D 61 78 trunc((XMax
0000A0: 47 6C 62 2A 32 29 2F 33 29 2C 74 72 75 6E 63 28 Glb*2)/3),trunc(
0000B0: 28 59 4D 61 78 47 6C 62 2A 32 29 2F 33 29 29 3B (YMaxGlb*2)/3));
0000C0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
0000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7B {
0000E0: 64 65 66 69 6E 69 74 20 75 6E 65 20 66 65 6E 65 definit une fene
0000F0: 74 72 65 20 64 27 27 75 6E 65 20 64 65 73 20 74 tre d''une des t
000100: 72 6F 69 73 20 66 61 63 6F 6E 73 7D 0D 0A 20 20 rois facons}..
000110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000120: 20 20 20 20 20 20 20 20 20 20 20 7B 64 65 70 75 {depu
000130: 69 73 20 65 6E 20 68 61 75 74 20 61 20 67 61 75 is en haut a gau
000140: 63 68 65 69 7D 0D 0A 20 20 20 20 20 20 20 20 20 chei}..
000150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000160: 20 20 20 20 7B 64 65 70 75 69 73 20 65 6E 20 62 {depuis en b
000170: 61 73 20 61 20 64 72 6F 69 74 65 7D 0D 0A 0D 0A as a droite}....
000180: 44 65 66 69 6E 65 48 65 61 64 65 72 28 32 2C 27 DefineHeader(2,'
000190: 43 45 43 49 20 45 53 54 20 4D 4F 4E 44 45 20 43 CECI EST MONDE C
0001A0: 4F 52 52 45 43 54 45 27 29 3B 20 7B 64 6F 6E 6E ORRECTE'); {donn
0001B0: 65 20 75 6E 65 20 65 6E 74 65 74 65 7D 0D 0A 0D e une entete}...
0001C0: 0A 44 65 66 69 6E 65 57 6F 72 6C 64 28 32 2C 30 .DefineWorld(2,0
0001D0: 2C 31 30 30 30 2C 31 30 30 30 2C 30 29 3B 20 7B ,1000,1000,0); {
0001E0: 64 6F 6E 6E 65 20 6C 65 73 20 63 6F 6F 72 64 6F donne les coordo
0001F0: 6E 6E 65 65 73 20 73 79 73 74 65 6D 65 20 64 75 nnees systeme du
Size : 512 (Real : 512)
000000: 20 20 61 2C 62 3A 50 6C 6F 74 41 72 72 61 79 3B a,b:PlotArray;
000010: 0D 0A 20 20 20 20 62 72 65 61 6B 3A 62 6F 6F 6C .. break:bool
000020: 65 61 6E 3B 0D 0A 20 20 20 20 44 75 6D 6D 79 53 ean;.. DummyS
000030: 2C 54 65 6D 70 32 2C 54 65 6D 70 3A 77 72 6B 73 ,Temp2,Temp:wrks
000040: 74 72 69 6E 67 3B 0D 0A 0D 0A 62 65 67 69 6E 0D tring;....begin.
000050: 0A 0D 0A 20 20 4D 61 78 43 6F 6E 74 72 6F 6C 50 ... MaxControlP
000060: 6F 69 6E 74 73 3A 3D 37 3B 20 20 20 20 20 20 20 oints:=7;
000070: 20 20 20 20 20 20 20 20 20 20 7B 69 6E 69 74 69 {initi
000080: 61 6C 69 73 65 20 74 6F 75 74 7D 0D 0A 20 20 4D alise tout}.. M
000090: 61 78 49 6E 74 50 6F 69 6E 74 73 3A 3D 31 35 3B axIntPoints:=15;
0000A0: 0D 0A 20 20 61 5B 31 2C 31 5D 3A 3D 31 3B 61 5B .. a[1,1]:=1;a[
0000B0: 32 2C 31 5D 3A 3D 31 2E 35 3B 61 5B 33 2C 31 5D 2,1]:=1.5;a[3,1]
0000C0: 3A 3D 32 3B 61 5B 34 2C 31 5D 3A 3D 32 2E 35 3B :=2;a[4,1]:=2.5;
0000D0: 61 5B 35 2C 31 5D 3A 3D 33 3B 61 5B 36 2C 31 5D a[5,1]:=3;a[6,1]
0000E0: 3A 3D 34 3B 61 5B 37 2C 31 5D 3A 3D 35 3B 0D 0A :=4;a[7,1]:=5;..
0000F0: 20 20 61 5B 31 2C 32 5D 3A 3D 32 3B 61 5B 32 2C a[1,2]:=2;a[2,
000100: 32 5D 3A 3D 31 2E 35 3B 61 5B 33 2C 32 5D 3A 3D 2]:=1.5;a[3,2]:=
000110: 31 3B 61 5B 34 2C 32 5D 3A 3D 32 2E 35 3B 61 5B 1;a[4,2]:=2.5;a[
000120: 35 2C 32 5D 3A 3D 34 3B 61 5B 36 2C 32 5D 3A 3D 5,2]:=4;a[6,2]:=
000130: 34 2E 35 3B 61 5B 37 2C 32 5D 3A 3D 35 3B 0D 0A 4.5;a[7,2]:=5;..
000140: 0D 0A 20 20 43 6C 65 61 72 53 63 72 65 65 6E 3B .. ClearScreen;
000150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000160: 20 20 20 20 20 20 20 20 20 7B 6D 69 73 65 20 65 {mise e
000170: 6E 20 70 6C 61 63 65 20 64 65 20 6C 27 27 65 63 n place de l''ec
000180: 72 61 6E 7D 0D 0A 20 20 53 65 74 43 6F 6C 6F 72 ran}.. SetColor
000190: 57 68 69 74 65 3B 0D 0A 20 20 44 65 66 69 6E 65 White;.. Define
0001A0: 57 6F 72 6C 64 28 31 2C 30 2C 37 2E 30 2C 36 2E World(1,0,7.0,6.
0001B0: 33 33 2C 30 29 3B 20 20 20 20 20 20 20 20 20 7B 33,0); {
0001C0: 64 65 66 69 6E 69 74 20 73 69 20 6C 65 73 20 72 definit si les r
0001D0: 65 67 6C 65 73 20 73 6F 6E 74 20 6A 75 73 74 65 egles sont juste
0001E0: 73 7D 0D 0A 20 20 53 65 6C 65 63 74 57 6F 72 6C s}.. SelectWorl
0001F0: 64 28 31 29 3B 0D 0A 20 20 44 65 66 69 6E 65 57 d(1);.. DefineW
Size : 512 (Real : 512)
000000: 20 6D 6F 6E 64 65 20 63 6F 72 72 65 63 74 65 7D monde correcte}
000010: 0D 0A 0D 0A 0D 0A 44 65 66 69 6E 65 57 69 6E 64 ......DefineWind
000020: 6F 77 28 33 2C 74 72 75 6E 63 28 58 4D 61 78 47 ow(3,trunc(XMaxG
000030: 6C 62 2F 32 29 2C 74 72 75 6E 63 28 59 4D 61 78 lb/2),trunc(YMax
000040: 47 6C 62 2F 32 29 2C 0D 0A 20 20 20 20 20 20 20 Glb/2),..
000050: 20 20 20 20 20 20 20 20 74 72 75 6E 63 28 28 58 trunc((X
000060: 4D 61 78 47 6C 62 2A 39 29 2F 31 30 29 2C 74 72 MaxGlb*9)/10),tr
000070: 75 6E 63 28 28 59 4D 61 78 47 6C 62 2A 39 29 2F unc((YMaxGlb*9)/
000080: 31 30 29 29 3B 0D 0A 0D 0A 44 65 66 69 6E 65 48 10));....DefineH
000090: 65 61 64 65 72 28 33 2C 27 43 45 43 49 20 45 53 eader(3,'CECI ES
0000A0: 54 20 55 4E 20 4D 4F 4E 44 45 20 50 4C 55 53 20 T UN MONDE PLUS
0000B0: 50 45 54 49 54 27 29 3B 20 7B 64 6F 6E 6E 65 20 PETIT'); {donne
0000C0: 75 6E 65 20 65 6E 74 65 74 65 7D 0D 0A 0D 0A 44 une entete}....D
0000D0: 65 66 69 6E 65 57 6F 72 6C 64 28 33 2C 30 2C 35 efineWorld(3,0,5
0000E0: 30 30 2C 35 30 30 2C 30 29 3B 20 7B 64 6F 6E 6E 00,500,0); {donn
0000F0: 65 20 6C 65 73 20 63 6F 6F 72 64 6F 6E 6E 65 65 e les coordonnee
000100: 73 20 73 79 73 74 65 6D 65 73 20 64 27 27 75 6E s systemes d''un
000110: 20 6D 6F 6E 64 65 20 70 6C 75 73 20 70 65 74 69 monde plus peti
000120: 74 7D 0D 0A 0D 0A 66 6F 72 20 69 3A 3D 31 20 74 t}....for i:=1 t
000130: 6F 20 33 20 64 6F 0D 0A 20 20 62 65 67 69 6E 0D o 3 do.. begin.
000140: 0A 20 20 20 53 65 6C 65 63 74 57 69 6E 64 6F 77 . SelectWindow
000150: 28 69 29 3B 20 20 20 20 20 20 20 20 20 20 7B 73 (i); {s
000160: 6F 6E 20 63 68 6F 69 78 7D 0D 0A 20 20 20 53 65 on choix}.. Se
000170: 74 48 65 61 64 65 72 4F 6E 3B 0D 0A 20 20 20 53 tHeaderOn;.. S
000180: 65 6C 65 63 74 57 6F 72 6C 64 28 69 29 3B 20 20 electWorld(i);
000190: 20 20 20 20 20 20 20 20 20 7B 73 6F 6E 20 63 68 {son ch
0001A0: 6F 69 78 7D 0D 0A 20 20 20 53 65 74 42 61 63 6B oix}.. SetBack
0001B0: 67 72 6F 75 6E 64 28 30 29 3B 20 20 20 20 20 20 ground(0);
0001C0: 20 20 20 7B 64 6F 6E 6E 65 20 6C 27 27 61 72 72 {donne l''arr
0001D0: 69 65 72 65 20 70 6C 61 6E 7D 0D 0A 20 20 20 44 iere plan}.. D
0001E0: 72 61 77 42 6F 72 64 65 72 3B 20 20 20 20 20 20 rawBorder;
0001F0: 20 20 20 20 20 20 20 20 20 7B 74 72 61 63 65 20 {trace
Size : 512 (Real : 512)
000000: 69 6E 64 6F 77 28 31 2C 30 2C 30 2C 58 4D 61 78 indow(1,0,0,XMax
000010: 47 6C 62 2C 31 37 2A 59 4D 61 78 47 6C 62 20 64 Glb,17*YMaxGlb d
000020: 69 76 20 32 30 29 3B 0D 0A 20 20 53 65 6C 65 63 iv 20);.. Selec
000030: 74 57 69 6E 64 6F 77 28 31 29 3B 0D 0A 20 20 53 tWindow(1);.. S
000040: 65 74 42 61 63 6B 67 72 6F 75 6E 64 28 30 29 3B etBackground(0);
000050: 0D 0A 20 20 44 72 61 77 42 6F 72 64 65 72 3B 0D .. DrawBorder;.
000060: 0A 20 20 44 72 61 77 41 78 69 73 28 37 2C 2D 37 . DrawAxis(7,-7
000070: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 66 61 6C ,0,0,0,0,0,0,fal
000080: 73 65 29 3B 0D 0A 0D 0A 20 20 62 72 65 61 6B 3A se);.... break:
000090: 3D 66 61 6C 73 65 3B 0D 0A 0D 0A 20 20 72 65 70 =false;.... rep
0000A0: 65 61 74 0D 0A 20 20 20 20 53 65 74 4C 69 6E 65 eat.. SetLine
0000B0: 73 74 79 6C 65 28 31 29 3B 20 20 20 20 20 20 20 style(1);
0000C0: 20 20 20 20 20 20 20 20 20 20 20 20 7B 74 72 61 {tra
0000D0: 63 65 20 75 6E 20 70 6F 6C 79 67 6F 6E 65 20 65 ce un polygone e
0000E0: 6E 74 72 65 20 64 65 73 20 70 6F 69 6E 74 73 7D ntre des points}
0000F0: 0D 0A 20 20 20 20 44 72 61 77 41 78 69 73 28 30 .. DrawAxis(0
000100: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 66 ,0,0,0,0,0,0,0,f
000110: 61 6C 73 65 29 3B 20 20 20 7B 61 6C 69 67 6E 65 alse); {aligne
000120: 20 63 65 20 64 65 72 6E 69 65 72 20 28 70 61 73 ce dernier (pas
000130: 20 64 65 20 74 65 78 74 65 29 7D 0D 0A 20 20 20 de texte)}..
000140: 20 44 72 61 77 50 6F 6C 79 67 6F 6E 28 61 2C 31 DrawPolygon(a,1
000150: 2C 4D 61 78 43 6F 6E 74 72 6F 6C 50 6F 69 6E 74 ,MaxControlPoint
000160: 73 2C 34 2C 32 2C 30 29 3B 0D 0A 0D 0A 20 20 20 s,4,2,0);....
000170: 20 62 65 7A 69 65 72 28 61 2C 4D 61 78 43 6F 6E bezier(a,MaxCon
000180: 74 72 6F 6C 50 6F 69 6E 74 73 2C 62 2C 4D 61 78 trolPoints,b,Max
000190: 49 6E 74 50 6F 69 6E 74 73 29 3B 20 20 7B 66 61 IntPoints); {fa
0001A0: 69 74 20 6C 65 73 20 6F 70 65 72 61 74 69 6F 6E it les operation
0001B0: 73 20 64 65 20 42 65 7A 69 65 72 7D 0D 0A 0D 0A s de Bezier}....
0001C0: 20 20 20 20 53 65 74 4C 69 6E 65 73 74 79 6C 65 SetLinestyle
0001D0: 28 30 29 3B 20 20 20 20 20 20 20 20 20 20 20 20 (0);
0001E0: 20 20 20 20 20 20 20 7B 6C 65 73 20 74 72 61 63 {les trac
0001F0: 65 73 7D 0D 0A 20 20 20 20 44 72 61 77 41 78 69 es}.. DrawAxi
Size : 512 (Real : 512)
000000: 75 6E 65 20 62 6F 72 64 75 72 65 7D 0D 0A 20 20 une bordure}..
000010: 20 44 72 61 77 4C 69 6E 65 73 3B 20 20 20 20 20 DrawLines;
000020: 20 20 20 20 20 20 20 20 20 20 20 7B 74 72 61 63 {trac
000030: 65 20 64 65 73 20 6C 69 67 6E 65 73 7D 0D 0A 20 e des lignes}..
000040: 20 65 6E 64 3B 0D 0A 0D 0A 0D 0A 72 65 70 65 61 end;......repea
000050: 74 20 75 6E 74 69 6C 20 6B 65 79 70 72 65 73 73 t until keypress
000060: 65 64 3B 20 20 20 20 20 7B 61 74 74 65 6E 64 20 ed; {attend
000070: 6A 75 73 71 75 27 27 61 20 75 6E 65 20 74 6F 75 jusqu''a une tou
000080: 63 68 65 20 73 6F 69 74 20 66 72 61 70 65 65 7D che soit frapee}
000090: 0D 0A 0D 0A 4C 65 61 76 65 47 72 61 70 68 69 63 ....LeaveGraphic
0000A0: 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ;
0000B0: 20 7B 71 75 69 74 74 65 20 6C 65 73 20 67 72 61 {quitte les gra
0000C0: 70 68 69 73 6D 65 73 7D 0D 0A 0D 0A 65 6E 64 2E phismes}....end.
0000D0: 0D 0A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0000E0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0000F0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000100: 73 20 73 79 73 74 65 6D 65 73 20 64 27 27 75 6E s systemes d''un
000110: 20 6D 6F 6E 64 65 20 70 6C 75 73 20 70 65 74 69 monde plus peti
000120: 74 7D 0D 0A 0D 0A 66 6F 72 20 69 3A 3D 31 20 74 t}....for i:=1 t
000130: 6F 20 33 20 64 6F 0D 0A 20 20 62 65 67 69 6E 0D o 3 do.. begin.
000140: 0A 20 20 20 53 65 6C 65 63 74 57 69 6E 64 6F 77 . SelectWindow
000150: 28 69 29 3B 20 20 20 20 20 20 20 20 20 20 7B 73 (i); {s
000160: 6F 6E 20 63 68 6F 69 78 7D 0D 0A 20 20 20 53 65 on choix}.. Se
000170: 74 48 65 61 64 65 72 4F 6E 3B 0D 0A 20 20 20 53 tHeaderOn;.. S
000180: 65 6C 65 63 74 57 6F 72 6C 64 28 69 29 3B 20 20 electWorld(i);
000190: 20 20 20 20 20 20 20 20 20 7B 73 6F 6E 20 63 68 {son ch
0001A0: 6F 69 78 7D 0D 0A 20 20 20 53 65 74 42 61 63 6B oix}.. SetBack
0001B0: 67 72 6F 75 6E 64 28 30 29 3B 20 20 20 20 20 20 ground(0);
0001C0: 20 20 20 7B 64 6F 6E 6E 65 20 6C 27 27 61 72 72 {donne l''arr
0001D0: 69 65 72 65 20 70 6C 61 6E 7D 0D 0A 20 20 20 44 iere plan}.. D
0001E0: 72 61 77 42 6F 72 64 65 72 3B 20 20 20 20 20 20 rawBorder;
0001F0: 20 20 20 20 20 20 20 20 20 7B 74 72 61 63 65 20 {trace
Size : 512 (Real : 512)
000000: 73 28 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C s(0,0,0,0,0,0,0,
000010: 30 2C 66 61 6C 73 65 29 3B 0D 0A 20 20 20 20 44 0,false);.. D
000020: 72 61 77 50 6F 6C 79 67 6F 6E 28 62 2C 31 2C 4D rawPolygon(b,1,M
000030: 61 78 49 6E 74 50 6F 69 6E 74 73 2C 30 2C 30 2C axIntPoints,0,0,
000040: 30 29 3B 0D 0A 0D 0A 20 20 20 20 72 65 70 65 61 0);.... repea
000050: 74 0D 0A 20 20 20 20 20 20 67 6F 74 6F 78 79 28 t.. gotoxy(
000060: 31 2C 32 34 29 3B 20 20 20 20 20 20 20 20 20 20 1,24);
000070: 20 20 20 20 20 20 20 20 20 20 7B 76 69 64 65 20 {vide
000080: 6C 27 27 61 6E 63 69 65 6E 20 74 65 78 74 65 7D l''ancien texte}
000090: 0D 0A 20 20 20 20 20 20 43 6C 65 61 72 54 6F 45 .. ClearToE
0000A0: 6F 6C 3B 0D 0A 20 20 20 20 20 20 67 6F 74 6F 78 ol;.. gotox
0000B0: 79 28 31 2C 32 35 29 3B 0D 0A 20 20 20 20 20 20 y(1,25);..
0000C0: 43 6C 65 61 72 54 6F 45 6F 6C 3B 0D 0A 20 20 20 ClearToEol;..
0000D0: 20 20 20 67 6F 74 6F 78 79 28 31 2C 32 33 29 3B gotoxy(1,23);
0000E0: 0D 0A 20 20 20 20 20 20 43 6C 65 61 72 54 6F 45 .. ClearToE
0000F0: 6F 6C 3B 0D 0A 20 20 20 20 20 20 67 6F 74 6F 78 ol;.. gotox
000100: 79 28 31 2C 32 33 29 3B 20 20 20 20 20 20 20 20 y(1,23);
000110: 20 20 20 20 20 20 20 20 20 20 20 20 7B 70 6F 69 {poi
000120: 6E 74 20 61 20 63 68 61 6E 67 65 72 7D 0D 0A 20 nt a changer}..
000130: 20 20 20 20 20 77 72 69 74 65 28 27 45 6E 74 72 write('Entr
000140: 65 72 20 6C 65 20 6E 6F 6D 62 72 65 20 64 65 20 er le nombre de
000150: 70 6F 69 6E 74 73 20 61 20 63 68 61 6E 67 65 72 points a changer
000160: 20 3A 20 20 27 29 3B 0D 0A 20 20 20 20 20 20 67 : ');.. g
000170: 6F 74 6F 78 79 28 34 33 2C 32 33 29 3B 0D 0A 20 otoxy(43,23);..
000180: 20 20 20 20 20 72 65 61 64 28 54 65 6D 70 29 3B read(Temp);
000190: 0D 0A 20 20 20 20 20 20 76 61 6C 28 54 65 6D 70 .. val(Temp
0001A0: 2C 69 2C 72 65 73 75 6C 74 29 3B 0D 0A 20 20 20 ,i,result);..
0001B0: 20 75 6E 74 69 6C 20 69 20 69 6E 20 5B 30 2E 2E until i in [0..
0001C0: 4D 61 78 43 6F 6E 74 72 6F 6C 50 6F 69 6E 74 73 MaxControlPoints
0001D0: 5D 3B 0D 0A 0D 0A 20 20 20 20 69 66 20 69 3E 30 ];.... if i>0
0001E0: 20 74 68 65 6E 0D 0A 20 20 20 20 20 20 62 65 67 then.. beg
0001F0: 69 6E 0D 0A 20 20 20 20 20 20 20 20 72 65 70 65 in.. repe
Size : 512 (Real : 512)
000000: 05 E5 26 00 FD 6E 04 54 FD 5E 03 CD 1D BC FD 5E ..&..n.T.^.....^
000010: 08 FD 56 09 CD 88 2F 01 08 00 DD 09 E1 18 B9 FD ..V.../.........
000020: 7E 00 FE FF C8 FD 5E 01 FD 56 02 FD 4E 03 FD 46 ~.....^..V..N..F
000030: 04 FD 6E 05 FD 66 06 FE 0A 28 0A FE 0B 20 0C 79 ..n..f...(... .y
000040: 01 01 01 18 06 21 FD 2F 01 01 01 F5 E5 C5 26 00 .....!./......&.
000050: 6A 44 4A 29 29 09 29 29 29 4B 09 01 60 0C 09 E5 jDJ)).)))K..`...
000060: DD E1 3E 14 92 CB 27 CB 27 CB 27 3D 26 00 6F 54 ..>...'.'.'=&.oT
000070: CB 23 CB 23 CD 1D BC C1 D1 F1 C5 DD E5 E5 41 DD .#.#..........A.
000080: 77 00 CD 70 2F DD 23 23 23 10 F4 E1 0E 50 09 DD w..p/.###....P..
000090: E1 CB 29 DD 09 C1 10 E2 01 07 00 FD 09 C3 EF 2E ..).............
0000A0: C5 D5 E5 06 08 C5 01 02 00 EB ED B0 EB 01 FE 07 ................
0000B0: 09 C1 10 F1 E1 D1 C1 C9 C5 D5 E5 06 10 C5 01 04 ................
0000C0: 00 EB ED B0 EB 01 FC 07 09 30 04 01 50 C0 09 C1 .........0..P...
0000D0: 10 EB E1 D1 C1 C9 00 00 00 0D 0D 06 06 14 14 12 ................
0000E0: 12 08 08 18 18 1A 1A 14 14 1A 1A 12 00 00 12 09 ................
0000F0: 09 14 02 02 14 0F 0F 1F 06 13 41 72 65 20 79 6F ..........Are yo
000100: 75 20 75 73 69 6E 67 20 61 20 47 72 65 65 6E 20 u using a Green
000110: 53 63 72 65 65 6E 20 3F 1F 0B 15 50 72 65 73 73 Screen ?...Press
000120: 20 59 20 6F 72 20 4E 20 3A 2D 20 8F FF 51 2A 3E Y or N :- ..Q*>
000130: 71 B2 1D 2E 79 A6 3D 3A 59 B6 35 15 A2 0A 28 35 q...y.=:Y.5...(5
000140: 28 34 28 33 3C 32 3C 31 3C 30 28 09 3C 2F 28 2E (4(3<2<1<0(.</(.
000150: 28 2D 28 2C 28 2B 28 08 28 2A 28 29 28 28 28 07 (-(,(+(.(*()(((.
000160: 28 27 28 26 28 25 28 24 28 23 3C 06 28 22 50 21 ('(&(%($(#<.("P!
000170: 28 20 28 05 28 1F 28 1E 28 1D 28 1C 28 1B 28 04 ( (.(.(.(.(.(.(.
000180: 28 1A 3C 19 3C 18 28 17 28 16 3C 03 3C 15 28 14 (.<.<.(.(.<.<.(.
000190: 28 13 28 02 28 12 14 11 28 10 14 0F 28 0E 28 0D (.(.(...(...(.(.
0001A0: 28 0C 28 0B 28 01 28 94 2F 90 27 94 87 90 7F 90 (.(.(.(./.'.....
0001B0: 4F 8C 47 00 77 04 6F 4C 47 48 3F 04 6F 08 67 04 O.G.w.oLGH?.o.g.
0001C0: 67 08 5F 04 27 08 1F 34 5F 38 57 04 1F 08 17 00 g._.'..4_8W.....
0001D0: 00 1A 1A 06 06 14 14 12 12 08 08 18 18 1A 1A 12 ................
0001E0: 12 03 03 06 06 02 02 00 00 1F 03 05 0F 08 41 6D ..............Am
0001F0: 73 6F 66 74 20 20 50 72 65 73 65 6E 74 73 1F 04 soft Presents..
Size : 512 (Real : 512)
000000: 61 74 0D 0A 20 20 20 20 20 20 20 20 20 20 67 6F at.. go
000010: 74 6F 78 79 28 31 2C 32 34 29 3B 20 20 20 20 20 toxy(1,24);
000020: 20 20 20 20 20 20 20 20 20 20 20 7B 6E 6F 75 76 {nouv
000030: 65 6C 6C 65 73 20 76 61 6C 65 75 72 73 20 70 6F elles valeurs po
000040: 75 72 20 78 20 65 74 20 20 79 7D 0D 0A 20 20 20 ur x et y}..
000050: 20 20 20 20 20 20 20 77 72 69 74 65 28 27 4F 6C write('Ol
000060: 64 20 70 6F 73 69 74 69 6F 6E 20 3A 20 5B 27 2C d position : [',
000070: 61 5B 69 2C 31 5D 3A 34 3A 32 2C 27 2C 27 2C 61 a[i,1]:4:2,',',a
000080: 5B 69 2C 32 5D 3A 34 3A 32 2C 27 5D 27 29 3B 0D [i,2]:4:2,']');.
000090: 0A 20 20 20 20 20 20 20 20 20 20 67 6F 74 6F 78 . gotox
0000A0: 79 28 34 30 2C 32 34 29 3B 77 72 69 74 65 28 27 y(40,24);write('
0000B0: 20 20 20 4E 6F 75 76 65 6C 6C 65 20 70 6F 73 69 Nouvelle posi
0000C0: 74 69 6F 6E 20 20 78 3A 20 20 27 29 3B 0D 0A 20 tion x: ');..
0000D0: 20 20 20 20 20 20 20 20 20 67 6F 74 6F 78 79 28 gotoxy(
0000E0: 36 30 2C 32 34 29 3B 0D 0A 20 20 20 20 20 20 20 60,24);..
0000F0: 20 20 20 72 65 61 64 28 44 75 6D 6D 79 53 29 3B read(DummyS);
000100: 0D 0A 20 20 20 20 20 20 20 20 20 20 77 68 69 6C .. whil
000110: 65 20 44 75 6D 6D 79 53 5B 31 5D 3D 27 20 27 20 e DummyS[1]=' '
000120: 64 6F 20 64 65 6C 65 74 65 28 44 75 6D 6D 79 53 do delete(DummyS
000130: 2C 31 2C 31 29 3B 0D 0A 20 20 20 20 20 20 20 20 ,1,1);..
000140: 20 20 54 65 6D 70 3A 3D 44 75 6D 6D 79 53 3B 0D Temp:=DummyS;.
000150: 0A 20 20 20 20 20 20 20 20 20 20 67 6F 74 6F 78 . gotox
000160: 79 28 34 30 2C 32 35 29 3B 77 72 69 74 65 28 27 y(40,25);write('
000170: 20 20 20 4E 6F 75 76 65 6C 6C 65 20 70 6F 73 69 Nouvelle posi
000180: 74 69 6F 6E 20 20 79 3A 20 20 27 29 3B 0D 0A 20 tion y: ');..
000190: 20 20 20 20 20 20 20 20 20 67 6F 74 6F 78 79 28 gotoxy(
0001A0: 36 30 2C 32 35 29 3B 0D 0A 20 20 20 20 20 20 20 60,25);..
0001B0: 20 20 20 72 65 61 64 28 44 75 6D 6D 79 53 29 3B read(DummyS);
0001C0: 0D 0A 20 20 20 20 20 20 20 20 20 20 77 68 69 6C .. whil
0001D0: 65 20 44 75 6D 6D 79 53 5B 31 5D 3D 27 20 27 20 e DummyS[1]=' '
0001E0: 64 6F 20 64 65 6C 65 74 65 28 44 75 6D 6D 79 53 do delete(DummyS
0001F0: 2C 31 2C 31 29 3B 0D 0A 20 20 20 20 20 20 20 20 ,1,1);..
Size : 512 (Real : 512)
000000: 20 65 6E 64 0D 0A 20 20 65 6C 73 65 0D 0A 20 20 end.. else..
000010: 20 62 65 67 69 6E 0D 0A 20 20 20 20 44 72 61 77 begin.. Draw
000020: 4C 69 6E 65 28 58 32 2B 35 2C 59 32 2D 32 2C 58 Line(X2+5,Y2-2,X
000030: 32 2C 59 32 29 3B 0D 0A 20 20 20 20 44 72 61 77 2,Y2);.. Draw
000040: 4C 69 6E 65 28 58 32 2B 35 2C 59 32 2B 32 2C 58 Line(X2+5,Y2+2,X
000050: 32 2C 59 32 29 3B 0D 0A 20 20 20 65 6E 64 3B 0D 2,Y2);.. end;.
000060: 0A 65 6E 64 3B 0D 0A 0D 0A 0D 0A 70 72 6F 63 65 .end;......proce
000070: 64 75 72 65 20 44 72 61 77 41 72 72 6F 77 56 65 dure DrawArrowVe
000080: 72 28 58 31 2C 59 31 2C 58 32 2C 59 32 3A 69 6E r(X1,Y1,X2,Y2:in
000090: 74 65 67 65 72 29 3B 20 7B 74 72 61 63 65 20 75 teger); {trace u
0000A0: 6E 65 20 66 6C 65 63 68 65 20 76 65 72 74 69 63 ne fleche vertic
0000B0: 61 6C 65 7D 0D 0A 0D 0A 62 65 67 69 6E 0D 0A 20 ale}....begin..
0000C0: 20 44 72 61 77 4C 69 6E 65 28 58 31 2C 59 31 2C DrawLine(X1,Y1,
0000D0: 58 32 2C 59 32 29 3B 0D 0A 20 20 69 66 20 59 32 X2,Y2);.. if Y2
0000E0: 3E 59 31 20 74 68 65 6E 0D 0A 20 20 20 62 65 67 >Y1 then.. beg
0000F0: 69 6E 0D 0A 20 20 20 20 44 72 61 77 4C 69 6E 65 in.. DrawLine
000100: 28 58 32 2D 32 2C 59 32 2D 33 2C 58 32 2C 59 32 (X2-2,Y2-3,X2,Y2
000110: 29 3B 0D 0A 20 20 20 20 44 72 61 77 4C 69 6E 65 );.. DrawLine
000120: 28 58 32 2B 32 2C 59 32 2D 33 2C 58 32 2C 59 32 (X2+2,Y2-3,X2,Y2
000130: 29 3B 0D 0A 20 20 20 65 6E 64 0D 0A 20 20 65 6C );.. end.. el
000140: 73 65 0D 0A 20 20 20 62 65 67 69 6E 0D 0A 20 20 se.. begin..
000150: 20 20 44 72 61 77 4C 69 6E 65 28 58 32 2D 32 2C DrawLine(X2-2,
000160: 59 32 2B 33 2C 58 32 2C 59 32 29 3B 0D 0A 20 20 Y2+3,X2,Y2);..
000170: 20 20 44 72 61 77 4C 69 6E 65 28 58 32 2B 32 2C DrawLine(X2+2,
000180: 59 32 2B 33 2C 58 32 2C 59 32 29 3B 0D 0A 20 20 Y2+3,X2,Y2);..
000190: 20 65 6E 64 3B 0D 0A 65 6E 64 3B 0D 0A 0D 0A 0D end;..end;.....
0001A0: 0A 70 72 6F 63 65 64 75 72 65 20 42 6C 69 6E 6B .procedure Blink
0001B0: 28 43 6F 75 6E 74 2C 74 69 6D 65 3A 69 6E 74 65 (Count,time:inte
0001C0: 67 65 72 29 3B 20 20 20 20 20 20 20 20 20 7B 62 ger); {b
0001D0: 6C 61 6E 63 68 69 74 20 6C 61 20 66 65 6E 65 74 lanchit la fenet
0001E0: 72 65 20 63 6F 75 72 61 6E 74 65 7D 0D 0A 76 61 re courante}..va
0001F0: 72 20 69 3A 69 6E 74 65 67 65 72 3B 0D 0A 62 65 r i:integer;..be
Size : 512 (Real : 512)
000000: 20 20 54 65 6D 70 32 3A 3D 44 75 6D 6D 79 53 3B Temp2:=DummyS;
000010: 76 61 6C 28 54 65 6D 70 2C 64 75 6D 6D 79 78 2C val(Temp,dummyx,
000020: 72 65 73 75 6C 74 29 3B 76 61 6C 28 54 65 6D 70 result);val(Temp
000030: 32 2C 64 75 6D 6D 79 79 2C 72 65 73 75 6C 74 29 2,dummyy,result)
000040: 3B 0D 0A 20 20 20 20 20 20 20 20 75 6E 74 69 6C ;.. until
000050: 20 28 28 64 75 6D 6D 79 78 3E 3D 58 31 57 6C 64 ((dummyx>=X1Wld
000060: 47 6C 62 29 20 61 6E 64 20 28 64 75 6D 6D 79 78 Glb) and (dummyx
000070: 3C 3D 58 32 57 6C 64 47 6C 62 29 29 20 61 6E 64 <=X2WldGlb)) and
000080: 20 28 28 64 75 6D 6D 79 79 3E 3D 59 31 57 6C 64 ((dummyy>=Y1Wld
000090: 47 6C 62 29 20 61 6E 64 20 28 64 75 6D 6D 79 79 Glb) and (dummyy
0000A0: 3C 3D 59 32 57 6C 64 47 6C 62 29 29 3B 0D 0A 0D <=Y2WldGlb));...
0000B0: 0A 20 20 20 20 20 20 20 20 53 65 74 4C 69 6E 65 . SetLine
0000C0: 73 74 79 6C 65 28 31 29 3B 20 20 20 20 20 20 20 style(1);
0000D0: 20 20 20 20 20 20 20 20 7B 6E 65 20 74 72 61 63 {ne trac
0000E0: 65 20 70 61 73 20 6C 27 27 61 6E 63 69 65 6E 6E e pas l''ancienn
0000F0: 65 20 63 6F 75 72 62 65 7D 0D 0A 20 20 20 20 20 e courbe}..
000100: 20 20 20 53 65 74 43 6F 6C 6F 72 42 6C 61 63 6B SetColorBlack
000110: 3B 0D 0A 20 20 20 20 20 20 20 20 44 72 61 77 41 ;.. DrawA
000120: 78 69 73 28 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C xis(0,0,0,0,0,0,
000130: 30 2C 30 2C 66 61 6C 73 65 29 3B 0D 0A 20 20 20 0,0,false);..
000140: 20 20 20 20 20 44 72 61 77 50 6F 6C 79 67 6F 6E DrawPolygon
000150: 28 61 2C 31 2C 4D 61 78 43 6F 6E 74 72 6F 6C 50 (a,1,MaxControlP
000160: 6F 69 6E 74 73 2C 34 2C 32 2C 30 29 3B 0D 0A 20 oints,4,2,0);..
000170: 20 20 20 20 20 20 20 53 65 74 4C 69 6E 65 73 74 SetLinest
000180: 79 6C 65 28 30 29 3B 0D 0A 20 20 20 20 20 20 20 yle(0);..
000190: 20 44 72 61 77 41 78 69 73 28 30 2C 30 2C 30 2C DrawAxis(0,0,0,
0001A0: 30 2C 30 2C 30 2C 30 2C 30 2C 66 61 6C 73 65 29 0,0,0,0,0,false)
0001B0: 3B 0D 0A 20 20 20 20 20 20 20 20 44 72 61 77 50 ;.. DrawP
0001C0: 6F 6C 79 67 6F 6E 28 62 2C 31 2C 4D 61 78 49 6E olygon(b,1,MaxIn
0001D0: 74 50 6F 69 6E 74 73 2C 30 2C 30 2C 30 29 3B 0D tPoints,0,0,0);.
0001E0: 0A 20 20 20 20 20 20 20 20 61 5B 69 2C 31 5D 3A . a[i,1]:
0001F0: 3D 64 75 6D 6D 79 78 3B 61 5B 69 2C 32 5D 3A 3D =dummyx;a[i,2]:=
Size : 512 (Real : 512)
000000: 67 69 6E 20 66 6F 72 20 69 3A 3D 31 20 74 6F 20 gin for i:=1 to
000010: 43 6F 75 6E 74 20 64 6F 0D 0A 20 20 62 65 67 69 Count do.. begi
000020: 6E 0D 0A 20 20 20 20 44 65 6C 61 79 28 74 69 6D n.. Delay(tim
000030: 65 29 3B 0D 0A 20 20 20 20 49 6E 76 65 72 74 57 e);.. InvertW
000040: 69 6E 64 6F 77 3B 0D 0A 20 20 65 6E 64 3B 0D 0A indow;.. end;..
000050: 65 6E 64 3B 0D 0A 0D 0A 62 65 67 69 6E 20 20 20 end;....begin
000060: 7B 46 6C 6F 77 43 68 61 72 74 44 65 6D 6F 7D 0D {FlowChartDemo}.
000070: 0A 20 20 44 65 66 69 6E 65 57 69 6E 64 6F 77 28 . DefineWindow(
000080: 31 2C 30 2C 30 2C 37 39 2C 31 38 35 29 3B 20 20 1,0,0,79,185);
000090: 20 20 20 20 20 20 20 20 20 20 20 20 20 7B 64 65 {de
0000A0: 66 69 6E 69 74 20 6C 61 20 66 65 6E 65 74 72 65 finit la fenetre
0000B0: 20 64 65 20 6C 27 27 4F 52 47 41 4E 49 47 52 41 de l''ORGANIGRA
0000C0: 4D 4D 45 7D 0D 0A 20 20 44 65 66 69 6E 65 57 69 MME}.. DefineWi
0000D0: 6E 64 6F 77 28 32 2C 31 32 2C 32 30 2C 32 35 2C ndow(2,12,20,25,
0000E0: 34 30 29 3B 20 20 20 20 20 20 20 20 20 20 20 20 40);
0000F0: 20 20 7B 64 65 66 69 6E 69 74 20 6C 61 20 66 65 {definit la fe
000100: 6E 65 74 72 65 20 64 65 20 44 45 42 55 54 7D 0D netre de DEBUT}.
000110: 0A 20 20 44 65 66 69 6E 65 57 69 6E 64 6F 77 28 . DefineWindow(
000120: 33 2C 31 35 2C 35 35 2C 32 32 2C 37 35 29 3B 20 3,15,55,22,75);
000130: 20 20 20 20 20 20 20 20 20 20 20 20 20 7B 64 65 {de
000140: 66 69 6E 69 74 20 6C 61 20 66 65 6E 65 74 72 65 finit la fenetre
000150: 20 27 49 3D 31 27 7D 0D 0A 20 20 44 65 66 69 6E 'I=1'}.. Defin
000160: 65 57 69 6E 64 6F 77 28 34 2C 31 31 2C 31 31 30 eWindow(4,11,110
000170: 2C 32 36 2C 31 33 30 29 3B 20 20 20 20 20 20 20 ,26,130);
000180: 20 20 20 20 20 7B 64 65 66 69 6E 69 74 20 6C 61 {definit la
000190: 20 66 65 6E 65 74 72 65 20 27 49 46 20 49 3C 3D fenetre 'IF I<=
0001A0: 35 27 7D 0D 0A 20 20 44 65 66 69 6E 65 57 69 6E 5'}.. DefineWin
0001B0: 64 6F 77 28 35 2C 34 37 2C 39 30 2C 35 36 2C 31 dow(5,47,90,56,1
0001C0: 31 30 29 3B 20 20 20 20 20 20 20 20 20 20 20 20 10);
0001D0: 20 7B 64 65 66 69 6E 69 74 20 6C 61 20 66 65 6E {definit la fen
0001E0: 65 74 72 65 20 27 49 3D 49 2B 31 27 7D 0D 0A 0D etre 'I=I+1'}...
0001F0: 0A 20 20 43 6C 65 61 72 53 63 72 65 65 6E 3B 20 . ClearScreen;
Size : 512 (Real : 512)
000000: 64 75 6D 6D 79 79 3B 0D 0A 20 20 20 20 20 20 20 dummyy;..
000010: 20 53 65 74 43 6F 6C 6F 72 57 68 69 74 65 3B 0D SetColorWhite;.
000020: 0A 20 20 20 20 20 20 65 6E 64 0D 0A 20 20 20 20 . end..
000030: 65 6C 73 65 20 62 72 65 61 6B 3A 3D 74 72 75 65 else break:=true
000040: 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ;
000050: 20 20 20 7B 66 61 69 74 3F 7D 0D 0A 20 20 75 6E {fait?}.. un
000060: 74 69 6C 20 62 72 65 61 6B 3B 0D 0A 65 6E 64 3B til break;..end;
000070: 0D 0A 0D 0A 0D 0A 0D 0A 62 65 67 69 6E 0D 0A 0D ........begin...
000080: 0A 49 6E 69 74 47 72 61 70 68 69 63 3B 20 20 20 .InitGraphic;
000090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000A0: 20 20 20 20 20 20 20 20 7B 69 6E 69 74 69 61 6C {initial
0000B0: 69 73 65 20 6C 65 73 20 67 72 61 70 68 69 73 6D ise les graphism
0000C0: 65 73 7D 0D 0A 0D 0A 42 65 7A 69 65 72 44 65 6D es}....BezierDem
0000D0: 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ;
0000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7B 66 {f
0000F0: 61 69 74 20 6C 61 20 64 65 6D 6F 7D 0D 0A 0D 0A ait la demo}....
000100: 4C 65 61 76 65 47 72 61 70 68 69 63 3B 20 20 20 LeaveGraphic;
000110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000120: 20 20 20 20 20 20 20 7B 71 75 69 74 74 65 20 6C {quitte l
000130: 65 20 67 72 61 70 68 69 73 6D 65 7D 0D 0A 0D 0A e graphisme}....
000140: 65 6E 64 2E 0D 0A 0D 0A 1A 1A 1A 1A 1A 1A 1A 1A end.............
000150: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000160: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000170: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000180: 79 6C 65 28 30 29 3B 0D 0A 20 20 20 20 20 20 20 yle(0);..
000190: 20 44 72 61 77 41 78 69 73 28 30 2C 30 2C 30 2C DrawAxis(0,0,0,
0001A0: 30 2C 30 2C 30 2C 30 2C 30 2C 66 61 6C 73 65 29 0,0,0,0,0,false)
0001B0: 3B 0D 0A 20 20 20 20 20 20 20 20 44 72 61 77 50 ;.. DrawP
0001C0: 6F 6C 79 67 6F 6E 28 62 2C 31 2C 4D 61 78 49 6E olygon(b,1,MaxIn
0001D0: 74 50 6F 69 6E 74 73 2C 30 2C 30 2C 30 29 3B 0D tPoints,0,0,0);.
0001E0: 0A 20 20 20 20 20 20 20 20 61 5B 69 2C 31 5D 3A . a[i,1]:
0001F0: 3D 64 75 6D 6D 79 78 3B 61 5B 69 2C 32 5D 3A 3D =dummyx;a[i,2]:=
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000010: 20 20 20 20 20 20 20 20 20 20 20 20 20 7B 74 72 {tr
000020: 61 63 65 20 75 6E 65 20 66 65 6E 65 74 72 65 20 ace une fenetre
000030: 65 6E 74 6F 75 72 65 65 7D 0D 0A 20 20 53 65 74 entouree}.. Set
000040: 43 6F 6C 6F 72 57 68 69 74 65 3B 0D 0A 20 20 44 ColorWhite;.. D
000050: 65 66 69 6E 65 48 65 61 64 65 72 28 31 2C 27 55 efineHeader(1,'U
000060: 4E 20 4F 52 47 41 4E 49 47 52 41 4D 4D 45 27 29 N ORGANIGRAMME')
000070: 3B 0D 0A 20 20 53 65 74 48 65 61 64 65 72 4F 6E ;.. SetHeaderOn
000080: 3B 0D 0A 20 20 53 65 6C 65 63 74 57 69 6E 64 6F ;.. SelectWindo
000090: 77 28 31 29 3B 0D 0A 20 20 44 72 61 77 42 6F 72 w(1);.. DrawBor
0000A0: 64 65 72 3B 0D 0A 20 20 53 65 74 48 65 61 64 65 der;.. SetHeade
0000B0: 72 4F 66 66 3B 0D 0A 0D 0A 20 20 53 65 6C 65 63 rOff;.... Selec
0000C0: 74 57 69 6E 64 6F 77 28 32 29 3B 20 20 20 20 20 tWindow(2);
0000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000E0: 20 20 20 20 20 7B 74 72 61 63 65 20 6C 61 20 66 {trace la f
0000F0: 65 6E 65 74 72 65 20 64 65 20 44 45 42 55 54 7D enetre de DEBUT}
000100: 0D 0A 20 20 44 72 61 77 42 6F 72 64 65 72 3B 0D .. DrawBorder;.
000110: 0A 20 20 44 72 61 77 54 65 78 74 28 31 32 35 2C . DrawText(125,
000120: 32 37 2C 32 2C 27 44 45 42 55 54 27 29 3B 0D 0A 27,2,'DEBUT');..
000130: 20 20 53 65 74 57 69 6E 64 6F 77 4D 6F 64 65 4F SetWindowModeO
000140: 66 66 3B 0D 0A 20 20 44 72 61 77 41 72 72 6F 77 ff;.. DrawArrow
000150: 56 65 72 28 31 35 31 2C 34 30 2C 31 35 31 2C 35 Ver(151,40,151,5
000160: 35 29 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 5);
000170: 20 7B 74 72 61 63 65 20 6C 65 73 20 6C 69 67 6E {trace les lign
000180: 65 73 20 61 20 72 65 6C 69 65 72 7D 0D 0A 20 20 es a relier}..
000190: 53 65 74 57 69 6E 64 6F 77 4D 6F 64 65 4F 6E 3B SetWindowModeOn;
0001A0: 0D 0A 0D 0A 20 20 53 65 6C 65 63 74 57 69 6E 64 .... SelectWind
0001B0: 6F 77 28 33 29 3B 20 20 20 20 20 20 20 20 20 20 ow(3);
0001C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001D0: 7B 74 72 61 63 65 20 6C 61 20 66 65 6E 65 74 72 {trace la fenetr
0001E0: 65 20 27 49 3D 31 27 20 7D 0D 0A 20 20 44 72 61 e 'I=1' }.. Dra
0001F0: 77 42 6F 72 64 65 72 3B 0D 0A 20 20 44 72 61 77 wBorder;.. Draw
Size : 512 (Real : 512)
000000: 00 00 23 10 FE 00 08 03 07 77 80 FE 03 08 01 01 ..#......w......
000010: 87 80 FE 03 09 01 06 97 80 FE 07 08 04 07 77 80 ..............w.
000020: FE 0B 08 01 01 87 80 FE 0B 09 01 06 97 80 FE 0F ................
000030: 08 03 07 77 80 FE 12 08 01 01 87 80 FE 12 09 01 ...w............
000040: 06 97 80 FE 16 08 04 07 77 80 FE 1A 08 01 01 87 ........w.......
000050: 80 FE 1A 09 01 06 97 80 FE 1E 08 03 07 77 80 FE .............w..
000060: 21 08 01 01 87 80 FE 21 09 01 06 97 80 FE 25 08 !......!......%.
000070: 02 07 77 80 FE 27 08 01 01 87 80 FE 27 09 01 06 ..w..'......'...
000080: 97 80 FE 00 0F 28 05 77 80 FF 00 00 02 02 06 06 .....(.w........
000090: 14 14 12 12 08 08 18 18 1A 1A 14 14 03 03 12 00 ................
0000A0: 00 12 04 04 14 02 02 14 0F 0F 00 22 00 20 4A 65 ...........". Je
0000B0: 6E 6E 79 20 47 6F 65 73 20 53 70 69 6E 6E 69 6E nny Goes Spinnin
0000C0: 67 20 01 00 00 09 01 02 23 10 00 27 09 01 02 23 g ......#..'...#
0000D0: 10 08 07 04 1A 0C 57 82 F8 03 01 01 12 67 82 F8 ......W......g..
0000E0: 04 01 01 12 77 82 F8 23 01 01 12 67 82 F8 24 01 ....w..#...g..$.
0000F0: 01 12 77 82 0A 0E 01 00 00 23 10 0A 0B 0A 08 00 ..w......#......
000100: 57 82 0A 13 08 08 00 57 82 0A 19 12 00 00 23 10 W......W......#.
000110: 0A 1C 0A 08 00 57 82 FD 0C 09 01 01 E7 78 FD 0C .....W.......x..
000120: 0B 01 01 E7 78 FD 12 07 01 01 E7 78 FD 14 07 01 ....x......x....
000130: 01 E7 78 FD 18 0B 01 01 E7 78 FD 1C 09 01 01 E7 ..x......x......
000140: 78 FF 00 00 0F 0F 06 06 14 14 14 14 08 08 18 18 x...............
000150: 1A 1A 05 05 03 03 14 00 00 14 13 13 14 02 02 14 ................
000160: 0A 0A 00 23 00 00 20 20 4D 69 73 73 69 6C 65 20 ...#.. Missile
000170: 53 69 6C 6F 20 23 34 37 20 20 01 00 27 01 01 02 Silo #47 ..'...
000180: 23 10 0A 07 02 00 00 23 10 FD 1A 03 02 01 E7 78 #......#.......x
000190: 0A 1A 04 00 00 23 10 0A 1B 04 00 00 23 10 00 1A .....#......#...
0001A0: 05 02 03 97 84 F9 1F 05 02 0E 6B 84 09 23 05 02 ..........k..#..
0001B0: 01 57 7F 09 05 07 12 01 57 7F 00 19 07 01 01 7B .W......W......{
0001C0: 84 00 1C 07 01 01 8B 84 0A 21 07 00 00 23 10 09 .........!...#..
0001D0: 25 07 02 01 57 7F 09 19 08 06 01 6B 84 FD 21 08 %...W......k..!.
0001E0: 01 01 D7 78 09 01 09 02 01 57 7F 0A 13 09 00 00 ...x.....W......
0001F0: 23 10 00 19 09 04 09 97 84 09 23 09 02 01 57 7F #.........#...W.
Size : 512 (Real : 512)
000000: 54 65 78 74 28 31 33 36 2C 36 33 2C 32 2C 27 49 Text(136,63,2,'I
000010: 3D 31 27 29 3B 0D 0A 20 20 53 65 74 57 69 6E 64 =1');.. SetWind
000020: 6F 77 4D 6F 64 65 4F 66 66 3B 0D 0A 20 20 44 72 owModeOff;.. Dr
000030: 61 77 41 72 72 6F 77 56 65 72 28 31 35 31 2C 37 awArrowVer(151,7
000040: 35 2C 31 35 31 2C 31 31 30 29 3B 20 20 20 20 20 5,151,110);
000050: 20 20 20 20 20 20 20 20 7B 74 72 61 63 65 20 6C {trace l
000060: 61 20 6C 69 67 6E 65 20 61 20 72 65 6C 69 65 72 a ligne a relier
000070: 7D 0D 0A 20 20 53 65 74 57 69 6E 64 6F 77 4D 6F }.. SetWindowMo
000080: 64 65 4F 6E 3B 0D 0A 0D 0A 20 20 53 65 6C 65 63 deOn;.... Selec
000090: 74 57 69 6E 64 6F 77 28 34 29 3B 20 20 20 20 20 tWindow(4);
0000A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000B0: 20 20 20 20 20 7B 74 72 61 63 65 20 6C 61 20 66 {trace la f
0000C0: 65 6E 65 74 72 65 20 27 49 46 20 49 3E 3D 35 27 enetre 'IF I>=5'
0000D0: 7D 0D 0A 20 20 44 72 61 77 42 6F 72 64 65 72 3B }.. DrawBorder;
0000E0: 0D 0A 20 20 44 72 61 77 54 65 78 74 28 31 30 38 .. DrawText(108
0000F0: 2C 31 31 38 2C 32 2C 27 49 46 20 49 3C 3D 35 27 ,118,2,'IF I<=5'
000100: 29 3B 0D 0A 20 20 44 72 61 77 53 74 72 61 69 67 );.. DrawStraig
000110: 68 74 28 32 31 35 2C 34 31 37 2C 31 32 30 29 3B ht(215,417,120);
000120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000130: 7B 74 72 61 63 65 20 6C 61 20 6C 69 67 6E 65 20 {trace la ligne
000140: 61 20 72 65 6C 69 65 72 7D 0D 0A 20 20 53 65 74 a relier}.. Set
000150: 57 69 6E 64 6F 77 4D 6F 64 65 4F 66 66 3B 0D 0A WindowModeOff;..
000160: 20 20 44 72 61 77 41 72 72 6F 77 56 65 72 28 34 DrawArrowVer(4
000170: 31 37 2C 31 32 30 2C 34 31 37 2C 31 31 30 29 3B 17,120,417,110);
000180: 0D 0A 20 20 44 72 61 77 41 72 72 6F 77 56 65 72 .. DrawArrowVer
000190: 28 31 35 31 2C 31 33 30 2C 31 35 31 2C 31 35 35 (151,130,151,155
0001A0: 29 3B 0D 0A 20 20 53 65 74 57 69 6E 64 6F 77 4D );.. SetWindowM
0001B0: 6F 64 65 4F 6E 3B 0D 0A 20 20 53 65 6C 65 63 74 odeOn;.. Select
0001C0: 57 69 6E 64 6F 77 28 31 29 3B 0D 0A 20 20 44 72 Window(1);.. Dr
0001D0: 61 77 54 65 78 74 28 33 30 30 2C 31 31 30 2C 32 awText(300,110,2
0001E0: 2C 27 4F 55 49 27 29 3B 0D 0A 20 20 44 72 61 77 ,'OUI');.. Draw
0001F0: 54 65 78 74 28 31 36 30 2C 31 33 37 2C 32 2C 27 Text(160,137,2,'
Size : 512 (Real : 512)
000000: 70 72 6F 67 72 61 6D 20 46 6C 6F 77 44 65 6D 6F program FlowDemo
000010: 3B 0D 0A 0D 0A 7B 24 49 20 74 79 70 65 64 65 66 ;....{$I typedef
000020: 2E 73 79 73 7D 20 20 20 20 20 20 20 20 20 20 20 .sys}
000030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000040: 20 20 7B 43 65 73 20 66 69 63 68 69 65 72 73 20 {Ces fichiers
000050: 64 6F 69 76 65 6E 74 20 65 74 72 65 7D 0D 0A 7B doivent etre}..{
000060: 24 49 20 67 72 61 70 68 69 78 2E 73 79 73 7D 20 $I graphix.sys}
000070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000080: 20 20 20 20 20 20 20 20 20 20 20 20 7B 69 6E 63 {inc
000090: 6C 75 73 20 64 61 6E 73 20 63 65 74 20 6F 72 64 lus dans cet ord
0000A0: 72 65 7D 0D 0A 7B 24 49 20 6B 65 72 6E 65 6C 2E re}..{$I kernel.
0000B0: 73 79 73 7D 0D 0A 7B 24 49 20 6B 65 72 6E 65 6C sys}..{$I kernel
0000C0: 31 2E 73 79 73 7D 0D 0A 7B 24 49 20 77 69 6E 64 1.sys}..{$I wind
0000D0: 6F 77 73 2E 73 79 73 7D 0D 0A 0D 0A 70 72 6F 63 ows.sys}....proc
0000E0: 65 64 75 72 65 20 46 6C 6F 77 43 68 61 72 74 44 edure FlowChartD
0000F0: 65 6D 6F 3B 0D 0A 0D 0A 76 61 72 20 58 31 2C 59 emo;....var X1,Y
000100: 31 2C 58 32 2C 59 32 2C 69 2C 43 6F 75 6E 74 3A 1,X2,Y2,i,Count:
000110: 69 6E 74 65 67 65 72 3B 0D 0A 20 20 20 20 54 65 integer;.. Te
000120: 6D 70 3A 77 72 6B 73 74 72 69 6E 67 3B 0D 0A 0D mp:wrkstring;...
000130: 0A 0D 0A 70 72 6F 63 65 64 75 72 65 20 44 72 61 ...procedure Dra
000140: 77 41 72 72 6F 77 48 6F 72 28 58 31 2C 59 31 2C wArrowHor(X1,Y1,
000150: 58 32 2C 59 32 3A 69 6E 74 65 67 65 72 29 3B 20 X2,Y2:integer);
000160: 7B 74 72 61 63 65 20 75 6E 65 20 66 6C 65 63 68 {trace une flech
000170: 65 20 68 6F 72 69 7A 6F 6E 74 61 6C 65 7D 0D 0A e horizontale}..
000180: 0D 0A 62 65 67 69 6E 0D 0A 20 20 44 72 61 77 4C ..begin.. DrawL
000190: 69 6E 65 28 58 31 2C 59 31 2C 58 32 2C 59 32 29 ine(X1,Y1,X2,Y2)
0001A0: 3B 0D 0A 20 20 69 66 20 58 32 3E 58 31 20 74 68 ;.. if X2>X1 th
0001B0: 65 6E 0D 0A 20 20 20 62 65 67 69 6E 0D 0A 20 20 en.. begin..
0001C0: 20 20 44 72 61 77 4C 69 6E 65 28 58 32 2D 34 2C DrawLine(X2-4,
0001D0: 59 32 2D 32 2C 58 32 2C 59 32 29 3B 0D 0A 20 20 Y2-2,X2,Y2);..
0001E0: 20 20 44 72 61 77 4C 69 6E 65 28 58 32 2D 34 2C DrawLine(X2-4,
0001F0: 59 32 2B 32 2C 58 32 2C 59 32 29 3B 0D 0A 20 20 Y2+2,X2,Y2);..
Size : 512 (Real : 512)
000000: 4E 4F 4E 27 29 3B 0D 0A 0D 0A 20 20 53 65 6C 65 NON');.... Sele
000010: 63 74 57 69 6E 64 6F 77 28 35 29 3B 20 20 20 20 ctWindow(5);
000020: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000030: 20 20 20 20 20 20 7B 74 72 61 63 65 20 6C 61 20 {trace la
000040: 66 65 6E 65 74 72 65 20 27 49 3D 49 2B 31 27 7D fenetre 'I=I+1'}
000050: 0D 0A 20 20 44 72 61 77 42 6F 72 64 65 72 3B 0D .. DrawBorder;.
000060: 0A 20 20 44 72 61 77 54 65 78 74 28 33 39 30 2C . DrawText(390,
000070: 39 38 2C 32 2C 27 49 3D 49 2B 31 27 29 3B 0D 0A 98,2,'I=I+1');..
000080: 20 20 53 65 74 57 69 6E 64 6F 77 4D 6F 64 65 4F SetWindowModeO
000090: 66 66 3B 0D 0A 20 20 44 72 61 77 4C 69 6E 65 28 ff;.. DrawLine(
0000A0: 34 31 37 2C 39 30 2C 34 31 37 2C 38 30 29 3B 20 417,90,417,80);
0000B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000C0: 20 7B 74 72 61 63 65 20 6C 65 73 20 6C 69 67 6E {trace les lign
0000D0: 65 73 20 61 20 72 65 6C 69 65 72 7D 0D 0A 20 20 es a relier}..
0000E0: 44 72 61 77 41 72 72 6F 77 48 6F 72 28 34 31 37 DrawArrowHor(417
0000F0: 2C 38 30 2C 31 35 31 2C 38 30 29 3B 0D 0A 0D 0A ,80,151,80);....
000100: 20 20 53 65 74 41 73 70 65 63 74 28 31 2E 30 29 SetAspect(1.0)
000110: 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ;
000120: 20 20 20 20 20 20 20 20 20 20 20 20 7B 74 72 61 {tra
000130: 63 65 20 46 49 4E 20 64 75 20 63 65 72 63 6C 65 ce FIN du cercle
000140: 7D 0D 0A 20 20 44 72 61 77 43 69 72 63 6C 65 28 }.. DrawCircle(
000150: 31 35 31 2C 31 36 35 2C 32 35 29 3B 0D 0A 20 20 151,165,25);..
000160: 53 65 6C 65 63 74 57 69 6E 64 6F 77 28 31 29 3B SelectWindow(1);
000170: 0D 0A 20 20 44 72 61 77 54 65 78 74 28 31 33 37 .. DrawText(137
000180: 2C 31 36 33 2C 32 2C 27 46 49 4E 27 29 3B 0D 0A ,163,2,'FIN');..
000190: 20 20 53 65 74 57 69 6E 64 6F 77 4D 6F 64 65 4F SetWindowModeO
0001A0: 6E 3B 0D 0A 20 20 53 65 74 48 65 61 64 65 72 4F n;.. SetHeaderO
0001B0: 6E 3B 0D 0A 0D 0A 20 20 43 6F 70 79 53 63 72 65 n;.... CopyScre
0001C0: 65 6E 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 en;
0001D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001E0: 20 20 7B 66 61 69 74 20 75 6E 65 20 69 6D 61 67 {fait une imag
0001F0: 65 20 64 65 20 6C 27 27 65 63 72 61 6E 7D 0D 0A e de l''ecran}..
Size : 512 (Real : 512)
000000: 70 72 6F 67 72 61 6D 20 4D 6F 76 65 50 6F 6C 79 program MovePoly
000010: 67 6F 6E 3B 0D 0A 0D 0A 7B 24 49 20 74 79 70 65 gon;....{$I type
000020: 64 65 66 2E 73 79 73 7D 20 20 20 20 20 20 20 20 def.sys}
000030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7B {
000040: 43 65 73 20 66 69 63 68 69 65 72 73 20 64 6F 69 Ces fichiers doi
000050: 76 65 6E 74 20 65 74 72 65 7D 0D 0A 7B 24 49 20 vent etre}..{$I
000060: 67 72 61 70 68 69 78 2E 73 79 73 7D 20 20 20 20 graphix.sys}
000070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000080: 20 20 20 7B 69 6E 63 6C 75 73 20 64 61 6E 73 20 {inclus dans
000090: 63 65 74 20 6F 72 64 72 65 7D 0D 0A 7B 24 49 20 cet ordre}..{$I
0000A0: 6B 65 72 6E 65 6C 2E 73 79 73 7D 0D 0A 7B 24 49 kernel.sys}..{$I
0000B0: 20 6B 65 72 6E 65 6C 31 2E 73 79 73 7D 0D 0A 7B kernel1.sys}..{
0000C0: 24 49 20 77 69 6E 64 6F 77 73 2E 73 79 73 7D 0D $I windows.sys}.
0000D0: 0A 7B 24 49 20 70 6F 6C 79 67 6F 6E 2E 68 67 68 .{$I polygon.hgh
0000E0: 7D 0D 0A 7B 24 49 20 6D 6F 64 70 6F 6C 79 2E 68 }..{$I modpoly.h
0000F0: 67 68 7D 0D 0A 0D 0A 76 61 72 20 41 72 72 6F 77 gh}....var Arrow
000100: 41 6E 67 6C 65 3A 20 69 6E 74 65 67 65 72 3B 0D Angle: integer;.
000110: 0A 20 20 20 43 68 3A 20 63 68 61 72 3B 0D 0A 20 . Ch: char;..
000120: 20 20 41 72 72 6F 77 3A 20 50 6C 6F 74 41 72 72 Arrow: PlotArr
000130: 61 79 3B 0D 0A 20 20 20 43 75 72 72 58 2C 43 75 ay;.. CurrX,Cu
000140: 72 72 59 2C 49 6E 63 72 58 2C 49 6E 63 72 59 2C rrY,IncrX,IncrY,
000150: 53 69 7A 65 2C 53 70 65 65 64 3A 20 72 65 61 6C Size,Speed: real
000160: 3B 0D 0A 20 20 20 41 72 72 6F 77 49 6E 63 72 3A ;.. ArrowIncr:
000170: 20 61 72 72 61 79 5B 30 2E 2E 37 2C 31 2E 2E 32 array[0..7,1..2
000180: 5D 20 6F 66 20 72 65 61 6C 3B 0D 0A 0D 0A 0D 0A ] of real;......
000190: 70 72 6F 63 65 64 75 72 65 20 4D 61 6B 65 41 72 procedure MakeAr
0001A0: 72 6F 77 3B 0D 0A 62 65 67 69 6E 20 20 20 20 20 row;..begin
0001B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 7B 69 6E {in
0001D0: 69 74 69 61 6C 69 73 61 74 69 6F 6E 20 64 27 27 itialisation d''
0001E0: 75 6E 20 74 61 62 6C 65 61 75 20 64 65 20 66 6C un tableau de fl
0001F0: 65 63 68 65 73 7D 0D 0A 20 20 41 72 72 6F 77 5B eches}.. Arrow[
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000010: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000020: 20 20 20 20 20 20 20 20 20 20 20 20 7B 73 75 72 {sur
000030: 20 6C 61 20 52 41 4D 20 65 63 72 61 6E 7D 0D 0A la RAM ecran}..
000040: 20 20 7B 43 6C 65 61 72 45 6F 6C 28 32 35 29 3B {ClearEol(25);
000050: 7D 0D 0A 20 20 7B 67 6F 74 6F 78 79 28 32 37 2C }.. {gotoxy(27,
000060: 32 35 29 3B 7D 0D 0A 0D 0A 20 20 44 65 66 69 6E 25);}.... Defin
000070: 65 57 69 6E 64 6F 77 28 32 2C 31 35 2C 32 31 2C eWindow(2,15,21,
000080: 32 32 2C 33 39 29 3B 20 20 20 20 20 20 20 20 20 22,39);
000090: 20 20 20 20 20 7B 64 65 66 69 6E 69 74 20 6C 61 {definit la
0000A0: 20 66 65 6E 65 74 72 65 20 61 20 65 6E 6C 65 76 fenetre a enlev
0000B0: 65 72 7D 0D 0A 20 20 53 65 6C 65 63 74 57 69 6E er}.. SelectWin
0000C0: 64 6F 77 28 32 29 3B 0D 0A 20 20 53 65 74 42 61 dow(2);.. SetBa
0000D0: 63 6B 67 72 6F 75 6E 64 28 30 29 3B 0D 0A 20 20 ckground(0);..
0000E0: 44 72 61 77 42 6F 72 64 65 72 3B 0D 0A 20 20 49 DrawBorder;.. I
0000F0: 6E 76 65 72 74 57 69 6E 64 6F 77 3B 0D 0A 20 20 nvertWindow;..
000100: 44 65 6C 61 79 28 31 30 30 30 29 3B 0D 0A 20 20 Delay(1000);..
000110: 49 6E 76 65 72 74 57 69 6E 64 6F 77 3B 0D 0A 0D InvertWindow;...
000120: 0A 20 20 54 65 6D 70 3A 3D 27 31 32 33 34 35 36 . Temp:='123456
000130: 27 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ';
000140: 20 20 20 20 20 20 20 20 20 20 20 20 7B 69 6E 69 {ini
000150: 74 69 61 6C 69 73 65 20 6C 65 20 6E 75 6D 65 72 tialise le numer
000160: 6F 20 64 75 20 74 61 62 6C 65 61 75 7D 0D 0A 20 o du tableau}..
000170: 20 4D 6F 76 65 56 65 72 28 33 35 2C 74 72 75 65 MoveVer(35,true
000180: 29 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 );
000190: 20 20 20 20 20 20 20 20 20 20 7B 65 6E 6C 65 76 {enlev
0001A0: 65 72 20 6C 61 20 66 65 6E 65 74 72 65 7D 0D 0A er la fenetre}..
0001B0: 20 20 44 72 61 77 54 65 78 74 28 31 33 39 2C 36 DrawText(139,6
0001C0: 33 2C 32 2C 27 49 3D 27 2B 54 65 6D 70 5B 31 5D 3,2,'I='+Temp[1]
0001D0: 29 3B 20 20 20 20 20 20 20 20 20 7B 6C 27 69 6E ); {l'in
0001E0: 69 74 69 61 6C 69 73 65 7D 0D 0A 20 20 42 6C 69 itialise}.. Bli
0001F0: 6E 6B 28 33 30 2C 35 30 29 3B 0D 0A 20 20 4D 6F nk(30,50);.. Mo
Size : 512 (Real : 512)
000000: 31 2C 31 5D 3A 3D 30 3B 0D 0A 20 20 41 72 72 6F 1,1]:=0;.. Arro
000010: 77 5B 31 2C 32 5D 3A 3D 30 3B 0D 0A 20 20 41 72 w[1,2]:=0;.. Ar
000020: 72 6F 77 5B 32 2C 31 5D 3A 3D 53 69 7A 65 3B 0D row[2,1]:=Size;.
000030: 0A 20 20 41 72 72 6F 77 5B 32 2C 32 5D 3A 3D 2D . Arrow[2,2]:=-
000040: 53 69 7A 65 3B 0D 0A 20 20 41 72 72 6F 77 5B 33 Size;.. Arrow[3
000050: 2C 31 5D 3A 3D 30 3B 0D 0A 20 20 41 72 72 6F 77 ,1]:=0;.. Arrow
000060: 5B 33 2C 32 5D 3A 3D 53 69 7A 65 3B 0D 0A 20 20 [3,2]:=Size;..
000070: 41 72 72 6F 77 5B 34 2C 31 5D 3A 3D 2D 53 69 7A Arrow[4,1]:=-Siz
000080: 65 3B 0D 0A 20 20 41 72 72 6F 77 5B 34 2C 32 5D e;.. Arrow[4,2]
000090: 3A 3D 2D 53 69 7A 65 3B 0D 0A 20 20 41 72 72 6F :=-Size;.. Arro
0000A0: 77 5B 35 2C 31 5D 3A 3D 30 3B 0D 0A 20 20 41 72 w[5,1]:=0;.. Ar
0000B0: 72 6F 77 5B 35 2C 32 5D 3A 3D 30 3B 0D 0A 65 6E row[5,2]:=0;..en
0000C0: 64 3B 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 65 20 d;....procedure
0000D0: 4D 61 6B 65 4D 6F 76 65 54 61 62 6C 65 3B 0D 0A MakeMoveTable;..
0000E0: 62 65 67 69 6E 0D 0A 20 20 41 72 72 6F 77 49 6E begin.. ArrowIn
0000F0: 63 72 5B 30 2C 31 5D 3A 3D 30 3B 0D 0A 20 20 41 cr[0,1]:=0;.. A
000100: 72 72 6F 77 49 6E 63 72 5B 30 2C 32 5D 3A 3D 31 rrowIncr[0,2]:=1
000110: 3B 0D 0A 20 20 41 72 72 6F 77 49 6E 63 72 5B 31 ;.. ArrowIncr[1
000120: 2C 31 5D 3A 3D 2D 31 3B 0D 0A 20 20 41 72 72 6F ,1]:=-1;.. Arro
000130: 77 49 6E 63 72 5B 31 2C 32 5D 3A 3D 31 3B 0D 0A wIncr[1,2]:=1;..
000140: 20 20 41 72 72 6F 77 49 6E 63 72 5B 32 2C 31 5D ArrowIncr[2,1]
000150: 3A 3D 2D 31 3B 0D 0A 20 20 41 72 72 6F 77 49 6E :=-1;.. ArrowIn
000160: 63 72 5B 32 2C 32 5D 3A 3D 30 3B 0D 0A 20 20 41 cr[2,2]:=0;.. A
000170: 72 72 6F 77 49 6E 63 72 5B 33 2C 31 5D 3A 3D 2D rrowIncr[3,1]:=-
000180: 31 3B 0D 0A 20 20 41 72 72 6F 77 49 6E 63 72 5B 1;.. ArrowIncr[
000190: 33 2C 32 5D 3A 3D 2D 31 3B 0D 0A 20 20 41 72 72 3,2]:=-1;.. Arr
0001A0: 6F 77 49 6E 63 72 5B 34 2C 31 5D 3A 3D 30 3B 0D owIncr[4,1]:=0;.
0001B0: 0A 20 20 41 72 72 6F 77 49 6E 63 72 5B 34 2C 32 . ArrowIncr[4,2
0001C0: 5D 3A 3D 2D 31 3B 0D 0A 20 20 41 72 72 6F 77 49 ]:=-1;.. ArrowI
0001D0: 6E 63 72 5B 35 2C 31 5D 3A 3D 31 3B 0D 0A 20 20 ncr[5,1]:=1;..
0001E0: 41 72 72 6F 77 49 6E 63 72 5B 35 2C 32 5D 3A 3D ArrowIncr[5,2]:=
0001F0: 2D 31 3B 0D 0A 20 20 41 72 72 6F 77 49 6E 63 72 -1;.. ArrowIncr
Size : 512 (Real : 512)
000000: 76 65 56 65 72 28 35 35 2C 74 72 75 65 29 3B 20 veVer(55,true);
000010: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000020: 20 20 20 20 20 20 20 7B 74 72 61 6E 73 66 65 72 {transfer
000030: 74 7D 0D 0A 0D 0A 20 20 66 6F 72 20 43 6F 75 6E t}.... for Coun
000040: 74 3A 3D 32 20 74 6F 20 36 20 64 6F 20 20 20 20 t:=2 to 6 do
000050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000060: 20 7B 69 6E 63 72 65 6D 65 6E 74 61 74 69 6F 6E {incrementation
000070: 7D 0D 0A 20 20 20 20 62 65 67 69 6E 0D 0A 20 20 }.. begin..
000080: 20 20 20 20 44 65 6C 61 79 28 35 30 30 29 3B 0D Delay(500);.
000090: 0A 20 20 20 20 20 20 4D 6F 76 65 48 6F 72 28 33 . MoveHor(3
0000A0: 33 2C 74 72 75 65 29 3B 0D 0A 20 20 20 20 20 20 3,true);..
0000B0: 4D 6F 76 65 56 65 72 28 2D 32 30 2C 74 72 75 65 MoveVer(-20,true
0000C0: 29 3B 0D 0A 20 20 20 20 20 20 53 65 74 42 61 63 );.. SetBac
0000D0: 6B 67 72 6F 75 6E 64 28 30 29 3B 0D 0A 20 20 20 kground(0);..
0000E0: 20 20 20 44 72 61 77 42 6F 72 64 65 72 3B 0D 0A DrawBorder;..
0000F0: 20 20 20 20 20 20 44 72 61 77 54 65 78 74 28 34 DrawText(4
000100: 30 30 2C 39 38 2C 32 2C 27 49 3D 27 2B 54 65 6D 00,98,2,'I='+Tem
000110: 70 5B 43 6F 75 6E 74 5D 29 3B 0D 0A 20 20 20 20 p[Count]);..
000120: 20 20 42 6C 69 6E 6B 28 33 30 2C 35 30 29 3B 0D Blink(30,50);.
000130: 0A 20 20 20 20 20 20 4D 6F 76 65 56 65 72 28 2D . MoveVer(-
000140: 32 30 2C 74 72 75 65 29 3B 0D 0A 20 20 20 20 20 20,true);..
000150: 20 4D 6F 76 65 48 6F 72 28 2D 33 33 2C 74 72 75 MoveHor(-33,tru
000160: 65 29 3B 0D 0A 20 20 20 20 20 20 4D 6F 76 65 56 e);.. MoveV
000170: 65 72 28 34 30 2C 74 72 75 65 29 3B 0D 0A 20 20 er(40,true);..
000180: 20 20 65 6E 64 3B 0D 0A 0D 0A 20 20 49 6E 76 65 end;.... Inve
000190: 72 74 57 69 6E 64 6F 77 3B 0D 0A 20 20 44 65 6C rtWindow;.. Del
0001A0: 61 79 28 31 30 30 30 29 3B 0D 0A 20 20 4D 6F 76 ay(1000);.. Mov
0001B0: 65 56 65 72 28 34 36 2C 74 72 75 65 29 3B 20 20 eVer(46,true);
0001C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001D0: 20 20 20 20 20 20 7B 6A 75 73 71 75 27 27 61 20 {jusqu''a
0001E0: 6C 61 20 66 69 6E 7D 0D 0A 20 20 42 6C 69 6E 6B la fin}.. Blink
0001F0: 28 33 30 2C 35 30 29 3B 0D 0A 0D 0A 20 20 4D 6F (30,50);.... Mo
Size : 512 (Real : 512)
000000: 5B 36 2C 31 5D 3A 3D 31 3B 0D 0A 20 20 41 72 72 [6,1]:=1;.. Arr
000010: 6F 77 49 6E 63 72 5B 36 2C 32 5D 3A 3D 30 3B 0D owIncr[6,2]:=0;.
000020: 0A 20 20 41 72 72 6F 77 49 6E 63 72 5B 37 2C 31 . ArrowIncr[7,1
000030: 5D 3A 3D 31 3B 0D 0A 20 20 41 72 72 6F 77 49 6E ]:=1;.. ArrowIn
000040: 63 72 5B 37 2C 32 5D 3A 3D 31 3B 0D 0A 65 6E 64 cr[7,2]:=1;..end
000050: 3B 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 65 20 4D ;....procedure M
000060: 6F 76 65 46 6F 72 77 61 72 64 3B 20 20 20 20 20 oveForward;
000070: 20 20 20 20 20 20 20 20 20 20 20 7B 72 6F 75 74 {rout
000080: 69 6E 65 20 70 6F 75 72 20 6D 6F 75 76 6F 69 72 ine pour mouvoir
000090: 20 6C 65 73 20 70 6F 6C 79 67 6F 6E 65 73 7D 0D les polygones}.
0000A0: 0A 62 65 67 69 6E 0D 0A 20 20 53 65 74 43 6F 6C .begin.. SetCol
0000B0: 6F 72 42 6C 61 63 6B 3B 20 20 20 20 20 20 20 20 orBlack;
0000C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7B 74 {t
0000D0: 72 61 63 65 20 73 75 72 20 6C 27 61 6E 63 69 65 race sur l'ancie
0000E0: 6E 20 70 6F 6C 79 67 6F 6E 65 20 65 74 20 6C 27 n polygone et l'
0000F0: 27 65 63 72 61 73 65 7D 0D 0A 20 20 44 72 61 77 'ecrase}.. Draw
000100: 50 6F 6C 79 67 6F 6E 28 41 72 72 6F 77 2C 31 2C Polygon(Arrow,1,
000110: 2D 35 2C 30 2C 30 2C 30 29 3B 0D 0A 20 20 43 75 -5,0,0,0);.. Cu
000120: 72 72 58 3A 3D 43 75 72 72 58 2B 49 6E 63 72 58 rrX:=CurrX+IncrX
000130: 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ;
000140: 20 20 7B 6E 6F 75 76 65 6C 6C 65 20 70 6F 73 69 {nouvelle posi
000150: 74 69 6F 6E 7D 0D 0A 20 20 43 75 72 72 59 3A 3D tion}.. CurrY:=
000160: 43 75 72 72 59 2B 49 6E 63 72 59 3B 0D 0A 20 20 CurrY+IncrY;..
000170: 54 72 61 6E 73 6C 61 74 65 50 6F 6C 79 67 6F 6E TranslatePolygon
000180: 28 41 72 72 6F 77 2C 35 2C 49 6E 63 72 58 2C 49 (Arrow,5,IncrX,I
000190: 6E 63 72 59 29 3B 0D 0A 20 20 53 65 74 43 6F 6C ncrY);.. SetCol
0001A0: 6F 72 57 68 69 74 65 3B 20 20 20 20 20 20 20 20 orWhite;
0001B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7B 74 {t
0001C0: 72 61 63 65 20 75 6E 20 70 6C 79 67 6F 6E 65 20 race un plygone
0001D0: 61 20 6C 61 20 6E 6F 75 76 65 6C 6C 65 20 70 6F a la nouvelle po
0001E0: 73 69 74 69 6F 6E 7D 0D 0A 20 20 44 72 61 77 50 sition}.. DrawP
0001F0: 6F 6C 79 67 6F 6E 28 41 72 72 6F 77 2C 31 2C 2D olygon(Arrow,1,-
Size : 512 (Real : 512)
000000: 76 65 48 6F 72 28 34 35 2C 74 72 75 65 29 3B 20 veHor(45,true);
000010: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000020: 20 20 20 20 20 20 20 7B 72 65 63 6F 70 69 65 20 {recopie
000030: 6C 65 20 68 61 75 74 7D 0D 0A 20 20 4D 6F 76 65 le haut}.. Move
000040: 56 65 72 28 2D 31 33 36 2C 74 72 75 65 29 3B 0D Ver(-136,true);.
000050: 0A 20 20 4D 6F 76 65 48 6F 72 28 2D 34 35 2C 74 . MoveHor(-45,t
000060: 72 75 65 29 3B 0D 0A 20 20 53 65 74 48 65 61 64 rue);.. SetHead
000070: 65 72 4F 6E 3B 0D 0A 65 6E 64 3B 0D 0A 0D 0A 0D erOn;..end;.....
000080: 0A 0D 0A 62 65 67 69 6E 0D 0A 0D 0A 49 6E 69 74 ...begin....Init
000090: 47 72 61 70 68 69 63 3B 20 20 20 20 20 20 20 20 Graphic;
0000A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000B0: 20 20 20 20 20 20 7B 69 6E 69 74 69 61 6C 69 73 {initialis
0000C0: 65 20 6C 65 73 20 20 67 72 61 70 68 69 73 6D 65 e les graphisme
0000D0: 73 7D 0D 0A 0D 0A 46 6C 6F 77 43 68 61 72 74 44 s}....FlowChartD
0000E0: 65 6D 6F 3B 20 20 20 20 20 20 20 20 20 20 20 20 emo;
0000F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000100: 7B 66 61 69 74 20 6C 61 20 64 65 6D 6F 7D 0D 0A {fait la demo}..
000110: 0D 0A 72 65 70 65 61 74 20 75 6E 74 69 6C 20 6B ..repeat until k
000120: 65 79 70 72 65 73 73 65 64 3B 20 20 20 20 20 20 eypressed;
000130: 20 20 20 20 20 20 20 20 20 20 20 20 7B 61 74 74 {att
000140: 65 6E 64 20 6A 75 73 71 75 27 27 61 20 63 65 20 end jusqu''a ce
000150: 71 75 27 27 75 6E 65 20 74 6F 75 63 68 65 20 73 qu''une touche s
000160: 6F 69 74 20 66 72 61 70 70 65 65 7D 0D 0A 0D 0A oit frappee}....
000170: 4C 65 61 76 65 47 72 61 70 68 69 63 3B 20 20 20 LeaveGraphic;
000180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000190: 20 20 20 20 20 20 20 20 20 20 7B 71 75 69 74 74 {quitt
0001A0: 65 20 6C 65 20 67 72 61 70 68 69 73 6D 65 7D 0D e le graphisme}.
0001B0: 0A 0D 0A 65 6E 64 2E 0D 0A 0D 0A 1A 1A 1A 1A 1A ...end..........
0001C0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0001D0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0001E0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0001F0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
Size : 512 (Real : 512)
000000: 35 2C 30 2C 30 2C 30 29 3B 0D 0A 65 6E 64 3B 0D 5,0,0,0);..end;.
000010: 0A 0D 0A 70 72 6F 63 65 64 75 72 65 20 4D 6F 76 ...procedure Mov
000020: 65 42 61 63 6B 3B 20 20 20 20 20 20 20 20 20 20 eBack;
000030: 20 20 20 20 20 20 20 20 20 7B 72 6F 75 74 69 6E {routin
000040: 65 20 70 6F 75 72 20 72 65 73 74 61 75 72 65 72 e pour restaurer
000050: 20 75 6E 20 70 6F 6C 79 67 6F 6E 65 7D 0D 0A 62 un polygone}..b
000060: 65 67 69 6E 0D 0A 20 20 53 65 74 43 6F 6C 6F 72 egin.. SetColor
000070: 42 6C 61 63 6B 3B 20 20 20 20 20 20 20 20 20 20 Black;
000080: 20 20 20 20 20 20 20 20 20 20 20 20 7B 6D 65 6D {mem
000090: 65 20 71 75 27 27 61 75 20 64 65 73 73 75 73 7D e qu''au dessus}
0000A0: 0D 0A 20 20 44 72 61 77 50 6F 6C 79 67 6F 6E 28 .. DrawPolygon(
0000B0: 41 72 72 6F 77 2C 31 2C 2D 35 2C 30 2C 30 2C 30 Arrow,1,-5,0,0,0
0000C0: 29 3B 0D 0A 20 20 43 75 72 72 58 3A 3D 43 75 72 );.. CurrX:=Cur
0000D0: 72 58 2D 49 6E 63 72 58 3B 0D 0A 20 20 43 75 72 rX-IncrX;.. Cur
0000E0: 72 59 3A 3D 43 75 72 72 59 2D 49 6E 63 72 59 3B rY:=CurrY-IncrY;
0000F0: 0D 0A 20 20 54 72 61 6E 73 6C 61 74 65 50 6F 6C .. TranslatePol
000100: 79 67 6F 6E 28 41 72 72 6F 77 2C 35 2C 2D 49 6E ygon(Arrow,5,-In
000110: 63 72 58 2C 2D 49 6E 63 72 59 29 3B 0D 0A 20 20 crX,-IncrY);..
000120: 53 65 74 43 6F 6C 6F 72 57 68 69 74 65 3B 0D 0A SetColorWhite;..
000130: 20 20 44 72 61 77 50 6F 6C 79 67 6F 6E 28 41 72 DrawPolygon(Ar
000140: 72 6F 77 2C 31 2C 2D 35 2C 30 2C 30 2C 30 29 3B row,1,-5,0,0,0);
000150: 0D 0A 65 6E 64 3B 0D 0A 0D 0A 70 72 6F 63 65 64 ..end;....proced
000160: 75 72 65 20 54 75 72 6E 4C 65 66 74 3B 20 20 20 ure TurnLeft;
000170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000180: 20 7B 72 6F 74 61 74 69 6F 6E 20 64 61 6E 73 20 {rotation dans
000190: 6C 65 20 73 65 6E 73 20 64 65 73 20 61 69 67 75 le sens des aigu
0001A0: 69 6C 6C 65 73 20 64 27 27 75 6E 65 20 6D 6F 6E illes d''une mon
0001B0: 74 72 65 7D 0D 0A 62 65 67 69 6E 0D 0A 20 20 53 tre}..begin.. S
0001C0: 65 74 43 6F 6C 6F 72 42 6C 61 63 6B 3B 20 20 20 etColorBlack;
0001D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001E0: 20 20 20 20 7B 6E 65 20 74 72 61 63 65 20 70 61 {ne trace pa
0001F0: 73 20 64 65 20 6C 27 61 6E 63 69 65 6E 20 70 6F s de l'ancien po
Size : 512 (Real : 512)
000000: 02 14 00 00 1A 03 00 00 20 20 20 4E 6A 6F 72 6C ........ Njorl
000010: 27 73 20 43 61 73 74 6C 65 20 20 20 00 FD 00 10 's Castle ....
000020: 28 04 D9 75 09 09 03 09 04 27 85 09 0A 07 07 09 (..u.....'......
000030: 27 85 09 11 0A 08 06 27 85 09 19 0B 01 01 27 85 '......'......'.
000040: 09 19 0C 02 01 27 85 09 19 0D 0D 02 27 85 09 19 .....'......'...
000050: 0F 0B 01 27 85 09 20 0B 07 02 27 85 09 1F 09 09 ...'.. ...'.....
000060: 02 27 85 FE 27 0A 01 03 27 85 FE 26 0D 01 01 27 .'..'...'..&...'
000070: 85 FE 25 0E 01 01 27 85 FD 24 0F 01 01 D7 78 09 ..%...'..$....x.
000080: 07 10 1E 01 47 8A 09 06 11 20 01 47 8A FC 0A 10 ....G.... .G....
000090: 1A 01 27 85 F8 14 05 03 0B 27 85 00 0A 03 01 01 ..'......'......
0000A0: 23 10 00 10 03 01 01 23 10 00 0D 0C 01 01 23 10 #......#......#.
0000B0: 00 11 0C 01 01 23 10 00 15 0C 01 01 23 10 00 15 .....#......#...
0000C0: 07 01 01 23 10 00 22 09 01 01 23 10 00 25 09 01 ...#.."...#..%..
0000D0: 01 23 10 00 23 0B 01 01 23 10 00 24 0D 01 01 23 .#..#...#..$...#
0000E0: 10 00 0C 03 03 02 23 10 FD 0D 06 01 04 D7 78 FD ......#.......x.
0000F0: 0C 07 03 01 D7 78 0A 0C 08 09 00 27 85 0A 0E 08 .....x.....'....
000100: 09 00 27 85 0A 09 0F 00 00 23 10 0A 23 0F 09 00 ..'......#..#...
000110: 27 85 FF 01 01 02 02 06 06 14 14 12 12 08 08 18 '...............
000120: 18 1A 1A 0C 0C 03 03 12 01 01 12 0F 0F 14 02 02 ................
000130: 14 00 00 00 16 19 00 20 57 68 65 72 65 20 45 61 ....... Where Ea
000140: 67 6C 65 73 20 44 61 72 65 20 20 00 09 24 06 04 gles Dare ..$..
000150: 01 57 8A 09 20 07 05 06 57 8A 09 1F 08 01 05 57 .W.. ...W......W
000160: 8A 09 1E 09 01 03 57 8A 09 1D 0B 01 01 57 8A 09 ......W......W..
000170: 21 0D 03 01 57 8A 09 0E 0B 05 03 57 8A 09 0C 0C !...W......W....
000180: 02 02 57 8A 09 13 0C 01 01 57 8A 09 0F 0E 03 01 ..W......W......
000190: 57 8A 09 17 0D 01 01 97 8A 09 18 0D 01 01 A7 8A W...............
0001A0: 09 0D 10 01 01 97 8A 09 0E 10 01 01 A7 8A 09 07 ................
0001B0: 12 07 01 57 8A 09 07 13 08 01 57 8A 09 16 11 03 ...W......W.....
0001C0: 01 57 8A 09 13 12 08 01 57 8A 09 12 13 0B 01 57 .W......W......W
0001D0: 8A FD 25 07 03 07 67 8A FD 23 08 02 05 67 8A FD ..%...g..#...g..
0001E0: 21 09 02 03 67 8A FD 24 0D 01 01 07 8B FD 25 0E !...g..$......%.
0001F0: 01 01 D7 8A FD 26 0E 02 01 67 8A FD 00 11 03 03 .....&...g......
Size : 512 (Real : 512)
000000: 6C 79 67 6F 6E 65 7D 0D 0A 20 20 44 72 61 77 50 lygone}.. DrawP
000010: 6F 6C 79 67 6F 6E 28 41 72 72 6F 77 2C 31 2C 2D olygon(Arrow,1,-
000020: 35 2C 30 2C 30 2C 30 29 3B 0D 0A 20 20 52 6F 74 5,0,0,0);.. Rot
000030: 61 74 65 50 6F 6C 79 67 6F 6E 28 41 72 72 6F 77 atePolygon(Arrow
000040: 2C 35 2C 34 35 29 3B 20 20 20 20 20 20 20 20 20 ,5,45);
000050: 20 20 7B 72 6F 74 61 74 61 74 69 6F 6E 20 61 20 {rotatation a
000060: 34 35 20 64 65 67 72 65 73 7D 0D 0A 20 20 41 72 45 degres}.. Ar
000070: 72 6F 77 41 6E 67 6C 65 3A 3D 41 72 72 6F 77 41 rowAngle:=ArrowA
000080: 6E 67 6C 65 2B 31 3B 0D 0A 20 20 69 66 20 41 72 ngle+1;.. if Ar
000090: 72 6F 77 41 6E 67 6C 65 3E 37 20 74 68 65 6E 20 rowAngle>7 then
0000A0: 41 72 72 6F 77 41 6E 67 6C 65 3A 3D 30 3B 0D 0A ArrowAngle:=0;..
0000B0: 20 20 49 6E 63 72 58 3A 3D 53 70 65 65 64 20 2A IncrX:=Speed *
0000C0: 20 41 72 72 6F 77 49 6E 63 72 5B 41 72 72 6F 77 ArrowIncr[Arrow
0000D0: 41 6E 67 6C 65 2C 31 5D 3B 20 20 7B 6E 6F 75 76 Angle,1]; {nouv
0000E0: 65 6C 6C 65 20 76 65 6C 6F 63 69 74 65 7D 0D 0A elle velocite}..
0000F0: 20 20 49 6E 63 72 79 3A 3D 53 70 65 65 64 20 2A Incry:=Speed *
000100: 20 41 72 72 6F 77 49 6E 63 72 5B 41 72 72 6F 77 ArrowIncr[Arrow
000110: 41 6E 67 6C 65 2C 32 5D 3B 0D 0A 20 20 53 65 74 Angle,2];.. Set
000120: 43 6F 6C 6F 72 57 68 69 74 65 3B 20 20 20 20 20 ColorWhite;
000130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000140: 20 20 7B 74 72 61 63 65 20 75 6E 20 70 6F 6C 79 {trace un poly
000150: 67 6F 6E 65 20 61 79 61 6E 74 20 66 61 69 74 20 gone ayant fait
000160: 73 61 20 72 6F 74 61 74 69 6F 6D 7D 0D 0A 20 20 sa rotatiom}..
000170: 44 72 61 77 50 6F 6C 79 67 6F 6E 28 41 72 72 6F DrawPolygon(Arro
000180: 77 2C 31 2C 2D 35 2C 30 2C 30 2C 30 29 3B 0D 0A w,1,-5,0,0,0);..
000190: 65 6E 64 3B 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 end;....procedur
0001A0: 65 20 54 75 72 6E 52 69 67 68 74 3B 20 20 20 20 e TurnRight;
0001B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7B {
0001C0: 72 6F 74 61 74 69 6F 6E 20 64 61 6E 73 20 6C 65 rotation dans le
0001D0: 20 73 65 6E 73 20 64 65 73 20 61 69 67 75 69 6C sens des aiguil
0001E0: 6C 65 73 20 64 27 27 75 6E 65 20 6D 6F 6E 74 72 les d''une montr
0001F0: 65 7D 0D 0A 62 65 67 69 6E 0D 0A 20 20 53 65 74 e}..begin.. Set
Size : 512 (Real : 512)
000000: 65 7D 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 e}..
000010: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000020: 20 7B 28 6C 65 73 20 64 69 6D 65 6E 73 69 6F 6E {(les dimension
000030: 73 20 64 65 20 6C 61 20 66 65 6E 65 74 72 65 20 s de la fenetre
000040: 70 72 69 6D 61 69 72 65 7D 0D 0A 20 20 20 20 20 primaire}..
000050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000060: 20 20 20 20 20 20 20 20 7B 70 61 72 20 64 65 66 {par def
000070: 61 75 74 20 63 65 6C 6C 65 73 20 64 65 20 6C 27 aut celles de l'
000080: 27 65 63 72 61 6E 7D 0D 0A 0D 0A 44 65 66 69 6E 'ecran}....Defin
000090: 65 57 69 6E 64 6F 77 28 31 2C 74 72 75 6E 63 28 eWindow(1,trunc(
0000A0: 58 4D 61 78 47 6C 62 2F 31 30 29 2C 74 72 75 6E XMaxGlb/10),trun
0000B0: 63 28 59 4D 61 78 47 6C 62 2F 31 30 29 2C 0D 0A c(YMaxGlb/10),..
0000C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 t
0000D0: 72 75 6E 63 28 58 4D 61 78 47 6C 62 2F 32 29 2C runc(XMaxGlb/2),
0000E0: 74 72 75 6E 63 28 59 4D 61 78 47 6C 62 2F 32 29 trunc(YMaxGlb/2)
0000F0: 29 3B 0D 0A 0D 0A 44 65 66 69 6E 65 48 65 61 64 );....DefineHead
000100: 65 72 28 31 27 43 27 45 53 54 20 55 4E 45 20 46 er(1'C'EST UNE F
000110: 45 4E 45 54 52 45 20 46 49 58 45 27 29 3B 20 7B ENETRE FIXE'); {
000120: 64 6F 6E 6E 65 20 75 6E 65 20 65 6E 74 65 74 65 donne une entete
000130: 7D 0D 0A 0D 0A 44 65 66 69 6E 65 57 6F 72 6C 64 }....DefineWorld
000140: 28 31 2C 30 2C 31 30 30 30 2C 31 30 30 30 2C 30 (1,0,1000,1000,0
000150: 29 3B 20 7B 64 6F 6E 6E 65 20 75 6E 20 6D 6F 6E ); {donne un mon
000160: 64 65 20 65 6E 20 63 6F 6F 72 64 6F 6E 6E 65 65 de en coordonnee
000170: 73 20 73 79 73 74 65 6D 65 73 7D 0D 0A 0D 0A 0D s systemes}.....
000180: 0A 0D 0A 44 65 66 69 6E 65 57 69 6E 64 6F 77 28 ...DefineWindow(
000190: 32 2C 74 72 75 6E 63 28 58 4D 61 78 47 6C 62 2F 2,trunc(XMaxGlb/
0001A0: 32 29 2C 74 72 75 6E 63 28 59 4D 61 78 47 6C 62 2),trunc(YMaxGlb
0001B0: 2F 32 29 2C 0D 0A 20 20 20 20 20 20 20 20 20 20 /2),..
0001C0: 20 20 20 20 20 74 72 75 6E 63 28 28 58 4D 61 78 trunc((XMax
0001D0: 47 6C 62 2A 39 29 2F 31 30 29 2C 74 72 75 6E 63 Glb*9)/10),trunc
0001E0: 28 28 59 4D 61 78 47 6C 62 2A 39 29 2F 31 30 29 ((YMaxGlb*9)/10)
0001F0: 29 3B 0D 0A 0D 0A 44 65 66 69 6E 65 48 65 61 64 );....DefineHead
Size : 512 (Real : 512)
000000: 43 6F 6C 6F 72 42 6C 61 63 6B 3B 20 20 20 20 20 ColorBlack;
000010: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000020: 20 20 7B 6D 65 6D 65 20 71 75 27 27 61 75 20 64 {meme qu''au d
000030: 65 73 73 75 73 7D 0D 0A 20 20 44 72 61 77 50 6F essus}.. DrawPo
000040: 6C 79 67 6F 6E 28 41 72 72 6F 77 2C 31 2C 2D 35 lygon(Arrow,1,-5
000050: 2C 30 2C 30 2C 30 29 3B 0D 0A 20 20 52 6F 74 61 ,0,0,0);.. Rota
000060: 74 65 50 6F 6C 79 67 6F 6E 28 41 72 72 6F 77 2C tePolygon(Arrow,
000070: 35 2C 2D 34 35 29 3B 0D 0A 20 20 41 72 72 6F 77 5,-45);.. Arrow
000080: 41 6E 67 6C 65 3A 3D 41 72 72 6F 77 41 6E 67 6C Angle:=ArrowAngl
000090: 65 2D 31 3B 0D 0A 20 20 69 66 20 41 72 72 6F 77 e-1;.. if Arrow
0000A0: 41 6E 67 6C 65 3C 30 20 74 68 65 6E 20 41 72 72 Angle<0 then Arr
0000B0: 6F 77 41 6E 67 6C 65 3A 3D 37 3B 0D 0A 20 20 49 owAngle:=7;.. I
0000C0: 6E 63 72 58 3A 3D 53 70 65 65 64 20 2A 20 41 72 ncrX:=Speed * Ar
0000D0: 72 6F 77 49 6E 63 72 5B 41 72 72 6F 77 41 6E 67 rowIncr[ArrowAng
0000E0: 6C 65 2C 31 5D 3B 0D 0A 20 20 49 6E 63 72 79 3A le,1];.. Incry:
0000F0: 3D 53 70 65 65 64 20 2A 20 41 72 72 6F 77 49 6E =Speed * ArrowIn
000100: 63 72 5B 41 72 72 6F 77 41 6E 67 6C 65 2C 32 5D cr[ArrowAngle,2]
000110: 3B 0D 0A 20 20 53 65 74 43 6F 6C 6F 72 57 68 69 ;.. SetColorWhi
000120: 74 65 3B 0D 0A 20 20 44 72 61 77 50 6F 6C 79 67 te;.. DrawPolyg
000130: 6F 6E 28 41 72 72 6F 77 2C 31 2C 2D 35 2C 30 2C on(Arrow,1,-5,0,
000140: 30 2C 30 29 3B 0D 0A 65 6E 64 3B 0D 0A 0D 0A 0D 0,0);..end;.....
000150: 0A 62 65 67 69 6E 0D 0A 0D 0A 49 6E 69 74 47 72 .begin....InitGr
000160: 61 70 68 69 63 3B 20 20 20 20 20 20 20 20 20 20 aphic;
000170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000180: 20 7B 69 6E 69 74 69 61 6C 69 73 65 20 6C 65 73 {initialise les
000190: 20 67 72 61 70 68 69 73 6D 65 73 7D 0D 0A 0D 0A graphismes}....
0001A0: 44 65 66 69 6E 65 57 69 6E 64 6F 77 28 31 2C 30 DefineWindow(1,0
0001B0: 2C 30 2C 58 4D 61 78 47 6C 62 2C 59 4D 61 78 47 ,0,XMaxGlb,YMaxG
0001C0: 6C 62 29 3B 0D 0A 0D 0A 44 65 66 69 6E 65 57 6F lb);....DefineWo
0001D0: 72 6C 64 28 31 2C 2D 31 30 30 30 2C 31 30 30 30 rld(1,-1000,1000
0001E0: 2C 31 30 30 30 2C 2D 31 30 30 30 29 3B 20 20 7B ,1000,-1000); {
0001F0: 64 6F 6E 6E 65 20 75 6E 20 6D 6F 6E 64 65 20 64 donne un monde d
Size : 512 (Real : 512)
000000: 65 72 28 32 27 43 27 45 53 54 20 55 4E 45 20 46 er(2'C'EST UNE F
000010: 45 4E 45 54 52 45 20 41 4D 4F 56 49 42 4C 45 29 ENETRE AMOVIBLE)
000020: 3B 20 7B 64 6F 6E 6E 65 20 75 6E 65 20 65 6E 74 ; {donne une ent
000030: 65 74 65 7D 0D 0A 0D 0A 44 65 66 69 6E 65 57 6F ete}....DefineWo
000040: 72 6C 64 28 32 2C 30 2C 31 30 30 30 2C 31 30 30 rld(2,0,1000,100
000050: 30 2C 30 29 3B 20 7B 64 6F 6E 6E 65 20 75 6E 20 0,0); {donne un
000060: 6D 6F 6E 64 65 20 65 6E 20 63 6F 6F 72 64 6F 6E monde en coordon
000070: 6E 65 65 73 20 73 79 73 74 65 6D 65 7D 0D 0A 0D nees systeme}...
000080: 0A 53 65 6C 65 63 74 57 69 6E 64 6F 77 28 31 29 .SelectWindow(1)
000090: 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 7B 63 ; {c
0000A0: 68 6F 69 73 69 74 20 6C 61 20 66 65 6E 65 74 72 hoisit la fenetr
0000B0: 65 20 66 69 78 65 7D 0D 0A 53 65 74 48 65 61 64 e fixe}..SetHead
0000C0: 65 72 4F 6E 3B 0D 0A 53 65 6C 65 63 74 57 6F 72 erOn;..SelectWor
0000D0: 6C 64 28 31 29 3B 20 20 20 20 20 20 20 20 20 20 ld(1);
0000E0: 20 20 20 20 7B 63 68 6F 69 73 69 74 20 73 6F 6E {choisit son
0000F0: 20 6D 6F 6E 64 65 7D 0D 0A 53 65 74 42 61 63 6B monde}..SetBack
000100: 67 72 6F 75 6E 64 28 30 29 3B 20 20 20 20 20 20 ground(0);
000110: 20 20 20 20 20 20 7B 61 72 72 69 65 72 65 20 70 {arriere p
000120: 6C 61 6E 20 6E 6F 69 72 7D 0D 0A 44 72 61 77 42 lan noir}..DrawB
000130: 6F 72 64 65 72 3B 20 20 20 20 20 20 20 20 20 20 order;
000140: 20 20 20 20 20 20 20 20 7B 74 72 61 63 65 20 75 {trace u
000150: 6E 65 20 66 65 6E 65 74 72 65 7D 0D 0A 44 72 61 ne fenetre}..Dra
000160: 77 4C 69 6E 65 73 3B 20 20 20 20 20 20 20 20 20 wLines;
000170: 20 20 20 20 20 20 20 20 20 20 7B 64 65 73 73 69 {dessi
000180: 6E 65 20 75 6E 65 20 6C 69 67 6E 65 20 64 65 73 ne une ligne des
000190: 73 75 73 7D 0D 0A 43 6F 70 79 53 63 72 65 65 6E sus}..CopyScreen
0001A0: 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ;
0001B0: 20 20 20 7B 6C 61 20 63 6F 70 69 65 20 64 61 6E {la copie dan
0001C0: 73 20 6C 27 27 65 63 72 61 6E 20 76 69 72 74 75 s l''ecran virtu
0001D0: 65 6C 7D 0D 0A 0D 0A 53 65 74 42 72 65 61 6B 4F el}....SetBreakO
0001E0: 66 66 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 ff;
0001F0: 20 20 20 20 7B 65 72 72 65 75 72 7D 0D 0A 53 65 {erreur}..Se
Size : 512 (Real : 512)
000000: 65 20 63 6F 6F 72 64 6F 6E 6E 65 65 73 20 73 79 e coordonnees sy
000010: 73 74 65 6D 65 7D 0D 0A 0D 0A 53 65 6C 65 63 74 steme}....Select
000020: 57 6F 72 6C 64 28 31 29 3B 20 20 20 20 20 20 20 World(1);
000030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000040: 20 7B 63 68 6F 69 73 69 74 20 63 65 20 6D 6F 6E {choisit ce mon
000050: 64 65 7D 0D 0A 53 65 6C 65 63 74 57 69 6E 64 6F de}..SelectWindo
000060: 77 28 31 29 3B 20 20 20 20 20 20 20 20 20 20 20 w(1);
000070: 20 20 20 20 20 20 20 20 20 20 20 20 7B 63 68 6F {cho
000080: 69 73 69 74 20 75 6E 65 20 66 65 6E 65 74 72 65 isit une fenetre
000090: 7D 0D 0A 53 65 74 42 61 63 6B 67 72 6F 75 6E 64 }..SetBackground
0000A0: 28 30 29 3B 20 20 20 20 20 20 20 20 20 20 20 20 (0);
0000B0: 20 20 20 20 20 20 20 20 20 20 7B 64 6F 6E 6E 65 {donne
0000C0: 20 75 6E 20 61 72 72 69 65 72 65 20 70 6C 61 6E un arriere plan
0000D0: 20 6E 6F 69 72 7D 0D 0A 0D 0A 53 69 7A 65 3A 3D noir}....Size:=
0000E0: 31 30 30 3B 0D 0A 53 70 65 65 64 3A 3D 33 30 3B 100;..Speed:=30;
0000F0: 0D 0A 43 75 72 72 58 3A 3D 30 3B 0D 0A 43 75 72 ..CurrX:=0;..Cur
000100: 72 59 3A 3D 30 3B 0D 0A 41 72 72 6F 77 41 6E 67 rY:=0;..ArrowAng
000110: 6C 65 3A 3D 30 3B 0D 0A 49 6E 63 72 58 3A 3D 30 le:=0;..IncrX:=0
000120: 3B 0D 0A 49 6E 63 72 59 3A 3D 53 70 65 65 64 3B ;..IncrY:=Speed;
000130: 0D 0A 0D 0A 4D 61 6B 65 41 72 72 6F 77 3B 20 20 ....MakeArrow;
000140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000150: 20 20 20 20 20 20 20 20 20 20 20 7B 66 61 69 74 {fait
000160: 20 6C 61 20 66 6C 65 63 68 65 20 64 65 20 74 65 la fleche de te
000170: 74 65 7D 0D 0A 4D 61 6B 65 4D 6F 76 65 54 61 62 te}..MakeMoveTab
000180: 6C 65 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 le;
000190: 20 20 20 20 20 20 20 20 20 20 20 20 7B 66 61 69 {fai
0001A0: 74 20 75 6E 65 20 74 61 62 6C 65 20 7D 0D 0A 44 t une table }..D
0001B0: 72 61 77 50 6F 6C 79 67 6F 6E 28 41 72 72 6F 77 rawPolygon(Arrow
0001C0: 2C 31 2C 35 2C 30 2C 30 2C 30 29 3B 20 20 20 20 ,1,5,0,0,0);
0001D0: 20 20 20 20 20 20 7B 74 72 61 63 65 20 6C 65 73 {trace les
0001E0: 20 66 6C 65 63 68 65 73 7D 0D 0A 0D 0A 0D 0A 72 fleches}......r
0001F0: 65 70 65 61 74 0D 0A 20 20 72 65 61 64 28 4B 62 epeat.. read(Kb
Size : 512 (Real : 512)
000000: 74 4D 65 73 73 61 67 65 4F 66 66 3B 0D 0A 0D 0A tMessageOff;....
000010: 53 65 6C 65 63 74 57 69 6E 64 6F 77 28 32 29 3B SelectWindow(2);
000020: 20 20 20 20 20 20 20 20 20 20 20 20 20 7B 63 68 {ch
000030: 6F 69 73 69 74 20 75 6E 65 20 66 65 6E 65 74 72 oisit une fenetr
000040: 65 20 61 6D 6F 76 69 62 6C 65 7D 0D 0A 53 65 74 e amovible}..Set
000050: 48 65 61 64 65 72 4F 6E 3B 0D 0A 53 65 6C 65 63 HeaderOn;..Selec
000060: 74 57 6F 72 6C 64 28 32 29 3B 20 20 20 20 20 20 tWorld(2);
000070: 20 20 20 20 20 20 20 20 7B 63 68 6F 69 73 69 74 {choisit
000080: 20 73 6F 6E 20 6D 6F 6E 64 65 7D 0D 0A 53 65 74 son monde}..Set
000090: 42 61 63 6B 67 72 6F 75 6E 64 28 30 29 3B 20 20 Background(0);
0000A0: 20 20 20 20 20 20 20 20 20 20 7B 61 72 72 69 65 {arrie
0000B0: 72 65 20 70 6C 61 6E 20 6E 6F 69 72 7D 0D 0A 44 re plan noir}..D
0000C0: 72 61 77 42 6F 72 64 65 72 3B 20 20 20 20 20 20 rawBorder;
0000D0: 20 20 20 20 20 20 20 20 20 20 20 20 7B 74 72 61 {tra
0000E0: 63 65 20 75 6E 65 20 66 65 6E 65 74 72 65 7D 0D ce une fenetre}.
0000F0: 0A 44 72 61 77 4C 69 6E 65 73 3B 20 20 20 20 20 .DrawLines;
000100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7B 74 {t
000110: 72 61 63 65 20 64 65 73 20 6C 69 67 6E 65 73 20 race des lignes
000120: 64 65 73 73 75 73 7D 0D 0A 0D 0A 72 65 70 65 61 dessus}....repea
000130: 74 0D 0A 20 20 72 65 61 64 28 4B 62 64 2C 43 68 t.. read(Kbd,Ch
000140: 29 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 );
000150: 7B 6C 69 74 20 6C 65 20 63 6C 61 76 69 65 72 7D {lit le clavier}
000160: 0D 0A 20 20 63 61 73 65 20 6F 72 64 28 43 68 29 .. case ord(Ch)
000170: 20 6F 66 0D 0A 20 20 20 20 20 20 37 32 20 3A 20 of.. 72 :
000180: 4D 6F 76 65 56 65 72 28 2D 34 2C 74 72 75 65 29 MoveVer(-4,true)
000190: 3B 20 7B 66 6C 65 63 68 65 20 68 61 75 74 3F 7D ; {fleche haut?}
0001A0: 0D 0A 20 20 20 20 20 20 37 35 20 3A 20 4D 6F 76 .. 75 : Mov
0001B0: 65 48 6F 72 28 2D 31 2C 74 72 75 65 29 3B 20 7B eHor(-1,true); {
0001C0: 66 6C 65 63 68 65 20 67 61 75 63 68 65 3F 7D 0D fleche gauche?}.
0001D0: 0A 20 20 20 20 20 20 37 37 20 3A 20 4D 6F 76 65 . 77 : Move
0001E0: 48 6F 72 28 31 2C 74 72 75 65 29 3B 20 20 7B 66 Hor(1,true); {f
0001F0: 6C 65 63 68 65 20 64 72 6F 69 74 65 3F 7D 0D 0A leche droite?}..
Size : 512 (Real : 512)
000000: 64 2C 43 68 29 3B 20 20 20 20 20 20 20 20 20 20 d,Ch);
000010: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7B 6C {l
000020: 69 74 20 6C 65 20 63 6C 61 76 69 65 72 7D 0D 0A it le clavier}..
000030: 20 20 63 61 73 65 20 6F 72 64 28 43 68 29 20 6F case ord(Ch) o
000040: 66 0D 0A 20 20 20 20 20 20 37 32 20 3A 20 4D 6F f.. 72 : Mo
000050: 76 65 46 6F 72 77 61 72 64 3B 20 20 20 20 20 20 veForward;
000060: 20 20 20 20 20 20 20 20 20 20 7B 66 6C 65 63 68 {flech
000070: 65 20 68 61 75 74 3F 7D 0D 0A 20 20 20 20 20 20 e haut?}..
000080: 37 35 20 3A 20 54 75 72 6E 4C 65 66 74 3B 20 20 75 : TurnLeft;
000090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000A0: 20 7B 66 6C 65 63 68 65 20 67 61 75 63 68 65 3F {fleche gauche?
0000B0: 7D 0D 0A 20 20 20 20 20 20 37 37 20 3A 20 54 75 }.. 77 : Tu
0000C0: 72 6E 52 69 67 68 74 3B 20 20 20 20 20 20 20 20 rnRight;
0000D0: 20 20 20 20 20 20 20 20 20 20 7B 66 6C 65 63 68 {flech
0000E0: 65 20 64 72 6F 69 74 65 3F 7D 0D 0A 20 20 20 20 e droite?}..
0000F0: 20 20 38 30 20 3A 20 4D 6F 76 65 42 61 63 6B 3B 80 : MoveBack;
000100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000110: 20 20 20 7B 66 6C 65 63 68 65 20 62 61 73 3F 7D {fleche bas?}
000120: 0D 0A 20 20 65 6E 64 3B 0D 0A 75 6E 74 69 6C 20 .. end;..until
000130: 43 68 3D 27 20 27 3B 20 20 20 20 20 20 20 20 20 Ch=' ';
000140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000150: 20 7B 27 65 73 70 61 63 65 27 20 73 6F 72 74 20 {'espace' sort
000160: 64 75 20 70 72 6F 67 72 61 6D 6D 65 7D 0D 0A 0D du programme}...
000170: 0A 4C 65 61 76 65 47 72 61 70 68 69 63 3B 20 20 .LeaveGraphic;
000180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000190: 20 20 20 20 20 20 20 20 7B 71 75 69 74 74 65 20 {quitte
0001A0: 6C 65 73 20 67 72 61 70 68 69 73 6D 65 73 7D 0D les graphismes}.
0001B0: 0A 0D 0A 65 6E 64 2E 0D 0A 1A 1A 1A 1A 1A 1A 1A ...end..........
0001C0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0001D0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0001E0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0001F0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 38 30 20 3A 20 4D 6F 76 65 56 80 : MoveV
000010: 65 72 28 34 2C 74 72 75 65 29 3B 20 20 7B 66 6C er(4,true); {fl
000020: 65 63 68 65 20 62 61 73 3F 7D 0D 0A 20 20 65 6E eche bas?}.. en
000030: 64 3B 0D 0A 75 6E 74 69 6C 20 43 68 3D 27 20 27 d;..until Ch=' '
000040: 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ;
000050: 20 7B 65 73 70 61 63 65 20 70 6F 75 72 20 73 6F {espace pour so
000060: 72 74 69 72 20 64 75 20 70 72 6F 67 72 61 6D 6D rtir du programm
000070: 65 7D 0D 0A 0D 0A 4C 65 61 76 65 47 72 61 70 68 e}....LeaveGraph
000080: 69 63 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 ic;
000090: 20 20 20 20 7B 71 75 69 74 74 65 20 6C 65 73 20 {quitte les
0000A0: 67 72 61 70 68 69 73 6D 65 73 7D 0D 0A 0D 0A 65 graphismes}....e
0000B0: 6E 64 2E 0D 0A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A nd..............
0000C0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0000D0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0000E0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0000F0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7B 74 {t
000110: 72 61 63 65 20 64 65 73 20 6C 69 67 6E 65 73 20 race des lignes
000120: 64 65 73 73 75 73 7D 0D 0A 0D 0A 72 65 70 65 61 dessus}....repea
000130: 74 0D 0A 20 20 72 65 61 64 28 4B 62 64 2C 43 68 t.. read(Kbd,Ch
000140: 29 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 );
000150: 7B 6C 69 74 20 6C 65 20 63 6C 61 76 69 65 72 7D {lit le clavier}
000160: 0D 0A 20 20 63 61 73 65 20 6F 72 64 28 43 68 29 .. case ord(Ch)
000170: 20 6F 66 0D 0A 20 20 20 20 20 20 37 32 20 3A 20 of.. 72 :
000180: 4D 6F 76 65 56 65 72 28 2D 34 2C 74 72 75 65 29 MoveVer(-4,true)
000190: 3B 20 7B 66 6C 65 63 68 65 20 68 61 75 74 3F 7D ; {fleche haut?}
0001A0: 0D 0A 20 20 20 20 20 20 37 35 20 3A 20 4D 6F 76 .. 75 : Mov
0001B0: 65 48 6F 72 28 2D 31 2C 74 72 75 65 29 3B 20 7B eHor(-1,true); {
0001C0: 66 6C 65 63 68 65 20 67 61 75 63 68 65 3F 7D 0D fleche gauche?}.
0001D0: 0A 20 20 20 20 20 20 37 37 20 3A 20 4D 6F 76 65 . 77 : Move
0001E0: 48 6F 72 28 31 2C 74 72 75 65 29 3B 20 20 7B 66 Hor(1,true); {f
0001F0: 6C 65 63 68 65 20 64 72 6F 69 74 65 3F 7D 0D 0A leche droite?}..
Size : 512 (Real : 512)
000000: 70 72 6F 67 72 61 6D 20 4D 6F 76 65 57 69 6E 64 program MoveWind
000010: 6F 77 73 3B 0D 0A 0D 0A 7B 24 49 20 74 79 70 65 ows;....{$I type
000020: 64 65 66 2E 73 79 73 7D 20 20 20 20 20 20 20 20 def.sys}
000030: 20 20 20 20 20 7B 43 65 73 20 66 69 63 68 69 65 {Ces fichie
000040: 72 73 20 64 6F 69 76 65 6E 74 20 65 74 72 65 7D rs doivent etre}
000050: 0D 0A 7B 24 49 20 67 72 61 70 68 69 78 2E 73 79 ..{$I graphix.sy
000060: 73 7D 20 20 20 20 20 20 20 20 20 20 20 20 20 7B s} {
000070: 69 6E 63 6C 75 73 20 64 61 6E 73 20 63 65 74 20 inclus dans cet
000080: 6F 72 64 72 65 7D 0D 0A 7B 24 49 20 6B 65 72 6E ordre}..{$I kern
000090: 65 6C 2E 73 79 73 7D 0D 0A 7B 24 49 20 6B 65 72 el.sys}..{$I ker
0000A0: 6E 65 6C 31 2E 73 79 73 7D 0D 0A 7B 24 49 20 77 nel1.sys}..{$I w
0000B0: 69 6E 64 6F 77 73 2E 73 79 73 7D 0D 0A 0D 0A 76 indows.sys}....v
0000C0: 61 72 20 69 3A 20 69 6E 74 65 67 65 72 3B 0D 0A ar i: integer;..
0000D0: 20 20 20 43 68 3A 20 63 68 61 72 3B 0D 0A 0D 0A Ch: char;....
0000E0: 70 72 6F 63 65 64 75 72 65 20 44 72 61 77 4C 69 procedure DrawLi
0000F0: 6E 65 73 3B 0D 0A 76 61 72 20 69 3A 69 6E 74 65 nes;..var i:inte
000100: 67 65 72 3B 0D 0A 62 65 67 69 6E 0D 0A 20 20 66 ger;..begin.. f
000110: 6F 72 20 69 3A 3D 31 20 74 6F 20 32 30 20 64 6F or i:=1 to 20 do
000120: 20 44 72 61 77 4C 69 6E 65 28 69 2A 35 30 2C 30 DrawLine(i*50,0
000130: 2C 31 30 30 30 2D 69 2A 35 30 2C 69 2A 35 30 29 ,1000-i*50,i*50)
000140: 3B 0D 0A 65 6E 64 3B 0D 0A 0D 0A 0D 0A 62 65 67 ;..end;......beg
000150: 69 6E 0D 0A 0D 0A 49 6E 69 74 47 72 61 70 68 69 in....InitGraphi
000160: 63 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 c;
000170: 20 20 20 7B 69 6E 69 74 69 61 6C 69 73 65 7D 0D {initialise}.
000180: 0A 0D 0A 0D 0A 44 72 61 77 42 6F 72 64 65 72 3B .....DrawBorder;
000190: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001A0: 20 20 7B 74 72 61 63 65 20 75 6E 65 20 62 6F 72 {trace une bor
0001B0: 64 75 72 65 20 61 75 74 6F 75 72 20 64 75 20 64 dure autour du d
0001C0: 65 73 73 69 6E 7D 0D 0A 20 20 20 20 20 20 20 20 essin}..
0001D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001E0: 20 20 20 20 20 7B 61 69 72 65 20 64 65 20 6C 61 {aire de la
0001F0: 20 66 65 6E 65 74 72 65 20 70 72 69 6D 61 69 72 fenetre primair
Size : 512 (Real : 512)
000000: 40 77 85 77 85 00 04 14 32 00 03 22 77 86 77 86 @w.w....2.."w.w.
000010: 04 36 3F 02 00 22 77 86 77 86 04 72 17 FE 00 2A .6?.."w.w..r...*
000020: 77 86 77 86 00 01 3A 7F FE 00 1C 07 8A 23 10 01 w.w...:......#..
000030: 92 7F FE 00 1C 23 10 07 8A 04 4C 85 00 FE 18 57 .....#....L....W
000040: 81 57 81 02 2A 1E 02 00 24 23 10 A7 80 00 04 18 .W..*...$#......
000050: 9D 00 FE 2C 57 81 57 81 02 3C 4B 00 04 16 A7 80 ...,W.W..<K.....
000060: A7 80 04 64 9D 00 FE 30 57 81 57 81 01 7C 31 00 ...d...0W.W..|1.
000070: 02 14 77 7F 77 7F 00 04 3E 77 02 00 24 C7 77 C9 ..w.w...>w..$.w.
000080: 76 02 60 32 00 03 12 97 7A 97 7A 01 28 4D 00 FE v.`2....z.z.(M..
000090: 10 77 7F 77 7F 00 01 02 9F 02 00 20 07 8A 07 8A .w.w....... ....
0000A0: 02 48 9D 00 FE 20 F7 7F F7 7F 04 96 67 FE 00 1E .H... ......g...
0000B0: 23 10 17 7B 00 01 4E 7F 02 00 26 23 10 07 8A 04 #..{..N...&#....
0000C0: 4A 5F FE 00 26 17 7C 17 7B 04 7A 1B FE 04 14 17 J_..&.|.{.z.....
0000D0: 7C 17 7B 00 02 1C 43 00 04 18 77 7F F7 7F 04 94 |.{...C...w.....
0000E0: 77 FC 00 1D 17 7C 17 7B 04 4E 5F 02 00 26 57 8B w....|.{.N_..&W.
0000F0: 57 8B 00 02 24 3B 00 04 1A A7 80 A7 80 01 84 66 W...$;.........f
000100: 00 FF 20 17 8B 17 8B 00 01 1C 40 00 01 18 17 8B .. .......@.....
000110: 17 8B 01 2C 56 00 FF 18 17 8B 17 8B 02 8E 3F FE ...,V.........?.
000120: 00 2E 77 7F F7 7F 00 02 20 9E 00 FF 68 77 7F 77 ..w..... ...hw.w
000130: 7F 02 78 9E 00 FF 68 F7 7F F7 7F 02 30 39 00 02 ..x...h.....09..
000140: 34 F7 7F F7 7F 02 68 39 00 02 34 77 7F 77 7F 02 4.....h9..4w.w..
000150: 4C 9B 00 FC 1A 77 7F F7 7F 00 04 66 17 FE 00 1E L....w.....f....
000160: 57 8B 57 8B 01 84 63 00 FC 16 17 8B 17 8B 00 04 W.W...c.........
000170: 08 8F 04 00 24 17 7B 17 7C 04 34 51 00 02 18 D7 ....$.{.|.4Q....
000180: 8C D7 8C 04 48 7B 00 FC 0C D7 8C D7 8C 04 5C 51 ....H{........\Q
000190: 00 02 18 D7 8C D7 8C 02 1F 17 03 00 22 57 8C 57 ............"W.W
0001A0: 8C 00 02 0D 47 01 00 4C 57 8C 57 8C 02 87 1F FF ....G..LW.W.....
0001B0: 00 38 57 8C 57 8C 00 01 80 57 FC 00 21 D7 8D 23 .8W.W....W..!..#
0001C0: 10 01 88 57 FC 00 21 17 8E 23 10 00 01 90 97 FC ...W..!..#......
0001D0: 00 25 97 8E 23 10 01 3C 96 00 FF 25 97 87 97 87 .%..#..<...%....
0001E0: 01 0E 17 02 00 22 57 8E 23 10 01 92 38 FE FF 22 ....."W.#...8.."
0001F0: 23 10 57 8E 00 01 0C 93 00 FC 20 37 8F 37 8F 01 #.W....... 7.7..
Size : 512 (Real : 512)
000000: 70 72 6F 67 72 61 6D 20 4F 6E 65 41 78 69 73 3B program OneAxis;
000010: 0D 0A 0D 0A 7B 24 49 20 74 79 70 65 64 65 66 2E ....{$I typedef.
000020: 73 79 73 7D 20 20 20 20 20 20 20 20 20 20 20 20 sys}
000030: 20 20 20 20 20 20 20 20 20 7B 74 68 65 73 65 20 {these
000040: 66 69 6C 65 73 20 6D 75 73 74 20 62 65 7D 0D 0A files must be}..
000050: 7B 24 49 20 67 72 61 70 68 69 78 2E 73 79 73 7D {$I graphix.sys}
000060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000070: 20 20 20 20 20 7B 69 6E 63 6C 75 64 65 64 20 61 {included a
000080: 6E 64 20 69 6E 20 74 68 69 73 20 6F 72 64 65 72 nd in this order
000090: 7D 0D 0A 7B 24 49 20 6B 65 72 6E 65 6C 2E 73 79 }..{$I kernel.sy
0000A0: 73 7D 0D 0A 7B 24 49 20 6B 65 72 6E 65 6C 31 2E s}..{$I kernel1.
0000B0: 73 79 73 7D 0D 0A 7B 24 49 20 77 69 6E 64 6F 77 sys}..{$I window
0000C0: 73 2E 73 79 73 7D 0D 0A 7B 24 49 20 61 78 69 73 s.sys}..{$I axis
0000D0: 2E 68 67 68 7D 0D 0A 0D 0A 0D 0A 70 72 6F 63 65 .hgh}......proce
0000E0: 64 75 72 65 20 4F 6E 65 41 78 69 73 44 65 6D 3B dure OneAxisDem;
0000F0: 0D 0A 0D 0A 62 65 67 69 6E 0D 0A 20 20 43 6C 65 ....begin.. Cle
000100: 61 72 53 63 72 65 65 6E 3B 20 20 20 20 20 20 20 arScreen;
000110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000120: 20 7B 69 6E 69 74 20 73 63 72 65 65 6E 7D 0D 0A {init screen}..
000130: 20 20 53 65 74 43 6F 6C 6F 72 57 68 69 74 65 3B SetColorWhite;
000140: 0D 0A 20 20 53 65 74 42 61 63 6B 67 72 6F 75 6E .. SetBackgroun
000150: 64 28 30 29 3B 0D 0A 0D 0A 20 20 44 65 66 69 6E d(0);.... Defin
000160: 65 48 65 61 64 65 72 28 31 2C 27 4C 41 42 45 4C eHeader(1,'LABEL
000170: 45 44 20 41 58 45 53 27 29 3B 20 20 20 20 7B 64 ED AXES'); {d
000180: 65 66 69 6E 65 20 74 68 65 20 77 69 6E 64 6F 77 efine the window
000190: 7D 0D 0A 20 20 53 65 74 48 65 61 64 65 72 4F 6E }.. SetHeaderOn
0001A0: 3B 0D 0A 20 20 44 65 66 69 6E 65 57 6F 72 6C 64 ;.. DefineWorld
0001B0: 28 31 2C 2D 31 30 2C 31 30 2C 31 30 2C 2D 31 30 (1,-10,10,10,-10
0001C0: 29 3B 0D 0A 20 20 53 65 6C 65 63 74 57 69 6E 64 );.. SelectWind
0001D0: 6F 77 28 31 29 3B 0D 0A 20 20 53 65 6C 65 63 74 ow(1);.. Select
0001E0: 57 6F 72 6C 64 28 31 29 3B 0D 0A 0D 0A 20 20 44 World(1);.... D
0001F0: 72 61 77 42 6F 72 64 65 72 3B 20 20 20 20 20 20 rawBorder;
Size : 512 (Real : 512)
000000: 70 72 6F 67 72 61 6D 20 4F 6E 65 50 6F 6C 79 67 program OnePolyg
000010: 6F 6E 3B 0D 0A 0D 0A 7B 24 49 20 74 79 70 65 64 on;....{$I typed
000020: 65 66 2E 73 79 73 7D 20 20 20 20 20 20 20 20 20 ef.sys}
000030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000040: 7B 63 65 73 20 66 69 63 68 69 65 72 73 20 64 6F {ces fichiers do
000050: 69 76 65 6E 74 20 65 74 72 65 7D 0D 0A 7B 24 49 ivent etre}..{$I
000060: 20 67 72 61 70 68 69 78 2E 73 79 73 7D 20 20 20 graphix.sys}
000070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000080: 20 20 20 20 20 20 7B 69 6E 63 6C 75 73 20 64 61 {inclus da
000090: 6E 73 20 63 65 74 20 6F 72 64 72 65 7D 0D 0A 7B ns cet ordre}..{
0000A0: 24 49 20 6B 65 72 6E 65 6C 2E 73 79 73 7D 0D 0A $I kernel.sys}..
0000B0: 7B 24 49 20 6B 65 72 6E 65 6C 31 2E 73 79 73 7D {$I kernel1.sys}
0000C0: 0D 0A 7B 24 49 20 77 69 6E 64 6F 77 73 2E 73 79 ..{$I windows.sy
0000D0: 73 7D 0D 0A 7B 24 49 20 70 6F 6C 79 67 6F 6E 2E s}..{$I polygon.
0000E0: 68 67 68 7D 0D 0A 0D 0A 0D 0A 70 72 6F 63 65 64 hgh}......proced
0000F0: 75 72 65 20 50 6F 6C 79 67 6F 6E 44 65 6D 3B 0D ure PolygonDem;.
000100: 0A 76 61 72 20 6E 3A 69 6E 74 65 67 65 72 3B 0D .var n:integer;.
000110: 0A 20 20 20 20 62 2C 61 3A 50 6C 6F 74 41 72 72 . b,a:PlotArr
000120: 61 79 3B 0D 0A 20 20 20 20 63 68 3A 63 68 61 72 ay;.. ch:char
000130: 3B 0D 0A 20 20 20 20 78 31 2C 78 32 3A 69 6E 74 ;.. x1,x2:int
000140: 65 67 65 72 3B 0D 0A 0D 0A 70 72 6F 63 65 64 75 eger;....procedu
000150: 72 65 20 47 65 6E 65 72 61 74 65 46 75 6E 63 74 re GenerateFunct
000160: 69 6F 6E 28 76 61 72 20 61 2C 62 3A 50 6C 6F 74 ion(var a,b:Plot
000170: 41 72 72 61 79 3B 6E 3A 69 6E 74 65 67 65 72 29 Array;n:integer)
000180: 3B 0D 0A 0D 0A 76 61 72 20 69 3A 69 6E 74 65 67 ;....var i:integ
000190: 65 72 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 er;
0001A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7B 67 {g
0001B0: 65 6E 65 72 65 20 75 6E 20 70 6F 6C 79 67 6F 6E enere un polygon
0001C0: 65 7D 0D 0A 20 20 20 20 64 65 6C 74 61 3A 72 65 e}.. delta:re
0001D0: 61 6C 3B 0D 0A 0D 0A 62 65 67 69 6E 0D 0A 20 20 al;....begin..
0001E0: 64 65 6C 74 61 3A 3D 32 2A 70 69 2F 28 6E 2D 31 delta:=2*pi/(n-1
0001F0: 29 3B 0D 0A 20 20 66 6F 72 20 69 3A 3D 31 20 74 );.. for i:=1 t
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000010: 20 20 20 7B 64 72 61 77 20 69 74 7D 0D 0A 0D 0A {draw it}....
000020: 20 20 44 72 61 77 41 78 69 73 28 38 2C 2D 37 2C DrawAxis(8,-7,
000030: 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 74 72 75 65 0,0,0,0,0,0,true
000040: 29 3B 20 20 20 20 7B 64 72 61 77 20 63 6F 6F 72 ); {draw coor
000050: 64 69 6E 61 74 65 20 61 78 69 73 7D 0D 0A 0D 0A dinate axis}....
000060: 65 6E 64 3B 0D 0A 0D 0A 0D 0A 62 65 67 69 6E 0D end;......begin.
000070: 0A 0D 0A 49 6E 69 74 47 72 61 70 68 69 63 3B 20 ...InitGraphic;
000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000090: 20 20 20 20 20 20 20 20 20 7B 69 6E 69 74 69 61 {initia
0000A0: 6C 69 7A 65 20 74 68 65 20 67 72 61 70 68 69 63 lize the graphic
0000B0: 73 20 73 79 73 74 65 6D 7D 0D 0A 0D 0A 4F 6E 65 s system}....One
0000C0: 41 78 69 73 44 65 6D 3B 20 20 20 20 20 20 20 20 AxisDem;
0000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000E0: 20 20 20 7B 64 6F 20 74 68 65 20 64 65 6D 6F 7D {do the demo}
0000F0: 0D 0A 0D 0A 72 65 70 65 61 74 20 75 6E 74 69 6C ....repeat until
000100: 20 6B 65 79 70 72 65 73 73 65 64 3B 20 20 20 20 keypressed;
000110: 20 20 20 20 20 20 20 20 20 20 7B 77 61 69 74 20 {wait
000120: 75 6E 74 69 6C 20 61 20 6B 65 79 20 69 73 20 70 until a key is p
000130: 72 65 73 73 65 64 7D 0D 0A 0D 0A 4C 65 61 76 65 ressed}....Leave
000140: 47 72 61 70 68 69 63 3B 20 20 20 20 20 20 20 20 Graphic;
000150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000160: 20 7B 6C 65 61 76 65 20 74 68 65 20 67 72 61 70 {leave the grap
000170: 68 69 63 73 20 73 79 73 74 65 6D 7D 0D 0A 0D 0A hics system}....
000180: 65 6E 64 2E 0D 0A 0D 0A 1A 1A 1A 1A 1A 1A 1A 1A end.............
000190: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0001A0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0001B0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0001C0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0001D0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0001E0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0001F0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
Size : 512 (Real : 512)
000000: 6F 20 6E 20 64 6F 0D 0A 20 20 20 20 62 65 67 69 o n do.. begi
000010: 6E 0D 0A 20 20 20 20 20 20 61 5B 69 2C 31 5D 3A n.. a[i,1]:
000020: 3D 28 69 2D 31 29 2A 64 65 6C 74 61 2D 70 69 3B =(i-1)*delta-pi;
000030: 0D 0A 20 20 20 20 20 20 61 5B 69 2C 32 5D 3A 3D .. a[i,2]:=
000040: 73 69 6E 28 61 5B 69 2C 31 5D 29 3B 0D 0A 20 20 sin(a[i,1]);..
000050: 20 20 65 6E 64 3B 0D 0A 65 6E 64 3B 0D 0A 0D 0A end;..end;....
000060: 0D 0A 62 65 67 69 6E 0D 0A 20 20 43 6C 65 61 72 ..begin.. Clear
000070: 53 63 72 65 65 6E 3B 0D 0A 0D 0A 20 20 6E 3A 3D Screen;.... n:=
000080: 33 30 3B 0D 0A 20 20 47 65 6E 65 72 61 74 65 46 30;.. GenerateF
000090: 75 6E 63 74 69 6F 6E 28 61 2C 62 2C 6E 29 3B 20 unction(a,b,n);
0000A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7B 67 {g
0000B0: 65 6E 65 72 61 74 69 6F 6E 20 64 75 20 70 6F 6C eneration du pol
0000C0: 79 67 6F 6E 65 7D 0D 0A 0D 0A 20 20 44 65 66 69 ygone}.... Defi
0000D0: 6E 65 57 69 6E 64 6F 77 28 31 2C 30 2C 30 2C 58 neWindow(1,0,0,X
0000E0: 4D 61 78 47 6C 62 2C 59 4D 61 78 47 6C 62 29 3B MaxGlb,YMaxGlb);
0000F0: 0D 0A 20 20 44 65 66 69 6E 65 48 65 61 64 65 72 .. DefineHeader
000100: 28 31 2C 27 43 4F 55 52 42 45 20 53 49 4E 55 4F (1,'COURBE SINUO
000110: 53 49 44 41 4C 45 27 29 3B 20 20 20 20 7B 6D 69 SIDALE'); {mi
000120: 73 65 20 65 6E 20 70 6C 61 63 65 20 64 65 20 6C se en place de l
000130: 27 27 65 63 72 61 6E 7D 0D 0A 20 20 44 65 66 69 ''ecran}.. Defi
000140: 6E 65 57 6F 72 6C 64 28 31 2C 2D 70 69 2C 31 2C neWorld(1,-pi,1,
000150: 70 69 2C 2D 31 29 3B 0D 0A 20 20 53 65 6C 65 63 pi,-1);.. Selec
000160: 74 57 6F 72 6C 64 28 31 29 3B 0D 0A 20 20 53 65 tWorld(1);.. Se
000170: 6C 65 63 74 57 69 6E 64 6F 77 28 31 29 3B 0D 0A lectWindow(1);..
000180: 20 20 53 65 74 42 61 63 6B 67 72 6F 75 6E 64 28 SetBackground(
000190: 30 29 3B 0D 0A 20 20 53 65 74 48 65 61 64 65 72 0);.. SetHeader
0001A0: 4F 6E 3B 0D 0A 20 20 44 72 61 77 42 6F 72 64 65 On;.. DrawBorde
0001B0: 72 3B 0D 0A 0D 0A 20 20 44 72 61 77 50 6F 6C 79 r;.... DrawPoly
0001C0: 67 6F 6E 28 61 2C 31 2C 6E 2C 30 2C 30 2C 30 29 gon(a,1,n,0,0,0)
0001D0: 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7B ; {
0001E0: 74 72 61 63 65 20 6C 65 20 70 6F 6C 79 67 6F 6E trace le polygon
0001F0: 65 7D 0D 0A 0D 0A 65 6E 64 3B 0D 0A 0D 0A 0D 0A e}....end;......
Size : 512 (Real : 512)
000000: 70 72 6F 67 72 61 6D 20 4F 6E 65 50 6F 6C 79 67 program OnePolyg
000010: 6F 6E 3B 0D 0A 0D 0A 7B 24 49 20 74 79 70 65 64 on;....{$I typed
000020: 65 66 2E 73 79 73 7D 20 20 20 20 20 20 20 20 20 ef.sys}
000030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000040: 7B 63 65 73 20 66 69 63 68 69 65 72 73 20 64 6F {ces fichiers do
000050: 69 76 65 6E 74 20 65 74 72 65 7D 0D 0A 7B 24 49 ivent etre}..{$I
000060: 20 67 72 61 70 68 69 78 2E 73 79 73 7D 20 20 20 graphix.sys}
000070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000080: 20 20 20 20 20 20 7B 69 6E 63 6C 75 73 20 64 61 {inclus da
000090: 6E 73 20 63 65 74 20 6F 72 64 72 65 7D 0D 0A 7B ns cet ordre}..{
0000A0: 24 49 20 6B 65 72 6E 65 6C 2E 73 79 73 7D 0D 0A $I kernel.sys}..
0000B0: 7B 24 49 20 6B 65 72 6E 65 6C 31 2E 73 79 73 7D {$I kernel1.sys}
0000C0: 0D 0A 7B 24 49 20 77 69 6E 64 6F 77 73 2E 73 79 ..{$I windows.sy
0000D0: 73 7D 0D 0A 7B 24 49 20 61 78 69 73 2E 68 67 68 s}..{$I axis.hgh
0000E0: 7D 0D 0A 7B 24 49 20 70 6F 6C 79 67 6F 6E 2E 68 }..{$I polygon.h
0000F0: 67 68 7D 0D 0A 0D 0A 0D 0A 70 72 6F 63 65 64 75 gh}......procedu
000100: 72 65 20 50 6F 6C 79 67 6F 6E 44 65 6D 3B 0D 0A re PolygonDem;..
000110: 76 61 72 20 6E 3A 69 6E 74 65 67 65 72 3B 0D 0A var n:integer;..
000120: 20 20 20 20 62 2C 61 3A 50 6C 6F 74 41 72 72 61 b,a:PlotArra
000130: 79 3B 0D 0A 20 20 20 20 63 68 3A 63 68 61 72 3B y;.. ch:char;
000140: 0D 0A 20 20 20 20 78 31 2C 78 32 3A 69 6E 74 65 .. x1,x2:inte
000150: 67 65 72 3B 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 ger;....procedur
000160: 65 20 47 65 6E 65 72 61 74 65 46 75 6E 63 74 69 e GenerateFuncti
000170: 6F 6E 28 76 61 72 20 61 2C 62 3A 50 6C 6F 74 41 on(var a,b:PlotA
000180: 72 72 61 79 3B 6E 3A 69 6E 74 65 67 65 72 29 3B rray;n:integer);
000190: 0D 0A 0D 0A 76 61 72 20 69 3A 69 6E 74 65 67 65 ....var i:intege
0001A0: 72 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 r;
0001B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 7B 67 65 {ge
0001C0: 6E 65 72 65 20 75 6E 20 70 6C 6F 79 67 6F 6E 65 nere un ploygone
0001D0: 7D 0D 0A 20 20 20 20 64 65 6C 74 61 3A 72 65 61 }.. delta:rea
0001E0: 6C 3B 0D 0A 0D 0A 62 65 67 69 6E 0D 0A 20 20 64 l;....begin.. d
0001F0: 65 6C 74 61 3A 3D 32 2A 70 69 2F 28 6E 2D 31 29 elta:=2*pi/(n-1)
Size : 512 (Real : 512)
000000: 0D 0A 62 65 67 69 6E 0D 0A 0D 0A 49 6E 69 74 47 ..begin....InitG
000010: 72 61 70 68 69 63 3B 20 20 20 20 20 20 20 20 20 raphic;
000020: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000030: 20 20 20 20 7B 69 6E 69 74 69 61 6C 69 73 65 20 {initialise
000040: 6C 65 73 20 67 72 61 70 68 69 73 6D 65 73 7D 0D les graphismes}.
000050: 0A 0D 0A 50 6F 6C 79 67 6F 6E 44 65 6D 3B 20 20 ...PolygonDem;
000060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000070: 20 20 20 20 20 20 20 20 20 20 20 20 7B 66 61 69 {fai
000080: 74 20 6C 61 20 64 65 6D 6F 7D 0D 0A 0D 0A 72 65 t la demo}....re
000090: 70 65 61 74 20 75 6E 74 69 6C 20 6B 65 79 70 72 peat until keypr
0000A0: 65 73 73 65 64 3B 20 20 20 20 20 20 20 20 20 20 essed;
0000B0: 20 20 20 20 20 20 20 7B 61 74 74 65 6E 64 20 6A {attend j
0000C0: 75 73 71 75 27 27 61 20 63 65 20 71 75 27 27 75 usqu''a ce qu''u
0000D0: 6E 65 20 74 6F 75 63 68 65 20 73 6F 69 74 20 66 ne touche soit f
0000E0: 72 61 70 70 65 65 7D 0D 0A 0D 0A 4C 65 61 76 65 rappee}....Leave
0000F0: 47 72 61 70 68 69 63 3B 20 20 20 20 20 20 20 20 Graphic;
000100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000110: 20 20 20 20 7B 71 75 69 74 74 65 20 6C 65 20 67 {quitte le g
000120: 72 61 70 68 69 73 6D 65 7D 0D 0A 0D 0A 65 6E 64 raphisme}....end
000130: 2E 0D 0A 0D 0A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000140: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000150: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000160: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000170: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000180: 20 20 53 65 74 42 61 63 6B 67 72 6F 75 6E 64 28 SetBackground(
000190: 30 29 3B 0D 0A 20 20 53 65 74 48 65 61 64 65 72 0);.. SetHeader
0001A0: 4F 6E 3B 0D 0A 20 20 44 72 61 77 42 6F 72 64 65 On;.. DrawBorde
0001B0: 72 3B 0D 0A 0D 0A 20 20 44 72 61 77 50 6F 6C 79 r;.... DrawPoly
0001C0: 67 6F 6E 28 61 2C 31 2C 6E 2C 30 2C 30 2C 30 29 gon(a,1,n,0,0,0)
0001D0: 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7B ; {
0001E0: 74 72 61 63 65 20 6C 65 20 70 6F 6C 79 67 6F 6E trace le polygon
0001F0: 65 7D 0D 0A 0D 0A 65 6E 64 3B 0D 0A 0D 0A 0D 0A e}....end;......
Size : 512 (Real : 512)
000000: 3B 0D 0A 20 20 66 6F 72 20 69 3A 3D 31 20 74 6F ;.. for i:=1 to
000010: 20 6E 20 64 6F 0D 0A 20 20 20 20 62 65 67 69 6E n do.. begin
000020: 0D 0A 20 20 20 20 20 20 61 5B 69 2C 31 5D 3A 3D .. a[i,1]:=
000030: 28 69 2D 31 29 2A 64 65 6C 74 61 2D 70 69 3B 0D (i-1)*delta-pi;.
000040: 0A 20 20 20 20 20 20 61 5B 69 2C 32 5D 3A 3D 73 . a[i,2]:=s
000050: 69 6E 28 61 5B 69 2C 31 5D 29 3B 0D 0A 20 20 20 in(a[i,1]);..
000060: 20 65 6E 64 3B 0D 0A 65 6E 64 3B 0D 0A 0D 0A 0D end;..end;.....
000070: 0A 62 65 67 69 6E 0D 0A 20 20 43 6C 65 61 72 53 .begin.. ClearS
000080: 63 72 65 65 6E 3B 0D 0A 0D 0A 20 20 6E 3A 3D 33 creen;.... n:=3
000090: 30 3B 0D 0A 20 20 47 65 6E 65 72 61 74 65 46 75 0;.. GenerateFu
0000A0: 6E 63 74 69 6F 6E 28 61 2C 62 2C 6E 29 3B 20 20 nction(a,b,n);
0000B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 7B 67 65 {ge
0000C0: 6E 65 72 61 74 69 6F 6E 20 64 75 20 20 70 6F 6C neration du pol
0000D0: 79 67 6F 6E 65 7D 0D 0A 0D 0A 20 20 44 65 66 69 ygone}.... Defi
0000E0: 6E 65 57 69 6E 64 6F 77 28 31 2C 30 2C 30 2C 58 neWindow(1,0,0,X
0000F0: 4D 61 78 47 6C 62 2C 59 4D 61 78 47 6C 62 29 3B MaxGlb,YMaxGlb);
000100: 0D 0A 20 20 44 65 66 69 6E 65 48 65 61 64 65 72 .. DefineHeader
000110: 28 31 2C 27 43 4F 55 52 42 45 20 53 49 4E 55 4F (1,'COURBE SINUO
000120: 53 49 44 41 4C 45 20 43 4F 4D 4D 45 20 55 4E 20 SIDALE COMME UN
000130: 50 4F 4C 59 47 4F 4E 45 27 29 3B 20 20 20 20 7B POLYGONE'); {
000140: 6D 69 73 65 20 65 6E 20 70 6C 61 63 65 20 64 65 mise en place de
000150: 20 6C 27 27 65 63 72 61 6E 7D 0D 0A 20 20 44 65 l''ecran}.. De
000160: 66 69 6E 65 57 6F 72 6C 64 28 31 2C 2D 70 69 2C fineWorld(1,-pi,
000170: 31 2C 70 69 2C 2D 31 29 3B 0D 0A 20 20 53 65 6C 1,pi,-1);.. Sel
000180: 65 63 74 57 6F 72 6C 64 28 31 29 3B 0D 0A 20 20 ectWorld(1);..
000190: 53 65 6C 65 63 74 57 69 6E 64 6F 77 28 31 29 3B SelectWindow(1);
0001A0: 0D 0A 20 20 53 65 74 42 61 63 6B 67 72 6F 75 6E .. SetBackgroun
0001B0: 64 28 30 29 3B 0D 0A 20 20 53 65 74 48 65 61 64 d(0);.. SetHead
0001C0: 65 72 4F 6E 3B 0D 0A 20 20 44 72 61 77 42 6F 72 erOn;.. DrawBor
0001D0: 64 65 72 3B 0D 0A 0D 0A 20 20 44 72 61 77 41 78 der;.... DrawAx
0001E0: 69 73 28 38 2C 2D 38 2C 30 2C 30 2C 30 2C 30 2C is(8,-8,0,0,0,0,
0001F0: 30 2C 30 2C 66 61 6C 73 65 29 3B 20 20 20 20 20 0,0,false);
Size : 512 (Real : 512)
000000: 00 00 00 00 00 04 00 00 00 04 82 00 00 0C C3 C3 ................
000010: 82 49 C3 C3 C3 14 3C 69 C3 00 3C 3C 82 00 FF 3C .I....<i..<<...<
000020: 28 14 3C BE 00 00 3C 3C 00 00 7D 3C 00 00 3C 7D (.<...<<..}<..<}
000030: 28 14 00 14 28 00 00 00 14 00 00 00 00 00 00 00 (...(...........
000040: 00 00 00 00 00 00 00 00 00 04 00 00 00 04 96 28 ...............(
000050: 00 14 7D 3C 28 49 3C 7D C3 14 3C 3C 69 00 3C 3C ..}<(I<}..<<i.<<
000060: 82 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 28 00 00 00 14 00 ..........(.....
000080: 00 00 14 3C 00 00 7D BE 3C 00 14 7D 28 04 14 3C ...<..}.<..}(..<
000090: 28 04 3C BE 00 0C 3C 3C 82 49 C3 3C 69 41 C3 C3 (.<...<<.I.<iA..
0000A0: C3 00 41 C3 82 00 00 00 00 00 00 00 00 00 00 00 ..A.............
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 04 00 00 00 04 96 28 ...............(
0000D0: 00 14 7D 3C 28 49 3C 7D C3 14 3C 3C 69 00 3C 3C ..}<(I<}..<<i.<<
0000E0: 82 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 14 00 00 00 28 00 00 .............(..
000100: 3C 28 00 3C 7D BE 00 14 BE 28 00 14 3C 28 08 00 <(.<}....(..<(..
000110: 7D 3C 08 41 3C 3C 0C 96 3C C3 86 C3 C3 C3 82 41 }<.A<<..<......A
000120: C3 82 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000130: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000140: 00 00 00 00 00 00 00 00 00 00 08 00 14 69 08 14 .............i..
000150: 3C BE 2C C3 BE 3C 86 96 3C 3C 28 41 3C 3C 00 00 <.,..<..<<(A<<..
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 08 00 00 41 08 41 C3 C3 0C C3 .........A.A....
000190: C3 C3 86 C3 96 3C 28 41 3C 3C 00 14 3C FF 00 00 .....<(A<<..<...
0001A0: 7D 3C 28 00 3C 3C 00 00 3C BE 00 14 BE 3C 00 14 }<(.<<..<....<..
0001B0: 28 00 28 28 00 00 00 00 00 00 00 00 00 00 00 00 (.((............
0001C0: 00 00 00 00 00 00 00 00 00 00 08 00 14 69 08 14 .............i..
0001D0: 3C BE 2C C3 BE 3C 86 96 3C 3C 28 41 3C 3C 00 00 <.,..<..<<(A<<..
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 66 33 33 66 99 CC 33 99 99 .......f33f..3..
Size : 512 (Real : 512)
000000: 20 7B 74 72 61 63 65 20 6C 65 73 20 61 78 65 73 {trace les axes
000010: 7D 0D 0A 0D 0A 20 20 44 72 61 77 50 6F 6C 79 67 }.... DrawPolyg
000020: 6F 6E 28 61 2C 31 2C 6E 2C 30 2C 30 2C 30 29 3B on(a,1,n,0,0,0);
000030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7B 74 {t
000040: 72 61 63 65 20 6C 65 20 70 6F 6C 79 67 6F 6E 65 race le polygone
000050: 7D 0D 0A 0D 0A 65 6E 64 3B 0D 0A 0D 0A 0D 0A 0D }....end;.......
000060: 0A 62 65 67 69 6E 0D 0A 0D 0A 49 6E 69 74 47 72 .begin....InitGr
000070: 61 70 68 69 63 3B 20 20 20 20 20 20 20 20 20 20 aphic;
000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000090: 20 20 20 7B 69 6E 69 74 69 61 6C 69 73 65 20 6C {initialise l
0000A0: 65 73 20 67 72 61 70 68 69 73 6D 65 73 7D 0D 0A es graphismes}..
0000B0: 0D 0A 50 6F 6C 79 67 6F 6E 44 65 6D 3B 20 20 20 ..PolygonDem;
0000C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000D0: 20 20 20 20 20 20 20 20 20 20 20 7B 66 61 69 74 {fait
0000E0: 20 6C 61 20 64 65 6D 6F 7D 0D 0A 0D 0A 72 65 70 la demo}....rep
0000F0: 65 61 74 20 75 6E 74 69 6C 20 6B 65 79 70 72 65 eat until keypre
000100: 73 73 65 64 3B 20 20 20 20 20 20 20 20 20 20 20 ssed;
000110: 20 20 20 20 20 20 7B 61 74 74 65 6E 64 20 6A 75 {attend ju
000120: 73 71 75 27 27 61 20 63 65 20 71 75 65 20 75 6E squ''a ce que un
000130: 65 20 74 6F 75 63 68 65 20 73 6F 69 74 20 66 72 e touche soit fr
000140: 61 70 70 65 65 7D 0D 0A 0D 0A 4C 65 61 76 65 47 appee}....LeaveG
000150: 72 61 70 68 69 63 3B 20 20 20 20 20 20 20 20 20 raphic;
000160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000170: 20 20 20 7B 6C 65 61 76 65 20 74 68 65 20 67 72 {leave the gr
000180: 61 70 68 69 63 73 20 73 79 73 74 65 6D 7D 0D 0A aphics system}..
000190: 0D 0A 65 6E 64 2E 0D 0A 0D 0A 1A 1A 1A 1A 1A 1A ..end...........
0001A0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0001B0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0001C0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0001D0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0001E0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0001F0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
Size : 512 (Real : 512)
000000: 61 5B 69 2B 31 2C 32 5D 3A 3D 72 61 6E 64 6F 6D a[i+1,2]:=random
000010: 3B 0D 0A 20 20 20 20 65 6E 64 3B 0D 0A 0D 0A 20 ;.. end;....
000020: 20 53 65 74 43 6F 6C 6F 72 57 68 69 74 65 3B 20 SetColorWhite;
000030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000040: 20 20 20 7B 6D 69 73 65 20 65 6E 20 70 6C 61 63 {mise en plac
000050: 65 20 64 65 73 20 62 61 72 72 65 73 20 7D 0D 0A e des barres }..
000060: 20 20 53 65 74 42 61 63 6B 67 72 6F 75 6E 64 28 SetBackground(
000070: 30 29 3B 0D 0A 20 20 53 65 74 48 65 61 64 65 72 0);.. SetHeader
000080: 4F 6E 3B 0D 0A 20 20 44 65 66 69 6E 65 57 69 6E On;.. DefineWin
000090: 64 6F 77 28 31 2C 30 2C 30 2C 58 4D 61 78 47 6C dow(1,0,0,XMaxGl
0000A0: 62 2C 59 4D 61 78 47 6C 62 29 3B 0D 0A 20 20 44 b,YMaxGlb);.. D
0000B0: 65 66 69 6E 65 48 65 61 64 65 72 28 31 2C 27 48 efineHeader(1,'H
0000C0: 49 53 54 4F 47 52 41 4D 4D 45 20 48 41 43 48 55 ISTOGRAMME HACHU
0000D0: 52 45 20 41 4C 45 41 54 4F 49 52 45 4D 45 4E 54 RE ALEATOIREMENT
0000E0: 27 29 3B 0D 0A 20 20 44 65 66 69 6E 65 57 6F 72 ');.. DefineWor
0000F0: 6C 64 28 31 2C 2D 31 30 2C 31 2E 30 2C 31 30 2C ld(1,-10,1.0,10,
000100: 30 29 3B 0D 0A 20 20 53 65 6C 65 63 74 57 6F 72 0);.. SelectWor
000110: 6C 64 28 31 29 3B 0D 0A 20 20 53 65 6C 65 63 74 ld(1);.. Select
000120: 57 69 6E 64 6F 77 28 31 29 3B 0D 0A 0D 0A 20 20 Window(1);....
000130: 44 72 61 77 42 6F 72 64 65 72 3B 20 20 20 20 20 DrawBorder;
000140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000150: 20 20 7B 74 72 61 63 65 20 6C 61 20 66 65 6E 74 {trace la fent
000160: 72 65 7D 0D 0A 0D 0A 0D 0A 20 20 48 61 74 63 68 re}...... Hatch
000170: 3A 3D 74 72 75 65 3B 20 20 20 20 20 20 20 20 20 :=true;
000180: 20 20 20 20 20 20 20 20 20 20 20 20 20 7B 64 65 {de
000190: 73 61 63 74 69 76 65 20 6C 65 20 68 61 63 68 75 sactive le hachu
0001A0: 72 61 67 65 7D 0D 0A 20 20 48 61 74 63 68 44 65 rage}.. HatchDe
0001B0: 6E 3A 3D 37 3B 0D 0A 0D 0A 0D 0A 20 20 44 72 61 n:=7;...... Dra
0001C0: 77 48 69 73 74 6F 67 72 61 6D 28 61 2C 2D 44 69 wHistogram(a,-Di
0001D0: 73 70 6C 79 4C 65 6E 2C 48 61 74 63 68 2C 48 61 splyLen,Hatch,Ha
0001E0: 74 63 68 44 65 6E 29 3B 20 20 20 7B 74 72 61 63 tchDen); {trac
0001F0: 65 20 6C 27 27 6F 72 67 61 6E 69 67 72 61 6D 6D e l''organigramm
Size : 512 (Real : 512)
000000: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000010: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000020: 00 00 00 11 33 33 22 62 FF D5 33 77 D5 EA BB 33 ....33"b..3w...3
000030: EA FF 91 11 33 33 22 00 00 00 00 00 00 00 00 00 ....33".........
000040: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000050: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000060: 00 00 00 00 00 00 00 00 00 00 00 00 FC FC 00 54 ...............T
000070: FC FC A8 54 54 A8 A8 FC 54 A8 FC A8 54 A8 54 A8 ...TT...T...T.T.
000080: 54 A8 54 A8 FC FC 54 FC A8 54 FC FC 00 00 FC 54 T.T...T..T.....T
000090: 00 00 A8 54 A8 54 A8 00 FC FC 00 00 00 00 00 00 ...T.T..........
0000A0: 00 00 00 00 00 00 00 00 00 00 00 00 54 A8 00 00 ............T...
0000B0: FC FC 00 00 FC FC 00 54 A8 FC A8 54 A8 A8 A8 54 .......T...T...T
0000C0: A8 A8 A8 54 A8 A8 A8 54 FC FC A8 54 FC 54 A8 00 ...T...T...T.T..
0000D0: FC 54 00 00 FC FC 00 00 54 A8 00 00 00 00 00 00 .T......T.......
0000E0: 00 00 00 00 00 00 00 00 00 00 00 00 54 A8 00 00 ............T...
0000F0: 54 A8 00 00 54 A8 00 00 54 A8 00 00 54 A8 00 00 T...T...T...T...
000100: 54 A8 00 00 54 A8 00 00 54 A8 00 00 54 A8 00 00 T...T...T...T...
000110: 54 A8 00 00 54 A8 00 00 54 A8 00 00 00 00 00 00 T...T...T.......
000120: 00 00 00 00 00 00 00 00 00 00 00 00 54 A8 00 00 ............T...
000130: FC FC 00 00 FC FC 00 54 FC 54 A8 54 54 54 A8 54 .......T.T.TTT.T
000140: 54 54 A8 54 54 54 A8 54 FC FC A8 54 A8 FC A8 00 TT.TTT.T...T....
000150: A8 FC 00 00 FC FC 00 00 54 A8 00 00 00 00 00 00 ........T.......
000160: 00 00 00 00 FC FC 00 54 EC DC A8 FC DC CC FC EC .......T........
000170: FC FC DC FC CC CC FC 54 EC FC A8 00 54 A8 00 00 .......T....T...
000180: 54 A8 00 00 FC FC 00 00 FC FC 00 00 54 A8 00 00 T...........T...
000190: 54 A8 00 00 FC FC 00 00 FC FC 00 FF FF 00 FF EB T...............
0001A0: D7 FF C3 D7 EB C3 FF AA 55 FF FF 00 54 00 54 00 ........U...T.T.
0001B0: DC 00 DC 54 DC 54 DC DC DC DC DC 88 00 88 00 DC ...T.T..........
0001C0: 00 DC 00 DC 88 DC 88 DC DC DC DC DC DC DC DC DC ................
0001D0: DC DC DC DC DC DC DC 00 00 00 33 00 00 11 33 00 ..........3...3.
0001E0: 00 33 33 00 00 33 33 00 11 33 33 00 11 33 33 00 .33..33..33..33.
0001F0: 3B 49 19 51 11 0C 19 15 11 49 19 51 11 19 19 00 ;I.Q.....I.Q....
Size : 512 (Real : 512)
000000: 65 7D 0D 0A 0D 0A 65 6E 64 3B 0D 0A 0D 0A 0D 0A e}....end;......
000010: 62 65 67 69 6E 0D 0A 0D 0A 49 6E 69 74 47 72 61 begin....InitGra
000020: 70 68 69 63 3B 20 20 20 20 20 20 20 20 20 20 20 phic;
000030: 20 20 20 20 20 20 20 20 20 20 20 20 20 7B 69 6E {in
000040: 69 74 69 61 6C 69 73 65 20 6C 65 73 20 67 72 61 itialise les gra
000050: 70 68 69 73 6D 65 73 7D 0D 0A 0D 0A 48 69 73 74 phismes}....Hist
000060: 6F 44 65 6D 3B 20 20 20 20 20 20 20 20 20 20 20 oDem;
000070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000080: 7B 66 61 69 74 20 6C 61 20 64 65 6D 6F 7D 0D 0A {fait la demo}..
000090: 0D 0A 72 65 70 65 61 74 20 75 6E 74 69 6C 20 6B ..repeat until k
0000A0: 65 79 70 72 65 73 73 65 64 3B 20 20 20 20 20 20 eypressed;
0000B0: 20 20 20 20 20 20 7B 61 74 74 65 6E 64 20 6A 75 {attend ju
0000C0: 73 71 75 27 27 61 20 63 65 20 71 75 27 27 75 6E squ''a ce qu''un
0000D0: 65 20 74 6F 75 63 68 65 20 73 6F 69 74 20 66 72 e touche soit fr
0000E0: 61 70 70 65 65 7D 0D 0A 0D 0A 4C 65 61 76 65 47 appee}....LeaveG
0000F0: 72 61 70 68 69 63 3B 20 20 20 20 20 20 20 20 20 raphic;
000100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7B 71 {q
000110: 75 69 74 74 65 20 6C 65 20 67 72 61 70 68 69 73 uitte le graphis
000120: 6D 65 7D 0D 0A 0D 0A 65 6E 64 2E 0D 0A 0D 0A 1A me}....end......
000130: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000140: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000150: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000160: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000170: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000180: 20 20 20 20 20 20 20 20 20 20 20 20 20 7B 64 65 {de
000190: 73 61 63 74 69 76 65 20 6C 65 20 68 61 63 68 75 sactive le hachu
0001A0: 72 61 67 65 7D 0D 0A 20 20 48 61 74 63 68 44 65 rage}.. HatchDe
0001B0: 6E 3A 3D 37 3B 0D 0A 0D 0A 0D 0A 20 20 44 72 61 n:=7;...... Dra
0001C0: 77 48 69 73 74 6F 67 72 61 6D 28 61 2C 2D 44 69 wHistogram(a,-Di
0001D0: 73 70 6C 79 4C 65 6E 2C 48 61 74 63 68 2C 48 61 splyLen,Hatch,Ha
0001E0: 74 63 68 44 65 6E 29 3B 20 20 20 7B 74 72 61 63 tchDen); {trac
0001F0: 65 20 6C 27 27 6F 72 67 61 6E 69 67 72 61 6D 6D e l''organigramm
Size : 512 (Real : 512)
000000: 70 72 6F 67 72 61 6D 20 53 69 6D 70 6C 65 57 69 program SimpleWi
000010: 6E 64 6F 77 3B 0D 0A 0D 0A 7B 24 49 20 74 79 70 ndow;....{$I typ
000020: 65 64 65 66 2E 73 79 73 7D 20 20 20 20 20 20 20 edef.sys}
000030: 20 20 20 20 20 20 7B 63 65 73 20 66 69 63 68 69 {ces fichi
000040: 65 72 73 20 64 6F 69 76 65 6E 74 20 65 74 72 65 ers doivent etre
000050: 20 7D 0D 0A 7B 24 49 20 67 72 61 70 68 69 78 2E }..{$I graphix.
000060: 73 79 73 7D 20 20 20 20 20 20 20 20 20 20 20 20 sys}
000070: 20 7B 69 6E 63 6C 75 73 20 64 61 6E 73 20 63 65 {inclus dans ce
000080: 74 20 6F 72 64 72 65 7D 0D 0A 7B 24 49 20 6B 65 t ordre}..{$I ke
000090: 72 6E 65 6C 2E 73 79 73 7D 0D 0A 7B 24 49 20 6B rnel.sys}..{$I k
0000A0: 65 72 6E 65 6C 31 2E 73 79 73 7D 0D 0A 7B 24 49 ernel1.sys}..{$I
0000B0: 20 77 69 6E 64 6F 77 73 2E 73 79 73 7D 0D 0A 0D windows.sys}...
0000C0: 0A 0D 0A 0D 0A 62 65 67 69 6E 0D 0A 0D 0A 49 6E .....begin....In
0000D0: 69 74 47 72 61 70 68 69 63 3B 20 20 20 20 20 20 itGraphic;
0000E0: 20 20 20 20 20 20 20 20 20 20 20 7B 69 6E 69 74 {init
0000F0: 69 61 6C 69 73 65 20 6C 65 73 20 67 72 61 70 68 ialise les graph
000100: 69 73 6D 65 73 7D 0D 0A 0D 0A 0D 0A 44 72 61 77 ismes}......Draw
000110: 42 6F 72 64 65 72 3B 20 20 20 20 20 20 20 20 20 Border;
000120: 20 20 20 20 20 20 20 20 20 7B 74 72 61 63 65 20 {trace
000130: 75 6E 65 20 62 6F 72 64 75 72 65 20 61 75 74 6F une bordure auto
000140: 75 72 20 64 75 20 64 65 73 73 69 6E 7D 0D 0A 20 ur du dessin}..
000150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000160: 20 20 20 20 20 20 20 20 20 20 20 20 7B 61 69 72 {air
000170: 65 20 64 65 20 6C 61 20 66 65 6E 65 74 72 65 20 e de la fenetre
000180: 70 72 69 6D 61 69 72 65 7D 0D 0A 0D 0A 44 65 66 primaire}....Def
000190: 69 6E 65 57 69 6E 64 6F 77 28 31 2C 31 30 2C 32 ineWindow(1,10,2
0001A0: 30 2C 58 4D 61 78 47 6C 62 2D 31 30 2C 59 4D 61 0,XMaxGlb-10,YMa
0001B0: 78 47 6C 62 2D 32 30 29 3B 20 7B 64 65 66 69 6E xGlb-20); {defin
0001C0: 69 74 20 75 6E 65 20 66 65 6E 65 74 72 65 20 64 it une fenetre d
0001D0: 65 20 38 30 20 70 69 78 65 6C 73 7D 0D 0A 0D 0A e 80 pixels}....
0001E0: 44 65 66 69 6E 65 48 65 61 64 65 72 28 31 2C 27 DefineHeader(1,'
0001F0: 43 27 45 53 54 20 55 4E 45 20 53 49 4D 50 4C 45 C'EST UNE SIMPLE
Size : 512 (Real : 512)
000000: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000010: 00 00 00 00 00 00 00 00 00 00 00 00 04 00 00 00 ................
000020: AC A8 00 54 00 54 00 88 00 00 88 CC CC CC 88 88 ...T.T..........
000030: 88 88 88 CC CC CC 88 88 88 88 88 CC CC CC 88 CC ................
000040: 44 44 88 44 CC CC 00 00 08 00 08 00 08 41 49 41 DD.D.........AIA
000050: 0C 11 FC 11 FC 41 0C 3C 28 78 28 39 28 78 28 39 .....A.<(x(9(x(9
000060: 28 78 28 39 28 3C 28 00 FF FF 00 55 FF FF AA FF (x(9(<(....U....
000070: FF FF FF FF FF FF FF FF FF FF BE FF FF FF BE FF ................
000080: FF FF 3C FF 3C 3C 3C EB 3C 3C 96 EB 86 0C 1C EB ..<.<<<.<<......
000090: C6 5C 1C EB AC 8C 1C FF 86 0C 3C FF 3C 3C 7D 55 .\........<.<<}U
0000A0: 3C 3C 28 00 FF 7D 00 41 82 C3 C3 C3 86 86 0C 86 <<(..}.A........
0000B0: 1C 96 3C 96 2C 04 08 00 00 00 00 00 00 00 00 00 ..<.,...........
0000C0: 00 00 00 00 00 00 00 00 00 00 00 3C 3C 3C 3C 3C ...........<<<<<
0000D0: 3C 3C 3C 3C 3C 3C 3C 39 33 33 36 7D FF FF BE 7D <<<<<<<9336}...}
0000E0: 0C 0C BE 7D FF FF BE 7D FF FF BE 7D FF FF BE 7D ...}...}...}...}
0000F0: FF FF BE 3C 3C 3C 3C 4F 4F 0C 0C D5 C0 D5 C0 0C ...<<<<OO.......
000100: 0C 8F 8F 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000110: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000120: 00 00 00 FC FC FC A8 FC FC FD A8 C0 C0 C0 80 FC ................
000130: FC FC A8 FD 7D 7D A8 BC BE BE A8 FD 7D 7D A8 BC ....}}......}}..
000140: BE BE A8 FC FC FC A8 00 00 00 00 00 00 00 00 00 ................
000150: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000160: 00 00 00 FF FF FF FF BB 77 FF FF FF FF FF FF 33 ........w......3
000170: 33 33 33 FF FF FF FF BB BB BB AE 77 77 77 1C BB 333........www..
000180: BB AE 38 FF FF 1C 75 0C 0C 0C 0C 0C 0C 0C 0C 0C ..8...u.........
000190: 0C 0C 0C 0C 0C 0C 0C CC CC CC CC CC CC CC CC CC ................
0001A0: CC CC CC CC CC CC CC 33 93 33 33 93 33 33 93 33 .......3.33.33.3
0001B0: 33 63 33 33 63 33 33 00 00 00 00 00 00 00 00 00 3c33c33.........
0001C0: 1A 5F 00 27 04 35 31 2C 39 39 2C 35 31 2C 35 31 ._.'.51,99,51,51
0001D0: 0D 1A FF 00 FF 00 00 08 00 00 C3 96 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 ................
Size : 512 (Real : 512)
000000: 20 46 45 4E 45 54 52 45 27 29 3B 20 7B 64 6F 6E FENETRE'); {don
000010: 6E 65 20 6C 27 27 65 6E 74 65 74 65 7D 0D 0A 0D ne l''entete}...
000020: 0A 53 65 74 48 65 61 64 65 72 4F 6E 3B 0D 0A 0D .SetHeaderOn;...
000030: 0A 44 65 66 69 6E 65 57 6F 72 6C 64 28 31 2C 30 .DefineWorld(1,0
000040: 2C 31 30 30 30 2C 31 30 30 30 2C 30 29 3B 20 7B ,1000,1000,0); {
000050: 64 6F 6E 6E 65 20 6C 65 20 6D 6F 6E 64 65 20 64 donne le monde d
000060: 65 20 63 6F 6F 72 64 6F 6E 6E 65 65 73 20 73 79 e coordonnees sy
000070: 73 74 65 6D 65 7D 0D 0A 0D 0A 53 65 6C 65 63 74 steme}....Select
000080: 57 69 6E 64 6F 77 28 31 29 3B 20 20 20 20 20 20 Window(1);
000090: 20 20 20 20 20 20 20 20 20 7B 63 68 6F 69 73 69 {choisi
0000A0: 74 20 6C 61 20 66 65 6E 65 74 72 65 7D 0D 0A 0D t la fenetre}...
0000B0: 0A 53 65 6C 65 63 74 57 6F 72 6C 64 28 31 29 3B .SelectWorld(1);
0000C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000D0: 7B 63 68 6F 69 73 69 74 20 6C 65 20 6D 6F 6E 64 {choisit le mond
0000E0: 65 7D 0D 0A 0D 0A 53 65 74 42 61 63 6B 67 72 6F e}....SetBackgro
0000F0: 75 6E 64 28 38 35 29 3B 20 20 20 20 20 20 20 20 und(85);
000100: 20 20 20 20 20 7B 64 6F 6E 6E 65 20 6C 27 27 61 {donne l''a
000110: 72 72 69 65 72 65 20 70 6C 61 6E 20 67 72 69 73 rriere plan gris
000120: 7D 7D 0D 0A 0D 0A 44 72 61 77 42 6F 72 64 65 72 }}....DrawBorder
000130: 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ;
000140: 20 20 20 20 20 7B 74 72 61 63 65 20 6C 61 20 62 {trace la b
000150: 6F 72 64 75 72 65 7D 0D 0A 0D 0A 72 65 70 65 61 ordure}....repea
000160: 74 20 75 6E 74 69 6C 20 6B 65 79 70 72 65 73 73 t until keypress
000170: 65 64 3B 20 20 20 20 20 20 20 7B 61 74 74 65 6E ed; {atten
000180: 64 20 6A 75 73 71 75 27 27 61 20 63 65 20 71 75 d jusqu''a ce qu
000190: 27 27 75 6E 65 20 74 6F 75 63 68 65 20 73 6F 69 ''une touche soi
0001A0: 74 20 66 72 61 70 70 65 65 7D 0D 0A 0D 0A 4C 65 t frappee}....Le
0001B0: 61 76 65 47 72 61 70 68 69 63 3B 20 20 20 20 20 aveGraphic;
0001C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 7B 71 75 {qu
0001D0: 69 74 74 65 20 6C 65 73 20 67 72 61 70 68 69 73 itte les graphis
0001E0: 6D 65 73 7D 0D 0A 0D 0A 65 6E 64 2E 0D 0A 1A 1A mes}....end.....
0001F0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
Size : 512 (Real : 512)
000000: 70 72 6F 67 72 61 6D 20 4F 6E 65 50 69 65 44 65 program OnePieDe
000010: 6D 6F 3B 0D 0A 0D 0A 7B 24 49 20 74 79 70 65 64 mo;....{$I typed
000020: 65 66 2E 73 79 73 7D 20 20 20 20 20 20 20 20 20 ef.sys}
000030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7B {
000040: 63 65 73 20 66 69 63 68 69 65 72 73 20 64 6F 69 ces fichiers doi
000050: 76 65 6E 74 20 65 74 72 65 7D 0D 0A 7B 24 49 20 vent etre}..{$I
000060: 67 72 61 70 68 69 78 2E 73 79 73 7D 20 20 20 20 graphix.sys}
000070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000080: 20 20 20 20 7B 69 6E 63 6C 75 73 20 64 61 6E 73 {inclus dans
000090: 20 63 65 74 20 6F 72 64 72 65 7D 0D 0A 7B 24 49 cet ordre}..{$I
0000A0: 20 6B 65 72 6E 65 6C 2E 73 79 73 7D 0D 0A 7B 24 kernel.sys}..{$
0000B0: 49 20 6B 65 72 6E 65 6C 31 2E 73 79 73 7D 0D 0A I kernel1.sys}..
0000C0: 7B 24 49 20 77 69 6E 64 6F 77 73 2E 73 79 73 7D {$I windows.sys}
0000D0: 0D 0A 7B 24 49 20 63 69 72 63 73 65 67 6D 2E 68 ..{$I circsegm.h
0000E0: 67 68 7D 0D 0A 7B 24 49 20 70 69 65 2E 68 67 68 gh}..{$I pie.hgh
0000F0: 7D 0D 0A 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 65 }......procedure
000100: 20 4F 6E 65 50 69 65 44 65 6D 3B 0D 0A 0D 0A 76 OnePieDem;....v
000110: 61 72 20 73 75 6D 2C 78 31 2C 79 31 2C 52 61 64 ar sum,x1,y1,Rad
000120: 69 75 73 2C 54 68 65 74 61 2C 49 6E 52 61 64 69 ius,Theta,InRadi
000130: 75 73 2C 4F 75 74 52 61 64 69 75 73 3A 72 65 61 us,OutRadius:rea
000140: 6C 3B 0D 0A 20 20 20 20 6E 2C 4D 6F 64 65 2C 53 l;.. n,Mode,S
000150: 69 7A 65 3A 69 6E 74 65 67 65 72 3B 0D 0A 20 20 ize:integer;..
000160: 20 20 61 3A 50 69 65 41 72 72 61 79 3B 0D 0A 20 a:PieArray;..
000170: 20 20 20 62 61 63 6B 3A 62 79 74 65 3B 0D 0A 20 back:byte;..
000180: 20 20 20 63 68 3A 63 68 61 72 3B 0D 0A 0D 0A 62 ch:char;....b
000190: 65 67 69 6E 0D 0A 20 20 43 6C 65 61 72 53 63 72 egin.. ClearScr
0001A0: 65 65 6E 3B 0D 0A 20 20 53 65 74 43 6F 6C 6F 72 een;.. SetColor
0001B0: 57 68 69 74 65 3B 0D 0A 0D 0A 20 20 44 65 66 69 White;.... Defi
0001C0: 6E 65 57 69 6E 64 6F 77 28 31 2C 30 2C 30 2C 58 neWindow(1,0,0,X
0001D0: 4D 61 78 47 6C 62 2C 59 4D 61 78 47 6C 62 29 3B MaxGlb,YMaxGlb);
0001E0: 0D 0A 20 20 44 65 66 69 6E 65 48 65 61 64 65 72 .. DefineHeader
0001F0: 28 31 2C 27 55 4E 20 43 41 4D 45 4D 42 45 52 54 (1,'UN CAMEMBERT
Size : 512 (Real : 512)
000000: 70 72 6F 67 72 61 6D 20 4F 6E 65 48 69 73 74 3B program OneHist;
000010: 0D 0A 0D 0A 7B 24 49 20 74 79 70 65 64 65 66 2E ....{$I typedef.
000020: 73 79 73 7D 20 20 20 20 20 20 20 20 20 20 20 20 sys}
000030: 20 20 20 20 20 20 20 20 7B 63 65 73 20 66 69 63 {ces fic
000040: 68 69 65 72 73 20 64 6F 69 76 65 6E 74 20 65 74 hiers doivent et
000050: 72 65 7D 0D 0A 7B 24 49 20 67 72 61 70 68 69 78 re}..{$I graphix
000060: 2E 73 79 73 7D 20 20 20 20 20 20 20 20 20 20 20 .sys}
000070: 20 20 20 20 20 20 20 20 20 7B 69 6E 63 6C 75 73 {inclus
000080: 20 64 61 6E 73 20 63 65 74 20 6F 72 64 72 65 7D dans cet ordre}
000090: 0D 0A 7B 24 49 20 6B 65 72 6E 65 6C 2E 73 79 73 ..{$I kernel.sys
0000A0: 7D 0D 0A 7B 24 49 20 6B 65 72 6E 65 6C 31 2E 73 }..{$I kernel1.s
0000B0: 79 73 7D 0D 0A 7B 24 49 20 77 69 6E 64 6F 77 73 ys}..{$I windows
0000C0: 2E 73 79 73 7D 0D 0A 7B 24 49 20 68 61 74 63 68 .sys}..{$I hatch
0000D0: 2E 68 67 68 7D 0D 0A 7B 24 49 20 68 69 73 74 6F .hgh}..{$I histo
0000E0: 67 72 6D 2E 68 67 68 7D 0D 0A 0D 0A 0D 0A 70 72 grm.hgh}......pr
0000F0: 6F 63 65 64 75 72 65 20 48 69 73 74 6F 44 65 6D ocedure HistoDem
000100: 3B 0D 0A 76 61 72 20 69 2C 44 69 73 70 6C 79 4C ;..var i,DisplyL
000110: 65 6E 2C 48 61 74 63 68 44 65 6E 3A 69 6E 74 65 en,HatchDen:inte
000120: 67 65 72 3B 0D 0A 20 20 20 20 61 3A 50 6C 6F 74 ger;.. a:Plot
000130: 41 72 72 61 79 3B 0D 0A 20 20 20 20 72 3A 72 65 Array;.. r:re
000140: 61 6C 3B 0D 0A 20 20 20 20 63 68 3A 63 68 61 72 al;.. ch:char
000150: 3B 0D 0A 20 20 20 20 48 61 74 63 68 3A 62 6F 6F ;.. Hatch:boo
000160: 6C 65 61 6E 3B 0D 0A 0D 0A 0D 0A 62 65 67 69 6E lean;......begin
000170: 0D 0A 20 20 44 69 73 70 6C 79 4C 65 6E 3A 3D 31 .. DisplyLen:=1
000180: 30 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0;
000190: 20 20 20 20 20 20 7B 20 6C 65 20 74 72 61 63 65 { le trace
0001A0: 7D 0D 0A 0D 0A 20 20 66 6F 72 20 69 3A 3D 30 20 }.... for i:=0
0001B0: 74 6F 20 44 69 73 70 6C 79 4C 65 6E 20 64 6F 20 to DisplyLen do
0001C0: 20 20 20 20 20 20 20 20 20 7B 69 6E 69 74 69 61 {initia
0001D0: 6C 69 73 65 20 6C 27 27 65 63 72 61 6E 20 61 6C lise l''ecran al
0001E0: 65 61 74 6F 69 72 65 6D 65 6E 74 7D 0D 0A 20 20 eatoirement}..
0001F0: 20 20 62 65 67 69 6E 3B 0D 0A 20 20 20 20 20 20 begin;..
Size : 512 (Real : 512)
000000: 27 29 3B 20 20 7B 6D 69 73 65 20 65 6E 20 70 6C '); {mise en pl
000010: 61 63 65 20 64 65 20 6C 61 20 66 65 6E 65 74 72 ace de la fenetr
000020: 65 7D 0D 0A 20 20 44 65 66 69 6E 65 57 6F 72 6C e}.. DefineWorl
000030: 64 28 31 2C 30 2C 31 30 30 30 2C 31 30 30 30 2C d(1,0,1000,1000,
000040: 30 29 3B 0D 0A 20 20 53 65 6C 65 63 74 57 6F 72 0);.. SelectWor
000050: 6C 64 28 31 29 3B 0D 0A 20 20 53 65 6C 65 63 74 ld(1);.. Select
000060: 57 69 6E 64 6F 77 28 31 29 3B 0D 0A 20 20 53 65 Window(1);.. Se
000070: 74 48 65 61 64 65 72 4F 6E 3B 0D 0A 20 20 53 65 tHeaderOn;.. Se
000080: 74 42 61 63 6B 67 72 6F 75 6E 64 28 30 29 3B 0D tBackground(0);.
000090: 0A 20 20 44 72 61 77 42 6F 72 64 65 72 3B 0D 0A . DrawBorder;..
0000A0: 0D 0A 20 20 6E 3A 3D 35 3B 20 20 20 20 20 20 20 .. n:=5;
0000B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000C0: 20 20 20 20 20 20 20 20 20 20 20 7B 6C 65 20 6E {le n
0000D0: 6F 6D 62 72 65 20 64 65 20 73 65 67 6D 65 6E 74 ombre de segment
0000E0: 7D 0D 0A 20 20 61 5B 31 5D 2E 61 72 65 61 3A 3D }.. a[1].area:=
0000F0: 32 35 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 25;
000100: 20 20 20 20 20 20 20 20 20 20 20 20 7B 69 6E 69 {ini
000110: 74 69 61 6C 69 73 65 20 6C 65 20 74 61 62 6C 65 tialise le table
000120: 61 75 7D 0D 0A 20 20 61 5B 32 5D 2E 61 72 65 61 au}.. a[2].area
000130: 3A 3D 31 37 2E 35 3B 0D 0A 20 20 61 5B 33 5D 2E :=17.5;.. a[3].
000140: 61 72 65 61 3A 3D 39 2E 36 3B 0D 0A 20 20 61 5B area:=9.6;.. a[
000150: 34 5D 2E 61 72 65 61 3A 3D 32 31 3B 0D 0A 20 20 4].area:=21;..
000160: 61 5B 35 5D 2E 61 72 65 61 3A 3D 33 35 3B 0D 0A a[5].area:=35;..
000170: 20 20 61 5B 31 5D 2E 74 65 78 74 3A 3D 27 4A 41 a[1].text:='JA
000180: 4E 2E 3D 27 3B 0D 0A 20 20 61 5B 32 5D 2E 74 65 N.=';.. a[2].te
000190: 78 74 3A 3D 27 46 45 56 2E 3D 27 3B 0D 0A 20 20 xt:='FEV.=';..
0001A0: 61 5B 33 5D 2E 74 65 78 74 3A 3D 27 4D 41 52 2E a[3].text:='MAR.
0001B0: 3D 27 3B 0D 0A 20 20 61 5B 34 5D 2E 74 65 78 74 =';.. a[4].text
0001C0: 3A 3D 27 41 56 52 2E 3D 27 3B 0D 0A 20 20 61 5B :='AVR.=';.. a[
0001D0: 35 5D 2E 74 65 78 74 3A 3D 27 4D 41 49 3D 27 3B 5].text:='MAI=';
0001E0: 0D 0A 0D 0A 20 20 61 5B 31 5D 2E 61 72 65 61 3A .... a[1].area:
0001F0: 3D 2D 61 5B 31 5D 2E 61 72 65 61 3B 20 20 20 20 =-a[1].area;
Size : 512 (Real : 512)
000000: 70 72 6F 67 72 61 6D 20 49 6E 74 65 72 70 6F 6C program Interpol
000010: 61 74 65 3B 0D 0A 0D 0A 7B 24 49 20 74 79 70 65 ate;....{$I type
000020: 64 65 66 2E 73 79 73 7D 20 20 20 20 20 20 20 20 def.sys}
000030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7B {
000040: 63 65 73 20 66 69 63 68 69 65 72 73 20 64 6F 69 ces fichiers doi
000050: 76 65 6E 74 20 65 74 72 65 7D 0D 0A 7B 24 49 20 vent etre}..{$I
000060: 67 72 61 70 68 69 78 2E 73 79 73 7D 20 20 20 20 graphix.sys}
000070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000080: 20 20 20 7B 69 6E 63 6C 75 73 20 64 61 6E 73 20 {inclus dans
000090: 63 65 74 20 6F 72 64 72 65 7D 0D 0A 7B 24 49 20 cet ordre}..{$I
0000A0: 6B 65 72 6E 65 6C 2E 73 79 73 7D 0D 0A 7B 24 49 kernel.sys}..{$I
0000B0: 20 6B 65 72 6E 65 6C 31 2E 73 79 73 7D 0D 0A 7B kernel1.sys}..{
0000C0: 24 49 20 77 69 6E 64 6F 77 73 2E 73 79 73 7D 0D $I windows.sys}.
0000D0: 0A 7B 24 49 20 66 69 6E 64 77 72 6C 64 2E 68 67 .{$I findwrld.hg
0000E0: 68 7D 0D 0A 7B 24 49 20 61 78 69 73 2E 68 67 68 h}..{$I axis.hgh
0000F0: 7D 0D 0A 7B 24 49 20 70 6F 6C 79 67 6F 6E 2E 68 }..{$I polygon.h
000100: 67 68 7D 0D 0A 7B 24 49 20 73 70 6C 69 6E 65 2E gh}..{$I spline.
000110: 68 67 68 7D 0D 0A 0D 0A 0D 0A 70 72 6F 63 65 64 hgh}......proced
000120: 75 72 65 20 53 70 6C 69 6E 65 44 65 6D 3B 0D 0A ure SplineDem;..
000130: 0D 0A 76 61 72 20 78 2C 74 65 6D 70 3A 72 65 61 ..var x,temp:rea
000140: 6C 3B 0D 0A 20 20 20 20 64 78 2C 64 79 2C 69 2C l;.. dx,dy,i,
000150: 6E 2C 6D 2C 6C 69 6E 65 73 2C 73 63 61 6C 65 3A n,m,lines,scale:
000160: 69 6E 74 65 67 65 72 3B 0D 0A 20 20 20 20 58 31 integer;.. X1
000170: 2C 59 31 2C 58 32 2C 59 32 3A 69 6E 74 65 67 65 ,Y1,X2,Y2:intege
000180: 72 3B 0D 0A 20 20 20 20 62 2C 61 3A 50 6C 6F 74 r;.. b,a:Plot
000190: 41 72 72 61 79 3B 0D 0A 0D 0A 62 65 67 69 6E 0D Array;....begin.
0001A0: 0A 0D 0A 20 20 44 65 66 69 6E 65 57 69 6E 64 6F ... DefineWindo
0001B0: 77 28 31 2C 30 2C 30 2C 58 4D 61 78 47 6C 62 2C w(1,0,0,XMaxGlb,
0001C0: 59 4D 61 78 47 6C 62 29 3B 20 20 20 20 20 20 20 YMaxGlb);
0001D0: 20 20 20 7B 64 65 66 69 6E 69 74 20 61 20 6C 61 {definit a la
0001E0: 20 66 6F 69 73 20 6C 65 73 20 66 65 6E 65 74 72 fois les fenetr
0001F0: 65 73 20 65 74 20 6C 27 27 65 63 72 61 6E 7D 0D es et l''ecran}.
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 20 20 20 20 20 7B 73 6F {so
000010: 72 74 20 6C 65 20 70 72 65 6D 69 65 72 20 73 65 rt le premier se
000020: 67 65 6D 65 6E 74 7D 0D 0A 0D 0A 20 20 78 31 3A gement}.... x1:
000030: 3D 35 30 30 3B 20 20 20 20 20 20 20 20 20 20 20 =500;
000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000050: 20 20 20 20 7B 70 6F 73 69 74 69 6F 6E 6E 65 20 {positionne
000060: 61 75 20 6D 69 6C 69 65 75 20 64 65 20 6C 27 27 au milieu de l''
000070: 65 63 72 61 6E 7D 0D 0A 20 20 79 31 3A 3D 35 30 ecran}.. y1:=50
000080: 30 3B 0D 0A 0D 0A 20 20 52 61 64 69 75 73 3A 3D 0;.... Radius:=
000090: 32 30 30 3B 20 20 20 20 20 20 20 20 20 20 20 20 200;
0000A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7B {
0000B0: 64 65 62 75 74 20 64 75 20 63 65 72 63 6C 65 7D debut du cercle}
0000C0: 0D 0A 20 20 54 68 65 74 61 3A 3D 36 30 3B 0D 0A .. Theta:=60;..
0000D0: 0D 0A 20 20 53 65 74 41 73 70 65 63 74 28 31 2E .. SetAspect(1.
0000E0: 30 29 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 0);
0000F0: 20 20 20 20 20 20 20 20 20 20 20 7B 6C 65 20 72 {le r
000100: 61 74 69 6F 7D 0D 0A 0D 0A 20 20 49 6E 52 61 64 atio}.... InRad
000110: 69 75 73 3A 3D 30 2E 37 3B 20 20 20 20 20 20 20 ius:=0.7;
000120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000130: 20 20 7B 70 6F 73 69 74 69 6F 6E 6E 65 20 6C 65 {positionne le
000140: 73 20 63 6F 6D 6D 65 6E 74 61 69 72 65 73 7D 0D s commentaires}.
000150: 0A 20 20 4F 75 74 52 61 64 69 75 73 3A 3D 31 2E . OutRadius:=1.
000160: 32 35 3B 0D 0A 0D 0A 20 20 4D 6F 64 65 3A 3D 32 25;.... Mode:=2
000170: 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ;
000180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000190: 7B 74 72 61 63 65 20 6C 65 73 20 63 6F 6D 6D 65 {trace les comme
0001A0: 6E 74 61 69 72 65 73 7D 0D 0A 20 20 53 69 7A 65 ntaires}.. Size
0001B0: 3A 3D 32 3B 20 20 20 20 20 20 20 20 20 20 20 20 :=2;
0001C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001D0: 20 20 20 7B 70 6F 73 69 74 69 6F 6E 6E 65 20 6C {positionne l
0001E0: 61 20 74 61 69 6C 6C 65 20 64 75 20 74 65 78 74 a taille du text
0001F0: 65 7D 0D 0A 0D 0A 20 20 20 20 20 20 20 20 20 20 e}....
Size : 512 (Real : 512)
000000: 0A 20 20 44 65 66 69 6E 65 57 69 6E 64 6F 77 28 . DefineWindow(
000010: 32 2C 30 2C 30 2C 58 4D 61 78 47 6C 62 2C 59 4D 2,0,0,XMaxGlb,YM
000020: 61 78 47 6C 62 29 3B 0D 0A 20 20 44 65 66 69 6E axGlb);.. Defin
000030: 65 57 6F 72 6C 64 28 31 2C 30 2C 31 30 30 30 2C eWorld(1,0,1000,
000040: 31 30 30 30 2C 30 29 3B 20 20 20 20 20 20 20 20 1000,0);
000050: 7B 64 6F 6E 6E 65 20 75 6E 20 6D 6F 6E 64 65 20 {donne un monde
000060: 61 20 6C 27 27 65 63 72 61 6E 7D 0D 0A 0D 0A 20 a l''ecran}....
000070: 20 44 65 66 69 6E 65 48 65 61 64 65 72 28 32 2C DefineHeader(2,
000080: 27 49 6E 74 65 72 70 6F 6C 61 74 69 6F 6E 27 29 'Interpolation')
000090: 3B 20 20 20 20 7B 66 65 6E 65 74 72 65 73 20 6F ; {fenetres o
0000A0: 75 20 69 72 6F 6E 74 20 6C 65 73 20 63 6F 75 72 u iront les cour
0000B0: 62 65 73 7D 0D 0A 20 20 53 65 74 48 65 61 64 65 bes}.. SetHeade
0000C0: 72 4F 6E 3B 0D 0A 0D 0A 20 20 6E 3A 3D 31 32 3B rOn;.... n:=12;
0000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7B {
0000F0: 72 65 6D 70 6C 69 74 20 6C 65 20 74 61 62 6C 65 remplit le table
000100: 61 75 7D 0D 0A 20 20 66 6F 72 20 69 3A 3D 31 20 au}.. for i:=1
000110: 74 6F 20 6E 20 64 6F 0D 0A 20 20 20 20 62 65 67 to n do.. beg
000120: 69 6E 0D 0A 20 20 20 20 20 20 61 5B 69 2C 31 5D in.. a[i,1]
000130: 3A 3D 69 2D 31 3B 0D 0A 20 20 20 20 20 20 61 5B :=i-1;.. a[
000140: 69 2C 32 5D 3A 3D 72 61 6E 64 6F 6D 2D 30 2E 35 i,2]:=random-0.5
000150: 3B 0D 0A 20 20 20 20 65 6E 64 3B 0D 0A 0D 0A 20 ;.. end;....
000160: 20 6D 3A 3D 35 30 3B 20 20 20 20 20 20 20 20 20 m:=50;
000170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000180: 20 20 20 20 20 20 7B 67 65 6E 65 72 61 74 69 6F {generatio
000190: 6E 20 64 65 20 35 30 20 70 6F 69 6E 74 73 7D 0D n de 50 points}.
0001A0: 0A 20 20 73 70 6C 69 6E 65 28 61 2C 6E 2C 61 5B . spline(a,n,a[
0001B0: 32 2C 31 5D 2C 61 5B 6E 2D 31 2C 31 5D 2C 62 2C 2,1],a[n-1,1],b,
0001C0: 6D 29 3B 0D 0A 20 20 46 69 6E 64 57 6F 72 6C 64 m);.. FindWorld
0001D0: 28 32 2C 62 2C 6D 2C 31 2C 31 2E 30 38 29 3B 20 (2,b,m,1,1.08);
0001E0: 20 20 20 20 20 20 20 20 20 20 20 20 7B 64 65 75 {deu
0001F0: 78 69 65 6D 65 20 6D 6F 6E 64 65 20 73 75 72 20 xieme monde sur
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000010: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7B {
000020: 74 72 61 63 65 20 6C 65 20 63 61 6D 65 6D 62 65 trace le camembe
000030: 72 74 7D 0D 0A 20 20 44 72 61 77 50 6F 6C 61 72 rt}.. DrawPolar
000040: 50 69 65 28 78 31 2C 79 31 2C 52 61 64 69 75 73 Pie(x1,y1,Radius
000050: 2C 54 68 65 74 61 2C 49 6E 52 61 64 69 75 73 2C ,Theta,InRadius,
000060: 4F 75 74 52 61 64 69 75 73 2C 61 2C 6E 2C 4D 6F OutRadius,a,n,Mo
000070: 64 65 2C 53 69 7A 65 29 3B 0D 0A 0D 0A 65 6E 64 de,Size);....end
000080: 3B 0D 0A 0D 0A 0D 0A 0D 0A 62 65 67 69 6E 0D 0A ;........begin..
000090: 0D 0A 49 6E 69 74 47 72 61 70 68 69 63 3B 20 20 ..InitGraphic;
0000A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000B0: 20 20 20 20 20 20 20 20 20 20 20 7B 69 6E 69 74 {init
0000C0: 69 61 6C 69 73 65 20 6C 65 20 67 72 61 70 68 69 ialise le graphi
0000D0: 73 6D 65 7D 0D 0A 0D 0A 4F 6E 65 50 69 65 44 65 sme}....OnePieDe
0000E0: 6D 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 m;
0000F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000100: 20 7B 66 61 69 74 20 6C 61 20 64 65 6D 6F 7D 0D {fait la demo}.
000110: 0A 0D 0A 72 65 70 65 61 74 20 75 6E 74 69 6C 20 ...repeat until
000120: 6B 65 79 70 72 65 73 73 65 64 3B 20 20 20 20 20 keypressed;
000130: 20 20 20 20 20 20 20 20 20 20 20 20 7B 61 74 74 {att
000140: 65 6E 64 20 71 75 27 27 75 6E 65 20 74 6F 75 63 end qu''une touc
000150: 68 65 20 73 6F 69 74 20 66 72 61 70 70 65 65 7D he soit frappee}
000160: 0D 0A 0D 0A 4C 65 61 76 65 47 72 61 70 68 69 63 ....LeaveGraphic
000170: 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ;
000180: 20 20 20 20 20 20 20 20 20 20 20 20 20 7B 71 75 {qu
000190: 69 74 74 65 20 6C 65 20 67 72 61 70 68 69 73 6D itte le graphism
0001A0: 65 7D 0D 0A 0D 0A 65 6E 64 2E 0D 0A 0D 0A 1A 1A e}....end.......
0001B0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0001C0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0001D0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0001E0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0001F0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
Size : 512 (Real : 512)
000000: 6C 61 20 64 72 6F 69 74 65 7D 0D 0A 20 20 77 69 la droite}.. wi
000010: 74 68 20 77 6F 72 6C 64 5B 32 5D 20 64 6F 20 20 th world[2] do
000020: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000030: 20 20 20 7B 70 65 72 6D 75 74 65 20 6C 65 20 6D {permute le m
000040: 6F 6E 64 65 20 76 65 72 74 69 63 61 6C 65 6D 65 onde verticaleme
000050: 6E 74 7D 0D 0A 20 20 20 62 65 67 69 6E 0D 0A 20 nt}.. begin..
000060: 20 20 20 74 65 6D 70 3A 3D 79 31 3B 0D 0A 20 20 temp:=y1;..
000070: 20 20 79 31 3A 3D 79 32 3B 0D 0A 20 20 20 20 79 y1:=y2;.. y
000080: 32 3A 3D 74 65 6D 70 3B 0D 0A 20 20 20 65 6E 64 2:=temp;.. end
000090: 3B 0D 0A 20 20 53 65 6C 65 63 74 57 69 6E 64 6F ;.. SelectWindo
0000A0: 77 28 32 29 3B 20 20 20 20 20 20 20 20 20 20 20 w(2);
0000B0: 20 20 20 20 20 20 20 20 20 20 7B 6C 65 20 63 68 {le ch
0000C0: 6F 69 73 69 74 20 74 72 61 63 65 20 75 6E 65 20 oisit trace une
0000D0: 62 6F 72 64 75 72 65 7D 0D 0A 20 20 44 72 61 77 bordure}.. Draw
0000E0: 42 6F 72 64 65 72 3B 0D 0A 0D 0A 20 20 64 78 3A Border;.... dx:
0000F0: 3D 2D 38 3B 20 20 20 20 20 20 20 20 20 20 20 20 =-8;
000100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000110: 20 20 7B 74 72 61 63 65 20 6C 65 73 20 61 78 65 {trace les axe
000120: 73 20 61 20 6C 27 27 69 6E 74 65 72 69 65 75 72 s a l''interieur
000130: 20 64 65 20 6C 61 20 66 65 6E 65 74 72 65 7D 0D de la fenetre}.
000140: 0A 20 20 64 79 3A 3D 37 3B 0D 0A 20 20 58 31 3A . dy:=7;.. X1:
000150: 3D 33 3B 0D 0A 20 20 59 31 3A 3D 35 3B 0D 0A 20 =3;.. Y1:=5;..
000160: 20 58 32 3A 3D 32 35 3B 0D 0A 20 20 59 32 3A 3D X2:=25;.. Y2:=
000170: 31 30 3B 0D 0A 20 20 6C 69 6E 65 73 3A 3D 30 3B 10;.. lines:=0;
000180: 0D 0A 20 20 73 63 61 6C 65 3A 3D 30 3B 0D 0A 0D .. scale:=0;...
000190: 0A 20 20 53 65 74 4C 69 6E 65 53 74 79 6C 65 28 . SetLineStyle(
0001A0: 31 29 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 1);
0001B0: 20 20 20 20 20 20 20 20 7B 74 72 61 63 65 20 75 {trace u
0001C0: 6E 65 20 63 6F 75 72 62 65 20 65 6E 20 70 6F 69 ne courbe en poi
0001D0: 6E 74 69 6C 6C 65 73 7D 0D 0A 20 20 44 72 61 77 ntilles}.. Draw
0001E0: 41 78 69 73 28 64 78 2C 64 79 2C 58 31 2C 59 31 Axis(dx,dy,X1,Y1
0001F0: 2C 58 32 2C 59 32 2C 6C 69 6E 65 73 2C 73 63 61 ,X2,Y2,lines,sca
Size : 512 (Real : 512)
000000: 70 72 6F 67 72 61 6D 20 57 6F 72 6C 64 44 72 61 program WorldDra
000010: 77 50 6F 69 6E 74 73 3B 0D 0A 0D 0A 7B 24 49 20 wPoints;....{$I
000020: 74 79 70 65 64 65 66 2E 73 79 73 7D 20 20 20 20 typedef.sys}
000030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7B 69 {i
000040: 6E 63 6C 75 73 20 6C 65 73 20 67 72 61 70 68 69 nclus les graphi
000050: 73 6D 65 73 7D 0D 0A 7B 24 49 20 67 72 61 70 68 smes}..{$I graph
000060: 69 78 2E 73 79 73 7D 0D 0A 7B 24 49 20 6B 65 72 ix.sys}..{$I ker
000070: 6E 65 6C 2E 73 79 73 7D 0D 0A 7B 24 49 20 6B 65 nel.sys}..{$I ke
000080: 72 6E 65 6C 31 2E 73 79 73 7D 0D 0A 0D 0A 76 61 rnel1.sys}....va
000090: 72 20 69 3A 69 6E 74 65 67 65 72 3B 0D 0A 0D 0A r i:integer;....
0000A0: 62 65 67 69 6E 0D 0A 20 20 49 6E 69 74 47 72 61 begin.. InitGra
0000B0: 70 68 69 63 3B 20 20 20 20 20 20 20 20 20 20 20 phic;
0000C0: 20 20 20 20 20 20 20 20 20 7B 69 6E 69 74 69 61 {initia
0000D0: 6C 69 73 65 20 6C 65 20 73 79 73 74 65 6D 65 20 lise le systeme
0000E0: 65 74 20 6C 27 27 65 63 72 61 6E 7D 0D 0A 20 20 et l''ecran}..
0000F0: 44 72 61 77 42 6F 72 64 65 72 3B 0D 0A 0D 0A 20 DrawBorder;....
000100: 20 44 65 66 69 6E 65 57 6F 72 6C 64 28 31 2C 30 DefineWorld(1,0
000110: 2C 31 30 30 30 2C 31 30 30 30 2C 30 29 3B 20 20 ,1000,1000,0);
000120: 20 7B 64 65 66 69 6E 69 74 20 75 6E 20 6D 6F 6E {definit un mon
000130: 64 65 20 61 20 64 65 73 73 69 6E 65 72 7D 0D 0A de a dessiner}..
000140: 20 20 53 65 6C 65 63 74 57 6F 72 6C 64 28 31 29 SelectWorld(1)
000150: 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ;
000160: 20 20 7B 73 6F 6E 20 63 68 6F 69 78 7D 0D 0A 20 {son choix}..
000170: 20 53 65 6C 65 63 74 57 69 6E 64 6F 77 28 31 29 SelectWindow(1)
000180: 3B 0D 0A 0D 0A 20 20 66 6F 72 20 69 3A 3D 31 20 ;.... for i:=1
000190: 74 6F 20 31 30 30 30 20 64 6F 20 20 20 20 20 20 to 1000 do
0001A0: 20 20 20 20 20 20 20 7B 74 72 61 63 65 20 31 30 {trace 10
0001B0: 30 30 20 70 6F 69 6E 74 73 20 61 6C 65 61 74 6F 00 points aleato
0001C0: 69 72 65 6D 65 6E 74 20 73 75 72 20 6C 65 20 6D irement sur le m
0001D0: 6F 6E 64 65 7D 0D 0A 20 20 20 20 20 44 72 61 77 onde}.. Draw
0001E0: 50 6F 69 6E 74 28 72 61 6E 64 6F 6D 28 31 30 30 Point(random(100
0001F0: 30 29 2C 72 61 6E 64 6F 6D 28 31 30 30 30 29 29 0),random(1000))
Size : 512 (Real : 512)
000000: 6C 65 2C 66 61 6C 73 65 29 3B 0D 0A 20 20 44 72 le,false);.. Dr
000010: 61 77 50 6F 6C 79 67 6F 6E 28 61 2C 32 2C 6E 2D awPolygon(a,2,n-
000020: 31 2C 37 2C 32 2C 30 29 3B 20 20 20 20 20 20 20 1,7,2,0);
000030: 20 20 20 7B 6E 65 20 74 72 61 63 65 20 70 61 73 {ne trace pas
000040: 20 64 65 73 20 70 6F 69 6E 74 73 20 64 65 20 66 des points de f
000050: 69 6E 7D 0D 0A 0D 0A 20 20 53 65 74 4C 69 6E 65 in}.... SetLine
000060: 53 74 79 6C 65 28 30 29 3B 20 20 20 20 20 20 20 Style(0);
000070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7B 74 {t
000080: 72 61 63 65 20 75 6E 65 20 6C 69 67 6E 65 20 69 race une ligne i
000090: 6E 74 65 72 70 6F 6C 65 65 7D 0D 0A 20 20 44 72 nterpolee}.. Dr
0000A0: 61 77 41 78 69 73 28 30 2C 30 2C 58 31 2C 59 31 awAxis(0,0,X1,Y1
0000B0: 2C 58 32 2C 59 32 2C 30 2C 30 2C 66 61 6C 73 65 ,X2,Y2,0,0,false
0000C0: 29 3B 0D 0A 20 20 44 72 61 77 50 6F 6C 79 67 6F );.. DrawPolygo
0000D0: 6E 28 62 2C 31 2C 2D 6D 2C 30 2C 30 2C 30 29 3B n(b,1,-m,0,0,0);
0000E0: 20 20 20 20 20 20 20 20 20 20 20 7B 73 70 6C 69 {spli
0000F0: 6E 65 20 6E 27 27 65 73 74 20 70 61 73 20 62 6F ne n''est pas bo
000100: 6E 20 6C 65 73 20 70 6F 69 6E 74 73 20 64 65 20 n les points de
000110: 66 69 6E 7D 0D 0A 0D 0A 20 20 53 65 6C 65 63 74 fin}.... Select
000120: 57 6F 72 6C 64 28 31 29 3B 20 20 20 20 20 20 20 World(1);
000130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7B {
000140: 63 68 6F 69 78 20 68 6F 72 73 20 64 65 20 6C 61 choix hors de la
000150: 20 66 65 6E 65 74 72 65 7D 0D 0A 20 20 53 65 6C fenetre}.. Sel
000160: 65 63 74 57 69 6E 64 6F 77 28 31 29 3B 0D 0A 0D ectWindow(1);...
000170: 0A 20 20 44 72 61 77 54 65 78 74 57 28 37 33 30 . DrawTextW(730
000180: 2C 34 30 30 2C 31 2C 5E 5B 27 37 40 32 20 20 20 ,400,1,^['7@2
000190: 54 68 65 20 64 6F 6E 6E 65 65 27 29 3B 20 20 20 The donnee');
0001A0: 20 20 20 20 20 20 20 20 20 7B 61 66 66 69 63 68 {affich
0001B0: 65 20 6C 61 20 6C 65 67 65 6E 64 65 7D 0D 0A 20 e la legende}..
0001C0: 20 44 72 61 77 54 65 78 74 57 28 37 33 30 2C 35 DrawTextW(730,5
0001D0: 30 30 2C 31 2C 27 2E 2E 20 20 4C 65 20 70 6F 6C 00,1,'.. Le pol
0001E0: 79 67 6F 6E 65 20 69 6E 69 74 69 61 6C 27 29 3B ygone initial');
0001F0: 0D 0A 20 20 44 72 61 77 54 65 78 74 57 28 37 33 .. DrawTextW(73
Size : 512 (Real : 512)
000000: 3B 0D 0A 0D 0A 20 20 72 65 70 65 61 74 20 75 6E ;.... repeat un
000010: 74 69 6C 20 6B 65 79 70 72 65 73 73 65 64 3B 20 til keypressed;
000020: 20 20 20 20 20 20 20 7B 61 74 74 65 6E 64 20 6A {attend j
000030: 75 73 71 75 27 27 61 20 63 65 20 71 75 27 27 75 usqu''a ce qu''u
000040: 6E 65 20 74 6F 75 63 68 65 20 73 6F 69 74 20 66 ne touche soit f
000050: 72 61 70 70 65 65 7D 0D 0A 20 20 4C 65 61 76 65 rappee}.. Leave
000060: 47 72 61 70 68 69 63 3B 0D 0A 65 6E 64 2E 0D 0A Graphic;..end...
000070: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000080: 72 6E 65 6C 31 2E 73 79 73 7D 0D 0A 0D 0A 76 61 rnel1.sys}....va
000090: 72 20 69 3A 69 6E 74 65 67 65 72 3B 0D 0A 0D 0A r i:integer;....
0000A0: 62 65 67 69 6E 0D 0A 20 20 49 6E 69 74 47 72 61 begin.. InitGra
0000B0: 70 68 69 63 3B 20 20 20 20 20 20 20 20 20 20 20 phic;
0000C0: 20 20 20 20 20 20 20 20 20 7B 69 6E 69 74 69 61 {initia
0000D0: 6C 69 73 65 20 6C 65 20 73 79 73 74 65 6D 65 20 lise le systeme
0000E0: 65 74 20 6C 27 27 65 63 72 61 6E 7D 0D 0A 20 20 et l''ecran}..
0000F0: 44 72 61 77 42 6F 72 64 65 72 3B 0D 0A 0D 0A 20 DrawBorder;....
000100: 20 44 65 66 69 6E 65 57 6F 72 6C 64 28 31 2C 30 DefineWorld(1,0
000110: 2C 31 30 30 30 2C 31 30 30 30 2C 30 29 3B 20 20 ,1000,1000,0);
000120: 20 7B 64 65 66 69 6E 69 74 20 75 6E 20 6D 6F 6E {definit un mon
000130: 64 65 20 61 20 64 65 73 73 69 6E 65 72 7D 0D 0A de a dessiner}..
000140: 20 20 53 65 6C 65 63 74 57 6F 72 6C 64 28 31 29 SelectWorld(1)
000150: 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ;
000160: 20 20 7B 73 6F 6E 20 63 68 6F 69 78 7D 0D 0A 20 {son choix}..
000170: 20 53 65 6C 65 63 74 57 69 6E 64 6F 77 28 31 29 SelectWindow(1)
000180: 3B 0D 0A 0D 0A 20 20 66 6F 72 20 69 3A 3D 31 20 ;.... for i:=1
000190: 74 6F 20 31 30 30 30 20 64 6F 20 20 20 20 20 20 to 1000 do
0001A0: 20 20 20 20 20 20 20 7B 74 72 61 63 65 20 31 30 {trace 10
0001B0: 30 30 20 70 6F 69 6E 74 73 20 61 6C 65 61 74 6F 00 points aleato
0001C0: 69 72 65 6D 65 6E 74 20 73 75 72 20 6C 65 20 6D irement sur le m
0001D0: 6F 6E 64 65 7D 0D 0A 20 20 20 20 20 44 72 61 77 onde}.. Draw
0001E0: 50 6F 69 6E 74 28 72 61 6E 64 6F 6D 28 31 30 30 Point(random(100
0001F0: 30 29 2C 72 61 6E 64 6F 6D 28 31 30 30 30 29 29 0),random(1000))
Size : 512 (Real : 512)
000000: 30 2C 36 30 30 2C 31 2C 27 5F 5F 20 20 4C 61 20 0,600,1,'__ La
000010: 76 61 6C 65 75 72 20 69 6E 74 65 72 70 6F 6C 65 valeur interpole
000020: 65 27 29 3B 0D 0A 0D 0A 65 6E 64 3B 0D 0A 0D 0A e');....end;....
000030: 0D 0A 0D 0A 62 65 67 69 6E 0D 0A 0D 0A 49 6E 69 ....begin....Ini
000040: 74 47 72 61 70 68 69 63 3B 20 20 20 20 20 20 20 tGraphic;
000050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000060: 20 20 20 20 7B 69 6E 69 74 69 61 6C 69 73 65 20 {initialise
000070: 6C 65 73 20 67 72 61 70 68 69 73 6D 65 73 7D 0D les graphismes}.
000080: 0A 0D 0A 53 70 6C 69 6E 65 44 65 6D 3B 20 20 20 ...SplineDem;
000090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000A0: 20 20 20 20 20 20 20 20 20 20 7B 66 61 69 74 20 {fait
0000B0: 6C 61 20 64 65 6D 6F 7D 0D 0A 0D 0A 72 65 70 65 la demo}....repe
0000C0: 61 74 20 75 6E 74 69 6C 20 6B 65 79 70 72 65 73 at until keypres
0000D0: 73 65 64 3B 20 20 20 20 20 20 20 20 20 20 20 20 sed;
0000E0: 20 20 20 7B 61 74 74 65 6E 64 20 6A 75 73 71 75 {attend jusqu
0000F0: 27 27 61 20 63 65 20 71 75 27 27 75 6E 65 20 74 ''a ce qu''une t
000100: 6F 75 63 68 65 20 73 6F 69 74 20 66 72 61 70 70 ouche soit frapp
000110: 65 65 7D 0D 0A 0D 0A 4C 65 61 76 65 47 72 61 70 ee}....LeaveGrap
000120: 68 69 63 3B 20 20 20 20 20 20 20 20 20 20 20 20 hic;
000130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7B 71 {q
000140: 75 69 74 74 65 20 6C 65 20 67 72 61 70 68 69 73 uitte le graphis
000150: 6D 65 7D 0D 0A 0D 0A 65 6E 64 2E 0D 0A 0D 0A 1A me}....end......
000160: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000170: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000180: 2C 34 30 30 2C 31 2C 5E 5B 27 37 40 32 20 20 20 ,400,1,^['7@2
000190: 54 68 65 20 64 6F 6E 6E 65 65 27 29 3B 20 20 20 The donnee');
0001A0: 20 20 20 20 20 20 20 20 20 7B 61 66 66 69 63 68 {affich
0001B0: 65 20 6C 61 20 6C 65 67 65 6E 64 65 7D 0D 0A 20 e la legende}..
0001C0: 20 44 72 61 77 54 65 78 74 57 28 37 33 30 2C 35 DrawTextW(730,5
0001D0: 30 30 2C 31 2C 27 2E 2E 20 20 4C 65 20 70 6F 6C 00,1,'.. Le pol
0001E0: 79 67 6F 6E 65 20 69 6E 69 74 69 61 6C 27 29 3B ygone initial');
0001F0: 0D 0A 20 20 44 72 61 77 54 65 78 74 57 28 37 33 .. DrawTextW(73
Size : 512 (Real : 512)
000000: 20 20 70 6C 6F 74 3B 0D 0A 20 20 20 20 63 28 69 plot;.. c(i
000010: 2D 31 29 3B 0D 0A 20 20 20 20 78 3A 3D 78 2D 68 -1);.. x:=x-h
000020: 3B 0D 0A 20 20 20 20 79 3A 3D 79 2B 68 3B 0D 0A ;.. y:=y+h;..
000030: 20 20 20 20 70 6C 6F 74 3B 0D 0A 20 20 20 20 64 plot;.. d
000040: 28 69 2D 31 29 3B 0D 0A 20 20 65 6E 64 3B 0D 0A (i-1);.. end;..
000050: 65 6E 64 3B 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 end;....procedur
000060: 65 20 44 6F 49 74 3B 20 20 20 20 20 20 20 20 20 e DoIt;
000070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7B {
000080: 70 72 6F 63 65 64 75 72 65 20 70 72 69 6E 63 69 procedure princi
000090: 70 61 6C 65 20 64 65 20 73 69 65 72 70 69 6E 73 pale de sierpins
0000A0: 6B 69 20 7D 0D 0A 62 65 67 69 6E 0D 0A 20 20 69 ki }..begin.. i
0000B0: 3A 3D 33 3B 0D 0A 20 20 68 3A 3D 31 36 3B 0D 0A :=3;.. h:=16;..
0000C0: 20 20 78 30 3A 3D 33 30 3B 0D 0A 20 20 79 30 3A x0:=30;.. y0:
0000D0: 3D 32 34 30 3B 0D 0A 20 20 72 65 70 65 61 74 0D =240;.. repeat.
0000E0: 0A 20 20 20 20 69 3A 3D 69 2B 31 3B 0D 0A 20 20 . i:=i+1;..
0000F0: 20 20 78 30 3A 3D 78 30 2D 68 3B 0D 0A 20 20 20 x0:=x0-h;..
000100: 20 68 3A 3D 68 20 64 69 76 20 32 3B 0D 0A 20 20 h:=h div 2;..
000110: 20 20 79 30 3A 3D 79 30 2B 68 3B 0D 0A 20 20 20 y0:=y0+h;..
000120: 20 78 3A 3D 78 30 3B 0D 0A 20 20 20 20 79 3A 3D x:=x0;.. y:=
000130: 79 30 3B 0D 0A 20 20 20 20 61 28 69 2D 31 29 3B y0;.. a(i-1);
000140: 0D 0A 20 20 20 20 78 3A 3D 78 2B 68 3B 0D 0A 20 .. x:=x+h;..
000150: 20 20 20 79 3A 3D 79 2D 68 3B 0D 0A 20 20 20 20 y:=y-h;..
000160: 70 6C 6F 74 3B 0D 0A 20 20 20 20 62 28 69 2D 31 plot;.. b(i-1
000170: 29 3B 0D 0A 20 20 20 20 78 3A 3D 78 2D 68 3B 0D );.. x:=x-h;.
000180: 0A 20 20 20 20 79 3A 3D 79 2D 68 3B 0D 0A 20 20 . y:=y-h;..
000190: 20 20 70 6C 6F 74 3B 0D 0A 20 20 20 20 63 28 69 plot;.. c(i
0001A0: 2D 31 29 3B 0D 0A 20 20 20 20 78 3A 3D 78 2D 68 -1);.. x:=x-h
0001B0: 3B 0D 0A 20 20 20 20 79 3A 3D 79 2B 68 3B 0D 0A ;.. y:=y+h;..
0001C0: 20 20 20 20 70 6C 6F 74 3B 0D 0A 20 20 20 20 64 plot;.. d
0001D0: 28 69 2D 31 29 3B 0D 0A 20 20 20 20 78 3A 3D 78 (i-1);.. x:=x
0001E0: 2B 68 3B 0D 0A 20 20 20 20 79 3A 3D 79 2B 68 3B +h;.. y:=y+h;
0001F0: 0D 0A 20 20 20 20 70 6C 6F 74 3B 0D 0A 20 20 75 .. plot;.. u
Size : 512 (Real : 512)
000000: 4D 69 73 73 69 6C 65 20 53 69 6C 6F 20 23 34 37 Missile Silo #47
000010: 20 20 01 00 27 01 01 02 23 A0 0A 07 02 00 00 23 ..'...#......#
000020: A0 FD 1A 03 02 01 57 89 0A 1A 04 00 00 23 A0 0A ......W......#..
000030: 1B 04 00 00 23 A0 00 1A 05 02 03 B7 90 F9 1F 05 ....#...........
000040: 02 0E 8B 90 09 23 05 02 01 77 8B 09 05 07 12 01 .....#...w......
000050: 77 8B 00 19 07 01 01 9B 90 00 1C 07 01 01 AB 90 w...............
000060: 0A 21 07 00 00 23 A0 09 25 07 02 01 77 8B 09 19 .!...#..%...w...
000070: 08 06 01 8B 90 FD 21 08 01 01 47 89 09 01 09 02 ......!...G.....
000080: 01 77 8B 0A 13 09 00 00 23 A0 00 19 09 04 09 B7 .w......#.......
000090: 90 09 23 09 02 01 77 8B 09 01 0B 02 01 77 8B 09 ..#...w......w..
0000A0: 25 0B 02 01 77 8B 09 05 0D 12 01 77 8B 09 23 0D %...w......w..#.
0000B0: 02 01 77 8B 09 19 0E 06 01 8B 90 0A 21 0E 00 00 ..w.........!...
0000C0: 23 A0 09 01 0F 02 01 77 8B 0A 08 0F 00 00 23 A0 #......w......#.
0000D0: FD 21 0F 01 01 47 89 09 25 0F 02 01 77 8B 00 18 .!...G..%...w...
0000E0: 10 01 01 9B 90 00 1D 10 01 01 AB 90 09 01 11 02 ................
0000F0: 01 77 8B 00 17 11 02 02 B7 90 00 1D 11 02 02 B7 .w..............
000100: 90 00 17 11 01 01 9B 90 00 1E 11 01 01 AB 90 09 ................
000110: 23 11 02 01 77 8B 00 1F 12 02 01 8B 90 FF 01 01 #...w...........
000120: 02 02 06 06 14 14 12 12 08 08 18 18 1A 1A 14 14 ................
000130: 03 03 12 01 01 12 04 04 14 01 01 14 0F 0F 00 00 ................
000140: 00 28 41 66 74 65 72 20 54 68 65 20 48 6F 6C 6F .(After The Holo
000150: 63 61 75 73 74 20 01 0A 0D 07 00 00 23 A0 0A 26 caust ......#..&
000160: 07 00 00 23 A0 FE 23 08 05 0C 89 86 FE 0F 09 03 ...#..#.........
000170: 01 99 86 FE 00 0A 07 0A 89 86 FE 16 0A 03 01 99 ................
000180: 86 FE 22 0A 01 0A 89 86 09 0A 0B 01 01 99 86 FE ..".............
000190: 07 0C 02 08 89 86 09 1C 0C 01 01 99 86 FE 20 0C .............. .
0001A0: 02 08 89 86 FE 09 0D 01 07 89 86 0A 13 0E 00 00 ................
0001B0: 23 A0 0A 14 0E 00 00 23 A0 FE 1E 0E 02 06 89 86 #......#........
0001C0: FE 0A 0F 02 05 89 86 FE 1C 0F 02 05 89 86 FE 0C ................
0001D0: 10 02 04 89 86 FE 1A 10 02 04 89 86 FE 0E 11 03 ................
0001E0: 03 89 86 FE 17 11 03 03 89 86 FD 11 12 06 01 67 ...............g
0001F0: 89 FE 11 13 06 01 89 86 FF 0D 0D 04 04 06 06 14 ................
Size : 512 (Real : 512)
000000: 6E 74 69 6C 20 69 3D 6E 3B 0D 0A 65 6E 64 3B 0D ntil i=n;..end;.
000010: 0A 0D 0A 62 65 67 69 6E 20 20 20 7B 73 69 65 72 ...begin {sier
000020: 70 69 6E 73 6B 69 7D 0D 0A 20 20 53 65 74 48 65 pinski}.. SetHe
000030: 61 64 65 72 4F 6E 3B 0D 0A 20 20 44 65 66 69 6E aderOn;.. Defin
000040: 65 57 6F 72 6C 64 28 31 2C 2D 33 2C 32 35 38 2C eWorld(1,-3,258,
000050: 32 35 38 2C 2D 33 29 3B 0D 0A 20 20 53 65 6C 65 258,-3);.. Sele
000060: 63 74 57 6F 72 6C 64 28 31 29 3B 0D 0A 20 20 53 ctWorld(1);.. S
000070: 65 6C 65 63 74 57 69 6E 64 6F 77 28 31 29 3B 0D electWindow(1);.
000080: 0A 20 20 44 72 61 77 42 6F 72 64 65 72 3B 0D 0A . DrawBorder;..
000090: 20 20 44 6F 49 74 3B 0D 0A 0D 0A 65 6E 64 3B 0D DoIt;....end;.
0000A0: 0A 0D 0A 0D 0A 62 65 67 69 6E 0D 0A 0D 0A 49 6E .....begin....In
0000B0: 69 74 47 72 61 70 68 69 63 3B 20 20 20 20 20 20 itGraphic;
0000C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000D0: 20 20 20 20 20 7B 69 6E 69 74 69 61 6C 69 7A 65 {initialize
0000E0: 20 74 68 65 20 67 72 61 70 68 69 63 73 20 73 79 the graphics sy
0000F0: 73 74 65 6D 7D 0D 0A 0D 0A 44 65 66 69 6E 65 48 stem}....DefineH
000100: 65 61 64 65 72 28 31 2C 27 44 45 4D 4F 4E 53 54 eader(1,'DEMONST
000110: 52 41 54 45 20 53 43 52 45 45 4E 20 50 52 49 4E RATE SCREEN PRIN
000120: 54 49 4E 47 27 29 3B 20 7B 67 69 76 65 20 69 74 TING'); {give it
000130: 20 61 20 68 65 61 64 65 72 7D 0D 0A 0D 0A 53 65 a header}....Se
000140: 74 48 65 61 64 65 72 4F 6E 3B 0D 0A 0D 0A 53 69 tHeaderOn;....Si
000150: 65 72 70 69 6E 73 6B 69 3B 20 20 20 20 20 20 20 erpinski;
000160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000170: 20 20 20 20 20 7B 64 6F 20 74 68 65 20 63 75 72 {do the cur
000180: 76 65 7D 0D 0A 0D 0A 0D 0A 48 61 72 64 43 6F 70 ve}......HardCop
000190: 79 28 66 61 6C 73 65 2C 31 29 3B 20 20 20 20 20 y(false,1);
0001A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001B0: 7B 70 72 69 6E 74 20 69 74 7D 0D 0A 0D 0A 0D 0A {print it}......
0001C0: 72 65 70 65 61 74 20 75 6E 74 69 6C 20 6B 65 79 repeat until key
0001D0: 70 72 65 73 73 65 64 3B 20 20 20 20 20 20 20 20 pressed;
0001E0: 20 20 20 20 20 20 20 7B 77 61 69 74 20 75 6E 74 {wait unt
0001F0: 69 6C 20 61 20 6B 65 79 20 69 73 20 70 72 65 73 il a key is pres
Size : 512 (Real : 512)
000000: 70 72 6F 67 72 61 6D 20 53 63 72 65 65 6E 49 4F program ScreenIO
000010: 3B 0D 0A 0D 0A 7B 24 49 20 74 79 70 65 64 65 66 ;....{$I typedef
000020: 2E 73 79 73 7D 20 20 20 20 20 20 20 20 20 20 20 .sys}
000030: 20 20 20 20 20 20 20 20 20 20 20 20 7B 43 65 73 {Ces
000040: 20 66 69 63 68 69 65 72 73 20 64 6F 69 76 65 6E fichiers doiven
000050: 74 20 65 74 72 65 7D 0D 0A 7B 24 49 20 67 72 61 t etre}..{$I gra
000060: 70 68 69 78 2E 73 79 73 7D 20 20 20 20 20 20 20 phix.sys}
000070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000080: 7B 69 6E 63 6C 75 73 20 64 61 6E 73 20 63 65 74 {inclus dans cet
000090: 20 6F 72 64 72 65 7D 0D 0A 7B 24 49 20 6B 65 72 ordre}..{$I ker
0000A0: 6E 65 6C 2E 73 79 73 7D 0D 0A 7B 24 49 20 6B 65 nel.sys}..{$I ke
0000B0: 72 6E 65 6C 31 2E 73 79 73 7D 0D 0A 0D 0A 0D 0A rnel1.sys}......
0000C0: 70 72 6F 63 65 64 75 72 65 20 53 69 65 72 70 69 procedure Sierpi
0000D0: 6E 73 6B 69 3B 0D 0A 63 6F 6E 73 74 20 6E 3D 36 nski;..const n=6
0000E0: 3B 0D 0A 76 61 72 20 69 2C 68 2C 78 2C 79 2C 78 ;..var i,h,x,y,x
0000F0: 30 2C 79 30 3A 69 6E 74 65 67 65 72 3B 0D 0A 20 0,y0:integer;..
000100: 20 20 20 73 65 63 3A 62 6F 6F 6C 65 61 6E 3B 0D sec:boolean;.
000110: 0A 0D 0A 70 72 6F 63 65 64 75 72 65 20 70 6C 6F ...procedure plo
000120: 74 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 t;
000130: 20 20 20 20 20 20 20 20 20 20 7B 74 72 61 63 65 {trace
000140: 20 75 6E 65 20 6C 69 67 6E 65 7D 0D 0A 62 65 67 une ligne}..beg
000150: 69 6E 0D 0A 20 20 44 72 61 77 4C 69 6E 65 28 78 in.. DrawLine(x
000160: 2C 79 2C 78 30 2C 79 30 29 3B 0D 0A 20 20 78 30 ,y,x0,y0);.. x0
000170: 3A 3D 78 3B 0D 0A 20 20 79 30 3A 3D 79 3B 0D 0A :=x;.. y0:=y;..
000180: 65 6E 64 3B 0D 0A 0D 0A 0D 0A 70 72 6F 63 65 64 end;......proced
000190: 75 72 65 20 62 28 69 3A 69 6E 74 65 67 65 72 29 ure b(i:integer)
0001A0: 3B 20 66 6F 72 77 61 72 64 3B 20 20 20 20 20 20 ; forward;
0001B0: 20 7B 66 6F 72 77 61 72 64 20 72 65 66 65 72 65 {forward refere
0001C0: 6E 63 65 73 20 70 6F 75 72 20 72 65 63 75 72 73 nces pour recurs
0001D0: 69 6F 6E 7D 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 ion}....procedur
0001E0: 65 20 63 28 69 3A 69 6E 74 65 67 65 72 29 3B 20 e c(i:integer);
0001F0: 66 6F 72 77 61 72 64 3B 0D 0A 0D 0A 70 72 6F 63 forward;....proc
Size : 512 (Real : 512)
000000: 73 65 64 7D 0D 0A 0D 0A 4C 65 61 76 65 47 72 61 sed}....LeaveGra
000010: 70 68 69 63 3B 20 20 20 20 20 20 20 20 20 20 20 phic;
000020: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7B {
000030: 6C 65 61 76 65 20 74 68 65 20 67 72 61 70 68 69 leave the graphi
000040: 63 73 20 73 79 73 74 65 6D 7D 0D 0A 0D 0A 65 6E cs system}....en
000050: 64 2E 0D 0A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A d...............
000060: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000070: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000080: 0A 20 20 44 72 61 77 42 6F 72 64 65 72 3B 0D 0A . DrawBorder;..
000090: 20 20 44 6F 49 74 3B 0D 0A 0D 0A 65 6E 64 3B 0D DoIt;....end;.
0000A0: 0A 0D 0A 0D 0A 62 65 67 69 6E 0D 0A 0D 0A 49 6E .....begin....In
0000B0: 69 74 47 72 61 70 68 69 63 3B 20 20 20 20 20 20 itGraphic;
0000C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000D0: 20 20 20 20 20 7B 69 6E 69 74 69 61 6C 69 7A 65 {initialize
0000E0: 20 74 68 65 20 67 72 61 70 68 69 63 73 20 73 79 the graphics sy
0000F0: 73 74 65 6D 7D 0D 0A 0D 0A 44 65 66 69 6E 65 48 stem}....DefineH
000100: 65 61 64 65 72 28 31 2C 27 44 45 4D 4F 4E 53 54 eader(1,'DEMONST
000110: 52 41 54 45 20 53 43 52 45 45 4E 20 50 52 49 4E RATE SCREEN PRIN
000120: 54 49 4E 47 27 29 3B 20 7B 67 69 76 65 20 69 74 TING'); {give it
000130: 20 61 20 68 65 61 64 65 72 7D 0D 0A 0D 0A 53 65 a header}....Se
000140: 74 48 65 61 64 65 72 4F 6E 3B 0D 0A 0D 0A 53 69 tHeaderOn;....Si
000150: 65 72 70 69 6E 73 6B 69 3B 20 20 20 20 20 20 20 erpinski;
000160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000170: 20 20 20 20 20 7B 64 6F 20 74 68 65 20 63 75 72 {do the cur
000180: 76 65 7D 0D 0A 0D 0A 0D 0A 48 61 72 64 43 6F 70 ve}......HardCop
000190: 79 28 66 61 6C 73 65 2C 31 29 3B 20 20 20 20 20 y(false,1);
0001A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001B0: 7B 70 72 69 6E 74 20 69 74 7D 0D 0A 0D 0A 0D 0A {print it}......
0001C0: 72 65 70 65 61 74 20 75 6E 74 69 6C 20 6B 65 79 repeat until key
0001D0: 70 72 65 73 73 65 64 3B 20 20 20 20 20 20 20 20 pressed;
0001E0: 20 20 20 20 20 20 20 7B 77 61 69 74 20 75 6E 74 {wait unt
0001F0: 69 6C 20 61 20 6B 65 79 20 69 73 20 70 72 65 73 il a key is pres
Size : 512 (Real : 512)
000000: 65 64 75 72 65 20 64 28 69 3A 69 6E 74 65 67 65 edure d(i:intege
000010: 72 29 3B 20 66 6F 72 77 61 72 64 3B 0D 0A 0D 0A r); forward;....
000020: 70 72 6F 63 65 64 75 72 65 20 61 28 69 3A 69 6E procedure a(i:in
000030: 74 65 67 65 72 29 3B 20 20 20 20 20 20 20 20 20 teger);
000040: 20 20 20 20 20 20 20 7B 70 72 65 6D 69 65 72 65 {premiere
000050: 20 70 72 6F 63 65 64 75 72 65 20 72 65 63 75 72 procedure recur
000060: 73 69 76 65 7D 0D 0A 62 65 67 69 6E 0D 0A 20 20 sive}..begin..
000070: 69 66 20 69 3E 30 20 74 68 65 6E 0D 0A 20 20 62 if i>0 then.. b
000080: 65 67 69 6E 0D 0A 20 20 20 20 61 28 69 2D 31 29 egin.. a(i-1)
000090: 3B 0D 0A 20 20 20 20 78 3A 3D 78 2B 68 3B 0D 0A ;.. x:=x+h;..
0000A0: 20 20 20 20 79 3A 3D 79 2D 68 3B 0D 0A 20 20 20 y:=y-h;..
0000B0: 20 70 6C 6F 74 3B 0D 0A 20 20 20 20 62 28 69 2D plot;.. b(i-
0000C0: 31 29 3B 0D 0A 20 20 20 20 78 3A 3D 78 2B 32 2A 1);.. x:=x+2*
0000D0: 68 3B 0D 0A 20 20 20 20 70 6C 6F 74 3B 0D 0A 20 h;.. plot;..
0000E0: 20 20 20 64 28 69 2D 31 29 3B 0D 0A 20 20 20 20 d(i-1);..
0000F0: 78 3A 3D 78 2B 68 3B 0D 0A 20 20 20 20 79 3A 3D x:=x+h;.. y:=
000100: 79 2B 68 3B 0D 0A 20 20 20 20 70 6C 6F 74 3B 0D y+h;.. plot;.
000110: 0A 20 20 20 20 61 28 69 2D 31 29 3B 0D 0A 20 20 . a(i-1);..
000120: 65 6E 64 3B 0D 0A 65 6E 64 3B 0D 0A 0D 0A 70 72 end;..end;....pr
000130: 6F 63 65 64 75 72 65 20 62 3B 20 20 20 20 20 20 ocedure b;
000140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000150: 20 20 20 20 20 7B 73 65 63 6F 6E 64 65 20 70 72 {seconde pr
000160: 6F 63 65 64 75 72 65 20 72 65 63 75 72 73 69 76 ocedure recursiv
000170: 65 7D 0D 0A 62 65 67 69 6E 0D 0A 20 20 69 66 20 e}..begin.. if
000180: 69 3E 30 20 74 68 65 6E 0D 0A 20 20 62 65 67 69 i>0 then.. begi
000190: 6E 0D 0A 20 20 20 20 62 28 69 2D 31 29 3B 0D 0A n.. b(i-1);..
0001A0: 20 20 20 20 78 3A 3D 78 2D 68 3B 0D 0A 20 20 20 x:=x-h;..
0001B0: 20 79 3A 3D 79 2D 68 3B 0D 0A 20 20 20 20 70 6C y:=y-h;.. pl
0001C0: 6F 74 3B 0D 0A 20 20 20 20 63 28 69 2D 31 29 3B ot;.. c(i-1);
0001D0: 0D 0A 20 20 20 20 79 3A 3D 79 2D 32 2A 68 3B 0D .. y:=y-2*h;.
0001E0: 0A 20 20 20 20 70 6C 6F 74 3B 0D 0A 20 20 20 20 . plot;..
0001F0: 61 28 69 2D 31 29 3B 0D 0A 20 20 20 20 78 3A 3D a(i-1);.. x:=
Size : 512 (Real : 512)
000000: 70 72 6F 67 72 61 6D 20 46 69 6E 64 57 6F 72 6C program FindWorl
000010: 64 3B 0D 0A 0D 0A 7B 24 49 20 74 79 70 65 64 65 d;....{$I typede
000020: 66 2E 73 79 73 7D 20 20 20 20 20 20 20 20 20 20 f.sys}
000030: 20 20 20 20 20 20 20 20 20 20 20 20 20 7B 63 65 {ce
000040: 73 20 66 69 63 68 69 65 72 73 20 64 6F 69 76 65 s fichiers doive
000050: 6E 74 20 65 74 72 65 7D 0D 0A 7B 24 49 20 67 72 nt etre}..{$I gr
000060: 61 70 68 69 78 2E 73 79 73 7D 20 20 20 20 20 20 aphix.sys}
000070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000080: 20 7B 69 6E 63 6C 75 73 20 64 61 6E 73 20 63 65 {inclus dans ce
000090: 74 20 6F 72 64 72 65 7D 0D 0A 7B 24 49 20 6B 65 t ordre}..{$I ke
0000A0: 72 6E 65 6C 2E 73 79 73 7D 0D 0A 7B 24 49 20 6B rnel.sys}..{$I k
0000B0: 65 72 6E 65 6C 31 2E 73 79 73 7D 0D 0A 7B 24 49 ernel1.sys}..{$I
0000C0: 20 77 69 6E 64 6F 77 73 2E 73 79 73 7D 0D 0A 7B windows.sys}..{
0000D0: 24 49 20 66 69 6E 64 77 72 6C 64 2E 68 67 68 7D $I findwrld.hgh}
0000E0: 0D 0A 7B 24 49 20 61 78 69 73 2E 68 67 68 7D 0D ..{$I axis.hgh}.
0000F0: 0A 7B 24 49 20 70 6F 6C 79 67 6F 6E 2E 68 67 68 .{$I polygon.hgh
000100: 7D 0D 0A 7B 24 49 20 73 70 6C 69 6E 65 2E 68 67 }..{$I spline.hg
000110: 68 7D 0D 0A 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 h}......procedur
000120: 65 20 46 69 6E 64 57 6F 72 6C 64 44 65 6D 3B 0D e FindWorldDem;.
000130: 0A 0D 0A 76 61 72 20 78 3A 72 65 61 6C 3B 0D 0A ...var x:real;..
000140: 20 20 20 20 64 78 2C 64 79 2C 69 2C 6E 2C 6C 69 dx,dy,i,n,li
000150: 6E 65 73 2C 73 63 61 6C 65 3A 69 6E 74 65 67 65 nes,scale:intege
000160: 72 3B 0D 0A 20 20 20 20 58 31 2C 59 31 2C 58 32 r;.. X1,Y1,X2
000170: 2C 59 32 3A 69 6E 74 65 67 65 72 3B 0D 0A 20 20 ,Y2:integer;..
000180: 20 20 62 2C 61 3A 50 6C 6F 74 41 72 72 61 79 3B b,a:PlotArray;
000190: 0D 0A 0D 0A 62 65 67 69 6E 0D 0A 0D 0A 20 20 44 ....begin.... D
0001A0: 65 66 69 6E 65 57 69 6E 64 6F 77 28 31 2C 30 2C efineWindow(1,0,
0001B0: 30 2C 58 4D 61 78 47 6C 62 2C 59 4D 61 78 47 6C 0,XMaxGlb,YMaxGl
0001C0: 62 29 3B 20 20 20 20 20 20 20 20 20 20 7B 64 65 b); {de
0001D0: 66 69 6E 69 74 20 6C 61 20 66 65 6E 65 74 72 65 finit la fenetre
0001E0: 20 63 6F 6D 6D 65 20 6C 27 27 65 63 72 61 6E 20 comme l''ecran
0001F0: 65 6E 74 69 65 72 7D 0D 0A 20 20 44 65 66 69 6E entier}.. Defin
Size : 512 (Real : 512)
000000: 78 2B 68 3B 0D 0A 20 20 20 20 79 3A 3D 79 2D 68 x+h;.. y:=y-h
000010: 3B 0D 0A 20 20 20 20 70 6C 6F 74 3B 0D 0A 20 20 ;.. plot;..
000020: 20 20 62 28 69 2D 31 29 3B 0D 0A 20 20 65 6E 64 b(i-1);.. end
000030: 3B 0D 0A 65 6E 64 3B 0D 0A 0D 0A 70 72 6F 63 65 ;..end;....proce
000040: 64 75 72 65 20 63 3B 20 20 20 20 20 20 20 20 20 dure c;
000050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000060: 20 20 7B 74 72 6F 69 73 69 65 6D 65 20 70 72 6F {troisieme pro
000070: 63 65 64 75 72 65 20 72 65 63 75 72 73 69 76 65 cedure recursive
000080: 7D 0D 0A 62 65 67 69 6E 0D 0A 20 20 69 66 20 69 }..begin.. if i
000090: 3E 30 20 74 68 65 6E 0D 0A 20 20 62 65 67 69 6E >0 then.. begin
0000A0: 0D 0A 20 20 20 20 63 28 69 2D 31 29 3B 0D 0A 20 .. c(i-1);..
0000B0: 20 20 20 78 3A 3D 78 2D 68 3B 0D 0A 20 20 20 20 x:=x-h;..
0000C0: 79 3A 3D 79 2B 68 3B 0D 0A 20 20 20 20 70 6C 6F y:=y+h;.. plo
0000D0: 74 3B 0D 0A 20 20 20 20 64 28 69 2D 31 29 3B 0D t;.. d(i-1);.
0000E0: 0A 20 20 20 20 78 3A 3D 78 2D 32 2A 68 3B 0D 0A . x:=x-2*h;..
0000F0: 20 20 20 20 70 6C 6F 74 3B 0D 0A 20 20 20 20 62 plot;.. b
000100: 28 69 2D 31 29 3B 0D 0A 20 20 20 20 78 3A 3D 78 (i-1);.. x:=x
000110: 2D 68 3B 0D 0A 20 20 20 20 79 3A 3D 79 2D 68 3B -h;.. y:=y-h;
000120: 0D 0A 20 20 20 20 70 6C 6F 74 3B 0D 0A 20 20 20 .. plot;..
000130: 20 63 28 69 2D 31 29 3B 0D 0A 20 20 65 6E 64 3B c(i-1);.. end;
000140: 0D 0A 65 6E 64 3B 0D 0A 0D 0A 70 72 6F 63 65 64 ..end;....proced
000150: 75 72 65 20 64 3B 20 20 20 20 20 20 20 20 20 20 ure d;
000160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000170: 20 7B 64 65 72 6E 69 65 72 65 20 70 72 6F 63 65 {derniere proce
000180: 64 75 72 65 20 72 65 63 75 72 73 69 76 65 7D 0D dure recursive}.
000190: 0A 62 65 67 69 6E 0D 0A 20 20 69 66 20 69 3E 30 .begin.. if i>0
0001A0: 20 74 68 65 6E 0D 0A 20 20 62 65 67 69 6E 0D 0A then.. begin..
0001B0: 20 20 20 20 64 28 69 2D 31 29 3B 0D 0A 20 20 20 d(i-1);..
0001C0: 20 78 3A 3D 78 2B 68 3B 0D 0A 20 20 20 20 79 3A x:=x+h;.. y:
0001D0: 3D 79 2B 68 3B 0D 0A 20 20 20 20 70 6C 6F 74 3B =y+h;.. plot;
0001E0: 0D 0A 20 20 20 20 61 28 69 2D 31 29 3B 0D 0A 20 .. a(i-1);..
0001F0: 20 20 20 79 3A 3D 79 2B 32 2A 68 3B 0D 0A 20 20 y:=y+2*h;..
Size : 512 (Real : 512)
000000: 65 57 69 6E 64 6F 77 28 32 2C 30 2C 30 2C 58 4D eWindow(2,0,0,XM
000010: 61 78 47 6C 62 2C 59 4D 61 78 47 6C 62 29 3B 0D axGlb,YMaxGlb);.
000020: 0A 20 20 44 65 66 69 6E 65 57 6F 72 6C 64 28 31 . DefineWorld(1
000030: 2C 30 2C 31 30 30 30 2C 31 30 30 30 2C 30 29 3B ,0,1000,1000,0);
000040: 20 20 20 20 20 20 20 20 7B 64 6F 6E 6E 65 20 75 {donne u
000050: 6E 20 6D 6F 6E 64 65 20 61 20 6C 27 27 65 63 72 n monde a l''ecr
000060: 61 6E 7D 0D 0A 0D 0A 20 20 44 65 66 69 6E 65 48 an}.... DefineH
000070: 65 61 64 65 72 28 32 2C 27 4C 45 20 4D 4F 4E 44 eader(2,'LE MOND
000080: 45 20 43 48 45 52 43 48 45 27 29 3B 20 20 20 20 E CHERCHE');
000090: 20 7B 66 65 6E 65 74 72 65 20 6F 75 20 6C 65 73 {fenetre ou les
0000A0: 20 63 6F 75 72 62 65 73 20 69 72 6F 6E 74 7D 0D courbes iront}.
0000B0: 0A 20 20 53 65 6C 65 63 74 57 69 6E 64 6F 77 28 . SelectWindow(
0000C0: 32 29 3B 0D 0A 20 20 53 65 74 48 65 61 64 65 72 2);.. SetHeader
0000D0: 4F 6E 3B 0D 0A 0D 0A 20 20 6E 3A 3D 31 30 3B 20 On;.... n:=10;
0000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7B 72 {r
000100: 65 6D 70 6C 69 74 20 6C 65 20 74 61 62 6C 65 61 emplit le tablea
000110: 75 7D 0D 0A 20 20 66 6F 72 20 69 3A 3D 31 20 74 u}.. for i:=1 t
000120: 6F 20 6E 20 64 6F 0D 0A 20 20 20 20 62 65 67 69 o n do.. begi
000130: 6E 0D 0A 20 20 20 20 20 20 61 5B 69 2C 31 5D 3A n.. a[i,1]:
000140: 3D 69 2D 31 3B 0D 0A 20 20 20 20 20 20 61 5B 69 =i-1;.. a[i
000150: 2C 32 5D 3A 3D 72 61 6E 64 6F 6D 2D 30 2E 35 3B ,2]:=random-0.5;
000160: 0D 0A 20 20 20 20 65 6E 64 3B 0D 0A 0D 0A 20 20 .. end;....
000170: 46 69 6E 64 57 6F 72 6C 64 28 32 2C 61 2C 6E 2C FindWorld(2,a,n,
000180: 31 2C 31 2E 30 38 29 3B 20 20 20 20 20 20 20 20 1,1.08);
000190: 20 20 20 20 20 7B 64 65 75 78 69 65 6D 65 20 6D {deuxieme m
0001A0: 6F 6E 64 65 20 61 20 64 72 6F 69 74 65 7D 0D 0A onde a droite}..
0001B0: 0D 0A 20 20 53 65 6C 65 63 74 57 69 6E 64 6F 77 .. SelectWindow
0001C0: 28 32 29 3B 0D 0A 20 20 44 72 61 77 42 6F 72 64 (2);.. DrawBord
0001D0: 65 72 3B 0D 0A 0D 0A 20 20 64 78 3A 3D 2D 38 3B er;.... dx:=-8;
0001E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7B 74 {t
Size : 512 (Real : 512)
000000: 77 7D 0D 0A 20 20 53 65 6C 65 63 74 57 69 6E 64 w}.. SelectWind
000010: 6F 77 28 31 29 3B 0D 0A 20 20 53 65 74 48 65 61 ow(1);.. SetHea
000020: 64 65 72 4F 6E 3B 0D 0A 20 20 53 65 74 42 61 63 derOn;.. SetBac
000030: 6B 67 72 6F 75 6E 64 28 30 29 3B 0D 0A 20 20 44 kground(0);.. D
000040: 72 61 77 42 6F 72 64 65 72 3B 0D 0A 0D 0A 0D 0A rawBorder;......
000050: 20 20 66 6F 72 20 69 3A 3D 31 20 74 6F 20 6E 20 for i:=1 to n
000060: 64 6F 20 20 20 20 20 20 20 20 20 20 20 20 20 20 do
000070: 20 20 20 20 20 20 20 20 20 20 7B 74 79 70 65 20 {type
000080: 74 68 65 20 69 6E 66 6F 20 69 6E 20 74 68 65 20 the info in the
000090: 75 70 2D 72 74 20 63 6F 72 6E 65 72 7D 0D 0A 20 up-rt corner}..
0000A0: 20 20 62 65 67 69 6E 0D 0A 20 20 20 20 47 6F 74 begin.. Got
0000B0: 6F 58 59 28 36 30 2C 34 2B 69 29 3B 20 20 20 20 oXY(60,4+i);
0000C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000D0: 20 20 20 7B 67 6F 74 6F 20 63 6F 72 72 65 63 74 {goto correct
0000E0: 20 6C 69 6E 65 7D 0D 0A 20 20 20 20 77 72 69 74 line}.. writ
0000F0: 65 28 61 5B 69 5D 2E 74 65 78 74 2C 27 3D 27 29 e(a[i].text,'=')
000100: 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ;
000110: 20 20 7B 74 79 70 65 20 74 68 65 20 6C 61 62 6C {type the labl
000120: 65 20 69 6E 66 6F 7D 0D 0A 20 20 20 20 73 74 72 e info}.. str
000130: 28 61 5B 69 5D 2E 61 72 65 61 3A 36 3A 32 2C 4E (a[i].area:6:2,N
000140: 75 6D 54 65 78 74 29 3B 20 20 20 20 20 20 20 20 umText);
000150: 20 20 20 7B 66 6F 72 6D 61 74 20 74 68 65 20 6E {format the n
000160: 75 6D 65 72 69 63 20 69 6E 66 6F 7D 0D 0A 20 20 umeric info}..
000170: 20 20 77 72 69 74 65 28 4E 75 6D 54 65 78 74 29 write(NumText)
000180: 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ;
000190: 20 20 20 20 20 20 20 20 7B 74 79 70 65 20 74 68 {type th
0001A0: 65 20 6E 75 6D 65 72 69 63 20 69 6E 66 6F 7D 0D e numeric info}.
0001B0: 0A 20 20 20 65 6E 64 3B 0D 0A 0D 0A 0D 0A 20 20 . end;......
0001C0: 44 65 66 69 6E 65 57 69 6E 64 6F 77 28 32 2C 74 DefineWindow(2,t
0001D0: 72 75 6E 63 28 58 4D 61 78 47 6C 62 2F 31 30 29 runc(XMaxGlb/10)
0001E0: 2C 74 72 75 6E 63 28 59 4D 61 78 47 6C 62 2F 31 ,trunc(YMaxGlb/1
0001F0: 30 29 2C 0D 0A 20 20 20 20 20 20 20 20 20 20 20 0),..
Size : 512 (Real : 512)
000000: 72 61 63 65 20 6C 65 73 20 61 78 65 73 20 61 20 race les axes a
000010: 6C 27 27 69 6E 74 65 72 69 65 75 72 20 64 65 20 l''interieur de
000020: 6C 61 20 66 65 6E 65 74 72 65 7D 0D 0A 20 20 64 la fenetre}.. d
000030: 79 3A 3D 37 3B 0D 0A 20 20 58 31 3A 3D 33 3B 0D y:=7;.. X1:=3;.
000040: 0A 20 20 59 31 3A 3D 35 3B 0D 0A 20 20 58 32 3A . Y1:=5;.. X2:
000050: 3D 32 35 3B 0D 0A 20 20 59 32 3A 3D 31 30 3B 0D =25;.. Y2:=10;.
000060: 0A 20 20 6C 69 6E 65 73 3A 3D 30 3B 0D 0A 20 20 . lines:=0;..
000070: 73 63 61 6C 65 3A 3D 30 3B 0D 0A 0D 0A 20 20 53 scale:=0;.... S
000080: 65 74 4C 69 6E 65 53 74 79 6C 65 28 30 29 3B 20 etLineStyle(0);
000090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000A0: 20 20 20 20 7B 74 72 61 63 65 20 75 6E 65 20 63 {trace une c
0000B0: 6F 75 72 62 65 7D 0D 0A 20 20 44 72 61 77 41 78 ourbe}.. DrawAx
0000C0: 69 73 28 64 78 2C 64 79 2C 58 31 2C 59 31 2C 58 is(dx,dy,X1,Y1,X
0000D0: 32 2C 59 32 2C 6C 69 6E 65 73 2C 73 63 61 6C 65 2,Y2,lines,scale
0000E0: 2C 66 61 6C 73 65 29 3B 0D 0A 20 20 44 72 61 77 ,false);.. Draw
0000F0: 50 6F 6C 79 67 6F 6E 28 61 2C 31 2C 6E 2C 37 2C Polygon(a,1,n,7,
000100: 32 2C 30 29 3B 0D 0A 0D 0A 0D 0A 20 20 53 65 6C 2,0);...... Sel
000110: 65 63 74 57 6F 72 6C 64 28 31 29 3B 20 20 20 20 ectWorld(1);
000120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000130: 20 20 7B 63 68 6F 69 78 20 68 6F 72 73 20 64 65 {choix hors de
000140: 20 6C 61 20 66 65 6E 65 74 72 65 7D 0D 0A 20 20 la fenetre}..
000150: 53 65 6C 65 63 74 57 69 6E 64 6F 77 28 31 29 3B SelectWindow(1);
000160: 0D 0A 0D 0A 20 20 44 72 61 77 54 65 78 74 57 28 .... DrawTextW(
000170: 37 33 30 2C 34 35 30 2C 31 2C 5E 5B 27 37 40 32 730,450,1,^['7@2
000180: 20 20 20 4C 61 20 64 6F 6E 6E 65 65 27 29 3B 20 La donnee');
000190: 20 20 20 20 20 20 20 20 20 20 20 7B 61 66 66 69 {affi
0001A0: 63 68 65 20 6C 61 20 6C 65 67 65 6E 64 65 7D 0D che la legende}.
0001B0: 0A 20 20 44 72 61 77 54 65 78 74 57 28 37 33 30 . DrawTextW(730
0001C0: 2C 35 35 30 2C 31 2C 27 2D 2D 20 20 4C 61 20 63 ,550,1,'-- La c
0001D0: 6F 75 72 62 65 27 29 3B 0D 0A 0D 0A 65 6E 64 3B ourbe');....end;
0001E0: 0D 0A 0D 0A 0D 0A 0D 0A 62 65 67 69 6E 0D 0A 0D ........begin...
0001F0: 0A 49 6E 69 74 47 72 61 70 68 69 63 3B 20 20 20 .InitGraphic;
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 74 72 75 6E 63 28 58 4D 61 78 trunc(XMax
000010: 47 6C 62 2A 36 2F 31 30 29 2C 74 72 75 6E 63 28 Glb*6/10),trunc(
000020: 59 4D 61 78 47 6C 62 2A 37 2F 31 30 29 29 3B 0D YMaxGlb*7/10));.
000030: 0A 20 20 44 65 66 69 6E 65 48 65 61 64 65 72 28 . DefineHeader(
000040: 32 2C 27 41 20 50 49 45 20 43 48 41 52 54 27 29 2,'A PIE CHART')
000050: 3B 20 20 20 20 20 20 20 20 20 20 7B 73 65 74 20 ; {set
000060: 75 70 20 61 20 77 69 6E 64 6F 77 7D 0D 0A 20 20 up a window}..
000070: 44 65 66 69 6E 65 57 6F 72 6C 64 28 32 2C 30 2C DefineWorld(2,0,
000080: 31 30 30 30 2C 31 30 30 30 2C 30 29 3B 0D 0A 20 1000,1000,0);..
000090: 20 53 65 6C 65 63 74 57 6F 72 6C 64 28 32 29 3B SelectWorld(2);
0000A0: 0D 0A 20 20 53 65 6C 65 63 74 57 69 6E 64 6F 77 .. SelectWindow
0000B0: 28 32 29 3B 0D 0A 20 20 53 65 74 48 65 61 64 65 (2);.. SetHeade
0000C0: 72 4F 6E 3B 0D 0A 20 20 53 65 74 42 61 63 6B 67 rOn;.. SetBackg
0000D0: 72 6F 75 6E 64 28 30 29 3B 0D 0A 20 20 44 72 61 round(0);.. Dra
0000E0: 77 42 6F 72 64 65 72 3B 0D 0A 0D 0A 20 20 61 5B wBorder;.... a[
0000F0: 31 5D 2E 61 72 65 61 3A 3D 2D 61 5B 31 5D 2E 61 1].area:=-a[1].a
000100: 72 65 61 3B 20 20 20 20 20 20 20 20 20 20 20 20 rea;
000110: 20 20 20 20 20 7B 6D 6F 76 65 20 74 68 65 20 66 {move the f
000120: 69 72 73 74 20 73 65 67 6D 65 6E 74 20 6F 75 74 irst segment out
000130: 77 61 72 64 7D 0D 0A 20 20 53 65 74 41 73 70 65 ward}.. SetAspe
000140: 63 74 28 31 2E 30 29 3B 20 20 20 20 20 20 20 20 ct(1.0);
000150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000160: 7B 73 65 74 20 74 68 65 20 61 73 70 65 63 74 20 {set the aspect
000170: 72 61 74 69 6F 7D 0D 0A 0D 0A 20 20 78 31 3A 3D ratio}.... x1:=
000180: 35 30 30 3B 20 20 20 20 20 20 20 20 20 20 20 20 500;
000190: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001A0: 20 20 20 7B 73 65 74 20 74 68 65 20 63 65 6E 74 {set the cent
0001B0: 65 72 20 74 6F 20 6D 69 64 20 73 63 72 65 65 6E er to mid screen
0001C0: 7D 0D 0A 20 20 79 31 3A 3D 35 30 30 3B 0D 0A 0D }.. y1:=500;...
0001D0: 0A 20 20 78 32 3A 3D 36 30 30 3B 20 20 20 20 20 . x2:=600;
0001E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001F0: 20 20 20 20 20 20 20 20 20 20 7B 73 65 74 20 74 {set t
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000010: 20 20 20 20 20 20 20 20 7B 69 6E 69 74 69 61 6C {initial
000020: 69 73 65 20 6C 65 73 20 67 72 61 70 68 69 73 6D ise les graphism
000030: 65 73 7D 0D 0A 0D 0A 46 69 6E 64 57 6F 72 6C 64 es}....FindWorld
000040: 44 65 6D 3B 20 20 20 20 20 20 20 20 20 20 20 20 Dem;
000050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7B 66 {f
000060: 61 69 74 20 6C 61 20 64 65 6D 6F 7D 0D 0A 0D 0A ait la demo}....
000070: 72 65 70 65 61 74 20 75 6E 74 69 6C 20 6B 65 79 repeat until key
000080: 70 72 65 73 73 65 64 3B 20 20 20 20 20 20 20 20 pressed;
000090: 20 20 20 20 20 20 20 7B 61 74 74 65 6E 64 20 6A {attend j
0000A0: 75 73 71 75 27 27 61 20 63 65 20 71 75 27 27 75 usqu''a ce qu''u
0000B0: 6E 65 20 74 6F 75 63 68 65 20 73 6F 69 74 20 66 ne touche soit f
0000C0: 72 61 70 70 65 65 7D 0D 0A 0D 0A 4C 65 61 76 65 rappee}....Leave
0000D0: 47 72 61 70 68 69 63 3B 20 20 20 20 20 20 20 20 Graphic;
0000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000F0: 20 20 7B 71 75 69 74 74 65 20 6C 65 73 20 67 72 {quitte les gr
000100: 61 70 68 69 73 6D 65 73 7D 0D 0A 0D 0A 65 6E 64 aphismes}....end
000110: 2E 0D 0A 0D 0A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000120: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000130: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000140: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000150: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000160: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000170: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000180: 20 20 20 4C 61 20 64 6F 6E 6E 65 65 27 29 3B 20 La donnee');
000190: 20 20 20 20 20 20 20 20 20 20 20 7B 61 66 66 69 {affi
0001A0: 63 68 65 20 6C 61 20 6C 65 67 65 6E 64 65 7D 0D che la legende}.
0001B0: 0A 20 20 44 72 61 77 54 65 78 74 57 28 37 33 30 . DrawTextW(730
0001C0: 2C 35 35 30 2C 31 2C 27 2D 2D 20 20 4C 61 20 63 ,550,1,'-- La c
0001D0: 6F 75 72 62 65 27 29 3B 0D 0A 0D 0A 65 6E 64 3B ourbe');....end;
0001E0: 0D 0A 0D 0A 0D 0A 0D 0A 62 65 67 69 6E 0D 0A 0D ........begin...
0001F0: 0A 49 6E 69 74 47 72 61 70 68 69 63 3B 20 20 20 .InitGraphic;
Size : 512 (Real : 512)
000000: 68 65 20 73 74 61 72 74 20 6F 66 20 74 68 65 20 he start of the
000010: 63 69 72 63 6C 65 7D 0D 0A 20 20 79 32 3A 3D 33 circle}.. y2:=3
000020: 35 30 3B 0D 0A 0D 0A 20 20 49 6E 52 61 64 69 75 50;.... InRadiu
000030: 73 3A 3D 30 2E 37 3B 20 20 20 20 20 20 20 20 20 s:=0.7;
000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000050: 7B 73 65 74 20 74 68 65 20 65 6E 64 73 20 6F 66 {set the ends of
000060: 20 74 68 65 20 6C 61 62 6C 65 20 6C 69 6E 65 7D the lable line}
000070: 0D 0A 20 20 4F 75 74 52 61 64 69 75 73 3A 3D 31 .. OutRadius:=1
000080: 2E 32 35 3B 0D 0A 0D 0A 20 20 44 72 61 77 43 61 .25;.... DrawCa
000090: 72 74 50 69 65 28 78 31 2C 79 31 2C 78 32 2C 79 rtPie(x1,y1,x2,y
0000A0: 32 2C 49 6E 52 61 64 69 75 73 2C 4F 75 74 52 61 2,InRadius,OutRa
0000B0: 64 69 75 73 2C 61 2C 6E 2C 32 2C 31 29 3B 20 7B dius,a,n,2,1); {
0000C0: 64 72 61 77 20 74 68 65 20 70 69 65 7D 0D 0A 0D draw the pie}...
0000D0: 0A 20 20 61 5B 31 5D 2E 61 72 65 61 3A 3D 2D 61 . a[1].area:=-a
0000E0: 5B 31 5D 2E 61 72 65 61 3B 20 20 20 20 20 20 20 [1].area;
0000F0: 20 20 20 20 20 20 20 20 20 20 7B 72 65 73 65 74 {reset
000100: 20 74 68 65 20 73 69 67 6E 7D 0D 0A 0D 0A 20 20 the sign}....
000110: 44 65 66 69 6E 65 57 69 6E 64 6F 77 28 33 2C 74 DefineWindow(3,t
000120: 72 75 6E 63 28 58 4D 61 78 47 6C 62 2F 32 29 2C runc(XMaxGlb/2),
000130: 74 72 75 6E 63 28 59 4D 61 78 47 6C 62 2F 32 29 trunc(YMaxGlb/2)
000140: 2C 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ,..
000150: 20 20 20 20 74 72 75 6E 63 28 58 4D 61 78 47 6C trunc(XMaxGl
000160: 62 2A 39 2F 31 30 29 2C 74 72 75 6E 63 28 59 4D b*9/10),trunc(YM
000170: 61 78 47 6C 62 2A 39 2F 31 30 29 29 3B 0D 0A 20 axGlb*9/10));..
000180: 20 44 65 66 69 6E 65 48 65 61 64 65 72 28 33 2C DefineHeader(3,
000190: 27 41 20 42 41 52 20 43 48 41 52 54 27 29 3B 20 'A BAR CHART');
0001A0: 20 20 20 20 20 20 20 20 7B 73 65 74 20 75 70 20 {set up
0001B0: 61 20 77 69 6E 64 6F 77 7D 0D 0A 20 20 44 65 66 a window}.. Def
0001C0: 69 6E 65 57 6F 72 6C 64 28 33 2C 30 2C 36 30 2C ineWorld(3,0,60,
0001D0: 31 30 2C 30 29 3B 0D 0A 20 20 53 65 6C 65 63 74 10,0);.. Select
0001E0: 57 6F 72 6C 64 28 33 29 3B 0D 0A 20 20 53 65 6C World(3);.. Sel
0001F0: 65 63 74 57 69 6E 64 6F 77 28 33 29 3B 0D 0A 20 ectWindow(3);..
Size : 512 (Real : 512)
000000: 70 72 6F 67 72 61 6D 20 50 69 65 48 69 73 74 6F program PieHisto
000010: 3B 0D 0A 0D 0A 7B 24 49 20 74 79 70 65 64 65 66 ;....{$I typedef
000020: 2E 73 79 73 7D 20 20 20 20 20 20 20 20 20 20 20 .sys}
000030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7B 74 {t
000040: 68 65 73 65 20 66 69 6C 65 73 20 6D 75 73 74 20 hese files must
000050: 62 65 7D 0D 0A 7B 24 49 20 67 72 61 70 68 69 78 be}..{$I graphix
000060: 2E 73 79 73 7D 20 20 20 20 20 20 20 20 20 20 20 .sys}
000070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7B 69 {i
000080: 6E 63 6C 75 64 65 64 20 61 6E 64 20 69 6E 20 74 ncluded and in t
000090: 68 69 73 20 6F 72 64 65 72 7D 0D 0A 7B 24 49 20 his order}..{$I
0000A0: 6B 65 72 6E 65 6C 2E 73 79 73 7D 0D 0A 7B 24 49 kernel.sys}..{$I
0000B0: 20 6B 65 72 6E 65 6C 31 2E 73 79 73 7D 0D 0A 7B kernel1.sys}..{
0000C0: 24 49 20 77 69 6E 64 6F 77 73 2E 73 79 73 7D 0D $I windows.sys}.
0000D0: 0A 7B 24 49 20 63 69 72 63 73 65 67 6D 2E 68 67 .{$I circsegm.hg
0000E0: 68 7D 0D 0A 7B 24 49 20 70 69 65 2E 68 67 68 7D h}..{$I pie.hgh}
0000F0: 0D 0A 7B 24 49 20 68 61 74 63 68 2E 68 67 68 7D ..{$I hatch.hgh}
000100: 0D 0A 7B 24 49 20 68 69 73 74 6F 67 72 6D 2E 68 ..{$I histogrm.h
000110: 67 68 7D 0D 0A 0D 0A 0D 0A 70 72 6F 63 65 64 75 gh}......procedu
000120: 72 65 20 50 69 65 48 69 73 74 6F 44 65 6D 3B 0D re PieHistoDem;.
000130: 0A 0D 0A 76 61 72 20 73 75 6D 2C 78 31 2C 79 31 ...var sum,x1,y1
000140: 2C 78 32 2C 79 32 2C 49 6E 52 61 64 69 75 73 2C ,x2,y2,InRadius,
000150: 4F 75 74 52 61 64 69 75 73 3A 72 65 61 6C 3B 0D OutRadius:real;.
000160: 0A 20 20 20 20 69 2C 6E 3A 69 6E 74 65 67 65 72 . i,n:integer
000170: 3B 0D 0A 20 20 20 20 61 3A 50 69 65 41 72 72 61 ;.. a:PieArra
000180: 79 3B 0D 0A 20 20 20 20 62 3A 50 6C 6F 74 41 72 y;.. b:PlotAr
000190: 72 61 79 3B 0D 0A 20 20 20 20 63 68 3A 63 68 61 ray;.. ch:cha
0001A0: 72 3B 0D 0A 20 20 20 20 4E 75 6D 54 65 78 74 3A r;.. NumText:
0001B0: 57 72 6B 53 74 72 69 6E 67 3B 0D 0A 0D 0A 62 65 WrkString;....be
0001C0: 67 69 6E 0D 0A 0D 0A 20 20 6E 3A 3D 35 3B 20 20 gin.... n:=5;
0001D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001F0: 7B 74 68 65 20 6E 75 6D 62 65 72 20 6F 66 20 64 {the number of d
Size : 512 (Real : 512)
000000: 20 53 65 74 48 65 61 64 65 72 4F 6E 3B 0D 0A 20 SetHeaderOn;..
000010: 20 53 65 74 42 61 63 6B 67 72 6F 75 6E 64 28 30 SetBackground(0
000020: 29 3B 0D 0A 20 20 44 72 61 77 42 6F 72 64 65 72 );.. DrawBorder
000030: 3B 0D 0A 0D 0A 20 20 44 72 61 77 48 69 73 74 6F ;.... DrawHisto
000040: 67 72 61 6D 28 62 2C 6E 2C 74 72 75 65 2C 35 29 gram(b,n,true,5)
000050: 3B 0D 0A 0D 0A 66 6F 72 20 69 3A 3D 31 20 74 6F ;....for i:=1 to
000060: 20 6E 20 64 6F 20 20 20 20 20 20 20 20 20 20 20 n do
000070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7B 64 {d
000080: 72 61 77 20 74 68 65 20 62 61 72 20 63 68 61 72 raw the bar char
000090: 74 20 6C 61 62 6C 65 73 7D 0D 0A 20 62 65 67 69 t lables}.. begi
0000A0: 6E 0D 0A 20 20 44 72 61 77 54 65 78 74 57 28 28 n.. DrawTextW((
0000B0: 31 30 2F 6E 29 2A 28 69 2D 31 29 2C 31 30 2C 31 10/n)*(i-1),10,1
0000C0: 2C 27 20 20 20 27 2B 61 5B 69 5D 2E 74 65 78 74 ,' '+a[i].text
0000D0: 29 3B 20 20 7B 64 72 61 77 20 74 68 65 20 74 65 ); {draw the te
0000E0: 78 74 7D 0D 0A 20 20 73 74 72 28 61 5B 69 5D 2E xt}.. str(a[i].
0000F0: 61 72 65 61 3A 36 3A 32 2C 4E 75 6D 54 65 78 74 area:6:2,NumText
000100: 29 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 );
000110: 20 20 20 20 20 20 7B 66 6F 72 6D 61 74 20 74 68 {format th
000120: 65 20 6E 75 6D 62 65 72 7D 0D 0A 20 20 44 72 61 e number}.. Dra
000130: 77 54 65 78 74 57 28 28 31 30 2F 6E 29 2A 28 69 wTextW((10/n)*(i
000140: 2D 31 29 2C 31 36 2C 31 2C 27 20 27 2B 4E 75 6D -1),16,1,' '+Num
000150: 54 65 78 74 29 3B 20 20 20 20 20 20 7B 64 72 61 Text); {dra
000160: 77 20 74 68 65 20 6E 75 6D 62 65 72 7D 0D 0A 20 w the number}..
000170: 65 6E 64 3B 0D 0A 0D 0A 65 6E 64 3B 0D 0A 0D 0A end;....end;....
000180: 0D 0A 0D 0A 62 65 67 69 6E 0D 0A 0D 0A 49 6E 69 ....begin....Ini
000190: 74 47 72 61 70 68 69 63 3B 20 20 20 20 20 20 20 tGraphic;
0001A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001B0: 20 20 20 20 20 20 7B 69 6E 69 74 69 61 6C 69 7A {initializ
0001C0: 65 20 74 68 65 20 67 72 61 70 68 69 63 73 20 73 e the graphics s
0001D0: 79 73 74 65 6D 7D 0D 0A 0D 0A 50 69 65 48 69 73 ystem}....PieHis
0001E0: 74 6F 44 65 6D 3B 20 20 20 20 20 20 20 20 20 20 toDem;
0001F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
Size : 512 (Real : 512)
000000: 61 74 61 20 70 6F 69 6E 74 73 7D 0D 0A 20 20 61 ata points}.. a
000010: 5B 31 5D 2E 61 72 65 61 3A 3D 32 35 3B 20 20 20 [1].area:=25;
000020: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000030: 20 20 20 20 20 20 7B 69 6E 69 74 69 61 6C 69 7A {initializ
000040: 65 20 74 68 65 20 70 69 65 20 61 72 72 61 79 7D e the pie array}
000050: 0D 0A 20 20 61 5B 32 5D 2E 61 72 65 61 3A 3D 31 .. a[2].area:=1
000060: 37 2E 35 3B 0D 0A 20 20 61 5B 33 5D 2E 61 72 65 7.5;.. a[3].are
000070: 61 3A 3D 39 2E 36 3B 0D 0A 20 20 61 5B 34 5D 2E a:=9.6;.. a[4].
000080: 61 72 65 61 3A 3D 32 31 3B 0D 0A 20 20 61 5B 35 area:=21;.. a[5
000090: 5D 2E 61 72 65 61 3A 3D 33 35 3B 0D 0A 20 20 61 ].area:=35;.. a
0000A0: 5B 31 5D 2E 74 65 78 74 3A 3D 27 4A 41 4E 2E 20 [1].text:='JAN.
0000B0: 27 3B 0D 0A 20 20 61 5B 32 5D 2E 74 65 78 74 3A ';.. a[2].text:
0000C0: 3D 27 46 45 42 2E 20 27 3B 0D 0A 20 20 61 5B 33 ='FEB. ';.. a[3
0000D0: 5D 2E 74 65 78 74 3A 3D 27 4D 41 52 2E 20 27 3B ].text:='MAR. ';
0000E0: 0D 0A 20 20 61 5B 34 5D 2E 74 65 78 74 3A 3D 27 .. a[4].text:='
0000F0: 41 50 52 2E 20 27 3B 0D 0A 20 20 61 5B 35 5D 2E APR. ';.. a[5].
000100: 74 65 78 74 3A 3D 27 4D 41 59 20 20 27 3B 0D 0A text:='MAY ';..
000110: 0D 0A 0D 0A 20 20 66 6F 72 20 69 3A 3D 31 20 74 .... for i:=1 t
000120: 6F 20 6E 20 64 6F 20 20 20 20 20 20 20 20 20 20 o n do
000130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7B 69 {i
000140: 6E 69 74 20 74 68 65 20 68 69 73 74 6F 67 72 61 nit the histogra
000150: 6D 20 61 72 72 61 79 7D 0D 0A 20 20 20 20 62 5B m array}.. b[
000160: 69 2C 32 5D 3A 3D 61 5B 69 5D 2E 61 72 65 61 3B i,2]:=a[i].area;
000170: 0D 0A 0D 0A 20 20 43 6C 65 61 72 53 63 72 65 65 .... ClearScree
000180: 6E 3B 0D 0A 20 20 53 65 74 43 6F 6C 6F 72 57 68 n;.. SetColorWh
000190: 69 74 65 3B 0D 0A 0D 0A 20 20 44 65 66 69 6E 65 ite;.... Define
0001A0: 57 69 6E 64 6F 77 28 31 2C 30 2C 30 2C 58 4D 61 Window(1,0,0,XMa
0001B0: 78 47 6C 62 2C 59 4D 61 78 47 6C 62 29 3B 0D 0A xGlb,YMaxGlb);..
0001C0: 20 20 44 65 66 69 6E 65 48 65 61 64 65 72 28 31 DefineHeader(1
0001D0: 2C 27 42 4F 54 48 20 41 20 50 49 45 20 41 4E 44 ,'BOTH A PIE AND
0001E0: 20 41 20 42 41 52 20 43 48 41 52 54 27 29 3B 20 A BAR CHART');
0001F0: 20 7B 73 65 74 20 75 70 20 61 20 77 69 6E 64 6F {set up a windo
Size : 512 (Real : 512)
000000: 20 20 20 7B 64 6F 20 74 68 65 20 64 65 6D 6F 7D {do the demo}
000010: 0D 0A 0D 0A 72 65 70 65 61 74 20 75 6E 74 69 6C ....repeat until
000020: 20 6B 65 79 70 72 65 73 73 65 64 3B 20 20 20 20 keypressed;
000030: 20 20 20 20 20 20 20 20 20 20 20 20 20 7B 77 61 {wa
000040: 69 74 20 75 6E 74 69 6C 20 61 20 6B 65 79 20 69 it until a key i
000050: 73 20 70 72 65 73 73 65 64 7D 0D 0A 0D 0A 4C 65 s pressed}....Le
000060: 61 76 65 47 72 61 70 68 69 63 3B 20 20 20 20 20 aveGraphic;
000070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000080: 20 20 20 20 20 20 20 7B 6C 65 61 76 65 20 74 68 {leave th
000090: 65 20 67 72 61 70 68 69 63 73 20 73 79 73 74 65 e graphics syste
0000A0: 6D 7D 0D 0A 0D 0A 65 6E 64 2E 0D 0A 0D 0A 1A 1A m}....end.......
0000B0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0000C0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0000D0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0000E0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0000F0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000100: 29 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 );
000110: 20 20 20 20 20 20 7B 66 6F 72 6D 61 74 20 74 68 {format th
000120: 65 20 6E 75 6D 62 65 72 7D 0D 0A 20 20 44 72 61 e number}.. Dra
000130: 77 54 65 78 74 57 28 28 31 30 2F 6E 29 2A 28 69 wTextW((10/n)*(i
000140: 2D 31 29 2C 31 36 2C 31 2C 27 20 27 2B 4E 75 6D -1),16,1,' '+Num
000150: 54 65 78 74 29 3B 20 20 20 20 20 20 7B 64 72 61 Text); {dra
000160: 77 20 74 68 65 20 6E 75 6D 62 65 72 7D 0D 0A 20 w the number}..
000170: 65 6E 64 3B 0D 0A 0D 0A 65 6E 64 3B 0D 0A 0D 0A end;....end;....
000180: 0D 0A 0D 0A 62 65 67 69 6E 0D 0A 0D 0A 49 6E 69 ....begin....Ini
000190: 74 47 72 61 70 68 69 63 3B 20 20 20 20 20 20 20 tGraphic;
0001A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001B0: 20 20 20 20 20 20 7B 69 6E 69 74 69 61 6C 69 7A {initializ
0001C0: 65 20 74 68 65 20 67 72 61 70 68 69 63 73 20 73 e the graphics s
0001D0: 79 73 74 65 6D 7D 0D 0A 0D 0A 50 69 65 48 69 73 ystem}....PieHis
0001E0: 74 6F 44 65 6D 3B 20 20 20 20 20 20 20 20 20 20 toDem;
0001F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
Size : 512 (Real : 512)
000000: 99 14 C1 DA 6C 27 3F 70 9F 53 5A 3E 0F F8 5D D9 ....l'?p.SZ>..].
000010: 37 76 2F 21 DF 46 8F 87 77 F6 EC B4 EF 1C 59 04 7v/!.F..w.....Y.
000020: FF B8 30 DC 54 5B B8 D3 85 DF 37 98 4C BD C4 6F ..0.T[....7.L..o
000030: DC BE 63 A0 EC 84 81 57 7F 3F FC DA 81 F3 82 41 ..c....W.?.....A
000040: A6 3A F8 58 00 87 33 0B F0 B5 D9 BB 83 F3 7F 9C .:.X..3.........
000050: 19 18 6C 03 24 DC 86 1A F9 F4 9D 12 09 C1 90 48 ..l.$..........H
000060: 30 10 18 D6 44 92 99 95 CC AF DD 01 63 EF 41 47 0...D.......c.AG
000070: B7 1A 8A 6B A0 F0 83 EE C4 3B 98 13 36 59 DC 1A ...k.....;..6Y..
000080: 8B 14 D9 C6 5F 0F 13 D4 AF F3 48 20 03 E2 41 C5 ...._.....H ..A.
000090: 28 75 33 23 F3 69 8F 01 73 B4 C8 0F FD 01 5A 04 (u3#.i..s.....Z.
0000A0: FF BD 2E C1 50 5F B8 D5 8F DF 32 98 52 A4 C2 73 ....P_....2.R..s
0000B0: C4 B6 75 8C F8 B4 31 71 F3 C7 CD 64 8D F1 89 5D ..u...1q...d...]
0000C0: BF 3B E0 46 1D 81 37 0B F3 A1 C2 B8 9D FB 7F 9F .;.F..7.........
0000D0: 1B 18 6D 1E 21 C2 9E 1C D9 EB BC F0 B7 49 3C 59 ..m.!........I<Y
0000E0: 30 10 00 C9 4F 8A 84 95 CC B7 C3 1E 6A F2 42 5B 0...O.......j.B[
0000F0: B5 1A 8F 69 B4 E4 85 C2 D1 0B 74 0B BA BD E9 A5 ...i......t.....
000100: 9B 00 DF C6 5D 04 0F C0 AA E7 56 3D 09 EC 41 C7 ....].....V=..A.
000110: 34 68 32 20 ED 75 BD 11 73 5E CC 75 D9 BC 4A 01 4h2 .u..s^.u..J.
000120: E6 B7 2E C1 50 47 A5 D7 83 DF 32 98 4C B9 C3 77 ....PG....2.L..w
000130: C4 BF 71 8C FB B1 03 7F C7 2F E9 C8 AD D3 BA 6D ..q....../.....m
000140: 96 84 F4 5B 19 86 2B 13 F0 B5 DF BC 9B EF 63 AB ...[..+.......c.
000150: 3B 34 56 2A 9F CE 93 15 E0 D8 8C 3E 83 E9 2C 68 ;4V*.......>..,h
000160: 07 20 38 FF F0 A6 B8 A4 E2 9E FC 32 5B 22 9F 78 . 8........2[".x
000170: 84 A7 BE 4F 8C E0 B0 5C FD 0B 98 ED D9 68 C1 C6 ...O...\.....h..
000180: 47 35 BD 0C 75 23 3F D4 9B ED 7F 01 3B D4 9E DD G5..u#?.....;...
000190: 09 44 03 F0 F6 B6 70 34 5B 77 CC 83 3F 19 6B 3D .D....p4[w..?.k=
0001A0: D3 8F E1 D8 6D 6B 94 05 9E 1C FC AD 48 85 F0 43 ....mk......H..C
0001B0: 0A A7 42 AD CA 84 D0 BC FE 1F C9 09 59 CF BA 6B ..B.........Y..k
0001C0: 93 34 D1 DA 2C B9 07 61 C5 21 F4 C9 AE EF 5D AB .4..,..a.!....].
0001D0: 3F 34 0C 2A 8D E3 AA 2C 3B 1B 49 0B 81 29 E9 71 ?4.*...,;.I..).q
0001E0: 15 C6 3C FA 79 A6 EF A1 62 96 F1 32 BA 2C 7F 9B ..<.y...b..2.,..
0001F0: 92 36 96 5B E8 CD 21 DB C2 FD 95 0F 36 4E F0 9B .6.[..!.....6N..
Size : 512 (Real : 512)
000000: 49 C0 EF EA 6C D4 D9 C4 99 DF 7A EF CE D6 6D F5 I...l.....z...m.
000010: E6 6D F4 08 ED 59 89 21 9D 78 2C 83 CA 30 92 32 .m...Y.!.x,..0.2
000020: 7D 81 2E EA EE 6A 95 70 BA F3 03 49 4C 92 7E 42 }....j.p...IL.~B
000030: C4 80 43 A6 CA 86 32 E3 F3 16 C9 E4 AE 60 A4 69 ..C...2......`.i
000040: 95 08 F6 6A 3A B1 C2 07 A4 EB 8F FE 8F A2 3D CF ...j:.........=.
000050: 0B 41 32 4B 61 8F DD 0C AA 91 DD 60 D0 AD 70 01 .A2Ka......`..p.
000060: 66 48 58 FA 7F A6 95 A7 23 82 EE 32 79 C3 5A 74 fHX.....#..2y.Zt
000070: 88 36 BE AF 63 37 B7 EA D8 06 98 0F CE 68 C2 D6 .6..c7.......h..
000080: AA 05 1A C2 61 37 3F 15 6F C6 82 25 12 D4 5C F5 ....a7?.o..%..\.
000090: 30 47 0E 11 DF 21 FC D5 9C 60 8C 82 29 29 5D C6 0G...!...`..))].
0000A0: 2C 9A 2A FD 60 6B 60 CD B6 FE 03 A8 19 FB 04 AC ,.*.`k`.........
0000B0: F1 B9 B5 5F CF AC 3C 53 F3 EB E0 1D B4 38 BA 4F ..._..<S.....8.O
0000C0: 93 36 D7 C4 21 B2 07 5F B3 6D C2 84 AF C3 2A D8 .6..!.._.m....*.
0000D0: DF 35 C8 22 13 EE 52 00 D4 F4 BC EB 9F D5 30 79 .5."..R.......0y
0000E0: 01 28 2C B2 74 79 AC BB FC B9 F1 60 58 6D 7D 77 .(,.ty.....`Xm}w
0000F0: 85 4E CD AF A0 C5 B5 C2 89 78 6C 0E A2 90 D8 96 .N.......xl.....
000100: 53 00 E0 EA 6C CE 13 E3 B7 CF 7A 04 3B 88 6E 2A S...l.....z.;.n*
000110: 1D BB 03 1D DF 3F 8C A1 6A 70 53 9D CB 33 6A 36 .....?..jpS..3j6
000120: D3 FF 01 39 60 7F 94 9E B4 F2 C3 C9 40 FB 84 22 ...9`.......@.."
000130: 9A FA 30 80 A2 E1 43 36 F3 5D C9 6C AE 4C 9A 5B ..0...C6.].l.L.[
000140: BF 38 F8 58 14 9E 36 10 F2 B5 C3 BE 9D EF 7E 9A .8.X..6.......~.
000150: 1C 06 70 02 2A DC 86 1C F5 D9 8A 26 9F F5 30 45 ..p.*......&..0E
000160: 34 18 00 D7 45 9E 99 89 C8 AB DD 1F 69 FB 5C 5A 4...E.......i.\Z
000170: B6 02 92 6B A0 E5 83 EE DD 3B 98 2C 36 13 DB 1A ...k.....;.,6...
000180: 8B 18 DF C6 59 07 13 D8 A2 F3 4B 3F 0B F8 40 C0 ....Y.....K?..@.
000190: 32 68 2E 24 EF 75 A2 15 41 56 E1 B6 ED 30 7E 30 2h.$.u..AV...0~0
0001A0: 4B 8C 03 30 0D 4B E7 90 D6 81 77 DB 40 E0 95 31 K..0.K....w.@..1
0001B0: 8D 8E 34 A0 68 87 BD 73 C2 2F FB C4 9D EC 8B 5D ..4.h..s./.....]
0001C0: A1 24 E5 5D 1E 9E 2A 16 F3 AD C2 A4 9E F4 61 87 .$.]..*.......a.
0001D0: 06 05 69 19 3F C3 92 1C F5 D9 8D 25 8B E9 31 59 ..i.?......%..1Y
0001E0: 36 12 00 D7 45 97 85 88 D1 AA C6 00 77 EE 42 46 6...E.......w.BF
0001F0: B5 1A 8E 77 A1 F9 82 FA DC 3B B4 22 07 AA E0 BA ...w.....;."....
Size : 512 (Real : 512)
000000: C3 E2 20 CD AB 43 6F 70 79 72 69 67 68 74 20 28 .. ..Copyright (
000010: 43 29 20 31 39 38 35 20 42 4F 52 4C 41 4E 44 20 C) 1985 BORLAND
000020: 49 6E 63 00 04 00 A1 42 00 00 00 00 00 00 00 00 Inc....B........
000030: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000040: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000050: 00 00 00 06 5A 65 6E 69 74 68 64 65 72 20 43 50 ....Zenithder CP
000060: 43 34 36 34 2F 36 36 34 50 18 00 00 1C 00 0D 0D C464/664P.......
000070: 1C 01 01 01 1D 03 03 1B 1B 1B D5 00 1C 01 00 00 ................
000080: 1C 00 17 17 1D 17 17 EF 9E CD BD 04 1B 59 00 00 .............Y..
000090: 00 00 00 00 00 00 00 00 00 00 00 01 20 20 04 03 ............ ..
0000A0: 00 00 02 1B 45 00 00 00 00 00 00 00 00 00 02 1B ....E...........
0000B0: 4C 00 00 00 02 1B 4D 00 00 00 00 00 02 1B 4B 00 L.....M.......K.
0000C0: 00 00 02 1B 71 00 00 00 02 1B 70 00 00 00 00 00 ....q.....p.....
0000D0: 7E B7 37 C8 23 F5 E5 7E CD E8 01 E1 F1 3D C8 18 ~.7.#..~.....=..
0000E0: F3 CD 00 02 0D 0A 00 C9 6F E5 CD A6 00 C9 FE 80 ........o.......
0000F0: DC 6B 02 D4 84 02 E6 7F 18 EE E5 21 EE 01 18 04 .k.........!....
000100: E5 21 E8 01 22 13 02 E1 E3 F5 C5 D5 7E 23 B7 28 .!..".......~#.(
000110: 07 E5 CD E8 01 E1 18 F4 D1 C1 F1 E3 C9 7D B4 C8 .............}..
000120: 3A 24 01 87 87 87 E3 E3 E3 E3 C5 01 D2 04 C1 3D :$.............=
000130: 20 F4 2B 18 E8 CD D0 01 D8 2A CE 01 18 DF F5 C5 .+......*......
000140: D5 E5 21 A8 01 CD 35 02 21 A2 01 CD D0 01 2A BA ..!...5.!.....*.
000150: 01 D4 1D 02 E1 D1 C1 F1 C9 F5 C5 D5 E5 21 B4 01 .............!..
000160: 18 E9 F5 C5 D5 E5 21 AE 01 18 E0 F5 3A E0 00 B7 ......!.....:...
000170: 28 10 C5 D5 E5 AF 32 E0 00 21 C8 01 CD 35 02 E1 (.....2..!...5..
000180: D1 C1 F1 C9 F5 3A E0 00 FE FF 28 F6 C5 D5 E5 3E .....:....(....>
000190: FF 32 E0 00 21 C2 01 18 E3 F5 C5 D5 E5 21 BC 01 .2..!........!..
0001A0: 18 DA F5 C5 D5 E5 E5 11 F0 00 21 8B 01 01 10 00 ..........!.....
0001B0: ED B0 D1 3A 9E 01 4F 3A 9C 01 82 D5 CD DC 02 D1 ...:..O:........
0001C0: 3A 9F 01 4F 3A 9D 01 83 CD DC 02 21 F0 00 CD D0 :..O:......!....
0001D0: 01 2A A0 01 CD 1D 02 E1 D1 C1 F1 C9 21 F0 00 06 .*..........!...
0001E0: 00 09 EB 21 9B 01 34 35 28 02 12 C9 1B 1B 21 0A ...!..45(.....!.
0001F0: 03 06 03 2B 0E 2F 0C 96 30 FC 86 F5 79 FE 30 28 ...+./..0...y.0(
Size : 512 (Real : 512)
000000: 70 72 6F 67 72 61 6D 20 44 72 61 77 41 6C 74 65 program DrawAlte
000010: 72 6E 61 74 65 54 65 78 74 3B 0D 0A 0D 0A 7B 24 rnateText;....{$
000020: 49 20 74 79 70 65 64 65 66 2E 73 79 73 7D 20 20 I typedef.sys}
000030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000040: 20 20 20 20 20 20 20 20 20 20 20 7B 69 6E 63 6C {incl
000050: 75 73 20 6C 65 73 20 67 72 61 70 68 69 73 6D 65 us les graphisme
000060: 73 7D 0D 0A 7B 24 49 20 67 72 61 70 68 69 78 2E s}..{$I graphix.
000070: 73 79 73 7D 0D 0A 7B 24 49 20 6B 65 72 6E 65 6C sys}..{$I kernel
000080: 2E 73 79 73 7D 0D 0A 7B 24 49 20 6B 65 72 6E 65 .sys}..{$I kerne
000090: 6C 31 2E 73 79 73 7D 0D 0A 0D 0A 0D 0A 63 6F 6E l1.sys}......con
0000A0: 73 74 20 4D 61 78 57 6F 72 6C 64 58 3A 20 72 65 st MaxWorldX: re
0000B0: 61 6C 3D 31 30 30 30 2E 30 3B 0D 0A 20 20 20 20 al=1000.0;..
0000C0: 20 20 4D 61 78 57 6F 72 6C 64 59 3A 20 72 65 61 MaxWorldY: rea
0000D0: 6C 3D 31 30 30 30 2E 30 3B 0D 0A 20 20 20 20 20 l=1000.0;..
0000E0: 20 43 68 61 72 41 72 72 61 79 31 3A 20 61 72 72 CharArray1: arr
0000F0: 61 79 20 5B 30 2E 2E 32 35 5D 20 6F 66 20 63 68 ay [0..25] of ch
000100: 61 72 3D 20 20 7B 64 65 66 69 6E 69 74 20 75 6E ar= {definit un
000110: 20 74 61 62 6C 65 61 75 20 64 65 20 63 61 72 61 tableau de cara
000120: 63 74 65 72 65 73 7D 0D 0A 20 20 20 20 20 20 20 cteres}..
000130: 20 28 27 41 27 2C 27 42 27 2C 27 43 27 2C 27 44 ('A','B','C','D
000140: 27 2C 27 45 27 2C 27 46 27 2C 27 47 27 2C 27 48 ','E','F','G','H
000150: 27 2C 27 49 27 2C 27 4A 27 2C 27 4B 27 2C 27 4C ','I','J','K','L
000160: 27 2C 0D 0A 20 20 20 20 20 20 20 20 20 27 4D 27 ',.. 'M'
000170: 2C 27 4E 27 2C 27 4F 27 2C 27 50 27 2C 27 51 27 ,'N','O','P','Q'
000180: 2C 27 52 27 2C 27 53 27 2C 27 54 27 2C 27 55 27 ,'R','S','T','U'
000190: 2C 27 56 27 2C 27 57 27 2C 27 58 27 2C 27 59 27 ,'V','W','X','Y'
0001A0: 2C 27 5A 27 29 3B 0D 0A 0D 0A 76 61 72 20 69 3A ,'Z');....var i:
0001B0: 69 6E 74 65 67 65 72 3B 0D 0A 20 20 20 20 43 68 integer;.. Ch
0001C0: 61 72 48 65 69 67 68 74 2C 43 68 61 72 57 69 64 arHeight,CharWid
0001D0: 74 68 3A 72 65 61 6C 3B 0D 0A 0D 0A 62 65 67 69 th:real;....begi
0001E0: 6E 0D 0A 20 20 49 6E 69 74 47 72 61 70 68 69 63 n.. InitGraphic
0001F0: 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ;
Size : 512 (Real : 512)
000000: 01 12 13 F1 10 ED C9 01 0A 64 21 6B 01 C3 35 02 .........d!k..5.
000010: 21 7B 01 C3 35 02 11 03 00 CD 5F 03 E6 01 18 06 !{..5....._.....
000020: 11 06 00 CD 5F 03 6F 26 00 C9 11 12 00 18 F4 11 ...._.o&........
000030: 0C 00 18 08 11 0F 00 18 03 11 09 00 E1 C1 E5 3A ...............:
000040: DD 00 B7 28 1A D5 C5 CD A0 00 7C B5 28 0F CD E1 ...(......|.(...
000050: 03 FE 13 20 08 CD E1 03 FE 03 CA D4 20 C1 D1 2A ... ........ ..*
000060: 01 00 19 E9 22 D2 00 78 32 DD 00 79 B7 28 0B 3E ...."..x2..y.(.>
000070: C3 32 38 00 21 FB 1F 22 39 00 21 A5 03 11 A0 00 .28.!.."9.!.....
000080: 01 18 00 ED B0 21 BD 03 11 B8 00 01 0C 00 ED B0 .....!..........
000090: AF 6F 67 32 D0 00 22 D4 00 22 D6 00 3E 7E 32 D1 .og2..".."..>~2.
0000A0: 00 32 E0 00 C9 C3 16 03 C3 20 03 C3 39 03 C3 2F .2....... ..9../
0000B0: 03 C3 34 03 C3 2A 03 C3 39 03 C3 20 03 C1 00 82 ..4..*..9.. ....
0000C0: 00 43 00 C4 00 C5 00 C1 00 C5 D5 E5 DD E5 FD E5 .C..............
0000D0: F5 6F 26 00 E5 CD A6 00 F1 FD E1 DD E1 E1 D1 C1 .o&.............
0000E0: C9 C5 D5 E5 DD E5 FD E5 CD A3 00 7D 18 EB 0E FF ...........}....
0000F0: 18 0C 0E 00 ED 5B D2 00 13 1A FE 20 28 FA 21 65 .....[..... (.!e
000100: 00 06 03 CD 7B 04 1A CD A6 04 FE 41 38 12 FE 51 ....{......A8..Q
000110: 30 0E 47 13 1A FE 3A 20 06 78 D6 40 13 18 02 1B 0.G...: .x.@....
000120: AF 21 5C 00 77 23 0C 0D 28 19 1A CD 82 04 20 13 .!\.w#..(..... .
000130: FE 3F 28 0F FE 2A 28 0B FE 2E 28 07 06 0B CD 77 .?(..*(...(....w
000140: 04 18 10 06 08 CD 5E 04 1A FE 2E 20 06 13 06 03 ......^.... ....
000150: CD 5E 04 21 68 00 06 18 36 00 23 10 FB C9 1A 0C .^.!h...6.#.....
000160: 0D 28 08 FE 3F 28 09 FE 2A 28 0B CD 82 04 28 0B .(..?(..*(....(.
000170: 77 23 13 10 E9 C9 13 3E 3F 18 02 3E 20 77 23 10 w#.....>?..> w#.
000180: FC C9 CD A6 04 FE 20 38 0D E5 C5 21 98 04 01 0E ...... 8...!....
000190: 00 ED B1 C1 E1 C9 BF C9 20 2E 2C 3B 3A 3D 3F 2A ........ .,;:=?*
0001A0: 5B 5D 3C 3E 7B 7D FE 61 D8 FE 7B D0 D6 20 C9 7C []<>{}.a..{.. .|
0001B0: CD B4 04 7D F5 1F 1F 1F 1F CD BD 04 F1 E6 0F C6 ...}............
0001C0: 90 27 CE 40 27 C3 C9 03 AF 37 CB 7C C0 7C B7 7D .'.@'....7.|.|.}
0001D0: C8 3E FF C9 32 D8 00 C5 CD AF 1E C1 2A 06 00 B7 .>..2.......*...
0001E0: ED 42 DA A8 20 EB D1 F9 01 00 FC 09 22 C6 00 AF .B.. ......."...
0001F0: 6F 67 22 CE 00 32 DC 00 3E C3 32 D9 00 21 DE 20 og"..2..>.2..!.
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000010: 7B 69 6E 69 74 69 61 6C 69 73 65 20 6C 65 73 20 {initialise les
000020: 67 72 61 70 68 69 73 6D 65 73 7D 0D 0A 0D 0A 20 graphismes}....
000030: 20 44 65 66 69 6E 65 57 6F 72 6C 64 28 31 2C 30 DefineWorld(1,0
000040: 2C 4D 61 78 57 6F 72 6C 64 59 2C 4D 61 78 57 6F ,MaxWorldY,MaxWo
000050: 72 6C 64 58 2C 30 29 3B 20 20 20 20 7B 64 65 66 rldX,0); {def
000060: 69 6E 69 74 20 6C 65 20 6D 6F 6E 64 65 20 61 20 init le monde a
000070: 64 65 73 73 69 6E 65 72 7D 0D 0A 20 20 53 65 6C dessiner}.. Sel
000080: 65 63 74 57 6F 72 6C 64 28 31 29 3B 0D 0A 20 20 ectWorld(1);..
000090: 53 65 6C 65 63 74 57 69 6E 64 6F 77 28 31 29 3B SelectWindow(1);
0000A0: 0D 0A 20 20 44 72 61 77 42 6F 72 64 65 72 3B 0D .. DrawBorder;.
0000B0: 0A 0D 0A 20 20 46 6F 72 20 69 3A 3D 31 20 74 6F ... For i:=1 to
0000C0: 20 35 30 20 64 6F 20 20 20 20 20 20 20 20 20 20 50 do
0000D0: 20 20 20 7B 61 66 66 69 63 68 65 20 61 6C 65 61 {affiche alea
0000E0: 74 6F 69 72 65 6D 65 6E 74 20 64 65 73 20 63 61 toirement des ca
0000F0: 72 61 63 74 65 72 65 73 20 61 75 20 63 65 6E 74 racteres au cent
000100: 72 65 20 64 65 20 6C 27 27 65 63 72 61 6E 7D 0D re de l''ecran}.
000110: 0A 20 20 20 20 20 20 44 72 61 77 54 65 78 74 57 . DrawTextW
000120: 28 72 61 6E 64 6F 6D 28 36 30 30 29 2B 32 30 30 (random(600)+200
000130: 2C 72 61 6E 64 6F 6D 28 36 30 30 29 2B 32 30 30 ,random(600)+200
000140: 2C 72 61 6E 64 6F 6D 28 35 29 2C 0D 0A 20 20 20 ,random(5),..
000150: 20 20 20 20 20 20 20 20 20 20 20 20 20 43 68 61 Cha
000160: 72 41 72 72 61 79 31 5B 72 61 6E 64 6F 6D 28 32 rArray1[random(2
000170: 36 29 5D 29 3B 0D 0A 0D 0A 20 20 44 72 61 77 54 6)]);.... DrawT
000180: 65 78 74 57 28 31 35 2C 35 30 2C 31 2C 27 41 42 extW(15,50,1,'AB
000190: 43 44 45 46 47 48 49 4A 4B 4C 4D 4E 4F 50 51 52 CDEFGHIJKLMNOPQR
0001A0: 53 54 55 56 57 58 59 5A 27 29 3B 20 20 20 20 20 STUVWXYZ');
0001B0: 20 7B 66 72 61 70 70 65 20 64 65 20 63 61 72 61 {frappe de cara
0001C0: 63 74 65 72 65 73 20 64 61 6E 73 20 6C 65 20 63 cteres dans le c
0001D0: 6F 69 6E 7D 0D 0A 20 20 44 72 61 77 54 65 78 74 oin}.. DrawText
0001E0: 57 28 31 35 2C 31 30 30 2C 31 2C 27 61 62 63 64 W(15,100,1,'abcd
0001F0: 65 66 67 68 69 6A 6B 6C 6D 6E 6F 70 71 72 73 74 efghijklmnopqrst
Size : 512 (Real : 512)
000000: 22 DA 00 EB 22 CC 00 E9 E5 2A C6 00 B7 ED 42 22 "..."....*....B"
000010: C6 00 ED 5B C4 00 B7 ED 52 19 EB E1 DA 75 1D ED ...[....R....u..
000020: B0 C9 2A C6 00 ED B0 22 C6 00 D9 C9 5E 23 56 23 ..*...."....^#V#
000030: D5 5E 23 56 23 4E 23 46 E1 C9 DD E1 EB 1A 4F 06 .^#V#N#F......O.
000040: 00 2F 6F 26 FF 39 F9 EB 03 ED B0 DD E9 D1 1A 4F ./o&.9.........O
000050: 06 00 2F 6F 26 FF 39 F9 EB 03 ED B0 E9 DD E1 EB ../o&.9.........
000060: 21 E0 FF 39 F9 EB C5 04 05 28 05 AF 12 13 10 FC !..9.....(......
000070: ED B0 C1 3E 20 90 91 28 06 47 AF 12 13 10 FC DD ...> ..(.G......
000080: E9 DD E1 21 E0 FF 39 F9 06 20 AF 77 23 10 FC DD ...!..9.. .w#...
000090: E9 DD E1 45 CD BA 05 B6 77 DD E9 DD E1 D1 7D 93 ...E....w.....}.
0000A0: 38 F7 3C 4F 43 CD BA 05 5F 41 AF B3 CB 23 30 06 8.<OC..._A...#0.
0000B0: B6 77 23 AF 1E 01 10 F3 18 DD 78 E6 F8 0F 0F 0F .w#.......x.....
0000C0: C6 02 6F 26 00 39 78 E6 07 3C 47 AF 37 17 10 FD ..o&.9x..<G.7...
0000D0: C9 E5 D9 EB E3 73 23 72 23 D1 73 23 72 23 71 23 .....s#r#.s#r#q#
0000E0: 70 C9 DD E1 78 EB 21 00 00 44 39 4E E5 09 23 E3 p...x.!..D9N..#.
0000F0: B9 38 01 79 12 13 23 B7 28 03 4F ED B0 E1 F9 DD .8.y..#.(.O.....
000100: E9 DD E1 78 21 00 00 44 39 4E E5 09 23 5E 23 56 ...x!..D9N..#^#V
000110: 18 DC DD E1 EB 68 26 00 44 39 ED B0 21 20 00 39 .....h&.D9..! .9
000120: F9 DD E9 DD E1 21 20 00 39 5E 23 56 68 26 00 44 .....! .9^#Vh&.D
000130: 39 ED B0 21 22 00 18 E7 DD E1 EB 78 2F 6F 26 FF 9..!"......x/o&.
000140: 39 F9 70 23 48 06 00 EB ED B0 DD E9 B7 ED 52 19 9.p#H.........R.
000150: D8 3E 90 C3 27 20 B7 ED 52 B7 ED 42 30 03 09 19 .>..' ..R..B0...
000160: C9 3E 91 C3 27 20 B7 ED 52 EB 13 EA 71 06 F0 18 .>..' ..R...q...
000170: 01 F8 11 00 00 C9 D5 EB B7 ED 52 EB E1 18 EB B7 ..........R.....
000180: ED 52 21 01 00 C8 2B C9 CD DF 0B 18 F5 CD B0 09 .R!...+.........
000190: 18 F0 B7 ED 52 21 01 00 C0 2B C9 CD DF 0B 18 F5 ....R!...+......
0001A0: CD B0 09 18 F0 CD 72 07 21 01 00 D0 2B C9 CD DF ......r.!...+...
0001B0: 0B 18 F5 CD B0 09 18 F0 CD 72 07 21 01 00 C8 D8 .........r.!....
0001C0: 2B C9 CD DF 0B 18 F4 CD B0 09 18 EF CD 72 07 21 +............r.!
0001D0: 00 00 C8 D8 23 C9 CD DF 0B 18 F4 CD B0 09 18 EF ....#...........
0001E0: CD 72 07 21 01 00 D8 2B C9 CD DF 0B 18 F5 CD B0 .r.!...+........
0001F0: 09 18 F0 54 5D 4B 42 EB 21 00 00 7A B7 3E 10 20 ...T]KB.!..z.>.
Size : 512 (Real : 512)
000000: 75 76 77 78 79 7A 27 29 3B 0D 0A 20 20 44 72 61 uvwxyz');.. Dra
000010: 77 54 65 78 74 57 28 31 35 2C 31 35 30 2C 31 2C wTextW(15,150,1,
000020: 27 31 32 33 34 35 36 37 38 39 30 2D 3D 5C 60 7E '1234567890-=\`~
000030: 21 40 23 24 25 5E 26 2A 28 29 5F 2B 7C 27 29 3B !@#$%^&*()_+|');
000040: 0D 0A 20 20 44 72 61 77 54 65 78 74 57 28 31 35 .. DrawTextW(15
000050: 2C 32 30 30 2C 31 2C 27 5B 5D 7B 7D 3A 22 3B 2C ,200,1,'[]{}:";,
000060: 2E 3C 3E 2F 3F 27 29 3B 0D 0A 0D 0A 20 20 72 65 .<>/?');.... re
000070: 70 65 61 74 20 75 6E 74 69 6C 20 6B 65 79 70 72 peat until keypr
000080: 65 73 73 65 64 3B 20 20 20 20 20 20 20 20 20 20 essed;
000090: 20 20 20 20 20 20 20 20 20 7B 61 74 74 65 6E 64 {attend
0000A0: 20 6A 75 73 71 75 27 27 61 20 63 65 20 71 75 65 jusqu''a ce que
0000B0: 20 75 6E 65 20 74 6F 75 63 68 65 20 73 6F 69 74 une touche soit
0000C0: 20 66 72 61 70 70 65 65 7D 0D 0A 20 20 4C 65 61 frappee}.. Lea
0000D0: 76 65 47 72 61 70 68 69 63 3B 20 20 20 20 20 20 veGraphic;
0000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000F0: 20 20 20 20 20 20 20 20 7B 71 75 69 74 74 65 20 {quitte
000100: 6C 65 20 73 79 73 74 65 6D 65 20 67 72 61 70 68 le systeme graph
000110: 69 71 75 65 7D 0D 0A 65 6E 64 2E 1A 1A 1A 1A 1A ique}..end......
000120: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000130: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000140: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000150: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000160: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000170: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000180: 65 78 74 57 28 31 35 2C 35 30 2C 31 2C 27 41 42 extW(15,50,1,'AB
000190: 43 44 45 46 47 48 49 4A 4B 4C 4D 4E 4F 50 51 52 CDEFGHIJKLMNOPQR
0001A0: 53 54 55 56 57 58 59 5A 27 29 3B 20 20 20 20 20 STUVWXYZ');
0001B0: 20 7B 66 72 61 70 70 65 20 64 65 20 63 61 72 61 {frappe de cara
0001C0: 63 74 65 72 65 73 20 64 61 6E 73 20 6C 65 20 63 cteres dans le c
0001D0: 6F 69 6E 7D 0D 0A 20 20 44 72 61 77 54 65 78 74 oin}.. DrawText
0001E0: 57 28 31 35 2C 31 30 30 2C 31 2C 27 61 62 63 64 W(15,100,1,'abcd
0001F0: 65 66 67 68 69 6A 6B 6C 6D 6E 6F 70 71 72 73 74 efghijklmnopqrst
Size : 512 (Real : 512)
000000: 03 53 3E 08 29 EB 29 EB 30 01 09 3D 20 F6 C9 7C .S>.).).0..= ..|
000010: B5 CA 03 0A 7C AA F5 CD 80 07 EB CD 80 07 EB 44 ....|..........D
000020: 4D AF 67 6F 3E 11 ED 6A ED 42 30 02 09 37 3F CB M.go>..j.B0..7?.
000030: 13 CB 12 3D 20 F0 EB F1 F0 18 48 E5 CD 92 07 CB ...= .....H.....
000040: 3C CB 1D D1 EB CD 0F 07 EB CB 7A C8 18 35 CD 61 <.........z..5.a
000050: 07 C8 29 10 FD C9 CD 61 07 C8 CB 3C CB 1D 10 FA ..)....a...<....
000060: C9 EB 7A B7 20 08 7B FE 10 30 03 47 B7 C9 AF 67 ..z. .{..0.G...g
000070: 6F C9 EB 7C AA 7C FA 7E 07 BA C0 7D BB C9 17 C9 o..|.|.~...}....
000080: CB 7C C8 7C 2F 67 7D 2F 6F 23 C9 7D E6 01 6F 26 .|.|/g}/o#.}..o&
000090: 00 C9 ED 4B CA 00 ED 5B C8 00 C5 D5 78 41 4A 53 ...K...[....xAJS
0000A0: 1E 00 1F CB 18 CB 19 CB 1A CB 1B E1 19 EB E1 ED ................
0000B0: 4A 44 4D 21 E9 62 19 22 C8 00 EB 21 19 36 ED 4A JDM!.b."...!.6.J
0000C0: 22 CA 00 44 4D C9 06 00 11 10 27 CD E2 07 11 E8 "..DM.....'.....
0000D0: 03 CD E2 07 11 64 00 CD E2 07 1E 0A CD E2 07 7D .....d.........}
0000E0: 18 0D AF 3C ED 52 30 FB 19 04 3D 20 02 05 C8 C6 ...<.R0...= ....
0000F0: 30 DD 77 00 DD 23 C9 DD 7E 00 D6 24 4F 21 00 00 0.w..#..~..$O!..
000100: 20 02 DD 23 DD 7E 00 CD A6 04 D6 30 38 29 FE 0A ..#.~.....08)..
000110: 38 0E 0C 0D 20 21 D6 07 FE 0A 38 1B FE 10 30 17 8... !....8...0.
000120: 54 5D 29 D8 29 D8 0C 0D 20 02 54 5D 19 D8 29 D8 T]).)... .T]..).
000130: 5F 16 00 19 D8 18 CB 79 B7 C8 7C 87 C9 DD E1 E1 _......y..|.....
000140: E5 7D 26 00 23 39 4E 81 38 1C 77 EB 21 00 00 44 .}&.#9N.8.w.!..D
000150: ED 42 39 F9 EB E5 03 ED B0 EB E1 2B 1B 4F 03 ED .B9........+.O..
000160: B8 EB 23 F9 DD E9 3E 10 C3 29 20 DD E1 CD C8 04 ..#...>..) .....
000170: 57 E1 CD DD 09 5F E1 E5 7D 93 38 1A 14 15 28 16 W...._..}.8...(.
000180: BA 38 16 4A 06 00 60 39 7B 82 54 5D 3D 6F 60 39 .8.J..`9{.T]=o`9
000190: 79 ED B8 EB 18 09 AF 18 03 3C 6B 2D 26 00 39 77 y........<k-&.9w
0001A0: F9 DD E9 DD E1 E1 E5 7D 26 00 23 39 F9 6F 26 00 .......}&.#9.o&.
0001B0: DD E9 DD E1 21 00 00 54 39 5E 4B 23 E5 19 5E 43 ....!..T9^K#..^C
0001C0: 23 E5 19 E5 FD E1 D1 E1 79 90 38 10 3C 4F C5 D5 #.......y.8.<O..
0001D0: E5 1A BE 28 0C E1 D1 C1 23 0D 20 F2 21 00 00 18 ...(....#. .!...
0001E0: 0E 23 13 10 EC D1 E1 C1 21 00 00 39 EB ED 52 FD .#......!..9..R.
0001F0: F9 DD E9 DD E1 CD C8 04 4F E1 CD DD 09 5F E1 7E ........O...._.~
Size : 512 (Real : 512)
000000: CB B8 7D D9 D6 80 6F 9F 67 11 4D 00 CD F5 06 11 ..}...o.g.M.....
000010: 05 00 19 7C FE D9 20 01 3C FD 77 00 ED 44 CD 40 ...|.. .<.w..D.@
000020: 12 7D FE 81 30 06 CD B3 12 FD 35 00 CB F8 3E 84 .}..0.....5...>.
000030: 95 2E 00 28 08 CD 7A 0B CB 1D 3D 20 F8 FD 7E 00 ...(..z...= ..~.
000040: F5 3E 0C 08 78 1F 1F 1F 1F E6 0F C6 30 FD 77 00 .>..x.......0.w.
000050: FD 23 78 E6 0F 47 C5 D5 E5 CB 25 CD 87 0B CB 25 .#x..G....%....%
000060: CD 87 0B EB E3 19 D1 E3 ED 5A EB E1 E3 ED 4A 44 .........Z....JD
000070: 4D E1 CB 25 CD 87 0B 08 3D 20 C8 F1 C1 FD E1 C9 M..%....= ......
000080: FD E5 E1 5F 16 00 19 7E 36 00 FE 35 D8 1D FA 9C ..._...~6..5....
000090: 11 2B 7E 3C 77 FE 3A D8 36 00 18 F1 36 31 23 36 .+~<w.:.6...61#6
0000A0: 00 0C C9 D9 01 00 00 D9 CD 72 0B DD 7E 00 CD A6 .........r..~...
0000B0: 04 FE 2E 20 0C D9 CB 70 37 C0 CB F0 D9 DD 23 18 ... ...p7.....#.
0000C0: EA FE 45 28 21 CD 39 12 30 54 08 CD B3 12 D8 08 ..E(!.9.0T......
0000D0: D9 C5 6F 26 00 CD 08 10 CD E9 09 D9 C1 D8 CB 70 ..o&...........p
0000E0: 28 01 0D D9 18 D7 CD 1E 12 D8 D9 CB E0 DD 23 DD (.............#.
0000F0: 7E 00 FE 2B 28 06 FE 2D 20 04 CB E8 DD 23 CD 36 ~..+(..- ....#.6
000100: 12 3F D8 4F DD 23 CD 36 12 30 0A DD 23 57 79 87 .?.O.#.6.0..#Wy.
000110: 87 81 87 82 4F CB 68 28 04 79 ED 44 4F D9 D9 79 ....O.h(.y.DO..y
000120: C6 80 FE 5A D8 FE A6 3F D8 C5 DD E5 79 CD 40 12 ...Z...?....y.@.
000130: DD E1 D9 C1 D9 C9 DD 7E 00 D6 30 3F D0 FE 0A C9 .......~..0?....
000140: F5 B7 F2 47 12 ED 44 F5 CB 3F CB 3F 3C 21 FA FF ...G..D..?.?<!..
000150: 11 06 00 19 3D 20 FC EB DD 21 77 12 DD 19 CD 73 ....= ...!w....s
000160: 0F F1 E6 03 28 08 F5 CD B3 12 F1 3D 20 F8 F1 B7 ....(......= ...
000170: F2 97 0A D9 C3 F5 0A 81 00 00 00 00 00 8E 00 00 ................
000180: 00 40 1C 9B 00 00 20 BC 3E A8 00 10 A5 D4 68 B6 .@.... .>.....h.
000190: 04 BF C9 1B 0E C3 AC C5 EB 78 2D D0 CD CE 1B C2 .........x-.....
0001A0: 53 DE F9 78 39 3F 01 EB 2B A8 AD C5 1D F8 C9 7B S..x9?..+......{
0001B0: CE 97 40 7D B7 C8 CB F8 C5 D5 7C CD 7A 0B CD 7A ..@}......|.z..z
0001C0: 0B 84 67 E3 ED 5A EB E1 E3 ED 4A 44 4D E1 30 06 ..g..Z....JDM.0.
0001D0: CD 7B 0B 2C 37 C8 7D C6 03 6F CB B8 C9 0E 01 18 .{.,7.}..o......
0001E0: 02 0E 00 CD 3F 13 1A BE 20 08 23 13 10 F8 79 EE ....?... .#...y.
0001F0: 01 4F 21 40 00 39 F9 69 26 00 DD E9 0E 01 18 02 .O!@.9.i&.......
Size : 512 (Real : 512)
000000: 93 38 1B 0C 0D 28 17 91 38 12 F5 7E 91 77 06 00 .8...(..8..~.w..
000010: 50 19 54 5D 09 F1 3C 4F ED B0 18 02 1D 73 DD E9 P.T]..<O.....s..
000020: DD E1 CD DD 09 4F D1 ED 53 E8 00 21 00 00 39 1A .....O..S..!..9.
000030: F5 86 38 03 B8 38 01 78 12 F1 57 5E 91 38 2F 3C ..8..8.x..W^.8/<
000040: 6F 7A 83 38 04 B8 7D 38 08 78 93 38 26 91 38 23 oz.8..}8.x.8&.8#
000050: 3C B7 28 1F C5 D5 2A E8 00 5F 1D 16 00 42 19 09 <.(...*.._...B..
000060: D1 D5 E5 50 19 EB E1 4F ED B8 D1 C1 18 05 7A 3C ...P...O......z<
000070: 28 19 4F 78 91 3C BB 38 01 7B B7 28 0E 2A E8 00 (.Ox.<.8.{.(.*..
000080: 06 00 09 EB 21 01 00 39 4F ED B0 21 00 00 54 39 ....!..9O..!..T9
000090: 5E 13 19 F9 DD E9 DD E1 E1 2D C2 66 08 6C 26 00 ^........-.f.l&.
0000A0: DD E9 21 02 00 54 39 5E 13 19 7E 36 01 23 77 C9 ..!..T9^..~6.#w.
0000B0: 21 04 00 54 39 5E 4B 23 E5 19 5E 43 23 E5 19 E5 !..T9^K#..^C#...
0000C0: FD E1 D1 E1 AF B8 28 04 B9 20 08 78 B9 E1 D1 FD ......(.. .x....
0000D0: F9 D5 E9 1A BE 20 F6 23 13 05 0D 18 E7 7C B7 20 ..... .#.....|.
0000E0: 03 7D B7 C0 3E 11 C3 29 20 CD 0D 0A D0 3E 01 C3 .}..>..) ....>..
0000F0: 27 20 CD 81 0A 18 F5 CD AC 0F CD 97 0A 18 ED D9 ' ..............
000100: 7D B7 D9 3E 02 CA 27 20 CD F5 0A 18 DF D9 CB 78 }..>..' .......x
000110: D9 C2 88 0A D9 7D B7 D9 C8 D9 C5 D5 E5 D9 7D B7 .....}........}.
000120: 20 05 D9 CB B8 18 54 C5 CB F8 AF 08 D9 CB F8 7D .....T........}
000130: D9 95 28 13 30 06 ED 44 08 3D 08 D9 CD 7A 0B 2C ..(.0..D.=...z.,
000140: 3D 20 F9 08 28 01 D9 F1 E6 80 20 0F CD 92 0B 30 = ..(..... ....0
000150: 25 CD 7B 0B B7 2C 20 1E 37 18 20 CD C6 0B 3F F5 %.{.., .7. ...?.
000160: 28 10 38 01 D9 CD AC 0B CB 78 20 09 CD 86 0B 2D (.8......x ....-
000170: 20 F6 CD 72 0B F1 38 02 CB B8 B7 D9 E1 D1 C1 D9 ..r..8.........
000180: C9 D9 CB 78 D9 C2 14 0A CD 8F 0A CD 14 0A D8 2C ...x...........,
000190: 2D C8 78 EE 80 47 C9 D9 7D B7 D9 CA 72 0B 7D B7 -.x..G..}...r.}.
0001A0: C8 D9 85 D9 CD 4D 0B C5 D5 E5 DD 39 CD 72 0B D9 .....M.....9.r..
0001B0: 2E 05 D9 3E 08 DD 23 DD 6E 00 08 CB 1D 30 03 CD ...>..#.n....0..
0001C0: 92 0B CD 7B 0B 08 3D 20 F1 D9 2D D9 20 E5 DD 6E ...{..= ..-. ..n
0001D0: FB CB 78 20 09 08 CD 87 0B 2C 2D 28 01 2D F1 F1 ..x .....,-(.-..
0001E0: F1 B7 08 F1 D9 C1 E1 D9 DD E1 CB B8 B0 47 2C 2D .............G,-
0001F0: CC 72 0B 08 C9 7D B7 C8 D9 95 D9 3F CD 4D 0B E5 .r...}.....?.M..
Size : 512 (Real : 512)
000000: 0E 00 CD 3F 13 0D 20 01 EB 0E 00 1A B6 BE 20 E2 ...?.. ....... .
000010: 23 13 10 F7 0E 01 18 DA CD 3F 13 1A B6 77 23 13 #........?...w#.
000020: 10 F9 EB F9 DD E9 CD 3F 13 1A 2F A6 77 23 13 10 .......?../.w#..
000030: F8 18 EF CD 3F 13 1A A6 77 23 13 10 F9 18 E3 FD ....?...w#......
000040: E1 DD E1 21 00 00 39 EB 21 20 00 45 39 FD E9 DD ...!..9.! .E9...
000050: E1 21 21 00 39 7E B7 28 03 AF 18 06 2B 46 CD BA .!!.9~.(....+F..
000060: 05 A6 21 22 00 39 F9 21 00 00 28 01 23 DD E9 3E ..!".9.!..(.#..>
000070: AF 32 E8 00 FD E1 2A D2 00 06 10 CD E2 05 AF 12 .2....*.........
000080: E1 22 E2 00 FD E5 7C B7 20 06 3E 22 32 D0 00 C9 ."....|. .>"2...
000090: 3A E8 00 B7 28 0A CD B6 13 20 05 2A E2 00 77 C9 :...(.... .*..w.
0000A0: CD F2 03 2A E2 00 36 00 11 0C 00 19 EB 21 5C 00 ...*..6......!\.
0000B0: 01 24 00 ED B0 C9 06 06 21 E6 13 C5 E5 06 03 ED .$......!.......
0000C0: 5B D2 00 13 1A FE 20 28 FA 1A CD A6 04 96 28 0A [..... (......(.
0000D0: E1 C1 11 04 00 19 10 E3 B7 C9 23 13 10 EB C1 C1 ..........#.....
0000E0: 1A FE 3A C0 7E C9 43 4F 4E C1 54 52 4D C1 4B 42 ..:.~.CON.TRM.KB
0000F0: 44 82 4C 53 54 43 41 55 58 C4 55 53 52 C5 3E AF D.LSTCAUX.USR.>.
000100: 32 E8 00 CD 69 14 3A D0 00 B7 C0 2A E2 00 CB AE 2...i.:....*....
000110: 7E E6 0F C0 CD 30 14 3A D0 00 B7 C0 2A E2 00 3A ~....0.:....*..:
000120: E8 00 B7 01 80 80 28 03 01 40 00 71 23 23 70 C9 ......(..@.q##p.
000130: CD 5A 14 2A E2 00 11 0C 00 19 EB 3A E8 00 B7 01 .Z.*.......:....
000140: 0F 01 28 0A D5 0E 13 CD 05 00 D1 01 16 F1 C5 CD ..(.............
000150: 05 00 C1 3C C0 78 32 D0 00 C9 2A E2 00 11 18 00 ...<.x2...*.....
000160: 19 06 18 36 00 23 10 FB C9 22 E2 00 7E E6 0F C0 ...6.#..."..~...
000170: CB 76 28 0A 3E 1A CD C6 16 CD 0C 17 18 03 CB 7E .v(.>..........~
000180: C8 2A E2 00 E5 11 0C 00 19 EB 0E 10 CD 05 00 E1 .*..............
000190: 3C 20 05 3E FF 32 D0 00 36 00 C9 E3 22 E4 00 E3 < .>.2..6..."...
0001A0: E5 21 C2 00 22 E2 00 E1 C9 E3 22 E4 00 E3 22 E2 .!.."....."...".
0001B0: 00 CB 7E C0 3E 02 32 D0 00 C9 E3 22 E4 00 E3 22 ..~.>.2...."..."
0001C0: E2 00 CB 76 C0 3E 03 32 D0 00 C9 3E AF E3 22 E4 ...v.>.2...>..".
0001D0: 00 E3 E5 21 C2 00 22 E2 00 CB AE F5 CD E8 14 F1 ...!..".........
0001E0: B7 28 03 CD E1 01 E1 C9 06 00 21 D1 00 7E FE 7F .(........!..~..
0001F0: 38 02 3E 7E 4F 36 7E 2A D2 00 22 D4 00 16 00 CD 8.>~O6~*..".....
Size : 512 (Real : 512)
000000: E5 E5 DD 39 D9 2E 05 D9 3E 08 08 CD C6 0B 38 03 ...9....>.....8.
000010: CD AC 0B 3F CB 15 08 3D 20 0C DD 75 05 DD 2B D9 ...?...= ..u..+.
000020: 2D D9 28 0E 3E 08 CD 86 0B 30 DF 08 CD AC 0B B7 -.(.>....0......
000030: 18 E1 CD 86 0B 38 04 CD C6 0B 3F E1 D1 C1 CB 78 .....8....?....x
000040: 20 05 CD 87 0B 18 9A 2C 20 97 37 18 95 38 06 C6 ......, .7..8..
000050: 80 38 06 18 1B C6 80 38 17 6F DD E3 D9 E5 C5 78 .8.....8.o.....x
000060: CB F8 D9 A8 E6 80 F5 CB F8 DD E5 DD 21 00 00 C9 ............!...
000070: E1 D8 AF 6F 47 4F 57 5F 67 C9 B7 CB 18 CB 19 CB ...oGOW_g.......
000080: 1A CB 1B CB 1C C9 B7 CB 14 CB 13 CB 12 CB 11 CB ................
000090: 10 C9 7C D9 84 D9 67 7B D9 8B D9 5F 7A D9 8A D9 ..|...g{..._z...
0000A0: 57 79 D9 89 D9 4F 78 D9 88 D9 47 C9 7C D9 94 D9 Wy...Ox...G.|...
0000B0: 67 7B D9 9B D9 5F 7A D9 9A D9 57 79 D9 99 D9 4F g{..._z...Wy...O
0000C0: 78 D9 98 D9 47 C9 78 D9 B8 D9 C0 79 D9 B9 D9 C0 x...G.x....y....
0000D0: 7A D9 BA D9 C0 7B D9 BB D9 C0 7C D9 BC D9 C9 D9 z....{....|.....
0000E0: 78 D9 A8 F2 E9 0B 78 17 C9 CB 78 28 06 CD F3 0B x.....x...x(....
0000F0: C8 3F C9 7D D9 BD D9 C0 B7 C8 C3 C6 0B 7D D6 81 .?.}.........}..
000100: DA 72 0B 3C FE 28 D0 D9 C5 D5 E5 08 CD 72 0B 08 .r.<.(.......r..
000110: 37 CD 7B 0B 3D 20 F9 D9 7C D9 A4 D9 67 7B D9 A3 7.{.= ..|...g{..
000120: D9 5F 7A D9 A2 D9 57 79 D9 A1 D9 4F 78 D9 A0 D9 ._z...Wy...Ox...
000130: 47 C3 7B 0A D9 C5 D5 E5 D9 CD AC 0F D9 CD FD 0B G.{.............
000140: D9 CD 81 0A 18 EB 7D B7 C8 CB 78 3E 03 C2 27 20 ......}...x>..'
000150: CD AC 0F 7D C6 80 CB 2F C6 80 6F D6 14 F5 D9 C5 ...}.../..o.....
000160: D5 E5 CD F5 0A CD 0D 0A 2D C5 D5 E5 CD 81 0A 7D ........-......}
000170: E1 D1 C1 D9 E1 D1 C1 E3 BC E3 30 E3 F1 D9 C9 D9 ..........0.....
000180: CD 8E 0F 2D CD 81 0A D9 CD 8E 0F 2C D9 7D FE 6C ...-.......,.}.l
000190: D8 C5 CB B8 CD DF 0B C1 38 09 CD F5 0A CD 34 0C ........8.....4.
0001A0: CD 97 0A CB 78 28 03 CD 0D 0A D9 2D D9 CD DF 0B ....x(.....-....
0001B0: F5 38 03 CD 81 0A D9 2D D9 CD DF 0B 38 05 D9 2C .8.....-....8..,
0001C0: CD 81 0A 7D FE 6C 38 3B D9 01 AA 2A 11 AA AA 21 ...}.l8;...*...!
0001D0: 7F AA CD 97 0A DD E5 DD 21 07 0D 3E 05 CD 34 0F ........!..>..4.
0001E0: DD E1 CD AC 0F CD 97 0A CD 97 0A C5 D5 E5 D9 CD ................
0001F0: AC 0F 2D 2D D9 2D CD 0D 0A D9 E1 D1 C1 D9 CD 81 ..--.-..........
Size : 512 (Real : 512)
000000: E1 03 77 1E 01 FE 08 28 36 FE 7F 28 32 1D FE 18 ..w....(6..(2...
000010: 28 2D FE 1B 28 29 FE 1A 28 36 FE 0D 28 38 FE 20 (-..()..(6..(8.
000020: 30 11 FE 03 20 D9 3A DD 00 B7 28 D3 DD 2A E4 00 0... .:...(..*..
000030: C3 16 20 79 BA 28 C8 7E 14 23 CD C9 03 18 C0 15 .. y.(.~.#......
000040: FA FD 14 2B CD 00 02 08 20 08 00 1D 28 B1 18 EF ...+.... ...(...
000050: 04 05 28 AB 18 04 04 05 20 04 36 1A 18 08 CD E1 ..(..... .6.....
000060: 01 36 0D 23 36 0A 23 22 D6 00 C9 2A E2 00 3A D0 .6.#6.#"...*..:.
000070: 00 B7 20 79 7E CB 6F 20 70 E6 0F 20 2E 23 23 7E .. y~.o p.. .##~
000080: B7 F2 97 15 0E 14 E5 CD BA 19 E1 28 08 E5 11 2E ...........(....
000090: 00 19 36 1A E1 AF 77 34 C6 2E 5F 16 00 19 7E FE ..6...w4.._...~.
0000A0: 1A 20 3D 2A E2 00 23 23 35 18 35 3D 20 1B 2A D4 . =*..##5.5= .*.
0000B0: 00 ED 5B D6 00 B7 ED 52 38 05 06 FF CD EA 14 2A ..[....R8......*
0000C0: D4 00 7E 23 22 D4 00 18 17 3D 20 06 CD A3 00 7D ..~#"....= ....}
0000D0: 18 0E 3D 3D 20 06 CD AF 00 7D 18 04 CD B5 00 7D ..== ....}.....}
0000E0: 2A E2 00 CB EE 23 77 2B C9 23 7E 2B C9 3E 1A C9 *....#w+.#~+.>..
0000F0: E5 2A E2 00 7E E6 0F FE 06 28 27 CD 6B 15 FE 21 .*..~....('.k..!
000100: 30 08 FE 1A 28 04 CB AE 18 F1 11 5D 00 06 1E C5 0...(......]....
000110: D5 CD 6B 15 D1 C1 FE 21 38 06 CB AE 12 13 10 EF ..k....!8.......
000120: AF 12 E1 C9 DD 21 5D 00 DD 7E 00 B7 C8 06 00 FE .....!]..~......
000130: 2D C0 04 DD 23 C9 38 05 DD 7E 00 B7 C8 3E 10 32 -...#.8..~...>.2
000140: D0 00 37 C9 E5 CD 6B 15 CB AE E1 77 C9 3E AF 4F ..7...k....w.>.O
000150: C5 CD F0 15 C1 CD 24 16 C8 C5 E5 CD F7 07 D1 C1 ......$.........
000160: CD 36 16 D8 05 CC 83 07 EB 73 0C 0D 20 02 23 72 .6.......s.. .#r
000170: EB C9 CD F0 15 CD 24 16 C8 C5 E5 CD A3 11 D9 E1 ......$.........
000180: C1 CD 36 16 D8 05 D9 CC 8F 0A D9 C3 D1 05 E5 EB ..6.............
000190: 0E 00 C5 D5 CD 6B 15 D1 C1 FE 0D 28 0B FE 1A 28 .....k.....(...(
0001A0: 07 CB AE 0C 13 12 10 EA E1 71 C9 CD 6B 15 FE 1A .........q..k...
0001B0: 28 13 CB AE FE 0A 28 0D FE 0D 20 EF CD 6B 15 FE (.....(... ..k..
0001C0: 0A 20 02 CB AE C9 2A E2 00 4F 3A D0 00 B7 C0 7E . ....*..O:....~
0001D0: E6 0F 20 10 23 23 E5 7E C6 2E 5F 16 00 19 71 E1 .. .##.~.._...q.
0001E0: 34 F0 18 28 FE 06 28 15 E1 06 00 C5 E5 3D CA A6 4..(..(......=..
0001F0: 00 3D 3D CA A9 00 3D CA AC 00 C3 B2 00 2A E8 00 .==...=......*..
Size : 512 (Real : 512)
000000: 0A 2C 2C F1 2C 2D C8 D8 78 EE 80 47 C9 67 AA 3F .,,.,-..x..G.g.?
000010: 2B 32 D7 6E B6 2A 1D EF 38 74 0D D0 00 0D D0 7A +2.n.*..8t.....z
000020: 88 88 88 88 08 7E AB AA AA AA AA 2C 2D 3E 04 CA .....~.....,->..
000030: 27 20 CB 78 C2 27 20 D9 CD 98 0F D9 7D 2E 81 95 ' .x.' .....}...
000040: F5 CD F5 0A D9 CD 86 0F D9 CD 81 0A C5 D5 E5 D9 ................
000050: 2C CD 0D 0A D9 E1 D1 C1 CD F5 0A DD E5 DD 21 8C ,.............!.
000060: 0D 3E 06 CD 34 0F DD E1 2C D9 CD A2 0F 2D D9 CD .>..4...,....-..
000070: 0D 0A F1 C5 D5 E5 6F 26 00 30 01 25 CD 08 10 D9 ......o&.0.%....
000080: 2C CD 97 0A D9 E1 D1 C1 CD 0D 0A 7D FE 67 DA 72 ,..........}.g.r
000090: 0B C9 7D 8A 9D D8 89 1D 7D E9 A2 8B 2E 3A 7D 8E ..}.....}....:}.
0000A0: E3 38 8E 63 7E 49 92 24 49 12 7E CD CC CC CC 4C .8.c~I.$I.~....L
0000B0: 7F AB AA AA AA 2A D9 CD A2 0F D9 B7 CB 78 F5 CB .....*.......x..
0000C0: B8 CD F5 0A 7D FE 88 30 47 C5 D5 E5 2C CD D0 0F ....}..0G...,...
0000D0: E5 CB 3C CB 1D 7D E1 F5 CD 08 10 2C 2D 28 01 2D ..<..}.....,-(.-
0000E0: D9 F1 E1 D1 C1 F5 CD 81 0A DD E5 DD 21 10 0E 3E ............!..>
0000F0: 08 CD 49 0F DD E1 F1 30 0A F5 D9 CD 98 0F D9 CD ..I....0........
000100: 97 0A F1 85 6F 38 09 F1 C8 D9 CD 86 0F C3 F5 0A ....o8..........
000110: E1 3E 01 C3 27 20 6D 2E 1D 11 60 31 70 46 2C FE .>..' m...`1pF,.
000120: E5 7F 74 36 7C 89 84 21 77 53 3C FF C3 2E 7A D2 ..t6|..!wS<...z.
000130: 7D 5B 95 1D 7C 25 B8 46 58 63 7E 16 FC EF FD 75 }[..|%.FXc~....u
000140: 80 D2 F7 17 72 31 7D B7 C8 DD E5 D9 CD 86 0F D9 ....r1}.........
000150: AF CB 78 28 03 3C CB B8 F5 CD DF 0B 38 08 D9 CD ..x(.<......8...
000160: F5 0A F1 CB FF F5 D9 01 CF 06 11 8E E9 21 7E 4A .............!~J
000170: D9 CD DF 0B 30 05 CD 2E 0F 18 4F DD 21 CE 0E 3E ....0.....O.!..>
000180: 02 08 D9 11 12 00 DD 19 CD 73 0F D9 CD DF 0B 38 .........s.....8
000190: 0B 08 3D 20 EC D9 11 0C 00 DD 19 D9 D9 CD 6E 0F ..= ..........n.
0001A0: CB F8 CD 0D 0A C5 D5 E5 CD 73 0F CD 97 0A D9 CD .........s......
0001B0: 86 0F CD 0D 0A D9 E1 D1 C1 CD F5 0A DD E5 CD 2E ................
0001C0: 0F DD E1 D9 CD 6E 0F CD 0D 0A F1 17 30 0A F5 D9 .....n......0...
0001D0: CD 8E 0F 2D CD 81 0A F1 DD E1 CB 4F C8 CB F8 C9 ...-.......O....
0001E0: 7F E7 CF CC 13 54 7F F6 F4 A2 30 09 7F 6A C1 91 .....T....0..j..
0001F0: 0A 06 80 B5 9E 8A 6F 44 80 82 2C 3A CD 13 80 6A ......oD..,:...j
Size : 512 (Real : 512)
000000: 3A EA 00 BE C8 34 5E 16 00 19 71 C9 2A E2 00 23 :....4^...q.*..#
000010: 23 7E B7 C8 36 00 0E 15 CD BA 19 C8 3E F0 32 D0 #~..6.......>.2.
000020: 00 C9 7D C3 C6 16 C1 D1 C5 DD 2A D2 00 CB 7C 28 ..}.......*...|(
000030: 06 CD 83 07 EB 18 0E EB CB 7C 28 09 CD 83 07 DD .........|(.....
000040: 36 00 2D DD 23 D5 CD C6 07 E1 CD C8 04 ED 5B D2 6.-.#.........[.
000050: 00 DD E5 E1 B7 ED 52 4D EB 91 38 0E 28 0C 47 E5 ......RM..8.(.G.
000060: 3E 20 C5 CD C6 16 C1 10 F7 E1 41 04 05 C8 7E C5 > ........A...~.
000070: E5 CD C6 16 E1 C1 23 18 F3 C1 D1 D9 E1 D1 C1 D9 ......#.........
000080: C5 DD 2A D2 00 D5 CD 27 10 18 BE C1 D1 C5 CD C8 ..*....'........
000090: 04 CB 43 21 A1 17 0E 04 20 BF 21 A5 17 0E 05 18 ..C!.... .!.....
0000A0: B8 54 52 55 45 46 41 4C 53 45 CD C8 04 21 02 00 .TRUEFALSE...!..
0000B0: 39 4E 23 CD 59 17 D1 F9 D5 C9 E1 7E 23 B7 28 0C 9N#.Y......~#.(.
0000C0: 47 7E C5 E5 CD C6 16 E1 C1 23 10 F5 E9 3E 0D CD G~.......#...>..
0000D0: C6 16 3E 0A C3 C6 16 11 0D 01 18 0D 11 0D 00 18 ..>.............
0000E0: 08 11 1A 01 18 03 11 1A 00 22 E2 00 CB 7E 28 1C ........."...~(.
0000F0: D5 CD 6B 15 D1 BB 28 10 FE 1A 28 0C FE 21 30 0C ..k...(...(..!0.
000100: 14 15 28 08 CB AE 18 E8 21 01 00 C9 21 00 00 C9 ..(.....!...!...
000110: 3E AF 32 E8 00 ED 53 E6 00 CD 7A 18 3A D0 00 B7 >.2...S...z.:...
000120: C0 CD 30 14 3A D0 00 B7 C0 2A E2 00 36 D0 23 23 ..0.:....*..6.##
000130: 77 11 06 00 19 77 23 77 11 24 00 19 77 23 77 11 w....w#w.$..w#w.
000140: D6 FF 19 3A E8 00 B7 20 1B E5 01 04 00 AF CD 09 ...:... ........
000150: 19 E1 23 23 4E 23 46 2A E6 00 B7 ED 42 C8 3E 90 ..##N#F*....B.>.
000160: 32 D0 00 C9 E5 AF 77 23 77 23 ED 5B E6 00 73 23 2.....w#w#.[..s#
000170: 72 E1 01 04 00 3E 03 C3 09 19 22 E2 00 7E E6 C0 r....>...."..~..
000180: C8 CD AE 19 2A E2 00 11 2D 00 19 AF 77 23 77 11 ....*...-...w#w.
000190: D4 FF 19 77 23 23 01 04 00 3E 01 CD 09 19 CD AE ...w##...>......
0001A0: 19 C3 81 14 E3 22 E4 00 E3 22 E2 00 7E E6 C0 C0 ....."..."..~...
0001B0: 3E 04 32 D0 00 C9 3A D0 00 B7 C0 E5 CD 5A 1A EB >.2...:......Z..
0001C0: B7 ED 52 E1 30 10 AF CD 09 19 2A E2 00 11 08 00 ..R.0.....*.....
0001D0: 19 34 C0 23 34 C9 3E 99 32 D0 00 C9 3A D0 00 B7 .4.#4.>.2...:...
0001E0: C0 E5 CD 5A 1A B7 ED 52 3E 01 20 10 2A E2 00 11 ...Z...R>. .*...
0001F0: 04 00 19 34 20 04 23 34 28 08 3E 03 E1 CD 09 19 ...4 .#4(.>.....
Size : 512 (Real : 512)
000000: C1 91 0A 06 81 00 00 00 00 00 80 21 A2 DA 0F 49 ...........!...I
000010: 7D E8 A2 8B 2E BA 7D 8E E3 38 8E 63 7E 49 92 24 }.....}..8.c~I.$
000020: 49 92 7E CD CC CC CC 4C 7F AB AA AA AA AA DD 21 I.~....L.......!
000030: 0A 0F 3E 05 C5 D5 E5 F5 CD AC 0F CD 97 0A F1 CD ..>.............
000040: 49 0F D9 E1 D1 C1 C3 97 0A F5 D9 CD 6E 0F 18 10 I...........n...
000050: F5 D9 C5 D5 E5 CD 6E 0F CD 0D 0A D9 E1 D1 C1 D9 ......n.........
000060: CD 97 0A F1 3D 20 E9 D9 CD 86 0F C3 0D 0A 11 06 ....= ..........
000070: 00 DD 19 DD 6E 00 DD 66 01 DD 5E 02 DD 56 03 DD ....n..f..^..V..
000080: 4E 04 DD 46 05 C9 21 81 00 44 4C 54 5C C9 01 0F N..F..!..DLT\...
000090: 49 11 A2 DA 21 82 21 C9 01 04 35 11 33 F3 21 81 I...!.!...5.3.!.
0000A0: FA C9 01 72 31 11 F7 17 21 80 D2 C9 C5 D5 E5 D9 ...r1...!.......
0000B0: E1 D1 C1 C9 CD 92 07 21 80 00 3E 20 CB 78 20 0D .......!..> .x .
0000C0: CB 23 CB 12 CB 11 CB 10 2D 3D 20 F0 6F CB B8 C9 .#......-= .o...
0000D0: CB 78 D9 CD 86 0F 28 02 CB F8 2D CD 0D 0A B7 CB .x....(...-.....
0000E0: 7D 28 1C CB 78 08 CB F8 3E 8F BD 38 16 28 06 CD }(..x...>..8.(..
0000F0: 7A 0B 2C 18 F3 CD 7A 0B 08 60 69 C8 C3 83 07 21 z.,...z..`i....!
000100: 00 00 C9 3E 92 C3 27 20 7C B5 CA 72 0B CB 7C 08 ...>..' |..r..|.
000110: CD 80 07 3E 90 29 3D CB 7C 28 FA 44 4D 11 00 00 ...>.)=.|(.DM...
000120: 62 6F 08 C0 CB B8 C9 CD C8 04 EB 1E 00 38 04 FE bo...........8..
000130: 19 38 18 1D CD C8 04 D9 CB 78 D9 16 07 28 01 14 .8.......x...(..
000140: 92 30 01 AF FE 09 38 02 3E 09 3C 57 D5 D9 FD 21 .0....8.>.<W...!
000150: 5D 00 DD E5 CD EB 10 DD E1 D1 4F 7A 3C CB 7B 20 ].........Oz<.{
000160: 10 81 F2 6B 10 FD 36 00 00 18 0B FE 0C 38 02 3E ...k..6......8.>
000170: 0B D5 CD 80 11 D1 CB 78 28 05 3E 2D CD E5 10 CB .......x(.>-....
000180: 7B 28 03 61 0E 00 CB 79 28 05 CD E3 10 18 07 CD {(.a...y(.......
000190: D9 10 0D F2 8F 10 7A B7 28 17 3E 2E CD E5 10 0C ......z.(.>.....
0001A0: 28 06 CD E3 10 15 20 F7 15 FA B1 10 CD D9 10 18 (..... .........
0001B0: F7 CB 7B C8 3E 45 CD E5 10 3E 2B CB 7C 28 06 7C ..{.>E...>+.|(.|
0001C0: ED 44 67 3E 2D CD E5 10 7C 06 2F 04 D6 0A 30 FB .Dg>-...|./...0.
0001D0: C6 3A DD 70 00 DD 23 18 0C FD 7E 00 FD 23 B7 20 .:.p..#...~..#.
0001E0: 04 FD 2B 3E 30 DD 77 00 DD 23 C9 FD E5 2C 2D 20 ..+>0.w..#...,-
0001F0: 0E 06 0C FD 36 00 30 FD 23 10 F8 AF C3 7D 11 C5 ....6.0.#....}..
Size : 512 (Real : 512)
000000: 18 C8 E1 3E F2 32 D0 00 C9 32 E9 00 EB 2A E2 00 ...>.2...2...*..
000010: CB 66 28 2F CB A6 3A E9 00 CB 47 28 18 23 23 7E .f(/..:...G(.##~
000020: 2B 2B B7 20 10 3A E9 00 CB 4F 20 17 78 B7 20 13 ++. .:...O .x. .
000030: 79 B7 FA 43 19 C5 D5 0E 21 CD BA 19 D1 C1 20 51 y..C....!..... Q
000040: 2A E2 00 3A E9 00 CB 47 28 02 CB EE 23 23 7E C6 *..:...G(...##~.
000050: 2E D5 5F 16 00 19 D1 D6 2E CD 9A 19 ED A0 E2 66 .._............f
000060: 19 3C F2 5C 19 3D 3C CD 9A 19 2A E2 00 23 23 E6 .<.\.=<...*..##.
000070: 7F 77 20 16 C5 D5 E5 CD AE 19 E1 D1 C1 20 15 D5 .w .......... ..
000080: 11 2B 00 19 D1 34 20 02 23 34 78 B1 C2 0D 19 EB .+...4 .#4x.....
000090: C9 3E 99 01 3E F0 32 D0 00 C9 F5 3A E9 00 CB 47 .>..>.2....:...G
0000A0: 28 01 EB F1 C9 22 E2 00 CD AE 19 C8 18 E6 0E 22 (...."........."
0000B0: 2A E2 00 CB E6 CB 6E C8 CB AE 2A E2 00 E5 C5 11 *.....n...*.....
0000C0: 30 00 19 EB 0E 1A CD 05 00 C1 E1 11 0C 00 19 EB 0...............
0000D0: CD 05 00 B7 C9 C1 D1 ED 53 E2 00 C5 E5 CD 5A 1A ........S.....Z.
0000E0: D1 B7 ED 52 38 40 2A E2 00 01 06 00 09 4E 23 46 ...R8@*......N#F
0000F0: 23 73 23 72 CD 2C 1A 01 04 00 09 30 01 13 7D E6 #s#r.,.....0..}.
000100: 7F 29 EB ED 6A EB 53 5C 2A E2 00 23 23 77 01 2B .)..j.S\*..##w.+
000110: 00 09 4E 23 46 EB B7 ED 42 09 C8 D5 E5 CD AE 19 ..N#F...B.......
000120: D1 E1 72 2B 73 C9 3E 91 32 D0 00 C9 D5 D9 E1 D9 ..r+s.>.2.......
000130: 21 00 00 54 5D 3E 10 29 EB ED 6A EB D9 29 D9 30 !..T]>.)..j..).0
000140: 04 09 30 01 13 3D 20 EF C9 CD 5D 1A B7 ED 52 21 ..0..= ...]...R!
000150: 00 00 C0 23 C9 CD 5D 1A EB C9 2A E2 00 11 04 00 ...#..]...*.....
000160: 19 5E 23 56 23 D5 4E 23 46 23 5E 23 56 E1 C9 3E .^#V#.N#F#^#V..>
000170: AF 32 E8 00 CD B0 1A 3A D0 00 B7 C0 CD 30 14 3A .2.....:.....0.:
000180: D0 00 B7 C0 2A E2 00 36 C0 E5 11 0C 00 19 EB 0E ....*..6........
000190: 23 CD 05 00 E1 11 2D 00 19 AF 4E 77 23 46 77 11 #.....-...Nw#Fw.
0001A0: D6 FF 19 71 23 70 23 36 80 23 77 23 77 23 77 C9 ...q#p#6.#w#w#w.
0001B0: 22 E2 00 7E E6 C0 C8 C3 81 14 3E 22 18 02 3E 21 "..~......>"..>!
0001C0: 44 4D 21 F0 00 22 E6 00 DD E1 D1 E1 DD E5 C5 CD DM!.."..........
0001D0: FD 1A C1 3A D0 00 B7 C0 2A F0 00 ED 42 C8 3A E9 ...:....*...B.:.
0001E0: 00 FE 21 3E 99 28 02 3E F0 32 D0 00 C9 3E 22 18 ..!>.(.>.2...>".
0001F0: 02 3E 21 22 E6 00 DD E1 C1 D1 E1 DD E5 32 E9 00 .>!".........2..
Size : 512 (Real : 512)
000000: 2A 9F E1 E5 2A 99 E1 E5 2A 97 E1 D1 19 E5 CD FF *...*...*.......
000010: 21 22 AA E4 CD 50 E2 C3 F0 22 19 11 03 00 B7 ED !"...P..."......
000020: 52 C2 03 00 2A 9F E1 E5 2A 9D E1 E5 CD FF 21 22 R...*...*.....!"
000030: AC E4 2A AC E4 E5 2A 97 E1 D1 EB B7 ED 52 22 AA ..*...*......R".
000040: E4 CD 31 E2 C3 22 23 19 11 02 00 B7 ED 52 C2 02 ..1.."#......R..
000050: 00 21 FD E1 E5 21 04 00 D1 19 E5 21 B8 00 EB E1 .!...!.....!....
000060: 73 2A 9B E1 E5 2A 99 E1 E5 CD FF 21 22 AC E4 2A s*...*.....!"..*
000070: AC E4 E5 2A 97 E1 D1 19 22 AA E4 CD 50 E2 C9 FD ...*...."...P...
000080: E1 E1 22 86 E1 E1 22 88 E1 E1 22 8A E1 E1 22 8C .."..."..."...".
000090: E1 FD E5 21 31 E2 E5 21 01 00 D1 19 E5 21 6F E2 ...!1..!.....!o.
0000A0: 26 00 EB E1 73 21 31 E2 E5 21 02 00 D1 19 E5 21 &...s!1..!.....!
0000B0: 6F E2 6C 26 00 EB E1 73 2A 88 E1 E5 2A 8C E1 D1 o.l&...s*...*...
0000C0: EB B7 ED 52 E5 21 01 00 D1 19 22 A8 E4 2A 86 E1 ...R.!...."..*..
0000D0: E5 2A 8A E1 D1 EB B7 ED 52 E5 21 01 00 D1 19 7D .*......R.!....}
0000E0: 32 AE E4 2A 8C E1 E5 2A 8A E1 E5 CD FF 21 22 AC 2..*...*.....!".
0000F0: E4 CD 31 E2 21 31 E2 E5 21 01 00 D1 19 E5 21 FD ..1.!1..!.....!.
000100: E1 26 00 EB E1 73 21 31 E2 E5 21 02 00 D1 19 E5 .&...s!1..!.....
000110: 21 FD E1 6C 26 00 EB E1 73 C9 FD E1 E1 22 7C E1 !..l&...s...."|.
000120: FD E5 21 AF E4 E5 21 00 00 D1 19 E5 21 CD 00 EB ..!...!.....!...
000130: E1 73 21 AF E4 E5 21 01 00 D1 19 E5 21 5A 00 EB .s!...!.....!Z..
000140: E1 73 21 AF E4 E5 21 02 00 D1 19 E5 21 FC 00 EB .s!...!.....!...
000150: E1 73 21 AF E4 E5 21 03 00 D1 19 E5 2A 7C E1 26 .s!...!.....*|.&
000160: 00 EB E1 73 21 AF E4 E5 21 04 00 D1 19 E5 2A 7C ...s!...!.....*|
000170: E1 6C 26 00 EB E1 73 21 AF E4 E5 21 05 00 D1 19 .l&...s!...!....
000180: E5 21 C9 00 EB E1 73 3A AE E4 ED 4B A8 E4 ED 5B .!....s:...K...[
000190: AA E4 2A AC E4 CD AF E4 32 AE E4 ED 43 A8 E4 ED ..*.....2...C...
0001A0: 53 AA E4 22 AC E4 C9 FD E1 E1 22 6A E1 E1 22 6C S.."......"j.."l
0001B0: E1 E1 22 6E E1 E1 22 70 E1 E1 22 72 E1 FD E5 2A .."n.."p.."r...*
0001C0: 70 E1 22 5E E1 2A 6C E1 22 5C E1 2A 6A E1 22 60 p."^.*l."\.*j."`
0001D0: E1 2A 6E E1 E5 21 08 00 D1 CD 4E 07 E5 2A 72 E1 .*n..!....N..*r.
0001E0: D1 7C B2 67 7D B3 6F 22 5A E1 ED 4B 5A E1 CD 57 .|.g}.o"Z..KZ..W
0001F0: FC 2A 5C E1 ED 4B 60 E1 ED 5B 5E E1 CD 4B FC C9 .*\..K`..[^..K..
Size : 512 (Real : 512)
000000: 22 E2 00 7E E6 C0 CA B0 18 2A E6 00 AF 77 23 77 "..~.....*...w#w
000010: 78 B1 28 39 C5 D5 0E 1A CD 05 00 2A E2 00 11 0C x.(9.......*....
000020: 00 19 EB 3A E9 00 4F CD 05 00 D1 C1 B7 20 1E D5 ...:..O...... ..
000030: 2A E2 00 11 2D 00 19 34 20 02 23 34 D1 21 80 00 *...-..4 .#4.!..
000040: 19 EB 2A E6 00 34 20 02 23 34 0B 18 C3 2A E2 00 ..*..4 .#4...*..
000050: 11 2D 00 19 4E 23 46 11 DA FF 19 71 23 70 11 FC .-..N#F....q#p..
000060: FF 19 56 2B 5E EB B7 ED 42 D0 EB 71 23 70 C9 C1 ..V+^...B..q#p..
000070: D1 ED 53 E2 00 C5 E5 CD 5A 1A D1 B7 ED 52 DA 26 ..S.....Z....R.&
000080: 1A 2A E2 00 01 08 00 09 73 23 72 01 24 00 09 73 .*......s#r.$..s
000090: 23 72 C9 CD 4C 1C C0 11 0C 00 19 EB 0E 13 CD 05 #r..L...........
0000A0: 00 3C C0 18 3F FD E1 2A D2 00 06 10 CD E2 05 AF .<..?..*........
0000B0: 12 E1 FD E5 CD 4C 1C C0 E5 CD F2 03 E1 E5 11 1C .....L..........
0000C0: 00 19 EB 21 5C 00 01 0C 00 ED B0 E1 11 0C 00 19 ...!\...........
0000D0: E5 EB 0E 17 CD 05 00 D1 3C 28 09 21 5C 00 01 24 ........<(.!\..$
0000E0: 00 ED B0 C9 3E 01 32 D0 00 C9 3E AF 32 E8 00 CD ....>.2...>.2...
0000F0: 4C 1C C0 3A D8 00 B7 3E 21 28 EB 2A E2 00 11 0C L..:...>!(.*....
000100: 00 19 11 5C 00 01 24 00 ED B0 11 5C 00 0E 0F CD ...\..$....\....
000110: 05 00 3C 28 CF 21 33 1C 11 B0 00 01 19 00 ED B0 ..<(.!3.........
000120: 11 00 01 3A E8 00 B7 20 04 ED 5B 01 01 31 00 01 ...:... ..[..1..
000130: C3 B0 00 D5 0E 1A CD 05 00 11 5C 00 0E 14 CD 05 ..........\.....
000140: 00 D1 21 80 00 19 EB B7 28 E9 18 37 22 E2 00 7E ..!.....(..7"..~
000150: E6 0F C8 3E 20 32 D0 00 C9 22 E6 00 ED 53 E8 00 ...> 2..."...S..
000160: EB E1 22 E2 00 4E 73 23 46 72 EB B7 ED 42 28 5A .."..Ns#Fr...B(Z
000170: EB 23 11 5C 00 3A DC 00 12 13 01 0B 00 ED B0 06 .#.\.:..........
000180: 18 AF 12 13 10 FC E5 11 5C 00 0E 0F CD 05 00 D1 ........\.......
000190: 3C 28 3F 2A E6 00 22 7D 00 ED 4B E8 00 C5 D5 0E <(?*.."}..K.....
0001A0: 1A CD 05 00 11 5C 00 0E 21 CD 05 00 D1 C1 B7 20 .....\..!......
0001B0: 21 2A 7D 00 23 22 7D 00 21 80 00 19 EB 0B 78 B1 !*}.#"}.!.....x.
0001C0: 20 DB 11 5C 00 0E 10 CD 05 00 2A E2 00 11 0D 00 ..\......*.....
0001D0: 19 E9 DD 2A E2 00 3E F0 C3 29 20 CD C8 04 FE 11 ...*..>..) .....
0001E0: D0 32 DC 00 C9 22 F0 00 EB E1 E3 22 F2 00 13 13 .2..."....."....
0001F0: 13 7B E6 FC 5F 21 DE 00 22 F8 00 DD 2A DE 00 DD .{.._!.."...*...
Size : 512 (Real : 512)
000000: FD E1 E1 7D 32 59 E1 FD E5 2A 59 E1 26 00 7D 32 ...}2Y...*Y.&.}2
000010: A7 E4 2A 59 E1 26 00 7D 32 AE E4 21 DE BB E5 CD ..*Y.&.}2..!....
000020: 1A 24 C9 FD E1 E1 22 4D E1 E1 22 4F E1 FD E5 21 .$...."M.."O...!
000030: C7 00 E5 2A 4D E1 D1 EB B7 ED 52 E5 21 01 00 D1 ...*M.....R.!...
000040: CD 4E 07 22 AC E4 2A 4F E1 22 AA E4 21 C0 BB E5 .N."..*O."..!...
000050: CD 1A 24 C9 FD E1 E1 22 41 E1 E1 22 43 E1 FD E5 ..$...."A.."C...
000060: 21 C7 00 E5 2A 41 E1 D1 EB B7 ED 52 E5 21 01 00 !...*A.....R.!..
000070: D1 CD 4E 07 22 AC E4 2A 43 E1 22 AA E4 21 F6 BB ..N."..*C."..!..
000080: E5 CD 1A 24 C9 FD E1 E1 22 35 E1 E1 22 37 E1 FD ...$...."5.."7..
000090: E5 21 01 00 E5 2A 35 E1 E5 21 00 00 E5 2A 37 E1 .!...*5..!...*7.
0000A0: E5 21 07 00 D1 CD 4E 07 E5 21 00 40 D1 19 E5 21 .!....N..!.@...!
0000B0: 80 00 E5 CD A7 24 C9 FD E1 E1 22 25 E1 E1 22 27 .....$...."%.."'
0000C0: E1 FD E5 21 00 00 E5 2A 27 E1 E5 21 07 00 D1 CD ...!...*'..!....
0000D0: 4E 07 E5 21 00 40 D1 19 E5 21 01 00 E5 2A 25 E1 N..!.@...!...*%.
0000E0: E5 21 80 00 E5 CD A7 24 C9 FD E1 E1 22 13 E1 E1 .!.....$...."...
0000F0: 22 15 E1 FD E5 2A 15 E1 22 AA E4 21 C7 00 E5 2A "....*.."..!...*
000100: 13 E1 D1 EB B7 ED 52 22 AC E4 21 1D BC E5 CD 1A ......R"..!.....
000110: 24 2A AC E4 E5 21 FF 7F D1 7C A2 67 7D A3 6F E5 $*...!...|.g}.o.
000120: 21 00 40 D1 7C B2 67 7D B3 6F 22 17 E1 2A 17 E1 !.@.|.g}.o"..*..
000130: C9 FD E1 E1 22 05 E1 E1 22 07 E1 E1 22 09 E1 FD ...."..."..."...
000140: E5 2A 07 E1 E5 21 03 00 D1 CD 4E 07 E5 2A 05 E1 .*...!....N..*..
000150: E5 CD E9 25 E5 21 00 40 D1 EB B7 ED 52 22 FB E0 ...%.!.@....R"..
000160: 21 76 E3 E5 2A FB E0 E5 21 07 00 D1 CD 56 07 CD !v..*...!....V..
000170: 6F 1B 21 76 E3 E5 21 A7 E3 E5 21 02 00 CD BE 1A o.!v..!...!.....
000180: CD F1 1F E5 21 00 00 D1 CD 7F 06 CB 45 CA 7F 06 ....!.......E...
000190: 21 A7 E3 E5 2A FB E0 E5 21 7F 00 D1 7C A2 67 7D !...*...!...|.g}
0001A0: A3 6F D1 19 E5 21 AE E2 E5 2A 09 E1 CD 64 1F C9 .o...!...*...d..
0001B0: FD E1 E1 22 F5 E0 E1 22 F7 E0 E1 22 F9 E0 FD E5 ..."..."..."....
0001C0: 2A F7 E0 E5 21 03 00 D1 CD 4E 07 E5 2A F5 E0 E5 *...!....N..*...
0001D0: CD E9 25 E5 21 00 40 D1 EB B7 ED 52 22 EB E0 21 ..%.!.@....R"..!
0001E0: 76 E3 E5 2A EB E0 E5 21 07 00 D1 CD 56 07 CD 6F v..*...!....V..o
0001F0: 1B CD 1B 20 21 76 E3 E5 21 A7 E3 E5 21 02 00 CD ... !v..!...!...
Size : 512 (Real : 512)
000000: 6E 02 DD 66 03 7D B4 28 48 ED 52 30 0F DD 6E 00 n..f.}.(H.R0..n.
000010: DD 66 01 E5 DD 22 F8 00 DD E1 18 E3 20 0A DD 5E .f..."...... ..^
000020: 00 DD 56 01 DD E5 18 1B 4D 44 DD 6E 00 DD 66 01 ..V.....MD.n..f.
000030: DD E5 DD 19 DD 75 00 DD 74 01 DD 71 02 DD 70 03 .....u..t..q..p.
000040: DD E5 D1 2A F8 00 73 23 72 D1 2A F2 00 73 23 72 ...*..s#r.*..s#r
000050: C9 DD E5 E1 19 22 C4 00 2A F0 00 01 04 00 09 DD ....."..*.......
000060: E5 C1 09 DA 75 1D ED 4B C6 00 ED 42 01 00 00 21 ....u..K...B...!
000070: 00 00 DA 30 1D 3E FF C3 27 20 EB E1 E3 7E 23 66 ...0.>..' ...~#f
000080: 6F 13 13 13 7B E6 FC 5F EB 22 F0 00 2A DE 00 E5 o...{.._."..*...
000090: DD E1 B7 ED 52 30 52 DD 6E 00 DD 66 01 E5 B7 ED ....R0R.n..f....
0000A0: 52 30 04 DD E1 18 F0 E1 D5 FD E1 ED 4B F0 00 FD R0..........K...
0000B0: 71 02 FD 70 03 FD 75 00 FD 74 01 DD 73 00 DD 72 q..p..u..t..s..r
0000C0: 01 DD E5 E1 DD 4E 02 DD 46 03 CD 04 1E 28 09 DD .....N..F....(..
0000D0: 5E 00 DD 56 01 D5 DD E1 DD E5 E1 DD 4E 02 DD 46 ^..V........N..F
0000E0: 03 DD 5E 00 DD 56 01 18 1B 2A DE 00 ED 53 DE 00 ..^..V...*...S..
0000F0: D5 DD E1 DD 75 00 DD 74 01 ED 4B F0 00 DD 71 02 ....u..t..K...q.
000100: DD 70 03 EB 09 B7 ED 52 C0 D5 FD E1 2A C4 00 B7 .p.....R....*...
000110: ED 52 28 1B FD 7E 00 DD 77 00 FD 7E 01 DD 77 01 .R(..~..w..~..w.
000120: FD 6E 02 FD 66 03 09 DD 75 02 DD 74 03 AF C9 DD .n..f...u..t....
000130: E5 E1 22 C4 00 06 04 36 00 23 10 FB C9 CD 4B 1E .."....6.#....K.
000140: 2A F4 00 C9 CD 4B 1E 2A F6 00 C9 21 00 00 22 F4 *....K.*...!..".
000150: 00 22 F6 00 DD 2A DE 00 DD 4E 02 DD 46 03 79 B0 ."...*...N..F.y.
000160: 28 1E 2A F4 00 09 22 F4 00 2A F6 00 B7 ED 42 30 (.*..."..*....B0
000170: 04 ED 43 F6 00 DD 6E 00 DD 66 01 E5 DD E1 18 D8 ..C...n..f......
000180: 2A C6 00 01 FB FF 09 ED 5B C4 00 B7 ED 52 D8 EB *.......[....R..
000190: 2A F4 00 19 22 F4 00 2A F6 00 B7 ED 52 D0 ED 53 *..."..*....R..S
0001A0: F6 00 C9 ED 5B C4 00 73 23 72 C9 5E 23 56 EB 22 ....[..s#r.^#V."
0001B0: C4 00 22 DE 00 06 04 36 00 23 10 FB C9 3E AF 4F .."....6.#...>.O
0001C0: 22 E8 00 AF 77 32 D0 00 78 32 EA 00 2A E2 00 22 "...w2..x2..*.."
0001D0: ED 00 21 46 1F 22 E2 00 E1 22 E4 00 E1 0C 0D 20 ..!F."...".....
0001E0: 05 CD 26 17 18 03 CD 79 17 2A ED 00 22 E2 00 2A ..&....y.*.."..*
0001F0: E4 00 E9 3E AF 32 EC 00 22 E8 00 2A E2 00 22 ED ...>.2.."..*..".
Size : 512 (Real : 512)
000000: BE 1A CD F1 1F E5 21 00 00 D1 CD 7F 06 CB 45 CA ......!.......E.
000010: 7F 06 21 AE E2 E5 21 A7 E3 E5 2A EB E0 E5 21 7F ..!...!...*...!.
000020: 00 D1 7C A2 67 7D A3 6F D1 19 E5 2A F9 E0 CD 64 ..|.g}.o...*...d
000030: 1F 21 76 E3 E5 21 A7 E3 E5 21 02 00 CD BA 1A CD .!v..!...!......
000040: F1 1F E5 21 00 00 D1 CD 7F 06 CB 45 CA 7F 06 C9 ...!.......E....
000050: FD E1 E1 22 DD E0 E1 22 DF E0 E1 22 E1 E0 E1 22 ..."..."..."..."
000060: E3 E0 E1 22 E5 E0 E1 22 E7 E0 E1 22 E9 E0 FD E5 ..."..."..."....
000070: 2A DF E0 E5 21 02 00 D1 CD 7F 06 E5 2A DD E0 E5 *...!.......*...
000080: 21 02 00 D1 CD 7F 06 D1 7D A3 6F CB 45 CA 37 76 !.......}.o.E.7v
000090: 2A E9 E0 E5 2A E7 E0 E5 2A E5 E0 E5 CD 31 26 2A *...*...*....1&*
0000A0: E9 E0 E5 2A E3 E0 E5 2A E1 E0 E5 CD B0 26 C3 8E ...*...*.....&..
0000B0: 27 2A DF E0 E5 21 02 00 D1 CD 7F 06 E5 2A DD E0 '*...!.......*..
0000C0: E5 21 01 00 D1 CD 7F 06 D1 7D A3 6F CB 45 CA 37 .!.......}.o.E.7
0000D0: 76 2A E9 E0 E5 2A E7 E0 E5 2A E5 E0 E5 CD 31 26 v*...*...*....1&
0000E0: 21 01 00 E5 21 AE E2 E5 21 00 00 E5 2A E3 E0 E5 !...!...!...*...
0000F0: 21 03 00 D1 CD 4E 07 E5 2A E1 E0 E5 CD E9 25 E5 !....N..*.....%.
000100: 2A E9 E0 E5 CD A7 24 C3 CF 27 2A DF E0 E5 21 01 *.....$..'*...!.
000110: 00 D1 CD 7F 06 E5 2A DD E0 E5 21 02 00 D1 CD 7F ......*...!.....
000120: 06 D1 7D A3 6F CB 45 CA 37 76 21 00 00 E5 2A E7 ..}.o.E.7v!...*.
000130: E0 E5 21 03 00 D1 CD 4E 07 E5 2A E5 E0 E5 CD E9 ..!....N..*.....
000140: 25 E5 21 01 00 E5 21 AE E2 E5 2A E9 E0 E5 CD A7 %.!...!...*.....
000150: 24 2A E9 E0 E5 2A E3 E0 E5 2A E1 E0 E5 CD B0 26 $*...*...*.....&
000160: C3 28 28 21 00 00 E5 2A E7 E0 E5 21 03 00 D1 CD .((!...*...!....
000170: 4E 07 E5 2A E5 E0 E5 CD E9 25 E5 21 00 00 E5 2A N..*.....%.!...*
000180: E3 E0 E5 21 03 00 D1 CD 4E 07 E5 2A E1 E0 E5 CD ...!....N..*....
000190: E9 25 E5 2A E9 E0 E5 CD A7 24 C9 FD E1 E1 22 CD .%.*.....$....".
0001A0: E0 E1 22 CF E0 E1 22 D1 E0 E1 22 D3 E0 FD E5 21 .."..."..."....!
0001B0: AE E2 E5 2A D1 E0 E5 2A D3 E0 CD 4E 1F 21 01 00 ...*...*...N.!..
0001C0: E5 21 AE E2 E5 21 00 00 E5 2A CF E0 E5 21 03 00 .!...!...*...!..
0001D0: D1 CD 4E 07 E5 2A CD E0 E5 CD E9 25 E5 2A D1 E0 ..N..*.....%.*..
0001E0: E5 CD A7 24 C9 FD E1 E1 22 BF E0 E1 22 C1 E0 E1 ...$...."..."...
0001F0: 22 C3 E0 FD E5 21 00 00 E5 2A C3 E0 E5 21 03 00 "....!...*...!..
Size : 512 (Real : 512)
000000: 00 21 46 1F 22 E2 00 E1 22 E4 00 E1 22 EA 00 21 .!F."..."..."..!
000010: 5C 00 06 1E CD E2 05 AF 12 2A EA 00 3A EC 00 B7 \........*..:...
000020: 20 05 CD 4E 16 18 03 CD 72 16 21 D0 00 7E 36 00 ..N....r.!..~6.
000030: B7 67 6F 28 08 DD E5 E1 11 5C 00 ED 52 EB 2A E8 .go(.....\..R.*.
000040: 00 73 23 72 18 A3 C6 00 ED 5F 32 CB 00 C9 EB DD .s#r....._2.....
000050: E1 C1 E1 78 B1 28 0B 73 0B 78 B1 28 05 54 5D 13 ...x.(.s.x.(.T].
000060: ED B0 DD E9 44 4D DD E1 D1 E1 78 B1 28 F4 ED 52 ....DM....x.(..R
000070: 19 30 ED 0B 09 EB 09 EB 03 ED B8 DD E9 55 14 15 .0...........U..
000080: 28 03 CD 9D 1F DD E1 4F 06 00 2F 6F 26 FF 39 F9 (......O../o&.9.
000090: 71 23 EB 0C 0D 28 02 ED B0 DD E9 16 00 21 80 00 q#...(.......!..
0000A0: 3E 1F 46 B8 30 02 06 1F 23 0E 00 04 05 28 0D 7E >.F.0...#....(.~
0000B0: FE 20 28 04 FE 09 20 04 23 05 18 EF 5D 04 05 28 . (... .#...]..(
0000C0: 0D 7E FE 20 28 08 FE 09 28 04 23 05 18 EF 7D 93 .~. (...(.#...}.
0000D0: 28 04 0C 15 20 D5 69 26 00 54 C9 D1 C1 D5 2D 61 (... .i&.T....-a
0000E0: 25 C3 A2 02 7D CD A6 04 6F C9 2A 01 00 19 19 19 %...}...o.*.....
0000F0: E9 21 D0 00 7E 36 00 6F 26 00 C9 CD 16 03 7C B5 .!..~6.o&.....|.
000100: C8 3A DD 00 F5 AF 32 DD 00 CD 20 03 F1 32 DD 00 .:....2... ..2..
000110: 7D FE 03 C0 DD E1 11 01 00 18 11 3A D0 00 B7 C8 }..........:....
000120: DD E1 5F 16 01 18 05 DD E1 5F 16 02 D5 CD 7A 03 .._......_....z.
000130: D1 AF 32 DD 00 2A CE 00 7C B5 DD E5 E1 ED 4B CC ..2..*..|.....K.
000140: 00 ED 42 01 15 00 09 22 CE 00 B7 20 07 D5 D5 E5 ..B...."... ....
000150: CD D9 00 D1 7A B7 20 14 CD 00 02 5E 43 0D 0A 55 ....z. ....^C..U
000160: 73 65 72 20 62 72 65 61 6B 00 18 2B 3D 20 0B CD ser break..+= ..
000170: 00 02 0D 0A 49 2F 4F 00 18 0E CD 00 02 0D 0A 52 ....I/O........R
000180: 75 6E 2D 74 69 6D 65 00 CD 00 02 20 65 72 72 6F un-time.... erro
000190: 72 20 00 7B CD B4 04 CD 00 02 2C 20 50 43 3D 00 r .{......, PC=.
0001A0: 2A CE 00 CD AF 04 18 15 CD 00 02 4E 6F 74 20 65 *..........Not e
0001B0: 6E 6F 75 67 68 20 6D 65 6D 6F 72 79 00 CD 00 02 nough memory....
0001C0: 0D 0A 50 72 6F 67 72 61 6D 20 61 62 6F 72 74 65 ..Program aborte
0001D0: 64 0D 0A 00 3A D8 00 B7 CA 8E 27 C3 00 00 E1 D1 d...:.....'.....
0001E0: D1 E9 31 00 01 21 C2 F2 01 C2 F2 CD 64 03 21 64 ..1..!......d.!d
0001F0: 03 11 64 03 01 42 F3 3E 01 CD D4 04 C3 BA F2 01 ..d..B.>........
Size : 512 (Real : 512)
000000: D1 CD 4E 07 E5 2A C1 E0 E5 CD E9 25 E5 21 01 00 ..N..*.....%.!..
000010: E5 21 AE E2 E5 2A BF E0 E5 CD A7 24 21 00 00 E5 .!...*.....$!...
000020: 2A BF E0 D1 CD 66 06 7A B3 CA 00 00 D5 22 B5 E0 *....f.z....."..
000030: 21 AE E2 E5 2A B5 E0 D1 19 E5 21 AE E2 E5 2A B5 !...*.....!...*.
000040: E0 D1 19 6E 26 00 7D 2F 6F 7C 2F 67 EB E1 73 2A ...n&.}/o|/g..s*
000050: B5 E0 23 D1 1B C3 27 29 21 01 00 E5 21 AE E2 E5 ..#...')!...!...
000060: 21 00 00 E5 2A C3 E0 E5 21 03 00 D1 CD 4E 07 E5 !...*...!....N..
000070: 2A C1 E0 E5 CD E9 25 E5 2A BF E0 E5 CD A7 24 C9 *.....%.*.....$.
000080: FD E1 E1 22 AD E0 E1 22 AF E0 E1 22 B1 E0 E1 22 ..."..."..."..."
000090: B3 E0 FD E5 21 00 00 E5 2A AF E0 E5 21 03 00 D1 ....!...*...!...
0000A0: CD 4E 07 E5 2A AD E0 E5 CD E9 25 E5 21 01 00 E5 .N..*.....%.!...
0000B0: 2A B1 E0 E5 2A B3 E0 E5 CD A7 24 C9 FD E1 E1 22 *...*.....$...."
0000C0: 9D E0 E1 22 9F E0 E1 22 A1 E0 E1 22 A3 E0 FD E5 ..."..."..."....
0000D0: 21 01 00 E5 2A A1 E0 E5 21 00 00 E5 2A 9F E0 E5 !...*...!...*...
0000E0: 21 03 00 D1 CD 4E 07 E5 2A 9D E0 E5 CD E9 25 E5 !....N..*.....%.
0000F0: 2A A3 E0 E5 CD A7 24 C9 FD E1 E1 7D 32 8E E0 E1 *.....$....}2...
000100: 22 8F E0 E1 22 91 E0 E1 22 93 E0 FD E5 2A 8E E0 "..."..."....*..
000110: 26 00 CB 45 CA 37 76 2A 8F E0 22 84 E0 21 00 00 &..E.7v*.."..!..
000120: E5 2A 93 E0 E5 21 01 00 D1 EB B7 ED 52 D1 CD 66 .*...!......R..f
000130: 06 7A B3 CA 00 00 D5 22 80 E0 2A 91 E0 E5 21 03 .z....."..*...!.
000140: 00 D1 CD 4E 07 E5 2A 84 E0 E5 CD E9 25 E5 21 00 ...N..*.....%.!.
000150: 40 D1 EB B7 ED 52 22 82 E0 21 76 E3 E5 2A 82 E0 @....R"..!v..*..
000160: E5 21 07 00 D1 CD 56 07 CD 6F 1B CD 1B 20 21 76 .!....V..o... !v
000170: E3 E5 21 A7 E3 E5 21 01 00 CD BE 1A CD F1 1F E5 ..!...!.........
000180: 21 00 00 D1 CD 7F 06 CB 45 CA 7F 06 21 AE E2 E5 !.......E...!...
000190: 2A 80 E0 D1 19 E5 21 A7 E3 E5 2A 82 E0 E5 21 7F *.....!...*...!.
0001A0: 00 D1 7C A2 67 7D A3 6F D1 19 6E 26 00 EB E1 73 ..|.g}.o..n&...s
0001B0: 2A 84 E0 E5 21 01 00 D1 19 22 84 E0 2A 80 E0 23 *...!...."..*..#
0001C0: D1 1B C3 31 2A C3 15 2A 21 AE E2 E5 2A 93 E0 E5 ...1*..*!...*...
0001D0: 2A A7 E4 26 00 7D 2F 6F 7C 2F 67 E5 21 FF 00 D1 *..&.}/o|/g.!...
0001E0: 7C A2 67 7D A3 6F CD 4E 1F C9 FD E1 E1 22 7A E0 |.g}.o.N....."z.
0001F0: E1 22 7C E0 E1 22 7E E0 FD E5 21 AE E2 22 AA E4 ."|.."~...!.."..
Size : 512 (Real : 512)
000000: 07 34 78 36 2E 66 6F 6E 00 00 00 00 00 00 00 00 .4x6.fon........
000010: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000020: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000030: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000040: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000050: 00 E1 ED 73 B9 E1 31 CF E1 E5 F3 01 8E 7F 3E C1 ...s..1.......>.
000060: ED 79 ED 79 ED 4B A8 E4 ED 5B AA E4 2A AC E4 C9 .y.y.K...[..*...
000070: 01 8E 7F 3E C2 ED 79 FB ED 7B B9 E1 C9 CD D1 E1 ...>..y..{......
000080: ED B0 C3 F0 E1 CD D1 E1 1A 77 13 D5 CD 15 E2 D1 .........w......
000090: 10 F6 C3 F0 E1 11 00 08 19 CB 7C C8 11 B0 3F A7 ..........|...?.
0000A0: ED 52 C9 11 00 08 A7 ED 52 CB 74 C0 11 B0 3F 19 .R......R.t...?.
0000B0: C9 CD FD E1 2A AC E4 CD 15 E2 22 AC E4 2A AA E4 ....*....."..*..
0000C0: CD 15 E2 22 AA E4 3A AE E4 3D 32 AE E4 20 E2 C9 ..."..:..=2.. ..
0000D0: CD FD E1 2A AC E4 CD 23 E2 22 AC E4 2A AA E4 CD ...*...#."..*...
0000E0: 23 E2 22 AA E4 3A AE E4 3D 32 AE E4 20 E2 C9 CD #."..:..=2.. ...
0000F0: D1 E1 7E 2F 77 23 0B 78 B1 20 F7 C3 F0 E1 C9 FD ..~/w#.x. ......
000100: E1 E1 22 AB E1 E1 22 AD E1 FD E5 21 00 40 E5 2A .."..."....!.@.*
000110: AB E1 E5 21 07 00 D1 7C A2 67 7D A3 6F E5 21 00 ...!...|.g}.o.!.
000120: 08 D1 CD F5 06 E5 2A AB E1 E5 21 03 00 D1 CD 56 ......*...!....V
000130: 07 E5 21 50 00 D1 CD F5 06 D1 19 E5 2A AD E1 D1 ..!P........*...
000140: 19 E5 21 FF 7F D1 7C A2 67 7D A3 6F D1 19 22 AF ..!...|.g}.o..".
000150: E1 2A AF E1 C9 FD E1 E1 7D 32 96 E1 E1 22 97 E1 .*......}2..."..
000160: E1 22 99 E1 E1 22 9B E1 E1 22 9D E1 E1 22 9F E1 ."..."..."..."..
000170: E1 22 A1 E1 FD E5 2A 9B E1 E5 2A 9F E1 D1 EB B7 ."....*...*.....
000180: ED 52 E5 21 01 00 D1 19 22 A8 E4 2A 99 E1 E5 2A .R.!...."..*...*
000190: 9D E1 D1 EB B7 ED 52 E5 21 01 00 D1 19 7D 32 AE ......R.!....}2.
0001A0: E4 21 FD E1 E5 21 04 00 D1 19 E5 21 B0 00 EB E1 .!...!.....!....
0001B0: 73 2A A1 E1 11 00 00 B7 ED 52 C2 00 00 2A 9F E1 s*.......R...*..
0001C0: E5 2A 9D E1 E5 CD FF 21 22 AC E4 2A 9F E1 E5 2A .*.....!"..*...*
0001D0: 9D E1 E5 2A 97 E1 D1 EB B7 ED 52 E5 CD FF 21 22 ...*......R...!"
0001E0: AA E4 CD 31 E2 C3 BB 22 19 11 01 00 B7 ED 52 C2 ...1..."......R.
0001F0: 01 00 2A 9F E1 E5 2A 99 E1 E5 CD FF 21 22 AC E4 ..*...*.....!"..
Size : 512 (Real : 512)
000000: 2A 7C E0 E5 2A 7A E0 E5 CD FF 21 22 AC E4 2A 7E *|..*z....!"..*~
000010: E0 7D 32 A9 E4 CD 05 E2 C9 21 78 BB E5 CD 1A 24 .}2......!x....$
000020: 2A AD E4 26 00 22 70 E0 2A 70 E0 C9 21 78 BB E5 *..&."p.*p..!x..
000030: CD 1A 24 2A AC E4 26 00 22 66 E0 2A 66 E0 C9 FD ..$*..&."f.*f...
000040: E1 E1 22 5A E0 E1 22 5C E0 FD E5 CD 9B 14 21 1B .."Z.."\......!.
000050: 00 CD 22 17 21 59 00 CD 22 17 2A 5A E0 E5 21 1F ..".!Y..".*Z..!.
000060: 00 D1 19 CD 22 17 2A 5C E0 E5 21 1F 00 D1 19 CD ....".*\..!.....
000070: 22 17 CD 1B 20 C9 C3 B8 30 FD E1 E1 22 50 E0 FD "... ...0..."P..
000080: E5 2A 50 E0 E5 CD 81 05 21 01 00 E5 21 10 00 CD .*P.....!...!...
000090: 9B 05 CD 4F 13 7D EE 01 6F CB 45 CA AC 2B 21 0E ...O.}..o.E..+!.
0000A0: 00 E5 21 02 00 E5 CD 76 2B C3 08 2C 21 B5 E4 E5 ..!....v+..,!...
0000B0: 2A 50 E0 2B 11 5E 00 CD F5 06 D1 19 22 48 E0 2A *P.+.^......"H.*
0000C0: 48 E0 22 4A E0 2A 48 E0 11 5D 00 19 6E 26 00 CB H."J.*H..]..n&..
0000D0: 45 CA FA 2B 21 7E E2 E5 CD 4D 05 05 77 69 6E 66 E..+!~...M..winf
0000E0: 2E 2A 50 E0 E5 21 30 00 D1 19 65 2E 01 E5 CD 3D .*P..!0...e....=
0000F0: 08 CD 70 13 21 7E E2 CD 93 1B 2A 48 E0 11 5D 00 ..p.!~....*H..].
000100: 19 E5 21 00 00 EB E1 73 C9 21 01 00 E5 21 10 00 ..!....s.!...!..
000110: D1 CD 66 06 7A B3 CA 2D 2C D5 22 3E E0 2A 3E E0 ..f.z..-,.">.*>.
000120: E5 CD 79 2B 2A 3E E0 23 D1 1B C3 14 2C C9 21 7B ..y+*>.#....,.!{
000130: BB E5 CD 1A 24 CD 9B 14 21 1B 00 CD 22 17 21 31 ....$...!...".!1
000140: 00 CD 22 17 21 1B 00 CD 22 17 21 78 00 CD 22 17 ..".!...".!x..".
000150: 21 1B 00 CD 22 17 21 76 00 CD 22 17 CD 1B 20 21 !...".!v.."... !
000160: 76 E3 CD B0 1A 21 76 E3 CD 93 1B CD F1 1F E5 21 v....!v........!
000170: 00 00 D1 CD 7F 06 CB 45 CA 7B 2C CD 09 2C C9 21 .......E.{,..,.!
000180: 14 BC E5 CD 1A 24 C9 CD 9B 14 21 1B 00 CD 22 17 .....$....!...".
000190: 21 79 00 CD 22 17 21 1B 00 CD 22 17 21 30 00 CD !y..".!...".!0..
0001A0: 22 17 21 1B 00 CD 22 17 21 77 00 CD 22 17 CD 1B ".!...".!w.."...
0001B0: 20 21 7E BB E5 CD 1A 24 CD 7F 2C 21 51 21 01 AD !~....$..,!Q!..
0001C0: 00 11 D1 E1 ED B0 21 76 E3 E5 CD 4D 05 0A 73 61 ......!v...M..sa
0001D0: 76 73 63 72 2E 24 24 24 CD 70 13 21 76 E3 CD 6F vscr.$$$.p.!v..o
0001E0: 1A CD 1B 20 21 A7 E3 E5 21 00 01 E5 21 00 00 CD ... !...!...!...
0001F0: 4E 1F 21 00 00 E5 21 3F 00 D1 CD 66 06 7A B3 CA N.!...!?...f.z..
Size : 512 (Real : 512)
000000: E5 CD 81 05 21 00 00 E5 21 04 00 CD 9B 05 CD 4F ....!...!......O
000010: 13 7D EE 01 6F CB 45 CA 31 35 2A E4 DD E5 21 FF .}..o.E.15*...!.
000020: 00 D1 7C A2 67 7D A3 6F E5 21 00 01 D1 19 22 E4 ..|.g}.o.!....".
000030: DD 2A E4 DD 22 80 F2 2A E4 DD E5 21 05 00 D1 CD .*.."..*...!....
000040: E0 06 CB 45 CA 56 35 21 F0 34 E5 2A E4 DD D1 19 ...E.V5!.4.*....
000050: 6E 26 00 22 E4 DD 21 00 00 E5 21 07 00 D1 CD 66 n&."..!...!....f
000060: 06 7A B3 CA A7 35 D5 22 DA DD 21 5D F2 E5 21 07 .z...5."..!]..!.
000070: 00 E5 2A DA DD D1 EB B7 ED 52 D1 19 E5 2A E4 DD ..*......R...*..
000080: E5 2A DA DD D1 CD 56 07 E5 21 01 00 D1 7C A2 67 .*....V..!...|.g
000090: 7D A3 6F E5 21 00 00 D1 CD 92 06 EB E1 73 2A DA }.o.!........s*.
0000A0: DD 23 D1 1B C3 61 35 21 07 00 7D 32 66 F2 C9 2A .#...a5!..}2f..*
0000B0: 80 F2 22 D8 DD 2A D8 DD C9 FD E1 E1 22 CE DD FD .."..*......"...
0000C0: E5 2A CE DD E5 21 00 00 D1 CD CC 06 CB 45 CA D7 .*...!.......E..
0000D0: 35 2A CE DD 22 70 F2 C9 2A 70 F2 22 C4 DD 2A C4 5*.."p..*p."..*.
0000E0: DD C9 FD E1 06 50 21 69 DD CD E2 05 E1 22 BA DD .....P!i....."..
0000F0: FD E5 2A BA DD E5 CD 81 05 21 01 00 E5 21 10 00 ..*......!...!..
000100: CD 9B 05 CD 4F 13 CB 45 CA 2E 36 21 B4 EB E5 2A ....O..E..6!...*
000110: BA DD 2B 11 5D 00 CD F5 06 D1 19 11 08 00 19 E5 ..+.]...........
000120: 21 69 DD CD 3A 05 06 50 CD 01 06 C3 39 36 21 03 !i..:..P....96!.
000130: 00 E5 21 02 00 E5 CD 76 2B C9 2A A6 E3 26 00 7D ..!....v+.*..&.}
000140: 32 60 DD 2A 60 DD 26 00 C9 FD E1 E1 D1 C1 D9 21 2`.*`.&........!
000150: 3E DD CD D1 05 E1 D1 C1 D9 21 44 DD CD D1 05 E1 >........!D.....
000160: D1 C1 D9 21 4A DD CD D1 05 E1 D1 C1 D9 21 50 DD ...!J........!P.
000170: CD D1 05 E1 22 56 DD FD E5 21 50 DD CD 2C 05 C5 ...."V...!P..,..
000180: D5 E5 21 44 DD CD 2C 05 D9 E1 D1 C1 CD 9B 06 E5 ..!D..,.........
000190: 21 4A DD CD 2C 05 C5 D5 E5 21 3E DD CD 2C 05 D9 !J..,....!>..,..
0001A0: E1 D1 C1 CD 9B 06 D1 7D A3 6F E5 2A 56 DD E5 CD .......}.o.*V...
0001B0: 81 05 21 01 00 E5 21 04 00 CD 9B 05 CD 4F 13 D1 ..!...!......O..
0001C0: 7D A3 6F CB 45 CA 3A 37 21 84 F1 E5 2A 56 DD 2B }.o.E.:7!...*V.+
0001D0: 11 18 00 CD F5 06 D1 19 22 36 DD 21 50 DD CD 2C ........"6.!P..,
0001E0: 05 D9 2A 36 DD CD D1 05 2A 36 DD 11 06 00 19 E5 ..*6....*6......
0001F0: 21 3E DD CD 2C 05 D9 E1 CD D1 05 2A 36 DD 11 0C !>..,......*6...
Size : 512 (Real : 512)
000000: 20 2D D5 22 24 E0 21 76 E3 E5 21 A7 E3 E5 21 02 -."$.!v..!...!.
000010: 00 CD BA 1A CD 1B 20 2A 24 E0 23 D1 1B C3 FD 2C ...... *$.#....,
000020: C9 FD E1 E1 22 22 E0 FD E5 2A 22 E0 E5 CD 00 25 ....""...*"....%
000030: C9 FD E1 E1 22 18 E0 FD E5 2A 18 E0 7D 32 AE E4 ...."....*..}2..
000040: 21 E4 BB E5 CD 1A 24 C9 FD E1 E1 22 0C E0 E1 22 !.....$...."..."
000050: 0E E0 FD E5 21 C7 00 E5 2A 0C E0 D1 EB B7 ED 52 ....!...*......R
000060: E5 21 01 00 D1 CD 4E 07 22 AC E4 2A 0E E0 22 AA .!....N."..*..".
000070: E4 21 EA BB E5 CD 1A 24 C9 FD E1 E1 22 FF DF E1 .!.....$...."...
000080: 22 01 E0 FD E5 21 C7 00 E5 2A FF DF D1 EB B7 ED "....!...*......
000090: 52 E5 21 01 00 D1 CD 4E 07 22 AC E4 2A 01 E0 22 R.!....N."..*.."
0000A0: AA E4 21 F0 BB E5 CD 1A 24 2A AE E4 26 00 E5 21 ..!.....$*..&..!
0000B0: 00 00 D1 CD 92 06 7D 32 03 E0 2A 03 E0 26 00 C9 ......}2..*..&..
0000C0: FD E1 E1 11 EF DF 01 08 00 ED B0 FD E5 2A 84 F2 .............*..
0000D0: E5 2A 82 F2 D1 CD 66 06 7A B3 CA 20 2E D5 22 E5 .*....f.z.. ..".
0000E0: DF 21 EF DF E5 2A E5 DF E5 21 07 00 D1 7C A2 67 .!...*...!...|.g
0000F0: 7D A3 6F D1 19 6E 26 00 E5 2A 86 F2 E5 2A 88 F2 }.o..n&..*...*..
000100: D1 EB B7 ED 52 E5 21 01 00 D1 19 E5 2A 88 F2 E5 ....R.!.....*...
000110: 2A E5 DF E5 CD 9B 28 2A E5 DF 23 D1 1B C3 D8 2D *.....(*..#....-
000120: C9 FD E1 E1 7D 32 E4 DF FD E5 21 D4 DF E5 21 08 ....}2....!...!.
000130: 00 E5 2A E4 DF 26 00 CD 4E 1F 21 D4 DF E5 CD C0 ..*..&..N.!.....
000140: 2D C9 FD E1 E1 22 CE DF E1 22 D0 DF E1 22 D2 DF -...."..."..."..
000150: FD E5 2A D2 DF E5 2A CE DF E5 CD 23 25 2A D0 DF ..*...*....#%*..
000160: E5 2A CE DF E5 CD 54 25 C9 FD E1 E1 22 C4 DF FD .*....T%...."...
000170: E5 CD F1 1F E5 21 00 00 D1 CD 92 06 CB 45 CA 8C .....!.......E..
000180: 2E 2A C4 DF E5 21 05 00 E5 CD 76 2B C9 FD E1 06 .*...!....v+....
000190: 50 21 6B DF CD E2 05 FD E5 21 7E E2 E5 21 6B DF P!k......!~..!k.
0001A0: CD 3A 05 CD 70 13 21 7E E2 CD 6F 1A 21 1B 00 E5 .:..p.!~..o.!...
0001B0: CD 69 2E 21 00 00 E5 21 7F 00 D1 CD 66 06 7A B3 .i.!...!....f.z.
0001C0: CA F0 2E D5 22 61 DF 2A 61 DF E5 21 A7 E3 E5 CD ...."a.*a..!....
0001D0: B7 25 21 7E E2 E5 21 A7 E3 E5 21 01 00 CD BA 1A .%!~..!...!.....
0001E0: 21 1B 00 E5 CD 69 2E 2A 61 DF 23 D1 1B C3 BE 2E !....i.*a.#.....
0001F0: 21 7E E2 CD B0 1A CD 1B 20 21 1B 00 E5 CD 69 2E !~...... !....i.
Size : 512 (Real : 512)
000000: 00 19 E5 21 44 DD CD 2C 05 D9 E1 CD D1 05 2A 36 ...!D..,......*6
000010: DD 11 12 00 19 E5 21 4A DD CD 2C 05 D9 E1 CD D1 ......!J..,.....
000020: 05 2A 56 DD E5 2A 7E F2 D1 CD CC 06 CB 45 CA 37 .*V..*~......E.7
000030: 37 2A 56 DD 22 7E F2 C3 6C 37 2A 56 DD E5 CD 81 7*V."~..l7*V....
000040: 05 21 01 00 E5 21 04 00 CD 9B 05 CD 4F 13 CB 45 .!...!......O..E
000050: CA 61 37 21 01 00 E5 21 03 00 E5 CD 76 2B C3 6C .a7!...!....v+.l
000060: 37 21 01 00 E5 21 02 00 E5 CD 76 2B C9 FD E1 E1 7!...!....v+....
000070: 22 34 DD FD E5 2A 34 DD E5 CD 81 05 21 01 00 E5 "4...*4.....!...
000080: 2A 7E F2 CD 9B 05 CD 4F 13 CB 45 CA E4 37 21 84 *~.....O..E..7!.
000090: F1 E5 2A 34 DD 2B 11 18 00 CD F5 06 D1 19 22 2C ..*4.+........",
0000A0: DD 2A 2C DD CD 2C 05 D9 21 B4 F2 CD D1 05 2A 2C .*,..,..!.....*,
0000B0: DD 11 06 00 19 CD 2C 05 D9 21 A8 F2 CD D1 05 2A ......,..!.....*
0000C0: 2C DD 11 0C 00 19 CD 2C 05 D9 21 AE F2 CD D1 05 ,......,..!.....
0000D0: 2A 2C DD 11 12 00 19 CD 2C 05 D9 21 A2 F2 CD D1 *,......,..!....
0000E0: 05 C3 EF 37 21 02 00 E5 21 02 00 E5 CD 76 2B C9 ...7!...!....v+.
0000F0: FD E1 E1 22 22 DD E1 22 24 DD E1 22 26 DD E1 22 ..."".."$.."&.."
000100: 28 DD E1 22 2A DD FD E5 2A 2A DD E5 CD 81 05 21 (.."*...**.....!
000110: 01 00 E5 21 10 00 CD 9B 05 CD 4F 13 E5 2A 28 DD ...!......O..*(.
000120: E5 2A 24 DD D1 CD B8 06 D1 7D A3 6F E5 2A 26 DD .*$......}.o.*&.
000130: E5 2A 22 DD D1 CD B8 06 D1 7D A3 6F E5 2A 28 DD .*"......}.o.*(.
000140: E5 21 00 00 D1 CD A5 06 D1 7D A3 6F E5 2A 24 DD .!.......}.o.*$.
000150: E5 21 4F 00 D1 CD B8 06 D1 7D A3 6F E5 2A 26 DD .!O......}.o.*&.
000160: E5 21 00 00 D1 CD A5 06 D1 7D A3 6F E5 2A 22 DD .!.......}.o.*".
000170: E5 21 C7 00 D1 CD B8 06 D1 7D A3 6F CB 45 CA E7 .!.......}.o.E..
000180: 38 21 B4 EB E5 2A 2A DD 2B 11 5D 00 CD F5 06 D1 8!...**.+.].....
000190: 19 22 1A DD 2A 28 DD EB 2A 1A DD 73 23 72 2A 1A ."..*(..*..s#r*.
0001A0: DD 11 02 00 19 E5 2A 26 DD EB E1 73 23 72 2A 1A ......*&...s#r*.
0001B0: DD 11 04 00 19 E5 2A 24 DD EB E1 73 23 72 2A 1A ......*$...s#r*.
0001C0: DD 11 06 00 19 E5 2A 22 DD EB E1 73 23 72 2A 2A ......*"...s#r**
0001D0: DD E5 2A 7C F2 D1 CD CC 06 CB 45 CA E4 38 2A 2A ..*|......E..8**
0001E0: DD 22 7C F2 C3 19 39 2A 2A DD E5 CD 81 05 21 01 ."|...9**.....!.
0001F0: 00 E5 21 10 00 CD 9B 05 CD 4F 13 CB 45 CA 0E 39 ..!......O..E..9
Size : 512 (Real : 512)
000000: C9 FD E1 E1 22 5F DF FD E5 2A 5F DF 7D 32 A6 E3 ...."_...*_.}2..
000010: C9 FD E1 06 50 21 06 DF CD E2 05 FD E5 21 7E E2 ....P!.......!~.
000020: E5 21 06 DF CD 3A 05 CD 70 13 21 7E E2 CD 70 1A .!...:..p.!~..p.
000030: 21 0B 00 E5 CD 69 2E 21 00 00 E5 21 7F 00 D1 CD !....i.!...!....
000040: 66 06 7A B3 CA 70 2F D5 22 FC DE 21 7E E2 E5 21 f.z..p/."..!~..!
000050: A7 E3 E5 21 01 00 CD BE 1A CD 1B 20 2A FC DE E5 ...!....... *...
000060: 21 A7 E3 E5 CD 85 25 2A FC DE 23 D1 1B C3 42 2F !.....%*..#...B/
000070: 21 7E E2 CD B0 1A CD 1B 20 C9 21 76 E3 E5 21 00 !~...... .!v..!.
000080: 00 CD 6F 1B CD 1B 20 21 00 00 E5 21 7F 00 D1 CD ..o... !...!....
000090: 66 06 7A B3 CA F5 2F D5 22 F2 DE 2A F2 DE E5 21 f.z.../."..*...!
0000A0: A7 E3 E5 CD B7 25 21 76 E3 E5 21 A7 E3 E5 21 80 .....%!v..!...!.
0000B0: 00 D1 19 E5 21 01 00 CD BE 1A CD 1B 20 2A F2 DE ....!....... *..
0000C0: E5 21 A7 E3 E5 21 80 00 D1 19 E5 CD 85 25 21 76 .!...!.......%!v
0000D0: E3 E5 2A F2 DE CD 6F 1B CD 1B 20 21 76 E3 E5 21 ..*...o... !v..!
0000E0: A7 E3 E5 21 01 00 CD BA 1A CD 1B 20 2A F2 DE 23 ...!....... *..#
0000F0: D1 1B C3 92 2F C9 21 76 E3 E5 21 00 00 CD 6F 1B ..../.!v..!...o.
000100: CD 1B 20 21 00 00 E5 21 7F 00 D1 CD 66 06 7A B3 .. !...!....f.z.
000110: CA 40 30 D5 22 E8 DE 2A E8 DE E5 21 A7 E3 E5 CD .@0."..*...!....
000120: B7 25 21 76 E3 E5 21 A7 E3 E5 21 01 00 CD BA 1A .%!v..!...!.....
000130: 21 0B 00 E5 CD 69 2E 2A E8 DE 23 D1 1B C3 0E 30 !....i.*..#....0
000140: C9 21 76 E3 E5 21 00 00 CD 6F 1B CD 1B 20 21 00 .!v..!...o... !.
000150: 00 E5 21 7F 00 D1 CD 66 06 7A B3 CA 8B 30 D5 22 ..!....f.z...0."
000160: DE DE 21 76 E3 E5 21 A7 E3 E5 21 01 00 CD BE 1A ..!v..!...!.....
000170: 21 0B 00 E5 CD 69 2E 2A DE DE E5 21 A7 E3 E5 CD !....i.*...!....
000180: 85 25 2A DE DE 23 D1 1B C3 59 30 C9 2A A6 E3 26 .%*..#...Y0.*..&
000190: 00 E5 21 02 00 D1 CD 7F 06 CB 45 CA A4 30 CD 41 ..!.......E..0.A
0001A0: 30 C3 A7 30 CD F6 2F C9 21 00 40 22 A8 E4 21 00 0..0../.!.@"..!.
0001B0: 40 22 AC E4 CD 6F E2 C9 FD E1 E1 22 CA DE E1 22 @"...o....."..."
0001C0: CC DE FD E5 2A CC DE E5 CD 81 05 21 00 00 E5 21 ....*......!...!
0001D0: 1B 00 CD 9B 05 CD 4F 13 7D EE 01 6F CB 45 CA 26 ......O.}..o.E.&
0001E0: 31 CD 2E 2C CD 9B 14 CD BA 17 28 46 41 54 41 4C 1..,......(FATAL
0001F0: 20 45 52 52 4F 52 20 31 3A 20 69 6C 6C 65 67 61 ERROR 1: illega
Size : 512 (Real : 512)
000000: 21 03 00 E5 21 03 00 E5 CD 76 2B C3 19 39 21 03 !...!....v+..9!.
000010: 00 E5 21 02 00 E5 CD 76 2B C9 FD E1 E1 22 10 DD ..!....v+...."..
000020: E1 22 12 DD E1 22 14 DD E1 22 16 DD E1 22 18 DD ."..."..."..."..
000030: FD E5 2A 18 DD E5 2A 16 DD E5 2A 14 DD E5 2A 12 ..*...*...*...*.
000040: DD E5 2A 10 DD E5 CD F0 37 21 B4 EB E5 2A 18 DD ..*.....7!...*..
000050: 2B 11 5D 00 CD F5 06 D1 19 22 08 DD 2A 08 DD 11 +.]......"..*...
000060: 08 00 19 E5 CD 4D 05 00 06 50 CD 01 06 2A 08 DD .....M...P...*..
000070: 11 5A 00 19 E5 21 01 00 EB E1 73 2A 08 DD 11 59 .Z...!....s*...Y
000080: 00 19 E5 21 00 00 EB E1 73 C9 FD E1 E1 22 02 DD ...!....s...."..
000090: E1 22 04 DD FD E5 2A 04 DD E5 21 01 00 D1 EB B7 ."....*...!.....
0000A0: ED 52 E5 21 7F 02 E5 21 01 00 D1 19 E5 21 50 00 .R.!...!.....!P.
0000B0: D1 CD 0F 07 D1 CD F5 06 E5 2A 02 DD D1 EB B7 ED .........*......
0000C0: 52 E5 21 08 00 D1 CD 0F 07 22 F8 DC 2A F8 DC E5 R.!......"..*...
0000D0: 21 00 00 D1 CD E0 06 CB 45 CA E5 39 21 00 00 22 !.......E..9!.."
0000E0: F8 DC C3 FB 39 2A F8 DC E5 21 4F 00 D1 CD CC 06 ....9*...!O.....
0000F0: CB 45 CA FB 39 21 4F 00 22 F8 DC 2A F8 DC 22 06 .E..9!O."..*..".
000100: DD 2A 06 DD C9 FD E1 E1 22 F2 DC E1 22 F4 DC FD .*......"..."...
000110: E5 21 7F 02 E5 21 01 00 D1 19 E5 21 50 00 D1 CD .!...!.....!P...
000120: 0F 07 22 E8 DC 2A F4 DC E5 2A E8 DC D1 CD F5 06 .."..*...*......
000130: E5 2A F2 DC D1 19 E5 21 01 00 D1 EB B7 ED 52 E5 .*.....!......R.
000140: 21 08 00 D1 CD 0F 07 22 E8 DC 2A E8 DC E5 21 00 !......"..*...!.
000150: 00 D1 CD E0 06 CB 45 CA 63 3A 21 00 00 22 E8 DC ......E.c:!.."..
000160: C3 79 3A 2A E8 DC E5 21 4F 00 D1 CD CC 06 CB 45 .y:*...!O......E
000170: CA 79 3A 21 4F 00 22 E8 DC 2A E8 DC 22 F6 DC 2A .y:!O."..*.."..*
000180: F6 DC C9 FD E1 E1 22 E2 DC E1 22 E4 DC FD E5 2A ......"..."....*
000190: E4 DC E5 21 01 00 D1 EB B7 ED 52 E5 21 C7 00 E5 ...!......R.!...
0001A0: 21 01 00 D1 19 E5 21 19 00 D1 CD 0F 07 D1 CD F5 !.....!.........
0001B0: 06 E5 2A E2 DC D1 EB B7 ED 52 22 D8 DC 2A D8 DC ..*......R"..*..
0001C0: E5 21 00 00 D1 CD E0 06 CB 45 CA D6 3A 21 00 00 .!.......E..:!..
0001D0: 22 D8 DC C3 EC 3A 2A D8 DC E5 21 C7 00 D1 CD CC "....:*...!.....
0001E0: 06 CB 45 CA EC 3A 21 C7 00 22 D8 DC 2A D8 DC 22 ..E..:!.."..*.."
0001F0: E6 DC 2A E6 DC C9 FD E1 E1 22 D2 DC E1 22 D4 DC ..*......"..."..
Size : 512 (Real : 512)
000000: 6C 20 70 72 6F 63 65 64 75 72 65 20 6E 75 6D 62 l procedure numb
000010: 65 72 20 2A CC DE E5 21 00 00 CD 26 17 CD CD 17 er *...!...&....
000020: CD 1B 20 C3 D4 20 2A CA DE E5 CD 81 05 21 00 00 .. .. *......!..
000030: E5 21 07 00 CD 9B 05 CD 4F 13 7D EE 01 6F CB 45 .!......O.}..o.E
000040: CA 82 31 CD 2E 2C CD 9B 14 CD BA 17 22 46 41 54 ..1..,......"FAT
000050: 41 4C 20 45 52 52 4F 52 20 32 3A 20 69 6C 6C 65 AL ERROR 2: ille
000060: 67 61 6C 20 65 72 72 6F 72 20 63 6F 64 65 20 2A gal error code *
000070: CA DE E5 21 00 00 CD 26 17 CD CD 17 CD 1B 20 C3 ...!...&...... .
000080: D4 20 2A CA DE 7D 32 65 F2 2A 69 F2 26 00 CB 45 . *..}2e.*i.&..E
000090: CA 96 31 CD 2E 2C 2A 6A F2 26 00 E5 2A 69 F2 26 ..1..,*j.&..*i.&
0000A0: 00 D1 7D B3 6F CB 45 CA 62 32 CD 19 2B 22 C0 DE ..}.o.E.b2..+"..
0000B0: CD 2C 2B 22 BE DE 21 01 00 E5 21 18 00 E5 CD 3F .,+"..!...!....?
0000C0: 2B CD 99 02 CD 9B 14 CD BA 17 15 54 75 72 62 6F +..........Turbo
0000D0: 20 47 72 61 70 68 69 78 20 65 72 72 6F 72 20 23 Graphix error #
0000E0: 2A CA DE E5 21 00 00 CD 26 17 CD BA 17 0F 20 69 *...!...&..... i
0000F0: 6E 20 70 72 6F 63 65 64 75 72 65 20 23 2A CC DE n procedure #*..
000100: E5 21 00 00 CD 26 17 CD CD 17 CD 1B 20 2A 6A F2 .!...&...... *j.
000110: 26 00 CB 45 CA 62 32 CD 99 02 CD 9B 14 21 28 00 &..E.b2......!(.
000120: CD 22 17 21 15 F2 E5 2A CA DE 29 D1 19 5E 23 56 .".!...*..)..^#V
000130: EB CD 3A 05 21 00 00 CD AA 17 CD BA 17 04 20 69 ..:.!......... i
000140: 6E 20 21 25 F2 E5 2A CC DE 29 D1 19 5E 23 56 EB n !%..*..)..^#V.
000150: CD 3A 05 21 00 00 CD AA 17 21 29 00 CD 22 17 CD .:.!.....!).."..
000160: 1B 20 2A 6A F2 26 00 E5 2A 69 F2 26 00 D1 7D A3 . *j.&..*i.&..}.
000170: 6F CB 45 CA 7C 32 C3 D4 20 C3 04 33 2A 69 F2 26 o.E.|2.. ..3*i.&
000180: 00 CB 45 CA 8C 32 C3 D4 20 C3 04 33 2A 6A F2 26 ..E..2.. ..3*j.&
000190: 00 CB 45 CA 04 33 CD 9B 14 CD BA 17 0E 2E 20 20 ..E..3........
0001A0: 48 69 74 20 65 6E 74 65 72 3A 20 CD 1B 20 21 BA Hit enter: .. !.
0001B0: 00 CD A9 14 21 BD DE CD 44 16 CD 1B 20 2A BD DE ....!...D... *..
0001C0: 26 00 E5 21 0D 00 D1 CD 7F 06 E5 2A BD DE 26 00 &..!.......*..&.
0001D0: E5 21 03 00 D1 CD 7F 06 D1 7D B3 6F CB 45 CA AE .!.......}.o.E..
0001E0: 32 2A BD DE 26 00 E5 21 03 00 D1 CD 7F 06 CB 45 2*..&..!.......E
0001F0: CA F9 32 CD 2E 2C C3 D4 20 2A C0 DE E5 2A BE DE ..2..,.. *...*..
Size : 512 (Real : 512)
000000: FD E5 2A D4 DC E5 21 C7 00 E5 21 01 00 D1 19 E5 ..*...!...!.....
000010: 21 19 00 D1 CD 0F 07 D1 CD F5 06 E5 2A D2 DC D1 !...........*...
000020: 19 E5 21 01 00 D1 EB B7 ED 52 22 C8 DC 2A C8 DC ..!......R"..*..
000030: E5 21 00 00 D1 CD E0 06 CB 45 CA 46 3B 21 00 00 .!.......E.F;!..
000040: 22 C8 DC C3 5C 3B 2A C8 DC E5 21 C7 00 D1 CD CC "...\;*...!.....
000050: 06 CB 45 CA 5C 3B 21 C7 00 22 C8 DC 2A C8 DC 22 ..E.\;!.."..*.."
000060: D6 DC 2A D6 DC C9 FD E1 E1 22 BC DC E1 22 BE DC ..*......"..."..
000070: E1 22 C0 DC E1 22 C2 DC E1 22 C4 DC E1 22 C6 DC ."..."..."..."..
000080: FD E5 2A C6 DC E5 2A C4 DC E5 2A BC DC E5 CD 8A ..*...*...*.....
000090: 39 E5 2A C2 DC E5 2A BC DC E5 CD 83 3A E5 2A C0 9.*...*.....:.*.
0000A0: DC E5 2A BC DC E5 CD 05 3A E5 2A BE DC E5 2A BC ..*.....:.*...*.
0000B0: DC E5 CD F6 3A E5 CD 1A 39 C9 FD E1 E1 22 B2 DC ....:...9...."..
0000C0: FD E5 2A B2 DC E5 CD 81 05 21 01 00 E5 2A 7C F2 ..*......!...*|.
0000D0: CD 9B 05 CD 4F 13 CB 45 CA 48 3D 21 B4 EB E5 2A ....O..E.H=!...*
0000E0: B2 DC 2B 11 5D 00 CD F5 06 D1 19 22 AA DC 2A B2 ..+.]......"..*.
0000F0: DC 22 7A F2 2A AA DC 5E 23 56 EB 22 88 F2 2A AA ."z.*..^#V."..*.
000100: DC 11 02 00 19 5E 23 56 EB 22 84 F2 2A AA DC 11 .....^#V."..*...
000110: 04 00 19 5E 23 56 EB 22 86 F2 2A AA DC 11 06 00 ...^#V."..*.....
000120: 19 5E 23 56 EB 22 82 F2 2A AA DC 11 04 00 19 5E .^#V."..*......^
000130: 23 56 EB E5 2A AA DC 5E 23 56 EB D1 EB B7 ED 52 #V..*..^#V.....R
000140: E5 21 03 00 D1 CD 4E 07 E5 21 07 00 D1 19 E5 21 .!....N..!.....!
000150: AE F2 CD 2C 05 C5 D5 E5 21 B4 F2 CD 2C 05 D9 E1 ...,....!...,...
000160: D1 C1 CD F2 09 D9 E1 CD 08 10 CD FF 09 D9 21 90 ..............!.
000170: F2 CD D1 05 2A AA DC 11 06 00 19 5E 23 56 EB E5 ....*......^#V..
000180: 2A AA DC 11 02 00 19 5E 23 56 EB D1 EB B7 ED 52 *......^#V.....R
000190: E5 21 A2 F2 CD 2C 05 C5 D5 E5 21 A8 F2 CD 2C 05 .!...,....!...,.
0001A0: D9 E1 D1 C1 CD F2 09 D9 E1 CD 08 10 CD FF 09 D9 ................
0001B0: 21 8A F2 CD D1 05 2A AA DC 5E 23 56 EB E5 21 03 !.....*..^#V..!.
0001C0: 00 D1 CD 4E 07 E5 21 B4 F2 CD 2C 05 C5 D5 E5 21 ...N..!...,....!
0001D0: 90 F2 CD 2C 05 D9 E1 D1 C1 CD FA 09 D9 E1 CD 08 ...,............
0001E0: 10 CD F2 09 D9 21 9C F2 CD D1 05 2A AA DC 11 02 .....!.....*....
0001F0: 00 19 5E 23 56 EB E5 21 A8 F2 CD 2C 05 C5 D5 E5 ..^#V..!...,....
Size : 512 (Real : 512)
000000: E5 CD 3F 2B C9 21 00 00 7D 32 69 F2 C9 21 01 00 ..?+.!..}2i..!..
000010: 7D 32 69 F2 C9 2A 65 F2 26 00 7D 32 AC DE 21 00 }2i..*e.&.}2..!.
000020: 00 7D 32 65 F2 2A AC DE 26 00 C9 21 01 00 7D 32 .}2e.*..&..!..}2
000030: 6E F2 C9 21 00 00 7D 32 6E F2 C9 21 01 00 7D 32 n..!..}2n..!..}2
000040: 6D F2 C9 21 00 00 7D 32 6D F2 C9 21 01 00 7D 32 m..!..}2m..!..}2
000050: 6A F2 C9 21 00 00 7D 32 6A F2 C9 21 01 00 7D 32 j..!..}2j..!..}2
000060: 68 F2 C9 21 00 00 7D 32 68 F2 C9 21 01 00 7D 32 h..!..}2h..!..}2
000070: 67 F2 C9 21 00 00 7D 32 67 F2 C9 FD E1 E1 22 52 g..!..}2g....."R
000080: DE FD E5 2A 52 DE E5 CD 81 05 21 01 00 E5 21 10 ...*R.....!...!.
000090: 00 CD 9B 05 CD 4F 13 CB 45 CA DF 33 21 B4 EB E5 .....O..E..3!...
0000A0: 2A 52 DE 2B 11 5D 00 CD F5 06 D1 19 22 4A DE 2A *R.+.]......"J.*
0000B0: 4A DE 11 59 00 19 E5 21 00 00 EB E1 73 2A 4A DE J..Y...!....s*J.
0000C0: 11 5A 00 19 E5 21 01 00 EB E1 73 2A 4A DE 11 08 .Z...!....s*J...
0000D0: 00 19 E5 CD 4D 05 00 06 50 CD 01 06 C3 EA 33 21 ....M...P.....3!
0000E0: 16 00 E5 21 02 00 E5 CD 76 2B C9 21 FF 00 E5 CD ...!....v+.!....
0000F0: 00 25 C9 21 00 00 E5 CD 00 25 C9 2A 7A F2 22 38 .%.!.....%.*z."8
000100: DE 2A 38 DE C9 2A 6D F2 26 00 7D 32 2F DE 2A 2F .*8..*m.&.}2/.*/
000110: DE 26 00 C9 2A 6E F2 26 00 7D EE 01 6F 7D 32 26 .&..*n.&.}..o}2&
000120: DE 2A 26 DE 26 00 C9 FD E1 E1 D1 C1 D9 21 18 DE .*&.&........!..
000130: CD D1 05 FD E5 21 18 DE CD 2C 05 C5 D5 E5 21 00 .....!...,....!.
000140: 00 11 00 00 01 00 00 D9 E1 D1 C1 CD 9B 06 CB 45 ...............E
000150: CA 62 34 21 18 DE CD 2C 05 CB B8 D9 21 E6 F1 CD .b4!...,....!...
000160: D1 05 C9 21 E6 F1 CD 2C 05 D9 21 0A DE CD D1 05 ...!...,..!.....
000170: 21 0A DE CD 2C 05 C9 FD E1 E1 D1 C1 D9 21 FC DD !...,........!..
000180: CD D1 05 FD E5 21 FC DD CD 2C 05 C5 D5 E5 21 00 .....!...,....!.
000190: 00 11 00 00 01 00 00 D9 E1 D1 C1 CD 9B 06 CB 45 ...............E
0001A0: CA C5 34 21 FC DD CD 2C 05 CB B8 C5 D5 E5 21 80 ..4!...,......!.
0001B0: 00 11 00 00 01 00 00 D9 E1 D1 C1 CD FA 09 D9 21 ...............!
0001C0: E6 F1 CD D1 05 C9 21 E6 F1 CD 2C 05 C5 D5 E5 21 ......!...,....!
0001D0: 80 00 11 00 00 01 00 00 D9 E1 D1 C1 CD FF 09 D9 ................
0001E0: 21 EE DD CD D1 05 21 EE DD CD 2C 05 C9 C3 F5 34 !.....!...,....4
0001F0: FF 88 F8 E4 EE FD E1 E1 22 E4 DD FD E5 2A E4 DD ........"....*..
Size : 512 (Real : 512)
000000: 21 8A F2 CD 2C 05 D9 E1 D1 C1 CD FA 09 D9 E1 CD !...,...........
000010: 08 10 CD F2 09 D9 21 96 F2 CD D1 05 2A 6C F2 26 ......!.....*l.&
000020: 00 CB 45 CA 45 3D 21 00 00 7D 32 6C F2 21 00 00 ..E.E=!..}2l.!..
000030: 22 78 F2 21 00 00 22 74 F2 21 00 00 22 76 F2 21 "x.!.."t.!.."v.!
000040: 00 00 22 72 F2 C3 53 3D 21 04 00 E5 21 02 00 E5 .."r..S=!...!...
000050: CD 76 2B C9 FD E1 E1 D1 C1 D9 21 A2 DC CD D1 05 .v+.......!.....
000060: FD E5 21 9C F2 CD 2C 05 C5 D5 E5 21 90 F2 CD 2C ..!...,....!...,
000070: 05 C5 D5 E5 21 A2 DC CD 2C 05 D9 E1 D1 C1 CD FA ....!...,.......
000080: 09 D9 E1 D1 C1 CD E9 09 CD DE 0F 22 A8 DC 2A A8 ..........."..*.
000090: DC C9 FD E1 E1 D1 C1 D9 21 92 DC CD D1 05 FD E5 ........!.......
0000A0: 21 96 F2 CD 2C 05 C5 D5 E5 21 8A F2 CD 2C 05 C5 !...,....!...,..
0000B0: D5 E5 21 92 DC CD 2C 05 D9 E1 D1 C1 CD FA 09 D9 ..!...,.........
0000C0: E1 D1 C1 CD E9 09 CD DE 0F 22 98 DC 2A 98 DC C9 ........."..*...
0000D0: 21 01 00 E5 21 01 00 E5 CD 3F 2B 21 01 00 7D 32 !...!....?+!..}2
0000E0: 6A F2 21 00 00 7D 32 69 F2 21 25 F2 E5 21 00 00 j.!..}2i.!%..!..
0000F0: 29 D1 19 E5 21 10 00 CD E5 1C 21 15 F2 E5 21 00 )...!.....!...!.
000100: 00 29 D1 19 E5 21 18 00 CD E5 1C 21 25 F2 E5 21 .)...!.....!%..!
000110: 00 00 29 D1 19 5E 23 56 EB E5 CD 4D 05 0B 49 6E ..)..^#V...M..In
000120: 69 74 47 72 61 70 68 69 63 06 50 CD 01 06 21 15 itGraphic.P...!.
000130: F2 E5 21 00 00 29 D1 19 5E 23 56 EB E5 CD 4D 05 ..!..)..^#V...M.
000140: 11 45 52 52 4F 52 2E 4D 53 47 20 6D 69 73 73 69 .ERROR.MSG missi
000150: 6E 67 06 50 CD 01 06 21 22 DB E5 CD 4D 05 09 65 ng.P...!"...M..e
000160: 72 72 6F 72 2E 6D 73 67 CD 6F 13 CD 1B 20 21 22 rror.msg.o... !"
000170: DB CD FF 13 CD F1 1F E5 21 00 00 D1 CD 7F 06 CB ........!.......
000180: 45 CA 94 3F 21 00 00 E5 21 1B 00 D1 CD 66 06 7A E..?!...!....f.z
000190: B3 CA FC 3E D5 22 CF DA 21 22 DB CD A9 14 21 D1 ...>."..!"....!.
0001A0: DA 06 50 CD 8E 16 CD AB 16 CD 1B 20 2A CF DA E5 ..P........ *...
0001B0: 21 00 00 D1 CD 92 06 CB 45 CA D9 3E 21 25 F2 E5 !.......E..>!%..
0001C0: 2A CF DA 29 D1 19 E5 21 D1 DA CD 3A 05 CD A3 08 *..)...!...:....
0001D0: E5 21 01 00 D1 19 CD E5 1C 21 25 F2 E5 2A CF DA .!.......!%..*..
0001E0: 29 D1 19 5E 23 56 EB E5 21 D1 DA CD 3A 05 06 50 )..^#V..!...:..P
0001F0: CD 01 06 2A CF DA 23 D1 1B C3 8F 3E 21 00 00 E5 ...*..#....>!...
Size : 512 (Real : 512)
000000: B2 DA 73 23 72 2A B6 DA 5E 23 56 EB E5 2A 84 F2 ..s#r*..^#V..*..
000010: E5 2A 82 F2 E5 CD 80 42 22 A6 DA 2A B2 DA 5E 23 .*.....B"..*..^#
000020: 56 EB E5 2A 84 F2 E5 2A 82 F2 E5 CD 80 42 22 A2 V..*...*.....B".
000030: DA 2A A6 DA E5 21 00 00 D1 CD 92 06 E5 2A A2 DA .*...!.......*..
000040: E5 21 00 00 D1 CD 92 06 D1 7D B3 6F CB 45 CA 58 .!.......}.o.E.X
000050: 47 21 00 00 7D 32 9B DA 2A 9B DA 26 00 CB 45 CA G!..}2..*..&..E.
000060: B5 47 2A B8 DA 5E 23 56 EB E5 2A 9E DA E5 2A 9C .G*..^#V..*...*.
000070: DA E5 CD 80 42 22 A8 DA 2A B4 DA 5E 23 56 EB E5 ....B"..*..^#V..
000080: 2A 9E DA E5 2A 9C DA E5 CD 80 42 22 A4 DA 2A A4 *...*.....B"..*.
000090: DA E5 21 00 00 D1 CD 92 06 E5 2A A8 DA E5 21 00 ..!.......*...!.
0000A0: 00 D1 CD 92 06 D1 7D B3 6F CB 45 CA B5 47 21 00 ......}.o.E..G!.
0000B0: 00 7D 32 9B DA 2A 9B DA 26 00 7D 32 BA DA 2A BA .}2..*..&.}2..*.
0000C0: DA 26 00 C9 FD E1 E1 D1 C1 D9 21 7F DA CD D1 05 .&........!.....
0000D0: E1 D1 C1 D9 21 85 DA CD D1 05 FD E5 2A 6E F2 26 ....!.......*n.&
0000E0: 00 CB 45 CA 00 48 21 85 DA CD 2C 05 CD DE 0F E5 ..E..H!...,.....
0000F0: 21 7F DA CD 2C 05 CD DE 0F E5 CD 48 2D C3 97 48 !...,......H-..H
000100: 21 85 DA CD 2C 05 C5 D5 E5 CD 54 3D 22 75 DA 21 !...,.....T="u.!
000110: 7F DA CD 2C 05 C5 D5 E5 CD 92 3D 22 73 DA 2A 6D ...,......="s.*m
000120: F2 26 00 CB 45 CA 8C 48 2A 75 DA E5 2A 88 F2 E5 .&..E..H*u..*...
000130: 21 03 00 D1 CD 4E 07 D1 CD A5 06 E5 2A 75 DA E5 !....N......*u..
000140: 2A 86 F2 E5 21 03 00 D1 CD 4E 07 E5 21 07 00 D1 *...!....N..!...
000150: 19 D1 CD E0 06 D1 7D A3 6F CB 45 CA 89 48 2A 73 ......}.o.E..H*s
000160: DA E5 2A 84 F2 D1 CD A5 06 E5 2A 73 DA E5 2A 82 ..*.......*s..*.
000170: F2 D1 CD B8 06 D1 7D A3 6F CB 45 CA 89 48 2A 75 ......}.o.E..H*u
000180: DA E5 2A 73 DA E5 CD 48 2D C3 97 48 2A 75 DA E5 ..*s...H-..H*u..
000190: 2A 73 DA E5 CD 48 2D C9 FD E1 E1 D1 C1 D9 21 66 *s...H-.......!f
0001A0: DA CD D1 05 E1 D1 C1 D9 21 6C DA CD D1 05 FD E5 ........!l......
0001B0: 2A 6E F2 26 00 CB 45 CA D8 48 21 6C DA CD 2C 05 *n.&..E..H!l..,.
0001C0: CD DE 0F E5 21 66 DA CD 2C 05 CD DE 0F E5 CD 79 ....!f..,......y
0001D0: 2D 7D 32 72 DA C3 F9 48 21 6C DA CD 2C 05 C5 D5 -}2r...H!l..,...
0001E0: E5 CD 54 3D E5 21 66 DA CD 2C 05 C5 D5 E5 CD 92 ..T=.!f..,......
0001F0: 3D E5 CD 79 2D 7D 32 72 DA 2A 72 DA 26 00 C9 FD =..y-}2r.*r.&...
Size : 512 (Real : 512)
000000: 21 07 00 D1 CD 66 06 7A B3 CA 74 3F D5 22 CF DA !....f.z..t?."..
000010: 21 22 DB CD A9 14 21 D1 DA 06 50 CD 8E 16 CD AB !"....!...P.....
000020: 16 CD 1B 20 2A CF DA E5 21 00 00 D1 CD 92 06 CB ... *...!.......
000030: 45 CA 51 3F 21 15 F2 E5 2A CF DA 29 D1 19 E5 21 E.Q?!...*..)...!
000040: D1 DA CD 3A 05 CD A3 08 E5 21 01 00 D1 19 CD E5 ...:.....!......
000050: 1C 21 15 F2 E5 2A CF DA 29 D1 19 5E 23 56 EB E5 .!...*..)..^#V..
000060: 21 D1 DA CD 3A 05 06 50 CD 01 06 2A CF DA 23 D1 !...:..P...*..#.
000070: 1B C3 07 3F 21 22 DB CD A9 14 21 EC F1 06 28 CD ...?!"....!...(.
000080: 8E 16 CD AB 16 CD 1B 20 21 22 DB CD 69 14 CD 1B ....... !"..i...
000090: 20 C3 4B 40 21 25 F2 E5 21 01 00 29 D1 19 E5 21 .K@!%..!..)...!
0000A0: 0E 00 CD E5 1C 21 25 F2 E5 21 01 00 29 D1 19 5E .....!%..!..)..^
0000B0: 23 56 EB E5 CD 4D 05 0D 2A 2A 20 55 4E 4B 4E 4F #V...M..** UNKNO
0000C0: 57 4E 20 2A 2A 06 50 CD 01 06 21 02 00 E5 21 1B WN **.P...!...!.
0000D0: 00 D1 CD 66 06 7A B3 CA 05 40 D5 22 CF DA 21 25 ...f.z...@."..!%
0000E0: F2 E5 2A CF DA 29 D1 19 E5 21 25 F2 E5 21 01 00 ..*..)...!%..!..
0000F0: 29 D1 19 5E 23 56 EB EB E1 73 23 72 2A CF DA 23 )..^#V...s#r*..#
000100: D1 1B C3 D5 3F 21 01 00 E5 21 07 00 D1 CD 66 06 ....?!...!....f.
000110: 7A B3 CA 40 40 D5 22 CF DA 21 15 F2 E5 2A CF DA z..@@."..!...*..
000120: 29 D1 19 E5 21 25 F2 E5 21 01 00 29 D1 19 5E 23 )...!%..!..)..^#
000130: 56 EB EB E1 73 23 72 2A CF DA 23 D1 1B C3 10 40 V...s#r*..#....@
000140: 21 00 00 E5 21 00 00 E5 CD 76 2B 21 01 00 E5 21 !...!....v+!...!
000150: 04 00 D1 CD 66 06 7A B3 CA 93 40 D5 22 CF DA 2A ....f.z...@."..*
000160: CF DA E5 21 00 00 CD 08 10 C5 D5 E5 21 00 00 CD ...!........!...
000170: 08 10 C5 D5 E5 21 7F 02 CD 08 10 C5 D5 E5 21 C7 .....!........!.
000180: 00 CD 08 10 C5 D5 E5 CD 49 36 2A CF DA 23 D1 1B ........I6*..#..
000190: C3 56 40 21 01 00 22 7E F2 21 01 00 E5 21 10 00 .V@!.."~.!...!..
0001A0: D1 CD 66 06 7A B3 CA 05 41 D5 22 CF DA 2A CF DA ..f.z...A."..*..
0001B0: E5 21 00 00 E5 21 00 00 E5 21 4F 00 E5 21 C7 00 .!...!...!O..!..
0001C0: E5 CD 1A 39 21 B5 E4 E5 2A CF DA 2B 11 5E 00 CD ...9!...*..+.^..
0001D0: F5 06 D1 19 22 82 DC 2A 82 DC 11 5B 00 19 E5 21 ...."..*...[...!
0001E0: 00 00 EB E1 73 23 72 2A 82 DC 11 5D 00 19 E5 21 ....s#r*...]...!
0001F0: 00 00 EB E1 73 2A CF DA E5 CD 7B 33 2A CF DA 23 ....s*....{3*..#
Size : 512 (Real : 512)
000000: E1 E1 22 56 DA E1 22 58 DA E1 22 5A DA E1 22 5C .."V.."X.."Z.."\
000010: DA FD E5 2A 80 F2 E5 21 00 00 D1 CD 7F 06 CB 45 ...*...!.......E
000020: CA 3C 49 2A 5C DA E5 2A 5A DA E5 CD 23 25 2A 58 .<I*\..*Z...#%*X
000030: DA E5 2A 56 DA E5 CD 54 25 C3 68 4A 2A 5C DA 22 ..*V...T%.hJ*\."
000040: 4C DA 2A 5A DA 22 4A DA 21 01 00 22 44 DA 21 01 L.*Z."J.!.."D.!.
000050: 00 22 42 DA 2A 5C DA E5 2A 58 DA D1 CD CC 06 CB ."B.*\..*X......
000060: 45 CA 6A 49 21 FF FF 22 44 DA 2A 5A DA E5 2A 56 E.jI!.."D.*Z..*V
000070: DA D1 CD CC 06 CB 45 CA 80 49 21 FF FF 22 42 DA ......E..I!.."B.
000080: 2A 58 DA E5 2A 5C DA D1 EB B7 ED 52 CD 80 07 22 *X..*\.....R..."
000090: 48 DA 2A 56 DA E5 2A 5A DA D1 EB B7 ED 52 CD 80 H.*V..*Z.....R..
0000A0: 07 22 46 DA 2A 48 DA E5 21 00 00 D1 CD 7F 06 CB ."F.*H..!.......
0000B0: 45 CA BD 49 21 FF FF 22 40 DA C3 C3 49 21 00 00 E..I!.."@...I!..
0000C0: 22 40 DA 2A 4C DA E5 2A 58 DA D1 CD 7F 06 E5 2A "@.*L..*X......*
0000D0: 4A DA E5 2A 56 DA D1 CD 7F 06 D1 7D A3 6F 7D EE J..*V......}.o}.
0000E0: 01 6F CB 45 CA 68 4A 2A 66 F2 26 00 E5 21 01 00 .o.E.hJ*f.&..!..
0000F0: D1 19 E5 21 07 00 D1 7C A2 67 7D A3 6F 7D 32 66 ...!...|.g}.o}2f
000100: F2 21 5D F2 E5 2A 66 F2 26 00 D1 19 6E 26 00 CB .!]..*f.&...n&..
000110: 45 CA 1F 4A 2A 4C DA E5 2A 4A DA E5 CD 48 2D 2A E..J*L..*J...H-*
000120: 40 DA E5 21 00 00 D1 CD E0 06 CB 45 CA 4A 4A 2A @..!.......E.JJ*
000130: 4A DA E5 2A 42 DA D1 19 22 4A DA 2A 40 DA E5 2A J..*B..."J.*@..*
000140: 48 DA D1 19 22 40 DA C3 65 4A 2A 4C DA E5 2A 44 H..."@..eJ*L..*D
000150: DA D1 19 22 4C DA 2A 40 DA E5 2A 46 DA D1 EB B7 ..."L.*@..*F....
000160: ED 52 22 40 DA C3 C3 49 C9 FD E1 E1 22 38 DA E1 .R"@...I...."8..
000170: 22 3A DA E1 22 3C DA E1 22 3E DA FD E5 21 3E DA ":.."<..">...!>.
000180: E5 21 3C DA E5 21 3A DA E5 21 38 DA E5 CD 7D 42 .!<..!:..!8...}B
000190: CB 45 CA A8 4A 2A 3E DA E5 2A 3C DA E5 2A 3A DA .E..J*>..*<..*:.
0001A0: E5 2A 38 DA E5 CD FF 48 C9 FD E1 E1 D1 C1 D9 21 .*8....H.......!
0001B0: 18 DA CD D1 05 E1 D1 C1 D9 21 1E DA CD D1 05 E1 .........!......
0001C0: D1 C1 D9 21 24 DA CD D1 05 E1 D1 C1 D9 21 2A DA ...!$........!*.
0001D0: CD D1 05 FD E5 2A 6E F2 26 00 CB 45 CA 0D 4B 21 .....*n.&..E..K!
0001E0: 2A DA CD 2C 05 CD DE 0F E5 21 24 DA CD 2C 05 CD *..,.....!$..,..
0001F0: DE 0F E5 21 1E DA CD 2C 05 CD DE 0F E5 21 18 DA ...!...,.....!..
Size : 512 (Real : 512)
000000: D1 1B C3 A4 40 21 01 00 22 7C F2 21 D2 DB E5 21 ....@!.."|.!...!
000010: 00 21 CD 3A 05 CD 70 13 21 D2 DB 11 1D 01 CD 11 .!.:..p.!.......
000020: 18 CD F1 1F E5 21 00 00 D1 CD 7F 06 CB 45 CA 43 .....!.......E.C
000030: 41 21 D2 DB CD A4 18 21 97 EA CD B6 18 CD 1B 20 A!.....!.......
000040: C3 4E 41 21 00 00 E5 21 01 00 E5 CD 76 2B 21 D2 .NA!...!....v+!.
000050: DB CD 7A 18 CD 1B 20 21 01 00 7D 32 69 F2 21 01 ..z... !..}2i.!.
000060: 00 E5 CD 01 2F 21 01 00 22 7A F2 21 01 00 E5 CD ..../!.."z.!....
000070: 6D 37 21 01 00 E5 CD BA 3B CD EB 33 CD 3B 33 21 m7!.....;..3.;3!
000080: 80 00 11 00 00 01 00 00 C5 D5 E5 CD 77 34 21 00 ............w4!.
000090: 00 7D 32 6E F2 21 00 00 7D 32 6F F2 CD 4B 33 CD .}2n.!..}2o..K3.
0000A0: 63 33 CD 6B 33 21 00 00 7D 32 65 F2 21 00 00 E5 c3.k3!..}2e.!...
0000B0: CD ED 34 21 05 00 22 70 F2 CD 87 2C 21 00 00 22 ..4!.."p...,!.."
0000C0: 78 F2 21 00 00 22 76 F2 21 00 00 22 74 F2 21 00 x.!.."v.!.."t.!.
0000D0: 00 22 72 F2 21 00 00 7D 32 6C F2 21 00 00 7D 32 ."r.!..}2l.!..}2
0000E0: 6B F2 C9 21 01 00 E5 21 10 00 D1 CD 66 06 7A B3 k..!...!....f.z.
0000F0: CA 1E 42 D5 22 C5 DA 2A C5 DA E5 21 00 00 E5 21 ..B."..*...!...!
000100: 00 00 E5 21 4F 00 E5 21 C7 00 E5 CD 1A 39 2A C5 ...!O..!.....9*.
000110: DA E5 CD 7B 33 2A C5 DA 23 D1 1B C3 EE 41 21 01 ...{3*..#....A!.
000120: 00 E5 CD BA 3B C9 21 01 00 E5 21 04 00 D1 CD 66 ....;.!...!....f
000130: 06 7A B3 CA 6E 42 D5 22 BB DA 2A BB DA E5 21 00 .z..nB."..*...!.
000140: 00 CD 08 10 C5 D5 E5 21 00 00 CD 08 10 C5 D5 E5 .......!........
000150: 21 7F 02 CD 08 10 C5 D5 E5 21 C7 00 CD 08 10 C5 !........!......
000160: D5 E5 CD 49 36 2A BB DA 23 D1 1B C3 31 42 21 01 ...I6*..#...1B!.
000170: 00 E5 CD 6D 37 2A 7A F2 E5 CD BA 3B C9 C3 C9 42 ...m7*z....;...B
000180: FD E1 E1 22 93 DA E1 22 95 DA E1 22 97 DA FD E5 ..."..."..."....
000190: 21 00 00 22 99 DA 2A 97 DA E5 2A 95 DA D1 CD E0 !.."..*...*.....
0001A0: 06 CB 45 CA AF 42 21 FF FF 22 99 DA C3 C5 42 2A ..E..B!.."....B*
0001B0: 97 DA E5 2A 93 DA D1 CD CC 06 CB 45 CA C5 42 21 ...*.......E..B!
0001C0: 01 00 22 99 DA 2A 99 DA C9 FD E1 E1 22 B2 DA E1 .."..*......"...
0001D0: 22 B4 DA E1 22 B6 DA E1 22 B8 DA FD E5 21 01 00 "..."..."....!..
0001E0: 7D 32 BA DA 21 01 00 7D 32 9B DA 2A 6D F2 26 00 }2..!..}2..*m.&.
0001F0: CB 45 CA BE 47 2A 6B F2 26 00 CB 45 CA 0E 43 2A .E..G*k.&..E..C*
Size : 512 (Real : 512)
000000: CD 2C 05 CD DE 0F E5 CD FF 48 C3 44 4B 21 2A DA .,.......H.DK!*.
000010: CD 2C 05 C5 D5 E5 CD 54 3D E5 21 24 DA CD 2C 05 .,.....T=.!$..,.
000020: C5 D5 E5 CD 92 3D E5 21 1E DA CD 2C 05 C5 D5 E5 .....=.!...,....
000030: CD 54 3D E5 21 18 DA CD 2C 05 C5 D5 E5 CD 92 3D .T=.!...,......=
000040: E5 CD 69 4A C9 FD E1 E1 22 08 DA E1 22 0A DA E1 ..iJ...."..."...
000050: 22 0C DA E1 22 0E DA FD E5 21 0E DA E5 21 0C DA "..."....!...!..
000060: E5 21 0A DA E5 21 08 DA E5 CD 7D 42 CB 45 CA 98 .!...!....}B.E..
000070: 4B 2A 0E DA CD 08 10 C5 D5 E5 2A 0C DA CD 08 10 K*........*.....
000080: C5 D5 E5 2A 0A DA CD 08 10 C5 D5 E5 2A 08 DA CD ...*........*...
000090: 08 10 C5 D5 E5 CD A9 4A C9 FD E1 E1 7D 32 F7 D9 .......J....}2..
0000A0: E1 22 F8 D9 E1 22 FA D9 E1 22 FC D9 E1 22 FE D9 ."..."..."..."..
0000B0: FD E5 2A F7 D9 26 00 7D EE 01 6F CB 45 CA 5F 4C ..*..&.}..o.E._L
0000C0: 2A FE D9 CD 08 10 C5 D5 E5 2A FC D9 CD 08 10 C5 *........*......
0000D0: D5 E5 2A FA D9 CD 08 10 C5 D5 E5 2A FC D9 CD 08 ..*........*....
0000E0: 10 C5 D5 E5 CD A9 4A 2A FA D9 CD 08 10 C5 D5 E5 ......J*........
0000F0: 2A FC D9 CD 08 10 C5 D5 E5 2A FA D9 CD 08 10 C5 *........*......
000100: D5 E5 2A F8 D9 CD 08 10 C5 D5 E5 CD A9 4A 2A FE ..*..........J*.
000110: D9 CD 08 10 C5 D5 E5 2A F8 D9 CD 08 10 C5 D5 E5 .......*........
000120: 2A FA D9 CD 08 10 C5 D5 E5 2A F8 D9 CD 08 10 C5 *........*......
000130: D5 E5 CD A9 4A 2A FE D9 CD 08 10 C5 D5 E5 2A F8 ....J*........*.
000140: D9 CD 08 10 C5 D5 E5 2A FE D9 CD 08 10 C5 D5 E5 .......*........
000150: 2A FC D9 CD 08 10 C5 D5 E5 CD A9 4A C3 A3 4C 2A *..........J..L*
000160: FC D9 E5 2A F8 D9 D1 CD 66 06 7A B3 CA A3 4C D5 ...*....f.z...L.
000170: 22 ED D9 2A FE D9 CD 08 10 C5 D5 E5 2A ED D9 CD "..*........*...
000180: 08 10 C5 D5 E5 2A FA D9 CD 08 10 C5 D5 E5 2A ED .....*........*.
000190: D9 CD 08 10 C5 D5 E5 CD A9 4A 2A ED D9 23 D1 1B .........J*..#..
0001A0: C3 6A 4C C9 FD E1 E1 7D 32 E4 D9 E1 22 E5 D9 E1 .jL....}2..."...
0001B0: 22 E7 D9 E1 22 E9 D9 E1 22 EB D9 FD E5 21 EB D9 "..."..."....!..
0001C0: E5 21 E5 D9 E5 21 E7 D9 E5 21 E9 D9 E5 CD 7D 42 .!...!...!....}B
0001D0: CB 45 CA EE 4C 2A EB D9 E5 2A E5 D9 E5 2A E7 D9 .E..L*...*...*..
0001E0: E5 2A E9 D9 E5 2A E4 D9 26 00 E5 CD 99 4B C9 FD .*...*..&....K..
0001F0: E1 E1 7D 32 C3 D9 E1 D1 C1 D9 21 C4 D9 CD D1 05 ..}2......!.....
Size : 512 (Real : 512)
000000: 88 F2 22 9E DA 2A 86 F2 22 9C DA C3 30 43 2A 88 .."..*.."...0C*.
000010: F2 E5 21 03 00 D1 CD 4E 07 22 9E DA 2A 86 F2 E5 ..!....N."..*...
000020: 21 03 00 D1 CD 4E 07 E5 21 07 00 D1 19 22 9C DA !....N..!...."..
000030: 2A B8 DA 5E 23 56 EB E5 2A 9E DA E5 2A 9C DA E5 *..^#V..*...*...
000040: CD 80 42 22 A8 DA 2A B6 DA 5E 23 56 EB E5 2A 84 ..B"..*..^#V..*.
000050: F2 E5 2A 82 F2 E5 CD 80 42 22 A6 DA 2A B4 DA 5E ..*.....B"..*..^
000060: 23 56 EB E5 2A 9E DA E5 2A 9C DA E5 CD 80 42 22 #V..*...*.....B"
000070: A4 DA 2A B2 DA 5E 23 56 EB E5 2A 84 F2 E5 2A 82 ..*..^#V..*...*.
000080: F2 E5 CD 80 42 22 A2 DA 2A A8 DA E5 2A A4 DA D1 ....B"..*...*...
000090: 7C B2 67 7D B3 6F E5 2A A6 DA D1 7C B2 67 7D B3 |.g}.o.*...|.g}.
0000A0: 6F E5 2A A2 DA D1 7C B2 67 7D B3 6F E5 21 00 00 o.*...|.g}.o.!..
0000B0: D1 CD 92 06 CB 45 CA BE 47 2A B8 DA 5E 23 56 EB .....E..G*..^#V.
0000C0: E5 2A B4 DA 5E 23 56 EB D1 CD 92 06 CB 45 CA 81 .*..^#V......E..
0000D0: 45 2A A8 DA E5 21 00 00 D1 CD 92 06 CB 45 CA 87 E*...!.......E..
0000E0: 44 2A A8 DA E5 21 00 00 D1 CD E0 06 CB 45 CA FA D*...!.......E..
0000F0: 43 2A 9E DA 22 A0 DA C3 00 44 2A 9C DA 22 A0 DA C*.."....D*.."..
000100: 2A B2 DA 5E 23 56 EB E5 2A B6 DA 5E 23 56 EB D1 *..^#V..*..^#V..
000110: CD 92 06 CB 45 CA 7D 44 2A B6 DA 5E 23 56 EB E5 ....E.}D*..^#V..
000120: 2A B2 DA 5E 23 56 EB E5 2A B6 DA 5E 23 56 EB D1 *..^#V..*..^#V..
000130: EB B7 ED 52 E5 2A B4 DA 5E 23 56 EB E5 2A B8 DA ...R.*..^#V..*..
000140: 5E 23 56 EB D1 EB B7 ED 52 CD 08 10 D9 E1 CD 08 ^#V.....R.......
000150: 10 CD FF 09 C5 D5 E5 2A A0 DA E5 2A B8 DA 5E 23 .......*...*..^#
000160: 56 EB D1 EB B7 ED 52 CD 08 10 D9 E1 D1 C1 CD FA V.....R.........
000170: 09 CD DE 0F D1 19 EB 2A B6 DA 73 23 72 2A A0 DA .......*..s#r*..
000180: EB 2A B8 DA 73 23 72 2A A4 DA E5 21 00 00 D1 CD .*..s#r*...!....
000190: 92 06 E5 2A B8 DA 5E 23 56 EB E5 2A B4 DA 5E 23 ...*..^#V..*..^#
0001A0: 56 EB D1 CD 92 06 D1 7D A3 6F CB 45 CA 55 45 2A V......}.o.E.UE*
0001B0: A4 DA E5 21 00 00 D1 CD E0 06 CB 45 CA C8 44 2A ...!.......E..D*
0001C0: 9E DA 22 A0 DA C3 CE 44 2A 9C DA 22 A0 DA 2A B2 .."....D*.."..*.
0001D0: DA 5E 23 56 EB E5 2A B6 DA 5E 23 56 EB D1 CD 92 .^#V..*..^#V....
0001E0: 06 CB 45 CA 4B 45 2A B6 DA 5E 23 56 EB E5 2A B2 ..E.KE*..^#V..*.
0001F0: DA 5E 23 56 EB E5 2A B6 DA 5E 23 56 EB D1 EB B7 .^#V..*..^#V....
Size : 512 (Real : 512)
000000: E1 D1 C1 D9 21 CA D9 CD D1 05 E1 D1 C1 D9 21 D0 ....!.........!.
000010: D9 CD D1 05 E1 D1 C1 D9 21 D6 D9 CD D1 05 FD E5 ........!.......
000020: 2A 6E F2 26 00 CB 45 CA 5E 4D 21 D6 D9 CD 2C 05 *n.&..E.^M!...,.
000030: CD DE 0F E5 21 D0 D9 CD 2C 05 CD DE 0F E5 21 CA ....!...,.....!.
000040: D9 CD 2C 05 CD DE 0F E5 21 C4 D9 CD 2C 05 CD DE ..,.....!...,...
000050: 0F E5 2A C3 D9 26 00 E5 CD 99 4B C3 B4 4D 2A 6E ..*..&....K..M*n
000060: F2 26 00 7D 32 BA D9 21 01 00 7D 32 6E F2 21 D6 .&.}2..!..}2n.!.
000070: D9 CD 2C 05 C5 D5 E5 CD 54 3D E5 21 D0 D9 CD 2C ..,.....T=.!...,
000080: 05 C5 D5 E5 CD 92 3D E5 21 CA D9 CD 2C 05 C5 D5 ......=.!...,...
000090: E5 CD 54 3D E5 21 C4 D9 CD 2C 05 C5 D5 E5 CD 92 ..T=.!...,......
0000A0: 3D E5 2A C3 D9 26 00 E5 CD A4 4C 2A BA D9 26 00 =.*..&....L*..&.
0000B0: 7D 32 6E F2 C9 C3 30 4E 00 00 79 00 EF 00 63 01 }2n...0N..y...c.
0000C0: D1 01 38 02 97 02 ED 02 37 03 75 03 A7 03 CB 03 ..8.....7.u.....
0000D0: E1 03 E8 03 FD E1 E1 22 8D D9 E1 22 8F D9 E1 22 ......."..."..."
0000E0: 91 D9 E1 22 93 D9 FD E5 2A B3 D9 26 00 CB 45 CA ..."....*..&..E.
0000F0: 1C 4E 2A 93 D9 CD 08 10 C5 D5 E5 2A 91 D9 CD 08 .N*........*....
000100: 10 C5 D5 E5 2A 8F D9 CD 08 10 C5 D5 E5 2A 8D D9 ....*........*..
000110: CD 08 10 C5 D5 E5 CD A9 4A C3 2F 4E 2A 93 D9 E5 ........J./N*...
000120: 2A 91 D9 E5 2A 8F D9 E5 2A 8D D9 E5 CD 45 4B C9 *...*...*....EK.
000130: FD E1 E1 7D 32 B3 D9 E1 22 B4 D9 E1 22 B6 D9 E1 ...}2..."..."...
000140: 22 B8 D9 FD E5 2A B4 D9 E5 21 77 8D 11 97 6E 01 "....*...!w...n.
000150: 12 03 D9 E1 CD 08 10 CD FA 09 CB B8 D9 21 9B D9 .............!..
000160: CD D1 05 21 9B D9 CD 2C 05 C5 D5 E5 21 E6 F1 CD ...!...,....!...
000170: 2C 05 D9 E1 D1 C1 CD FA 09 D9 21 95 D9 CD D1 05 ,.........!.....
000180: 21 9B D9 CD 2C 05 C5 D5 E5 21 00 00 11 00 00 01 !...,....!......
000190: 00 00 D9 E1 D1 C1 CD D6 06 CB 45 CA 91 50 21 B8 ..........E..P!.
0001A0: 4D E5 21 01 00 2B 29 D1 19 5E 23 56 EB E5 21 9B M.!..+)..^#V..!.
0001B0: D9 CD 2C 05 D9 E1 CD 08 10 CD FA 09 C5 D5 E5 21 ..,............!
0001C0: 80 00 11 00 00 01 00 00 D9 E1 D1 C1 CD E9 09 CD ................
0001D0: DE 0F 22 A7 D9 21 B8 4D E5 21 0E 00 2B 29 D1 19 .."..!.M.!..+)..
0001E0: 5E 23 56 EB E5 21 95 D9 CD 2C 05 D9 E1 CD 08 10 ^#V..!...,......
0001F0: CD FA 09 C5 D5 E5 21 80 00 11 00 00 01 00 00 D9 ......!.........
Size : 512 (Real : 512)
000000: ED 52 E5 2A B4 DA 5E 23 56 EB E5 2A B8 DA 5E 23 .R.*..^#V..*..^#
000010: 56 EB D1 EB B7 ED 52 CD 08 10 D9 E1 CD 08 10 CD V.....R.........
000020: FF 09 C5 D5 E5 2A A0 DA E5 2A B8 DA 5E 23 56 EB .....*...*..^#V.
000030: D1 EB B7 ED 52 CD 08 10 D9 E1 D1 C1 CD FA 09 CD ....R...........
000040: DE 0F D1 19 EB 2A B2 DA 73 23 72 2A A0 DA EB 2A .....*..s#r*...*
000050: B4 DA 73 23 72 2A B6 DA 5E 23 56 EB E5 2A 84 F2 ..s#r*..^#V..*..
000060: E5 2A 82 F2 E5 CD 80 42 22 A6 DA 2A B2 DA 5E 23 .*.....B"..*..^#
000070: 56 EB E5 2A 84 F2 E5 2A 82 F2 E5 CD 80 42 22 A2 V..*...*.....B".
000080: DA 2A B6 DA 5E 23 56 EB E5 2A B2 DA 5E 23 56 EB .*..^#V..*..^#V.
000090: D1 CD 92 06 CB 45 CA 05 47 2A A6 DA E5 21 00 00 .....E..G*...!..
0000A0: D1 CD 92 06 CB 45 CA 4F 46 2A A6 DA E5 21 00 00 .....E.OF*...!..
0000B0: D1 CD E0 06 CB 45 CA C2 45 2A 84 F2 22 A0 DA C3 .....E..E*.."...
0000C0: C8 45 2A 82 F2 22 A0 DA 2A B8 DA 5E 23 56 EB E5 .E*.."..*..^#V..
0000D0: 2A B4 DA 5E 23 56 EB D1 CD 92 06 CB 45 CA 45 46 *..^#V......E.EF
0000E0: 2A B8 DA 5E 23 56 EB E5 2A B4 DA 5E 23 56 EB E5 *..^#V..*..^#V..
0000F0: 2A B8 DA 5E 23 56 EB D1 EB B7 ED 52 E5 2A B2 DA *..^#V.....R.*..
000100: 5E 23 56 EB E5 2A B6 DA 5E 23 56 EB D1 EB B7 ED ^#V..*..^#V.....
000110: 52 CD 08 10 D9 E1 CD 08 10 CD FF 09 C5 D5 E5 2A R..............*
000120: A0 DA E5 2A B6 DA 5E 23 56 EB D1 EB B7 ED 52 CD ...*..^#V.....R.
000130: 08 10 D9 E1 D1 C1 CD FA 09 CD DE 0F D1 19 EB 2A ...............*
000140: B8 DA 73 23 72 2A A0 DA EB 2A B6 DA 73 23 72 2A ..s#r*...*..s#r*
000150: A2 DA E5 21 00 00 D1 CD 92 06 CB 45 CA 05 47 2A ...!.......E..G*
000160: A2 DA E5 21 00 00 D1 CD E0 06 CB 45 CA 78 46 2A ...!.......E.xF*
000170: 84 F2 22 A0 DA C3 7E 46 2A 82 F2 22 A0 DA 2A B8 .."...~F*.."..*.
000180: DA 5E 23 56 EB E5 2A B4 DA 5E 23 56 EB D1 CD 92 .^#V..*..^#V....
000190: 06 CB 45 CA FB 46 2A B8 DA 5E 23 56 EB E5 2A B4 ..E..F*..^#V..*.
0001A0: DA 5E 23 56 EB E5 2A B8 DA 5E 23 56 EB D1 EB B7 .^#V..*..^#V....
0001B0: ED 52 E5 2A B2 DA 5E 23 56 EB E5 2A B6 DA 5E 23 .R.*..^#V..*..^#
0001C0: 56 EB D1 EB B7 ED 52 CD 08 10 D9 E1 CD 08 10 CD V.....R.........
0001D0: FF 09 C5 D5 E5 2A A0 DA E5 2A B6 DA 5E 23 56 EB .....*...*..^#V.
0001E0: D1 EB B7 ED 52 CD 08 10 D9 E1 D1 C1 CD FA 09 CD ....R...........
0001F0: DE 0F D1 19 EB 2A B4 DA 73 23 72 2A A0 DA EB 2A .....*..s#r*...*
Size : 512 (Real : 512)
000000: E1 D1 C1 CD E9 09 CD DE 0F 22 A3 D9 21 02 00 E5 ........."..!...
000010: 21 0E 00 D1 CD 66 06 7A B3 CA 8E 50 D5 22 A9 D9 !....f.z...P."..
000020: 21 B8 4D E5 2A A9 D9 2B 29 D1 19 5E 23 56 EB E5 !.M.*..+)..^#V..
000030: 21 9B D9 CD 2C 05 D9 E1 CD 08 10 CD FA 09 C5 D5 !...,...........
000040: E5 21 80 00 11 00 00 01 00 00 D9 E1 D1 C1 CD E9 .!..............
000050: 09 CD DE 0F 22 A5 D9 21 B8 4D E5 21 0E 00 E5 2A ...."..!.M.!...*
000060: A9 D9 D1 EB B7 ED 52 E5 21 01 00 D1 19 2B 29 D1 ......R.!....+).
000070: 19 5E 23 56 EB E5 21 95 D9 CD 2C 05 D9 E1 CD 08 .^#V..!...,.....
000080: 10 CD FA 09 C5 D5 E5 21 80 00 11 00 00 01 00 00 .......!........
000090: D9 E1 D1 C1 CD E9 09 CD DE 0F 22 A1 D9 2A B8 D9 .........."..*..
0000A0: E5 2A A7 D9 D1 EB B7 ED 52 E5 2A B6 D9 E5 2A A3 .*......R.*...*.
0000B0: D9 D1 19 E5 2A B8 D9 E5 2A A5 D9 D1 EB B7 ED 52 ....*...*......R
0000C0: E5 2A B6 D9 E5 2A A1 D9 D1 19 E5 CD D4 4D 2A B8 .*...*.......M*.
0000D0: D9 E5 2A A7 D9 D1 19 E5 2A B6 D9 E5 2A A3 D9 D1 ..*.....*...*...
0000E0: 19 E5 2A B8 D9 E5 2A A5 D9 D1 19 E5 2A B6 D9 E5 ..*...*.....*...
0000F0: 2A A1 D9 D1 19 E5 CD D4 4D 2A B8 D9 E5 2A A7 D9 *.......M*...*..
000100: D1 19 E5 2A B6 D9 E5 2A A3 D9 D1 EB B7 ED 52 E5 ...*...*......R.
000110: 21 01 00 D1 19 E5 2A B8 D9 E5 2A A5 D9 D1 19 E5 !.....*...*.....
000120: 2A B6 D9 E5 2A A1 D9 D1 EB B7 ED 52 E5 21 01 00 *...*......R.!..
000130: D1 19 E5 CD D4 4D 2A B8 D9 E5 2A A7 D9 D1 EB B7 .....M*...*.....
000140: ED 52 E5 2A B6 D9 E5 2A A3 D9 D1 EB B7 ED 52 E5 .R.*...*......R.
000150: 21 01 00 D1 19 E5 2A B8 D9 E5 2A A5 D9 D1 EB B7 !.....*...*.....
000160: ED 52 E5 2A B6 D9 E5 2A A1 D9 D1 EB B7 ED 52 E5 .R.*...*......R.
000170: 21 01 00 D1 19 E5 CD D4 4D 2A A5 D9 22 A7 D9 2A !.......M*.."..*
000180: A1 D9 22 A3 D9 2A A9 D9 23 D1 1B C3 17 4F C3 9C .."..*..#....O..
000190: 50 2A B8 D9 E5 2A B6 D9 E5 CD 48 2D C9 FD E1 E1 P*...*....H-....
0001A0: D1 C1 D9 21 73 D9 CD D1 05 E1 D1 C1 D9 21 79 D9 ...!s........!y.
0001B0: CD D1 05 E1 D1 C1 D9 21 7F D9 CD D1 05 FD E5 2A .......!.......*
0001C0: 6E F2 26 00 7D 32 6A D9 21 01 00 7D 32 6E F2 2A n.&.}2j.!..}2n.*
0001D0: 6A D9 26 00 CB 45 CA 01 51 21 7F D9 CD 2C 05 CD j.&..E..Q!...,..
0001E0: DE 0F E5 21 79 D9 CD 2C 05 CD DE 0F E5 21 73 D9 ...!y..,.....!s.
0001F0: CD 2C 05 CD DE 0F E5 21 01 00 E5 CD B5 4D C3 3F .,.....!.....M.?
Size : 512 (Real : 512)
000000: D8 D1 19 E5 2A FD D8 E5 2A 96 D8 E5 21 01 00 D1 ....*...*...!...
000010: CD 56 07 D1 19 E5 2A 96 D8 E5 21 01 00 D1 19 E5 .V....*...!.....
000020: 21 00 00 E5 CD B5 4D 2A FF D8 E5 21 03 00 E5 2A !.....M*...!...*
000030: 96 D8 D1 CD F5 06 D1 19 22 FF D8 2A FB D8 22 96 ........"..*..".
000040: D8 C3 57 59 21 FF D8 E5 21 FD D8 E5 2A FB D8 E5 ..WY!...!...*...
000050: 2A 9C D8 E5 CD 1C 54 2A 98 D8 E5 21 01 00 D1 19 *.....T*...!....
000060: 22 98 D8 C3 94 56 2A 93 D8 26 00 7D 32 6E F2 2A "....V*..&.}2n.*
000070: A0 D8 E5 CD ED 34 C9 FD E1 06 50 21 34 D8 CD E2 .....4....P!4...
000080: 05 E1 22 85 D8 E1 D1 C1 D9 21 87 D8 CD D1 05 E1 .."......!......
000090: D1 C1 D9 21 8D D8 CD D1 05 FD E5 2A 6E F2 26 00 ...!.......*n.&.
0000A0: CB 45 CA C9 59 21 8D D8 CD 2C 05 CD DE 0F E5 21 .E..Y!...,.....!
0000B0: 87 D8 CD 2C 05 CD DE 0F E5 2A 85 D8 E5 21 34 D8 ...,.....*...!4.
0000C0: CD 3A 05 CD 4D 56 C3 F0 59 21 8D D8 CD 2C 05 C5 .:..MV..Y!...,..
0000D0: D5 E5 CD 54 3D E5 21 87 D8 CD 2C 05 C5 D5 E5 CD ...T=.!...,.....
0000E0: 92 3D E5 2A 85 D8 E5 21 34 D8 CD 3A 05 CD 4D 56 .=.*...!4..:..MV
0000F0: C9 C3 29 5C FD E1 E1 22 1A D8 E1 22 1C D8 FD E5 ..)\..."..."....
000100: 2A 1C D8 E5 2A 1A D8 D1 CD 66 06 7A B3 CA 2C 5A *...*....f.z..,Z
000110: D5 22 10 D8 2A 20 D8 E5 2A 1E D8 E5 2A 10 D8 E5 ."..* ..*...*...
000120: CD 42 2E 2A 10 D8 23 D1 1B C3 0B 5A C9 21 B4 EB .B.*..#....Z.!..
000130: E5 2A 7A F2 2B 11 5D 00 CD F5 06 D1 19 22 08 D8 .*z.+.]......"..
000140: 2A 84 F2 22 02 D8 2A 82 F2 22 00 D8 2A 08 D8 11 *.."..*.."..*...
000150: 59 00 19 6E 26 00 CB 45 CA A6 5A 2A 08 D8 11 5A Y..n&..E..Z*...Z
000160: 00 19 6E 26 00 CB 45 CA 7C 5A 2A 02 D8 E5 21 0A ..n&..E.|Z*...!.
000170: 00 D1 EB B7 ED 52 22 02 D8 C3 88 5A 2A 00 D8 E5 .....R"....Z*...
000180: 21 0A 00 D1 19 22 00 D8 2A 7A F2 E5 2A 88 F2 E5 !...."..*z..*...
000190: 2A 02 D8 E5 2A 86 F2 E5 2A 00 D8 E5 CD F0 37 2A *...*...*.....7*
0001A0: 7A F2 E5 CD BA 3B 2A 67 F2 26 00 CB 45 CA E0 5A z....;*g.&..E..Z
0001B0: 2A 84 F2 E5 21 0A 00 D1 19 22 02 D8 2A 82 F2 22 *...!...."..*.."
0001C0: 00 D8 2A 84 F2 22 06 D8 2A 84 F2 E5 21 0A 00 D1 ..*.."..*...!...
0001D0: 19 E5 21 01 00 D1 EB B7 ED 52 22 04 D8 C3 10 5B ..!......R"....[
0001E0: 2A 84 F2 22 02 D8 2A 82 F2 E5 21 0A 00 D1 EB B7 *.."..*...!.....
0001F0: ED 52 22 00 D8 2A 82 F2 E5 21 0A 00 D1 EB B7 ED .R"..*...!......
Size : 512 (Real : 512)
000000: 51 21 7F D9 CD 2C 05 C5 D5 E5 CD 54 3D E5 21 79 Q!...,.....T=.!y
000010: D9 CD 2C 05 C5 D5 E5 CD 92 3D E5 21 73 D9 CD 2C ..,......=.!s..,
000020: 05 C5 D5 E5 21 87 00 11 00 00 01 00 48 D9 E1 D1 ....!.......H...
000030: C1 CD FA 09 CD DE 0F E5 21 00 00 E5 CD B5 4D 2A ........!.....M*
000040: 6A D9 26 00 7D 32 6E F2 C9 FD E1 E1 22 64 D9 E1 j.&.}2n....."d..
000050: 22 66 D9 E1 22 68 D9 FD E5 2A 68 D9 E5 2A 64 D9 "f.."h...*h..*d.
000060: D1 EB B7 ED 52 E5 2A 66 D9 E5 2A 68 D9 E5 2A 64 ....R.*f..*h..*d
000070: D9 D1 19 E5 21 02 00 D1 19 E5 2A 66 D9 E5 CD 45 ....!.....*f...E
000080: 4B 2A 68 D9 E5 2A 66 D9 E5 2A 64 D9 D1 EB B7 ED K*h..*f..*d.....
000090: 52 E5 2A 68 D9 E5 2A 66 D9 E5 2A 64 D9 D1 19 E5 R.*h..*f..*d....
0000A0: 21 01 00 D1 19 E5 CD 45 4B C9 FD E1 E1 22 56 D9 !......EK...."V.
0000B0: E1 22 58 D9 E1 22 5A D9 FD E5 2A 5A D9 E5 2A 56 ."X.."Z...*Z..*V
0000C0: D9 D1 EB B7 ED 52 E5 2A 58 D9 E5 2A 56 D9 D1 19 .....R.*X..*V...
0000D0: E5 2A 5A D9 E5 2A 56 D9 D1 19 E5 21 01 00 D1 19 .*Z..*V....!....
0000E0: E5 2A 58 D9 E5 2A 56 D9 D1 EB B7 ED 52 E5 21 01 .*X..*V.....R.!.
0000F0: 00 D1 EB B7 ED 52 E5 CD 45 4B 2A 5A D9 E5 2A 56 .....R..EK*Z..*V
000100: D9 D1 EB B7 ED 52 E5 2A 58 D9 E5 2A 56 D9 D1 EB .....R.*X..*V...
000110: B7 ED 52 E5 2A 5A D9 E5 2A 56 D9 D1 19 E5 21 01 ..R.*Z..*V....!.
000120: 00 D1 19 E5 2A 58 D9 E5 2A 56 D9 D1 19 E5 21 01 ....*X..*V....!.
000130: 00 D1 19 E5 CD 45 4B C9 FD E1 E1 22 48 D9 E1 22 .....EK...."H.."
000140: 4A D9 E1 22 4C D9 FD E5 2A 4C D9 E5 2A 48 D9 D1 J.."L...*L..*H..
000150: EB B7 ED 52 E5 2A 4A D9 E5 2A 4C D9 E5 2A 4A D9 ...R.*J..*L..*J.
000160: E5 2A 48 D9 D1 EB B7 ED 52 E5 21 01 00 D1 EB B7 .*H.....R.!.....
000170: ED 52 E5 CD 45 4B 2A 4C D9 E5 2A 4A D9 E5 2A 48 .R..EK*L..*J..*H
000180: D9 D1 EB B7 ED 52 E5 21 01 00 D1 19 E5 2A 4C D9 .....R.!.....*L.
000190: E5 2A 48 D9 D1 19 E5 2A 4A D9 E5 21 01 00 D1 19 .*H....*J..!....
0001A0: E5 CD 45 4B 2A 4C D9 E5 2A 48 D9 D1 19 E5 2A 4A ..EK*L..*H....*J
0001B0: D9 E5 21 01 00 D1 19 E5 2A 4C D9 E5 2A 4A D9 E5 ..!.....*L..*J..
0001C0: 2A 48 D9 D1 19 E5 CD 45 4B 2A 4C D9 E5 2A 4A D9 *H.....EK*L..*J.
0001D0: E5 2A 48 D9 D1 19 E5 2A 4C D9 E5 2A 48 D9 D1 EB .*H....*L..*H...
0001E0: B7 ED 52 E5 2A 4A D9 E5 CD 45 4B C9 FD E1 E1 22 ..R.*J...EK...."
0001F0: 3A D9 E1 22 3C D9 E1 22 3E D9 FD E5 2A 3E D9 E5 :.."<..">...*>..
Size : 512 (Real : 512)
000000: 52 E5 21 01 00 D1 19 22 06 D8 2A 82 F2 22 04 D8 R.!...."..*.."..
000010: 2A 08 D8 11 5A 00 19 E5 2A 67 F2 26 00 EB E1 73 *...Z...*g.&...s
000020: 2A 7A F2 E5 2A 88 F2 E5 2A 02 D8 E5 2A 86 F2 E5 *z..*...*...*...
000030: 2A 00 D8 E5 CD F0 37 2A 7A F2 E5 CD BA 3B 2A 06 *.....7*z....;*.
000040: D8 E5 2A 04 D8 E5 CD F4 59 21 FF 00 E5 2A A7 E4 ..*.....Y!...*..
000050: 26 00 D1 EB B7 ED 52 E5 CD 00 25 2A 20 D8 E5 21 &.....R...%* ..!
000060: 02 00 D1 19 E5 2A 1E D8 E5 2A 20 D8 D1 EB B7 ED .....*...* .....
000070: 52 E5 2A 08 D8 11 08 00 19 CD 3A 05 CD A3 08 E5 R.*.......:.....
000080: 21 06 00 D1 CD F5 06 D1 EB B7 ED 52 E5 21 01 00 !..........R.!..
000090: D1 CD 56 07 D1 19 E5 2A 06 D8 E5 21 03 00 D1 19 ..V....*...!....
0000A0: E5 21 01 00 E5 2A 08 D8 11 08 00 19 CD 3A 05 CD .!...*.......:..
0000B0: 4D 56 2A 20 D8 CD 08 10 C5 D5 E5 2A 06 D8 CD 08 MV* .......*....
0000C0: 10 C5 D5 E5 2A 1E D8 CD 08 10 C5 D5 E5 2A 04 D8 ....*........*..
0000D0: CD 08 10 C5 D5 E5 21 00 00 E5 CD EF 4C 21 FF 00 ......!.....L!..
0000E0: E5 2A A7 E4 26 00 D1 EB B7 ED 52 E5 CD 00 25 2A .*..&.....R...%*
0000F0: 20 D8 CD 08 10 C5 D5 E5 2A 84 F2 CD 08 10 C5 D5 .......*.......
000100: E5 2A 1E D8 CD 08 10 C5 D5 E5 2A 82 F2 CD 08 10 .*........*.....
000110: C5 D5 E5 21 00 00 E5 CD EF 4C 2A 08 D8 11 59 00 ...!.....L*...Y.
000120: 19 E5 21 01 00 EB E1 73 C9 2A 6E F2 26 00 7D 32 ..!....s.*n.&.}2
000130: 22 D8 21 01 00 7D 32 6E F2 2A 6D F2 26 00 7D 32 ".!..}2n.*m.&.}2
000140: 23 D8 21 00 00 7D 32 6D F2 2A 88 F2 E5 21 03 00 #.!..}2m.*...!..
000150: D1 CD 4E 07 22 20 D8 2A 86 F2 E5 21 03 00 D1 CD ..N." .*...!....
000160: 4E 07 E5 21 07 00 D1 19 22 1E D8 21 B4 EB E5 2A N..!...."..!...*
000170: 7A F2 2B 11 5D 00 CD F5 06 D1 19 22 24 D8 2A 68 z.+.]......"$.*h
000180: F2 26 00 E5 2A 24 D8 11 08 00 19 CD 3A 05 CD A3 .&..*$......:...
000190: 08 E5 21 00 00 D1 CD CC 06 D1 7D A3 6F E5 2A 24 ..!.......}.o.*$
0001A0: D8 11 06 00 19 5E 23 56 EB E5 2A 24 D8 11 02 00 .....^#V..*$....
0001B0: 19 5E 23 56 EB D1 EB B7 ED 52 E5 21 0A 00 D1 CD .^#V.....R.!....
0001C0: CC 06 D1 7D A3 6F E5 2A 24 D8 11 08 00 19 CD 3A ...}.o.*$......:
0001D0: 05 CD A3 08 E5 21 06 00 D1 CD F5 06 E5 2A 1E D8 .....!.......*..
0001E0: E5 2A 20 D8 D1 EB B7 ED 52 CD 80 07 E5 21 04 00 .* .....R....!..
0001F0: D1 EB B7 ED 52 D1 CD E0 06 D1 7D A3 6F CB 45 CA ....R.....}.o.E.
Size : 512 (Real : 512)
000000: 2A 3A D9 D1 EB B7 ED 52 E5 2A 3C D9 E5 2A 3A D9 *:.....R.*<..*:.
000010: D1 19 E5 2A 3E D9 E5 2A 3A D9 D1 19 E5 21 01 00 ...*>..*:....!..
000020: D1 19 E5 2A 3C D9 E5 2A 3A D9 D1 EB B7 ED 52 E5 ...*<..*:.....R.
000030: 21 01 00 D1 EB B7 ED 52 E5 CD 45 4B 2A 3E D9 E5 !......R..EK*>..
000040: 2A 3A D9 D1 EB B7 ED 52 E5 2A 3C D9 E5 2A 3A D9 *:.....R.*<..*:.
000050: D1 EB B7 ED 52 E5 2A 3E D9 E5 2A 3A D9 D1 19 E5 ....R.*>..*:....
000060: 21 01 00 D1 19 E5 2A 3C D9 E5 2A 3A D9 D1 19 E5 !.....*<..*:....
000070: 21 01 00 D1 19 E5 CD 45 4B 2A 3E D9 E5 2A 3A D9 !......EK*>..*:.
000080: D1 EB B7 ED 52 E5 21 02 00 D1 EB B7 ED 52 E5 2A ....R.!......R.*
000090: 3C D9 E5 2A 3E D9 E5 2A 3A D9 D1 19 E5 21 04 00 <..*>..*:....!..
0000A0: D1 19 E5 2A 3C D9 E5 CD 45 4B C9 FD E1 E1 22 2C ...*<...EK....",
0000B0: D9 E1 22 2E D9 E1 22 30 D9 FD E5 2A 30 D9 E5 2A .."..."0...*0..*
0000C0: 2C D9 D1 EB B7 ED 52 E5 2A 2E D9 E5 2A 2C D9 D1 ,.....R.*...*,..
0000D0: EB B7 ED 52 E5 2A 30 D9 E5 2A 2E D9 E5 CD 45 4B ...R.*0..*....EK
0000E0: 2A 30 D9 E5 2A 2C D9 D1 19 E5 2A 2E D9 E5 2A 2C *0..*,....*...*,
0000F0: D9 D1 EB B7 ED 52 E5 2A 30 D9 E5 2A 2E D9 E5 CD .....R.*0..*....
000100: 45 4B 2A 30 D9 E5 2A 2E D9 E5 2A 30 D9 E5 2A 2E EK*0..*...*0..*.
000110: D9 E5 2A 2C D9 D1 19 E5 CD 45 4B C9 FD E1 E1 7D ..*,.....EK....}
000120: 32 1E D9 E1 7D 32 1F D9 E1 22 20 D9 E1 22 22 D9 2...}2..." .."".
000130: FD E5 2A 88 F2 E5 21 03 00 D1 CD 4E 07 22 14 D9 ..*...!....N."..
000140: 2A 86 F2 E5 21 03 00 D1 CD 4E 07 E5 21 07 00 D1 *...!....N..!...
000150: 19 22 12 D9 21 00 00 E5 21 05 00 D1 CD 66 06 7A ."..!...!....f.z
000160: B3 CA 2E 56 D5 22 0E D9 21 97 EA E5 2A 1E D9 26 ...V."..!...*..&
000170: 00 11 E0 FF 19 11 03 00 CD F5 06 D1 19 E5 21 07 ..............!.
000180: 00 E5 2A 0E D9 D1 EB B7 ED 52 E5 21 01 00 D1 CD ..*......R.!....
000190: 56 07 2B D1 19 6E 26 00 E5 2A 0E D9 E5 21 01 00 V.+..n&..*...!..
0001A0: D1 7C A2 67 7D A3 6F E5 21 02 00 D1 CD 4E 07 D1 .|.g}.o.!....N..
0001B0: CD 56 07 E5 21 0F 00 D1 7C A2 67 7D A3 6F 7D 32 .V..!...|.g}.o}2
0001C0: 01 D9 21 00 00 E5 21 03 00 D1 CD 66 06 7A B3 CA ..!...!....f.z..
0001D0: 25 56 D5 22 10 D9 2A 01 D9 26 00 E5 21 03 00 E5 %V."..*..&..!...
0001E0: 2A 10 D9 D1 EB B7 ED 52 D1 CD 56 07 E5 21 01 00 *......R..V..!..
0001F0: D1 7C A2 67 7D A3 6F E5 21 00 00 D1 CD 92 06 CB .|.g}.o.!.......
Size : 512 (Real : 512)
000000: 08 5D CD 2D 5A C3 41 5D 2A 24 D8 11 59 00 19 E5 .].-Z.A]*$..Y...
000010: 21 00 00 EB E1 73 2A 20 D8 CD 08 10 C5 D5 E5 2A !....s* .......*
000020: 84 F2 CD 08 10 C5 D5 E5 2A 1E D8 CD 08 10 C5 D5 ........*.......
000030: E5 2A 82 F2 CD 08 10 C5 D5 E5 21 00 00 E5 CD EF .*........!.....
000040: 4C 2A 22 D8 26 00 7D 32 6E F2 2A 23 D8 26 00 7D L*".&.}2n.*#.&.}
000050: 32 6D F2 C9 C3 CA 5E C3 EC 5D C3 65 5D 80 40 20 2m....^..].e].@
000060: 10 08 04 02 01 FD E1 E1 22 DF D7 E1 22 E1 D7 FD ........"..."...
000070: E5 2A DF D7 E5 21 03 00 D1 CD 4E 07 22 DF D7 21 .*...!....N."..!
000080: 00 00 7D 32 D6 D7 21 00 00 E5 2A EC D7 D1 CD 66 ..}2..!...*....f
000090: 06 7A B3 CA DD 5D D5 7D 32 D5 D7 2A E1 D7 E5 2A .z...].}2..*...*
0000A0: DF D7 E5 2A D5 D7 26 00 D1 19 E5 CD 79 2D CB 45 ...*..&.....y-.E
0000B0: CA D2 5D 2A D6 D7 26 00 E5 21 5D 5D E5 2A D5 D7 ..]*..&..!]].*..
0000C0: 26 00 D1 19 6E 26 00 D1 7C B2 67 7D B3 6F 7D 32 &...n&..|.g}.o}2
0000D0: D6 D7 2A D5 D7 26 00 23 D1 1B C3 91 5D 2A D6 D7 ..*..&.#....]*..
0000E0: 26 00 7D 32 E3 D7 2A E3 D7 26 00 C9 FD E1 E1 22 &.}2..*..&....."
0000F0: EC D7 FD E5 2A FE D7 26 00 E5 21 01 00 D1 CD 7F ....*..&..!.....
000100: 06 CB 45 CA 18 5E 21 BC 00 CD BA 14 CD BA 17 02 ..E..^!.........
000110: 1B 4C CD 1B 20 C3 2F 5E 21 BC 00 CD BA 14 CD BA .L.. ./^!.......
000120: 17 02 1B 2A 2A FE D7 26 00 CD 22 17 CD 1B 20 21 ...**..&.."... !
000130: BC 00 CD BA 14 21 7F 02 E5 21 01 00 D1 19 26 00 .....!...!....&.
000140: CD 22 17 21 7F 02 E5 21 01 00 D1 19 6C 26 00 CD .".!...!....l&..
000150: 22 17 CD 1B 20 21 00 00 E5 21 7F 02 D1 CD 66 06 "... !...!....f.
000160: 7A B3 CA AB 5E D5 22 F2 D7 2A F2 D7 E5 2A F4 D7 z...^."..*...*..
000170: E5 CD 5A 5D 7D 32 EE D7 2A FF D7 26 00 CB 45 CA ..Z]}2..*..&..E.
000180: 91 5E 2A EE D7 26 00 7D 2F 6F 7C 2F 67 7D 32 EE .^*..&.}/o|/g}2.
000190: D7 21 BC 00 CD BA 14 2A EE D7 26 00 CD 22 17 CD .!.....*..&.."..
0001A0: 1B 20 2A F2 D7 23 D1 1B C3 60 5E 2A FE D7 26 00 . *..#...`^*..&.
0001B0: E5 21 04 00 D1 CD 92 06 CB 45 CA C9 5E 21 BC 00 .!.......E..^!..
0001C0: CD BA 14 CD CD 17 CD 1B 20 C9 FD E1 E1 7D 32 FE ........ ....}2.
0001D0: D7 E1 7D 32 FF D7 FD E5 21 07 00 22 F0 D7 2A A7 ..}2....!.."..*.
0001E0: E4 26 00 7D 32 EF D7 21 FF 00 E5 CD 00 25 2A FE .&.}2..!.....%*.
0001F0: D7 26 00 E5 21 07 00 D1 7C A2 67 7D A3 6F 7D 32 .&..!...|.g}.o}2
Size : 512 (Real : 512)
000000: 45 CA 1C 56 2A 22 D9 5E 23 56 EB E5 2A 10 D9 E5 E..V*".^#V..*...
000010: 2A 1F D9 26 00 D1 CD F5 06 D1 19 22 0C D9 2A 0C *..&......."..*.
000020: D9 E5 2A 1F D9 26 00 D1 19 E5 21 01 00 D1 EB B7 ..*..&....!.....
000030: ED 52 22 08 D9 2A 20 D9 5E 23 56 EB E5 21 01 00 .R"..* .^#V..!..
000040: D1 19 E5 2A 0E D9 E5 21 02 00 D1 EB B7 ED 52 E5 ...*...!......R.
000050: 2A 1F D9 26 00 D1 CD F5 06 D1 19 22 0A D9 2A 0A *..&......."..*.
000060: D9 E5 2A 1F D9 26 00 D1 19 E5 21 01 00 D1 EB B7 ..*..&....!.....
000070: ED 52 22 06 D9 2A 6D F2 26 00 CB 45 CA D7 55 2A .R"..*m.&..E..U*
000080: 0C D9 E5 2A 14 D9 D1 CD E0 06 CB 45 CA 95 55 2A ...*.......E..U*
000090: 14 D9 22 0C D9 2A 08 D9 E5 2A 12 D9 D1 CD CC 06 .."..*...*......
0000A0: CB 45 CA AB 55 2A 12 D9 22 08 D9 2A 0A D9 E5 2A .E..U*.."..*...*
0000B0: 84 F2 D1 CD E0 06 CB 45 CA C1 55 2A 84 F2 22 0A .......E..U*..".
0000C0: D9 2A 06 D9 E5 2A 82 F2 D1 CD CC 06 CB 45 CA D7 .*...*.......E..
0000D0: 55 2A 82 F2 22 06 D9 2A 0A D9 E5 2A 06 D9 D1 CD U*.."..*...*....
0000E0: 66 06 7A B3 CA 1C 56 D5 22 02 D9 2A 0C D9 E5 2A f.z...V."..*...*
0000F0: 08 D9 D1 CD 66 06 7A B3 CA 13 56 D5 22 04 D9 2A ....f.z...V."..*
000100: 04 D9 E5 2A 02 D9 E5 CD 48 2D 2A 04 D9 23 D1 1B ...*....H-*..#..
000110: C3 F6 55 2A 02 D9 23 D1 1B C3 E2 55 2A 10 D9 23 ..U*..#....U*..#
000120: D1 1B C3 CD 54 2A 0E D9 23 D1 1B C3 5F 54 2A 22 ....T*..#..._T*"
000130: D9 5E 23 56 EB E5 2A 1F D9 26 00 E5 21 06 00 D1 .^#V..*..&..!...
000140: CD F5 06 D1 19 EB 2A 22 D9 73 23 72 C9 FD E1 06 ......*".s#r....
000150: 50 21 AA D8 CD E2 05 E1 22 FB D8 E1 22 FD D8 E1 P!......"..."...
000160: 22 FF D8 FD E5 2A 6E F2 26 00 7D 32 93 D8 21 01 "....*n.&.}2..!.
000170: 00 7D 32 6E F2 2A 80 F2 22 A0 D8 21 00 00 E5 CD .}2n.*.."..!....
000180: ED 34 21 AA D8 CD 3A 05 CD A3 08 22 9A D8 21 01 .4!...:...."..!.
000190: 00 22 98 D8 2A 98 D8 E5 2A 9A D8 D1 CD B8 06 CB ."..*...*.......
0001A0: 45 CA 66 59 21 AA D8 E5 2A 98 D8 D1 19 6E 26 00 E.fY!...*....n&.
0001B0: 22 9C D8 2A 9C D8 E5 21 1B 00 D1 CD 7F 06 CB 45 "..*...!.......E
0001C0: CA 44 59 2A FB D8 22 96 D8 2A 98 D8 E5 21 01 00 .DY*.."..*...!..
0001D0: D1 19 22 98 D8 2A 98 D8 E5 2A 9A D8 D1 CD B8 06 .."..*...*......
0001E0: CB 45 CA 41 59 21 AA D8 E5 2A 98 D8 D1 19 6E 26 .E.AY!...*....n&
0001F0: 00 65 2E 01 E5 21 94 D8 E5 21 9E D8 CD F4 1E 2A .e...!...!.....*
Size : 512 (Real : 512)
000000: FE D7 2A FE D7 26 00 E5 21 05 00 D1 CD 7F 06 E5 ..*..&..!.......
000010: 2A FE D7 26 00 E5 21 00 00 D1 CD 7F 06 D1 7D B3 *..&..!.......}.
000020: 6F CB 45 CA 2D 5F 21 04 00 7D 32 FE D7 21 BC 00 o.E.-_!..}2..!..
000030: CD BA 14 CD BA 17 03 1B 33 18 CD 1B 20 21 00 00 ........3... !..
000040: E5 21 C7 00 E5 21 01 00 D1 19 E5 21 03 00 D1 CD .!...!.....!....
000050: 56 07 E5 21 01 00 D1 EB B7 ED 52 D1 CD 66 06 7A V..!......R..f.z
000060: B3 CA 78 5F D5 22 F4 D7 21 07 00 E5 CD 57 5D 2A ..x_."..!....W]*
000070: F4 D7 23 D1 1B C3 5F 5F 21 C7 00 E5 21 01 00 D1 ..#...__!...!...
000080: 19 E5 21 03 00 D1 CD 56 07 22 F4 D7 21 C7 00 E5 ..!....V."..!...
000090: 21 01 00 D1 19 E5 21 07 00 D1 7C A2 67 7D A3 6F !.....!...|.g}.o
0000A0: E5 21 00 00 D1 CD 92 06 CB 45 CA C5 5F 21 C7 00 .!.......E.._!..
0000B0: E5 21 01 00 D1 19 E5 21 07 00 D1 7C A2 67 7D A3 .!.....!...|.g}.
0000C0: 6F E5 CD 57 5D 21 BC 00 CD BA 14 CD BA 17 02 1B o..W]!..........
0000D0: 32 CD CD 17 CD 1B 20 2A EF D7 26 00 E5 CD 00 25 2..... *..&....%
0000E0: C9 C3 DC 62 FD E1 E1 22 BF D7 FD E5 2A C7 D7 E5 ...b..."....*...
0000F0: 21 FF FF D1 CD 7F 06 CB 45 CA 1A 60 21 00 00 22 !.......E..`!.."
000100: B1 D7 2A 82 F2 E5 2A BF D7 D1 EB B7 ED 52 22 B3 ..*...*......R".
000110: D7 2A 82 F2 22 B5 D7 C3 32 60 21 01 00 22 B1 D7 .*.."...2`!.."..
000120: 2A 84 F2 E5 2A BF D7 D1 19 22 B3 D7 2A 84 F2 22 *...*...."..*.."
000130: B5 D7 2A 86 F2 E5 2A 88 F2 D1 EB B7 ED 52 E5 21 ..*...*......R.!
000140: 01 00 D1 19 22 C1 D7 2A B1 D7 E5 2A 88 F2 E5 2A ...."..*...*...*
000150: 84 F2 E5 2A 86 F2 E5 2A 82 F2 E5 2A BF D7 E5 2A ...*...*...*...*
000160: D1 D7 26 00 E5 CD 55 22 2A B5 D7 22 C3 D7 2A D1 ..&...U"*.."..*.
000170: D7 26 00 7D EE 01 6F CB 45 CA B9 60 2A C3 D7 E5 .&.}..o.E..`*...
000180: 2A B3 D7 D1 CD 92 06 CB 45 CA B6 60 2A A7 E4 26 *.......E..`*..&
000190: 00 7D 2F 6F 7C 2F 67 E5 2A C1 D7 E5 2A 88 F2 E5 .}/o|/g.*...*...
0001A0: 2A C3 D7 E5 CD 9B 28 2A C3 D7 E5 2A C7 D7 D1 19 *.....(*...*....
0001B0: 22 C3 D7 C3 7C 60 C3 F7 60 2A C3 D7 E5 2A B3 D7 "...|`..`*...*..
0001C0: D1 CD 92 06 CB 45 CA F7 60 2A C1 D7 E5 2A 88 F2 .....E..`*...*..
0001D0: E5 2A C3 D7 E5 2A 88 F2 E5 2A C3 D7 E5 21 02 00 .*...*...*...!..
0001E0: E5 21 01 00 E5 CD 50 27 2A C3 D7 E5 2A C7 D7 D1 .!....P'*...*...
0001F0: 19 22 C3 D7 C3 B9 60 2A 7A F2 E5 2A 88 F2 E5 2A ."....`*z..*...*
Size : 512 (Real : 512)
000000: 98 D8 E5 21 02 00 D1 19 E5 2A 9A D8 D1 CD B8 06 ...!.....*......
000010: E5 21 AA D8 E5 2A 98 D8 E5 21 01 00 D1 19 D1 19 .!...*...!......
000020: 6E 26 00 E5 21 40 00 D1 CD 7F 06 D1 7D A3 6F CB n&..!@......}.o.
000030: 45 CA 60 57 21 AA D8 E5 2A 98 D8 E5 21 02 00 D1 E.`W!...*...!...
000040: 19 D1 19 6E 26 00 65 2E 01 E5 21 96 D8 E5 21 9E ...n&.e...!...!.
000050: D8 CD F4 1E 2A 98 D8 E5 21 02 00 D1 19 22 98 D8 ....*...!...."..
000060: 2A 94 D8 11 01 00 B7 ED 52 C2 8A 57 2A FF D8 E5 *.......R..W*...
000070: 2A 96 D8 D1 19 E5 2A FD D8 E5 2A FB D8 D1 19 E5 *.....*...*.....
000080: 2A 96 D8 E5 CD 49 51 C3 27 59 19 11 02 00 B7 ED *....IQ.'Y......
000090: 52 C2 B2 57 2A FF D8 E5 2A 96 D8 D1 19 E5 2A FD R..W*...*.....*.
0000A0: D8 E5 2A FB D8 D1 19 E5 2A 96 D8 E5 CD AA 51 C3 ..*.....*.....Q.
0000B0: 27 59 19 11 03 00 B7 ED 52 CA C6 57 19 11 04 00 'Y......R..W....
0000C0: B7 ED 52 C2 16 58 2A FF D8 E5 2A FD D8 E5 2A 96 ..R..X*...*...*.
0000D0: D8 E5 21 01 00 D1 CD 4E 07 D1 19 E5 21 01 00 D1 ..!....N....!...
0000E0: EB B7 ED 52 E5 2A FF D8 E5 2A 96 D8 E5 21 01 00 ...R.*...*...!..
0000F0: D1 CD 4E 07 D1 19 E5 2A FD D8 E5 21 01 00 D1 EB ..N....*...!....
000100: B7 ED 52 E5 2A 94 D8 E5 21 04 00 D1 CD 7F 06 E5 ..R.*...!.......
000110: CD A4 4C C3 27 59 19 11 05 00 B7 ED 52 C2 72 58 ..L.'Y......R.rX
000120: 2A FF D8 E5 21 81 00 11 00 00 01 00 40 C5 D5 E5 *...!.......@...
000130: 2A 96 D8 CD 08 10 D9 E1 D1 C1 CD FA 09 CD DE 0F *...............
000140: D1 19 E5 2A FD D8 E5 2A 96 D8 D1 19 E5 21 01 00 ...*...*.....!..
000150: D1 EB B7 ED 52 E5 2A 96 D8 E5 21 01 00 D1 19 E5 ....R.*...!.....
000160: CD 38 52 2A FF D8 E5 2A 96 D8 D1 19 22 FF D8 C3 .8R*...*...."...
000170: 27 59 19 11 06 00 B7 ED 52 C2 A3 58 2A FF D8 E5 'Y......R..X*...
000180: 2A 96 D8 D1 19 E5 2A FD D8 E5 2A 96 D8 D1 19 E5 *.....*...*.....
000190: 21 01 00 D1 EB B7 ED 52 E5 2A 96 D8 E5 CD AB 53 !......R.*.....S
0001A0: C3 27 59 19 11 07 00 B7 ED 52 C2 F0 58 2A FF D8 .'Y......R..X*..
0001B0: E5 2A 96 D8 E5 21 01 00 D1 CD 4E 07 D1 19 E5 2A .*...!....N....*
0001C0: FD D8 E5 2A 96 D8 D1 19 E5 21 01 00 D1 EB B7 ED ...*.....!......
0001D0: 52 E5 2A 96 D8 E5 CD EC 52 2A FF D8 E5 2A 96 D8 R.*.....R*...*..
0001E0: E5 21 01 00 D1 CD 4E 07 D1 19 22 FF D8 C3 27 59 .!....N..."...'Y
0001F0: 19 11 08 00 B7 ED 52 C2 27 59 2A FF D8 E5 2A 96 ......R.'Y*...*.
Size : 512 (Real : 512)
000000: 84 F2 E5 2A BF D7 E5 2A C7 D7 D1 CD F5 06 D1 19 ...*...*........
000010: E5 2A 86 F2 E5 2A 82 F2 E5 2A BF D7 E5 2A C7 D7 .*...*...*...*..
000020: D1 CD F5 06 D1 19 E5 CD F0 37 2A 7A F2 E5 CD BA .........7*z....
000030: 3B C9 2A 88 F2 E5 2A D3 D7 D1 19 E5 21 00 00 D1 ;.*...*.....!...
000040: CD E0 06 E5 2A 86 F2 E5 2A D3 D7 D1 19 E5 21 4F ....*...*.....!O
000050: 00 D1 CD CC 06 D1 7D B3 6F CB 45 CA 6C 61 21 18 ......}.o.E.la!.
000060: 00 E5 21 07 00 E5 CD 76 2B C3 44 62 21 01 00 E5 ..!....v+.Db!...
000070: 2A D3 D7 CD 80 07 D1 CD 66 06 7A B3 CA 44 62 D5 *.......f.z..Db.
000080: 22 C5 D7 2A C7 D7 E5 21 FF FF D1 CD 7F 06 CB 45 "..*...!.......E
000090: CA A2 61 2A 86 F2 22 A5 D7 21 03 00 22 A7 D7 C3 ..a*.."..!.."...
0000A0: AE 61 2A 88 F2 22 A5 D7 21 02 00 22 A7 D7 2A 82 .a*.."..!.."..*.
0000B0: F2 E5 2A 84 F2 D1 EB B7 ED 52 E5 21 01 00 D1 19 ..*......R.!....
0000C0: E5 2A A5 D7 E5 2A 84 F2 E5 2A D1 D7 26 00 E5 CD .*...*...*..&...
0000D0: F8 29 2A A7 D7 E5 2A 88 F2 E5 2A 84 F2 E5 2A 86 .)*...*...*...*.
0000E0: F2 E5 2A 82 F2 E5 21 01 00 E5 2A D1 D7 26 00 E5 ..*...!...*..&..
0000F0: CD 55 22 2A 82 F2 E5 2A 84 F2 D1 EB B7 ED 52 E5 .U"*...*......R.
000100: 21 01 00 D1 19 E5 2A A5 D7 E5 2A 84 F2 E5 CD EA !.....*...*.....
000110: 2A 2A 7A F2 E5 2A 88 F2 E5 2A C7 D7 D1 19 E5 2A **z..*...*.....*
000120: 84 F2 E5 2A 86 F2 E5 2A C7 D7 D1 19 E5 2A 82 F2 ...*...*.....*..
000130: E5 CD F0 37 2A 7A F2 E5 CD BA 3B 2A C5 D7 23 D1 ...7*z....;*..#.
000140: 1B C3 7A 61 C9 2A 84 F2 E5 2A D3 D7 D1 19 E5 21 ..za.*...*.....!
000150: 00 00 D1 CD E0 06 E5 2A 82 F2 E5 2A D3 D7 D1 19 .......*...*....
000160: E5 21 C7 00 D1 CD CC 06 D1 7D B3 6F CB 45 CA 7F .!.......}.o.E..
000170: 62 21 17 00 E5 21 07 00 E5 CD 76 2B C3 DB 62 21 b!...!....v+..b!
000180: 01 00 E5 2A D3 D7 CD 80 07 E5 2A 70 F2 D1 CD 0F ...*......*p....
000190: 07 D1 CD 66 06 7A B3 CA AE 62 D5 22 C5 D7 2A 70 ...f.z...b."..*p
0001A0: F2 E5 CD E4 5F 2A C5 D7 23 D1 1B C3 95 62 2A D3 ...._*..#....b*.
0001B0: D7 CD 80 07 E5 2A 70 F2 D1 CD 45 07 E5 21 00 00 .....*p...E..!..
0001C0: D1 CD 92 06 CB 45 CA DB 62 2A D3 D7 CD 80 07 E5 .....E..b*......
0001D0: 2A 70 F2 D1 CD 45 07 E5 CD E4 5F C9 FD E1 E1 7D *p...E...._....}
0001E0: 32 D1 D7 E1 7D 32 D2 D7 E1 22 D3 D7 FD E5 2A D3 2...}2..."....*.
0001F0: D7 E5 21 00 00 D1 CD 92 06 CB 45 CA CB 63 21 01 ..!.......E..c!.
Size : 512 (Real : 512)
000000: D5 5E 23 56 EB D1 EB B7 ED 52 E5 21 01 00 D1 19 .^#V.....R.!....
000010: D1 CD F5 06 22 E2 D5 2A E4 D5 11 59 00 19 6E 26 ...."..*...Y..n&
000020: 00 CB 45 CA 37 76 2A E2 D5 E5 21 0A 00 E5 2A E4 ..E.7v*...!...*.
000030: D5 11 04 00 19 5E 23 56 EB E5 2A E4 D5 5E 23 56 .....^#V..*..^#V
000040: EB D1 EB B7 ED 52 E5 21 01 00 D1 19 D1 CD F5 06 .....R.!........
000050: D1 19 22 E2 D5 2A E2 D5 E5 21 7F 00 D1 19 E5 21 .."..*...!.....!
000060: 80 FF D1 7C A2 67 7D A3 6F 22 E2 D5 2A E2 D5 22 ...|.g}.o"..*.."
000070: EE D5 2A EE D5 C9 FD E1 E1 22 E0 D5 FD E5 2A E0 ..*......"....*.
000080: D5 E5 CD 81 05 21 01 00 E5 2A 7C F2 CD 9B 05 CD .....!...*|.....
000090: 4F 13 7D EE 01 6F CB 45 CA 37 76 21 0F 00 E5 21 O.}..o.E.7v!...!
0000A0: 02 00 E5 CD 76 2B C3 99 6B 21 B5 E4 E5 2A E0 D5 ....v+..k!...*..
0000B0: 2B 11 5E 00 CD F5 06 D1 19 11 5D 00 19 6E 26 00 +.^.......]..n&.
0000C0: CB 45 CA 37 76 2A E0 D5 E5 CD 79 2B 2A E0 D5 E5 .E.7v*....y+*...
0000D0: CD 4D 05 05 77 69 6E 66 2E 2A E0 D5 E5 21 30 00 .M..winf.*...!0.
0000E0: D1 19 65 2E 01 E5 CD 3D 08 CD AD 65 21 B5 E4 E5 ..e....=...e!...
0000F0: 2A E0 D5 2B 11 5E 00 CD F5 06 D1 19 22 D8 D5 2A *..+.^......"..*
000100: D8 D5 22 DA D5 21 B4 EB E5 2A E0 D5 2B 11 5D 00 .."..!...*..+.].
000110: CD F5 06 D1 19 ED 5B D8 D5 01 5D 00 ED B0 2A D8 ......[...]...*.
000120: D5 11 5D 00 19 E5 21 01 00 EB E1 73 C9 FD E1 E1 ..]...!....s....
000130: 22 D2 D5 E1 22 D4 D5 E1 22 D6 D5 FD E5 2A D6 D5 "..."..."....*..
000140: E5 CD 81 05 21 01 00 E5 21 10 00 CD 9B 05 CD 4F ....!...!......O
000150: 13 7D EE 01 6F CB 45 CA 37 76 21 10 00 E5 21 02 .}..o.E.7v!...!.
000160: 00 E5 CD 76 2B C3 58 6C 21 B5 E4 E5 2A D6 D5 CD ...v+.Xl!...*...
000170: 80 07 2B 11 5E 00 CD F5 06 D1 19 22 CA D5 2A CA ..+.^......"..*.
000180: D5 11 61 D5 01 5D 00 ED B0 2A CA D5 11 5D 00 19 ..a..]...*...]..
000190: 6E 26 00 7D EE 01 6F CB 45 CA 37 76 21 10 00 E5 n&.}..o.E.7v!...
0001A0: 21 02 00 E5 CD 76 2B C3 9A 6C 21 61 D5 22 CC D5 !....v+..l!a."..
0001B0: 2A CC D5 5E 23 56 EB E5 2A D4 D5 D1 19 EB 2A CC *..^#V..*.....*.
0001C0: D5 73 23 72 2A CC D5 11 04 00 19 E5 2A CC D5 11 .s#r*.......*...
0001D0: 04 00 19 5E 23 56 EB E5 2A D4 D5 D1 19 EB E1 73 ...^#V..*......s
0001E0: 23 72 2A CC D5 11 02 00 19 E5 2A CC D5 11 02 00 #r*.......*.....
0001F0: 19 5E 23 56 EB E5 2A D2 D5 D1 19 EB E1 73 23 72 .^#V..*......s#r
Size : 512 (Real : 512)
000000: 00 22 C7 D7 2A D3 D7 E5 21 00 00 D1 CD E0 06 CB ."..*...!.......
000010: 45 CA 1A 63 21 FF FF 22 C7 D7 21 B4 EB E5 2A 7A E..c!.."..!...*z
000020: F2 2B 11 5D 00 CD F5 06 D1 19 22 C9 D7 2A C9 D7 .+.]......"..*..
000030: 11 59 00 19 6E 26 00 CB 45 CA 69 63 2A C9 D7 11 .Y..n&..E.ic*...
000040: 5A 00 19 6E 26 00 CB 45 CA 5D 63 2A 84 F2 E5 21 Z..n&..E.]c*...!
000050: 0A 00 D1 EB B7 ED 52 22 84 F2 C3 69 63 2A 82 F2 ......R"...ic*..
000060: E5 21 0A 00 D1 19 22 82 F2 2A D2 D7 26 00 CB 45 .!...."..*..&..E
000070: CA 79 63 CD 32 61 C3 7C 63 CD 45 62 21 B4 EB E5 .yc.2a.|c.Eb!...
000080: 2A 7A F2 2B 11 5D 00 CD F5 06 D1 19 22 C9 D7 2A *z.+.]......"..*
000090: C9 D7 11 59 00 19 6E 26 00 CB 45 CA CB 63 2A C9 ...Y..n&..E..c*.
0000A0: D7 11 5A 00 19 6E 26 00 CB 45 CA BC 63 2A 84 F2 ..Z..n&..E..c*..
0000B0: E5 21 0A 00 D1 19 22 84 F2 C3 CB 63 2A 82 F2 E5 .!...."....c*...
0000C0: 21 0A 00 D1 EB B7 ED 52 22 82 F2 C9 FD E1 E1 7D !......R"......}
0000D0: 32 9A D7 E1 22 9B D7 FD E5 2A 9B D7 E5 21 01 00 2..."....*...!..
0000E0: E5 2A 9A D7 26 00 E5 CD E1 5F C9 FD E1 E1 7D 32 .*..&...._....}2
0000F0: 8F D7 E1 22 90 D7 FD E5 2A 90 D7 E5 21 00 00 E5 ..."....*...!...
000100: 2A 8F D7 26 00 E5 CD E1 5F C9 FD E1 E1 22 81 D7 *..&...._...."..
000110: E1 22 83 D7 E1 7D 32 85 D7 E1 7D 32 86 D7 FD E5 ."...}2...}2....
000120: 2A 83 D7 E5 21 00 00 D1 CD E0 06 E5 2A 81 D7 E5 *...!.......*...
000130: 21 00 00 D1 CD E0 06 D1 7D B3 6F CB 45 CA 4E 64 !.......}.o.E.Nd
000140: 21 11 00 E5 21 03 00 E5 CD 76 2B C3 AC 65 21 B4 !...!....v+..e!.
000150: EB E5 2A 7A F2 2B 11 5D 00 CD F5 06 D1 19 22 79 ..*z.+.]......"y
000160: D7 2A 79 D7 11 59 00 19 6E 26 00 CB 45 CA 9D 64 .*y..Y..n&..E..d
000170: 2A 79 D7 11 5A 00 19 6E 26 00 CB 45 CA 91 64 2A *y..Z..n&..E..d*
000180: 84 F2 E5 21 0A 00 D1 EB B7 ED 52 22 84 F2 C3 9D ...!......R"....
000190: 64 2A 82 F2 E5 21 0A 00 D1 19 22 82 F2 2A 86 F2 d*...!...."..*..
0001A0: E5 2A 88 F2 D1 EB B7 ED 52 22 75 D7 2A 82 F2 E5 .*......R"u.*...
0001B0: 2A 84 F2 D1 EB B7 ED 52 22 73 D7 2A 83 D7 E5 2A *......R"s.*...*
0001C0: 75 D7 D1 19 E5 21 4F 00 D1 CD CC 06 CB 45 CA E0 u....!O......E..
0001D0: 64 21 4F 00 E5 2A 83 D7 D1 EB B7 ED 52 22 75 D7 d!O..*......R"u.
0001E0: 2A 81 D7 E5 2A 73 D7 D1 19 E5 21 C7 00 D1 CD CC *...*s....!.....
0001F0: 06 CB 45 CA 05 65 21 C7 00 E5 2A 81 D7 D1 EB B7 ..E..e!...*.....
Size : 512 (Real : 512)
000000: 2A CC D5 11 06 00 19 E5 2A CC D5 11 06 00 19 5E *.......*......^
000010: 23 56 EB E5 2A D2 D5 D1 19 EB E1 73 23 72 2A CC #V..*......s#r*.
000020: D5 11 59 00 19 6E 26 00 E5 2A CC D5 11 5A 00 19 ..Y..n&..*...Z..
000030: 6E 26 00 D1 7D A3 6F CB 45 CA 37 76 2A CC D5 11 n&..}.o.E.7v*...
000040: 02 00 19 5E 23 56 EB E5 21 0A 00 D1 EB B7 ED 52 ...^#V..!......R
000050: 22 C2 D5 C3 3A 6D 2A CC D5 11 02 00 19 5E 23 56 "...:m*......^#V
000060: EB 22 C2 D5 2A CC D5 5E 23 56 EB E5 21 00 00 D1 ."..*..^#V..!...
000070: CD A5 06 E5 2A CC D5 5E 23 56 EB E5 21 4F 00 D1 ....*..^#V..!O..
000080: CD B8 06 D1 7D A3 6F E5 2A CC D5 11 04 00 19 5E ....}.o.*......^
000090: 23 56 EB E5 21 00 00 D1 CD A5 06 D1 7D A3 6F E5 #V..!.......}.o.
0000A0: 2A CC D5 11 04 00 19 5E 23 56 EB E5 21 4F 00 D1 *......^#V..!O..
0000B0: CD B8 06 D1 7D A3 6F E5 2A CC D5 11 02 00 19 5E ....}.o.*......^
0000C0: 23 56 EB E5 21 00 00 D1 CD A5 06 D1 7D A3 6F E5 #V..!.......}.o.
0000D0: 2A CC D5 11 02 00 19 5E 23 56 EB E5 21 C7 00 D1 *......^#V..!...
0000E0: CD B8 06 D1 7D A3 6F E5 2A CC D5 11 06 00 19 5E ....}.o.*......^
0000F0: 23 56 EB E5 21 00 00 D1 CD A5 06 D1 7D A3 6F E5 #V..!.......}.o.
000100: 2A CC D5 11 06 00 19 5E 23 56 EB E5 21 C7 00 D1 *......^#V..!...
000110: CD B8 06 D1 7D A3 6F CB 45 CA 37 76 2A D6 D5 E5 ....}.o.E.7v*...
000120: 2A CC D5 5E 23 56 EB E5 2A C2 D5 E5 CD 4D 05 05 *..^#V..*....M..
000130: 77 69 6E 66 2E 2A D6 D5 E5 21 30 00 D1 19 65 2E winf.*...!0...e.
000140: 01 E5 CD 3D 08 CD 78 67 2A D6 D5 E5 21 00 00 D1 ...=..xg*...!...
000150: CD E0 06 CB 45 CA E0 06 2A D6 D5 CD 80 07 E5 CD ....E...*.......
000160: 79 2B 2A D6 D5 E5 2A 7A F2 D1 CD 7F 06 CB 45 CA y+*...*z......E.
000170: 7F 06 2A D6 D5 E5 CD BA 3B 21 B4 EB E5 2A D6 D5 ..*.....;!...*..
000180: 2B 11 5D 00 CD F5 06 D1 19 E5 21 61 D5 D1 01 5D +.].......!a...]
000190: 00 ED B0 C9 FD E1 06 50 21 60 D4 CD E2 05 FD E5 .......P!`......
0001A0: 21 B1 D4 E5 21 60 D4 CD 3A 05 CD 4D 05 04 2E 70 !...!`..:..M...p
0001B0: 74 72 CD 3D 08 CD 70 13 21 B1 D4 11 5D 00 CD 10 tr.=..p.!...]...
0001C0: 18 CD F1 1F E5 21 00 00 D1 CD 92 06 CB 45 CA 92 .....!.......E..
0001D0: 06 21 1A 00 E5 21 05 00 E5 CD 76 2B C3 CF 6E 21 .!...!....v+..n!
0001E0: 01 00 E5 21 10 00 D1 CD 66 06 7A B3 CA 00 00 D5 ...!....f.z.....
0001F0: 22 56 D4 21 B1 D4 CD A4 18 21 B5 E4 E5 2A 56 D4 "V.!.....!...*V.
Size : 512 (Real : 512)
000000: ED 52 22 73 D7 2A 75 D7 E5 21 01 00 D1 19 22 75 .R"s.*u..!...."u
000010: D7 21 00 00 E5 2A 73 D7 D1 CD 66 06 7A B3 CA 5D .!...*s...f.z..]
000020: 65 D5 22 77 D7 2A 75 D7 E5 2A 88 F2 E5 2A 84 F2 e."w.*u..*...*..
000030: E5 2A 77 D7 D1 19 E5 2A 88 F2 E5 2A 81 D7 E5 2A .*w....*...*...*
000040: 77 D7 D1 19 E5 2A 86 D7 26 00 E5 2A 85 D7 26 00 w....*..&..*..&.
000050: E5 CD 50 27 2A 77 D7 23 D1 1B C3 1C 65 21 B4 EB ..P'*w.#....e!..
000060: E5 2A 7A F2 2B 11 5D 00 CD F5 06 D1 19 22 79 D7 .*z.+.]......"y.
000070: 2A 79 D7 11 59 00 19 6E 26 00 CB 45 CA AC 65 2A *y..Y..n&..E..e*
000080: 79 D7 11 5A 00 19 6E 26 00 CB 45 CA 9D 65 2A 84 y..Z..n&..E..e*.
000090: F2 E5 21 0A 00 D1 19 22 84 F2 C3 AC 65 2A 82 F2 ..!...."....e*..
0000A0: E5 21 0A 00 D1 EB B7 ED 52 22 82 F2 C9 FD E1 06 .!......R"......
0000B0: 50 21 20 D7 CD E2 05 E1 22 71 D7 FD E5 21 B4 EB P! ....."q...!..
0000C0: E5 2A 71 D7 2B 11 5D 00 CD F5 06 D1 19 11 B3 D6 .*q.+.].........
0000D0: 01 5D 00 ED B0 21 7E E2 E5 21 20 D7 CD 3A 05 CD .]...!~..! ..:..
0000E0: 70 13 21 7E E2 CD 6F 1A CD F1 1F E5 21 00 00 D1 p.!~..o.....!...
0000F0: CD 92 06 CB 45 CA 06 66 21 19 00 E5 21 05 00 E5 ....E..f!...!...
000100: CD 76 2B C3 F6 65 21 B3 D6 E5 21 A7 E3 E5 21 5D .v+..e!...!...!]
000110: 00 CD 64 1F 21 5D 00 22 12 D7 21 B3 D6 22 18 D7 ..d.!]."..!.."..
000120: 2A 18 D7 11 59 00 19 6E 26 00 CB 45 CA 37 76 2A *...Y..n&..E.7v*
000130: 18 D7 11 5A 00 19 6E 26 00 CB 45 CA 37 76 2A 18 ...Z..n&..E.7v*.
000140: D7 11 02 00 19 E5 2A 18 D7 11 02 00 19 5E 23 56 ......*......^#V
000150: EB E5 21 0A 00 D1 EB B7 ED 52 EB E1 73 23 72 C3 ..!......R..s#r.
000160: 3C 66 2A 18 D7 11 06 00 19 E5 2A 18 D7 11 06 00 <f*.......*.....
000170: 19 5E 23 56 EB E5 21 0A 00 D1 19 EB E1 73 23 72 .^#V..!......s#r
000180: 2A 18 D7 11 04 00 19 5E 23 56 EB E5 2A 18 D7 5E *......^#V..*..^
000190: 23 56 EB D1 EB B7 ED 52 E5 21 01 00 D1 19 22 10 #V.....R.!....".
0001A0: D7 2A 18 D7 11 02 00 19 5E 23 56 EB E5 2A 18 D7 .*......^#V..*..
0001B0: 11 06 00 19 5E 23 56 EB D1 CD 66 06 7A B3 CA 00 ....^#V...f.z...
0001C0: 00 D5 22 16 D7 2A 10 D7 E5 21 A7 E3 E5 2A 12 D7 .."..*...!...*..
0001D0: D1 19 E5 2A 18 D7 5E 23 56 EB E5 2A 16 D7 E5 CD ...*..^#V..*....
0001E0: 80 29 2A 12 D7 E5 2A 10 D7 D1 19 22 12 D7 2A 12 .)*...*...."..*.
0001F0: D7 E5 21 7F 00 D1 CD CC 06 CB 45 CA CC 06 21 7E ..!.......E...!~
Size : 512 (Real : 512)
000000: 2B 11 5E 00 CD F5 06 D1 19 CD DC 18 CD 1B 20 2A +.^........... *
000010: 56 D4 23 D1 1B C3 EA 6E 21 B1 D4 CD 7A 18 CD 1B V.#....n!...z...
000020: 20 C9 FD E1 06 50 21 05 D4 CD E2 05 FD E5 21 B1 ....P!.......!.
000030: D4 E5 21 05 D4 CD 3A 05 CD 4D 05 04 2E 70 74 72 ..!...:..M...ptr
000040: CD 3D 08 CD 70 13 21 B1 D4 11 5D 00 CD 11 18 CD .=..p.!...].....
000050: F1 1F E5 21 00 00 D1 CD 7F 06 CB 45 CA 7F 06 21 ...!.......E...!
000060: 01 00 E5 21 10 00 D1 CD 66 06 7A B3 CA 00 00 D5 ...!....f.z.....
000070: 22 FB D3 21 B1 D4 CD A4 18 21 B5 E4 E5 2A FB D3 "..!.....!...*..
000080: 2B 11 5E 00 CD F5 06 D1 19 CD B6 18 CD 1B 20 2A +.^........... *
000090: FB D3 23 D1 1B C3 6A 6F 21 B1 D4 CD 7A 18 CD 1B ..#...jo!...z...
0000A0: 20 C3 5D 6F 21 15 00 E5 21 05 00 E5 CD 76 2B C9 .]o!...!....v+.
0000B0: 2A 84 F2 22 F1 D3 2A 82 F2 22 EF D3 21 B4 EB E5 *.."..*.."..!...
0000C0: 2A 7A F2 2B 11 5D 00 CD F5 06 D1 19 22 F3 D3 2A *z.+.]......"..*
0000D0: F3 D3 11 59 00 19 6E 26 00 CB 45 CA 37 76 2A F3 ...Y..n&..E.7v*.
0000E0: D3 11 5A 00 19 6E 26 00 CB 45 CA 37 76 2A 84 F2 ..Z..n&..E.7v*..
0000F0: E5 21 0A 00 D1 EB B7 ED 52 22 F1 D3 C3 EB 6F 2A .!......R"....o*
000100: 82 F2 E5 21 0A 00 D1 19 22 EF D3 2A 88 F2 E5 2A ...!...."..*...*
000110: F1 D3 E5 2A 86 F2 E5 2A EF D3 E5 CD 7F 23 C9 FD ...*...*.....#..
000120: E1 E1 D1 C1 D9 21 2F CF CD D1 05 E1 D1 C1 D9 21 .....!/........!
000130: 35 CF CD D1 05 E1 22 3B CF E1 11 3D CF 01 B0 04 5.....";...=....
000140: ED B0 E1 22 ED D3 FD E5 2A 3B CF CD 80 07 22 3B ..."....*;....";
000150: CF 2A 3B CF E5 21 02 00 D1 CD A5 06 CB 45 CA A5 .*;..!.......E..
000160: 06 2A ED D3 E5 CD 81 05 21 01 00 E5 21 04 00 CD .*......!...!...
000170: 9B 05 CD 4F 13 CB 45 CA 4F 13 21 3D CF E5 21 01 ...O..E.O.!=..!.
000180: 00 2B 11 0C 00 CD F5 06 D1 19 E5 21 01 00 2B 29 .+.........!..+)
000190: 5D 54 29 19 D1 19 CD 2C 05 D9 21 21 CF CD D1 05 ]T)....,..!!....
0001A0: 21 3D CF E5 21 01 00 2B 11 0C 00 CD F5 06 D1 19 !=..!..+........
0001B0: E5 21 02 00 2B 29 5D 54 29 19 D1 19 CD 2C 05 D9 .!..+)]T)....,..
0001C0: 21 1B CF CD D1 05 21 21 CF CD 2C 05 D9 21 15 CF !.....!!..,..!..
0001D0: CD D1 05 21 1B CF CD 2C 05 D9 21 0F CF CD D1 05 ...!...,..!.....
0001E0: 21 02 00 E5 2A 3B CF D1 CD 66 06 7A B3 CA 00 00 !...*;...f.z....
0001F0: D5 22 0D CF 21 3D CF E5 2A 0D CF 2B 11 0C 00 CD ."..!=..*..+....
Size : 512 (Real : 512)
000000: E2 E5 21 A7 E3 E5 21 00 00 D1 19 E5 21 01 00 CD ..!...!.....!...
000010: BA 1A CD 1B 20 21 A7 E3 E5 21 80 00 D1 19 E5 21 .... !...!.....!
000020: A7 E3 E5 21 00 00 D1 19 E5 21 80 00 CD 64 1F 2A ...!.....!...d.*
000030: 12 D7 E5 21 80 00 D1 EB B7 ED 52 22 12 D7 2A 16 ...!......R"..*.
000040: D7 23 D1 1B C3 BC 66 2A 12 D7 E5 21 00 00 D1 CD .#....f*...!....
000050: 92 06 CB 45 CA 92 06 21 7E E2 E5 21 A7 E3 E5 21 ...E...!~..!...!
000060: 00 00 D1 19 E5 21 01 00 CD BA 1A CD 1B 20 21 7E .....!....... !~
000070: E2 CD B0 1A CD 1B 20 C9 FD E1 06 50 21 5C D6 CD ...... ....P!\..
000080: E2 05 E1 22 AD D6 E1 22 AF D6 E1 22 B1 D6 FD E5 ..."..."..."....
000090: 21 7E E2 E5 21 5C D6 CD 3A 05 CD 70 13 21 7E E2 !~..!\..:..p.!~.
0000A0: CD 70 1A CD F1 1F E5 21 00 00 D1 CD 92 06 CB 45 .p.....!.......E
0000B0: CA 92 06 21 0C 00 E5 21 05 00 E5 CD 76 2B C3 B1 ...!...!....v+..
0000C0: 67 21 7E E2 E5 21 A7 E3 E5 21 00 00 D1 19 E5 21 g!~..!...!.....!
0000D0: 01 00 CD BE 1A CD 1B 20 21 A7 E3 E5 21 F1 D5 E5 ....... !...!...
0000E0: 21 5D 00 CD 64 1F 21 5D 00 22 50 D6 21 00 00 7D !]..d.!]."P.!..}
0000F0: 32 F0 D5 21 B4 EB E5 2A B1 D6 2B 11 5D 00 CD F5 2..!...*..+.]...
000100: 06 D1 19 E5 21 F1 D5 D1 01 5D 00 ED B0 21 F1 D5 ....!....]...!..
000110: 22 54 D6 2A 54 D6 11 59 00 19 6E 26 00 CB 45 CA "T.*T..Y..n&..E.
000120: 37 76 2A 54 D6 11 5A 00 19 6E 26 00 CB 45 CA 37 7v*T..Z..n&..E.7
000130: 76 2A 54 D6 11 02 00 19 E5 2A 54 D6 11 02 00 19 v*T......*T.....
000140: 5E 23 56 EB E5 21 0A 00 D1 EB B7 ED 52 EB E1 73 ^#V..!......R..s
000150: 23 72 C3 2F 68 2A 54 D6 11 06 00 19 E5 2A 54 D6 #r./h*T......*T.
000160: 11 06 00 19 5E 23 56 EB E5 21 0A 00 D1 19 EB E1 ....^#V..!......
000170: 73 23 72 2A 54 D6 11 04 00 19 5E 23 56 EB E5 2A s#r*T.....^#V..*
000180: 54 D6 5E 23 56 EB D1 EB B7 ED 52 E5 21 01 00 D1 T.^#V.....R.!...
000190: 19 22 4E D6 2A AF D6 E5 21 00 00 D1 CD A5 06 CB ."N.*...!.......
0001A0: 45 CA A5 06 2A 54 D6 11 04 00 19 E5 2A AF D6 E5 E...*T......*...
0001B0: 2A 54 D6 11 04 00 19 5E 23 56 EB D1 19 E5 2A 54 *T.....^#V....*T
0001C0: D6 5E 23 56 EB D1 EB B7 ED 52 EB E1 73 23 72 2A .^#V.....R..s#r*
0001D0: AF D6 EB 2A 54 D6 73 23 72 2A AD D6 E5 21 00 00 ...*T.s#r*...!..
0001E0: D1 CD A5 06 CB 45 CA A5 06 2A 54 D6 11 06 00 19 .....E...*T.....
0001F0: E5 2A AD D6 E5 2A 54 D6 11 06 00 19 5E 23 56 EB .*...*T.....^#V.
Size : 512 (Real : 512)
000000: F5 06 D1 19 E5 21 01 00 2B 29 5D 54 29 19 D1 19 .....!..+)]T)...
000010: CD 2C 05 C5 D5 E5 21 21 CF CD 2C 05 D9 E1 D1 C1 .,....!!..,.....
000020: CD D6 06 CB 45 CA D6 06 21 3D CF E5 2A 0D CF 2B ....E...!=..*..+
000030: 11 0C 00 CD F5 06 D1 19 E5 21 01 00 2B 29 5D 54 .........!..+)]T
000040: 29 19 D1 19 CD 2C 05 D9 21 21 CF CD D1 05 C3 26 )....,..!!.....&
000050: 71 21 3D CF E5 2A 0D CF 2B 11 0C 00 CD F5 06 D1 q!=..*..+.......
000060: 19 E5 21 01 00 2B 29 5D 54 29 19 D1 19 CD 2C 05 ..!..+)]T)....,.
000070: C5 D5 E5 21 15 CF CD 2C 05 D9 E1 D1 C1 CD E9 06 ...!...,........
000080: CB 45 CA E9 06 21 3D CF E5 2A 0D CF 2B 11 0C 00 .E...!=..*..+...
000090: CD F5 06 D1 19 E5 21 01 00 2B 29 5D 54 29 19 D1 ......!..+)]T)..
0000A0: 19 CD 2C 05 D9 21 15 CF CD D1 05 21 3D CF E5 2A ..,..!.....!=..*
0000B0: 0D CF 2B 11 0C 00 CD F5 06 D1 19 E5 21 02 00 2B ..+.........!..+
0000C0: 29 5D 54 29 19 D1 19 CD 2C 05 C5 D5 E5 21 1B CF )]T)....,....!..
0000D0: CD 2C 05 D9 E1 D1 C1 CD D6 06 CB 45 CA D6 06 21 .,.........E...!
0000E0: 3D CF E5 2A 0D CF 2B 11 0C 00 CD F5 06 D1 19 E5 =..*..+.........
0000F0: 21 02 00 2B 29 5D 54 29 19 D1 19 CD 2C 05 D9 21 !..+)]T)....,..!
000100: 1B CF CD D1 05 C3 DD 71 21 3D CF E5 2A 0D CF 2B .......q!=..*..+
000110: 11 0C 00 CD F5 06 D1 19 E5 21 02 00 2B 29 5D 54 .........!..+)]T
000120: 29 19 D1 19 CD 2C 05 C5 D5 E5 21 0F CF CD 2C 05 )....,....!...,.
000130: D9 E1 D1 C1 CD E9 06 CB 45 CA E9 06 21 3D CF E5 ........E...!=..
000140: 2A 0D CF 2B 11 0C 00 CD F5 06 D1 19 E5 21 02 00 *..+.........!..
000150: 2B 29 5D 54 29 19 D1 19 CD 2C 05 D9 21 0F CF CD +)]T)....,..!...
000160: D1 05 2A 0D CF 23 D1 1B C3 EB 70 21 35 CF CD 2C ..*..#....p!5..,
000170: 05 CB B8 D9 21 35 CF CD D1 05 21 2F CF CD 2C 05 ....!5....!/..,.
000180: CB B8 D9 21 2F CF CD D1 05 21 21 CF CD 2C 05 C5 ...!/....!!..,..
000190: D5 E5 21 35 CF CD 2C 05 D9 E1 D1 C1 CD FA 09 D9 ..!5..,.........
0001A0: 21 21 CF CD D1 05 21 15 CF CD 2C 05 C5 D5 E5 21 !!....!...,....!
0001B0: 35 CF CD 2C 05 D9 E1 D1 C1 CD FA 09 D9 21 15 CF 5..,.........!..
0001C0: CD D1 05 21 1B CF CD 2C 05 C5 D5 E5 21 2F CF CD ...!...,....!/..
0001D0: 2C 05 D9 E1 D1 C1 CD FA 09 D9 21 1B CF CD D1 05 ,.........!.....
0001E0: 21 0F CF CD 2C 05 C5 D5 E5 21 2F CF CD 2C 05 D9 !...,....!/..,..
0001F0: E1 D1 C1 CD FA 09 D9 21 0F CF CD D1 05 2A ED D3 .......!.....*..
Size : 512 (Real : 512)
000000: D1 19 E5 2A 54 D6 11 02 00 19 5E 23 56 EB D1 EB ...*T.....^#V...
000010: B7 ED 52 EB E1 73 23 72 2A 54 D6 11 02 00 19 E5 ..R..s#r*T......
000020: 2A AD D6 EB E1 73 23 72 2A 54 D6 5E 23 56 EB E5 *....s#r*T.^#V..
000030: 21 00 00 D1 CD E0 06 E5 2A 54 D6 11 02 00 19 5E !.......*T.....^
000040: 23 56 EB E5 21 00 00 D1 CD E0 06 D1 7D B3 6F E5 #V..!.......}.o.
000050: 2A 54 D6 11 04 00 19 5E 23 56 EB E5 21 4F 00 D1 *T.....^#V..!O..
000060: CD CC 06 D1 7D B3 6F E5 2A 54 D6 11 06 00 19 5E ....}.o.*T.....^
000070: 23 56 EB E5 21 C7 00 D1 CD CC 06 D1 7D B3 6F CB #V..!.......}.o.
000080: 45 CA 37 76 21 0C 00 E5 21 03 00 E5 CD 76 2B C3 E.7v!...!....v+.
000090: 82 69 2A 54 D6 11 02 00 19 5E 23 56 EB E5 2A 54 .i*T.....^#V..*T
0000A0: D6 11 06 00 19 5E 23 56 EB D1 CD 66 06 7A B3 CA .....^#V...f.z..
0000B0: 00 00 D5 22 52 D6 2A 50 D6 E5 2A 4E D6 D1 19 E5 ..."R.*P..*N....
0000C0: 21 7F 00 D1 CD CC 06 E5 2A F0 D5 26 00 7D EE 01 !.......*..&.}..
0000D0: 6F D1 7D A3 6F E5 21 7E E2 CD 49 1A 7D EE 01 6F o.}.o.!~..I.}..o
0000E0: D1 7D A3 6F CB 45 CA 37 76 21 7E E2 E5 21 A7 E3 .}.o.E.7v!~..!..
0000F0: E5 21 80 00 D1 19 E5 21 01 00 CD BE 1A CD 1B 20 .!.....!.......
000100: 21 01 00 7D 32 F0 D5 2A 4E D6 E5 21 A7 E3 E5 2A !..}2..*N..!...*
000110: 50 D6 D1 19 E5 2A 54 D6 5E 23 56 EB E5 2A 52 D6 P....*T.^#V..*R.
000120: E5 CD BC 29 2A 50 D6 E5 2A 4E D6 D1 19 22 50 D6 ...)*P..*N..."P.
000130: 2A 50 D6 E5 21 7F 00 D1 CD CC 06 CB 45 CA CC 06 *P..!.......E...
000140: 21 A7 E3 E5 21 80 00 D1 19 E5 21 A7 E3 E5 21 00 !...!.....!...!.
000150: 00 D1 19 E5 21 80 00 CD 64 1F 2A 50 D6 E5 21 80 ....!...d.*P..!.
000160: 00 D1 EB B7 ED 52 22 50 D6 21 00 00 7D 32 F0 D5 .....R"P.!..}2..
000170: 2A 52 D6 23 D1 1B C3 AD 69 21 7E E2 CD B0 1A CD *R.#....i!~.....
000180: 1B 20 C9 FD E1 E1 22 EC D5 FD E5 21 FF FF 22 E2 . ...."....!..".
000190: D5 2A EC D5 E5 CD 81 05 21 01 00 E5 21 10 00 CD .*......!...!...
0001A0: 9B 05 CD 4F 13 7D EE 01 6F CB 45 CA 37 76 21 0D ...O.}..o.E.7v!.
0001B0: 00 E5 21 02 00 E5 CD 76 2B C3 AC 6A 21 B4 EB E5 ..!....v+..j!...
0001C0: 2A EC D5 2B 11 5D 00 CD F5 06 D1 19 22 E4 D5 2A *..+.]......"..*
0001D0: E4 D5 11 06 00 19 5E 23 56 EB E5 2A E4 D5 11 02 ......^#V..*....
0001E0: 00 19 5E 23 56 EB D1 EB B7 ED 52 E5 21 01 00 D1 ..^#V.....R.!...
0001F0: 19 E5 2A E4 D5 11 04 00 19 5E 23 56 EB E5 2A E4 ..*......^#V..*.
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 31 52 65 66 4C 6F 63 3B 0D 0A 20 20 20 20 20 20 1RefLoc;..
000010: 20 20 58 32 52 65 66 47 6C 62 3A 3D 58 32 52 65 X2RefGlb:=X2Re
000020: 66 4C 6F 63 3B 0D 0A 20 20 20 20 20 20 20 20 59 fLoc;.. Y
000030: 31 52 65 66 47 6C 62 3A 3D 59 31 52 65 66 4C 6F 1RefGlb:=Y1RefLo
000040: 63 3B 0D 0A 20 20 20 20 20 20 20 20 59 32 52 65 c;.. Y2Re
000050: 66 47 6C 62 3A 3D 59 32 52 65 66 4C 6F 63 3B 0D fGlb:=Y2RefLoc;.
000060: 0A 20 20 20 20 20 20 20 20 44 69 72 65 63 74 4D . DirectM
000070: 6F 64 65 47 6C 62 3A 3D 44 69 72 65 63 74 4D 6F odeGlb:=DirectMo
000080: 64 65 4C 6F 63 3B 0D 0A 20 20 20 20 20 20 20 65 deLoc;.. e
000090: 6E 64 3B 0D 0A 20 20 20 20 65 6E 64 3B 20 7B 20 nd;.. end; {
0000A0: 48 61 74 63 68 44 69 72 65 63 74 20 7D 0D 0A 0D HatchDirect }...
0000B0: 0A 20 20 62 65 67 69 6E 20 7B 20 48 61 74 63 68 . begin { Hatch
0000C0: 20 7D 0D 0A 20 20 20 20 69 66 20 44 69 72 65 63 }.. if Direc
0000D0: 74 4D 6F 64 65 47 6C 62 20 74 68 65 6E 0D 0A 20 tModeGlb then..
0000E0: 20 20 20 20 20 48 61 74 63 68 44 69 72 65 63 74 HatchDirect
0000F0: 28 74 72 75 6E 63 28 58 5F 31 29 2C 74 72 75 6E (trunc(X_1),trun
000100: 63 28 59 5F 31 29 2C 74 72 75 6E 63 28 58 5F 32 c(Y_1),trunc(X_2
000110: 29 2C 74 72 75 6E 63 28 59 5F 32 29 2C 74 72 75 ),trunc(Y_2),tru
000120: 6E 63 28 44 65 6C 74 61 29 29 0D 0A 20 20 20 20 nc(Delta))..
000130: 65 6C 73 65 0D 0A 20 20 20 20 20 62 65 67 69 6E else.. begin
000140: 0D 0A 20 20 20 20 20 20 44 69 72 65 63 74 4D 6F .. DirectMo
000150: 64 65 4C 6F 63 3A 3D 44 69 72 65 63 74 4D 6F 64 deLoc:=DirectMod
000160: 65 47 6C 62 3B 0D 0A 20 20 20 20 20 20 44 69 72 eGlb;.. Dir
000170: 65 63 74 4D 6F 64 65 47 6C 62 3A 3D 74 72 75 65 ectModeGlb:=true
000180: 3B 0D 0A 20 20 20 20 20 20 78 31 3A 3D 57 69 6E ;.. x1:=Win
000190: 64 6F 77 58 28 58 5F 31 29 3B 0D 0A 20 20 20 20 dowX(X_1);..
0001A0: 20 20 79 31 3A 3D 57 69 6E 64 6F 77 59 28 59 5F y1:=WindowY(Y_
0001B0: 31 29 3B 0D 0A 20 20 20 20 20 20 78 32 3A 3D 57 1);.. x2:=W
0001C0: 69 6E 64 6F 77 58 28 58 5F 32 29 3B 0D 0A 20 20 indowX(X_2);..
0001D0: 20 20 20 20 79 32 3A 3D 57 69 6E 64 6F 77 59 28 y2:=WindowY(
0001E0: 59 5F 32 29 3B 0D 0A 20 20 20 20 20 20 44 75 6D Y_2);.. Dum
0001F0: 6D 79 3A 3D 63 6C 69 70 28 78 31 2C 79 31 2C 78 my:=clip(x1,y1,x
Size : 512 (Real : 512)
000000: 28 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A (***************
000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
000020: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
000030: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 29 0D 0A 28 ************)..(
000040: 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 *
000050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000070: 20 20 20 20 20 20 20 20 20 20 2A 29 0D 0A 28 2A *)..(*
000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000090: 54 55 52 42 4F 20 47 52 41 50 48 49 58 20 76 65 TURBO GRAPHIX ve
0000A0: 72 73 69 6F 6E 20 31 2E 30 35 41 20 20 20 20 20 rsion 1.05A
0000B0: 20 20 20 20 20 20 20 20 20 2A 29 0D 0A 28 2A 20 *)..(*
0000C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000F0: 20 20 20 20 20 20 20 20 2A 29 0D 0A 28 2A 20 20 *)..(*
000100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000110: 20 20 43 72 6F 73 73 68 61 74 63 68 20 6D 6F 64 Crosshatch mod
000120: 75 6C 65 20 20 20 20 20 20 20 20 20 20 20 20 20 ule
000130: 20 20 20 20 20 20 20 2A 29 0D 0A 28 2A 20 20 20 *)..(*
000140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4D M
000150: 6F 64 75 6C 65 20 76 65 72 73 69 6F 6E 20 20 31 odule version 1
000160: 2E 30 30 41 20 20 20 20 20 20 20 20 20 20 20 20 .00A
000170: 20 20 20 20 20 20 2A 29 0D 0A 28 2A 20 20 20 20 *)..(*
000180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000190: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001B0: 20 20 20 20 20 2A 29 0D 0A 28 2A 20 20 20 20 20 *)..(*
0001C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 43 6F 70 Cop
0001D0: 79 72 69 67 68 74 20 28 43 29 20 31 39 38 35 20 yright (C) 1985
0001E0: 62 79 20 20 20 20 20 20 20 20 20 20 20 20 20 20 by
0001F0: 20 20 20 20 2A 29 0D 0A 28 2A 20 20 20 20 20 20 *)..(*
Size : 512 (Real : 512)
000000: 32 2C 79 31 29 3B 0D 0A 20 20 20 20 20 20 44 75 2,y1);.. Du
000010: 6D 6D 79 3A 3D 63 6C 69 70 28 78 31 2C 79 31 2C mmy:=clip(x1,y1,
000020: 78 31 2C 79 32 29 3B 0D 0A 20 20 20 20 20 20 48 x1,y2);.. H
000030: 61 74 63 68 44 69 72 65 63 74 28 78 31 2C 79 31 atchDirect(x1,y1
000040: 2C 78 32 2C 79 32 2C 74 72 75 6E 63 28 44 65 6C ,x2,y2,trunc(Del
000050: 74 61 29 29 3B 0D 0A 20 20 20 20 20 20 44 69 72 ta));.. Dir
000060: 65 63 74 4D 6F 64 65 47 6C 62 3A 3D 44 69 72 65 ectModeGlb:=Dire
000070: 63 74 4D 6F 64 65 4C 6F 63 3B 0D 0A 20 20 20 20 ctModeLoc;..
000080: 20 65 6E 64 3B 0D 0A 20 20 65 6E 64 3B 20 7B 20 end;.. end; {
000090: 48 61 74 63 68 20 7D 0D 0A 1A E5 E5 E5 E5 E5 E5 Hatch }.........
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000110: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000120: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000130: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000140: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000150: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
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 ................
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 20 20 20 20 42 4F 52 4C BORL
000010: 41 4E 44 20 49 6E 74 65 72 6E 61 74 69 6F 6E 61 AND Internationa
000020: 6C 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 l
000030: 20 20 20 2A 29 0D 0A 28 2A 20 20 20 20 20 20 20 *)..(*
000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000070: 20 20 2A 29 0D 0A 28 2A 2A 2A 2A 2A 2A 2A 2A 2A *)..(*********
000080: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
000090: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
0000A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
0000B0: 2A 2A 29 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 65 **)....procedure
0000C0: 20 48 61 74 63 68 28 58 5F 31 2C 59 5F 31 2C 58 Hatch(X_1,Y_1,X
0000D0: 5F 32 2C 59 5F 32 2C 44 65 6C 74 61 3A 72 65 61 _2,Y_2,Delta:rea
0000E0: 6C 29 3B 0D 0A 20 20 76 61 72 20 78 31 2C 79 31 l);.. var x1,y1
0000F0: 2C 78 32 2C 79 32 3A 69 6E 74 65 67 65 72 3B 0D ,x2,y2:integer;.
000100: 0A 20 20 20 20 20 20 44 69 72 65 63 74 4D 6F 64 . DirectMod
000110: 65 4C 6F 63 2C 44 75 6D 6D 79 3A 62 6F 6F 6C 65 eLoc,Dummy:boole
000120: 61 6E 3B 0D 0A 0D 0A 20 20 70 72 6F 63 65 64 75 an;.... procedu
000130: 72 65 20 48 61 74 63 68 44 69 72 65 63 74 28 78 re HatchDirect(x
000140: 31 2C 79 31 2C 78 32 2C 79 32 2C 44 65 6C 74 61 1,y1,x2,y2,Delta
000150: 3A 69 6E 74 65 67 65 72 29 3B 0D 0A 20 20 20 20 :integer);..
000160: 76 61 72 20 69 2C 79 73 74 2C 79 65 6E 2C 63 6F var i,yst,yen,co
000170: 75 6E 74 3A 69 6E 74 65 67 65 72 3B 0D 0A 20 20 unt:integer;..
000180: 20 20 20 20 20 20 58 31 52 65 66 4C 6F 63 2C 58 X1RefLoc,X
000190: 32 52 65 66 4C 6F 63 2C 59 31 52 65 66 4C 6F 63 2RefLoc,Y1RefLoc
0001A0: 2C 59 32 52 65 66 4C 6F 63 3A 69 6E 74 65 67 65 ,Y2RefLoc:intege
0001B0: 72 3B 0D 0A 20 20 20 20 20 20 20 20 44 69 72 65 r;.. Dire
0001C0: 63 74 4D 6F 64 65 4C 6F 63 2C 43 6C 69 70 70 69 ctModeLoc,Clippi
0001D0: 6E 67 4C 6F 63 3A 62 6F 6F 6C 65 61 6E 3B 0D 0A ngLoc:boolean;..
0001E0: 20 20 20 20 20 20 20 20 58 31 44 2C 59 31 44 2C X1D,Y1D,
0001F0: 58 32 44 2C 59 32 44 3A 20 69 6E 74 65 67 65 72 X2D,Y2D: integer
Size : 512 (Real : 512)
000000: 28 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A (***************
000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
000020: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
000030: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 29 0D 0A 28 ************)..(
000040: 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 *
000050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000070: 20 20 20 20 20 20 20 20 20 20 2A 29 0D 0A 28 2A *)..(*
000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000090: 54 55 52 42 4F 20 47 52 41 50 48 49 58 20 76 65 TURBO GRAPHIX ve
0000A0: 72 73 69 6F 6E 20 31 2E 30 35 41 20 20 20 20 20 rsion 1.05A
0000B0: 20 20 20 20 20 20 20 20 20 2A 29 0D 0A 28 2A 20 *)..(*
0000C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000F0: 20 20 20 20 20 20 20 20 2A 29 0D 0A 28 2A 20 20 *)..(*
000100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000110: 50 6F 6C 79 67 6F 6E 20 64 72 61 77 69 6E 67 20 Polygon drawing
000120: 6D 6F 64 75 6C 65 20 20 20 20 20 20 20 20 20 20 module
000130: 20 20 20 20 20 20 20 2A 29 0D 0A 28 2A 20 20 20 *)..(*
000140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000150: 4D 6F 64 75 6C 65 20 76 65 72 73 69 6F 6E 20 31 Module version 1
000160: 2E 30 35 41 20 20 20 20 20 20 20 20 20 20 20 20 .05A
000170: 20 20 20 20 20 20 2A 29 0D 0A 28 2A 20 20 20 20 *)..(*
000180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000190: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001B0: 20 20 20 20 20 2A 29 0D 0A 28 2A 20 20 20 20 20 *)..(*
0001C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 43 6F 70 Cop
0001D0: 79 72 69 67 68 74 20 28 43 29 20 31 39 38 35 20 yright (C) 1985
0001E0: 62 79 20 20 20 20 20 20 20 20 20 20 20 20 20 20 by
0001F0: 20 20 20 20 2A 29 0D 0A 28 2A 20 20 20 20 20 20 *)..(*
Size : 512 (Real : 512)
000000: 3B 0D 0A 0D 0A 20 20 20 20 62 65 67 69 6E 20 7B ;.... begin {
000010: 20 48 61 74 63 68 44 69 72 65 63 74 20 7D 0D 0A HatchDirect }..
000020: 20 20 20 20 20 20 69 66 20 44 65 6C 74 61 3C 3E if Delta<>
000030: 30 20 74 68 65 6E 0D 0A 20 20 20 20 20 20 20 62 0 then.. b
000040: 65 67 69 6E 0D 0A 20 20 20 20 20 20 20 20 48 61 egin.. Ha
000050: 74 63 68 47 6C 62 3A 3D 74 72 75 65 3B 0D 0A 20 tchGlb:=true;..
000060: 20 20 20 20 20 20 20 44 69 72 65 63 74 4D 6F 64 DirectMod
000070: 65 4C 6F 63 3A 3D 44 69 72 65 63 74 4D 6F 64 65 eLoc:=DirectMode
000080: 47 6C 62 3B 0D 0A 20 20 20 20 20 20 20 20 44 69 Glb;.. Di
000090: 72 65 63 74 4D 6F 64 65 47 6C 62 3A 3D 74 72 75 rectModeGlb:=tru
0000A0: 65 3B 0D 0A 20 20 20 20 20 20 20 20 43 6C 69 70 e;.. Clip
0000B0: 70 69 6E 67 4C 6F 63 3A 3D 43 6C 69 70 70 69 6E pingLoc:=Clippin
0000C0: 67 47 6C 62 3B 0D 0A 20 20 20 20 20 20 20 20 43 gGlb;.. C
0000D0: 6C 69 70 70 69 6E 67 47 6C 62 3A 3D 74 72 75 65 lippingGlb:=true
0000E0: 3B 0D 0A 20 20 20 20 20 20 20 20 58 31 52 65 66 ;.. X1Ref
0000F0: 4C 6F 63 3A 3D 58 31 52 65 66 47 6C 62 3B 0D 0A Loc:=X1RefGlb;..
000100: 20 20 20 20 20 20 20 20 58 31 52 65 66 47 6C 62 X1RefGlb
000110: 3A 3D 78 31 3B 0D 0A 20 20 20 20 20 20 20 20 58 :=x1;.. X
000120: 32 52 65 66 4C 6F 63 3A 3D 58 32 52 65 66 47 6C 2RefLoc:=X2RefGl
000130: 62 3B 0D 0A 20 20 20 20 20 20 20 20 58 32 52 65 b;.. X2Re
000140: 66 47 6C 62 3A 3D 78 32 3B 0D 0A 20 20 20 20 20 fGlb:=x2;..
000150: 20 20 20 59 31 52 65 66 4C 6F 63 3A 3D 59 31 52 Y1RefLoc:=Y1R
000160: 65 66 47 6C 62 3B 0D 0A 20 20 20 20 20 20 20 20 efGlb;..
000170: 59 31 52 65 66 47 6C 62 3A 3D 79 31 3B 0D 0A 20 Y1RefGlb:=y1;..
000180: 20 20 20 20 20 20 20 59 32 52 65 66 4C 6F 63 3A Y2RefLoc:
000190: 3D 59 32 52 65 66 47 6C 62 3B 0D 0A 20 20 20 20 =Y2RefGlb;..
0001A0: 20 20 20 20 59 32 52 65 66 47 6C 62 3A 3D 79 32 Y2RefGlb:=y2
0001B0: 3B 0D 0A 20 20 20 20 20 20 20 20 79 73 74 3A 3D ;.. yst:=
0001C0: 79 31 2B 44 65 6C 74 61 3B 0D 0A 20 20 20 20 20 y1+Delta;..
0001D0: 20 20 20 79 65 6E 3A 3D 79 31 2D 78 32 2B 78 31 yen:=y1-x2+x1
0001E0: 2B 44 65 6C 74 61 3B 0D 0A 20 20 20 20 20 20 20 +Delta;..
0001F0: 20 69 66 20 44 65 6C 74 61 3C 30 20 74 68 65 6E if Delta<0 then
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 20 20 20 20 42 4F 52 4C BORL
000010: 41 4E 44 20 49 6E 74 65 72 6E 61 74 69 6F 6E 61 AND Internationa
000020: 6C 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 l
000030: 20 20 20 2A 29 0D 0A 28 2A 20 20 20 20 20 20 20 *)..(*
000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000070: 20 20 2A 29 0D 0A 28 2A 2A 2A 2A 2A 2A 2A 2A 2A *)..(*********
000080: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
000090: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
0000A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
0000B0: 2A 2A 29 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 65 **)....procedure
0000C0: 20 44 72 61 77 50 6F 6C 79 67 6F 6E 28 41 3A 50 DrawPolygon(A:P
0000D0: 6C 6F 74 41 72 72 61 79 3B 0D 0A 20 20 20 20 20 lotArray;..
0000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000F0: 20 49 30 2C 4E 50 6F 69 6E 74 73 2C 4C 69 6E 65 I0,NPoints,Line
000100: 2C 53 63 61 6C 65 2C 4C 69 6E 65 73 3A 69 6E 74 ,Scale,Lines:int
000110: 65 67 65 72 29 3B 0D 0A 20 20 76 61 72 20 69 2C eger);.. var i,
000120: 78 31 2C 78 32 2C 79 31 2C 79 32 2C 58 4F 66 66 x1,x2,y1,y2,XOff
000130: 73 65 74 2C 59 4F 66 66 73 65 74 3A 69 6E 74 65 set,YOffset:inte
000140: 67 65 72 3B 0D 0A 20 20 20 20 20 20 58 31 52 65 ger;.. X1Re
000150: 66 4C 6F 63 2C 59 31 52 65 66 4C 6F 63 2C 58 32 fLoc,Y1RefLoc,X2
000160: 52 65 66 4C 6F 63 2C 59 32 52 65 66 4C 6F 63 3A RefLoc,Y2RefLoc:
000170: 69 6E 74 65 67 65 72 3B 0D 0A 20 20 20 20 20 20 integer;..
000180: 44 65 6C 74 61 59 2C 58 4F 73 31 2C 58 4F 73 32 DeltaY,XOs1,XOs2
000190: 2C 59 4F 73 31 2C 59 4F 73 32 3A 69 6E 74 65 67 ,YOs1,YOs2:integ
0001A0: 65 72 3B 0D 0A 20 20 20 20 20 20 41 75 74 6F 43 er;.. AutoC
0001B0: 6C 69 70 2C 44 69 72 65 63 74 4D 6F 64 65 4C 6F lip,DirectModeLo
0001C0: 63 2C 50 6C 6F 74 4C 69 6E 65 2C 50 6C 6F 74 53 c,PlotLine,PlotS
0001D0: 79 6D 62 6F 6C 3A 62 6F 6F 6C 65 61 6E 3B 0D 0A ymbol:boolean;..
0001E0: 20 20 20 20 20 20 58 31 4C 6F 63 2C 59 31 4C 6F X1Loc,Y1Lo
0001F0: 63 2C 58 32 4C 6F 63 2C 59 32 4C 6F 63 3A 69 6E c,X2Loc,Y2Loc:in
Size : 512 (Real : 512)
000000: 0D 0A 20 20 20 20 20 20 20 20 20 62 65 67 69 6E .. begin
000010: 0D 0A 20 20 20 20 20 20 20 20 20 20 44 65 6C 74 .. Delt
000020: 61 3A 3D 2D 44 65 6C 74 61 3B 0D 0A 20 20 20 20 a:=-Delta;..
000030: 20 20 20 20 20 20 69 3A 3D 79 73 74 3B 0D 0A 20 i:=yst;..
000040: 20 20 20 20 20 20 20 20 20 79 73 74 3A 3D 79 65 yst:=ye
000050: 6E 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 79 65 n;.. ye
000060: 6E 3A 3D 69 3B 0D 0A 20 20 20 20 20 20 20 20 20 n:=i;..
000070: 65 6E 64 3B 0D 0A 20 20 20 20 20 20 20 20 63 6F end;.. co
000080: 75 6E 74 3A 3D 28 79 32 2D 79 31 2B 78 32 2D 78 unt:=(y2-y1+x2-x
000090: 31 2B 78 32 2D 78 31 29 20 64 69 76 20 44 65 6C 1+x2-x1) div Del
0000A0: 74 61 3B 0D 0A 20 20 20 20 20 20 20 20 66 6F 72 ta;.. for
0000B0: 20 69 3A 3D 31 20 74 6F 20 63 6F 75 6E 74 2D 31 i:=1 to count-1
0000C0: 20 64 6F 0D 0A 20 20 20 20 20 20 20 20 20 62 65 do.. be
0000D0: 67 69 6E 0D 0A 20 20 20 20 20 20 20 20 20 20 58 gin.. X
0000E0: 31 44 3A 3D 78 31 3B 0D 0A 20 20 20 20 20 20 20 1D:=x1;..
0000F0: 20 20 20 59 31 44 3A 3D 79 73 74 3B 0D 0A 20 20 Y1D:=yst;..
000100: 20 20 20 20 20 20 20 20 58 32 44 3A 3D 78 32 3B X2D:=x2;
000110: 0D 0A 20 20 20 20 20 20 20 20 20 20 59 32 44 3A .. Y2D:
000120: 3D 79 65 6E 3B 0D 0A 20 20 20 20 20 20 20 20 20 =yen;..
000130: 20 69 66 20 63 6C 69 70 28 58 31 44 2C 59 31 44 if clip(X1D,Y1D
000140: 2C 58 32 44 2C 59 32 44 29 20 74 68 65 6E 20 44 ,X2D,Y2D) then D
000150: 72 61 77 4C 69 6E 65 28 58 31 44 2C 59 31 44 2C rawLine(X1D,Y1D,
000160: 58 32 44 2C 59 32 44 29 3B 0D 0A 20 20 20 20 20 X2D,Y2D);..
000170: 20 20 20 20 20 79 73 74 3A 3D 79 73 74 2B 44 65 yst:=yst+De
000180: 6C 74 61 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 lta;..
000190: 79 65 6E 3A 3D 79 65 6E 2B 44 65 6C 74 61 3B 0D yen:=yen+Delta;.
0001A0: 0A 20 20 20 20 20 20 20 20 20 65 6E 64 3B 0D 0A . end;..
0001B0: 20 20 20 20 20 20 20 20 43 6C 69 70 70 69 6E 67 Clipping
0001C0: 47 6C 62 3A 3D 43 6C 69 70 70 69 6E 67 4C 6F 63 Glb:=ClippingLoc
0001D0: 3B 0D 0A 20 20 20 20 20 20 20 20 48 61 74 63 68 ;.. Hatch
0001E0: 47 6C 62 3A 3D 66 61 6C 73 65 3B 0D 0A 20 20 20 Glb:=false;..
0001F0: 20 20 20 20 20 58 31 52 65 66 47 6C 62 3A 3D 58 X1RefGlb:=X
Tous droits réservés. Reproduction sans autorisation interdite. © Kukulcan