000000: 45 58 54 45 4E 44 45 44 20 43 50 43 20 44 53 4B EXTENDED CPC DSK
000010: 20 46 69 6C 65 0D 0A 44 69 73 6B 2D 49 6E 66 6F File..Disk-Info
000020: 0D 0A 53 41 4D 64 69 73 6B 31 39 30 31 32 32 00 ..SAMdisk190122.
000030: 2A 01 00 00 13 13 13 13 13 13 13 13 13 13 13 13 *...............
000040: 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 ................
000050: 13 13 13 13 13 13 13 13 13 13 13 13 00 00 00 00 ................
000060: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000070: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000080: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000090: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000100: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
000110: 00 00 01 00 02 09 4E E5 00 00 41 02 00 00 00 02 ......N...A.....
000120: 00 00 46 02 00 00 00 02 00 00 42 02 00 00 00 02 ..F.......B.....
000130: 00 00 47 02 00 00 00 02 00 00 43 02 00 00 00 02 ..G.......C.....
000140: 00 00 48 02 00 00 00 02 00 00 44 02 00 00 00 02 ..H.......D.....
000150: 00 00 49 02 00 00 00 02 00 00 45 02 00 00 00 02 ..I.......E.....
000160: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000170: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000180: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000190: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000200: 11 00 03 21 00 00 06 04 CD 01 02 30 34 10 F9 CD ...!.......04...
000210: C5 01 20 64 11 00 0C 06 10 7E B7 28 1A E5 C5 6F .. d.....~.(...o
000220: 26 00 CD FC 01 30 1A C1 E1 23 10 ED 21 2A 02 34 &....0...#..!*.4
000230: D5 CD C5 01 D1 28 E0 21 00 0C 0E FF CD 9B BE 16 .....(.!........
000240: BD 21 46 01 18 6B 0D 0A 44 69 73 63 65 74 74 65 .!F..k..Discette
000250: 20 72 65 61 64 20 66 61 69 6C 75 72 65 0D 0A 50 read failure..P
000260: 72 65 73 73 20 61 6E 79 20 6B 65 79 20 74 6F 20 ress any key to
000270: 72 65 73 74 61 72 74 FF 21 7D 01 18 34 0D 0A 43 restart.!}..4..C
000280: 61 6E 6E 6F 74 20 66 69 6E 64 20 22 2E 45 4D 53 annot find ".EMS
000290: 22 20 66 69 6C 65 0D 0A 50 72 65 73 73 20 61 6E " file..Press an
0002A0: 79 20 6B 65 79 20 74 6F 20 72 65 73 74 61 72 74 y key to restart
0002B0: FF 7E 23 FE FF C4 5A BB 20 F7 CD 1B BB 38 FB CD .~#...Z. ....8..
0002C0: 18 BB CF 00 00 21 00 03 06 40 7E E6 F0 20 22 C5 .....!...@~.. ".
0002D0: E5 11 0D 00 19 11 2B 02 01 FF 0C 1B 1A 2B AE A1 ......+......+..
0002E0: 28 09 1A FE 3F 20 08 7E A1 12 AF 0E 7F 10 EC E1 (...? .~........
0002F0: C1 11 10 00 19 C8 19 10 D1 F6 FF C9 29 CD 01 02 ............)...
000300: D0 C5 E5 01 F7 FF 3E 01 3C 09 38 FC 67 7D C6 4A ......>.<.8.g}.J
000310: 4F 2E 00 EB CD 89 BE EB E1 C1 D0 14 14 23 C9 3F O............#.?
000320: 3F 3F 3F 3F 3F 3F 3F 45 4D 53 00 CF CF CF CF CF ???????EMS......
000330: CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF ................
000340: CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF ................
000350: CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF ................
000360: CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF ................
000370: CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF ................
000380: CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF ................
000390: CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF ................
0003A0: CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF ................
0003B0: CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF ................
0003C0: CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF ................
0003D0: CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF ................
0003E0: CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF ................
0003F0: CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF ................
000400: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000410: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000420: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000430: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000440: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000450: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000460: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000470: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000480: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000490: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0004A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0004B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0004C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0004D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0004E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0004F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000500: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000510: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000520: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000530: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000540: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000550: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000560: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000570: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000580: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000590: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0005A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0005B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0005C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0005D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0005E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0005F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000600: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000610: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000620: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000630: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000640: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000650: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000660: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000670: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000680: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000690: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0006A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0006B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0006C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0006D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0006E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0006F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000700: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000710: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000720: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000730: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000740: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000750: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000760: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000770: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000780: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000790: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0007A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0007B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0007C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0007D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0007E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0007F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000800: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000810: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000820: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000830: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000840: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000850: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000860: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000870: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000880: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000890: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0008A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0008B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0008C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0008D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0008E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0008F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000900: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000910: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000920: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000930: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000940: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000950: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000960: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000970: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000980: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000990: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0009A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0009B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0009C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0009D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0009E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0009F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000A00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000A10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000A20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000A30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000A40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000A50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000A60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000A70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000A80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000A90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000AA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000AB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000AC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000AD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000AE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000AF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000B00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000B10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000B20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000B30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000B40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000B50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000B60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000B70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000B80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000B90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000BA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000BB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000BC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000BD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000BE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000BF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000C00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000C10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000C20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000C30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000C40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000C50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000C60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000C70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000C80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000C90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000CA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000CB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000CC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000CD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000CE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000CF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000D00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000D10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000D20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000D30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000D40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000D50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000D60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000D70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000D80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000D90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000DA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000DB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000DC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000DD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000DE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000DF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000E00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000E10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000E20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000E30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000E40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000E50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000E60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000E70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000E80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000E90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000EA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000EB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000EC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000ED0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000EE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000EF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000F00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000F10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000F20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000F30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000F40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000F50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000F60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000F70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000F80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000F90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000FA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000FB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000FC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000FD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000FE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000FF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0010A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0010B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0010C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0010D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0010E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0010F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0011A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0011B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0011C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0011D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0011E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0011F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001200: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001210: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001220: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001230: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001240: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001250: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001260: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001270: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001280: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001290: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0012A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0012B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0012C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0012D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0012E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0012F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001300: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001310: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001320: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001330: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001340: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001350: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001360: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001370: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001380: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001390: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0013A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0013B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0013C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0013D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0013E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0013F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001400: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
001410: 01 00 01 00 02 09 50 E5 01 00 41 02 00 00 00 02 ......P...A.....
001420: 01 00 46 02 00 00 00 02 01 00 42 02 00 00 00 02 ..F.......B.....
001430: 01 00 47 02 00 00 00 02 01 00 43 02 00 00 00 02 ..G.......C.....
001440: 01 00 48 02 00 00 00 02 01 00 44 02 00 00 00 02 ..H.......D.....
001450: 01 00 49 02 00 00 00 02 01 00 45 02 00 00 00 02 ..I.......E.....
001460: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001470: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001480: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001490: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0014A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0014B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0014C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0014D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0014E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0014F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001500: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001510: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001520: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001530: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001540: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001550: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001560: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001570: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001580: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001590: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0015A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0015B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0015C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0015D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0015E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0015F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001600: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001610: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001620: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001630: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001640: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001650: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001660: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001670: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001680: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001690: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0016A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0016B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0016C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0016D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0016E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0016F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001700: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001710: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001720: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001730: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001740: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001750: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001760: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001770: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001780: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001790: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0017A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0017B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0017C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0017D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0017E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0017F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001800: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001810: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001820: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001830: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001840: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001850: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001860: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001870: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001880: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001890: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0018A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0018B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0018C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0018D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0018E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0018F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001900: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001910: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001920: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001930: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001940: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001950: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001960: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001970: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001980: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001990: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0019A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0019B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0019C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0019D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0019E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0019F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001A00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001A10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001A20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001A30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001A40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001A50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001A60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001A70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001A80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001A90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001AA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001AB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001AC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001AD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001AE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001AF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001B00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001B10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001B20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001B30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001B40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001B50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001B60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001B70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001B80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001B90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001BA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001BB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001BC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001BD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001BE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001BF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001C00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001C10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001C20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001C30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001C40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001C50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001C60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001C70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001C80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001C90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001CA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001CB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001CC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001CD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001CE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001CF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001D00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001D10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001D20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001D30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001D40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001D50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001D60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001D70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001D80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001D90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001DA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001DB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001DC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001DD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001DE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001DF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001E00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001E10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001E20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001E30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001E40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001E50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001E60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001E70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001E80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001E90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001EA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001EB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001EC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001ED0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001EE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001EF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001F00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001F10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001F20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001F30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001F40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001F50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001F60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001F70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001F80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001F90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001FA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001FB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001FC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001FD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001FE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001FF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0020A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0020B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0020C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0020D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0020E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0020F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0021A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0021B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0021C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0021D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0021E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0021F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002200: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002210: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002220: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002230: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002240: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002250: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002260: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002270: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002280: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002290: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0022A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0022B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0022C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0022D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0022E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0022F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002300: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002310: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002320: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002330: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002340: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002350: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002360: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002370: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002380: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002390: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0023A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0023B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0023C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0023D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0023E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0023F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002400: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002410: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002420: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002430: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002440: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002450: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002460: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002470: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002480: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002490: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0024A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0024B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0024C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0024D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0024E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0024F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002500: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002510: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002520: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002530: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002540: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002550: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002560: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002570: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002580: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002590: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0025A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0025B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0025C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0025D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0025E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0025F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002600: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002610: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002620: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002630: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002640: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002650: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002660: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002670: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002680: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002690: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0026A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0026B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0026C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0026D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0026E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0026F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002700: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
002710: 02 00 01 00 02 09 4E E5 02 00 41 02 00 00 00 02 ......N...A.....
002720: 02 00 46 02 00 00 00 02 02 00 42 02 00 00 00 02 ..F.......B.....
002730: 02 00 47 02 00 00 00 02 02 00 43 02 00 00 00 02 ..G.......C.....
002740: 02 00 48 02 00 00 00 02 02 00 44 02 00 00 00 02 ..H.......D.....
002750: 02 00 49 02 00 00 00 02 02 00 45 02 00 00 00 02 ..I.......E.....
002760: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002770: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002780: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002790: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0027A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0027B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0027C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0027D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0027E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0027F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002800: 00 4D 45 4E 55 20 20 20 20 43 4D 44 00 00 00 10 .MENU CMD....
002810: 02 03 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002820: 00 4D 45 4E 55 53 45 43 20 43 4D 44 00 00 00 0C .MENUSEC CMD....
002830: 04 05 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002840: 00 44 45 46 5A 4F 4E 45 53 43 4D 44 00 00 00 1C .DEFZONESCMD....
002850: 06 07 08 09 00 00 00 00 00 00 00 00 00 00 00 00 ................
002860: 00 47 45 4E 45 20 20 20 20 43 4D 44 00 00 00 10 .GENE CMD....
002870: 0A 0B 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002880: 00 44 45 4D 4C 49 53 54 20 43 4D 44 00 00 00 0C .DEMLIST CMD....
002890: 0C 0D 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0028A0: 00 53 55 50 45 4C 45 4D 20 43 4D 44 00 00 00 10 .SUPELEM CMD....
0028B0: 0E 0F 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0028C0: 00 56 45 52 49 46 20 20 20 43 4D 44 00 00 00 30 .VERIF CMD...0
0028D0: 10 11 12 13 14 15 00 00 00 00 00 00 00 00 00 00 ................
0028E0: 00 50 49 43 54 55 52 45 20 43 4D 44 00 00 00 08 .PICTURE CMD....
0028F0: 16 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002900: 00 43 4F 4E 46 53 55 50 20 43 4D 44 00 00 00 04 .CONFSUP CMD....
002910: 17 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002920: 00 44 45 46 49 4E 44 45 58 43 4D 44 00 00 00 08 .DEFINDEXCMD....
002930: 18 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002940: 00 41 46 46 4D 45 53 53 20 43 4D 44 00 00 00 24 .AFFMESS CMD...$
002950: 19 1A 1B 1C 1D 00 00 00 00 00 00 00 00 00 00 00 ................
002960: 00 44 45 4D 5A 4F 4E 45 20 43 4D 44 00 00 00 18 .DEMZONE CMD....
002970: 1E 1F 20 00 00 00 00 00 00 00 00 00 00 00 00 00 .. .............
002980: 00 44 45 46 45 4C 45 4D 20 43 4D 44 00 00 00 4C .DEFELEM CMD...L
002990: 21 22 23 24 25 26 27 28 29 2A 00 00 00 00 00 00 !"#$%&'()*......
0029A0: 00 4C 49 53 54 45 4C 45 4D 43 4D 44 00 00 00 18 .LISTELEMCMD....
0029B0: 2B 2C 2D 00 00 00 00 00 00 00 00 00 00 00 00 00 +,-.............
0029C0: 00 4F 50 54 49 4F 4E 20 20 43 4D 44 00 00 00 04 .OPTION CMD....
0029D0: 2E 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0029E0: 00 4D 4F 44 49 46 43 4C 45 43 4D 44 00 00 00 08 .MODIFCLECMD....
0029F0: 2F 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 /...............
002A00: 6C 69 73 74 65 20 20 20 20 20 20 20 20 20 20 20 liste
002A10: 20 3D 3D 3D 3D 3E 20 37 22 0D 0A 40 20 31 32 2C ====> 7"..@ 12,
002A20: 31 30 20 73 61 79 20 22 6C 69 73 74 65 20 64 65 10 say "liste de
002A30: 73 20 63 6C 65 73 20 65 78 69 73 74 61 6E 74 65 s cles existante
002A40: 73 20 20 20 20 20 20 20 20 20 3D 3D 3D 3D 3E 20 s ====>
002A50: 38 22 0D 0A 40 20 31 33 2C 31 30 20 73 61 79 20 8"..@ 13,10 say
002A60: 22 6C 69 73 74 65 20 64 65 73 20 6C 69 73 74 65 "liste des liste
002A70: 73 20 65 78 69 73 74 61 6E 74 65 73 20 20 20 20 s existantes
002A80: 20 20 20 3D 3D 3D 3D 3E 20 39 22 0D 0A 40 20 31 ====> 9"..@ 1
002A90: 35 2C 31 30 20 73 61 79 20 22 61 75 74 72 65 20 5,10 say "autre
002AA0: 6F 70 74 69 6F 6E 20 20 20 20 20 20 20 20 20 20 option
002AB0: 20 20 20 20 20 20 20 20 20 20 20 20 3D 3D 3D 3D ====
002AC0: 3E 20 41 22 0D 0A 40 20 31 36 2C 31 30 20 73 61 > A"..@ 16,10 sa
002AD0: 79 20 27 66 69 6E 20 6D 65 6E 75 20 75 74 69 6C y 'fin menu util
002AE0: 69 73 61 74 69 6F 6E 20 63 6F 75 72 61 6E 74 65 isation courante
002AF0: 20 20 20 20 20 3D 3D 3D 3D 3E 20 46 27 0D 0A 40 ====> F'..@
002B00: 20 31 37 2C 35 35 20 53 41 59 20 22 2B 2D 2D 2D 17,55 SAY "+---
002B10: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
002B20: 2D 2D 2D 2B 22 0D 0A 40 20 31 38 2C 35 20 73 61 ---+"..@ 18,5 sa
002B30: 79 20 27 71 75 65 6C 20 74 72 61 69 74 65 6D 65 y 'quel traiteme
002B40: 6E 74 20 76 6F 75 6C 65 7A 2D 76 6F 75 73 20 65 nt voulez-vous e
002B50: 66 66 65 63 74 75 65 72 20 3F 20 27 0D 0A 40 20 ffectuer ? '..@
002B60: 31 38 2C 35 35 20 53 41 59 20 22 49 20 52 65 70 18,55 SAY "I Rep
002B70: 6F 6E 73 65 20 2D 2D 3E 20 20 20 20 20 20 20 20 onse -->
002B80: 20 20 49 22 0D 0A 40 20 31 39 2C 35 35 20 53 41 I"..@ 19,55 SA
002B90: 59 20 22 2B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D Y "+------------
002BA0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2B 22 0D 0A 63 6C ----------+"..cl
002BB0: 65 61 72 20 67 65 74 0D 0A 73 65 74 20 69 6E 74 ear get..set int
002BC0: 65 6E 73 69 74 79 20 6F 66 66 0D 0A 40 20 31 38 ensity off..@ 18
002BD0: 2C 36 39 20 67 65 74 20 63 68 6F 69 78 0D 0A 73 ,69 get choix..s
002BE0: 65 74 20 69 6E 74 65 6E 73 69 74 79 20 6F 6E 0D et intensity on.
002BF0: 0A 72 65 61 64 0D 0A 73 74 6F 72 65 20 21 28 63 .read..store !(c
002C00: 00 49 4E 49 54 5A 4F 4E 45 43 4D 44 00 00 00 08 .INITZONECMD....
002C10: 30 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0...............
002C20: 00 52 45 43 55 50 20 20 20 43 4D 44 00 00 00 18 .RECUP CMD....
002C30: 31 32 33 00 00 00 00 00 00 00 00 00 00 00 00 00 123.............
002C40: 00 4D 45 4E 55 47 45 4E 20 43 4D 44 00 00 00 2C .MENUGEN CMD...,
002C50: 34 35 36 37 38 3B 00 00 00 00 00 00 00 00 00 00 45678;..........
002C60: 00 44 45 4D 46 49 43 48 20 43 4D 44 00 00 00 10 .DEMFICH CMD....
002C70: 39 3A 00 00 00 00 00 00 00 00 00 00 00 00 00 00 9:..............
002C80: 00 4D 45 4E 55 50 20 20 20 43 4D 44 00 00 00 30 .MENUP CMD...0
002C90: 3C 3D 3E 3F 40 52 00 00 00 00 00 00 00 00 00 00 <=>?@R..........
002CA0: 00 53 55 50 46 49 43 48 20 43 4D 44 00 00 00 10 .SUPFICH CMD....
002CB0: 41 42 00 00 00 00 00 00 00 00 00 00 00 00 00 00 AB..............
002CC0: 00 45 58 49 53 54 43 4C 45 43 4D 44 00 00 00 28 .EXISTCLECMD...(
002CD0: 43 44 45 46 47 00 00 00 00 00 00 00 00 00 00 00 CDEFG...........
002CE0: 00 4C 49 53 54 46 49 43 48 43 4D 44 00 00 00 1C .LISTFICHCMD....
002CF0: 48 49 4A 4B 00 00 00 00 00 00 00 00 00 00 00 00 HIJK............
002D00: 00 44 45 4D 43 4C 45 20 20 43 4D 44 00 00 00 1C .DEMCLE CMD....
002D10: 4C 4D 4E 4F 00 00 00 00 00 00 00 00 00 00 00 00 LMNO............
002D20: 00 45 4C 46 20 20 20 20 20 44 42 46 00 00 00 08 .ELF DBF....
002D30: 50 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 P...............
002D40: 00 47 45 53 54 46 49 43 48 44 42 46 00 00 00 08 .GESTFICHDBF....
002D50: 51 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 Q...............
002D60: 00 52 45 46 20 20 20 20 20 44 42 46 00 00 00 08 .REF DBF....
002D70: 53 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 S...............
002D80: 00 56 45 52 5A 4F 4E 45 20 43 4D 44 00 00 00 44 .VERZONE CMD...D
002D90: 54 55 56 57 58 59 5A 5B 5C 00 00 00 00 00 00 00 TUVWXYZ[\.......
002DA0: 00 4D 4F 44 49 46 49 43 48 43 4D 44 00 00 00 08 .MODIFICHCMD....
002DB0: 5D 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ]...............
002DC0: 00 4D 41 4A 20 20 20 20 20 43 4D 44 00 00 00 1C .MAJ CMD....
002DD0: 5E 5F 60 61 00 00 00 00 00 00 00 00 00 00 00 00 ^_`a............
002DE0: 00 50 52 4F 53 50 45 43 54 44 42 46 00 00 00 10 .PROSPECTDBF....
002DF0: 62 63 00 00 00 00 00 00 00 00 00 00 00 00 00 00 bc..............
002E00: 68 6F 69 78 29 20 74 6F 20 63 68 6F 69 78 0D 0A hoix) to choix..
002E10: 72 65 6C 65 61 73 65 20 74 65 73 74 0D 0A 64 6F release test..do
002E20: 20 63 61 73 65 0D 0A 63 61 73 65 20 63 68 6F 69 case..case choi
002E30: 78 20 3E 3D 20 27 31 27 2E 61 6E 64 2E 63 68 6F x >= '1'.and.cho
002E40: 69 78 20 3C 3D 20 27 34 27 0D 0A 64 6F 20 65 78 ix <= '4'..do ex
002E50: 69 73 74 63 6C 65 0D 0A 63 61 73 65 20 63 68 6F istcle..case cho
002E60: 69 78 20 3D 20 27 35 27 0D 0A 65 72 61 73 65 0D ix = '5'..erase.
002E70: 0A 40 20 31 2C 32 36 20 73 61 79 20 27 52 45 43 .@ 1,26 say 'REC
002E80: 48 45 52 43 48 45 20 53 55 52 20 43 4C 45 27 0D HERCHE SUR CLE'.
002E90: 0A 64 6F 20 64 65 6D 63 6C 65 0D 0A 69 66 20 6D .do demcle..if m
002EA0: 6E 6F 6D 63 23 27 20 27 0D 0A 20 20 20 69 66 20 nomc#' '.. if
002EB0: 2E 6E 6F 74 2E 65 6F 66 0D 0A 20 20 20 20 20 20 .not.eof..
002EC0: 73 74 6F 72 65 20 23 20 74 6F 20 6E 6F 63 6F 75 store # to nocou
002ED0: 72 0D 0A 20 20 20 20 20 20 64 6F 20 65 78 69 73 r.. do exis
002EE0: 74 63 6C 65 0D 0A 20 20 20 65 6C 73 65 0D 0A 20 tcle.. else..
002EF0: 20 20 20 20 20 73 74 6F 72 65 20 31 37 20 74 6F store 17 to
002F00: 20 6E 6F 6D 65 73 73 0D 0A 20 20 20 20 20 20 64 nomess.. d
002F10: 6F 20 61 66 66 6D 65 73 73 0D 0A 20 20 20 65 6E o affmess.. en
002F20: 64 69 66 0D 0A 65 6E 64 69 66 0D 0A 72 65 6C 65 dif..endif..rele
002F30: 61 73 65 20 6D 6E 6F 6D 63 0D 0A 63 61 73 65 20 ase mnomc..case
002F40: 63 68 6F 69 78 3D 27 36 27 20 2E 6F 72 2E 20 63 choix='6' .or. c
002F50: 68 6F 69 78 20 3D 20 27 37 27 0D 0A 64 6F 20 64 hoix = '7'..do d
002F60: 65 6D 6C 69 73 74 0D 0A 63 61 73 65 20 63 68 6F emlist..case cho
002F70: 69 78 20 3D 20 27 38 27 0D 0A 73 74 6F 72 65 20 ix = '8'..store
002F80: 27 43 27 20 74 6F 20 65 6C 65 6D 0D 0A 64 6F 20 'C' to elem..do
002F90: 6C 69 73 74 65 6C 65 6D 0D 0A 72 65 6C 65 61 73 listelem..releas
002FA0: 65 20 6E 6F 6D 61 66 66 0D 0A 63 61 73 65 20 63 e nomaff..case c
002FB0: 68 6F 69 78 20 3D 20 27 39 27 0D 0A 73 74 6F 72 hoix = '9'..stor
002FC0: 65 20 27 4C 27 20 74 6F 20 65 6C 65 6D 0D 0A 64 e 'L' to elem..d
002FD0: 6F 20 6C 69 73 74 65 6C 65 6D 0D 0A 72 65 6C 65 o listelem..rele
002FE0: 61 73 65 20 6E 6F 6D 61 66 66 0D 0A 63 61 73 65 ase nomaff..case
002FF0: 20 21 28 63 68 6F 69 78 29 3D 27 41 27 0D 0A 73 !(choix)='A'..s
003000: 00 50 52 4F 53 50 45 43 54 45 4C 46 00 00 00 08 .PROSPECTELF....
003010: 64 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 d...............
003020: 00 50 52 4F 53 50 45 43 54 45 4C 49 00 00 00 08 .PROSPECTELI....
003030: 65 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 e...............
003040: 00 4E 4F 4D 20 20 20 20 20 4E 44 58 00 00 00 08 .NOM NDX....
003050: 66 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 f...............
003060: 00 50 52 4F 46 20 20 20 20 4E 44 58 00 00 00 08 .PROF NDX....
003070: 67 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 g...............
003080: 00 56 49 4C 4C 45 20 20 20 4E 44 58 00 00 00 08 .VILLE NDX....
003090: 68 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 h...............
0030A0: 00 44 42 41 53 45 20 20 20 43 4F 4D 00 00 00 80 .DBASE COM....
0030B0: 69 6E 6F 70 71 72 73 74 75 76 77 78 79 7A 7B 7C inopqrstuvwxyz{|
0030C0: 00 50 52 4F 53 50 45 43 54 4E 4F 4D 00 00 00 08 .PROSPECTNOM....
0030D0: 6A 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 j...............
0030E0: 00 50 52 4F 53 50 45 43 54 43 4C 45 00 00 00 08 .PROSPECTCLE....
0030F0: 6B 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 k...............
003100: 00 50 52 4F 53 50 45 43 54 52 45 46 00 00 00 10 .PROSPECTREF....
003110: 6C 6D 00 00 00 00 00 00 00 00 00 00 00 00 00 00 lm..............
003120: 00 44 42 41 53 45 20 20 20 43 4F 4D 01 00 00 18 .DBASE COM....
003130: 7D 7E 7F 00 00 00 00 00 00 00 00 00 00 00 00 00 }~..............
003140: 00 44 42 41 53 45 4F 56 52 43 4F 4D 00 00 00 80 .DBASEOVRCOM....
003150: 80 81 82 83 84 85 86 87 88 89 8A 8B 8C 8D 8E 8F ................
003160: 00 44 42 41 53 45 4F 56 52 43 4F 4D 01 00 00 80 .DBASEOVRCOM....
003170: 90 91 92 93 94 95 96 97 98 99 9A 9B 9C 9D 9E 9F ................
003180: 00 44 42 41 53 45 4F 56 52 43 4F 4D 02 00 00 3A .DBASEOVRCOM...:
003190: A0 A1 A2 A3 A4 A5 A6 A7 00 00 00 00 00 00 00 00 ...£............
0031A0: E5 24 24 24 20 20 20 20 20 53 55 42 00 00 00 01 .$$$ SUB....
0031B0: A8 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0031C0: 00 50 52 4F 46 20 20 20 20 46 52 4D 00 00 00 04 .PROF FRM....
0031D0: A9 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0031E0: E5 54 45 4D 50 20 20 20 20 44 42 46 00 00 00 00 .TEMP DBF....
0031F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003200: 65 6C 65 63 74 20 73 65 63 6F 6E 64 61 72 79 0D elect secondary.
003210: 0A 75 73 65 0D 0A 73 65 6C 65 63 74 20 70 72 69 .use..select pri
003220: 6D 61 72 79 0D 0A 75 73 65 0D 0A 64 6F 20 6F 70 mary..use..do op
003230: 74 69 6F 6E 0D 0A 73 65 6C 65 63 74 20 73 65 63 tion..select sec
003240: 6F 6E 64 61 72 79 0D 0A 75 73 65 0D 0A 73 65 6C ondary..use..sel
003250: 65 63 74 20 70 72 69 6D 61 72 79 0D 0A 75 73 65 ect primary..use
003260: 0D 0A 63 61 73 65 20 21 28 63 68 6F 69 78 29 20 ..case !(choix)
003270: 3D 20 27 46 27 0D 0A 72 65 74 75 72 6E 0D 0A 6F = 'F'..return..o
003280: 74 68 65 72 77 69 73 65 0D 0A 2A 20 61 66 66 69 therwise..* affi
003290: 63 68 65 72 20 75 6E 20 6D 65 73 73 61 67 65 20 cher un message
0032A0: 64 27 65 72 72 65 75 72 0D 0A 73 74 6F 72 65 20 d'erreur..store
0032B0: 31 20 74 6F 20 6E 6F 6D 65 73 73 0D 0A 64 6F 20 1 to nomess..do
0032C0: 61 66 66 6D 65 73 73 0D 0A 65 6E 64 63 61 73 65 affmess..endcase
0032D0: 0D 0A 73 65 6C 65 63 74 20 70 72 69 6D 61 72 79 ..select primary
0032E0: 0D 0A 75 73 65 0D 0A 73 65 6C 65 63 74 20 73 65 ..use..select se
0032F0: 63 6F 6E 64 61 72 79 0D 0A 75 73 65 0D 0A 73 65 condary..use..se
003300: 6C 65 63 74 20 70 72 69 6D 61 72 79 0D 0A 73 74 lect primary..st
003310: 6F 72 65 20 27 74 27 20 74 6F 20 74 65 73 74 0D ore 't' to test.
003320: 0A 65 6E 64 64 6F 0D 0A 72 65 74 75 72 6E 0D 0A .enddo..return..
003330: 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 1A 1A 65 20 ..............e
003340: 63 68 6F 69 78 3D 27 36 27 20 2E 6F 72 2E 20 63 choix='6' .or. c
003350: 68 6F 69 78 20 3D 20 27 37 27 0D 0A 64 6F 20 64 hoix = '7'..do d
003360: 65 6D 6C 69 73 74 0D 0A 63 61 73 65 20 63 68 6F emlist..case cho
003370: 69 78 20 3D 20 27 38 27 0D 0A 73 74 6F 72 65 20 ix = '8'..store
003380: 27 43 27 20 74 6F 20 65 6C 65 6D 0D 0A 64 6F 20 'C' to elem..do
003390: 6C 69 73 74 65 6C 65 6D 0D 0A 72 65 6C 65 61 73 listelem..releas
0033A0: 65 20 6E 6F 6D 61 66 66 0D 0A 63 61 73 65 20 63 e nomaff..case c
0033B0: 68 6F 69 78 20 3D 20 27 39 27 0D 0A 73 74 6F 72 hoix = '9'..stor
0033C0: 65 20 27 4C 27 20 74 6F 20 65 6C 65 6D 0D 0A 64 e 'L' to elem..d
0033D0: 6F 20 6C 69 73 74 65 6C 65 6D 0D 0A 72 65 6C 65 o listelem..rele
0033E0: 61 73 65 20 6E 6F 6D 61 66 66 0D 0A 63 61 73 65 ase nomaff..case
0033F0: 20 21 28 63 68 6F 69 78 29 3D 27 41 27 0D 0A 73 !(choix)='A'..s
003400: E5 24 24 24 20 20 20 20 20 53 55 42 00 00 00 01 .$$$ SUB....
003410: AA 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003420: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003430: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003440: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003450: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003460: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003470: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003480: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003490: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0034A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0034B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0034C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0034D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0034E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0034F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003500: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003510: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003520: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003530: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003540: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003550: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003560: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003570: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003580: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003590: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0035A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0035B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0035C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0035D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0035E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0035F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003600: 2A 20 6D 65 6E 75 73 65 63 3A 20 6D 65 6E 75 20 * menusec: menu
003610: 67 65 73 74 69 6F 6E 20 64 65 73 20 63 6C 65 73 gestion des cles
003620: 0D 0A 0D 0A 73 74 6F 72 65 20 27 74 27 20 74 6F ....store 't' to
003630: 20 74 65 73 74 0D 0A 73 74 6F 72 65 20 27 46 27 test..store 'F'
003640: 20 74 6F 20 63 68 6F 69 78 0D 0A 64 6F 20 77 68 to choix..do wh
003650: 69 6C 65 20 74 65 73 74 3D 27 74 27 0D 0A 20 20 ile test='t'..
003660: 20 65 72 61 73 65 0D 0A 20 20 20 40 20 31 2C 32 erase.. @ 1,2
003670: 36 20 53 41 59 20 27 47 45 53 54 49 4F 4E 20 44 6 SAY 'GESTION D
003680: 45 53 20 43 4C 45 53 20 44 55 20 46 49 43 48 49 ES CLES DU FICHI
003690: 45 52 20 27 0D 0A 20 20 20 40 20 31 2C 35 34 20 ER '.. @ 1,54
0036A0: 67 65 74 20 6E 6F 6D 61 66 66 0D 0A 20 20 20 40 get nomaff.. @
0036B0: 20 34 2C 31 30 20 73 61 79 20 27 71 75 65 6C 20 4,10 say 'quel
0036C0: 74 72 61 69 74 65 6D 65 6E 74 20 64 65 73 69 72 traitement desir
0036D0: 65 7A 2D 76 6F 75 73 20 65 66 66 65 63 74 75 65 ez-vous effectue
0036E0: 72 3F 27 0D 0A 20 20 20 40 20 36 2C 31 30 20 73 r?'.. @ 6,10 s
0036F0: 61 79 20 27 63 72 65 65 72 20 75 6E 65 20 63 6C ay 'creer une cl
003700: 65 20 73 65 63 6F 6E 64 61 69 72 65 20 6F 75 20 e secondaire ou
003710: 74 65 6D 70 6F 72 61 69 72 65 20 20 20 20 20 3D temporaire =
003720: 3D 3D 3D 3E 20 31 27 0D 0A 20 20 20 40 20 38 2C ===> 1'.. @ 8,
003730: 31 30 20 73 61 79 20 22 6D 6F 64 69 66 69 65 72 10 say "modifier
003740: 20 75 6E 65 20 63 6C 65 20 70 72 69 6E 63 69 70 une cle princip
003750: 61 6C 65 2C 20 73 65 63 6F 6E 64 61 69 72 65 20 ale, secondaire
003760: 20 22 0D 0A 20 20 20 40 20 39 2C 31 30 20 73 61 ".. @ 9,10 sa
003770: 79 20 22 6F 75 20 74 65 6D 70 6F 72 61 69 72 65 y "ou temporaire
003780: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
003790: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3D 3D ==
0037A0: 3D 3D 3E 20 32 22 0D 0A 20 20 20 40 20 31 31 2C ==> 2".. @ 11,
0037B0: 31 30 20 73 61 79 20 27 73 75 70 70 72 69 6D 65 10 say 'supprime
0037C0: 72 20 75 6E 65 20 63 6C 65 20 73 65 63 6F 6E 64 r une cle second
0037D0: 61 69 72 65 20 6F 75 20 74 65 6D 70 6F 72 61 69 aire ou temporai
0037E0: 72 65 20 3D 3D 3D 3D 3E 20 33 27 0D 0A 20 20 20 re ====> 3'..
0037F0: 40 20 31 33 2C 31 30 20 73 61 79 20 22 6C 69 73 @ 13,10 say "lis
003800: 2A 20 6D 65 6E 75 3A 20 20 20 6D 65 6E 75 20 75 * menu: menu u
003810: 74 69 6C 69 73 61 74 69 6F 6E 20 63 6F 75 72 61 tilisation coura
003820: 6E 74 65 0D 0A 0D 0A 73 74 6F 72 65 20 30 20 74 nte....store 0 t
003830: 6F 20 6E 6F 63 6F 75 72 0D 0A 73 74 6F 72 65 20 o nocour..store
003840: 27 74 27 20 74 6F 20 74 65 73 74 0D 0A 64 6F 20 't' to test..do
003850: 77 68 69 6C 65 20 74 65 73 74 3D 27 74 27 0D 0A while test='t'..
003860: 73 74 6F 72 65 20 27 46 27 20 74 6F 20 63 68 6F store 'F' to cho
003870: 69 78 0D 0A 65 72 61 73 65 0D 0A 40 20 31 2C 32 ix..erase..@ 1,2
003880: 36 20 53 41 59 20 74 69 74 72 65 6D 65 6E 75 70 6 SAY titremenup
003890: 0D 0A 40 20 33 2C 31 30 20 73 61 79 20 27 63 72 ..@ 3,10 say 'cr
0038A0: 65 61 74 69 6F 6E 20 20 20 20 20 20 20 20 20 20 eation
0038B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0038C0: 3D 3D 3D 3D 3E 20 31 27 0D 0A 40 20 34 2C 31 30 ====> 1'..@ 4,10
0038D0: 20 73 61 79 20 22 6D 6F 64 69 66 69 63 61 74 69 say "modificati
0038E0: 6F 6E 20 20 20 20 20 20 20 20 20 20 20 20 20 20 on
0038F0: 20 20 20 20 20 20 20 20 3D 3D 3D 3D 3E 20 32 22 ====> 2"
003900: 0D 0A 40 20 35 2C 31 30 20 73 61 79 20 22 73 75 ..@ 5,10 say "su
003910: 70 70 72 65 73 73 69 6F 6E 20 20 20 20 20 20 20 ppression
003920: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
003930: 3D 3D 3D 3D 3E 20 33 22 0D 0A 40 20 36 2C 31 30 ====> 3"..@ 6,10
003940: 20 73 61 79 20 27 76 69 73 75 61 6C 69 73 61 74 say 'visualisat
003950: 69 6F 6E 20 20 20 20 20 20 20 20 20 20 20 20 20 ion
003960: 20 20 20 20 20 20 20 20 3D 3D 3D 3D 3E 20 34 27 ====> 4'
003970: 0D 0A 40 20 37 2C 31 30 20 73 61 79 20 22 72 65 ..@ 7,10 say "re
003980: 63 68 65 72 63 68 65 20 73 75 72 20 63 6C 65 20 cherche sur cle
003990: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0039A0: 3D 3D 3D 3D 3E 20 35 22 0D 0A 40 20 39 2C 31 30 ====> 5"..@ 9,10
0039B0: 20 73 61 79 20 22 61 66 66 69 63 68 61 67 65 20 say "affichage
0039C0: 64 27 75 6E 65 20 6C 69 73 74 65 20 61 20 6C 27 d'une liste a l'
0039D0: 65 63 72 61 6E 20 20 20 3D 3D 3D 3D 3E 20 36 22 ecran ====> 6"
0039E0: 0D 0A 40 20 31 30 2C 31 30 20 73 61 79 20 22 69 ..@ 10,10 say "i
0039F0: 6D 70 72 65 73 73 69 6F 6E 20 64 27 75 6E 65 20 mpression d'une
003A00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
003A10: 03 00 01 00 02 09 4E E5 03 00 41 02 00 00 00 02 ......N...A.....
003A20: 03 00 46 02 00 00 00 02 03 00 42 02 00 00 00 02 ..F.......B.....
003A30: 03 00 47 02 00 00 00 02 03 00 43 02 00 00 00 02 ..G.......C.....
003A40: 03 00 48 02 00 00 00 02 03 00 44 02 00 00 00 02 ..H.......D.....
003A50: 03 00 49 02 00 00 00 02 03 00 45 02 00 00 00 02 ..I.......E.....
003A60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003A70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003A80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003A90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003AA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003AB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003AC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003AD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003AE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003AF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003B00: 74 65 72 20 6C 65 73 20 63 6C 65 73 20 20 20 20 ter les cles
003B10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
003B20: 20 20 20 20 20 20 20 20 3D 3D 3D 3D 3E 20 34 22 ====> 4"
003B30: 0D 0A 20 20 20 40 20 31 35 2C 31 30 20 73 61 79 .. @ 15,10 say
003B40: 20 27 66 69 6E 20 67 65 73 74 69 6F 6E 20 64 65 'fin gestion de
003B50: 73 20 63 6C 65 73 20 20 20 20 20 20 20 20 20 20 s cles
003B60: 20 20 20 20 20 20 20 20 20 20 20 20 20 3D 3D 3D ===
003B70: 3D 3E 20 46 27 0D 0A 20 20 20 40 20 31 37 2C 34 => F'.. @ 17,4
003B80: 35 20 53 41 59 20 22 2B 2D 2D 2D 2D 2D 2D 2D 2D 5 SAY "+--------
003B90: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2B 22 --------------+"
003BA0: 0D 0A 20 20 20 40 20 31 38 2C 34 35 20 53 41 59 .. @ 18,45 SAY
003BB0: 20 22 49 20 52 65 70 6F 6E 73 65 20 2D 2D 3E 20 "I Reponse -->
003BC0: 20 20 20 20 20 20 20 20 20 49 22 0D 0A 20 20 20 I"..
003BD0: 40 20 31 39 2C 34 35 20 53 41 59 20 22 2B 2D 2D @ 19,45 SAY "+--
003BE0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
003BF0: 2D 2D 2D 2D 2B 22 0D 0A 20 20 20 63 6C 65 61 72 ----+".. clear
003C00: 20 67 65 74 0D 0A 20 20 20 73 65 74 20 69 6E 74 get.. set int
003C10: 65 6E 73 69 74 79 20 6F 66 66 0D 0A 20 20 20 40 ensity off.. @
003C20: 20 31 38 2C 35 39 20 67 65 74 20 63 68 6F 69 78 18,59 get choix
003C30: 0D 0A 20 20 20 73 65 74 20 69 6E 74 65 6E 73 69 .. set intensi
003C40: 74 79 20 6F 6E 0D 0A 20 20 20 72 65 61 64 0D 0A ty on.. read..
003C50: 20 20 20 64 6F 20 63 61 73 65 0D 0A 20 20 20 20 do case..
003C60: 20 20 63 61 73 65 20 63 68 6F 69 78 3E 3D 27 31 case choix>='1
003C70: 27 2E 61 6E 64 2E 63 68 6F 69 78 3C 3D 27 34 27 '.and.choix<='4'
003C80: 0D 0A 20 20 20 20 20 20 73 74 6F 72 65 20 27 43 .. store 'C
003C90: 27 20 74 6F 20 65 6C 65 6D 0D 0A 20 20 20 20 20 ' to elem..
003CA0: 20 64 6F 20 63 61 73 65 0D 0A 20 20 20 20 20 20 do case..
003CB0: 20 20 20 63 61 73 65 20 63 68 6F 69 78 3D 27 31 case choix='1
003CC0: 27 0D 0A 20 20 20 20 20 20 20 20 20 73 74 6F 72 '.. stor
003CD0: 65 20 27 43 27 20 74 6F 20 6D 6F 64 69 66 0D 0A e 'C' to modif..
003CE0: 20 20 20 20 20 20 20 20 20 64 6F 20 64 65 66 65 do defe
003CF0: 6C 65 6D 0D 0A 20 20 20 20 20 20 20 20 20 72 65 lem.. re
003D00: 65 0D 0A 20 20 20 40 20 6C 69 67 6D 31 2C 30 0D e.. @ ligm1,0.
003D10: 0A 20 20 20 73 74 6F 72 65 20 21 28 6D 6E 6F 6D . store !(mnom
003D20: 7A 6F 6E 65 29 20 74 6F 20 6D 6E 6F 6D 7A 6F 6E zone) to mnomzon
003D30: 65 0D 0A 20 20 20 73 74 6F 72 65 20 27 66 27 20 e.. store 'f'
003D40: 74 6F 20 63 6F 72 72 65 63 74 0D 0A 20 20 20 40 to correct.. @
003D50: 20 37 2C 30 20 73 61 79 20 27 6C 69 62 65 6C 6C 7,0 say 'libell
003D60: 65 20 64 65 20 6C 61 20 7A 6F 6E 65 27 0D 0A 20 e de la zone'..
003D70: 20 20 40 20 38 2C 30 20 73 61 79 20 27 6C 69 67 @ 8,0 say 'lig
003D80: 6E 65 20 6F 75 20 64 6F 69 74 20 61 70 70 61 72 ne ou doit appar
003D90: 61 69 74 72 65 20 6C 65 20 74 65 78 74 65 27 0D aitre le texte'.
003DA0: 0A 20 20 20 40 20 39 2C 30 20 73 61 79 20 27 63 . @ 9,0 say 'c
003DB0: 6F 6C 6F 6E 6E 65 20 6F 75 20 64 6F 69 74 20 61 olonne ou doit a
003DC0: 70 70 61 72 61 69 74 72 65 20 6C 65 20 74 65 78 pparaitre le tex
003DD0: 74 65 27 0D 0A 20 20 20 40 20 31 31 2C 30 20 73 te'.. @ 11,0 s
003DE0: 61 79 20 27 6C 69 67 6E 65 20 6F 75 20 64 6F 69 ay 'ligne ou doi
003DF0: 74 20 61 70 70 61 72 61 69 74 72 65 20 6C 61 20 t apparaitre la
003E00: 76 61 72 69 61 62 6C 65 27 0D 0A 20 20 20 40 20 variable'.. @
003E10: 31 32 2C 30 20 73 61 79 20 27 63 6F 6C 6F 6E 6E 12,0 say 'colonn
003E20: 65 20 6F 75 20 64 6F 69 74 20 61 70 70 61 72 61 e ou doit appara
003E30: 69 74 72 65 20 6C 61 20 76 61 72 69 61 62 6C 65 itre la variable
003E40: 27 0D 0A 20 20 20 40 20 31 34 2C 30 20 73 61 79 '.. @ 14,0 say
003E50: 20 27 74 79 70 65 20 64 65 20 6C 61 20 7A 6F 6E 'type de la zon
003E60: 65 27 0D 0A 20 20 20 40 20 31 35 2C 30 20 73 61 e'.. @ 15,0 sa
003E70: 79 20 27 43 3D 63 61 72 61 63 74 65 72 65 2C 4E y 'C=caractere,N
003E80: 3D 6E 75 6D 65 72 69 71 75 65 2C 4C 3D 6C 6F 67 =numerique,L=log
003E90: 69 71 75 65 27 0D 0A 20 20 20 40 20 31 36 2C 30 ique'.. @ 16,0
003EA0: 20 73 61 79 20 27 6C 6F 6E 67 75 65 75 72 20 64 say 'longueur d
003EB0: 65 20 6C 61 20 7A 6F 6E 65 27 0D 0A 20 20 20 40 e la zone'.. @
003EC0: 20 31 37 2C 30 20 73 61 79 20 27 6E 6F 6D 62 72 17,0 say 'nombr
003ED0: 65 20 64 65 20 64 65 63 69 6D 61 6C 65 73 27 0D e de decimales'.
003EE0: 0A 20 20 20 64 6F 20 77 68 69 6C 65 20 63 6F 72 . do while cor
003EF0: 72 65 63 74 3D 27 66 27 0D 0A 20 20 20 20 20 20 rect='f'..
003F00: 6C 65 61 73 65 20 6D 6E 6F 6D 65 6C 65 6D 0D 0A lease mnomelem..
003F10: 20 20 20 20 20 20 20 20 20 63 61 73 65 20 63 68 case ch
003F20: 6F 69 78 3D 27 32 27 0D 0A 20 20 20 20 20 20 20 oix='2'..
003F30: 20 20 64 6F 20 6D 6F 64 69 66 63 6C 65 0D 0A 20 do modifcle..
003F40: 20 20 20 20 20 20 20 20 63 61 73 65 20 63 68 6F case cho
003F50: 69 78 3D 27 33 27 0D 0A 20 20 20 20 20 20 20 20 ix='3'..
003F60: 20 64 6F 20 73 75 70 65 6C 65 6D 0D 0A 20 20 20 do supelem..
003F70: 20 20 20 20 20 20 63 61 73 65 20 63 68 6F 69 78 case choix
003F80: 3D 27 34 27 0D 0A 20 20 20 20 20 20 20 20 20 64 ='4'.. d
003F90: 6F 20 6C 69 73 74 65 6C 65 6D 0D 0A 20 20 20 20 o listelem..
003FA0: 20 20 65 6E 64 63 61 73 65 0D 0A 20 20 20 20 20 endcase..
003FB0: 20 72 65 6C 65 61 73 65 20 65 6C 65 6D 0D 0A 20 release elem..
003FC0: 20 20 20 20 20 63 61 73 65 20 21 28 63 68 6F 69 case !(choi
003FD0: 78 29 20 3D 20 27 46 27 0D 0A 20 20 20 20 20 20 x) = 'F'..
003FE0: 72 65 74 75 72 6E 0D 0A 20 20 20 20 20 20 6F 74 return.. ot
003FF0: 68 65 72 77 69 73 65 0D 0A 20 20 20 20 20 20 2A herwise.. *
004000: 20 61 66 66 69 63 68 65 72 20 75 6E 20 6D 65 73 afficher un mes
004010: 73 61 67 65 20 64 27 65 72 72 65 75 72 0D 0A 20 sage d'erreur..
004020: 20 20 20 20 20 73 74 6F 72 65 20 31 20 74 6F 20 store 1 to
004030: 6E 6F 6D 65 73 73 0D 0A 20 20 20 20 20 20 64 6F nomess.. do
004040: 20 61 66 66 6D 65 73 73 0D 0A 20 20 20 65 6E 64 affmess.. end
004050: 63 61 73 65 0D 0A 20 20 20 73 65 6C 65 63 74 20 case.. select
004060: 70 72 69 6D 61 72 79 0D 0A 20 20 20 75 73 65 0D primary.. use.
004070: 0A 20 20 20 73 65 6C 65 63 74 20 73 65 63 6F 6E . select secon
004080: 64 61 72 79 0D 0A 20 20 20 75 73 65 0D 0A 20 20 dary.. use..
004090: 20 73 65 6C 65 63 74 20 70 72 69 6D 61 72 79 0D select primary.
0040A0: 0A 20 20 20 73 74 6F 72 65 20 27 46 27 20 74 6F . store 'F' to
0040B0: 20 63 68 6F 69 78 0D 0A 65 6E 64 64 6F 0D 0A 72 choix..enddo..r
0040C0: 65 74 75 72 6E 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D eturn...........
0040D0: 0A 0D 0A 0D 0A 0D 0A 1A 1A 0A 20 20 20 40 20 35 .......... @ 5
0040E0: 2C 34 30 20 67 65 74 20 6D 6E 6F 6D 0D 0A 20 20 ,40 get mnom..
0040F0: 20 40 20 6C 69 67 6D 31 2C 30 20 73 61 79 20 22 @ ligm1,0 say "
004100: 40 20 37 2C 34 35 20 67 65 74 20 6D 74 65 78 74 @ 7,45 get mtext
004110: 65 0D 0A 20 20 20 20 20 20 40 20 38 2C 34 35 20 e.. @ 8,45
004120: 67 65 74 20 6D 6C 74 20 70 69 63 74 75 72 65 20 get mlt picture
004130: 27 39 39 27 0D 0A 20 20 20 20 20 20 40 20 39 2C '99'.. @ 9,
004140: 34 35 20 67 65 74 20 6D 63 74 20 70 69 63 74 75 45 get mct pictu
004150: 72 65 20 27 39 39 27 0D 0A 20 20 20 20 20 20 40 re '99'.. @
004160: 20 31 31 2C 34 35 20 67 65 74 20 6D 6C 73 20 70 11,45 get mls p
004170: 69 63 74 75 72 65 20 27 39 39 27 0D 0A 20 20 20 icture '99'..
004180: 20 20 20 40 20 31 32 2C 34 35 20 67 65 74 20 6D @ 12,45 get m
004190: 63 73 20 70 69 63 74 75 72 65 20 27 39 39 27 0D cs picture '99'.
0041A0: 0A 20 20 20 20 20 20 40 20 31 35 2C 34 35 20 67 . @ 15,45 g
0041B0: 65 74 20 6D 74 79 70 65 0D 0A 20 20 20 20 20 20 et mtype..
0041C0: 40 20 31 36 2C 34 35 20 67 65 74 20 6D 6C 6F 6E @ 16,45 get mlon
0041D0: 20 70 69 63 74 75 72 65 20 27 39 39 39 27 0D 0A picture '999'..
0041E0: 20 20 20 20 20 20 40 20 31 37 2C 34 35 20 67 65 @ 17,45 ge
0041F0: 74 20 6D 64 65 63 20 70 69 63 74 75 72 65 20 27 t mdec picture '
004200: 39 39 39 27 0D 0A 20 20 20 20 20 20 72 65 61 64 999'.. read
004210: 0D 0A 20 20 20 20 20 20 73 74 6F 72 65 20 21 28 .. store !(
004220: 6D 74 79 70 65 29 20 74 6F 20 6D 74 79 70 65 0D mtype) to mtype.
004230: 0A 20 20 20 20 20 20 64 6F 20 63 61 73 65 0D 0A . do case..
004240: 20 20 20 20 20 20 63 61 73 65 20 6D 6C 74 3C 32 case mlt<2
004250: 2E 6F 72 2E 6D 6C 74 3E 6C 69 67 6D 31 2D 31 0D .or.mlt>ligm1-1.
004260: 0A 20 20 20 20 20 20 73 74 6F 72 65 20 32 31 20 . store 21
004270: 74 6F 20 6E 6F 6D 65 73 73 0D 0A 20 20 20 20 20 to nomess..
004280: 20 64 6F 20 61 66 66 6D 65 73 73 0D 0A 20 20 20 do affmess..
004290: 20 20 20 63 61 73 65 20 6D 63 74 3C 30 2E 6F 72 case mct<0.or
0042A0: 2E 6D 63 74 3E 37 39 0D 0A 20 20 20 20 20 20 73 .mct>79.. s
0042B0: 74 6F 72 65 20 32 32 20 74 6F 20 6E 6F 6D 65 73 tore 22 to nomes
0042C0: 73 0D 0A 20 20 20 20 20 20 64 6F 20 61 66 66 6D s.. do affm
0042D0: 65 73 73 0D 0A 20 20 20 20 20 20 63 61 73 65 20 ess.. case
0042E0: 6D 6C 73 3C 32 2E 6F 72 2E 6D 6C 73 3E 6C 69 67 mls<2.or.mls>lig
0042F0: 6D 31 2D 31 0D 0A 20 20 20 20 20 20 73 74 6F 72 m1-1.. stor
004300: 6D 66 3D 24 28 6E 6F 6D 66 69 63 68 2C 33 2C 38 mf=$(nomfich,3,8
004310: 29 0D 0A 64 65 6C 65 0D 0A 70 61 63 6B 0D 0A 75 )..dele..pack..u
004320: 73 65 0D 0A 73 74 6F 72 65 20 27 66 27 20 74 6F se..store 'f' to
004330: 20 65 78 69 73 74 0D 0A 72 65 74 75 72 6E 0D 0A exist..return..
004340: 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A ................
004350: 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A ................
004360: 0D 0A 1A 1A 65 74 0D 0A 20 20 20 20 20 20 65 6C ....et.. el
004370: 73 65 0D 0A 20 20 20 20 20 20 20 20 20 73 74 6F se.. sto
004380: 72 65 20 27 4F 27 20 74 6F 20 72 65 70 0D 0A 20 re 'O' to rep..
004390: 20 20 20 20 20 65 6E 64 69 66 0D 0A 20 20 20 20 endif..
0043A0: 20 20 69 66 20 21 28 72 65 70 29 3D 27 4F 27 0D if !(rep)='O'.
0043B0: 0A 20 20 20 20 20 20 20 20 20 72 65 6C 65 61 73 . releas
0043C0: 65 20 72 65 70 2C 74 65 73 74 2C 65 78 69 73 74 e rep,test,exist
0043D0: 2C 6E 6F 65 72 72 2C 72 65 70 72 69 73 65 0D 0A ,noerr,reprise..
0043E0: 20 20 20 20 20 20 20 20 20 64 6F 20 67 65 6E 65 do gene
0043F0: 0D 0A 20 20 20 20 20 20 20 20 20 73 74 6F 72 65 .. store
004400: 20 27 74 27 20 74 6F 20 65 78 69 73 74 0D 0A 20 't' to exist..
004410: 20 20 20 20 20 20 20 20 73 74 6F 72 65 20 30 20 store 0
004420: 74 6F 20 6E 6F 65 72 72 0D 0A 20 20 20 20 20 20 to noerr..
004430: 65 6C 73 65 0D 0A 20 20 20 20 20 20 20 20 20 72 else.. r
004440: 65 6C 65 61 73 65 20 72 65 70 0D 0A 20 20 20 20 elease rep..
004450: 20 20 65 6E 64 69 66 0D 0A 20 20 20 65 6E 64 69 endif.. endi
004460: 66 0D 0A 20 20 20 63 61 73 65 20 63 68 6F 69 78 f.. case choix
004470: 3E 3D 27 32 27 2E 61 6E 64 2E 63 68 6F 69 78 3C >='2'.and.choix<
004480: 3D 27 38 27 2E 6F 72 2E 63 68 6F 69 78 3D 27 43 ='8'.or.choix='C
004490: 27 0D 0A 20 20 20 69 66 20 72 65 70 72 69 73 65 '.. if reprise
0044A0: 3D 27 66 27 2E 61 6E 64 2E 65 78 69 73 74 3D 27 ='f'.and.exist='
0044B0: 66 27 0D 0A 20 20 20 20 20 20 73 74 6F 72 65 20 f'.. store
0044C0: 34 39 20 74 6F 20 6E 6F 6D 65 73 73 0D 0A 20 20 49 to nomess..
0044D0: 20 20 20 20 64 6F 20 61 66 66 6D 65 73 73 0D 0A do affmess..
0044E0: 20 20 20 65 6C 73 65 0D 0A 20 20 20 20 20 20 69 else.. i
0044F0: 66 20 72 65 70 72 69 73 65 3D 27 66 27 2E 61 6E f reprise='f'.an
004500: 65 20 32 31 20 74 6F 20 6E 6F 6D 65 73 73 0D 0A e 21 to nomess..
004510: 20 20 20 20 20 20 64 6F 20 61 66 66 6D 65 73 73 do affmess
004520: 0D 0A 20 20 20 20 20 20 63 61 73 65 20 6D 63 73 .. case mcs
004530: 3C 30 2E 6F 72 2E 6D 63 73 3E 37 39 0D 0A 20 20 <0.or.mcs>79..
004540: 20 20 20 20 73 74 6F 72 65 20 32 32 20 74 6F 20 store 22 to
004550: 6E 6F 6D 65 73 73 0D 0A 20 20 20 20 20 20 64 6F nomess.. do
004560: 20 61 66 66 6D 65 73 73 0D 0A 20 20 20 20 20 20 affmess..
004570: 63 61 73 65 20 6D 74 79 70 65 23 27 43 27 2E 61 case mtype#'C'.a
004580: 6E 64 2E 6D 74 79 70 65 23 27 4E 27 2E 61 6E 64 nd.mtype#'N'.and
004590: 2E 6D 74 79 70 65 23 27 4C 27 0D 0A 20 20 20 20 .mtype#'L'..
0045A0: 20 20 73 74 6F 72 65 20 32 36 20 74 6F 20 6E 6F store 26 to no
0045B0: 6D 65 73 73 0D 0A 20 20 20 20 20 20 64 6F 20 61 mess.. do a
0045C0: 66 66 6D 65 73 73 0D 0A 20 20 20 20 20 20 63 61 ffmess.. ca
0045D0: 73 65 20 6D 6C 6F 6E 3C 31 2E 6F 72 2E 28 6D 74 se mlon<1.or.(mt
0045E0: 79 70 65 3D 27 43 27 2E 61 6E 64 2E 6D 6C 6F 6E ype='C'.and.mlon
0045F0: 3E 32 35 34 29 2E 6F 72 2E 28 6D 74 79 70 65 3D >254).or.(mtype=
004600: 27 4E 27 2E 61 6E 64 2E 6D 6C 6F 6E 3E 32 30 29 'N'.and.mlon>20)
004610: 3B 0D 0A 20 20 20 20 20 20 2E 6F 72 2E 6D 74 79 ;.. .or.mty
004620: 70 65 3D 27 4E 27 2E 61 6E 64 2E 6D 64 65 63 3E pe='N'.and.mdec>
004630: 6D 6C 6F 6E 2D 32 2E 61 6E 64 2E 6D 64 65 63 23 mlon-2.and.mdec#
004640: 30 0D 0A 20 20 20 20 20 20 73 74 6F 72 65 20 32 0.. store 2
004650: 33 20 74 6F 20 6E 6F 6D 65 73 73 0D 0A 20 20 20 3 to nomess..
004660: 20 20 20 64 6F 20 61 66 66 6D 65 73 73 0D 0A 20 do affmess..
004670: 20 20 20 20 20 6F 74 68 65 72 77 69 73 65 0D 0A otherwise..
004680: 20 20 20 20 20 20 73 74 6F 72 65 20 27 74 27 20 store 't'
004690: 74 6F 20 63 6F 72 72 65 63 74 0D 0A 20 20 20 20 to correct..
0046A0: 20 20 69 66 20 6D 74 79 70 65 3D 27 4C 27 0D 0A if mtype='L'..
0046B0: 20 20 20 20 20 20 73 74 6F 72 65 20 31 20 74 6F store 1 to
0046C0: 20 6D 6C 6F 6E 0D 0A 20 20 20 20 20 20 65 6E 64 mlon.. end
0046D0: 69 66 0D 0A 20 20 20 20 20 20 65 6E 64 63 61 73 if.. endcas
0046E0: 65 0D 0A 20 20 20 65 6E 64 64 6F 0D 0A 20 20 20 e.. enddo..
0046F0: 72 65 6C 65 61 73 65 20 63 6F 72 72 65 63 74 0D release correct.
004700: 2A 20 64 65 66 7A 6F 6E 65 73 3A 20 20 64 65 66 * defzones: def
004710: 69 6E 69 74 69 6F 6E 20 64 65 73 20 7A 6F 6E 65 inition des zone
004720: 73 20 64 75 20 66 69 63 68 69 65 72 0D 0A 0D 0A s du fichier....
004730: 73 74 6F 72 65 20 31 20 74 6F 20 6C 6F 6E 67 65 store 1 to longe
004740: 6E 67 0D 0A 75 73 65 20 26 66 72 65 66 20 69 6E ng..use &fref in
004750: 64 65 78 20 26 78 6E 6F 6D 2C 26 78 63 6C 65 0D dex &xnom,&xcle.
004760: 0A 73 74 6F 72 65 20 31 20 74 6F 20 63 70 74 0D .store 1 to cpt.
004770: 0A 64 6F 20 77 68 69 6C 65 20 63 70 74 3C 3D 33 .do while cpt<=3
004780: 32 2E 61 6E 64 2E 6C 6F 6E 67 65 6E 67 20 3C 20 2.and.longeng <
004790: 31 30 30 30 0D 0A 20 20 20 65 72 61 73 65 0D 0A 1000.. erase..
0047A0: 20 20 20 40 20 31 2C 32 36 20 73 61 79 20 27 44 @ 1,26 say 'D
0047B0: 45 46 49 4E 49 54 49 4F 4E 20 44 45 53 20 5A 4F EFINITION DES ZO
0047C0: 4E 45 53 20 44 55 20 46 49 43 48 49 45 52 27 0D NES DU FICHIER'.
0047D0: 0A 20 20 20 73 74 6F 72 65 20 27 20 20 20 20 20 . store '
0047E0: 20 20 20 20 20 27 20 74 6F 20 6D 6E 6F 6D 7A 6F ' to mnomzo
0047F0: 6E 65 0D 0A 20 20 20 73 74 6F 72 65 20 24 28 62 ne.. store $(b
004800: 6C 61 6E 63 2C 31 2C 32 30 29 20 74 6F 20 6D 74 lanc,1,20) to mt
004810: 65 78 74 65 0D 0A 20 20 20 73 74 6F 72 65 20 30 exte.. store 0
004820: 20 74 6F 20 6D 6C 74 0D 0A 20 20 20 73 74 6F 72 to mlt.. stor
004830: 65 20 30 20 74 6F 20 6D 63 74 0D 0A 20 20 20 73 e 0 to mct.. s
004840: 74 6F 72 65 20 30 20 74 6F 20 6D 6C 73 0D 0A 20 tore 0 to mls..
004850: 20 20 73 74 6F 72 65 20 30 20 74 6F 20 6D 63 73 store 0 to mcs
004860: 0D 0A 20 20 20 73 74 6F 72 65 20 27 43 27 20 74 .. store 'C' t
004870: 6F 20 6D 74 79 70 65 0D 0A 20 20 20 73 74 6F 72 o mtype.. stor
004880: 65 20 31 20 74 6F 20 6D 6C 6F 6E 0D 0A 20 20 20 e 1 to mlon..
004890: 73 74 6F 72 65 20 30 20 74 6F 20 6D 64 65 63 0D store 0 to mdec.
0048A0: 0A 20 20 20 40 20 33 2C 30 20 73 61 79 20 27 74 . @ 3,0 say 't
0048B0: 61 69 6C 6C 65 20 65 6E 72 65 67 69 73 74 72 65 aille enregistre
0048C0: 6D 65 6E 74 20 3A 20 27 2B 73 74 72 28 6C 6F 6E ment : '+str(lon
0048D0: 67 65 6E 67 2C 34 29 0D 0A 20 20 20 40 20 33 2C geng,4).. @ 3,
0048E0: 34 35 20 73 61 79 20 27 6E 6F 6D 62 72 65 20 64 45 say 'nombre d
0048F0: 65 20 7A 6F 6E 65 73 20 3A 20 27 2B 73 74 72 28 e zones : '+str(
004900: 0A 20 20 20 69 66 20 6D 6C 6F 6E 2B 6C 6F 6E 67 . if mlon+long
004910: 65 6E 67 20 3E 20 31 30 30 30 0D 0A 20 20 20 20 eng > 1000..
004920: 20 20 73 74 6F 72 65 20 34 36 20 74 6F 20 6E 6F store 46 to no
004930: 6D 65 73 73 0D 0A 20 20 20 20 20 20 64 6F 20 61 mess.. do a
004940: 66 66 6D 65 73 73 0D 0A 20 20 20 65 6C 73 65 0D ffmess.. else.
004950: 0A 20 20 20 20 20 20 61 70 70 65 6E 64 20 62 6C . append bl
004960: 61 6E 6B 0D 0A 20 20 20 20 20 20 72 65 70 6C 61 ank.. repla
004970: 63 65 20 66 69 65 6C 64 3A 6E 61 6D 65 20 77 69 ce field:name wi
004980: 74 68 20 6D 6E 6F 6D 7A 6F 6E 65 2C 74 65 78 74 th mnomzone,text
004990: 65 20 77 69 74 68 20 6D 74 65 78 74 65 2C 6C 74 e with mtexte,lt
0049A0: 20 77 69 74 68 20 6D 6C 74 2C 63 74 20 3B 0D 0A with mlt,ct ;..
0049B0: 77 69 74 68 20 6D 63 74 2C 6C 73 20 77 69 74 68 with mct,ls with
0049C0: 20 6D 6C 73 2C 63 73 20 77 69 74 68 20 6D 63 73 mls,cs with mcs
0049D0: 2C 66 69 65 6C 64 3A 74 79 70 65 20 77 69 74 68 ,field:type with
0049E0: 20 6D 74 79 70 65 2C 66 69 65 6C 64 3A 6C 65 6E mtype,field:len
0049F0: 20 77 69 74 68 20 6D 6C 6F 6E 2C 3B 0D 0A 66 69 with mlon,;..fi
004A00: 65 6C 64 3A 64 65 63 20 77 69 74 68 20 6D 64 65 eld:dec with mde
004A10: 63 0D 0A 20 20 20 20 20 20 72 65 6C 65 61 73 65 c.. release
004A20: 20 6D 74 65 78 74 65 2C 6D 6C 74 2C 6D 63 74 2C mtexte,mlt,mct,
004A30: 6D 6C 73 2C 6D 63 73 0D 0A 20 20 20 20 20 20 73 mls,mcs.. s
004A40: 74 6F 72 65 20 23 20 74 6F 20 6E 6F 63 6F 75 72 tore # to nocour
004A50: 0D 0A 20 20 20 20 20 20 64 6F 20 76 65 72 7A 6F .. do verzo
004A60: 6E 65 0D 0A 20 20 20 65 6E 64 69 66 0D 0A 20 20 ne.. endif..
004A70: 20 65 6E 64 63 61 73 65 0D 0A 65 6E 64 64 6F 0D endcase..enddo.
004A80: 0A 65 72 61 73 65 0D 0A 73 74 6F 72 65 20 34 38 .erase..store 48
004A90: 20 74 6F 20 6E 6F 6D 65 73 73 0D 0A 64 6F 20 61 to nomess..do a
004AA0: 66 66 6D 65 73 73 0D 0A 75 73 65 0D 0A 72 65 6C ffmess..use..rel
004AB0: 65 61 73 65 20 6D 6E 6F 6D 7A 6F 6E 65 2C 6D 74 ease mnomzone,mt
004AC0: 79 70 65 2C 6D 6C 6F 6E 2C 6D 64 65 63 2C 6D 6C ype,mlon,mdec,ml
004AD0: 74 2C 6D 63 74 2C 6D 6C 73 2C 6D 63 73 2C 6E 6F t,mct,mls,mcs,no
004AE0: 6D 7A 2C 6C 69 73 74 63 2C 76 61 6C 64 65 62 2C mz,listc,valdeb,
004AF0: 76 61 6C 66 69 6E 0D 0A 72 65 6C 65 61 73 65 20 valfin..release
004B00: 63 70 74 2D 31 2C 32 29 0D 0A 20 20 20 40 20 36 cpt-1,2).. @ 6
004B10: 2C 30 20 73 61 79 20 27 6E 6F 6D 20 64 65 20 6C ,0 say 'nom de l
004B20: 61 20 7A 6F 6E 65 27 0D 0A 20 20 20 40 20 36 2C a zone'.. @ 6,
004B30: 34 35 20 67 65 74 20 6D 6E 6F 6D 7A 6F 6E 65 20 45 get mnomzone
004B40: 70 69 63 74 75 72 65 20 27 41 41 41 41 41 41 41 picture 'AAAAAAA
004B50: 41 41 41 27 0D 0A 20 20 20 40 20 6C 69 67 6D 31 AAA'.. @ ligm1
004B60: 2C 30 20 73 61 79 20 27 74 61 70 65 7A 20 72 65 ,0 say 'tapez re
004B70: 74 75 72 6E 20 70 6F 75 72 20 73 6F 72 74 69 72 turn pour sortir
004B80: 27 0D 0A 20 20 20 72 65 61 64 0D 0A 20 20 20 63 '.. read.. c
004B90: 6C 65 61 72 20 67 65 74 0D 0A 20 20 20 73 74 6F lear get.. sto
004BA0: 72 65 20 21 28 6D 6E 6F 6D 7A 6F 6E 65 29 20 74 re !(mnomzone) t
004BB0: 6F 20 6D 6E 6F 6D 7A 6F 6E 65 0D 0A 20 20 20 66 o mnomzone.. f
004BC0: 69 6E 64 20 26 6D 6E 6F 6D 7A 6F 6E 65 0D 0A 20 ind &mnomzone..
004BD0: 20 20 64 6F 20 63 61 73 65 0D 0A 20 20 20 63 61 do case.. ca
004BE0: 73 65 20 23 20 23 20 30 0D 0A 20 20 20 73 74 6F se # # 0.. sto
004BF0: 72 65 20 32 35 20 74 6F 20 6E 6F 6D 65 73 73 0D re 25 to nomess.
004C00: 0A 20 20 20 64 6F 20 61 66 66 6D 65 73 73 0D 0A . do affmess..
004C10: 20 20 20 63 61 73 65 20 6D 6E 6F 6D 7A 6F 6E 65 case mnomzone
004C20: 3D 27 20 27 2E 61 6E 64 2E 63 70 74 20 3D 20 31 =' '.and.cpt = 1
004C30: 0D 0A 20 20 20 73 74 6F 72 65 20 31 31 20 74 6F .. store 11 to
004C40: 20 6E 6F 6D 65 73 73 0D 0A 20 20 20 64 6F 20 61 nomess.. do a
004C50: 66 66 6D 65 73 73 0D 0A 20 20 20 63 61 73 65 20 ffmess.. case
004C60: 6D 6E 6F 6D 7A 6F 6E 65 3D 27 20 27 0D 0A 20 20 mnomzone=' '..
004C70: 20 75 73 65 0D 0A 20 20 20 72 65 6C 65 61 73 65 use.. release
004C80: 20 6D 6E 6F 6D 7A 6F 6E 65 2C 6D 74 79 70 65 2C mnomzone,mtype,
004C90: 6D 6C 6F 6E 2C 6D 64 65 63 2C 6D 6C 74 2C 6D 63 mlon,mdec,mlt,mc
004CA0: 74 2C 6D 6C 73 2C 6D 63 73 2C 6E 6F 6D 7A 2C 6C t,mls,mcs,nomz,l
004CB0: 69 73 74 63 2C 76 61 6C 64 65 62 2C 76 61 6C 66 istc,valdeb,valf
004CC0: 69 6E 0D 0A 20 20 20 72 65 6C 65 61 73 65 20 63 in.. release c
004CD0: 70 74 2C 6D 74 65 78 74 65 2C 6E 6F 63 6F 75 72 pt,mtexte,nocour
004CE0: 2C 6C 6F 6E 67 65 6E 67 0D 0A 20 20 20 72 65 74 ,longeng.. ret
004CF0: 75 72 6E 0D 0A 20 20 20 6F 74 68 65 72 77 69 73 urn.. otherwis
004D00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
004D10: 04 00 01 00 02 09 50 E5 04 00 41 02 00 00 00 02 ......P...A.....
004D20: 04 00 46 02 00 00 00 02 04 00 42 02 00 00 00 02 ..F.......B.....
004D30: 04 00 47 02 00 00 00 02 04 00 43 02 00 00 00 02 ..G.......C.....
004D40: 04 00 48 02 00 00 00 02 04 00 44 02 00 00 00 02 ..H.......D.....
004D50: 04 00 49 02 00 00 00 02 04 00 45 02 00 00 00 02 ..I.......E.....
004D60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004D70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004D80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004D90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004DA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004DB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004DC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004DD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004DE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004DF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004E00: 70 72 65 6D 7A 6F 6E 65 2C 63 70 74 2C 6D 74 65 premzone,cpt,mte
004E10: 78 74 65 2C 6E 6F 63 6F 75 72 2C 6C 6F 6E 67 65 xte,nocour,longe
004E20: 6E 67 0D 0A 72 65 74 75 72 6E 0D 0A 0D 0A 0D 0A ng..return......
004E30: 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A ................
004E40: 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 1A 1A ................
004E50: 62 6C 61 6E 6B 0D 0A 20 20 20 20 20 20 72 65 70 blank.. rep
004E60: 6C 61 63 65 20 66 69 65 6C 64 3A 6E 61 6D 65 20 lace field:name
004E70: 77 69 74 68 20 6D 6E 6F 6D 7A 6F 6E 65 2C 74 65 with mnomzone,te
004E80: 78 74 65 20 77 69 74 68 20 6D 74 65 78 74 65 2C xte with mtexte,
004E90: 6C 74 20 77 69 74 68 20 6D 6C 74 2C 63 74 20 3B lt with mlt,ct ;
004EA0: 0D 0A 77 69 74 68 20 6D 63 74 2C 6C 73 20 77 69 ..with mct,ls wi
004EB0: 74 68 20 6D 6C 73 2C 63 73 20 77 69 74 68 20 6D th mls,cs with m
004EC0: 63 73 2C 66 69 65 6C 64 3A 74 79 70 65 20 77 69 cs,field:type wi
004ED0: 74 68 20 6D 74 79 70 65 2C 66 69 65 6C 64 3A 6C th mtype,field:l
004EE0: 65 6E 20 77 69 74 68 20 6D 6C 6F 6E 2C 3B 0D 0A en with mlon,;..
004EF0: 66 69 65 6C 64 3A 64 65 63 20 77 69 74 68 20 6D field:dec with m
004F00: 64 65 63 0D 0A 20 20 20 20 20 20 72 65 6C 65 61 dec.. relea
004F10: 73 65 20 6D 74 65 78 74 65 2C 6D 6C 74 2C 6D 63 se mtexte,mlt,mc
004F20: 74 2C 6D 6C 73 2C 6D 63 73 0D 0A 20 20 20 20 20 t,mls,mcs..
004F30: 20 73 74 6F 72 65 20 23 20 74 6F 20 6E 6F 63 6F store # to noco
004F40: 75 72 0D 0A 20 20 20 20 20 20 64 6F 20 76 65 72 ur.. do ver
004F50: 7A 6F 6E 65 0D 0A 20 20 20 65 6E 64 69 66 0D 0A zone.. endif..
004F60: 20 20 20 65 6E 64 63 61 73 65 0D 0A 65 6E 64 64 endcase..endd
004F70: 6F 0D 0A 65 72 61 73 65 0D 0A 73 74 6F 72 65 20 o..erase..store
004F80: 34 38 20 74 6F 20 6E 6F 6D 65 73 73 0D 0A 64 6F 48 to nomess..do
004F90: 20 61 66 66 6D 65 73 73 0D 0A 75 73 65 0D 0A 72 affmess..use..r
004FA0: 65 6C 65 61 73 65 20 6D 6E 6F 6D 7A 6F 6E 65 2C elease mnomzone,
004FB0: 6D 74 79 70 65 2C 6D 6C 6F 6E 2C 6D 64 65 63 2C mtype,mlon,mdec,
004FC0: 6D 6C 74 2C 6D 63 74 2C 6D 6C 73 2C 6D 63 73 2C mlt,mct,mls,mcs,
004FD0: 6E 6F 6D 7A 2C 6C 69 73 74 63 2C 76 61 6C 64 65 nomz,listc,valde
004FE0: 62 2C 76 61 6C 66 69 6E 0D 0A 72 65 6C 65 61 73 b,valfin..releas
004FF0: 65 20 70 72 65 6D 7A 6F 6E 65 2C 63 70 74 2C 6D e premzone,cpt,m
005000: 6C 65 20 73 74 72 75 63 74 75 72 65 0D 0A 73 74 le structure..st
005010: 6F 72 65 20 6E 6F 6D 66 69 63 68 2D 27 2E 65 6C ore nomfich-'.el
005020: 69 27 20 74 6F 20 78 65 6C 65 0D 0A 3F 20 27 6C i' to xele..? 'l
005030: 65 20 66 69 63 68 69 65 72 20 27 2B 24 28 78 65 e fichier '+$(xe
005040: 6C 65 2C 33 2C 31 32 29 2B 27 20 76 61 20 65 74 le,3,12)+' va et
005050: 72 65 20 63 72 65 65 20 73 75 72 20 27 2B 75 6E re cree sur '+un
005060: 69 74 0D 0A 69 6E 64 65 78 20 6F 6E 20 74 79 70 it..index on typ
005070: 65 6C 65 6D 2B 6E 6F 6D 65 6C 65 6D 20 74 6F 20 elem+nomelem to
005080: 26 78 65 6C 65 0D 0A 64 6F 20 64 65 66 69 6E 64 &xele..do defind
005090: 65 78 0D 0A 72 65 74 75 72 6E 0D 0A 0D 0A 0D 0A ex..return......
0050A0: 0D 0A 0D 0A 0D 0A 0D 0A 1A 1A 29 3D 27 4F 27 0D ..........)='O'.
0050B0: 0A 20 20 20 20 20 20 20 20 20 72 65 6C 65 61 73 . releas
0050C0: 65 20 72 65 70 2C 74 65 73 74 2C 65 78 69 73 74 e rep,test,exist
0050D0: 2C 6E 6F 65 72 72 2C 72 65 70 72 69 73 65 0D 0A ,noerr,reprise..
0050E0: 20 20 20 20 20 20 20 20 20 64 6F 20 67 65 6E 65 do gene
0050F0: 0D 0A 20 20 20 20 20 20 20 20 20 73 74 6F 72 65 .. store
005100: 20 27 74 27 20 74 6F 20 65 78 69 73 74 0D 0A 20 't' to exist..
005110: 20 20 20 20 20 20 20 20 73 74 6F 72 65 20 30 20 store 0
005120: 74 6F 20 6E 6F 65 72 72 0D 0A 20 20 20 20 20 20 to noerr..
005130: 65 6C 73 65 0D 0A 20 20 20 20 20 20 20 20 20 72 else.. r
005140: 65 6C 65 61 73 65 20 72 65 70 0D 0A 20 20 20 20 elease rep..
005150: 20 20 65 6E 64 69 66 0D 0A 20 20 20 65 6E 64 69 endif.. endi
005160: 66 0D 0A 20 20 20 63 61 73 65 20 63 68 6F 69 78 f.. case choix
005170: 3E 3D 27 32 27 2E 61 6E 64 2E 63 68 6F 69 78 3C >='2'.and.choix<
005180: 3D 27 38 27 2E 6F 72 2E 63 68 6F 69 78 3D 27 43 ='8'.or.choix='C
005190: 27 0D 0A 20 20 20 69 66 20 72 65 70 72 69 73 65 '.. if reprise
0051A0: 3D 27 66 27 2E 61 6E 64 2E 65 78 69 73 74 3D 27 ='f'.and.exist='
0051B0: 66 27 0D 0A 20 20 20 20 20 20 73 74 6F 72 65 20 f'.. store
0051C0: 34 39 20 74 6F 20 6E 6F 6D 65 73 73 0D 0A 20 20 49 to nomess..
0051D0: 20 20 20 20 64 6F 20 61 66 66 6D 65 73 73 0D 0A do affmess..
0051E0: 20 20 20 65 6C 73 65 0D 0A 20 20 20 20 20 20 69 else.. i
0051F0: 66 20 72 65 70 72 69 73 65 3D 27 66 27 2E 61 6E f reprise='f'.an
005200: 20 74 6F 20 6D 7A 6F 6E 34 0D 0A 20 20 20 20 20 to mzon4..
005210: 20 73 74 6F 72 65 20 27 46 49 4E 20 27 2B 76 61 store 'FIN '+va
005220: 6C 33 20 74 6F 20 6D 7A 6F 6E 35 0D 0A 20 20 20 l3 to mzon5..
005230: 20 20 20 63 61 73 65 20 24 28 76 65 72 69 66 2C case $(verif,
005240: 32 2C 31 29 3D 27 4C 27 0D 0A 20 20 20 20 20 20 2,1)='L'..
005250: 73 74 6F 72 65 20 27 4C 49 53 54 45 20 44 45 20 store 'LISTE DE
005260: 43 4F 44 45 53 27 20 74 6F 20 6D 7A 6F 6E 33 0D CODES' to mzon3.
005270: 0A 20 20 20 20 20 20 73 74 6F 72 65 20 76 61 6C . store val
005280: 32 20 74 6F 20 6D 7A 6F 6E 34 0D 0A 20 20 20 20 2 to mzon4..
005290: 20 20 73 74 6F 72 65 20 27 20 27 20 74 6F 20 6D store ' ' to m
0052A0: 7A 6F 6E 35 0D 0A 20 20 20 20 20 20 6F 74 68 65 zon5.. othe
0052B0: 72 77 69 73 65 0D 0A 20 20 20 20 20 20 73 74 6F rwise.. sto
0052C0: 72 65 20 27 20 27 20 74 6F 20 6D 7A 6F 6E 33 0D re ' ' to mzon3.
0052D0: 0A 20 20 20 20 20 20 73 74 6F 72 65 20 27 20 27 . store ' '
0052E0: 20 74 6F 20 6D 7A 6F 6E 34 0D 0A 20 20 20 20 20 to mzon4..
0052F0: 20 73 74 6F 72 65 20 27 20 27 20 74 6F 20 6D 7A store ' ' to mz
005300: 6F 6E 35 0D 0A 20 20 20 65 6E 64 63 61 73 65 0D on5.. endcase.
005310: 0A 20 20 20 40 20 6C 69 67 2B 32 2C 30 20 73 61 . @ lig+2,0 sa
005320: 79 20 6D 7A 6F 6E 31 2B 27 20 27 2B 6D 7A 6F 6E y mzon1+' '+mzon
005330: 32 0D 0A 20 20 20 40 20 6C 69 67 2B 32 2C 32 38 2.. @ lig+2,28
005340: 20 73 61 79 20 6D 7A 6F 6E 33 2B 27 20 20 20 27 say mzon3+' '
005350: 2B 6D 7A 6F 6E 34 2B 27 20 20 27 2B 6D 7A 6F 6E +mzon4+' '+mzon
005360: 35 0D 0A 20 20 20 73 74 6F 72 65 20 6C 69 67 2B 5.. store lig+
005370: 34 20 74 6F 20 6C 69 67 0D 0A 20 20 20 73 6B 69 4 to lig.. ski
005380: 70 0D 0A 20 20 20 69 66 20 65 6F 66 0D 0A 20 20 p.. if eof..
005390: 20 20 20 20 3F 0D 0A 20 20 20 20 20 20 3F 20 27 ?.. ? '
0053A0: 6E 6F 6D 62 72 65 20 64 65 20 7A 6F 6E 65 73 20 nombre de zones
0053B0: 3A 27 2C 63 70 74 2C 27 20 20 20 20 20 20 20 20 :',cpt,'
0053C0: 20 20 20 20 20 20 74 61 69 6C 6C 65 20 65 6E 72 taille enr
0053D0: 65 67 69 73 74 72 65 6D 65 6E 74 3A 27 2C 6C 6F egistrement:',lo
0053E0: 6E 67 65 6E 67 0D 0A 20 20 20 20 20 20 69 66 20 ngeng.. if
0053F0: 72 65 70 3D 27 4E 27 0D 0A 20 20 20 20 20 20 20 rep='N'..
005400: 2A 20 64 65 6D 6C 69 73 74 3A 20 64 65 6D 61 6E * demlist: deman
005410: 64 65 20 6C 65 20 6E 6F 6D 20 64 65 20 6C 61 20 de le nom de la
005420: 6C 69 73 74 65 20 61 20 61 66 66 69 63 68 65 72 liste a afficher
005430: 0D 0A 0D 0A 73 65 6C 65 63 74 20 70 72 69 6D 61 ....select prima
005440: 72 79 0D 0A 75 73 65 20 26 66 65 6C 65 20 69 6E ry..use &fele in
005450: 64 65 78 20 26 78 65 6C 65 0D 0A 65 72 61 73 65 dex &xele..erase
005460: 0D 0A 73 74 6F 72 65 20 27 66 27 20 74 6F 20 63 ..store 'f' to c
005470: 6F 72 72 65 63 74 0D 0A 64 6F 20 77 68 69 6C 65 orrect..do while
005480: 20 63 6F 72 72 65 63 74 3D 27 66 27 0D 0A 20 20 correct='f'..
005490: 20 73 74 6F 72 65 20 27 20 20 20 20 20 20 20 20 store '
0054A0: 27 20 74 6F 20 6D 6E 6F 6D 6C 0D 0A 20 20 20 40 ' to mnoml.. @
0054B0: 20 36 2C 35 20 73 61 79 20 27 6E 6F 6D 20 64 65 6,5 say 'nom de
0054C0: 20 6C 61 20 6C 69 73 74 65 3A 27 0D 0A 20 20 20 la liste:'..
0054D0: 40 20 36 2C 33 30 20 67 65 74 20 6D 6E 6F 6D 6C @ 6,30 get mnoml
0054E0: 0D 0A 20 20 20 40 20 6C 69 67 6D 31 2C 30 20 73 .. @ ligm1,0 s
0054F0: 61 79 20 27 74 61 70 65 7A 20 72 65 74 75 72 6E ay 'tapez return
005500: 20 70 6F 75 72 20 71 75 69 74 74 65 72 27 0D 0A pour quitter'..
005510: 20 20 20 72 65 61 64 0D 0A 20 20 20 63 6C 65 61 read.. clea
005520: 72 20 67 65 74 0D 0A 20 20 20 69 66 20 6D 6E 6F r get.. if mno
005530: 6D 6C 20 3D 20 27 20 27 0D 0A 20 20 20 72 65 6C ml = ' '.. rel
005540: 65 61 73 65 20 6D 6E 6F 6D 6C 2C 63 6F 72 72 65 ease mnoml,corre
005550: 63 74 2C 63 6C 65 2C 65 78 70 66 0D 0A 20 20 20 ct,cle,expf..
005560: 72 65 74 75 72 6E 0D 0A 20 20 20 65 6E 64 69 66 return.. endif
005570: 0D 0A 20 20 20 40 20 6C 69 67 6D 31 2C 30 0D 0A .. @ ligm1,0..
005580: 20 20 20 73 74 6F 72 65 20 21 28 6D 6E 6F 6D 6C store !(mnoml
005590: 29 20 74 6F 20 6D 6E 6F 6D 6C 0D 0A 20 20 20 73 ) to mnoml.. s
0055A0: 74 6F 72 65 20 27 4C 27 2D 6D 6E 6F 6D 6C 20 74 tore 'L'-mnoml t
0055B0: 6F 20 63 6C 65 0D 0A 20 20 20 66 69 6E 64 20 26 o cle.. find &
0055C0: 63 6C 65 0D 0A 20 20 20 69 66 20 23 20 3D 20 30 cle.. if # = 0
0055D0: 0D 0A 20 20 20 20 20 20 73 74 6F 72 65 20 37 20 .. store 7
0055E0: 74 6F 20 6E 6F 6D 65 73 73 0D 0A 20 20 20 20 20 to nomess..
0055F0: 20 64 6F 20 61 66 66 6D 65 73 73 0D 0A 20 20 20 do affmess..
005600: 2A 20 67 65 6E 65 3A 20 67 65 6E 65 72 61 74 69 * gene: generati
005610: 6F 6E 20 64 65 20 66 69 63 68 69 65 72 0D 0A 0D on de fichier...
005620: 0A 65 72 61 73 65 0D 0A 40 20 31 2C 32 36 20 73 .erase..@ 1,26 s
005630: 61 79 20 27 47 45 4E 45 52 41 54 49 4F 4E 20 44 ay 'GENERATION D
005640: 55 20 46 49 43 48 49 45 52 20 27 0D 0A 40 20 31 U FICHIER '..@ 1
005650: 2C 35 34 20 67 65 74 20 6E 6F 6D 61 66 66 0D 0A ,54 get nomaff..
005660: 63 6C 65 61 72 20 67 65 74 0D 0A 73 74 6F 72 65 clear get..store
005670: 20 24 28 62 6C 61 6E 63 2C 31 2C 33 30 29 20 74 $(blanc,1,30) t
005680: 6F 20 6D 69 6E 74 69 74 66 0D 0A 73 74 6F 72 65 o mintitf..store
005690: 20 24 28 62 6C 61 6E 63 2C 31 2C 33 30 29 20 74 $(blanc,1,30) t
0056A0: 6F 20 6D 74 69 74 72 65 66 0D 0A 40 20 36 2C 35 o mtitref..@ 6,5
0056B0: 20 73 61 79 20 27 69 6E 74 69 74 75 6C 65 20 64 say 'intitule d
0056C0: 75 20 66 69 63 68 69 65 72 27 0D 0A 40 20 36 2C u fichier'..@ 6,
0056D0: 33 30 20 67 65 74 20 6D 69 6E 74 69 74 66 0D 0A 30 get mintitf..
0056E0: 72 65 61 64 0D 0A 63 6C 65 61 72 20 67 65 74 0D read..clear get.
0056F0: 0A 73 74 6F 72 65 20 27 66 27 20 74 6F 20 63 6F .store 'f' to co
005700: 72 72 65 63 74 0D 0A 64 6F 20 77 68 69 6C 65 20 rrect..do while
005710: 63 6F 72 72 65 63 74 3D 27 66 27 0D 0A 20 20 20 correct='f'..
005720: 40 20 37 2C 35 20 73 61 79 20 27 74 69 74 72 65 @ 7,5 say 'titre
005730: 20 6D 65 6E 75 20 70 72 69 6E 63 69 70 61 6C 27 menu principal'
005740: 0D 0A 20 20 20 40 20 37 2C 33 30 20 67 65 74 20 .. @ 7,30 get
005750: 6D 74 69 74 72 65 66 0D 0A 20 20 20 72 65 61 64 mtitref.. read
005760: 0D 0A 20 20 20 63 6C 65 61 72 20 67 65 74 0D 0A .. clear get..
005770: 20 20 20 69 66 20 6D 74 69 74 72 65 66 3D 27 20 if mtitref='
005780: 27 0D 0A 20 20 20 20 20 20 73 74 6F 72 65 20 33 '.. store 3
005790: 35 20 74 6F 20 6E 6F 6D 65 73 73 0D 0A 20 20 20 5 to nomess..
0057A0: 20 20 20 64 6F 20 61 66 66 6D 65 73 73 0D 0A 20 do affmess..
0057B0: 20 20 65 6C 73 65 0D 0A 20 20 20 20 20 20 73 74 else.. st
0057C0: 6F 72 65 20 27 74 27 20 74 6F 20 63 6F 72 72 65 ore 't' to corre
0057D0: 63 74 0D 0A 20 20 20 65 6E 64 69 66 0D 0A 65 6E ct.. endif..en
0057E0: 64 64 6F 0D 0A 72 65 6C 65 61 73 65 20 63 6F 72 ddo..release cor
0057F0: 72 65 63 74 0D 0A 2A 20 6D 65 74 74 72 65 20 61 rect..* mettre a
005800: 65 6C 73 65 0D 0A 20 20 20 20 20 20 73 74 6F 72 else.. stor
005810: 65 20 27 74 27 20 74 6F 20 63 6F 72 72 65 63 74 e 't' to correct
005820: 0D 0A 20 20 20 65 6E 64 69 66 0D 0A 65 6E 64 64 .. endif..endd
005830: 6F 0D 0A 64 6F 20 64 65 6D 63 6C 65 0D 0A 65 72 o..do demcle..er
005840: 61 73 65 0D 0A 73 74 6F 72 65 20 75 6E 69 74 2B ase..store unit+
005850: 6D 6E 6F 6D 6C 20 74 6F 20 6D 6E 6F 6D 6C 0D 0A mnoml to mnoml..
005860: 69 66 20 65 6F 66 0D 0A 73 74 6F 72 65 20 31 39 if eof..store 19
005870: 20 74 6F 20 6E 6F 6D 65 73 73 0D 0A 64 6F 20 61 to nomess..do a
005880: 66 66 6D 65 73 73 0D 0A 72 65 6C 65 61 73 65 20 ffmess..release
005890: 6D 6E 6F 6D 6C 2C 63 6F 72 72 65 63 74 2C 63 6C mnoml,correct,cl
0058A0: 65 2C 65 78 70 66 0D 0A 72 65 74 75 72 6E 0D 0A e,expf..return..
0058B0: 65 6E 64 69 66 0D 0A 69 66 20 63 68 6F 69 78 3D endif..if choix=
0058C0: 27 37 27 0D 0A 20 20 20 73 65 74 20 70 72 69 6E '7'.. set prin
0058D0: 74 20 6F 6E 0D 0A 20 20 20 3F 3F 20 63 68 72 28 t on.. ?? chr(
0058E0: 31 33 29 0D 0A 20 20 20 73 65 74 20 70 72 69 6E 13).. set prin
0058F0: 74 20 6F 66 66 0D 0A 20 20 20 72 65 70 6F 72 74 t off.. report
005900: 20 66 6F 72 6D 20 26 6D 6E 6F 6D 6C 20 6E 65 78 form &mnoml nex
005910: 74 20 36 35 35 33 35 20 26 65 78 70 66 20 74 6F t 65535 &expf to
005920: 20 70 72 69 6E 74 0D 0A 65 6C 73 65 0D 0A 20 20 print..else..
005930: 20 64 6F 20 77 68 69 6C 65 20 2E 6E 6F 74 2E 65 do while .not.e
005940: 6F 66 0D 0A 20 20 20 20 20 20 65 72 61 73 65 0D of.. erase.
005950: 0A 20 20 20 20 20 20 72 65 70 6F 72 74 20 66 6F . report fo
005960: 72 6D 20 26 6D 6E 6F 6D 6C 20 6E 65 78 74 20 31 rm &mnoml next 1
005970: 30 20 26 65 78 70 66 0D 0A 20 20 20 20 20 20 73 0 &expf.. s
005980: 6B 69 70 0D 0A 20 20 20 20 20 20 69 66 20 2E 6E kip.. if .n
005990: 6F 74 2E 65 6F 66 0D 0A 20 20 20 20 20 20 20 20 ot.eof..
0059A0: 3F 20 22 74 61 70 65 7A 20 46 20 70 6F 75 72 20 ? "tapez F pour
0059B0: 66 69 6E 20 6C 69 73 74 65 2C 20 6E 27 69 6D 70 fin liste, n'imp
0059C0: 6F 72 74 65 20 71 75 65 6C 6C 65 20 61 75 74 72 orte quelle autr
0059D0: 65 20 74 6F 75 63 68 65 20 70 6F 75 72 20 6C 61 e touche pour la
0059E0: 20 73 75 69 74 65 22 0D 0A 20 20 20 20 20 20 65 suite".. e
0059F0: 6C 73 65 0D 0A 20 20 20 20 20 20 20 20 3F 20 22 lse.. ? "
005A00: 20 6A 6F 75 72 20 67 65 73 74 66 69 63 68 0D 0A jour gestfich..
005A10: 75 73 65 20 67 65 73 74 66 69 63 68 0D 0A 67 6F use gestfich..go
005A20: 74 6F 20 74 6F 70 0D 0A 69 66 20 65 6F 66 0D 0A to top..if eof..
005A30: 20 20 20 61 70 70 65 6E 64 20 62 6C 61 6E 6B 0D append blank.
005A40: 0A 65 6C 73 65 0D 0A 20 20 20 6C 6F 63 61 74 65 .else.. locate
005A50: 20 66 6F 72 20 6E 6F 6D 66 3E 24 28 6E 6F 6D 66 for nomf>$(nomf
005A60: 69 63 68 2C 33 2C 38 29 0D 0A 20 20 20 69 66 20 ich,3,8).. if
005A70: 6E 6F 6D 66 20 3E 20 24 28 6E 6F 6D 66 69 63 68 nomf > $(nomfich
005A80: 2C 33 2C 38 29 0D 0A 20 20 20 20 20 20 69 6E 73 ,3,8).. ins
005A90: 65 72 74 20 62 65 66 6F 72 65 20 62 6C 61 6E 6B ert before blank
005AA0: 0D 0A 20 20 20 65 6C 73 65 0D 0A 20 20 20 20 20 .. else..
005AB0: 20 61 70 70 65 6E 64 20 62 6C 61 6E 6B 0D 0A 20 append blank..
005AC0: 20 20 65 6E 64 69 66 0D 0A 65 6E 64 69 66 0D 0A endif..endif..
005AD0: 72 65 70 6C 61 63 65 20 6E 6F 6D 66 20 77 69 74 replace nomf wit
005AE0: 68 20 24 28 6E 6F 6D 66 69 63 68 2C 33 2C 38 29 h $(nomfich,3,8)
005AF0: 2C 74 69 74 72 65 66 20 77 69 74 68 20 6D 74 69 ,titref with mti
005B00: 74 72 65 66 2C 69 6E 74 69 74 66 20 77 69 74 68 tref,intitf with
005B10: 20 6D 69 6E 74 69 74 66 0D 0A 72 65 6C 65 61 73 mintitf..releas
005B20: 65 20 6D 74 69 74 72 65 66 2C 6D 69 6E 74 69 74 e mtitref,mintit
005B30: 66 0D 0A 2A 20 64 65 66 69 6E 69 72 20 6C 61 20 f..* definir la
005B40: 73 74 72 75 63 74 75 72 65 20 64 75 20 66 69 63 structure du fic
005B50: 68 69 65 72 0D 0A 73 74 6F 72 65 20 6E 6F 6D 66 hier..store nomf
005B60: 69 63 68 2D 27 2E 72 65 66 27 20 74 6F 20 66 72 ich-'.ref' to fr
005B70: 65 66 0D 0A 3F 0D 0A 3F 20 27 6C 65 20 66 69 63 ef..?..? 'le fic
005B80: 68 69 65 72 20 27 2B 24 28 66 72 65 66 2C 33 2C hier '+$(fref,3,
005B90: 31 32 29 2B 27 20 76 61 20 65 74 72 65 20 63 72 12)+' va etre cr
005BA0: 65 65 20 73 75 72 20 27 2B 75 6E 69 74 0D 0A 75 ee sur '+unit..u
005BB0: 73 65 20 72 65 66 0D 0A 63 6F 70 79 20 74 6F 20 se ref..copy to
005BC0: 26 66 72 65 66 20 73 74 72 75 63 74 75 72 65 0D &fref structure.
005BD0: 0A 75 73 65 20 26 66 72 65 66 0D 0A 73 74 6F 72 .use &fref..stor
005BE0: 65 20 6E 6F 6D 66 69 63 68 2D 27 2E 6E 6F 6D 27 e nomfich-'.nom'
005BF0: 20 74 6F 20 78 6E 6F 6D 0D 0A 3F 20 27 6C 65 20 to xnom..? 'le
005C00: 74 61 70 65 7A 20 73 75 72 20 75 6E 65 20 74 6F tapez sur une to
005C10: 75 63 68 65 20 70 6F 75 72 20 72 65 76 65 6E 69 uche pour reveni
005C20: 72 20 61 75 20 6D 65 6E 75 22 0D 0A 20 20 20 20 r au menu"..
005C30: 20 20 65 6E 64 69 66 0D 0A 20 20 20 20 20 20 73 endif.. s
005C40: 65 74 20 63 6F 6E 73 6F 6C 65 20 6F 66 66 0D 0A et console off..
005C50: 20 20 20 20 20 20 77 61 69 74 20 74 6F 20 63 68 wait to ch
005C60: 6F 69 78 0D 0A 20 20 20 20 20 20 73 65 74 20 63 oix.. set c
005C70: 6F 6E 73 6F 6C 65 20 6F 6E 0D 0A 20 20 20 20 20 onsole on..
005C80: 20 69 66 20 21 28 63 68 6F 69 78 29 3D 27 46 27 if !(choix)='F'
005C90: 0D 0A 20 20 20 20 20 20 20 20 20 72 65 6C 65 61 .. relea
005CA0: 73 65 20 6D 6E 6F 6D 6C 2C 63 6F 72 72 65 63 74 se mnoml,correct
005CB0: 2C 63 6C 65 2C 65 78 70 66 0D 0A 20 20 20 20 20 ,cle,expf..
005CC0: 20 20 20 20 72 65 74 75 72 6E 0D 0A 20 20 20 20 return..
005CD0: 20 20 65 6E 64 69 66 0D 0A 20 20 20 65 6E 64 64 endif.. endd
005CE0: 6F 0D 0A 65 6E 64 69 66 0D 0A 72 65 6C 65 61 73 o..endif..releas
005CF0: 65 20 6D 6E 6F 6D 6C 2C 63 6F 72 72 65 63 74 2C e mnoml,correct,
005D00: 63 6C 65 2C 65 78 70 66 0D 0A 72 65 74 75 72 6E cle,expf..return
005D10: 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A ................
005D20: 0D 0A 0D 0A 1A 1A FF 00 FF 00 FF 00 FF 00 FF 00 ................
005D30: FF 00 FF 00 FF 00 FF 00 FF 00 FF 00 FF 00 FF 00 ................
005D40: FF 00 FF 00 FF 00 FF 00 FF 00 FF 00 FF 00 FF 00 ................
005D50: FF 00 FF 00 FF 00 FF 00 FF 00 FF 00 FF 00 FF 00 ................
005D60: FF 00 FF 00 FF 00 FF 00 FF 00 FF 00 FF 00 FF 00 ................
005D70: FF 00 FF 00 FF 00 FF 00 FF 00 FF 00 FF 00 FF 00 ................
005D80: FF 00 FF 00 FF 00 FF 00 FF 00 FF 00 FF 00 FF 00 ................
005D90: FF 00 FF 00 FF 00 FF 00 FF 00 FF 00 FF 00 FF 00 ................
005DA0: FF 00 FF 00 FF 00 FF 00 FF 00 FF 00 FF 00 FF 00 ................
005DB0: FF 00 FF 00 FF 00 FF 00 FF 00 FF 00 FF 00 FF 00 ................
005DC0: FF 00 FF 00 FF 00 FF 00 FF 00 FF 00 FF 00 FF 00 ................
005DD0: FF 00 FF 00 FF 00 FF 00 FF 00 FF 00 FF 00 FF 00 ................
005DE0: FF 00 FF 00 FF 00 FF 00 FF 00 FF 00 FF 00 FF 00 ................
005DF0: FF 00 FF 00 FF 00 FF 00 FF 00 FF 00 FF 00 FF 00 ................
005E00: 66 69 63 68 69 65 72 20 27 2B 24 28 78 6E 6F 6D fichier '+$(xnom
005E10: 2C 33 2C 31 32 29 2B 27 20 76 61 20 65 74 72 65 ,3,12)+' va etre
005E20: 20 63 72 65 65 20 73 75 72 20 27 2B 75 6E 69 74 cree sur '+unit
005E30: 0D 0A 69 6E 64 65 78 20 6F 6E 20 66 69 65 6C 64 ..index on field
005E40: 3A 6E 61 6D 65 20 74 6F 20 26 78 6E 6F 6D 0D 0A :name to &xnom..
005E50: 73 74 6F 72 65 20 6E 6F 6D 66 69 63 68 2D 27 2E store nomfich-'.
005E60: 63 6C 65 27 20 74 6F 20 78 63 6C 65 0D 0A 3F 20 cle' to xcle..?
005E70: 27 6C 65 20 66 69 63 68 69 65 72 20 27 2B 24 28 'le fichier '+$(
005E80: 78 63 6C 65 2C 33 2C 31 32 29 2B 27 20 76 61 20 xcle,3,12)+' va
005E90: 65 74 72 65 20 63 72 65 65 20 73 75 72 20 27 2B etre cree sur '+
005EA0: 75 6E 69 74 0D 0A 69 6E 64 65 78 20 6F 6E 20 6E unit..index on n
005EB0: 6F 7A 20 74 6F 20 26 78 63 6C 65 0D 0A 2A 20 64 oz to &xcle..* d
005EC0: 65 66 69 6E 69 72 20 6C 65 73 20 7A 6F 6E 65 73 efinir les zones
005ED0: 20 64 75 20 66 69 63 68 69 65 72 0D 0A 64 6F 20 du fichier..do
005EE0: 64 65 66 7A 6F 6E 65 73 0D 0A 2A 20 63 72 65 65 defzones..* cree
005EF0: 72 20 6C 65 20 66 69 63 68 69 65 72 20 6C 75 69 r le fichier lui
005F00: 2D 6D 65 6D 65 0D 0A 65 72 61 73 65 0D 0A 3F 0D -meme..erase..?.
005F10: 0A 3F 0D 0A 3F 20 27 6C 65 20 66 69 63 68 69 65 .?..? 'le fichie
005F20: 72 20 27 2B 24 28 6E 6F 6D 66 69 63 68 2C 33 2C r '+$(nomfich,3,
005F30: 38 29 2B 27 20 76 61 20 65 74 72 65 20 63 72 65 8)+' va etre cre
005F40: 65 20 73 75 72 20 27 2B 75 6E 69 74 0D 0A 63 72 e sur '+unit..cr
005F50: 65 61 74 65 20 26 6E 6F 6D 66 69 63 68 20 66 72 eate &nomfich fr
005F60: 6F 6D 20 26 66 72 65 66 0D 0A 2A 20 63 72 65 65 om &fref..* cree
005F70: 72 20 6C 65 20 66 69 63 68 69 65 72 20 64 65 73 r le fichier des
005F80: 20 69 6E 64 65 78 20 65 74 20 64 65 73 20 6C 69 index et des li
005F90: 73 74 65 73 0D 0A 73 74 6F 72 65 20 6E 6F 6D 66 stes..store nomf
005FA0: 69 63 68 2D 27 2E 65 6C 66 27 20 74 6F 20 66 65 ich-'.elf' to fe
005FB0: 6C 65 0D 0A 3F 20 27 6C 65 20 66 69 63 68 69 65 le..? 'le fichie
005FC0: 72 20 27 2B 24 28 66 65 6C 65 2C 33 2C 31 32 29 r '+$(fele,3,12)
005FD0: 2B 27 20 76 61 20 65 74 72 65 20 63 72 65 65 20 +' va etre cree
005FE0: 73 75 72 20 27 2B 75 6E 69 74 0D 0A 75 73 65 20 sur '+unit..use
005FF0: 65 6C 66 0D 0A 63 6F 70 79 20 74 6F 20 26 66 65 elf..copy to &fe
006000: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
006010: 05 00 01 00 02 09 4E E5 05 00 41 02 00 00 00 02 ......N...A.....
006020: 05 00 46 02 00 00 00 02 05 00 42 02 00 00 00 02 ..F.......B.....
006030: 05 00 47 02 00 00 00 02 05 00 43 02 00 00 00 02 ..G.......C.....
006040: 05 00 48 02 00 00 00 02 05 00 44 02 00 00 00 02 ..H.......D.....
006050: 05 00 49 02 00 00 00 02 05 00 45 02 00 00 00 02 ..I.......E.....
006060: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
006070: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
006080: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
006090: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0060A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0060B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0060C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0060D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0060E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0060F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
006100: 65 6C 65 63 74 20 73 65 63 6F 6E 64 61 72 79 0D elect secondary.
006110: 0A 75 73 65 0D 0A 73 65 6C 65 63 74 20 70 72 69 .use..select pri
006120: 6D 61 72 79 0D 0A 75 73 65 0D 0A 64 6F 20 6F 70 mary..use..do op
006130: 74 69 6F 6E 0D 0A 73 65 6C 65 63 74 20 73 65 63 tion..select sec
006140: 6F 6E 64 61 72 79 0D 0A 75 73 65 0D 0A 73 65 6C ondary..use..sel
006150: 65 63 74 20 70 72 69 6D 61 72 79 0D 0A 75 73 65 ect primary..use
006160: 0D 0A 63 61 73 65 20 21 28 63 68 6F 69 78 29 20 ..case !(choix)
006170: 3D 20 27 46 27 0D 0A 72 65 74 75 72 6E 0D 0A 6F = 'F'..return..o
006180: 74 68 65 72 77 69 73 65 0D 0A 2A 20 61 66 66 69 therwise..* affi
006190: 63 68 65 72 20 75 6E 20 6D 65 73 73 61 67 65 20 cher un message
0061A0: 64 27 65 72 72 65 75 72 0D 0A 73 74 6F 72 65 20 d'erreur..store
0061B0: 31 20 74 6F 20 6E 6F 6D 65 73 73 0D 0A 64 6F 20 1 to nomess..do
0061C0: 61 66 66 6D 65 73 73 0D 0A 65 6E 64 63 61 73 65 affmess..endcase
0061D0: 0D 0A 73 65 6C 65 63 74 20 70 72 69 6D 61 72 79 ..select primary
0061E0: 0D 0A 75 73 65 0D 0A 73 65 6C 65 63 74 20 73 65 ..use..select se
0061F0: 63 6F 6E 64 61 72 79 0D 0A 75 73 65 0D 0A 73 65 condary..use..se
006200: 6C 65 63 74 20 70 72 69 6D 61 72 79 0D 0A 73 74 lect primary..st
006210: 6F 72 65 20 27 74 27 20 74 6F 20 74 65 73 74 0D ore 't' to test.
006220: 0A 65 6E 64 64 6F 0D 0A 72 65 74 75 72 6E 0D 0A .enddo..return..
006230: 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 1A 1A 20 20 ..............
006240: 20 20 3D 3D 3D 3D 3E 20 33 22 0D 0A 20 20 20 40 ====> 3".. @
006250: 20 36 2C 31 30 20 73 61 79 20 27 76 69 73 75 61 6,10 say 'visua
006260: 6C 69 73 61 74 69 6F 6E 20 20 20 20 20 20 20 20 lisation
006270: 20 20 20 20 20 20 20 20 20 20 20 20 20 3D 3D 3D ===
006280: 3D 3E 20 34 27 0D 0A 20 20 20 40 20 37 2C 31 30 => 4'.. @ 7,10
006290: 20 73 61 79 20 22 72 65 63 68 65 72 63 68 65 20 say "recherche
0062A0: 73 75 72 20 63 6C 65 20 20 20 20 20 20 20 20 20 sur cle
0062B0: 20 20 20 20 20 20 20 20 3D 3D 3D 3D 3E 20 35 22 ====> 5"
0062C0: 0D 0A 20 20 20 40 20 39 2C 31 30 20 73 61 79 20 .. @ 9,10 say
0062D0: 22 61 66 66 69 63 68 61 67 65 20 64 27 75 6E 65 "affichage d'une
0062E0: 20 6C 69 73 74 65 20 61 20 6C 27 65 63 72 61 6E liste a l'ecran
0062F0: 20 20 20 3D 3D 3D 3D 3E 20 36 22 0D 0A 20 20 20 ====> 6"..
006300: 2A 20 76 65 72 69 66 3A 20 76 65 72 69 66 69 63 * verif: verific
006310: 61 74 69 6F 6E 20 64 27 75 6E 65 20 7A 6F 6E 65 ation d'une zone
006320: 0D 0A 0D 0A 69 66 20 63 68 6F 69 78 20 3D 20 27 ....if choix = '
006330: 34 27 0D 0A 40 20 6C 69 67 6D 31 2C 30 20 73 61 4'..@ ligm1,0 sa
006340: 79 20 27 72 65 63 68 65 72 63 68 65 20 65 6E 20 y 'recherche en
006350: 63 6F 75 72 73 2E 20 76 65 75 69 6C 6C 65 7A 20 cours. veuillez
006360: 70 61 74 69 65 6E 74 65 72 2E 2E 2E 20 20 20 20 patienter...
006370: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 0D '.
006380: 0A 65 6C 73 65 0D 0A 40 20 6C 69 67 6D 31 2C 30 .else..@ ligm1,0
006390: 20 73 61 79 20 27 76 65 72 69 66 69 63 61 74 69 say 'verificati
0063A0: 6F 6E 20 65 6E 20 63 6F 75 72 73 2E 20 76 65 75 on en cours. veu
0063B0: 69 6C 6C 65 7A 20 70 61 74 69 65 6E 74 65 72 2E illez patienter.
0063C0: 2E 2E 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
0063D0: 20 20 27 0D 0A 65 6E 64 69 66 0D 0A 73 65 6C 65 '..endif..sele
0063E0: 63 74 20 70 72 69 6D 61 72 79 0D 0A 75 73 65 20 ct primary..use
0063F0: 26 66 72 65 66 20 69 6E 64 65 78 20 26 78 63 6C &fref index &xcl
006400: 65 0D 0A 63 6F 75 6E 74 20 74 6F 20 6E 62 6C 69 e..count to nbli
006410: 73 74 0D 0A 69 66 20 76 32 3D 39 39 0D 0A 73 74 st..if v2=99..st
006420: 6F 72 65 20 6E 62 6C 69 73 74 20 74 6F 20 76 32 ore nblist to v2
006430: 0D 0A 65 6E 64 69 66 0D 0A 72 65 6C 65 61 73 65 ..endif..release
006440: 20 6E 62 6C 69 73 74 0D 0A 73 74 6F 72 65 20 76 nblist..store v
006450: 31 20 74 6F 20 63 70 74 0D 0A 73 74 6F 72 65 20 1 to cpt..store
006460: 30 20 74 6F 20 6E 6F 6D 65 73 73 0D 0A 64 6F 20 0 to nomess..do
006470: 77 68 69 6C 65 20 63 70 74 3C 3D 76 32 2E 61 6E while cpt<=v2.an
006480: 64 2E 6E 6F 6D 65 73 73 3D 30 0D 0A 73 74 6F 72 d.nomess=0..stor
006490: 65 20 27 6D 7A 6F 6E 27 2D 73 74 72 28 63 70 74 e 'mzon'-str(cpt
0064A0: 2C 31 2B 69 6E 74 28 63 70 74 2F 31 30 29 2D 69 ,1+int(cpt/10)-i
0064B0: 6E 74 28 63 70 74 2F 32 30 29 2D 69 6E 74 28 63 nt(cpt/20)-int(c
0064C0: 70 74 2F 33 30 29 29 20 74 6F 20 6D 7A 6F 6E 0D pt/30)) to mzon.
0064D0: 0A 69 66 20 74 79 70 65 28 26 6D 7A 6F 6E 29 3D .if type(&mzon)=
0064E0: 27 43 27 0D 0A 73 74 6F 72 65 20 21 28 26 6D 7A 'C'..store !(&mz
0064F0: 6F 6E 29 20 74 6F 20 26 6D 7A 6F 6E 0D 0A 65 6E on) to &mzon..en
006500: 2A 20 73 75 70 65 6C 65 6D 3A 20 73 75 70 72 65 * supelem: supre
006510: 73 73 69 6F 6E 20 64 27 75 6E 65 20 6C 69 73 74 ssion d'une list
006520: 65 20 6F 75 20 64 27 75 6E 65 20 63 6C 65 0D 0A e ou d'une cle..
006530: 0D 0A 65 72 61 73 65 0D 0A 73 65 6C 65 63 74 20 ..erase..select
006540: 70 72 69 6D 61 72 79 0D 0A 75 73 65 20 26 66 65 primary..use &fe
006550: 6C 65 20 69 6E 64 65 78 20 26 78 65 6C 65 0D 0A le index &xele..
006560: 69 66 20 65 6C 65 6D 3D 27 4C 27 0D 0A 20 20 20 if elem='L'..
006570: 40 20 31 2C 31 36 20 73 61 79 20 22 53 55 50 50 @ 1,16 say "SUPP
006580: 52 45 53 53 49 4F 4E 20 44 27 55 4E 45 20 4C 49 RESSION D'UNE LI
006590: 53 54 45 20 44 55 20 46 49 43 48 49 45 52 20 22 STE DU FICHIER "
0065A0: 0D 0A 20 20 20 73 74 6F 72 65 20 37 20 74 6F 20 .. store 7 to
0065B0: 6E 6F 6D 65 73 73 0D 0A 20 20 20 73 74 6F 72 65 nomess.. store
0065C0: 20 27 6E 6F 6D 20 64 65 20 6C 61 20 6C 69 73 74 'nom de la list
0065D0: 65 27 20 74 6F 20 71 75 65 73 74 0D 0A 65 6C 73 e' to quest..els
0065E0: 65 0D 0A 20 20 20 40 20 31 2C 31 36 20 73 61 79 e.. @ 1,16 say
0065F0: 20 22 53 55 50 50 52 45 53 53 49 4F 4E 20 44 27 "SUPPRESSION D'
006600: 55 4E 45 20 43 4C 45 20 44 55 20 46 49 43 48 49 UNE CLE DU FICHI
006610: 45 52 20 22 0D 0A 20 20 20 73 74 6F 72 65 20 31 ER ".. store 1
006620: 36 20 74 6F 20 6E 6F 6D 65 73 73 0D 0A 20 20 20 6 to nomess..
006630: 73 74 6F 72 65 20 27 6E 6F 6D 20 64 65 20 6C 61 store 'nom de la
006640: 20 63 6C 65 27 20 74 6F 20 71 75 65 73 74 0D 0A cle' to quest..
006650: 65 6E 64 69 66 0D 0A 40 20 31 2C 35 35 20 67 65 endif..@ 1,55 ge
006660: 74 20 6E 6F 6D 61 66 66 0D 0A 63 6C 65 61 72 20 t nomaff..clear
006670: 67 65 74 0D 0A 67 6F 74 6F 20 74 6F 70 0D 0A 40 get..goto top..@
006680: 20 35 2C 31 30 20 73 61 79 20 71 75 65 73 74 0D 5,10 say quest.
006690: 0A 73 74 6F 72 65 20 27 66 27 20 74 6F 20 63 6F .store 'f' to co
0066A0: 72 72 65 63 74 0D 0A 64 6F 20 77 68 69 6C 65 20 rrect..do while
0066B0: 63 6F 72 72 65 63 74 3D 27 66 27 0D 0A 20 20 20 correct='f'..
0066C0: 73 74 6F 72 65 20 27 20 20 20 20 20 20 20 20 27 store ' '
0066D0: 20 74 6F 20 6D 6E 6F 6D 0D 0A 20 20 20 40 20 35 to mnom.. @ 5
0066E0: 2C 34 30 20 67 65 74 20 6D 6E 6F 6D 0D 0A 20 20 ,40 get mnom..
0066F0: 20 40 20 6C 69 67 6D 31 2C 30 20 73 61 79 20 22 @ ligm1,0 say "
006700: 64 69 66 0D 0A 69 66 20 24 28 74 61 62 76 2C 63 dif..if $(tabv,c
006710: 70 74 2C 31 29 3D 22 4E 22 0D 0A 73 74 6F 72 65 pt,1)="N"..store
006720: 20 63 70 74 2B 31 20 74 6F 20 63 70 74 0D 0A 65 cpt+1 to cpt..e
006730: 6C 73 65 0D 0A 73 74 6F 72 65 20 73 74 72 28 63 lse..store str(c
006740: 70 74 2C 32 29 20 74 6F 20 63 63 70 74 0D 0A 73 pt,2) to ccpt..s
006750: 65 6C 65 63 74 20 70 72 69 6D 61 72 79 0D 0A 75 elect primary..u
006760: 73 65 20 26 66 72 65 66 20 69 6E 64 65 78 20 26 se &fref index &
006770: 78 63 6C 65 0D 0A 66 69 6E 64 20 26 63 63 70 74 xcle..find &ccpt
006780: 0D 0A 72 65 6C 65 61 73 65 20 63 63 70 74 0D 0A ..release ccpt..
006790: 40 20 6C 69 67 6D 31 2C 30 20 73 61 79 20 27 76 @ ligm1,0 say 'v
0067A0: 65 72 69 66 69 63 61 74 69 6F 6E 20 64 65 20 6C erification de l
0067B0: 61 20 7A 6F 6E 65 20 27 2B 74 65 78 74 65 2B 27 a zone '+texte+'
0067C0: 20 65 6E 20 63 6F 75 72 73 27 0D 0A 73 74 6F 72 en cours'..stor
0067D0: 65 20 30 20 74 6F 20 6E 6F 6D 65 73 73 0D 0A 73 e 0 to nomess..s
0067E0: 74 6F 72 65 20 23 20 74 6F 20 6E 6F 7A 6F 6E 65 tore # to nozone
0067F0: 0D 0A 73 74 6F 72 65 20 24 28 76 65 72 69 66 2C ..store $(verif,
006800: 31 2C 31 29 20 74 6F 20 76 65 72 31 0D 0A 73 74 1,1) to ver1..st
006810: 6F 72 65 20 24 28 76 65 72 69 66 2C 32 2C 31 29 ore $(verif,2,1)
006820: 20 74 6F 20 76 65 72 32 0D 0A 64 6F 20 63 61 73 to ver2..do cas
006830: 65 0D 0A 63 61 73 65 20 76 65 72 32 3D 27 44 27 e..case ver2='D'
006840: 0D 0A 73 74 6F 72 65 20 24 28 26 6D 7A 6F 6E 2C ..store $(&mzon,
006850: 37 2C 32 29 2D 24 28 26 6D 7A 6F 6E 2C 34 2C 32 7,2)-$(&mzon,4,2
006860: 29 2D 24 28 26 6D 7A 6F 6E 2C 31 2C 32 29 20 74 )-$(&mzon,1,2) t
006870: 6F 20 76 61 6C 65 75 72 31 0D 0A 63 61 73 65 20 o valeur1..case
006880: 76 65 72 32 3D 27 4D 27 0D 0A 73 74 6F 72 65 20 ver2='M'..store
006890: 24 28 26 6D 7A 6F 6E 2C 34 2C 32 29 2D 24 28 26 $(&mzon,4,2)-$(&
0068A0: 6D 7A 6F 6E 2C 31 2C 32 29 20 74 6F 20 76 61 6C mzon,1,2) to val
0068B0: 65 75 72 31 0D 0A 6F 74 68 65 72 77 69 73 65 0D eur1..otherwise.
0068C0: 0A 73 74 6F 72 65 20 26 6D 7A 6F 6E 20 74 6F 20 .store &mzon to
0068D0: 76 61 6C 65 75 72 31 0D 0A 65 6E 64 63 61 73 65 valeur1..endcase
0068E0: 0D 0A 2A 20 76 65 72 69 66 69 65 72 20 70 61 73 ..* verifier pas
0068F0: 20 64 65 70 61 73 73 65 6D 65 6E 74 20 63 61 70 depassement cap
006900: 74 61 70 65 7A 20 72 65 74 75 72 6E 20 70 6F 75 tapez return pou
006910: 72 20 61 62 61 6E 64 6F 6E 6E 65 72 22 0D 0A 20 r abandonner"..
006920: 20 20 72 65 61 64 0D 0A 20 20 20 40 20 6C 69 67 read.. @ lig
006930: 6D 31 2C 30 0D 0A 20 20 20 2A 20 76 65 75 74 2D m1,0.. * veut-
006940: 6F 6E 20 73 6F 72 74 69 72 0D 0A 20 20 20 69 66 on sortir.. if
006950: 20 6D 6E 6F 6D 3D 27 20 27 0D 0A 20 20 20 20 20 mnom=' '..
006960: 20 72 65 6C 65 61 73 65 20 71 75 65 73 74 2C 6D release quest,m
006970: 6E 6F 6D 2C 63 6F 72 72 65 63 74 0D 0A 20 20 20 nom,correct..
006980: 20 20 20 75 73 65 0D 0A 20 20 20 20 20 20 72 65 use.. re
006990: 74 75 72 6E 0D 0A 20 20 20 65 6E 64 69 66 0D 0A turn.. endif..
0069A0: 20 20 20 73 74 6F 72 65 20 21 28 6D 6E 6F 6D 29 store !(mnom)
0069B0: 20 74 6F 20 6D 6E 6F 6D 0D 0A 20 20 20 2A 20 6C to mnom.. * l
0069C0: 65 20 6E 6F 6D 20 65 78 69 73 74 65 2D 74 2D 69 e nom existe-t-i
0069D0: 6C 20 3F 0D 0A 20 20 20 73 74 6F 72 65 20 65 6C l ?.. store el
0069E0: 65 6D 2D 6D 6E 6F 6D 20 74 6F 20 6D 6E 6F 6D 0D em-mnom to mnom.
0069F0: 0A 20 20 20 66 69 6E 64 20 26 6D 6E 6F 6D 0D 0A . find &mnom..
006A00: 20 20 20 69 66 20 23 20 3D 20 30 0D 0A 20 20 20 if # = 0..
006A10: 20 20 20 64 6F 20 61 66 66 6D 65 73 73 0D 0A 20 do affmess..
006A20: 20 20 65 6C 73 65 0D 0A 20 20 20 20 20 20 69 66 else.. if
006A30: 20 65 6C 65 6D 3D 27 43 27 2E 61 6E 64 2E 74 79 elem='C'.and.ty
006A40: 70 63 3D 27 50 27 0D 0A 20 20 20 20 20 20 20 20 pc='P'..
006A50: 20 73 74 6F 72 65 20 31 38 20 74 6F 20 6E 6F 6D store 18 to nom
006A60: 65 73 73 0D 0A 20 20 20 20 20 20 20 20 20 64 6F ess.. do
006A70: 20 61 66 66 6D 65 73 73 0D 0A 20 20 20 20 20 20 affmess..
006A80: 65 6C 73 65 0D 0A 20 20 20 20 20 20 20 20 20 73 else.. s
006A90: 74 6F 72 65 20 27 74 27 20 74 6F 20 63 6F 72 72 tore 't' to corr
006AA0: 65 63 74 0D 0A 20 20 20 20 20 20 65 6E 64 69 66 ect.. endif
006AB0: 0D 0A 20 20 20 65 6E 64 69 66 0D 0A 65 6E 64 64 .. endif..endd
006AC0: 6F 0D 0A 72 65 6C 65 61 73 65 20 63 6F 72 72 65 o..release corre
006AD0: 63 74 0D 0A 40 20 37 2C 31 30 20 73 61 79 20 27 ct..@ 7,10 say '
006AE0: 6C 69 62 65 6C 6C 65 27 0D 0A 40 20 37 2C 34 30 libelle'..@ 7,40
006AF0: 20 73 61 79 20 6C 69 62 65 6C 65 6D 0D 0A 73 74 say libelem..st
006B00: 61 63 69 74 65 20 6E 75 6D 65 72 69 71 75 65 0D acite numerique.
006B10: 0A 69 66 20 66 69 65 6C 64 3A 74 79 70 65 3D 20 .if field:type=
006B20: 27 4E 27 0D 0A 20 20 73 74 6F 72 65 20 27 39 39 'N'.. store '99
006B30: 39 39 39 39 39 39 39 39 39 39 39 39 39 39 39 39 9999999999999999
006B40: 39 39 27 20 74 6F 20 6E 65 75 66 0D 0A 20 20 69 99' to neuf.. i
006B50: 66 20 66 69 65 6C 64 3A 64 65 63 20 3D 20 30 0D f field:dec = 0.
006B60: 0A 20 20 73 74 6F 72 65 20 66 69 65 6C 64 3A 6C . store field:l
006B70: 65 6E 20 74 6F 20 6E 62 65 6E 74 0D 0A 20 20 65 en to nbent.. e
006B80: 6C 73 65 0D 0A 20 20 73 74 6F 72 65 20 66 69 65 lse.. store fie
006B90: 6C 64 3A 6C 65 6E 2D 66 69 65 6C 64 3A 64 65 63 ld:len-field:dec
006BA0: 2D 31 20 74 6F 20 6E 62 65 6E 74 0D 0A 20 20 65 -1 to nbent.. e
006BB0: 6E 64 69 66 0D 0A 20 20 69 66 20 66 69 65 6C 64 ndif.. if field
006BC0: 3A 64 65 63 20 3D 20 30 0D 0A 20 20 73 74 6F 72 :dec = 0.. stor
006BD0: 65 20 24 28 6E 65 75 66 2C 31 2C 6E 62 65 6E 74 e $(neuf,1,nbent
006BE0: 29 20 74 6F 20 6D 61 78 70 6F 73 0D 0A 20 20 69 ) to maxpos.. i
006BF0: 66 20 6E 62 65 6E 74 20 3D 20 31 0D 0A 20 20 73 f nbent = 1.. s
006C00: 74 6F 72 65 20 27 30 27 20 74 6F 20 6D 69 6E 70 tore '0' to minp
006C10: 6F 73 0D 0A 20 20 65 6C 73 65 0D 0A 20 20 73 74 os.. else.. st
006C20: 6F 72 65 20 27 2D 27 2D 24 28 6E 65 75 66 2C 31 ore '-'-$(neuf,1
006C30: 2C 6E 62 65 6E 74 2D 31 29 20 74 6F 20 6D 69 6E ,nbent-1) to min
006C40: 70 6F 73 0D 0A 20 20 65 6E 64 69 66 0D 0A 20 20 pos.. endif..
006C50: 65 6C 73 65 0D 0A 20 20 73 74 6F 72 65 20 24 28 else.. store $(
006C60: 6E 65 75 66 2C 31 2C 6E 62 65 6E 74 29 2D 27 2E neuf,1,nbent)-'.
006C70: 27 2D 24 28 6E 65 75 66 2C 31 2C 66 69 65 6C 64 '-$(neuf,1,field
006C80: 3A 64 65 63 29 20 74 6F 20 6D 61 78 70 6F 73 0D :dec) to maxpos.
006C90: 0A 20 20 69 66 20 6E 62 65 6E 74 20 3D 20 31 0D . if nbent = 1.
006CA0: 0A 20 20 73 74 6F 72 65 20 27 2D 2E 27 2D 24 28 . store '-.'-$(
006CB0: 6E 65 75 66 2C 31 2C 66 69 65 6C 64 3A 64 65 63 neuf,1,field:dec
006CC0: 29 20 74 6F 20 6D 69 6E 70 6F 73 0D 0A 20 20 65 ) to minpos.. e
006CD0: 6C 73 65 0D 0A 20 20 73 74 6F 72 65 20 27 2D 27 lse.. store '-'
006CE0: 2D 24 28 6E 65 75 66 2C 31 2C 6E 62 65 6E 74 2D -$(neuf,1,nbent-
006CF0: 31 29 2D 27 2E 27 2D 24 28 6E 65 75 66 2C 31 2C 1)-'.'-$(neuf,1,
006D00: 6F 72 65 20 24 28 6D 6E 6F 6D 2C 32 2C 38 29 20 ore $(mnom,2,8)
006D10: 74 6F 20 6D 6E 6F 6D 0D 0A 69 66 20 65 6C 65 6D to mnom..if elem
006D20: 3D 27 4C 27 0D 0A 20 20 20 73 74 6F 72 65 20 75 ='L'.. store u
006D30: 6E 69 74 2D 6D 6E 6F 6D 2D 27 2E 66 72 6D 27 20 nit-mnom-'.frm'
006D40: 74 6F 20 6D 6E 6F 6D 0D 0A 65 6C 73 65 0D 0A 20 to mnom..else..
006D50: 20 20 40 20 39 2C 31 30 20 73 61 79 20 27 5A 4F @ 9,10 say 'ZO
006D60: 4E 45 20 31 3A 20 20 27 2B 7A 6F 6E 31 2B 27 20 NE 1: '+zon1+'
006D70: 20 20 64 65 20 20 20 27 2B 64 65 62 31 2B 27 20 de '+deb1+'
006D80: 20 20 61 20 20 20 27 2B 66 69 6E 31 0D 0A 20 20 a '+fin1..
006D90: 20 40 20 31 30 2C 31 30 20 73 61 79 20 27 5A 4F @ 10,10 say 'ZO
006DA0: 4E 45 20 32 3A 20 20 27 2B 7A 6F 6E 32 2B 27 20 NE 2: '+zon2+'
006DB0: 20 20 64 65 20 20 20 27 2B 64 65 62 32 2B 27 20 de '+deb2+'
006DC0: 20 20 61 20 20 20 27 2B 66 69 6E 32 0D 0A 20 20 a '+fin2..
006DD0: 20 40 20 31 31 2C 31 30 20 73 61 79 20 27 5A 4F @ 11,10 say 'ZO
006DE0: 4E 45 20 33 3A 20 20 27 2B 7A 6F 6E 33 2B 27 20 NE 3: '+zon3+'
006DF0: 20 20 64 65 20 20 20 27 2B 64 65 62 33 2B 27 20 de '+deb3+'
006E00: 20 20 61 20 20 20 27 2B 66 69 6E 33 0D 0A 20 20 a '+fin3..
006E10: 20 40 20 31 31 2C 31 30 20 73 61 79 20 27 5A 4F @ 11,10 say 'ZO
006E20: 4E 45 20 34 3A 20 20 27 2B 7A 6F 6E 34 2B 27 20 NE 4: '+zon4+'
006E30: 20 20 64 65 20 20 20 27 2B 64 65 62 34 2B 27 20 de '+deb4+'
006E40: 20 20 61 20 20 20 27 2B 66 69 6E 34 0D 0A 20 20 a '+fin4..
006E50: 20 40 20 31 32 2C 31 30 20 73 61 79 20 27 5A 4F @ 12,10 say 'ZO
006E60: 4E 45 20 35 3A 20 20 27 2B 7A 6F 6E 35 2B 27 20 NE 5: '+zon5+'
006E70: 20 20 64 65 20 20 20 27 2B 64 65 62 35 2B 27 20 de '+deb5+'
006E80: 20 20 61 20 20 20 27 2B 66 69 6E 35 0D 0A 20 20 a '+fin5..
006E90: 20 73 74 6F 72 65 20 75 6E 69 74 2D 6D 6E 6F 6D store unit-mnom
006EA0: 2D 27 2E 6E 64 78 27 20 74 6F 20 6D 6E 6F 6D 0D -'.ndx' to mnom.
006EB0: 0A 65 6E 64 69 66 0D 0A 2A 20 64 65 6D 61 6E 64 .endif..* demand
006EC0: 65 20 64 65 20 63 6F 6E 66 69 72 6D 61 74 69 6F e de confirmatio
006ED0: 6E 0D 0A 64 6F 20 63 6F 6E 66 73 75 70 0D 0A 69 n..do confsup..i
006EE0: 66 20 21 28 63 6F 6E 66 69 72 6D 29 3D 27 4E 27 f !(confirm)='N'
006EF0: 0D 0A 20 20 20 72 65 6C 65 61 73 65 20 63 6F 6E .. release con
006F00: 66 69 65 6C 64 3A 64 65 63 29 20 74 6F 20 6D 69 field:dec) to mi
006F10: 6E 70 6F 73 0D 0A 20 20 65 6E 64 69 66 0D 0A 20 npos.. endif..
006F20: 20 65 6E 64 69 66 0D 0A 20 20 69 66 20 26 6D 7A endif.. if &mz
006F30: 6F 6E 3C 26 6D 69 6E 70 6F 73 2E 6F 72 2E 26 6D on<&minpos.or.&m
006F40: 7A 6F 6E 3E 26 6D 61 78 70 6F 73 0D 0A 20 20 73 zon>&maxpos.. s
006F50: 74 6F 72 65 20 31 33 33 20 74 6F 20 6E 6F 6D 65 tore 133 to nome
006F60: 73 73 0D 0A 20 20 73 74 6F 72 65 20 30 20 74 6F ss.. store 0 to
006F70: 20 26 6D 7A 6F 6E 0D 0A 20 20 65 6E 64 69 66 0D &mzon.. endif.
006F80: 0A 20 20 72 65 6C 65 61 73 65 20 6E 65 75 66 2C . release neuf,
006F90: 6D 69 6E 70 6F 73 2C 6D 61 78 70 6F 73 2C 6E 62 minpos,maxpos,nb
006FA0: 65 6E 74 0D 0A 65 6E 64 69 66 0D 0A 69 66 20 6E ent..endif..if n
006FB0: 6F 6D 65 73 73 3D 30 0D 0A 20 20 69 66 20 76 65 omess=0.. if ve
006FC0: 72 69 66 23 22 4E 41 22 0D 0A 20 20 20 20 73 74 rif#"NA".. st
006FD0: 6F 72 65 20 27 66 27 20 74 6F 20 7A 6F 6E 65 76 ore 'f' to zonev
006FE0: 69 64 65 0D 0A 20 20 20 20 64 6F 20 63 61 73 65 ide.. do case
006FF0: 0D 0A 20 20 20 20 63 61 73 65 20 66 69 65 6C 64 .. case field
007000: 3A 74 79 70 65 3D 27 43 27 0D 0A 20 20 20 20 69 :type='C'.. i
007010: 66 20 26 6D 7A 6F 6E 3D 27 30 30 2F 30 30 2F 30 f &mzon='00/00/0
007020: 30 27 2E 61 6E 64 2E 76 65 72 32 3D 27 44 27 2E 0'.and.ver2='D'.
007030: 6F 72 2E 26 6D 7A 6F 6E 3D 27 30 30 2F 30 30 27 or.&mzon='00/00'
007040: 2E 61 6E 64 2E 76 65 72 32 3D 27 4D 27 2E 6F 72 .and.ver2='M'.or
007050: 2E 26 6D 7A 6F 6E 3D 3B 0D 0A 20 20 20 20 27 20 .&mzon=;.. '
007060: 27 2E 61 6E 64 2E 76 65 72 32 23 27 44 27 2E 61 '.and.ver2#'D'.a
007070: 6E 64 2E 76 65 72 32 23 27 4D 27 0D 0A 20 20 20 nd.ver2#'M'..
007080: 20 73 74 6F 72 65 20 27 74 27 20 74 6F 20 7A 6F store 't' to zo
007090: 6E 65 76 69 64 65 0D 0A 20 20 20 20 65 6E 64 69 nevide.. endi
0070A0: 66 0D 0A 20 20 20 20 63 61 73 65 20 66 69 65 6C f.. case fiel
0070B0: 64 3A 74 79 70 65 3D 27 4E 27 0D 0A 20 20 20 20 d:type='N'..
0070C0: 69 66 20 26 6D 7A 6F 6E 3D 30 0D 0A 20 20 20 20 if &mzon=0..
0070D0: 73 74 6F 72 65 20 27 74 27 20 74 6F 20 7A 6F 6E store 't' to zon
0070E0: 65 76 69 64 65 0D 0A 20 20 20 20 65 6E 64 69 66 evide.. endif
0070F0: 0D 0A 20 20 20 20 65 6E 64 63 61 73 65 0D 0A 20 .. endcase..
007100: 66 69 72 6D 2C 71 75 65 73 74 2C 6D 6E 6F 6D 2C firm,quest,mnom,
007110: 65 6C 65 6D 0D 0A 20 20 20 75 73 65 0D 0A 20 20 elem.. use..
007120: 20 72 65 74 75 72 6E 0D 0A 65 6E 64 69 66 0D 0A return..endif..
007130: 73 74 6F 72 65 20 27 22 27 2D 6D 6E 6F 6D 2D 27 store '"'-mnom-'
007140: 22 27 20 74 6F 20 6E 6F 6D 7A 0D 0A 69 66 20 66 "' to nomz..if f
007150: 69 6C 65 28 26 6E 6F 6D 7A 29 0D 0A 20 20 20 64 ile(&nomz).. d
007160: 65 6C 65 20 66 69 6C 65 20 26 6D 6E 6F 6D 0D 0A ele file &mnom..
007170: 65 6C 73 65 0D 0A 20 20 20 3F 20 22 6C 65 20 66 else.. ? "le f
007180: 69 63 68 69 65 72 20 22 2B 24 28 6D 6E 6F 6D 2C ichier "+$(mnom,
007190: 33 2C 31 32 29 2B 22 20 6E 27 65 78 69 73 74 65 3,12)+" n'existe
0071A0: 20 70 61 73 20 73 75 72 20 6C 27 75 6E 69 74 65 pas sur l'unite
0071B0: 20 22 2B 75 6E 69 74 0D 0A 20 20 20 3F 0D 0A 65 "+unit.. ?..e
0071C0: 6E 64 69 66 0D 0A 2A 20 64 65 73 74 72 75 63 74 ndif..* destruct
0071D0: 69 6F 6E 20 64 65 20 6C 61 20 6C 69 73 74 65 20 ion de la liste
0071E0: 6F 75 20 64 65 20 6C 61 20 63 6C 65 20 64 61 6E ou de la cle dan
0071F0: 73 20 6C 65 20 66 69 63 68 69 65 72 20 64 65 73 s le fichier des
007200: 20 6C 69 73 74 65 73 20 6F 75 20 64 65 73 20 63 listes ou des c
007210: 6C 65 73 0D 0A 64 65 6C 65 74 65 0D 0A 70 61 63 les..delete..pac
007220: 6B 0D 0A 72 65 6C 65 61 73 65 20 6E 6F 6D 7A 2C k..release nomz,
007230: 6D 6E 6F 6D 2C 63 6F 6E 66 69 72 6D 2C 71 75 65 mnom,confirm,que
007240: 73 74 2C 65 6C 65 6D 0D 0A 75 73 65 0D 0A 72 65 st,elem..use..re
007250: 74 75 72 6E 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 1A 1A turn............
007260: 6C 20 74 72 61 69 74 65 6D 65 6E 74 20 76 6F 75 l traitement vou
007270: 6C 65 7A 2D 76 6F 75 73 20 65 66 66 65 63 74 75 lez-vous effectu
007280: 65 72 20 3F 20 27 0D 0A 20 20 20 40 20 31 38 2C er ? '.. @ 18,
007290: 35 35 20 53 41 59 20 22 49 20 52 65 70 6F 6E 73 55 SAY "I Repons
0072A0: 65 20 2D 2D 3E 20 20 20 20 20 20 20 20 20 20 49 e --> I
0072B0: 22 0D 0A 20 20 20 40 20 31 39 2C 35 35 20 53 41 ".. @ 19,55 SA
0072C0: 59 20 22 2B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D Y "+------------
0072D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2B 22 0D 0A 20 20 ----------+"..
0072E0: 20 63 6C 65 61 72 20 67 65 74 0D 0A 20 20 20 73 clear get.. s
0072F0: 65 74 20 69 6E 74 65 6E 73 69 74 79 20 6F 66 66 et intensity off
007300: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
007310: 06 00 01 00 02 09 4E E5 06 00 41 02 00 00 00 02 ......N...A.....
007320: 06 00 46 02 00 00 00 02 06 00 42 02 00 00 00 02 ..F.......B.....
007330: 06 00 47 02 00 00 00 02 06 00 43 02 00 00 00 02 ..G.......C.....
007340: 06 00 48 02 00 00 00 02 06 00 44 02 00 00 00 02 ..H.......D.....
007350: 06 00 49 02 00 00 00 02 06 00 45 02 00 00 00 02 ..I.......E.....
007360: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007370: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007380: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007390: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0073A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0073B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0073C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0073D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0073E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0073F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007400: 20 20 20 69 66 20 76 65 72 31 23 27 4E 27 0D 0A if ver1#'N'..
007410: 20 20 20 20 20 20 2A 20 74 65 73 74 65 72 20 6C * tester l
007420: 65 20 70 72 65 6D 69 65 72 20 63 6F 64 65 0D 0A e premier code..
007430: 20 20 20 20 20 20 64 6F 20 63 61 73 65 0D 0A 20 do case..
007440: 20 20 20 20 20 63 61 73 65 20 76 65 72 31 3D 27 case ver1='
007450: 4F 27 2E 61 6E 64 2E 7A 6F 6E 65 76 69 64 65 3D O'.and.zonevide=
007460: 27 74 27 0D 0A 20 20 20 20 20 20 73 74 6F 72 65 't'.. store
007470: 20 31 33 35 20 74 6F 20 6E 6F 6D 65 73 73 0D 0A 135 to nomess..
007480: 20 20 20 20 20 20 63 61 73 65 20 76 65 72 31 3D case ver1=
007490: 27 43 27 0D 0A 20 20 20 20 20 20 73 74 6F 72 65 'C'.. store
0074A0: 20 76 61 6C 31 20 74 6F 20 6E 6F 6D 7A 0D 0A 20 val1 to nomz..
0074B0: 20 20 20 20 20 73 65 74 20 69 6E 64 65 78 20 74 set index t
0074C0: 6F 20 26 78 6E 6F 6D 0D 0A 20 20 20 20 20 20 66 o &xnom.. f
0074D0: 69 6E 64 20 26 6E 6F 6D 7A 0D 0A 20 20 20 20 20 ind &nomz..
0074E0: 20 73 74 6F 72 65 20 27 6D 7A 6F 6E 27 2D 73 74 store 'mzon'-st
0074F0: 72 28 6E 6F 7A 2C 31 2B 69 6E 74 28 6E 6F 7A 2F r(noz,1+int(noz/
007500: 31 30 29 2D 69 6E 74 28 6E 6F 7A 2F 32 30 29 2D 10)-int(noz/20)-
007510: 69 6E 74 28 6E 6F 7A 2F 33 30 29 29 20 74 6F 20 int(noz/30)) to
007520: 6E 6F 6D 7A 0D 0A 20 20 20 20 20 20 73 74 6F 72 nomz.. stor
007530: 65 20 27 66 27 20 74 6F 20 76 69 64 65 0D 0A 20 e 'f' to vide..
007540: 20 20 20 20 20 64 6F 20 63 61 73 65 0D 0A 20 20 do case..
007550: 20 20 20 20 63 61 73 65 20 66 69 65 6C 64 3A 74 case field:t
007560: 79 70 65 3D 27 43 27 0D 0A 20 20 20 20 20 20 69 ype='C'.. i
007570: 66 20 26 6E 6F 6D 7A 3D 27 30 30 2F 30 30 2F 30 f &nomz='00/00/0
007580: 30 27 2E 61 6E 64 2E 24 28 76 65 72 69 66 2C 32 0'.and.$(verif,2
007590: 2C 31 29 3D 27 44 27 2E 6F 72 2E 26 6E 6F 6D 7A ,1)='D'.or.&nomz
0075A0: 3D 27 30 30 2F 30 30 27 3B 0D 0A 2E 61 6E 64 2E ='00/00';...and.
0075B0: 24 28 76 65 72 69 66 2C 32 2C 31 29 3D 27 4D 27 $(verif,2,1)='M'
0075C0: 2E 6F 72 2E 26 6E 6F 6D 7A 3D 27 20 27 2E 61 6E .or.&nomz=' '.an
0075D0: 64 2E 24 28 76 65 72 69 66 2C 32 2C 31 29 23 27 d.$(verif,2,1)#'
0075E0: 44 27 2E 61 6E 64 2E 24 28 76 65 72 69 66 2C 32 D'.and.$(verif,2
0075F0: 2C 31 29 23 27 4D 27 0D 0A 20 20 20 20 20 20 73 ,1)#'M'.. s
007600: 20 20 20 20 20 72 65 6C 65 61 73 65 20 66 69 6E release fin
007610: 6C 69 73 74 65 2C 74 72 6F 75 76 65 2C 6C 69 73 liste,trouve,lis
007620: 74 65 2C 70 6F 73 66 69 6E 0D 0A 20 20 20 20 20 te,posfin..
007630: 20 65 6E 64 63 61 73 65 0D 0A 20 20 20 20 20 20 endcase..
007640: 69 66 20 6E 6F 6D 65 73 73 3D 30 2E 61 6E 64 2E if nomess=0.and.
007650: 28 76 65 72 32 3D 27 42 27 2E 6F 72 2E 76 65 72 (ver2='B'.or.ver
007660: 32 3D 27 44 27 2E 6F 72 2E 76 65 72 32 3D 27 4D 2='D'.or.ver2='M
007670: 27 29 0D 0A 20 20 20 20 20 20 20 20 73 74 6F 72 ').. stor
007680: 65 20 27 66 27 20 74 6F 20 70 61 73 66 69 6E 0D e 'f' to pasfin.
007690: 0A 20 20 20 20 20 20 20 20 64 6F 20 63 61 73 65 . do case
0076A0: 0D 0A 20 20 20 20 20 20 20 20 63 61 73 65 20 76 .. case v
0076B0: 65 72 32 3D 27 44 27 0D 0A 20 20 20 20 20 20 20 er2='D'..
0076C0: 20 73 74 6F 72 65 20 24 28 76 61 6C 32 2C 37 2C store $(val2,7,
0076D0: 32 29 2D 24 28 76 61 6C 32 2C 34 2C 32 29 2D 24 2)-$(val2,4,2)-$
0076E0: 28 76 61 6C 32 2C 31 2C 32 29 20 74 6F 20 76 61 (val2,1,2) to va
0076F0: 6C 65 75 72 32 0D 0A 20 20 20 20 20 20 20 20 73 leur2.. s
007700: 74 6F 72 65 20 24 28 76 61 6C 33 2C 37 2C 32 29 tore $(val3,7,2)
007710: 2D 24 28 76 61 6C 33 2C 34 2C 32 29 2D 24 28 76 -$(val3,4,2)-$(v
007720: 61 6C 33 2C 31 2C 32 29 20 74 6F 20 76 61 6C 65 al3,1,2) to vale
007730: 75 72 33 0D 0A 20 20 20 20 20 20 20 20 69 66 20 ur3.. if
007740: 76 61 6C 65 75 72 33 3D 27 30 30 30 30 30 30 27 valeur3='000000'
007750: 0D 0A 20 20 20 20 20 20 20 20 73 74 6F 72 65 20 .. store
007760: 27 74 27 20 74 6F 20 70 61 73 66 69 6E 0D 0A 20 't' to pasfin..
007770: 20 20 20 20 20 20 20 65 6E 64 69 66 0D 0A 20 20 endif..
007780: 20 20 20 20 20 20 63 61 73 65 20 76 65 72 32 3D case ver2=
007790: 27 4D 27 0D 0A 20 20 20 20 20 20 20 20 73 74 6F 'M'.. sto
0077A0: 72 65 20 24 28 76 61 6C 32 2C 34 2C 32 29 2D 24 re $(val2,4,2)-$
0077B0: 28 76 61 6C 32 2C 31 2C 32 29 20 74 6F 20 76 61 (val2,1,2) to va
0077C0: 6C 65 75 72 32 0D 0A 20 20 20 20 20 20 20 20 73 leur2.. s
0077D0: 74 6F 72 65 20 24 28 76 61 6C 33 2C 34 2C 32 29 tore $(val3,4,2)
0077E0: 2D 24 28 76 61 6C 33 2C 31 2C 32 29 20 74 6F 20 -$(val3,1,2) to
0077F0: 76 61 6C 65 75 72 33 0D 0A 20 20 20 20 20 20 20 valeur3..
007800: 74 6F 72 65 20 27 74 27 20 74 6F 20 76 69 64 65 tore 't' to vide
007810: 0D 0A 20 20 20 20 20 20 65 6E 64 69 66 0D 0A 20 .. endif..
007820: 20 20 20 20 20 63 61 73 65 20 66 69 65 6C 64 3A case field:
007830: 74 79 70 65 3D 27 4E 27 0D 0A 20 20 20 20 20 20 type='N'..
007840: 69 66 20 26 6E 6F 6D 7A 3D 30 0D 0A 20 20 20 20 if &nomz=0..
007850: 20 20 73 74 6F 72 65 20 27 74 27 20 74 6F 20 76 store 't' to v
007860: 69 64 65 0D 0A 20 20 20 20 20 20 65 6E 64 69 66 ide.. endif
007870: 0D 0A 20 20 20 20 20 20 65 6E 64 63 61 73 65 0D .. endcase.
007880: 0A 20 20 20 20 20 20 67 6F 74 6F 20 6E 6F 7A 6F . goto nozo
007890: 6E 65 0D 0A 20 20 20 20 20 20 69 66 20 76 69 64 ne.. if vid
0078A0: 65 3D 27 66 27 2E 61 6E 64 2E 7A 6F 6E 65 76 69 e='f'.and.zonevi
0078B0: 64 65 3D 27 74 27 0D 0A 20 20 20 20 20 20 73 74 de='t'.. st
0078C0: 6F 72 65 20 31 33 36 20 74 6F 20 6E 6F 6D 65 73 ore 136 to nomes
0078D0: 73 0D 0A 20 20 20 20 20 20 65 6E 64 69 66 0D 0A s.. endif..
0078E0: 20 20 20 20 20 20 72 65 6C 65 61 73 65 20 6E 6F release no
0078F0: 6D 7A 2C 76 69 64 65 0D 0A 20 20 20 20 20 20 63 mz,vide.. c
007900: 61 73 65 20 76 65 72 31 3D 27 47 27 2E 6F 72 2E ase ver1='G'.or.
007910: 76 65 72 31 3D 27 50 27 0D 0A 20 20 20 20 20 20 ver1='P'..
007920: 73 74 6F 72 65 20 76 61 6C 31 20 74 6F 20 6E 6F store val1 to no
007930: 6D 7A 0D 0A 20 20 20 20 20 20 73 65 74 20 69 6E mz.. set in
007940: 64 65 78 20 74 6F 20 26 78 6E 6F 6D 0D 0A 20 20 dex to &xnom..
007950: 20 20 20 20 66 69 6E 64 20 26 6E 6F 6D 7A 0D 0A find &nomz..
007960: 20 20 20 20 20 20 73 74 6F 72 65 20 27 6D 7A 6F store 'mzo
007970: 6E 27 2D 73 74 72 28 6E 6F 7A 2C 69 6E 74 28 6E n'-str(noz,int(n
007980: 6F 7A 2F 31 30 29 2B 31 2D 69 6E 74 28 6E 6F 7A oz/10)+1-int(noz
007990: 2F 32 30 29 2D 69 6E 74 28 6E 6F 7A 2F 33 30 29 /20)-int(noz/30)
0079A0: 29 20 74 6F 20 6E 6F 6D 7A 0D 0A 20 20 20 20 20 ) to nomz..
0079B0: 20 64 6F 20 63 61 73 65 0D 0A 20 20 20 20 20 20 do case..
0079C0: 63 61 73 65 20 76 65 72 32 3D 27 44 27 0D 0A 20 case ver2='D'..
0079D0: 20 20 20 20 20 73 74 6F 72 65 20 24 28 26 6E 6F store $(&no
0079E0: 6D 7A 2C 37 2C 32 29 2D 24 28 26 6E 6F 6D 7A 2C mz,7,2)-$(&nomz,
0079F0: 34 2C 32 29 2D 24 28 26 6E 6F 6D 7A 2C 31 2C 32 4,2)-$(&nomz,1,2
007A00: 20 69 66 20 76 61 6C 65 75 72 33 3D 27 30 30 30 if valeur3='000
007A10: 30 27 0D 0A 20 20 20 20 20 20 20 20 73 74 6F 72 0'.. stor
007A20: 65 20 27 74 27 20 74 6F 20 70 61 73 66 69 6E 0D e 't' to pasfin.
007A30: 0A 20 20 20 20 20 20 20 20 65 6E 64 69 66 0D 0A . endif..
007A40: 20 20 20 20 20 20 20 20 63 61 73 65 20 66 69 65 case fie
007A50: 6C 64 3A 74 79 70 65 3D 27 43 27 0D 0A 20 20 20 ld:type='C'..
007A60: 20 20 20 20 20 69 66 20 66 69 65 6C 64 3A 6C 65 if field:le
007A70: 6E 20 3C 20 31 30 0D 0A 20 20 20 20 20 20 20 20 n < 10..
007A80: 73 74 6F 72 65 20 24 28 76 61 6C 32 2C 31 2C 66 store $(val2,1,f
007A90: 69 65 6C 64 3A 6C 65 6E 29 20 74 6F 20 76 61 6C ield:len) to val
007AA0: 65 75 72 32 0D 0A 20 20 20 20 20 20 20 20 73 74 eur2.. st
007AB0: 6F 72 65 20 24 28 76 61 6C 33 2C 31 2C 66 69 65 ore $(val3,1,fie
007AC0: 6C 64 3A 6C 65 6E 29 20 74 6F 20 76 61 6C 65 75 ld:len) to valeu
007AD0: 72 33 0D 0A 20 20 20 20 20 20 20 20 65 6C 73 65 r3.. else
007AE0: 0D 0A 20 20 20 20 20 20 20 20 73 74 6F 72 65 20 .. store
007AF0: 24 28 76 61 6C 32 2C 31 2C 31 30 29 20 74 6F 20 $(val2,1,10) to
007B00: 76 61 6C 65 75 72 32 0D 0A 20 20 20 20 20 20 20 valeur2..
007B10: 20 73 74 6F 72 65 20 24 28 76 61 6C 33 2C 31 2C store $(val3,1,
007B20: 31 30 29 20 74 6F 20 76 61 6C 65 75 72 33 0D 0A 10) to valeur3..
007B30: 20 20 20 20 20 20 20 20 65 6E 64 69 66 0D 0A 20 endif..
007B40: 20 20 20 20 20 20 20 69 66 20 76 61 6C 65 75 72 if valeur
007B50: 33 3D 27 20 27 0D 0A 20 20 20 20 20 20 20 20 73 3=' '.. s
007B60: 74 6F 72 65 20 27 74 27 20 74 6F 20 70 61 73 66 tore 't' to pasf
007B70: 69 6E 0D 0A 20 20 20 20 20 20 20 20 65 6E 64 69 in.. endi
007B80: 66 0D 0A 20 20 20 20 20 20 20 20 6F 74 68 65 72 f.. other
007B90: 77 69 73 65 0D 0A 20 20 20 20 20 20 20 20 73 74 wise.. st
007BA0: 6F 72 65 20 76 61 6C 28 76 61 6C 32 29 20 74 6F ore val(val2) to
007BB0: 20 76 61 6C 65 75 72 32 0D 0A 20 20 20 20 20 20 valeur2..
007BC0: 20 20 73 74 6F 72 65 20 76 61 6C 28 76 61 6C 33 store val(val3
007BD0: 29 20 74 6F 20 76 61 6C 65 75 72 33 0D 0A 20 20 ) to valeur3..
007BE0: 20 20 20 20 20 20 69 66 20 76 61 6C 65 75 72 33 if valeur3
007BF0: 3D 30 0D 0A 20 20 20 20 20 20 20 20 73 74 6F 72 =0.. stor
007C00: 29 20 74 6F 20 76 61 6C 65 75 72 32 0D 0A 20 20 ) to valeur2..
007C10: 20 20 20 20 63 61 73 65 20 76 65 72 32 3D 27 4D case ver2='M
007C20: 27 0D 0A 20 20 20 20 20 20 73 74 6F 72 65 20 24 '.. store $
007C30: 28 26 6E 6F 6D 7A 2C 34 2C 32 29 2D 24 28 26 6E (&nomz,4,2)-$(&n
007C40: 6F 6D 7A 2C 31 2C 32 29 20 74 6F 20 76 61 6C 65 omz,1,2) to vale
007C50: 75 72 32 0D 0A 20 20 20 20 20 20 6F 74 68 65 72 ur2.. other
007C60: 77 69 73 65 0D 0A 20 20 20 20 20 20 73 74 6F 72 wise.. stor
007C70: 65 20 26 6E 6F 6D 7A 20 74 6F 20 76 61 6C 65 75 e &nomz to valeu
007C80: 72 32 0D 0A 20 20 20 20 20 20 65 6E 64 63 61 73 r2.. endcas
007C90: 65 0D 0A 20 20 20 20 20 20 67 6F 74 6F 20 6E 6F e.. goto no
007CA0: 7A 6F 6E 65 0D 0A 20 20 20 20 20 20 69 66 20 76 zone.. if v
007CB0: 61 6C 65 75 72 31 20 3C 20 76 61 6C 65 75 72 32 aleur1 < valeur2
007CC0: 2E 61 6E 64 2E 76 65 72 31 3D 27 47 27 0D 0A 20 .and.ver1='G'..
007CD0: 20 20 20 20 20 73 74 6F 72 65 20 31 33 37 20 74 store 137 t
007CE0: 6F 20 6E 6F 6D 65 73 73 0D 0A 20 20 20 20 20 20 o nomess..
007CF0: 65 6E 64 69 66 0D 0A 20 20 20 20 20 20 69 66 20 endif.. if
007D00: 76 61 6C 65 75 72 31 20 3E 20 76 61 6C 65 75 72 valeur1 > valeur
007D10: 32 2E 61 6E 64 2E 76 65 72 31 3D 27 50 27 0D 0A 2.and.ver1='P'..
007D20: 20 20 20 20 20 20 73 74 6F 72 65 20 31 33 38 20 store 138
007D30: 74 6F 20 6E 6F 6D 65 73 73 0D 0A 20 20 20 20 20 to nomess..
007D40: 20 65 6E 64 69 66 0D 0A 20 20 20 20 20 20 72 65 endif.. re
007D50: 6C 65 61 73 65 20 6E 6F 6D 7A 2C 76 61 6C 65 75 lease nomz,valeu
007D60: 72 32 0D 0A 20 20 20 20 20 20 65 6E 64 63 61 73 r2.. endcas
007D70: 65 0D 0A 20 20 20 20 65 6E 64 69 66 0D 0A 20 20 e.. endif..
007D80: 20 20 69 66 20 6E 6F 6D 65 73 73 20 3D 20 30 2E if nomess = 0.
007D90: 61 6E 64 2E 7A 6F 6E 65 76 69 64 65 3D 27 66 27 and.zonevide='f'
007DA0: 2E 61 6E 64 2E 76 65 72 32 23 27 41 27 0D 0A 20 .and.ver2#'A'..
007DB0: 20 20 20 20 20 64 6F 20 63 61 73 65 0D 0A 20 20 do case..
007DC0: 20 20 20 20 63 61 73 65 20 76 65 72 32 3D 27 44 case ver2='D
007DD0: 27 2E 6F 72 2E 76 65 72 32 3D 27 4D 27 0D 0A 20 '.or.ver2='M'..
007DE0: 20 20 20 20 20 69 66 20 28 26 6D 7A 6F 6E 20 23 if (&mzon #
007DF0: 20 27 30 30 2F 30 30 2F 30 30 27 2E 61 6E 64 2E '00/00/00'.and.
007E00: 65 20 27 74 27 20 74 6F 20 70 61 73 66 69 6E 0D e 't' to pasfin.
007E10: 0A 20 20 20 20 20 20 20 20 65 6E 64 69 66 0D 0A . endif..
007E20: 20 20 20 20 20 20 20 20 65 6E 64 63 61 73 65 0D endcase.
007E30: 0A 20 20 20 20 20 20 20 20 69 66 20 76 61 6C 65 . if vale
007E40: 75 72 31 20 3C 20 76 61 6C 65 75 72 32 20 2E 6F ur1 < valeur2 .o
007E50: 72 2E 20 28 76 61 6C 65 75 72 31 20 3E 20 76 61 r. (valeur1 > va
007E60: 6C 65 75 72 33 3B 0D 0A 20 20 20 20 20 20 20 20 leur3;..
007E70: 2E 61 6E 64 2E 70 61 73 66 69 6E 3D 27 66 27 29 .and.pasfin='f')
007E80: 0D 0A 20 20 20 20 20 20 20 20 73 74 6F 72 65 20 .. store
007E90: 31 33 39 20 74 6F 20 6E 6F 6D 65 73 73 0D 0A 20 139 to nomess..
007EA0: 20 20 20 20 20 20 20 65 6E 64 69 66 0D 0A 20 20 endif..
007EB0: 20 20 20 20 20 20 72 65 6C 65 61 73 65 20 76 61 release va
007EC0: 6C 65 75 72 32 2C 76 61 6C 65 75 72 33 2C 70 61 leur2,valeur3,pa
007ED0: 73 66 69 6E 0D 0A 20 20 20 20 20 20 65 6E 64 69 sfin.. endi
007EE0: 66 0D 0A 20 20 20 20 65 6E 64 69 66 0D 0A 20 20 f.. endif..
007EF0: 65 6E 64 69 66 0D 0A 65 6E 64 69 66 0D 0A 73 74 endif..endif..st
007F00: 6F 72 65 20 63 70 74 2B 31 20 74 6F 20 63 70 74 ore cpt+1 to cpt
007F10: 0D 0A 65 6E 64 69 66 0D 0A 65 6E 64 64 6F 0D 0A ..endif..enddo..
007F20: 40 20 6C 69 67 6D 31 2C 30 0D 0A 72 65 6C 65 61 @ ligm1,0..relea
007F30: 73 65 20 7A 6F 6E 65 76 69 64 65 2C 76 31 2C 76 se zonevide,v1,v
007F40: 32 2C 63 70 74 2C 6E 6F 7A 6F 6E 65 2C 76 65 72 2,cpt,nozone,ver
007F50: 31 2C 76 65 72 32 2C 76 61 6C 65 75 72 31 0D 0A 1,ver2,valeur1..
007F60: 72 65 74 75 72 6E 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A return..........
007F70: 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A ................
007F80: 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 1A 1A 0D 0A 0D 0A ................
007F90: 0D 0A 1A 1A 69 66 0D 0A 20 20 20 20 20 20 65 6E ....if.. en
007FA0: 64 69 66 0D 0A 20 20 20 20 20 20 65 6E 64 64 6F dif.. enddo
007FB0: 0D 0A 20 20 20 20 20 20 69 66 20 74 72 6F 75 76 .. if trouv
007FC0: 65 3D 27 66 27 0D 0A 20 20 20 20 20 20 73 74 6F e='f'.. sto
007FD0: 72 65 20 31 34 30 20 74 6F 20 6E 6F 6D 65 73 73 re 140 to nomess
007FE0: 0D 0A 20 20 20 20 20 20 65 6E 64 69 66 0D 0A 20 .. endif..
007FF0: 20 20 20 20 20 72 65 6C 65 61 73 65 20 66 69 6E release fin
008000: 6C 65 6E 28 26 6D 7A 6F 6E 29 3D 38 29 2E 6F 72 len(&mzon)=8).or
008010: 2E 28 26 6D 7A 6F 6E 23 27 30 30 2F 30 30 27 3B .(&mzon#'00/00';
008020: 0D 0A 20 20 20 20 20 20 2E 61 6E 64 2E 6C 65 6E .. .and.len
008030: 28 26 6D 7A 6F 6E 29 3D 35 29 0D 0A 20 20 20 20 (&mzon)=5)..
008040: 20 20 73 74 6F 72 65 20 76 61 6C 28 24 28 26 6D store val($(&m
008050: 7A 6F 6E 2C 31 2C 32 29 29 20 74 6F 20 6A 0D 0A zon,1,2)) to j..
008060: 20 20 20 20 20 20 73 74 6F 72 65 20 76 61 6C 28 store val(
008070: 24 28 26 6D 7A 6F 6E 2C 34 2C 32 29 29 20 74 6F $(&mzon,4,2)) to
008080: 20 6D 0D 0A 20 20 20 20 20 20 69 66 20 6C 65 6E m.. if len
008090: 28 26 6D 7A 6F 6E 29 3D 38 0D 0A 20 20 20 20 20 (&mzon)=8..
0080A0: 20 73 74 6F 72 65 20 76 61 6C 28 24 28 26 6D 7A store val($(&mz
0080B0: 6F 6E 2C 37 2C 32 29 29 20 74 6F 20 61 6E 0D 0A on,7,2)) to an..
0080C0: 20 20 20 20 20 20 65 6C 73 65 0D 0A 20 20 20 20 else..
0080D0: 20 20 73 74 6F 72 65 20 30 20 74 6F 20 61 6E 0D store 0 to an.
0080E0: 0A 20 20 20 20 20 20 65 6E 64 69 66 0D 0A 20 20 . endif..
0080F0: 20 20 20 20 69 66 20 6D 3C 31 2E 6F 72 2E 6D 3E if m<1.or.m>
008100: 31 32 2E 6F 72 2E 6A 3C 31 2E 6F 72 2E 6A 3E 33 12.or.j<1.or.j>3
008110: 31 2E 6F 72 2E 28 6D 3D 34 2E 6F 72 2E 6D 3D 36 1.or.(m=4.or.m=6
008120: 2E 6F 72 2E 6D 3D 39 2E 6F 72 2E 3B 0D 0A 6D 3D .or.m=9.or.;..m=
008130: 31 31 29 2E 61 6E 64 2E 6A 3E 33 30 2E 6F 72 2E 11).and.j>30.or.
008140: 6D 3D 32 2E 61 6E 64 2E 6A 3E 32 39 2E 6F 72 2E m=2.and.j>29.or.
008150: 28 61 6E 2F 34 29 23 69 6E 74 28 61 6E 2F 34 29 (an/4)#int(an/4)
008160: 2E 61 6E 64 2E 6D 3D 32 2E 61 6E 64 2E 6A 3E 32 .and.m=2.and.j>2
008170: 38 0D 0A 20 20 20 20 20 20 73 74 6F 72 65 20 31 8.. store 1
008180: 30 32 20 74 6F 20 6E 6F 6D 65 73 73 0D 0A 20 20 02 to nomess..
008190: 20 20 20 20 65 6E 64 69 66 0D 0A 20 20 20 20 20 endif..
0081A0: 20 65 6E 64 69 66 0D 0A 20 20 20 20 20 20 72 65 endif.. re
0081B0: 6C 65 61 73 65 20 6A 2C 6D 2C 61 6E 0D 0A 20 20 lease j,m,an..
0081C0: 20 20 20 20 63 61 73 65 20 76 65 72 32 3D 27 4C case ver2='L
0081D0: 27 0D 0A 20 20 20 20 20 20 73 74 6F 72 65 20 27 '.. store '
0081E0: 66 27 20 74 6F 20 66 69 6E 6C 69 73 74 65 0D 0A f' to finliste..
0081F0: 20 20 20 20 20 20 73 74 6F 72 65 20 27 66 27 20 store 'f'
008200: 2A 20 70 69 63 74 75 72 65 20 3A 20 70 72 65 70 * picture : prep
008210: 61 72 65 72 20 6C 65 20 70 69 63 74 75 72 65 20 arer le picture
008220: 64 65 20 6C 61 20 7A 6F 6E 65 20 61 20 73 61 69 de la zone a sai
008230: 73 69 72 0D 0A 2A 20 72 65 6E 64 20 65 6E 20 73 sir..* rend en s
008240: 6F 72 74 69 65 20 6C 65 20 70 69 63 74 75 72 65 ortie le picture
008250: 20 64 61 6E 73 20 6C 61 20 76 61 72 69 61 62 6C dans la variabl
008260: 65 20 70 69 63 0D 0A 2A 20 6C 27 65 6E 72 65 67 e pic..* l'enreg
008270: 69 73 74 72 65 6D 65 6E 74 20 64 65 20 66 72 65 istrement de fre
008280: 66 20 63 6F 72 72 65 73 70 6F 6E 64 61 6E 74 20 f correspondant
008290: 61 20 6C 61 20 7A 6F 6E 65 20 61 20 65 74 65 20 a la zone a ete
0082A0: 6C 75 20 61 76 61 6E 74 20 6C 27 61 70 70 65 6C lu avant l'appel
0082B0: 20 61 20 63 65 0D 0A 2A 20 70 72 6F 67 72 61 6D a ce..* program
0082C0: 6D 65 0D 0A 0D 0A 73 74 6F 72 65 20 27 39 39 39 me....store '999
0082D0: 39 39 39 39 39 39 39 39 39 39 39 39 39 39 39 39 9999999999999999
0082E0: 39 27 20 74 6F 20 6E 65 75 66 0D 0A 64 6F 20 63 9' to neuf..do c
0082F0: 61 73 65 0D 0A 20 20 20 63 61 73 65 20 66 69 65 ase.. case fie
008300: 6C 64 3A 74 79 70 65 3D 20 27 4E 27 0D 0A 20 20 ld:type= 'N'..
008310: 20 69 66 20 66 69 65 6C 64 3A 64 65 63 3D 30 0D if field:dec=0.
008320: 0A 20 20 20 20 20 20 73 74 6F 72 65 20 66 69 65 . store fie
008330: 6C 64 3A 6C 65 6E 20 74 6F 20 6E 62 65 6E 74 0D ld:len to nbent.
008340: 0A 20 20 20 65 6C 73 65 0D 0A 20 20 20 20 20 20 . else..
008350: 73 74 6F 72 65 20 66 69 65 6C 64 3A 6C 65 6E 2D store field:len-
008360: 66 69 65 6C 64 3A 64 65 63 2D 31 20 74 6F 20 6E field:dec-1 to n
008370: 62 65 6E 74 0D 0A 20 20 20 65 6E 64 69 66 0D 0A bent.. endif..
008380: 20 20 20 69 66 20 66 69 65 6C 64 3A 64 65 63 20 if field:dec
008390: 3D 20 30 0D 0A 20 20 20 20 20 20 73 74 6F 72 65 = 0.. store
0083A0: 20 22 70 69 63 74 75 72 65 20 27 22 2D 24 28 6E "picture '"-$(n
0083B0: 65 75 66 2C 31 2C 6E 62 65 6E 74 29 2D 22 27 22 euf,1,nbent)-"'"
0083C0: 20 74 6F 20 70 69 63 0D 0A 20 20 20 65 6C 73 65 to pic.. else
0083D0: 0D 0A 20 20 20 20 20 20 73 74 6F 72 65 20 22 70 .. store "p
0083E0: 69 63 74 75 72 65 20 27 22 2D 24 28 6E 65 75 66 icture '"-$(neuf
0083F0: 2C 31 2C 6E 62 65 6E 74 29 2D 22 2E 22 2D 24 28 ,1,nbent)-"."-$(
008400: 74 6F 20 74 72 6F 75 76 65 0D 0A 20 20 20 20 20 to trouve..
008410: 20 73 74 6F 72 65 20 74 72 69 6D 28 76 61 6C 32 store trim(val2
008420: 29 20 74 6F 20 6C 69 73 74 65 0D 0A 20 20 20 20 ) to liste..
008430: 20 20 64 6F 20 77 68 69 6C 65 20 66 69 6E 6C 69 do while finli
008440: 73 74 65 3D 27 66 27 2E 61 6E 64 2E 74 72 6F 75 ste='f'.and.trou
008450: 76 65 3D 27 66 27 0D 0A 20 20 20 20 20 20 73 74 ve='f'.. st
008460: 6F 72 65 20 40 28 27 2C 27 2C 6C 69 73 74 65 29 ore @(',',liste)
008470: 2D 31 20 74 6F 20 70 6F 73 66 69 6E 0D 0A 20 20 -1 to posfin..
008480: 20 20 20 20 69 66 20 70 6F 73 66 69 6E 20 3C 20 if posfin <
008490: 30 0D 0A 20 20 20 20 20 20 73 74 6F 72 65 20 33 0.. store 3
0084A0: 30 20 74 6F 20 70 6F 73 66 69 6E 0D 0A 20 20 20 0 to posfin..
0084B0: 20 20 20 73 74 6F 72 65 20 27 74 27 20 74 6F 20 store 't' to
0084C0: 66 69 6E 6C 69 73 74 65 0D 0A 20 20 20 20 20 20 finliste..
0084D0: 65 6E 64 69 66 0D 0A 20 20 20 20 20 20 69 66 20 endif.. if
0084E0: 76 61 6C 65 75 72 31 3D 24 28 6C 69 73 74 65 2C valeur1=$(liste,
0084F0: 31 2C 70 6F 73 66 69 6E 29 2E 61 6E 64 2E 6C 65 1,posfin).and.le
008500: 6E 28 74 72 69 6D 28 76 61 6C 65 75 72 31 29 29 n(trim(valeur1))
008510: 3D 6C 65 6E 28 24 28 6C 69 73 74 65 2C 31 3B 0D =len($(liste,1;.
008520: 0A 20 20 20 20 20 20 2C 70 6F 73 66 69 6E 29 29 . ,posfin))
008530: 0D 0A 20 20 20 20 20 20 73 74 6F 72 65 20 27 74 .. store 't
008540: 27 20 74 6F 20 74 72 6F 75 76 65 0D 0A 20 20 20 ' to trouve..
008550: 20 20 20 65 6C 73 65 0D 0A 20 20 20 20 20 20 69 else.. i
008560: 66 20 66 69 6E 6C 69 73 74 65 3D 27 66 27 0D 0A f finliste='f'..
008570: 20 20 20 20 20 20 73 74 6F 72 65 20 24 28 6C 69 store $(li
008580: 73 74 65 2C 70 6F 73 66 69 6E 2B 32 2C 33 30 29 ste,posfin+2,30)
008590: 20 74 6F 20 6C 69 73 74 65 0D 0A 20 20 20 20 20 to liste..
0085A0: 20 65 6E 64 69 66 0D 0A 20 20 20 20 20 20 65 6E endif.. en
0085B0: 64 69 66 0D 0A 20 20 20 20 20 20 65 6E 64 64 6F dif.. enddo
0085C0: 0D 0A 20 20 20 20 20 20 69 66 20 74 72 6F 75 76 .. if trouv
0085D0: 65 3D 27 66 27 0D 0A 20 20 20 20 20 20 73 74 6F e='f'.. sto
0085E0: 72 65 20 31 34 30 20 74 6F 20 6E 6F 6D 65 73 73 re 140 to nomess
0085F0: 0D 0A 20 20 20 20 20 20 65 6E 64 69 66 0D 0A 20 .. endif..
008600: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
008610: 07 00 01 00 02 09 4E E5 07 00 41 02 00 00 00 02 ......N...A.....
008620: 07 00 46 02 00 00 00 02 07 00 42 02 00 00 00 02 ..F.......B.....
008630: 07 00 47 02 00 00 00 02 07 00 43 02 00 00 00 02 ..G.......C.....
008640: 07 00 48 02 00 00 00 02 07 00 44 02 00 00 00 02 ..H.......D.....
008650: 07 00 49 02 00 00 00 02 07 00 45 02 00 00 00 02 ..I.......E.....
008660: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008670: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008680: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008690: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0086A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0086B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0086C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0086D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0086E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0086F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008700: 6E 65 75 66 2C 31 2C 66 69 65 6C 64 3A 64 65 63 neuf,1,field:dec
008710: 29 2D 22 27 22 20 74 6F 20 70 69 63 0D 0A 20 20 )-"'" to pic..
008720: 20 65 6E 64 69 66 0D 0A 20 20 20 72 65 6C 65 61 endif.. relea
008730: 73 65 20 6E 62 65 6E 74 0D 0A 20 20 20 63 61 73 se nbent.. cas
008740: 65 20 24 28 76 65 72 69 66 2C 32 2C 31 29 3D 27 e $(verif,2,1)='
008750: 44 27 0D 0A 20 20 20 73 74 6F 72 65 20 22 20 70 D'.. store " p
008760: 69 63 74 75 72 65 20 27 39 39 2F 39 39 2F 39 39 icture '99/99/99
008770: 27 22 20 74 6F 20 70 69 63 0D 0A 20 20 20 63 61 '" to pic.. ca
008780: 73 65 20 24 28 76 65 72 69 66 2C 32 2C 31 29 3D se $(verif,2,1)=
008790: 27 4D 27 0D 0A 20 20 20 73 74 6F 72 65 20 22 20 'M'.. store "
0087A0: 70 69 63 74 75 72 65 20 27 39 39 2F 39 39 27 22 picture '99/99'"
0087B0: 20 74 6F 20 70 69 63 0D 0A 20 20 20 6F 74 68 65 to pic.. othe
0087C0: 72 77 69 73 65 0D 0A 20 20 20 73 74 6F 72 65 20 rwise.. store
0087D0: 27 20 27 20 74 6F 20 70 69 63 0D 0A 65 6E 64 63 ' ' to pic..endc
0087E0: 61 73 65 0D 0A 72 65 6C 65 61 73 65 20 6E 65 75 ase..release neu
0087F0: 66 0D 0A 72 65 74 75 72 6E 0D 0A 0D 0A 0D 0A 0D f..return.......
008800: 0A 0D 0A 0D 0A 1A 1A 20 53 41 59 20 22 49 20 52 ....... SAY "I R
008810: 65 70 6F 6E 73 65 20 2D 2D 3E 20 20 20 20 20 20 eponse -->
008820: 20 20 20 20 49 22 0D 0A 20 20 20 20 20 20 40 20 I".. @
008830: 31 39 2C 34 35 20 53 41 59 20 22 2B 2D 2D 2D 2D 19,45 SAY "+----
008840: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
008850: 2D 2D 2B 22 0D 0A 20 20 20 20 20 20 63 6C 65 61 --+".. clea
008860: 72 20 67 65 74 0D 0A 20 20 20 20 20 20 73 65 74 r get.. set
008870: 20 69 6E 74 65 6E 73 69 74 79 20 6F 66 66 0D 0A intensity off..
008880: 20 20 20 20 20 20 40 20 31 38 2C 35 39 20 67 65 @ 18,59 ge
008890: 74 20 72 65 70 0D 0A 20 20 20 20 20 20 73 65 74 t rep.. set
0088A0: 20 69 6E 74 65 6E 73 69 74 79 20 6F 6E 0D 0A 20 intensity on..
0088B0: 20 20 20 20 20 72 65 61 64 0D 0A 20 20 20 20 20 read..
0088C0: 20 73 74 6F 72 65 20 21 28 72 65 70 29 20 74 6F store !(rep) to
0088D0: 20 72 65 70 0D 0A 20 20 20 65 6C 73 65 0D 0A 20 rep.. else..
0088E0: 20 20 20 20 20 73 74 6F 72 65 20 27 31 27 20 74 store '1' t
0088F0: 6F 20 72 65 70 0D 0A 20 20 20 65 6E 64 69 66 0D o rep.. endif.
008900: 2A 20 61 66 66 6D 65 73 73 3A 20 61 66 66 69 63 * affmess: affic
008910: 68 61 67 65 20 64 27 75 6E 20 6D 65 73 73 61 67 hage d'un messag
008920: 65 0D 0A 2A 20 70 61 72 61 6D 65 74 72 65 20 64 e..* parametre d
008930: 27 65 6E 74 72 65 65 3A 20 6E 6F 6D 65 73 73 20 'entree: nomess
008940: 3B 20 20 20 6E 6F 6D 65 73 73 3D 20 6E 6F 20 64 ; nomess= no d
008950: 75 20 6D 65 73 73 61 67 65 0D 0A 40 20 6C 69 67 u message..@ lig
008960: 6D 31 2C 30 0D 0A 69 66 20 6E 6F 6D 65 73 73 20 m1,0..if nomess
008970: 3E 20 31 30 30 0D 0A 20 20 73 74 6F 72 65 20 74 > 100.. store t
008980: 65 78 74 65 2B 27 3A 27 20 74 6F 20 6D 65 73 73 exte+':' to mess
008990: 0D 0A 20 20 73 74 6F 72 65 20 6E 6F 6D 65 73 73 .. store nomess
0089A0: 2D 31 30 30 20 74 6F 20 6E 6F 6D 65 73 73 0D 0A -100 to nomess..
0089B0: 65 6C 73 65 0D 0A 20 20 73 74 6F 72 65 20 27 20 else.. store '
0089C0: 27 20 74 6F 20 6D 65 73 73 0D 0A 65 6E 64 69 66 ' to mess..endif
0089D0: 0D 0A 64 6F 20 63 61 73 65 0D 0A 63 61 73 65 20 ..do case..case
0089E0: 6E 6F 6D 65 73 73 20 3D 20 31 0D 0A 73 74 6F 72 nomess = 1..stor
0089F0: 65 20 6D 65 73 73 2B 27 20 6C 61 20 72 65 70 6F e mess+' la repo
008A00: 6E 73 65 20 65 73 74 20 69 6E 63 6F 72 72 65 63 nse est incorrec
008A10: 74 65 27 20 74 6F 20 6D 65 73 73 0D 0A 63 61 73 te' to mess..cas
008A20: 65 20 6E 6F 6D 65 73 73 20 3D 20 32 0D 0A 73 74 e nomess = 2..st
008A30: 6F 72 65 20 6D 65 73 73 2B 27 20 6C 61 20 64 61 ore mess+' la da
008A40: 74 65 20 65 73 74 20 69 6E 63 6F 72 72 65 63 74 te est incorrect
008A50: 65 27 20 74 6F 20 6D 65 73 73 0D 0A 63 61 73 65 e' to mess..case
008A60: 20 6E 6F 6D 65 73 73 20 3D 20 33 0D 0A 73 74 6F nomess = 3..sto
008A70: 72 65 20 22 6C 27 65 6E 72 65 67 69 73 74 72 65 re "l'enregistre
008A80: 6D 65 6E 74 20 65 78 69 73 74 65 20 64 65 6A 61 ment existe deja
008A90: 22 20 74 6F 20 6D 65 73 73 0D 0A 63 61 73 65 20 " to mess..case
008AA0: 6E 6F 6D 65 73 73 20 3D 20 34 0D 0A 73 74 6F 72 nomess = 4..stor
008AB0: 65 20 22 6C 27 65 6E 72 65 67 69 73 74 72 65 6D e "l'enregistrem
008AC0: 65 6E 74 20 6E 27 65 78 69 73 74 65 20 70 61 73 ent n'existe pas
008AD0: 22 20 74 6F 20 6D 65 73 73 0D 0A 63 61 73 65 20 " to mess..case
008AE0: 6E 6F 6D 65 73 73 20 3D 20 35 0D 0A 73 74 6F 72 nomess = 5..stor
008AF0: 65 20 22 69 6C 20 79 20 61 20 70 6C 75 73 20 64 e "il y a plus d
008B00: 2A 20 63 6F 6E 66 73 75 70 3A 20 64 65 6D 61 6E * confsup: deman
008B10: 64 65 20 6C 61 20 63 6F 6E 66 69 72 6D 61 74 69 de la confirmati
008B20: 6F 6E 20 64 27 75 6E 65 20 64 65 6D 61 6E 64 65 on d'une demande
008B30: 20 64 65 20 73 75 70 70 72 65 73 73 69 6F 6E 0D de suppression.
008B40: 0A 0D 0A 73 74 6F 72 65 20 27 74 27 20 74 6F 20 ...store 't' to
008B50: 74 65 73 74 0D 0A 64 6F 20 77 68 69 6C 65 20 74 test..do while t
008B60: 65 73 74 3D 27 74 27 0D 0A 73 74 6F 72 65 20 27 est='t'..store '
008B70: 4E 27 20 74 6F 20 63 6F 6E 66 69 72 6D 0D 0A 40 N' to confirm..@
008B80: 20 6C 69 67 6D 31 2C 30 20 73 61 79 20 27 20 20 ligm1,0 say '
008B90: 20 76 6F 75 6C 65 7A 2D 76 6F 75 73 20 74 6F 75 voulez-vous tou
008BA0: 6A 6F 75 72 73 20 6C 61 20 73 75 70 70 72 65 73 jours la suppres
008BB0: 73 69 6F 6E 20 20 20 20 20 3F 20 20 20 20 20 20 sion ?
008BC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 27 0D 0A '..
008BD0: 40 20 6C 69 67 6D 31 2B 31 2C 30 20 73 61 79 20 @ ligm1+1,0 say
008BE0: 27 20 20 20 74 61 70 65 7A 20 4F 20 70 6F 75 72 ' tapez O pour
008BF0: 20 6F 75 69 2C 20 4E 20 70 6F 75 72 20 6E 6F 6E oui, N pour non
008C00: 20 20 20 20 20 20 20 20 20 20 3D 3D 3D 3D 20 3E ==== >
008C10: 20 20 20 20 27 0D 0A 73 65 74 20 69 6E 74 65 6E '..set inten
008C20: 73 69 74 79 20 6F 66 66 0D 0A 40 20 6C 69 67 6D sity off..@ ligm
008C30: 31 2B 31 2C 34 39 20 67 65 74 20 63 6F 6E 66 69 1+1,49 get confi
008C40: 72 6D 0D 0A 73 65 74 20 69 6E 74 65 6E 73 69 74 rm..set intensit
008C50: 79 20 6F 6E 0D 0A 72 65 61 64 0D 0A 69 66 20 21 y on..read..if !
008C60: 28 63 6F 6E 66 69 72 6D 29 20 23 20 27 4E 27 2E (confirm) # 'N'.
008C70: 61 6E 64 2E 21 28 63 6F 6E 66 69 72 6D 29 20 23 and.!(confirm) #
008C80: 20 27 4F 27 0D 0A 73 74 6F 72 65 20 38 20 74 6F 'O'..store 8 to
008C90: 20 6E 6F 6D 65 73 73 0D 0A 64 6F 20 61 66 66 6D nomess..do affm
008CA0: 65 73 73 0D 0A 65 6C 73 65 0D 0A 40 20 6C 69 67 ess..else..@ lig
008CB0: 6D 31 2C 30 0D 0A 40 20 6C 69 67 6D 31 2B 31 2C m1,0..@ ligm1+1,
008CC0: 30 0D 0A 72 65 74 75 72 6E 0D 0A 65 6E 64 69 66 0..return..endif
008CD0: 0D 0A 65 6E 64 64 6F 0D 0A 0D 0A 0D 0A 0D 0A 0D ..enddo.........
008CE0: 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D ................
008CF0: 0A 1A 1A 64 2E 72 65 70 32 23 27 4D 27 2E 61 6E ...d.rep2#'M'.an
008D00: 65 20 31 35 20 6C 69 73 74 65 73 20 63 72 65 65 e 15 listes cree
008D10: 65 73 2E 20 66 61 69 74 65 73 20 6C 65 20 6D 65 es. faites le me
008D20: 6E 61 67 65 22 20 74 6F 20 6D 65 73 73 0D 0A 63 nage" to mess..c
008D30: 61 73 65 20 6E 6F 6D 65 73 73 20 3D 20 36 0D 0A ase nomess = 6..
008D40: 73 74 6F 72 65 20 22 63 65 74 74 65 20 6C 69 73 store "cette lis
008D50: 74 65 20 65 78 69 73 74 65 20 64 65 6A 61 22 20 te existe deja"
008D60: 74 6F 20 6D 65 73 73 0D 0A 63 61 73 65 20 6E 6F to mess..case no
008D70: 6D 65 73 73 20 3D 20 37 0D 0A 73 74 6F 72 65 20 mess = 7..store
008D80: 22 63 65 74 74 65 20 6C 69 73 74 65 20 6E 27 65 "cette liste n'e
008D90: 78 69 73 74 65 20 70 61 73 22 20 74 6F 20 6D 65 xiste pas" to me
008DA0: 73 73 0D 0A 63 61 73 65 20 6E 6F 6D 65 73 73 20 ss..case nomess
008DB0: 3D 20 38 0D 0A 73 74 6F 72 65 20 22 72 65 70 6F = 8..store "repo
008DC0: 6E 73 65 20 69 6E 63 6F 72 72 65 63 74 65 20 2D nse incorrecte -
008DD0: 20 73 65 75 6C 65 73 20 72 65 70 6F 6E 73 65 73 seules reponses
008DE0: 20 61 64 6D 69 73 65 73 3A 20 4F 20 6F 75 20 4E admises: O ou N
008DF0: 22 20 74 6F 20 6D 65 73 73 0D 0A 63 61 73 65 20 " to mess..case
008E00: 6E 6F 6D 65 73 73 20 3D 20 39 0D 0A 73 74 6F 72 nomess = 9..stor
008E10: 65 20 22 69 6C 20 79 20 61 20 70 6C 75 73 20 64 e "il y a plus d
008E20: 65 20 31 35 20 63 6C 65 73 20 63 72 65 65 65 73 e 15 cles creees
008E30: 20 2E 20 66 61 69 74 65 73 20 6C 65 20 6D 65 6E . faites le men
008E40: 61 67 65 22 20 74 6F 20 6D 65 73 73 0D 0A 63 61 age" to mess..ca
008E50: 73 65 20 6E 6F 6D 65 73 73 20 3D 20 31 30 0D 0A se nomess = 10..
008E60: 73 74 6F 72 65 20 22 63 65 74 74 65 20 63 6C 65 store "cette cle
008E70: 20 65 78 69 73 74 65 20 64 65 6A 61 22 20 74 6F existe deja" to
008E80: 20 6D 65 73 73 0D 0A 63 61 73 65 20 6E 6F 6D 65 mess..case nome
008E90: 73 73 20 3D 20 31 31 0D 0A 73 74 6F 72 65 20 22 ss = 11..store "
008EA0: 6C 61 20 70 72 65 6D 69 65 72 65 20 7A 6F 6E 65 la premiere zone
008EB0: 20 64 6F 69 74 20 6F 62 6C 69 67 61 74 6F 69 72 doit obligatoir
008EC0: 65 6D 65 6E 74 20 65 74 72 65 20 72 65 6E 73 65 ement etre rense
008ED0: 69 67 6E 65 65 22 20 74 6F 20 6D 65 73 73 0D 0A ignee" to mess..
008EE0: 63 61 73 65 20 6E 6F 6D 65 73 73 20 3D 20 31 32 case nomess = 12
008EF0: 0D 0A 73 74 6F 72 65 20 22 6C 61 20 7A 6F 6E 65 ..store "la zone
008F00: 2E 61 6E 64 2E 74 79 70 69 6E 64 65 78 23 27 54 .and.typindex#'T
008F10: 27 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 73 '.. s
008F20: 74 6F 72 65 20 31 20 74 6F 20 6E 6F 6D 65 73 73 tore 1 to nomess
008F30: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 64 6F .. do
008F40: 20 61 66 66 6D 65 73 73 0D 0A 20 20 20 20 20 20 affmess..
008F50: 20 20 20 65 6C 73 65 0D 0A 20 20 20 20 20 20 20 else..
008F60: 20 20 20 20 20 73 74 6F 72 65 20 27 74 27 20 74 store 't' t
008F70: 6F 20 63 6F 72 72 65 63 74 0D 0A 20 20 20 20 20 o correct..
008F80: 20 20 20 20 65 6E 64 69 66 0D 0A 20 20 20 20 20 endif..
008F90: 20 65 6E 64 64 6F 0D 0A 20 20 20 65 6E 64 69 66 enddo.. endif
008FA0: 0D 0A 20 20 20 40 20 31 30 2C 31 35 20 73 61 79 .. @ 10,15 say
008FB0: 20 27 6E 6F 6D 20 7A 6F 6E 65 27 0D 0A 20 20 20 'nom zone'..
008FC0: 69 66 20 74 79 70 69 6E 64 65 78 20 23 20 27 50 if typindex # 'P
008FD0: 27 0D 0A 20 20 20 20 20 20 40 20 31 30 2C 33 30 '.. @ 10,30
008FE0: 20 73 61 79 20 27 64 65 62 75 74 27 0D 0A 20 20 say 'debut'..
008FF0: 20 20 20 20 40 20 31 30 2C 34 30 20 73 61 79 20 @ 10,40 say
009000: 27 66 69 6E 27 0D 0A 20 20 20 20 20 20 69 66 20 'fin'.. if
009010: 6D 6F 64 69 66 20 23 20 27 4D 27 0D 0A 20 20 20 modif # 'M'..
009020: 20 20 20 20 20 20 40 20 6C 69 67 6D 31 2C 30 20 @ ligm1,0
009030: 73 61 79 20 27 74 61 70 65 7A 20 72 65 74 75 72 say 'tapez retur
009040: 6E 20 64 61 6E 73 20 6C 61 20 70 72 65 6D 69 65 n dans la premie
009050: 72 65 20 7A 6F 6E 65 20 70 6F 75 72 20 61 62 61 re zone pour aba
009060: 6E 64 6F 6E 6E 65 72 27 0D 0A 20 20 20 20 20 20 ndonner'..
009070: 65 6E 64 69 66 0D 0A 20 20 20 65 6E 64 69 66 0D endif.. endif.
009080: 0A 20 20 20 73 65 6C 65 63 74 20 73 65 63 6F 6E . select secon
009090: 64 61 72 79 0D 0A 20 20 20 75 73 65 20 26 66 72 dary.. use &fr
0090A0: 65 66 20 69 6E 64 65 78 20 26 78 6E 6F 6D 0D 0A ef index &xnom..
0090B0: 20 20 20 67 6F 74 6F 20 74 6F 70 0D 0A 20 20 20 goto top..
0090C0: 73 74 6F 72 65 20 30 20 74 6F 20 6C 6F 6E 67 63 store 0 to longc
0090D0: 6C 65 0D 0A 20 20 20 73 74 6F 72 65 20 27 66 27 le.. store 'f'
0090E0: 20 74 6F 20 66 69 6E 7A 6F 6E 65 0D 0A 20 20 20 to finzone..
0090F0: 73 74 6F 72 65 20 27 20 27 20 74 6F 20 63 6C 65 store ' ' to cle
009100: 20 22 2B 26 6D 7A 6F 6E 2B 22 20 20 6E 27 65 78 "+&mzon+" n'ex
009110: 69 73 74 65 20 70 61 73 22 20 74 6F 20 6D 65 73 iste pas" to mes
009120: 73 0D 0A 63 61 73 65 20 6E 6F 6D 65 73 73 20 3D s..case nomess =
009130: 20 31 33 0D 0A 73 74 6F 72 65 20 22 6C 61 20 7A 13..store "la z
009140: 6F 6E 65 20 22 2B 26 6D 7A 6F 6E 2B 22 20 20 6E one "+&mzon+" n
009150: 27 65 73 74 20 70 61 73 20 61 6C 70 68 61 62 65 'est pas alphabe
009160: 74 69 71 75 65 22 20 74 6F 20 6D 65 73 73 0D 0A tique" to mess..
009170: 63 61 73 65 20 6E 6F 6D 65 73 73 20 3D 20 31 34 case nomess = 14
009180: 0D 0A 73 74 6F 72 65 20 22 70 6F 73 69 74 69 6F ..store "positio
009190: 6E 20 64 65 62 75 74 20 69 6E 63 6F 72 72 65 63 n debut incorrec
0091A0: 74 65 20 2D 20 6C 6F 6E 67 75 65 75 72 20 64 65 te - longueur de
0091B0: 20 6C 61 20 7A 6F 6E 65 20 20 3D 20 22 2B 73 74 la zone = "+st
0091C0: 72 28 66 69 65 6C 64 3A 6C 65 6E 2C 33 29 3B 0D r(field:len,3);.
0091D0: 0A 20 74 6F 20 6D 65 73 73 0D 0A 63 61 73 65 20 . to mess..case
0091E0: 6E 6F 6D 65 73 73 20 3D 20 31 35 0D 0A 73 74 6F nomess = 15..sto
0091F0: 72 65 20 22 70 6F 73 69 74 69 6F 6E 20 66 69 6E re "position fin
009200: 20 20 20 69 6E 63 6F 72 72 65 63 74 65 20 2D 20 incorrecte -
009210: 6C 6F 6E 67 75 65 75 72 20 64 65 20 6C 61 20 7A longueur de la z
009220: 6F 6E 65 20 20 3D 20 22 2B 73 74 72 28 66 69 65 one = "+str(fie
009230: 6C 64 3A 6C 65 6E 2C 33 29 3B 0D 0A 20 74 6F 20 ld:len,3);.. to
009240: 6D 65 73 73 0D 0A 63 61 73 65 20 6E 6F 6D 65 73 mess..case nomes
009250: 73 20 3D 20 31 36 0D 0A 73 74 6F 72 65 20 22 63 s = 16..store "c
009260: 65 74 74 65 20 63 6C 65 20 6E 27 65 78 69 73 74 ette cle n'exist
009270: 65 20 70 61 73 22 20 74 6F 20 6D 65 73 73 0D 0A e pas" to mess..
009280: 63 61 73 65 20 6E 6F 6D 65 73 73 20 3D 20 31 37 case nomess = 17
009290: 0D 0A 73 74 6F 72 65 20 22 61 75 63 75 6E 20 65 ..store "aucun e
0092A0: 6E 72 65 67 69 73 74 72 65 6D 65 6E 74 20 74 72 nregistrement tr
0092B0: 6F 75 76 65 22 20 74 6F 20 6D 65 73 73 0D 0A 63 ouve" to mess..c
0092C0: 61 73 65 20 6E 6F 6D 65 73 73 20 3D 20 31 38 0D ase nomess = 18.
0092D0: 0A 73 74 6F 72 65 20 22 63 6C 65 20 70 72 69 6E .store "cle prin
0092E0: 63 69 70 61 6C 65 20 2D 20 65 6C 6C 65 20 6E 65 cipale - elle ne
0092F0: 20 70 65 75 74 20 65 74 72 65 20 73 75 70 70 72 peut etre suppr
009300: 2A 20 64 65 66 69 6E 64 65 78 3A 20 64 65 66 69 * defindex: defi
009310: 6E 69 74 69 6F 6E 20 64 65 73 20 69 6E 64 65 78 nition des index
009320: 20 70 72 69 6E 63 69 70 61 6C 20 65 74 20 73 65 principal et se
009330: 63 6F 6E 64 61 69 72 65 73 0D 0A 0D 0A 65 72 61 condaires....era
009340: 73 65 0D 0A 73 74 6F 72 65 20 27 43 27 20 74 6F se..store 'C' to
009350: 20 65 6C 65 6D 0D 0A 73 74 6F 72 65 20 27 50 27 elem..store 'P'
009360: 20 74 6F 20 74 79 70 69 6E 64 65 78 0D 0A 73 74 to typindex..st
009370: 6F 72 65 20 27 47 27 20 74 6F 20 6D 6F 64 69 66 ore 'G' to modif
009380: 0D 0A 64 6F 20 64 65 66 65 6C 65 6D 0D 0A 73 74 ..do defelem..st
009390: 6F 72 65 20 6D 6E 6F 6D 65 6C 65 6D 20 74 6F 20 ore mnomelem to
0093A0: 6C 69 73 74 69 6E 64 65 78 0D 0A 72 65 6C 65 61 listindex..relea
0093B0: 73 65 20 6D 6E 6F 6D 65 6C 65 6D 0D 0A 73 74 6F se mnomelem..sto
0093C0: 72 65 20 31 20 74 6F 20 63 70 74 0D 0A 64 6F 20 re 1 to cpt..do
0093D0: 77 68 69 6C 65 20 63 70 74 3C 3D 31 35 0D 0A 65 while cpt<=15..e
0093E0: 72 61 73 65 0D 0A 73 74 6F 72 65 20 27 4E 27 20 rase..store 'N'
0093F0: 74 6F 20 72 65 70 0D 0A 40 20 33 2C 35 20 73 61 to rep..@ 3,5 sa
009400: 79 20 27 76 6F 75 6C 65 7A 2D 76 6F 75 73 20 64 y 'voulez-vous d
009410: 65 66 69 6E 69 72 20 75 6E 20 6E 6F 75 76 65 6C efinir un nouvel
009420: 20 69 6E 64 65 78 20 73 65 63 6F 6E 64 61 69 72 index secondair
009430: 65 3F 27 0D 0A 40 20 34 2C 35 20 73 61 79 20 27 e?'..@ 4,5 say '
009440: 4F 3D 6F 75 69 2C 20 4E 3D 6E 6F 6E 20 20 20 20 O=oui, N=non
009450: 20 3D 3D 3D 3D 3D 3E 27 0D 0A 73 65 74 20 69 6E =====>'..set in
009460: 74 65 6E 73 69 74 79 20 6F 66 66 0D 0A 40 20 34 tensity off..@ 4
009470: 2C 32 38 20 67 65 74 20 72 65 70 0D 0A 73 65 74 ,28 get rep..set
009480: 20 69 6E 74 65 6E 73 69 74 79 20 6F 6E 0D 0A 72 intensity on..r
009490: 65 61 64 0D 0A 64 6F 20 63 61 73 65 0D 0A 63 61 ead..do case..ca
0094A0: 73 65 20 21 28 72 65 70 29 3D 27 4F 27 0D 0A 65 se !(rep)='O'..e
0094B0: 72 61 73 65 0D 0A 73 74 6F 72 65 20 27 47 27 20 rase..store 'G'
0094C0: 74 6F 20 6D 6F 64 69 66 0D 0A 73 74 6F 72 65 20 to modif..store
0094D0: 27 53 27 20 74 6F 20 74 79 70 69 6E 64 65 78 0D 'S' to typindex.
0094E0: 0A 64 6F 20 64 65 66 65 6C 65 6D 0D 0A 69 66 20 .do defelem..if
0094F0: 6D 6E 6F 6D 65 6C 65 6D 20 23 20 27 20 27 0D 0A mnomelem # ' '..
009500: 69 6D 65 65 22 20 74 6F 20 6D 65 73 73 0D 0A 63 imee" to mess..c
009510: 61 73 65 20 6E 6F 6D 65 73 73 20 3D 20 31 39 0D ase nomess = 19.
009520: 0A 73 74 6F 72 65 20 22 72 69 65 6E 20 61 20 6C .store "rien a l
009530: 69 73 74 65 72 22 20 74 6F 20 6D 65 73 73 0D 0A ister" to mess..
009540: 63 61 73 65 20 6E 6F 6D 65 73 73 20 3D 20 32 30 case nomess = 20
009550: 0D 0A 73 74 6F 72 65 20 22 6C 65 20 66 69 63 68 ..store "le fich
009560: 69 65 72 20 22 2B 24 28 6E 6F 6D 66 69 63 68 2C ier "+$(nomfich,
009570: 33 2C 38 29 2B 22 20 61 20 64 65 6A 61 20 65 74 3,8)+" a deja et
009580: 65 20 67 65 6E 65 72 65 22 20 74 6F 20 6D 65 73 e genere" to mes
009590: 73 0D 0A 63 61 73 65 20 6E 6F 6D 65 73 73 20 3D s..case nomess =
0095A0: 20 32 31 0D 0A 73 74 6F 72 65 20 22 6C 65 20 6E 21..store "le n
0095B0: 75 6D 65 72 6F 20 64 65 20 6C 69 67 6E 65 20 64 umero de ligne d
0095C0: 6F 69 74 20 65 74 72 65 20 63 6F 6D 70 72 69 73 oit etre compris
0095D0: 20 65 6E 74 72 65 20 32 20 65 74 20 22 2B 73 74 entre 2 et "+st
0095E0: 72 28 6C 69 67 6D 31 2D 31 2C 32 29 20 74 6F 20 r(ligm1-1,2) to
0095F0: 6D 65 73 73 0D 0A 63 61 73 65 20 6E 6F 6D 65 73 mess..case nomes
009600: 73 20 3D 20 32 32 0D 0A 73 74 6F 72 65 20 22 6C s = 22..store "l
009610: 65 20 6E 75 6D 65 72 6F 20 64 65 20 63 6F 6C 6F e numero de colo
009620: 6E 6E 65 20 64 6F 69 74 20 65 74 72 65 20 63 6F nne doit etre co
009630: 6D 70 72 69 73 20 65 6E 74 72 65 20 30 20 65 74 mpris entre 0 et
009640: 20 37 39 22 20 74 6F 20 6D 65 73 73 0D 0A 63 61 79" to mess..ca
009650: 73 65 20 6E 6F 6D 65 73 73 20 3D 20 32 33 0D 0A se nomess = 23..
009660: 73 74 6F 72 65 20 22 6C 6F 6E 67 75 65 75 72 20 store "longueur
009670: 64 65 20 7A 6F 6E 65 20 6F 75 20 6E 6F 6D 62 72 de zone ou nombr
009680: 65 20 64 65 20 64 65 63 69 6D 61 6C 65 73 20 69 e de decimales i
009690: 6E 63 6F 72 72 65 63 74 22 20 74 6F 20 6D 65 73 ncorrect" to mes
0096A0: 73 0D 0A 63 61 73 65 20 6E 6F 6D 65 73 73 20 3D s..case nomess =
0096B0: 20 32 34 0D 0A 73 74 6F 72 65 20 22 6C 61 20 64 24..store "la d
0096C0: 65 66 69 6E 69 74 69 6F 6E 20 64 27 75 6E 20 69 efinition d'un i
0096D0: 6E 64 65 78 20 70 72 69 6E 63 69 70 61 6C 20 65 ndex principal e
0096E0: 73 74 20 6F 62 6C 69 67 61 74 6F 69 72 65 22 20 st obligatoire"
0096F0: 74 6F 20 6D 65 73 73 0D 0A 63 61 73 65 20 6E 6F to mess..case no
009700: 73 74 6F 72 65 20 6C 69 73 74 69 6E 64 65 78 2B store listindex+
009710: 27 2C 27 2B 6D 6E 6F 6D 65 6C 65 6D 20 74 6F 20 ','+mnomelem to
009720: 6C 69 73 74 69 6E 64 65 78 0D 0A 73 74 6F 72 65 listindex..store
009730: 20 63 70 74 2B 31 20 74 6F 20 63 70 74 0D 0A 65 cpt+1 to cpt..e
009740: 6E 64 69 66 0D 0A 72 65 6C 65 61 73 65 20 6D 6E ndif..release mn
009750: 6F 6D 65 6C 65 6D 0D 0A 63 61 73 65 20 21 28 72 omelem..case !(r
009760: 65 70 29 3D 27 4E 27 0D 0A 72 65 6C 65 61 73 65 ep)='N'..release
009770: 20 72 65 70 2C 65 6C 65 6D 2C 74 79 70 69 6E 64 rep,elem,typind
009780: 65 78 2C 6D 6F 64 69 66 2C 63 70 74 0D 0A 72 65 ex,modif,cpt..re
009790: 74 75 72 6E 0D 0A 6F 74 68 65 72 77 69 73 65 0D turn..otherwise.
0097A0: 0A 73 74 6F 72 65 20 31 20 74 6F 20 6E 6F 6D 65 .store 1 to nome
0097B0: 73 73 0D 0A 64 6F 20 61 66 66 6D 65 73 73 0D 0A ss..do affmess..
0097C0: 65 6E 64 63 61 73 65 0D 0A 65 6E 64 64 6F 0D 0A endcase..enddo..
0097D0: 72 65 6C 65 61 73 65 20 72 65 70 2C 65 6C 65 6D release rep,elem
0097E0: 2C 74 79 70 69 6E 64 65 78 2C 6D 6F 64 69 66 2C ,typindex,modif,
0097F0: 63 70 74 0D 0A 72 65 74 75 72 6E 0D 0A 0D 0A 0D cpt..return.....
009800: 0A 0D 0A 0D 0A 1A 1A 65 72 61 73 65 0D 0A 3F 0D .......erase..?.
009810: 0A 3F 0D 0A 3F 20 27 6C 65 20 66 69 63 68 69 65 .?..? 'le fichie
009820: 72 20 27 2B 24 28 6E 6F 6D 66 69 63 68 2C 33 2C r '+$(nomfich,3,
009830: 38 29 2B 27 20 76 61 20 65 74 72 65 20 63 72 65 8)+' va etre cre
009840: 65 20 73 75 72 20 27 2B 75 6E 69 74 0D 0A 63 72 e sur '+unit..cr
009850: 65 61 74 65 20 26 6E 6F 6D 66 69 63 68 20 66 72 eate &nomfich fr
009860: 6F 6D 20 26 66 72 65 66 0D 0A 2A 20 63 72 65 65 om &fref..* cree
009870: 72 20 6C 65 20 66 69 63 68 69 65 72 20 64 65 73 r le fichier des
009880: 20 69 6E 64 65 78 20 65 74 20 64 65 73 20 6C 69 index et des li
009890: 73 74 65 73 0D 0A 73 74 6F 72 65 20 6E 6F 6D 66 stes..store nomf
0098A0: 69 63 68 2D 27 2E 65 6C 66 27 20 74 6F 20 66 65 ich-'.elf' to fe
0098B0: 6C 65 0D 0A 3F 20 27 6C 65 20 66 69 63 68 69 65 le..? 'le fichie
0098C0: 72 20 27 2B 24 28 66 65 6C 65 2C 33 2C 31 32 29 r '+$(fele,3,12)
0098D0: 2B 27 20 76 61 20 65 74 72 65 20 63 72 65 65 20 +' va etre cree
0098E0: 73 75 72 20 27 2B 75 6E 69 74 0D 0A 75 73 65 20 sur '+unit..use
0098F0: 65 6C 66 0D 0A 63 6F 70 79 20 74 6F 20 26 66 65 elf..copy to &fe
009900: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
009910: 08 00 01 00 02 09 4E E5 08 00 41 02 00 00 00 02 ......N...A.....
009920: 08 00 46 02 00 00 00 02 08 00 42 02 00 00 00 02 ..F.......B.....
009930: 08 00 47 02 00 00 00 02 08 00 43 02 00 00 00 02 ..G.......C.....
009940: 08 00 48 02 00 00 00 02 08 00 44 02 00 00 00 02 ..H.......D.....
009950: 08 00 49 02 00 00 00 02 08 00 45 02 00 00 00 02 ..I.......E.....
009960: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009970: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009980: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009990: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0099A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0099B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0099C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0099D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0099E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0099F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009A00: 6D 65 73 73 20 3D 20 32 35 0D 0A 73 74 6F 72 65 mess = 25..store
009A10: 20 22 63 65 20 6E 6F 6D 20 65 78 69 73 74 65 20 "ce nom existe
009A20: 64 65 6A 61 22 20 74 6F 20 6D 65 73 73 0D 0A 63 deja" to mess..c
009A30: 61 73 65 20 6E 6F 6D 65 73 73 20 3D 20 32 36 0D ase nomess = 26.
009A40: 0A 73 74 6F 72 65 20 22 6C 65 20 74 79 70 65 20 .store "le type
009A50: 65 73 74 20 69 6E 63 6F 72 72 65 63 74 20 2D 20 est incorrect -
009A60: 73 65 75 6C 65 73 20 72 65 70 6F 6E 73 65 73 20 seules reponses
009A70: 61 64 6D 69 73 65 73 3A 20 43 2C 20 4E 20 6F 75 admises: C, N ou
009A80: 20 4C 22 20 74 6F 20 6D 65 73 73 0D 0A 63 61 73 L" to mess..cas
009A90: 65 20 6E 6F 6D 65 73 73 20 3D 20 32 37 0D 0A 73 e nomess = 27..s
009AA0: 74 6F 72 65 20 22 6C 61 20 7A 6F 6E 65 20 22 2B tore "la zone "+
009AB0: 6E 6F 6D 7A 2B 22 20 6E 27 65 78 69 73 74 65 20 nomz+" n'existe
009AC0: 70 61 73 22 20 74 6F 20 6D 65 73 73 0D 0A 63 61 pas" to mess..ca
009AD0: 73 65 20 6E 6F 6D 65 73 73 20 3D 20 32 38 0D 0A se nomess = 28..
009AE0: 73 74 6F 72 65 20 22 6C 61 20 6C 6F 6E 67 75 65 store "la longue
009AF0: 75 72 20 6E 27 65 73 74 20 70 61 73 20 63 65 6C ur n'est pas cel
009B00: 6C 65 20 64 27 75 6E 65 20 64 61 74 65 20 2D 20 le d'une date -
009B10: 7A 6F 6E 65 20 61 20 72 65 73 61 69 73 69 72 20 zone a resaisir
009B20: 20 22 20 74 6F 20 6D 65 73 73 0D 0A 63 61 73 65 " to mess..case
009B30: 20 6E 6F 6D 65 73 73 20 3D 20 32 39 0D 0A 73 74 nomess = 29..st
009B40: 6F 72 65 20 22 6C 61 20 76 61 6C 65 75 72 20 64 ore "la valeur d
009B50: 65 62 75 74 20 6E 65 20 70 65 75 74 20 65 74 72 ebut ne peut etr
009B60: 65 20 73 75 70 65 72 69 65 75 72 65 20 61 20 6C e superieure a l
009B70: 61 20 76 61 6C 65 75 72 20 66 69 6E 22 20 74 6F a valeur fin" to
009B80: 20 6D 65 73 73 0D 0A 63 61 73 65 20 6E 6F 6D 65 mess..case nome
009B90: 73 73 20 3D 20 33 30 0D 0A 73 74 6F 72 65 20 22 ss = 30..store "
009BA0: 6C 65 73 20 64 65 75 78 20 7A 6F 6E 65 73 20 61 les deux zones a
009BB0: 20 63 6F 6D 70 61 72 65 72 20 6E 27 6F 6E 74 20 comparer n'ont
009BC0: 70 61 73 20 6C 65 20 6D 65 6D 65 20 74 79 70 65 pas le meme type
009BD0: 22 20 74 6F 20 6D 65 73 73 0D 0A 63 61 73 65 20 " to mess..case
009BE0: 6E 6F 6D 65 73 73 20 3D 20 33 31 0D 0A 73 74 6F nomess = 31..sto
009BF0: 72 65 20 22 75 6E 65 20 7A 6F 6E 65 20 64 65 20 re "une zone de
009C00: 6D 7A 6F 6E 35 0D 0A 72 65 6C 65 61 73 65 20 63 mzon5..release c
009C10: 6C 65 2C 6D 64 65 62 2C 6D 64 65 62 31 2C 6D 64 le,mdeb,mdeb1,md
009C20: 65 62 32 2C 6D 64 65 62 33 2C 6D 64 65 62 34 2C eb2,mdeb3,mdeb4,
009C30: 6D 64 65 62 35 0D 0A 72 65 6C 65 61 73 65 20 6D mdeb5..release m
009C40: 66 69 6E 2C 6D 66 69 6E 31 2C 6D 66 69 6E 32 2C fin,mfin1,mfin2,
009C50: 6D 66 69 6E 33 2C 6D 66 69 6E 34 2C 6D 66 69 6E mfin3,mfin4,mfin
009C60: 35 0D 0A 72 65 6C 65 61 73 65 20 6C 6C 6F 6E 67 5..release llong
009C70: 2C 6C 6F 6E 67 31 2C 6C 6F 6E 67 32 2C 6C 6F 6E ,long1,long2,lon
009C80: 67 33 2C 6C 6F 6E 67 34 2C 6C 6F 6E 67 35 0D 0A g3,long4,long5..
009C90: 72 65 6C 65 61 73 65 20 63 70 74 69 6D 61 78 2C release cptimax,
009CA0: 7A 6F 6E 2C 6D 6F 64 69 66 2C 74 79 70 69 6E 64 zon,modif,typind
009CB0: 65 78 2C 6D 6C 69 62 65 6C 65 6D 2C 66 69 6E 7A ex,mlibelem,finz
009CC0: 6F 6E 65 2C 63 70 74 69 2C 6C 69 67 69 2C 63 6C one,cpti,ligi,cl
009CD0: 65 6E 6F 6D 0D 0A 72 65 6C 65 61 73 65 20 6E 6F enom..release no
009CE0: 6D 7A 2C 6E 6F 63 6F 75 72 2C 64 65 62 2C 66 69 mz,nocour,deb,fi
009CF0: 6E 0D 0A 72 65 74 75 72 6E 0D 0A 0D 0A 0D 0A 0D n..return.......
009D00: 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D ................
009D10: 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D ................
009D20: 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 1A 1A 70 70 61 .............ppa
009D30: 72 75 65 20 64 61 6E 73 20 63 65 74 20 69 6E 64 rue dans cet ind
009D40: 65 78 0D 0A 20 20 20 20 20 20 69 66 20 74 79 70 ex.. if typ
009D50: 69 6E 64 65 78 20 3D 20 27 50 27 0D 0A 20 20 20 index = 'P'..
009D60: 20 20 20 20 20 20 73 74 6F 72 65 20 31 20 74 6F store 1 to
009D70: 20 63 70 74 32 0D 0A 20 20 20 20 20 20 20 20 20 cpt2..
009D80: 64 6F 20 77 68 69 6C 65 20 63 70 74 32 20 3C 3D do while cpt2 <=
009D90: 20 63 70 74 69 2D 31 2E 61 6E 64 2E 6E 6F 6D 65 cpti-1.and.nome
009DA0: 73 73 20 3D 20 30 0D 0A 20 20 20 20 20 20 20 20 ss = 0..
009DB0: 20 20 20 20 73 74 6F 72 65 20 27 6D 7A 6F 6E 27 store 'mzon'
009DC0: 2D 73 74 72 28 63 70 74 32 2C 31 29 20 74 6F 20 -str(cpt2,1) to
009DD0: 6D 7A 6F 6E 70 0D 0A 20 20 20 20 20 20 20 20 20 mzonp..
009DE0: 20 20 20 69 66 20 26 6D 7A 6F 6E 3D 26 6D 7A 6F if &mzon=&mzo
009DF0: 6E 70 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 np..
009E00: 74 79 70 65 20 6C 6F 67 69 71 75 65 20 6E 65 20 type logique ne
009E10: 70 65 75 74 20 65 74 72 65 20 63 6F 6D 70 61 72 peut etre compar
009E20: 65 65 22 20 74 6F 20 6D 65 73 73 0D 0A 63 61 73 ee" to mess..cas
009E30: 65 20 6E 6F 6D 65 73 73 20 3D 20 33 32 0D 0A 73 e nomess = 32..s
009E40: 74 6F 72 65 20 22 6F 70 74 69 6F 6E 20 6E 6F 6E tore "option non
009E50: 20 61 64 6D 69 73 65 20 70 6F 75 72 20 75 6E 65 admise pour une
009E60: 20 7A 6F 6E 65 20 6E 75 6D 65 72 69 71 75 65 22 zone numerique"
009E70: 20 74 6F 20 6D 65 73 73 0D 0A 63 61 73 65 20 6E to mess..case n
009E80: 6F 6D 65 73 73 20 3D 20 33 33 0D 0A 73 74 6F 72 omess = 33..stor
009E90: 65 20 6D 65 73 73 2B 22 20 7A 6F 6E 65 20 74 72 e mess+" zone tr
009EA0: 6F 70 20 67 72 61 6E 64 65 20 6F 75 20 74 72 6F op grande ou tro
009EB0: 70 20 70 65 74 69 74 65 20 22 20 74 6F 20 6D 65 p petite " to me
009EC0: 73 73 0D 0A 63 61 73 65 20 6E 6F 6D 65 73 73 20 ss..case nomess
009ED0: 3D 20 33 34 0D 0A 73 74 6F 72 65 20 22 75 6E 65 = 34..store "une
009EE0: 20 64 61 74 65 20 6F 75 20 75 6E 65 20 7A 6F 6E date ou une zon
009EF0: 65 20 6E 75 6D 65 72 69 71 75 65 20 6E 65 20 70 e numerique ne p
009F00: 65 75 74 20 66 69 67 75 72 65 72 20 64 61 6E 73 eut figurer dans
009F10: 20 75 6E 20 69 6E 64 65 78 20 71 75 27 65 6E 20 un index qu'en
009F20: 65 6E 3B 0D 0A 74 69 65 72 20 22 20 74 6F 20 6D en;..tier " to m
009F30: 65 73 73 0D 0A 63 61 73 65 20 6E 6F 6D 65 73 73 ess..case nomess
009F40: 20 3D 20 33 35 0D 0A 73 74 6F 72 65 20 6D 65 73 = 35..store mes
009F50: 73 2B 22 20 6C 61 20 7A 6F 6E 65 20 64 6F 69 74 s+" la zone doit
009F60: 20 65 74 72 65 20 6F 62 6C 69 67 61 74 6F 69 72 etre obligatoir
009F70: 65 6D 65 6E 74 20 72 65 6E 73 65 69 67 6E 65 65 ement renseignee
009F80: 22 20 74 6F 20 6D 65 73 73 0D 0A 63 61 73 65 20 " to mess..case
009F90: 6E 6F 6D 65 73 73 20 3D 20 33 36 0D 0A 73 74 6F nomess = 36..sto
009FA0: 72 65 20 6D 65 73 73 2B 22 20 61 20 72 65 6E 73 re mess+" a rens
009FB0: 65 69 67 6E 65 72 2C 20 7A 6F 6E 65 20 22 2B 76 eigner, zone "+v
009FC0: 61 6C 31 2B 22 20 6E 6F 6E 20 76 69 64 65 22 20 al1+" non vide"
009FD0: 74 6F 20 6D 65 73 73 0D 0A 63 61 73 65 20 6E 6F to mess..case no
009FE0: 6D 65 73 73 20 3D 20 33 37 0D 0A 73 74 6F 72 65 mess = 37..store
009FF0: 20 6D 65 73 73 2B 22 20 64 6F 69 74 20 65 74 72 mess+" doit etr
00A000: 2A 20 64 65 6D 7A 6F 6E 65 3A 20 64 65 6D 61 6E * demzone: deman
00A010: 64 65 20 6C 65 73 20 7A 6F 6E 65 73 20 63 6F 6E de les zones con
00A020: 73 74 69 74 75 61 6E 74 20 75 6E 65 20 63 6C 65 stituant une cle
00A030: 0D 0A 0D 0A 73 74 6F 72 65 20 31 20 74 6F 20 63 ....store 1 to c
00A040: 70 74 0D 0A 73 74 6F 72 65 20 31 34 20 74 6F 20 pt..store 14 to
00A050: 6C 69 67 0D 0A 73 74 6F 72 65 20 27 20 27 20 74 lig..store ' ' t
00A060: 6F 20 65 78 70 0D 0A 73 74 6F 72 65 20 27 20 27 o exp..store ' '
00A070: 20 74 6F 20 63 6C 65 0D 0A 69 66 20 63 68 6F 69 to cle..if choi
00A080: 78 3D 27 35 27 0D 0A 20 20 20 73 74 6F 72 65 20 x='5'.. store
00A090: 27 53 27 20 74 6F 20 63 68 6F 69 78 0D 0A 65 6E 'S' to choix..en
00A0A0: 64 69 66 0D 0A 64 6F 20 77 68 69 6C 65 20 63 70 dif..do while cp
00A0B0: 74 3C 3D 70 2E 6E 62 7A 6F 6E 65 73 0D 0A 20 20 t<=p.nbzones..
00A0C0: 20 73 74 6F 72 65 20 27 70 2E 7A 6F 6E 27 2D 73 store 'p.zon'-s
00A0D0: 74 72 28 63 70 74 2C 31 29 20 74 6F 20 7A 6F 6E tr(cpt,1) to zon
00A0E0: 65 0D 0A 20 20 20 73 74 6F 72 65 20 27 70 2E 64 e.. store 'p.d
00A0F0: 65 62 27 2D 73 74 72 28 63 70 74 2C 31 29 20 74 eb'-str(cpt,1) t
00A100: 6F 20 64 65 62 0D 0A 20 20 20 73 74 6F 72 65 20 o deb.. store
00A110: 27 70 2E 66 69 6E 27 2D 73 74 72 28 63 70 74 2C 'p.fin'-str(cpt,
00A120: 31 29 20 74 6F 20 66 69 6E 0D 0A 20 20 20 73 74 1) to fin.. st
00A130: 6F 72 65 20 26 7A 6F 6E 65 20 74 6F 20 6E 6F 6D ore &zone to nom
00A140: 7A 0D 0A 20 20 20 66 69 6E 64 20 26 6E 6F 6D 7A z.. find &nomz
00A150: 0D 0A 20 20 20 69 66 20 26 66 69 6E 3D 27 46 27 .. if &fin='F'
00A160: 0D 0A 20 20 20 20 20 20 73 74 6F 72 65 20 66 69 .. store fi
00A170: 65 6C 64 3A 6C 65 6E 20 74 6F 20 6C 6F 6E 67 0D eld:len to long.
00A180: 0A 20 20 20 65 6C 73 65 0D 0A 20 20 20 20 20 20 . else..
00A190: 73 74 6F 72 65 20 76 61 6C 28 26 66 69 6E 29 20 store val(&fin)
00A1A0: 74 6F 20 6C 6F 6E 67 0D 0A 20 20 20 65 6E 64 69 to long.. endi
00A1B0: 66 0D 0A 20 20 20 73 74 6F 72 65 20 6C 6F 6E 67 f.. store long
00A1C0: 2D 76 61 6C 28 26 64 65 62 29 2B 31 20 74 6F 20 -val(&deb)+1 to
00A1D0: 6C 6F 6E 67 0D 0A 20 20 20 73 74 6F 72 65 20 27 long.. store '
00A1E0: 66 27 20 74 6F 20 63 6F 72 72 65 63 74 0D 0A 20 f' to correct..
00A1F0: 20 20 64 6F 20 77 68 69 6C 65 20 63 6F 72 72 65 do while corre
00A200: 65 20 73 75 70 65 72 69 65 75 72 65 20 6F 75 20 e superieure ou
00A210: 65 67 61 6C 65 20 61 20 22 2B 76 61 6C 31 20 74 egale a "+val1 t
00A220: 6F 20 6D 65 73 73 0D 0A 63 61 73 65 20 6E 6F 6D o mess..case nom
00A230: 65 73 73 20 3D 20 33 38 0D 0A 73 74 6F 72 65 20 ess = 38..store
00A240: 6D 65 73 73 2B 22 20 64 6F 69 74 20 65 74 72 65 mess+" doit etre
00A250: 20 69 6E 66 65 72 69 65 75 72 65 20 6F 75 20 65 inferieure ou e
00A260: 67 61 6C 65 20 61 20 22 2B 76 61 6C 31 20 74 6F gale a "+val1 to
00A270: 20 6D 65 73 73 0D 0A 63 61 73 65 20 6E 6F 6D 65 mess..case nome
00A280: 73 73 20 3D 20 33 39 0D 0A 73 74 6F 72 65 20 6D ss = 39..store m
00A290: 65 73 73 2B 22 20 7A 6F 6E 65 20 65 6E 20 64 65 ess+" zone en de
00A2A0: 68 6F 72 73 20 64 65 73 20 62 6F 72 6E 65 73 22 hors des bornes"
00A2B0: 20 74 6F 20 6D 65 73 73 0D 0A 63 61 73 65 20 6E to mess..case n
00A2C0: 6F 6D 65 73 73 20 3D 20 34 30 0D 0A 73 74 6F 72 omess = 40..stor
00A2D0: 65 20 6D 65 73 73 2B 22 20 6E 27 61 70 70 61 72 e mess+" n'appar
00A2E0: 74 69 65 6E 74 20 70 61 73 20 40 20 6C 61 20 6C tient pas @ la l
00A2F0: 69 73 74 65 20 64 65 20 63 6F 64 65 73 22 20 74 iste de codes" t
00A300: 6F 20 6D 65 73 73 0D 0A 63 61 73 65 20 6E 6F 6D o mess..case nom
00A310: 65 73 73 20 3D 20 34 34 0D 0A 73 74 6F 72 65 20 ess = 44..store
00A320: 22 6C 61 20 6C 69 73 74 65 20 64 65 73 20 63 6F "la liste des co
00A330: 64 65 73 20 64 6F 69 74 20 65 74 72 65 20 6E 6F des doit etre no
00A340: 6E 20 76 69 64 65 22 20 74 6F 20 6D 65 73 73 0D n vide" to mess.
00A350: 0A 63 61 73 65 20 6E 6F 6D 65 73 73 20 3D 20 34 .case nomess = 4
00A360: 35 0D 0A 73 74 6F 72 65 20 22 75 6E 65 20 6D 65 5..store "une me
00A370: 6D 65 20 7A 6F 6E 65 20 6E 65 20 64 6F 69 74 20 me zone ne doit
00A380: 70 61 73 20 61 70 70 61 72 61 69 74 72 65 20 64 pas apparaitre d
00A390: 65 75 78 20 66 6F 69 73 20 64 61 6E 73 20 6C 61 eux fois dans la
00A3A0: 20 63 6C 65 20 70 72 69 6E 63 69 70 61 6C 65 22 cle principale"
00A3B0: 3B 0D 0A 20 74 6F 20 6D 65 73 73 0D 0A 63 61 73 ;.. to mess..cas
00A3C0: 65 20 6E 6F 6D 65 73 73 20 3D 20 34 36 0D 0A 73 e nomess = 46..s
00A3D0: 74 6F 72 65 20 22 6C 61 20 74 61 69 6C 6C 65 20 tore "la taille
00A3E0: 64 65 20 6C 27 65 6E 72 65 67 69 73 74 72 65 6D de l'enregistrem
00A3F0: 65 6E 74 20 64 6F 69 74 20 65 74 72 65 20 69 6E ent doit etre in
00A400: 63 74 3D 27 66 27 0D 0A 20 20 20 20 20 20 73 74 ct='f'.. st
00A410: 6F 72 65 20 27 6D 7A 6F 6E 65 27 20 74 6F 20 6D ore 'mzone' to m
00A420: 7A 6F 6E 0D 0A 20 20 20 20 20 20 64 6F 20 69 6E zon.. do in
00A430: 69 74 7A 6F 6E 65 0D 0A 20 20 20 20 20 20 69 66 itzone.. if
00A440: 20 66 69 65 6C 64 3A 74 79 70 65 20 23 20 27 4E field:type # 'N
00A450: 27 0D 0A 20 20 20 20 20 20 20 20 20 73 74 6F 72 '.. stor
00A460: 65 20 24 28 26 6D 7A 6F 6E 2C 31 2C 6C 6F 6E 67 e $(&mzon,1,long
00A470: 29 20 74 6F 20 26 6D 7A 6F 6E 0D 0A 20 20 20 20 ) to &mzon..
00A480: 20 20 65 6E 64 69 66 0D 0A 20 20 20 20 20 20 40 endif.. @
00A490: 20 6C 69 67 2C 35 20 73 61 79 20 74 65 78 74 65 lig,5 say texte
00A4A0: 0D 0A 20 20 20 20 20 20 40 20 6C 69 67 2C 32 35 .. @ lig,25
00A4B0: 20 67 65 74 20 6D 7A 6F 6E 65 20 26 70 69 63 0D get mzone &pic.
00A4C0: 0A 20 20 20 20 20 20 72 65 61 64 0D 0A 20 20 20 . read..
00A4D0: 20 20 20 63 6C 65 61 72 20 67 65 74 0D 0A 20 20 clear get..
00A4E0: 20 20 20 20 69 66 20 66 69 65 6C 64 3A 74 79 70 if field:typ
00A4F0: 65 20 23 20 27 4E 27 0D 0A 20 20 20 20 20 20 20 e # 'N'..
00A500: 20 20 73 74 6F 72 65 20 21 28 6D 7A 6F 6E 65 29 store !(mzone)
00A510: 20 74 6F 20 6D 7A 6F 6E 65 0D 0A 20 20 20 20 20 to mzone..
00A520: 20 20 20 20 73 74 6F 72 65 20 24 28 6D 7A 6F 6E store $(mzon
00A530: 65 2B 24 28 62 6C 61 6E 63 2C 31 2C 6C 6F 6E 67 e+$(blanc,1,long
00A540: 29 2C 31 2C 6C 6F 6E 67 29 20 74 6F 20 6D 7A 6F ),1,long) to mzo
00A550: 6E 65 0D 0A 20 20 20 20 20 20 20 20 20 73 74 6F ne.. sto
00A560: 72 65 20 27 74 27 20 74 6F 20 63 6F 72 72 65 63 re 't' to correc
00A570: 74 0D 0A 20 20 20 20 20 20 65 6C 73 65 0D 0A 20 t.. else..
00A580: 20 20 20 20 20 20 20 20 73 74 6F 72 65 20 27 39 store '9
00A590: 39 39 39 39 39 39 39 39 39 39 39 39 39 39 39 39 9999999999999999
00A5A0: 39 39 39 27 20 74 6F 20 6E 65 75 66 0D 0A 20 20 999' to neuf..
00A5B0: 20 20 20 20 20 20 20 69 66 20 66 69 65 6C 64 3A if field:
00A5C0: 64 65 63 20 3D 20 30 0D 0A 20 20 20 20 20 20 20 dec = 0..
00A5D0: 20 20 20 20 20 73 74 6F 72 65 20 66 69 65 6C 64 store field
00A5E0: 3A 6C 65 6E 20 74 6F 20 6E 62 65 6E 74 0D 0A 20 :len to nbent..
00A5F0: 20 20 20 20 20 20 20 20 20 20 20 73 74 6F 72 65 store
00A600: 66 65 72 69 65 75 72 65 20 61 20 31 30 30 30 20 ferieure a 1000
00A610: 63 61 72 61 63 74 65 72 65 73 22 20 3B 0D 0A 74 caracteres" ;..t
00A620: 6F 20 6D 65 73 73 0D 0A 63 61 73 65 20 6E 6F 6D o mess..case nom
00A630: 65 73 73 20 3D 20 34 37 0D 0A 73 74 6F 72 65 20 ess = 47..store
00A640: 22 6C 65 20 6E 6F 6D 62 72 65 20 64 65 20 63 61 "le nombre de ca
00A650: 72 61 63 74 65 72 65 73 20 64 65 20 6C 61 20 63 racteres de la c
00A660: 6C 65 20 64 6F 69 74 20 65 74 72 65 20 69 6E 66 le doit etre inf
00A670: 65 72 69 65 75 72 20 61 20 39 39 22 20 74 6F 20 erieur a 99" to
00A680: 6D 65 73 73 0D 0A 63 61 73 65 20 6E 6F 6D 65 73 mess..case nomes
00A690: 73 20 3D 20 34 38 0D 0A 73 74 6F 72 65 20 22 33 s = 48..store "3
00A6A0: 32 20 7A 6F 6E 65 73 20 6F 6E 74 20 65 74 65 20 2 zones ont ete
00A6B0: 63 72 65 65 65 73 20 6F 75 20 6C 27 65 6E 72 65 creees ou l'enre
00A6C0: 67 69 73 74 72 65 6D 65 6E 74 20 66 61 69 74 20 gistrement fait
00A6D0: 31 30 30 30 20 63 61 72 61 63 74 65 72 65 73 22 1000 caracteres"
00A6E0: 20 74 6F 20 3B 0D 0A 6D 65 73 73 0D 0A 63 61 73 to ;..mess..cas
00A6F0: 65 20 6E 6F 6D 65 73 73 20 3D 20 34 39 0D 0A 73 e nomess = 49..s
00A700: 74 6F 72 65 20 22 66 69 63 68 69 65 72 20 22 2B tore "fichier "+
00A710: 6E 6F 6D 66 69 63 68 2B 22 20 6E 6F 6E 20 67 65 nomfich+" non ge
00A720: 72 65 20 70 61 72 20 6C 27 61 70 70 6C 69 63 61 re par l'applica
00A730: 74 69 6F 6E 20 67 65 73 74 69 6F 6E 20 64 65 20 tion gestion de
00A740: 66 69 63 68 69 65 72 73 22 3B 0D 0A 20 74 6F 20 fichiers";.. to
00A750: 6D 65 73 73 0D 0A 63 61 73 65 20 6E 6F 6D 65 73 mess..case nomes
00A760: 73 20 3D 20 35 31 0D 0A 73 74 6F 72 65 20 24 28 s = 51..store $(
00A770: 6E 6F 6D 66 69 63 68 2C 33 2C 38 29 2B 22 2E 72 nomfich,3,8)+".r
00A780: 65 66 20 6F 75 20 22 2B 24 28 6E 6F 6D 66 69 63 ef ou "+$(nomfic
00A790: 68 2C 33 2C 38 29 2B 22 2E 6E 6F 6D 20 6F 75 20 h,3,8)+".nom ou
00A7A0: 22 2B 24 28 6E 6F 6D 66 69 63 68 2C 33 2C 38 29 "+$(nomfich,3,8)
00A7B0: 2B 22 2E 63 6C 65 3B 0D 0A 20 6E 27 65 73 74 20 +".cle;.. n'est
00A7C0: 70 61 73 20 73 75 72 20 6C 61 20 64 69 73 71 75 pas sur la disqu
00A7D0: 65 74 74 65 20 22 2B 75 6E 69 74 20 74 6F 20 6D ette "+unit to m
00A7E0: 65 73 73 0D 0A 63 61 73 65 20 6E 6F 6D 65 73 73 ess..case nomess
00A7F0: 20 3D 20 35 32 0D 0A 73 74 6F 72 65 20 24 28 6E = 52..store $(n
00A800: 20 24 28 6E 65 75 66 2C 31 2C 6E 62 65 6E 74 29 $(neuf,1,nbent)
00A810: 20 74 6F 20 6D 61 78 70 6F 73 0D 0A 20 20 20 20 to maxpos..
00A820: 20 20 20 20 20 20 20 20 69 66 20 6E 62 65 6E 74 if nbent
00A830: 20 3D 20 31 0D 0A 20 20 20 20 20 20 20 20 20 20 = 1..
00A840: 20 20 20 20 20 73 74 6F 72 65 20 27 30 27 20 74 store '0' t
00A850: 6F 20 6D 69 6E 70 6F 73 0D 0A 20 20 20 20 20 20 o minpos..
00A860: 20 20 20 20 20 20 65 6C 73 65 0D 0A 20 20 20 20 else..
00A870: 20 20 20 20 20 20 20 20 20 20 20 73 74 6F 72 65 store
00A880: 20 27 2D 27 2D 24 28 6E 65 75 66 2C 31 2C 6E 62 '-'-$(neuf,1,nb
00A890: 65 6E 74 2D 31 29 20 74 6F 20 6D 69 6E 70 6F 73 ent-1) to minpos
00A8A0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 65 6E .. en
00A8B0: 64 69 66 0D 0A 20 20 20 20 20 20 20 20 20 65 6C dif.. el
00A8C0: 73 65 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 se..
00A8D0: 73 74 6F 72 65 20 66 69 65 6C 64 3A 6C 65 6E 2D store field:len-
00A8E0: 66 69 65 6C 64 3A 64 65 63 2D 31 20 74 6F 20 6E field:dec-1 to n
00A8F0: 62 65 6E 74 0D 0A 20 20 20 20 20 20 20 20 20 20 bent..
00A900: 20 20 73 74 6F 72 65 20 24 28 6E 65 75 66 2C 31 store $(neuf,1
00A910: 2C 6E 62 65 6E 74 29 2D 27 2E 27 2D 24 28 6E 65 ,nbent)-'.'-$(ne
00A920: 75 66 2C 31 2C 66 69 65 6C 64 3A 64 65 63 29 20 uf,1,field:dec)
00A930: 74 6F 20 6D 61 78 70 6F 73 0D 0A 20 20 20 20 20 to maxpos..
00A940: 20 20 20 20 20 20 20 69 66 20 6E 62 65 6E 74 20 if nbent
00A950: 3D 20 31 0D 0A 20 20 20 20 20 20 20 20 20 20 20 = 1..
00A960: 20 20 20 20 73 74 6F 72 65 20 27 2D 2E 27 2D 24 store '-.'-$
00A970: 28 6E 65 75 66 2C 31 2C 66 69 65 6C 64 3A 64 65 (neuf,1,field:de
00A980: 63 29 20 74 6F 20 6D 69 6E 70 6F 73 0D 0A 20 20 c) to minpos..
00A990: 20 20 20 20 20 20 20 20 20 20 65 6C 73 65 0D 0A else..
00A9A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 s
00A9B0: 74 6F 72 65 20 27 2D 27 2D 24 28 6E 65 75 66 2C tore '-'-$(neuf,
00A9C0: 31 2C 6E 62 65 6E 74 2D 31 29 2D 27 2E 27 2D 24 1,nbent-1)-'.'-$
00A9D0: 28 6E 65 75 66 2C 31 2C 66 69 65 6C 64 3A 64 65 (neuf,1,field:de
00A9E0: 63 29 20 74 6F 20 6D 69 6E 70 6F 73 0D 0A 20 20 c) to minpos..
00A9F0: 20 20 20 20 20 20 20 20 20 20 65 6E 64 69 66 0D endif.
00AA00: 6F 6D 66 69 63 68 2C 33 2C 38 29 2B 22 2E 65 6C omfich,3,8)+".el
00AA10: 66 20 6F 75 20 22 2B 24 28 6E 6F 6D 66 69 63 68 f ou "+$(nomfich
00AA20: 2C 33 2C 38 29 2B 22 2E 65 6C 69 20 6E 27 65 73 ,3,8)+".eli n'es
00AA30: 74 20 3B 0D 0A 70 61 73 20 73 75 72 20 6C 61 20 t ;..pas sur la
00AA40: 64 69 73 71 75 65 74 74 65 20 22 2B 75 6E 69 74 disquette "+unit
00AA50: 20 74 6F 20 6D 65 73 73 0D 0A 63 61 73 65 20 6E to mess..case n
00AA60: 6F 6D 65 73 73 20 3D 20 35 33 0D 0A 73 74 6F 72 omess = 53..stor
00AA70: 65 20 22 6C 65 20 66 69 63 68 69 65 72 20 22 2B e "le fichier "+
00AA80: 24 28 6E 6F 6D 66 69 63 68 2C 33 2C 38 29 2B 22 $(nomfich,3,8)+"
00AA90: 20 6F 75 20 6C 27 75 6E 20 64 65 20 73 65 73 20 ou l'un de ses
00AAA0: 69 6E 64 65 78 20 6E 27 65 73 74 20 70 61 73 20 index n'est pas
00AAB0: 73 75 72 20 3B 0D 0A 6C 61 20 64 69 73 71 75 65 sur ;..la disque
00AAC0: 74 74 65 20 22 2B 75 6E 69 74 20 74 6F 20 6D 65 tte "+unit to me
00AAD0: 73 73 0D 0A 65 6E 64 63 61 73 65 0D 0A 40 20 6C ss..endcase..@ l
00AAE0: 69 67 6D 31 2C 30 20 73 61 79 20 6D 65 73 73 0D igm1,0 say mess.
00AAF0: 0A 40 20 6C 69 67 6D 31 2B 31 2C 30 20 73 61 79 .@ ligm1+1,0 say
00AB00: 20 27 74 61 70 65 7A 20 73 75 72 20 75 6E 65 20 'tapez sur une
00AB10: 74 6F 75 63 68 65 20 70 6F 75 72 20 63 6F 6E 74 touche pour cont
00AB20: 69 6E 75 65 72 20 20 20 20 20 20 20 20 20 20 20 inuer
00AB30: 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 0D 0A ;..
00AB40: 20 20 20 20 20 20 20 20 20 27 0D 0A 73 65 74 20 '..set
00AB50: 63 6F 6E 73 6F 6C 65 20 6F 66 66 0D 0A 77 61 69 console off..wai
00AB60: 74 0D 0A 73 65 74 20 63 6F 6E 73 6F 6C 65 20 6F t..set console o
00AB70: 6E 0D 0A 40 20 6C 69 67 6D 31 2C 30 0D 0A 40 20 n..@ ligm1,0..@
00AB80: 6C 69 67 6D 31 2B 31 2C 30 0D 0A 72 65 6C 65 61 ligm1+1,0..relea
00AB90: 73 65 20 6D 65 73 73 0D 0A 72 65 74 75 72 6E 0D se mess..return.
00ABA0: 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D ................
00ABB0: 0A 1A 1A 69 74 20 6F 62 6C 69 67 61 74 6F 69 72 ...it obligatoir
00ABC0: 65 6D 65 6E 74 20 65 74 72 65 20 72 65 6E 73 65 ement etre rense
00ABD0: 69 67 6E 7B 65 22 20 74 6F 20 6D 65 73 73 0D 0A ign{e" to mess..
00ABE0: 63 61 73 65 20 6E 6F 6D 65 73 73 20 3D 20 31 32 case nomess = 12
00ABF0: 0D 0A 73 74 6F 72 65 20 22 6C 61 20 7A 6F 6E 65 ..store "la zone
00AC00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
00AC10: 09 00 01 00 02 09 50 E5 09 00 41 02 00 00 00 02 ......P...A.....
00AC20: 09 00 46 02 00 00 00 02 09 00 42 02 00 00 00 02 ..F.......B.....
00AC30: 09 00 47 02 00 00 00 02 09 00 43 02 00 00 00 02 ..G.......C.....
00AC40: 09 00 48 02 00 00 00 02 09 00 44 02 00 00 00 02 ..H.......D.....
00AC50: 09 00 49 02 00 00 00 02 09 00 45 02 00 00 00 02 ..I.......E.....
00AC60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00AC70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00AC80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00AC90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00ACA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00ACB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00ACC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00ACD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00ACE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00ACF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00AD00: 0A 20 20 20 20 20 20 20 20 20 65 6E 64 69 66 0D . endif.
00AD10: 0A 20 20 20 20 20 20 20 20 20 69 66 20 6D 7A 6F . if mzo
00AD20: 6E 65 3C 26 6D 69 6E 70 6F 73 2E 6F 72 2E 6D 7A ne<&minpos.or.mz
00AD30: 6F 6E 65 3E 26 6D 61 78 70 6F 73 0D 0A 20 20 20 one>&maxpos..
00AD40: 20 20 20 20 20 20 20 20 20 73 74 6F 72 65 20 33 store 3
00AD50: 33 20 74 6F 20 6E 6F 6D 65 73 73 0D 0A 20 20 20 3 to nomess..
00AD60: 20 20 20 20 20 20 20 20 20 64 6F 20 61 66 66 6D do affm
00AD70: 65 73 73 0D 0A 20 20 20 20 20 20 20 20 20 65 6C ess.. el
00AD80: 73 65 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 se..
00AD90: 73 74 6F 72 65 20 27 74 27 20 74 6F 20 63 6F 72 store 't' to cor
00ADA0: 72 65 63 74 0D 0A 20 20 20 20 20 20 20 20 20 65 rect.. e
00ADB0: 6E 64 69 66 0D 0A 20 20 20 20 20 20 20 20 20 72 ndif.. r
00ADC0: 65 6C 65 61 73 65 20 6E 65 75 66 2C 6E 62 65 6E elease neuf,nben
00ADD0: 74 2C 6D 69 6E 70 6F 73 2C 6D 61 78 70 6F 73 0D t,minpos,maxpos.
00ADE0: 0A 20 20 20 20 20 20 65 6E 64 69 66 0D 0A 20 20 . endif..
00ADF0: 20 65 6E 64 64 6F 0D 0A 20 20 20 64 6F 20 63 61 enddo.. do ca
00AE00: 73 65 0D 0A 20 20 20 20 20 20 63 61 73 65 20 66 se.. case f
00AE10: 69 65 6C 64 3A 74 79 70 65 3D 27 4E 27 0D 0A 20 ield:type='N'..
00AE20: 20 20 20 20 20 73 74 6F 72 65 20 63 6C 65 2B 73 store cle+s
00AE30: 74 72 28 6D 7A 6F 6E 65 2C 66 69 65 6C 64 3A 6C tr(mzone,field:l
00AE40: 65 6E 2C 66 69 65 6C 64 3A 64 65 63 29 20 74 6F en,field:dec) to
00AE50: 20 63 6C 65 0D 0A 20 20 20 20 20 20 73 74 6F 72 cle.. stor
00AE60: 65 20 26 7A 6F 6E 65 20 74 6F 20 65 78 70 0D 0A e &zone to exp..
00AE70: 20 20 20 20 20 20 63 61 73 65 20 24 28 76 65 72 case $(ver
00AE80: 69 66 2C 32 2C 31 29 3D 27 44 27 0D 0A 20 20 20 if,2,1)='D'..
00AE90: 20 20 20 73 74 6F 72 65 20 63 6C 65 2B 24 28 6D store cle+$(m
00AEA0: 7A 6F 6E 65 2C 37 2C 32 29 2B 24 28 6D 7A 6F 6E zone,7,2)+$(mzon
00AEB0: 65 2C 34 2C 32 29 2B 24 28 6D 7A 6F 6E 65 2C 31 e,4,2)+$(mzone,1
00AEC0: 2C 32 29 20 74 6F 20 63 6C 65 0D 0A 20 20 20 20 ,2) to cle..
00AED0: 20 20 73 74 6F 72 65 20 65 78 70 2D 27 2B 24 28 store exp-'+$(
00AEE0: 27 2D 26 7A 6F 6E 65 2D 27 2C 37 2C 32 29 2B 24 '-&zone-',7,2)+$
00AEF0: 28 27 2D 26 7A 6F 6E 65 2D 27 2C 34 2C 32 29 2B ('-&zone-',4,2)+
00AF00: 7A 20 72 65 74 75 72 6E 20 70 6F 75 72 20 61 62 z return pour ab
00AF10: 61 6E 64 6F 6E 6E 65 72 27 0D 0A 20 20 20 65 6E andonner'.. en
00AF20: 64 69 66 0D 0A 20 20 20 72 65 61 64 0D 0A 20 20 dif.. read..
00AF30: 20 63 6C 65 61 72 20 67 65 74 0D 0A 20 20 20 40 clear get.. @
00AF40: 20 6C 69 67 6D 31 2C 30 0D 0A 20 20 20 2A 20 76 ligm1,0.. * v
00AF50: 65 75 74 2D 6F 6E 20 73 6F 72 74 69 72 0D 0A 20 eut-on sortir..
00AF60: 20 20 69 66 20 6D 6E 6F 6D 65 6C 65 6D 3D 27 20 if mnomelem='
00AF70: 27 0D 0A 20 20 20 20 20 20 69 66 20 65 6C 65 6D '.. if elem
00AF80: 3D 27 4C 27 2E 6F 72 2E 74 79 70 69 6E 64 65 78 ='L'.or.typindex
00AF90: 23 27 50 27 0D 0A 20 20 20 20 20 20 20 20 20 72 #'P'.. r
00AFA0: 65 6C 65 61 73 65 20 63 6F 72 72 65 63 74 2C 6E elease correct,n
00AFB0: 62 6C 69 73 74 2C 6D 6F 64 69 66 2C 74 79 70 69 blist,modif,typi
00AFC0: 6E 64 65 78 2C 6D 6C 69 62 65 6C 65 6D 2C 63 6C ndex,mlibelem,cl
00AFD0: 65 0D 0A 20 20 20 20 20 20 20 20 20 72 65 74 75 e.. retu
00AFE0: 72 6E 0D 0A 20 20 20 20 20 20 65 6C 73 65 0D 0A rn.. else..
00AFF0: 20 20 20 20 20 20 20 20 20 73 74 6F 72 65 20 32 store 2
00B000: 34 20 74 6F 20 6E 6F 6D 65 73 73 0D 0A 20 20 20 4 to nomess..
00B010: 20 20 20 20 20 20 64 6F 20 61 66 66 6D 65 73 73 do affmess
00B020: 0D 0A 20 20 20 20 20 20 65 6E 64 69 66 0D 0A 20 .. endif..
00B030: 20 20 65 6E 64 69 66 0D 0A 20 20 20 69 66 20 6E endif.. if n
00B040: 6F 6D 65 73 73 20 3D 20 30 0D 0A 20 20 20 20 20 omess = 0..
00B050: 20 73 74 6F 72 65 20 21 28 6D 6E 6F 6D 65 6C 65 store !(mnomele
00B060: 6D 29 20 74 6F 20 6D 6E 6F 6D 65 6C 65 6D 0D 0A m) to mnomelem..
00B070: 20 20 20 20 20 20 2A 20 6C 65 20 6E 6F 6D 20 65 * le nom e
00B080: 78 69 73 74 65 2D 74 2D 69 6C 20 64 65 6A 61 0D xiste-t-il deja.
00B090: 0A 20 20 20 20 20 20 73 74 6F 72 65 20 65 6C 65 . store ele
00B0A0: 6D 2D 6D 6E 6F 6D 65 6C 65 6D 20 74 6F 20 63 6C m-mnomelem to cl
00B0B0: 65 0D 0A 20 20 20 20 20 20 66 69 6E 64 20 26 63 e.. find &c
00B0C0: 6C 65 0D 0A 20 20 20 20 20 20 69 66 20 23 20 23 le.. if # #
00B0D0: 20 30 0D 0A 20 20 20 20 20 20 20 20 20 69 66 20 0.. if
00B0E0: 65 6C 65 6D 3D 27 4C 27 0D 0A 20 20 20 20 20 20 elem='L'..
00B0F0: 20 20 20 73 74 6F 72 65 20 36 20 74 6F 20 6E 6F store 6 to no
00B100: 24 28 27 2D 26 7A 6F 6E 65 2D 27 2C 31 2C 32 29 $('-&zone-',1,2)
00B110: 27 20 74 6F 20 65 78 70 0D 0A 20 20 20 20 20 20 ' to exp..
00B120: 63 61 73 65 20 24 28 76 65 72 69 66 2C 32 2C 31 case $(verif,2,1
00B130: 29 3D 27 4D 27 0D 0A 20 20 20 20 20 20 73 74 6F )='M'.. sto
00B140: 72 65 20 63 6C 65 2B 24 28 6D 7A 6F 6E 65 2C 34 re cle+$(mzone,4
00B150: 2C 32 29 2B 24 28 6D 7A 6F 6E 65 2C 31 2C 32 29 ,2)+$(mzone,1,2)
00B160: 20 74 6F 20 63 6C 65 0D 0A 20 20 20 20 20 20 73 to cle.. s
00B170: 74 6F 72 65 20 65 78 70 2D 27 2B 24 28 27 2D 26 tore exp-'+$('-&
00B180: 7A 6F 6E 65 2D 27 2C 34 2C 32 29 2B 24 28 27 2D zone-',4,2)+$('-
00B190: 26 7A 6F 6E 65 2D 27 2C 31 2C 32 29 27 20 74 6F &zone-',1,2)' to
00B1A0: 20 65 78 70 0D 0A 20 20 20 20 20 20 6F 74 68 65 exp.. othe
00B1B0: 72 77 69 73 65 0D 0A 20 20 20 20 20 20 73 74 6F rwise.. sto
00B1C0: 72 65 20 63 6C 65 2B 21 28 6D 7A 6F 6E 65 29 20 re cle+!(mzone)
00B1D0: 74 6F 20 63 6C 65 0D 0A 20 20 20 20 20 20 69 66 to cle.. if
00B1E0: 20 26 64 65 62 3D 27 31 27 2E 61 6E 64 2E 26 66 &deb='1'.and.&f
00B1F0: 69 6E 3D 27 46 27 0D 0A 20 20 20 20 20 20 20 20 in='F'..
00B200: 20 73 74 6F 72 65 20 65 78 70 2D 27 2B 21 28 27 store exp-'+!('
00B210: 2D 26 7A 6F 6E 65 2D 27 29 27 20 74 6F 20 65 78 -&zone-')' to ex
00B220: 70 0D 0A 20 20 20 20 20 20 65 6C 73 65 0D 0A 20 p.. else..
00B230: 20 20 20 20 20 20 20 20 73 74 6F 72 65 20 65 78 store ex
00B240: 70 2D 27 2B 21 28 24 28 27 2D 26 7A 6F 6E 65 2D p-'+!($('-&zone-
00B250: 27 2C 27 2D 26 64 65 62 2D 27 2C 27 2D 73 74 72 ','-&deb-','-str
00B260: 28 6C 6F 6E 67 2C 33 29 2D 27 29 29 27 20 74 6F (long,3)-'))' to
00B270: 20 65 78 70 0D 0A 20 20 20 20 20 20 65 6E 64 69 exp.. endi
00B280: 66 0D 0A 20 20 20 65 6E 64 63 61 73 65 0D 0A 20 f.. endcase..
00B290: 20 20 73 74 6F 72 65 20 63 70 74 2B 31 20 74 6F store cpt+1 to
00B2A0: 20 63 70 74 0D 0A 20 20 20 73 74 6F 72 65 20 6C cpt.. store l
00B2B0: 69 67 2B 31 20 74 6F 20 6C 69 67 0D 0A 65 6E 64 ig+1 to lig..end
00B2C0: 64 6F 0D 0A 73 74 6F 72 65 20 24 28 63 6C 65 2C do..store $(cle,
00B2D0: 32 2C 6C 65 6E 28 63 6C 65 29 2D 31 29 20 74 6F 2,len(cle)-1) to
00B2E0: 20 63 6C 65 0D 0A 69 66 20 66 69 65 6C 64 3A 74 cle..if field:t
00B2F0: 79 70 65 3D 27 4E 27 0D 0A 20 20 20 69 66 20 63 ype='N'.. if c
00B300: 6D 65 73 73 0D 0A 20 20 20 20 20 20 20 20 20 65 mess.. e
00B310: 6C 73 65 0D 0A 20 20 20 20 20 20 20 20 20 73 74 lse.. st
00B320: 6F 72 65 20 31 30 20 74 6F 20 6E 6F 6D 65 73 73 ore 10 to nomess
00B330: 0D 0A 20 20 20 20 20 20 20 20 20 65 6E 64 69 66 .. endif
00B340: 0D 0A 20 20 20 20 20 20 20 20 20 64 6F 20 61 66 .. do af
00B350: 66 6D 65 73 73 0D 0A 20 20 20 20 20 20 65 6C 73 fmess.. els
00B360: 65 0D 0A 20 20 20 20 20 20 20 20 20 73 74 6F 72 e.. stor
00B370: 65 20 27 74 27 20 74 6F 20 63 6F 72 72 65 63 74 e 't' to correct
00B380: 0D 0A 20 20 20 20 20 20 65 6E 64 69 66 0D 0A 20 .. endif..
00B390: 20 20 65 6E 64 69 66 0D 0A 65 6E 64 64 6F 0D 0A endif..enddo..
00B3A0: 72 65 6C 65 61 73 65 20 63 6F 72 72 65 63 74 0D release correct.
00B3B0: 0A 65 6E 64 69 66 0D 0A 73 74 6F 72 65 20 24 28 .endif..store $(
00B3C0: 62 6C 61 6E 63 2C 31 2C 33 30 29 20 74 6F 20 6D blanc,1,30) to m
00B3D0: 6C 69 62 65 6C 65 6D 0D 0A 40 20 36 2C 31 30 20 libelem..@ 6,10
00B3E0: 73 61 79 20 27 6C 69 62 65 6C 6C 65 20 65 78 70 say 'libelle exp
00B3F0: 6C 69 63 69 74 65 20 27 0D 0A 40 20 36 2C 34 30 licite '..@ 6,40
00B400: 20 67 65 74 20 6D 6C 69 62 65 6C 65 6D 0D 0A 72 get mlibelem..r
00B410: 65 61 64 0D 0A 69 66 20 65 6C 65 6D 3D 27 4C 27 ead..if elem='L'
00B420: 0D 0A 20 20 20 61 70 70 65 6E 64 20 62 6C 61 6E .. append blan
00B430: 6B 0D 0A 20 20 20 72 65 70 6C 61 63 65 20 74 79 k.. replace ty
00B440: 70 65 6C 65 6D 20 77 69 74 68 20 27 4C 27 2C 6E pelem with 'L',n
00B450: 6F 6D 65 6C 65 6D 20 77 69 74 68 20 6D 6E 6F 6D omelem with mnom
00B460: 65 6C 65 6D 2C 6C 69 62 65 6C 65 6D 20 77 69 74 elem,libelem wit
00B470: 68 20 6D 6C 69 62 65 6C 65 6D 0D 0A 20 20 20 75 h mlibelem.. u
00B480: 73 65 0D 0A 20 20 20 73 65 6C 65 63 74 20 73 65 se.. select se
00B490: 63 6F 6E 64 61 72 79 0D 0A 20 20 20 75 73 65 20 condary.. use
00B4A0: 26 6E 6F 6D 66 69 63 68 0D 0A 20 20 20 3F 0D 0A &nomfich.. ?..
00B4B0: 20 20 20 3F 20 22 45 6E 20 63 61 73 20 65 78 74 ? "En cas ext
00B4C0: 72 65 6D 65 2C 20 76 6F 75 73 20 70 6F 75 76 65 reme, vous pouve
00B4D0: 7A 20 73 74 6F 70 70 65 72 20 6C 27 65 74 61 70 z stopper l'etap
00B4E0: 65 20 73 75 69 76 61 6E 74 65 20 64 75 20 70 72 e suivante du pr
00B4F0: 6F 63 65 73 73 75 73 20 64 65 20 22 3B 0D 0A 20 ocessus de ";..
00B500: 70 74 7A 3D 31 0D 0A 20 20 20 20 20 20 73 74 6F ptz=1.. sto
00B510: 72 65 20 65 78 70 2B 27 3E 3D 26 63 6C 65 27 20 re exp+'>=&cle'
00B520: 74 6F 20 65 78 70 64 0D 0A 20 20 20 65 6C 73 65 to expd.. else
00B530: 0D 0A 20 20 20 20 20 20 73 74 6F 72 65 20 65 78 .. store ex
00B540: 70 2B 27 3C 3D 26 63 6C 65 27 20 74 6F 20 65 78 p+'<=&cle' to ex
00B550: 70 66 0D 0A 20 20 20 65 6E 64 69 66 0D 0A 65 6C pf.. endif..el
00B560: 73 65 0D 0A 20 20 69 66 20 63 70 74 7A 3D 31 0D se.. if cptz=1.
00B570: 0A 20 20 20 20 20 73 74 6F 72 65 20 65 78 70 2B . store exp+
00B580: 27 3E 3D 22 27 2B 63 6C 65 2B 27 22 27 20 74 6F '>="'+cle+'"' to
00B590: 20 65 78 70 64 0D 0A 20 20 65 6C 73 65 0D 0A 20 expd.. else..
00B5A0: 20 20 20 20 73 74 6F 72 65 20 65 78 70 2B 27 3C store exp+'<
00B5B0: 3D 22 27 2B 63 6C 65 2B 27 22 27 20 74 6F 20 65 ="'+cle+'"' to e
00B5C0: 78 70 66 0D 0A 20 20 65 6E 64 69 66 0D 0A 65 6E xpf.. endif..en
00B5D0: 64 69 66 0D 0A 69 66 20 63 68 6F 69 78 20 3D 20 dif..if choix =
00B5E0: 27 53 27 0D 0A 20 20 20 73 74 6F 72 65 20 27 35 'S'.. store '5
00B5F0: 27 20 74 6F 20 63 68 6F 69 78 0D 0A 65 6E 64 69 ' to choix..endi
00B600: 66 0D 0A 73 74 6F 72 65 20 74 72 69 6D 28 63 6C f..store trim(cl
00B610: 65 29 20 74 6F 20 63 6C 65 0D 0A 72 65 6C 65 61 e) to cle..relea
00B620: 73 65 20 63 70 74 2C 6C 69 67 2C 7A 6F 6E 65 2C se cpt,lig,zone,
00B630: 64 65 62 2C 66 69 6E 2C 6C 6F 6E 67 2C 6D 7A 6F deb,fin,long,mzo
00B640: 6E 2C 6D 7A 6F 6E 65 2C 65 78 70 2C 70 69 63 0D n,mzone,exp,pic.
00B650: 0A 72 65 74 75 72 6E 0D 0A 0D 0A 0D 0A 0D 0A 0D .return.........
00B660: 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D ................
00B670: 0A 1A 1A 20 26 7A 6F 6E 65 20 74 6F 20 65 78 70 ... &zone to exp
00B680: 0D 0A 20 20 20 20 20 20 63 61 73 65 20 24 28 76 .. case $(v
00B690: 65 72 69 66 2C 32 2C 31 29 3D 27 44 27 0D 0A 20 erif,2,1)='D'..
00B6A0: 20 20 20 20 20 73 74 6F 72 65 20 76 61 6C 2B 24 store val+$
00B6B0: 28 6D 7A 6F 6E 65 2C 37 2C 32 29 2B 24 28 6D 7A (mzone,7,2)+$(mz
00B6C0: 6F 6E 65 2C 34 2C 32 29 2B 24 28 6D 7A 6F 6E 65 one,4,2)+$(mzone
00B6D0: 2C 31 2C 32 29 20 74 6F 20 76 61 6C 0D 0A 20 20 ,1,2) to val..
00B6E0: 20 20 20 20 73 74 6F 72 65 20 65 78 70 2D 27 2B store exp-'+
00B6F0: 24 28 27 2D 26 7A 6F 6E 65 2D 27 2C 37 2C 32 29 $('-&zone-',7,2)
00B700: 20 20 2B 22 64 65 66 69 6E 69 74 69 6F 6E 22 0D +"definition".
00B710: 0A 20 20 20 3F 20 22 61 75 20 6D 6F 79 65 6E 20 . ? "au moyen
00B720: 64 65 20 6C 61 20 74 6F 75 63 68 65 20 65 78 69 de la touche exi
00B730: 74 2D 20 74 61 70 65 7A 20 73 75 72 20 75 6E 65 t- tapez sur une
00B740: 20 74 6F 75 63 68 65 20 70 6F 75 72 20 63 6F 6E touche pour con
00B750: 74 69 6E 75 65 72 22 0D 0A 20 20 20 73 65 74 20 tinuer".. set
00B760: 63 6F 6E 73 6F 6C 65 20 6F 66 66 0D 0A 20 20 20 console off..
00B770: 77 61 69 74 0D 0A 20 20 20 73 65 74 20 63 6F 6E wait.. set con
00B780: 73 6F 6C 65 20 6F 6E 0D 0A 20 20 20 65 72 61 73 sole on.. eras
00B790: 65 0D 0A 20 20 20 73 74 6F 72 65 20 75 6E 69 74 e.. store unit
00B7A0: 2B 6D 6E 6F 6D 65 6C 65 6D 20 74 6F 20 6D 6E 6F +mnomelem to mno
00B7B0: 6D 65 6C 65 6D 0D 0A 20 20 20 72 65 70 6F 72 74 melem.. report
00B7C0: 20 66 6F 72 6D 20 26 6D 6E 6F 6D 65 6C 65 6D 0D form &mnomelem.
00B7D0: 0A 65 6C 73 65 0D 0A 20 20 20 69 66 20 6D 6F 64 .else.. if mod
00B7E0: 69 66 3D 27 43 27 0D 0A 20 20 20 20 20 20 40 20 if='C'.. @
00B7F0: 37 2C 31 30 20 73 61 79 20 27 74 79 70 65 20 64 7,10 say 'type d
00B800: 65 20 6C 61 20 63 6C 65 20 20 20 20 20 20 20 20 e la cle
00B810: 20 20 20 20 20 20 20 27 0D 0A 20 20 20 20 20 20 '..
00B820: 40 20 38 2C 31 30 20 73 61 79 20 27 28 53 3D 73 @ 8,10 say '(S=s
00B830: 65 63 6F 6E 64 61 69 72 65 2C 54 3D 74 65 6D 70 econdaire,T=temp
00B840: 6F 72 61 69 72 65 29 27 0D 0A 20 20 20 20 20 20 oraire)'..
00B850: 73 74 6F 72 65 20 27 66 27 20 74 6F 20 63 6F 72 store 'f' to cor
00B860: 72 65 63 74 0D 0A 20 20 20 20 20 20 64 6F 20 77 rect.. do w
00B870: 68 69 6C 65 20 63 6F 72 72 65 63 74 3D 27 66 27 hile correct='f'
00B880: 0D 0A 20 20 20 20 20 20 20 20 20 73 74 6F 72 65 .. store
00B890: 20 27 54 27 20 74 6F 20 74 79 70 69 6E 64 65 78 'T' to typindex
00B8A0: 0D 0A 20 20 20 20 20 20 20 20 20 40 20 38 2C 34 .. @ 8,4
00B8B0: 30 20 67 65 74 20 74 79 70 69 6E 64 65 78 0D 0A 0 get typindex..
00B8C0: 20 20 20 20 20 20 20 20 20 72 65 61 64 0D 0A 20 read..
00B8D0: 20 20 20 20 20 20 20 20 63 6C 65 61 72 20 67 65 clear ge
00B8E0: 74 0D 0A 20 20 20 20 20 20 20 20 20 73 74 6F 72 t.. stor
00B8F0: 65 20 21 28 74 79 70 69 6E 64 65 78 29 20 74 6F e !(typindex) to
00B900: 2A 20 64 65 66 65 6C 65 6D 3A 20 64 65 66 69 6E * defelem: defin
00B910: 69 74 69 6F 6E 20 64 27 75 6E 20 69 6E 64 65 78 ition d'un index
00B920: 20 6F 75 20 64 27 75 6E 65 20 6C 69 73 74 65 0D ou d'une liste.
00B930: 0A 0D 0A 73 65 6C 65 63 74 20 70 72 69 6D 61 72 ...select primar
00B940: 79 0D 0A 75 73 65 20 26 66 65 6C 65 20 69 6E 64 y..use &fele ind
00B950: 65 78 20 26 78 65 6C 65 0D 0A 69 66 20 6D 6F 64 ex &xele..if mod
00B960: 69 66 23 27 4D 27 0D 0A 67 6F 74 6F 20 74 6F 70 if#'M'..goto top
00B970: 0D 0A 63 6F 75 6E 74 20 66 6F 72 20 74 79 70 65 ..count for type
00B980: 6C 65 6D 3D 65 6C 65 6D 20 74 6F 20 6E 62 6C 69 lem=elem to nbli
00B990: 73 74 0D 0A 69 66 20 6E 62 6C 69 73 74 20 3E 3D st..if nblist >=
00B9A0: 20 31 35 0D 0A 20 20 20 69 66 20 65 6C 65 6D 3D 15.. if elem=
00B9B0: 27 4C 27 0D 0A 20 20 20 65 72 61 73 65 0D 0A 20 'L'.. erase..
00B9C0: 20 20 73 74 6F 72 65 20 35 20 74 6F 20 6E 6F 6D store 5 to nom
00B9D0: 65 73 73 0D 0A 20 20 20 65 6C 73 65 0D 0A 20 20 ess.. else..
00B9E0: 20 73 74 6F 72 65 20 39 20 74 6F 20 6E 6F 6D 65 store 9 to nome
00B9F0: 73 73 0D 0A 20 20 20 65 6E 64 69 66 0D 0A 20 20 ss.. endif..
00BA00: 20 64 6F 20 61 66 66 6D 65 73 73 0D 0A 20 20 20 do affmess..
00BA10: 72 65 6C 65 61 73 65 20 6D 6F 64 69 66 2C 6E 62 release modif,nb
00BA20: 6C 69 73 74 0D 0A 20 20 20 72 65 74 75 72 6E 0D list.. return.
00BA30: 0A 65 6E 64 69 66 0D 0A 65 72 61 73 65 0D 0A 69 .endif..erase..i
00BA40: 66 20 65 6C 65 6D 3D 27 4C 27 0D 0A 20 20 20 40 f elem='L'.. @
00BA50: 20 31 2C 38 20 73 61 79 20 22 44 45 46 49 4E 49 1,8 say "DEFINI
00BA60: 54 49 4F 4E 20 44 27 55 4E 45 20 4E 4F 55 56 45 TION D'UNE NOUVE
00BA70: 4C 4C 45 20 4C 49 53 54 45 20 50 4F 55 52 20 4C LLE LISTE POUR L
00BA80: 45 20 46 49 43 48 49 45 52 20 22 0D 0A 20 20 20 E FICHIER "..
00BA90: 40 20 35 2C 31 30 20 73 61 79 20 27 6E 6F 6D 20 @ 5,10 say 'nom
00BAA0: 64 65 20 6C 61 20 6C 69 73 74 65 27 0D 0A 20 20 de la liste'..
00BAB0: 20 73 74 6F 72 65 20 27 20 27 20 74 6F 20 74 79 store ' ' to ty
00BAC0: 70 69 6E 64 65 78 0D 0A 65 6C 73 65 0D 0A 20 20 pindex..else..
00BAD0: 20 64 6F 20 63 61 73 65 0D 0A 20 20 20 63 61 73 do case.. cas
00BAE0: 65 20 6D 6F 64 69 66 3D 27 43 27 0D 0A 20 20 20 e modif='C'..
00BAF0: 40 20 31 2C 38 20 73 61 79 20 22 44 45 46 49 4E @ 1,8 say "DEFIN
00BB00: 20 74 79 70 69 6E 64 65 78 0D 0A 20 20 20 20 20 typindex..
00BB10: 20 20 20 20 69 66 20 74 79 70 69 6E 64 65 78 23 if typindex#
00BB20: 27 53 27 2E 61 6E 64 2E 74 79 70 69 6E 64 65 78 'S'.and.typindex
00BB30: 23 27 54 27 0D 0A 20 20 20 20 20 20 20 20 20 20 #'T'..
00BB40: 20 20 73 74 6F 72 65 20 31 20 74 6F 20 6E 6F 6D store 1 to nom
00BB50: 65 73 73 0D 0A 20 20 20 20 20 20 20 20 20 20 20 ess..
00BB60: 20 64 6F 20 61 66 66 6D 65 73 73 0D 0A 20 20 20 do affmess..
00BB70: 20 20 20 20 20 20 65 6C 73 65 0D 0A 20 20 20 20 else..
00BB80: 20 20 20 20 20 20 20 20 73 74 6F 72 65 20 27 74 store 't
00BB90: 27 20 74 6F 20 63 6F 72 72 65 63 74 0D 0A 20 20 ' to correct..
00BBA0: 20 20 20 20 20 20 20 65 6E 64 69 66 0D 0A 20 20 endif..
00BBB0: 20 20 20 20 65 6E 64 64 6F 0D 0A 20 20 20 20 20 enddo..
00BBC0: 20 72 65 6C 65 61 73 65 20 63 6F 72 72 65 63 74 release correct
00BBD0: 0D 0A 20 20 20 65 6E 64 69 66 0D 0A 20 20 20 40 .. endif.. @
00BBE0: 20 31 30 2C 31 35 20 73 61 79 20 27 6E 6F 6D 20 10,15 say 'nom
00BBF0: 7A 6F 6E 65 27 0D 0A 20 20 20 69 66 20 74 79 70 zone'.. if typ
00BC00: 69 6E 64 65 78 20 23 20 27 50 27 0D 0A 20 20 20 index # 'P'..
00BC10: 20 20 20 40 20 31 30 2C 33 30 20 73 61 79 20 27 @ 10,30 say '
00BC20: 64 65 62 75 74 27 0D 0A 20 20 20 20 20 20 40 20 debut'.. @
00BC30: 31 30 2C 34 30 20 73 61 79 20 27 66 69 6E 27 0D 10,40 say 'fin'.
00BC40: 0A 20 20 20 20 20 20 69 66 20 6D 6F 64 69 66 20 . if modif
00BC50: 23 20 27 4D 27 0D 0A 20 20 20 20 20 20 20 20 20 # 'M'..
00BC60: 40 20 6C 69 67 6D 31 2C 30 20 73 61 79 20 27 74 @ ligm1,0 say 't
00BC70: 61 70 65 7A 20 72 65 74 75 72 6E 20 64 61 6E 73 apez return dans
00BC80: 20 6C 61 20 70 72 65 6D 69 65 72 65 20 7A 6F 6E la premiere zon
00BC90: 65 20 70 6F 75 72 20 61 62 61 6E 64 6F 6E 6E 65 e pour abandonne
00BCA0: 72 27 0D 0A 20 20 20 20 20 20 65 6E 64 69 66 0D r'.. endif.
00BCB0: 0A 20 20 20 65 6E 64 69 66 0D 0A 20 20 20 73 65 . endif.. se
00BCC0: 6C 65 63 74 20 73 65 63 6F 6E 64 61 72 79 0D 0A lect secondary..
00BCD0: 20 20 20 75 73 65 20 26 66 72 65 66 20 69 6E 64 use &fref ind
00BCE0: 65 78 20 26 78 6E 6F 6D 0D 0A 20 20 20 67 6F 74 ex &xnom.. got
00BCF0: 6F 20 74 6F 70 0D 0A 20 20 20 73 74 6F 72 65 20 o top.. store
00BD00: 49 54 49 4F 4E 20 44 27 55 4E 45 20 4E 4F 55 56 ITION D'UNE NOUV
00BD10: 45 4C 4C 45 20 43 4C 45 20 53 55 52 20 4C 45 20 ELLE CLE SUR LE
00BD20: 46 49 43 48 49 45 52 22 0D 0A 20 20 20 73 74 6F FICHIER".. sto
00BD30: 72 65 20 27 54 27 20 74 6F 20 74 79 70 69 6E 64 re 'T' to typind
00BD40: 65 78 0D 0A 20 20 20 63 61 73 65 20 74 79 70 69 ex.. case typi
00BD50: 6E 64 65 78 3D 27 50 27 0D 0A 20 20 20 40 20 31 ndex='P'.. @ 1
00BD60: 2C 38 20 73 61 79 20 22 44 45 46 49 4E 49 54 49 ,8 say "DEFINITI
00BD70: 4F 4E 20 44 45 20 4C 27 49 4E 44 45 58 20 50 52 ON DE L'INDEX PR
00BD80: 49 4E 43 49 50 41 4C 20 44 55 20 46 49 43 48 49 INCIPAL DU FICHI
00BD90: 45 52 22 0D 0A 20 20 20 63 61 73 65 20 74 79 70 ER".. case typ
00BDA0: 69 6E 64 65 78 3D 27 53 27 0D 0A 20 20 20 40 20 index='S'.. @
00BDB0: 31 2C 38 20 73 61 79 20 22 44 45 46 49 4E 49 54 1,8 say "DEFINIT
00BDC0: 49 4F 4E 20 44 27 55 4E 20 49 4E 44 45 58 20 53 ION D'UN INDEX S
00BDD0: 45 43 4F 4E 44 41 49 52 45 20 53 55 52 20 4C 45 ECONDAIRE SUR LE
00BDE0: 20 46 49 43 48 49 45 52 22 0D 0A 20 20 65 6E 64 FICHIER".. end
00BDF0: 63 61 73 65 0D 0A 20 20 20 40 20 35 2C 31 30 20 case.. @ 5,10
00BE00: 73 61 79 20 27 6E 6F 6D 20 64 65 20 6C 61 20 63 say 'nom de la c
00BE10: 6C 65 27 0D 0A 65 6E 64 69 66 0D 0A 40 20 31 2C le'..endif..@ 1,
00BE20: 36 30 20 67 65 74 20 6E 6F 6D 61 66 66 0D 0A 63 60 get nomaff..c
00BE30: 6C 65 61 72 20 67 65 74 0D 0A 73 74 6F 72 65 20 lear get..store
00BE40: 27 66 27 20 74 6F 20 63 6F 72 72 65 63 74 0D 0A 'f' to correct..
00BE50: 64 6F 20 77 68 69 6C 65 20 63 6F 72 72 65 63 74 do while correct
00BE60: 3D 27 66 27 0D 0A 20 20 20 73 74 6F 72 65 20 30 ='f'.. store 0
00BE70: 20 74 6F 20 6E 6F 6D 65 73 73 0D 0A 20 20 20 73 to nomess.. s
00BE80: 74 6F 72 65 20 27 20 20 20 20 20 20 20 20 27 20 tore ' '
00BE90: 74 6F 20 6D 6E 6F 6D 65 6C 65 6D 0D 0A 20 20 20 to mnomelem..
00BEA0: 40 20 35 2C 34 30 20 67 65 74 20 6D 6E 6F 6D 65 @ 5,40 get mnome
00BEB0: 6C 65 6D 20 70 69 63 74 75 72 65 20 27 41 41 41 lem picture 'AAA
00BEC0: 41 41 41 41 41 41 41 27 0D 0A 20 20 20 69 66 20 AAAAAAA'.. if
00BED0: 65 6C 65 6D 3D 27 4C 27 2E 6F 72 2E 74 79 70 69 elem='L'.or.typi
00BEE0: 6E 64 65 78 23 27 50 27 0D 0A 20 20 20 40 20 6C ndex#'P'.. @ l
00BEF0: 69 67 6D 31 2C 30 20 73 61 79 20 27 74 61 70 65 igm1,0 say 'tape
00BF00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
00BF10: 0A 00 01 00 02 09 50 E5 0A 00 41 02 00 00 00 02 ......P...A.....
00BF20: 0A 00 46 02 00 00 00 02 0A 00 42 02 00 00 00 02 ..F.......B.....
00BF30: 0A 00 47 02 00 00 00 02 0A 00 43 02 00 00 00 02 ..G.......C.....
00BF40: 0A 00 48 02 00 00 00 02 0A 00 44 02 00 00 00 02 ..H.......D.....
00BF50: 0A 00 49 02 00 00 00 02 0A 00 45 02 00 00 00 02 ..I.......E.....
00BF60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BF70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BF80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BF90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BFA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BFB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BFC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BFD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BFE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BFF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00C000: 30 20 74 6F 20 6C 6F 6E 67 63 6C 65 0D 0A 20 20 0 to longcle..
00C010: 20 73 74 6F 72 65 20 27 66 27 20 74 6F 20 66 69 store 'f' to fi
00C020: 6E 7A 6F 6E 65 0D 0A 20 20 20 73 74 6F 72 65 20 nzone.. store
00C030: 27 20 27 20 74 6F 20 63 6C 65 0D 0A 20 20 20 73 ' ' to cle.. s
00C040: 74 6F 72 65 20 31 20 74 6F 20 63 70 74 69 0D 0A tore 1 to cpti..
00C050: 20 20 20 73 74 6F 72 65 20 31 31 20 74 6F 20 6C store 11 to l
00C060: 69 67 69 0D 0A 20 20 20 64 6F 20 77 68 69 6C 65 igi.. do while
00C070: 20 63 70 74 69 20 3C 3D 20 35 2E 61 6E 64 2E 66 cpti <= 5.and.f
00C080: 69 6E 7A 6F 6E 65 3D 27 66 27 0D 0A 20 20 20 20 inzone='f'..
00C090: 20 20 73 74 6F 72 65 20 27 6D 7A 6F 6E 27 2D 73 store 'mzon'-s
00C0A0: 74 72 28 63 70 74 69 2C 31 29 20 74 6F 20 6D 7A tr(cpti,1) to mz
00C0B0: 6F 6E 0D 0A 20 20 20 20 20 20 73 74 6F 72 65 20 on.. store
00C0C0: 27 26 27 2D 6D 7A 6F 6E 20 74 6F 20 63 6C 65 6E '&'-mzon to clen
00C0D0: 6F 6D 0D 0A 20 20 20 20 20 20 73 74 6F 72 65 20 om.. store
00C0E0: 27 20 20 20 20 20 20 20 20 20 20 27 20 74 6F 20 ' ' to
00C0F0: 26 6D 7A 6F 6E 0D 0A 20 20 20 20 20 20 73 74 6F &mzon.. sto
00C100: 72 65 20 27 6D 64 65 62 27 2D 73 74 72 28 63 70 re 'mdeb'-str(cp
00C110: 74 69 2C 31 29 20 74 6F 20 6D 64 65 62 0D 0A 20 ti,1) to mdeb..
00C120: 20 20 20 20 20 73 74 6F 72 65 20 27 31 20 20 27 store '1 '
00C130: 20 74 6F 20 26 6D 64 65 62 0D 0A 20 20 20 20 20 to &mdeb..
00C140: 20 73 74 6F 72 65 20 27 6D 66 69 6E 27 2D 73 74 store 'mfin'-st
00C150: 72 28 63 70 74 69 2C 31 29 20 74 6F 20 6D 66 69 r(cpti,1) to mfi
00C160: 6E 0D 0A 20 20 20 20 20 20 73 74 6F 72 65 20 27 n.. store '
00C170: 46 20 20 27 20 74 6F 20 26 6D 66 69 6E 0D 0A 20 F ' to &mfin..
00C180: 20 20 20 20 20 73 74 6F 72 65 20 30 20 74 6F 20 store 0 to
00C190: 6E 6F 6D 65 73 73 0D 0A 20 20 20 20 20 20 40 20 nomess.. @
00C1A0: 6C 69 67 69 2C 31 30 20 67 65 74 20 26 6D 7A 6F ligi,10 get &mzo
00C1B0: 6E 0D 0A 20 20 20 20 20 20 69 66 20 74 79 70 69 n.. if typi
00C1C0: 6E 64 65 78 20 23 20 27 50 27 0D 0A 20 20 20 20 ndex # 'P'..
00C1D0: 20 20 20 20 20 40 20 6C 69 67 69 2C 33 30 20 67 @ ligi,30 g
00C1E0: 65 74 20 26 6D 64 65 62 0D 0A 20 20 20 20 20 20 et &mdeb..
00C1F0: 20 20 20 40 20 6C 69 67 69 2C 34 30 20 67 65 74 @ ligi,40 get
00C200: 20 20 20 20 20 20 20 20 20 20 20 73 74 6F 72 65 store
00C210: 20 35 20 74 6F 20 6C 6F 6E 67 0D 0A 20 20 20 20 5 to long..
00C220: 20 20 20 20 20 20 20 20 63 61 73 65 20 66 69 65 case fie
00C230: 6C 64 3A 74 79 70 65 3D 27 4E 27 0D 0A 20 20 20 ld:type='N'..
00C240: 20 20 20 20 20 20 20 20 20 73 74 6F 72 65 20 66 store f
00C250: 69 65 6C 64 3A 6C 65 6E 20 74 6F 20 6C 6F 6E 67 ield:len to long
00C260: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 6F 74 .. ot
00C270: 68 65 72 77 69 73 65 0D 0A 20 20 20 20 20 20 20 herwise..
00C280: 20 20 20 20 20 69 66 20 26 6D 66 69 6E 20 3D 20 if &mfin =
00C290: 27 46 27 0D 0A 20 20 20 20 20 20 20 20 20 20 20 'F'..
00C2A0: 20 20 20 20 73 74 6F 72 65 20 66 69 65 6C 64 3A store field:
00C2B0: 6C 65 6E 20 74 6F 20 6C 6F 6E 67 0D 0A 20 20 20 len to long..
00C2C0: 20 20 20 20 20 20 20 20 20 65 6C 73 65 0D 0A 20 else..
00C2D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 74 st
00C2E0: 6F 72 65 20 76 61 6C 28 26 6D 66 69 6E 29 20 74 ore val(&mfin) t
00C2F0: 6F 20 6C 6F 6E 67 0D 0A 20 20 20 20 20 20 20 20 o long..
00C300: 20 20 20 20 65 6E 64 69 66 0D 0A 20 20 20 20 20 endif..
00C310: 20 20 20 20 20 20 20 73 74 6F 72 65 20 6C 6F 6E store lon
00C320: 67 2D 76 61 6C 28 26 6D 64 65 62 29 2B 31 20 74 g-val(&mdeb)+1 t
00C330: 6F 20 6C 6F 6E 67 0D 0A 20 20 20 20 20 20 20 20 o long..
00C340: 20 65 6E 64 63 61 73 65 0D 0A 20 20 20 20 20 20 endcase..
00C350: 20 20 20 69 66 20 6C 6F 6E 67 2B 6C 6F 6E 67 63 if long+longc
00C360: 6C 65 20 3E 20 39 39 0D 0A 20 20 20 20 20 20 20 le > 99..
00C370: 20 20 20 20 20 73 74 6F 72 65 20 34 37 20 74 6F store 47 to
00C380: 20 6E 6F 6D 65 73 73 0D 0A 20 20 20 20 20 20 20 nomess..
00C390: 20 20 20 20 20 64 6F 20 61 66 66 6D 65 73 73 0D do affmess.
00C3A0: 0A 20 20 20 20 20 20 20 20 20 65 6E 64 69 66 0D . endif.
00C3B0: 0A 20 20 20 20 20 20 20 20 20 65 6E 64 63 61 73 . endcas
00C3C0: 65 0D 0A 20 20 20 20 20 20 65 6E 64 69 66 0D 0A e.. endif..
00C3D0: 20 20 20 20 20 20 69 66 20 6E 6F 6D 65 73 73 20 if nomess
00C3E0: 3D 20 30 0D 0A 20 20 20 20 20 20 20 20 20 69 66 = 0.. if
00C3F0: 20 66 69 6E 7A 6F 6E 65 3D 27 66 27 0D 0A 20 20 finzone='f'..
00C400: 20 26 6D 66 69 6E 0D 0A 20 20 20 20 20 20 65 6E &mfin.. en
00C410: 64 69 66 0D 0A 20 20 20 20 20 20 72 65 61 64 0D dif.. read.
00C420: 0A 20 20 20 20 20 20 63 6C 65 61 72 20 67 65 74 . clear get
00C430: 0D 0A 20 20 20 20 20 20 2A 20 63 6F 6E 74 72 6F .. * contro
00C440: 6C 65 72 20 6C 61 20 76 61 6C 69 64 69 74 65 20 ler la validite
00C450: 64 65 73 20 7A 6F 6E 65 73 0D 0A 20 20 20 20 20 des zones..
00C460: 20 73 74 6F 72 65 20 21 28 26 6D 7A 6F 6E 29 20 store !(&mzon)
00C470: 74 6F 20 26 6D 7A 6F 6E 0D 0A 20 20 20 20 20 20 to &mzon..
00C480: 73 74 6F 72 65 20 21 28 26 6D 66 69 6E 29 20 74 store !(&mfin) t
00C490: 6F 20 26 6D 66 69 6E 0D 0A 20 20 20 20 20 20 2A o &mfin.. *
00C4A0: 20 6C 61 20 7A 6F 6E 65 20 65 73 74 2D 65 6C 6C la zone est-ell
00C4B0: 65 20 64 65 6A 61 20 61 70 70 61 72 75 65 20 64 e deja apparue d
00C4C0: 61 6E 73 20 63 65 74 20 69 6E 64 65 78 0D 0A 20 ans cet index..
00C4D0: 20 20 20 20 20 69 66 20 74 79 70 69 6E 64 65 78 if typindex
00C4E0: 20 3D 20 27 50 27 0D 0A 20 20 20 20 20 20 20 20 = 'P'..
00C4F0: 20 73 74 6F 72 65 20 31 20 74 6F 20 63 70 74 32 store 1 to cpt2
00C500: 0D 0A 20 20 20 20 20 20 20 20 20 64 6F 20 77 68 .. do wh
00C510: 69 6C 65 20 63 70 74 32 20 3C 3D 20 63 70 74 69 ile cpt2 <= cpti
00C520: 2D 31 2E 61 6E 64 2E 6E 6F 6D 65 73 73 20 3D 20 -1.and.nomess =
00C530: 30 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 73 0.. s
00C540: 74 6F 72 65 20 27 6D 7A 6F 6E 27 2D 73 74 72 28 tore 'mzon'-str(
00C550: 63 70 74 32 2C 31 29 20 74 6F 20 6D 7A 6F 6E 70 cpt2,1) to mzonp
00C560: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 69 66 .. if
00C570: 20 26 6D 7A 6F 6E 3D 26 6D 7A 6F 6E 70 0D 0A 20 &mzon=&mzonp..
00C580: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 74 st
00C590: 6F 72 65 20 34 35 20 74 6F 20 6E 6F 6D 65 73 73 ore 45 to nomess
00C5A0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
00C5B0: 20 64 6F 20 61 66 66 6D 65 73 73 0D 0A 20 20 20 do affmess..
00C5C0: 20 20 20 20 20 20 20 20 20 65 6C 73 65 0D 0A 20 else..
00C5D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 74 st
00C5E0: 6F 72 65 20 63 70 74 32 2B 31 20 74 6F 20 63 70 ore cpt2+1 to cp
00C5F0: 74 32 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 t2..
00C600: 20 20 20 20 20 20 20 20 20 20 64 6F 20 63 61 73 do cas
00C610: 65 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 63 e.. c
00C620: 61 73 65 20 66 69 65 6C 64 3A 74 79 70 65 3D 27 ase field:type='
00C630: 4E 27 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 N'..
00C640: 73 74 6F 72 65 20 63 6C 65 2D 27 2B 27 2D 26 6D store cle-'+'-&m
00C650: 7A 6F 6E 20 74 6F 20 63 6C 65 0D 0A 20 20 20 20 zon to cle..
00C660: 20 20 20 20 20 20 20 20 73 74 6F 72 65 20 27 74 store 't
00C670: 27 20 74 6F 20 66 69 6E 7A 6F 6E 65 0D 0A 20 20 ' to finzone..
00C680: 20 20 20 20 20 20 20 20 20 20 63 61 73 65 20 24 case $
00C690: 28 76 65 72 69 66 2C 32 2C 31 29 3D 27 44 27 0D (verif,2,1)='D'.
00C6A0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 73 74 6F . sto
00C6B0: 72 65 20 63 6C 65 2D 27 2B 24 28 27 2D 26 6D 7A re cle-'+$('-&mz
00C6C0: 6F 6E 2D 27 2C 37 2C 32 29 2B 24 28 27 2D 26 6D on-',7,2)+$('-&m
00C6D0: 7A 6F 6E 2D 27 2C 34 2C 32 29 2B 24 28 27 2D 26 zon-',4,2)+$('-&
00C6E0: 6D 7A 6F 6E 3B 0D 0A 20 20 20 20 20 20 20 20 20 mzon;..
00C6F0: 20 20 20 2D 27 2C 31 2C 32 29 27 20 74 6F 20 63 -',1,2)' to c
00C700: 6C 65 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 le..
00C710: 63 61 73 65 20 24 28 76 65 72 69 66 2C 32 2C 31 case $(verif,2,1
00C720: 29 3D 27 4D 27 0D 0A 20 20 20 20 20 20 20 20 20 )='M'..
00C730: 20 20 20 73 74 6F 72 65 20 63 6C 65 2D 27 2B 24 store cle-'+$
00C740: 28 27 2D 26 6D 7A 6F 6E 2D 27 2C 34 2C 32 29 2B ('-&mzon-',4,2)+
00C750: 24 28 27 2D 26 6D 7A 6F 6E 2D 27 2C 31 2C 32 29 $('-&mzon-',1,2)
00C760: 27 20 74 6F 20 63 6C 65 0D 0A 20 20 20 20 20 20 ' to cle..
00C770: 20 20 20 20 20 20 63 61 73 65 20 76 61 6C 28 26 case val(&
00C780: 6D 64 65 62 29 3D 31 2E 61 6E 64 2E 26 6D 66 69 mdeb)=1.and.&mfi
00C790: 6E 3D 27 46 27 0D 0A 20 20 20 20 20 20 20 20 20 n='F'..
00C7A0: 20 20 20 73 74 6F 72 65 20 63 6C 65 2D 27 2B 21 store cle-'+!
00C7B0: 28 27 2D 26 6D 7A 6F 6E 2D 27 29 27 20 74 6F 20 ('-&mzon-')' to
00C7C0: 63 6C 65 0D 0A 20 20 20 20 20 20 20 20 20 20 20 cle..
00C7D0: 20 6F 74 68 65 72 77 69 73 65 0D 0A 20 20 20 20 otherwise..
00C7E0: 20 20 20 20 20 20 20 20 73 74 6F 72 65 20 63 6C store cl
00C7F0: 65 2D 27 2B 21 28 24 28 27 2D 26 6D 7A 6F 6E 2D e-'+!($('-&mzon-
00C800: 65 6E 64 69 66 0D 0A 20 20 20 20 20 20 20 20 20 endif..
00C810: 65 6E 64 64 6F 0D 0A 20 20 20 20 20 20 20 20 20 enddo..
00C820: 72 65 6C 65 61 73 65 20 63 70 74 32 2C 6D 7A 6F release cpt2,mzo
00C830: 6E 70 0D 0A 20 20 20 20 20 20 65 6E 64 69 66 0D np.. endif.
00C840: 0A 20 20 20 20 20 20 69 66 20 6E 6F 6D 65 73 73 . if nomess
00C850: 20 3D 20 30 0D 0A 20 20 20 20 20 20 20 20 20 2A = 0.. *
00C860: 20 6C 61 20 7A 6F 6E 65 20 65 78 69 73 74 65 2D la zone existe-
00C870: 74 2D 65 6C 6C 65 0D 0A 20 20 20 20 20 20 20 20 t-elle..
00C880: 20 66 69 6E 64 20 26 63 6C 65 6E 6F 6D 0D 0A 20 find &clenom..
00C890: 20 20 20 20 20 20 20 20 64 6F 20 63 61 73 65 0D do case.
00C8A0: 0A 20 20 20 20 20 20 20 20 20 63 61 73 65 20 26 . case &
00C8B0: 6D 7A 6F 6E 20 3D 20 27 20 27 2E 61 6E 64 2E 63 mzon = ' '.and.c
00C8C0: 70 74 69 3D 31 0D 0A 20 20 20 20 20 20 20 20 20 pti=1..
00C8D0: 69 66 20 74 79 70 69 6E 64 65 78 20 3D 20 27 50 if typindex = 'P
00C8E0: 27 2E 6F 72 2E 6D 6F 64 69 66 3D 27 4D 27 0D 0A '.or.modif='M'..
00C8F0: 20 20 20 20 20 20 20 20 20 20 20 20 73 74 6F 72 stor
00C900: 65 20 31 31 20 74 6F 20 6E 6F 6D 65 73 73 0D 0A e 11 to nomess..
00C910: 20 20 20 20 20 20 20 20 20 20 20 20 64 6F 20 61 do a
00C920: 66 66 6D 65 73 73 0D 0A 20 20 20 20 20 20 20 20 ffmess..
00C930: 20 65 6C 73 65 0D 0A 20 20 20 20 20 20 20 20 20 else..
00C940: 20 20 20 72 65 6C 65 61 73 65 20 6D 6F 64 69 66 release modif
00C950: 2C 6E 62 6C 69 73 74 2C 74 79 70 69 6E 64 65 78 ,nblist,typindex
00C960: 2C 6D 6C 69 62 65 6C 65 6D 2C 63 6C 65 2C 6C 6F ,mlibelem,cle,lo
00C970: 6E 67 63 6C 65 2C 66 69 6E 7A 6F 6E 65 2C 63 70 ngcle,finzone,cp
00C980: 74 69 2C 7A 6F 6E 0D 0A 20 20 20 20 20 20 20 20 ti,zon..
00C990: 20 20 20 20 72 65 6C 65 61 73 65 20 6C 69 67 69 release ligi
00C9A0: 2C 6D 7A 6F 6E 2C 63 6C 65 6E 6F 6D 2C 6D 7A 6F ,mzon,clenom,mzo
00C9B0: 6E 31 2C 6D 64 65 62 2C 6D 64 65 62 31 2C 6D 66 n1,mdeb,mdeb1,mf
00C9C0: 69 6E 2C 6D 66 69 6E 31 2C 6C 6C 6F 6E 67 2C 6C in,mfin1,llong,l
00C9D0: 6F 6E 67 31 0D 0A 20 20 20 20 20 20 20 20 20 20 ong1..
00C9E0: 20 20 72 65 74 75 72 6E 0D 0A 20 20 20 20 20 20 return..
00C9F0: 20 20 20 65 6E 64 69 66 0D 0A 20 20 20 20 20 20 endif..
00CA00: 27 2C 27 2D 26 6D 64 65 62 2D 27 2C 27 2D 73 74 ','-&mdeb-','-st
00CA10: 72 28 6C 6F 6E 67 2C 33 29 2D 27 29 29 27 20 74 r(long,3)-'))' t
00CA20: 6F 20 63 6C 65 0D 0A 20 20 20 20 20 20 20 20 20 o cle..
00CA30: 20 20 20 65 6E 64 63 61 73 65 0D 0A 20 20 20 20 endcase..
00CA40: 20 20 20 20 20 20 20 20 69 66 20 63 70 74 69 3D if cpti=
00CA50: 31 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 40 1.. @
00CA60: 20 6C 69 67 6D 31 2C 30 0D 0A 20 20 20 20 20 20 ligm1,0..
00CA70: 20 20 20 20 20 20 65 6E 64 69 66 0D 0A 20 20 20 endif..
00CA80: 20 20 20 20 20 20 20 20 20 73 74 6F 72 65 20 6C store l
00CA90: 6F 6E 67 63 6C 65 2B 6C 6F 6E 67 20 74 6F 20 6C ongcle+long to l
00CAA0: 6F 6E 67 63 6C 65 0D 0A 20 20 20 20 20 20 20 20 ongcle..
00CAB0: 20 20 20 20 69 66 20 6C 6F 6E 67 63 6C 65 20 3D if longcle =
00CAC0: 20 39 39 0D 0A 20 20 20 20 20 20 20 20 20 20 20 99..
00CAD0: 20 73 74 6F 72 65 20 27 74 27 20 74 6F 20 66 69 store 't' to fi
00CAE0: 6E 7A 6F 6E 65 0D 0A 20 20 20 20 20 20 20 20 20 nzone..
00CAF0: 20 20 20 65 6E 64 69 66 0D 0A 20 20 20 20 20 20 endif..
00CB00: 20 20 20 65 6C 73 65 0D 0A 20 20 20 20 20 20 20 else..
00CB10: 20 20 20 20 20 73 74 6F 72 65 20 63 70 74 69 2D store cpti-
00CB20: 31 20 74 6F 20 63 70 74 69 0D 0A 20 20 20 20 20 1 to cpti..
00CB30: 20 20 20 20 65 6E 64 69 66 0D 0A 20 20 20 20 20 endif..
00CB40: 20 20 20 20 69 66 20 66 69 6E 7A 6F 6E 65 3D 27 if finzone='
00CB50: 66 27 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 f'..
00CB60: 73 74 6F 72 65 20 63 70 74 69 2B 31 20 74 6F 20 store cpti+1 to
00CB70: 63 70 74 69 0D 0A 20 20 20 20 20 20 20 20 20 20 cpti..
00CB80: 20 20 73 74 6F 72 65 20 6C 69 67 69 2B 31 20 74 store ligi+1 t
00CB90: 6F 20 6C 69 67 69 0D 0A 20 20 20 20 20 20 20 20 o ligi..
00CBA0: 20 65 6E 64 69 66 0D 0A 20 20 20 20 20 20 65 6E endif.. en
00CBB0: 64 69 66 0D 0A 20 20 20 65 6E 64 64 6F 0D 0A 20 dif.. enddo..
00CBC0: 20 20 72 65 6C 65 61 73 65 20 6C 6F 6E 67 63 6C release longcl
00CBD0: 65 2C 6C 6F 6E 67 0D 0A 20 20 20 73 74 6F 72 65 e,long.. store
00CBE0: 20 63 70 74 69 20 74 6F 20 63 70 74 69 6D 61 78 cpti to cptimax
00CBF0: 0D 0A 20 20 20 69 66 20 63 70 74 69 6D 61 78 3D .. if cptimax=
00CC00: 20 20 20 63 61 73 65 20 26 6D 7A 6F 6E 20 3D 20 case &mzon =
00CC10: 27 20 27 0D 0A 20 20 20 20 20 20 20 20 20 73 74 ' '.. st
00CC20: 6F 72 65 20 27 74 27 20 74 6F 20 66 69 6E 7A 6F ore 't' to finzo
00CC30: 6E 65 0D 0A 20 20 20 20 20 20 20 20 20 63 61 73 ne.. cas
00CC40: 65 20 23 20 3D 20 30 0D 0A 20 20 20 20 20 20 20 e # = 0..
00CC50: 20 20 73 74 6F 72 65 20 31 32 20 74 6F 20 6E 6F store 12 to no
00CC60: 6D 65 73 73 0D 0A 20 20 20 20 20 20 20 20 20 64 mess.. d
00CC70: 6F 20 61 66 66 6D 65 73 73 0D 0A 20 20 20 20 20 o affmess..
00CC80: 20 20 20 20 2A 20 6C 61 20 7A 6F 6E 65 20 65 73 * la zone es
00CC90: 74 2D 65 6C 6C 65 20 61 6C 70 68 61 62 65 74 69 t-elle alphabeti
00CCA0: 71 75 65 0D 0A 20 20 20 20 20 20 20 20 20 63 61 que.. ca
00CCB0: 73 65 20 66 69 65 6C 64 3A 74 79 70 65 20 3D 20 se field:type =
00CCC0: 27 4C 27 2E 6F 72 2E 66 69 65 6C 64 3A 74 79 70 'L'.or.field:typ
00CCD0: 65 3D 27 4E 27 2E 61 6E 64 2E 63 70 74 69 23 31 e='N'.and.cpti#1
00CCE0: 0D 0A 20 20 20 20 20 20 20 20 20 73 74 6F 72 65 .. store
00CCF0: 20 31 33 20 74 6F 20 6E 6F 6D 65 73 73 0D 0A 20 13 to nomess..
00CD00: 20 20 20 20 20 20 20 20 64 6F 20 61 66 66 6D 65 do affme
00CD10: 73 73 0D 0A 20 20 20 20 20 20 20 20 20 2A 20 70 ss.. * p
00CD20: 6F 73 69 74 69 6F 6E 20 64 65 20 64 65 62 75 74 osition de debut
00CD30: 20 63 6F 72 72 65 63 74 65 20 3F 0D 0A 20 20 20 correcte ?..
00CD40: 20 20 20 20 20 20 63 61 73 65 20 76 61 6C 28 26 case val(&
00CD50: 6D 64 65 62 29 20 3D 20 30 2E 6F 72 2E 76 61 6C mdeb) = 0.or.val
00CD60: 28 26 6D 64 65 62 29 3E 66 69 65 6C 64 3A 6C 65 (&mdeb)>field:le
00CD70: 6E 0D 0A 20 20 20 20 20 20 20 20 20 73 74 6F 72 n.. stor
00CD80: 65 20 31 34 20 74 6F 20 6E 6F 6D 65 73 73 0D 0A e 14 to nomess..
00CD90: 20 20 20 20 20 20 20 20 20 64 6F 20 61 66 66 6D do affm
00CDA0: 65 73 73 0D 0A 20 20 20 20 20 20 20 20 20 2A 20 ess.. *
00CDB0: 70 6F 73 69 74 69 6F 6E 20 66 69 6E 20 63 6F 72 position fin cor
00CDC0: 72 65 63 74 65 20 3F 0D 0A 20 20 20 20 20 20 20 recte ?..
00CDD0: 20 20 63 61 73 65 20 21 28 26 6D 66 69 6E 29 23 case !(&mfin)#
00CDE0: 27 46 27 2E 61 6E 64 2E 28 76 61 6C 28 26 6D 66 'F'.and.(val(&mf
00CDF0: 69 6E 29 3C 76 61 6C 28 26 6D 64 65 62 29 2E 6F in)<val(&mdeb).o
00CE00: 36 0D 0A 20 20 20 20 20 20 73 74 6F 72 65 20 35 6.. store 5
00CE10: 20 74 6F 20 63 70 74 69 6D 61 78 0D 0A 20 20 20 to cptimax..
00CE20: 65 6E 64 69 66 0D 0A 20 20 20 73 65 6C 65 63 74 endif.. select
00CE30: 20 70 72 69 6D 61 72 79 0D 0A 20 20 20 75 73 65 primary.. use
00CE40: 20 26 66 65 6C 65 20 69 6E 64 65 78 20 26 78 65 &fele index &xe
00CE50: 6C 65 0D 0A 20 20 20 61 70 70 65 6E 64 20 62 6C le.. append bl
00CE60: 61 6E 6B 0D 0A 20 20 20 72 65 70 6C 61 63 65 20 ank.. replace
00CE70: 74 79 70 65 6C 65 6D 20 77 69 74 68 20 27 43 27 typelem with 'C'
00CE80: 2C 6E 6F 6D 65 6C 65 6D 20 77 69 74 68 20 6D 6E ,nomelem with mn
00CE90: 6F 6D 65 6C 65 6D 2C 20 6C 69 62 65 6C 65 6D 20 omelem, libelem
00CEA0: 77 69 74 68 20 6D 6C 69 62 65 6C 65 6D 2C 3B 0D with mlibelem,;.
00CEB0: 0A 20 20 20 74 79 70 63 20 77 69 74 68 20 74 79 . typc with ty
00CEC0: 70 69 6E 64 65 78 0D 0A 20 20 20 73 74 6F 72 65 pindex.. store
00CED0: 20 31 20 74 6F 20 63 70 74 69 0D 0A 20 20 20 64 1 to cpti.. d
00CEE0: 6F 20 77 68 69 6C 65 20 63 70 74 69 3C 3D 63 70 o while cpti<=cp
00CEF0: 74 69 6D 61 78 0D 0A 20 20 20 20 20 20 73 74 6F timax.. sto
00CF00: 72 65 20 27 6D 7A 6F 6E 27 2D 73 74 72 28 63 70 re 'mzon'-str(cp
00CF10: 74 69 2C 31 29 20 74 6F 20 6D 7A 6F 6E 0D 0A 20 ti,1) to mzon..
00CF20: 20 20 20 20 20 73 74 6F 72 65 20 27 7A 6F 6E 27 store 'zon'
00CF30: 2D 73 74 72 28 63 70 74 69 2C 31 29 20 74 6F 20 -str(cpti,1) to
00CF40: 7A 6F 6E 0D 0A 20 20 20 20 20 20 73 74 6F 72 65 zon.. store
00CF50: 20 27 6D 64 65 62 27 2D 73 74 72 28 63 70 74 69 'mdeb'-str(cpti
00CF60: 2C 31 29 20 74 6F 20 6D 64 65 62 0D 0A 20 20 20 ,1) to mdeb..
00CF70: 20 20 20 73 74 6F 72 65 20 27 64 65 62 27 2D 73 store 'deb'-s
00CF80: 74 72 28 63 70 74 69 2C 31 29 20 74 6F 20 64 65 tr(cpti,1) to de
00CF90: 62 0D 0A 20 20 20 20 20 20 73 74 6F 72 65 20 27 b.. store '
00CFA0: 6D 66 69 6E 27 2D 73 74 72 28 63 70 74 69 2C 31 mfin'-str(cpti,1
00CFB0: 29 20 74 6F 20 6D 66 69 6E 0D 0A 20 20 20 20 20 ) to mfin..
00CFC0: 20 73 74 6F 72 65 20 27 66 69 6E 27 2D 73 74 72 store 'fin'-str
00CFD0: 28 63 70 74 69 2C 31 29 20 74 6F 20 66 69 6E 0D (cpti,1) to fin.
00CFE0: 0A 20 20 20 20 20 20 72 65 70 6C 61 63 65 20 26 . replace &
00CFF0: 7A 6F 6E 20 77 69 74 68 20 26 6D 7A 6F 6E 2C 26 zon with &mzon,&
00D000: 72 2E 76 61 6C 28 26 6D 66 69 6E 29 3E 3B 0D 0A r.val(&mfin)>;..
00D010: 20 20 20 20 20 20 20 20 20 66 69 65 6C 64 3A 6C field:l
00D020: 65 6E 29 0D 0A 20 20 20 20 20 20 20 20 20 73 74 en).. st
00D030: 6F 72 65 20 31 35 20 74 6F 20 6E 6F 6D 65 73 73 ore 15 to nomess
00D040: 0D 0A 20 20 20 20 20 20 20 20 20 64 6F 20 61 66 .. do af
00D050: 66 6D 65 73 73 0D 0A 20 20 20 20 20 20 20 20 20 fmess..
00D060: 63 61 73 65 20 24 28 76 65 72 69 66 2C 32 2C 31 case $(verif,2,1
00D070: 29 3D 27 44 27 2E 61 6E 64 2E 28 76 61 6C 28 26 )='D'.and.(val(&
00D080: 6D 64 65 62 29 23 31 2E 6F 72 2E 28 76 61 6C 28 mdeb)#1.or.(val(
00D090: 26 6D 66 69 6E 29 23 38 2E 61 6E 64 2E 26 6D 66 &mfin)#8.and.&mf
00D0A0: 69 6E 3B 0D 0A 23 27 46 27 29 29 2E 6F 72 2E 24 in;..#'F')).or.$
00D0B0: 28 76 65 72 69 66 2C 32 2C 31 29 3D 27 4D 27 2E (verif,2,1)='M'.
00D0C0: 61 6E 64 2E 28 76 61 6C 28 26 6D 64 65 62 29 23 and.(val(&mdeb)#
00D0D0: 31 2E 6F 72 2E 28 76 61 6C 28 26 6D 66 69 6E 29 1.or.(val(&mfin)
00D0E0: 23 35 2E 61 6E 64 2E 26 6D 66 69 6E 23 27 46 27 #5.and.&mfin#'F'
00D0F0: 29 29 2E 3B 0D 0A 6F 72 2E 66 69 65 6C 64 3A 74 )).;..or.field:t
00D100: 79 70 65 3D 27 4E 27 2E 61 6E 64 2E 28 76 61 6C ype='N'.and.(val
00D110: 28 26 6D 64 65 62 29 23 31 2E 6F 72 2E 28 76 61 (&mdeb)#1.or.(va
00D120: 6C 28 26 6D 66 69 6E 29 23 66 69 65 6C 64 3A 6C l(&mfin)#field:l
00D130: 65 6E 2E 61 6E 64 2E 26 6D 66 69 6E 23 27 46 27 en.and.&mfin#'F'
00D140: 29 29 0D 0A 20 20 20 20 20 20 20 20 20 73 74 6F )).. sto
00D150: 72 65 20 33 34 20 74 6F 20 6E 6F 6D 65 73 73 0D re 34 to nomess.
00D160: 0A 20 20 20 20 20 20 20 20 20 64 6F 20 61 66 66 . do aff
00D170: 6D 65 73 73 0D 0A 20 20 20 20 20 20 20 20 20 6F mess.. o
00D180: 74 68 65 72 77 69 73 65 0D 0A 20 20 20 20 20 20 therwise..
00D190: 20 20 20 64 6F 20 63 61 73 65 0D 0A 20 20 20 20 do case..
00D1A0: 20 20 20 20 20 20 20 20 63 61 73 65 20 24 28 76 case $(v
00D1B0: 65 72 69 66 2C 32 2C 31 29 3D 27 44 27 0D 0A 20 erif,2,1)='D'..
00D1C0: 20 20 20 20 20 20 20 20 20 20 20 73 74 6F 72 65 store
00D1D0: 20 38 20 74 6F 20 6C 6F 6E 67 0D 0A 20 20 20 20 8 to long..
00D1E0: 20 20 20 20 20 20 20 20 63 61 73 65 20 24 28 76 case $(v
00D1F0: 65 72 69 66 2C 32 2C 31 29 3D 27 4D 27 0D 0A 20 erif,2,1)='M'..
00D200: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
00D210: 0B 00 01 00 02 09 4E E5 0B 00 41 02 00 00 00 02 ......N...A.....
00D220: 0B 00 46 02 00 00 00 02 0B 00 42 02 00 00 00 02 ..F.......B.....
00D230: 0B 00 47 02 00 00 00 02 0B 00 43 02 00 00 00 02 ..G.......C.....
00D240: 0B 00 48 02 00 00 00 02 0B 00 44 02 00 00 00 02 ..H.......D.....
00D250: 0B 00 49 02 00 00 00 02 0B 00 45 02 00 00 00 02 ..I.......E.....
00D260: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D270: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D280: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D290: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D2A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D2B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D2C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D2D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D2E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D2F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D300: 64 65 62 20 77 69 74 68 20 26 6D 64 65 62 2C 26 deb with &mdeb,&
00D310: 66 69 6E 20 77 69 74 68 20 26 6D 66 69 6E 0D 0A fin with &mfin..
00D320: 20 20 20 20 20 20 2A 20 6D 65 74 74 72 65 20 61 * mettre a
00D330: 20 6A 6F 75 72 20 6E 6F 7A 20 64 61 6E 64 20 2E jour noz dand .
00D340: 72 65 66 0D 0A 20 20 20 20 20 20 69 66 20 74 79 ref.. if ty
00D350: 70 69 6E 64 65 78 20 3D 20 27 50 27 0D 0A 20 20 pindex = 'P'..
00D360: 20 20 20 20 20 20 20 73 65 6C 65 63 74 20 73 65 select se
00D370: 63 6F 6E 64 61 72 79 0D 0A 20 20 20 20 20 20 20 condary..
00D380: 20 20 75 73 65 20 26 66 72 65 66 20 69 6E 64 65 use &fref inde
00D390: 78 20 26 78 6E 6F 6D 0D 0A 20 20 20 20 20 20 20 x &xnom..
00D3A0: 20 20 73 74 6F 72 65 20 27 26 27 2D 6D 7A 6F 6E store '&'-mzon
00D3B0: 20 74 6F 20 6E 6F 6D 7A 0D 0A 20 20 20 20 20 20 to nomz..
00D3C0: 20 20 20 66 69 6E 64 20 26 6E 6F 6D 7A 0D 0A 20 find &nomz..
00D3D0: 20 20 20 20 20 20 20 20 73 74 6F 72 65 20 23 20 store #
00D3E0: 74 6F 20 6E 6F 63 6F 75 72 0D 0A 20 20 20 20 20 to nocour..
00D3F0: 20 20 20 20 73 65 74 20 69 6E 64 65 78 20 74 6F set index to
00D400: 20 26 78 63 6C 65 0D 0A 20 20 20 20 20 20 20 20 &xcle..
00D410: 20 67 6F 74 6F 20 6E 6F 63 6F 75 72 0D 0A 20 20 goto nocour..
00D420: 20 20 20 20 20 20 20 72 65 70 6C 61 63 65 20 6E replace n
00D430: 6F 7A 20 77 69 74 68 20 63 70 74 69 0D 0A 20 20 oz with cpti..
00D440: 20 20 20 20 65 6E 64 69 66 0D 0A 20 20 20 20 20 endif..
00D450: 20 73 74 6F 72 65 20 63 70 74 69 2B 31 20 74 6F store cpti+1 to
00D460: 20 63 70 74 69 0D 0A 20 20 20 65 6E 64 64 6F 0D cpti.. enddo.
00D470: 0A 20 20 20 73 65 6C 65 63 74 20 70 72 69 6D 61 . select prima
00D480: 72 79 0D 0A 20 20 20 72 65 70 6C 61 63 65 20 6E ry.. replace n
00D490: 62 7A 6F 6E 65 73 20 77 69 74 68 20 63 70 74 69 bzones with cpti
00D4A0: 6D 61 78 0D 0A 20 20 20 69 66 20 74 79 70 69 6E max.. if typin
00D4B0: 64 65 78 3D 27 50 27 0D 0A 20 20 20 20 20 20 73 dex='P'.. s
00D4C0: 65 6C 65 63 74 20 73 65 63 6F 6E 64 61 72 79 0D elect secondary.
00D4D0: 0A 20 20 20 20 20 20 75 73 65 20 26 66 72 65 66 . use &fref
00D4E0: 0D 0A 20 20 20 20 20 20 67 6F 74 6F 20 74 6F 70 .. goto top
00D4F0: 0D 0A 20 20 20 20 20 20 73 74 6F 72 65 20 63 70 .. store cp
00D500: 2A 20 6C 69 73 74 65 6C 65 6D 3A 20 6C 69 73 74 * listelem: list
00D510: 65 20 64 65 73 20 63 6C 65 73 20 6F 75 20 64 65 e des cles ou de
00D520: 73 20 6C 69 73 74 65 73 20 64 65 66 69 6E 69 65 s listes definie
00D530: 73 20 70 61 72 20 6C 27 75 74 69 6C 69 73 61 74 s par l'utilisat
00D540: 65 75 72 0D 0A 0D 0A 73 65 6C 65 63 74 20 70 72 eur....select pr
00D550: 69 6D 61 72 79 0D 0A 75 73 65 20 26 66 65 6C 65 imary..use &fele
00D560: 20 69 6E 64 65 78 20 26 78 65 6C 65 0D 0A 67 6F index &xele..go
00D570: 74 6F 20 74 6F 70 0D 0A 66 69 6E 64 20 26 65 6C to top..find &el
00D580: 65 6D 0D 0A 69 66 20 23 20 3D 20 30 0D 0A 73 74 em..if # = 0..st
00D590: 6F 72 65 20 31 39 20 74 6F 20 6E 6F 6D 65 73 73 ore 19 to nomess
00D5A0: 0D 0A 64 6F 20 61 66 66 6D 65 73 73 0D 0A 72 65 ..do affmess..re
00D5B0: 74 75 72 6E 0D 0A 65 6E 64 69 66 0D 0A 65 72 61 turn..endif..era
00D5C0: 73 65 0D 0A 69 66 20 65 6C 65 6D 3D 27 4C 27 0D se..if elem='L'.
00D5D0: 0A 40 20 31 2C 38 20 73 61 79 20 27 4C 49 53 54 .@ 1,8 say 'LIST
00D5E0: 45 53 20 51 55 45 20 56 4F 55 53 20 41 56 45 5A ES QUE VOUS AVEZ
00D5F0: 20 44 45 46 49 4E 49 45 53 20 50 4F 55 52 20 4C DEFINIES POUR L
00D600: 45 20 46 49 43 48 49 45 52 27 0D 0A 65 6C 73 65 E FICHIER'..else
00D610: 0D 0A 40 20 31 2C 38 20 73 61 79 20 27 43 4C 45 ..@ 1,8 say 'CLE
00D620: 53 20 51 55 45 20 56 4F 55 53 20 41 56 45 5A 20 S QUE VOUS AVEZ
00D630: 44 45 46 49 4E 49 45 53 20 53 55 52 20 4C 45 20 DEFINIES SUR LE
00D640: 46 49 43 48 49 45 52 27 0D 0A 65 6E 64 69 66 0D FICHIER'..endif.
00D650: 0A 73 74 6F 72 65 20 24 28 6E 6F 6D 66 69 63 68 .store $(nomfich
00D660: 2C 33 2C 38 29 20 74 6F 20 6E 6F 6D 61 66 66 0D ,3,8) to nomaff.
00D670: 0A 40 20 31 2C 36 30 20 67 65 74 20 6E 6F 6D 61 .@ 1,60 get noma
00D680: 66 66 0D 0A 63 6C 65 61 72 20 67 65 74 0D 0A 40 ff..clear get..@
00D690: 20 35 2C 35 20 73 61 79 20 22 76 6F 75 6C 65 7A 5,5 say "voulez
00D6A0: 2D 76 6F 75 73 20 76 6F 74 72 65 20 6C 69 73 74 -vous votre list
00D6B0: 65 20 73 75 72 20 6C 27 69 6D 70 72 69 6D 61 6E e sur l'impriman
00D6C0: 74 65 28 4F 3D 6F 75 69 2C 4E 3D 6E 6F 6E 29 3A te(O=oui,N=non):
00D6D0: 22 0D 0A 73 74 6F 72 65 20 27 66 27 20 74 6F 20 "..store 'f' to
00D6E0: 63 6F 72 72 65 63 74 0D 0A 64 6F 20 77 68 69 6C correct..do whil
00D6F0: 65 20 63 6F 72 72 65 63 74 3D 27 66 27 0D 0A 20 e correct='f'..
00D700: 74 69 6D 61 78 2B 31 20 74 6F 20 63 70 74 69 0D timax+1 to cpti.
00D710: 0A 20 20 20 20 20 20 64 6F 20 77 68 69 6C 65 20 . do while
00D720: 2E 6E 6F 74 2E 65 6F 66 0D 0A 20 20 20 20 20 20 .not.eof..
00D730: 20 20 20 69 66 20 6E 6F 7A 3D 30 0D 0A 20 20 20 if noz=0..
00D740: 20 20 20 20 20 20 73 74 6F 72 65 20 23 20 74 6F store # to
00D750: 20 6E 6F 63 6F 75 72 0D 0A 20 20 20 20 20 20 20 nocour..
00D760: 20 20 73 65 74 20 69 6E 64 65 78 20 74 6F 20 26 set index to &
00D770: 78 63 6C 65 0D 0A 20 20 20 20 20 20 20 20 20 67 xcle.. g
00D780: 6F 74 6F 20 6E 6F 63 6F 75 72 0D 0A 20 20 20 20 oto nocour..
00D790: 20 20 20 20 20 72 65 70 6C 61 63 65 20 6E 6F 7A replace noz
00D7A0: 20 77 69 74 68 20 63 70 74 69 0D 0A 20 20 20 20 with cpti..
00D7B0: 20 20 20 20 20 73 65 74 20 69 6E 64 65 78 20 74 set index t
00D7C0: 6F 0D 0A 20 20 20 20 20 20 20 20 20 67 6F 74 6F o.. goto
00D7D0: 20 6E 6F 63 6F 75 72 0D 0A 20 20 20 20 20 20 20 nocour..
00D7E0: 20 20 73 74 6F 72 65 20 63 70 74 69 2B 31 20 74 store cpti+1 t
00D7F0: 6F 20 63 70 74 69 0D 0A 20 20 20 20 20 20 20 20 o cpti..
00D800: 20 65 6E 64 69 66 0D 0A 20 20 20 20 20 20 20 20 endif..
00D810: 20 73 6B 69 70 0D 0A 20 20 20 20 20 20 65 6E 64 skip.. end
00D820: 64 6F 0D 0A 20 20 20 65 6E 64 69 66 0D 0A 20 20 do.. endif..
00D830: 20 73 65 6C 65 63 74 20 73 65 63 6F 6E 64 61 72 select secondar
00D840: 79 0D 0A 20 20 20 75 73 65 20 26 6E 6F 6D 66 69 y.. use &nomfi
00D850: 63 68 0D 0A 20 20 20 73 74 6F 72 65 20 24 28 63 ch.. store $(c
00D860: 6C 65 2C 32 2C 6C 65 6E 28 63 6C 65 29 2D 31 29 le,2,len(cle)-1)
00D870: 20 74 6F 20 63 6C 65 0D 0A 20 20 20 73 74 6F 72 to cle.. stor
00D880: 65 20 75 6E 69 74 2B 6D 6E 6F 6D 65 6C 65 6D 20 e unit+mnomelem
00D890: 74 6F 20 6D 6E 6F 6D 65 6C 65 6D 0D 0A 20 20 20 to mnomelem..
00D8A0: 69 6E 64 65 78 20 6F 6E 20 26 63 6C 65 20 74 6F index on &cle to
00D8B0: 20 26 6D 6E 6F 6D 65 6C 65 6D 0D 0A 20 20 20 73 &mnomelem.. s
00D8C0: 65 74 20 69 6E 64 65 78 20 74 6F 20 26 6D 6E 6F et index to &mno
00D8D0: 6D 65 6C 65 6D 0D 0A 20 20 20 75 73 65 0D 0A 20 melem.. use..
00D8E0: 20 20 73 65 6C 65 63 74 20 70 72 69 6D 61 72 79 select primary
00D8F0: 0D 0A 20 20 20 75 73 65 0D 0A 65 6E 64 69 66 0D .. use..endif.
00D900: 20 20 73 74 6F 72 65 20 27 4E 27 20 74 6F 20 72 store 'N' to r
00D910: 65 70 0D 0A 20 20 20 40 20 35 2C 36 32 20 67 65 ep.. @ 5,62 ge
00D920: 74 20 72 65 70 0D 0A 20 20 20 72 65 61 64 0D 0A t rep.. read..
00D930: 20 20 20 63 6C 65 61 72 20 67 65 74 0D 0A 20 20 clear get..
00D940: 20 73 74 6F 72 65 20 21 28 72 65 70 29 20 74 6F store !(rep) to
00D950: 20 72 65 70 0D 0A 20 20 20 64 6F 20 63 61 73 65 rep.. do case
00D960: 0D 0A 20 20 20 63 61 73 65 20 72 65 70 3D 27 4F .. case rep='O
00D970: 27 0D 0A 20 20 20 73 65 74 20 66 6F 72 6D 61 74 '.. set format
00D980: 20 74 6F 20 70 72 69 6E 74 0D 0A 20 20 20 73 65 to print.. se
00D990: 74 20 70 72 69 6E 74 20 6F 6E 0D 0A 20 20 20 73 t print on.. s
00D9A0: 74 6F 72 65 20 27 74 27 20 74 6F 20 63 6F 72 72 tore 't' to corr
00D9B0: 65 63 74 0D 0A 20 20 20 63 61 73 65 20 72 65 70 ect.. case rep
00D9C0: 3D 27 4E 27 0D 0A 20 20 20 73 74 6F 72 65 20 27 ='N'.. store '
00D9D0: 74 27 20 74 6F 20 63 6F 72 72 65 63 74 0D 0A 20 t' to correct..
00D9E0: 20 20 6F 74 68 65 72 77 69 73 65 0D 0A 20 20 20 otherwise..
00D9F0: 73 74 6F 72 65 20 31 20 74 6F 20 6E 6F 6D 65 73 store 1 to nomes
00DA00: 73 0D 0A 20 20 20 64 6F 20 61 66 66 6D 65 73 73 s.. do affmess
00DA10: 0D 0A 20 20 20 65 6E 64 63 61 73 65 0D 0A 65 6E .. endcase..en
00DA20: 64 64 6F 0D 0A 65 72 61 73 65 0D 0A 69 66 20 65 ddo..erase..if e
00DA30: 6C 65 6D 3D 27 4C 27 0D 0A 40 20 31 2C 38 20 73 lem='L'..@ 1,8 s
00DA40: 61 79 20 27 4C 49 53 54 45 53 20 51 55 45 20 56 ay 'LISTES QUE V
00DA50: 4F 55 53 20 41 56 45 5A 20 44 45 46 49 4E 49 45 OUS AVEZ DEFINIE
00DA60: 53 20 50 4F 55 52 20 4C 45 20 46 49 43 48 49 45 S POUR LE FICHIE
00DA70: 52 20 27 2B 6E 6F 6D 61 66 66 0D 0A 40 20 33 2C R '+nomaff..@ 3,
00DA80: 35 20 73 61 79 20 27 6E 6F 6D 20 6C 69 73 74 65 5 say 'nom liste
00DA90: 27 0D 0A 40 20 33 2C 35 30 20 73 61 79 20 27 6C '..@ 3,50 say 'l
00DAA0: 69 62 65 6C 6C 65 20 65 78 70 6C 69 63 69 74 65 ibelle explicite
00DAB0: 27 0D 0A 73 74 6F 72 65 20 35 20 74 6F 20 6C 69 '..store 5 to li
00DAC0: 67 0D 0A 65 6C 73 65 0D 0A 40 20 31 2C 38 20 73 g..else..@ 1,8 s
00DAD0: 61 79 20 27 43 4C 45 53 20 51 55 45 20 56 4F 55 ay 'CLES QUE VOU
00DAE0: 53 20 41 56 45 5A 20 44 45 46 49 4E 49 45 53 20 S AVEZ DEFINIES
00DAF0: 53 55 52 20 4C 45 20 46 49 43 48 49 45 52 20 27 SUR LE FICHIER '
00DB00: 0A 69 66 20 65 6C 65 6D 3D 27 4C 27 0D 0A 3F 0D .if elem='L'..?.
00DB10: 0A 3F 20 27 73 69 20 76 6F 74 72 65 20 64 65 66 .? 'si votre def
00DB20: 69 6E 69 74 69 6F 6E 20 65 73 74 20 69 6E 63 6F inition est inco
00DB30: 72 72 65 63 74 65 2C 20 69 6C 20 66 61 75 74 20 rrecte, il faut
00DB40: 6C 61 20 73 75 70 70 72 69 6D 65 72 20 65 74 20 la supprimer et
00DB50: 6C 61 20 27 0D 0A 3F 20 27 72 65 63 6F 6D 6D 65 la '..? 'recomme
00DB60: 6E 63 65 72 20 65 6E 20 65 6E 74 69 65 72 2E 20 ncer en entier.
00DB70: 74 61 70 65 7A 20 73 75 72 20 75 6E 65 20 74 6F tapez sur une to
00DB80: 75 63 68 65 20 70 6F 75 72 20 63 6F 6E 74 69 6E uche pour contin
00DB90: 75 65 72 27 0D 0A 73 65 74 20 63 6F 6E 73 6F 6C uer'..set consol
00DBA0: 65 20 6F 66 66 0D 0A 77 61 69 74 0D 0A 73 65 74 e off..wait..set
00DBB0: 20 63 6F 6E 73 6F 6C 65 20 6F 6E 0D 0A 65 6E 64 console on..end
00DBC0: 69 66 0D 0A 72 65 6C 65 61 73 65 20 6E 62 6C 69 if..release nbli
00DBD0: 73 74 2C 6D 6E 6F 6D 63 2C 6D 6C 69 62 63 2C 66 st,mnomc,mlibc,f
00DBE0: 69 6E 7A 6F 6E 65 2C 63 70 74 69 2C 6C 69 67 69 inzone,cpti,ligi
00DBF0: 2C 6D 7A 6F 6E 2C 6D 7A 6F 6E 31 2C 6D 7A 6F 6E ,mzon,mzon1,mzon
00DC00: 32 2C 6D 7A 6F 6E 33 2C 6D 7A 6F 6E 34 2C 6D 7A 2,mzon3,mzon4,mz
00DC10: 6F 6E 35 0D 0A 72 65 6C 65 61 73 65 20 63 6C 65 on5..release cle
00DC20: 2C 6D 64 65 62 2C 6D 64 65 62 31 2C 6D 64 65 62 ,mdeb,mdeb1,mdeb
00DC30: 32 2C 6D 64 65 62 33 2C 6D 64 65 62 34 2C 6D 64 2,mdeb3,mdeb4,md
00DC40: 65 62 35 0D 0A 72 65 6C 65 61 73 65 20 6D 66 69 eb5..release mfi
00DC50: 6E 2C 6D 66 69 6E 31 2C 6D 66 69 6E 32 2C 6D 66 n,mfin1,mfin2,mf
00DC60: 69 6E 33 2C 6D 66 69 6E 34 2C 6D 66 69 6E 35 0D in3,mfin4,mfin5.
00DC70: 0A 72 65 6C 65 61 73 65 20 6C 6C 6F 6E 67 2C 6C .release llong,l
00DC80: 6F 6E 67 31 2C 6C 6F 6E 67 32 2C 6C 6F 6E 67 33 ong1,long2,long3
00DC90: 2C 6C 6F 6E 67 34 2C 6C 6F 6E 67 35 0D 0A 72 65 ,long4,long5..re
00DCA0: 6C 65 61 73 65 20 63 70 74 69 6D 61 78 2C 7A 6F lease cptimax,zo
00DCB0: 6E 2C 6D 6F 64 69 66 2C 74 79 70 69 6E 64 65 78 n,modif,typindex
00DCC0: 2C 6D 6C 69 62 65 6C 65 6D 2C 66 69 6E 7A 6F 6E ,mlibelem,finzon
00DCD0: 65 2C 63 70 74 69 2C 6C 69 67 69 2C 63 6C 65 6E e,cpti,ligi,clen
00DCE0: 6F 6D 0D 0A 72 65 6C 65 61 73 65 20 6E 6F 6D 7A om..release nomz
00DCF0: 2C 6E 6F 63 6F 75 72 2C 64 65 62 2C 66 69 6E 0D ,nocour,deb,fin.
00DD00: 2B 6E 6F 6D 61 66 66 0D 0A 73 74 6F 72 65 20 33 +nomaff..store 3
00DD10: 20 74 6F 20 6C 69 67 0D 0A 73 74 6F 72 65 20 31 to lig..store 1
00DD20: 20 74 6F 20 63 70 74 0D 0A 65 6E 64 69 66 0D 0A to cpt..endif..
00DD30: 64 6F 20 77 68 69 6C 65 20 2E 6E 6F 74 2E 20 65 do while .not. e
00DD40: 6F 66 2E 61 6E 64 2E 74 79 70 65 6C 65 6D 3D 65 of.and.typelem=e
00DD50: 6C 65 6D 0D 0A 20 20 20 69 66 20 65 6C 65 6D 3D lem.. if elem=
00DD60: 27 4C 27 0D 0A 20 20 20 20 20 20 40 20 6C 69 67 'L'.. @ lig
00DD70: 2C 35 20 73 61 79 20 6E 6F 6D 65 6C 65 6D 0D 0A ,5 say nomelem..
00DD80: 20 20 20 20 20 20 40 20 6C 69 67 2C 33 35 20 73 @ lig,35 s
00DD90: 61 79 20 6C 69 62 65 6C 65 6D 0D 0A 20 20 20 20 ay libelem..
00DDA0: 20 20 73 74 6F 72 65 20 6C 69 67 2B 31 20 74 6F store lig+1 to
00DDB0: 20 6C 69 67 0D 0A 20 20 20 65 6C 73 65 0D 0A 20 lig.. else..
00DDC0: 20 20 20 20 20 69 66 20 63 70 74 20 3E 20 34 2E if cpt > 4.
00DDD0: 61 6E 64 2E 72 65 70 3D 27 4E 27 0D 0A 20 20 20 and.rep='N'..
00DDE0: 20 20 20 20 20 20 40 20 6C 69 67 6D 31 2B 31 2C @ ligm1+1,
00DDF0: 30 20 73 61 79 20 27 74 61 70 65 7A 20 73 75 72 0 say 'tapez sur
00DE00: 20 75 6E 65 20 74 6F 75 63 68 65 20 70 6F 75 72 une touche pour
00DE10: 20 61 76 6F 69 72 20 6C 61 20 73 75 69 74 65 20 avoir la suite
00DE20: 64 65 20 6C 61 20 6C 69 73 74 65 27 0D 0A 20 20 de la liste'..
00DE30: 20 20 20 20 20 20 20 73 65 74 20 63 6F 6E 73 6F set conso
00DE40: 6C 65 20 6F 66 66 0D 0A 20 20 20 20 20 20 20 20 le off..
00DE50: 20 77 61 69 74 0D 0A 20 20 20 20 20 20 20 20 20 wait..
00DE60: 73 65 74 20 63 6F 6E 73 6F 6C 65 20 6F 6E 0D 0A set console on..
00DE70: 20 20 20 20 20 20 20 20 20 73 74 6F 72 65 20 31 store 1
00DE80: 20 74 6F 20 63 70 74 0D 0A 20 20 20 20 20 20 20 to cpt..
00DE90: 20 20 40 20 6C 69 67 6D 31 2B 31 2C 30 0D 0A 20 @ ligm1+1,0..
00DEA0: 20 20 20 20 20 20 20 20 73 74 6F 72 65 20 33 20 store 3
00DEB0: 74 6F 20 6C 69 67 0D 0A 20 20 20 20 20 20 20 20 to lig..
00DEC0: 20 65 72 61 73 65 0D 0A 20 20 20 20 20 20 20 20 erase..
00DED0: 20 40 20 31 2C 38 20 73 61 79 20 27 43 4C 45 53 @ 1,8 say 'CLES
00DEE0: 20 51 55 45 20 56 4F 55 53 20 41 56 45 5A 20 44 QUE VOUS AVEZ D
00DEF0: 45 46 49 4E 49 45 53 20 53 55 52 20 4C 45 20 46 EFINIES SUR LE F
00DF00: 0A 72 65 74 75 72 6E 0D 0A 0D 0A 0D 0A 0D 0A 0D .return.........
00DF10: 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D ................
00DF20: 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D ................
00DF30: 0A 0D 0A 0D 0A 0D 0A 0D 0A 1A 1A 6F 6D 65 73 73 ...........omess
00DF40: 0D 0A 20 20 20 20 20 20 20 20 20 64 6F 20 61 66 .. do af
00DF50: 66 6D 65 73 73 0D 0A 20 20 20 20 20 20 20 20 20 fmess..
00DF60: 63 61 73 65 20 24 28 76 65 72 69 66 2C 32 2C 31 case $(verif,2,1
00DF70: 29 3D 27 44 27 2E 61 6E 64 2E 28 76 61 6C 28 26 )='D'.and.(val(&
00DF80: 6D 64 65 62 29 23 31 2E 6F 72 2E 28 76 61 6C 28 mdeb)#1.or.(val(
00DF90: 26 6D 66 69 6E 29 23 38 2E 61 6E 64 2E 26 6D 66 &mfin)#8.and.&mf
00DFA0: 69 6E 3B 0D 0A 23 27 46 27 29 29 2E 6F 72 2E 24 in;..#'F')).or.$
00DFB0: 28 76 65 72 69 66 2C 32 2C 31 29 3D 27 4D 27 2E (verif,2,1)='M'.
00DFC0: 61 6E 64 2E 28 76 61 6C 28 26 6D 64 65 62 29 23 and.(val(&mdeb)#
00DFD0: 31 2E 6F 72 2E 28 76 61 6C 28 26 6D 66 69 6E 29 1.or.(val(&mfin)
00DFE0: 23 35 2E 61 6E 64 2E 26 6D 66 69 6E 23 27 46 27 #5.and.&mfin#'F'
00DFF0: 29 29 2E 3B 0D 0A 6F 72 2E 66 69 65 6C 64 3A 74 )).;..or.field:t
00E000: 79 70 65 3D 27 4E 27 2E 61 6E 64 2E 28 76 61 6C ype='N'.and.(val
00E010: 28 26 6D 64 65 62 29 23 31 2E 6F 72 2E 28 76 61 (&mdeb)#1.or.(va
00E020: 6C 28 26 6D 66 69 6E 29 23 66 69 65 6C 64 3A 6C l(&mfin)#field:l
00E030: 65 6E 2E 61 6E 64 2E 26 6D 66 69 6E 23 27 46 27 en.and.&mfin#'F'
00E040: 29 29 0D 0A 20 20 20 20 20 20 20 20 20 73 74 6F )).. sto
00E050: 72 65 20 33 34 20 74 6F 20 6E 6F 6D 65 73 73 0D re 34 to nomess.
00E060: 0A 20 20 20 20 20 20 20 20 20 64 6F 20 61 66 66 . do aff
00E070: 6D 65 73 73 0D 0A 20 20 20 20 20 20 20 20 20 6F mess.. o
00E080: 74 68 65 72 77 69 73 65 0D 0A 20 20 20 20 20 20 therwise..
00E090: 20 20 20 64 6F 20 63 61 73 65 0D 0A 20 20 20 20 do case..
00E0A0: 20 20 20 20 20 20 20 20 63 61 73 65 20 24 28 76 case $(v
00E0B0: 65 72 69 66 2C 32 2C 31 29 3D 27 44 27 0D 0A 20 erif,2,1)='D'..
00E0C0: 20 20 20 20 20 20 20 20 20 20 20 73 74 6F 72 65 store
00E0D0: 20 38 20 74 6F 20 6C 6F 6E 67 0D 0A 20 20 20 20 8 to long..
00E0E0: 20 20 20 20 20 20 20 20 63 61 73 65 20 24 28 76 case $(v
00E0F0: 65 72 69 66 2C 32 2C 31 29 3D 27 4D 27 0D 0A 20 erif,2,1)='M'..
00E100: 49 43 48 49 45 52 20 27 2B 6E 6F 6D 61 66 66 0D ICHIER '+nomaff.
00E110: 0A 20 20 20 20 20 20 65 6E 64 69 66 0D 0A 20 20 . endif..
00E120: 20 20 20 20 64 6F 20 63 61 73 65 0D 0A 20 20 20 do case..
00E130: 20 20 20 63 61 73 65 20 74 79 70 63 3D 27 50 27 case typc='P'
00E140: 0D 0A 20 20 20 20 20 20 73 74 6F 72 65 20 27 69 .. store 'i
00E150: 6E 64 65 78 20 70 72 69 6E 63 69 70 61 6C 20 2D ndex principal -
00E160: 20 6D 69 73 65 20 61 20 6A 6F 75 72 20 61 75 74 mise a jour aut
00E170: 6F 6D 61 74 69 71 75 65 27 20 74 6F 20 63 6F 6D omatique' to com
00E180: 6D 65 6E 74 0D 0A 20 20 20 20 20 20 63 61 73 65 ment.. case
00E190: 20 74 79 70 63 3D 27 53 27 0D 0A 20 20 20 20 20 typc='S'..
00E1A0: 20 73 74 6F 72 65 20 27 69 6E 64 65 78 20 73 65 store 'index se
00E1B0: 63 6F 6E 64 61 69 72 65 20 2D 20 6D 69 73 65 20 condaire - mise
00E1C0: 61 20 6A 6F 75 72 20 61 75 74 6F 6D 61 74 69 71 a jour automatiq
00E1D0: 75 65 27 20 74 6F 20 63 6F 6D 6D 65 6E 74 0D 0A ue' to comment..
00E1E0: 20 20 20 20 20 20 6F 74 68 65 72 77 69 73 65 0D otherwise.
00E1F0: 0A 20 20 20 20 20 20 73 74 6F 72 65 20 27 69 6E . store 'in
00E200: 64 65 78 20 74 65 6D 70 6F 72 61 69 72 65 20 2D dex temporaire -
00E210: 20 6D 69 73 65 20 61 20 6A 6F 75 72 20 6E 6F 6E mise a jour non
00E220: 20 61 75 74 6F 6D 61 74 69 71 75 65 27 20 74 6F automatique' to
00E230: 20 63 6F 6D 6D 65 6E 74 0D 0A 20 20 20 20 20 20 comment..
00E240: 65 6E 64 63 61 73 65 0D 0A 20 20 20 20 20 20 40 endcase.. @
00E250: 20 6C 69 67 2C 30 20 73 61 79 20 27 2A 2A 2A 2A lig,0 say '****
00E260: 2A 20 27 2B 6E 6F 6D 65 6C 65 6D 2B 27 20 27 2B * '+nomelem+' '+
00E270: 6C 69 62 65 6C 65 6D 0D 0A 20 20 20 20 20 20 40 libelem.. @
00E280: 20 6C 69 67 2C 34 38 20 73 61 79 20 27 7A 6F 6E lig,48 say 'zon
00E290: 65 20 31 3A 20 27 2B 7A 6F 6E 31 2B 27 20 64 65 e 1: '+zon1+' de
00E2A0: 20 27 2B 64 65 62 31 2B 27 20 61 20 27 2B 66 69 '+deb1+' a '+fi
00E2B0: 6E 31 0D 0A 20 20 20 20 20 20 69 66 20 7A 6F 6E n1.. if zon
00E2C0: 32 23 27 20 27 0D 0A 20 20 20 20 20 20 40 20 6C 2#' '.. @ l
00E2D0: 69 67 2B 31 2C 30 20 73 61 79 20 27 7A 6F 6E 65 ig+1,0 say 'zone
00E2E0: 20 32 3A 20 27 2B 7A 6F 6E 32 2B 27 20 64 65 20 2: '+zon2+' de
00E2F0: 27 2B 64 65 62 32 2B 27 20 61 20 27 2B 66 69 6E '+deb2+' a '+fin
00E300: 27 4C 27 0D 0A 40 20 39 2C 35 20 73 61 79 20 22 'L'..@ 9,5 say "
00E310: 6C 61 20 7A 6F 6E 65 20 64 6F 69 74 20 65 74 72 la zone doit etr
00E320: 65 20 70 6C 75 73 20 67 72 61 6E 64 65 20 6F 75 e plus grande ou
00E330: 20 65 67 61 6C 65 20 61 20 20 20 20 20 20 20 20 egale a
00E340: 20 20 20 20 20 22 0D 0A 40 20 31 30 2C 35 20 73 "..@ 10,5 s
00E350: 61 79 20 22 75 6E 65 20 61 75 74 72 65 20 7A 6F ay "une autre zo
00E360: 6E 65 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ne
00E370: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00E380: 20 20 3D 3D 3D 3D 3E 20 47 22 0D 0A 40 20 31 31 ====> G"..@ 11
00E390: 2C 35 20 73 61 79 20 22 6C 61 20 7A 6F 6E 65 20 ,5 say "la zone
00E3A0: 64 6F 69 74 20 65 74 72 65 20 70 6C 75 73 20 70 doit etre plus p
00E3B0: 65 74 69 74 65 20 6F 75 20 65 67 61 6C 65 20 61 etite ou egale a
00E3C0: 20 20 20 20 20 20 20 20 20 20 20 20 22 0D 0A 40 "..@
00E3D0: 20 31 32 2C 35 20 73 61 79 20 22 75 6E 65 20 61 12,5 say "une a
00E3E0: 75 74 72 65 20 7A 6F 6E 65 20 20 20 20 20 20 20 utre zone
00E3F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00E400: 20 20 20 20 20 20 20 20 20 3D 3D 3D 3D 3E 20 50 ====> P
00E410: 22 0D 0A 65 6E 64 69 66 0D 0A 64 6F 20 77 68 69 "..endif..do whi
00E420: 6C 65 20 63 6F 72 72 65 63 74 3D 27 66 27 0D 0A le correct='f'..
00E430: 20 20 20 73 74 6F 72 65 20 27 4E 27 20 74 6F 20 store 'N' to
00E440: 72 65 70 0D 0A 20 20 20 40 20 31 35 2C 35 20 73 rep.. @ 15,5 s
00E450: 61 79 20 22 72 65 70 6F 6E 73 65 20 3D 3D 3D 3D ay "reponse ====
00E460: 3E 22 0D 0A 20 20 20 73 65 74 20 69 6E 74 65 6E >".. set inten
00E470: 73 69 74 79 20 6F 66 66 0D 0A 20 20 20 40 20 31 sity off.. @ 1
00E480: 35 2C 32 35 20 67 65 74 20 72 65 70 0D 0A 20 20 5,25 get rep..
00E490: 20 73 65 74 20 69 6E 74 65 6E 73 69 74 79 20 6F set intensity o
00E4A0: 6E 0D 0A 20 20 20 72 65 61 64 0D 0A 20 20 20 73 n.. read.. s
00E4B0: 74 6F 72 65 20 21 28 72 65 70 29 20 74 6F 20 72 tore !(rep) to r
00E4C0: 65 70 0D 0A 20 20 20 64 6F 20 63 61 73 65 0D 0A ep.. do case..
00E4D0: 20 20 20 63 61 73 65 20 72 65 70 3D 27 4E 27 2E case rep='N'.
00E4E0: 6F 72 2E 72 65 70 3D 27 4F 27 0D 0A 20 20 20 73 or.rep='O'.. s
00E4F0: 74 6F 72 65 20 27 74 27 20 74 6F 20 63 6F 72 72 tore 't' to corr
00E500: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
00E510: 0C 00 01 00 02 09 4E E5 0C 00 41 02 00 00 00 02 ......N...A.....
00E520: 0C 00 46 02 00 00 00 02 0C 00 42 02 00 00 00 02 ..F.......B.....
00E530: 0C 00 47 02 00 00 00 02 0C 00 43 02 00 00 00 02 ..G.......C.....
00E540: 0C 00 48 02 00 00 00 02 0C 00 44 02 00 00 00 02 ..H.......D.....
00E550: 0C 00 49 02 00 00 00 02 0C 00 45 02 00 00 00 02 ..I.......E.....
00E560: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E570: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E580: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E590: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E5A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E5B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E5C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E5D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E5E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E5F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E600: 32 0D 0A 20 20 20 20 20 20 69 66 20 7A 6F 6E 33 2.. if zon3
00E610: 23 27 20 27 0D 0A 20 20 20 20 20 20 40 20 6C 69 #' '.. @ li
00E620: 67 2B 31 2C 34 30 20 73 61 79 20 27 7A 6F 6E 65 g+1,40 say 'zone
00E630: 20 33 3A 20 27 2B 7A 6F 6E 33 2B 27 20 64 65 20 3: '+zon3+' de
00E640: 27 2B 64 65 62 33 2B 27 20 61 20 27 2B 66 69 6E '+deb3+' a '+fin
00E650: 33 0D 0A 20 20 20 20 20 20 69 66 20 7A 6F 6E 34 3.. if zon4
00E660: 23 27 20 27 0D 0A 20 20 20 20 20 20 40 20 6C 69 #' '.. @ li
00E670: 67 2B 32 2C 30 20 73 61 79 20 27 7A 6F 6E 65 20 g+2,0 say 'zone
00E680: 34 3A 20 27 2B 7A 6F 6E 34 2B 27 20 64 65 20 27 4: '+zon4+' de '
00E690: 2B 64 65 62 34 2B 27 20 61 20 27 2B 66 69 6E 34 +deb4+' a '+fin4
00E6A0: 0D 0A 20 20 20 20 20 20 69 66 20 7A 6F 6E 35 23 .. if zon5#
00E6B0: 27 20 27 0D 0A 20 20 20 20 20 20 40 20 6C 69 67 ' '.. @ lig
00E6C0: 2B 32 2C 34 30 20 73 61 79 20 27 7A 6F 6E 65 20 +2,40 say 'zone
00E6D0: 35 3A 20 27 2B 7A 6F 6E 35 2B 27 20 64 65 20 27 5: '+zon5+' de '
00E6E0: 2B 64 65 62 35 2B 27 20 61 20 27 2B 66 69 6E 35 +deb5+' a '+fin5
00E6F0: 0D 0A 20 20 20 20 20 20 65 6E 64 69 66 0D 0A 20 .. endif..
00E700: 20 20 20 20 20 65 6E 64 69 66 0D 0A 20 20 20 20 endif..
00E710: 20 20 65 6E 64 69 66 0D 0A 20 20 20 20 20 20 65 endif.. e
00E720: 6E 64 69 66 0D 0A 20 20 20 20 20 20 3F 20 63 6F ndif.. ? co
00E730: 6D 6D 65 6E 74 0D 0A 20 20 20 20 20 20 73 74 6F mment.. sto
00E740: 72 65 20 63 70 74 2B 31 20 74 6F 20 63 70 74 0D re cpt+1 to cpt.
00E750: 0A 20 20 20 20 20 20 73 74 6F 72 65 20 6C 69 67 . store lig
00E760: 2B 34 20 74 6F 20 6C 69 67 0D 0A 20 20 20 65 6E +4 to lig.. en
00E770: 64 69 66 0D 0A 20 20 20 73 6B 69 70 0D 0A 65 6E dif.. skip..en
00E780: 64 64 6F 0D 0A 69 66 20 72 65 70 3D 27 4E 27 0D ddo..if rep='N'.
00E790: 0A 20 20 20 40 20 6C 69 67 6D 31 2C 30 20 73 61 . @ ligm1,0 sa
00E7A0: 79 20 27 74 61 70 65 7A 20 73 75 72 20 75 6E 65 y 'tapez sur une
00E7B0: 20 74 6F 75 63 68 65 20 70 6F 75 72 20 63 6F 6E touche pour con
00E7C0: 74 69 6E 75 65 72 27 0D 0A 20 20 20 73 65 74 20 tinuer'.. set
00E7D0: 63 6F 6E 73 6F 6C 65 20 6F 66 66 0D 0A 20 20 20 console off..
00E7E0: 77 61 69 74 0D 0A 20 20 20 73 65 74 20 63 6F 6E wait.. set con
00E7F0: 73 6F 6C 65 20 6F 6E 0D 0A 65 6C 73 65 0D 0A 20 sole on..else..
00E800: 0D 0A 66 69 6E 64 20 26 6D 6E 6F 6D 0D 0A 69 66 ..find &mnom..if
00E810: 20 23 20 3D 20 30 0D 0A 73 74 6F 72 65 20 31 36 # = 0..store 16
00E820: 20 20 74 6F 20 6E 6F 6D 65 73 73 0D 0A 64 6F 20 to nomess..do
00E830: 61 66 66 6D 65 73 73 0D 0A 65 6C 73 65 0D 0A 73 affmess..else..s
00E840: 74 6F 72 65 20 74 79 70 63 20 74 6F 20 74 79 70 tore typc to typ
00E850: 69 6E 64 65 78 0D 0A 73 74 6F 72 65 20 27 74 27 index..store 't'
00E860: 20 74 6F 20 63 6F 72 72 65 63 74 0D 0A 69 66 20 to correct..if
00E870: 74 79 70 69 6E 64 65 78 20 3D 20 27 50 27 0D 0A typindex = 'P'..
00E880: 73 65 6C 65 63 74 20 73 65 63 6F 6E 64 61 72 79 select secondary
00E890: 0D 0A 75 73 65 20 26 66 72 65 66 20 69 6E 64 65 ..use &fref inde
00E8A0: 78 20 26 78 63 6C 65 0D 0A 67 6F 74 6F 20 74 6F x &xcle..goto to
00E8B0: 70 0D 0A 64 6F 20 77 68 69 6C 65 20 2E 6E 6F 74 p..do while .not
00E8C0: 2E 65 6F 66 0D 0A 72 65 70 6C 61 63 65 20 6E 6F .eof..replace no
00E8D0: 7A 20 77 69 74 68 20 30 0D 0A 73 6B 69 70 0D 0A z with 0..skip..
00E8E0: 65 6E 64 64 6F 0D 0A 75 73 65 0D 0A 65 6E 64 69 enddo..use..endi
00E8F0: 66 0D 0A 73 65 6C 65 63 74 20 70 72 69 6D 61 72 f..select primar
00E900: 79 0D 0A 64 65 6C 65 0D 0A 70 61 63 6B 0D 0A 73 y..dele..pack..s
00E910: 74 6F 72 65 20 27 43 27 20 74 6F 20 65 6C 65 6D tore 'C' to elem
00E920: 0D 0A 73 74 6F 72 65 20 24 28 6D 6E 6F 6D 2C 32 ..store $(mnom,2
00E930: 2C 31 30 29 20 74 6F 20 6D 6E 6F 6D 65 6C 65 6D ,10) to mnomelem
00E940: 0D 0A 73 74 6F 72 65 20 27 4D 27 20 74 6F 20 6D ..store 'M' to m
00E950: 6F 64 69 66 0D 0A 64 6F 20 64 65 66 65 6C 65 6D odif..do defelem
00E960: 0D 0A 72 65 6C 65 61 73 65 20 6D 6E 6F 6D 2C 74 ..release mnom,t
00E970: 79 70 69 6E 64 65 78 2C 63 6F 72 72 65 63 74 2C ypindex,correct,
00E980: 65 6C 65 6D 2C 6D 6E 6F 6D 65 6C 65 6D 2C 6D 6F elem,mnomelem,mo
00E990: 64 69 66 0D 0A 72 65 74 75 72 6E 0D 0A 65 6E 64 dif..return..end
00E9A0: 69 66 0D 0A 65 6E 64 64 6F 0D 0A 0D 0A 0D 0A 0D if..enddo.......
00E9B0: 0A 0D 0A 0D 0A 0D 0A 0D 0A 1A 1A 69 78 3D 27 31 ...........ix='1
00E9C0: 27 0D 0A 20 20 20 20 20 20 20 20 20 73 74 6F 72 '.. stor
00E9D0: 65 20 27 43 27 20 74 6F 20 6D 6F 64 69 66 0D 0A e 'C' to modif..
00E9E0: 20 20 20 20 20 20 20 20 20 64 6F 20 64 65 66 65 do defe
00E9F0: 6C 65 6D 0D 0A 20 20 20 20 20 20 20 20 20 72 65 lem.. re
00EA00: 20 20 2A 20 70 6F 75 72 20 76 69 64 65 72 20 6C * pour vider l
00EA10: 65 20 62 75 66 66 65 72 0D 0A 20 20 20 3F 3F 20 e buffer.. ??
00EA20: 63 68 72 28 31 33 29 0D 0A 20 20 20 73 65 74 20 chr(13).. set
00EA30: 70 72 69 6E 74 20 6F 66 66 0D 0A 20 20 20 73 65 print off.. se
00EA40: 74 20 66 6F 72 6D 61 74 20 74 6F 20 73 63 72 65 t format to scre
00EA50: 65 6E 0D 0A 65 6E 64 69 66 0D 0A 72 65 6C 65 61 en..endif..relea
00EA60: 73 65 20 72 65 70 2C 6C 69 67 2C 63 70 74 2C 63 se rep,lig,cpt,c
00EA70: 6F 6D 6D 65 6E 74 2C 65 6C 65 6D 2C 63 6F 72 72 omment,elem,corr
00EA80: 65 63 74 0D 0A 75 73 65 0D 0A 72 65 74 75 72 6E ect..use..return
00EA90: 0D 0A 0D 0A 0D 0A 0D 0A 1A 1A 0A 20 20 20 20 20 ...........
00EAA0: 20 73 74 6F 72 65 20 27 69 6E 64 65 78 20 73 65 store 'index se
00EAB0: 63 6F 6E 64 61 69 72 65 20 2D 20 6D 69 73 65 20 condaire - mise
00EAC0: 61 20 6A 6F 75 72 20 61 75 74 6F 6D 61 74 69 71 a jour automatiq
00EAD0: 75 65 27 20 74 6F 20 63 6F 6D 6D 65 6E 74 0D 0A ue' to comment..
00EAE0: 20 20 20 20 20 20 6F 74 68 65 72 77 69 73 65 0D otherwise.
00EAF0: 0A 20 20 20 20 20 20 73 74 6F 72 65 20 27 69 6E . store 'in
00EB00: 64 65 78 20 74 65 6D 70 6F 72 61 69 72 65 20 2D dex temporaire -
00EB10: 20 6D 69 73 65 20 61 20 6A 6F 75 72 20 6E 6F 6E mise a jour non
00EB20: 20 61 75 74 6F 6D 61 74 69 71 75 65 27 20 74 6F automatique' to
00EB30: 20 63 6F 6D 6D 65 6E 74 0D 0A 20 20 20 20 20 20 comment..
00EB40: 65 6E 64 63 61 73 65 0D 0A 20 20 20 20 20 20 40 endcase.. @
00EB50: 20 6C 69 67 2C 30 20 73 61 79 20 27 2A 2A 2A 2A lig,0 say '****
00EB60: 2A 20 27 2B 6E 6F 6D 65 6C 65 6D 2B 27 20 27 2B * '+nomelem+' '+
00EB70: 6C 69 62 65 6C 65 6D 0D 0A 20 20 20 20 20 20 40 libelem.. @
00EB80: 20 6C 69 67 2C 34 38 20 73 61 79 20 27 7A 6F 6E lig,48 say 'zon
00EB90: 65 20 31 3A 20 27 2B 7A 6F 6E 31 2B 27 20 64 65 e 1: '+zon1+' de
00EBA0: 20 27 2B 64 65 62 31 2B 27 20 61 20 27 2B 66 69 '+deb1+' a '+fi
00EBB0: 6E 31 0D 0A 20 20 20 20 20 20 69 66 20 7A 6F 6E n1.. if zon
00EBC0: 32 23 27 20 27 0D 0A 20 20 20 20 20 20 40 20 6C 2#' '.. @ l
00EBD0: 69 67 2B 31 2C 30 20 73 61 79 20 27 7A 6F 6E 65 ig+1,0 say 'zone
00EBE0: 20 32 3A 20 27 2B 7A 6F 6E 32 2B 27 20 64 65 20 2: '+zon2+' de
00EBF0: 27 2B 64 65 62 32 2B 27 20 61 20 27 2B 66 69 6E '+deb2+' a '+fin
00EC00: 2A 20 69 6E 69 74 7A 6F 6E 65 3A 20 69 6E 69 74 * initzone: init
00EC10: 69 61 6C 69 73 65 20 75 6E 65 20 7A 6F 6E 65 20 ialise une zone
00EC20: 64 65 20 73 61 69 73 69 65 20 65 6E 20 72 65 70 de saisie en rep
00EC30: 72 65 6E 61 6E 74 20 6C 61 20 76 61 6C 65 75 72 renant la valeur
00EC40: 20 64 27 75 6E 20 65 6E 72 65 67 69 73 2D 0D 0A d'un enregis-..
00EC50: 2A 20 74 72 65 6D 65 6E 74 20 6F 75 20 65 6E 20 * trement ou en
00EC60: 6D 65 74 74 61 6E 74 20 6C 61 20 76 61 6C 65 75 mettant la valeu
00EC70: 72 20 6E 75 6C 6C 65 20 73 75 69 76 61 6E 74 20 r nulle suivant
00EC80: 6C 61 20 76 61 72 69 61 62 6C 65 20 63 68 6F 69 la variable choi
00EC90: 78 2C 6C 27 65 78 69 73 74 65 6E 63 65 0D 0A 2A x,l'existence..*
00ECA0: 20 64 27 75 6E 20 65 6E 72 65 67 69 73 74 72 65 d'un enregistre
00ECB0: 6D 65 6E 74 20 63 6F 75 72 61 6E 74 20 65 74 20 ment courant et
00ECC0: 6C 27 61 70 70 61 72 74 65 6E 61 6E 63 65 20 6F l'appartenance o
00ECD0: 75 20 6E 6F 6E 20 61 20 6C 61 20 63 6C 65 20 70 u non a la cle p
00ECE0: 72 69 6E 63 69 70 61 6C 65 0D 0A 2A 20 65 6E 20 rincipale..* en
00ECF0: 65 6E 74 72 65 65 3A 20 63 68 6F 69 78 20 31 3D entree: choix 1=
00ED00: 63 72 65 61 74 69 6F 6E 2C 20 32 3D 6D 6F 64 69 creation, 2=modi
00ED10: 66 69 63 61 74 69 6F 6E 2C 20 33 3D 73 75 70 70 fication, 3=supp
00ED20: 72 65 73 73 69 6F 6E 2C 20 34 3D 76 69 73 75 61 ression, 4=visua
00ED30: 6C 69 73 61 74 69 6F 6E 0D 0A 2A 20 35 3D 72 65 lisation..* 5=re
00ED40: 63 68 65 72 63 68 65 20 73 75 72 20 63 6C 65 20 cherche sur cle
00ED50: 70 61 72 74 69 65 20 61 66 66 69 63 68 61 67 65 partie affichage
00ED60: 2C 20 53 3D 72 65 63 68 65 72 63 68 65 20 73 75 , S=recherche su
00ED70: 72 20 63 6C 65 20 70 61 72 74 69 65 20 64 65 6D r cle partie dem
00ED80: 61 6E 64 65 20 63 6C 65 0D 0A 0D 0A 69 66 20 28 ande cle....if (
00ED90: 63 68 6F 69 78 3E 3D 20 27 32 27 2E 61 6E 64 2E choix>= '2'.and.
00EDA0: 63 68 6F 69 78 3C 3D 27 35 27 29 2E 61 6E 64 2E choix<='5').and.
00EDB0: 28 6E 6F 7A 3E 6E 62 7A 6F 6E 70 2E 6F 72 2E 6E (noz>nbzonp.or.n
00EDC0: 6F 63 6F 75 72 20 23 20 30 29 0D 0A 20 20 20 73 ocour # 0).. s
00EDD0: 74 6F 72 65 20 66 69 65 6C 64 3A 6E 61 6D 65 20 tore field:name
00EDE0: 74 6F 20 6E 6F 6D 7A 0D 0A 20 20 20 73 74 6F 72 to nomz.. stor
00EDF0: 65 20 27 73 2E 27 2D 6E 6F 6D 7A 20 74 6F 20 6E e 's.'-nomz to n
00EE00: 2A 20 6F 70 74 69 6F 6E 3A 20 70 72 6F 67 72 61 * option: progra
00EE10: 6D 6D 65 20 71 75 69 20 70 65 75 74 20 65 74 72 mme qui peut etr
00EE20: 65 20 63 68 61 6E 67 65 20 70 61 72 20 6C 27 75 e change par l'u
00EE30: 74 69 6C 69 73 61 74 65 75 72 0D 0A 0D 0A 65 72 tilisateur....er
00EE40: 61 73 65 0D 0A 40 20 31 30 2C 31 30 20 73 61 79 ase..@ 10,10 say
00EE50: 20 22 41 55 43 55 4E 45 20 4F 50 54 49 4F 4E 20 "AUCUNE OPTION
00EE60: 4E 27 45 53 54 20 45 4E 43 4F 52 45 20 49 4D 50 N'EST ENCORE IMP
00EE70: 4C 45 4D 45 4E 54 45 45 22 0D 0A 40 20 6C 69 67 LEMENTEE"..@ lig
00EE80: 6D 31 2C 30 20 73 61 79 20 27 74 61 70 65 7A 20 m1,0 say 'tapez
00EE90: 73 75 72 20 75 6E 65 20 74 6F 75 63 68 65 20 70 sur une touche p
00EEA0: 6F 75 72 20 72 65 76 65 6E 69 72 20 61 75 20 6D our revenir au m
00EEB0: 65 6E 75 27 0D 0A 73 65 74 20 63 6F 6E 73 6F 6C enu'..set consol
00EEC0: 65 20 6F 66 66 0D 0A 77 61 69 74 0D 0A 73 65 74 e off..wait..set
00EED0: 20 63 6F 6E 73 6F 6C 65 20 6F 6E 0D 0A 72 65 74 console on..ret
00EEE0: 75 72 6E 0D 0A 1A 1A 2C 18 0C 29 DE 03 13 00 E9 urn....,..).....
00EEF0: 28 22 66 35 22 29 22 20 20 45 64 69 74 65 72 20 ("f5")" Editer
00EF00: 6C 65 20 64 65 72 6E 69 65 72 20 7B 63 72 61 6E le dernier {cran
00EF10: 22 DE 03 25 00 E1 28 18 19 2C 18 0E 29 DE 03 13 "..%..(..,..)...
00EF20: 00 E9 28 22 66 33 22 29 22 20 20 45 64 69 74 65 ..("f3")" Edite
00EF30: 72 20 75 6E 20 6E 6F 75 76 65 6C 20 7B 63 72 61 r un nouvel {cra
00EF40: 6E 22 DE 03 25 00 E1 28 18 19 2C 18 10 29 DE 03 n"..%..(..,..)..
00EF50: 13 00 E9 28 22 66 31 22 29 22 20 20 45 64 69 74 ...("f1")" Edit
00EF60: 65 72 20 75 6E 20 66 69 63 68 69 65 72 20 65 78 er un fichier ex
00EF70: 69 73 74 61 6E 74 22 DE 03 25 00 E1 28 18 17 2C istant"..%..(..,
00EF80: 18 12 29 DE 03 13 00 E9 28 22 45 58 49 54 22 29 ..).....("EXIT")
00EF90: 22 20 20 51 75 69 74 74 65 72 22 00 1C 00 11 00 " Quitter".....
00EFA0: 03 A9 00 F4 EC FF 75 01 9D 20 03 A9 00 F4 EC 22 ......u.. ....."
00EFB0: 22 20 E2 20 1C D3 7E 00 2C 00 12 00 AD 20 FF 77 " . ..~.,.... .w
00EFC0: 28 03 75 00 ED 2C 03 A9 00 F4 29 20 9C 20 1C 1B (.u..,....) . ..
00EFD0: 7F 2C 1C 59 7F 2C 1D 14 00 2C 1D 21 00 01 9C 20 .,.Y.,...,.!...
00EFE0: 1D 11 00 00 28 00 13 00 B3 20 03 05 00 E5 22 65 ....(.... ...."e
00EFF0: 22 03 05 00 E5 22 76 22 03 05 00 E5 22 45 22 03 "...."v"...."E".
00F000: 6F 6D 7A 0D 0A 20 20 20 73 74 6F 72 65 20 26 6E omz.. store &n
00F010: 6F 6D 7A 20 74 6F 20 26 6D 7A 6F 6E 0D 0A 65 6C omz to &mzon..el
00F020: 73 65 0D 0A 20 20 20 64 6F 20 63 61 73 65 0D 0A se.. do case..
00F030: 20 20 20 20 20 20 63 61 73 65 20 66 69 65 6C 64 case field
00F040: 3A 74 79 70 65 3D 27 4E 27 0D 0A 20 20 20 20 20 :type='N'..
00F050: 20 73 74 6F 72 65 20 30 20 74 6F 20 26 6D 7A 6F store 0 to &mzo
00F060: 6E 0D 0A 20 20 20 20 20 20 63 61 73 65 20 66 69 n.. case fi
00F070: 65 6C 64 3A 74 79 70 65 3D 27 4C 27 0D 0A 20 20 eld:type='L'..
00F080: 20 20 20 20 73 74 6F 72 65 20 66 20 74 6F 20 26 store f to &
00F090: 6D 7A 6F 6E 0D 0A 20 20 20 20 20 20 63 61 73 65 mzon.. case
00F0A0: 20 24 28 76 65 72 69 66 2C 32 2C 31 29 3D 27 44 $(verif,2,1)='D
00F0B0: 27 0D 0A 20 20 20 20 20 20 73 74 6F 72 65 20 27 '.. store '
00F0C0: 30 30 2F 30 30 2F 30 30 27 20 74 6F 20 26 6D 7A 00/00/00' to &mz
00F0D0: 6F 6E 0D 0A 20 20 20 20 20 20 63 61 73 65 20 24 on.. case $
00F0E0: 28 76 65 72 69 66 2C 32 2C 31 29 3D 27 4D 27 0D (verif,2,1)='M'.
00F0F0: 0A 20 20 20 20 20 20 73 74 6F 72 65 20 27 30 30 . store '00
00F100: 2F 30 30 27 20 74 6F 20 26 6D 7A 6F 6E 0D 0A 20 /00' to &mzon..
00F110: 20 20 20 20 20 63 61 73 65 20 66 69 65 6C 64 3A case field:
00F120: 74 79 70 65 3D 27 43 27 0D 0A 20 20 20 20 20 20 type='C'..
00F130: 73 74 6F 72 65 20 24 28 62 6C 61 6E 63 2C 31 2C store $(blanc,1,
00F140: 66 69 65 6C 64 3A 6C 65 6E 29 20 74 6F 20 26 6D field:len) to &m
00F150: 7A 6F 6E 0D 0A 20 20 20 65 6E 64 63 61 73 65 0D zon.. endcase.
00F160: 0A 65 6E 64 69 66 0D 0A 72 65 6C 65 61 73 65 20 .endif..release
00F170: 6E 6F 6D 7A 0D 0A 64 6F 20 70 69 63 74 75 72 65 nomz..do picture
00F180: 0D 0A 72 65 74 75 72 6E 0D 0A 0D 0A 0D 0A 0D 0A ..return........
00F190: 1A 1A 72 65 70 0D 0A 20 20 20 20 20 20 73 65 74 ..rep.. set
00F1A0: 20 69 6E 74 65 6E 73 69 74 79 20 6F 6E 0D 0A 20 intensity on..
00F1B0: 20 20 20 20 20 72 65 61 64 0D 0A 20 20 20 20 20 read..
00F1C0: 20 73 74 6F 72 65 20 21 28 72 65 70 29 20 74 6F store !(rep) to
00F1D0: 20 72 65 70 0D 0A 20 20 20 65 6C 73 65 0D 0A 20 rep.. else..
00F1E0: 20 20 20 20 20 73 74 6F 72 65 20 27 31 27 20 74 store '1' t
00F1F0: 6F 20 72 65 70 0D 0A 20 20 20 65 6E 64 69 66 0D o rep.. endif.
00F200: 0A 20 20 20 20 20 20 20 20 20 73 74 6F 72 65 20 . store
00F210: 21 28 76 61 6C 64 65 62 29 20 74 6F 20 76 61 6C !(valdeb) to val
00F220: 64 65 62 0D 0A 20 20 20 20 20 20 20 20 20 73 74 deb.. st
00F230: 6F 72 65 20 21 28 76 61 6C 66 69 6E 29 20 74 6F ore !(valfin) to
00F240: 20 76 61 6C 66 69 6E 0D 0A 20 20 20 20 20 20 65 valfin.. e
00F250: 6E 64 69 66 0D 0A 20 20 20 20 20 20 73 74 6F 72 ndif.. stor
00F260: 65 20 30 20 74 6F 20 6E 6F 6D 65 73 73 0D 0A 20 e 0 to nomess..
00F270: 20 20 20 20 20 69 66 20 72 65 70 32 3D 27 42 27 if rep2='B'
00F280: 2E 61 6E 64 2E 6D 74 79 70 65 3D 27 4E 27 0D 0A .and.mtype='N'..
00F290: 20 20 20 20 20 20 20 20 20 69 66 20 76 61 6C 64 if vald
00F2A0: 65 62 3C 26 6D 69 6E 70 6F 73 2E 6F 72 2E 76 61 eb<&minpos.or.va
00F2B0: 6C 64 65 62 3E 26 6D 61 78 70 6F 73 0D 0A 20 20 ldeb>&maxpos..
00F2C0: 20 20 20 20 20 20 20 20 20 20 73 74 6F 72 65 20 store
00F2D0: 33 33 20 74 6F 20 6E 6F 6D 65 73 73 0D 0A 20 20 33 to nomess..
00F2E0: 20 20 20 20 20 20 20 20 20 20 64 6F 20 61 66 66 do aff
00F2F0: 6D 65 73 73 0D 0A 20 20 20 20 20 20 20 20 20 65 mess.. e
00F300: 6C 73 65 0D 0A 20 20 20 20 20 20 20 20 20 20 20 lse..
00F310: 20 69 66 20 76 61 6C 66 69 6E 3C 26 6D 69 6E 70 if valfin<&minp
00F320: 6F 73 2E 6F 72 2E 76 61 6C 66 69 6E 3E 26 6D 61 os.or.valfin>&ma
00F330: 78 70 6F 73 0D 0A 20 20 20 20 20 20 20 20 20 20 xpos..
00F340: 20 20 20 20 20 73 74 6F 72 65 20 33 33 20 74 6F store 33 to
00F350: 20 6E 6F 6D 65 73 73 0D 0A 20 20 20 20 20 20 20 nomess..
00F360: 20 20 20 20 20 20 20 20 64 6F 20 61 66 66 6D 65 do affme
00F370: 73 73 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 ss..
00F380: 65 6E 64 69 66 0D 0A 20 20 20 20 20 20 20 20 20 endif..
00F390: 65 6E 64 69 66 0D 0A 20 20 20 20 20 20 65 6E 64 endif.. end
00F3A0: 69 66 0D 0A 20 20 20 20 20 20 69 66 20 72 65 70 if.. if rep
00F3B0: 32 3D 27 44 27 2E 6F 72 2E 72 65 70 32 3D 27 4D 2='D'.or.rep2='M
00F3C0: 27 0D 0A 20 20 20 20 20 20 20 20 20 73 74 6F 72 '.. stor
00F3D0: 65 20 31 20 74 6F 20 63 70 74 0D 0A 20 20 20 20 e 1 to cpt..
00F3E0: 20 20 20 20 20 64 6F 20 77 68 69 6C 65 20 63 70 do while cp
00F3F0: 74 20 3C 3D 20 32 0D 0A 20 20 20 20 20 20 20 20 t <= 2..
00F400: 73 65 74 20 74 61 6C 6B 20 6F 66 66 0D 0A 73 65 set talk off..se
00F410: 74 20 63 6F 6C 6F 6E 20 6F 66 66 0D 0A 63 6C 65 t colon off..cle
00F420: 61 72 0D 0A 73 74 6F 72 65 20 22 42 3A 22 20 74 ar..store "B:" t
00F430: 6F 20 75 6E 69 74 0D 0A 73 74 6F 72 65 20 22 20 o unit..store "
00F440: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00F450: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00F460: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00F470: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00F480: 20 20 20 20 20 20 3B 0D 0A 20 20 20 20 20 20 20 ;..
00F490: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00F4A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00F4B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00F4C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00F4D0: 20 20 20 20 20 20 20 3B 0D 0A 20 20 20 20 20 20 ;..
00F4E0: 20 20 20 20 20 20 20 20 20 22 20 74 6F 20 6C 69 " to li
00F4F0: 73 74 69 6E 64 0D 0A 73 74 6F 72 65 20 31 20 74 stind..store 1 t
00F500: 6F 20 6C 6F 6E 67 65 6E 67 0D 0A 65 72 61 73 65 o longeng..erase
00F510: 0D 0A 40 20 31 2C 32 35 20 73 61 79 20 22 52 45 ..@ 1,25 say "RE
00F520: 43 55 50 45 52 41 54 49 4F 4E 20 44 45 53 20 44 CUPERATION DES D
00F530: 4F 4E 4E 45 45 53 22 0D 0A 40 20 37 2C 30 20 73 ONNEES"..@ 7,0 s
00F540: 61 79 20 22 55 6E 69 74 65 20 70 61 72 20 64 65 ay "Unite par de
00F550: 66 61 75 74 20 64 65 20 76 6F 73 20 64 6F 6E 6E faut de vos donn
00F560: 65 65 73 20 20 20 28 41 3A 2C 20 42 3A 20 6F 75 ees (A:, B: ou
00F570: 20 4D 3A 29 20 20 20 20 3A 22 0D 0A 40 20 38 2C M:) :"..@ 8,
00F580: 30 20 73 61 79 20 22 4E 6F 6D 20 64 75 20 66 69 0 say "Nom du fi
00F590: 63 68 69 65 72 20 61 20 72 65 63 75 70 65 72 65 chier a recupere
00F5A0: 72 20 28 52 65 74 75 72 6E 20 70 6F 75 72 20 61 r (Return pour a
00F5B0: 62 61 6E 64 6F 6E 6E 65 72 29 20 3A 22 0D 0A 40 bandonner) :"..@
00F5C0: 20 31 31 2C 30 20 73 61 79 20 22 4C 69 73 74 65 11,0 say "Liste
00F5D0: 20 64 65 73 20 6E 6F 75 76 65 61 75 78 20 69 6E des nouveaux in
00F5E0: 64 65 78 20 70 72 69 6E 63 69 70 61 6C 20 65 74 dex principal et
00F5F0: 20 73 65 63 6F 6E 64 61 69 72 65 73 20 73 65 70 secondaires sep
00F600: 2A 20 6D 6F 64 69 66 63 6C 65 3A 20 6D 6F 64 69 * modifcle: modi
00F610: 66 69 63 61 74 69 6F 6E 20 64 27 75 6E 65 20 63 fication d'une c
00F620: 6C 65 20 70 61 72 20 73 75 70 72 65 73 73 69 6F le par supressio
00F630: 6E 20 2D 20 63 72 65 61 74 69 6F 6E 0D 0A 65 72 n - creation..er
00F640: 61 73 65 0D 0A 73 65 6C 65 63 74 20 70 72 69 6D ase..select prim
00F650: 61 72 79 0D 0A 75 73 65 20 26 66 65 6C 65 20 69 ary..use &fele i
00F660: 6E 64 65 78 20 26 78 65 6C 65 0D 0A 40 20 31 2C ndex &xele..@ 1,
00F670: 31 36 20 73 61 79 20 22 4D 4F 44 49 46 49 43 41 16 say "MODIFICA
00F680: 54 49 4F 4E 20 44 27 55 4E 45 20 43 4C 45 20 44 TION D'UNE CLE D
00F690: 55 20 46 49 43 48 49 45 52 20 22 0D 0A 40 20 31 U FICHIER "..@ 1
00F6A0: 2C 35 35 20 67 65 74 20 6E 6F 6D 61 66 66 0D 0A ,55 get nomaff..
00F6B0: 63 6C 65 61 72 20 67 65 74 0D 0A 67 6F 74 6F 20 clear get..goto
00F6C0: 74 6F 70 0D 0A 40 20 35 2C 31 30 20 73 61 79 20 top..@ 5,10 say
00F6D0: 27 6E 6F 6D 20 64 65 20 6C 61 20 63 6C 65 27 0D 'nom de la cle'.
00F6E0: 0A 73 74 6F 72 65 20 27 66 27 20 74 6F 20 63 6F .store 'f' to co
00F6F0: 72 72 65 63 74 0D 0A 64 6F 20 77 68 69 6C 65 20 rrect..do while
00F700: 63 6F 72 72 65 63 74 3D 27 66 27 0D 0A 73 74 6F correct='f'..sto
00F710: 72 65 20 27 20 20 20 20 20 20 20 20 27 20 74 6F re ' ' to
00F720: 20 6D 6E 6F 6D 0D 0A 40 20 35 2C 34 30 20 67 65 mnom..@ 5,40 ge
00F730: 74 20 6D 6E 6F 6D 0D 0A 40 20 6C 69 67 6D 31 2C t mnom..@ ligm1,
00F740: 30 20 73 61 79 20 27 74 61 70 65 7A 20 72 65 74 0 say 'tapez ret
00F750: 75 72 6E 20 70 6F 75 72 20 61 62 61 6E 64 6F 6E urn pour abandon
00F760: 6E 65 72 27 0D 0A 72 65 61 64 0D 0A 40 20 6C 69 ner'..read..@ li
00F770: 67 6D 31 2C 30 0D 0A 2A 20 76 65 75 74 2D 6F 6E gm1,0..* veut-on
00F780: 20 73 6F 72 74 69 72 0D 0A 69 66 20 6D 6E 6F 6D sortir..if mnom
00F790: 3D 27 20 27 0D 0A 72 65 6C 65 61 73 65 20 6D 6E =' '..release mn
00F7A0: 6F 6D 2C 63 6F 72 72 65 63 74 0D 0A 72 65 74 75 om,correct..retu
00F7B0: 72 6E 0D 0A 65 6E 64 69 66 0D 0A 73 74 6F 72 65 rn..endif..store
00F7C0: 20 21 28 6D 6E 6F 6D 29 20 74 6F 20 6D 6E 6F 6D !(mnom) to mnom
00F7D0: 0D 0A 2A 20 6C 65 20 6E 6F 6D 20 65 78 69 73 74 ..* le nom exist
00F7E0: 65 2D 74 2D 69 6C 20 3F 0D 0A 73 74 6F 72 65 20 e-t-il ?..store
00F7F0: 27 43 27 2D 6D 6E 6F 6D 20 74 6F 20 6D 6E 6F 6D 'C'-mnom to mnom
00F800: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
00F810: 0D 00 01 00 02 09 4E E5 0D 00 41 02 00 00 00 02 ......N...A.....
00F820: 0D 00 46 02 00 00 00 02 0D 00 42 02 00 00 00 02 ..F.......B.....
00F830: 0D 00 47 02 00 00 00 02 0D 00 43 02 00 00 00 02 ..G.......C.....
00F840: 0D 00 48 02 00 00 00 02 0D 00 44 02 00 00 00 02 ..H.......D.....
00F850: 0D 00 49 02 00 00 00 02 0D 00 45 02 00 00 00 02 ..I.......E.....
00F860: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00F870: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00F880: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00F890: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00F8A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00F8B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00F8C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00F8D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00F8E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00F8F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00F900: 61 72 65 73 20 70 61 72 20 75 6E 65 22 0D 0A 40 ares par une"..@
00F910: 20 31 32 2C 30 20 73 61 79 20 22 76 69 72 67 75 12,0 say "virgu
00F920: 6C 65 20 65 74 20 70 72 65 63 65 64 65 73 20 64 le et precedes d
00F930: 65 20 6C 27 75 6E 69 74 65 20 3A 22 0D 0A 40 20 e l'unite :"..@
00F940: 31 37 2C 30 20 73 61 79 20 22 54 61 69 6C 6C 65 17,0 say "Taille
00F950: 20 64 65 20 6C 27 65 6E 72 65 67 69 73 74 72 65 de l'enregistre
00F960: 6D 65 6E 74 20 61 76 61 6E 74 20 6D 6F 64 69 66 ment avant modif
00F970: 69 63 61 74 69 6F 6E 3A 22 0D 0A 73 74 6F 72 65 ication:"..store
00F980: 20 66 20 74 6F 20 63 6F 72 72 65 63 74 0D 0A 64 f to correct..d
00F990: 6F 20 77 68 69 6C 65 20 2E 6E 6F 74 2E 63 6F 72 o while .not.cor
00F9A0: 72 65 63 74 0D 0A 20 20 20 73 74 6F 72 65 20 22 rect.. store "
00F9B0: 20 20 20 20 20 20 20 20 22 20 74 6F 20 6E 6F 6D " to nom
00F9C0: 66 69 63 68 0D 0A 20 20 20 40 20 37 2C 35 34 20 fich.. @ 7,54
00F9D0: 67 65 74 20 75 6E 69 74 0D 0A 20 20 20 40 20 38 get unit.. @ 8
00F9E0: 2C 35 34 20 67 65 74 20 6E 6F 6D 66 69 63 68 20 ,54 get nomfich
00F9F0: 70 69 63 74 75 72 65 20 27 41 41 41 41 41 41 41 picture 'AAAAAAA
00FA00: 41 27 0D 0A 20 20 20 40 20 31 32 2C 33 33 20 67 A'.. @ 12,33 g
00FA10: 65 74 20 6C 69 73 74 69 6E 64 0D 0A 20 20 20 40 et listind.. @
00FA20: 20 31 37 2C 34 38 20 67 65 74 20 6C 6F 6E 67 65 17,48 get longe
00FA30: 6E 67 0D 0A 20 20 20 72 65 61 64 0D 0A 20 20 20 ng.. read..
00FA40: 63 6C 65 61 72 20 67 65 74 0D 0A 20 20 20 73 74 clear get.. st
00FA50: 6F 72 65 20 21 28 75 6E 69 74 29 20 74 6F 20 75 ore !(unit) to u
00FA60: 6E 69 74 0D 0A 20 20 20 73 74 6F 72 65 20 21 28 nit.. store !(
00FA70: 6E 6F 6D 66 69 63 68 29 20 74 6F 20 6E 6F 6D 66 nomfich) to nomf
00FA80: 69 63 68 0D 0A 20 20 20 73 74 6F 72 65 20 21 28 ich.. store !(
00FA90: 6C 69 73 74 69 6E 64 29 20 74 6F 20 6C 69 73 74 listind) to list
00FAA0: 69 6E 64 0D 0A 20 20 20 69 66 20 6E 6F 6D 66 69 ind.. if nomfi
00FAB0: 63 68 3D 22 20 22 0D 0A 20 20 20 20 20 20 63 6C ch=" ".. cl
00FAC0: 65 61 72 0D 0A 20 20 20 20 20 20 71 75 69 74 0D ear.. quit.
00FAD0: 0A 20 20 20 65 6E 64 69 66 0D 0A 20 20 20 69 66 . endif.. if
00FAE0: 20 75 6E 69 74 23 27 41 3A 27 2E 61 6E 64 2E 75 unit#'A:'.and.u
00FAF0: 6E 69 74 23 27 42 3A 27 2E 61 6E 64 2E 75 6E 69 nit#'B:'.and.uni
00FB00: 2A 20 6D 65 6E 75 67 65 6E 3A 20 20 20 6D 65 6E * menugen: men
00FB10: 75 20 70 61 72 61 6D 65 74 72 61 67 65 0D 0A 0D u parametrage...
00FB20: 0A 73 74 6F 72 65 20 27 74 27 20 74 6F 20 74 65 .store 't' to te
00FB30: 73 74 0D 0A 64 6F 20 77 68 69 6C 65 20 74 65 73 st..do while tes
00FB40: 74 3D 27 74 27 0D 0A 20 20 20 69 66 20 63 68 6F t='t'.. if cho
00FB50: 69 78 3D 27 46 27 0D 0A 20 20 20 73 74 6F 72 65 ix='F'.. store
00FB60: 20 27 66 27 20 74 6F 20 72 65 70 72 69 73 65 0D 'f' to reprise.
00FB70: 0A 20 20 20 65 72 61 73 65 0D 0A 20 20 20 40 20 . erase.. @
00FB80: 31 2C 32 36 20 53 41 59 20 27 50 41 52 41 4D 45 1,26 SAY 'PARAME
00FB90: 54 52 41 47 45 20 44 55 20 46 49 43 48 49 45 52 TRAGE DU FICHIER
00FBA0: 20 27 0D 0A 20 20 20 40 20 31 2C 35 34 20 67 65 '.. @ 1,54 ge
00FBB0: 74 20 6E 6F 6D 61 66 66 0D 0A 20 20 20 40 20 33 t nomaff.. @ 3
00FBC0: 2C 31 30 20 73 61 79 20 27 71 75 65 6C 20 74 72 ,10 say 'quel tr
00FBD0: 61 69 74 65 6D 65 6E 74 20 64 65 73 69 72 65 7A aitement desirez
00FBE0: 2D 76 6F 75 73 20 65 66 66 65 63 74 75 65 72 3F -vous effectuer?
00FBF0: 27 0D 0A 20 20 20 40 20 35 2C 31 30 20 73 61 79 '.. @ 5,10 say
00FC00: 20 27 67 65 6E 65 72 65 72 20 6C 65 20 66 69 63 'generer le fic
00FC10: 68 69 65 72 20 20 20 20 20 20 20 20 20 20 20 20 hier
00FC20: 20 20 20 20 20 20 3D 3D 3D 3D 3E 20 31 27 0D 0A ====> 1'..
00FC30: 20 20 20 40 20 36 2C 31 30 20 73 61 79 20 22 6D @ 6,10 say "m
00FC40: 6F 64 69 66 69 65 72 20 6C 61 20 73 74 72 75 63 odifier la struc
00FC50: 74 75 72 65 20 64 75 20 66 69 63 68 69 65 72 20 ture du fichier
00FC60: 20 20 20 3D 3D 3D 3D 3E 20 32 22 0D 0A 20 20 20 ====> 2"..
00FC70: 40 20 37 2C 31 30 20 73 61 79 20 22 73 75 70 70 @ 7,10 say "supp
00FC80: 72 69 6D 65 72 20 6C 65 20 66 69 63 68 69 65 72 rimer le fichier
00FC90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00FCA0: 3D 3D 3D 3D 3E 20 33 22 0D 0A 20 20 20 40 20 38 ====> 3".. @ 8
00FCB0: 2C 31 30 20 73 61 79 20 27 6C 69 73 74 65 72 20 ,10 say 'lister
00FCC0: 6C 61 20 73 74 72 75 63 74 75 72 65 20 64 75 20 la structure du
00FCD0: 66 69 63 68 69 65 72 20 20 20 20 20 20 3D 3D 3D fichier ===
00FCE0: 3D 3E 20 34 27 0D 0A 20 20 20 40 20 39 2C 31 30 => 4'.. @ 9,10
00FCF0: 20 73 61 79 20 27 63 68 61 6E 67 65 72 20 75 6E say 'changer un
00FD00: 74 23 27 4D 3A 27 0D 0A 20 20 20 20 20 20 40 20 t#'M:'.. @
00FD10: 32 30 2C 30 20 73 61 79 20 22 75 6E 69 74 65 20 20,0 say "unite
00FD20: 69 6E 63 6F 72 72 65 63 74 65 20 2D 20 54 61 70 incorrecte - Tap
00FD30: 65 7A 20 73 75 72 20 75 6E 65 20 74 6F 75 63 68 ez sur une touch
00FD40: 65 20 70 6F 75 72 20 63 6F 6E 74 69 6E 75 65 72 e pour continuer
00FD50: 22 0D 0A 20 20 20 20 20 20 77 61 69 74 0D 0A 20 ".. wait..
00FD60: 20 20 65 6C 73 65 0D 0A 20 20 20 20 20 20 73 74 else.. st
00FD70: 6F 72 65 20 27 22 27 2D 75 6E 69 74 2D 6E 6F 6D ore '"'-unit-nom
00FD80: 66 69 63 68 2D 27 22 27 20 74 6F 20 6E 6F 6D 63 fich-'"' to nomc
00FD90: 6F 6D 70 0D 0A 20 20 20 20 20 20 69 66 20 2E 6E omp.. if .n
00FDA0: 6F 74 2E 66 69 6C 65 28 26 6E 6F 6D 63 6F 6D 70 ot.file(&nomcomp
00FDB0: 29 0D 0A 20 20 20 20 20 20 20 20 20 40 20 32 30 ).. @ 20
00FDC0: 2C 30 20 73 61 79 20 22 66 69 63 68 69 65 72 20 ,0 say "fichier
00FDD0: 69 6E 65 78 69 73 74 61 6E 74 20 73 75 72 20 6C inexistant sur l
00FDE0: 27 75 6E 69 74 65 20 69 6E 64 69 71 75 65 65 20 'unite indiquee
00FDF0: 2D 20 74 61 70 65 7A 20 73 75 72 20 75 6E 65 20 - tapez sur une
00FE00: 3B 0D 0A 74 6F 75 63 68 65 20 70 6F 75 72 20 63 ;..touche pour c
00FE10: 6F 6E 74 69 6E 75 65 72 22 0D 0A 20 20 20 20 20 ontinuer"..
00FE20: 20 20 20 20 77 61 69 74 0D 0A 20 20 20 20 20 20 wait..
00FE30: 65 6C 73 65 0D 0A 20 20 20 20 20 20 20 20 20 69 else.. i
00FE40: 66 20 6C 6F 6E 67 65 6E 67 3C 32 2E 6F 72 2E 6C f longeng<2.or.l
00FE50: 6F 6E 67 65 6E 67 3E 31 30 30 30 0D 0A 20 20 20 ongeng>1000..
00FE60: 20 20 20 20 20 20 20 20 20 40 20 32 30 2C 30 20 @ 20,0
00FE70: 73 61 79 20 22 6C 6F 6E 67 75 65 75 72 20 65 6E say "longueur en
00FE80: 72 65 67 69 73 74 72 65 6D 65 6E 74 20 69 6E 63 registrement inc
00FE90: 6F 72 72 65 63 74 65 20 2D 20 74 61 70 65 7A 20 orrecte - tapez
00FEA0: 73 75 72 20 75 6E 65 20 3B 0D 0A 74 6F 75 63 68 sur une ;..touch
00FEB0: 65 20 70 6F 75 72 20 63 6F 6E 74 69 6E 75 65 72 e pour continuer
00FEC0: 22 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 77 ".. w
00FED0: 61 69 74 0D 0A 20 20 20 20 20 20 20 20 20 65 6C ait.. el
00FEE0: 73 65 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 se..
00FEF0: 73 74 6F 72 65 20 74 20 74 6F 20 63 6F 72 72 65 store t to corre
00FF00: 65 20 6F 70 74 69 6F 6E 20 64 65 20 76 65 72 69 e option de veri
00FF10: 66 69 63 61 74 69 6F 6E 20 20 3D 3D 3D 3D 3E 20 fication ====>
00FF20: 43 27 0D 0A 20 20 20 40 20 31 31 2C 31 30 20 73 C'.. @ 11,10 s
00FF30: 61 79 20 22 6D 65 6E 75 20 67 65 73 74 69 6F 6E ay "menu gestion
00FF40: 20 64 65 73 20 63 6C 65 73 20 20 20 20 20 20 20 des cles
00FF50: 20 20 20 20 20 20 20 20 3D 3D 3D 3D 3E 20 35 22 ====> 5"
00FF60: 0D 0A 20 20 20 40 20 31 33 2C 31 30 20 73 61 79 .. @ 13,10 say
00FF70: 20 22 64 65 66 69 6E 69 72 20 75 6E 65 20 6C 69 "definir une li
00FF80: 73 74 65 20 20 20 20 20 20 20 20 20 20 20 20 20 ste
00FF90: 20 20 20 20 20 20 3D 3D 3D 3D 3E 20 36 22 0D 0A ====> 6"..
00FFA0: 20 20 20 40 20 31 34 2C 31 30 20 73 61 79 20 27 @ 14,10 say '
00FFB0: 73 75 70 70 72 69 6D 65 72 20 75 6E 65 20 6C 69 supprimer une li
00FFC0: 73 74 65 20 20 20 20 20 20 20 20 20 20 20 20 20 ste
00FFD0: 20 20 20 20 3D 3D 3D 3D 3E 20 37 27 0D 0A 20 20 ====> 7'..
00FFE0: 20 40 20 31 35 2C 31 30 20 73 61 79 20 22 6C 69 @ 15,10 say "li
00FFF0: 73 74 65 72 20 6C 65 73 20 6C 69 73 74 65 73 20 ster les listes
010000: 64 65 66 69 6E 69 65 73 20 20 20 20 20 20 20 20 definies
010010: 20 20 3D 3D 3D 3D 3E 20 38 22 0D 0A 20 20 20 40 ====> 8".. @
010020: 20 31 36 2C 31 30 20 73 61 79 20 27 66 69 6E 20 16,10 say 'fin
010030: 70 61 72 61 6D 65 74 72 61 67 65 20 20 20 20 20 parametrage
010040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
010050: 3D 3D 3D 3D 3E 20 46 27 0D 0A 20 20 20 40 20 31 ====> F'.. @ 1
010060: 37 2C 33 38 20 53 41 59 20 22 2B 2D 2D 2D 2D 2D 7,38 SAY "+-----
010070: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
010080: 2D 2B 22 0D 0A 20 20 20 40 20 31 38 2C 33 38 20 -+".. @ 18,38
010090: 53 41 59 20 22 49 20 52 65 70 6F 6E 73 65 20 2D SAY "I Reponse -
0100A0: 2D 3E 20 20 20 20 20 20 20 20 20 20 49 22 0D 0A -> I"..
0100B0: 20 20 20 40 20 31 39 2C 33 38 20 53 41 59 20 22 @ 19,38 SAY "
0100C0: 2B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D +---------------
0100D0: 2D 2D 2D 2D 2D 2D 2D 2B 22 0D 0A 20 20 20 63 6C -------+".. cl
0100E0: 65 61 72 20 67 65 74 0D 0A 20 20 20 73 65 74 20 ear get.. set
0100F0: 69 6E 74 65 6E 73 69 74 79 20 6F 66 66 0D 0A 20 intensity off..
010100: 63 74 0D 0A 20 20 20 20 20 20 20 20 20 65 6E 64 ct.. end
010110: 69 66 0D 0A 20 20 20 20 20 20 65 6E 64 69 66 0D if.. endif.
010120: 0A 20 20 20 65 6E 64 69 66 0D 0A 20 20 20 40 20 . endif.. @
010130: 32 30 2C 30 0D 0A 20 20 20 40 20 32 31 2C 30 0D 20,0.. @ 21,0.
010140: 0A 65 6E 64 64 6F 0D 0A 69 66 20 75 6E 69 74 3D .enddo..if unit=
010150: 22 41 3A 22 2E 6F 72 2E 75 6E 69 74 3D 22 4D 3A "A:".or.unit="M:
010160: 22 0D 0A 20 20 20 73 74 6F 72 65 20 75 6E 69 74 ".. store unit
010170: 2D 6E 6F 6D 66 69 63 68 20 74 6F 20 6E 6F 6D 31 -nomfich to nom1
010180: 0D 0A 20 20 20 73 74 6F 72 65 20 22 42 3A 22 2D .. store "B:"-
010190: 6E 6F 6D 66 69 63 68 20 74 6F 20 6E 6F 6D 32 0D nomfich to nom2.
0101A0: 0A 20 20 20 75 73 65 20 26 6E 6F 6D 31 20 69 6E . use &nom1 in
0101B0: 64 65 78 20 26 6C 69 73 74 69 6E 64 0D 0A 20 20 dex &listind..
0101C0: 20 61 70 70 65 6E 64 20 66 72 6F 6D 20 26 6E 6F append from &no
0101D0: 6D 32 0D 0A 20 20 20 75 73 65 0D 0A 65 6C 73 65 m2.. use..else
0101E0: 0D 0A 73 74 6F 72 65 20 73 74 72 28 69 6E 74 28 ..store str(int(
0101F0: 31 30 37 30 30 30 2F 6C 6F 6E 67 65 6E 67 29 2C 107000/longeng),
010200: 36 29 20 74 6F 20 6E 62 0D 0A 73 74 6F 72 65 20 6) to nb..store
010210: 22 27 42 3A 22 2D 6E 6F 6D 66 69 63 68 2D 22 2E "'B:"-nomfich-".
010220: 65 78 31 27 22 20 74 6F 20 6E 6F 6D 63 6F 6D 70 ex1'" to nomcomp
010230: 31 0D 0A 73 74 6F 72 65 20 22 27 42 3A 22 2D 6E 1..store "'B:"-n
010240: 6F 6D 66 69 63 68 2D 22 2E 65 78 32 27 22 20 74 omfich-".ex2'" t
010250: 6F 20 6E 6F 6D 63 6F 6D 70 32 0D 0A 73 74 6F 72 o nomcomp2..stor
010260: 65 20 22 42 3A 22 2D 6E 6F 6D 66 69 63 68 20 74 e "B:"-nomfich t
010270: 6F 20 6E 6F 6D 66 69 63 68 0D 0A 73 74 6F 72 65 o nomfich..store
010280: 20 6E 6F 6D 66 69 63 68 2D 27 2E 65 78 31 27 20 nomfich-'.ex1'
010290: 74 6F 20 6E 6F 6D 31 0D 0A 73 74 6F 72 65 20 6E to nom1..store n
0102A0: 6F 6D 66 69 63 68 2D 27 2E 65 78 32 27 20 74 6F omfich-'.ex2' to
0102B0: 20 6E 6F 6D 32 0D 0A 69 66 20 66 69 6C 65 28 26 nom2..if file(&
0102C0: 6E 6F 6D 63 6F 6D 70 31 29 0D 0A 20 20 20 64 65 nomcomp1).. de
0102D0: 6C 65 20 66 69 6C 65 20 26 6E 6F 6D 31 0D 0A 65 le file &nom1..e
0102E0: 6E 64 69 66 0D 0A 3F 20 27 69 6E 73 65 72 65 7A ndif..? 'inserez
0102F0: 20 64 69 73 71 75 65 74 74 65 20 73 61 75 76 65 disquette sauve
010300: 20 20 40 20 31 38 2C 35 32 20 67 65 74 20 63 68 @ 18,52 get ch
010310: 6F 69 78 0D 0A 20 20 20 73 65 74 20 69 6E 74 65 oix.. set inte
010320: 6E 73 69 74 79 20 6F 6E 0D 0A 20 20 20 72 65 61 nsity on.. rea
010330: 64 0D 0A 20 20 20 73 74 6F 72 65 20 21 28 63 68 d.. store !(ch
010340: 6F 69 78 29 20 74 6F 20 63 68 6F 69 78 0D 0A 20 oix) to choix..
010350: 20 20 65 6E 64 69 66 0D 0A 20 20 20 64 6F 20 63 endif.. do c
010360: 61 73 65 0D 0A 20 20 20 63 61 73 65 20 63 68 6F ase.. case cho
010370: 69 78 20 3D 20 27 31 27 0D 0A 20 20 20 69 66 20 ix = '1'.. if
010380: 65 78 69 73 74 3D 27 74 27 0D 0A 20 20 20 20 20 exist='t'..
010390: 20 73 74 6F 72 65 20 32 30 20 74 6F 20 6E 6F 6D store 20 to nom
0103A0: 65 73 73 0D 0A 20 20 20 20 20 20 64 6F 20 61 66 ess.. do af
0103B0: 66 6D 65 73 73 0D 0A 20 20 20 65 6C 73 65 0D 0A fmess.. else..
0103C0: 20 20 20 20 20 20 69 66 20 66 69 6C 65 28 6E 6F if file(no
0103D0: 6D 66 69 63 68 29 0D 0A 20 20 20 20 20 20 20 20 mfich)..
0103E0: 20 40 20 6C 69 67 6D 31 2C 30 20 73 61 79 20 27 @ ligm1,0 say '
0103F0: 61 74 74 65 6E 74 69 6F 6E 2C 20 64 65 6A 61 20 attention, deja
010400: 75 6E 20 66 69 63 68 69 65 72 20 73 6F 75 73 20 un fichier sous
010410: 63 65 20 6E 6F 6D 20 73 75 72 20 6C 61 20 27 3B ce nom sur la ';
010420: 0D 0A 20 20 20 20 20 20 20 20 20 2B 27 64 69 73 .. +'dis
010430: 71 75 65 74 74 65 2C 20 69 6C 20 76 61 20 65 74 quette, il va et
010440: 72 65 20 65 63 72 61 73 65 27 0D 0A 20 20 20 20 re ecrase'..
010450: 20 20 20 20 20 40 20 6C 69 67 6D 31 2B 31 2C 30 @ ligm1+1,0
010460: 20 73 61 79 20 27 76 6F 75 6C 65 7A 2D 76 6F 75 say 'voulez-vou
010470: 73 20 63 6F 6E 74 69 6E 75 65 72 20 6C 61 20 67 s continuer la g
010480: 65 6E 65 72 61 74 69 6F 6E 27 0D 0A 20 20 20 20 eneration'..
010490: 20 20 20 20 20 73 74 6F 72 65 20 27 4E 27 20 74 store 'N' t
0104A0: 6F 20 72 65 70 0D 0A 20 20 20 20 20 20 20 20 20 o rep..
0104B0: 73 65 74 20 69 6E 74 65 6E 73 69 74 79 20 6F 66 set intensity of
0104C0: 66 0D 0A 20 20 20 20 20 20 20 20 20 40 20 6C 69 f.. @ li
0104D0: 67 6D 31 2B 31 2C 33 38 20 67 65 74 20 72 65 70 gm1+1,38 get rep
0104E0: 0D 0A 20 20 20 20 20 20 20 20 20 73 65 74 20 69 .. set i
0104F0: 6E 74 65 6E 73 69 74 79 20 6F 6E 0D 0A 20 20 20 ntensity on..
010500: 67 61 72 64 65 20 64 61 6E 73 20 42 3A 20 70 75 garde dans B: pu
010510: 69 73 20 61 70 70 75 79 65 7A 20 73 75 72 20 75 is appuyez sur u
010520: 6E 65 20 74 6F 75 63 68 65 27 0D 0A 77 61 69 74 ne touche'..wait
010530: 0D 0A 72 65 73 65 74 0D 0A 69 66 20 2E 6E 6F 74 ..reset..if .not
010540: 2E 66 69 6C 65 28 26 6E 6F 6D 63 6F 6D 70 32 29 .file(&nomcomp2)
010550: 0D 0A 20 20 20 72 65 6E 61 6D 65 20 26 6E 6F 6D .. rename &nom
010560: 66 69 63 68 20 74 6F 20 26 6E 6F 6D 32 0D 0A 65 fich to &nom2..e
010570: 6E 64 69 66 0D 0A 75 73 65 20 26 6E 6F 6D 32 0D ndif..use &nom2.
010580: 0A 69 66 20 65 6F 66 0D 0A 72 65 74 75 72 6E 0D .if eof..return.
010590: 0A 65 6E 64 69 66 0D 0A 73 74 6F 72 65 20 31 20 .endif..store 1
0105A0: 74 6F 20 63 70 74 0D 0A 64 6F 20 77 68 69 6C 65 to cpt..do while
0105B0: 20 63 70 74 20 23 20 30 0D 0A 67 6F 74 6F 20 63 cpt # 0..goto c
0105C0: 70 74 0D 0A 63 6F 70 79 20 74 6F 20 74 65 6D 70 pt..copy to temp
0105D0: 20 6E 65 78 74 20 26 6E 62 0D 0A 73 6B 69 70 0D next &nb..skip.
0105E0: 0A 69 66 20 65 6F 66 0D 0A 20 20 20 73 74 6F 72 .if eof.. stor
0105F0: 65 20 30 20 74 6F 20 63 70 74 0D 0A 65 6C 73 65 e 0 to cpt..else
010600: 0D 0A 20 20 20 73 74 6F 72 65 20 63 70 74 2B 76 .. store cpt+v
010610: 61 6C 28 6E 62 29 20 74 6F 20 63 70 74 0D 0A 65 al(nb) to cpt..e
010620: 6E 64 69 66 0D 0A 75 73 65 0D 0A 72 65 6E 61 6D ndif..use..renam
010630: 65 20 26 6E 6F 6D 32 20 74 6F 20 26 6E 6F 6D 66 e &nom2 to &nomf
010640: 69 63 68 0D 0A 3F 20 27 69 6E 73 65 72 65 7A 20 ich..? 'inserez
010650: 64 69 73 71 75 65 74 74 65 20 64 6F 6E 6E 65 65 disquette donnee
010660: 73 20 64 61 6E 73 20 42 3A 20 70 75 69 73 20 61 s dans B: puis a
010670: 70 70 75 79 65 7A 20 73 75 72 20 75 6E 65 20 74 ppuyez sur une t
010680: 6F 75 63 68 65 27 0D 0A 77 61 69 74 0D 0A 72 65 ouche'..wait..re
010690: 73 65 74 0D 0A 69 66 20 2E 6E 6F 74 2E 66 69 6C set..if .not.fil
0106A0: 65 28 26 6E 6F 6D 63 6F 6D 70 31 29 0D 0A 20 20 e(&nomcomp1)..
0106B0: 20 72 65 6E 61 6D 65 20 26 6E 6F 6D 66 69 63 68 rename &nomfich
0106C0: 20 74 6F 20 26 6E 6F 6D 31 0D 0A 65 6E 64 69 66 to &nom1..endif
0106D0: 0D 0A 75 73 65 20 26 6E 6F 6D 31 0D 0A 61 70 70 ..use &nom1..app
0106E0: 65 6E 64 20 66 72 6F 6D 20 74 65 6D 70 0D 0A 75 end from temp..u
0106F0: 73 65 0D 0A 72 65 6E 61 6D 65 20 26 6E 6F 6D 31 se..rename &nom1
010700: 20 20 20 20 20 20 72 65 61 64 0D 0A 20 20 20 20 read..
010710: 20 20 20 20 20 63 6C 65 61 72 20 67 65 74 0D 0A clear get..
010720: 20 20 20 20 20 20 65 6C 73 65 0D 0A 20 20 20 20 else..
010730: 20 20 20 20 20 73 74 6F 72 65 20 27 4F 27 20 74 store 'O' t
010740: 6F 20 72 65 70 0D 0A 20 20 20 20 20 20 65 6E 64 o rep.. end
010750: 69 66 0D 0A 20 20 20 20 20 20 69 66 20 21 28 72 if.. if !(r
010760: 65 70 29 3D 27 4F 27 0D 0A 20 20 20 20 20 20 20 ep)='O'..
010770: 20 20 72 65 6C 65 61 73 65 20 72 65 70 2C 74 65 release rep,te
010780: 73 74 2C 65 78 69 73 74 2C 6E 6F 65 72 72 2C 72 st,exist,noerr,r
010790: 65 70 72 69 73 65 0D 0A 20 20 20 20 20 20 20 20 eprise..
0107A0: 20 64 6F 20 67 65 6E 65 0D 0A 20 20 20 20 20 20 do gene..
0107B0: 20 20 20 73 74 6F 72 65 20 27 74 27 20 74 6F 20 store 't' to
0107C0: 65 78 69 73 74 0D 0A 20 20 20 20 20 20 20 20 20 exist..
0107D0: 73 74 6F 72 65 20 30 20 74 6F 20 6E 6F 65 72 72 store 0 to noerr
0107E0: 0D 0A 20 20 20 20 20 20 65 6C 73 65 0D 0A 20 20 .. else..
0107F0: 20 20 20 20 20 20 20 72 65 6C 65 61 73 65 20 72 release r
010800: 65 70 0D 0A 20 20 20 20 20 20 65 6E 64 69 66 0D ep.. endif.
010810: 0A 20 20 20 65 6E 64 69 66 0D 0A 20 20 20 63 61 . endif.. ca
010820: 73 65 20 63 68 6F 69 78 3E 3D 27 32 27 2E 61 6E se choix>='2'.an
010830: 64 2E 63 68 6F 69 78 3C 3D 27 38 27 2E 6F 72 2E d.choix<='8'.or.
010840: 63 68 6F 69 78 3D 27 43 27 0D 0A 20 20 20 69 66 choix='C'.. if
010850: 20 72 65 70 72 69 73 65 3D 27 66 27 2E 61 6E 64 reprise='f'.and
010860: 2E 65 78 69 73 74 3D 27 66 27 0D 0A 20 20 20 20 .exist='f'..
010870: 20 20 73 74 6F 72 65 20 34 39 20 74 6F 20 6E 6F store 49 to no
010880: 6D 65 73 73 0D 0A 20 20 20 20 20 20 64 6F 20 61 mess.. do a
010890: 66 66 6D 65 73 73 0D 0A 20 20 20 65 6C 73 65 0D ffmess.. else.
0108A0: 0A 20 20 20 20 20 20 69 66 20 72 65 70 72 69 73 . if repris
0108B0: 65 3D 27 66 27 2E 61 6E 64 2E 6E 6F 65 72 72 20 e='f'.and.noerr
0108C0: 23 20 30 2E 61 6E 64 2E 63 68 6F 69 78 23 27 32 # 0.and.choix#'2
0108D0: 27 2E 61 6E 64 2E 63 68 6F 69 78 23 27 33 27 0D '.and.choix#'3'.
0108E0: 0A 20 20 20 20 20 20 20 20 20 73 74 6F 72 65 20 . store
0108F0: 6E 6F 65 72 72 20 74 6F 20 6E 6F 6D 65 73 73 0D noerr to nomess.
010900: 20 74 6F 20 26 6E 6F 6D 66 69 63 68 0D 0A 69 66 to &nomfich..if
010910: 20 63 70 74 23 30 0D 0A 3F 20 27 69 6E 73 65 72 cpt#0..? 'inser
010920: 65 7A 20 64 69 73 71 75 65 74 74 65 20 73 61 75 ez disquette sau
010930: 76 65 67 61 72 64 65 20 64 61 6E 73 20 42 3A 20 vegarde dans B:
010940: 70 75 69 73 20 61 70 70 75 79 65 7A 20 73 75 72 puis appuyez sur
010950: 20 75 6E 65 20 74 6F 75 63 68 65 27 0D 0A 77 61 une touche'..wa
010960: 69 74 0D 0A 72 65 73 65 74 0D 0A 69 66 20 2E 6E it..reset..if .n
010970: 6F 74 2E 66 69 6C 65 28 26 6E 6F 6D 63 6F 6D 70 ot.file(&nomcomp
010980: 32 29 0D 0A 20 20 20 72 65 6E 61 6D 65 20 26 6E 2).. rename &n
010990: 6F 6D 66 69 63 68 20 74 6F 20 26 6E 6F 6D 32 0D omfich to &nom2.
0109A0: 0A 65 6E 64 69 66 0D 0A 75 73 65 20 26 6E 6F 6D .endif..use &nom
0109B0: 32 0D 0A 65 6E 64 69 66 0D 0A 65 6E 64 64 6F 0D 2..endif..enddo.
0109C0: 0A 75 73 65 20 26 6E 6F 6D 66 69 63 68 20 69 6E .use &nomfich in
0109D0: 64 65 78 20 26 6C 69 73 74 69 6E 64 0D 0A 72 65 dex &listind..re
0109E0: 69 6E 64 65 78 0D 0A 64 65 6C 65 20 66 69 6C 65 index..dele file
0109F0: 20 61 3A 74 65 6D 70 0D 0A 65 6E 64 69 66 0D 0A a:temp..endif..
010A00: 63 6C 65 61 72 0D 0A 71 75 69 74 0D 0A 0D 0A 0D clear..quit.....
010A10: 0A 0D 0A 1A 1A 2D 6E 6F 6D 66 69 63 68 2D 22 2E .....-nomfich-".
010A20: 65 78 31 27 22 20 74 6F 20 6E 6F 6D 63 6F 6D 70 ex1'" to nomcomp
010A30: 31 0D 0A 73 74 6F 72 65 20 22 27 42 3A 22 2D 6E 1..store "'B:"-n
010A40: 6F 6D 66 69 63 68 2D 22 2E 65 78 32 27 22 20 74 omfich-".ex2'" t
010A50: 6F 20 6E 6F 6D 63 6F 6D 70 32 0D 0A 73 74 6F 72 o nomcomp2..stor
010A60: 65 20 22 42 3A 22 2D 6E 6F 6D 66 69 63 68 20 74 e "B:"-nomfich t
010A70: 6F 20 6E 6F 6D 66 69 63 68 0D 0A 73 74 6F 72 65 o nomfich..store
010A80: 20 6E 6F 6D 66 69 63 68 2D 27 2E 65 78 31 27 20 nomfich-'.ex1'
010A90: 74 6F 20 6E 6F 6D 31 0D 0A 73 74 6F 72 65 20 6E to nom1..store n
010AA0: 6F 6D 66 69 63 68 2D 27 2E 65 78 32 27 20 74 6F omfich-'.ex2' to
010AB0: 20 6E 6F 6D 32 0D 0A 69 66 20 66 69 6C 65 28 26 nom2..if file(&
010AC0: 6E 6F 6D 63 6F 6D 70 31 29 0D 0A 20 20 20 64 65 nomcomp1).. de
010AD0: 6C 65 20 66 69 6C 65 20 26 6E 6F 6D 31 0D 0A 65 le file &nom1..e
010AE0: 6E 64 69 66 0D 0A 3F 20 27 69 6E 73 65 72 65 7A ndif..? 'inserez
010AF0: 20 64 69 73 71 75 65 74 74 65 20 73 61 75 76 65 disquette sauve
010B00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
010B10: 0E 00 01 00 02 09 50 E5 0E 00 41 02 00 00 00 02 ......P...A.....
010B20: 0E 00 46 02 00 00 00 02 0E 00 42 02 00 00 00 02 ..F.......B.....
010B30: 0E 00 47 02 00 00 00 02 0E 00 43 02 00 00 00 02 ..G.......C.....
010B40: 0E 00 48 02 00 00 00 02 0E 00 44 02 00 00 00 02 ..H.......D.....
010B50: 0E 00 49 02 00 00 00 02 0E 00 45 02 00 00 00 02 ..I.......E.....
010B60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
010B70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
010B80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
010B90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
010BA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
010BB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
010BC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
010BD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
010BE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
010BF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
010C00: 0A 20 20 20 20 20 20 20 20 20 64 6F 20 61 66 66 . do aff
010C10: 6D 65 73 73 0D 0A 20 20 20 20 20 20 20 20 20 69 mess.. i
010C20: 66 20 66 69 6C 65 28 66 65 6C 65 29 2E 61 6E 64 f file(fele).and
010C30: 2E 66 69 6C 65 28 78 65 6C 65 29 0D 0A 20 20 20 .file(xele)..
010C40: 20 20 20 20 20 20 73 74 6F 72 65 20 27 43 27 20 store 'C'
010C50: 74 6F 20 65 6C 65 6D 0D 0A 20 20 20 20 20 20 20 to elem..
010C60: 20 20 64 6F 20 6C 69 73 74 65 6C 65 6D 0D 0A 20 do listelem..
010C70: 20 20 20 20 20 20 20 20 72 65 6C 65 61 73 65 20 release
010C80: 65 6C 65 6D 0D 0A 20 20 20 20 20 20 20 20 20 65 elem.. e
010C90: 6E 64 69 66 0D 0A 20 20 20 20 20 20 65 6C 73 65 ndif.. else
010CA0: 0D 0A 20 20 20 20 20 20 20 20 20 64 6F 20 63 61 .. do ca
010CB0: 73 65 0D 0A 20 20 20 20 20 20 20 20 20 63 61 73 se.. cas
010CC0: 65 20 63 68 6F 69 78 3D 27 32 27 0D 0A 20 20 20 e choix='2'..
010CD0: 20 20 20 20 20 20 64 6F 20 6D 6F 64 69 66 69 63 do modific
010CE0: 68 0D 0A 20 20 20 20 20 20 20 20 20 63 61 73 65 h.. case
010CF0: 20 63 68 6F 69 78 20 3D 20 27 33 27 0D 0A 20 20 choix = '3'..
010D00: 20 20 20 20 20 20 20 73 74 6F 72 65 20 27 66 27 store 'f'
010D10: 20 74 6F 20 6D 6F 64 69 66 0D 0A 20 20 20 20 20 to modif..
010D20: 20 20 20 20 64 6F 20 73 75 70 66 69 63 68 0D 0A do supfich..
010D30: 20 20 20 20 20 20 20 20 20 72 65 74 75 72 6E 0D return.
010D40: 0A 20 20 20 20 20 20 20 20 20 63 61 73 65 20 63 . case c
010D50: 68 6F 69 78 3D 27 43 27 0D 0A 20 20 20 20 20 20 hoix='C'..
010D60: 20 20 20 73 74 6F 72 65 20 27 66 27 20 74 6F 20 store 'f' to
010D70: 63 6F 72 72 65 63 74 0D 0A 20 20 20 20 20 20 20 correct..
010D80: 20 20 73 65 6C 65 63 74 20 70 72 69 6D 61 72 79 select primary
010D90: 0D 0A 20 20 20 20 20 20 20 20 20 75 73 65 20 26 .. use &
010DA0: 66 72 65 66 20 69 6E 64 65 78 20 26 78 6E 6F 6D fref index &xnom
010DB0: 0D 0A 20 20 20 20 20 20 20 20 20 65 72 61 73 65 .. erase
010DC0: 0D 0A 20 20 20 20 20 20 20 20 20 40 20 31 2C 32 .. @ 1,2
010DD0: 36 20 73 61 79 20 22 43 48 41 4E 47 45 4D 45 4E 6 say "CHANGEMEN
010DE0: 54 20 44 27 55 4E 45 20 4F 50 54 49 4F 4E 20 44 T D'UNE OPTION D
010DF0: 45 20 56 45 52 49 46 49 43 41 54 49 4F 4E 22 0D E VERIFICATION".
010E00: 66 3D 24 28 6E 6F 6D 66 69 63 68 2C 33 2C 38 29 f=$(nomfich,3,8)
010E10: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 72 65 .. re
010E20: 70 6C 61 63 65 20 75 74 69 6C 69 73 65 20 77 69 place utilise wi
010E30: 74 68 20 27 20 27 0D 0A 20 20 20 20 20 20 20 20 th ' '..
010E40: 20 20 20 20 63 61 73 65 20 63 68 6F 69 78 3D 27 case choix='
010E50: 37 27 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 7'..
010E60: 64 6F 20 73 75 70 65 6C 65 6D 0D 0A 20 20 20 20 do supelem..
010E70: 20 20 20 20 20 20 20 20 63 61 73 65 20 63 68 6F case cho
010E80: 69 78 3D 27 38 27 0D 0A 20 20 20 20 20 20 20 20 ix='8'..
010E90: 20 20 20 20 64 6F 20 6C 69 73 74 65 6C 65 6D 0D do listelem.
010EA0: 0A 20 20 20 20 20 20 20 20 20 65 6E 64 63 61 73 . endcas
010EB0: 65 0D 0A 20 20 20 20 20 20 20 20 20 72 65 6C 65 e.. rele
010EC0: 61 73 65 20 65 6C 65 6D 0D 0A 20 20 20 20 20 20 ase elem..
010ED0: 20 20 20 65 6E 64 63 61 73 65 0D 0A 20 20 20 20 endcase..
010EE0: 20 20 65 6E 64 69 66 0D 0A 20 20 20 65 6E 64 69 endif.. endi
010EF0: 66 0D 0A 20 20 20 63 61 73 65 20 21 28 63 68 6F f.. case !(cho
010F00: 69 78 29 20 3D 20 27 46 27 0D 0A 20 20 20 72 65 ix) = 'F'.. re
010F10: 74 75 72 6E 0D 0A 20 20 20 6F 74 68 65 72 77 69 turn.. otherwi
010F20: 73 65 0D 0A 20 20 20 2A 20 61 66 66 69 63 68 65 se.. * affiche
010F30: 72 20 75 6E 20 6D 65 73 73 61 67 65 20 64 27 65 r un message d'e
010F40: 72 72 65 75 72 0D 0A 20 20 20 73 74 6F 72 65 20 rreur.. store
010F50: 31 20 74 6F 20 6E 6F 6D 65 73 73 0D 0A 20 20 20 1 to nomess..
010F60: 64 6F 20 61 66 66 6D 65 73 73 0D 0A 20 20 20 65 do affmess.. e
010F70: 6E 64 63 61 73 65 0D 0A 20 20 20 73 65 6C 65 63 ndcase.. selec
010F80: 74 20 70 72 69 6D 61 72 79 0D 0A 20 20 20 75 73 t primary.. us
010F90: 65 0D 0A 20 20 20 73 65 6C 65 63 74 20 73 65 63 e.. select sec
010FA0: 6F 6E 64 61 72 79 0D 0A 20 20 20 75 73 65 0D 0A ondary.. use..
010FB0: 20 20 20 73 65 6C 65 63 74 20 70 72 69 6D 61 72 select primar
010FC0: 79 0D 0A 20 20 20 73 74 6F 72 65 20 27 46 27 20 y.. store 'F'
010FD0: 74 6F 20 63 68 6F 69 78 0D 0A 20 20 20 73 74 6F to choix.. sto
010FE0: 72 65 20 27 66 27 20 74 6F 20 72 65 70 72 69 73 re 'f' to repris
010FF0: 65 0D 0A 20 20 20 73 74 6F 72 65 20 27 74 27 20 e.. store 't'
011000: 0A 20 20 20 20 20 20 20 20 20 40 20 35 2C 35 20 . @ 5,5
011010: 73 61 79 20 27 6E 6F 6D 20 64 65 20 6C 61 20 7A say 'nom de la z
011020: 6F 6E 65 27 0D 0A 20 20 20 20 20 20 20 20 20 64 one'.. d
011030: 6F 20 77 68 69 6C 65 20 63 6F 72 72 65 63 74 3D o while correct=
011040: 27 66 27 0D 0A 20 20 20 20 20 20 20 20 20 20 20 'f'..
011050: 20 40 20 6C 69 67 6D 31 2C 30 20 73 61 79 20 27 @ ligm1,0 say '
011060: 74 61 70 65 7A 20 72 65 74 75 72 6E 20 70 6F 75 tapez return pou
011070: 72 20 61 62 61 6E 64 6F 6E 6E 65 72 27 0D 0A 20 r abandonner'..
011080: 20 20 20 20 20 20 20 20 20 20 20 73 74 6F 72 65 store
011090: 20 22 20 20 20 20 20 20 20 20 20 20 22 20 74 6F " " to
0110A0: 20 6D 7A 6F 6E 0D 0A 20 20 20 20 20 20 20 20 20 mzon..
0110B0: 20 20 20 40 20 35 2C 33 35 20 67 65 74 20 6D 7A @ 5,35 get mz
0110C0: 6F 6E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 on..
0110D0: 72 65 61 64 0D 0A 20 20 20 20 20 20 20 20 20 20 read..
0110E0: 20 20 73 74 6F 72 65 20 21 28 6D 7A 6F 6E 29 20 store !(mzon)
0110F0: 74 6F 20 6D 7A 6F 6E 0D 0A 20 20 20 20 20 20 20 to mzon..
011100: 20 20 20 20 20 69 66 20 6D 7A 6F 6E 20 3D 20 27 if mzon = '
011110: 20 27 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 '..
011120: 20 20 20 73 74 6F 72 65 20 27 74 27 20 74 6F 20 store 't' to
011130: 63 6F 72 72 65 63 74 0D 0A 20 20 20 20 20 20 20 correct..
011140: 20 20 20 20 20 65 6C 73 65 0D 0A 20 20 20 20 20 else..
011150: 20 20 20 20 20 20 20 20 20 20 66 69 6E 64 20 26 find &
011160: 6D 7A 6F 6E 0D 0A 20 20 20 20 20 20 20 20 20 20 mzon..
011170: 20 20 20 20 20 69 66 20 23 20 3D 20 30 0D 0A 20 if # = 0..
011180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
011190: 20 73 74 6F 72 65 20 6D 7A 6F 6E 20 74 6F 20 6E store mzon to n
0111A0: 6F 6D 7A 0D 0A 20 20 20 20 20 20 20 20 20 20 20 omz..
0111B0: 20 20 20 20 20 20 20 73 74 6F 72 65 20 32 37 20 store 27
0111C0: 74 6F 20 6E 6F 6D 65 73 73 0D 0A 20 20 20 20 20 to nomess..
0111D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 64 6F 20 do
0111E0: 61 66 66 6D 65 73 73 0D 0A 20 20 20 20 20 20 20 affmess..
0111F0: 20 20 20 20 20 20 20 20 20 20 20 72 65 6C 65 61 relea
011200: 2A 20 64 65 6D 66 69 63 68 20 3A 20 64 65 6D 61 * demfich : dema
011210: 6E 64 65 20 73 75 72 20 71 75 65 6C 20 66 69 63 nde sur quel fic
011220: 68 69 65 72 20 6F 6E 20 76 65 75 74 20 74 72 61 hier on veut tra
011230: 76 61 69 6C 6C 65 72 0D 0A 0D 0A 73 74 6F 72 65 vailler....store
011240: 20 27 66 27 20 74 6F 20 65 78 69 73 74 0D 0A 73 'f' to exist..s
011250: 74 6F 72 65 20 30 20 74 6F 20 6E 6F 65 72 72 0D tore 0 to noerr.
011260: 0A 73 65 6C 65 63 74 20 70 72 69 6D 61 72 79 0D .select primary.
011270: 0A 75 73 65 20 67 65 73 74 66 69 63 68 0D 0A 67 .use gestfich..g
011280: 6F 74 6F 20 74 6F 70 0D 0A 73 74 6F 72 65 20 27 oto top..store '
011290: 20 20 20 20 20 20 20 20 27 20 74 6F 20 6E 6F 6D ' to nom
0112A0: 66 69 63 68 0D 0A 65 72 61 73 65 0D 0A 40 20 35 fich..erase..@ 5
0112B0: 2C 35 20 73 61 79 20 27 6E 6F 6D 20 64 75 20 66 ,5 say 'nom du f
0112C0: 69 63 68 69 65 72 20 73 75 72 20 6C 65 71 75 65 ichier sur leque
0112D0: 6C 20 76 6F 75 73 20 76 6F 75 6C 65 7A 20 74 72 l vous voulez tr
0112E0: 61 76 61 69 6C 6C 65 72 27 0D 0A 40 20 35 2C 36 availler'..@ 5,6
0112F0: 35 20 67 65 74 20 6E 6F 6D 66 69 63 68 20 70 69 5 get nomfich pi
011300: 63 74 75 72 65 20 27 41 41 41 41 41 41 41 41 27 cture 'AAAAAAAA'
011310: 0D 0A 40 20 6C 69 67 6D 31 2C 30 20 73 61 79 20 ..@ ligm1,0 say
011320: 27 74 61 70 65 7A 20 72 65 74 75 72 6E 20 70 6F 'tapez return po
011330: 75 72 20 61 62 61 6E 64 6F 6E 6E 65 72 27 0D 0A ur abandonner'..
011340: 72 65 61 64 0D 0A 2A 20 76 65 75 74 2D 6F 6E 20 read..* veut-on
011350: 72 65 76 65 6E 69 72 20 61 75 20 6D 65 6E 75 20 revenir au menu
011360: 70 72 69 6E 63 69 70 61 6C 0D 0A 69 66 20 6E 6F principal..if no
011370: 6D 66 69 63 68 3D 27 20 27 0D 0A 20 20 20 72 65 mfich=' '.. re
011380: 74 75 72 6E 0D 0A 65 6E 64 69 66 0D 0A 73 74 6F turn..endif..sto
011390: 72 65 20 21 28 6E 6F 6D 66 69 63 68 29 20 74 6F re !(nomfich) to
0113A0: 20 6E 6F 6D 66 69 63 68 0D 0A 73 74 6F 72 65 20 nomfich..store
0113B0: 6E 6F 6D 66 69 63 68 20 74 6F 20 6E 6F 6D 61 66 nomfich to nomaf
0113C0: 66 0D 0A 6C 6F 63 61 74 65 20 66 6F 72 20 6E 6F f..locate for no
0113D0: 6D 66 3D 6E 6F 6D 66 69 63 68 0D 0A 69 66 20 6E mf=nomfich..if n
0113E0: 6F 6D 66 20 23 20 6E 6F 6D 66 69 63 68 20 2E 6F omf # nomfich .o
0113F0: 72 2E 65 6F 66 0D 0A 20 20 20 73 74 6F 72 65 20 r.eof.. store
011400: 73 65 20 6E 6F 6D 7A 0D 0A 20 20 20 20 20 20 20 se nomz..
011410: 20 20 20 20 20 20 20 20 65 6C 73 65 0D 0A 20 20 else..
011420: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
011430: 73 74 6F 72 65 20 27 74 27 20 74 6F 20 63 6F 72 store 't' to cor
011440: 72 65 63 74 0D 0A 20 20 20 20 20 20 20 20 20 20 rect..
011450: 20 20 20 20 20 65 6E 64 69 66 0D 0A 20 20 20 20 endif..
011460: 20 20 20 20 20 20 20 20 65 6E 64 69 66 0D 0A 20 endif..
011470: 20 20 20 20 20 20 20 20 65 6E 64 64 6F 0D 0A 20 enddo..
011480: 20 20 20 20 20 20 20 20 72 65 6C 65 61 73 65 20 release
011490: 63 6F 72 72 65 63 74 0D 0A 20 20 20 20 20 20 20 correct..
0114A0: 20 20 69 66 20 6D 7A 6F 6E 20 23 20 27 20 27 0D if mzon # ' '.
0114B0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 73 74 6F . sto
0114C0: 72 65 20 23 20 74 6F 20 6E 6F 63 6F 75 72 0D 0A re # to nocour..
0114D0: 20 20 20 20 20 20 20 20 20 20 20 20 73 74 6F 72 stor
0114E0: 65 20 66 69 65 6C 64 3A 74 79 70 65 20 74 6F 20 e field:type to
0114F0: 6D 74 79 70 65 0D 0A 20 20 20 20 20 20 20 20 20 mtype..
011500: 20 20 20 73 74 6F 72 65 20 66 69 65 6C 64 3A 6C store field:l
011510: 65 6E 20 74 6F 20 6D 6C 6F 6E 0D 0A 20 20 20 20 en to mlon..
011520: 20 20 20 20 20 20 20 20 73 74 6F 72 65 20 66 69 store fi
011530: 65 6C 64 3A 64 65 63 20 74 6F 20 6D 64 65 63 0D eld:dec to mdec.
011540: 0A 20 20 20 20 20 20 20 20 20 20 20 20 64 6F 20 . do
011550: 76 65 72 7A 6F 6E 65 0D 0A 20 20 20 20 20 20 20 verzone..
011560: 20 20 20 20 20 3F 0D 0A 20 20 20 20 20 20 20 20 ?..
011570: 20 20 20 20 3F 20 22 41 54 54 45 4E 54 49 4F 4E ? "ATTENTION
011580: 20 3A 20 73 69 20 76 6F 75 73 20 61 76 65 7A 20 : si vous avez
011590: 64 65 63 6C 61 72 65 20 63 65 74 74 65 20 7A 6F declare cette zo
0115A0: 6E 65 20 63 6F 6D 6D 65 20 64 61 74 65 20 22 3B ne comme date ";
0115B0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 2B 22 .. +"
0115C0: 61 6C 6F 72 73 20 71 75 27 65 6C 6C 65 20 6E 65 alors qu'elle ne
0115D0: 20 6C 27 65 74 61 69 74 20 70 61 73 20 61 76 61 l'etait pas ava
0115E0: 6E 74 20 20 6F 75 20 76 69 63 65 20 65 74 20 76 nt ou vice et v
0115F0: 65 72 73 61 22 0D 0A 20 20 20 20 20 20 20 20 20 ersa"..
011600: 27 66 27 20 74 6F 20 65 78 69 73 74 0D 0A 20 20 'f' to exist..
011610: 20 73 74 6F 72 65 20 75 6E 69 74 2B 6E 6F 6D 66 store unit+nomf
011620: 69 63 68 20 74 6F 20 6E 6F 6D 66 69 63 68 0D 0A ich to nomfich..
011630: 65 6C 73 65 0D 0A 20 20 20 73 74 6F 72 65 20 27 else.. store '
011640: 74 27 20 74 6F 20 65 78 69 73 74 0D 0A 20 20 20 t' to exist..
011650: 73 74 6F 72 65 20 75 6E 69 74 2B 6E 6F 6D 66 69 store unit+nomfi
011660: 63 68 20 74 6F 20 6E 6F 6D 66 69 63 68 0D 0A 20 ch to nomfich..
011670: 20 20 73 74 6F 72 65 20 74 69 74 72 65 66 20 74 store titref t
011680: 6F 20 74 69 74 72 65 6D 65 6E 75 70 0D 0A 20 20 o titremenup..
011690: 20 73 74 6F 72 65 20 6E 6F 6D 66 69 63 68 2D 27 store nomfich-'
0116A0: 2E 72 65 66 27 20 74 6F 20 66 72 65 66 0D 0A 20 .ref' to fref..
0116B0: 20 20 73 74 6F 72 65 20 6E 6F 6D 66 69 63 68 2D store nomfich-
0116C0: 27 2E 6E 6F 6D 27 20 74 6F 20 78 6E 6F 6D 0D 0A '.nom' to xnom..
0116D0: 20 20 20 73 74 6F 72 65 20 6E 6F 6D 66 69 63 68 store nomfich
0116E0: 2D 27 2E 63 6C 65 27 20 74 6F 20 78 63 6C 65 0D -'.cle' to xcle.
0116F0: 0A 20 20 20 73 74 6F 72 65 20 6E 6F 6D 66 69 63 . store nomfic
011700: 68 2D 27 2E 65 6C 66 27 20 74 6F 20 66 65 6C 65 h-'.elf' to fele
011710: 0D 0A 20 20 20 73 74 6F 72 65 20 6E 6F 6D 66 69 .. store nomfi
011720: 63 68 2D 27 2E 65 6C 69 27 20 74 6F 20 78 65 6C ch-'.eli' to xel
011730: 65 0D 0A 20 20 20 2A 20 76 65 72 69 66 69 65 72 e.. * verifier
011740: 20 71 75 65 20 74 6F 75 73 20 6C 65 73 20 66 69 que tous les fi
011750: 63 68 69 65 72 73 20 73 6F 6E 74 20 6C 61 0D 0A chiers sont la..
011760: 20 20 20 73 74 6F 72 65 20 30 20 74 6F 20 6E 6F store 0 to no
011770: 65 72 72 0D 0A 20 20 20 69 66 20 2E 6E 6F 74 2E err.. if .not.
011780: 66 69 6C 65 28 6E 6F 6D 66 69 63 68 29 0D 0A 20 file(nomfich)..
011790: 20 20 20 20 20 73 74 6F 72 65 20 35 33 20 74 6F store 53 to
0117A0: 20 6E 6F 65 72 72 0D 0A 20 20 20 65 6C 73 65 0D noerr.. else.
0117B0: 0A 20 20 20 20 20 20 69 66 20 2E 6E 6F 74 2E 28 . if .not.(
0117C0: 66 69 6C 65 28 66 72 65 66 29 2E 61 6E 64 2E 66 file(fref).and.f
0117D0: 69 6C 65 28 78 63 6C 65 29 2E 61 6E 64 2E 66 69 ile(xcle).and.fi
0117E0: 6C 65 28 78 6E 6F 6D 29 29 0D 0A 20 20 20 20 20 le(xnom))..
0117F0: 20 20 20 20 73 74 6F 72 65 20 35 31 20 74 6F 20 store 51 to
011800: 20 20 20 3F 20 22 73 69 20 63 65 74 74 65 20 7A ? "si cette z
011810: 6F 6E 65 20 66 61 69 74 20 70 61 72 74 69 65 20 one fait partie
011820: 64 27 75 6E 20 69 6E 64 65 78 2C 20 6E 27 6F 75 d'un index, n'ou
011830: 62 6C 69 65 7A 20 70 61 73 20 64 65 20 22 3B 0D bliez pas de ";.
011840: 0A 20 20 20 20 20 20 20 20 20 20 20 20 2B 22 72 . +"r
011850: 65 64 65 66 69 6E 69 72 20 76 6F 74 72 65 20 69 edefinir votre i
011860: 6E 64 65 78 22 0D 0A 20 20 20 20 20 20 20 20 20 ndex"..
011870: 20 20 20 3F 0D 0A 20 20 20 20 20 20 20 20 20 20 ?..
011880: 20 20 3F 20 27 74 61 70 65 7A 20 73 75 72 20 75 ? 'tapez sur u
011890: 6E 65 20 74 6F 75 63 68 65 20 70 6F 75 72 20 63 ne touche pour c
0118A0: 6F 6E 74 69 6E 75 65 72 27 0D 0A 20 20 20 20 20 ontinuer'..
0118B0: 20 20 20 20 20 20 20 73 65 74 20 63 6F 6E 73 6F set conso
0118C0: 6C 65 20 6F 66 66 0D 0A 20 20 20 20 20 20 20 20 le off..
0118D0: 20 20 20 20 77 61 69 74 0D 0A 20 20 20 20 20 20 wait..
0118E0: 20 20 20 20 20 20 73 65 74 20 63 6F 6E 73 6F 6C set consol
0118F0: 65 20 6F 6E 0D 0A 20 20 20 20 20 20 20 20 20 65 e on.. e
011900: 6E 64 69 66 0D 0A 20 20 20 20 20 20 20 20 20 72 ndif.. r
011910: 65 6C 65 61 73 65 20 6D 7A 6F 6E 2C 63 6F 72 72 elease mzon,corr
011920: 65 63 74 2C 6E 6F 63 6F 75 72 2C 6D 74 79 70 65 ect,nocour,mtype
011930: 2C 6D 6C 6F 6E 2C 6D 64 65 63 0D 0A 20 20 20 20 ,mlon,mdec..
011940: 20 20 20 20 20 63 61 73 65 20 63 68 6F 69 78 20 case choix
011950: 3D 20 27 34 27 0D 0A 20 20 20 20 20 20 20 20 20 = '4'..
011960: 64 6F 20 6C 69 73 74 66 69 63 68 0D 0A 20 20 20 do listfich..
011970: 20 20 20 20 20 20 63 61 73 65 20 63 68 6F 69 78 case choix
011980: 3D 27 35 27 0D 0A 20 20 20 20 20 20 20 20 20 64 ='5'.. d
011990: 6F 20 6D 65 6E 75 73 65 63 0D 0A 20 20 20 20 20 o menusec..
0119A0: 20 20 20 20 63 61 73 65 20 63 68 6F 69 78 3E 3D case choix>=
0119B0: 27 36 27 2E 61 6E 64 2E 63 68 6F 69 78 3C 3D 27 '6'.and.choix<='
0119C0: 38 27 0D 0A 20 20 20 20 20 20 20 20 20 73 74 6F 8'.. sto
0119D0: 72 65 20 27 4C 27 20 74 6F 20 65 6C 65 6D 0D 0A re 'L' to elem..
0119E0: 20 20 20 20 20 20 20 20 20 64 6F 20 63 61 73 65 do case
0119F0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 63 61 .. ca
011A00: 6E 6F 65 72 72 0D 0A 20 20 20 20 20 20 65 6C 73 noerr.. els
011A10: 65 0D 0A 20 20 20 20 20 20 20 20 20 69 66 20 2E e.. if .
011A20: 6E 6F 74 2E 28 66 69 6C 65 28 66 65 6C 65 29 2E not.(file(fele).
011A30: 61 6E 64 2E 66 69 6C 65 28 78 65 6C 65 29 29 0D and.file(xele)).
011A40: 0A 20 20 20 20 20 20 20 20 20 20 20 20 73 74 6F . sto
011A50: 72 65 20 35 32 20 74 6F 20 6E 6F 65 72 72 0D 0A re 52 to noerr..
011A60: 20 20 20 20 20 20 20 20 20 65 6C 73 65 0D 0A 20 else..
011A70: 20 20 20 20 20 20 20 20 20 20 20 75 73 65 20 26 use &
011A80: 66 65 6C 65 20 69 6E 64 65 78 20 26 78 65 6C 65 fele index &xele
011A90: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 67 6F .. go
011AA0: 74 6F 20 74 6F 70 0D 0A 20 20 20 20 20 20 20 20 to top..
011AB0: 20 20 20 20 66 69 6E 64 20 43 0D 0A 20 20 20 20 find C..
011AC0: 20 20 20 20 20 20 20 20 73 74 6F 72 65 20 20 27 store '
011AD0: 20 27 20 74 6F 20 6C 69 73 74 69 6E 64 65 78 0D ' to listindex.
011AE0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 64 6F 20 . do
011AF0: 77 68 69 6C 65 20 2E 6E 6F 74 2E 65 6F 66 2E 61 while .not.eof.a
011B00: 6E 64 2E 6E 6F 65 72 72 3D 30 2E 61 6E 64 2E 74 nd.noerr=0.and.t
011B10: 79 70 65 6C 65 6D 3D 27 43 27 0D 0A 20 20 20 20 ypelem='C'..
011B20: 20 20 20 20 20 20 20 20 20 20 20 64 6F 20 63 61 do ca
011B30: 73 65 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 se..
011B40: 20 20 20 20 20 20 63 61 73 65 20 74 79 70 63 20 case typc
011B50: 23 20 27 20 27 2E 61 6E 64 2E 2E 6E 6F 74 2E 66 # ' '.and..not.f
011B60: 69 6C 65 28 75 6E 69 74 2D 6E 6F 6D 65 6C 65 6D ile(unit-nomelem
011B70: 2D 27 2E 6E 64 78 27 29 0D 0A 20 20 20 20 20 20 -'.ndx')..
011B80: 20 20 20 20 20 20 20 20 20 20 20 20 73 74 6F 72 stor
011B90: 65 20 35 33 20 74 6F 20 6E 6F 65 72 72 0D 0A 20 e 53 to noerr..
011BA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
011BB0: 20 63 61 73 65 20 74 79 70 63 3D 27 50 27 0D 0A case typc='P'..
011BC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
011BD0: 20 20 73 74 6F 72 65 20 75 6E 69 74 2B 6E 6F 6D store unit+nom
011BE0: 65 6C 65 6D 2B 6C 69 73 74 69 6E 64 65 78 20 74 elem+listindex t
011BF0: 6F 20 6C 69 73 74 69 6E 64 65 78 0D 0A 20 20 20 o listindex..
011C00: 73 65 20 63 68 6F 69 78 3D 27 36 27 0D 0A 20 20 se choix='6'..
011C10: 20 20 20 20 20 20 20 20 20 20 2A 20 73 6F 72 74 * sort
011C20: 69 72 20 64 65 20 64 62 61 73 65 20 70 6F 75 72 ir de dbase pour
011C30: 20 72 65 6D 65 74 74 72 65 20 6C 65 20 6E 62 20 remettre le nb
011C40: 64 65 20 66 69 63 68 69 65 72 73 20 6F 75 76 65 de fichiers ouve
011C50: 72 74 73 20 61 20 30 0D 0A 20 20 20 20 20 20 20 rts a 0..
011C60: 20 20 20 20 20 69 66 20 72 65 70 72 69 73 65 3D if reprise=
011C70: 27 66 27 0D 0A 20 20 20 20 20 20 20 20 20 20 20 'f'..
011C80: 20 20 20 20 73 65 6C 65 63 74 20 70 72 69 6D 61 select prima
011C90: 72 79 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 ry..
011CA0: 20 20 20 75 73 65 20 67 65 73 74 66 69 63 68 0D use gestfich.
011CB0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
011CC0: 6C 6F 63 61 74 65 20 66 6F 72 20 6E 6F 6D 66 3D locate for nomf=
011CD0: 24 28 6E 6F 6D 66 69 63 68 2C 33 2C 38 29 0D 0A $(nomfich,3,8)..
011CE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 r
011CF0: 65 70 6C 61 63 65 20 75 74 69 6C 69 73 65 20 77 eplace utilise w
011D00: 69 74 68 20 63 68 6F 69 78 0D 0A 20 20 20 20 20 ith choix..
011D10: 20 20 20 20 20 20 20 20 20 20 63 6C 65 61 72 0D clear.
011D20: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
011D30: 71 75 69 74 20 74 6F 20 27 64 62 61 73 65 20 6D quit to 'dbase m
011D40: 65 6E 75 70 27 0D 0A 20 20 20 20 20 20 20 20 20 enup'..
011D50: 20 20 20 65 6E 64 69 66 0D 0A 20 20 20 20 20 20 endif..
011D60: 20 20 20 20 20 20 73 74 6F 72 65 20 27 20 27 20 store ' '
011D70: 74 6F 20 6D 6F 64 69 66 0D 0A 20 20 20 20 20 20 to modif..
011D80: 20 20 20 20 20 20 64 6F 20 64 65 66 65 6C 65 6D do defelem
011D90: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 72 65 .. re
011DA0: 6C 65 61 73 65 20 6D 6E 6F 6D 65 6C 65 6D 0D 0A lease mnomelem..
011DB0: 20 20 20 20 20 20 20 20 20 20 20 20 73 65 6C 65 sele
011DC0: 63 74 20 70 72 69 6D 61 72 79 0D 0A 20 20 20 20 ct primary..
011DD0: 20 20 20 20 20 20 20 20 75 73 65 20 67 65 73 74 use gest
011DE0: 66 69 63 68 0D 0A 20 20 20 20 20 20 20 20 20 20 fich..
011DF0: 20 20 6C 6F 63 61 74 65 20 66 6F 72 20 6E 6F 6D locate for nom
011E00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
011E10: 0F 00 01 00 02 09 4E E5 0F 00 41 02 00 00 00 02 ......N...A.....
011E20: 0F 00 46 02 00 00 00 02 0F 00 42 02 00 00 00 02 ..F.......B.....
011E30: 0F 00 47 02 00 00 00 02 0F 00 43 02 00 00 00 02 ..G.......C.....
011E40: 0F 00 48 02 00 00 00 02 0F 00 44 02 00 00 00 02 ..H.......D.....
011E50: 0F 00 49 02 00 00 00 02 0F 00 45 02 00 00 00 02 ..I.......E.....
011E60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011E70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011E80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011E90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011EA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011EB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011EC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011ED0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011EE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011EF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011F00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 s
011F10: 74 6F 72 65 20 6E 6F 6D 65 6C 65 6D 20 74 6F 20 tore nomelem to
011F20: 6E 6F 6D 69 6E 64 70 0D 0A 20 20 20 20 20 20 20 nomindp..
011F30: 20 20 20 20 20 20 20 20 20 20 20 73 74 6F 72 65 store
011F40: 20 6E 62 7A 6F 6E 65 73 20 74 6F 20 6E 62 7A 6F nbzones to nbzo
011F50: 6E 70 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 np..
011F60: 20 20 20 20 20 20 63 61 73 65 20 74 79 70 63 3D case typc=
011F70: 27 53 27 0D 0A 20 20 20 20 20 20 20 20 20 20 20 'S'..
011F80: 20 20 20 20 20 20 20 73 74 6F 72 65 20 6C 69 73 store lis
011F90: 74 69 6E 64 65 78 2B 27 2C 27 2B 75 6E 69 74 2B tindex+','+unit+
011FA0: 6E 6F 6D 65 6C 65 6D 20 74 6F 20 6C 69 73 74 69 nomelem to listi
011FB0: 6E 64 65 78 0D 0A 20 20 20 20 20 20 20 20 20 20 ndex..
011FC0: 20 20 20 20 20 65 6E 64 63 61 73 65 0D 0A 20 20 endcase..
011FD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 73 6B 69 ski
011FE0: 70 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 65 p.. e
011FF0: 6E 64 64 6F 0D 0A 20 20 20 20 20 20 20 20 20 65 nddo.. e
012000: 6E 64 69 66 0D 0A 20 20 20 20 20 20 65 6E 64 69 ndif.. endi
012010: 66 0D 0A 20 20 20 65 6E 64 69 66 0D 0A 65 6E 64 f.. endif..end
012020: 69 66 0D 0A 72 65 74 75 72 6E 0D 0A 0D 0A 0D 0A if..return......
012030: 0D 0A 0D 0A 0D 0A 1A 1A 20 27 2B 64 65 62 35 2B ........ '+deb5+
012040: 27 20 61 20 27 2B 66 69 6E 35 0D 0A 20 20 20 20 ' a '+fin5..
012050: 20 20 20 20 20 20 20 20 20 20 20 65 6E 64 69 66 endif
012060: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 65 6E .. en
012070: 64 69 66 0D 0A 20 20 20 20 20 20 20 20 20 65 6E dif.. en
012080: 64 69 66 0D 0A 20 20 20 20 20 20 65 6E 64 69 66 dif.. endif
012090: 0D 0A 20 20 20 20 20 20 3F 20 63 6F 6D 6D 65 6E .. ? commen
0120A0: 74 0D 0A 20 20 20 20 20 20 73 74 6F 72 65 20 63 t.. store c
0120B0: 70 74 2B 31 20 74 6F 20 63 70 74 0D 0A 20 20 20 pt+1 to cpt..
0120C0: 20 20 20 73 74 6F 72 65 20 6C 69 67 2B 34 20 74 store lig+4 t
0120D0: 6F 20 6C 69 67 0D 0A 20 20 20 65 6E 64 69 66 0D o lig.. endif.
0120E0: 0A 20 20 20 73 6B 69 70 0D 0A 65 6E 64 64 6F 0D . skip..enddo.
0120F0: 0A 69 66 20 72 65 70 3D 27 4E 27 0D 0A 20 20 20 .if rep='N'..
012100: 55 45 20 31 39 38 36 27 0D 0A 20 20 20 40 20 32 UE 1986'.. @ 2
012110: 2C 35 20 73 61 79 20 27 56 65 72 73 69 6F 6E 20 ,5 say 'Version
012120: 20 31 2E 31 27 0D 0A 20 20 20 40 20 39 2C 31 39 1.1'.. @ 9,19
012130: 20 73 61 79 20 27 2B 2D 2D 2D 2D 2D 2D 2D 2D 2D say '+---------
012140: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
012150: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
012160: 2D 2D 2D 2B 27 0D 0A 20 20 20 40 20 31 30 2C 31 ---+'.. @ 10,1
012170: 39 20 73 61 79 20 22 20 20 41 50 50 4C 49 43 41 9 say " APPLICA
012180: 54 49 4F 4E 20 47 45 4E 45 52 41 54 45 55 52 20 TION GENERATEUR
012190: 44 45 20 46 49 43 48 49 45 52 20 44 42 41 53 45 DE FICHIER DBASE
0121A0: 20 49 49 20 20 22 0D 0A 20 20 20 40 20 31 31 2C II ".. @ 11,
0121B0: 31 39 20 73 61 79 20 22 2B 2D 2D 2D 2D 2D 2D 2D 19 say "+-------
0121C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0121D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0121E0: 2D 2D 2D 2D 2D 2B 22 0D 0A 20 20 20 40 20 31 35 -----+".. @ 15
0121F0: 2C 32 35 20 73 61 79 20 27 44 6F 6E 6E 65 7A 20 ,25 say 'Donnez
012200: 6C 61 20 64 61 74 65 27 0D 0A 20 20 20 73 74 6F la date'.. sto
012210: 72 65 20 27 66 27 20 74 6F 20 63 6F 72 72 65 63 re 'f' to correc
012220: 74 0D 0A 20 20 20 64 6F 20 77 68 69 6C 65 20 63 t.. do while c
012230: 6F 72 72 65 63 74 3D 27 66 27 0D 0A 20 20 20 20 orrect='f'..
012240: 20 20 73 74 6F 72 65 20 64 61 74 65 28 29 20 74 store date() t
012250: 6F 20 64 61 74 65 0D 0A 20 20 20 20 20 20 40 20 o date.. @
012260: 31 35 2C 34 30 20 67 65 74 20 64 61 74 65 20 70 15,40 get date p
012270: 69 63 74 75 72 65 20 22 39 39 2F 39 39 2F 39 39 icture "99/99/99
012280: 22 0D 0A 20 20 20 20 20 20 72 65 61 64 0D 0A 20 ".. read..
012290: 20 20 20 20 20 63 6C 65 61 72 20 67 65 74 0D 0A clear get..
0122A0: 20 20 20 20 20 20 73 74 6F 72 65 20 30 20 74 6F store 0 to
0122B0: 20 6E 6F 6D 65 73 73 0D 0A 20 20 20 20 20 20 69 nomess.. i
0122C0: 66 20 64 61 74 65 23 22 30 30 2F 30 30 2F 30 30 f date#"00/00/00
0122D0: 22 0D 0A 20 20 20 20 20 20 73 74 6F 72 65 20 76 ".. store v
0122E0: 61 6C 28 24 28 64 61 74 65 2C 31 2C 32 29 29 20 al($(date,1,2))
0122F0: 74 6F 20 6A 0D 0A 20 20 20 20 20 20 73 74 6F 72 to j.. stor
012300: 74 6F 20 74 65 73 74 0D 0A 65 6E 64 64 6F 0D 0A to test..enddo..
012310: 72 65 74 75 72 6E 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A return..........
012320: 0D 0A 0D 0A 1A 1A 6F 6E 0D 0A 20 20 20 72 65 61 ......on.. rea
012330: 64 0D 0A 20 20 20 73 74 6F 72 65 20 21 28 63 68 d.. store !(ch
012340: 6F 69 78 29 20 74 6F 20 63 68 6F 69 78 0D 0A 20 oix) to choix..
012350: 20 20 65 6E 64 69 66 0D 0A 20 20 20 64 6F 20 63 endif.. do c
012360: 61 73 65 0D 0A 20 20 20 63 61 73 65 20 63 68 6F ase.. case cho
012370: 69 78 20 3D 20 27 31 27 0D 0A 20 20 20 69 66 20 ix = '1'.. if
012380: 65 78 69 73 74 3D 27 74 27 0D 0A 20 20 20 20 20 exist='t'..
012390: 20 73 74 6F 72 65 20 32 30 20 74 6F 20 6E 6F 6D store 20 to nom
0123A0: 65 73 73 0D 0A 20 20 20 20 20 20 64 6F 20 61 66 ess.. do af
0123B0: 66 6D 65 73 73 0D 0A 20 20 20 65 6C 73 65 0D 0A fmess.. else..
0123C0: 20 20 20 20 20 20 69 66 20 66 69 6C 65 28 6E 6F if file(no
0123D0: 6D 66 69 63 68 29 0D 0A 20 20 20 20 20 20 20 20 mfich)..
0123E0: 20 40 20 6C 69 67 6D 31 2C 30 20 73 61 79 20 27 @ ligm1,0 say '
0123F0: 61 74 74 65 6E 74 69 6F 6E 2C 20 64 65 6A 61 20 attention, deja
012400: 75 6E 20 66 69 63 68 69 65 72 20 73 6F 75 73 20 un fichier sous
012410: 63 65 20 6E 6F 6D 20 73 75 72 20 6C 61 20 27 3B ce nom sur la ';
012420: 0D 0A 20 20 20 20 20 20 20 20 20 2B 27 64 69 73 .. +'dis
012430: 71 75 65 74 74 65 2C 20 69 6C 20 76 61 20 65 74 quette, il va et
012440: 72 65 20 65 63 72 61 73 65 27 0D 0A 20 20 20 20 re ecrase'..
012450: 20 20 20 20 20 40 20 6C 69 67 6D 31 2B 31 2C 30 @ ligm1+1,0
012460: 20 73 61 79 20 27 76 6F 75 6C 65 7A 2D 76 6F 75 say 'voulez-vou
012470: 73 20 63 6F 6E 74 69 6E 75 65 72 20 6C 61 20 67 s continuer la g
012480: 65 6E 65 72 61 74 69 6F 6E 27 0D 0A 20 20 20 20 eneration'..
012490: 20 20 20 20 20 73 74 6F 72 65 20 27 4E 27 20 74 store 'N' t
0124A0: 6F 20 72 65 70 0D 0A 20 20 20 20 20 20 20 20 20 o rep..
0124B0: 73 65 74 20 69 6E 74 65 6E 73 69 74 79 20 6F 66 set intensity of
0124C0: 66 0D 0A 20 20 20 20 20 20 20 20 20 40 20 6C 69 f.. @ li
0124D0: 67 6D 31 2B 31 2C 33 38 20 67 65 74 20 72 65 70 gm1+1,38 get rep
0124E0: 0D 0A 20 20 20 20 20 20 20 20 20 73 65 74 20 69 .. set i
0124F0: 6E 74 65 6E 73 69 74 79 20 6F 6E 0D 0A 20 20 20 ntensity on..
012500: 65 20 76 61 6C 28 24 28 64 61 74 65 2C 34 2C 32 e val($(date,4,2
012510: 29 29 20 74 6F 20 6D 0D 0A 20 20 20 20 20 20 73 )) to m.. s
012520: 74 6F 72 65 20 76 61 6C 28 24 28 64 61 74 65 2C tore val($(date,
012530: 37 2C 32 29 29 20 74 6F 20 61 6E 0D 0A 20 20 20 7,2)) to an..
012540: 20 20 20 69 66 20 6D 3C 31 2E 6F 72 2E 6D 3E 31 if m<1.or.m>1
012550: 32 2E 6F 72 2E 6A 3C 31 2E 6F 72 2E 6A 3E 33 31 2.or.j<1.or.j>31
012560: 2E 6F 72 2E 28 6D 3D 34 2E 6F 72 2E 6D 3D 36 2E .or.(m=4.or.m=6.
012570: 6F 72 2E 6D 3D 39 2E 6F 72 2E 6D 3D 31 31 29 2E or.m=9.or.m=11).
012580: 61 6E 64 2E 6A 3E 33 30 3B 0D 0A 20 20 20 20 20 and.j>30;..
012590: 20 2E 6F 72 2E 6D 3D 32 2E 61 6E 64 2E 6A 3E 32 .or.m=2.and.j>2
0125A0: 39 2E 6F 72 2E 28 61 6E 2F 34 29 23 69 6E 74 28 9.or.(an/4)#int(
0125B0: 61 6E 2F 34 29 2E 61 6E 64 2E 6D 3D 32 2E 61 6E an/4).and.m=2.an
0125C0: 64 2E 6A 3E 32 38 0D 0A 20 20 20 20 20 20 20 20 d.j>28..
0125D0: 20 73 74 6F 72 65 20 32 20 74 6F 20 6E 6F 6D 65 store 2 to nome
0125E0: 73 73 0D 0A 20 20 20 20 20 20 65 6E 64 69 66 0D ss.. endif.
0125F0: 0A 20 20 20 20 20 20 65 6E 64 69 66 0D 0A 20 20 . endif..
012600: 20 20 20 20 72 65 6C 65 61 73 65 20 6A 2C 6D 2C release j,m,
012610: 61 6E 0D 0A 20 20 20 20 20 20 69 66 20 6E 6F 6D an.. if nom
012620: 65 73 73 20 3D 20 30 0D 0A 20 20 20 20 20 20 20 ess = 0..
012630: 20 20 73 74 6F 72 65 20 27 74 27 20 74 6F 20 63 store 't' to c
012640: 6F 72 72 65 63 74 0D 0A 20 20 20 20 20 20 20 20 orrect..
012650: 20 73 65 74 20 64 61 74 65 20 74 6F 20 26 64 61 set date to &da
012660: 74 65 0D 0A 20 20 20 20 20 20 65 6C 73 65 0D 0A te.. else..
012670: 20 20 20 20 20 20 20 20 20 64 6F 20 61 66 66 6D do affm
012680: 65 73 73 0D 0A 20 20 20 20 20 20 65 6E 64 69 66 ess.. endif
012690: 0D 0A 20 20 20 65 6E 64 64 6F 0D 0A 20 20 20 40 .. enddo.. @
0126A0: 20 31 38 2C 31 31 20 73 61 79 20 22 4D 61 74 65 18,11 say "Mate
0126B0: 72 69 65 6C 20 71 75 65 20 76 6F 75 73 20 75 74 riel que vous ut
0126C0: 69 6C 69 73 65 7A 20 20 28 36 31 32 38 20 6F 75 ilisez (6128 ou
0126D0: 20 38 32 35 36 29 20 20 3D 3D 3D 3D 3E 22 0D 0A 8256) ====>"..
0126E0: 20 20 20 73 74 6F 72 65 20 27 66 27 20 74 6F 20 store 'f' to
0126F0: 63 6F 72 72 65 63 74 0D 0A 20 20 20 64 6F 20 77 correct.. do w
012700: 69 66 0D 0A 73 74 6F 72 65 20 24 28 69 6E 74 69 if..store $(inti
012710: 74 66 2C 31 31 2C 34 29 20 74 6F 20 6D 61 74 0D tf,11,4) to mat.
012720: 0A 6C 6F 63 61 74 65 20 66 6F 72 20 75 74 69 6C .locate for util
012730: 69 73 65 20 23 20 27 20 27 0D 0A 69 66 20 75 74 ise # ' '..if ut
012740: 69 6C 69 73 65 20 23 20 27 20 27 2E 61 6E 64 2E ilise # ' '.and.
012750: 2E 6E 6F 74 2E 65 6F 66 0D 0A 20 20 20 73 74 6F .not.eof.. sto
012760: 72 65 20 75 74 69 6C 69 73 65 20 74 6F 20 63 68 re utilise to ch
012770: 6F 69 78 0D 0A 20 20 20 73 74 6F 72 65 20 27 74 oix.. store 't
012780: 27 20 74 6F 20 72 65 70 72 69 73 65 0D 0A 20 20 ' to reprise..
012790: 20 73 74 6F 72 65 20 27 74 27 20 74 6F 20 65 78 store 't' to ex
0127A0: 69 73 74 0D 0A 20 20 20 73 74 6F 72 65 20 30 20 ist.. store 0
0127B0: 74 6F 20 6E 6F 65 72 72 0D 0A 20 20 20 73 74 6F to noerr.. sto
0127C0: 72 65 20 6E 6F 6D 66 20 74 6F 20 6E 6F 6D 61 66 re nomf to nomaf
0127D0: 66 0D 0A 20 20 20 73 74 6F 72 65 20 75 6E 69 74 f.. store unit
0127E0: 2B 6E 6F 6D 66 20 74 6F 20 6E 6F 6D 66 69 63 68 +nomf to nomfich
0127F0: 0D 0A 20 20 20 73 74 6F 72 65 20 6E 6F 6D 66 69 .. store nomfi
012800: 63 68 2D 27 2E 72 65 66 27 20 74 6F 20 66 72 65 ch-'.ref' to fre
012810: 66 0D 0A 20 20 20 73 74 6F 72 65 20 6E 6F 6D 66 f.. store nomf
012820: 69 63 68 2D 27 2E 6E 6F 6D 27 20 74 6F 20 78 6E ich-'.nom' to xn
012830: 6F 6D 0D 0A 20 20 20 73 74 6F 72 65 20 6E 6F 6D om.. store nom
012840: 66 69 63 68 2D 27 2E 63 6C 65 27 20 74 6F 20 78 fich-'.cle' to x
012850: 63 6C 65 0D 0A 20 20 20 73 74 6F 72 65 20 6E 6F cle.. store no
012860: 6D 66 69 63 68 2D 27 2E 65 6C 66 27 20 74 6F 20 mfich-'.elf' to
012870: 66 65 6C 65 0D 0A 20 20 20 73 74 6F 72 65 20 6E fele.. store n
012880: 6F 6D 66 69 63 68 2D 27 2E 65 6C 69 27 20 74 6F omfich-'.eli' to
012890: 20 78 65 6C 65 0D 0A 65 6C 73 65 0D 0A 20 20 20 xele..else..
0128A0: 73 74 6F 72 65 20 27 66 27 20 74 6F 20 72 65 70 store 'f' to rep
0128B0: 72 69 73 65 0D 0A 20 20 20 73 74 6F 72 65 20 27 rise.. store '
0128C0: 46 27 20 74 6F 20 63 68 6F 69 78 0D 0A 20 20 20 F' to choix..
0128D0: 65 72 61 73 65 0D 0A 20 20 20 40 20 31 2C 35 20 erase.. @ 1,5
0128E0: 73 61 79 20 27 A4 2D 43 6F 70 79 72 69 67 68 74 say '.-Copyright
0128F0: 20 20 4E 56 49 20 49 4E 46 4F 52 4D 41 54 49 51 NVI INFORMATIQ
012900: 68 69 6C 65 20 63 6F 72 72 65 63 74 20 3D 20 27 hile correct = '
012910: 66 27 0D 0A 20 20 20 20 20 20 40 20 31 38 2C 36 f'.. @ 18,6
012920: 32 20 67 65 74 20 6D 61 74 0D 0A 20 20 20 20 20 2 get mat..
012930: 20 72 65 61 64 0D 0A 20 20 20 20 20 20 63 6C 65 read.. cle
012940: 61 72 20 67 65 74 0D 0A 20 20 20 20 20 20 69 66 ar get.. if
012950: 20 6D 61 74 20 23 20 22 36 31 32 38 22 2E 61 6E mat # "6128".an
012960: 64 2E 20 6D 61 74 20 23 20 22 38 32 35 36 22 0D d. mat # "8256".
012970: 0A 20 20 20 20 20 20 20 20 20 73 74 6F 72 65 20 . store
012980: 31 20 74 6F 20 6E 6F 6D 65 73 73 0D 0A 20 20 20 1 to nomess..
012990: 20 20 20 20 20 20 64 6F 20 61 66 66 6D 65 73 73 do affmess
0129A0: 0D 0A 20 20 20 20 20 20 65 6C 73 65 0D 0A 20 20 .. else..
0129B0: 20 20 20 20 20 20 20 73 74 6F 72 65 20 27 74 27 store 't'
0129C0: 20 74 6F 20 63 6F 72 72 65 63 74 0D 0A 20 20 20 to correct..
0129D0: 20 20 20 65 6E 64 69 66 0D 0A 20 20 20 65 6E 64 endif.. end
0129E0: 64 6F 0D 0A 20 20 20 67 6F 74 6F 20 74 6F 70 0D do.. goto top.
0129F0: 0A 20 20 20 72 65 70 6C 61 63 65 20 69 6E 74 69 . replace inti
012A00: 74 66 20 77 69 74 68 20 64 61 74 65 2D 75 6E 69 tf with date-uni
012A10: 74 2D 6D 61 74 0D 0A 20 20 20 69 66 20 6D 61 74 t-mat.. if mat
012A20: 20 3D 20 22 36 31 32 38 22 0D 0A 20 20 20 73 74 = "6128".. st
012A30: 6F 72 65 20 32 30 20 74 6F 20 6C 69 67 6D 31 0D ore 20 to ligm1.
012A40: 0A 20 20 20 65 6C 73 65 0D 0A 20 20 20 73 74 6F . else.. sto
012A50: 72 65 20 32 39 20 74 6F 20 6C 69 67 6D 31 0D 0A re 29 to ligm1..
012A60: 20 20 20 65 6E 64 69 66 0D 0A 65 6E 64 69 66 0D endif..endif.
012A70: 0A 72 65 6C 65 61 73 65 20 64 61 74 65 2C 63 6F .release date,co
012A80: 72 72 65 63 74 2C 6D 61 74 0D 0A 75 73 65 0D 0A rrect,mat..use..
012A90: 73 74 6F 72 65 20 27 74 27 20 74 6F 20 74 65 73 store 't' to tes
012AA0: 74 31 0D 0A 64 6F 20 77 68 69 6C 65 20 74 65 73 t1..do while tes
012AB0: 74 31 3D 27 74 27 0D 0A 20 20 20 69 66 20 72 65 t1='t'.. if re
012AC0: 70 72 69 73 65 3D 27 66 27 0D 0A 20 20 20 73 74 prise='f'.. st
012AD0: 6F 72 65 20 27 46 27 20 74 6F 20 72 65 70 0D 0A ore 'F' to rep..
012AE0: 20 20 20 65 72 61 73 65 0D 0A 20 20 20 40 20 31 erase.. @ 1
012AF0: 2C 32 36 20 53 41 59 20 27 47 45 53 54 49 4F 4E ,26 SAY 'GESTION
012B00: 2A 20 6D 65 6E 75 70 3A 20 6D 65 6E 75 20 69 6E * menup: menu in
012B10: 69 74 69 61 6C 0D 0A 0D 0A 73 65 74 20 74 61 6C itial....set tal
012B20: 6B 20 6F 66 66 0D 0A 73 65 74 20 63 6F 6C 6F 6E k off..set colon
012B30: 20 6F 66 66 0D 0A 73 65 74 20 65 6A 65 63 74 20 off..set eject
012B40: 6F 66 66 0D 0A 63 6C 65 61 72 0D 0A 73 74 6F 72 off..clear..stor
012B50: 65 20 27 20 20 20 20 20 20 20 20 20 20 20 20 20 e '
012B60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
012B70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
012B80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
012B90: 20 20 20 20 20 20 20 20 20 20 3B 0D 0A 20 20 20 ;..
012BA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
012BB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
012BC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
012BD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
012BE0: 20 20 20 20 20 20 20 20 20 20 20 3B 0D 0A 20 20 ;..
012BF0: 20 20 27 20 74 6F 20 62 6C 61 6E 63 0D 0A 73 74 ' to blanc..st
012C00: 6F 72 65 20 24 28 62 6C 61 6E 63 2C 31 2C 31 30 ore $(blanc,1,10
012C10: 31 29 2B 62 6C 61 6E 63 20 74 6F 20 62 6C 61 6E 1)+blanc to blan
012C20: 63 0D 0A 73 74 6F 72 65 20 30 20 74 6F 20 6E 6F c..store 0 to no
012C30: 6D 65 73 73 0D 0A 75 73 65 20 67 65 73 74 66 69 mess..use gestfi
012C40: 63 68 0D 0A 2A 20 72 65 70 72 65 6E 64 72 65 20 ch..* reprendre
012C50: 6C 27 65 74 61 74 20 63 6F 75 72 61 6E 74 0D 0A l'etat courant..
012C60: 67 6F 74 6F 20 74 6F 70 0D 0A 73 74 6F 72 65 20 goto top..store
012C70: 24 28 69 6E 74 69 74 66 2C 31 2C 38 29 20 74 6F $(intitf,1,8) to
012C80: 20 64 61 74 65 0D 0A 73 65 74 20 64 61 74 65 20 date..set date
012C90: 74 6F 20 26 64 61 74 65 0D 0A 73 74 6F 72 65 20 to &date..store
012CA0: 24 28 69 6E 74 69 74 66 2C 39 2C 32 29 20 74 6F $(intitf,9,2) to
012CB0: 20 75 6E 69 74 0D 0A 69 66 20 24 28 69 6E 74 69 unit..if $(inti
012CC0: 74 66 2C 31 31 2C 34 29 3D 22 36 31 32 38 22 0D tf,11,4)="6128".
012CD0: 0A 73 74 6F 72 65 20 32 30 20 74 6F 20 6C 69 67 .store 20 to lig
012CE0: 6D 31 0D 0A 65 6C 73 65 0D 0A 73 74 6F 72 65 20 m1..else..store
012CF0: 32 39 20 74 6F 20 6C 69 67 6D 31 0D 0A 65 6E 64 29 to ligm1..end
012D00: 20 44 45 20 46 49 43 48 49 45 52 27 0D 0A 20 20 DE FICHIER'..
012D10: 20 40 20 33 2C 31 30 20 73 61 79 20 22 4C 27 75 @ 3,10 say "L'u
012D20: 6E 69 74 65 20 70 61 72 20 64 65 66 61 75 74 20 nite par defaut
012D30: 70 6F 75 72 20 76 6F 73 20 64 6F 6E 6E 65 65 73 pour vos donnees
012D40: 20 65 73 74 3A 20 22 0D 0A 20 20 20 40 20 33 2C est: ".. @ 3,
012D50: 35 35 20 67 65 74 20 75 6E 69 74 0D 0A 20 20 20 55 get unit..
012D60: 40 20 35 2C 31 30 20 73 61 79 20 27 71 75 65 6C @ 5,10 say 'quel
012D70: 20 74 72 61 69 74 65 6D 65 6E 74 20 64 65 73 69 traitement desi
012D80: 72 65 7A 2D 76 6F 75 73 20 65 66 66 65 63 74 75 rez-vous effectu
012D90: 65 72 3F 27 0D 0A 20 20 20 40 20 37 2C 31 30 20 er?'.. @ 7,10
012DA0: 73 61 79 20 27 6D 65 6E 75 20 70 61 72 61 6D 65 say 'menu parame
012DB0: 74 72 61 67 65 20 20 20 20 20 20 20 20 20 20 20 trage
012DC0: 20 20 20 20 20 20 20 3D 3D 3D 3D 3E 20 31 27 0D ====> 1'.
012DD0: 0A 20 20 20 40 20 39 2C 31 30 20 73 61 79 20 22 . @ 9,10 say "
012DE0: 6D 65 6E 75 20 75 74 69 6C 69 73 61 74 69 6F 6E menu utilisation
012DF0: 20 63 6F 75 72 61 6E 74 65 20 20 20 20 20 20 20 courante
012E00: 20 20 3D 3D 3D 3D 3E 20 32 22 0D 0A 20 20 20 40 ====> 2".. @
012E10: 20 31 31 2C 31 30 20 73 61 79 20 22 6C 69 73 74 11,10 say "list
012E20: 65 20 64 65 73 20 66 69 63 68 69 65 72 73 20 20 e des fichiers
012E30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3D 3D ==
012E40: 3D 3D 3E 20 33 22 0D 0A 20 20 20 40 20 31 33 2C ==> 3".. @ 13,
012E50: 31 30 20 73 61 79 20 22 63 68 61 6E 67 65 6D 65 10 say "changeme
012E60: 6E 74 20 64 65 20 6C 27 75 6E 69 74 65 20 70 61 nt de l'unite pa
012E70: 72 20 64 65 66 61 75 74 20 20 3D 3D 3D 3D 3E 20 r defaut ====>
012E80: 34 22 0D 0A 20 20 20 40 20 31 35 2C 31 30 20 73 4".. @ 15,10 s
012E90: 61 79 20 22 66 69 6E 20 61 70 70 6C 69 63 61 74 ay "fin applicat
012EA0: 69 6F 6E 20 20 20 20 20 20 20 20 20 20 20 20 20 ion
012EB0: 20 20 20 20 20 20 3D 3D 3D 3D 3E 20 46 22 0D 0A ====> F"..
012EC0: 20 20 20 40 20 31 37 2C 34 35 20 53 41 59 20 22 @ 17,45 SAY "
012ED0: 2B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D +---------------
012EE0: 2D 2D 2D 2D 2D 2D 2D 2B 22 0D 0A 20 20 20 40 20 -------+".. @
012EF0: 31 38 2C 34 35 20 53 41 59 20 22 49 20 52 65 70 18,45 SAY "I Rep
012F00: 69 66 0D 0A 73 74 6F 72 65 20 24 28 69 6E 74 69 if..store $(inti
012F10: 74 66 2C 31 31 2C 34 29 20 74 6F 20 6D 61 74 0D tf,11,4) to mat.
012F20: 0A 6C 6F 63 61 74 65 20 66 6F 72 20 75 74 69 6C .locate for util
012F30: 69 73 65 20 23 20 27 20 27 0D 0A 69 66 20 75 74 ise # ' '..if ut
012F40: 69 6C 69 73 65 20 23 20 27 20 27 2E 61 6E 64 2E ilise # ' '.and.
012F50: 2E 6E 6F 74 2E 65 6F 66 0D 0A 20 20 20 73 74 6F .not.eof.. sto
012F60: 72 65 20 75 74 69 6C 69 73 65 20 74 6F 20 63 68 re utilise to ch
012F70: 6F 69 78 0D 0A 20 20 20 73 74 6F 72 65 20 27 74 oix.. store 't
012F80: 27 20 74 6F 20 72 65 70 72 69 73 65 0D 0A 20 20 ' to reprise..
012F90: 20 73 74 6F 72 65 20 27 74 27 20 74 6F 20 65 78 store 't' to ex
012FA0: 69 73 74 0D 0A 20 20 20 73 74 6F 72 65 20 30 20 ist.. store 0
012FB0: 74 6F 20 6E 6F 65 72 72 0D 0A 20 20 20 73 74 6F to noerr.. sto
012FC0: 72 65 20 6E 6F 6D 66 20 74 6F 20 6E 6F 6D 61 66 re nomf to nomaf
012FD0: 66 0D 0A 20 20 20 73 74 6F 72 65 20 75 6E 69 74 f.. store unit
012FE0: 2B 6E 6F 6D 66 20 74 6F 20 6E 6F 6D 66 69 63 68 +nomf to nomfich
012FF0: 0D 0A 20 20 20 73 74 6F 72 65 20 6E 6F 6D 66 69 .. store nomfi
013000: 63 68 2D 27 2E 72 65 66 27 20 74 6F 20 66 72 65 ch-'.ref' to fre
013010: 66 0D 0A 20 20 20 73 74 6F 72 65 20 6E 6F 6D 66 f.. store nomf
013020: 69 63 68 2D 27 2E 6E 6F 6D 27 20 74 6F 20 78 6E ich-'.nom' to xn
013030: 6F 6D 0D 0A 20 20 20 73 74 6F 72 65 20 6E 6F 6D om.. store nom
013040: 66 69 63 68 2D 27 2E 63 6C 65 27 20 74 6F 20 78 fich-'.cle' to x
013050: 63 6C 65 0D 0A 20 20 20 73 74 6F 72 65 20 6E 6F cle.. store no
013060: 6D 66 69 63 68 2D 27 2E 65 6C 66 27 20 74 6F 20 mfich-'.elf' to
013070: 66 65 6C 65 0D 0A 20 20 20 73 74 6F 72 65 20 6E fele.. store n
013080: 6F 6D 66 69 63 68 2D 27 2E 65 6C 69 27 20 74 6F omfich-'.eli' to
013090: 20 78 65 6C 65 0D 0A 65 6C 73 65 0D 0A 20 20 20 xele..else..
0130A0: 73 74 6F 72 65 20 27 66 27 20 74 6F 20 72 65 70 store 'f' to rep
0130B0: 72 69 73 65 0D 0A 20 20 20 73 74 6F 72 65 20 27 rise.. store '
0130C0: 46 27 20 74 6F 20 63 68 6F 69 78 0D 0A 20 20 20 F' to choix..
0130D0: 65 72 61 73 65 0D 0A 20 20 20 40 20 31 2C 35 20 erase.. @ 1,5
0130E0: 73 61 79 20 27 A4 2D 43 6F 70 79 72 69 67 68 74 say '.-Copyright
0130F0: 20 20 4E 56 49 20 49 4E 46 4F 52 4D 41 54 49 51 NVI INFORMATIQ
013100: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
013110: 10 00 01 00 02 09 4E E5 10 00 41 02 00 00 00 02 ......N...A.....
013120: 10 00 46 02 00 00 00 02 10 00 42 02 00 00 00 02 ..F.......B.....
013130: 10 00 47 02 00 00 00 02 10 00 43 02 00 00 00 02 ..G.......C.....
013140: 10 00 48 02 00 00 00 02 10 00 44 02 00 00 00 02 ..H.......D.....
013150: 10 00 49 02 00 00 00 02 10 00 45 02 00 00 00 02 ..I.......E.....
013160: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
013170: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
013180: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
013190: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0131A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0131B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0131C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0131D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0131E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0131F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
013200: 6F 6E 73 65 20 2D 2D 3E 20 20 20 20 20 20 20 20 onse -->
013210: 20 20 49 22 0D 0A 20 20 20 40 20 31 39 2C 34 35 I".. @ 19,45
013220: 20 53 41 59 20 22 2B 2D 2D 2D 2D 2D 2D 2D 2D 2D SAY "+---------
013230: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2B 22 0D -------------+".
013240: 0A 20 20 20 63 6C 65 61 72 20 67 65 74 0D 0A 20 . clear get..
013250: 20 20 73 65 74 20 69 6E 74 65 6E 73 69 74 79 20 set intensity
013260: 6F 66 66 0D 0A 20 20 20 40 20 31 38 2C 35 39 20 off.. @ 18,59
013270: 67 65 74 20 72 65 70 0D 0A 20 20 20 73 65 74 20 get rep.. set
013280: 69 6E 74 65 6E 73 69 74 79 20 6F 6E 0D 0A 20 20 intensity on..
013290: 20 72 65 61 64 0D 0A 20 20 20 73 74 6F 72 65 20 read.. store
0132A0: 21 28 72 65 70 29 20 74 6F 20 72 65 70 0D 0A 20 !(rep) to rep..
0132B0: 20 20 65 6C 73 65 0D 0A 20 20 20 73 74 6F 72 65 else.. store
0132C0: 20 27 31 27 20 74 6F 20 72 65 70 0D 0A 20 20 20 '1' to rep..
0132D0: 65 6E 64 69 66 0D 0A 20 20 20 64 6F 20 63 61 73 endif.. do cas
0132E0: 65 0D 0A 20 20 20 63 61 73 65 20 72 65 70 20 3D e.. case rep =
0132F0: 20 27 31 27 0D 0A 20 20 20 69 66 20 72 65 70 72 '1'.. if repr
013300: 69 73 65 3D 27 66 27 0D 0A 20 20 20 20 20 20 64 ise='f'.. d
013310: 6F 20 64 65 6D 66 69 63 68 0D 0A 20 20 20 20 20 o demfich..
013320: 20 73 74 6F 72 65 20 27 46 27 20 74 6F 20 63 68 store 'F' to ch
013330: 6F 69 78 0D 0A 20 20 20 65 6E 64 69 66 0D 0A 20 oix.. endif..
013340: 20 20 69 66 20 6E 6F 6D 66 69 63 68 20 23 20 27 if nomfich # '
013350: 20 27 0D 0A 20 20 20 20 20 20 72 65 6C 65 61 73 '.. releas
013360: 65 20 74 65 73 74 31 2C 72 65 70 0D 0A 20 20 20 e test1,rep..
013370: 20 20 20 64 6F 20 6D 65 6E 75 67 65 6E 0D 0A 20 do menugen..
013380: 20 20 65 6E 64 69 66 0D 0A 20 20 20 63 61 73 65 endif.. case
013390: 20 72 65 70 20 3D 20 27 32 27 0D 0A 20 20 20 73 rep = '2'.. s
0133A0: 74 6F 72 65 20 27 66 27 20 74 6F 20 63 6F 72 72 tore 'f' to corr
0133B0: 65 63 74 0D 0A 20 20 20 64 6F 20 77 68 69 6C 65 ect.. do while
0133C0: 20 63 6F 72 72 65 63 74 3D 27 66 27 0D 0A 20 20 correct='f'..
0133D0: 20 20 20 20 64 6F 20 64 65 6D 66 69 63 68 0D 0A do demfich..
0133E0: 20 20 20 20 20 20 69 66 20 6E 6F 6D 66 69 63 68 if nomfich
0133F0: 23 27 20 27 0D 0A 20 20 20 20 20 20 20 20 20 64 #' '.. d
013400: 65 20 75 6E 69 74 2B 6E 6F 6D 65 6C 65 6D 2D 27 e unit+nomelem-'
013410: 2E 6E 64 78 27 20 74 6F 20 6E 6F 6D 7A 0D 0A 20 .ndx' to nomz..
013420: 20 20 20 20 20 20 20 20 3F 20 27 6C 65 20 66 69 ? 'le fi
013430: 63 68 69 65 72 20 27 2B 6E 6F 6D 65 6C 65 6D 2D chier '+nomelem-
013440: 27 2E 6E 64 78 20 76 61 20 65 74 72 65 20 73 75 '.ndx va etre su
013450: 70 70 72 69 6D 65 20 73 75 72 20 27 2B 75 6E 69 pprime sur '+uni
013460: 74 0D 0A 20 20 20 20 20 20 65 6C 73 65 0D 0A 20 t.. else..
013470: 20 20 20 20 20 20 20 20 73 74 6F 72 65 20 75 6E store un
013480: 69 74 2B 6E 6F 6D 65 6C 65 6D 2D 27 2E 66 72 6D it+nomelem-'.frm
013490: 27 20 74 6F 20 6E 6F 6D 7A 0D 0A 20 20 20 20 20 ' to nomz..
0134A0: 20 20 20 20 3F 20 27 6C 65 20 66 69 63 68 69 65 ? 'le fichie
0134B0: 72 20 27 2B 6E 6F 6D 65 6C 65 6D 2D 27 2E 66 72 r '+nomelem-'.fr
0134C0: 6D 20 76 61 20 65 74 72 65 20 73 75 70 70 72 69 m va etre suppri
0134D0: 6D 65 20 73 75 72 20 27 2B 75 6E 69 74 0D 0A 20 me sur '+unit..
0134E0: 20 20 20 20 20 65 6E 64 69 66 0D 0A 20 20 20 20 endif..
0134F0: 20 20 64 65 6C 65 20 66 69 6C 65 20 26 6E 6F 6D dele file &nom
013500: 7A 0D 0A 20 20 20 20 20 20 64 65 6C 65 0D 0A 20 z.. dele..
013510: 20 20 20 20 20 70 61 63 6B 0D 0A 20 20 20 65 6E pack.. en
013520: 64 64 6F 0D 0A 20 20 20 72 65 6C 65 61 73 65 20 ddo.. release
013530: 6E 6F 6D 7A 0D 0A 20 20 20 75 73 65 0D 0A 65 6E nomz.. use..en
013540: 64 69 66 0D 0A 0D 0A 2A 20 73 75 70 70 72 65 73 dif....* suppres
013550: 73 69 6F 6E 20 64 65 73 20 66 69 63 68 69 65 72 sion des fichier
013560: 73 20 6E 6F 6D 66 69 63 68 2E 2A 0D 0A 73 74 6F s nomfich.*..sto
013570: 72 65 20 31 20 74 6F 20 63 70 74 0D 0A 64 6F 20 re 1 to cpt..do
013580: 77 68 69 6C 65 20 63 70 74 20 3C 3D 20 36 0D 0A while cpt <= 6..
013590: 20 20 20 64 6F 20 63 61 73 65 0D 0A 20 20 20 20 do case..
0135A0: 20 20 63 61 73 65 20 63 70 74 3D 31 0D 0A 20 20 case cpt=1..
0135B0: 20 20 20 20 73 74 6F 72 65 20 6E 6F 6D 66 69 63 store nomfic
0135C0: 68 2D 27 2E 64 62 66 27 20 74 6F 20 6E 6F 6D 65 h-'.dbf' to nome
0135D0: 72 61 0D 0A 20 20 20 20 20 20 63 61 73 65 20 63 ra.. case c
0135E0: 70 74 3D 32 0D 0A 20 20 20 20 20 20 73 74 6F 72 pt=2.. stor
0135F0: 65 20 66 72 65 66 20 74 6F 20 6E 6F 6D 65 72 61 e fref to nomera
013600: 6F 20 63 61 73 65 0D 0A 20 20 20 20 20 20 20 20 o case..
013610: 20 20 20 20 63 61 73 65 20 65 78 69 73 74 3D 27 case exist='
013620: 66 27 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 f'..
013630: 73 74 6F 72 65 20 34 39 20 74 6F 20 6E 6F 6D 65 store 49 to nome
013640: 73 73 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 ss..
013650: 64 6F 20 61 66 66 6D 65 73 73 0D 0A 20 20 20 20 do affmess..
013660: 20 20 20 20 20 20 20 20 63 61 73 65 20 6E 6F 65 case noe
013670: 72 72 23 30 0D 0A 20 20 20 20 20 20 20 20 20 20 rr#0..
013680: 20 20 73 74 6F 72 65 20 6E 6F 65 72 72 20 74 6F store noerr to
013690: 20 6E 6F 6D 65 73 73 0D 0A 20 20 20 20 20 20 20 nomess..
0136A0: 20 20 20 20 20 64 6F 20 61 66 66 6D 65 73 73 0D do affmess.
0136B0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 . if
0136C0: 66 69 6C 65 28 66 65 6C 65 29 2E 61 6E 64 2E 66 file(fele).and.f
0136D0: 69 6C 65 28 78 65 6C 65 29 0D 0A 20 20 20 20 20 ile(xele)..
0136E0: 20 20 20 20 20 20 20 73 74 6F 72 65 20 27 43 27 store 'C'
0136F0: 20 74 6F 20 65 6C 65 6D 0D 0A 20 20 20 20 20 20 to elem..
013700: 20 20 20 20 20 20 64 6F 20 6C 69 73 74 65 6C 65 do listele
013710: 6D 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 72 m.. r
013720: 65 6C 65 61 73 65 20 65 6C 65 6D 0D 0A 20 20 20 elease elem..
013730: 20 20 20 20 20 20 20 20 20 73 74 6F 72 65 20 27 store '
013740: 66 27 20 74 6F 20 63 6F 72 72 65 63 74 0D 0A 20 f' to correct..
013750: 20 20 20 20 20 20 20 20 20 20 20 65 6E 64 69 66 endif
013760: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 6F 74 .. ot
013770: 68 65 72 77 69 73 65 0D 0A 20 20 20 20 20 20 20 herwise..
013780: 20 20 20 20 20 73 74 6F 72 65 20 27 74 27 20 74 store 't' t
013790: 6F 20 63 6F 72 72 65 63 74 0D 0A 20 20 20 20 20 o correct..
0137A0: 20 20 20 20 65 6E 64 63 61 73 65 0D 0A 20 20 20 endcase..
0137B0: 20 20 20 65 6C 73 65 0D 0A 20 20 20 20 20 20 20 else..
0137C0: 20 20 73 74 6F 72 65 20 27 74 27 20 74 6F 20 63 store 't' to c
0137D0: 6F 72 72 65 63 74 0D 0A 20 20 20 20 20 20 65 6E orrect.. en
0137E0: 64 69 66 0D 0A 20 20 20 65 6E 64 64 6F 0D 0A 20 dif.. enddo..
0137F0: 20 20 72 65 6C 65 61 73 65 20 63 6F 72 72 65 63 release correc
013800: 0D 0A 20 20 20 20 20 20 63 61 73 65 20 63 70 74 .. case cpt
013810: 3D 33 0D 0A 20 20 20 20 20 20 73 74 6F 72 65 20 =3.. store
013820: 78 6E 6F 6D 20 74 6F 20 6E 6F 6D 65 72 61 0D 0A xnom to nomera..
013830: 20 20 20 20 20 20 63 61 73 65 20 63 70 74 3D 34 case cpt=4
013840: 0D 0A 20 20 20 20 20 20 73 74 6F 72 65 20 78 63 .. store xc
013850: 6C 65 20 74 6F 20 6E 6F 6D 65 72 61 0D 0A 20 20 le to nomera..
013860: 20 20 20 20 63 61 73 65 20 63 70 74 3D 35 0D 0A case cpt=5..
013870: 20 20 20 20 20 20 73 74 6F 72 65 20 66 65 6C 65 store fele
013880: 20 74 6F 20 6E 6F 6D 65 72 61 0D 0A 20 20 20 20 to nomera..
013890: 20 20 63 61 73 65 20 63 70 74 3D 36 0D 0A 20 20 case cpt=6..
0138A0: 20 20 20 20 73 74 6F 72 65 20 78 65 6C 65 20 74 store xele t
0138B0: 6F 20 6E 6F 6D 65 72 61 0D 0A 20 20 20 65 6E 64 o nomera.. end
0138C0: 63 61 73 65 0D 0A 20 20 20 69 66 20 2E 6E 6F 74 case.. if .not
0138D0: 2E 66 69 6C 65 28 6E 6F 6D 65 72 61 29 0D 0A 20 .file(nomera)..
0138E0: 20 20 20 20 20 3F 20 27 6C 65 20 66 69 63 68 69 ? 'le fichi
0138F0: 65 72 20 27 2B 24 28 6E 6F 6D 65 72 61 2C 33 2C er '+$(nomera,3,
013900: 31 32 29 2B 22 20 6E 27 65 78 69 73 74 65 20 70 12)+" n'existe p
013910: 61 73 20 73 75 72 20 22 2B 75 6E 69 74 0D 0A 20 as sur "+unit..
013920: 20 20 65 6C 73 65 0D 0A 20 20 20 20 20 20 3F 20 else.. ?
013930: 27 6C 65 20 66 69 63 68 69 65 72 20 27 2B 24 28 'le fichier '+$(
013940: 6E 6F 6D 65 72 61 2C 33 2C 31 32 29 2B 22 20 76 nomera,3,12)+" v
013950: 61 20 65 74 72 65 20 73 75 70 70 72 69 6D 65 20 a etre supprime
013960: 73 75 72 20 22 2B 75 6E 69 74 0D 0A 20 20 20 20 sur "+unit..
013970: 20 20 64 65 6C 65 20 66 69 6C 65 20 26 6E 6F 6D dele file &nom
013980: 65 72 61 0D 0A 20 20 20 65 6E 64 69 66 0D 0A 20 era.. endif..
013990: 20 20 73 74 6F 72 65 20 63 70 74 2B 31 20 74 6F store cpt+1 to
0139A0: 20 63 70 74 0D 0A 65 6E 64 64 6F 0D 0A 72 65 6C cpt..enddo..rel
0139B0: 65 61 73 65 20 6E 6F 6D 65 72 61 2C 63 70 74 0D ease nomera,cpt.
0139C0: 0A 0D 0A 2A 20 73 75 70 70 72 65 73 73 69 6F 6E ...* suppression
0139D0: 20 64 75 20 66 69 63 68 69 65 72 20 64 61 6E 73 du fichier dans
0139E0: 20 67 65 73 74 66 69 63 68 0D 0A 75 73 65 20 67 gestfich..use g
0139F0: 65 73 74 66 69 63 68 0D 0A 6C 6F 63 61 74 65 20 estfich..locate
013A00: 74 0D 0A 20 20 20 69 66 20 6E 6F 6D 66 69 63 68 t.. if nomfich
013A10: 20 23 20 27 20 27 0D 0A 20 20 20 72 65 6C 65 61 # ' '.. relea
013A20: 73 65 20 6E 6F 6D 61 66 66 2C 72 65 70 72 69 73 se nomaff,repris
013A30: 65 2C 65 78 69 73 74 2C 6E 6F 65 72 72 2C 74 65 e,exist,noerr,te
013A40: 73 74 31 2C 72 65 70 0D 0A 20 20 20 64 6F 20 6D st1,rep.. do m
013A50: 65 6E 75 0D 0A 20 20 20 65 6E 64 69 66 0D 0A 20 enu.. endif..
013A60: 20 20 63 61 73 65 20 72 65 70 20 3D 20 27 33 27 case rep = '3'
013A70: 0D 0A 20 20 20 65 72 61 73 65 0D 0A 20 20 20 40 .. erase.. @
013A80: 20 33 2C 31 30 20 73 61 79 20 27 4C 65 73 20 66 3,10 say 'Les f
013A90: 69 63 68 69 65 72 73 20 67 65 72 65 73 20 70 61 ichiers geres pa
013AA0: 72 20 63 65 74 74 65 20 61 70 70 6C 69 63 61 74 r cette applicat
013AB0: 69 6F 6E 20 73 6F 6E 74 3A 27 0D 0A 20 20 20 73 ion sont:'.. s
013AC0: 74 6F 72 65 20 35 20 74 6F 20 6C 69 67 0D 0A 20 tore 5 to lig..
013AD0: 20 20 73 65 6C 65 63 74 20 70 72 69 6D 61 72 79 select primary
013AE0: 0D 0A 20 20 20 75 73 65 20 67 65 73 74 66 69 63 .. use gestfic
013AF0: 68 0D 0A 20 20 20 2A 20 73 61 75 74 65 72 20 6C h.. * sauter l
013B00: 27 7B 74 61 74 20 63 6F 75 72 61 6E 74 0D 0A 20 '{tat courant..
013B10: 20 20 73 6B 69 70 0D 0A 20 20 20 64 6F 20 77 68 skip.. do wh
013B20: 69 6C 65 20 2E 6E 6F 74 2E 65 6F 66 0D 0A 20 20 ile .not.eof..
013B30: 20 20 20 69 66 20 6C 69 67 3E 31 38 0D 0A 20 20 if lig>18..
013B40: 20 20 20 20 20 20 73 74 6F 72 65 20 35 20 74 6F store 5 to
013B50: 20 6C 69 67 0D 0A 20 20 20 20 20 20 20 20 40 20 lig.. @
013B60: 6C 69 67 6D 31 2C 30 20 73 61 79 20 22 74 61 70 ligm1,0 say "tap
013B70: 65 7A 20 73 75 72 20 75 6E 65 20 74 6F 75 63 68 ez sur une touch
013B80: 65 20 70 6F 75 72 20 6C 61 20 73 75 69 74 65 20 e pour la suite
013B90: 64 65 20 6C 61 20 6C 69 73 74 65 22 0D 0A 20 20 de la liste"..
013BA0: 20 20 20 20 20 20 73 65 74 20 63 6F 6E 73 6F 6C set consol
013BB0: 65 20 6F 66 66 0D 0A 20 20 20 20 20 20 20 20 77 e off.. w
013BC0: 61 69 74 0D 0A 20 20 20 20 20 20 20 20 73 65 74 ait.. set
013BD0: 20 63 6F 6E 73 6F 6C 65 20 6F 6E 0D 0A 20 20 20 console on..
013BE0: 20 20 20 20 20 65 72 61 73 65 0D 0A 20 20 20 20 erase..
013BF0: 20 20 20 20 40 20 33 2C 31 30 20 73 61 79 20 22 @ 3,10 say "
013C00: 66 6F 72 20 6E 6F 6D 66 3D 24 28 6E 6F 6D 66 69 for nomf=$(nomfi
013C10: 63 68 2C 33 2C 38 29 0D 0A 64 65 6C 65 0D 0A 70 ch,3,8)..dele..p
013C20: 61 63 6B 0D 0A 75 73 65 0D 0A 72 65 6C 65 61 73 ack..use..releas
013C30: 65 20 6D 6F 64 69 66 0D 0A 73 74 6F 72 65 20 27 e modif..store '
013C40: 66 27 20 74 6F 20 65 78 69 73 74 0D 0A 72 65 74 f' to exist..ret
013C50: 75 72 6E 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D urn.............
013C60: 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D ................
013C70: 0A 0D 0A 0D 0A 0D 0A 1A 1A 4F 4E 32 00 00 00 00 .........ON2....
013C80: 00 00 00 43 0A F1 70 00 44 45 42 32 00 00 00 00 ...C..p.DEB2....
013C90: 00 00 00 43 03 FB 70 00 46 49 4E 32 00 00 00 00 ...C..p.FIN2....
013CA0: 00 00 00 43 03 FE 70 00 5A 4F 4E 33 00 00 00 00 ...C..p.ZON3....
013CB0: 00 00 00 43 0A 01 71 00 44 45 42 33 00 00 00 00 ...C..q.DEB3....
013CC0: 00 00 00 43 03 0B 71 00 46 49 4E 33 00 00 00 00 ...C..q.FIN3....
013CD0: 00 00 00 43 03 0E 71 00 5A 4F 4E 34 00 00 00 00 ...C..q.ZON4....
013CE0: 00 00 00 43 0A 11 71 00 44 45 42 34 00 00 00 00 ...C..q.DEB4....
013CF0: 00 00 00 43 03 1B 71 00 46 49 4E 34 00 00 00 00 ...C..q.FIN4....
013D00: 00 00 00 43 03 1E 71 00 5A 4F 4E 35 00 00 00 00 ...C..q.ZON5....
013D10: 00 00 00 43 0A 21 71 00 44 45 42 35 00 00 00 00 ...C.!q.DEB5....
013D20: 00 00 00 43 03 2B 71 00 46 49 4E 35 00 00 00 00 ...C.+q.FIN5....
013D30: 00 00 00 43 03 2E 71 00 54 59 50 43 00 00 00 00 ...C..q.TYPC....
013D40: 00 00 00 43 01 31 71 00 0D 00 00 00 00 00 00 00 ...C.1q.........
013D50: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
013D60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
013D70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
013D80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
013D90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
013DA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
013DB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
013DC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
013DD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
013DE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
013DF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
013E00: 4C 65 73 20 66 69 63 68 69 65 72 73 20 67 65 72 Les fichiers ger
013E10: 65 73 20 70 61 72 20 63 65 74 74 65 20 61 70 70 es par cette app
013E20: 6C 69 63 61 74 69 6F 6E 20 73 6F 6E 74 3A 22 0D lication sont:".
013E30: 0A 20 20 20 20 20 65 6E 64 69 66 0D 0A 20 20 20 . endif..
013E40: 20 20 40 20 6C 69 67 2C 35 20 73 61 79 20 6E 6F @ lig,5 say no
013E50: 6D 66 0D 0A 20 20 20 20 20 40 20 6C 69 67 2C 34 mf.. @ lig,4
013E60: 30 20 73 61 79 20 69 6E 74 69 74 66 0D 0A 20 20 0 say intitf..
013E70: 20 20 20 73 6B 69 70 0D 0A 20 20 20 20 20 73 74 skip.. st
013E80: 6F 72 65 20 6C 69 67 2B 31 20 74 6F 20 6C 69 67 ore lig+1 to lig
013E90: 0D 0A 20 20 20 65 6E 64 64 6F 0D 0A 20 20 20 40 .. enddo.. @
013EA0: 20 6C 69 67 6D 31 2C 30 20 73 61 79 20 22 20 20 ligm1,0 say "
013EB0: 74 61 70 65 7A 20 73 75 72 20 75 6E 65 20 74 6F tapez sur une to
013EC0: 75 63 68 65 20 70 6F 75 72 20 63 6F 6E 74 69 6E uche pour contin
013ED0: 75 65 72 22 0D 0A 20 20 20 73 65 74 20 63 6F 6E uer".. set con
013EE0: 73 6F 6C 65 20 6F 66 66 0D 0A 20 20 20 77 61 69 sole off.. wai
013EF0: 74 0D 0A 20 20 20 73 65 74 20 63 6F 6E 73 6F 6C t.. set consol
013F00: 65 20 6F 6E 0D 0A 20 20 20 72 65 6C 65 61 73 65 e on.. release
013F10: 20 6C 69 67 0D 0A 20 20 20 63 61 73 65 20 72 65 lig.. case re
013F20: 70 20 3D 20 27 34 27 0D 0A 20 20 20 65 72 61 73 p = '4'.. eras
013F30: 65 0D 0A 20 20 20 73 74 6F 72 65 20 27 66 27 20 e.. store 'f'
013F40: 74 6F 20 63 6F 72 72 65 63 74 0D 0A 20 20 20 69 to correct.. i
013F50: 66 20 6C 69 67 6D 31 3D 32 30 0D 0A 20 20 20 40 f ligm1=20.. @
013F60: 20 35 2C 35 20 73 61 79 20 27 45 6E 74 72 65 7A 5,5 say 'Entrez
013F70: 20 6C 61 20 6E 6F 75 76 65 6C 6C 65 20 75 6E 69 la nouvelle uni
013F80: 74 65 20 70 61 72 20 64 65 66 61 75 74 20 20 20 te par defaut
013F90: 28 61 3A 20 6F 75 20 62 3A 29 20 20 3A 27 0D 0A (a: ou b:) :'..
013FA0: 20 20 20 65 6C 73 65 0D 0A 20 20 20 40 20 35 2C else.. @ 5,
013FB0: 35 20 73 61 79 20 27 45 6E 74 72 65 7A 20 6C 61 5 say 'Entrez la
013FC0: 20 6E 6F 75 76 65 6C 6C 65 20 75 6E 69 74 65 20 nouvelle unite
013FD0: 70 61 72 20 64 65 66 61 75 74 20 28 61 3A 2C 62 par defaut (a:,b
013FE0: 3A 20 6F 75 20 6D 3A 29 20 3A 27 0D 0A 20 20 20 : ou m:) :'..
013FF0: 65 6E 64 69 66 0D 0A 20 20 20 64 6F 20 77 68 69 endif.. do whi
014000: 2A 20 65 78 69 73 74 63 6C 65 0D 0A 0D 0A 65 72 * existcle....er
014010: 61 73 65 0D 0A 40 20 31 2C 31 30 20 73 61 79 20 ase..@ 1,10 say
014020: 64 61 74 65 28 29 0D 0A 64 6F 20 63 61 73 65 0D date()..do case.
014030: 0A 63 61 73 65 20 63 68 6F 69 78 3D 27 31 27 0D .case choix='1'.
014040: 0A 73 74 6F 72 65 20 27 20 20 20 63 72 65 61 74 .store ' creat
014050: 69 6F 6E 20 20 20 20 20 20 20 20 20 20 27 20 74 ion ' t
014060: 6F 20 61 63 74 69 6F 6E 0D 0A 63 61 73 65 20 63 o action..case c
014070: 68 6F 69 78 3D 27 32 27 0D 0A 73 74 6F 72 65 20 hoix='2'..store
014080: 27 20 20 20 6D 6F 64 69 66 69 63 61 74 69 6F 6E ' modification
014090: 20 20 20 20 20 20 27 20 74 6F 20 61 63 74 69 6F ' to actio
0140A0: 6E 0D 0A 63 61 73 65 20 63 68 6F 69 78 3D 27 33 n..case choix='3
0140B0: 27 0D 0A 73 74 6F 72 65 20 27 20 20 20 73 75 70 '..store ' sup
0140C0: 70 72 65 73 73 69 6F 6E 20 20 20 20 20 20 20 27 pression '
0140D0: 20 74 6F 20 61 63 74 69 6F 6E 0D 0A 63 61 73 65 to action..case
0140E0: 20 63 68 6F 69 78 3D 27 34 27 2E 6F 72 2E 63 68 choix='4'.or.ch
0140F0: 6F 69 78 3D 27 35 27 0D 0A 73 74 6F 72 65 20 27 oix='5'..store '
014100: 20 20 20 76 69 73 75 61 6C 69 73 61 74 69 6F 6E visualisation
014110: 20 20 20 20 20 27 20 74 6F 20 61 63 74 69 6F 6E ' to action
014120: 0D 0A 65 6E 64 63 61 73 65 0D 0A 40 20 31 2C 35 ..endcase..@ 1,5
014130: 37 20 67 65 74 20 61 63 74 69 6F 6E 0D 0A 63 6C 7 get action..cl
014140: 65 61 72 20 67 65 74 0D 0A 72 65 6C 65 61 73 65 ear get..release
014150: 20 61 63 74 69 6F 6E 0D 0A 73 74 6F 72 65 20 30 action..store 0
014160: 20 74 6F 20 6E 6F 6D 65 73 73 0D 0A 73 74 6F 72 to nomess..stor
014170: 65 20 27 64 27 20 74 6F 20 74 65 73 74 0D 0A 73 e 'd' to test..s
014180: 74 6F 72 65 20 27 20 27 20 74 6F 20 74 61 62 76 tore ' ' to tabv
014190: 0D 0A 64 6F 20 77 68 69 6C 65 20 74 65 73 74 23 ..do while test#
0141A0: 27 66 27 0D 0A 20 20 20 69 66 20 6E 6F 63 6F 75 'f'.. if nocou
0141B0: 72 20 23 20 30 2E 61 6E 64 2E 63 68 6F 69 78 20 r # 0.and.choix
0141C0: 23 20 27 31 27 0D 0A 20 20 20 73 65 6C 65 63 74 # '1'.. select
0141D0: 20 73 65 63 6F 6E 64 61 72 79 0D 0A 20 20 20 75 secondary.. u
0141E0: 73 65 20 26 6E 6F 6D 66 69 63 68 0D 0A 20 20 20 se &nomfich..
0141F0: 67 6F 74 6F 20 6E 6F 63 6F 75 72 0D 0A 20 20 20 goto nocour..
014200: 2A 20 73 75 70 66 69 63 68 20 3A 20 73 75 70 70 * supfich : supp
014210: 72 65 73 73 69 6F 6E 20 64 75 20 66 69 63 68 69 ression du fichi
014220: 65 72 20 65 74 20 64 65 20 74 6F 75 73 20 6C 65 er et de tous le
014230: 73 20 66 69 63 68 69 65 72 73 20 61 6E 6E 65 78 s fichiers annex
014240: 65 73 0D 0A 0D 0A 69 66 20 6D 6F 64 69 66 3D 27 es....if modif='
014250: 66 27 0D 0A 20 20 20 65 72 61 73 65 0D 0A 20 20 f'.. erase..
014260: 20 40 20 31 2C 32 36 20 73 61 79 20 27 53 55 50 @ 1,26 say 'SUP
014270: 50 52 45 53 53 49 4F 4E 20 44 55 20 46 49 43 48 PRESSION DU FICH
014280: 49 45 52 20 27 0D 0A 20 20 20 40 20 31 2C 35 34 IER '.. @ 1,54
014290: 20 67 65 74 20 6E 6F 6D 61 66 66 0D 0A 20 20 20 get nomaff..
0142A0: 63 6C 65 61 72 20 67 65 74 0D 0A 20 20 20 64 6F clear get.. do
0142B0: 20 63 6F 6E 66 73 75 70 0D 0A 20 20 20 69 66 20 confsup.. if
0142C0: 21 28 63 6F 6E 66 69 72 6D 29 3D 27 4E 27 0D 0A !(confirm)='N'..
0142D0: 20 20 20 20 20 20 72 65 6C 65 61 73 65 20 63 6F release co
0142E0: 6E 66 69 72 6D 2C 6D 6F 64 69 66 0D 0A 20 20 20 nfirm,modif..
0142F0: 20 20 20 72 65 74 75 72 6E 0D 0A 20 20 20 65 6E return.. en
014300: 64 69 66 0D 0A 20 20 20 72 65 6C 65 61 73 65 20 dif.. release
014310: 63 6F 6E 66 69 72 6D 0D 0A 65 6E 64 69 66 0D 0A confirm..endif..
014320: 2A 20 73 75 70 70 72 65 73 73 69 6F 6E 20 64 65 * suppression de
014330: 73 20 69 6E 64 65 78 20 65 74 20 64 65 73 20 6C s index et des l
014340: 69 73 74 65 73 0D 0A 69 66 20 2E 6E 6F 74 2E 66 istes..if .not.f
014350: 69 6C 65 28 66 65 6C 65 29 0D 0A 20 20 20 3F 20 ile(fele).. ?
014360: 22 61 75 63 75 6E 65 20 63 6C 65 20 6F 75 20 6C "aucune cle ou l
014370: 69 73 74 65 20 6E 27 61 20 70 75 20 65 74 72 65 iste n'a pu etre
014380: 20 72 65 74 72 6F 75 76 65 65 22 0D 0A 20 20 20 retrouvee"..
014390: 3F 0D 0A 65 6C 73 65 0D 0A 20 20 20 73 65 6C 65 ?..else.. sele
0143A0: 63 74 20 70 72 69 6D 61 72 79 0D 0A 20 20 20 75 ct primary.. u
0143B0: 73 65 20 26 66 65 6C 65 0D 0A 20 20 20 67 6F 74 se &fele.. got
0143C0: 6F 20 74 6F 70 0D 0A 20 20 20 64 6F 20 77 68 69 o top.. do whi
0143D0: 6C 65 20 2E 6E 6F 74 2E 65 6F 66 0D 0A 20 20 20 le .not.eof..
0143E0: 20 20 20 69 66 20 74 79 70 65 6C 65 6D 3D 27 43 if typelem='C
0143F0: 27 0D 0A 20 20 20 20 20 20 20 20 20 73 74 6F 72 '.. stor
014400: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
014410: 11 00 01 00 02 09 4E E5 11 00 41 02 00 00 00 02 ......N...A.....
014420: 11 00 46 02 00 00 00 02 11 00 42 02 00 00 00 02 ..F.......B.....
014430: 11 00 47 02 00 00 00 02 11 00 43 02 00 00 00 02 ..G.......C.....
014440: 11 00 48 02 00 00 00 02 11 00 44 02 00 00 00 02 ..H.......D.....
014450: 11 00 49 02 00 00 00 02 11 00 45 02 00 00 00 02 ..I.......E.....
014460: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
014470: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
014480: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
014490: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0144A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0144B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0144C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0144D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0144E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0144F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
014500: 65 6E 64 69 66 0D 0A 20 20 20 73 65 6C 65 63 74 endif.. select
014510: 20 70 72 69 6D 61 72 79 0D 0A 20 20 20 75 73 65 primary.. use
014520: 20 26 66 72 65 66 20 69 6E 64 65 78 20 26 78 63 &fref index &xc
014530: 6C 65 0D 0A 20 20 20 67 6F 74 6F 20 74 6F 70 0D le.. goto top.
014540: 0A 20 20 20 69 66 20 63 68 6F 69 78 20 23 20 27 . if choix # '
014550: 35 27 0D 0A 20 20 20 40 20 6C 69 67 6D 31 2C 30 5'.. @ ligm1,0
014560: 20 73 61 79 20 27 6D 65 74 74 72 65 20 6C 61 20 say 'mettre la
014570: 70 72 65 6D 69 65 72 65 20 7A 6F 6E 65 20 61 20 premiere zone a
014580: 62 6C 61 6E 63 20 6F 75 20 30 20 70 6F 75 72 20 blanc ou 0 pour
014590: 61 62 61 6E 64 6F 6E 6E 65 72 20 20 20 20 20 27 abandonner '
0145A0: 0D 0A 20 20 20 65 6E 64 69 66 0D 0A 20 20 20 73 .. endif.. s
0145B0: 74 6F 72 65 20 31 20 74 6F 20 63 70 74 0D 0A 20 tore 1 to cpt..
0145C0: 20 20 73 65 74 20 69 6E 74 65 6E 73 69 74 79 20 set intensity
0145D0: 6F 66 66 0D 0A 20 20 20 64 6F 20 77 68 69 6C 65 off.. do while
0145E0: 20 63 70 74 3C 3D 6E 62 7A 6F 6E 70 0D 0A 20 20 cpt<=nbzonp..
0145F0: 20 20 20 20 73 74 6F 72 65 20 27 6D 7A 6F 6E 27 store 'mzon'
014600: 2D 73 74 72 28 6E 6F 7A 2C 31 2B 69 6E 74 28 6E -str(noz,1+int(n
014610: 6F 7A 2F 31 30 29 29 20 74 6F 20 6D 7A 6F 6E 0D oz/10)) to mzon.
014620: 0A 20 20 20 20 20 20 64 6F 20 69 6E 69 74 7A 6F . do initzo
014630: 6E 65 0D 0A 20 20 20 20 20 20 69 66 20 74 65 73 ne.. if tes
014640: 74 3D 27 64 27 2E 61 6E 64 2E 6E 6F 6D 65 73 73 t='d'.and.nomess
014650: 3D 30 0D 0A 20 20 20 20 20 20 20 20 20 69 66 20 =0.. if
014660: 76 65 72 69 66 20 3D 20 27 4E 41 27 2E 61 6E 64 verif = 'NA'.and
014670: 2E 66 69 65 6C 64 3A 74 79 70 65 23 27 4E 27 0D .field:type#'N'.
014680: 0A 20 20 20 20 20 20 20 20 20 73 74 6F 72 65 20 . store
014690: 74 61 62 76 2D 27 4E 27 20 74 6F 20 74 61 62 76 tabv-'N' to tabv
0146A0: 0D 0A 20 20 20 20 20 20 20 20 20 65 6C 73 65 0D .. else.
0146B0: 0A 20 20 20 20 20 20 20 20 20 73 74 6F 72 65 20 . store
0146C0: 74 61 62 76 2D 27 4F 27 20 74 6F 20 74 61 62 76 tabv-'O' to tabv
0146D0: 0D 0A 20 20 20 20 20 20 20 20 20 65 6E 64 69 66 .. endif
0146E0: 0D 0A 20 20 20 20 20 20 20 20 20 40 20 6C 74 2C .. @ lt,
0146F0: 63 74 20 73 61 79 20 74 65 78 74 65 0D 0A 20 20 ct say texte..
014700: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 65 6E .. en
014710: 64 69 66 0D 0A 20 20 20 20 20 20 20 20 20 65 6E dif.. en
014720: 64 69 66 0D 0A 20 20 20 20 20 20 20 20 20 73 65 dif.. se
014730: 74 20 65 78 61 63 74 20 6F 66 66 0D 0A 20 20 20 t exact off..
014740: 20 20 20 65 6E 64 69 66 0D 0A 20 20 20 65 6E 64 endif.. end
014750: 69 66 0D 0A 20 20 20 69 66 20 6E 6F 6D 65 73 73 if.. if nomess
014760: 3D 30 0D 0A 20 20 20 20 20 20 40 20 6C 69 67 6D =0.. @ ligm
014770: 31 2C 30 0D 0A 20 20 20 20 20 20 72 65 6C 65 61 1,0.. relea
014780: 73 65 20 63 6C 65 2C 63 70 74 2C 6E 6F 6D 7A 2C se cle,cpt,nomz,
014790: 76 69 64 65 2C 76 65 72 32 0D 0A 20 20 20 20 20 vide,ver2..
0147A0: 20 64 6F 20 63 61 73 65 0D 0A 20 20 20 20 20 20 do case..
0147B0: 63 61 73 65 20 63 68 6F 69 78 3D 27 31 27 2E 6F case choix='1'.o
0147C0: 72 2E 63 68 6F 69 78 3D 27 32 27 2E 6F 72 2E 63 r.choix='2'.or.c
0147D0: 68 6F 69 78 3D 27 33 27 0D 0A 20 20 20 20 20 20 hoix='3'..
0147E0: 64 6F 20 6D 61 6A 0D 0A 20 20 20 20 20 20 73 74 do maj.. st
0147F0: 6F 72 65 20 27 73 27 20 74 6F 20 74 65 73 74 0D ore 's' to test.
014800: 0A 20 20 20 20 20 20 63 61 73 65 20 63 68 6F 69 . case choi
014810: 78 3D 27 34 27 2E 6F 72 2E 63 68 6F 69 78 3D 27 x='4'.or.choix='
014820: 35 27 0D 0A 20 20 20 20 20 20 69 66 20 63 68 6F 5'.. if cho
014830: 69 78 3D 27 34 27 0D 0A 20 20 20 20 20 20 20 20 ix='4'..
014840: 20 73 74 6F 72 65 20 75 6E 69 74 2D 6E 6F 6D 69 store unit-nomi
014850: 6E 64 70 20 74 6F 20 6D 6E 6F 6D 63 0D 0A 20 20 ndp to mnomc..
014860: 20 20 20 20 65 6E 64 69 66 0D 0A 20 20 20 20 20 endif..
014870: 20 73 65 6C 65 63 74 20 70 72 69 6D 61 72 79 0D select primary.
014880: 0A 20 20 20 20 20 20 75 73 65 20 26 66 72 65 66 . use &fref
014890: 20 69 6E 64 65 78 20 26 78 63 6C 65 0D 0A 20 20 index &xcle..
0148A0: 20 20 20 20 67 6F 74 6F 20 74 6F 70 0D 0A 20 20 goto top..
0148B0: 20 20 20 20 64 6F 20 77 68 69 6C 65 20 2E 6E 6F do while .no
0148C0: 74 2E 65 6F 66 0D 0A 20 20 20 20 20 20 20 20 20 t.eof..
0148D0: 73 74 6F 72 65 20 22 6D 7A 6F 6E 22 2D 73 74 72 store "mzon"-str
0148E0: 28 6E 6F 7A 2C 31 2B 69 6E 74 28 6E 6F 7A 2F 31 (noz,1+int(noz/1
0148F0: 30 29 2D 69 6E 74 28 6E 6F 7A 2F 32 30 29 2D 69 0)-int(noz/20)-i
014900: 20 20 20 20 65 6E 64 69 66 0D 0A 20 20 20 20 20 endif..
014910: 20 40 20 6C 73 2C 63 73 20 67 65 74 20 26 6D 7A @ ls,cs get &mz
014920: 6F 6E 20 26 70 69 63 0D 0A 20 20 20 20 20 20 73 on &pic.. s
014930: 74 6F 72 65 20 63 70 74 2B 31 20 74 6F 20 63 70 tore cpt+1 to cp
014940: 74 0D 0A 20 20 20 20 20 20 73 6B 69 70 0D 0A 20 t.. skip..
014950: 20 20 65 6E 64 64 6F 0D 0A 20 20 20 72 65 6C 65 enddo.. rele
014960: 61 73 65 20 70 69 63 0D 0A 20 20 20 73 65 74 20 ase pic.. set
014970: 69 6E 74 65 6E 73 69 74 79 20 6F 6E 0D 0A 20 20 intensity on..
014980: 20 69 66 20 63 68 6F 69 78 20 3D 20 27 35 27 0D if choix = '5'.
014990: 0A 20 20 20 20 20 20 63 6C 65 61 72 20 67 65 74 . clear get
0149A0: 0D 0A 20 20 20 20 20 20 73 74 6F 72 65 20 30 20 .. store 0
0149B0: 74 6F 20 6E 6F 6D 65 73 73 0D 0A 20 20 20 65 6C to nomess.. el
0149C0: 73 65 0D 0A 20 20 20 20 20 20 72 65 61 64 0D 0A se.. read..
0149D0: 20 20 20 20 20 20 67 6F 74 6F 20 74 6F 70 0D 0A goto top..
0149E0: 20 20 20 20 20 20 73 74 6F 72 65 20 27 66 27 20 store 'f'
0149F0: 74 6F 20 76 69 64 65 0D 0A 20 20 20 20 20 20 64 to vide.. d
014A00: 6F 20 63 61 73 65 0D 0A 20 20 20 20 20 20 63 61 o case.. ca
014A10: 73 65 20 66 69 65 6C 64 3A 74 79 70 65 3D 27 43 se field:type='C
014A20: 27 0D 0A 20 20 20 20 20 20 69 66 20 24 28 76 65 '.. if $(ve
014A30: 72 69 66 2C 32 2C 31 29 3D 27 44 27 2E 61 6E 64 rif,2,1)='D'.and
014A40: 2E 6D 7A 6F 6E 31 3D 27 30 30 2F 30 30 2F 30 30 .mzon1='00/00/00
014A50: 27 2E 6F 72 2E 24 28 76 65 72 69 66 2C 32 2C 31 '.or.$(verif,2,1
014A60: 29 3D 27 4D 27 2E 61 6E 64 2E 3B 0D 0A 6D 7A 6F )='M'.and.;..mzo
014A70: 6E 31 3D 27 30 30 2F 30 30 27 2E 6F 72 2E 24 28 n1='00/00'.or.$(
014A80: 76 65 72 69 66 2C 32 2C 31 29 23 27 44 27 2E 61 verif,2,1)#'D'.a
014A90: 6E 64 2E 24 28 76 65 72 69 66 2C 32 2C 31 29 23 nd.$(verif,2,1)#
014AA0: 27 4D 27 2E 61 6E 64 2E 6D 7A 6F 6E 31 3D 27 20 'M'.and.mzon1='
014AB0: 27 0D 0A 20 20 20 20 20 20 73 74 6F 72 65 20 27 '.. store '
014AC0: 74 27 20 74 6F 20 76 69 64 65 0D 0A 20 20 20 20 t' to vide..
014AD0: 20 20 65 6E 64 69 66 0D 0A 20 20 20 20 20 20 63 endif.. c
014AE0: 61 73 65 20 66 69 65 6C 64 3A 74 79 70 65 3D 27 ase field:type='
014AF0: 4E 27 0D 0A 20 20 20 20 20 20 69 66 20 6D 7A 6F N'.. if mzo
014B00: 6E 74 28 6E 6F 7A 2F 33 30 29 29 20 74 6F 20 6D nt(noz/30)) to m
014B10: 7A 6F 6E 0D 0A 20 20 20 20 20 20 20 20 20 64 6F zon.. do
014B20: 20 69 6E 69 74 7A 6F 6E 65 0D 0A 20 20 20 20 20 initzone..
014B30: 20 20 20 20 69 66 20 74 65 73 74 3D 27 64 27 0D if test='d'.
014B40: 0A 20 20 20 20 20 20 20 20 20 40 20 6C 74 2C 63 . @ lt,c
014B50: 74 20 73 61 79 20 74 65 78 74 65 0D 0A 20 20 20 t say texte..
014B60: 20 20 20 20 20 20 65 6E 64 69 66 0D 0A 20 20 20 endif..
014B70: 20 20 20 20 20 20 40 20 6C 73 2C 63 73 20 67 65 @ ls,cs ge
014B80: 74 20 26 6D 7A 6F 6E 20 26 70 69 63 0D 0A 20 20 t &mzon &pic..
014B90: 20 20 20 20 20 20 20 73 6B 69 70 0D 0A 20 20 20 skip..
014BA0: 20 20 20 65 6E 64 64 6F 0D 0A 20 20 20 20 20 20 enddo..
014BB0: 63 6C 65 61 72 20 67 65 74 0D 0A 20 20 20 20 20 clear get..
014BC0: 20 72 65 6C 65 61 73 65 20 70 69 63 2C 6D 7A 6F release pic,mzo
014BD0: 6E 2C 6D 7A 6F 6E 31 2C 6D 7A 6F 6E 32 2C 6D 7A n,mzon1,mzon2,mz
014BE0: 6F 6E 33 2C 6D 7A 6F 6E 34 2C 6D 7A 6F 6E 35 2C on3,mzon4,mzon5,
014BF0: 6D 7A 6F 6E 36 2C 6D 7A 6F 6E 37 2C 6D 7A 6F 6E mzon6,mzon7,mzon
014C00: 38 2C 6D 7A 6F 6E 39 0D 0A 20 20 20 20 20 20 72 8,mzon9.. r
014C10: 65 6C 65 61 73 65 20 6D 7A 6F 6E 31 30 2C 6D 7A elease mzon10,mz
014C20: 6F 6E 31 31 2C 6D 7A 6F 6E 31 32 2C 6D 7A 6F 6E on11,mzon12,mzon
014C30: 31 33 2C 6D 7A 6F 6E 31 34 2C 6D 7A 6F 6E 31 35 13,mzon14,mzon15
014C40: 2C 6D 7A 6F 6E 31 36 2C 6D 7A 6F 6E 31 37 2C 6D ,mzon16,mzon17,m
014C50: 7A 6F 6E 31 38 0D 0A 20 20 20 20 20 20 72 65 6C zon18.. rel
014C60: 65 61 73 65 20 6D 7A 6F 6E 31 39 2C 6D 7A 6F 6E ease mzon19,mzon
014C70: 32 30 2C 6D 7A 6F 6E 32 31 2C 6D 7A 6F 6E 32 32 20,mzon21,mzon22
014C80: 2C 6D 7A 6F 6E 32 33 2C 6D 7A 6F 6E 32 34 2C 6D ,mzon23,mzon24,m
014C90: 7A 6F 6E 32 35 2C 6D 7A 6F 6E 32 36 2C 6D 7A 6F zon25,mzon26,mzo
014CA0: 6E 32 37 0D 0A 20 20 20 20 20 20 72 65 6C 65 61 n27.. relea
014CB0: 73 65 20 6D 7A 6F 6E 32 38 2C 6D 7A 6F 6E 32 39 se mzon28,mzon29
014CC0: 2C 6D 7A 6F 6E 33 30 2C 6D 7A 6F 6E 33 31 2C 6D ,mzon30,mzon31,m
014CD0: 7A 6F 6E 33 32 0D 0A 20 20 20 20 20 20 73 65 6C zon32.. sel
014CE0: 65 63 74 20 70 72 69 6D 61 72 79 0D 0A 20 20 20 ect primary..
014CF0: 20 20 20 75 73 65 0D 0A 20 20 20 20 20 20 73 65 use.. se
014D00: 6E 31 3D 30 0D 0A 20 20 20 20 20 20 20 20 20 73 n1=0.. s
014D10: 74 6F 72 65 20 27 74 27 20 74 6F 20 76 69 64 65 tore 't' to vide
014D20: 0D 0A 20 20 20 20 20 20 65 6E 64 69 66 0D 0A 20 .. endif..
014D30: 20 20 20 20 20 65 6E 64 63 61 73 65 0D 0A 20 20 endcase..
014D40: 20 20 20 20 69 66 20 76 69 64 65 3D 27 74 27 0D if vide='t'.
014D50: 0A 20 20 20 20 20 20 72 65 6C 65 61 73 65 20 74 . release t
014D60: 61 62 76 2C 74 65 73 74 2C 76 69 64 65 2C 63 70 abv,test,vide,cp
014D70: 74 2C 63 6C 65 2C 6D 7A 6F 6E 2C 6D 7A 6F 6E 31 t,cle,mzon,mzon1
014D80: 2C 6D 7A 6F 6E 32 2C 6D 7A 6F 6E 33 2C 6D 7A 6F ,mzon2,mzon3,mzo
014D90: 6E 34 2C 6D 7A 6F 6E 35 0D 0A 20 20 20 20 20 20 n4,mzon5..
014DA0: 72 65 74 75 72 6E 0D 0A 20 20 20 20 20 20 65 6E return.. en
014DB0: 64 69 66 0D 0A 20 20 20 20 20 20 73 74 6F 72 65 dif.. store
014DC0: 20 30 20 74 6F 20 6E 6F 6D 65 73 73 0D 0A 20 20 0 to nomess..
014DD0: 20 20 20 20 69 66 20 63 68 6F 69 78 3D 27 31 27 if choix='1'
014DE0: 0D 0A 20 20 20 20 20 20 73 74 6F 72 65 20 31 20 .. store 1
014DF0: 74 6F 20 76 31 0D 0A 20 20 20 20 20 20 73 74 6F to v1.. sto
014E00: 72 65 20 6E 62 7A 6F 6E 70 20 74 6F 20 76 32 0D re nbzonp to v2.
014E10: 0A 20 20 20 20 20 20 64 6F 20 76 65 72 69 66 0D . do verif.
014E20: 0A 20 20 20 20 20 20 65 6E 64 69 66 0D 0A 20 20 . endif..
014E30: 20 20 20 20 69 66 20 6E 6F 6D 65 73 73 23 30 0D if nomess#0.
014E40: 0A 20 20 20 20 20 20 20 20 20 40 20 6C 69 67 6D . @ ligm
014E50: 31 2C 30 0D 0A 20 20 20 20 20 20 20 20 20 64 6F 1,0.. do
014E60: 20 61 66 66 6D 65 73 73 0D 0A 20 20 20 20 20 20 affmess..
014E70: 65 6C 73 65 0D 0A 20 20 20 20 20 20 20 20 20 73 else.. s
014E80: 74 6F 72 65 20 27 20 27 20 74 6F 20 63 6C 65 0D tore ' ' to cle.
014E90: 0A 20 20 20 20 20 20 20 20 20 73 65 6C 65 63 74 . select
014EA0: 20 70 72 69 6D 61 72 79 0D 0A 20 20 20 20 20 20 primary..
014EB0: 20 20 20 75 73 65 20 26 66 72 65 66 20 69 6E 64 use &fref ind
014EC0: 65 78 20 26 78 63 6C 65 0D 0A 20 20 20 20 20 20 ex &xcle..
014ED0: 20 20 20 73 74 6F 72 65 20 31 20 74 6F 20 63 70 store 1 to cp
014EE0: 74 0D 0A 20 20 20 20 20 20 20 20 20 67 6F 74 6F t.. goto
014EF0: 20 74 6F 70 0D 0A 20 20 20 20 20 20 20 20 20 64 top.. d
014F00: 6C 65 63 74 20 73 65 63 6F 6E 64 61 72 79 0D 0A lect secondary..
014F10: 20 20 20 20 20 20 75 73 65 0D 0A 20 20 20 20 20 use..
014F20: 20 73 74 6F 72 65 20 27 35 27 20 74 6F 20 63 68 store '5' to ch
014F30: 6F 69 78 0D 0A 20 20 20 20 20 20 73 65 6C 65 63 oix.. selec
014F40: 74 20 73 65 63 6F 6E 64 61 72 79 0D 0A 20 20 20 t secondary..
014F50: 20 20 20 75 73 65 20 26 6E 6F 6D 66 69 63 68 0D use &nomfich.
014F60: 0A 20 20 20 20 20 20 73 65 74 20 69 6E 64 65 78 . set index
014F70: 20 74 6F 20 26 6D 6E 6F 6D 63 0D 0A 20 20 20 20 to &mnomc..
014F80: 20 20 67 6F 74 6F 20 6E 6F 63 6F 75 72 0D 0A 20 goto nocour..
014F90: 20 20 20 20 20 73 74 6F 72 65 20 27 46 27 20 74 store 'F' t
014FA0: 6F 20 72 65 70 0D 0A 20 20 20 20 20 20 40 20 6C o rep.. @ l
014FB0: 69 67 6D 31 2B 31 2C 30 0D 0A 20 20 20 20 20 20 igm1+1,0..
014FC0: 40 20 6C 69 67 6D 31 2C 30 20 73 61 79 20 27 74 @ ligm1,0 say 't
014FD0: 61 70 65 7A 20 46 20 70 6F 75 72 20 66 69 6E 2C apez F pour fin,
014FE0: 20 53 20 70 6F 75 72 20 66 69 63 68 65 20 73 75 S pour fiche su
014FF0: 69 76 61 6E 74 65 2C 20 50 20 70 6F 75 72 20 27 ivante, P pour '
015000: 3B 0D 0A 20 20 20 20 20 20 2B 27 66 69 63 68 65 ;.. +'fiche
015010: 20 70 72 65 63 65 64 65 6E 74 65 27 0D 0A 20 20 precedente'..
015020: 20 20 20 20 77 61 69 74 20 74 6F 20 72 65 70 0D wait to rep.
015030: 0A 20 20 20 20 20 20 69 66 20 21 28 72 65 70 29 . if !(rep)
015040: 3D 27 50 27 0D 0A 20 20 20 20 20 20 20 20 20 73 ='P'.. s
015050: 6B 69 70 20 2D 31 0D 0A 20 20 20 20 20 20 65 6C kip -1.. el
015060: 73 65 0D 0A 20 20 20 20 20 20 20 20 20 69 66 20 se.. if
015070: 21 28 72 65 70 29 3D 27 53 27 0D 0A 20 20 20 20 !(rep)='S'..
015080: 20 20 20 20 20 20 20 20 73 6B 69 70 0D 0A 20 20 skip..
015090: 20 20 20 20 20 20 20 65 6E 64 69 66 0D 0A 20 20 endif..
0150A0: 20 20 20 20 65 6E 64 69 66 0D 0A 20 20 20 20 20 endif..
0150B0: 20 69 66 20 21 28 72 65 70 29 23 27 50 27 2E 61 if !(rep)#'P'.a
0150C0: 6E 64 2E 21 28 72 65 70 29 23 27 53 27 0D 0A 20 nd.!(rep)#'S'..
0150D0: 20 20 20 20 20 20 20 20 72 65 6C 65 61 73 65 20 release
0150E0: 6D 6E 6F 6D 63 2C 72 65 70 2C 74 65 73 74 2C 61 mnomc,rep,test,a
0150F0: 69 67 2C 63 6C 65 2C 63 70 74 2C 63 6F 72 72 65 ig,cle,cpt,corre
015100: 6F 20 77 68 69 6C 65 20 63 70 74 3C 3D 6E 62 7A o while cpt<=nbz
015110: 6F 6E 70 0D 0A 20 20 20 20 20 20 20 20 20 73 74 onp.. st
015120: 6F 72 65 20 27 6D 7A 6F 6E 27 2D 73 74 72 28 6E ore 'mzon'-str(n
015130: 6F 7A 2C 31 2B 69 6E 74 28 6E 6F 7A 2F 31 30 29 oz,1+int(noz/10)
015140: 29 20 74 6F 20 6D 7A 6F 6E 0D 0A 20 20 20 20 20 ) to mzon..
015150: 20 20 20 20 64 6F 20 63 61 73 65 0D 0A 20 20 20 do case..
015160: 20 20 20 20 20 20 63 61 73 65 20 66 69 65 6C 64 case field
015170: 3A 74 79 70 65 3D 27 4E 27 0D 0A 20 20 20 20 20 :type='N'..
015180: 20 20 20 20 73 74 6F 72 65 20 63 6C 65 2B 73 74 store cle+st
015190: 72 28 26 6D 7A 6F 6E 2C 66 69 65 6C 64 3A 6C 65 r(&mzon,field:le
0151A0: 6E 2C 66 69 65 6C 64 3A 64 65 63 29 20 74 6F 20 n,field:dec) to
0151B0: 63 6C 65 0D 0A 20 20 20 20 20 20 20 20 20 63 61 cle.. ca
0151C0: 73 65 20 24 28 76 65 72 69 66 2C 32 2C 31 29 3D se $(verif,2,1)=
0151D0: 27 44 27 0D 0A 20 20 20 20 20 20 20 20 20 73 74 'D'.. st
0151E0: 6F 72 65 20 63 6C 65 2B 24 28 26 6D 7A 6F 6E 2C ore cle+$(&mzon,
0151F0: 37 2C 32 29 2B 24 28 26 6D 7A 6F 6E 2C 34 2C 32 7,2)+$(&mzon,4,2
015200: 29 2B 24 28 26 6D 7A 6F 6E 2C 31 2C 32 29 20 74 )+$(&mzon,1,2) t
015210: 6F 20 63 6C 65 0D 0A 20 20 20 20 20 20 20 20 20 o cle..
015220: 63 61 73 65 20 24 28 76 65 72 69 66 2C 32 2C 31 case $(verif,2,1
015230: 29 3D 27 4D 27 0D 0A 20 20 20 20 20 20 20 20 20 )='M'..
015240: 73 74 6F 72 65 20 63 6C 65 2B 24 28 26 6D 7A 6F store cle+$(&mzo
015250: 6E 2C 34 2C 32 29 2B 24 28 26 6D 7A 6F 6E 2C 31 n,4,2)+$(&mzon,1
015260: 2C 32 29 20 74 6F 20 63 6C 65 0D 0A 20 20 20 20 ,2) to cle..
015270: 20 20 20 20 20 6F 74 68 65 72 77 69 73 65 0D 0A otherwise..
015280: 20 20 20 20 20 20 20 20 20 73 74 6F 72 65 20 63 store c
015290: 6C 65 2B 21 28 26 6D 7A 6F 6E 29 20 74 6F 20 63 le+!(&mzon) to c
0152A0: 6C 65 0D 0A 20 20 20 20 20 20 20 20 20 65 6E 64 le.. end
0152B0: 63 61 73 65 0D 0A 20 20 20 20 20 20 20 20 20 73 case.. s
0152C0: 74 6F 72 65 20 63 70 74 2B 31 20 74 6F 20 63 70 tore cpt+1 to cp
0152D0: 74 0D 0A 20 20 20 20 20 20 20 20 20 73 6B 69 70 t.. skip
0152E0: 0D 0A 20 20 20 20 20 20 20 20 20 65 6E 64 64 6F .. enddo
0152F0: 0D 0A 20 20 20 20 20 20 20 20 20 72 65 6C 65 61 .. relea
015300: 63 74 2C 6E 6F 6D 7A 2C 76 69 64 65 2C 76 65 72 ct,nomz,vide,ver
015310: 32 2C 6D 7A 6F 6E 2C 6D 7A 6F 6E 31 0D 0A 20 20 2,mzon,mzon1..
015320: 20 20 20 20 20 20 20 72 65 6C 65 61 73 65 20 6D release m
015330: 7A 6F 6E 32 2C 6D 7A 6F 6E 33 2C 6D 7A 6F 6E 34 zon2,mzon3,mzon4
015340: 2C 6D 7A 6F 6E 35 2C 74 61 62 76 0D 0A 20 20 20 ,mzon5,tabv..
015350: 20 20 20 20 20 20 72 65 74 75 72 6E 0D 0A 20 20 return..
015360: 20 20 20 20 65 6C 73 65 0D 0A 20 20 20 20 20 20 else..
015370: 20 20 20 73 74 6F 72 65 20 27 73 27 20 74 6F 20 store 's' to
015380: 74 65 73 74 0D 0A 20 20 20 20 20 20 20 20 20 73 test.. s
015390: 74 6F 72 65 20 23 20 74 6F 20 6E 6F 63 6F 75 72 tore # to nocour
0153A0: 0D 0A 20 20 20 20 20 20 65 6E 64 69 66 0D 0A 20 .. endif..
0153B0: 20 20 20 20 20 65 6E 64 63 61 73 65 0D 0A 20 20 endcase..
0153C0: 20 65 6E 64 69 66 0D 0A 65 6E 64 64 6F 0D 0A 72 endif..enddo..r
0153D0: 65 74 75 72 6E 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D eturn...........
0153E0: 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D ................
0153F0: 0A 1A 1A 20 20 65 6E 64 63 61 73 65 0D 0A 20 20 ... endcase..
015400: 20 65 6E 64 69 66 0D 0A 65 6E 64 64 6F 0D 0A 72 endif..enddo..r
015410: 65 74 75 72 6E 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D eturn...........
015420: 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D ................
015430: 0A 1A 1A 0D 0A 65 6E 64 64 6F 0D 0A 72 65 74 75 .....enddo..retu
015440: 72 6E 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A rn..............
015450: 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 1A 1A ................
015460: 20 20 20 20 20 73 6B 69 70 0D 0A 20 20 20 65 6E skip.. en
015470: 64 64 6F 0D 0A 20 20 20 72 65 6C 65 61 73 65 20 ddo.. release
015480: 70 69 63 0D 0A 20 20 20 73 65 74 20 69 6E 74 65 pic.. set inte
015490: 6E 73 69 74 79 20 6F 6E 0D 0A 20 20 20 69 66 20 nsity on.. if
0154A0: 63 68 6F 69 78 20 3D 20 27 35 27 0D 0A 20 20 20 choix = '5'..
0154B0: 20 20 20 63 6C 65 61 72 20 67 65 74 0D 0A 20 20 clear get..
0154C0: 20 20 20 20 73 74 6F 72 65 20 30 20 74 6F 20 6E store 0 to n
0154D0: 6F 6D 65 73 73 0D 0A 20 20 20 65 6C 73 65 0D 0A omess.. else..
0154E0: 20 20 20 20 20 20 72 65 61 64 0D 0A 20 20 20 20 read..
0154F0: 20 20 67 6F 74 6F 20 74 6F 70 0D 0A 20 20 20 20 goto top..
015500: 73 65 20 63 70 74 0D 0A 20 20 20 20 20 20 20 20 se cpt..
015510: 20 73 74 6F 72 65 20 24 28 63 6C 65 2C 32 2C 6C store $(cle,2,l
015520: 65 6E 28 63 6C 65 29 2D 31 29 20 74 6F 20 63 6C en(cle)-1) to cl
015530: 65 0D 0A 20 20 20 20 20 20 20 20 20 73 74 6F 72 e.. stor
015540: 65 20 74 72 69 6D 28 63 6C 65 29 20 74 6F 20 63 e trim(cle) to c
015550: 6C 65 0D 0A 20 20 20 20 20 20 20 20 20 73 65 6C le.. sel
015560: 65 63 74 20 73 65 63 6F 6E 64 61 72 79 0D 0A 20 ect secondary..
015570: 20 20 20 20 20 20 20 20 75 73 65 20 26 6E 6F 6D use &nom
015580: 66 69 63 68 20 69 6E 64 65 78 20 26 6C 69 73 74 fich index &list
015590: 69 6E 64 65 78 0D 0A 20 20 20 20 20 20 20 20 20 index..
0155A0: 69 66 20 63 68 6F 69 78 20 3E 3D 20 22 31 22 20 if choix >= "1"
0155B0: 2E 61 6E 64 2E 20 63 68 6F 69 78 20 3C 3D 20 22 .and. choix <= "
0155C0: 33 22 0D 0A 20 20 20 20 20 20 20 20 20 73 65 74 3".. set
0155D0: 20 65 78 61 63 74 20 6F 6E 0D 0A 20 20 20 20 20 exact on..
0155E0: 20 20 20 20 65 6E 64 69 66 0D 0A 20 20 20 20 20 endif..
0155F0: 20 20 20 20 66 69 6E 64 20 26 63 6C 65 0D 0A 20 find &cle..
015600: 20 20 20 20 20 20 20 20 69 66 20 63 68 6F 69 78 if choix
015610: 3D 27 31 27 2E 61 6E 64 2E 28 23 20 23 20 30 29 ='1'.and.(# # 0)
015620: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 73 74 .. st
015630: 6F 72 65 20 33 20 74 6F 20 6E 6F 6D 65 73 73 0D ore 3 to nomess.
015640: 0A 20 20 20 20 20 20 20 20 20 20 20 20 64 6F 20 . do
015650: 61 66 66 6D 65 73 73 0D 0A 20 20 20 20 20 20 20 affmess..
015660: 20 20 65 6C 73 65 0D 0A 20 20 20 20 20 20 20 20 else..
015670: 20 20 20 20 69 66 20 63 68 6F 69 78 20 23 27 31 if choix #'1
015680: 27 2E 61 6E 64 2E 28 20 23 20 3D 20 30 20 29 0D '.and.( # = 0 ).
015690: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
0156A0: 73 74 6F 72 65 20 34 20 74 6F 20 6E 6F 6D 65 73 store 4 to nomes
0156B0: 73 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 s..
0156C0: 20 20 64 6F 20 61 66 66 6D 65 73 73 0D 0A 20 20 do affmess..
0156D0: 20 20 20 20 20 20 20 20 20 20 65 6C 73 65 0D 0A else..
0156E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 s
0156F0: 74 6F 72 65 20 23 20 74 6F 20 6E 6F 63 6F 75 72 tore # to nocour
015700: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
015710: 12 00 01 00 02 09 4E E5 12 00 41 02 00 00 00 02 ......N...A.....
015720: 12 00 46 02 00 00 00 02 12 00 42 02 00 00 00 02 ..F.......B.....
015730: 12 00 47 02 00 00 00 02 12 00 43 02 00 00 00 02 ..G.......C.....
015740: 12 00 48 02 00 00 00 02 12 00 44 02 00 00 00 02 ..H.......D.....
015750: 12 00 49 02 00 00 00 02 12 00 45 02 00 00 00 02 ..I.......E.....
015760: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
015770: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
015780: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
015790: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0157A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0157B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0157C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0157D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0157E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0157F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
015800: 2A 20 6C 69 73 74 66 69 63 68 3A 20 6C 69 73 74 * listfich: list
015810: 65 20 6C 61 20 73 74 72 75 63 74 75 72 65 20 64 e la structure d
015820: 75 20 66 69 63 68 69 65 72 0D 0A 0D 0A 65 72 61 u fichier....era
015830: 73 65 0D 0A 40 20 31 2C 32 30 20 73 61 79 20 27 se..@ 1,20 say '
015840: 4C 49 53 54 45 20 44 45 20 4C 41 20 53 54 52 55 LISTE DE LA STRU
015850: 43 54 55 52 45 20 44 55 20 46 49 43 48 49 45 52 CTURE DU FICHIER
015860: 27 0D 0A 40 20 31 2C 35 34 20 67 65 74 20 6E 6F '..@ 1,54 get no
015870: 6D 61 66 66 0D 0A 63 6C 65 61 72 20 67 65 74 0D maff..clear get.
015880: 0A 40 20 35 2C 35 20 73 61 79 20 22 76 6F 75 6C .@ 5,5 say "voul
015890: 65 7A 2D 76 6F 75 73 20 76 6F 74 72 65 20 6C 69 ez-vous votre li
0158A0: 73 74 65 20 73 75 72 20 6C 27 69 6D 70 72 69 6D ste sur l'imprim
0158B0: 61 6E 74 65 20 28 4F 3D 6F 75 69 2C 4E 3D 6E 6F ante (O=oui,N=no
0158C0: 6E 29 3A 22 0D 0A 73 74 6F 72 65 20 27 66 27 20 n):"..store 'f'
0158D0: 74 6F 20 63 6F 72 72 65 63 74 0D 0A 64 6F 20 77 to correct..do w
0158E0: 68 69 6C 65 20 63 6F 72 72 65 63 74 3D 27 66 27 hile correct='f'
0158F0: 0D 0A 73 74 6F 72 65 20 27 4E 27 20 74 6F 20 72 ..store 'N' to r
015900: 65 70 0D 0A 40 20 35 2C 36 32 20 67 65 74 20 72 ep..@ 5,62 get r
015910: 65 70 0D 0A 72 65 61 64 0D 0A 73 74 6F 72 65 20 ep..read..store
015920: 21 28 72 65 70 29 20 74 6F 20 72 65 70 0D 0A 64 !(rep) to rep..d
015930: 6F 20 63 61 73 65 0D 0A 63 61 73 65 20 72 65 70 o case..case rep
015940: 3D 27 4F 27 0D 0A 73 65 74 20 70 72 69 6E 74 20 ='O'..set print
015950: 6F 6E 0D 0A 73 65 74 20 66 6F 72 6D 61 74 20 74 on..set format t
015960: 6F 20 70 72 69 6E 74 0D 0A 73 74 6F 72 65 20 27 o print..store '
015970: 74 27 20 74 6F 20 63 6F 72 72 65 63 74 0D 0A 63 t' to correct..c
015980: 61 73 65 20 72 65 70 3D 27 4E 27 0D 0A 73 74 6F ase rep='N'..sto
015990: 72 65 20 27 74 27 20 74 6F 20 63 6F 72 72 65 63 re 't' to correc
0159A0: 74 0D 0A 6F 74 68 65 72 77 69 73 65 0D 0A 73 74 t..otherwise..st
0159B0: 6F 72 65 20 31 20 74 6F 20 6E 6F 6D 65 73 73 0D ore 1 to nomess.
0159C0: 0A 64 6F 20 61 66 66 6D 65 73 73 0D 0A 65 6E 64 .do affmess..end
0159D0: 63 61 73 65 0D 0A 65 6E 64 64 6F 0D 0A 73 74 6F case..enddo..sto
0159E0: 72 65 20 30 20 74 6F 20 63 70 74 0D 0A 73 74 6F re 0 to cpt..sto
0159F0: 72 65 20 31 20 74 6F 20 6C 6F 6E 67 65 6E 67 0D re 1 to longeng.
015A00: 6E 35 0D 0A 20 20 20 6F 74 68 65 72 77 69 73 65 n5.. otherwise
015A10: 0D 0A 20 20 20 73 74 6F 72 65 20 27 20 27 20 74 .. store ' ' t
015A20: 6F 20 6D 7A 6F 6E 33 0D 0A 20 20 20 73 74 6F 72 o mzon3.. stor
015A30: 65 20 27 20 27 20 74 6F 20 6D 7A 6F 6E 34 0D 0A e ' ' to mzon4..
015A40: 20 20 20 73 74 6F 72 65 20 27 20 27 20 74 6F 20 store ' ' to
015A50: 6D 7A 6F 6E 35 0D 0A 20 20 20 65 6E 64 63 61 73 mzon5.. endcas
015A60: 65 0D 0A 20 20 20 40 20 6C 69 67 2B 32 2C 30 20 e.. @ lig+2,0
015A70: 73 61 79 20 6D 7A 6F 6E 31 2B 27 20 27 2B 6D 7A say mzon1+' '+mz
015A80: 6F 6E 32 0D 0A 20 20 20 40 20 6C 69 67 2B 32 2C on2.. @ lig+2,
015A90: 32 38 20 73 61 79 20 6D 7A 6F 6E 33 2B 27 20 20 28 say mzon3+'
015AA0: 20 27 2B 6D 7A 6F 6E 34 2B 27 20 20 27 2B 6D 7A '+mzon4+' '+mz
015AB0: 6F 6E 35 0D 0A 20 20 20 73 74 6F 72 65 20 6C 69 on5.. store li
015AC0: 67 2B 34 20 74 6F 20 6C 69 67 0D 0A 20 20 20 73 g+4 to lig.. s
015AD0: 6B 69 70 0D 0A 20 20 20 69 66 20 65 6F 66 0D 0A kip.. if eof..
015AE0: 20 20 20 20 20 20 3F 0D 0A 20 20 20 20 20 20 3F ?.. ?
015AF0: 20 27 6E 6F 6D 62 72 65 20 64 65 20 7A 6F 6E 65 'nombre de zone
015B00: 73 20 3A 27 2C 63 70 74 2C 27 20 20 20 20 20 20 s :',cpt,'
015B10: 20 20 20 20 20 20 20 20 74 61 69 6C 6C 65 20 65 taille e
015B20: 6E 72 65 67 69 73 74 72 65 6D 65 6E 74 3A 27 2C nregistrement:',
015B30: 6C 6F 6E 67 65 6E 67 0D 0A 20 20 20 20 20 20 69 longeng.. i
015B40: 66 20 72 65 70 3D 27 4E 27 0D 0A 20 20 20 20 20 f rep='N'..
015B50: 20 20 20 20 40 20 6C 69 67 6D 31 2C 30 20 73 61 @ ligm1,0 sa
015B60: 79 20 27 74 61 70 65 7A 20 73 75 72 20 75 6E 65 y 'tapez sur une
015B70: 20 74 6F 75 63 68 65 20 70 6F 75 72 20 63 6F 6E touche pour con
015B80: 74 69 6E 75 65 72 27 0D 0A 20 20 20 20 20 20 20 tinuer'..
015B90: 20 20 73 65 74 20 63 6F 6E 73 6F 6C 65 20 6F 66 set console of
015BA0: 66 0D 0A 20 20 20 20 20 20 20 20 20 77 61 69 74 f.. wait
015BB0: 0D 0A 20 20 20 20 20 20 20 20 20 73 65 74 20 63 .. set c
015BC0: 6F 6E 73 6F 6C 65 20 6F 6E 0D 0A 20 20 20 20 20 onsole on..
015BD0: 20 65 6C 73 65 0D 0A 20 20 20 20 20 20 20 20 20 else..
015BE0: 2A 20 70 6F 75 72 20 76 69 64 65 72 20 6C 65 20 * pour vider le
015BF0: 62 75 66 66 65 72 0D 0A 20 20 20 20 20 20 20 20 buffer..
015C00: 0A 75 73 65 20 26 66 72 65 66 20 69 6E 64 65 78 .use &fref index
015C10: 20 26 78 63 6C 65 0D 0A 67 6F 74 6F 20 74 6F 70 &xcle..goto top
015C20: 0D 0A 73 74 6F 72 65 20 27 66 27 20 74 6F 20 63 ..store 'f' to c
015C30: 6F 72 72 65 63 74 0D 0A 65 72 61 73 65 0D 0A 40 orrect..erase..@
015C40: 20 31 2C 32 36 20 73 61 79 20 27 4C 49 53 54 45 1,26 say 'LISTE
015C50: 20 44 45 20 4C 41 20 53 54 52 55 43 54 55 52 45 DE LA STRUCTURE
015C60: 20 44 55 20 46 49 43 48 49 45 52 20 27 2B 6E 6F DU FICHIER '+no
015C70: 6D 61 66 66 0D 0A 73 74 6F 72 65 20 33 20 74 6F maff..store 3 to
015C80: 20 6C 69 67 0D 0A 64 6F 20 77 68 69 6C 65 20 63 lig..do while c
015C90: 6F 72 72 65 63 74 3D 27 66 27 0D 0A 20 20 20 69 orrect='f'.. i
015CA0: 66 20 6C 69 67 20 3E 20 31 38 2E 61 6E 64 2E 72 f lig > 18.and.r
015CB0: 65 70 3D 27 4E 27 0D 0A 20 20 20 20 20 20 40 20 ep='N'.. @
015CC0: 6C 69 67 6D 31 2C 30 20 73 61 79 20 22 54 41 50 ligm1,0 say "TAP
015CD0: 45 5A 20 46 20 50 4F 55 52 20 46 49 4E 20 4C 49 EZ F POUR FIN LI
015CE0: 53 54 45 2C 20 4E 27 49 4D 50 4F 52 54 45 20 51 STE, N'IMPORTE Q
015CF0: 55 45 4C 4C 45 20 41 55 54 52 45 20 54 4F 55 43 UELLE AUTRE TOUC
015D00: 48 45 20 22 3B 0D 0A 20 20 20 20 20 20 2B 22 50 HE ";.. +"P
015D10: 4F 55 52 20 4C 41 20 53 55 49 54 45 22 0D 0A 20 OUR LA SUITE"..
015D20: 20 20 20 20 20 77 61 69 74 20 74 6F 20 63 68 6F wait to cho
015D30: 69 78 0D 0A 20 20 20 20 20 20 69 66 20 21 28 63 ix.. if !(c
015D40: 68 6F 69 78 29 3D 27 46 27 0D 0A 20 20 20 20 20 hoix)='F'..
015D50: 20 72 65 6C 65 61 73 65 20 63 70 74 2C 6C 6F 6E release cpt,lon
015D60: 67 65 6E 67 2C 72 65 70 2C 6C 69 67 2C 63 6F 72 geng,rep,lig,cor
015D70: 72 65 63 74 2C 6D 7A 6F 6E 31 2C 6D 7A 6F 6E 32 rect,mzon1,mzon2
015D80: 2C 6D 7A 6F 6E 33 2C 6D 7A 6F 6E 34 2C 6D 7A 6F ,mzon3,mzon4,mzo
015D90: 6E 35 0D 0A 20 20 20 20 20 20 72 65 74 75 72 6E n5.. return
015DA0: 0D 0A 20 20 20 20 20 20 65 6C 73 65 0D 0A 20 20 .. else..
015DB0: 20 20 20 20 65 72 61 73 65 0D 0A 20 20 20 20 20 erase..
015DC0: 20 40 20 31 2C 32 36 20 73 61 79 20 27 4C 49 53 @ 1,26 say 'LIS
015DD0: 54 45 20 44 45 20 4C 41 20 53 54 52 55 43 54 55 TE DE LA STRUCTU
015DE0: 52 45 20 44 55 20 46 49 43 48 49 45 52 20 27 2B RE DU FICHIER '+
015DF0: 6E 6F 6D 61 66 66 0D 0A 20 20 20 20 20 20 73 74 nomaff.. st
015E00: 20 73 65 74 20 70 72 69 6E 74 20 6F 6E 0D 0A 20 set print on..
015E10: 20 20 20 20 20 20 20 20 3F 3F 20 63 68 72 28 31 ?? chr(1
015E20: 33 29 0D 0A 20 20 20 20 20 20 20 20 20 73 65 74 3).. set
015E30: 20 70 72 69 6E 74 20 6F 66 66 0D 0A 20 20 20 20 print off..
015E40: 20 20 20 20 20 73 65 74 20 66 6F 72 6D 61 74 20 set format
015E50: 74 6F 20 73 63 72 65 65 6E 0D 0A 20 20 20 20 20 to screen..
015E60: 20 65 6E 64 69 66 0D 0A 20 20 20 20 20 20 72 65 endif.. re
015E70: 6C 65 61 73 65 20 72 65 70 2C 63 6F 72 72 65 63 lease rep,correc
015E80: 74 2C 6C 6F 6E 67 65 6E 67 2C 63 70 74 2C 6C 69 t,longeng,cpt,li
015E90: 67 2C 6D 7A 6F 6E 31 2C 6D 7A 6F 6E 32 2C 6D 7A g,mzon1,mzon2,mz
015EA0: 6F 6E 33 2C 6D 7A 6F 6E 34 2C 6D 7A 6F 6E 35 0D on3,mzon4,mzon5.
015EB0: 0A 20 20 20 20 20 20 72 65 74 75 72 6E 0D 0A 20 . return..
015EC0: 20 20 65 6E 64 69 66 0D 0A 65 6E 64 64 6F 0D 0A endif..enddo..
015ED0: 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 1A 1A 20 20 20 20 ............
015EE0: 3F 20 27 6E 6F 6D 62 72 65 20 64 65 20 7A 6F 6E ? 'nombre de zon
015EF0: 65 73 20 3A 27 2C 63 70 74 2C 27 20 20 20 20 20 es :',cpt,'
015F00: 20 20 20 20 20 20 20 20 20 74 61 69 6C 6C 65 20 taille
015F10: 65 6E 72 65 67 69 73 74 72 65 6D 65 6E 74 3A 27 enregistrement:'
015F20: 2C 6C 6F 6E 67 65 6E 67 0D 0A 20 20 20 20 20 20 ,longeng..
015F30: 69 66 20 72 65 70 3D 27 4E 27 0D 0A 20 20 20 20 if rep='N'..
015F40: 20 20 20 20 20 40 20 6C 69 67 6D 31 2C 30 20 73 @ ligm1,0 s
015F50: 61 79 20 27 74 61 70 65 7A 20 73 75 72 20 75 6E ay 'tapez sur un
015F60: 65 20 74 6F 75 63 68 65 20 70 6F 75 72 20 63 6F e touche pour co
015F70: 6E 74 69 6E 75 65 72 27 0D 0A 20 20 20 20 20 20 ntinuer'..
015F80: 20 20 20 73 65 74 20 63 6F 6E 73 6F 6C 65 20 6F set console o
015F90: 66 66 0D 0A 20 20 20 20 20 20 20 20 20 77 61 69 ff.. wai
015FA0: 74 0D 0A 20 20 20 20 20 20 20 20 20 73 65 74 20 t.. set
015FB0: 63 6F 6E 73 6F 6C 65 20 6F 6E 0D 0A 20 20 20 20 console on..
015FC0: 20 20 65 6C 73 65 0D 0A 20 20 20 20 20 20 20 20 else..
015FD0: 20 2A 20 70 6F 75 72 20 76 69 64 65 72 20 6C 65 * pour vider le
015FE0: 20 62 75 66 66 65 72 0D 0A 20 20 20 20 20 20 20 buffer..
015FF0: 20 20 73 65 74 20 70 72 69 6E 74 20 6F 6E 0D 0A set print on..
016000: 6F 72 65 20 33 20 74 6F 20 6C 69 67 0D 0A 20 20 ore 3 to lig..
016010: 20 20 20 20 65 6E 64 69 66 0D 0A 20 20 20 65 6E endif.. en
016020: 64 69 66 0D 0A 20 20 20 73 74 6F 72 65 20 63 70 dif.. store cp
016030: 74 2B 31 20 74 6F 20 63 70 74 0D 0A 20 20 20 73 t+1 to cpt.. s
016040: 74 6F 72 65 20 6C 6F 6E 67 65 6E 67 2B 66 69 65 tore longeng+fie
016050: 6C 64 3A 6C 65 6E 20 74 6F 20 6C 6F 6E 67 65 6E ld:len to longen
016060: 67 0D 0A 20 20 20 40 20 6C 69 67 2C 30 20 73 61 g.. @ lig,0 sa
016070: 79 20 27 2A 2A 2A 2A 2A 2A 2A 20 20 20 27 2B 66 y '******* '+f
016080: 69 65 6C 64 3A 6E 61 6D 65 2B 27 20 20 20 20 54 ield:name+' T
016090: 59 50 45 3A 20 27 2B 66 69 65 6C 64 3A 74 79 70 YPE: '+field:typ
0160A0: 65 2B 3B 0D 0A 20 20 20 27 20 20 20 20 20 20 20 e+;.. '
0160B0: 4C 4F 4E 47 55 45 55 52 3A 27 0D 0A 20 20 20 40 LONGUEUR:'.. @
0160C0: 20 6C 69 67 2C 34 38 20 73 61 79 20 66 69 65 6C lig,48 say fiel
0160D0: 64 3A 6C 65 6E 20 70 69 63 74 75 72 65 20 27 39 d:len picture '9
0160E0: 39 39 27 0D 0A 20 20 20 40 20 6C 69 67 2C 36 34 99'.. @ lig,64
0160F0: 20 73 61 79 20 27 4E 42 20 44 45 43 49 4D 3A 27 say 'NB DECIM:'
016100: 0D 0A 20 20 20 40 20 6C 69 67 2C 37 34 20 73 61 .. @ lig,74 sa
016110: 79 20 66 69 65 6C 64 3A 64 65 63 20 70 69 63 74 y field:dec pict
016120: 75 72 65 20 27 39 39 39 27 0D 0A 20 20 20 40 20 ure '999'.. @
016130: 6C 69 67 2B 31 2C 30 20 73 61 79 20 27 4C 49 42 lig+1,0 say 'LIB
016140: 45 4C 4C 45 3A 20 27 2B 74 65 78 74 65 2B 27 20 ELLE: '+texte+'
016150: 4C 49 47 3A 27 0D 0A 20 20 20 40 20 6C 69 67 2B LIG:'.. @ lig+
016160: 31 2C 33 35 20 73 61 79 20 6C 74 20 70 69 63 74 1,35 say lt pict
016170: 75 72 65 20 27 39 39 27 0D 0A 20 20 20 40 20 6C ure '99'.. @ l
016180: 69 67 2B 31 2C 33 39 20 73 61 79 20 27 43 4F 4C ig+1,39 say 'COL
016190: 3A 27 0D 0A 20 20 20 40 20 6C 69 67 2B 31 2C 34 :'.. @ lig+1,4
0161A0: 34 20 73 61 79 20 63 74 20 70 69 63 74 75 72 65 4 say ct picture
0161B0: 20 27 39 39 27 0D 0A 20 20 20 40 20 6C 69 67 2B '99'.. @ lig+
0161C0: 31 2C 35 30 20 73 61 79 20 27 53 41 49 53 49 45 1,50 say 'SAISIE
0161D0: 20 41 20 4C 49 47 3A 27 0D 0A 20 20 20 40 20 6C A LIG:'.. @ l
0161E0: 69 67 2B 31 2C 36 34 20 73 61 79 20 6C 73 20 70 ig+1,64 say ls p
0161F0: 69 63 74 75 72 65 20 27 39 39 27 0D 0A 20 20 20 icture '99'..
016200: 2C 30 0D 0A 73 74 6F 72 65 20 75 6E 69 74 2B 6D ,0..store unit+m
016210: 6E 6F 6D 63 20 74 6F 20 6D 6E 6F 6D 63 0D 0A 69 nomc to mnomc..i
016220: 66 20 70 2E 74 79 70 63 3D 27 54 27 0D 0A 20 20 f p.typc='T'..
016230: 20 2A 20 69 6E 64 65 78 20 6E 6F 6E 20 6D 69 73 * index non mis
016240: 20 61 20 6A 6F 75 72 20 61 75 74 6F 6D 61 74 69 a jour automati
016250: 71 75 65 6D 65 6E 74 0D 0A 20 20 20 73 74 6F 72 quement.. stor
016260: 65 20 27 4F 27 20 74 6F 20 6D 6F 64 69 66 0D 0A e 'O' to modif..
016270: 20 20 20 40 20 31 30 2C 30 20 73 61 79 20 27 61 @ 10,0 say 'a
016280: 76 65 7A 2D 76 6F 75 73 20 6D 6F 64 69 66 69 65 vez-vous modifie
016290: 20 76 6F 74 72 65 20 66 69 63 68 69 65 72 20 64 votre fichier d
0162A0: 65 70 75 69 73 20 6C 61 20 64 65 72 6E 69 65 72 epuis la dernier
0162B0: 65 20 6C 69 73 74 65 20 73 75 72 20 3B 0D 0A 20 e liste sur ;..
0162C0: 20 20 63 65 74 74 65 20 63 6C 65 27 0D 0A 20 20 cette cle'..
0162D0: 20 40 20 31 31 2C 30 20 73 61 79 20 27 4F 3D 6F @ 11,0 say 'O=o
0162E0: 75 69 2C 20 4E 3D 6E 6F 6E 20 3D 3D 3D 3E 27 0D ui, N=non ===>'.
0162F0: 0A 20 20 20 73 74 6F 72 65 20 27 66 27 20 74 6F . store 'f' to
016300: 20 63 6F 72 72 65 63 74 0D 0A 20 20 20 64 6F 20 correct.. do
016310: 77 68 69 6C 65 20 63 6F 72 72 65 63 74 3D 27 66 while correct='f
016320: 27 0D 0A 20 20 20 20 20 20 73 65 74 20 69 6E 74 '.. set int
016330: 65 6E 73 69 74 79 20 6F 66 66 0D 0A 20 20 20 20 ensity off..
016340: 20 20 40 20 31 31 2C 32 30 20 67 65 74 20 6D 6F @ 11,20 get mo
016350: 64 69 66 0D 0A 20 20 20 20 20 20 73 65 74 20 69 dif.. set i
016360: 6E 74 65 6E 73 69 74 79 20 6F 6E 0D 0A 20 20 20 ntensity on..
016370: 20 20 20 72 65 61 64 0D 0A 20 20 20 20 20 20 73 read.. s
016380: 74 6F 72 65 20 21 28 6D 6F 64 69 66 29 20 74 6F tore !(modif) to
016390: 20 6D 6F 64 69 66 0D 0A 20 20 20 20 20 20 64 6F modif.. do
0163A0: 20 63 61 73 65 0D 0A 20 20 20 20 20 20 63 61 73 case.. cas
0163B0: 65 20 21 28 6D 6F 64 69 66 29 3D 27 4F 27 0D 0A e !(modif)='O'..
0163C0: 20 20 20 20 20 20 73 65 6C 65 63 74 20 73 65 63 select sec
0163D0: 6F 6E 64 61 72 79 0D 0A 20 20 20 20 20 20 75 73 ondary.. us
0163E0: 65 20 26 6E 6F 6D 66 69 63 68 20 69 6E 64 65 78 e &nomfich index
0163F0: 20 26 6D 6E 6F 6D 63 0D 0A 20 20 20 20 20 20 72 &mnomc.. r
016400: 40 20 6C 69 67 2B 31 2C 37 30 20 73 61 79 20 27 @ lig+1,70 say '
016410: 43 4F 4C 3A 27 0D 0A 20 20 20 40 20 6C 69 67 2B COL:'.. @ lig+
016420: 31 2C 37 35 20 73 61 79 20 63 73 20 70 69 63 74 1,75 say cs pict
016430: 75 72 65 20 27 39 39 27 0D 0A 20 20 20 64 6F 20 ure '99'.. do
016440: 63 61 73 65 0D 0A 20 20 20 63 61 73 65 20 24 28 case.. case $(
016450: 76 65 72 69 66 2C 31 2C 31 29 3D 27 4E 27 0D 0A verif,1,1)='N'..
016460: 20 20 20 73 74 6F 72 65 20 27 5A 4F 4E 45 20 4E store 'ZONE N
016470: 4F 4E 20 4F 42 4C 49 47 41 54 4F 49 52 45 27 20 ON OBLIGATOIRE'
016480: 74 6F 20 6D 7A 6F 6E 31 0D 0A 20 20 20 73 74 6F to mzon1.. sto
016490: 72 65 20 27 20 27 20 74 6F 20 6D 7A 6F 6E 32 0D re ' ' to mzon2.
0164A0: 0A 20 20 20 63 61 73 65 20 24 28 76 65 72 69 66 . case $(verif
0164B0: 2C 31 2C 31 29 3D 27 4F 27 0D 0A 20 20 20 73 74 ,1,1)='O'.. st
0164C0: 6F 72 65 20 27 5A 4F 4E 45 20 4F 42 4C 49 47 41 ore 'ZONE OBLIGA
0164D0: 54 4F 49 52 45 27 20 74 6F 20 6D 7A 6F 6E 31 0D TOIRE' to mzon1.
0164E0: 0A 20 20 20 73 74 6F 72 65 20 27 20 27 20 74 6F . store ' ' to
0164F0: 20 6D 7A 6F 6E 32 0D 0A 20 20 20 63 61 73 65 20 mzon2.. case
016500: 24 28 76 65 72 69 66 2C 31 2C 31 29 3D 27 43 27 $(verif,1,1)='C'
016510: 0D 0A 20 20 20 73 74 6F 72 65 20 27 4F 42 4C 49 .. store 'OBLI
016520: 47 41 54 4F 49 52 45 20 53 49 27 20 74 6F 20 6D GATOIRE SI' to m
016530: 7A 6F 6E 31 0D 0A 20 20 20 73 74 6F 72 65 20 76 zon1.. store v
016540: 61 6C 31 20 74 6F 20 6D 7A 6F 6E 32 0D 0A 20 20 al1 to mzon2..
016550: 20 63 61 73 65 20 24 28 76 65 72 69 66 2C 31 2C case $(verif,1,
016560: 31 29 3D 27 47 27 0D 0A 20 20 20 73 74 6F 72 65 1)='G'.. store
016570: 20 27 53 55 50 45 52 49 45 55 52 20 41 27 20 74 'SUPERIEUR A' t
016580: 6F 20 6D 7A 6F 6E 31 0D 0A 20 20 20 73 74 6F 72 o mzon1.. stor
016590: 65 20 76 61 6C 31 20 74 6F 20 6D 7A 6F 6E 32 0D e val1 to mzon2.
0165A0: 0A 20 20 20 63 61 73 65 20 24 28 76 65 72 69 66 . case $(verif
0165B0: 2C 31 2C 31 29 3D 27 50 27 0D 0A 20 20 20 73 74 ,1,1)='P'.. st
0165C0: 6F 72 65 20 27 49 4E 46 45 52 49 45 55 52 20 41 ore 'INFERIEUR A
0165D0: 27 20 74 6F 20 6D 7A 6F 6E 31 0D 0A 20 20 20 73 ' to mzon1.. s
0165E0: 74 6F 72 65 20 76 61 6C 31 20 74 6F 20 6D 7A 6F tore val1 to mzo
0165F0: 6E 32 0D 0A 20 20 20 65 6E 64 63 61 73 65 0D 0A n2.. endcase..
016600: 2A 20 64 65 6D 63 6C 65 0D 0A 0D 0A 73 65 6C 65 * demcle....sele
016610: 63 74 20 70 72 69 6D 61 72 79 0D 0A 75 73 65 20 ct primary..use
016620: 26 66 65 6C 65 20 69 6E 64 65 78 20 26 78 65 6C &fele index &xel
016630: 65 0D 0A 40 20 37 2C 35 20 73 61 79 20 22 6E 6F e..@ 7,5 say "no
016640: 6D 20 64 65 20 6C 27 69 6E 64 65 78 22 0D 0A 73 m de l'index"..s
016650: 74 6F 72 65 20 27 66 27 20 74 6F 20 63 6F 72 72 tore 'f' to corr
016660: 65 63 74 0D 0A 64 6F 20 77 68 69 6C 65 20 63 6F ect..do while co
016670: 72 72 65 63 74 3D 27 66 27 0D 0A 20 20 20 73 74 rrect='f'.. st
016680: 6F 72 65 20 6E 6F 6D 69 6E 64 70 20 74 6F 20 6D ore nomindp to m
016690: 6E 6F 6D 63 0D 0A 20 20 20 69 66 20 63 68 6F 69 nomc.. if choi
0166A0: 78 20 3D 20 27 35 27 0D 0A 20 20 20 20 20 20 40 x = '5'.. @
0166B0: 20 6C 69 67 6D 31 2C 30 20 73 61 79 20 22 6D 65 ligm1,0 say "me
0166C0: 74 74 72 65 20 6E 6F 6D 20 69 6E 64 65 78 20 61 ttre nom index a
0166D0: 20 62 6C 61 6E 63 20 70 6F 75 72 20 61 62 61 6E blanc pour aban
0166E0: 64 6F 6E 6E 65 72 22 0D 0A 20 20 20 65 6E 64 69 donner".. endi
0166F0: 66 0D 0A 20 20 20 40 20 37 2C 33 30 20 67 65 74 f.. @ 7,30 get
016700: 20 6D 6E 6F 6D 63 0D 0A 20 20 20 72 65 61 64 0D mnomc.. read.
016710: 0A 20 20 20 73 74 6F 72 65 20 21 28 6D 6E 6F 6D . store !(mnom
016720: 63 29 20 74 6F 20 6D 6E 6F 6D 63 0D 0A 20 20 20 c) to mnomc..
016730: 69 66 20 63 68 6F 69 78 3D 27 35 27 2E 61 6E 64 if choix='5'.and
016740: 2E 6D 6E 6F 6D 63 3D 27 20 27 0D 0A 20 20 20 72 .mnomc=' '.. r
016750: 65 74 75 72 6E 0D 0A 20 20 20 65 6E 64 69 66 0D eturn.. endif.
016760: 0A 20 20 20 73 74 6F 72 65 20 27 43 27 2D 6D 6E . store 'C'-mn
016770: 6F 6D 63 20 74 6F 20 63 6C 65 0D 0A 20 20 20 66 omc to cle.. f
016780: 69 6E 64 20 26 63 6C 65 0D 0A 20 20 20 69 66 20 ind &cle.. if
016790: 23 20 3D 20 30 0D 0A 20 20 20 20 20 20 73 74 6F # = 0.. sto
0167A0: 72 65 20 31 36 20 74 6F 20 6E 6F 6D 65 73 73 0D re 16 to nomess.
0167B0: 0A 20 20 20 20 20 20 64 6F 20 61 66 66 6D 65 73 . do affmes
0167C0: 73 0D 0A 20 20 20 65 6C 73 65 0D 0A 20 20 20 20 s.. else..
0167D0: 20 20 73 74 6F 72 65 20 27 74 27 20 74 6F 20 63 store 't' to c
0167E0: 6F 72 72 65 63 74 0D 0A 20 20 20 65 6E 64 69 66 orrect.. endif
0167F0: 0D 0A 65 6E 64 64 6F 0D 0A 40 20 6C 69 67 6D 31 ..enddo..@ ligm1
016800: 20 20 20 64 6F 20 63 61 73 65 0D 0A 20 20 20 63 do case.. c
016810: 61 73 65 20 24 28 76 65 72 69 66 2C 32 2C 31 29 ase $(verif,2,1)
016820: 3D 27 42 27 0D 0A 20 20 20 73 74 6F 72 65 20 27 ='B'.. store '
016830: 45 4E 54 52 45 20 42 4F 52 4E 45 53 27 20 74 6F ENTRE BORNES' to
016840: 20 6D 7A 6F 6E 33 0D 0A 20 20 20 73 74 6F 72 65 mzon3.. store
016850: 20 27 44 45 42 55 54 20 27 2B 24 28 76 61 6C 32 'DEBUT '+$(val2
016860: 2C 31 2C 31 30 29 20 74 6F 20 6D 7A 6F 6E 34 0D ,1,10) to mzon4.
016870: 0A 20 20 20 73 74 6F 72 65 20 27 46 49 4E 20 27 . store 'FIN '
016880: 2B 76 61 6C 33 20 74 6F 20 6D 7A 6F 6E 35 0D 0A +val3 to mzon5..
016890: 20 20 20 63 61 73 65 20 24 28 76 65 72 69 66 2C case $(verif,
0168A0: 32 2C 31 29 3D 27 44 27 0D 0A 20 20 20 73 74 6F 2,1)='D'.. sto
0168B0: 72 65 20 27 44 41 54 45 20 4A 4A 2F 4D 4D 2F 41 re 'DATE JJ/MM/A
0168C0: 41 27 20 74 6F 20 6D 7A 6F 6E 33 0D 0A 20 20 20 A' to mzon3..
0168D0: 73 74 6F 72 65 20 27 44 45 42 55 54 20 27 2B 24 store 'DEBUT '+$
0168E0: 28 76 61 6C 32 2C 31 2C 31 30 29 20 74 6F 20 6D (val2,1,10) to m
0168F0: 7A 6F 6E 34 0D 0A 20 20 20 73 74 6F 72 65 20 27 zon4.. store '
016900: 46 49 4E 20 27 2B 76 61 6C 33 20 74 6F 20 6D 7A FIN '+val3 to mz
016910: 6F 6E 35 0D 0A 20 20 20 63 61 73 65 20 24 28 76 on5.. case $(v
016920: 65 72 69 66 2C 32 2C 31 29 3D 27 4D 27 0D 0A 20 erif,2,1)='M'..
016930: 20 20 73 74 6F 72 65 20 27 44 41 54 45 20 4A 4A store 'DATE JJ
016940: 2F 4D 4D 27 20 74 6F 20 6D 7A 6F 6E 33 0D 0A 20 /MM' to mzon3..
016950: 20 20 73 74 6F 72 65 20 27 44 45 42 55 54 20 27 store 'DEBUT '
016960: 2B 24 28 76 61 6C 32 2C 31 2C 31 30 29 20 74 6F +$(val2,1,10) to
016970: 20 6D 7A 6F 6E 34 0D 0A 20 20 20 73 74 6F 72 65 mzon4.. store
016980: 20 27 46 49 4E 20 27 2B 76 61 6C 33 20 74 6F 20 'FIN '+val3 to
016990: 6D 7A 6F 6E 35 0D 0A 20 20 20 63 61 73 65 20 24 mzon5.. case $
0169A0: 28 76 65 72 69 66 2C 32 2C 31 29 3D 27 4C 27 0D (verif,2,1)='L'.
0169B0: 0A 20 20 20 73 74 6F 72 65 20 27 4C 49 53 54 45 . store 'LISTE
0169C0: 20 44 45 20 43 4F 44 45 53 27 20 74 6F 20 6D 7A DE CODES' to mz
0169D0: 6F 6E 33 0D 0A 20 20 20 73 74 6F 72 65 20 76 61 on3.. store va
0169E0: 6C 32 20 74 6F 20 6D 7A 6F 6E 34 0D 0A 20 20 20 l2 to mzon4..
0169F0: 73 74 6F 72 65 20 27 20 27 20 74 6F 20 6D 7A 6F store ' ' to mzo
016A00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
016A10: 13 00 01 00 02 09 4E E5 13 00 41 02 00 00 00 02 ......N...A.....
016A20: 13 00 46 02 00 00 00 02 13 00 42 02 00 00 00 02 ..F.......B.....
016A30: 13 00 47 02 00 00 00 02 13 00 43 02 00 00 00 02 ..G.......C.....
016A40: 13 00 48 02 00 00 00 02 13 00 44 02 00 00 00 02 ..H.......D.....
016A50: 13 00 49 02 00 00 00 02 13 00 45 02 00 00 00 02 ..I.......E.....
016A60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016A70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016A80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016A90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016AA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016AB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016AC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016AD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016AE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016AF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016B00: 2C 30 0D 0A 73 74 6F 72 65 20 75 6E 69 74 2B 6D ,0..store unit+m
016B10: 6E 6F 6D 63 20 74 6F 20 6D 6E 6F 6D 63 0D 0A 69 nomc to mnomc..i
016B20: 66 20 70 2E 74 79 70 63 3D 27 54 27 0D 0A 20 20 f p.typc='T'..
016B30: 20 2A 20 69 6E 64 65 78 20 6E 6F 6E 20 6D 69 73 * index non mis
016B40: 20 61 20 6A 6F 75 72 20 61 75 74 6F 6D 61 74 69 a jour automati
016B50: 71 75 65 6D 65 6E 74 0D 0A 20 20 20 73 74 6F 72 quement.. stor
016B60: 65 20 27 4F 27 20 74 6F 20 6D 6F 64 69 66 0D 0A e 'O' to modif..
016B70: 20 20 20 40 20 31 30 2C 35 20 73 61 79 20 27 46 @ 10,5 say 'F
016B80: 61 75 74 2D 69 6C 20 72 65 69 6E 64 65 78 65 72 aut-il reindexer
016B90: 20 6C 65 20 66 69 63 68 69 65 72 20 3F 20 20 28 le fichier ? (
016BA0: 4F 3D 6F 75 69 2C 4E 3D 6E 6F 6E 29 20 20 3D 3D O=oui,N=non) ==
016BB0: 3D 3D 3E 27 0D 0A 20 20 20 73 74 6F 72 65 20 27 ==>'.. store '
016BC0: 66 27 20 74 6F 20 63 6F 72 72 65 63 74 0D 0A 20 f' to correct..
016BD0: 20 20 64 6F 20 77 68 69 6C 65 20 63 6F 72 72 65 do while corre
016BE0: 63 74 3D 27 66 27 0D 0A 20 20 20 20 20 20 73 65 ct='f'.. se
016BF0: 74 20 69 6E 74 65 6E 73 69 74 79 20 6F 66 66 0D t intensity off.
016C00: 0A 20 20 20 20 20 20 40 20 31 30 2C 36 30 20 67 . @ 10,60 g
016C10: 65 74 20 6D 6F 64 69 66 0D 0A 20 20 20 20 20 20 et modif..
016C20: 73 65 74 20 69 6E 74 65 6E 73 69 74 79 20 6F 6E set intensity on
016C30: 0D 0A 20 20 20 20 20 20 72 65 61 64 0D 0A 20 20 .. read..
016C40: 20 20 20 20 73 74 6F 72 65 20 21 28 6D 6F 64 69 store !(modi
016C50: 66 29 20 74 6F 20 6D 6F 64 69 66 0D 0A 20 20 20 f) to modif..
016C60: 20 20 20 64 6F 20 63 61 73 65 0D 0A 20 20 20 20 do case..
016C70: 20 20 63 61 73 65 20 21 28 6D 6F 64 69 66 29 3D case !(modif)=
016C80: 27 4F 27 0D 0A 20 20 20 20 20 20 73 65 6C 65 63 'O'.. selec
016C90: 74 20 73 65 63 6F 6E 64 61 72 79 0D 0A 20 20 20 t secondary..
016CA0: 20 20 20 75 73 65 20 26 6E 6F 6D 66 69 63 68 20 use &nomfich
016CB0: 69 6E 64 65 78 20 26 6D 6E 6F 6D 63 0D 0A 20 20 index &mnomc..
016CC0: 20 20 20 20 72 65 69 6E 64 65 78 0D 0A 20 20 20 reindex..
016CD0: 20 20 20 73 74 6F 72 65 20 27 74 27 20 74 6F 20 store 't' to
016CE0: 63 6F 72 72 65 63 74 0D 0A 20 20 20 20 20 20 63 correct.. c
016CF0: 61 73 65 20 21 28 6D 6F 64 69 66 29 23 27 4E 27 ase !(modif)#'N'
016D00: 6C 66 69 6E 3D 27 4E 27 0D 0A 67 6F 74 6F 20 74 lfin='N'..goto t
016D10: 6F 70 0D 0A 73 74 6F 72 65 20 27 20 27 20 74 6F op..store ' ' to
016D20: 20 65 78 70 66 0D 0A 72 65 6C 65 61 73 65 20 63 expf..release c
016D30: 6C 65 2C 6D 6E 6F 6D 63 2C 63 70 74 7A 2C 76 61 le,mnomc,cptz,va
016D40: 6C 64 65 62 2C 65 78 70 64 2C 63 6C 65 31 2C 76 ldeb,expd,cle1,v
016D50: 61 6C 66 69 6E 0D 0A 72 65 74 75 72 6E 0D 0A 65 alfin..return..e
016D60: 6E 64 69 66 0D 0A 69 66 20 76 61 6C 64 65 62 3D ndif..if valdeb=
016D70: 27 4F 27 0D 0A 20 20 20 66 69 6E 64 20 26 63 6C 'O'.. find &cl
016D80: 65 31 0D 0A 20 20 20 69 66 20 23 20 3D 20 30 0D e1.. if # = 0.
016D90: 0A 20 20 20 20 20 20 6C 6F 63 61 74 65 20 66 6F . locate fo
016DA0: 72 20 26 65 78 70 64 0D 0A 20 20 20 20 20 20 69 r &expd.. i
016DB0: 66 20 2E 6E 6F 74 2E 28 26 65 78 70 64 29 2E 6F f .not.(&expd).o
016DC0: 72 2E 65 6F 66 0D 0A 20 20 20 20 20 20 73 6B 69 r.eof.. ski
016DD0: 70 0D 0A 20 20 20 20 20 20 65 6E 64 69 66 0D 0A p.. endif..
016DE0: 20 20 20 65 6E 64 69 66 0D 0A 65 6C 73 65 0D 0A endif..else..
016DF0: 20 20 20 67 6F 74 6F 20 74 6F 70 0D 0A 65 6E 64 goto top..end
016E00: 69 66 0D 0A 69 66 20 76 61 6C 66 69 6E 20 3D 20 if..if valfin =
016E10: 27 4F 27 0D 0A 73 74 6F 72 65 20 27 20 66 6F 72 'O'..store ' for
016E20: 20 27 2B 65 78 70 66 20 74 6F 20 65 78 70 66 0D '+expf to expf.
016E30: 0A 65 6C 73 65 0D 0A 73 74 6F 72 65 20 27 20 27 .else..store ' '
016E40: 20 74 6F 20 65 78 70 66 0D 0A 65 6E 64 69 66 0D to expf..endif.
016E50: 0A 72 65 6C 65 61 73 65 20 63 6C 65 2C 6D 6E 6F .release cle,mno
016E60: 6D 63 2C 63 70 74 7A 2C 76 61 6C 64 65 62 2C 65 mc,cptz,valdeb,e
016E70: 78 70 64 2C 63 6C 65 31 2C 76 61 6C 66 69 6E 0D xpd,cle1,valfin.
016E80: 0A 72 65 74 75 72 6E 0D 0A 0D 0A 0D 0A 0D 0A 0D .return.........
016E90: 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 1A ................
016EA0: 1A 65 6E 64 69 66 0D 0A 20 20 20 72 65 6C 65 61 .endif.. relea
016EB0: 73 65 20 63 6C 65 2C 63 70 74 7A 2C 76 61 6C 64 se cle,cptz,vald
016EC0: 65 62 2C 76 61 6C 66 69 6E 2C 65 78 70 64 2C 63 eb,valfin,expd,c
016ED0: 6C 65 31 0D 0A 20 20 20 72 65 74 75 72 6E 0D 0A le1.. return..
016EE0: 65 6E 64 69 66 0D 0A 69 66 20 76 61 6C 64 65 62 endif..if valdeb
016EF0: 3D 27 4E 27 2E 61 6E 64 2E 76 61 6C 66 69 6E 3D ='N'.and.valfin=
016F00: 0D 0A 20 20 20 20 20 20 73 74 6F 72 65 20 31 20 .. store 1
016F10: 74 6F 20 6E 6F 6D 65 73 73 0D 0A 20 20 20 20 20 to nomess..
016F20: 20 64 6F 20 61 66 66 6D 65 73 73 0D 0A 20 20 20 do affmess..
016F30: 20 20 20 6F 74 68 65 72 77 69 73 65 0D 0A 20 20 otherwise..
016F40: 20 20 20 20 73 74 6F 72 65 20 27 74 27 20 74 6F store 't' to
016F50: 20 63 6F 72 72 65 63 74 0D 0A 20 20 20 20 20 20 correct..
016F60: 65 6E 64 63 61 73 65 0D 0A 20 20 20 65 6E 64 64 endcase.. endd
016F70: 6F 0D 0A 20 20 20 72 65 6C 65 61 73 65 20 6D 6F o.. release mo
016F80: 64 69 66 0D 0A 65 6E 64 69 66 0D 0A 73 65 6C 65 dif..endif..sele
016F90: 63 74 20 73 65 63 6F 6E 64 61 72 79 0D 0A 75 73 ct secondary..us
016FA0: 65 20 26 66 72 65 66 20 69 6E 64 65 78 20 26 78 e &fref index &x
016FB0: 6E 6F 6D 0D 0A 69 66 20 63 68 6F 69 78 20 23 20 nom..if choix #
016FC0: 27 35 27 0D 0A 20 20 20 73 74 6F 72 65 20 31 20 '5'.. store 1
016FD0: 74 6F 20 63 70 74 7A 0D 0A 20 20 20 64 6F 20 77 to cptz.. do w
016FE0: 68 69 6C 65 20 63 70 74 7A 20 3C 3D 20 32 0D 0A hile cptz <= 2..
016FF0: 20 20 20 20 20 20 73 74 6F 72 65 20 27 66 27 20 store 'f'
017000: 74 6F 20 63 6F 72 72 65 63 74 0D 0A 20 20 20 20 to correct..
017010: 20 20 64 6F 20 77 68 69 6C 65 20 63 6F 72 72 65 do while corre
017020: 63 74 3D 27 66 27 0D 0A 20 20 20 20 20 20 20 20 ct='f'..
017030: 20 73 74 6F 72 65 20 27 4E 27 20 74 6F 20 72 65 store 'N' to re
017040: 70 0D 0A 20 20 20 20 20 20 20 20 20 65 72 61 73 p.. eras
017050: 65 0D 0A 20 20 20 20 20 20 20 20 20 69 66 20 63 e.. if c
017060: 70 74 7A 3D 31 0D 0A 20 20 20 20 20 20 20 20 20 ptz=1..
017070: 20 20 20 40 20 31 30 2C 30 20 73 61 79 20 27 76 @ 10,0 say 'v
017080: 6F 75 6C 65 7A 2D 76 6F 75 73 20 64 6F 6E 6E 65 oulez-vous donne
017090: 72 20 75 6E 65 20 76 61 6C 65 75 72 20 64 65 62 r une valeur deb
0170A0: 75 74 20 64 65 20 6C 69 73 74 65 20 27 3B 0D 0A ut de liste ';..
0170B0: 20 20 20 20 20 20 20 20 20 20 20 20 2B 27 28 4F +'(O
0170C0: 3D 6F 75 69 2C 4E 3D 6E 6F 6E 29 20 3D 3D 3D 3D =oui,N=non) ====
0170D0: 3E 27 0D 0A 20 20 20 20 20 20 20 20 20 65 6C 73 >'.. els
0170E0: 65 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 40 e.. @
0170F0: 20 31 30 2C 30 20 73 61 79 20 27 76 6F 75 6C 65 10,0 say 'voule
017100: 65 20 31 35 20 6C 69 73 74 65 73 20 63 72 65 65 e 15 listes cree
017110: 65 73 2E 20 66 61 69 74 65 73 20 6C 65 20 6D 65 es. faites le me
017120: 6E 61 67 65 22 20 74 6F 20 6D 65 73 73 0D 0A 63 nage" to mess..c
017130: 61 73 65 20 6E 6F 6D 65 73 73 20 3D 20 36 0D 0A ase nomess = 6..
017140: 73 74 6F 72 65 20 22 63 65 74 74 65 20 6C 69 73 store "cette lis
017150: 74 65 20 65 78 69 73 74 65 20 64 65 6A 61 22 20 te existe deja"
017160: 74 6F 20 6D 65 73 73 0D 0A 63 61 73 65 20 6E 6F to mess..case no
017170: 6D 65 73 73 20 3D 20 37 0D 0A 73 74 6F 72 65 20 mess = 7..store
017180: 22 63 65 74 74 65 20 6C 69 73 74 65 20 6E 27 65 "cette liste n'e
017190: 78 69 73 74 65 20 70 61 73 22 20 74 6F 20 6D 65 xiste pas" to me
0171A0: 73 73 0D 0A 63 61 73 65 20 6E 6F 6D 65 73 73 20 ss..case nomess
0171B0: 3D 20 38 0D 0A 73 74 6F 72 65 20 22 72 65 70 6F = 8..store "repo
0171C0: 6E 73 65 20 69 6E 63 6F 72 72 65 63 74 65 20 2D nse incorrecte -
0171D0: 20 73 65 75 6C 65 73 20 72 65 70 6F 6E 73 65 73 seules reponses
0171E0: 20 61 64 6D 69 73 65 73 3A 20 4F 20 6F 75 20 4E admises: O ou N
0171F0: 22 20 74 6F 20 6D 65 73 73 0D 0A 63 61 73 65 20 " to mess..case
017200: 6E 6F 6D 65 73 73 20 3D 20 39 0D 0A 73 74 6F 72 nomess = 9..stor
017210: 65 20 22 69 6C 20 79 20 61 20 70 6C 75 73 20 64 e "il y a plus d
017220: 65 20 31 35 20 63 6C 65 73 20 63 72 65 65 65 73 e 15 cles creees
017230: 20 2E 20 66 61 69 74 65 73 20 6C 65 20 6D 65 6E . faites le men
017240: 61 67 65 22 20 74 6F 20 6D 65 73 73 0D 0A 63 61 age" to mess..ca
017250: 73 65 20 6E 6F 6D 65 73 73 20 3D 20 31 30 0D 0A se nomess = 10..
017260: 73 74 6F 72 65 20 22 63 65 74 74 65 20 63 6C 65 store "cette cle
017270: 20 65 78 69 73 74 65 20 64 65 6A 61 22 20 74 6F existe deja" to
017280: 20 6D 65 73 73 0D 0A 63 61 73 65 20 6E 6F 6D 65 mess..case nome
017290: 73 73 20 3D 20 31 31 0D 0A 73 74 6F 72 65 20 22 ss = 11..store "
0172A0: 6C 61 20 70 72 65 6D 69 65 72 65 20 7A 6F 6E 65 la premiere zone
0172B0: 20 64 6F 69 74 20 6F 62 6C 69 67 61 74 6F 69 72 doit obligatoir
0172C0: 65 6D 65 6E 74 20 65 74 72 65 20 72 65 6E 73 65 ement etre rense
0172D0: 69 67 6E 65 65 22 20 74 6F 20 6D 65 73 73 0D 0A ignee" to mess..
0172E0: 63 61 73 65 20 6E 6F 6D 65 73 73 20 3D 20 31 32 case nomess = 12
0172F0: 0D 0A 73 74 6F 72 65 20 22 6C 61 20 7A 6F 6E 65 ..store "la zone
017300: 7A 2D 76 6F 75 73 20 64 6F 6E 6E 65 72 20 75 6E z-vous donner un
017310: 65 20 76 61 6C 65 75 72 20 66 69 6E 20 64 65 20 e valeur fin de
017320: 6C 69 73 74 65 20 27 3B 0D 0A 20 20 20 20 20 20 liste ';..
017330: 20 20 20 20 20 20 2B 27 28 4F 3D 6F 75 69 2C 4E +'(O=oui,N
017340: 3D 6E 6F 6E 29 20 3D 3D 3D 3D 3E 27 0D 0A 20 20 =non) ====>'..
017350: 20 20 20 20 20 20 20 65 6E 64 69 66 0D 0A 20 20 endif..
017360: 20 20 20 20 20 20 20 40 20 31 30 2C 37 35 20 67 @ 10,75 g
017370: 65 74 20 72 65 70 0D 0A 20 20 20 20 20 20 20 20 et rep..
017380: 20 72 65 61 64 0D 0A 20 20 20 20 20 20 20 20 20 read..
017390: 73 74 6F 72 65 20 21 28 72 65 70 29 20 74 6F 20 store !(rep) to
0173A0: 72 65 70 0D 0A 20 20 20 20 20 20 20 20 20 69 66 rep.. if
0173B0: 20 72 65 70 23 27 4F 27 2E 61 6E 64 2E 72 65 70 rep#'O'.and.rep
0173C0: 23 27 4E 27 0D 0A 20 20 20 20 20 20 20 20 20 20 #'N'..
0173D0: 20 20 73 74 6F 72 65 20 31 20 74 6F 20 6E 6F 6D store 1 to nom
0173E0: 65 73 73 0D 0A 20 20 20 20 20 20 20 20 20 20 20 ess..
0173F0: 20 64 6F 20 61 66 66 6D 65 73 73 0D 0A 20 20 20 do affmess..
017400: 20 20 20 20 20 20 65 6C 73 65 0D 0A 20 20 20 20 else..
017410: 20 20 20 20 20 20 20 20 73 74 6F 72 65 20 27 74 store 't
017420: 27 20 74 6F 20 63 6F 72 72 65 63 74 0D 0A 20 20 ' to correct..
017430: 20 20 20 20 20 20 20 20 20 20 69 66 20 63 70 74 if cpt
017440: 7A 3D 31 0D 0A 20 20 20 20 20 20 20 20 20 20 20 z=1..
017450: 20 73 74 6F 72 65 20 72 65 70 20 74 6F 20 76 61 store rep to va
017460: 6C 64 65 62 0D 0A 20 20 20 20 20 20 20 20 20 20 ldeb..
017470: 20 20 65 6C 73 65 0D 0A 20 20 20 20 20 20 20 20 else..
017480: 20 20 20 20 73 74 6F 72 65 20 72 65 70 20 74 6F store rep to
017490: 20 76 61 6C 66 69 6E 0D 0A 20 20 20 20 20 20 20 valfin..
0174A0: 20 20 20 20 20 65 6E 64 69 66 0D 0A 20 20 20 20 endif..
0174B0: 20 20 20 20 20 20 20 20 69 66 20 72 65 70 3D 27 if rep='
0174C0: 4F 27 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 O'..
0174D0: 20 20 20 64 6F 20 64 65 6D 7A 6F 6E 65 0D 0A 20 do demzone..
0174E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 if
0174F0: 20 63 70 74 7A 3D 31 0D 0A 20 20 20 20 20 20 20 cptz=1..
017500: 02 00 00 00 00 00 7A 00 54 59 50 45 4C 45 4D 00 ......z.TYPELEM.
017510: 00 00 00 43 01 B9 70 00 4E 4F 4D 45 4C 45 4D 00 ...C..p.NOMELEM.
017520: 00 00 00 43 08 BA 70 00 4C 49 42 45 4C 45 4D 00 ...C..p.LIBELEM.
017530: 00 00 00 43 1E C2 70 00 4E 42 5A 4F 4E 45 53 00 ...C..p.NBZONES.
017540: 00 00 00 4E 01 E0 70 00 5A 4F 4E 31 00 00 00 00 ...N..p.ZON1....
017550: 00 00 00 43 0A E1 70 00 44 45 42 31 00 00 00 00 ...C..p.DEB1....
017560: 00 00 00 43 03 EB 70 00 46 49 4E 31 00 00 00 00 ...C..p.FIN1....
017570: 00 00 00 43 03 EE 70 00 5A 4F 4E 32 00 00 00 00 ...C..p.ZON2....
017580: 00 00 00 43 0A F1 70 00 44 45 42 32 00 00 00 00 ...C..p.DEB2....
017590: 00 00 00 43 03 FB 70 00 46 49 4E 32 00 00 00 00 ...C..p.FIN2....
0175A0: 00 00 00 43 03 FE 70 00 5A 4F 4E 33 00 00 00 00 ...C..p.ZON3....
0175B0: 00 00 00 43 0A 01 71 00 44 45 42 33 00 00 00 00 ...C..q.DEB3....
0175C0: 00 00 00 43 03 0B 71 00 46 49 4E 33 00 00 00 00 ...C..q.FIN3....
0175D0: 00 00 00 43 03 0E 71 00 5A 4F 4E 34 00 00 00 00 ...C..q.ZON4....
0175E0: 00 00 00 43 0A 11 71 00 44 45 42 34 00 00 00 00 ...C..q.DEB4....
0175F0: 00 00 00 43 03 1B 71 00 46 49 4E 34 00 00 00 00 ...C..q.FIN4....
017600: 00 00 00 43 03 1E 71 00 5A 4F 4E 35 00 00 00 00 ...C..q.ZON5....
017610: 00 00 00 43 0A 21 71 00 44 45 42 35 00 00 00 00 ...C.!q.DEB5....
017620: 00 00 00 43 03 2B 71 00 46 49 4E 35 00 00 00 00 ...C.+q.FIN5....
017630: 00 00 00 43 03 2E 71 00 54 59 50 43 00 00 00 00 ...C..q.TYPC....
017640: 00 00 00 43 01 31 71 00 0D 00 00 00 00 00 00 00 ...C.1q.........
017650: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017660: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017670: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017680: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017690: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0176A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0176B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0176C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0176D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0176E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0176F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017700: 20 20 20 20 20 20 20 20 73 74 6F 72 65 20 63 6C store cl
017710: 65 20 74 6F 20 63 6C 65 31 0D 0A 20 20 20 20 20 e to cle1..
017720: 20 20 20 20 20 20 20 20 20 20 65 6E 64 69 66 0D endif.
017730: 0A 20 20 20 20 20 20 20 20 20 20 20 20 65 6E 64 . end
017740: 69 66 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 if..
017750: 69 66 20 63 70 74 7A 3D 32 0D 0A 20 20 20 20 20 if cptz=2..
017760: 20 20 20 20 20 20 20 20 20 20 69 66 20 76 61 6C if val
017770: 64 65 62 3D 27 4F 27 2E 61 6E 64 2E 76 61 6C 66 deb='O'.and.valf
017780: 69 6E 3D 27 4F 27 0D 0A 20 20 20 20 20 20 20 20 in='O'..
017790: 20 20 20 20 20 20 20 20 20 20 73 74 6F 72 65 20 store
0177A0: 30 20 74 6F 20 6E 6F 6D 65 73 73 0D 0A 20 20 20 0 to nomess..
0177B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 i
0177C0: 66 20 66 69 65 6C 64 3A 74 79 70 65 3D 27 4E 27 f field:type='N'
0177D0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
0177E0: 20 20 20 20 20 20 20 69 66 20 26 63 6C 65 20 3C if &cle <
0177F0: 20 26 63 6C 65 31 0D 0A 20 20 20 20 20 20 20 20 &cle1..
017800: 20 20 20 20 20 20 20 20 20 20 20 20 20 73 74 6F sto
017810: 72 65 20 32 39 20 74 6F 20 6E 6F 6D 65 73 73 0D re 29 to nomess.
017820: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
017830: 20 20 20 20 20 20 65 6E 64 69 66 0D 0A 20 20 20 endif..
017840: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 e
017850: 6C 73 65 0D 0A 20 20 20 20 20 20 20 20 20 20 20 lse..
017860: 20 20 20 20 20 20 20 20 20 20 69 66 20 63 6C 65 if cle
017870: 20 3C 20 63 6C 65 31 0D 0A 20 20 20 20 20 20 20 < cle1..
017880: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 74 st
017890: 6F 72 65 20 32 39 20 74 6F 20 6E 6F 6D 65 73 73 ore 29 to nomess
0178A0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
0178B0: 20 20 20 20 20 20 20 65 6E 64 69 66 0D 0A 20 20 endif..
0178C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0178D0: 65 6E 64 69 66 0D 0A 20 20 20 20 20 20 20 20 20 endif..
0178E0: 20 20 20 20 20 20 20 20 20 69 66 20 6E 6F 6D 65 if nome
0178F0: 73 73 20 23 20 30 0D 0A 20 20 20 20 20 20 20 20 ss # 0..
017900: 00 00 00 00 00 00 00 00 00 1A 0D 0A 2A 20 6C 61 ............* la
017910: 20 7A 6F 6E 65 20 65 73 74 2D 65 6C 6C 65 20 61 zone est-elle a
017920: 6C 70 68 61 62 65 74 69 71 75 65 0D 0A 63 61 73 lphabetique..cas
017930: 65 20 74 79 70 65 20 23 20 27 43 27 0D 0A 73 74 e type # 'C'..st
017940: 6F 72 65 20 31 33 20 74 6F 20 6E 6F 6D 65 73 73 ore 13 to nomess
017950: 0D 0A 64 6F 20 61 66 66 6D 65 73 73 0D 0A 2A 20 ..do affmess..*
017960: 70 6F 73 69 74 69 6F 6E 20 64 65 20 64 65 62 75 position de debu
017970: 74 20 63 6F 72 72 65 63 74 65 20 3F 0D 0A 63 61 t correcte ?..ca
017980: 73 65 20 76 61 6C 28 26 6D 64 65 62 29 20 3D 20 se val(&mdeb) =
017990: 30 2E 6F 72 2E 76 61 6C 28 26 6D 64 65 62 29 3E 0.or.val(&mdeb)>
0179A0: 6C 6F 6E 0D 0A 73 74 6F 72 65 20 31 34 20 74 6F lon..store 14 to
0179B0: 20 6E 6F 6D 65 73 73 0D 0A 64 6F 20 61 66 66 6D nomess..do affm
0179C0: 65 73 73 0D 0A 2A 20 70 6F 73 69 74 69 6F 6E 20 ess..* position
0179D0: 66 69 6E 20 63 6F 72 72 65 63 74 65 20 3F 0D 0A fin correcte ?..
0179E0: 63 61 73 65 20 21 28 26 6D 66 69 6E 29 23 27 46 case !(&mfin)#'F
0179F0: 27 2E 61 6E 64 2E 28 76 61 6C 28 26 6D 66 69 6E '.and.(val(&mfin
017A00: 29 3C 76 61 6C 28 26 6D 64 65 62 29 2E 6F 72 2E )<val(&mdeb).or.
017A10: 76 61 6C 28 26 6D 66 69 6E 29 3E 6C 6F 6E 29 0D val(&mfin)>lon).
017A20: 0A 73 74 6F 72 65 20 31 35 20 74 6F 20 6E 6F 6D .store 15 to nom
017A30: 65 73 73 0D 0A 64 6F 20 61 66 66 6D 65 73 73 0D ess..do affmess.
017A40: 0A 6F 74 68 65 72 77 69 73 65 0D 0A 73 74 6F 72 .otherwise..stor
017A50: 65 20 27 6C 6F 6E 67 27 2D 73 74 72 28 63 70 74 e 'long'-str(cpt
017A60: 69 2C 31 29 20 74 6F 20 6C 6C 6F 6E 67 0D 0A 73 i,1) to llong..s
017A70: 74 6F 72 65 20 6C 6F 6E 20 74 6F 20 26 6C 6C 6F tore lon to &llo
017A80: 6E 67 0D 0A 73 74 6F 72 65 20 63 70 74 69 2B 31 ng..store cpti+1
017A90: 20 74 6F 20 63 70 74 69 0D 0A 73 74 6F 72 65 20 to cpti..store
017AA0: 6C 69 67 69 2B 31 20 74 6F 20 6C 69 67 69 0D 0A ligi+1 to ligi..
017AB0: 65 6E 64 63 61 73 65 0D 0A 65 6E 64 64 6F 0D 0A endcase..enddo..
017AC0: 73 74 6F 72 65 20 63 70 74 69 2D 31 20 74 6F 20 store cpti-1 to
017AD0: 63 70 74 69 6D 61 78 0D 0A 73 65 6C 65 63 74 20 cptimax..select
017AE0: 70 72 69 6D 61 72 79 0D 0A 75 73 65 20 26 66 65 primary..use &fe
017AF0: 6C 65 20 69 6E 64 65 78 20 26 78 65 6C 65 0D 0A le index &xele..
017B00: 20 20 20 20 20 20 20 20 20 20 73 74 6F 72 65 20 store
017B10: 30 20 74 6F 20 63 70 74 7A 0D 0A 20 20 20 20 20 0 to cptz..
017B20: 20 20 20 20 20 20 20 20 20 20 20 20 20 64 6F 20 do
017B30: 61 66 66 6D 65 73 73 0D 0A 20 20 20 20 20 20 20 affmess..
017B40: 20 20 20 20 20 20 20 20 20 20 20 65 6E 64 69 66 endif
017B50: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
017B60: 20 65 6E 64 69 66 0D 0A 20 20 20 20 20 20 20 20 endif..
017B70: 20 20 20 20 65 6E 64 69 66 0D 0A 20 20 20 20 20 endif..
017B80: 20 20 20 20 65 6E 64 69 66 0D 0A 20 20 20 20 20 endif..
017B90: 20 65 6E 64 64 6F 0D 0A 20 20 20 20 20 20 73 74 enddo.. st
017BA0: 6F 72 65 20 63 70 74 7A 2B 31 20 74 6F 20 63 70 ore cptz+1 to cp
017BB0: 74 7A 0D 0A 20 20 20 65 6E 64 64 6F 0D 0A 20 20 tz.. enddo..
017BC0: 20 72 65 6C 65 61 73 65 20 72 65 70 0D 0A 65 6C release rep..el
017BD0: 73 65 0D 0A 20 20 20 73 74 6F 72 65 20 31 20 74 se.. store 1 t
017BE0: 6F 20 63 70 74 7A 0D 0A 20 20 20 64 6F 20 64 65 o cptz.. do de
017BF0: 6D 7A 6F 6E 65 0D 0A 65 6E 64 69 66 0D 0A 73 65 mzone..endif..se
017C00: 6C 65 63 74 20 73 65 63 6F 6E 64 61 72 79 0D 0A lect secondary..
017C10: 75 73 65 20 26 6E 6F 6D 66 69 63 68 20 69 6E 64 use &nomfich ind
017C20: 65 78 20 26 6D 6E 6F 6D 63 0D 0A 69 66 20 63 68 ex &mnomc..if ch
017C30: 6F 69 78 3D 27 35 27 0D 0A 20 20 20 66 69 6E 64 oix='5'.. find
017C40: 20 26 63 6C 65 0D 0A 20 20 20 69 66 20 23 20 3D &cle.. if # =
017C50: 20 30 0D 0A 20 20 20 20 20 20 6C 6F 63 61 74 65 0.. locate
017C60: 20 66 6F 72 20 26 65 78 70 64 0D 0A 20 20 20 20 for &expd..
017C70: 20 20 69 66 20 2E 6E 6F 74 2E 28 26 65 78 70 64 if .not.(&expd
017C80: 29 2E 6F 72 2E 65 6F 66 0D 0A 20 20 20 20 20 20 ).or.eof..
017C90: 73 6B 69 70 0D 0A 20 20 20 20 20 20 65 6E 64 69 skip.. endi
017CA0: 66 0D 0A 20 20 20 65 6E 64 69 66 0D 0A 20 20 20 f.. endif..
017CB0: 72 65 6C 65 61 73 65 20 63 6C 65 2C 63 70 74 7A release cle,cptz
017CC0: 2C 76 61 6C 64 65 62 2C 76 61 6C 66 69 6E 2C 65 ,valdeb,valfin,e
017CD0: 78 70 64 2C 63 6C 65 31 0D 0A 20 20 20 72 65 74 xpd,cle1.. ret
017CE0: 75 72 6E 0D 0A 65 6E 64 69 66 0D 0A 69 66 20 76 urn..endif..if v
017CF0: 61 6C 64 65 62 3D 27 4E 27 2E 61 6E 64 2E 76 61 aldeb='N'.and.va
017D00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
017D10: 14 00 01 00 02 09 4E E5 14 00 41 02 00 00 00 02 ......N...A.....
017D20: 14 00 46 02 00 00 00 02 14 00 42 02 00 00 00 02 ..F.......B.....
017D30: 14 00 47 02 00 00 00 02 14 00 43 02 00 00 00 02 ..G.......C.....
017D40: 14 00 48 02 00 00 00 02 14 00 44 02 00 00 00 02 ..H.......D.....
017D50: 14 00 49 02 00 00 00 02 14 00 45 02 00 00 00 02 ..I.......E.....
017D60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017D70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017D80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017D90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017DA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017DB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017DC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017DD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017DE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017DF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017E00: 02 02 00 02 0C 56 46 00 4E 4F 4D 46 00 00 00 00 .....VF.NOMF....
017E10: 00 00 00 43 08 B9 70 00 49 4E 54 49 54 46 00 00 ...C..p.INTITF..
017E20: 00 00 00 43 1E C1 70 00 54 49 54 52 45 46 00 00 ...C..p.TITREF..
017E30: 00 00 00 43 1E DF 70 00 55 54 49 4C 49 53 45 00 ...C..p.UTILISE.
017E40: 00 00 00 43 01 FD 70 00 0D 00 00 00 00 00 00 00 ...C..p.........
017E50: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017E60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017E70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017E80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017E90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017EA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017EB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017EC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017ED0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017EE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017EF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017F00: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017F10: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017F20: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017F30: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017F40: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017F50: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017F60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017F70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017F80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017F90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017FA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017FB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017FC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017FD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017FE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017FF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
018000: 00 00 00 00 00 00 00 00 00 1A 6E 6F 63 6C 61 73 ..........noclas
018010: 73 65 20 20 20 33 20 35 4E 4F 20 43 4C 41 53 53 se 3 5NO CLASS
018020: 45 20 20 20 20 20 20 20 20 20 20 20 20 33 32 35 E 325
018030: 20 43 20 20 33 20 20 30 78 20 6E 6F 6D 20 20 20 C 3 0x nom
018040: 20 20 20 20 20 34 20 35 4E 4F 4D 20 45 4C 45 56 4 5NOM ELEV
018050: 45 20 20 20 20 20 20 20 20 20 20 20 20 34 32 35 E 425
018060: 20 43 20 32 30 20 20 30 78 20 50 52 45 4E 4F 4D C 20 0x PRENOM
018070: 20 20 20 20 20 36 20 35 50 52 45 4E 4F 4D 20 45 6 5PRENOM E
018080: 4C 45 56 45 20 20 20 20 20 20 20 20 20 36 32 35 LEVE 625
018090: 20 43 20 32 30 20 20 30 20 20 41 42 53 20 20 20 C 20 0 ABS
0180A0: 20 20 20 20 31 30 20 35 41 42 53 45 4E 54 20 20 10 5ABSENT
0180B0: 20 20 20 20 20 20 20 20 20 20 20 20 31 32 20 35 12 5
0180C0: 20 43 20 20 31 20 20 30 20 20 65 78 63 20 20 20 C 1 0 exc
0180D0: 20 20 20 20 31 35 20 35 65 78 63 75 73 65 20 20 15 5excuse
0180E0: 20 20 20 20 20 20 20 20 20 20 20 20 31 35 32 30 1520
0180F0: 20 43 20 20 31 20 20 30 20 1A 20 20 30 20 1A 20 C 1 0 . 0 .
018100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 1A .
018130: 20 20 20 20 20 20 20 3D 3D 3D 3D 3E 20 35 27 0D ====> 5'.
018140: 0A 40 20 31 32 2C 31 30 20 73 61 79 20 27 69 6D .@ 12,10 say 'im
018150: 70 72 65 73 73 69 6F 6E 20 20 20 20 20 20 20 20 pression
018160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018170: 3D 3D 3D 3D 3E 20 36 27 0D 0A 40 20 31 33 2C 31 ====> 6'..@ 13,1
018180: 30 20 73 61 79 20 27 67 65 73 74 69 6F 6E 20 64 0 say 'gestion d
018190: 65 73 20 63 6C 65 73 20 64 65 20 72 65 63 68 65 es cles de reche
0181A0: 72 63 68 65 20 20 20 20 20 3D 3D 3D 3D 3E 20 37 rche ====> 7
0181B0: 27 0D 0A 40 20 31 34 2C 31 30 20 73 61 79 20 27 '..@ 14,10 say '
0181C0: 66 69 6E 20 61 70 70 6C 69 63 61 74 69 6F 6E 20 fin application
0181D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0181E0: 20 20 3D 3D 3D 3D 3E 20 38 27 0D 0A 40 20 31 37 ====> 8'..@ 17
0181F0: 2C 34 35 20 53 41 59 20 22 2B 2D 2D 2D 2D 2D 2D ,45 SAY "+------
018200: 00 00 00 00 00 00 00 00 00 20 31 20 20 20 20 20 ......... 1
018210: 20 20 30 32 2F 31 32 2F 38 36 61 3A 36 31 32 38 02/12/86a:6128
018220: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018230: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018240: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018250: 50 52 4F 53 50 45 43 54 45 58 45 4D 50 4C 45 20 PROSPECTEXEMPLE
018260: 44 27 41 50 50 4C 49 43 41 54 49 4F 4E 20 4E 4F D'APPLICATION NO
018270: 20 31 20 20 20 20 47 45 53 54 49 4F 4E 20 43 4F 1 GESTION CO
018280: 4D 4D 45 52 43 49 41 4C 45 20 4E 4F 20 31 20 20 MMERCIALE NO 1
018290: 20 20 20 20 20 1A 54 4F 54 4F 20 20 20 20 54 4F .TOTO TO
0182A0: 54 4F 20 4C 49 42 45 52 45 20 20 20 20 20 20 20 TO LIBERE
0182B0: 20 20 20 20 20 20 20 20 20 20 20 20 54 4F 54 4F TOTO
0182C0: 20 4C 49 42 52 45 20 20 20 20 20 20 20 20 20 20 LIBRE
0182D0: 20 20 20 20 20 20 20 20 20 20 20 20 50 52 4F 53 PROS
0182E0: 50 45 43 54 45 58 45 4D 50 4C 45 20 44 27 41 50 PECTEXEMPLE D'AP
0182F0: 50 4C 49 43 41 54 49 4F 4E 20 4E 4F 20 31 20 20 PLICATION NO 1
018300: 20 20 47 45 53 54 49 4F 4E 20 43 4F 4D 4D 45 52 GESTION COMMER
018310: 43 49 41 4C 45 20 4E 4F 20 31 20 20 20 20 20 20 CIALE NO 1
018320: 20 2A 55 4C 54 20 20 20 20 20 20 20 20 20 20 20 *ULT
018330: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018340: 20 20 20 20 20 20 20 20 75 6C 74 20 20 20 20 20 ult
018350: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018360: 20 20 20 20 20 20 20 1A 47 49 47 49 20 20 20 20 .GIGI
018370: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018380: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 49 GI
018390: 47 49 20 20 20 20 20 20 20 20 20 20 20 20 20 20 GI
0183A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 47 4F *GO
0183B0: 47 4F 20 20 20 20 20 20 20 20 20 20 20 20 20 20 GO
0183C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0183D0: 20 20 20 20 47 4F 47 4F 20 20 20 20 20 20 20 20 GOGO
0183E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0183F0: 20 20 20 2A 4C 4F 4E 47 20 20 20 20 20 20 20 20 *LONG
018400: 2A 20 76 65 72 7A 6F 6E 65 3A 20 20 64 65 66 69 * verzone: defi
018410: 6E 69 74 69 6F 6E 20 64 65 73 20 6F 70 74 69 6F nition des optio
018420: 6E 73 20 64 65 20 63 6F 6E 74 72 6F 6C 65 20 64 ns de controle d
018430: 27 75 6E 65 20 7A 6F 6E 65 0D 0A 0D 0A 2A 20 64 'une zone....* d
018440: 65 6D 61 6E 64 65 72 20 6C 65 73 20 76 65 72 69 emander les veri
018450: 66 69 63 61 74 69 6F 6E 73 20 61 20 66 61 69 72 fications a fair
018460: 65 0D 0A 65 72 61 73 65 0D 0A 73 74 6F 72 65 20 e..erase..store
018470: 27 66 27 20 74 6F 20 63 6F 72 72 65 63 74 0D 0A 'f' to correct..
018480: 40 20 31 2C 32 36 20 73 61 79 20 27 56 45 52 49 @ 1,26 say 'VERI
018490: 46 49 43 41 54 49 4F 4E 53 20 41 20 46 41 49 52 FICATIONS A FAIR
0184A0: 45 20 53 55 52 20 43 45 54 54 45 20 5A 4F 4E 45 E SUR CETTE ZONE
0184B0: 27 0D 0A 40 20 33 2C 35 20 73 61 79 20 27 63 6F '..@ 3,5 say 'co
0184C0: 6D 6D 65 6E 74 20 6C 61 20 7A 6F 6E 65 20 64 6F mment la zone do
0184D0: 69 74 2D 65 6C 6C 65 20 65 74 72 65 20 72 65 6D it-elle etre rem
0184E0: 70 6C 69 65 20 3F 27 0D 0A 40 20 35 2C 35 20 73 plie ?'..@ 5,5 s
0184F0: 61 79 20 22 6C 61 20 7A 6F 6E 65 20 70 65 75 74 ay "la zone peut
018500: 20 6E 65 20 70 61 73 20 65 74 72 65 20 72 65 6D ne pas etre rem
018510: 70 6C 69 65 20 20 20 20 20 20 20 20 20 20 20 20 plie
018520: 20 20 3D 3D 3D 3D 3E 20 4E 22 0D 0A 40 20 36 2C ====> N"..@ 6,
018530: 35 20 73 61 79 20 22 6C 61 20 7A 6F 6E 65 20 64 5 say "la zone d
018540: 6F 69 74 20 65 74 72 65 20 6F 62 6C 69 67 61 74 oit etre obligat
018550: 6F 69 72 65 6D 65 6E 74 20 72 65 6E 73 65 69 67 oirement renseig
018560: 6E 65 65 20 20 3D 3D 3D 3D 3E 20 4F 22 0D 0A 40 nee ====> O"..@
018570: 20 37 2C 35 20 73 61 79 20 22 6C 61 20 7A 6F 6E 7,5 say "la zon
018580: 65 20 64 6F 69 74 20 65 74 72 65 20 72 65 6E 73 e doit etre rens
018590: 65 69 67 6E 65 65 20 73 69 20 75 6E 65 20 61 75 eignee si une au
0185A0: 74 72 65 20 20 20 20 20 20 20 20 20 20 20 20 22 tre "
0185B0: 0D 0A 40 20 38 2C 35 20 73 61 79 20 22 7A 6F 6E ..@ 8,5 say "zon
0185C0: 65 20 65 73 74 20 72 65 6E 73 65 69 67 6E 65 65 e est renseignee
0185D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0185E0: 20 20 20 20 20 20 20 20 20 20 20 3D 3D 3D 3D 3E ====>
0185F0: 20 43 22 0D 0A 69 66 20 6D 74 79 70 65 20 23 20 C"..if mtype #
018600: 6C 65 20 63 6F 72 72 65 63 74 3D 27 66 27 0D 0A le correct='f'..
018610: 20 20 20 20 20 20 40 20 35 2C 36 30 20 67 65 74 @ 5,60 get
018620: 20 75 6E 69 74 0D 0A 20 20 20 20 20 20 72 65 61 unit.. rea
018630: 64 0D 0A 20 20 20 20 20 20 63 6C 65 61 72 20 67 d.. clear g
018640: 65 74 0D 0A 20 20 20 20 20 20 69 66 20 21 28 75 et.. if !(u
018650: 6E 69 74 29 23 27 41 3A 27 2E 61 6E 64 2E 21 28 nit)#'A:'.and.!(
018660: 75 6E 69 74 29 23 27 42 3A 27 2E 61 6E 64 2E 21 unit)#'B:'.and.!
018670: 28 75 6E 69 74 29 23 27 4D 3A 27 2E 6F 72 2E 21 (unit)#'M:'.or.!
018680: 28 75 6E 69 74 29 3D 27 4D 27 2E 61 6E 64 2E 3B (unit)='M'.and.;
018690: 0D 0A 20 20 20 20 20 20 6C 69 67 6D 31 3D 32 30 .. ligm1=20
0186A0: 0D 0A 20 20 20 20 20 20 20 20 20 73 74 6F 72 65 .. store
0186B0: 20 31 20 74 6F 20 6E 6F 6D 65 73 73 0D 0A 20 20 1 to nomess..
0186C0: 20 20 20 20 20 20 20 64 6F 20 61 66 66 6D 65 73 do affmes
0186D0: 73 0D 0A 20 20 20 20 20 20 65 6C 73 65 0D 0A 20 s.. else..
0186E0: 20 20 20 20 20 20 20 20 73 74 6F 72 65 20 27 74 store 't
0186F0: 27 20 74 6F 20 63 6F 72 72 65 63 74 0D 0A 20 20 ' to correct..
018700: 20 20 20 20 65 6E 64 69 66 0D 0A 20 20 20 65 6E endif.. en
018710: 64 64 6F 0D 0A 20 20 20 75 73 65 20 67 65 73 74 ddo.. use gest
018720: 66 69 63 68 0D 0A 20 20 20 67 6F 74 6F 20 74 6F fich.. goto to
018730: 70 0D 0A 20 20 20 73 74 6F 72 65 20 69 6E 74 69 p.. store inti
018740: 74 66 20 74 6F 20 6D 69 6E 74 69 74 66 0D 0A 20 tf to mintitf..
018750: 20 20 73 74 6F 72 65 20 24 28 6D 69 6E 74 69 74 store $(mintit
018760: 66 2C 31 2C 38 29 2D 75 6E 69 74 2D 24 28 6D 69 f,1,8)-unit-$(mi
018770: 6E 74 69 74 66 2C 31 31 2C 34 29 20 74 6F 20 6D ntitf,11,4) to m
018780: 69 6E 74 69 74 66 0D 0A 20 20 20 72 65 70 6C 61 intitf.. repla
018790: 63 65 20 69 6E 74 69 74 66 20 77 69 74 68 20 6D ce intitf with m
0187A0: 69 6E 74 69 74 66 0D 0A 20 20 20 72 65 6C 65 61 intitf.. relea
0187B0: 73 65 20 6D 69 6E 74 69 74 66 2C 63 6F 72 72 65 se mintitf,corre
0187C0: 63 74 0D 0A 20 20 20 63 61 73 65 20 21 28 72 65 ct.. case !(re
0187D0: 70 29 20 3D 20 27 46 27 0D 0A 20 20 20 69 66 20 p) = 'F'.. if
0187E0: 21 28 75 6E 69 74 29 3D 27 4D 3A 27 0D 0A 20 20 !(unit)='M:'..
0187F0: 20 20 20 20 3F 0D 0A 20 20 20 20 20 20 3F 0D 0A ?.. ?..
018800: 27 4C 27 0D 0A 40 20 39 2C 35 20 73 61 79 20 22 'L'..@ 9,5 say "
018810: 6C 61 20 7A 6F 6E 65 20 64 6F 69 74 20 65 74 72 la zone doit etr
018820: 65 20 70 6C 75 73 20 67 72 61 6E 64 65 20 6F 75 e plus grande ou
018830: 20 65 67 61 6C 65 20 61 20 20 20 20 20 20 20 20 egale a
018840: 20 20 20 20 20 22 0D 0A 40 20 31 30 2C 35 20 73 "..@ 10,5 s
018850: 61 79 20 22 75 6E 65 20 61 75 74 72 65 20 7A 6F ay "une autre zo
018860: 6E 65 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ne
018870: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018880: 20 20 3D 3D 3D 3D 3E 20 47 22 0D 0A 40 20 31 31 ====> G"..@ 11
018890: 2C 35 20 73 61 79 20 22 6C 61 20 7A 6F 6E 65 20 ,5 say "la zone
0188A0: 64 6F 69 74 20 65 74 72 65 20 70 6C 75 73 20 70 doit etre plus p
0188B0: 65 74 69 74 65 20 6F 75 20 65 67 61 6C 65 20 61 etite ou egale a
0188C0: 20 20 20 20 20 20 20 20 20 20 20 20 22 0D 0A 40 "..@
0188D0: 20 31 32 2C 35 20 73 61 79 20 22 75 6E 65 20 61 12,5 say "une a
0188E0: 75 74 72 65 20 7A 6F 6E 65 20 20 20 20 20 20 20 utre zone
0188F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018900: 20 20 20 20 20 20 20 20 20 3D 3D 3D 3D 3E 20 50 ====> P
018910: 22 0D 0A 65 6E 64 69 66 0D 0A 64 6F 20 77 68 69 "..endif..do whi
018920: 6C 65 20 63 6F 72 72 65 63 74 3D 27 66 27 0D 0A le correct='f'..
018930: 20 20 20 73 74 6F 72 65 20 27 4E 27 20 74 6F 20 store 'N' to
018940: 72 65 70 0D 0A 20 20 20 40 20 31 35 2C 35 20 73 rep.. @ 15,5 s
018950: 61 79 20 22 72 65 70 6F 6E 73 65 20 3D 3D 3D 3D ay "reponse ====
018960: 3E 22 0D 0A 20 20 20 73 65 74 20 69 6E 74 65 6E >".. set inten
018970: 73 69 74 79 20 6F 66 66 0D 0A 20 20 20 40 20 31 sity off.. @ 1
018980: 35 2C 32 35 20 67 65 74 20 72 65 70 0D 0A 20 20 5,25 get rep..
018990: 20 73 65 74 20 69 6E 74 65 6E 73 69 74 79 20 6F set intensity o
0189A0: 6E 0D 0A 20 20 20 72 65 61 64 0D 0A 20 20 20 73 n.. read.. s
0189B0: 74 6F 72 65 20 21 28 72 65 70 29 20 74 6F 20 72 tore !(rep) to r
0189C0: 65 70 0D 0A 20 20 20 64 6F 20 63 61 73 65 0D 0A ep.. do case..
0189D0: 20 20 20 63 61 73 65 20 72 65 70 3D 27 4E 27 2E case rep='N'.
0189E0: 6F 72 2E 72 65 70 3D 27 4F 27 0D 0A 20 20 20 73 or.rep='O'.. s
0189F0: 74 6F 72 65 20 27 74 27 20 74 6F 20 63 6F 72 72 tore 't' to corr
018A00: 20 20 20 20 20 20 3F 20 22 41 54 54 45 4E 54 49 ? "ATTENTI
018A10: 4F 4E 3A 20 4E 27 6F 75 62 6C 69 65 7A 20 70 61 ON: N'oubliez pa
018A20: 73 20 64 65 20 73 61 75 76 65 67 61 72 64 65 72 s de sauvegarder
018A30: 20 6C 65 73 20 64 6F 6E 6E 65 65 73 20 71 75 69 les donnees qui
018A40: 20 73 6F 6E 74 20 73 75 72 22 3B 0D 0A 20 20 20 sont sur";..
018A50: 20 20 20 2B 22 20 6D 3A 20 61 75 20 6D 6F 79 65 +" m: au moye
018A60: 6E 20 64 65 20 22 0D 0A 20 20 20 20 20 20 3F 20 n de ".. ?
018A70: 22 6C 27 75 74 69 6C 69 74 61 69 72 65 20 50 49 "l'utilitaire PI
018A80: 50 20 2D 20 54 61 70 65 7A 20 73 75 72 20 75 6E P - Tapez sur un
018A90: 65 20 74 6F 75 63 68 65 20 70 6F 75 72 20 71 75 e touche pour qu
018AA0: 69 74 74 65 72 20 6C 27 61 70 70 6C 69 63 61 74 itter l'applicat
018AB0: 69 6F 6E 22 0D 0A 20 20 20 20 20 20 73 65 74 20 ion".. set
018AC0: 63 6F 6E 73 6F 6C 65 20 6F 66 66 0D 0A 20 20 20 console off..
018AD0: 20 20 20 77 61 69 74 0D 0A 20 20 20 20 20 20 73 wait.. s
018AE0: 65 74 20 63 6F 6E 73 6F 6C 65 20 6F 6E 0D 0A 20 et console on..
018AF0: 20 20 65 6E 64 69 66 0D 0A 20 20 20 71 75 69 74 endif.. quit
018B00: 0D 0A 20 20 20 6F 74 68 65 72 77 69 73 65 0D 0A .. otherwise..
018B10: 20 20 20 2A 20 61 66 66 69 63 68 65 72 20 75 6E * afficher un
018B20: 20 6D 65 73 73 61 67 65 20 64 27 65 72 72 65 75 message d'erreu
018B30: 72 0D 0A 20 20 20 73 74 6F 72 65 20 31 20 74 6F r.. store 1 to
018B40: 20 6E 6F 6D 65 73 73 0D 0A 20 20 20 64 6F 20 61 nomess.. do a
018B50: 66 66 6D 65 73 73 0D 0A 20 20 20 65 6E 64 63 61 ffmess.. endca
018B60: 73 65 0D 0A 20 20 20 73 65 6C 65 63 74 20 70 72 se.. select pr
018B70: 69 6D 61 72 79 0D 0A 20 20 20 75 73 65 0D 0A 20 imary.. use..
018B80: 20 20 73 65 6C 65 63 74 20 73 65 63 6F 6E 64 61 select seconda
018B90: 72 79 0D 0A 20 20 20 75 73 65 0D 0A 20 20 20 73 ry.. use.. s
018BA0: 65 6C 65 63 74 20 70 72 69 6D 61 72 79 0D 0A 20 elect primary..
018BB0: 20 20 73 74 6F 72 65 20 27 74 27 20 74 6F 20 74 store 't' to t
018BC0: 65 73 74 31 0D 0A 20 20 20 73 74 6F 72 65 20 27 est1.. store '
018BD0: 66 27 20 74 6F 20 72 65 70 72 69 73 65 0D 0A 65 f' to reprise..e
018BE0: 6E 64 64 6F 0D 0A 72 65 74 75 72 6E 0D 0A 0D 0A nddo..return....
018BF0: 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 1A 1A 70 70 6C 69 ............ppli
018C00: 65 63 74 0D 0A 20 20 20 63 61 73 65 20 28 72 65 ect.. case (re
018C10: 70 3D 27 47 27 2E 6F 72 2E 72 65 70 3D 27 50 27 p='G'.or.rep='P'
018C20: 29 2E 61 6E 64 2E 6D 74 79 70 65 3D 27 4C 27 0D ).and.mtype='L'.
018C30: 0A 20 20 20 73 74 6F 72 65 20 33 31 20 74 6F 20 . store 31 to
018C40: 6E 6F 6D 65 73 73 0D 0A 20 20 20 64 6F 20 61 66 nomess.. do af
018C50: 66 6D 65 73 73 0D 0A 20 20 20 63 61 73 65 20 72 fmess.. case r
018C60: 65 70 3D 27 43 27 2E 6F 72 2E 72 65 70 3D 27 47 ep='C'.or.rep='G
018C70: 27 2E 6F 72 2E 72 65 70 3D 27 50 27 0D 0A 20 20 '.or.rep='P'..
018C80: 20 73 74 6F 72 65 20 27 20 20 20 20 20 20 20 20 store '
018C90: 20 20 27 20 74 6F 20 6E 6F 6D 7A 0D 0A 20 20 20 ' to nomz..
018CA0: 40 20 31 37 2C 35 20 73 61 79 20 22 6E 6F 6D 20 @ 17,5 say "nom
018CB0: 64 65 20 6C 27 61 75 74 72 65 20 7A 6F 6E 65 22 de l'autre zone"
018CC0: 0D 0A 20 20 20 40 20 31 37 2C 33 35 20 67 65 74 .. @ 17,35 get
018CD0: 20 6E 6F 6D 7A 0D 0A 20 20 20 72 65 61 64 0D 0A nomz.. read..
018CE0: 20 20 20 73 74 6F 72 65 20 21 28 6E 6F 6D 7A 29 store !(nomz)
018CF0: 20 74 6F 20 6E 6F 6D 7A 0D 0A 20 20 20 66 69 6E to nomz.. fin
018D00: 64 20 26 6E 6F 6D 7A 0D 0A 20 20 20 69 66 20 23 d &nomz.. if #
018D10: 20 3D 20 30 0D 0A 20 20 20 20 20 20 73 74 6F 72 = 0.. stor
018D20: 65 20 32 37 20 74 6F 20 6E 6F 6D 65 73 73 0D 0A e 27 to nomess..
018D30: 20 20 20 20 20 20 64 6F 20 61 66 66 6D 65 73 73 do affmess
018D40: 0D 0A 20 20 20 20 20 20 40 20 31 37 2C 30 0D 0A .. @ 17,0..
018D50: 20 20 65 6C 73 65 0D 0A 20 20 20 20 20 20 69 66 else.. if
018D60: 20 66 69 65 6C 64 3A 74 79 70 65 20 23 20 6D 74 field:type # mt
018D70: 79 70 65 2E 61 6E 64 2E 72 65 70 20 23 20 27 43 ype.and.rep # 'C
018D80: 27 0D 0A 20 20 20 20 20 20 20 20 20 73 74 6F 72 '.. stor
018D90: 65 20 33 30 20 74 6F 20 6E 6F 6D 65 73 73 0D 0A e 30 to nomess..
018DA0: 20 20 20 20 20 20 20 20 20 64 6F 20 61 66 66 6D do affm
018DB0: 65 73 73 0D 0A 20 20 20 20 20 20 20 20 20 40 20 ess.. @
018DC0: 31 37 2C 30 0D 0A 20 20 20 20 20 20 65 6C 73 65 17,0.. else
018DD0: 0D 0A 20 20 20 20 20 20 20 20 20 73 74 6F 72 65 .. store
018DE0: 20 27 74 27 20 74 6F 20 63 6F 72 72 65 63 74 0D 't' to correct.
018DF0: 0A 20 20 20 20 20 20 65 6E 64 69 66 0D 0A 20 20 . endif..
018E00: 02 00 00 00 00 00 65 00 46 49 45 4C 44 3A 4E 41 ......e.FIELD:NA
018E10: 4D 45 00 43 0A 00 00 00 46 49 45 4C 44 3A 54 59 ME.C....FIELD:TY
018E20: 50 45 00 43 01 00 00 00 46 49 45 4C 44 3A 4C 45 PE.C....FIELD:LE
018E30: 4E 00 00 4E 03 00 00 00 46 49 45 4C 44 3A 44 45 N..N....FIELD:DE
018E40: 43 00 00 4E 03 00 00 00 4C 54 00 00 00 00 00 00 C..N....LT......
018E50: 00 00 00 4E 02 00 00 00 43 54 00 00 00 00 00 00 ...N....CT......
018E60: 00 00 00 4E 02 00 00 00 54 45 58 54 45 00 00 00 ...N....TEXTE...
018E70: 00 00 00 43 14 00 00 00 4C 53 00 00 00 00 00 00 ...C....LS......
018E80: 00 00 00 4E 02 00 00 00 43 53 00 00 00 00 00 00 ...N....CS......
018E90: 00 00 00 4E 02 00 00 00 56 45 52 49 46 00 00 00 ...N....VERIF...
018EA0: 00 00 00 43 02 00 00 00 56 41 4C 31 00 00 00 00 ...C....VAL1....
018EB0: 00 00 00 43 0A 00 00 00 56 41 4C 32 00 00 00 00 ...C....VAL2....
018EC0: 00 00 00 43 1E 00 00 00 56 41 4C 33 00 00 00 00 ...C....VAL3....
018ED0: 00 00 00 43 0A 00 00 00 4E 4F 5A 00 00 00 00 00 ...C....NOZ.....
018EE0: 00 00 00 4E 02 00 00 00 0D 00 00 00 00 00 00 00 ...N............
018EF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
018F00: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
018F10: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
018F20: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
018F30: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
018F40: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
018F50: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
018F60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
018F70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
018F80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
018F90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
018FA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
018FB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
018FC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
018FD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
018FE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
018FF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
019000: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
019010: 15 00 01 00 02 09 4E E5 15 00 41 02 00 00 00 02 ......N...A.....
019020: 15 00 46 02 00 00 00 02 15 00 42 02 00 00 00 02 ..F.......B.....
019030: 15 00 47 02 00 00 00 02 15 00 43 02 00 00 00 02 ..G.......C.....
019040: 15 00 48 02 00 00 00 02 15 00 44 02 00 00 00 02 ..H.......D.....
019050: 15 00 49 02 00 00 00 02 15 00 45 02 00 00 00 02 ..I.......E.....
019060: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
019070: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
019080: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
019090: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0190A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0190B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0190C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0190D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0190E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0190F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
019100: 65 6E 64 69 66 0D 0A 20 20 6F 74 68 65 72 77 69 endif.. otherwi
019110: 73 65 0D 0A 20 20 73 74 6F 72 65 20 31 20 74 6F se.. store 1 to
019120: 20 6E 6F 6D 65 73 73 0D 0A 20 20 64 6F 20 61 66 nomess.. do af
019130: 66 6D 65 73 73 0D 0A 20 20 65 6E 64 63 61 73 65 fmess.. endcase
019140: 0D 0A 65 6E 64 64 6F 0D 0A 73 74 6F 72 65 20 27 ..enddo..store '
019150: 66 27 20 74 6F 20 63 6F 72 72 65 63 74 0D 0A 65 f' to correct..e
019160: 72 61 73 65 0D 0A 73 74 6F 72 65 20 27 41 27 20 rase..store 'A'
019170: 74 6F 20 72 65 70 32 0D 0A 69 66 20 6D 74 79 70 to rep2..if mtyp
019180: 65 20 23 20 27 4C 27 0D 0A 40 20 33 2C 31 30 20 e # 'L'..@ 3,10
019190: 73 61 79 20 27 6F 70 74 69 6F 6E 73 27 0D 0A 40 say 'options'..@
0191A0: 20 35 2C 35 20 73 61 79 20 22 6C 61 20 7A 6F 6E 5,5 say "la zon
0191B0: 65 20 64 6F 69 74 20 65 74 72 65 20 63 6F 6D 70 e doit etre comp
0191C0: 72 69 73 65 20 65 6E 74 72 65 20 64 65 75 78 20 rise entre deux
0191D0: 62 6F 72 6E 65 73 20 20 20 20 20 20 3D 3D 3D 3D bornes ====
0191E0: 3E 20 42 22 0D 0A 69 66 20 6D 74 79 70 65 20 23 > B"..if mtype #
0191F0: 20 27 4E 27 0D 0A 20 20 20 40 20 36 2C 35 20 73 'N'.. @ 6,5 s
019200: 61 79 20 22 6C 61 20 7A 6F 6E 65 20 65 73 74 20 ay "la zone est
019210: 75 6E 20 63 6F 64 65 20 64 65 76 61 6E 74 20 61 un code devant a
019220: 70 70 61 72 74 65 6E 69 72 20 61 20 75 6E 65 20 ppartenir a une
019230: 6C 69 73 74 65 20 3D 3D 3D 3D 3E 20 4C 22 0D 0A liste ====> L"..
019240: 20 20 20 40 20 37 2C 35 20 73 61 79 20 22 6C 61 @ 7,5 say "la
019250: 20 7A 6F 6E 65 20 65 73 74 20 75 6E 65 20 64 61 zone est une da
019260: 74 65 20 73 6F 75 73 20 6C 61 20 66 6F 72 6D 65 te sous la forme
019270: 20 4A 4A 2F 4D 4D 2F 41 41 20 20 20 20 20 20 20 JJ/MM/AA
019280: 3D 3D 3D 3D 3E 20 44 22 0D 0A 20 20 20 40 20 38 ====> D".. @ 8
019290: 2C 35 20 73 61 79 20 22 6C 61 20 7A 6F 6E 65 20 ,5 say "la zone
0192A0: 65 73 74 20 75 6E 65 20 64 61 74 65 20 73 6F 75 est une date sou
0192B0: 73 20 6C 61 20 66 6F 72 6D 65 20 4A 4A 2F 4D 4D s la forme JJ/MM
0192C0: 20 20 20 20 20 20 20 20 20 20 3D 3D 3D 3D 3E 20 ====>
0192D0: 4D 22 0D 0A 65 6E 64 69 66 0D 0A 40 20 39 2C 35 M"..endif..@ 9,5
0192E0: 20 73 61 79 20 22 61 75 63 75 6E 20 64 65 73 20 say "aucun des
0192F0: 63 6F 6E 74 72 6F 6C 65 73 20 63 69 2D 64 65 73 controles ci-des
019300: 65 6C 73 65 0D 0A 20 20 20 20 20 20 20 20 20 20 else..
019310: 20 20 73 74 6F 72 65 20 24 28 6E 65 75 66 2C 31 store $(neuf,1
019320: 2C 6E 62 65 6E 74 29 2D 27 2E 27 2D 24 28 6E 65 ,nbent)-'.'-$(ne
019330: 75 66 2C 31 2C 6E 64 65 63 29 20 74 6F 20 6D 61 uf,1,ndec) to ma
019340: 78 70 6F 73 0D 0A 20 20 20 20 20 20 20 20 20 20 xpos..
019350: 20 20 69 66 20 6E 62 65 6E 74 20 3D 20 31 0D 0A if nbent = 1..
019360: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 s
019370: 74 6F 72 65 20 27 2D 2E 27 2D 24 28 6E 65 75 66 tore '-.'-$(neuf
019380: 2C 31 2C 6E 64 65 63 29 20 74 6F 20 6D 69 6E 70 ,1,ndec) to minp
019390: 6F 73 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 os..
0193A0: 65 6C 73 65 0D 0A 20 20 20 20 20 20 20 20 20 20 else..
0193B0: 20 20 20 20 20 73 74 6F 72 65 20 27 2D 27 2D 24 store '-'-$
0193C0: 28 6E 65 75 66 2C 31 2C 6E 62 65 6E 74 2D 31 29 (neuf,1,nbent-1)
0193D0: 2D 27 2E 27 2D 24 28 6E 65 75 66 2C 31 2C 6E 64 -'.'-$(neuf,1,nd
0193E0: 65 63 29 20 74 6F 20 6D 69 6E 70 6F 73 0D 0A 20 ec) to minpos..
0193F0: 20 20 20 20 20 20 20 20 20 20 20 65 6E 64 69 66 endif
019400: 0D 0A 20 20 20 20 20 20 20 20 20 65 6E 64 69 66 .. endif
019410: 0D 0A 20 20 20 20 20 20 20 20 20 73 74 6F 72 65 .. store
019420: 20 22 70 69 63 74 75 72 65 20 27 22 2D 6D 61 78 "picture '"-max
019430: 70 6F 73 2D 22 27 22 20 74 6F 20 70 69 63 0D 0A pos-"'" to pic..
019440: 20 20 20 20 20 20 20 20 20 72 65 6C 65 61 73 65 release
019450: 20 6E 65 75 66 0D 0A 20 20 20 20 20 20 65 6E 64 neuf.. end
019460: 63 61 73 65 0D 0A 20 20 20 20 20 20 40 20 31 33 case.. @ 13
019470: 2C 35 39 20 67 65 74 20 76 61 6C 64 65 62 20 26 ,59 get valdeb &
019480: 70 69 63 0D 0A 20 20 20 20 20 20 40 20 31 34 2C pic.. @ 14,
019490: 35 39 20 67 65 74 20 76 61 6C 66 69 6E 20 26 70 59 get valfin &p
0194A0: 69 63 0D 0A 20 20 20 20 20 20 72 65 61 64 0D 0A ic.. read..
0194B0: 20 20 20 20 20 20 73 74 6F 72 65 20 27 20 27 20 store ' '
0194C0: 74 6F 20 64 61 74 64 65 62 0D 0A 20 20 20 20 20 to datdeb..
0194D0: 20 73 74 6F 72 65 20 27 20 27 20 74 6F 20 64 61 store ' ' to da
0194E0: 74 66 69 6E 0D 0A 20 20 20 20 20 20 69 66 20 74 tfin.. if t
0194F0: 79 70 65 28 76 61 6C 64 65 62 29 3D 27 43 27 0D ype(valdeb)='C'.
019500: 73 75 73 20 73 75 72 20 63 65 74 74 65 20 7A 6F sus sur cette zo
019510: 6E 65 20 20 20 20 20 20 3D 3D 3D 3D 3E 20 41 22 ne ====> A"
019520: 0D 0A 40 20 31 31 2C 35 20 73 61 79 20 22 72 65 ..@ 11,5 say "re
019530: 70 6F 6E 73 65 20 20 20 3D 3D 3D 3D 3E 22 0D 0A ponse ====>"..
019540: 64 6F 20 77 68 69 6C 65 20 63 6F 72 72 65 63 74 do while correct
019550: 3D 27 66 27 0D 0A 20 20 20 73 74 6F 72 65 20 27 ='f'.. store '
019560: 41 27 20 74 6F 20 72 65 70 32 0D 0A 20 20 20 73 A' to rep2.. s
019570: 74 6F 72 65 20 30 20 74 6F 20 6E 6F 6D 65 73 73 tore 0 to nomess
019580: 0D 0A 20 20 20 73 65 74 20 69 6E 74 65 6E 73 69 .. set intensi
019590: 74 79 20 6F 66 66 0D 0A 20 20 20 40 20 31 31 2C ty off.. @ 11,
0195A0: 32 35 20 67 65 74 20 72 65 70 32 0D 0A 20 20 20 25 get rep2..
0195B0: 73 65 74 20 69 6E 74 65 6E 73 69 74 79 20 6F 6E set intensity on
0195C0: 0D 0A 20 20 20 72 65 61 64 0D 0A 20 20 20 73 74 .. read.. st
0195D0: 6F 72 65 20 21 28 72 65 70 32 29 20 74 6F 20 72 ore !(rep2) to r
0195E0: 65 70 32 0D 0A 20 20 20 64 6F 20 63 61 73 65 0D ep2.. do case.
0195F0: 0A 20 20 20 63 61 73 65 20 28 72 65 70 32 3D 27 . case (rep2='
019600: 4C 27 2E 6F 72 2E 72 65 70 32 3D 27 44 27 2E 6F L'.or.rep2='D'.o
019610: 72 2E 72 65 70 32 3D 27 4D 27 29 2E 61 6E 64 2E r.rep2='M').and.
019620: 6D 74 79 70 65 3D 27 4E 27 0D 0A 20 20 20 73 74 mtype='N'.. st
019630: 6F 72 65 20 33 32 20 74 6F 20 6E 6F 6D 65 73 73 ore 32 to nomess
019640: 0D 0A 20 20 20 64 6F 20 61 66 66 6D 65 73 73 0D .. do affmess.
019650: 0A 20 20 20 63 61 73 65 20 72 65 70 32 3D 27 41 . case rep2='A
019660: 27 0D 0A 20 20 20 73 74 6F 72 65 20 27 74 27 20 '.. store 't'
019670: 74 6F 20 63 6F 72 72 65 63 74 0D 0A 20 20 20 63 to correct.. c
019680: 61 73 65 20 72 65 70 32 3D 27 42 27 2E 6F 72 2E ase rep2='B'.or.
019690: 72 65 70 32 3D 27 44 27 2E 6F 72 2E 72 65 70 32 rep2='D'.or.rep2
0196A0: 3D 27 4D 27 0D 0A 20 20 20 69 66 20 28 72 65 70 ='M'.. if (rep
0196B0: 32 3D 27 44 27 2E 61 6E 64 2E 28 6D 74 79 70 65 2='D'.and.(mtype
0196C0: 23 27 43 27 2E 6F 72 2E 6D 6C 6F 6E 23 38 29 29 #'C'.or.mlon#8))
0196D0: 2E 6F 72 2E 28 72 65 70 32 3D 27 4D 27 2E 61 6E .or.(rep2='M'.an
0196E0: 64 2E 3B 0D 0A 20 20 20 28 6D 74 79 70 65 23 27 d.;.. (mtype#'
0196F0: 43 27 2E 6F 72 2E 6D 6C 6F 6E 23 35 29 29 0D 0A C'.or.mlon#5))..
019700: 0A 20 20 20 20 20 20 20 20 20 73 74 6F 72 65 20 . store
019710: 21 28 76 61 6C 64 65 62 29 20 74 6F 20 76 61 6C !(valdeb) to val
019720: 64 65 62 0D 0A 20 20 20 20 20 20 20 20 20 73 74 deb.. st
019730: 6F 72 65 20 21 28 76 61 6C 66 69 6E 29 20 74 6F ore !(valfin) to
019740: 20 76 61 6C 66 69 6E 0D 0A 20 20 20 20 20 20 65 valfin.. e
019750: 6E 64 69 66 0D 0A 20 20 20 20 20 20 73 74 6F 72 ndif.. stor
019760: 65 20 30 20 74 6F 20 6E 6F 6D 65 73 73 0D 0A 20 e 0 to nomess..
019770: 20 20 20 20 20 69 66 20 72 65 70 32 3D 27 42 27 if rep2='B'
019780: 2E 61 6E 64 2E 6D 74 79 70 65 3D 27 4E 27 0D 0A .and.mtype='N'..
019790: 20 20 20 20 20 20 20 20 20 69 66 20 76 61 6C 64 if vald
0197A0: 65 62 3C 26 6D 69 6E 70 6F 73 2E 6F 72 2E 76 61 eb<&minpos.or.va
0197B0: 6C 64 65 62 3E 26 6D 61 78 70 6F 73 0D 0A 20 20 ldeb>&maxpos..
0197C0: 20 20 20 20 20 20 20 20 20 20 73 74 6F 72 65 20 store
0197D0: 33 33 20 74 6F 20 6E 6F 6D 65 73 73 0D 0A 20 20 33 to nomess..
0197E0: 20 20 20 20 20 20 20 20 20 20 64 6F 20 61 66 66 do aff
0197F0: 6D 65 73 73 0D 0A 20 20 20 20 20 20 20 20 20 65 mess.. e
019800: 6C 73 65 0D 0A 20 20 20 20 20 20 20 20 20 20 20 lse..
019810: 20 69 66 20 76 61 6C 66 69 6E 3C 26 6D 69 6E 70 if valfin<&minp
019820: 6F 73 2E 6F 72 2E 76 61 6C 66 69 6E 3E 26 6D 61 os.or.valfin>&ma
019830: 78 70 6F 73 0D 0A 20 20 20 20 20 20 20 20 20 20 xpos..
019840: 20 20 20 20 20 73 74 6F 72 65 20 33 33 20 74 6F store 33 to
019850: 20 6E 6F 6D 65 73 73 0D 0A 20 20 20 20 20 20 20 nomess..
019860: 20 20 20 20 20 20 20 20 64 6F 20 61 66 66 6D 65 do affme
019870: 73 73 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 ss..
019880: 65 6E 64 69 66 0D 0A 20 20 20 20 20 20 20 20 20 endif..
019890: 65 6E 64 69 66 0D 0A 20 20 20 20 20 20 65 6E 64 endif.. end
0198A0: 69 66 0D 0A 20 20 20 20 20 20 69 66 20 72 65 70 if.. if rep
0198B0: 32 3D 27 44 27 2E 6F 72 2E 72 65 70 32 3D 27 4D 2='D'.or.rep2='M
0198C0: 27 0D 0A 20 20 20 20 20 20 20 20 20 73 74 6F 72 '.. stor
0198D0: 65 20 31 20 74 6F 20 63 70 74 7A 0D 0A 20 20 20 e 1 to cptz..
0198E0: 20 20 20 20 20 20 64 6F 20 77 68 69 6C 65 20 63 do while c
0198F0: 70 74 7A 3C 3D 20 32 0D 0A 20 20 20 20 20 20 20 ptz<= 2..
019900: 20 20 20 20 20 20 73 74 6F 72 65 20 32 38 20 74 store 28 t
019910: 6F 20 6E 6F 6D 65 73 73 0D 0A 20 20 20 20 20 20 o nomess..
019920: 64 6F 20 61 66 66 6D 65 73 73 0D 0A 20 20 20 20 do affmess..
019930: 20 20 69 66 20 63 68 6F 69 78 23 27 43 27 0D 0A if choix#'C'..
019940: 20 20 20 20 20 20 20 20 20 67 6F 74 6F 20 6E 6F goto no
019950: 63 6F 75 72 0D 0A 20 20 20 20 20 20 20 20 20 64 cour.. d
019960: 65 6C 65 0D 0A 20 20 20 20 20 20 20 20 20 70 61 ele.. pa
019970: 63 6B 0D 0A 20 20 20 20 20 20 20 20 20 73 74 6F ck.. sto
019980: 72 65 20 27 74 27 20 74 6F 20 63 6F 72 72 65 63 re 't' to correc
019990: 74 0D 0A 20 20 20 20 20 20 65 6E 64 69 66 0D 0A t.. endif..
0199A0: 20 20 20 65 6C 73 65 0D 0A 20 20 20 20 20 20 40 else.. @
0199B0: 20 31 33 2C 35 20 73 61 79 20 27 76 61 6C 65 75 13,5 say 'valeu
0199C0: 72 20 64 65 20 64 65 62 75 74 27 0D 0A 20 20 20 r de debut'..
0199D0: 20 20 20 40 20 31 34 2C 35 20 73 61 79 20 27 76 @ 14,5 say 'v
0199E0: 61 6C 65 75 72 20 64 65 20 66 69 6E 27 0D 0A 20 aleur de fin'..
0199F0: 20 20 20 20 20 64 6F 20 63 61 73 65 0D 0A 20 20 do case..
019A00: 20 20 20 20 20 20 20 63 61 73 65 20 72 65 70 32 case rep2
019A10: 3D 27 44 27 0D 0A 20 20 20 20 20 20 20 20 20 73 ='D'.. s
019A20: 74 6F 72 65 20 27 30 30 2F 30 30 2F 30 30 27 20 tore '00/00/00'
019A30: 74 6F 20 76 61 6C 64 65 62 0D 0A 20 20 20 20 20 to valdeb..
019A40: 20 20 20 20 73 74 6F 72 65 20 27 30 30 2F 30 30 store '00/00
019A50: 2F 30 30 27 20 74 6F 20 76 61 6C 66 69 6E 0D 0A /00' to valfin..
019A60: 20 20 20 20 20 20 20 20 20 73 74 6F 72 65 20 22 store "
019A70: 20 70 69 63 74 75 72 65 20 27 39 39 2F 39 39 2F picture '99/99/
019A80: 39 39 27 22 20 74 6F 20 70 69 63 0D 0A 20 20 20 99'" to pic..
019A90: 20 20 20 20 20 20 63 61 73 65 20 72 65 70 32 3D case rep2=
019AA0: 27 4D 27 0D 0A 20 20 20 20 20 20 20 20 20 73 74 'M'.. st
019AB0: 6F 72 65 20 27 30 30 2F 30 30 27 20 74 6F 20 76 ore '00/00' to v
019AC0: 61 6C 64 65 62 0D 0A 20 20 20 20 20 20 20 20 20 aldeb..
019AD0: 73 74 6F 72 65 20 27 30 30 2F 30 30 27 20 74 6F store '00/00' to
019AE0: 20 76 61 6C 66 69 6E 0D 0A 20 20 20 20 20 20 20 valfin..
019AF0: 20 20 73 74 6F 72 65 20 22 20 70 69 63 74 75 72 store " pictur
019B00: 20 20 20 20 20 69 66 20 63 70 74 7A 3D 31 0D 0A if cptz=1..
019B10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 s
019B20: 74 6F 72 65 20 76 61 6C 64 65 62 20 74 6F 20 76 tore valdeb to v
019B30: 64 61 74 65 0D 0A 20 20 20 20 20 20 20 20 20 20 date..
019B40: 20 20 65 6C 73 65 0D 0A 20 20 20 20 20 20 20 20 else..
019B50: 20 20 20 20 20 20 20 73 74 6F 72 65 20 76 61 6C store val
019B60: 66 69 6E 20 74 6F 20 76 64 61 74 65 0D 0A 20 20 fin to vdate..
019B70: 20 20 20 20 20 20 20 20 20 20 65 6E 64 69 66 0D endif.
019B80: 0A 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 . if
019B90: 76 64 61 74 65 23 27 30 30 2F 30 30 2F 30 30 27 vdate#'00/00/00'
019BA0: 2E 61 6E 64 2E 6C 65 6E 28 76 64 61 74 65 29 3D .and.len(vdate)=
019BB0: 38 2E 6F 72 2E 76 64 61 74 65 23 27 30 30 2F 30 8.or.vdate#'00/0
019BC0: 30 27 2E 61 6E 64 2E 3B 0D 0A 20 20 20 20 20 20 0'.and.;..
019BD0: 20 20 20 20 20 20 6C 65 6E 28 76 64 61 74 65 29 len(vdate)
019BE0: 3D 35 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 =5..
019BF0: 20 20 20 73 74 6F 72 65 20 76 61 6C 28 24 28 76 store val($(v
019C00: 64 61 74 65 2C 31 2C 32 29 29 20 74 6F 20 6A 0D date,1,2)) to j.
019C10: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
019C20: 73 74 6F 72 65 20 76 61 6C 28 24 28 76 64 61 74 store val($(vdat
019C30: 65 2C 34 2C 32 29 29 20 74 6F 20 6D 0D 0A 20 20 e,4,2)) to m..
019C40: 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 if
019C50: 6C 65 6E 28 76 64 61 74 65 29 3D 38 0D 0A 20 20 len(vdate)=8..
019C60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
019C70: 73 74 6F 72 65 20 76 61 6C 28 24 28 76 64 61 74 store val($(vdat
019C80: 65 2C 37 2C 32 29 29 20 74 6F 20 61 6E 0D 0A 20 e,7,2)) to an..
019C90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6C el
019CA0: 73 65 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 se..
019CB0: 20 20 20 20 20 20 73 74 6F 72 65 20 30 20 74 6F store 0 to
019CC0: 20 61 6E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 an..
019CD0: 20 20 20 20 65 6E 64 69 66 0D 0A 20 20 20 20 20 endif..
019CE0: 20 20 20 20 20 20 20 20 20 20 69 66 20 6D 3C 31 if m<1
019CF0: 2E 6F 72 2E 6D 3E 31 32 2E 6F 72 2E 6A 3C 31 2E .or.m>12.or.j<1.
019D00: 65 20 27 39 39 2F 39 39 27 22 20 74 6F 20 70 69 e '99/99'" to pi
019D10: 63 0D 0A 20 20 20 20 20 20 20 20 20 63 61 73 65 c.. case
019D20: 20 6D 74 79 70 65 20 3D 27 43 27 0D 0A 20 20 20 mtype ='C'..
019D30: 20 20 20 20 20 20 69 66 20 6D 6C 6F 6E 3E 20 31 if mlon> 1
019D40: 30 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 73 0.. s
019D50: 74 6F 72 65 20 24 28 62 6C 61 6E 63 2C 31 2C 31 tore $(blanc,1,1
019D60: 30 29 20 74 6F 20 76 61 6C 64 65 62 0D 0A 20 20 0) to valdeb..
019D70: 20 20 20 20 20 20 20 65 6C 73 65 0D 0A 20 20 20 else..
019D80: 20 20 20 20 20 20 20 20 20 73 74 6F 72 65 20 24 store $
019D90: 28 62 6C 61 6E 63 2C 31 2C 6D 6C 6F 6E 29 20 74 (blanc,1,mlon) t
019DA0: 6F 20 76 61 6C 64 65 62 0D 0A 20 20 20 20 20 20 o valdeb..
019DB0: 20 20 20 65 6E 64 69 66 0D 0A 20 20 20 20 20 20 endif..
019DC0: 20 20 20 73 74 6F 72 65 20 76 61 6C 64 65 62 20 store valdeb
019DD0: 74 6F 20 76 61 6C 66 69 6E 0D 0A 20 20 20 20 20 to valfin..
019DE0: 20 20 20 20 73 74 6F 72 65 20 22 20 22 20 74 6F store " " to
019DF0: 20 70 69 63 0D 0A 20 20 20 20 20 20 20 20 20 63 pic.. c
019E00: 61 73 65 20 6D 74 79 70 65 20 3D 20 27 4E 27 0D ase mtype = 'N'.
019E10: 0A 20 20 20 20 20 20 20 20 20 73 74 6F 72 65 20 . store
019E20: 27 39 39 39 39 39 39 39 39 39 39 27 20 74 6F 20 '9999999999' to
019E30: 6E 65 75 66 0D 0A 20 20 20 20 20 20 20 20 20 73 neuf.. s
019E40: 74 6F 72 65 20 30 20 74 6F 20 76 61 6C 64 65 62 tore 0 to valdeb
019E50: 0D 0A 20 20 20 20 20 20 20 20 20 73 74 6F 72 65 .. store
019E60: 20 30 20 74 6F 20 76 61 6C 66 69 6E 0D 0A 20 20 0 to valfin..
019E70: 20 20 20 20 20 20 20 69 66 20 6D 64 65 63 3D 30 if mdec=0
019E80: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 73 74 .. st
019E90: 6F 72 65 20 6D 6C 6F 6E 20 74 6F 20 6E 62 65 6E ore mlon to nben
019EA0: 74 0D 0A 20 20 20 20 20 20 20 20 20 65 6C 73 65 t.. else
019EB0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 73 74 .. st
019EC0: 6F 72 65 20 6D 6C 6F 6E 2D 6D 64 65 63 2D 31 20 ore mlon-mdec-1
019ED0: 74 6F 20 6E 62 65 6E 74 0D 0A 20 20 20 20 20 20 to nbent..
019EE0: 20 20 20 65 6E 64 69 66 0D 0A 20 20 20 20 20 20 endif..
019EF0: 20 20 20 69 66 20 6D 6C 6F 6E 20 3E 31 30 0D 0A if mlon >10..
019F00: 6F 72 2E 4A 3E 33 31 2E 6F 72 2E 28 6D 3D 34 2E or.J>31.or.(m=4.
019F10: 6F 72 2E 6D 3D 36 2E 6F 72 2E 6D 3D 39 2E 6F 72 or.m=6.or.m=9.or
019F20: 2E 3B 0D 0A 6D 3D 31 31 29 2E 61 6E 64 2E 6A 3E .;..m=11).and.j>
019F30: 33 30 2E 6F 72 2E 6D 3D 32 2E 61 6E 64 2E 6A 3E 30.or.m=2.and.j>
019F40: 32 39 2E 6F 72 2E 28 61 6E 2F 34 29 23 69 6E 74 29.or.(an/4)#int
019F50: 28 61 6E 2F 34 29 2E 61 6E 64 2E 6D 3D 32 2E 61 (an/4).and.m=2.a
019F60: 6E 64 2E 6A 3E 32 38 0D 0A 20 20 20 20 20 20 20 nd.j>28..
019F70: 20 20 20 20 20 20 20 20 20 20 20 73 74 6F 72 65 store
019F80: 20 32 20 74 6F 20 6E 6F 6D 65 73 73 0D 0A 20 20 2 to nomess..
019F90: 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6E 64 end
019FA0: 69 66 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 if..
019FB0: 65 6E 64 69 66 0D 0A 20 20 20 20 20 20 20 20 20 endif..
019FC0: 20 20 20 73 74 6F 72 65 20 63 70 74 7A 2B 31 20 store cptz+1
019FD0: 74 6F 20 63 70 74 7A 0D 0A 20 20 20 20 20 20 20 to cptz..
019FE0: 20 20 65 6E 64 64 6F 0D 0A 20 20 20 20 20 20 20 enddo..
019FF0: 20 20 72 65 6C 65 61 73 65 20 6A 2C 6D 2C 61 6E release j,m,an
01A000: 2C 63 70 74 7A 2C 76 64 61 74 65 0D 0A 20 20 20 ,cptz,vdate..
01A010: 20 20 20 20 20 20 69 66 20 6E 6F 6D 65 73 73 23 if nomess#
01A020: 30 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 64 0.. d
01A030: 6F 20 61 66 66 6D 65 73 73 0D 0A 20 20 20 20 20 o affmess..
01A040: 20 20 20 20 65 6C 73 65 0D 0A 20 20 20 20 20 20 else..
01A050: 20 20 20 20 20 20 69 66 20 72 65 70 32 3D 27 44 if rep2='D
01A060: 27 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 '..
01A070: 20 20 73 74 6F 72 65 20 24 28 76 61 6C 64 65 62 store $(valdeb
01A080: 2C 37 2C 32 29 2D 24 28 76 61 6C 64 65 62 2C 34 ,7,2)-$(valdeb,4
01A090: 2C 32 29 2D 24 28 76 61 6C 64 65 62 2C 31 2C 32 ,2)-$(valdeb,1,2
01A0A0: 29 20 74 6F 20 64 61 74 64 65 62 0D 0A 20 20 20 ) to datdeb..
01A0B0: 20 20 20 20 20 20 20 20 20 20 20 20 73 74 6F 72 stor
01A0C0: 65 20 24 28 76 61 6C 66 69 6E 2C 37 2C 32 29 2D e $(valfin,7,2)-
01A0D0: 24 28 76 61 6C 66 69 6E 2C 34 2C 32 29 2D 24 28 $(valfin,4,2)-$(
01A0E0: 76 61 6C 66 69 6E 2C 31 2C 32 29 20 74 6F 20 64 valfin,1,2) to d
01A0F0: 61 74 66 69 6E 0D 0A 20 20 20 20 20 20 20 20 20 atfin..
01A100: 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 6E if n
01A110: 62 65 6E 74 3E 3D 39 0D 0A 20 20 20 20 20 20 20 bent>=9..
01A120: 20 20 20 20 20 20 20 20 73 74 6F 72 65 20 30 20 store 0
01A130: 74 6F 20 6E 64 65 63 0D 0A 20 20 20 20 20 20 20 to ndec..
01A140: 20 20 20 20 20 20 20 20 69 66 20 6E 62 65 6E 74 if nbent
01A150: 3E 31 30 0D 0A 20 20 20 20 20 20 20 20 20 20 20 >10..
01A160: 20 20 20 20 20 20 20 73 74 6F 72 65 20 31 30 20 store 10
01A170: 74 6F 20 6E 62 65 6E 74 0D 0A 20 20 20 20 20 20 to nbent..
01A180: 20 20 20 20 20 20 20 20 20 65 6E 64 69 66 0D 0A endif..
01A190: 20 20 20 20 20 20 20 20 20 20 20 20 65 6C 73 65 else
01A1A0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
01A1B0: 20 73 74 6F 72 65 20 31 30 2D 6E 62 65 6E 74 2D store 10-nbent-
01A1C0: 31 20 74 6F 20 6E 64 65 63 0D 0A 20 20 20 20 20 1 to ndec..
01A1D0: 20 20 20 20 20 20 20 65 6E 64 69 66 0D 0A 20 20 endif..
01A1E0: 20 20 20 20 20 20 20 65 6C 73 65 0D 0A 20 20 20 else..
01A1F0: 20 20 20 20 20 20 20 20 20 73 74 6F 72 65 20 6D store m
01A200: 64 65 63 20 74 6F 20 6E 64 65 63 0D 0A 20 20 20 dec to ndec..
01A210: 20 20 20 20 20 20 65 6E 64 69 66 0D 0A 20 20 20 endif..
01A220: 20 20 20 20 20 20 69 66 20 6E 64 65 63 20 3D 20 if ndec =
01A230: 30 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 73 0.. s
01A240: 74 6F 72 65 20 24 28 6E 65 75 66 2C 31 2C 6E 62 tore $(neuf,1,nb
01A250: 65 6E 74 29 20 74 6F 20 6D 61 78 70 6F 73 0D 0A ent) to maxpos..
01A260: 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 6E if n
01A270: 62 65 6E 74 3D 31 0D 0A 20 20 20 20 20 20 20 20 bent=1..
01A280: 20 20 20 20 20 20 20 73 74 6F 72 65 20 27 30 27 store '0'
01A290: 20 74 6F 20 6D 69 6E 70 6F 73 0D 0A 20 20 20 20 to minpos..
01A2A0: 20 20 20 20 20 20 20 20 65 6C 73 65 0D 0A 20 20 else..
01A2B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 73 74 6F sto
01A2C0: 72 65 20 27 2D 27 2D 24 28 6E 65 75 66 2C 31 2C re '-'-$(neuf,1,
01A2D0: 6E 62 65 6E 74 2D 31 29 20 74 6F 20 6D 69 6E 70 nbent-1) to minp
01A2E0: 6F 73 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 os..
01A2F0: 65 6E 64 69 66 0D 0A 20 20 20 20 20 20 20 20 20 endif..
01A300: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
01A310: 16 00 01 00 02 09 4F E5 16 00 41 02 00 00 00 02 ......O...A.....
01A320: 16 00 46 02 00 00 00 02 16 00 42 02 00 00 00 02 ..F.......B.....
01A330: 16 00 47 02 00 00 00 02 16 00 43 02 00 00 00 02 ..G.......C.....
01A340: 16 00 48 02 00 00 00 02 16 00 44 02 00 00 00 02 ..H.......D.....
01A350: 16 00 49 02 00 00 00 02 16 00 45 02 00 00 00 02 ..I.......E.....
01A360: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01A370: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01A380: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01A390: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01A3A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01A3B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01A3C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01A3D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01A3E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01A3F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01A400: 20 20 20 65 6C 73 65 0D 0A 20 20 20 20 20 20 20 else..
01A410: 20 20 20 20 20 20 20 20 73 74 6F 72 65 20 24 28 store $(
01A420: 76 61 6C 64 65 62 2C 34 2C 32 29 2D 24 28 76 61 valdeb,4,2)-$(va
01A430: 6C 64 65 62 2C 31 2C 32 29 20 74 6F 20 64 61 74 ldeb,1,2) to dat
01A440: 64 65 62 0D 0A 20 20 20 20 20 20 20 20 20 20 20 deb..
01A450: 20 20 20 20 73 74 6F 72 65 20 24 28 76 61 6C 66 store $(valf
01A460: 69 6E 2C 34 2C 32 29 2D 24 28 76 61 6C 66 69 6E in,4,2)-$(valfin
01A470: 2C 31 2C 32 29 20 74 6F 20 64 61 74 66 69 6E 0D ,1,2) to datfin.
01A480: 0A 20 20 20 20 20 20 20 20 20 20 20 20 65 6E 64 . end
01A490: 69 66 0D 0A 20 20 20 20 20 20 20 20 20 65 6E 64 if.. end
01A4A0: 69 66 0D 0A 20 20 20 20 20 20 65 6E 64 69 66 0D if.. endif.
01A4B0: 0A 20 20 20 20 20 20 69 66 20 6E 6F 6D 65 73 73 . if nomess
01A4C0: 20 3D 20 30 0D 0A 20 20 20 20 20 20 20 20 20 69 = 0.. i
01A4D0: 66 20 6D 74 79 70 65 20 3D 20 27 43 27 0D 0A 20 f mtype = 'C'..
01A4E0: 20 20 20 20 20 20 20 20 20 20 20 73 74 6F 72 65 store
01A4F0: 20 72 65 70 32 3D 27 44 27 2E 61 6E 64 2E 76 61 rep2='D'.and.va
01A500: 6C 66 69 6E 23 27 30 30 2F 30 30 2F 30 30 27 2E lfin#'00/00/00'.
01A510: 6F 72 2E 72 65 70 32 3D 27 4D 27 2E 61 6E 64 2E or.rep2='M'.and.
01A520: 76 61 6C 66 69 6E 20 3B 0D 0A 20 20 20 20 20 20 valfin ;..
01A530: 20 20 20 20 20 20 23 27 30 30 2F 30 30 27 2E 6F #'00/00'.o
01A540: 72 2E 28 72 65 70 32 23 27 4D 27 2E 61 6E 64 2E r.(rep2#'M'.and.
01A550: 72 65 70 32 23 27 44 27 29 2E 61 6E 64 2E 76 61 rep2#'D').and.va
01A560: 6C 66 69 6E 20 23 20 27 20 27 20 74 6F 20 63 6F lfin # ' ' to co
01A570: 6D 70 0D 0A 20 20 20 20 20 20 20 20 20 65 6C 73 mp.. els
01A580: 65 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 73 e.. s
01A590: 74 6F 72 65 20 76 61 6C 66 69 6E 20 23 20 30 20 tore valfin # 0
01A5A0: 74 6F 20 63 6F 6D 70 0D 0A 20 20 20 20 20 20 20 to comp..
01A5B0: 20 20 65 6E 64 69 66 0D 0A 20 20 20 20 20 20 20 endif..
01A5C0: 20 20 69 66 20 63 6F 6D 70 0D 0A 20 20 20 20 20 if comp..
01A5D0: 20 20 20 20 20 20 20 69 66 20 28 72 65 70 32 23 if (rep2#
01A5E0: 27 44 27 2E 61 6E 64 2E 72 65 70 32 23 27 4D 27 'D'.and.rep2#'M'
01A5F0: 2E 61 6E 64 2E 76 61 6C 64 65 62 3E 76 61 6C 66 .and.valdeb>valf
01A600: 00 00 00 00 00 00 00 00 00 1A 0D 0A 2A 20 6C 61 ............* la
01A610: 20 7A 6F 6E 65 20 65 73 74 2D 65 6C 6C 65 20 61 zone est-elle a
01A620: 6C 70 68 61 62 65 74 69 71 75 65 0D 0A 63 61 73 lphabetique..cas
01A630: 65 20 74 79 70 65 20 23 20 27 43 27 0D 0A 73 74 e type # 'C'..st
01A640: 6F 72 65 20 31 33 20 74 6F 20 6E 6F 6D 65 73 73 ore 13 to nomess
01A650: 0D 0A 64 6F 20 61 66 66 6D 65 73 73 0D 0A 2A 20 ..do affmess..*
01A660: 70 6F 73 69 74 69 6F 6E 20 64 65 20 64 65 62 75 position de debu
01A670: 74 20 63 6F 72 72 65 63 74 65 20 3F 0D 0A 63 61 t correcte ?..ca
01A680: 73 65 20 76 61 6C 28 26 6D 64 65 62 29 20 3D 20 se val(&mdeb) =
01A690: 30 2E 6F 72 2E 76 61 6C 28 26 6D 64 65 62 29 3E 0.or.val(&mdeb)>
01A6A0: 6C 6F 6E 0D 0A 73 74 6F 72 65 20 31 34 20 74 6F lon..store 14 to
01A6B0: 20 6E 6F 6D 65 73 73 0D 0A 64 6F 20 61 66 66 6D nomess..do affm
01A6C0: 65 73 73 0D 0A 2A 20 70 6F 73 69 74 69 6F 6E 20 ess..* position
01A6D0: 66 69 6E 20 63 6F 72 72 65 63 74 65 20 3F 0D 0A fin correcte ?..
01A6E0: 63 61 73 65 20 21 28 26 6D 66 69 6E 29 23 27 46 case !(&mfin)#'F
01A6F0: 27 2E 61 6E 64 2E 28 76 61 6C 28 26 6D 66 69 6E '.and.(val(&mfin
01A700: 29 3C 76 61 6C 28 26 6D 64 65 62 29 2E 6F 72 2E )<val(&mdeb).or.
01A710: 76 61 6C 28 26 6D 66 69 6E 29 3E 6C 6F 6E 29 0D val(&mfin)>lon).
01A720: 0A 73 74 6F 72 65 20 31 35 20 74 6F 20 6E 6F 6D .store 15 to nom
01A730: 65 73 73 0D 0A 64 6F 20 61 66 66 6D 65 73 73 0D ess..do affmess.
01A740: 0A 6F 74 68 65 72 77 69 73 65 0D 0A 73 74 6F 72 .otherwise..stor
01A750: 65 20 27 6C 6F 6E 67 27 2D 73 74 72 28 63 70 74 e 'long'-str(cpt
01A760: 69 2C 31 29 20 74 6F 20 6C 6C 6F 6E 67 0D 0A 73 i,1) to llong..s
01A770: 74 6F 72 65 20 6C 6F 6E 20 74 6F 20 26 6C 6C 6F tore lon to &llo
01A780: 6E 67 0D 0A 73 74 6F 72 65 20 63 70 74 69 2B 31 ng..store cpti+1
01A790: 20 74 6F 20 63 70 74 69 0D 0A 73 74 6F 72 65 20 to cpti..store
01A7A0: 6C 69 67 69 2B 31 20 74 6F 20 6C 69 67 69 0D 0A ligi+1 to ligi..
01A7B0: 65 6E 64 63 61 73 65 0D 0A 65 6E 64 64 6F 0D 0A endcase..enddo..
01A7C0: 73 74 6F 72 65 20 63 70 74 69 2D 31 20 74 6F 20 store cpti-1 to
01A7D0: 63 70 74 69 6D 61 78 0D 0A 73 65 6C 65 63 74 20 cptimax..select
01A7E0: 70 72 69 6D 61 72 79 0D 0A 75 73 65 20 26 66 65 primary..use &fe
01A7F0: 6C 65 20 69 6E 64 65 78 20 26 78 65 6C 65 0D 0A le index &xele..
01A800: 69 6E 29 2E 6F 72 2E 3B 0D 0A 20 20 20 20 20 20 in).or.;..
01A810: 20 20 20 20 20 20 28 28 72 65 70 32 3D 27 44 27 ((rep2='D'
01A820: 2E 6F 72 2E 72 65 70 32 3D 27 4D 27 29 2E 61 6E .or.rep2='M').an
01A830: 64 2E 64 61 74 64 65 62 3E 64 61 74 66 69 6E 29 d.datdeb>datfin)
01A840: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
01A850: 20 73 74 6F 72 65 20 32 39 20 74 6F 20 6E 6F 6D store 29 to nom
01A860: 65 73 73 0D 0A 20 20 20 20 20 20 20 20 20 20 20 ess..
01A870: 20 20 20 20 64 6F 20 61 66 66 6D 65 73 73 0D 0A do affmess..
01A880: 20 20 20 20 20 20 20 20 20 20 20 20 65 6C 73 65 else
01A890: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
01A8A0: 20 73 74 6F 72 65 20 27 74 27 20 74 6F 20 63 6F store 't' to co
01A8B0: 72 72 65 63 74 0D 0A 20 20 20 20 20 20 20 20 20 rrect..
01A8C0: 20 20 20 65 6E 64 69 66 0D 0A 20 20 20 20 20 20 endif..
01A8D0: 20 20 20 65 6C 73 65 0D 0A 20 20 20 20 20 20 20 else..
01A8E0: 20 20 20 20 20 73 74 6F 72 65 20 27 74 27 20 74 store 't' t
01A8F0: 6F 20 63 6F 72 72 65 63 74 0D 0A 20 20 20 20 20 o correct..
01A900: 20 20 20 20 65 6E 64 69 66 0D 0A 20 20 20 20 20 endif..
01A910: 20 65 6E 64 69 66 0D 0A 20 20 20 65 6E 64 69 66 endif.. endif
01A920: 0D 0A 20 20 20 72 65 6C 65 61 73 65 20 63 6F 6D .. release com
01A930: 70 2C 64 61 74 64 65 62 2C 64 61 74 66 69 6E 2C p,datdeb,datfin,
01A940: 6D 69 6E 70 6F 73 2C 6D 61 78 70 6F 73 2C 70 69 minpos,maxpos,pi
01A950: 63 0D 0A 20 20 20 63 61 73 65 20 72 65 70 32 3D c.. case rep2=
01A960: 27 4C 27 0D 0A 20 20 20 73 74 6F 72 65 20 24 28 'L'.. store $(
01A970: 62 6C 61 6E 63 2C 31 2C 33 30 29 20 74 6F 20 6C blanc,1,30) to l
01A980: 69 73 74 63 0D 0A 20 20 20 40 20 31 33 2C 30 20 istc.. @ 13,0
01A990: 73 61 79 20 27 45 6E 74 72 65 7A 20 6C 65 73 20 say 'Entrez les
01A9A0: 63 6F 64 65 73 20 70 6F 73 73 69 62 6C 65 73 20 codes possibles
01A9B0: 65 6E 20 6C 65 73 20 73 65 70 61 72 61 6E 74 27 en les separant'
01A9C0: 0D 0A 20 20 20 40 20 31 34 2C 30 20 73 61 79 20 .. @ 14,0 say
01A9D0: 27 70 61 72 20 64 65 73 20 76 69 72 67 75 6C 65 'par des virgule
01A9E0: 73 27 0D 0A 20 20 20 40 20 31 34 2C 34 35 20 67 s'.. @ 14,45 g
01A9F0: 65 74 20 6C 69 73 74 63 0D 0A 20 20 20 72 65 61 et listc.. rea
01AA00: 2A 20 6D 6F 64 69 66 69 63 68 3A 20 6D 6F 64 69 * modifich: modi
01AA10: 66 69 63 61 74 69 6F 6E 20 64 65 20 6C 61 20 73 fication de la s
01AA20: 74 72 75 63 74 75 72 65 20 64 27 75 6E 20 66 69 tructure d'un fi
01AA30: 63 68 69 65 72 0D 0A 0D 0A 65 72 61 73 65 0D 0A chier....erase..
01AA40: 40 20 31 2C 31 36 20 73 61 79 20 27 4D 4F 44 49 @ 1,16 say 'MODI
01AA50: 46 49 43 41 54 49 4F 4E 20 44 45 20 53 54 52 55 FICATION DE STRU
01AA60: 43 54 55 52 45 20 44 55 20 46 49 43 48 49 45 52 CTURE DU FICHIER
01AA70: 27 0D 0A 40 20 31 2C 35 36 20 67 65 74 20 6E 6F '..@ 1,56 get no
01AA80: 6D 61 66 66 0D 0A 63 6C 65 61 72 20 67 65 74 0D maff..clear get.
01AA90: 0A 40 20 38 2C 31 36 20 73 61 79 20 22 61 76 65 .@ 8,16 say "ave
01AAA0: 7A 2D 76 6F 75 73 20 73 61 75 76 65 67 61 72 64 z-vous sauvegard
01AAB0: 65 20 76 6F 74 72 65 20 66 69 63 68 69 65 72 20 e votre fichier
01AAC0: 64 65 20 64 6F 6E 6E 65 65 73 20 3F 22 0D 0A 40 de donnees ?"..@
01AAD0: 20 31 36 2C 31 36 20 73 61 79 20 22 72 65 70 6F 16,16 say "repo
01AAE0: 6E 64 72 65 20 6E 6F 6E 20 73 69 20 76 6F 75 73 ndre non si vous
01AAF0: 20 76 6F 75 6C 65 7A 20 61 62 61 6E 64 6F 6E 6E voulez abandonn
01AB00: 65 72 20 6C 61 20 66 6F 6E 63 74 69 6F 6E 22 0D er la fonction".
01AB10: 0A 40 20 31 32 2C 31 38 20 73 61 79 20 22 72 65 .@ 12,18 say "re
01AB20: 70 6F 6E 73 65 20 20 20 4F 3D 6F 75 69 2C 20 4E ponse O=oui, N
01AB30: 3D 6E 6F 6E 20 20 20 3D 3D 3D 3D 3E 22 0D 0A 73 =non ====>"..s
01AB40: 74 6F 72 65 20 27 66 27 20 74 6F 20 63 6F 72 72 tore 'f' to corr
01AB50: 65 63 74 0D 0A 64 6F 20 77 68 69 6C 65 20 63 6F ect..do while co
01AB60: 72 72 65 63 74 3D 27 66 27 0D 0A 73 74 6F 72 65 rrect='f'..store
01AB70: 20 27 4E 27 20 74 6F 20 72 65 70 0D 0A 40 20 31 'N' to rep..@ 1
01AB80: 32 2C 34 39 20 67 65 74 20 72 65 70 0D 0A 72 65 2,49 get rep..re
01AB90: 61 64 0D 0A 64 6F 20 63 61 73 65 0D 0A 63 61 73 ad..do case..cas
01ABA0: 65 20 21 28 72 65 70 29 23 27 4E 27 2E 61 6E 64 e !(rep)#'N'.and
01ABB0: 2E 21 28 72 65 70 29 23 27 4F 27 0D 0A 73 74 6F .!(rep)#'O'..sto
01ABC0: 72 65 20 31 20 74 6F 20 6E 6F 6D 65 73 73 0D 0A re 1 to nomess..
01ABD0: 64 6F 20 61 66 66 6D 65 73 73 0D 0A 63 61 73 65 do affmess..case
01ABE0: 20 21 28 72 65 70 29 3D 27 4F 27 0D 0A 73 74 6F !(rep)='O'..sto
01ABF0: 72 65 20 27 74 27 20 74 6F 20 63 6F 72 72 65 63 re 't' to correc
01AC00: 64 0D 0A 20 20 20 73 74 6F 72 65 20 21 28 6C 69 d.. store !(li
01AC10: 73 74 63 29 20 74 6F 20 6C 69 73 74 63 0D 0A 20 stc) to listc..
01AC20: 20 20 69 66 20 6C 69 73 74 63 20 3D 20 27 20 27 if listc = ' '
01AC30: 0D 0A 20 20 20 20 20 20 73 74 6F 72 65 20 34 34 .. store 44
01AC40: 20 74 6F 20 6E 6F 6D 65 73 73 0D 0A 20 20 20 20 to nomess..
01AC50: 20 20 64 6F 20 61 66 66 6D 65 73 73 0D 0A 20 20 do affmess..
01AC60: 20 65 6C 73 65 0D 0A 20 20 20 20 20 20 73 74 6F else.. sto
01AC70: 72 65 20 27 74 27 20 74 6F 20 63 6F 72 72 65 63 re 't' to correc
01AC80: 74 0D 0A 20 20 20 65 6E 64 69 66 0D 0A 20 20 20 t.. endif..
01AC90: 6F 74 68 65 72 77 69 73 65 0D 0A 20 20 20 73 74 otherwise.. st
01ACA0: 6F 72 65 20 31 20 74 6F 20 6E 6F 6D 65 73 73 0D ore 1 to nomess.
01ACB0: 0A 20 20 20 64 6F 20 61 66 66 6D 65 73 73 0D 0A . do affmess..
01ACC0: 20 20 20 65 6E 64 63 61 73 65 0D 0A 20 20 20 69 endcase.. i
01ACD0: 66 20 63 6F 72 72 65 63 74 3D 27 66 27 0D 0A 20 f correct='f'..
01ACE0: 20 20 40 20 31 33 2C 30 0D 0A 20 20 20 40 20 31 @ 13,0.. @ 1
01ACF0: 34 2C 30 0D 0A 20 20 20 72 65 6C 65 61 73 65 20 4,0.. release
01AD00: 76 61 6C 64 65 62 2C 76 61 6C 66 69 6E 2C 6C 69 valdeb,valfin,li
01AD10: 73 74 63 0D 0A 20 20 20 65 6E 64 69 66 0D 0A 65 stc.. endif..e
01AD20: 6E 64 64 6F 0D 0A 72 65 6C 65 61 73 65 20 63 6F nddo..release co
01AD30: 72 72 65 63 74 0D 0A 65 6E 64 69 66 0D 0A 69 66 rrect..endif..if
01AD40: 20 6E 6F 6D 65 73 73 3D 32 38 0D 0A 20 20 20 73 nomess=28.. s
01AD50: 74 6F 72 65 20 30 20 74 6F 20 6E 6F 6D 65 73 73 tore 0 to nomess
01AD60: 0D 0A 65 6C 73 65 0D 0A 20 20 20 69 66 20 63 68 ..else.. if ch
01AD70: 6F 69 78 20 23 20 27 43 27 0D 0A 20 20 20 73 74 oix # 'C'.. st
01AD80: 6F 72 65 20 6C 6F 6E 67 65 6E 67 2B 6D 6C 6F 6E ore longeng+mlon
01AD90: 20 74 6F 20 6C 6F 6E 67 65 6E 67 0D 0A 20 20 20 to longeng..
01ADA0: 73 74 6F 72 65 20 63 70 74 2B 31 20 74 6F 20 63 store cpt+1 to c
01ADB0: 70 74 0D 0A 20 20 20 65 6E 64 69 66 0D 0A 20 20 pt.. endif..
01ADC0: 20 67 6F 74 6F 20 6E 6F 63 6F 75 72 0D 0A 20 20 goto nocour..
01ADD0: 20 72 65 70 6C 61 63 65 20 76 65 72 69 66 20 77 replace verif w
01ADE0: 69 74 68 20 72 65 70 2D 72 65 70 32 0D 0A 20 20 ith rep-rep2..
01ADF0: 20 69 66 20 72 65 70 3D 27 43 27 2E 6F 72 2E 72 if rep='C'.or.r
01AE00: 74 0D 0A 63 61 73 65 20 21 28 72 65 70 29 3D 27 t..case !(rep)='
01AE10: 4E 27 0D 0A 72 65 6C 65 61 73 65 20 72 65 70 2C N'..release rep,
01AE20: 63 6F 72 72 65 63 74 0D 0A 72 65 74 75 72 6E 0D correct..return.
01AE30: 0A 65 6E 64 63 61 73 65 0D 0A 65 6E 64 64 6F 0D .endcase..enddo.
01AE40: 0A 72 65 6C 65 61 73 65 20 72 65 70 2C 63 6F 72 .release rep,cor
01AE50: 72 65 63 74 0D 0A 73 74 6F 72 65 20 27 74 27 20 rect..store 't'
01AE60: 74 6F 20 6D 6F 64 69 66 0D 0A 64 6F 20 73 75 70 to modif..do sup
01AE70: 66 69 63 68 0D 0A 64 6F 20 67 65 6E 65 0D 0A 65 fich..do gene..e
01AE80: 72 61 73 65 0D 0A 3F 0D 0A 3F 0D 0A 3F 20 22 53 rase..?..?..? "S
01AE90: 69 20 76 6F 75 73 20 76 6F 75 6C 65 7A 20 72 65 i vous voulez re
01AEA0: 63 75 70 65 72 65 72 20 76 6F 73 20 64 6F 6E 6E cuperer vos donn
01AEB0: 65 65 73 2C 20 73 6F 72 74 65 7A 20 64 65 20 6C ees, sortez de l
01AEC0: 27 61 70 70 6C 69 63 61 74 69 6F 6E 20 71 75 61 'application qua
01AED0: 6E 64 20 76 6F 75 73 22 0D 0A 3F 20 22 73 65 72 nd vous"..? "ser
01AEE0: 65 7A 20 72 65 76 65 6E 75 20 61 75 20 6D 65 6E ez revenu au men
01AEF0: 75 20 65 74 20 73 75 69 76 65 7A 20 6C 65 73 20 u et suivez les
01AF00: 69 6E 64 69 63 61 74 69 6F 6E 73 20 64 65 20 6C indications de l
01AF10: 61 20 62 72 6F 63 68 75 72 65 2C 20 70 61 72 61 a brochure, para
01AF20: 67 72 61 70 68 65 20 33 3B 0D 0A 2E 33 32 22 0D graphe 3;...32".
01AF30: 0A 3F 0D 0A 3F 20 22 54 61 70 65 7A 20 73 75 72 .?..? "Tapez sur
01AF40: 20 75 6E 65 20 74 6F 75 63 68 65 20 70 6F 75 72 une touche pour
01AF50: 20 63 6F 6E 74 69 6E 75 65 72 22 0D 0A 77 61 69 continuer"..wai
01AF60: 74 0D 0A 72 65 74 75 72 6E 0D 0A 0D 0A 0D 0A 1A t..return.......
01AF70: 1A 70 61 72 20 64 65 66 61 75 74 20 28 61 3A 2C .par defaut (a:,
01AF80: 62 3A 20 6F 75 20 6D 3A 29 20 3A 27 0D 0A 20 20 b: ou m:) :'..
01AF90: 20 65 6E 64 69 66 0D 0A 20 20 20 64 6F 20 77 68 endif.. do wh
01AFA0: 69 6C 65 20 63 6F 72 72 65 63 74 3D 27 66 27 0D ile correct='f'.
01AFB0: 0A 20 20 20 20 20 20 40 20 35 2C 36 30 20 67 65 . @ 5,60 ge
01AFC0: 74 20 75 6E 69 74 0D 0A 20 20 20 20 20 20 72 65 t unit.. re
01AFD0: 61 64 0D 0A 20 20 20 20 20 20 63 6C 65 61 72 20 ad.. clear
01AFE0: 67 65 74 0D 0A 20 20 20 20 20 20 69 66 20 21 28 get.. if !(
01AFF0: 75 6E 69 74 29 23 27 41 3A 27 2E 61 6E 64 2E 21 unit)#'A:'.and.!
01B000: 65 70 3D 27 47 27 2E 6F 72 2E 72 65 70 3D 27 50 ep='G'.or.rep='P
01B010: 27 0D 0A 20 20 20 72 65 70 6C 61 63 65 20 76 61 '.. replace va
01B020: 6C 31 20 77 69 74 68 20 6E 6F 6D 7A 0D 0A 20 20 l1 with nomz..
01B030: 20 65 6E 64 69 66 0D 0A 20 20 20 69 66 20 72 65 endif.. if re
01B040: 70 32 3D 27 42 27 2E 6F 72 2E 72 65 70 32 3D 27 p2='B'.or.rep2='
01B050: 44 27 2E 6F 72 2E 72 65 70 32 3D 27 4D 27 0D 0A D'.or.rep2='M'..
01B060: 20 20 20 20 20 20 69 66 20 6D 74 79 70 65 20 3D if mtype =
01B070: 20 27 43 27 0D 0A 20 20 20 20 20 20 20 20 20 72 'C'.. r
01B080: 65 70 6C 61 63 65 20 76 61 6C 32 20 77 69 74 68 eplace val2 with
01B090: 20 76 61 6C 64 65 62 2C 76 61 6C 33 20 77 69 74 valdeb,val3 wit
01B0A0: 68 20 76 61 6C 66 69 6E 0D 0A 20 20 20 20 20 20 h valfin..
01B0B0: 65 6C 73 65 0D 0A 20 20 20 20 20 20 20 20 20 69 else.. i
01B0C0: 66 20 6E 64 65 63 20 3D 20 30 0D 0A 20 20 20 20 f ndec = 0..
01B0D0: 20 20 20 20 20 20 20 20 72 65 70 6C 61 63 65 20 replace
01B0E0: 76 61 6C 32 20 77 69 74 68 20 73 74 72 28 76 61 val2 with str(va
01B0F0: 6C 64 65 62 2C 6E 62 65 6E 74 29 2C 76 61 6C 33 ldeb,nbent),val3
01B100: 20 77 69 74 68 20 73 74 72 28 76 61 6C 66 69 6E with str(valfin
01B110: 2C 6E 62 65 6E 74 29 0D 0A 20 20 20 20 20 20 20 ,nbent)..
01B120: 20 20 65 6C 73 65 0D 0A 20 20 20 20 20 20 20 20 else..
01B130: 20 20 20 20 72 65 70 6C 61 63 65 20 76 61 6C 32 replace val2
01B140: 20 77 69 74 68 20 73 74 72 28 76 61 6C 64 65 62 with str(valdeb
01B150: 2C 6E 62 65 6E 74 2B 6E 64 65 63 2B 31 2C 6E 64 ,nbent+ndec+1,nd
01B160: 65 63 29 2C 76 61 6C 33 20 77 69 74 68 20 3B 0D ec),val3 with ;.
01B170: 0A 20 20 20 20 20 20 20 20 20 20 20 20 73 74 72 . str
01B180: 28 76 61 6C 66 69 6E 2C 6E 62 65 6E 74 2B 6E 64 (valfin,nbent+nd
01B190: 65 63 2B 31 2C 6E 64 65 63 29 0D 0A 20 20 20 20 ec+1,ndec)..
01B1A0: 20 20 20 20 20 65 6E 64 69 66 0D 0A 20 20 20 20 endif..
01B1B0: 20 20 65 6E 64 69 66 0D 0A 20 20 20 65 6E 64 69 endif.. endi
01B1C0: 66 0D 0A 20 20 20 69 66 20 72 65 70 32 3D 27 4C f.. if rep2='L
01B1D0: 27 0D 0A 20 20 20 20 20 20 72 65 70 6C 61 63 65 '.. replace
01B1E0: 20 76 61 6C 32 20 77 69 74 68 20 6C 69 73 74 63 val2 with listc
01B1F0: 0D 0A 20 20 20 65 6E 64 69 66 0D 0A 65 6E 64 69 .. endif..endi
01B200: 2A 20 6D 61 6A 20 20 20 20 20 20 20 70 72 6F 67 * maj prog
01B210: 72 61 6D 6D 65 20 64 65 20 6D 69 73 65 20 61 20 ramme de mise a
01B220: 6A 6F 75 72 20 64 75 20 66 69 63 68 69 65 72 3A jour du fichier:
01B230: 20 63 72 65 61 74 69 6F 6E 2C 6D 6F 64 69 66 69 creation,modifi
01B240: 63 61 74 69 6F 6E 20 6F 75 0D 0A 2A 20 73 75 70 cation ou..* sup
01B250: 70 72 65 73 73 69 6F 6E 0D 0A 0D 0A 73 74 6F 72 pression....stor
01B260: 65 20 30 20 74 6F 20 6E 6F 6D 65 73 73 0D 0A 73 e 0 to nomess..s
01B270: 74 6F 72 65 20 27 66 27 20 74 6F 20 63 6F 72 72 tore 'f' to corr
01B280: 65 63 74 0D 0A 2A 20 61 66 66 69 63 68 65 72 20 ect..* afficher
01B290: 6C 65 73 20 7A 6F 6E 65 73 20 6E 6F 6E 20 63 6C les zones non cl
01B2A0: 65 0D 0A 64 6F 20 77 68 69 6C 65 20 63 6F 72 72 e..do while corr
01B2B0: 65 63 74 3D 27 66 27 0D 0A 20 20 20 73 65 6C 65 ect='f'.. sele
01B2C0: 63 74 20 70 72 69 6D 61 72 79 0D 0A 20 20 20 75 ct primary.. u
01B2D0: 73 65 20 26 66 72 65 66 20 69 6E 64 65 78 20 26 se &fref index &
01B2E0: 78 63 6C 65 0D 0A 20 20 20 73 74 6F 72 65 20 6E xcle.. store n
01B2F0: 62 7A 6F 6E 70 2B 31 20 74 6F 20 76 31 0D 0A 20 bzonp+1 to v1..
01B300: 20 20 2A 20 73 65 20 70 6F 73 69 74 69 6F 6E 6E * se positionn
01B310: 65 72 20 73 75 72 20 6C 61 20 70 72 65 6D 69 65 er sur la premie
01B320: 72 65 20 7A 6F 6E 65 20 6E 6F 6E 20 63 6C 65 20 re zone non cle
01B330: 73 69 20 65 6C 6C 65 20 65 78 69 73 74 65 0D 0A si elle existe..
01B340: 20 20 20 73 74 6F 72 65 20 73 74 72 28 76 31 2C store str(v1,
01B350: 32 2C 30 29 20 74 6F 20 63 6C 65 0D 0A 20 20 20 2,0) to cle..
01B360: 66 69 6E 64 20 26 63 6C 65 0D 0A 20 20 20 72 65 find &cle.. re
01B370: 6C 65 61 73 65 20 63 6C 65 0D 0A 20 20 20 69 66 lease cle.. if
01B380: 20 23 20 23 20 30 0D 0A 20 20 20 20 20 20 73 65 # # 0.. se
01B390: 74 20 69 6E 74 65 6E 73 69 74 79 20 6F 66 66 0D t intensity off.
01B3A0: 0A 20 20 20 20 20 20 64 6F 20 77 68 69 6C 65 20 . do while
01B3B0: 2E 6E 6F 74 2E 65 6F 66 0D 0A 20 20 20 20 20 20 .not.eof..
01B3C0: 20 20 20 73 74 6F 72 65 20 27 6D 7A 6F 6E 27 2D store 'mzon'-
01B3D0: 73 74 72 28 6E 6F 7A 2C 31 2B 69 6E 74 28 6E 6F str(noz,1+int(no
01B3E0: 7A 2F 31 30 29 2D 69 6E 74 28 6E 6F 7A 2F 32 30 z/10)-int(noz/20
01B3F0: 29 2D 69 6E 74 28 6E 6F 7A 2F 33 30 29 29 20 74 )-int(noz/30)) t
01B400: 66 0D 0A 72 65 6C 65 61 73 65 20 72 65 70 2C 72 f..release rep,r
01B410: 65 70 32 2C 6E 6F 6D 7A 2C 76 61 6C 64 65 62 2C ep2,nomz,valdeb,
01B420: 76 61 6C 66 69 6E 2C 6C 69 73 74 63 2C 6E 62 65 valfin,listc,nbe
01B430: 6E 74 2C 6E 64 65 63 0D 0A 72 65 74 75 72 6E 0D nt,ndec..return.
01B440: 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D ................
01B450: 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D ................
01B460: 0A 0D 0A 1A 1A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D ................
01B470: 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D ................
01B480: 0A 0D 0A 0D 0A 1A 1A 0D 0A 0D 0A 0D 0A 0D 0A 0D ................
01B490: 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 1A 1A 0D ................
01B4A0: 0A 72 65 6C 65 61 73 65 20 72 65 70 2C 72 65 70 .release rep,rep
01B4B0: 32 2C 6E 6F 6D 7A 2C 76 61 6C 64 65 62 2C 76 61 2,nomz,valdeb,va
01B4C0: 6C 66 69 6E 2C 6C 69 73 74 63 0D 0A 72 65 74 75 lfin,listc..retu
01B4D0: 72 6E 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A rn..............
01B4E0: 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A ................
01B4F0: 0D 0A 0D 0A 0D 0A 1A 1A 0D 0A 0D 0A 0D 0A 0D 0A ................
01B500: 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A ................
01B510: 1A 1A 20 20 20 20 65 6E 64 69 66 0D 0A 20 20 20 .. endif..
01B520: 20 20 20 20 20 20 72 65 6C 65 61 73 65 20 6E 62 release nb
01B530: 65 6E 74 2C 6E 64 65 63 0D 0A 20 20 20 20 20 20 ent,ndec..
01B540: 65 6E 64 69 66 0D 0A 20 20 20 65 6E 64 69 66 0D endif.. endif.
01B550: 0A 20 20 20 69 66 20 72 65 70 32 3D 27 4C 27 0D . if rep2='L'.
01B560: 0A 20 20 20 20 20 20 72 65 70 6C 61 63 65 20 76 . replace v
01B570: 61 6C 32 20 77 69 74 68 20 6C 69 73 74 63 0D 0A al2 with listc..
01B580: 20 20 20 65 6E 64 69 66 0D 0A 65 6E 64 69 66 0D endif..endif.
01B590: 0A 72 65 6C 65 61 73 65 20 72 65 70 2C 72 65 70 .release rep,rep
01B5A0: 32 2C 6E 6F 6D 7A 2C 76 61 6C 64 65 62 2C 76 61 2,nomz,valdeb,va
01B5B0: 6C 66 69 6E 2C 6C 69 73 74 63 0D 0A 72 65 74 75 lfin,listc..retu
01B5C0: 72 6E 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A rn..............
01B5D0: 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A ................
01B5E0: 0D 0A 0D 0A 0D 0A 1A 1A 0D 0A 0D 0A 0D 0A 0D 0A ................
01B5F0: 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 1A 1A 66 69 ..............fi
01B600: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
01B610: 17 00 01 00 02 09 4E E5 17 00 41 02 00 00 00 02 ......N...A.....
01B620: 17 00 46 02 00 00 00 02 17 00 42 02 00 00 00 02 ..F.......B.....
01B630: 17 00 47 02 00 00 00 02 17 00 43 02 00 00 00 02 ..G.......C.....
01B640: 17 00 48 02 00 00 00 02 17 00 44 02 00 00 00 02 ..H.......D.....
01B650: 17 00 49 02 00 00 00 02 17 00 45 02 00 00 00 02 ..I.......E.....
01B660: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B670: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B680: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B690: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B6A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B6B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B6C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B6D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B6E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B6F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B700: 6F 20 6D 7A 6F 6E 0D 0A 20 20 20 20 20 20 20 20 o mzon..
01B710: 20 69 66 20 6E 6F 6D 65 73 73 3D 30 0D 0A 20 20 if nomess=0..
01B720: 20 20 20 20 20 20 20 20 20 20 69 66 20 74 65 73 if tes
01B730: 74 3D 27 64 27 0D 0A 20 20 20 20 20 20 20 20 20 t='d'..
01B740: 20 20 20 20 20 20 69 66 20 76 65 72 69 66 3D 22 if verif="
01B750: 4E 41 22 2E 61 6E 64 2E 66 69 65 6C 64 3A 74 79 NA".and.field:ty
01B760: 70 65 23 22 4E 22 0D 0A 20 20 20 20 20 20 20 20 pe#"N"..
01B770: 20 20 20 20 20 20 20 20 20 20 73 74 6F 72 65 20 store
01B780: 74 61 62 76 2D 27 4E 27 20 74 6F 20 74 61 62 76 tabv-'N' to tabv
01B790: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
01B7A0: 20 65 6C 73 65 0D 0A 20 20 20 20 20 20 20 20 20 else..
01B7B0: 20 20 20 20 20 20 20 20 20 73 74 6F 72 65 20 74 store t
01B7C0: 61 62 76 2D 22 4F 22 20 74 6F 20 74 61 62 76 0D abv-"O" to tabv.
01B7D0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
01B7E0: 65 6E 64 69 66 0D 0A 20 20 20 20 20 20 20 20 20 endif..
01B7F0: 20 20 20 20 20 20 40 20 6C 74 2C 63 74 20 73 61 @ lt,ct sa
01B800: 79 20 74 65 78 74 65 0D 0A 20 20 20 20 20 20 20 y texte..
01B810: 20 20 20 20 20 65 6E 64 69 66 0D 0A 20 20 20 20 endif..
01B820: 20 20 20 20 20 20 20 20 64 6F 20 69 6E 69 74 7A do initz
01B830: 6F 6E 65 0D 0A 20 20 20 20 20 20 20 20 20 65 6C one.. el
01B840: 73 65 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 se..
01B850: 64 6F 20 63 61 73 65 0D 0A 20 20 20 20 20 20 20 do case..
01B860: 20 20 20 20 20 20 20 20 63 61 73 65 20 24 28 76 case $(v
01B870: 65 72 69 66 2C 32 2C 31 29 3D 27 44 27 0D 0A 20 erif,2,1)='D'..
01B880: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 74 st
01B890: 6F 72 65 20 22 70 69 63 74 75 72 65 20 27 39 39 ore "picture '99
01B8A0: 2F 39 39 2F 39 39 27 22 20 74 6F 20 70 69 63 0D /99/99'" to pic.
01B8B0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
01B8C0: 63 61 73 65 20 24 28 76 65 72 69 66 2C 32 2C 31 case $(verif,2,1
01B8D0: 29 3D 27 4D 27 0D 0A 20 20 20 20 20 20 20 20 20 )='M'..
01B8E0: 20 20 20 20 20 20 73 74 6F 72 65 20 22 70 69 63 store "pic
01B8F0: 74 75 72 65 20 27 39 39 2F 39 39 27 22 20 74 6F ture '99/99'" to
01B900: 6D 7A 6F 6E 33 30 2C 6D 7A 6F 6E 33 31 2C 6D 7A mzon30,mzon31,mz
01B910: 6F 6E 33 32 0D 0A 73 65 6C 65 63 74 20 70 72 69 on32..select pri
01B920: 6D 61 72 79 0D 0A 75 73 65 0D 0A 73 65 6C 65 63 mary..use..selec
01B930: 74 20 73 65 63 6F 6E 64 61 72 79 0D 0A 75 73 65 t secondary..use
01B940: 0D 0A 72 65 74 75 72 6E 0D 0A 0D 0A 0D 0A 0D 0A ..return........
01B950: 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A ................
01B960: 0D 0A 0D 0A 1A 1A 20 20 20 20 20 20 20 20 73 74 ...... st
01B970: 6F 72 65 20 21 28 26 6D 7A 6F 6E 29 20 74 6F 20 ore !(&mzon) to
01B980: 26 6D 7A 6F 6E 0D 0A 20 20 20 20 20 20 65 6E 64 &mzon.. end
01B990: 69 66 0D 0A 20 20 20 20 20 20 73 65 6C 65 63 74 if.. select
01B9A0: 20 73 65 63 6F 6E 64 61 72 79 0D 0A 20 20 20 20 secondary..
01B9B0: 20 20 72 65 70 6C 61 63 65 20 26 6E 6F 6D 72 65 replace &nomre
01B9C0: 66 20 77 69 74 68 20 26 6D 7A 6F 6E 0D 0A 20 20 f with &mzon..
01B9D0: 20 20 20 20 73 65 6C 65 63 74 20 70 72 69 6D 61 select prima
01B9E0: 72 79 0D 0A 20 20 20 20 20 20 73 6B 69 70 0D 0A ry.. skip..
01B9F0: 20 20 20 65 6E 64 64 6F 0D 0A 65 6E 64 69 66 0D enddo..endif.
01BA00: 0A 72 65 6C 65 61 73 65 20 6E 6F 7A 6F 6E 65 0D .release nozone.
01BA10: 0A 72 65 6C 65 61 73 65 20 6E 6F 6D 72 65 66 2C .release nomref,
01BA20: 70 69 63 2C 63 6F 72 72 65 63 74 2C 6D 7A 6F 6E pic,correct,mzon
01BA30: 2C 6D 7A 6F 6E 31 2C 6D 7A 6F 6E 32 2C 6D 7A 6F ,mzon1,mzon2,mzo
01BA40: 6E 33 2C 6D 7A 6F 6E 34 2C 6D 7A 6F 6E 35 2C 6D n3,mzon4,mzon5,m
01BA50: 7A 6F 6E 36 2C 6D 7A 6F 6E 37 0D 0A 72 65 6C 65 zon6,mzon7..rele
01BA60: 61 73 65 20 6D 7A 6F 6E 38 2C 6D 7A 6F 6E 39 2C ase mzon8,mzon9,
01BA70: 6D 7A 6F 6E 31 30 2C 6D 7A 6F 6E 31 31 2C 6D 7A mzon10,mzon11,mz
01BA80: 6F 6E 31 32 2C 6D 7A 6F 6E 31 33 2C 6D 7A 6F 6E on12,mzon13,mzon
01BA90: 31 34 2C 6D 7A 6F 6E 31 35 2C 6D 7A 6F 6E 31 36 14,mzon15,mzon16
01BAA0: 2C 6D 7A 6F 6E 31 37 0D 0A 72 65 6C 65 61 73 65 ,mzon17..release
01BAB0: 20 6D 7A 6F 6E 31 38 2C 6D 7A 6F 6E 31 39 2C 6D mzon18,mzon19,m
01BAC0: 7A 6F 6E 32 30 2C 6D 7A 6F 6E 32 31 2C 6D 7A 6F zon20,mzon21,mzo
01BAD0: 6E 32 32 2C 6D 7A 6F 6E 32 33 2C 6D 7A 6F 6E 32 n22,mzon23,mzon2
01BAE0: 34 2C 6D 7A 6F 6E 32 35 2C 6D 7A 6F 6E 32 36 0D 4,mzon25,mzon26.
01BAF0: 0A 72 65 6C 65 61 73 65 20 6D 7A 6F 6E 32 37 2C .release mzon27,
01BB00: 20 70 69 63 0D 0A 20 20 20 20 20 20 20 20 20 20 pic..
01BB10: 20 20 20 20 20 6F 74 68 65 72 77 69 73 65 0D 0A otherwise..
01BB20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 s
01BB30: 74 6F 72 65 20 22 20 22 20 74 6F 20 70 69 63 0D tore " " to pic.
01BB40: 0A 20 20 20 20 20 20 20 20 20 20 20 20 65 6E 64 . end
01BB50: 63 61 73 65 0D 0A 20 20 20 20 20 20 20 20 20 65 case.. e
01BB60: 6E 64 69 66 0D 0A 20 20 20 20 20 20 20 20 20 40 ndif.. @
01BB70: 20 6C 73 2C 63 73 20 67 65 74 20 26 6D 7A 6F 6E ls,cs get &mzon
01BB80: 20 26 70 69 63 0D 0A 20 20 20 20 20 20 20 20 20 &pic..
01BB90: 73 6B 69 70 0D 0A 20 20 20 20 20 20 65 6E 64 64 skip.. endd
01BBA0: 6F 0D 0A 20 20 20 20 20 20 72 65 6C 65 61 73 65 o.. release
01BBB0: 20 70 69 63 0D 0A 20 20 20 20 20 20 73 65 74 20 pic.. set
01BBC0: 69 6E 74 65 6E 73 69 74 79 20 6F 6E 0D 0A 20 20 intensity on..
01BBD0: 20 20 20 20 69 66 20 63 68 6F 69 78 20 3D 20 27 if choix = '
01BBE0: 33 27 0D 0A 20 20 20 20 20 20 20 20 20 2A 20 6E 3'.. * n
01BBF0: 65 20 70 61 73 20 64 65 6D 61 6E 64 65 72 20 6C e pas demander l
01BC00: 61 20 73 61 69 73 69 65 0D 0A 20 20 20 20 20 20 a saisie..
01BC10: 20 20 20 63 6C 65 61 72 20 67 65 74 0D 0A 20 20 clear get..
01BC20: 20 20 20 20 20 20 20 72 65 6C 65 61 73 65 20 76 release v
01BC30: 31 0D 0A 20 20 20 20 20 20 20 20 20 73 74 6F 72 1.. stor
01BC40: 65 20 27 74 27 20 74 6F 20 63 6F 72 72 65 63 74 e 't' to correct
01BC50: 0D 0A 20 20 20 20 20 20 65 6C 73 65 0D 0A 20 20 .. else..
01BC60: 20 20 20 20 20 20 20 72 65 61 64 0D 0A 20 20 20 read..
01BC70: 20 20 20 20 20 20 63 6C 65 61 72 20 67 65 74 0D clear get.
01BC80: 0A 20 20 20 20 20 20 20 20 20 40 20 6C 69 67 6D . @ ligm
01BC90: 31 2C 30 20 73 61 79 20 22 76 6F 75 6C 65 7A 2D 1,0 say "voulez-
01BCA0: 76 6F 75 73 20 6C 65 20 63 6F 6E 74 72 6F 6C 65 vous le controle
01BCB0: 20 64 65 20 76 6F 73 20 7A 6F 6E 65 73 20 28 4F de vos zones (O
01BCC0: 3D 6F 75 69 2C 4E 3D 6E 6F 6E 29 20 3A 22 0D 0A =oui,N=non) :"..
01BCD0: 20 20 20 20 20 20 20 20 20 73 74 6F 72 65 20 27 store '
01BCE0: 4F 27 20 74 6F 20 72 65 70 0D 0A 20 20 20 20 20 O' to rep..
01BCF0: 20 20 20 20 40 20 6C 69 67 6D 31 2C 35 38 20 67 @ ligm1,58 g
01BD00: 72 24 2B 2B EB 2A EE 2F 2B 2B EB CD 7E 38 2A E6 r$++.*./++..~8*.
01BD10: 2F 22 5A 7C CD 09 24 3A FB 2F 4F 3A F6 2F 91 FA /"Z|..$:./O:./..
01BD20: 31 1F 32 F6 2F 2A E6 2F 22 F0 2F CD 35 24 CD 4A 1.2./*./"./.5$.J
01BD30: 24 2A E6 2F 23 22 E6 2F 3E FF 32 FD 2F 2A 6F 30 $*./#"./>.2./*o0
01BD40: EB 2A 69 30 CD C0 36 C2 AE 1F 2A 6B 30 23 EB 21 .*i0..6...*k0#.!
01BD50: F4 7B 3A E9 2F 4F CD 78 38 2A EE 2F 3A E8 2F CD .{:./O.x8*./:./.
01BD60: BB 36 EB 2A 5A 7C EB CD E4 36 3E 01 32 FC 2F 2A .6.*Z|...6>.2./*
01BD70: E6 2F CD 09 24 2A E6 2F 22 E4 2F 23 22 E6 2F CD ./..$*./"./#"./.
01BD80: A8 24 2A 6F 30 EB 2A F3 2F CD D8 36 44 4D 2A F3 .$*o0.*./..6DM*.
01BD90: 2F 2B 54 5D 13 13 13 CD 90 38 EB 23 22 69 30 2A /+T].....8.#"i0*
01BDA0: E4 2F EB 2A 6F 30 CD E4 36 36 01 D1 C1 C9 CD 4A ./.*o0..66.....J
01BDB0: 24 CD D4 23 CD 6F 24 C3 43 1E CD 98 24 C5 D5 E5 $..#.o$.C...$...
01BDC0: CD 01 23 D1 7C B5 CA D8 1F CD C0 36 CA D8 1F CD ..#.|......6....
01BDD0: E9 21 D2 C4 1F 21 00 00 D1 C1 C9 C3 F9 1F CD 98 .!...!..........
01BDE0: 24 22 F7 2F C5 D5 CD 43 21 CD E3 24 21 F8 7B 3A $"./...C!..$!.{:
01BDF0: DE 2F 37 CD B2 20 22 F9 2F 2A F9 2F EB 2A F7 2F ./7.. "./*./.*./
01BE00: CD C0 36 CA 23 20 CD E9 21 DA 20 20 22 F9 2F CD ..6.# ..!. "./.
01BE10: 6F 24 11 F8 7B EB 3A DE 2F 4F CD FA 24 CA F9 1F o$..{.:./O..$...
01BE20: 21 00 00 D1 C1 C9 CD 98 24 C5 D5 CD BB 23 CD 4A !.......$....#.J
01BE30: 24 DA AE 20 CD D4 23 3A F6 2F 4F 3A FC 2F 91 CA $.. ..#:./O:./..
01BE40: 6A 20 4F CD EA 24 44 4D 03 03 CD 6F 24 2B 2B E5 j O..$DM...o$++.
01BE50: 3A F6 2F 3C CD 72 24 2B 2B D1 CD 7E 38 21 FC 2F :./<.r$++..~8!./
01BE60: 35 CD 35 24 CD 06 24 D1 C1 C9 21 F6 2F 35 21 FC 5.5$..$...!./5!.
01BE70: 2F 35 CD 06 24 3A FC 2F B7 CA 2E 20 CD 6F 24 11 /5..$:./... .o$.
01BE80: F6 7B 3A E8 2F 4F CD 78 38 CD 4A 24 DA AE 20 CD .{:./O.x8.J$.. .
01BE90: D4 23 CD 6F 24 EB 21 F6 7B 3A E8 2F 4F CD 78 38 .#.o$.!.{:./O.x8
01BEA0: CD 06 24 3A F6 2F 4F 3A FC 2F B9 CA 7C 20 D1 C1 ..$:./O:./..| ..
01BEB0: C9 B7 C5 D5 4F 17 32 F5 2F 22 EC 2F CD BB 23 2A ....O.2./"./..#*
01BEC0: 6F 30 22 69 30 2A E4 2F 22 F0 2F CD D7 23 3A FC o0"i0*./"./..#:.
01BED0: 2F B7 CA 37 21 3E 01 32 F6 2F 2A 6B 30 11 03 00 /..7!>.2./*k0...
01BEE0: 19 EB 2A EC 2F CD FA 24 CA 0E 21 DA F4 20 CD D2 ..*./..$..!.. ..
01BEF0: 24 D2 E2 20 EB 2B 2B CD E9 36 7A B3 CA 37 21 EB $.. .++..6z..7!.
01BF00: 65 74 20 72 65 70 0D 0A 20 20 20 20 20 20 20 20 et rep..
01BF10: 20 72 65 61 64 0D 0A 20 20 20 20 20 20 20 20 20 read..
01BF20: 63 6C 65 61 72 20 67 65 74 0D 0A 20 20 20 20 20 clear get..
01BF30: 20 20 20 20 40 20 6C 69 67 6D 31 2C 30 0D 0A 20 @ ligm1,0..
01BF40: 20 20 20 20 20 20 20 20 69 66 20 21 28 72 65 70 if !(rep
01BF50: 29 3D 27 4E 27 0D 0A 20 20 20 20 20 20 20 20 20 )='N'..
01BF60: 20 20 20 72 65 6C 65 61 73 65 20 76 31 0D 0A 20 release v1..
01BF70: 20 20 20 20 20 20 20 20 20 20 20 73 74 6F 72 65 store
01BF80: 20 27 74 27 20 74 6F 20 63 6F 72 72 65 63 74 0D 't' to correct.
01BF90: 0A 20 20 20 20 20 20 20 20 20 65 6C 73 65 0D 0A . else..
01BFA0: 20 20 20 20 20 20 20 20 20 20 20 20 2A 20 76 65 * ve
01BFB0: 72 69 66 69 65 72 20 6C 65 73 20 7A 6F 6E 65 73 rifier les zones
01BFC0: 20 6E 6F 6E 20 63 6C 65 73 0D 0A 20 20 20 20 20 non cles..
01BFD0: 20 20 20 20 20 20 20 72 65 6C 65 61 73 65 20 72 release r
01BFE0: 65 70 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 ep..
01BFF0: 73 74 6F 72 65 20 39 39 20 74 6F 20 76 32 0D 0A store 99 to v2..
01C000: 20 20 20 20 20 20 20 20 20 20 20 20 64 6F 20 76 do v
01C010: 65 72 69 66 0D 0A 20 20 20 20 20 20 20 20 20 20 erif..
01C020: 20 20 69 66 20 6E 6F 6D 65 73 73 20 3D 20 30 0D if nomess = 0.
01C030: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
01C040: 73 74 6F 72 65 20 27 74 27 20 74 6F 20 63 6F 72 store 't' to cor
01C050: 72 65 63 74 0D 0A 20 20 20 20 20 20 20 20 20 20 rect..
01C060: 20 20 65 6C 73 65 0D 0A 20 20 20 20 20 20 20 20 else..
01C070: 20 20 20 20 20 20 20 64 6F 20 61 66 66 6D 65 73 do affmes
01C080: 73 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 65 s.. e
01C090: 6E 64 69 66 0D 0A 20 20 20 20 20 20 20 20 20 65 ndif.. e
01C0A0: 6E 64 69 66 0D 0A 20 20 20 20 20 20 20 20 20 72 ndif.. r
01C0B0: 65 6C 65 61 73 65 20 72 65 70 0D 0A 20 20 20 20 elease rep..
01C0C0: 20 20 65 6E 64 69 66 0D 0A 20 20 20 20 65 6C 73 endif.. els
01C0D0: 65 0D 0A 20 20 20 20 20 20 72 65 6C 65 61 73 65 e.. release
01C0E0: 20 76 31 0D 0A 20 20 20 20 20 20 73 74 6F 72 65 v1.. store
01C0F0: 20 27 74 27 20 74 6F 20 63 6F 72 72 65 63 74 0D 't' to correct.
01C100: 02 07 00 02 0C 56 BA 00 4E 4F 4D 00 00 00 00 00 .....V..NOM.....
01C110: 00 00 00 43 0C AA 76 00 50 52 45 4E 4F 4D 00 00 ...C..v.PRENOM..
01C120: 00 00 00 43 0C B6 76 00 44 45 52 56 49 53 49 54 ...C..v.DERVISIT
01C130: 45 00 00 43 08 C2 76 00 50 52 4F 56 49 53 49 54 E..C..v.PROVISIT
01C140: 45 00 00 43 08 CA 76 00 4C 49 45 55 00 00 00 00 E..C..v.LIEU....
01C150: 00 00 00 43 01 D2 76 00 42 45 53 4F 49 4E 00 00 ...C..v.BESOIN..
01C160: 00 00 00 43 37 D3 76 00 56 45 4E 54 45 00 00 00 ...C7.v.VENTE...
01C170: 00 00 00 4E 06 0A 77 00 41 44 52 45 53 53 45 00 ...N..w.ADRESSE.
01C180: 00 00 00 43 16 10 77 00 43 4F 44 45 50 4F 53 54 ...C..w.CODEPOST
01C190: 00 00 00 4E 05 26 77 00 56 49 4C 4C 45 00 00 00 ...N.&w.VILLE...
01C1A0: 00 00 00 43 0C 2B 77 00 54 45 4C 00 00 00 00 00 ...C.+w.TEL.....
01C1B0: 00 00 00 43 10 37 77 00 50 52 4F 46 00 00 00 00 ...C.7w.PROF....
01C1C0: 00 00 00 43 0B 47 77 00 4D 41 52 51 55 45 00 00 ...C.Gw.MARQUE..
01C1D0: 00 00 00 43 0B 52 77 00 54 59 50 45 00 00 00 00 ...C.Rw.TYPE....
01C1E0: 00 00 00 43 06 5D 77 00 0D 00 00 00 00 00 00 00 ...C.]w.........
01C1F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C200: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C210: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C220: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C230: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C240: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C250: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C260: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C270: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C280: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C290: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C2A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C2B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C2C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C2D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C2E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C2F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C300: 0A 20 20 20 65 6E 64 69 66 0D 0A 65 6E 64 64 6F . endif..enddo
01C310: 0D 0A 0D 0A 2A 20 74 6F 75 74 20 65 73 74 20 63 ....* tout est c
01C320: 6F 72 72 65 63 74 2E 20 65 63 72 69 72 65 20 64 orrect. ecrire d
01C330: 61 6E 73 20 6C 65 20 66 69 63 68 69 65 72 0D 0A ans le fichier..
01C340: 69 66 20 63 68 6F 69 78 3D 27 33 27 0D 0A 20 20 if choix='3'..
01C350: 20 2A 20 64 65 6D 61 6E 64 65 72 20 63 6F 6E 66 * demander conf
01C360: 69 72 6D 61 74 69 6F 6E 20 73 75 70 70 72 65 73 irmation suppres
01C370: 73 69 6F 6E 0D 0A 20 20 20 64 6F 20 63 6F 6E 66 sion.. do conf
01C380: 73 75 70 0D 0A 20 20 20 69 66 20 21 28 63 6F 6E sup.. if !(con
01C390: 66 69 72 6D 29 3D 27 4E 27 0D 0A 20 20 20 20 20 firm)='N'..
01C3A0: 20 72 65 6C 65 61 73 65 20 63 6F 6E 66 69 72 6D release confirm
01C3B0: 0D 0A 20 20 20 65 6C 73 65 0D 0A 20 20 20 20 20 .. else..
01C3C0: 20 72 65 6C 65 61 73 65 20 63 6F 6E 66 69 72 6D release confirm
01C3D0: 0D 0A 20 20 20 20 20 20 73 65 6C 65 63 74 20 73 .. select s
01C3E0: 65 63 6F 6E 64 61 72 79 0D 0A 20 20 20 20 20 20 econdary..
01C3F0: 64 65 6C 65 0D 0A 20 20 20 20 20 20 70 61 63 6B dele.. pack
01C400: 0D 0A 20 20 20 20 20 20 73 74 6F 72 65 20 30 20 .. store 0
01C410: 74 6F 20 6E 6F 63 6F 75 72 0D 0A 20 20 20 65 6E to nocour.. en
01C420: 64 69 66 0D 0A 65 6C 73 65 0D 0A 20 20 20 73 65 dif..else.. se
01C430: 6C 65 63 74 20 73 65 63 6F 6E 64 61 72 79 0D 0A lect secondary..
01C440: 20 20 20 69 66 20 63 68 6F 69 78 20 3D 20 27 31 if choix = '1
01C450: 27 0D 0A 20 20 20 20 20 20 61 70 70 65 6E 64 20 '.. append
01C460: 62 6C 61 6E 6B 0D 0A 20 20 20 20 20 20 73 74 6F blank.. sto
01C470: 72 65 20 23 20 74 6F 20 6E 6F 63 6F 75 72 0D 0A re # to nocour..
01C480: 20 20 20 65 6E 64 69 66 0D 0A 20 20 20 73 65 6C endif.. sel
01C490: 65 63 74 20 70 72 69 6D 61 72 79 0D 0A 20 20 20 ect primary..
01C4A0: 73 65 74 20 69 6E 64 65 78 20 74 6F 0D 0A 20 20 set index to..
01C4B0: 20 67 6F 74 6F 20 74 6F 70 0D 0A 20 20 20 64 6F goto top.. do
01C4C0: 20 77 68 69 6C 65 20 2E 6E 6F 74 2E 65 6F 66 0D while .not.eof.
01C4D0: 0A 20 20 20 20 20 20 73 74 6F 72 65 20 27 6D 7A . store 'mz
01C4E0: 6F 6E 27 2D 73 74 72 28 6E 6F 7A 2C 31 2B 69 6E on'-str(noz,1+in
01C4F0: 74 28 6E 6F 7A 2F 31 30 29 2D 69 6E 74 28 6E 6F t(noz/10)-int(no
01C500: 00 00 00 00 00 00 00 00 00 20 44 55 52 41 4E 54 ......... DURANT
01C510: 20 20 20 20 20 20 4C 55 43 20 20 20 20 20 20 20 LUC
01C520: 20 20 30 38 2F 30 32 2F 38 36 30 31 2F 30 31 2F 08/02/8601/01/
01C530: 38 37 4E 67 65 73 74 69 6F 6E 20 64 65 20 66 69 87Ngestion de fi
01C540: 63 68 69 65 72 2C 74 72 61 69 74 65 6D 65 6E 74 chier,traitement
01C550: 20 64 65 20 74 65 78 74 65 20 20 20 20 20 20 20 de texte
01C560: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 30 0
01C570: 31 32 2C 52 55 45 20 44 45 20 4C 41 20 47 41 52 12,RUE DE LA GAR
01C580: 45 20 20 20 20 20 38 38 30 30 30 45 50 49 4E 41 E 88000EPINA
01C590: 4C 20 20 20 20 20 20 32 39 2E 38 32 2E 31 39 2E L 29.82.19.
01C5A0: 38 38 20 20 20 20 20 4D 45 4E 55 49 53 49 45 52 88 MENUISIER
01C5B0: 20 20 41 4D 53 54 52 41 44 20 20 20 20 50 43 57 AMSTRAD PCW
01C5C0: 20 38 32 20 42 41 52 54 48 45 52 20 20 20 20 20 82 BARTHER
01C5D0: 42 45 52 4E 41 52 44 20 20 20 20 20 31 32 2F 30 BERNARD 12/0
01C5E0: 32 2F 38 36 31 38 2F 30 33 2F 38 36 42 4C 4F 47 2/8618/03/86BLOG
01C5F0: 49 43 49 45 4C 20 47 45 53 54 49 4F 4E 20 44 45 ICIEL GESTION DE
01C600: 20 46 49 43 48 49 45 52 2C 20 43 4F 4D 50 54 41 FICHIER, COMPTA
01C610: 42 49 4C 49 54 45 20 20 20 20 20 20 20 20 20 20 BILITE
01C620: 20 20 20 20 20 20 20 20 20 30 31 32 2C 20 52 55 012, RU
01C630: 45 20 44 45 20 4C 41 20 47 41 52 45 20 20 20 20 E DE LA GARE
01C640: 38 38 30 30 30 45 50 49 4E 41 4C 20 20 20 20 20 88000EPINAL
01C650: 20 32 39 2E 38 32 2E 31 39 2E 38 38 20 20 20 20 29.82.19.88
01C660: 20 4D 45 4E 55 49 53 49 45 52 20 20 41 4D 53 54 MENUISIER AMST
01C670: 52 41 44 20 20 20 20 38 32 35 36 20 20 20 47 55 RAD 8256 GU
01C680: 49 54 59 20 20 20 20 20 20 20 4A 2E 4C 55 43 20 ITY J.LUC
01C690: 20 20 20 20 20 20 31 30 2F 30 32 2F 38 36 31 31 10/02/8611
01C6A0: 2F 30 33 2F 38 36 4E 47 45 53 54 49 4F 4E 20 44 /03/86NGESTION D
01C6B0: 45 20 43 41 42 49 4E 45 54 20 4D 45 44 49 43 41 E CABINET MEDICA
01C6C0: 4C 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 L
01C6D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 1
01C6E0: 32 30 30 30 32 33 2C 51 55 41 49 20 44 45 53 20 200023,QUAI DES
01C6F0: 34 20 56 45 4E 54 53 20 20 20 35 34 30 30 30 4E 4 VENTS 54000N
01C700: 7A 2F 32 30 29 2D 69 6E 74 28 6E 6F 7A 2F 33 30 z/20)-int(noz/30
01C710: 29 29 20 74 6F 20 6D 7A 6F 6E 0D 0A 20 20 20 20 )) to mzon..
01C720: 20 20 73 74 6F 72 65 20 66 69 65 6C 64 3A 6E 61 store field:na
01C730: 6D 65 20 74 6F 20 6E 6F 6D 72 65 66 0D 0A 20 20 me to nomref..
01C740: 20 20 20 20 69 66 20 66 69 65 6C 64 3A 74 79 70 if field:typ
01C750: 65 3D 22 43 22 0D 0A 20 20 20 20 20 20 20 20 20 e="C"..
01C760: 73 74 6F 72 65 20 21 28 26 6D 7A 6F 6E 29 20 74 store !(&mzon) t
01C770: 6F 20 26 6D 7A 6F 6E 0D 0A 20 20 20 20 20 20 65 o &mzon.. e
01C780: 6E 64 69 66 0D 0A 20 20 20 20 20 20 73 65 6C 65 ndif.. sele
01C790: 63 74 20 73 65 63 6F 6E 64 61 72 79 0D 0A 20 20 ct secondary..
01C7A0: 20 20 20 20 72 65 70 6C 61 63 65 20 26 6E 6F 6D replace &nom
01C7B0: 72 65 66 20 77 69 74 68 20 26 6D 7A 6F 6E 0D 0A ref with &mzon..
01C7C0: 20 20 20 20 20 20 73 65 6C 65 63 74 20 70 72 69 select pri
01C7D0: 6D 61 72 79 0D 0A 20 20 20 20 20 20 73 6B 69 70 mary.. skip
01C7E0: 0D 0A 20 20 20 65 6E 64 64 6F 0D 0A 65 6E 64 69 .. enddo..endi
01C7F0: 66 0D 0A 72 65 6C 65 61 73 65 20 6E 6F 7A 6F 6E f..release nozon
01C800: 65 0D 0A 72 65 6C 65 61 73 65 20 6E 6F 6D 72 65 e..release nomre
01C810: 66 2C 70 69 63 2C 63 6F 72 72 65 63 74 2C 6D 7A f,pic,correct,mz
01C820: 6F 6E 2C 6D 7A 6F 6E 31 2C 6D 7A 6F 6E 32 2C 6D on,mzon1,mzon2,m
01C830: 7A 6F 6E 33 2C 6D 7A 6F 6E 34 2C 6D 7A 6F 6E 35 zon3,mzon4,mzon5
01C840: 2C 6D 7A 6F 6E 36 2C 6D 7A 6F 6E 37 0D 0A 72 65 ,mzon6,mzon7..re
01C850: 6C 65 61 73 65 20 6D 7A 6F 6E 38 2C 6D 7A 6F 6E lease mzon8,mzon
01C860: 39 2C 6D 7A 6F 6E 31 30 2C 6D 7A 6F 6E 31 31 2C 9,mzon10,mzon11,
01C870: 6D 7A 6F 6E 31 32 2C 6D 7A 6F 6E 31 33 2C 6D 7A mzon12,mzon13,mz
01C880: 6F 6E 31 34 2C 6D 7A 6F 6E 31 35 2C 6D 7A 6F 6E on14,mzon15,mzon
01C890: 31 36 2C 6D 7A 6F 6E 31 37 0D 0A 72 65 6C 65 61 16,mzon17..relea
01C8A0: 73 65 20 6D 7A 6F 6E 31 38 2C 6D 7A 6F 6E 31 39 se mzon18,mzon19
01C8B0: 2C 6D 7A 6F 6E 32 30 2C 6D 7A 6F 6E 32 31 2C 6D ,mzon20,mzon21,m
01C8C0: 7A 6F 6E 32 32 2C 6D 7A 6F 6E 32 33 2C 6D 7A 6F zon22,mzon23,mzo
01C8D0: 6E 32 34 2C 6D 7A 6F 6E 32 35 2C 6D 7A 6F 6E 32 n24,mzon25,mzon2
01C8E0: 36 0D 0A 72 65 6C 65 61 73 65 20 6D 7A 6F 6E 32 6..release mzon2
01C8F0: 37 2C 6D 7A 6F 6E 32 38 2C 6D 7A 6F 6E 32 39 2C 7,mzon28,mzon29,
01C900: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
01C910: 18 00 01 00 02 09 4E E5 18 00 41 02 00 00 00 02 ......N...A.....
01C920: 18 00 46 02 00 00 00 02 18 00 42 02 00 00 00 02 ..F.......B.....
01C930: 18 00 47 02 00 00 00 02 18 00 43 02 00 00 00 02 ..G.......C.....
01C940: 18 00 48 02 00 00 00 02 18 00 44 02 00 00 00 02 ..H.......D.....
01C950: 18 00 49 02 00 00 00 02 18 00 45 02 00 00 00 02 ..I.......E.....
01C960: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C970: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C980: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C990: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C9A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C9B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C9C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C9D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C9E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C9F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01CA00: 41 4E 43 59 20 20 20 20 20 20 20 38 33 2E 38 39 ANCY 83.89
01CA10: 2E 34 35 2E 39 30 20 20 20 20 20 4D 45 44 45 43 .45.90 MEDEC
01CA20: 49 4E 20 20 20 20 49 42 4D 20 20 20 20 20 20 20 IN IBM
01CA30: 20 50 43 20 20 20 20 20 44 55 50 55 49 53 20 20 PC DUPUIS
01CA40: 20 20 20 20 4A 45 41 4E 20 20 20 20 20 20 20 20 JEAN
01CA50: 30 31 2F 30 31 2F 38 36 32 33 2F 30 32 2F 38 36 01/01/8623/02/86
01CA60: 42 43 4F 4D 50 41 54 42 49 4C 49 54 45 2C 47 45 BCOMPATBILITE,GE
01CA70: 53 54 49 4F 4E 20 44 45 20 53 54 4F 43 4B 20 20 STION DE STOCK
01CA80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01CA90: 20 20 20 20 20 20 20 20 20 31 33 32 33 34 31 32 1323412
01CAA0: 2C 20 51 55 41 49 20 42 4F 4E 53 20 45 4E 46 41 , QUAI BONS ENFA
01CAB0: 4E 54 53 20 35 37 30 30 31 4D 45 54 5A 20 20 20 NTS 57001METZ
01CAC0: 20 20 20 20 20 38 37 2E 33 30 2E 31 31 2E 32 39 87.30.11.29
01CAD0: 20 20 20 20 20 43 41 52 52 45 4C 45 55 52 20 20 CARRELEUR
01CAE0: 41 4D 53 54 52 41 44 20 20 20 20 38 32 35 36 20 AMSTRAD 8256
01CAF0: 20 20 4D 41 52 54 45 41 55 20 20 20 20 20 4D 49 MARTEAU MI
01CB00: 43 48 45 4C 20 20 20 20 20 20 31 30 2F 30 33 2F CHEL 10/03/
01CB10: 38 36 31 31 2F 30 33 2F 38 36 44 44 45 43 49 53 8611/03/86DDECIS
01CB20: 49 4F 4E 4E 45 4C 20 20 20 20 20 20 20 20 20 20 IONNEL
01CB30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01CB40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01CB50: 20 20 20 34 33 30 30 35 36 37 2C 20 50 4C 41 43 4300567, PLAC
01CB60: 45 20 44 45 20 4C 41 20 47 41 52 45 20 20 37 35 E DE LA GARE 75
01CB70: 30 30 32 50 41 52 49 53 20 20 20 20 20 20 20 31 002PARIS 1
01CB80: 36 2E 31 2E 34 32 2E 34 35 2E 36 35 2E 32 34 4D 6.1.42.45.65.24M
01CB90: 45 44 45 43 49 4E 20 20 20 20 48 50 20 20 20 20 EDECIN HP
01CBA0: 20 20 20 20 20 31 35 30 49 49 20 20 50 49 4E 41 150II PINA
01CBB0: 52 44 20 20 20 20 20 20 56 41 4C 45 52 49 45 20 RD VALERIE
01CBC0: 20 20 20 20 31 30 2F 30 32 2F 38 36 32 30 2F 30 10/02/8620/0
01CBD0: 33 2F 38 36 44 43 4F 4D 50 54 41 42 49 4C 49 54 3/86DCOMPTABILIT
01CBE0: 45 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 E
01CBF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01CC00: 04 00 00 01 00 43 4E 4F 4D 20 20 20 20 20 00 00 .....CNOM ..
01CC10: 02 00 43 50 52 4F 46 20 20 20 20 00 00 03 00 43 ..CPROF ....C
01CC20: 56 49 4C 4C 45 20 20 20 00 00 04 00 4C 50 52 4F VILLE ....LPRO
01CC30: 46 20 20 20 20 00 00 45 20 00 00 05 00 4C 49 45 F ..E ....LIE
01CC40: 55 20 20 20 20 20 20 00 00 0D 00 4D 41 52 51 55 U ....MARQU
01CC50: 45 20 20 20 20 00 00 01 00 4E 4F 4D 20 20 20 20 E ....NOM
01CC60: 20 20 20 00 00 02 00 50 52 45 4E 4F 4D 20 20 20 ....PRENOM
01CC70: 20 00 00 0C 00 50 52 4F 46 20 20 20 20 20 20 00 ....PROF .
01CC80: 00 04 00 50 52 4F 56 49 53 49 54 45 20 00 00 0B ...PROVISITE ...
01CC90: 00 54 45 4C 20 20 20 20 20 20 20 00 00 0E 00 54 .TEL ....T
01CCA0: 59 50 45 20 20 20 20 20 20 00 00 07 00 56 45 4E YPE ....VEN
01CCB0: 54 45 20 20 20 20 20 00 00 0A 00 56 49 4C 4C 45 TE ....VILLE
01CCC0: 20 20 20 20 20 00 00 CD 45 25 AF 32 4D 44 CD 61 ...E%.2MD.a
01CCD0: 27 C3 5B 54 3E 48 C3 53 54 3E 28 C3 53 54 AF 32 '.[T>H.ST>(.ST.2
01CCE0: 5B 56 CD 63 39 11 6E 55 CD B1 37 CA AF 51 3E FF [V.c9.nU..7..Q>.
01CCF0: 32 5B 56 CD 63 39 11 52 55 CD B1 37 C2 48 54 CD 2[V.c9.RU..7.HT.
01CD00: 8E 39 CD 73 39 CA 48 54 22 71 56 CD D8 1C 22 67 .9.s9.HT"qV..."g
01CD10: 56 2A 67 56 7E B7 CA E7 51 EB 2A 71 56 3A 5B 56 V*gV~...Q.*qV:[V
01CD20: B7 CA DD 51 CD 8E 54 CA E7 51 C3 E3 51 CD 8E 54 ...Q..T..Q..Q..T
01CD30: C2 E7 51 EB CD 79 2A 2A 67 56 11 10 00 19 22 67 ..Q..y**gV...."g
01CD40: 56 7E FE 0D C2 C1 51 C3 5B 54 CD DD 25 AF 32 5F V~....Q.[T..%.2_
01CD50: 56 CD E9 25 DA 48 54 CD 73 39 CA 3B 52 11 AC 55 V..%.HT.s9.;R..U
01CD60: CD B1 37 C2 48 54 CD 8E 39 CD 73 39 CA 48 54 01 ..7.HT..9.s9.HT.
01CD70: 00 05 CD 72 2A 22 73 56 3E FF 32 5F 56 CD 69 39 ...r*"sV>.2_V.i9
01CD80: CA 3B 52 FE 20 C2 2D 52 C3 01 52 01 00 00 CD 2A .;R. .-R..R....*
01CD90: 2C 7C B5 CA 62 52 21 FF FF CD 5B 26 DA 62 52 CD ,|..bR!...[&.bR.
01CDA0: 78 27 CA 59 52 DA 62 52 03 CD 47 2B CA 62 52 D2 x'.YR.bR..G+.bR.
01CDB0: 4F 52 3A 7D 44 B7 CA 73 52 3E 22 CD 70 3B 60 69 OR:}D..sR>".p;`i
01CDC0: CD 35 36 3A 5F 56 B7 CA 5B 54 60 69 CD 18 34 2A .56:_V..[T`i..4*
01CDD0: 73 56 11 0D 00 19 CD E9 36 CD E5 34 C3 5B 54 3E sV......6..4.[T>
01CDE0: 67 CD 70 3B CD 61 27 CD 3C 27 CD C4 25 3E 72 CD g.p;.a'.<'..%>r.
01CDF0: 70 3B CD 2A 2C CD 35 36 3E 77 CD 70 3B CD E3 1C p;.*,.56>w.p;...
01CE00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01CE10: 20 30 34 35 2C 20 52 55 45 20 44 45 20 4E 41 4E 045, RUE DE NAN
01CE20: 43 59 20 20 20 20 20 20 38 38 32 30 30 52 45 4D CY 88200REM
01CE30: 49 52 45 4D 4F 4D 54 20 20 32 39 2E 36 32 2E 30 IREMOMT 29.62.0
01CE40: 38 2E 35 37 20 20 20 20 20 43 41 52 52 45 4C 45 8.57 CARRELE
01CE50: 55 52 20 20 41 4D 53 54 52 41 44 20 20 20 20 36 UR AMSTRAD 6
01CE60: 31 32 38 20 20 20 30 20 20 20 20 20 20 20 20 20 128 0
01CE70: 20 20 30 20 20 20 20 20 20 20 20 20 20 20 30 30 0 00
01CE80: 2F 30 30 2F 30 30 30 30 2F 30 30 2F 30 30 20 20 /00/0000/00/00
01CE90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01CEA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01CEB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01CEC0: 20 20 20 20 20 20 20 20 20 20 20 30 20 20 20 20 0
01CED0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01CEE0: 20 20 20 20 20 20 30 20 20 20 20 20 20 20 20 20 0
01CEF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01CF00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01CF10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 1A .
01CF20: B7 CA DD 51 CD 8E 54 CA E7 51 C3 E3 51 CD 8E 54 ...Q..T..Q..Q..T
01CF30: C2 E7 51 EB CD 79 2A 2A 67 56 11 10 00 19 22 67 ..Q..y**gV...."g
01CF40: 56 7E FE 0D C2 C1 51 C3 5B 54 CD DD 25 AF 32 5F V~....Q.[T..%.2_
01CF50: 56 CD E9 25 DA 48 54 CD 73 39 CA 3B 52 11 AC 55 V..%.HT.s9.;R..U
01CF60: CD B1 37 C2 48 54 CD 8E 39 CD 73 39 CA 48 54 01 ..7.HT..9.s9.HT.
01CF70: 00 05 CD 72 2A 22 73 56 3E FF 32 5F 56 CD 69 39 ...r*"sV>.2_V.i9
01CF80: CA 3B 52 FE 20 C2 2D 52 C3 01 52 01 00 00 CD 2A .;R. .-R..R....*
01CF90: 2C 7C B5 CA 62 52 21 FF FF CD 5B 26 DA 62 52 CD ,|..bR!...[&.bR.
01CFA0: 78 27 CA 59 52 DA 62 52 03 CD 47 2B CA 62 52 D2 x'.YR.bR..G+.bR.
01CFB0: 4F 52 3A 7D 44 B7 CA 73 52 3E 22 CD 70 3B 60 69 OR:}D..sR>".p;`i
01CFC0: CD 35 36 3A 5F 56 B7 CA 5B 54 60 69 CD 18 34 2A .56:_V..[T`i..4*
01CFD0: 73 56 11 0D 00 19 CD E9 36 CD E5 34 C3 5B 54 3E sV......6..4.[T>
01CFE0: 67 CD 70 3B CD 61 27 CD 3C 27 CD C4 25 3E 72 CD g.p;.a'.<'..%>r.
01CFF0: 70 3B CD 2A 2C CD 35 36 3E 77 CD 70 3B CD E3 1C p;.*,.56>w.p;...
01D000: 00 00 01 00 02 00 1A 1C 12 00 6E 6F 6D 2B 70 72 ..........nom+pr
01D010: 65 6E 6F 6D 00 65 6C 65 6D 00 50 CD 8E 39 3E 03 enom.elem.P..9>.
01D020: CD AD 27 3E FF 32 5D 56 3E 01 CD F0 2B D2 E0 4F ..'>.2]V>...+..O
01D030: 3E 58 C3 53 54 11 1D 55 CD B1 37 C2 48 54 CD 8E >X.ST..U..7.HT..
01D040: 39 3E FF 32 5B 56 C3 E0 4F 3A 5D 56 B7 CA 48 54 9>.2[V..O:]V..HT
01D050: 3A 5B 56 B7 C2 2E 50 CD 20 29 11 79 56 01 10 00 :[V...P. ).yV...
01D060: CD 7A 2C DA 97 50 21 0B 00 19 7E FE CE CA 0E 00 .z,..P!...~.....
01D070: 00 01 00 40 10 00 00 00 00 00 00 02 00 40 20 00 ...@.........@ .
01D080: 00 00 00 00 00 03 00 40 30 00 00 00 00 00 00 04 .......@0.......
01D090: 00 40 40 00 00 00 00 00 00 05 00 40 50 00 00 00 .@@........@P...
01D0A0: 00 00 00 06 00 40 60 00 00 00 00 00 00 07 00 40 .....@`........@
01D0B0: 70 00 00 00 00 00 00 08 00 40 80 00 00 00 00 00 p........@......
01D0C0: 00 09 00 40 90 00 00 00 00 00 00 0A 00 41 10 00 ...@.........A..
01D0D0: 00 00 00 00 00 0B 00 41 11 00 00 00 00 00 00 0C .......A........
01D0E0: 00 41 12 00 00 00 00 00 00 0D 00 41 13 00 00 00 .A.........A....
01D0F0: 00 00 00 0E 00 41 14 00 00 00 00 00 00 0B 00 54 .....A.........T
01D100: 45 4C 20 20 20 20 20 20 20 00 00 0E 00 54 59 50 EL ....TYP
01D110: 45 20 20 20 20 20 20 00 00 07 00 56 45 4E 54 45 E ....VENTE
01D120: 20 20 20 20 20 00 00 0A 00 56 49 4C 4C 45 20 20 ....VILLE
01D130: 20 20 20 00 00 CD 45 25 AF 32 4D 44 CD 61 27 C3 ...E%.2MD.a'.
01D140: 5B 54 3E 48 C3 53 54 3E 28 C3 53 54 AF 32 5B 56 [T>H.ST>(.ST.2[V
01D150: CD 63 39 11 6E 55 CD B1 37 CA AF 51 3E FF 32 5B .c9.nU..7..Q>.2[
01D160: 56 CD 63 39 11 52 55 CD B1 37 C2 48 54 CD 8E 39 V.c9.RU..7.HT..9
01D170: CD 73 39 CA 48 54 22 71 56 CD D8 1C 22 67 56 2A .s9.HT"qV..."gV*
01D180: 67 56 7E B7 CA E7 51 EB 2A 71 56 3A 5B 56 B7 CA gV~...Q.*qV:[V..
01D190: DD 51 CD 8E 54 CA E7 51 C3 E3 51 CD 8E 54 C2 E7 .Q..T..Q..Q..T..
01D1A0: 51 EB CD 79 2A 2A 67 56 11 10 00 19 22 67 56 7E Q..y**gV...."gV~
01D1B0: FE 0D C2 C1 51 C3 5B 54 CD DD 25 AF 32 5F 56 CD ....Q.[T..%.2_V.
01D1C0: E9 25 DA 48 54 CD 73 39 CA 3B 52 11 AC 55 CD B1 .%.HT.s9.;R..U..
01D1D0: 37 C2 48 54 CD 8E 39 CD 73 39 CA 48 54 01 00 05 7.HT..9.s9.HT...
01D1E0: CD 72 2A 22 73 56 3E FF 32 5F 56 CD 69 39 CA 3B .r*"sV>.2_V.i9.;
01D1F0: 52 FE 20 C2 2D 52 C3 01 52 01 00 00 CD 2A 2C 7C R. .-R..R....*,|
01D200: 02 04 00 02 0C 56 7A 00 54 59 50 45 4C 45 4D 00 .....Vz.TYPELEM.
01D210: 00 00 00 43 01 B9 70 00 4E 4F 4D 45 4C 45 4D 00 ...C..p.NOMELEM.
01D220: 00 00 00 43 08 BA 70 00 4C 49 42 45 4C 45 4D 00 ...C..p.LIBELEM.
01D230: 00 00 00 43 1E C2 70 00 4E 42 5A 4F 4E 45 53 00 ...C..p.NBZONES.
01D240: 00 00 00 4E 01 E0 70 00 5A 4F 4E 31 00 00 00 00 ...N..p.ZON1....
01D250: 00 00 00 43 0A E1 70 00 44 45 42 31 00 00 00 00 ...C..p.DEB1....
01D260: 00 00 00 43 03 EB 70 00 46 49 4E 31 00 00 00 00 ...C..p.FIN1....
01D270: 00 00 00 43 03 EE 70 00 5A 4F 4E 32 00 00 00 00 ...C..p.ZON2....
01D280: 00 00 00 43 0A F1 70 00 44 45 42 32 00 00 00 00 ...C..p.DEB2....
01D290: 00 00 00 43 03 FB 70 00 46 49 4E 32 00 00 00 00 ...C..p.FIN2....
01D2A0: 00 00 00 43 03 FE 70 00 5A 4F 4E 33 00 00 00 00 ...C..p.ZON3....
01D2B0: 00 00 00 43 0A 01 71 00 44 45 42 33 00 00 00 00 ...C..q.DEB3....
01D2C0: 00 00 00 43 03 0B 71 00 46 49 4E 33 00 00 00 00 ...C..q.FIN3....
01D2D0: 00 00 00 43 03 0E 71 00 5A 4F 4E 34 00 00 00 00 ...C..q.ZON4....
01D2E0: 00 00 00 43 0A 11 71 00 44 45 42 34 00 00 00 00 ...C..q.DEB4....
01D2F0: 00 00 00 43 03 1B 71 00 46 49 4E 34 00 00 00 00 ...C..q.FIN4....
01D300: 00 00 00 43 03 1E 71 00 5A 4F 4E 35 00 00 00 00 ...C..q.ZON5....
01D310: 00 00 00 43 0A 21 71 00 44 45 42 35 00 00 00 00 ...C.!q.DEB5....
01D320: 00 00 00 43 03 2B 71 00 46 49 4E 35 00 00 00 00 ...C.+q.FIN5....
01D330: 00 00 00 43 03 2E 71 00 54 59 50 43 00 00 00 00 ...C..q.TYPC....
01D340: 00 00 00 43 01 31 71 00 0D 00 00 00 00 00 00 00 ...C.1q.........
01D350: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01D360: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01D370: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01D380: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01D390: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01D3A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01D3B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01D3C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01D3D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01D3E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01D3F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01D400: 07 00 00 07 00 30 20 20 20 20 20 20 20 20 20 20 .....0
01D410: 20 30 20 20 20 20 20 20 20 20 20 20 20 00 00 02 0 ...
01D420: 00 42 41 52 54 48 45 52 20 20 20 20 20 42 45 52 .BARTHER BER
01D430: 4E 41 52 44 20 20 20 20 20 00 00 04 00 44 55 50 NARD ....DUP
01D440: 55 49 53 20 20 20 20 20 20 4A 45 41 4E 20 20 20 UIS JEAN
01D450: 20 20 20 20 20 00 00 01 00 44 55 52 41 4E 54 20 ....DURANT
01D460: 20 20 20 20 20 4C 55 43 20 20 20 20 20 20 20 20 LUC
01D470: 20 00 00 03 00 47 55 49 54 59 20 20 20 20 20 20 ....GUITY
01D480: 20 4A 2E 4C 55 43 20 20 20 20 20 20 20 00 00 05 J.LUC ...
01D490: 00 4D 41 52 54 45 41 55 20 20 20 20 20 4D 49 43 .MARTEAU MIC
01D4A0: 48 45 4C 20 20 20 20 20 20 00 00 06 00 50 49 4E HEL ....PIN
01D4B0: 41 52 44 20 20 20 20 20 20 56 41 4C 45 52 49 45 ARD VALERIE
01D4C0: 20 20 20 20 20 00 00 CD 45 25 AF 32 4D 44 CD 61 ...E%.2MD.a
01D4D0: 27 C3 5B 54 3E 48 C3 53 54 3E 28 C3 53 54 AF 32 '.[T>H.ST>(.ST.2
01D4E0: 5B 56 CD 63 39 11 6E 55 CD B1 37 CA AF 51 3E FF [V.c9.nU..7..Q>.
01D4F0: 32 5B 56 CD 63 39 11 52 55 CD B1 37 C2 48 54 CD 2[V.c9.RU..7.HT.
01D500: 8E 39 CD 73 39 CA 48 54 22 71 56 CD D8 1C 22 67 .9.s9.HT"qV..."g
01D510: 56 2A 67 56 7E B7 CA E7 51 EB 2A 71 56 3A 5B 56 V*gV~...Q.*qV:[V
01D520: B7 CA DD 51 CD 8E 54 CA E7 51 C3 E3 51 CD 8E 54 ...Q..T..Q..Q..T
01D530: C2 E7 51 EB CD 79 2A 2A 67 56 11 10 00 19 22 67 ..Q..y**gV...."g
01D540: 56 7E FE 0D C2 C1 51 C3 5B 54 CD DD 25 AF 32 5F V~....Q.[T..%.2_
01D550: 56 CD E9 25 DA 48 54 CD 73 39 CA 3B 52 11 AC 55 V..%.HT.s9.;R..U
01D560: CD B1 37 C2 48 54 CD 8E 39 CD 73 39 CA 48 54 01 ..7.HT..9.s9.HT.
01D570: 00 05 CD 72 2A 22 73 56 3E FF 32 5F 56 CD 69 39 ...r*"sV>.2_V.i9
01D580: CA 3B 52 FE 20 C2 2D 52 C3 01 52 01 00 00 CD 2A .;R. .-R..R....*
01D590: 2C 7C B5 CA 62 52 21 FF FF CD 5B 26 DA 62 52 CD ,|..bR!...[&.bR.
01D5A0: 78 27 CA 59 52 DA 62 52 03 CD 47 2B CA 62 52 D2 x'.YR.bR..G+.bR.
01D5B0: 4F 52 3A 7D 44 B7 CA 73 52 3E 22 CD 70 3B 60 69 OR:}D..sR>".p;`i
01D5C0: CD 35 36 3A 5F 56 B7 CA 5B 54 60 69 CD 18 34 2A .56:_V..[T`i..4*
01D5D0: 73 56 11 0D 00 19 CD E9 36 CD E5 34 C3 5B 54 3E sV......6..4.[T>
01D5E0: 67 CD 70 3B CD 61 27 CD 3C 27 CD C4 25 3E 72 CD g.p;.a'.<'..%>r.
01D5F0: 70 3B CD 2A 2C CD 35 36 3E 77 CD 70 3B CD E3 1C p;.*,.56>w.p;...
01D600: 00 00 00 00 00 00 00 00 00 20 43 4E 4F 4D 20 20 ......... CNOM
01D610: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01D620: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01D630: 20 32 4E 4F 4D 20 20 20 20 20 20 20 31 20 20 46 2NOM 1 F
01D640: 20 20 50 52 45 4E 4F 4D 20 20 20 20 31 20 20 46 PRENOM 1 F
01D650: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01D660: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01D670: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01D680: 20 20 50 20 43 50 52 4F 46 20 20 20 20 4C 69 73 P CPROF Lis
01D690: 74 65 20 74 72 69 65 65 20 70 61 72 20 70 72 6F te triee par pro
01D6A0: 66 65 73 73 69 6F 6E 20 20 20 20 31 50 52 4F 46 fession 1PROF
01D6B0: 20 20 20 20 20 20 31 20 20 46 20 20 20 20 20 20 1 F
01D6C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01D6D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01D6E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01D6F0: 20 20 20 20 20 20 20 20 20 20 20 20 54 20 43 56 T CV
01D700: 49 4C 4C 45 20 20 20 54 72 69 20 50 61 72 20 56 ILLE Tri Par V
01D710: 69 6C 6C 65 20 20 20 20 20 20 20 20 20 20 20 20 ille
01D720: 20 20 20 20 20 31 56 49 4C 4C 45 20 20 20 20 20 1VILLE
01D730: 31 20 20 46 20 20 20 20 20 20 20 20 20 20 20 20 1 F
01D740: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01D750: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01D760: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01D770: 20 20 20 20 20 20 53 20 4C 50 52 4F 46 20 20 20 S LPROF
01D780: 20 4C 69 73 74 65 20 64 65 73 20 43 41 20 70 61 Liste des CA pa
01D790: 72 20 70 72 6F 66 65 73 73 69 6F 6E 20 20 20 20 r profession
01D7A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01D7B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01D7C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01D7D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01D7E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01D7F0: 20 1A 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ...............
01D800: 00 00 01 00 02 00 0D 0F 21 00 50 52 4F 46 20 20 ........!.PROF
01D810: 20 20 20 20 20 00 6C 65 6D 00 50 CD 8E 39 3E 03 .lem.P..9>.
01D820: CD AD 27 3E FF 32 5D 56 3E 01 CD F0 2B D2 E0 4F ..'>.2]V>...+..O
01D830: 3E 58 C3 53 54 11 1D 55 CD B1 37 C2 48 54 CD 8E >X.ST..U..7.HT..
01D840: 39 3E FF 32 5B 56 C3 E0 4F 3A 5D 56 B7 CA 48 54 9>.2[V..O:]V..HT
01D850: 3A 5B 56 B7 C2 2E 50 CD 20 29 11 79 56 01 10 00 :[V...P. ).yV...
01D860: CD 7A 2C DA 97 50 21 0B 00 19 7E FE CE CA 04 00 .z,..P!...~.....
01D870: 00 01 00 43 4E 4F 4D 20 20 20 20 20 00 00 02 00 ...CNOM ....
01D880: 43 50 52 4F 46 20 20 20 20 00 00 03 00 43 56 49 CPROF ....CVI
01D890: 4C 4C 45 20 20 20 00 00 04 00 4C 50 52 4F 46 20 LLE ....LPROF
01D8A0: 20 20 20 00 00 45 20 00 00 05 00 4C 49 45 55 20 ..E ....LIEU
01D8B0: 20 20 20 20 20 00 00 0D 00 4D 41 52 51 55 45 20 ....MARQUE
01D8C0: 20 20 20 00 00 01 00 4E 4F 4D 20 20 20 20 20 20 ....NOM
01D8D0: 20 00 00 02 00 50 52 45 4E 4F 4D 20 20 20 20 00 ....PRENOM .
01D8E0: 00 0C 00 50 52 4F 46 20 20 20 20 20 20 00 00 04 ...PROF ...
01D8F0: 00 50 52 4F 56 49 53 49 54 45 20 00 00 0B 00 54 .PROVISITE ....T
01D900: 45 4C 20 20 20 20 20 20 20 00 00 0E 00 54 59 50 EL ....TYP
01D910: 45 20 20 20 20 20 20 00 00 07 00 56 45 4E 54 45 E ....VENTE
01D920: 20 20 20 20 20 00 00 0A 00 56 49 4C 4C 45 20 20 ....VILLE
01D930: 20 20 20 00 00 CD 45 25 AF 32 4D 44 CD 61 27 C3 ...E%.2MD.a'.
01D940: 5B 54 3E 48 C3 53 54 3E 28 C3 53 54 AF 32 5B 56 [T>H.ST>(.ST.2[V
01D950: CD 63 39 11 6E 55 CD B1 37 CA AF 51 3E FF 32 5B .c9.nU..7..Q>.2[
01D960: 56 CD 63 39 11 52 55 CD B1 37 C2 48 54 CD 8E 39 V.c9.RU..7.HT..9
01D970: CD 73 39 CA 48 54 22 71 56 CD D8 1C 22 67 56 2A .s9.HT"qV..."gV*
01D980: 67 56 7E B7 CA E7 51 EB 2A 71 56 3A 5B 56 B7 CA gV~...Q.*qV:[V..
01D990: DD 51 CD 8E 54 CA E7 51 C3 E3 51 CD 8E 54 C2 E7 .Q..T..Q..Q..T..
01D9A0: 51 EB CD 79 2A 2A 67 56 11 10 00 19 22 67 56 7E Q..y**gV...."gV~
01D9B0: FE 0D C2 C1 51 C3 5B 54 CD DD 25 AF 32 5F 56 CD ....Q.[T..%.2_V.
01D9C0: E9 25 DA 48 54 CD 73 39 CA 3B 52 11 AC 55 CD B1 .%.HT.s9.;R..U..
01D9D0: 37 C2 48 54 CD 8E 39 CD 73 39 CA 48 54 01 00 05 7.HT..9.s9.HT...
01D9E0: CD 72 2A 22 73 56 3E FF 32 5F 56 CD 69 39 CA 3B .r*"sV>.2_V.i9.;
01D9F0: 52 FE 20 C2 2D 52 C3 01 52 01 00 00 CD 2A 2C 7C R. .-R..R....*,|
01DA00: 00 00 01 00 02 00 0B 0D 27 00 74 79 70 65 6C 65 ........'.typele
01DA10: 6D 2B 6E 6F 6D 65 6C 65 6D 00 50 CD 8E 39 3E 03 m+nomelem.P..9>.
01DA20: CD AD 27 3E FF 32 5D 56 3E 01 CD F0 2B D2 E0 4F ..'>.2]V>...+..O
01DA30: 3E 58 C3 53 54 11 1D 55 CD B1 37 C2 48 54 CD 8E >X.ST..U..7.HT..
01DA40: 39 3E FF 32 5B 56 C3 E0 4F 3A 5D 56 B7 CA 48 54 9>.2[V..O:]V..HT
01DA50: 3A 5B 56 B7 C2 2E 50 CD 20 29 11 79 56 01 10 00 :[V...P. ).yV...
01DA60: CD 7A 2C DA 97 50 21 0B 00 19 7E FE CE CA 00 00 .z,..P!...~.....
01DA70: 01 00 02 00 1A 1C 12 00 6E 6F 6D 2B 70 72 65 6E ........nom+pren
01DA80: 6F 6D 00 65 6C 65 6D 00 50 CD 8E 39 3E 03 CD AD om.elem.P..9>...
01DA90: 27 3E FF 32 5D 56 3E 01 CD F0 2B D2 E0 4F 3E 58 '>.2]V>...+..O>X
01DAA0: C3 53 54 11 1D 55 CD B1 37 C2 48 54 CD 8E 39 3E .ST..U..7.HT..9>
01DAB0: FF 32 5B 56 C3 E0 4F 3A 5D 56 B7 CA 48 54 3A 5B .2[V..O:]V..HT:[
01DAC0: 56 B7 C2 2E 50 CD 20 29 11 79 56 01 10 00 CD 7A V...P. ).yV....z
01DAD0: 2C DA 97 50 21 0B 00 19 7E FE CE CA 04 00 00 01 ,..P!...~.......
01DAE0: 00 43 4E 4F 4D 20 20 20 20 20 00 00 02 00 43 50 .CNOM ....CP
01DAF0: 52 4F 46 20 20 20 20 00 00 03 00 43 56 49 4C 4C ROF ....CVILL
01DB00: 45 20 20 20 00 00 04 00 4C 50 52 4F 46 20 20 20 E ....LPROF
01DB10: 20 00 00 45 20 00 00 05 00 4C 49 45 55 20 20 20 ..E ....LIEU
01DB20: 20 20 20 00 00 0D 00 4D 41 52 51 55 45 20 20 20 ....MARQUE
01DB30: 20 00 00 01 00 4E 4F 4D 20 20 20 20 20 20 20 00 ....NOM .
01DB40: 00 02 00 50 52 45 4E 4F 4D 20 20 20 20 00 00 0C ...PRENOM ...
01DB50: 00 50 52 4F 46 20 20 20 20 20 20 00 00 04 00 50 .PROF ....P
01DB60: 52 4F 56 49 53 49 54 45 20 00 00 0B 00 54 45 4C ROVISITE ....TEL
01DB70: 20 20 20 20 20 20 20 00 00 0E 00 54 59 50 45 20 ....TYPE
01DB80: 20 20 20 20 20 00 00 07 00 56 45 4E 54 45 20 20 ....VENTE
01DB90: 20 20 20 00 00 0A 00 56 49 4C 4C 45 20 20 20 20 ....VILLE
01DBA0: 20 00 00 CD 45 25 AF 32 4D 44 CD 61 27 C3 5B 54 ...E%.2MD.a'.[T
01DBB0: 3E 48 C3 53 54 3E 28 C3 53 54 AF 32 5B 56 CD 63 >H.ST>(.ST.2[V.c
01DBC0: 39 11 6E 55 CD B1 37 CA AF 51 3E FF 32 5B 56 CD 9.nU..7..Q>.2[V.
01DBD0: 63 39 11 52 55 CD B1 37 C2 48 54 CD 8E 39 CD 73 c9.RU..7.HT..9.s
01DBE0: 39 CA 48 54 22 71 56 CD D8 1C 22 67 56 2A 67 56 9.HT"qV..."gV*gV
01DBF0: 7E B7 CA E7 51 EB 2A 71 56 3A 5B 56 B7 CA DD 51 ~...Q.*qV:[V...Q
01DC00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
01DC10: 19 00 01 00 02 09 4E E5 19 00 41 02 00 00 00 02 ......N...A.....
01DC20: 19 00 46 02 00 00 00 02 19 00 42 02 00 00 00 02 ..F.......B.....
01DC30: 19 00 47 02 00 00 00 02 19 00 43 02 00 00 00 02 ..G.......C.....
01DC40: 19 00 48 02 00 00 00 02 19 00 44 02 00 00 00 02 ..H.......D.....
01DC50: 19 00 49 02 00 00 00 02 19 00 45 02 00 00 00 02 ..I.......E.....
01DC60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01DC70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01DC80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01DC90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01DCA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01DCB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01DCC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01DCD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01DCE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01DCF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01DD00: 05 00 00 04 00 43 41 52 52 45 4C 45 55 52 20 20 .....CARRELEUR
01DD10: 00 00 03 00 4D 45 44 45 43 49 4E 20 20 20 20 00 ....MEDECIN .
01DD20: 00 05 00 4D 45 44 45 43 49 4E 20 20 20 20 00 00 ...MEDECIN ..
01DD30: 01 00 4D 45 4E 55 49 53 49 45 52 20 20 00 00 02 ..MENUISIER ...
01DD40: 00 4D 45 4E 55 49 53 49 45 52 20 20 00 00 02 00 .MENUISIER ....
01DD50: 4D 45 4E 55 49 53 49 45 52 20 20 00 00 20 20 20 MENUISIER ..
01DD60: 20 20 20 00 00 02 00 50 52 45 4E 4F 4D 20 20 20 ....PRENOM
01DD70: 20 00 00 0C 00 50 52 4F 46 20 20 20 20 20 20 00 ....PROF .
01DD80: 00 04 00 50 52 4F 56 49 53 49 54 45 20 00 00 0B ...PROVISITE ...
01DD90: 00 54 45 4C 20 20 20 20 20 20 20 00 00 0E 00 54 .TEL ....T
01DDA0: 59 50 45 20 20 20 20 20 20 00 00 07 00 56 45 4E YPE ....VEN
01DDB0: 54 45 20 20 20 20 20 00 00 0A 00 56 49 4C 4C 45 TE ....VILLE
01DDC0: 20 20 20 20 20 00 00 CD 45 25 AF 32 4D 44 CD 61 ...E%.2MD.a
01DDD0: 27 C3 5B 54 3E 48 C3 53 54 3E 28 C3 53 54 AF 32 '.[T>H.ST>(.ST.2
01DDE0: 5B 56 CD 63 39 11 6E 55 CD B1 37 CA AF 51 3E FF [V.c9.nU..7..Q>.
01DDF0: 32 5B 56 CD 63 39 11 52 55 CD B1 37 C2 48 54 CD 2[V.c9.RU..7.HT.
01DE00: 8E 39 CD 73 39 CA 48 54 22 71 56 CD D8 1C 22 67 .9.s9.HT"qV..."g
01DE10: 56 2A 67 56 7E B7 CA E7 51 EB 2A 71 56 3A 5B 56 V*gV~...Q.*qV:[V
01DE20: B7 CA DD 51 CD 8E 54 CA E7 51 C3 E3 51 CD 8E 54 ...Q..T..Q..Q..T
01DE30: C2 E7 51 EB CD 79 2A 2A 67 56 11 10 00 19 22 67 ..Q..y**gV...."g
01DE40: 56 7E FE 0D C2 C1 51 C3 5B 54 CD DD 25 AF 32 5F V~....Q.[T..%.2_
01DE50: 56 CD E9 25 DA 48 54 CD 73 39 CA 3B 52 11 AC 55 V..%.HT.s9.;R..U
01DE60: CD B1 37 C2 48 54 CD 8E 39 CD 73 39 CA 48 54 01 ..7.HT..9.s9.HT.
01DE70: 00 05 CD 72 2A 22 73 56 3E FF 32 5F 56 CD 69 39 ...r*"sV>.2_V.i9
01DE80: CA 3B 52 FE 20 C2 2D 52 C3 01 52 01 00 00 CD 2A .;R. .-R..R....*
01DE90: 2C 7C B5 CA 62 52 21 FF FF CD 5B 26 DA 62 52 CD ,|..bR!...[&.bR.
01DEA0: 78 27 CA 59 52 DA 62 52 03 CD 47 2B CA 62 52 D2 x'.YR.bR..G+.bR.
01DEB0: 4F 52 3A 7D 44 B7 CA 73 52 3E 22 CD 70 3B 60 69 OR:}D..sR>".p;`i
01DEC0: CD 35 36 3A 5F 56 B7 CA 5B 54 60 69 CD 18 34 2A .56:_V..[T`i..4*
01DED0: 73 56 11 0D 00 19 CD E9 36 CD E5 34 C3 5B 54 3E sV......6..4.[T>
01DEE0: 67 CD 70 3B CD 61 27 CD 3C 27 CD C4 25 3E 72 CD g.p;.a'.<'..%>r.
01DEF0: 70 3B CD 2A 2C CD 35 36 3E 77 CD 70 3B CD E3 1C p;.*,.56>w.p;...
01DF00: 00 00 01 00 02 00 0C 0E 24 00 66 69 65 6C 64 3A ........$.field:
01DF10: 6E 61 6D 65 00 65 6C 65 6D 00 50 CD 8E 39 3E 03 name.elem.P..9>.
01DF20: CD AD 27 3E FF 32 5D 56 3E 01 CD F0 2B D2 E0 4F ..'>.2]V>...+..O
01DF30: 3E 58 C3 53 54 11 1D 55 CD B1 37 C2 48 54 CD 8E >X.ST..U..7.HT..
01DF40: 39 3E FF 32 5B 56 C3 E0 4F 3A 5D 56 B7 CA 48 54 9>.2[V..O:]V..HT
01DF50: 3A 5B 56 B7 C2 2E 50 CD 20 29 11 79 56 01 10 00 :[V...P. ).yV...
01DF60: CD 7A 2C DA 97 50 21 0B 00 19 7E FE CE CA 00 00 .z,..P!...~.....
01DF70: 01 00 02 00 0E 10 1F 00 4E 4F 4D 20 20 20 20 20 ........NOM
01DF80: 20 20 20 00 6C 65 6D 00 50 CD 8E 39 3E 03 CD AD .lem.P..9>...
01DF90: 27 3E FF 32 5D 56 3E 01 CD F0 2B D2 E0 4F 3E 58 '>.2]V>...+..O>X
01DFA0: C3 53 54 11 1D 55 CD B1 37 C2 48 54 CD 8E 39 3E .ST..U..7.HT..9>
01DFB0: FF 32 5B 56 C3 E0 4F 3A 5D 56 B7 CA 48 54 3A 5B .2[V..O:]V..HT:[
01DFC0: 56 B7 C2 2E 50 CD 20 29 11 79 56 01 10 00 CD 7A V...P. ).yV....z
01DFD0: 2C DA 97 50 21 0B 00 19 7E FE CE CA 01 00 00 01 ,..P!...~.......
01DFE0: 00 43 43 4C 45 20 20 20 20 20 00 00 00 06 00 42 .CCLE .....B
01DFF0: 45 53 4F 49 4E 20 20 20 20 00 00 09 00 43 4F 44 ESOIN ....COD
01E000: 45 50 4F 53 54 20 20 00 00 03 00 44 45 52 56 49 EPOST ....DERVI
01E010: 53 49 54 45 20 00 00 05 00 4C 49 45 55 20 20 20 SITE ....LIEU
01E020: 20 20 20 00 00 0D 00 4D 41 52 51 55 45 20 20 20 ....MARQUE
01E030: 20 00 00 01 00 4E 4F 4D 20 20 20 20 20 20 20 00 ....NOM .
01E040: 00 02 00 50 52 45 4E 4F 4D 20 20 20 20 00 00 0C ...PRENOM ...
01E050: 00 50 52 4F 46 45 53 53 49 4F 4E 00 00 04 00 50 .PROFESSION....P
01E060: 52 4F 56 49 53 49 54 45 20 00 00 0B 00 54 45 4C ROVISITE ....TEL
01E070: 20 20 20 20 20 20 20 00 00 0E 00 54 59 50 45 20 ....TYPE
01E080: 20 20 20 20 20 00 00 07 00 56 45 4E 54 45 20 20 ....VENTE
01E090: 20 20 20 00 00 0A 00 56 49 4C 4C 45 20 20 20 20 ....VILLE
01E0A0: 20 00 00 CD 45 25 AF 32 4D 44 CD 61 27 C3 5B 54 ...E%.2MD.a'.[T
01E0B0: 3E 48 C3 53 54 3E 28 C3 53 54 AF 32 5B 56 CD 63 >H.ST>(.ST.2[V.c
01E0C0: 39 11 6E 55 CD B1 37 CA AF 51 3E FF 32 5B 56 CD 9.nU..7..Q>.2[V.
01E0D0: 63 39 11 52 55 CD B1 37 C2 48 54 CD 8E 39 CD 73 c9.RU..7.HT..9.s
01E0E0: 39 CA 48 54 22 71 56 CD D8 1C 22 67 56 2A 67 56 9.HT"qV..."gV*gV
01E0F0: 7E B7 CA E7 51 EB 2A 71 56 3A 5B 56 B7 CA DD 51 ~...Q.*qV:[V...Q
01E100: 00 00 01 00 02 00 0E 10 1F 00 56 49 4C 4C 45 20 ..........VILLE
01E110: 20 20 20 20 20 00 6C 65 6D 00 50 CD 8E 39 3E 03 .lem.P..9>.
01E120: CD AD 27 3E FF 32 5D 56 3E 01 CD F0 2B D2 E0 4F ..'>.2]V>...+..O
01E130: 3E 58 C3 53 54 11 1D 55 CD B1 37 C2 48 54 CD 8E >X.ST..U..7.HT..
01E140: 39 3E FF 32 5B 56 C3 E0 4F 3A 5D 56 B7 CA 48 54 9>.2[V..O:]V..HT
01E150: 3A 5B 56 B7 C2 2E 50 CD 20 29 11 79 56 01 10 00 :[V...P. ).yV...
01E160: CD 7A 2C DA 97 50 21 0B 00 19 7E FE CE CA 0E 00 .z,..P!...~.....
01E170: 00 01 00 40 10 00 00 00 00 00 00 02 00 40 20 00 ...@.........@ .
01E180: 00 00 00 00 00 03 00 40 30 00 00 00 00 00 00 04 .......@0.......
01E190: 00 40 40 00 00 00 00 00 00 05 00 40 50 00 00 00 .@@........@P...
01E1A0: 00 00 00 06 00 40 60 00 00 00 00 00 00 07 00 40 .....@`........@
01E1B0: 70 00 00 00 00 00 00 08 00 40 80 00 00 00 00 00 p........@......
01E1C0: 00 09 00 40 90 00 00 00 00 00 00 0A 00 41 10 00 ...@.........A..
01E1D0: 00 00 00 00 00 0B 00 41 11 00 00 00 00 00 00 0C .......A........
01E1E0: 00 41 12 00 00 00 00 00 00 0D 00 41 13 00 00 00 .A.........A....
01E1F0: 00 00 00 0E 00 41 14 00 00 00 00 00 00 0B 00 54 .....A.........T
01E200: 45 4C 20 20 20 20 20 20 20 00 00 0E 00 54 59 50 EL ....TYP
01E210: 45 20 20 20 20 20 20 00 00 07 00 56 45 4E 54 45 E ....VENTE
01E220: 20 20 20 20 20 00 00 0A 00 56 49 4C 4C 45 20 20 ....VILLE
01E230: 20 20 20 00 00 CD 45 25 AF 32 4D 44 CD 61 27 C3 ...E%.2MD.a'.
01E240: 5B 54 3E 48 C3 53 54 3E 28 C3 53 54 AF 32 5B 56 [T>H.ST>(.ST.2[V
01E250: CD 63 39 11 6E 55 CD B1 37 CA AF 51 3E FF 32 5B .c9.nU..7..Q>.2[
01E260: 56 CD 63 39 11 52 55 CD B1 37 C2 48 54 CD 8E 39 V.c9.RU..7.HT..9
01E270: CD 73 39 CA 48 54 22 71 56 CD D8 1C 22 67 56 2A .s9.HT"qV..."gV*
01E280: 67 56 7E B7 CA E7 51 EB 2A 71 56 3A 5B 56 B7 CA gV~...Q.*qV:[V..
01E290: DD 51 CD 8E 54 CA E7 51 C3 E3 51 CD 8E 54 C2 E7 .Q..T..Q..Q..T..
01E2A0: 51 EB CD 79 2A 2A 67 56 11 10 00 19 22 67 56 7E Q..y**gV...."gV~
01E2B0: FE 0D C2 C1 51 C3 5B 54 CD DD 25 AF 32 5F 56 CD ....Q.[T..%.2_V.
01E2C0: E9 25 DA 48 54 CD 73 39 CA 3B 52 11 AC 55 CD B1 .%.HT.s9.;R..U..
01E2D0: 37 C2 48 54 CD 8E 39 CD 73 39 CA 48 54 01 00 05 7.HT..9.s9.HT...
01E2E0: CD 72 2A 22 73 56 3E FF 32 5F 56 CD 69 39 CA 3B .r*"sV>.2_V.i9.;
01E2F0: 52 FE 20 C2 2D 52 C3 01 52 01 00 00 CD 2A 2C 7C R. .-R..R....*,|
01E300: 0E 00 00 08 00 41 44 52 45 53 53 45 20 20 20 00 .....ADRESSE .
01E310: 00 06 00 42 45 53 4F 49 4E 20 20 20 20 00 00 09 ...BESOIN ...
01E320: 00 43 4F 44 45 50 4F 53 54 20 20 00 00 03 00 44 .CODEPOST ....D
01E330: 45 52 56 49 53 49 54 45 20 00 00 05 00 4C 49 45 ERVISITE ....LIE
01E340: 55 20 20 20 20 20 20 00 00 0D 00 4D 41 52 51 55 U ....MARQU
01E350: 45 20 20 20 20 00 00 01 00 4E 4F 4D 20 20 20 20 E ....NOM
01E360: 20 20 20 00 00 02 00 50 52 45 4E 4F 4D 20 20 20 ....PRENOM
01E370: 20 00 00 0C 00 50 52 4F 46 20 20 20 20 20 20 00 ....PROF .
01E380: 00 04 00 50 52 4F 56 49 53 49 54 45 20 00 00 0B ...PROVISITE ...
01E390: 00 54 45 4C 20 20 20 20 20 20 20 00 00 0E 00 54 .TEL ....T
01E3A0: 59 50 45 20 20 20 20 20 20 00 00 07 00 56 45 4E YPE ....VEN
01E3B0: 54 45 20 20 20 20 20 00 00 0A 00 56 49 4C 4C 45 TE ....VILLE
01E3C0: 20 20 20 20 20 00 00 CD 45 25 AF 32 4D 44 CD 61 ...E%.2MD.a
01E3D0: 27 C3 5B 54 3E 48 C3 53 54 3E 28 C3 53 54 AF 32 '.[T>H.ST>(.ST.2
01E3E0: 5B 56 CD 63 39 11 6E 55 CD B1 37 CA AF 51 3E FF [V.c9.nU..7..Q>.
01E3F0: 32 5B 56 CD 63 39 11 52 55 CD B1 37 C2 48 54 CD 2[V.c9.RU..7.HT.
01E400: 8E 39 CD 73 39 CA 48 54 22 71 56 CD D8 1C 22 67 .9.s9.HT"qV..."g
01E410: 56 2A 67 56 7E B7 CA E7 51 EB 2A 71 56 3A 5B 56 V*gV~...Q.*qV:[V
01E420: B7 CA DD 51 CD 8E 54 CA E7 51 C3 E3 51 CD 8E 54 ...Q..T..Q..Q..T
01E430: C2 E7 51 EB CD 79 2A 2A 67 56 11 10 00 19 22 67 ..Q..y**gV...."g
01E440: 56 7E FE 0D C2 C1 51 C3 5B 54 CD DD 25 AF 32 5F V~....Q.[T..%.2_
01E450: 56 CD E9 25 DA 48 54 CD 73 39 CA 3B 52 11 AC 55 V..%.HT.s9.;R..U
01E460: CD B1 37 C2 48 54 CD 8E 39 CD 73 39 CA 48 54 01 ..7.HT..9.s9.HT.
01E470: 00 05 CD 72 2A 22 73 56 3E FF 32 5F 56 CD 69 39 ...r*"sV>.2_V.i9
01E480: CA 3B 52 FE 20 C2 2D 52 C3 01 52 01 00 00 CD 2A .;R. .-R..R....*
01E490: 2C 7C B5 CA 62 52 21 FF FF CD 5B 26 DA 62 52 CD ,|..bR!...[&.bR.
01E4A0: 78 27 CA 59 52 DA 62 52 03 CD 47 2B CA 62 52 D2 x'.YR.bR..G+.bR.
01E4B0: 4F 52 3A 7D 44 B7 CA 73 52 3E 22 CD 70 3B 60 69 OR:}D..sR>".p;`i
01E4C0: CD 35 36 3A 5F 56 B7 CA 5B 54 60 69 CD 18 34 2A .56:_V..[T`i..4*
01E4D0: 73 56 11 0D 00 19 CD E9 36 CD E5 34 C3 5B 54 3E sV......6..4.[T>
01E4E0: 67 CD 70 3B CD 61 27 CD 3C 27 CD C4 25 3E 72 CD g.p;.a'.<'..%>r.
01E4F0: 70 3B CD 2A 2C CD 35 36 3E 77 CD 70 3B CD E3 1C p;.*,.56>w.p;...
01E500: 07 00 00 07 00 20 20 20 20 20 20 20 20 20 20 20 .....
01E510: 20 00 00 01 00 45 50 49 4E 41 4C 20 20 20 20 20 ....EPINAL
01E520: 20 00 00 02 00 45 50 49 4E 41 4C 20 20 20 20 20 ....EPINAL
01E530: 20 00 00 04 00 4D 45 54 5A 20 20 20 20 20 20 20 ....METZ
01E540: 20 00 00 03 00 4E 41 4E 43 59 20 20 20 20 20 20 ....NANCY
01E550: 20 00 00 05 00 50 41 52 49 53 20 20 20 20 20 20 ....PARIS
01E560: 20 00 00 06 00 52 45 4D 49 52 45 4D 4F 4D 54 20 ....REMIREMOMT
01E570: 20 00 00 05 00 4D 41 52 54 45 41 55 20 20 20 20 ....MARTEAU
01E580: 20 4D 49 43 48 45 4C 20 20 20 20 20 20 00 00 06 MICHEL ...
01E590: 00 50 49 4E 41 52 44 20 4F 44 49 4C 45 20 20 20 .PINARD ODILE
01E5A0: 20 20 20 20 20 20 20 20 20 00 00 07 00 56 45 4E ....VEN
01E5B0: 54 45 20 20 20 20 20 00 00 0A 00 56 49 4C 4C 45 TE ....VILLE
01E5C0: 20 20 20 20 20 00 00 CD 45 25 AF 32 4D 44 CD 61 ...E%.2MD.a
01E5D0: 27 C3 5B 54 3E 48 C3 53 54 3E 28 C3 53 54 AF 32 '.[T>H.ST>(.ST.2
01E5E0: 5B 56 CD 63 39 11 6E 55 CD B1 37 CA AF 51 3E FF [V.c9.nU..7..Q>.
01E5F0: 32 5B 56 CD 63 39 11 52 55 CD B1 37 C2 48 54 CD 2[V.c9.RU..7.HT.
01E600: 8E 39 CD 73 39 CA 48 54 22 71 56 CD D8 1C 22 67 .9.s9.HT"qV..."g
01E610: 56 2A 67 56 7E B7 CA E7 51 EB 2A 71 56 3A 5B 56 V*gV~...Q.*qV:[V
01E620: B7 CA DD 51 CD 8E 54 CA E7 51 C3 E3 51 CD 8E 54 ...Q..T..Q..Q..T
01E630: C2 E7 51 EB CD 79 2A 2A 67 56 11 10 00 19 22 67 ..Q..y**gV...."g
01E640: 56 7E FE 0D C2 C1 51 C3 5B 54 CD DD 25 AF 32 5F V~....Q.[T..%.2_
01E650: 56 CD E9 25 DA 48 54 CD 73 39 CA 3B 52 11 AC 55 V..%.HT.s9.;R..U
01E660: CD B1 37 C2 48 54 CD 8E 39 CD 73 39 CA 48 54 01 ..7.HT..9.s9.HT.
01E670: 00 05 CD 72 2A 22 73 56 3E FF 32 5F 56 CD 69 39 ...r*"sV>.2_V.i9
01E680: CA 3B 52 FE 20 C2 2D 52 C3 01 52 01 00 00 CD 2A .;R. .-R..R....*
01E690: 2C 7C B5 CA 62 52 21 FF FF CD 5B 26 DA 62 52 CD ,|..bR!...[&.bR.
01E6A0: 78 27 CA 59 52 DA 62 52 03 CD 47 2B CA 62 52 D2 x'.YR.bR..G+.bR.
01E6B0: 4F 52 3A 7D 44 B7 CA 73 52 3E 22 CD 70 3B 60 69 OR:}D..sR>".p;`i
01E6C0: CD 35 36 3A 5F 56 B7 CA 5B 54 60 69 CD 18 34 2A .56:_V..[T`i..4*
01E6D0: 73 56 11 0D 00 19 CD E9 36 CD E5 34 C3 5B 54 3E sV......6..4.[T>
01E6E0: 67 CD 70 3B CD 61 27 CD 3C 27 CD C4 25 3E 72 CD g.p;.a'.<'..%>r.
01E6F0: 70 3B CD 2A 2C CD 35 36 3E 77 CD 70 3B CD E3 1C p;.*,.56>w.p;...
01E700: 00 00 01 00 02 00 08 0A 32 02 6E 6F 7A 00 64 3A ........2.noz.d:
01E710: 6E 61 6D 65 00 65 6C 65 6D 00 50 CD 8E 39 3E 03 name.elem.P..9>.
01E720: CD AD 27 3E FF 32 5D 56 3E 01 CD F0 2B D2 E0 4F ..'>.2]V>...+..O
01E730: 3E 58 C3 53 54 11 1D 55 CD B1 37 C2 48 54 CD 8E >X.ST..U..7.HT..
01E740: 39 3E FF 32 5B 56 C3 E0 4F 3A 5D 56 B7 CA 48 54 9>.2[V..O:]V..HT
01E750: 3A 5B 56 B7 C2 2E 50 CD 20 29 11 79 56 01 10 00 :[V...P. ).yV...
01E760: CD 7A 2C DA 97 50 21 0B 00 19 7E FE CE CA 00 00 .z,..P!...~.....
01E770: 01 00 02 00 0E 10 1F 00 4E 4F 4D 20 20 20 20 20 ........NOM
01E780: 20 20 20 00 6C 65 6D 00 50 CD 8E 39 3E 03 CD AD .lem.P..9>...
01E790: 27 3E FF 32 5D 56 3E 01 CD F0 2B D2 E0 4F 3E 58 '>.2]V>...+..O>X
01E7A0: C3 53 54 11 1D 55 CD B1 37 C2 48 54 CD 8E 39 3E .ST..U..7.HT..9>
01E7B0: FF 32 5B 56 C3 E0 4F 3A 5D 56 B7 CA 48 54 3A 5B .2[V..O:]V..HT:[
01E7C0: 56 B7 C2 2E 50 CD 20 29 11 79 56 01 10 00 CD 7A V...P. ).yV....z
01E7D0: 2C DA 97 50 21 0B 00 19 7E FE CE CA 00 00 00 01 ,..P!...~.......
01E7E0: 00 43 43 4C 45 20 20 20 20 20 00 00 00 06 00 42 .CCLE .....B
01E7F0: 45 53 4F 49 4E 20 20 20 20 00 00 09 00 43 4F 44 ESOIN ....COD
01E800: 45 50 4F 53 54 20 20 00 00 03 00 44 45 52 56 49 EPOST ....DERVI
01E810: 53 49 54 45 20 00 00 05 00 4C 49 45 55 20 20 20 SITE ....LIEU
01E820: 20 20 20 00 00 0D 00 4D 41 52 51 55 45 20 20 20 ....MARQUE
01E830: 20 00 00 01 00 4E 4F 4D 20 20 20 20 20 20 20 00 ....NOM .
01E840: 00 02 00 50 52 45 4E 4F 4D 20 20 20 20 00 00 0C ...PRENOM ...
01E850: 00 50 52 4F 46 45 53 53 49 4F 4E 00 00 04 00 50 .PROFESSION....P
01E860: 52 4F 56 49 53 49 54 45 20 00 00 0B 00 54 45 4C ROVISITE ....TEL
01E870: 20 20 20 20 20 20 20 00 00 0E 00 54 59 50 45 20 ....TYPE
01E880: 20 20 20 20 20 00 00 07 00 56 45 4E 54 45 20 20 ....VENTE
01E890: 20 20 20 00 00 0A 00 56 49 4C 4C 45 20 20 20 20 ....VILLE
01E8A0: 20 00 00 CD 45 25 AF 32 4D 44 CD 61 27 C3 5B 54 ...E%.2MD.a'.[T
01E8B0: 3E 48 C3 53 54 3E 28 C3 53 54 AF 32 5B 56 CD 63 >H.ST>(.ST.2[V.c
01E8C0: 39 11 6E 55 CD B1 37 CA AF 51 3E FF 32 5B 56 CD 9.nU..7..Q>.2[V.
01E8D0: 63 39 11 52 55 CD B1 37 C2 48 54 CD 8E 39 CD 73 c9.RU..7.HT..9.s
01E8E0: 39 CA 48 54 22 71 56 CD D8 1C 22 67 56 2A 67 56 9.HT"qV..."gV*gV
01E8F0: 7E B7 CA E7 51 EB 2A 71 56 3A 5B 56 B7 CA DD 51 ~...Q.*qV:[V...Q
01E900: C3 C9 46 00 00 00 00 00 00 FF 00 03 08 20 08 03 ..F.......... ..
01E910: 02 20 04 1B 59 00 00 1B 43 1B 59 0D 1B 6B 02 1B . ..Y...C.Y..k..
01E920: 70 00 00 00 02 1B 71 00 00 00 02 1B 71 1B 59 47 p.....q.....q.YG
01E930: 04 1B 45 1B 48 00 00 00 00 00 00 00 06 1B 71 1B ..E.H.........q.
01E940: 59 37 20 00 00 00 00 00 01 00 00 00 00 00 00 00 Y7 .............
01E950: 00 00 00 00 50 18 50 00 08 0C 0B 0A 26 FF 00 00 ....P.P.....&...
01E960: FF 00 46 78 B7 C8 23 4E CD A0 0A 05 C2 66 01 C9 ..Fx..#N.....f..
01E970: 21 0B 01 C3 62 01 3A 75 44 B7 C8 21 1E 01 CD 62 !...b.:uD..!...b
01E980: 01 C9 3A 75 44 B7 C8 21 24 01 CD 62 01 C9 3A 75 ..:uD..!$..b..:u
01E990: 44 B7 C8 21 2A 01 CD 62 01 C9 21 30 01 CD 62 01 D..!*..b..!0..b.
01E9A0: 3A 56 01 B7 C8 C5 06 69 00 05 C2 A8 01 3D C2 A6 :V.....i.....=..
01E9B0: 01 C1 C9 D5 2A 19 0B E5 3A 11 01 85 4F 3A 0F 01 ....*...:...O:..
01E9C0: 3C 21 12 01 CD BB 36 3A 0A 01 0F D2 D5 01 EB CD <!....6:........
01E9D0: FD 01 C3 D6 01 71 E1 3A 11 01 84 4F 3A 10 01 3C .....q.:...O:..<
01E9E0: 21 12 01 CD BB 36 3A 0A 01 0F D2 F4 01 EB CD FD !....6:.........
01E9F0: 01 C3 F5 01 71 21 12 01 CD 62 01 D1 C9 26 00 69 ....q!...b...&.i
01EA00: 00 01 64 00 CD 10 02 01 0A 00 CD 10 02 01 01 00 ..d.............
01EA10: CD C7 36 12 13 C9 21 3C 01 CD 62 01 C9 32 05 0B ..6...!<..b..2..
01EA20: E6 04 C2 29 02 78 32 0B 0B 3A 05 0B 0F D2 49 02 ...).x2..:....I.
01EA30: CD DC 1C 22 E1 0A 21 D0 0A C2 3F 02 21 C8 0A EB ..."..!...?.!...
01EA40: 21 20 00 22 19 0B CD 80 08 21 48 01 CD 62 01 3A ! .".....!H..b.:
01EA50: 0E 0B B7 C2 5B 02 3E 80 C3 57 06 AF 32 12 0B 32 ....[.>..W..2..2
01EA60: 0C 0B 32 18 0B 21 12 00 11 D0 0A CD 80 08 CD E3 ..2..!..........
01EA70: 09 CD 30 07 CA 7A 02 C3 A4 03 CD 7C 3A B7 CA 03 ..0..z.....|:...
01EA80: 03 CD 62 3A FE 7F CA 7B 04 FE 20 D2 E7 03 FE 1B ..b:...{.. .....
01EA90: C2 BB 02 CD 62 3A 21 57 01 BE C2 A2 02 CD 62 3A ....b:!W......b:
01EAA0: 00 00 21 58 01 BE CA 77 03 23 BE CA A4 03 23 BE ..!X...w.#....#.
01EAB0: CA 4E 03 23 BE CA B0 05 C3 7A 02 CD B2 36 7A 02 .N.#.....z...6z.
01EAC0: 4E 03 44 06 54 05 A4 03 4E 03 B0 05 78 04 77 03 N.D.T...N...x.w.
01EAD0: 7A 02 B0 05 4E 03 A4 03 6A 05 0E 06 7A 02 7A 02 z...N...j...z.z.
01EAE0: FE 02 5F 05 77 03 1B 06 E2 05 5A 04 28 06 B0 05 .._.w.....Z.(...
01EAF0: 22 05 31 06 7A 02 7A 02 7A 02 7A 02 7A 02 3E 80 ".1.z.z.z.z.z.>.
01EB00: 0E 00 00 01 00 40 10 00 00 00 00 00 00 02 00 40 .....@.........@
01EB10: 20 00 00 00 00 00 00 03 00 40 30 00 00 00 00 00 ........@0.....
01EB20: 00 04 00 40 40 00 00 00 00 00 00 05 00 40 50 00 ...@@........@P.
01EB30: 00 00 00 00 00 06 00 40 60 00 00 00 00 00 00 07 .......@`.......
01EB40: 00 40 70 00 00 00 00 00 00 08 00 40 80 00 00 00 .@p........@....
01EB50: 00 00 00 09 00 40 90 00 00 00 00 00 00 0A 00 41 .....@.........A
01EB60: 10 00 00 00 00 00 00 0B 00 41 11 00 00 00 00 00 .........A......
01EB70: 00 0C 00 41 12 00 00 00 00 00 00 0D 00 41 13 00 ...A.........A..
01EB80: 00 00 00 00 00 0E 00 41 14 00 00 00 00 00 00 0B .......A........
01EB90: 00 54 45 4C 20 20 20 20 20 20 20 00 00 0E 00 54 .TEL ....T
01EBA0: 59 50 45 20 20 20 20 20 20 00 00 07 00 56 45 4E YPE ....VEN
01EBB0: 54 45 20 20 20 20 20 00 00 0A 00 56 49 4C 4C 45 TE ....VILLE
01EBC0: 20 20 20 20 20 00 00 CD 45 25 AF 32 4D 44 CD 61 ...E%.2MD.a
01EBD0: 27 C3 5B 54 3E 48 C3 53 54 3E 28 C3 53 54 AF 32 '.[T>H.ST>(.ST.2
01EBE0: 5B 56 CD 63 39 11 6E 55 CD B1 37 CA AF 51 3E FF [V.c9.nU..7..Q>.
01EBF0: 32 5B 56 CD 63 39 11 52 55 CD B1 37 C2 48 54 CD 2[V.c9.RU..7.HT.
01EC00: 8E 39 CD 73 39 CA 48 54 22 71 56 CD D8 1C 22 67 .9.s9.HT"qV..."g
01EC10: 56 2A 67 56 7E B7 CA E7 51 EB 2A 71 56 3A 5B 56 V*gV~...Q.*qV:[V
01EC20: B7 CA DD 51 CD 8E 54 CA E7 51 C3 E3 51 CD 8E 54 ...Q..T..Q..Q..T
01EC30: C2 E7 51 EB CD 79 2A 2A 67 56 11 10 00 19 22 67 ..Q..y**gV...."g
01EC40: 56 7E FE 0D C2 C1 51 C3 5B 54 CD DD 25 AF 32 5F V~....Q.[T..%.2_
01EC50: 56 CD E9 25 DA 48 54 CD 73 39 CA 3B 52 11 AC 55 V..%.HT.s9.;R..U
01EC60: CD B1 37 C2 48 54 CD 8E 39 CD 73 39 CA 48 54 01 ..7.HT..9.s9.HT.
01EC70: 00 05 CD 72 2A 22 73 56 3E FF 32 5F 56 CD 69 39 ...r*"sV>.2_V.i9
01EC80: CA 3B 52 FE 20 C2 2D 52 C3 01 52 01 00 00 CD 2A .;R. .-R..R....*
01EC90: 2C 7C B5 CA 62 52 21 FF FF CD 5B 26 DA 62 52 CD ,|..bR!...[&.bR.
01ECA0: 78 27 CA 59 52 DA 62 52 03 CD 47 2B CA 62 52 D2 x'.YR.bR..G+.bR.
01ECB0: 4F 52 3A 7D 44 B7 CA 73 52 3E 22 CD 70 3B 60 69 OR:}D..sR>".p;`i
01ECC0: CD 35 36 3A 5F 56 B7 CA 5B 54 60 69 CD 18 34 2A .56:_V..[T`i..4*
01ECD0: 73 56 11 0D 00 19 CD E9 36 CD E5 34 C3 5B 54 3E sV......6..4.[T>
01ECE0: 67 CD 70 3B CD 61 27 CD 3C 27 CD C4 25 3E 72 CD g.p;.a'.<'..%>r.
01ECF0: 70 3B CD 2A 2C CD 35 36 3E 77 CD 70 3B CD E3 1C p;.*,.56>w.p;...
01ED00: C3 57 06 3A 18 0B B7 CA 81 02 2A 19 0B E5 2A 16 .W.:......*...*.
01ED10: 0B 22 19 0B CD B3 01 2A 14 0B 7E 23 22 14 0B 4F .".....*..~#"..O
01ED20: CD 76 3A CD CC 06 3A 04 0B 3D 32 04 0B C2 37 03 .v:...:..=2...7.
01ED30: AF 32 18 0B C3 3E 03 CD 7C 3A B7 CA 17 03 2A 19 .2...>..|:....*.
01ED40: 0B 22 16 0B E1 22 19 0B CD B3 01 C3 7A 02 CD D4 ."..."......z...
01ED50: 08 3A 0B 0B 3D F2 68 03 3A 05 0B E6 04 C2 6B 03 .:..=.h.:.....k.
01ED60: 3A 12 0B F6 06 C3 57 06 32 0B 0B CD E3 09 CD 30 :.....W.2......0
01ED70: 07 CA 7A 02 C3 A4 03 AF 32 E0 0A 2A 02 0B EB 2A ..z.....2..*...*
01ED80: 19 0B CD C0 36 D2 4E 03 2D F2 92 03 3A 54 01 3D ....6.N.-...:T.=
01ED90: 6F 25 22 19 0B CD 0C 07 CD B3 01 CD 30 07 CA 7A o%".........0..z
01EDA0: 02 C3 77 03 2A 09 0B EB 2A 19 0B CD C0 36 DA C6 ..w.*...*....6..
01EDB0: 03 CA C6 03 CD CC 06 CD E8 06 CD B3 01 CD 30 07 ..............0.
01EDC0: CA 7A 02 C3 A4 03 3A 58 44 B7 C2 D3 03 CD BD 0A .z....:XD.......
01EDD0: C3 B0 05 2A 09 0B 22 19 0B CD B3 01 CD BD 0A 3E ...*.."........>
01EDE0: FF 32 E0 0A C3 7A 02 CD 3C 07 79 F5 D2 F6 03 CD .2...z..<.y.....
01EDF0: BD 0A F1 C3 7A 02 3E 01 32 12 0B 3A 0C 0B B7 C2 ....z.>.2..:....
01EE00: 0E 04 F1 2A E3 0A 77 4F CD 76 3A C3 A4 03 2A 00 ...*..wO.v:...*.
01EE10: 0B 3A 0D 0B CD BB 36 EB 1B 2A E3 0A 22 E5 0A 4E .:....6..*.."..N
01EE20: 3A 1B 0B 32 1C 0B CD E8 06 2A E3 0A CD C0 36 DA :..2.....*....6.
01EE30: 42 04 79 CD 3C 07 DA 42 04 2A E3 0A 7E 71 4F C3 B.y.<..B.*..~qO.
01EE40: 26 04 3A 1C 0B 32 1B 0B 2A E5 0A 22 E3 0A F1 77 &.:..2..*.."...w
01EE50: 4F CD 76 3A CD 88 0A C3 A4 03 3A 0C 0B EE FF 32 O.v:......:....2
01EE60: 0C 0B CA 6B 04 21 D8 0A C3 6E 04 21 D0 0A EB 21 ...k.!...n.!...!
01EE70: 12 00 CD 80 08 C3 7A 02 C3 AE 04 2A E3 0A 2B EB ......z....*..+.
01EE80: 2A 00 0B CD C0 36 DA 7A 02 CD 0C 07 CD 30 07 CA *....6.z.....0..
01EE90: 98 04 CD E8 06 C3 7A 02 2A 19 0B 2D 22 19 0B F2 ......z.*..-"...
01EEA0: AE 04 3A 54 01 3D 6F 25 22 19 0B CD B3 01 3E 01 ..:T.=o%".....>.
01EEB0: 32 12 0B 3A 0D 0B 4F 2A 00 0B EB 2A E3 0A EB 79 2..:..O*...*...y
01EEC0: CD BB 36 2B 22 06 0B 3A 1B 0B 32 1C 0B 2A E3 0A ..6+"..:..2..*..
01EED0: 22 E5 0A 2A 06 0B EB 2A E3 0A CD C0 36 CA 0B 05 "..*...*....6...
01EEE0: CD E8 06 CD 30 07 C2 08 05 3A 1D 0B B7 CA 08 05 ....0....:......
01EEF0: 2A E3 0A 4E CD 0C 07 79 CD 3C 07 DA 0B 05 2A E3 *..N...y.<....*.
01EF00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
01EF10: 1A 00 01 00 02 09 4E E5 1A 00 41 02 00 00 00 02 ......N...A.....
01EF20: 1A 00 46 02 00 00 00 02 1A 00 42 02 00 00 00 02 ..F.......B.....
01EF30: 1A 00 47 02 00 00 00 02 1A 00 43 02 00 00 00 02 ..G.......C.....
01EF40: 1A 00 48 02 00 00 00 02 1A 00 44 02 00 00 00 02 ..H.......D.....
01EF50: 1A 00 49 02 00 00 00 02 1A 00 45 02 00 00 00 02 ..I.......E.....
01EF60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01EF70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01EF80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01EF90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01EFA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01EFB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01EFC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01EFD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01EFE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01EFF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01F000: 02 0E 00 02 0C 56 64 00 46 49 45 4C 44 3A 4E 41 .....Vd.FIELD:NA
01F010: 4D 45 00 43 0A B9 70 00 46 49 45 4C 44 3A 54 59 ME.C..p.FIELD:TY
01F020: 50 45 00 43 01 C3 70 00 46 49 45 4C 44 3A 4C 45 PE.C..p.FIELD:LE
01F030: 4E 00 00 4E 03 C4 70 00 46 49 45 4C 44 3A 44 45 N..N..p.FIELD:DE
01F040: 43 00 00 4E 03 C7 70 00 4C 54 00 00 00 00 00 00 C..N..p.LT......
01F050: 00 00 00 4E 02 CA 70 00 43 54 00 00 00 00 00 00 ...N..p.CT......
01F060: 00 00 00 4E 02 CC 70 00 54 45 58 54 45 00 00 00 ...N..p.TEXTE...
01F070: 00 00 00 43 14 CE 70 00 4C 53 00 00 00 00 00 00 ...C..p.LS......
01F080: 00 00 00 4E 02 E2 70 00 43 53 00 00 00 00 00 00 ...N..p.CS......
01F090: 00 00 00 4E 02 E4 70 00 56 45 52 49 46 00 00 00 ...N..p.VERIF...
01F0A0: 00 00 00 43 02 E6 70 00 56 41 4C 31 00 00 00 00 ...C..p.VAL1....
01F0B0: 00 00 00 43 0A E8 70 00 56 41 4C 32 00 00 00 00 ...C..p.VAL2....
01F0C0: 00 00 00 43 1E F2 70 00 56 41 4C 33 00 00 00 00 ...C..p.VAL3....
01F0D0: 00 00 00 43 0A 10 71 00 4E 4F 5A 00 00 00 00 00 ...C..q.NOZ.....
01F0E0: 00 00 00 4E 02 1A 71 00 0D 00 00 00 00 00 00 00 ...N..q.........
01F0F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01F100: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01F110: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01F120: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01F130: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01F140: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01F150: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01F160: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01F170: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01F180: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01F190: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01F1A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01F1B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01F1C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01F1D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01F1E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01F1F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01F200: 36 7E C3 08 07 CD AA 0A 32 1D 0B C9 2A E3 0A 2B 6~......2...*..+
01F210: 22 E3 0A 2A 0F 0B 7C B5 CA 29 07 3A 1B 0B 3D 32 "..*..|..).:..=2
01F220: 1B 0B CD BB 36 7E C3 2C 07 CD AA 0A 32 1D 0B C9 ....6~.,....2...
01F230: 3A 1D 0B B7 C8 21 F5 0A CD 4B 39 C9 4F 3A 1D 0B :....!...K9.O:..
01F240: B7 C8 FE 39 CA 79 07 FE 23 CA 79 07 FE 41 CA 60 ...9.y..#.y..A.`
01F250: 07 FE 4C CA 6F 07 FE 21 CA 65 07 FE 58 C8 37 C9 ..L.o..!.e..X.7.
01F260: 79 CD 84 36 C9 79 CD 84 36 3F D0 E6 5F 4F C9 79 y..6.y..6?.._O.y
01F270: 21 E7 0A CD 4B 39 C8 37 C9 79 21 F0 0A CD 4B 39 !...K9.7.y!...K9
01F280: C8 79 CD AB 36 C9 47 2A 1E 0B 11 0B 00 19 4E 23 .y..6.G*......N#
01F290: 23 CD DF 36 79 B7 F2 EE 07 FE C3 CA ED 07 FE CE #..6y...........
01F2A0: CA B6 07 7E B7 C2 AD 07 0E 46 C3 AF 07 0E 54 CD ...~.....F....T.
01F2B0: 76 3A CD CC 06 C9 CD F2 34 2A 0F 0B 7C B5 CA D9 v:......4*..|...
01F2C0: 07 CD AD 08 2A 1E 0B 11 0C 00 19 70 23 23 23 71 ....*......p###q
01F2D0: 21 00 00 22 0F 0B C3 E1 07 2A 1E 0B 11 0F 00 19 !..".....*......
01F2E0: 4E 21 C7 9B CD 4D 33 21 C7 9B C3 EE 07 23 EB 2A N!...M3!.....#.*
01F2F0: 0F 0B 7C B5 EB C2 09 08 4E CD A0 0A 23 C5 E5 CD ..|.....N...#...
01F300: CC 06 E1 C1 05 C2 F8 07 C9 E5 2A FE 0A 22 0F 0B ..........*.."..
01F310: E1 1A B7 CA 76 08 F5 E5 2A FE 0A 77 23 22 FE 0A ....v...*..w#"..
01F320: E1 F1 FE 39 CA 3F 08 FE 23 CA 3F 08 FE 41 CA 49 ...9.?..#.?..A.I
01F330: 08 FE 21 CA 49 08 FE 58 CA 5E 08 77 C3 65 08 7E ..!.I..X.^.w.e.~
01F340: CD AB 36 D2 65 08 C3 62 08 4F 7E CD 84 36 DA 5E ..6.e..b.O~..6.^
01F350: 08 79 FE 21 7E C2 65 08 E6 5F 77 C3 65 08 7E C3 .y.!~.e.._w.e.~.
01F360: 65 08 3E 20 77 4F CD A0 0A 23 13 C5 E5 CD CC 06 e.> wO...#......
01F370: E1 C1 05 C2 11 08 2A FE 0A 36 00 23 22 FE 0A C9 ......*..6.#"...
01F380: E5 CD 8E 01 2A 19 0B E3 22 19 0B CD B3 01 EB CD ....*...".......
01F390: 9D 08 E1 22 19 0B CD B3 01 CD 76 01 C9 7E B7 C8 ..."......v..~..
01F3A0: 4F CD A0 0A 23 E5 CD CC 06 E1 C3 9D 08 01 00 00 O...#...........
01F3B0: 7E B7 C8 04 23 FE 2E C2 B0 08 7E B7 C8 0C 04 23 ~...#.....~....#
01F3C0: C3 BA 08 3A 0B 0B 6F 26 00 29 29 29 11 AF 9F 19 ...:..o&.)))....
01F3D0: CD E9 36 C9 3A 13 0B E6 7F FE 4E C2 31 09 2A 00 ..6.:.....N.1.*.
01F3E0: 0B 3A 0D 0B 4F CD 9F 32 3A 13 0B B7 F2 FD 08 2A .:..O..2:......*
01F3F0: 1E 0B 11 0D 00 19 CD DF 36 EB CD E5 34 2A 0F 0B ........6...4*..
01F400: 00 00 00 00 00 00 00 00 00 20 4E 4F 4D 20 20 20 ......... NOM
01F410: 20 20 20 20 43 20 31 32 20 20 30 20 33 20 37 4E C 12 0 3 7N
01F420: 6F 6D 3A 20 20 20 20 20 20 20 20 20 20 20 20 20 om:
01F430: 20 20 20 20 33 31 32 4E 41 20 20 20 20 20 20 20 312NA
01F440: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01F450: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01F460: 20 20 20 20 20 20 20 20 20 20 20 20 31 20 50 52 1 PR
01F470: 45 4E 4F 4D 20 20 20 20 43 20 31 32 20 20 30 20 ENOM C 12 0
01F480: 33 32 36 50 72 65 6E 6F 6D 3A 20 20 20 20 20 20 326Prenom:
01F490: 20 20 20 20 20 20 20 20 33 33 34 4E 41 20 20 20 334NA
01F4A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01F4B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01F4C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01F4D0: 32 20 44 45 52 56 49 53 49 54 45 20 43 20 20 38 2 DERVISITE C 8
01F4E0: 20 20 30 31 35 35 33 44 65 72 6E 69 65 72 65 20 01553Derniere
01F4F0: 56 69 73 69 74 65 3A 20 20 20 20 31 35 37 30 4E Visite: 1570N
01F500: 44 20 20 20 20 20 20 20 20 20 20 30 30 2F 30 30 D 00/00
01F510: 2F 30 30 20 20 20 20 20 20 20 20 20 20 20 20 20 /00
01F520: 20 20 20 20 20 20 20 20 20 30 30 2F 30 30 2F 30 00/00/0
01F530: 30 20 20 20 33 20 50 52 4F 56 49 53 49 54 45 20 0 3 PROVISITE
01F540: 43 20 20 38 20 20 30 31 37 35 32 50 72 6F 63 68 C 8 01752Proch
01F550: 61 69 6E 65 20 56 69 73 69 74 65 3A 20 20 20 31 aine Visite: 1
01F560: 37 37 30 4E 44 20 20 20 20 20 20 20 20 20 20 30 770ND 0
01F570: 30 2F 30 30 2F 30 30 20 20 20 20 20 20 20 20 20 0/00/00
01F580: 20 20 20 20 20 20 20 20 20 20 20 20 20 30 30 2F 00/
01F590: 30 30 2F 30 30 20 20 20 34 20 4C 49 45 55 20 20 00/00 4 LIEU
01F5A0: 20 20 20 20 43 20 20 31 20 20 30 31 39 35 36 4C C 1 01956L
01F5B0: 69 65 75 20 28 42 2C 44 2C 4E 29 3A 20 20 20 20 ieu (B,D,N):
01F5C0: 20 20 20 31 39 37 30 4E 4C 20 20 20 20 20 20 20 1970NL
01F5D0: 20 20 20 42 2C 44 2C 4E 20 20 20 20 20 20 20 20 B,D,N
01F5E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01F5F0: 20 20 20 20 20 20 20 20 20 20 20 20 35 20 42 45 5 BE
01F600: 7C B5 CA 0B 09 CD AD 08 C3 13 09 3A 0D 0B 47 3A |..........:..G:
01F610: 08 0B 4F C5 2A 00 0B CD 4D 33 2A 02 0B 22 19 0B ..O.*...M3*.."..
01F620: CD B3 01 C1 2A 00 0B 4E CD A0 0A 23 05 C2 27 09 ....*..N...#..'.
01F630: C9 3A 13 0B FE CC C0 2A 00 0B 7E B7 C8 F8 E6 5F .:.....*..~...._
01F640: FE 59 CA 4D 09 FE 54 CA 4D 09 36 00 C9 36 FF C9 .Y.M..T.M.6..6..
01F650: E5 CD 82 01 E1 7E B7 C2 72 09 2A 1E 0B 7C B5 C2 .....~..r.*..|..
01F660: 75 09 0E 20 CD A0 0A CD CC 06 3A 19 0B B7 C2 62 u.. ......:....b
01F670: 09 C9 CD 9D 08 2A 1E 0B 7C B5 C8 3A 57 44 B7 CA .....*..|..:WD..
01F680: 8A 09 0E 3A CD 76 3A CD CC 06 CD 76 01 2A 19 0B ...:.v:....v.*..
01F690: EB 2A FC 0A CD E4 36 22 FC 0A 2A 1E 0B 11 0C 00 .*....6"..*.....
01F6A0: 19 7E CD 86 07 2A 19 0B 2D F2 B2 09 3A 54 01 3D .~...*..-...:T.=
01F6B0: 6F 25 EB 2A FC 0A CD E4 36 EB 2A 1E 0B EB CD E4 o%.*....6.*.....
01F6C0: 36 EB 2A 0F 0B EB CD E4 36 22 FC 0A CD 82 01 3A 6.*.....6".....:
01F6D0: 57 44 B7 CA DE 09 0E 3A CD 76 3A CD CC 06 21 0E WD.....:.v:...!.
01F6E0: 0B 34 C9 AF 32 E0 0A CD C3 08 EB 22 02 0B 22 19 .4..2......"..".
01F6F0: 0B AF 32 1B 0B EB CD E9 36 EB 22 09 0B EB CD E9 ..2.....6.".....
01F700: 36 EB 22 1E 0B EB CD DF 36 22 0F 0B 2A 1E 0B 11 6.".....6"..*...
01F710: 0B 00 19 7E 4F 32 13 0B 23 7E B7 C2 1F 0A 3C 32 ...~O2..#~....<2
01F720: 0D 0B 23 CD E9 36 EB 79 B7 F2 68 0A FE C3 CA 67 ..#..6.y..h....g
01F730: 0A FE CC CA 68 0A CD F2 34 2A 0F 0B 7C B5 CA 4F ....h...4*..|..O
01F740: 0A CD AD 08 78 32 0D 0B 79 32 08 0B C3 58 0A 3A ....x2..y2...X.:
01F750: 0D 0B 47 1A 32 08 0B 4F 21 C7 9B 22 00 0B 22 E3 ..G.2..O!.."..".
01F760: 0A CD 4D 33 C3 72 0A 23 22 00 0B 1A 32 08 0B 22 ..M3.r.#"...2.."
01F770: E3 0A CD B3 01 2A 0F 0B 7C B5 CA 81 0A 7E C3 84 .....*..|....~..
01F780: 0A CD AA 0A 32 1D 0B C9 3A 0D 0B 32 04 0B 2A 00 ....2...:..2..*.
01F790: 0B 22 14 0B 2A 02 0B 22 16 0B 3E FF 32 18 0B C9 ."..*.."..>.2...
01F7A0: C5 D5 E5 CD 76 3A E1 D1 C1 C9 3A 13 0B E6 7F FE ....v:....:.....
01F7B0: 4E C2 B7 0A 3E 39 C9 FE 4C C8 3E 58 C9 3A 51 44 N...>9..L.>X.:QD
01F7C0: B7 C8 0E 07 CD 76 3A C9 44 45 4C 45 54 45 44 00 .....v:.DELETED.
01F7D0: 20 20 20 20 20 20 20 00 49 4E 53 45 52 54 20 00 .INSERT .
01F7E0: 00 00 00 00 00 00 00 54 46 59 4E 74 66 79 6E 00 .......TFYNtfyn.
01F7F0: 2E 2B 2D 20 00 23 39 41 58 4C 21 00 AF 9F B0 A1 .+- .#9AXL!.....
01F800: 53 4F 49 4E 20 20 20 20 43 20 35 35 20 20 30 31 SOIN C 55 01
01F810: 32 31 35 42 45 53 4F 49 4E 3A 20 20 20 20 20 20 215BESOIN:
01F820: 20 20 20 20 20 20 20 31 32 32 33 4E 41 20 20 20 1223NA
01F830: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01F840: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01F850: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01F860: 36 20 56 45 4E 54 45 20 20 20 20 20 4E 20 20 36 6 VENTE N 6
01F870: 20 20 30 31 35 31 36 56 65 6E 74 65 3A 20 20 20 01516Vente:
01F880: 20 20 20 20 20 20 20 20 20 20 20 31 35 32 33 4E 1523N
01F890: 41 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 A
01F8A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01F8B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01F8C0: 20 20 20 20 37 20 41 44 52 45 53 53 45 20 20 20 7 ADRESSE
01F8D0: 43 20 32 32 20 20 30 20 35 20 33 41 64 72 65 73 C 22 0 5 3Adres
01F8E0: 73 65 3A 20 20 20 20 20 20 20 20 20 20 20 20 20 se:
01F8F0: 35 31 32 4E 41 20 20 20 20 20 20 20 20 20 20 20 512NA
01F900: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01F910: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01F920: 20 20 20 20 20 20 20 20 38 20 43 4F 44 45 50 4F 8 CODEPO
01F930: 53 54 20 20 4E 20 20 35 20 20 30 20 35 33 39 43 ST N 5 0 539C
01F940: 6F 64 65 20 50 6F 73 74 61 6C 3A 20 20 20 20 20 ode Postal:
01F950: 20 20 20 20 35 35 32 4E 41 20 20 20 20 20 20 20 552NA
01F960: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01F970: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01F980: 20 20 20 20 20 20 20 20 20 20 20 20 39 20 56 49 9 VI
01F990: 4C 4C 45 20 20 20 20 20 43 20 31 32 20 20 30 20 LLE C 12 0
01F9A0: 35 35 39 56 69 6C 6C 65 3A 20 20 20 20 20 20 20 559Ville:
01F9B0: 20 20 20 20 20 20 20 20 35 36 36 4E 41 20 20 20 566NA
01F9C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01F9D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01F9E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 1
01F9F0: 30 20 54 45 4C 20 20 20 20 20 20 20 43 20 31 36 0 TEL C 16
01FA00: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01FA10: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01FA20: C5 D5 22 C1 1C 21 01 6A 22 C5 1C 21 92 6A 22 2E .."..!.j"..!.j".
01FA30: 1C 3A C3 1C B7 C2 3E 0B 21 B0 6A 22 BF 1C 2A C1 .:....>.!.j"..*.
01FA40: 1C 7E 23 22 C1 1C EB FE 36 D2 CE 0B CD B2 36 A8 .~#"....6.....6.
01FA50: 10 BC 10 CA 10 E1 10 ED 10 F9 10 05 11 0E 11 17 ................
01FA60: 11 23 11 2C 11 35 11 41 11 66 11 96 11 9F 11 A8 .#.,.5.A.f......
01FA70: 11 B4 11 BD 11 C6 11 D2 11 E3 11 F4 11 09 12 15 ................
01FA80: 12 21 12 2F 12 3E 12 51 12 64 12 9A 12 E4 12 04 .!./.>.Q.d......
01FA90: 13 1A 13 54 13 7B 13 BD 13 F7 13 09 14 19 14 1C ...T.{..........
01FAA0: 14 07 0C D1 0B DE 0B F2 0B A2 0E 8C 0C CE 0E 62 ...............b
01FAB0: 0F D8 0F E2 0C 3F 10 60 10 BB 0B 2A C1 1C 2B 22 .....?.`...*..+"
01FAC0: C1 1C 3A C3 1C B7 C2 36 0E CD DC 14 7E B7 D1 C1 ..:....6....~...
01FAD0: C9 CD FD 0B 21 06 00 19 22 C1 1C C3 3E 0B 2A BF ....!..."...>.*.
01FAE0: 1C EB 06 00 4E 03 CD 7E 38 22 C1 1C CD C3 14 C3 ....N..~8"......
01FAF0: 3E 0B CD FD 0B EB 23 22 C1 1C C3 3E 0B 2A 2E 1C >.....#"...>.*..
01FB00: CD E4 36 22 2E 1C C9 EB CD E9 36 22 C1 1C EB 01 ..6"......6"....
01FB10: 0B 00 09 46 23 4E 23 CD DF 36 78 CD BE 14 DA 48 ...F#N#..6x....H
01FB20: 0C CA 60 0C 78 B7 FA 36 0C CD 9F 32 2A BF 1C EB ..`.x..6...2*...
01FB30: CD E5 34 C3 40 0C EB 2A BF 1C EB 0E 06 CD 78 38 ..4.@..*......x8
01FB40: 0E 06 CD C3 14 C3 3E 0B EB 2A BF 1C EB 78 B7 F2 ......>..*...x..
01FB50: 53 0C 23 79 12 13 CD 78 38 0C CD C3 14 C3 3E 0B S.#y...x8.....>.
01FB60: 78 B7 F2 6D 0C 7E 2A BF 1C 77 C3 84 0C 7E 2A BF x..m.~*..w...~*.
01FB70: 1C E6 5F FE 54 CA 82 0C FE 59 CA 82 0C 36 00 C3 .._.T....Y...6..
01FB80: 84 0C 36 FF 0E 01 CD C3 14 C3 3E 0B 1A 4F 13 1A ..6.......>..O..
01FB90: 47 13 EB 22 C1 1C CD DC 14 78 B7 CA C4 0C 06 01 G..".....x......
01FBA0: 7E E6 7F D6 40 DA AB 0C 80 3C 47 78 81 3C 47 CD ~...@....<Gx.<G.
01FBB0: F2 34 2A BF 1C CD 4D 33 2A BF 1C 48 06 00 CD 13 .4*...M3*..H....
01FBC0: 2C C3 3E 0B 79 B7 CA D1 0C 4E 23 CD 13 2C C3 3E ,.>.y....N#..,.>
01FBD0: 0B 7E 21 27 1C B7 C2 DC 0C 21 23 1C CD 2B 36 C3 .~!'.....!#..+6.
01FBE0: 3E 0B 1A 4F 13 1A 47 13 1A F5 13 1A 32 C4 1C 13 >..O..G.....2...
01FBF0: EB 22 C1 1C CD DC 14 78 E6 3F CA 17 0D F1 47 CD .".....x.?....G.
01FC00: 20 20 30 20 33 34 37 54 65 6C 3A 20 20 20 20 20 0 347Tel:
01FC10: 20 20 20 20 20 20 20 20 20 20 20 20 33 35 32 4E 352N
01FC20: 41 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 A
01FC30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01FC40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01FC50: 20 20 20 31 31 20 50 52 4F 46 20 20 20 20 20 20 11 PROF
01FC60: 43 20 31 31 20 20 30 20 37 20 35 50 72 6F 66 2E C 11 0 7 5Prof.
01FC70: 3A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 :
01FC80: 37 31 32 4F 41 20 20 20 20 20 20 20 20 20 20 20 712OA
01FC90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01FCA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01FCB0: 20 20 20 20 20 20 20 31 32 20 4D 41 52 51 55 45 12 MARQUE
01FCC0: 20 20 20 20 43 20 31 31 20 20 30 31 30 20 33 4D C 11 010 3M
01FCD0: 61 72 71 75 65 20 64 75 20 4D 61 74 65 72 69 65 arque du Materie
01FCE0: 6C 3A 20 31 30 32 33 4E 41 20 20 20 20 20 20 20 l: 1023NA
01FCF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01FD00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01FD10: 20 20 20 20 20 20 20 20 20 20 20 31 33 20 54 59 13 TY
01FD20: 50 45 20 20 20 20 20 20 43 20 20 36 20 20 30 31 PE C 6 01
01FD30: 30 34 36 54 79 70 65 3A 20 20 20 20 20 20 20 20 046Type:
01FD40: 20 20 20 20 20 20 20 31 30 35 32 43 41 4D 41 52 1052CAMAR
01FD50: 51 55 45 20 20 20 20 20 20 20 20 20 20 20 20 20 QUE
01FD60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01FD70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 1
01FD80: 34 1A 20 20 20 00 00 07 00 56 45 4E 54 45 20 20 4. ....VENTE
01FD90: 20 20 20 00 00 0A 00 56 49 4C 4C 45 20 20 20 20 ....VILLE
01FDA0: 20 00 00 CD 45 25 AF 32 4D 44 CD 61 27 C3 5B 54 ...E%.2MD.a'.[T
01FDB0: 3E 48 C3 53 54 3E 28 C3 53 54 AF 32 5B 56 CD 63 >H.ST>(.ST.2[V.c
01FDC0: 39 11 6E 55 CD B1 37 CA AF 51 3E FF 32 5B 56 CD 9.nU..7..Q>.2[V.
01FDD0: 63 39 11 52 55 CD B1 37 C2 48 54 CD 8E 39 CD 73 c9.RU..7.HT..9.s
01FDE0: 39 CA 48 54 22 71 56 CD D8 1C 22 67 56 2A 67 56 9.HT"qV..."gV*gV
01FDF0: 7E B7 CA E7 51 EB 2A 71 56 3A 5B 56 B7 CA DD 51 ~...Q.*qV:[V...Q
01FE00: F2 34 2A BF 1C CD 4D 33 2A BF 1C 48 06 00 CD 13 .4*...M3*..H....
01FE10: 2C CD 7E 36 C3 3E 0B 78 32 CA 1C 79 B7 CA 35 0D ,.~6.>.x2..y..5.
01FE20: F1 4E B7 C2 27 0D 79 23 CD 4A 0D B7 CA 3E 0B CD .N..'.y#.J...>..
01FE30: 01 0E C3 3E 0B F1 7E 21 27 1C B7 C2 41 0D 21 23 ...>..~!'...A.!#
01FE40: 1C CD 2B 36 CD 7E 36 C3 3E 0B C5 41 32 C9 1C 91 ..+6.~6.>..A2...
01FE50: D2 55 0D 81 4F C5 E5 AF 32 CB 1C 7E FE 3B CA A1 .U..O...2..~.;..
01FE60: 0D 23 0D C2 5B 0D E1 C1 C5 E5 3A C9 1C 90 DA 77 .#..[.....:....w
01FE70: 0D 79 E1 C1 C3 AE 0D 79 CD BB 36 7E FE 20 C2 89 .y.....y..6~. ..
01FE80: 0D 3E FF 32 CB 1C C3 9B 0D 2B 7E FE 20 CA 9B 0D .>.2.....+~. ...
01FE90: 2B 0D C2 8A 0D E1 C1 79 C3 AE 0D 79 E1 C1 C3 AE +......y...y....
01FEA0: 0D 3E FF 32 CB 1C 0C 79 E1 C1 91 2F 3C 3C F5 4F .>.2...y.../<<.O
01FEB0: 06 00 3A CA 1C 07 DA D5 0D 07 DA E3 0D 3A C9 1C ..:..........:..
01FEC0: 91 3C 1F F5 CD 95 0E CD 13 2C F1 D2 CF 0D 3C CD .<.......,....<.
01FED0: 95 0E C3 F0 0D CD 13 2C 3A C9 1C 91 3C CD 95 0E .......,:...<...
01FEE0: C3 F0 0D 3A C9 1C 91 CD 95 0E CD 13 2C CD 7E 36 ...:........,.~6
01FEF0: F1 4F 3A CB 1C B7 CA FB 0D 23 0C 79 C1 91 2F 3C .O:......#.y../<
01FF00: C9 E5 F5 47 7E FE 20 C2 12 0E 23 05 C2 04 0E F1 ...G~. ...#.....
01FF10: E1 C9 F1 E1 EB 2A C5 1C 77 23 3A CA 1C 77 23 73 .....*..w#:..w#s
01FF20: 23 72 23 3A C9 1C 77 23 3A C4 1C 77 23 22 C5 1C #r#:..w#:..w#"..
01FF30: 3E FF 32 C3 1C C9 AF 32 2D 1C 32 C3 1C 2A C5 1C >.2....2-.2..*..
01FF40: 36 00 21 01 6A 22 C5 1C CD 1B 36 4E 23 7E 32 CA 6.!.j"....6N#~2.
01FF50: 1C 23 5E 23 56 23 7E 23 46 23 22 C7 1C F5 78 32 .#^#V#~#F#"...x2
01FF60: C4 1C 3A 2D 1C 90 2F 3C CA 72 0E CD 95 0E 78 32 ..:-../<.r....x2
01FF70: 2D 1C F1 EB CD 4A 0D B7 CA 7E 0E CD 01 0E 3A C9 -....J...~....:.
01FF80: 1C 5F 3A C4 1C 83 3C 32 2D 1C 2A C7 1C 7E B7 C2 ._:...<2-.*..~..
01FF90: 4B 0E C3 3E 0B B7 C8 00 F5 CD 7E 36 F1 3D C8 C3 K..>......~6.=..
01FFA0: 98 0E EB CD E9 36 D5 CD E9 36 22 C1 1C 21 0C 00 .....6...6"..!..
01FFB0: 19 4E 23 CD E9 36 E1 3E 0C CD BB 36 7E F5 23 CD .N#..6.>...6~.#.
01FFC0: DF 36 F1 B9 D2 C8 0E 4F CD 78 38 C3 3E 0B EB CD .6.....O.x8.>...
01FFD0: E9 36 22 C1 1C EB CD B7 14 DA 0A 0F CA 54 0F 23 .6"..........T.#
01FFE0: E5 23 CD E9 36 4E CD DC 14 46 C5 0E 06 CD 78 38 .#..6N...F....x8
01FFF0: C1 78 E6 7F D6 40 F2 FA 0E AF 3C 81 3C 3C FE 0A .x...@....<.<<..
020000: 0A 71 CD E8 06 C3 D3 04 CD 0C 07 2A E3 0A 36 20 .q.........*..6
020010: 3A 1C 0B 32 1B 0B 2A E5 0A 22 E3 0A CD 88 0A C3 :..2..*.."......
020020: 7A 02 3E 01 32 12 0B 2A E3 0A 36 20 CD E8 06 CD z.>.2..*..6 ....
020030: D4 06 2A 09 0B EB 2A 19 0B CD C0 36 DA 48 05 CD ..*...*....6.H..
020040: 30 07 CA 27 05 C3 2C 05 CD D4 08 CD 88 0A CD E3 0..'..,.........
020050: 09 C3 7A 02 CD D4 08 3A 12 0B F6 0C C3 57 06 CD ..z....:.....W..
020060: D4 08 3A 12 0B F6 0E C3 57 06 3A 0B 0B B7 C2 8D ..:.....W.:.....
020070: 05 3A 05 0B B7 F2 8D 05 2A 19 0B EB 2A 02 0B CD .:......*...*...
020080: C0 36 C2 8D 05 3A 12 0B F6 04 C3 57 06 3A 13 0B .6...:.....W.:..
020090: E6 7F FE 4E C2 B0 05 2A 19 0B EB 2A 02 0B CD C0 ...N...*...*....
0200A0: 36 CA B0 05 3A E0 0A B7 C2 B0 05 2A E3 0A 36 00 6...:......*..6.
0200B0: CD D4 08 3A 0B 0B 3C 21 0E 0B BE DA D3 05 47 3A ...:..<!......G:
0200C0: 05 0B E6 02 C2 CB 05 78 32 0B 0B 3A 12 0B F6 04 .......x2..:....
0200D0: C3 57 06 32 0B 0B CD E3 09 CD 30 07 CA 7A 02 C3 .W.2......0..z..
0200E0: A4 03 3A 05 0B 0F D2 7A 02 CD DC 1C 7E FE 2A CA ..:....z....~.*.
0200F0: FA 05 36 2A 21 C8 0A C3 FF 05 36 20 21 D0 0A EB ..6*!.....6 !...
020100: 21 20 00 CD 80 08 3E 01 32 12 0B C3 7A 02 3A 05 ! ....>.2...z.:.
020110: 0B E6 08 CA 7A 02 3E 40 C3 57 06 3A 05 0B E6 08 ....z.>@.W.:....
020120: CA 7A 02 3E C0 C3 57 06 CD D4 08 3A 12 0B C3 57 .z.>..W....:...W
020130: 06 CD D4 08 3A 05 0B E6 02 CA 7A 02 3A 12 0B F6 ....:.....z.:...
020140: 30 C3 57 06 CD D4 08 3A 05 0B E6 02 CA 7A 02 3A 0.W....:.....z.:
020150: 12 0B F6 20 C3 57 06 F5 CD 8E 01 CD 16 02 3A 0B ... .W........:.
020160: 0B 47 3A 05 0B E6 04 CA 70 06 3A 0E 0B 32 0B 0B .G:.....p.:..2..
020170: F1 C9 D5 CD E9 36 EB 22 1E 0B EB CD DF 36 22 0F .....6.".....6".
020180: 0B D1 78 B7 F2 8E 06 E6 7F 47 3A 1A 0B 80 32 1A ..x......G:...2.
020190: 0B 79 B7 F2 9E 06 E6 7F 4F 3A 19 0B 81 3D 32 19 .y......O:...=2.
0201A0: 0B CD B3 01 EB CD 50 09 CD 8E 01 C9 CD 9A 01 21 ......P........!
0201B0: 00 00 22 19 0B 21 AF 9F 22 FC 0A 21 B0 A1 22 FE .."..!.."..!..".
0201C0: 0A AF 32 0E 0B 32 0C 0B 32 0B 0B C9 CD D4 06 D0 ..2..2..2.......
0201D0: CD B3 01 C9 2A 19 0B 2C 22 19 0B 3A 54 01 3D BD ....*..,"..:T.=.
0201E0: D0 24 2E 00 22 19 0B C9 2A E3 0A 23 22 E3 0A 2A .$.."...*..#"..*
0201F0: 0F 0B 7C B5 CA 05 07 3A 1B 0B 3C 32 1B 0B CD BB ..|....:..<2....
020200: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
020210: 1B 00 01 00 02 09 4E E5 1B 00 41 02 00 00 00 02 ......N...A.....
020220: 1B 00 46 02 00 00 00 02 1B 00 42 02 00 00 00 02 ..F.......B.....
020230: 1B 00 47 02 00 00 00 02 1B 00 43 02 00 00 00 02 ..G.......C.....
020240: 1B 00 48 02 00 00 00 02 1B 00 44 02 00 00 00 02 ..H.......D.....
020250: 1B 00 49 02 00 00 00 02 1B 00 45 02 00 00 00 02 ..I.......E.....
020260: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
020270: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
020280: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
020290: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0202A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0202B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0202C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0202D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0202E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0202F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
020300: D2 05 0F 3E 0A E1 77 C3 31 0B 23 23 CD E9 36 EB ...>..w.1.##..6.
020310: 4E CD DC 14 46 78 B9 CA 44 0F E5 C5 48 04 CD 39 N...Fx..D...H..9
020320: 2A DA 7E 44 70 23 EB 2B 2B 2B 71 23 E5 CD DF 36 *.~Dp#.+++q#...6
020330: E3 CD E4 36 E1 2B 4E 06 00 03 CD F8 36 C1 E1 78 ...6.+N.....6..x
020340: 12 C3 4C 0F EB 2B 2B CD DF 36 71 EB 23 13 CD 71 ..L..++..6q.#..q
020350: 38 C3 31 0B 23 23 CD DF 36 EB CD DC 14 7E 12 C3 8.1.##..6....~..
020360: 3E 0B EB CD E9 36 22 C1 1C EB CD B7 14 DA A1 0F >....6".........
020370: CA BC 0F 23 46 23 CD E9 36 4E EB 06 01 7E E6 7F ...#F#..6N...~..
020380: D6 40 DA 88 0F 80 3C 47 78 81 3C 47 CD F2 34 2A .@....<Gx.<G..4*
020390: BF 1C CD 4D 33 2A BF 1C 48 06 00 CD 13 2C C3 3E ...M3*..H....,.>
0203A0: 0B 46 23 4E 23 CD DF 36 78 06 00 B7 FA B5 0F CD .F#N#..6x.......
0203B0: 13 2C C3 3E 0B 23 CD 13 2C C3 3E 0B 23 23 CD DF .,.>.#..,.>.##..
0203C0: 36 7E B7 CA CF 0F 21 27 1C CD 2B 36 C3 3E 0B 21 6~....!'..+6.>.!
0203D0: 23 1C CD 2B 36 C3 3E 0B EB CD E9 36 22 C1 1C EB #..+6.>....6"...
0203E0: CD B7 14 DA 02 10 CA 26 10 23 46 23 CD E9 36 4E .......&.#F#..6N
0203F0: CD 29 14 EB CD 4D 33 D2 31 0B 3E 55 CD 70 3B C3 .)...M3.1.>U.p;.
020400: CE 0B 23 46 23 CD E9 36 CD DC 14 7E B8 D2 1F 10 ..#F#..6...~....
020410: 48 47 C5 D5 06 00 EB 3E 20 CD FA 36 EB D1 C1 23 HG.....> ..6...#
020420: CD 71 38 C3 31 0B 23 23 CD E9 36 CD DC 14 7E B7 .q8.1.##..6...~.
020430: CA 39 10 EB 36 54 C3 31 0B EB 36 46 C3 31 0B CD .9..6T.1..6F.1..
020440: 29 14 CD 39 35 4D CD 29 14 CD 39 35 45 CD 29 14 )..95M.)..95E.).
020450: 2A BF 1C 70 23 CD 4D 33 48 0C CD C3 14 C3 3E 0B *..p#.M3H.....>.
020460: CD 29 14 CD 39 35 4D CD 29 14 CD 39 35 45 05 7C .)..95M.)..95E.|
020470: B7 C2 A0 10 CD DC 14 78 BE D2 A0 10 79 B7 CA 87 .......x....y...
020480: 10 80 3D BE DA 8A 10 7E 90 4F 23 78 CD BB 36 EB ..=....~.O#x..6.
020490: 2A BF 1C 71 23 EB CD 78 38 0C CD C3 14 C3 3E 0B *..q#..x8.....>.
0204A0: 3E 7B CD 70 3B C3 CE 0B 2A BF 1C 0E 06 AF 77 23 >{.p;...*.....w#
0204B0: 0D C2 AE 10 0E 06 CD C3 14 C3 3E 0B CD DC 14 7E ..........>....~
0204C0: EE 80 77 EB CD D2 14 C3 3E 0B CD 1F 14 CD EE 31 ..w.....>......1
0204D0: DA D9 10 CD 38 14 C3 3E 0B 3E 7A CD 70 3B C3 CE ....8..>.>z.p;..
0204E0: 0B CD 1F 14 CD 9B 31 CD 38 14 C3 3E 0B CD 1F 14 ......1.8..>....
0204F0: CD 91 31 CD 38 14 C3 3E 0B CD 1F 14 CD B5 30 CD ..1.8..>......0.
020500: 3E 33 C3 63 1A EB D1 CD 42 1A CD 0D 15 DA 6A 1A >3.c....B.....j.
020510: CD 06 1C C2 6A 1A CD 58 1A CD 4A 16 DA 6A 1A 78 ....j..X..J..j.x
020520: B7 CA 6A 1A 7E FE 29 CA 62 19 CD 58 1A D5 E5 CD ..j.~.).b..X....
020530: FF 37 DA 42 19 CD 11 1C 7E FE 29 C2 42 19 7B C3 .7.B....~.).B.{.
020540: 44 19 3E 01 E1 D1 32 BC 1C CD 4A 16 DA 6A 1A 78 D.>...2...J..j.x
020550: B7 CA 6A 1A CD 4D 1A 3A BC 1C 4F 06 00 3E 34 C3 ..j..M.:..O..>4.
020560: 63 1A 23 CD 11 1C 3E 00 12 13 0E 01 06 00 3E 34 c.#...>.......>4
020570: C3 63 1A EB D1 CD 29 1A 3E 1F C3 63 1A EB D1 CD .c....).>..c....
020580: 36 1A 3E 20 01 01 00 C3 63 1A EB D1 CD 42 1A CD 6.> ....c....B..
020590: 4D 1A 3E 21 01 08 00 C3 63 1A EB D1 D5 CD 71 1A M.>!....c.....q.
0205A0: D1 DA BD 19 78 B7 CA AE 19 06 4E C3 CE 19 79 B7 ....x.....N...y.
0205B0: CA B8 19 06 43 C3 CE 19 06 4C C3 CE 19 CD 42 1A ....C....L....B.
0205C0: CD F1 2A CA 6A 1A CD 11 1C CD 4D 1A 06 55 EB 36 ..*.j.....M..U.6
0205D0: 2B 23 36 01 23 70 23 EB 01 01 00 C3 65 1A EB D1 +#6.#p#.....e...
0205E0: CD 29 1A 3E 22 C3 63 1A EB D1 3E 1B 01 00 00 C3 .).>".c...>.....
0205F0: 63 1A EB D1 3E 1C 01 00 00 C3 63 1A EB D1 CD 29 c...>.....c....)
020600: 1A 3E 23 01 00 00 C3 63 1A EB D1 CD 42 1A CD 4D .>#....c....B..M
020610: 1A 3E 27 01 00 00 C3 63 1A EB D1 CD 42 1A CD 4D .>'....c....B..M
020620: 1A 3E 28 01 00 00 C3 63 1A CD 71 1A DA 6D 1A CD .>(....c..q..m..
020630: 06 1C C8 C3 6D 1A CD 71 1A DA 6D 1A 78 B7 C0 C3 ....m..q..m.x...
020640: 6D 1A 7E FE 28 C2 6D 1A 23 CD 11 1C C9 7E FE 29 m.~.(.m.#....~.)
020650: C2 6D 1A 23 CD 11 1C C9 7E FE 2C C2 6D 1A 23 CD .m.#....~.,.m.#.
020660: 11 1C C9 12 13 E3 E1 B7 C9 D1 E1 37 C9 F1 E1 37 ...........7...7
020670: C9 E5 7E FE 28 C2 8F 1A 23 CD 11 1C CD 0D 15 DA ..~.(...#.......
020680: 8F 1A 7E FE 29 C2 8F 1A E3 E1 23 CD 11 1C C9 E1 ..~.).....#.....
020690: 37 C9 E5 CD AA 1B E1 78 B7 CA B7 1A C5 0E FF CD 7......x........
0206A0: 9F 32 E5 EB 36 2A 23 EB CD E5 34 21 06 00 19 EB .2..6*#...4!....
0206B0: E1 CD 11 1C C1 B7 C9 37 C9 E5 7E CD 9E 36 C2 E2 .......7..~..6..
0206C0: 1A 78 23 D5 13 13 CD 20 37 CA E1 1A 1B 12 4F 06 .x#.... 7.....O.
0206D0: 00 E3 36 2B 23 23 09 EB E1 23 CD 11 1C E3 E1 B7 ..6+##...#......
0206E0: C9 D1 E1 37 C9 E5 7E E6 5F FE 54 CA 00 1B FE 59 ...7..~._.T....Y
0206F0: CA 00 1B FE 46 CA 05 1B FE 4E CA 05 1B 37 E1 C9 ....F....N...7..
020700: 38 14 C3 3E 0B CD 45 14 CA AD 14 C3 B2 14 CD 45 8..>..E........E
020710: 14 CA B2 14 C3 AD 14 CD 45 14 CA B2 14 FA B2 14 ........E.......
020720: C3 AD 14 CD 45 14 FA AD 14 C3 B2 14 CD 45 14 F2 ....E........E..
020730: AD 14 C3 B2 14 CD 45 14 CA AD 14 FA AD 14 C3 B2 ......E.........
020740: 14 CD 30 14 E5 D5 4E 23 79 CD BB 36 EB E1 46 23 ..0...N#y..6..F#
020750: CD 71 38 78 81 E1 77 EB CD D2 14 EB CD BB 36 23 .q8x..w.......6#
020760: 22 BF 1C C3 3E 0B CD 30 14 4E 23 EB 46 23 78 91 "...>..0.N#.F#x.
020770: 3C DA 84 11 47 D5 E5 CD 3D 37 E1 D1 CA 88 11 23 <...G...=7.....#
020780: 05 C2 75 11 AF C3 8A 11 3E 01 2A BF 1C 77 0E 01 ..u.....>.*..w..
020790: CD C3 14 C3 3E 0B CD 5E 14 CA AD 14 C3 B2 14 CD ....>..^........
0207A0: 5E 14 CA B2 14 C3 AD 14 CD 5E 14 CA B2 14 DA B2 ^........^......
0207B0: 14 C3 AD 14 CD 5E 14 DA AD 14 C3 B2 14 CD 5E 14 .....^........^.
0207C0: D2 AD 14 C3 B2 14 CD 5E 14 DA AD 14 CA AD 14 C3 .......^........
0207D0: B2 14 CD 30 14 1A A6 2A BF 1C 77 0E 01 CD C3 14 ...0...*..w.....
0207E0: C3 3E 0B CD 30 14 1A B6 2A BF 1C 77 0E 01 CD C3 .>..0...*..w....
0207F0: 14 C3 3E 0B CD DC 14 7E B7 CA 00 12 AF C3 01 12 ..>....~........
020800: 2F 77 EB CD D2 14 C3 3E 0B CD 29 14 CD 0C 35 CD /w.....>..)...5.
020810: 38 14 C3 3E 0B CD 99 2C CD 18 34 CD 38 14 C3 3E 8..>...,..4.8..>
020820: 0B CD DC 14 4E 23 CD 9F 32 CD 38 14 C3 3E 0B CD ....N#..2.8..>..
020830: DC 14 6E 26 00 CD 18 34 CD 38 14 C3 3E 0B 2A BF ..n&...4.8..>.*.
020840: 1C E5 0E 01 CD C3 14 CD DC 1C E1 CA AD 14 C3 B2 ................
020850: 14 2A BF 1C E5 0E 01 CD C3 14 CD 99 2C E1 C2 AD .*..........,...
020860: 14 C3 B2 14 CD 30 14 4E 23 EB 46 23 78 91 3C DA .....0.N#.F#x.<.
020870: 73 12 47 C5 D5 E5 CD 3D 37 E1 D1 78 CA 89 12 23 s.G....=7..x...#
020880: 05 C2 74 12 C1 AF C3 8E 12 C1 90 2F 3C 3C 6F 26 ..t......../<<o&
020890: 00 CD 18 34 CD 38 14 C3 3E 0B CD 30 14 E5 D5 4E ...4.8..>..0...N
0208A0: 23 79 CD BB 36 06 00 2B 7E FE 20 C2 B7 12 79 B8 #y..6..+~. ...y.
0208B0: CA B7 12 04 C3 A7 12 23 EB E1 C5 46 23 CD 71 38 .......#...F#.q8
0208C0: EB 78 CD BB 36 EB 79 80 C1 E1 77 EB DA EA 14 78 .x..6.y...w....x
0208D0: B7 CA DB 12 36 20 23 3D C2 D4 12 22 BF 1C CD D2 ....6 #=..."....
0208E0: 14 C3 3E 0B CD DC 14 EB CD D2 14 EB 46 23 7E FE ..>.........F#~.
0208F0: 61 DA FC 12 FE 7B D2 FC 12 E6 5F 77 23 05 C2 EE a....{...._w#...
020900: 3E FF C3 06 1B AF EB 36 2C 23 77 23 EB E1 23 CD >......6,#w#..#.
020910: 11 1C B7 01 00 00 C9 E5 CD 8C 1B DA 40 1B E5 CD ............@...
020920: B7 14 DA 3F 1B CA 3F 1B 23 46 23 23 23 4E E1 3E ...?..?.#F###N.>
020930: 29 12 13 EB CD E4 36 EB 2A 2B 1C E3 E1 B7 C9 E1 ).....6.*+......
020940: E1 37 C9 E5 CD 8C 1B DA 65 1B E5 CD B7 14 D2 64 .7......e......d
020950: 1B 23 4E 06 00 E1 EB 36 29 23 CD E4 36 EB E1 2A .#N....6)#..6..*
020960: 2B 1C B7 C9 E1 E1 37 C9 E5 CD 8C 1B DA 89 1B E5 +.....7.........
020970: CD B7 14 C2 88 1B 01 00 00 E1 EB 36 29 23 CD E4 ...........6)#..
020980: 36 EB E1 2A 2B 1C B7 C9 E1 E1 37 C9 E5 CD F1 2A 6..*+.....7....*
020990: CA A7 1B CD 11 1C 22 2B 1C E1 E5 CD CC 1C C2 A7 ......"+........
0209A0: 1B E3 E1 CD 11 1C C9 E1 37 C9 06 00 0E 00 AF 32 ........7......2
0209B0: BD 1C 32 BE 1C 7E FE 2B CA C1 1B FE 2D C2 C3 1B ..2..~.+....-...
0209C0: 04 23 7E FE 30 DA CD 1B FE 3A DA E3 1B FE 2E C2 .#~.0....:......
0209D0: ED 1B 04 0E 00 32 BE 1C 3A BD 1C B7 C2 C1 1B 04 .....2..:.......
0209E0: C3 C1 1B 04 0C 3E 01 32 BD 1C C3 C1 1B 3A BE 1C .....>.2.....:..
0209F0: B7 C2 F5 1B 4F 3A BD 1C B7 C2 00 1C 06 00 48 C9 ....O:........H.
020A00: 79 B8 C0 0E 00 C9 78 B7 C0 B1 C2 0F 1C 3C C9 AF y.....x......<..
020A10: C9 F5 7E FE 20 CA 1F 1C FE 09 CA 1F 1C F1 C9 23 ..~. ..........#
020A20: C3 12 1C 2E 46 2E 00 2E 54 2E 00 00 00 00 00 00 ....F...T.......
020A30: 43 44 45 46 49 4C 50 52 53 54 56 23 40 24 21 2A CDEFILPRSTV#@$!*
020A40: 00 49 4E 54 00 F3 17 23 00 01 18 56 41 4C 00 1B .INT...#...VAL..
020A50: 18 4C 45 4E 00 0C 18 40 00 28 18 54 45 53 54 00 .LEN...@.(.TEST.
020A60: 53 18 50 45 45 4B 00 75 18 52 41 4E 4B 00 84 18 S.PEEK.u.RANK...
020A70: 53 54 52 00 93 18 24 00 05 19 21 00 73 19 43 48 STR...$...!.s.CH
020A80: 52 00 7D 19 44 41 54 45 00 8A 19 54 59 50 45 00 R.}.DATE...TYPE.
020A90: 9A 19 54 52 49 4D 00 DE 19 2A 00 E8 19 45 4F 46 ..TRIM...*...EOF
020AA0: 00 F2 19 46 49 4C 45 00 FC 19 4C 4F 43 4B 00 09 ...FILE...LOCK..
020AB0: 1A 4C 4F 43 4B 4E 44 58 00 19 1A FF 00 00 00 00 .LOCKNDX........
020AC0: 00 00 00 00 00 00 00 00 00 00 00 00 CD 92 28 C8 ..............(.
020AD0: CD 15 2A C9 21 01 64 C9 21 00 60 C9 2A 73 30 7E ..*.!.d.!.`.*s0~
020AE0: FE 2A C9 2A 71 30 C9 2A 56 30 22 06 30 CD 1B 2D .*.*q0.*V0".0..-
020AF0: 2A 56 30 23 22 56 30 AF 32 55 30 C9 C5 D5 C5 32 *V0#"V0.2U0....2
020B00: 12 C3 3E 0B CD 29 14 CD 39 35 7D 2A BF 1C 36 01 ..>..)..95}*..6.
020B10: 23 77 0E 02 CD C3 14 C3 3E 0B 2A BF 1C 36 08 23 #w......>.*..6.#
020B20: 3A 4E 44 CD 40 13 36 2F 23 3A 4F 44 CD 40 13 36 :ND.@.6/#:OD.@.6
020B30: 2F 23 3A 50 44 CD 40 13 0E 09 CD C3 14 C3 3E 0B /#:PD.@.......>.
020B40: 06 30 FE 0A DA 4D 13 04 D6 0A C3 42 13 70 23 F6 .0...M.....B.p#.
020B50: 30 77 23 C9 CD DC 14 54 5D 4E 79 CD BB 36 7E FE 0w#....T]Ny..6~.
020B60: 20 C2 6A 13 2B 0D C2 5E 13 0C 2A BF 1C 71 23 13 .j.+..^..*..q#.
020B70: EB CD 78 38 0C CD C3 14 C3 3E 0B CD DC 14 4E 23 ..x8.....>....N#
020B80: EB 2A BF 1C E5 EB CD 78 38 69 26 00 19 36 20 CD .*.....x8i&..6 .
020B90: 63 39 E5 EB CD 8E 39 0E 01 CD C3 14 CD 44 27 AF c9....9......D'.
020BA0: CD AD 27 AF CD F0 2B F5 DA AE 13 CD 45 25 CD 61 ..'...+.....E%.a
020BB0: 27 F1 E1 CD 8E 39 E1 D2 AD 14 C3 B2 14 EB CD F3 '....9..........
020BC0: 36 22 C1 1C 78 FE FF CA EB 13 B7 C2 D9 13 79 B7 6"..x.........y.
020BD0: CA E5 13 69 26 00 C3 EE 13 21 06 00 CD 18 34 CD ...i&....!....4.
020BE0: 96 32 C3 F1 13 21 01 00 C3 EE 13 21 00 00 CD 18 .2...!.....!....
020BF0: 34 CD 38 14 C3 3E 0B CD 29 14 CD 39 35 6E 26 00 4.8..>..)..95n&.
020C00: CD 18 34 CD 38 14 C3 3E 0B CD DC 14 23 6E 26 00 ..4.8..>....#n&.
020C10: CD 18 34 CD 38 14 C3 3E 0B C3 AD 14 C3 AD 14 CD ..4.8..>........
020C20: DC 14 CD FF 34 CD 29 14 C9 CD DC 14 CD F2 34 C9 ....4.).......4.
020C30: CD DC 14 EB CD DC 14 C9 2A BF 1C EB CD E5 34 0E ........*.....4.
020C40: 06 CD C3 14 C9 CD 1F 14 CD 91 31 2A BF 1C EB CD ..........1*....
020C50: D2 14 CD E5 34 EB 23 22 BF 1C 2B 7E B7 C9 CD 30 ....4.#"..+~...0
020C60: 14 3A 71 44 B7 C2 97 14 4E 23 EB 7E B9 CA 78 14 .:qD....N#.~..x.
020C70: DA 7D 14 06 01 C3 80 14 06 00 C3 80 14 06 00 4E .}.............N
020C80: 23 CD 3D 37 2A BF 1C EB CD D2 14 EB 23 22 BF 1C #.=7*.......#"..
020C90: 2B C0 78 B7 C8 37 C9 46 23 EB 4E 23 CD 6B 37 2A +.x..7.F#.N#.k7*
020CA0: BF 1C EB CD D2 14 EB 23 22 BF 1C 2B C9 36 FF C3 .......#"..+.6..
020CB0: 3E 0B 36 00 C3 3E 0B C5 01 0B 00 09 C1 7E E6 7F >.6..>.......~..
020CC0: FE 4C C9 2A BF 1C EB CD D2 14 69 26 00 19 22 BF .L.*......i&..".
020CD0: 1C C9 2A 2E 1C CD E4 36 22 2E 1C C9 D5 2A 2E 1C ..*....6"....*..
020CE0: 2B 56 2B 5E 22 2E 1C EB D1 C9 3E 15 CD 70 3B C3 +V+^".....>..p;.
020CF0: CE 0B CD 73 39 CD 0D 15 DA 0B 15 CD 8E 39 EB 36 ...s9........9.6
020D00: 60 30 CD D8 36 44 4D 2A 6D 30 3E 0A CD BB 36 EB `0..6DM*m0>...6.
020D10: CD 7E 38 EB 09 36 00 C1 78 B7 CA 1F 1D 0E 08 32 .~8..6..x......2
020D20: EB 2F 79 32 E8 2F C6 02 32 E9 2F 06 00 16 00 5F ./y2./..2./...._
020D30: 21 03 FE 19 04 7C B7 FA 33 1D 05 78 32 EA 2F CD !....|..3..x2./.
020D40: 45 1D D1 C1 C9 C5 D5 21 01 00 22 E4 2F 23 22 E6 E......!.."./#".
020D50: 2F CD A8 24 AF 32 FC 2F 21 01 00 CD 09 24 D1 C1 /..$.2./!....$..
020D60: C9 CD 98 24 C5 D5 11 62 30 1A B7 CA 8F 1D 1A B7 ...$...b0.......
020D70: CA 7A 1D CD 83 1D 13 C3 6E 1D 3A 61 30 CD 83 1D .z......n.:a0...
020D80: D1 C1 C9 CD DF 22 CD 43 21 CD 8D 1D C9 C5 D5 AF .....".C!.......
020D90: 32 F2 2F CD 99 2C 22 F6 7B CD E3 24 CD BB 23 AF 2./..,".{..$..#.
020DA0: 32 FD 2F 21 00 00 22 F4 7B 22 5A 7C 2A 6F 30 22 2./!..".{"Z|*o0"
020DB0: 69 30 2A E4 2F 22 F0 2F CD D7 23 3A FC 2F B7 C2 i0*./"./..#:./..
020DC0: F8 1D 2A EE 2F EB 21 F6 7B 3A E8 2F 4F CD 78 38 ..*./.!.{:./O.x8
020DD0: 2A EE 2F 3A E8 2F CD BB 36 36 00 23 36 00 2A 6B *./:./..66.#6.*k
020DE0: 30 23 36 00 23 36 00 3E 01 32 FC 2F 32 F6 2F CD 0#6.#6.>.2./2./.
020DF0: 35 24 CD 06 24 D1 C1 C9 3E 01 32 F6 2F 2A EE 2F 5$..$...>.2./*./
020E00: EB 3E FF 32 F5 2F 21 F8 7B 3A E8 2F D6 02 4F CD .>.2./!.{:./..O.
020E10: FA 24 DA 1B 1E CD D2 24 D2 01 1E EB 2B 2B CD E9 .$.....$....++..
020E20: 36 7A B3 CA 35 1E EB E5 CD 35 24 E1 22 F0 2F CD 6z..5....5$."./.
020E30: D7 23 C3 F8 1D E5 CD 35 24 2A 69 30 22 F3 2F CD .#.....5$*i0"./.
020E40: 4A 24 E1 22 EC 2F 3A F6 2F 4F 3A FC 2F 91 DA 6D J$."./:./O:./..m
020E50: 1E 3C CD EA 24 44 4D 3A FC 2F 3C CD 72 24 2B EB .<..$DM:./<.r$+.
020E60: 3A FC 2F C6 02 CD 72 24 2B EB CD 90 38 2A EC 2F :./...r$+...8*./
020E70: EB 21 F6 7B 3A E8 2F 4F CD 78 38 2A EC 2F 3A E8 .!.{:./O.x8*./:.
020E80: 2F CD BB 36 EB 2A 5A 7C EB CD E4 36 21 FC 2F 34 /..6.*Z|...6!./4
020E90: 3A EA 2F BE DA AA 1E CD 06 24 3A FD 2F B7 C4 A8 :./......$:./...
020EA0: 24 2A F3 2F 22 69 30 D1 C1 C9 7E 32 FE 2F B7 3C $*./"i0...~2./.<
020EB0: 1F 67 3A F2 2F B7 CA BA 1E 25 7C 32 FC 2F 2A F0 .g:./....%|2./*.
020EC0: 2F 22 F4 7B CD 09 24 3A FC 2F 67 3A F2 2F B7 CA /".{..$:./g:./..
020ED0: D3 1E 24 7C 32 F2 2F 32 FC 2F CD 72 24 11 F6 7B ..$|2./2./.r$..{
020EE0: 3A E8 2F CD 78 38 3A FC 2F 32 FB 2F 4F 3A FE 2F :./.x8:./2./O:./
020EF0: 91 32 FC 2F CD EA 24 44 4D 03 03 3A FB 2F 3C CD .2./..$DM..:./<.
020F00: 35 E5 23 71 23 70 23 36 35 D1 C9 37 C9 CD 3F 15 5.#q#p#65..7..?.
020F10: D8 78 B1 C0 D5 11 3A 15 CD 75 15 C2 34 15 CD 11 .x....:..u..4...
020F20: 1C D1 CD 3F 15 D8 78 B1 CA 2D 15 37 C9 3E 15 12 ...?..x..-.7.>..
020F30: 13 C3 14 15 01 00 00 D1 B7 C9 2E 4F 52 2E 80 CD ...........OR...
020F40: 7E 15 D8 78 B1 C0 D5 11 6F 15 CD 75 15 C2 69 15 ~..x....o..u..i.
020F50: CD 11 1C D1 CD 7E 15 D8 78 B1 CA 5F 15 37 C9 3E .....~..x.._.7.>
020F60: 14 12 13 01 00 00 C3 46 15 01 00 00 D1 B7 C9 2E .......F........
020F70: 41 4E 44 2E 80 CD B1 37 C8 13 CD B1 37 C9 D5 11 AND....7....7...
020F80: A0 15 CD B1 37 D1 C2 9A 15 CD 11 1C CD A6 15 D8 ....7...........
020F90: 78 B1 C2 9E 15 3E 16 12 13 C9 CD A6 15 C9 37 C9 x....>........7.
020FA0: 2E 4E 4F 54 2E 80 CD 4A 16 DA F8 15 78 B7 CA C8 .NOT...J....x...
020FB0: 15 CD FA 15 C8 F5 CD 4A 16 DA F7 15 78 B7 CA F7 .......J....x...
020FC0: 15 F1 12 13 01 00 00 C9 B1 C8 CD FA 15 C2 DE 15 ................
020FD0: 7E FE 24 3E 05 CA DA 15 B7 C9 23 CD 11 1C F5 CD ~.$>......#.....
020FE0: 4A 16 DA F7 15 78 B7 C2 F7 15 B1 CA F7 15 F1 C6 J....x..........
020FF0: 08 12 13 01 00 00 C9 F1 37 C9 7E FE 3D C2 05 16 ........7.~.=...
021000: 3E 06 C3 42 16 FE 23 C2 0F 16 3E 07 C3 42 16 FE >..B..#...>..B..
021010: 3C C2 2F 16 23 7E FE 3D CA 2A 16 FE 3E C2 25 16 <./.#~.=.*..>.%.
021020: 3E 07 C3 42 16 3E 09 C3 43 16 3E 0B C3 42 16 FE >..B.>..C.>..B..
021030: 3E C2 48 16 23 7E FE 3D CA 40 16 3E 08 C3 43 16 >.H.#~.=.@.>..C.
021040: 3E 0A 23 CD 11 1C B7 C9 AF C9 E5 CD 10 17 DA 9E >.#.............
021050: 16 78 B7 CA B6 16 7E FE 2B C2 78 16 23 CD 11 1C .x....~.+.x.#...
021060: C5 CD 10 17 DA 9D 16 78 B7 CA 9D 16 E3 CD A1 16 .......x........
021070: E1 3E 05 12 13 C3 56 16 FE 2D CA 81 16 B7 E3 E1 .>....V..-......
021080: C9 23 CD 11 1C C5 CD 10 17 DA 9D 16 78 B7 CA 9D .#..........x...
021090: 16 E3 CD A1 16 E1 3E 04 12 13 C3 56 16 C1 E1 37 ......>....V...7
0210A0: C9 78 91 47 7C 95 B8 DA AB 16 47 04 79 BD D2 B2 .x.G|.....G.y...
0210B0: 16 4D 78 81 47 C9 B1 C2 BD 16 E3 E1 C9 7E FE 2B .Mx.G........~.+
0210C0: C2 E3 16 23 CD 11 1C C5 CD 10 17 DA 0C 17 78 B7 ...#..........x.
0210D0: C2 0C 17 B1 CA 0C 17 E3 79 85 4F E1 3E 0C 12 13 ........y.O.>...
0210E0: C3 BD 16 FE 2D C2 08 17 23 CD 11 1C C5 CD 10 17 ....-...#.......
0210F0: DA 0C 17 78 B7 C2 0C 17 B1 CA 0C 17 E3 79 85 4F ...x.........y.O
021100: 72 24 2B 2B EB 2A EE 2F 2B 2B EB CD 7E 38 2A E6 r$++.*./++..~8*.
021110: 2F 22 5A 7C CD 09 24 3A FB 2F 4F 3A F6 2F 91 FA /"Z|..$:./O:./..
021120: 31 1F 32 F6 2F 2A E6 2F 22 F0 2F CD 35 24 CD 4A 1.2./*./"./.5$.J
021130: 24 2A E6 2F 23 22 E6 2F 3E FF 32 FD 2F 2A 6F 30 $*./#"./>.2./*o0
021140: EB 2A 69 30 CD C0 36 C2 AE 1F 2A 6B 30 23 EB 21 .*i0..6...*k0#.!
021150: F4 7B 3A E9 2F 4F CD 78 38 2A EE 2F 3A E8 2F CD .{:./O.x8*./:./.
021160: BB 36 EB 2A 5A 7C EB CD E4 36 3E 01 32 FC 2F 2A .6.*Z|...6>.2./*
021170: E6 2F CD 09 24 2A E6 2F 22 E4 2F 23 22 E6 2F CD ./..$*./"./#"./.
021180: A8 24 2A 6F 30 EB 2A F3 2F CD D8 36 44 4D 2A F3 .$*o0.*./..6DM*.
021190: 2F 2B 54 5D 13 13 13 CD 90 38 EB 23 22 69 30 2A /+T].....8.#"i0*
0211A0: E4 2F EB 2A 6F 30 CD E4 36 36 01 D1 C1 C9 CD 4A ./.*o0..66.....J
0211B0: 24 CD D4 23 CD 6F 24 C3 43 1E CD 98 24 C5 D5 E5 $..#.o$.C...$...
0211C0: CD 01 23 D1 7C B5 CA D8 1F CD C0 36 CA D8 1F CD ..#.|......6....
0211D0: E9 21 D2 C4 1F 21 00 00 D1 C1 C9 C3 F9 1F CD 98 .!...!..........
0211E0: 24 22 F7 2F C5 D5 CD 43 21 CD E3 24 21 F8 7B 3A $"./...C!..$!.{:
0211F0: DE 2F 37 CD B2 20 22 F9 2F 2A F9 2F EB 2A F7 2F ./7.. "./*./.*./
021200: CD C0 36 CA 23 20 CD E9 21 DA 20 20 22 F9 2F CD ..6.# ..!. "./.
021210: 6F 24 11 F8 7B EB 3A DE 2F 4F CD FA 24 CA F9 1F o$..{.:./O..$...
021220: 21 00 00 D1 C1 C9 CD 98 24 C5 D5 CD BB 23 CD 4A !.......$....#.J
021230: 24 DA AE 20 CD D4 23 3A F6 2F 4F 3A FC 2F 91 CA $.. ..#:./O:./..
021240: 6A 20 4F CD EA 24 44 4D 03 03 CD 6F 24 2B 2B E5 j O..$DM...o$++.
021250: 3A F6 2F 3C CD 72 24 2B 2B D1 CD 7E 38 21 FC 2F :./<.r$++..~8!./
021260: 35 CD 35 24 CD 06 24 D1 C1 C9 21 F6 2F 35 21 FC 5.5$..$...!./5!.
021270: 2F 35 CD 06 24 3A FC 2F B7 CA 2E 20 CD 6F 24 11 /5..$:./... .o$.
021280: F6 7B 3A E8 2F 4F CD 78 38 CD 4A 24 DA AE 20 CD .{:./O.x8.J$.. .
021290: D4 23 CD 6F 24 EB 21 F6 7B 3A E8 2F 4F CD 78 38 .#.o$.!.{:./O.x8
0212A0: CD 06 24 3A F6 2F 4F 3A FC 2F B9 CA 7C 20 D1 C1 ..$:./O:./..| ..
0212B0: C9 B7 C5 D5 4F 17 32 F5 2F 22 EC 2F CD BB 23 2A ....O.2./"./..#*
0212C0: 6F 30 22 69 30 2A E4 2F 22 F0 2F CD D7 23 3A FC o0"i0*./"./..#:.
0212D0: 2F B7 CA 37 21 3E 01 32 F6 2F 2A 6B 30 11 03 00 /..7!>.2./*k0...
0212E0: 19 EB 2A EC 2F CD FA 24 CA 0E 21 DA F4 20 CD D2 ..*./..$..!.. ..
0212F0: 24 D2 E2 20 EB 2B 2B CD E9 36 7A B3 CA 37 21 EB $.. .++..6z..7!.
021300: E1 3E 1E 12 13 C3 BD 16 E3 E1 B7 C9 C1 E1 37 C9 .>............7.
021310: E5 CD 8A 17 DA 87 17 78 B7 C2 1F 17 E3 E1 C9 7E .......x.......~
021320: FE 2A C2 4B 17 23 CD 11 1C C5 CD 8A 17 DA 86 17 .*.K.#..........
021330: 78 B7 CA 86 17 E3 79 85 F5 78 91 84 95 47 F1 4F x.....y..x...G.O
021340: 78 81 47 E1 3E 03 12 13 C3 1F 17 FE 2F CA 54 17 x.G.>......./.T.
021350: B7 E3 E1 C9 23 CD 11 1C C5 CD 8A 17 DA 86 17 78 ....#..........x
021360: B7 CA 86 17 E3 78 91 3D 85 F5 7C 95 81 47 F1 B8 .....x.=..|..G..
021370: DA 74 17 47 79 BD D2 7A 17 4D 78 81 3C 47 E1 3E .t.Gy..z.Mx.<G.>
021380: 02 12 13 C3 1F 17 C1 E1 37 C9 CD 92 1A D0 E5 7E ........7......~
021390: FE 2B CA AC 17 FE 2D C2 B0 17 23 CD 11 1C CD B9 .+....-...#.....
0213A0: 17 DA B7 17 04 3E 01 12 13 E3 E1 C9 23 CD 11 1C .....>......#...
0213B0: CD B9 17 DA B7 17 E3 E1 C9 CD D5 17 D0 CD B9 1A ................
0213C0: D0 CD 43 1B D0 CD 17 1B D0 CD 68 1B D0 CD E5 1A ..C.......h.....
0213D0: D0 CD 71 1A C9 E5 7E 21 30 1C CD 4B 39 E1 CA E3 ..q...~!0..K9...
0213E0: 17 37 C9 E5 D5 11 41 1C CD 32 2E C2 69 1A CD 11 .7....A..2..i...
0213F0: 1C EB E9 EB D1 CD 36 1A 91 47 0E 00 3E 17 C3 63 ......6..G..>..c
021400: 1A EB 06 05 0E 00 D1 3E 18 C3 63 1A EB D1 CD 29 .......>..c....)
021410: 1A 91 06 03 0E 00 3E 1A C3 63 1A EB D1 CD 29 1A ......>..c....).
021420: 41 0E 00 3E 19 C3 63 1A EB D1 CD 42 1A CD 0D 15 A..>..c....B....
021430: DA 6A 1A CD 06 1C C2 6A 1A CD 58 1A CD 0D 15 DA .j.....j..X.....
021440: 6A 1A CD 06 1C C2 6A 1A CD 4D 1A 3E 1D 01 00 03 j.....j..M.>....
021450: C3 63 1A EB 7E FE 28 C2 69 1A D1 D5 CD 71 1A D2 .c..~.(.i....q..
021460: 66 18 36 00 06 FF D1 EB 36 24 23 CD EE 36 EB 01 f.6.....6$#..6..
021470: 00 03 C3 65 1A EB D1 CD 36 1A 91 06 03 0E 00 3E ...e....6......>
021480: 25 C3 63 1A EB D1 CD 29 1A 91 06 03 0E 00 3E 26 %.c....)......>&
021490: C3 63 1A EB D1 CD 42 1A CD 4A 16 DA 6A 1A 78 B7 .c....B..J..j.x.
0214A0: CA 6A 1A CD 58 1A D5 E5 CD FF 37 DA C0 18 CD 11 .j..X.....7.....
0214B0: 1C 7E FE 29 CA BC 18 FE 2C C2 C0 18 7B C3 C2 18 .~.)....,...{...
0214C0: 3E 01 E1 D1 32 BC 1C CD 4A 16 DA 6A 1A 78 B7 CA >...2...J..j.x..
0214D0: 6A 1A CD 11 1C 7E FE 29 CA F2 18 CD 58 1A CD 4A j....~.)....X..J
0214E0: 16 DA 6A 1A 78 B7 CA 6A 1A 7E FE 29 C2 6A 1A C3 ..j.x..j.~.).j..
0214F0: F6 18 3E 00 12 13 23 CD 11 1C 3A BC 1C 4F 06 00 ..>...#...:..O..
021500: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
021510: 1C 00 01 00 02 09 4E E5 1C 00 41 02 00 00 00 02 ......N...A.....
021520: 1C 00 46 02 00 00 00 02 1C 00 42 02 00 00 00 02 ..F.......B.....
021530: 1C 00 47 02 00 00 00 02 1C 00 43 02 00 00 00 02 ..G.......C.....
021540: 1C 00 48 02 00 00 00 02 1C 00 44 02 00 00 00 02 ..H.......D.....
021550: 1C 00 49 02 00 00 00 02 1C 00 45 02 00 00 00 02 ..I.......E.....
021560: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
021570: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
021580: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
021590: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0215A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0215B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0215C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0215D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0215E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0215F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
021600: E5 CD 35 24 E1 22 F0 2F CD D7 23 C3 D5 20 D5 EB ..5$."./..#.. ..
021610: 2B 2B CD E9 36 7A B3 CA 28 21 E1 CD 35 24 EB 22 ++..6z..(!..5$."
021620: F0 2F CD D7 23 C3 D5 20 D1 CD 35 24 EB CD DF 36 ./..#.. ..5$...6
021630: AF 32 55 30 D1 C1 C9 2A 6F 30 22 69 30 21 00 00 .2U0...*o0"i0!..
021640: D1 C1 C9 CD 98 24 C5 D5 2A 6D 30 11 0A 00 19 CD .....$..*m0.....
021650: 8E 39 11 7E 97 CD F2 14 DA 80 21 EB 23 CD E9 36 .9.~......!.#..6
021660: 7A B7 3E 43 2B 2B 2B 36 31 CA 72 21 3E 4E 36 2F z.>C+++61.r!>N6/
021670: 1E 08 32 DD 2F 7B 32 DE 2F 23 11 D2 2F CD E4 36 ..2./{2./#../..6
021680: D1 C1 C9 CD 98 24 C5 D5 0E 00 11 62 30 1A B7 C2 .....$.....b0...
021690: 98 21 CD B0 21 D1 C1 C9 1A B7 CA A4 21 CD AD 21 .!..!.......!..!
0216A0: 13 C3 98 21 3A 61 30 CD AD 21 D1 C1 C9 CD DF 22 ...!:a0..!....."
0216B0: CD 99 2C CD DE 1F 7C B5 C0 CD 99 2C CD BA 1F CD ..,...|....,....
0216C0: 26 20 CD 8D 1D 3E FF 4F C9 C5 D5 EB CD E9 21 DA & ...>.O......!.
0216D0: E3 21 CD 6F 24 EB CD FA 24 C2 E3 21 EB CD DF 36 .!.o$...$..!...6
0216E0: D1 C1 C9 21 00 00 D1 C1 C9 C5 D5 CD BB 23 CD 4A ...!.........#.J
0216F0: 24 DA 4D 22 CD D4 23 CD D2 24 D2 41 22 CD 4A 24 $.M"..#..$.A".J$
021700: DA 4D 22 CD D4 23 3A F6 2F 4F 3A FC 2F B9 DA FD .M"..#:./O:./...
021710: 21 3A F6 2F 3C 32 F6 2F CD 72 24 2B 2B CD E9 36 !:./<2./.r$++..6
021720: CD 35 24 EB 22 F0 2F 3E 01 32 F6 2F CD 35 24 CD .5$."./>.2./.5$.
021730: D4 23 2A 6B 30 23 CD E9 36 7A B3 C2 23 22 C3 44 .#*k0#..6z..#".D
021740: 22 CD 35 24 CD 6F 24 CD DF 36 C3 56 22 3E FF 32 ".5$.o$..6.V">.2
021750: 55 30 37 D1 C1 C9 B7 D1 C1 C9 C5 D5 CD BB 23 CD U07...........#.
021760: 4A 24 DA D2 22 CD D4 23 3A F6 2F 3D 32 F6 2F C2 J$.."..#:./=2./.
021770: C6 22 CD 4A 24 DA D2 22 CD D4 23 3A F6 2F FE 01 .".J$.."..#:./..
021780: CA 72 22 3D 32 F6 2F 2A 6B 30 23 CA 91 22 CD 75 .r"=2./*k0#..".u
021790: 24 CD E9 36 CD 35 24 EB 22 F0 2F CD D7 23 3A FC $..6.5$."./..#:.
0217A0: 2F 3C 32 F6 2F CD 35 24 3A FC 2F 3C CD 72 24 2B /<2./.5$:./<.r$+
0217B0: 2B CD E9 36 7A B3 C2 97 22 CD 4A 24 21 F6 2F 35 +..6z...".J$!./5
0217C0: CD 35 24 C3 C9 22 CD 35 24 CD 6F 24 CD DF 36 C3 .5$..".5$.o$..6.
0217D0: DB 22 3E FF 32 55 30 37 D1 C1 C9 B7 D1 C1 C9 C5 .">.2U07........
0217E0: D5 32 60 30 16 00 CD 0D 3C 05 C3 17 2E 3A 60 30 .2`0....<....:`0
0217F0: 2A 6D 30 EB 01 6E 00 CD 0D 3C 03 C3 17 2E D1 C1 *m0..n...<......
021800: 2E C2 2C 2B 0C 23 F1 E6 5F FE 50 C2 13 2B 06 01 ..,+.#.._.P..+..
021810: C3 2D 2B FE 53 C2 1D 2B 06 02 C3 2D 2B FE 4D C2 .-+.S..+...-+.M.
021820: 27 2B 06 FF C3 2D 2B 0D 2B C3 2D 2B F1 7E CD 84 '+...-+.+.-+.~..
021830: 36 D2 3F 2B CD AB 36 D2 3F 2B FE 3A C2 44 2B 23 6.?+..6.?+.:.D+#
021840: 0C C3 2D 2B 79 B7 C9 CD 0F 36 2A 14 30 2B 22 14 ..-+y....6*.0+".
021850: 30 7D B4 C8 CD 9F 24 C2 6E 2B CD 37 2C D8 3A 5B 0}....$.n+.7,.:[
021860: 44 B7 CA 8C 2B CD DC 1C CA 5A 2B C3 8C 2B CD E9 D...+....Z+..+..
021870: 21 DA 87 2B CD 9D 27 3A 5B 44 B7 CA 8C 2B CD DC !..+..':[D...+..
021880: 1C CA 6E 2B C3 8C 2B CD 41 23 37 C9 3A 78 44 B7 ..n+..+.A#7.:xD.
021890: CA BF 2B CD 83 2E CD 9F 24 C2 A8 2B CD 37 2C DA ..+.....$..+.7,.
0218A0: BA 2B CD 83 2E AF 3C C9 CD E9 21 DA B7 2B CD 9D .+....<...!..+..
0218B0: 27 CD 83 2E AF 3C C9 CD 41 23 CD 83 2E 37 C9 AF '....<..A#...7..
0218C0: 3C C9 C5 D5 11 91 7A CD F2 14 DA EC 2B EB 23 23 <.....z.....+.##
0218D0: 7E B7 CA EC 2B 2B 2B 36 00 23 36 05 23 36 35 21 ~...+++6.#6.#65!
0218E0: 91 7A CD 20 0B CD 39 35 D1 C1 B7 C9 D1 C1 37 C9 .z. ..95......7.
0218F0: C5 D5 11 17 30 CD 0D 3C 01 C3 03 2C 32 16 30 B7 ....0..<...,2.0.
021900: D1 C1 C9 FE 08 C4 17 2E 37 D1 C1 C9 22 06 30 CD ........7...".0.
021910: 1B 2D C9 78 B1 C8 C5 7E B7 C2 1E 2C 3E 20 CD E8 .-.x...~...,> ..
021920: 35 23 0B 79 B0 C2 17 2C C1 C9 2A 5A 30 C9 22 5A 5#.y...,..*Z0."Z
021930: 30 3E FF 32 5C 30 C9 C5 D5 2A 73 30 EB 2A 58 30 0>.2\0...*s0.*X0
021940: 44 4D 3A 16 30 CD 0D 3C 08 C3 5B 2C 2A 56 30 23 DM:.0..<..[,*V0#
021950: 22 56 30 AF 32 55 30 3C D1 C1 C9 FE 0C CA 6F 2C "V0.2U0<......o,
021960: FE 0B C4 17 2E 3E FF 32 55 30 B7 37 D1 C1 C9 CD .....>.2U0.7....
021970: 70 3B CD D8 2C B7 37 D1 C1 C9 C5 D5 3A 16 30 CD p;..,.7.....:.0.
021980: 0D 3C 03 C3 90 2C D1 C1 1A FE 1A CA 97 2C B7 C9 .<...,.......,..
021990: FE 0B C4 17 2E D1 C1 37 C9 2A 56 30 3A 55 30 B7 .......7.*V0:U0.
0219A0: C9 C5 D5 21 17 30 11 C7 9B 01 0F 00 CD 7E 38 D1 ...!.0.......~8.
0219B0: C1 C9 C5 D5 01 C7 9B 11 17 30 CD 0D 3C 0D C3 C4 .........0..<...
0219C0: 2C D1 C1 C9 CD 17 2E D1 C1 C9 C5 D5 21 01 00 22 ,...........!.."
0219D0: 06 30 CD 1B 2D D1 C1 C9 CD 9F 24 CA FD 2C AF 32 .0..-.....$..,.2
0219E0: 55 30 CD 01 23 CD 9D 27 3A 5B 44 B7 C8 CD DC 1C U0..#..':[D.....
0219F0: C2 19 2D CD E9 21 D8 CD 9D 27 C3 ED 2C AF 32 55 ..-..!...'..,.2U
021A00: C9 3E 01 32 F6 2F 2A 6F 30 22 69 30 CD BB 23 2A .>.2./*o0"i0..#*
021A10: E4 2F 22 F0 2F CD D7 23 CD 35 24 3A FC 2F B7 CA ./"./..#.5$:./..
021A20: 38 23 2A 6B 30 23 CD DF 36 7C B5 C2 12 23 2A 6B 8#*k0#..6|...#*k
021A30: 30 23 23 23 CD DF 36 C9 3E FF 32 55 30 21 00 00 0###..6.>.2U0!..
021A40: C9 2A 6F 30 22 69 30 CD BB 23 2A E4 2F 22 F0 2F .*o0"i0..#*./"./
021A50: CD D7 23 3A FC 2F 3C 32 F6 2F CD 35 24 3A FC 2F ..#:./<2./.5$:./
021A60: B7 CA 88 23 3C CD 72 24 2B 2B CD DF 36 7C B5 C2 ...#<.r$++..6|..
021A70: 4D 23 3A FC 2F CD 72 24 CD DF 36 EB CD 4A 24 21 M#:./.r$..6..J$!
021A80: F6 2F 35 CD 35 24 EB C9 21 00 00 C9 11 61 30 1A ./5.5$..!....a0.
021A90: B7 CA A1 23 CD 0D 3C 07 C3 17 2E AF 12 13 C3 8F ...#..<.........
021AA0: 23 AF 32 60 30 C9 C5 4F 21 61 30 7E B7 CA B4 23 #.2`0..O!a0~...#
021AB0: 23 C3 AB 23 71 C1 C9 3A 61 30 C9 C5 D5 2A 6D 30 #..#q..:a0...*m0
021AC0: 11 E2 2F 0E 0A CD 78 38 2A 6B 30 23 23 23 22 EE ../...x8*k0###".
021AD0: 2F D1 C1 C9 2A F0 2F C5 D5 22 01 30 3A 60 30 06 /...*./..".0:`0.
021AE0: 01 11 FF 2F CD 0D 3C 0B C3 17 2E 3A 60 30 01 00 .../..<....:`0..
021AF0: 02 2A 6B 30 EB CD 0D 3C 03 C3 17 2E 2A 6B 30 7E .*k0...<....*k0~
021B00: 32 FC 2F D1 C1 C9 2A F0 2F C5 D5 22 01 30 3A 60 2./...*./..".0:`
021B10: 30 06 01 11 FF 2F CD 0D 3C 0B C3 17 2E 01 00 02 0..../..<.......
021B20: 2A 6B 30 3A FC 2F 77 EB 3A 60 30 CD 0D 3C 04 C3 *k0:./w.:`0..<..
021B30: 17 2E D1 C1 C9 D5 2A F0 2F EB 2A 69 30 CD E4 36 ......*./.*i0..6
021B40: 3A F6 2F 77 23 22 69 30 D1 C9 D5 2A 6F 30 EB 2A :./w#"i0...*o0.*
021B50: 69 30 CD C0 36 C2 5B 24 D1 37 C9 2B 7E 32 F6 2F i0..6.[$.7.+~2./
021B60: 2B 56 2B 5E EB 22 F0 2F EB 22 69 30 D1 B7 C9 3A +V+^."./."i0...:
021B70: F6 2F 2A EE 2F B7 C8 C5 D5 3D 4F 3A E9 2F 57 06 ./*./....=O:./W.
021B80: 00 1E 09 79 1F 4F 1D CA 94 24 78 D2 8F 24 82 1F ...y.O...$x..$..
021B90: 47 C3 83 24 09 D1 C1 C9 CD 9F 24 C0 33 33 C9 3A G..$......$.33.:
021BA0: 60 30 B7 C9 21 61 30 C9 3A 60 30 16 00 CD 0D 3C `0..!a0.:`0....<
021BB0: 05 C3 17 2E 2A 6D 30 EB 21 E2 2F 0E 0A CD 78 38 ....*m0.!./...x8
021BC0: 01 00 02 2A 6D 30 EB 3A 60 30 CD 0D 3C 04 C3 17 ...*m0.:`0..<...
021BD0: 2E C9 3A E9 2F EB CD BB 36 EB 21 F6 2F 34 3A FC ..:./...6.!./4:.
021BE0: 2F BE C9 21 7E 97 CD 20 0B C9 4F 3A E9 2F 5F 16 /..!~.. ..O:./_.
021BF0: 00 21 00 00 19 0D C2 F4 24 C9 D5 EB 23 23 3A EB .!......$...##:.
021C00: 30 21 01 00 CD 9D 27 3A 5B 44 B7 C8 CD DC 1C C2 0!....':[D......
021C10: 19 2D CD 37 2C D8 C3 0C 2D B7 C9 C5 D5 01 08 00 .-.7,...-.......
021C20: 21 0A 30 CD F8 36 2A 06 30 7C B5 CA 7B 2D 2B EB !.0..6*.0|..{-+.
021C30: 2A 5A 30 EB CD C0 36 DA 7E 2D 22 0E 30 22 56 30 *Z0...6.~-".0"V0
021C40: 2A 58 30 22 12 30 21 09 02 22 0A 30 21 13 30 CD *X0".0!..".0!.0.
021C50: 9C 2D D2 5E 2D 11 0E 30 21 0A 30 CD 83 2D 21 0E .-.^-..0!.0..-!.
021C60: 30 CD 90 2D 2A 12 30 7C B5 C2 4C 2D 06 00 11 0A 0..-*.0|..L-....
021C70: 30 3A 16 30 CD 0D 3C 0B C3 17 2E D1 C1 C9 3E 0C 0:.0..<.......>.
021C80: C3 17 2E 0E 04 B7 1A 8E 77 13 23 0D C2 86 2D C9 ........w.#...-.
021C90: 0E 04 B7 7E 17 77 23 0D C2 93 2D C9 0E 02 B7 7E ...~.w#...-....~
021CA0: 1F 77 2B 0D C2 9F 2D C9 3A 16 30 16 00 CD 0D 3C .w+...-.:.0....<
021CB0: 05 C3 17 2E C9 C5 D5 CD A8 2D 3A 16 30 01 09 02 .........-:.0...
021CC0: 2A 71 30 11 F8 FF 19 EB CD 0D 3C 03 C3 17 2E 2A *q0.......<....*
021CD0: 73 30 44 4D 2A 71 30 11 F8 FF 19 7E FE 02 C2 FC s0DM*q0....~....
021CE0: 2D 23 CD DF 36 22 5A 30 2A 71 30 CD 75 25 2A 71 -#..6"Z0*q0.u%*q
021CF0: 30 2B 2B CD DF 36 22 58 30 D1 C1 C9 CD 45 25 CD 0++..6"X0....E%.
021D00: 44 27 3E 17 CD 17 2E C5 2A 58 30 44 4D 2A 73 30 D'>.....*X0DM*s0
021D10: 3E 20 CD FA 36 C1 C9 CD 70 3B C3 7E 44 C5 D5 11 > ..6...p;.~D...
021D20: 91 7A CD F2 14 DA 2F 2E 21 91 7A CD 20 0B B7 D1 .z..../.!.z. ...
021D30: C1 C9 C5 E5 CD B1 37 CA 4D 2E AF EB BE 23 C2 3C ......7.M....#.<
021D40: 2E 23 23 7E EB 3C C2 34 2E 3D C1 C1 C9 7E FE 30 .##~.<.4.=...~.0
021D50: DA 62 2E FE 3A DA 5D 2E FE 41 DA 62 2E E1 E5 C3 .b..:.]..A.b....
021D60: 3A 2E F1 13 1A B7 C2 63 2E 13 EB CD DF 36 EB C1 :......c.....6..
021D70: C9 B7 CA 77 2E D6 40 CD 0D 3C 0C C3 17 2E C9 3A ...w..@..<.....:
021D80: 50 30 C9 3A 50 30 2F 3C 3C 21 50 30 BE C8 77 C5 P0.:P0/<<!P0..w.
021D90: D5 F5 2F 3C 3C 21 51 30 87 CD BB 36 CD DF 36 11 ../<<!Q0...6..6.
021DA0: 55 30 EB 0E 20 CD 78 38 F1 87 21 51 30 CD BB 36 U0.. .x8..!Q0..6
021DB0: CD DF 36 11 55 30 0E 20 CD 78 38 3A 5D 30 32 16 ..6.U0. .x8:]02.
021DC0: 30 D1 C1 C9 C5 D5 3A 16 30 CD 0D 3C 04 C3 17 2E 0.....:.0..<....
021DD0: D1 C1 C9 C5 D5 2A 58 30 44 4D 2A 73 30 EB 3A 16 .....*X0DM*s0.:.
021DE0: 30 CD 0D 3C 04 C3 17 2E D1 C1 3E FF 32 5C 30 3A 0..<......>.2\0:
021DF0: 55 30 B7 C8 2A 56 30 23 22 56 30 22 5A 30 C9 C5 U0..*V0#"V0"Z0..
021E00: 2F B7 CA 2B 25 CD FF 34 EB 3A F5 2F 1F DA 18 25 /..+%..4.:./...%
021E10: 0E FF CD 9F 32 C3 1B 25 CD F2 34 CD 91 31 11 56 ....2..%..4..1.V
021E20: 83 CD E5 34 1A B7 D1 C8 F0 37 C9 3A 71 44 B7 C2 ...4.....7.:qD..
021E30: 37 25 CD 3D 37 D1 C9 C5 41 3A E8 2F D6 02 4F CD 7%.=7...A:./..O.
021E40: 6B 37 C1 D1 C9 3A 16 30 B7 C8 C5 4F 3A 5D 30 B9 k7...:.0...O:]0.
021E50: C2 65 25 3A 5C 30 B7 CA 61 25 CD FF 2E AF 32 5C .e%:\0..a%....2\
021E60: 30 AF 32 5D 30 3A 16 30 CD 0D 3C 07 C3 17 2E AF 0.2]0:.0..<.....
021E70: 32 16 30 C1 C9 D5 E5 EB 21 01 00 09 22 08 30 EB 2.0.....!...".0.
021E80: 7E FE 0D CA A0 25 11 0C 00 19 7E 23 EB 2A 08 30 ~....%....~#.*.0
021E90: EB CD E4 36 EB CD BB 36 22 08 30 EB 23 C3 80 25 ...6...6".0.#..%
021EA0: D1 1B 1B 2A 08 30 7D 91 6F 7C 98 67 EB CD E4 36 ...*.0}.o|.g...6
021EB0: D1 C9 C5 CD 0D 3C 08 C3 BC 25 C1 C9 FE 0B C4 17 .....<...%......
021EC0: 2E 37 C1 C9 CD 6C 27 CD 65 28 21 17 30 CD 2B 36 .7...l'.e(!.0.+6
021ED0: C9 C5 D5 CD 0D 3C 09 C3 17 2E D1 C1 C9 C5 01 06 .....<..........
021EE0: 00 21 CC 2F CD F8 36 C1 C9 D5 CD 73 39 CA 09 26 .!./..6....s9..&
021EF0: 11 A7 2F CD 32 2E C2 08 26 CD 8E 39 D5 21 02 26 ../.2...&..9.!.&
021F00: E3 E9 D2 EA 25 C3 09 26 B7 D1 C9 CD 4F 26 3E 01 ....%..&....O&>.
021F10: 32 CC 2F B7 C9 CD 4F 26 3E 01 32 CE 2F C3 28 26 2./...O&>.2./.(&
021F20: CD 4F 26 3E 01 32 CF 2F CD 73 39 CD FF 37 7A B3 .O&>.2./.s9..7z.
021F30: 37 C8 CD 8E 39 EB 22 06 30 B7 C9 3E 01 32 D1 2F 7...9.".0..>.2./
021F40: C3 48 26 3E 01 32 CD 2F 11 91 7A CD F2 14 C9 3A .H&>.2./..z....:
021F50: D0 2F B7 C2 D1 26 3D 32 D0 2F C9 22 14 30 3A CC ./...&=2./.".0:.
021F60: 2F B7 CA 68 26 C3 B8 26 3A CE 2F B7 CA 75 26 2A /..h&..&:./..u&*
021F70: 06 30 C3 BE 26 3A CF 2F B7 CA A3 26 2A 06 30 7C .0..&:./..£&*.0|
021F80: B5 CA C2 26 EB 2A 5A 30 EB CD C0 36 DA CC 26 54 ...&.*Z0...6..&T
021F90: 5D CD 9D 27 EB CD DE 1F 7C B5 CA C7 26 21 01 00 ]..'....|...&!..
021FA0: C3 BE 26 3A CD 2F B7 C2 B8 26 3A D1 2F B7 C2 BB ..&:./...&:./...
021FB0: 26 2A 14 30 7C A5 3C C0 CD D8 2C 21 FF FF 22 14 &*.0|.<...,!..".
021FC0: 30 C9 3E 33 C3 17 2E 3E 7E C3 17 2E 3E 0C C3 17 0.>3...>~...>...
021FD0: 2E C3 7E 44 3A 16 30 B7 C8 CD 0D 3C 06 C3 17 2E ..~D:.0....<....
021FE0: C9 3A 55 30 32 05 30 C9 3A 05 30 32 55 30 C9 3A .:U02.0.:.02U0.:
021FF0: 16 30 C5 D5 16 FF CD 0D 3C 05 C3 17 2E D1 C1 C9 .0......<.......
022000: D5 CD A8 2D 01 09 02 2A 71 30 11 F8 FF 19 E5 36 ...-...*q0.....6
022010: 02 23 EB 2A 5A 30 EB CD E4 36 3A 4E 44 77 23 3A .#.*Z0...6:NDw#:
022020: 4F 44 77 23 3A 50 44 77 D1 3A 16 30 CD 0D 3C 04 ODw#:PDw.:.0..<.
022030: C3 17 2E D1 C1 C9 2A 4A 30 36 FF 23 22 4A 30 C9 ......*J06.#"J0.
022040: D5 11 4C 30 CD 0D 3C 0A C3 17 2E D1 C9 21 90 7B ..L0..<......!.{
022050: 22 4A 30 C9 2A 4A 30 3A 4C 30 77 23 3A 4D 30 77 "J0.*J0:L0w#:M0w
022060: 23 3A 4E 30 77 23 3A 4F 30 77 23 22 4A 30 C9 2A #:N0w#:O0w#"J0.*
022070: 4A 30 2B 7E FE FF C2 72 2F 22 4A 30 C9 47 D5 2A J0+~...r/"J0.G.*
022080: 4A 30 11 90 7B CD C0 36 CA A5 2F 2B FE FF 7E 3C J0..{..6../+..~<
022090: CA A5 2F 11 FD FF 19 22 4A 30 EB 78 06 01 CD 0D ../...."J0.x....
0220A0: 3C 0B C3 17 2E D1 C9 41 4C 4C 00 0B 26 4E 45 58 <......ALL..&NEX
0220B0: 54 00 15 26 52 45 43 4F 52 44 00 20 26 46 4F 52 T..&RECORD. &FOR
0220C0: 00 43 26 57 48 49 4C 45 00 3B 26 FF 00 00 00 00 .C&WHILE.;&.....
0220D0: 00 00 4B 45 59 20 20 20 20 20 20 20 00 43 00 F8 ..KEY .C..
0220E0: 7B 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 {...............
0220F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
022100: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
022110: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
022120: 00 00 00 00 00 00 2E 44 42 46 2E 43 4D 44 2E 46 .......DBF.CMD.F
022130: 52 4D 2E 4D 45 4D 2E 54 58 54 2E 4E 44 58 2E 46 RM.MEM.TXT.NDX.F
022140: 4D 54 2E 24 24 24 2E 48 45 58 90 7B 00 00 00 00 MT.$$$.HEX.{....
022150: 00 75 30 95 30 00 00 00 00 00 00 00 00 00 00 00 .u0.0...........
022160: 00 00 00 00 00 00 00 00 00 00 00 38 7D 5C 7C 08 ...........8}\|.
022170: 82 B7 6E B8 70 00 00 00 00 00 00 00 00 00 00 00 ..n.p...........
022180: 00 00 00 00 00 00 00 00 00 00 00 38 7D 5C 7C 08 ...........8}\|.
022190: 82 B7 6E B8 70 00 00 00 00 00 00 00 00 00 00 00 ..n.p...........
0221A0: 00 00 00 00 00 00 00 00 00 00 00 A0 7F CA 7C 2F ..............|/
0221B0: 82 A8 74 A9 76 C5 D5 21 9D 6E 7E E6 7F C2 D2 30 ..t.v..!.n~....0
0221C0: EB 21 A3 6E 7E E6 7F CA 8A 31 06 06 CD 9D 34 C3 .!£n~....1....4.
0221D0: 87 31 47 2E A3 7E E6 7F CA 87 31 B8 CA 1A 31 90 .1G.£~....1...1.
0221E0: F2 E5 30 2F 3C FE 0A DA F7 30 7E E6 7F B8 DA 87 ..0/<....0~.....
0221F0: 31 11 9D 6E C3 C1 30 7E E6 7F B8 DA 05 31 57 58 1..n..0~.....1WX
022200: C3 00 00 11 17 30 CD 0D 3C 02 C3 0F 27 B7 C9 37 .....0..<...'..7
022210: C9 C5 D5 E5 D5 CD 4B 37 C2 26 27 1A B7 C2 26 27 ......K7.&'...&'
022220: E1 E3 E1 C3 39 27 D1 EB 11 10 00 19 7E B7 CA 2B ....9'......~..+
022230: 27 EB E1 FE 0D C2 13 27 3D D1 C1 C9 3A 16 30 C9 '......'=...:.0.
022240: 32 16 30 C9 C5 D5 3A 50 30 87 21 51 30 CD BB 36 2.0...:P0.!Q0..6
022250: CD DF 36 11 08 00 19 3A 16 30 32 5D 30 77 D1 C1 ..6....:.02]0w..
022260: C9 3A 5D 30 32 16 30 C9 21 17 30 C9 11 4C 30 CD .:]02.0.!.0..L0.
022270: 0D 3C 0A C3 17 2E EB C9 3A CD 2F B7 C2 88 27 3A .<......:./...':
022280: D1 2F B7 C2 91 27 3D C9 D5 21 91 7A CD 20 0B D1 ./...'=..!.z. ..
022290: C9 D5 21 91 7A CD 20 0B D1 C0 3D 37 C9 22 06 30 ..!.z. ...=7.".0
0222A0: 22 56 30 7C B5 C8 CD 1B 2D CD 37 2C C9 C5 D5 F5 "V0|....-.7,....
0222B0: 01 0F 00 21 17 30 CD F8 36 11 17 30 CD 73 39 CA ...!.0..6..0.s9.
0222C0: 55 28 23 7E FE 3A C2 DD 27 2B 7E CD 84 36 DA 55 U(#~.:..'+~..6.U
0222D0: 28 CD 5A 28 CD 69 39 CD 5A 28 CD 69 39 CD 63 39 (.Z(.i9.Z(.i9.c9
0222E0: CA 55 28 FE 20 CA 55 28 FE 2E CA 55 28 CD 5A 28 .U(. .U(...U(.Z(
0222F0: 06 07 CD 69 39 CA 40 28 FE 20 CA 40 28 FE 2C CA ...i9.@(. .@(.,.
022300: 40 28 FE 2E CA 22 28 CD 5A 28 C2 F2 27 CD 69 39 @(..."(.Z(..'.i9
022310: CA 40 28 FE 20 CA 40 28 FE 2C CA 40 28 FE 2E C2 .@(. .@(.,.@(...
022320: 0D 28 CD 5A 28 06 04 CD 69 39 CA 51 28 FE 20 CA .(.Z(...i9.Q(. .
022330: 51 28 FE 2C CA 51 28 CD 5A 28 C2 27 28 C3 55 28 Q(.,.Q(.Z(.'(.U(
022340: F1 87 87 21 26 30 CD BB 36 0E 04 CD 78 38 D1 C1 ...!&0..6...x8..
022350: C9 F1 D1 C1 C9 F1 D1 C1 37 C9 FE 61 DA 61 28 E6 ........7..a.a(.
022360: 5F 12 13 05 C9 C5 D5 11 17 30 7E C6 40 12 13 3E _........0~.@..>
022370: 3A 12 13 06 08 23 7E FE 20 12 13 05 C2 75 28 3E :....#~. ....u(>
022380: 2E 12 13 06 03 23 7E 12 13 05 C2 85 28 AF 12 D1 .....#~.....(...
022390: C1 C9 C5 D5 E5 CD F1 2A E1 CA 01 29 78 B7 CA C5 .......*...)x...
0223A0: 28 FE 01 CA B8 28 FE 02 C2 01 29 3A 9D 30 B7 CA (....(....):.0..
0223B0: FE 28 CD 13 29 C3 FE 28 3A 7D 30 B7 CA FE 28 CD .(..)..(:}0...(.
0223C0: 06 29 C3 FE 28 3A 50 30 FE 01 CA E7 28 3A 7D 30 .)..(:P0....(:}0
0223D0: B7 CA DA 28 CD 0A 29 CA FE 28 3A 9D 30 B7 CA 01 ...(..)..(:.0...
0223E0: 29 CD 17 29 C3 FE 28 3A 9D 30 B7 CA F4 28 CD 17 )..)..(:.0...(..
0223F0: 29 CA FE 28 3A 7D 30 B7 CA 01 29 CD 0A 29 D1 C1 )..(:}0...)..)..
022400: 0E 9D C3 09 31 50 5F 0E A3 69 2C CD C8 34 1C 7A ....1P_.£i,..4.z
022410: BB C2 09 31 69 7E E6 80 B2 77 2E 9D 46 11 A3 6E ...1i~...w..F.£n
022420: 1A A8 FA 46 31 B7 0E 05 2E A2 1E A8 1A 8E 27 77 ...F1.........'w
022430: 2D 1D 0D C2 2C 31 D2 87 31 2E 9E 3E 01 CD C9 34 -...,1..1..>...4
022440: 2E 9D 34 C3 87 31 B7 0E 05 1E A2 2E A8 37 3E 99 ..4..1.......7>.
022450: CE 00 96 EB 86 27 77 EB 2D 1D 0D C2 4E 31 DA 84 .....'w.-...N1..
022460: 31 2E A2 0E 05 AF 96 C6 99 77 2D 0D C2 65 31 2E 1........w-..e1.
022470: A2 0E 05 37 7E CE 00 27 77 2D 0D C2 74 31 2E 9D ...7~..'w-..t1..
022480: 7E EE 80 77 CD 64 34 D1 C1 C9 2E 9D 36 00 C3 87 ~..w.d4.....6...
022490: 31 21 A3 6E 7E EE 80 77 C3 B5 30 C5 D5 21 9D 6E 1!£n~..w..0..!.n
0224A0: 11 A9 6E 06 06 CD 9D 34 2E 9D 06 06 CD A6 34 0E ..n....4......4.
0224B0: 0A 2E AA CD C8 34 0F 0F 0F 0F E6 0F CA C7 31 47 .....4........1G
0224C0: CD B5 30 05 C2 C0 31 2E A3 34 0D C2 B1 31 2E A9 ..0...1.£4...1..
0224D0: 7E 47 E6 7F 4F 2E 9D 7E 57 E6 7F D6 49 81 77 78 ~G..O..~W...I.wx
0224E0: AA F2 E8 31 7E F6 80 77 CD 64 34 D1 C1 C9 C5 D5 ...1~..w.d4.....
0224F0: 21 9D 6E 7E 32 9A 6E 2E A3 7E B7 CA 92 32 32 99 !.n~2.n.£~...22.
022500: 6E 2E 9D 36 40 2E A3 36 C0 3E 0A 32 9C 6E 0E 00 n..6@.£6.>.2.n..
022510: CD B5 30 2E 9D 7E B7 FA 22 32 0C B7 CA 3C 32 C3 ..0..~.."2...<2.
022520: 10 32 CD 91 31 2E A3 7E 3D F6 80 77 79 2E AE CD .2..1.£~=..wy...
022530: AE 34 3A 9C 6E 3D C2 0B 32 C3 6E 32 79 FE 0A D2 .4:.n=..2.n2y...
022540: 5A 32 2E AE CD AE 34 3A 9C 6E 3D CA 6E 32 32 9C Z2....4:.n=.n22.
022550: 6E AF 2E AE CD AE 34 C3 47 32 3E 09 2E AE CD AE n.....4.G2>.....
022560: 34 3A 9C 6E 3D CA 6E 32 32 9C 6E C3 5A 32 3A 9A 4:.n=.n22.n.Z2:.
022570: 6E 47 2E 99 4E 96 C6 40 2E A9 E6 7F 5F 79 A8 E6 nG..N..@...._y..
022580: 80 B3 77 11 9D 6E 06 06 CD 9D 34 CD 64 34 D1 C1 ..w..n....4.d4..
022590: B7 C9 37 D1 C1 C9 3A 9D 6E F6 80 32 9D 6E C9 C5 ..7...:.n..2.n..
0225A0: D5 EB 21 98 6E 06 0B CD A6 34 1A FE 20 C2 B8 32 ..!.n....4.. ..2
0225B0: 13 0D CA 3F 33 C3 AA 32 2E 9D 36 3F 1A FE 2B CA ...?3..2..6?..+.
0225C0: C9 32 FE 2D C2 CF 32 36 BF 0D CA 3F 33 13 1A FE .2.-..26...?3...
0225D0: 30 CA 0A 33 DA 2E 33 FE 3A D2 3F 33 2E 99 36 01 0..3..3.:.?3..6.
0225E0: E6 0F 47 2E 9C 7E 34 1F DA F7 32 C6 9E 6F 78 07 ..G..~4...2..ox.
0225F0: 07 07 07 77 C3 FD 32 C6 9E 6F 7E B0 77 2E 9B 7E ...w..2..o~.w..~
022600: C9 AF 3C D1 C1 C9 23 23 0D 0D EB 2A 91 30 EB CD ..<...##...*.0..
022610: 11 27 C9 23 23 0D 0D EB 2A B1 30 EB CD 11 27 C9 .'.##...*.0...'.
022620: C5 D5 21 00 60 01 00 04 CD F8 36 01 00 06 21 01 ..!.`.....6...!.
022630: 64 CD F8 36 21 00 64 36 0D D1 C1 C9 3A 16 30 B7 d..6!.d6....:.0.
022640: C0 3E 16 CD 70 3B CD 63 39 22 03 30 21 7E 99 CD .>..p;.c9".0!~..
022650: 8E 39 CD 78 35 CA 7E 44 AF CD AD 27 3E 40 CD F0 .9.x5.~D...'>@..
022660: 2B DA 74 29 CD 44 27 CD B5 2D CD D8 2C 2A 03 30 +.t).D'..-..,*.0
022670: CD 8E 39 C9 3E 08 CD 70 3B C3 7E 44 2A 14 30 C9 ..9.>..p;.~D*.0.
022680: 22 14 30 C9 2A 58 30 C9 C5 D5 E5 3E 0B CD BB 36 ".0.*X0....>...6
022690: 78 B7 C2 BC 29 79 B7 CA B2 29 36 C3 41 0E 00 23 x...)y...)6.A..#
0226A0: 23 E5 CD E9 36 7A B3 C2 EE 29 E1 E5 2B 70 04 C3 #...6z...)..+p..
0226B0: F4 29 36 CC 23 36 00 06 01 C3 C3 29 36 CE 23 36 .)6.#6.....)6.#6
0226C0: 0A 06 06 23 E5 CD E9 36 7A B3 CA F4 29 1A B8 D2 ...#...6z...)...
0226D0: EE 29 CD 39 2A DA 05 2A 70 23 E5 C5 EB 2B 4E 06 .).9*..*p#...+N.
0226E0: 00 03 CD F8 36 C1 D1 E1 CD E4 36 C3 01 2A E1 23 ....6.....6..*.#
0226F0: 23 C3 01 2A D1 CD 39 2A DA 06 2A 70 23 EB CD E4 #..*..9*..*p#...
022700: 36 71 C3 11 2A E1 E1 36 00 3E 13 CD 70 3B C3 7E 6q..*..6.>..p;.~
022710: 44 E1 D1 C1 C9 C5 D5 E5 CD F1 2A E1 CA 34 2A 78 D.........*..4*x
022720: B7 CA 2B 2A F2 34 2A 23 23 0D 0D 11 00 60 CD 11 ..+*.4*##....`..
022730: 27 D1 C1 C9 AF 3C D1 C1 C9 C5 D5 21 01 64 7E B7 '....<.....!.d~.
022740: CA 53 2A CD BB 36 23 11 01 6A CD C0 36 D2 3E 2A .S*..6#..j..6.>*
022750: C3 6A 2A 54 5D 48 23 7E B7 C2 3E 2A 0D C2 56 2A .j*T]H#~..>*..V*
022760: EB 11 01 6A CD C0 36 D2 6B 2A 37 D1 C1 C9 21 00 ...j..6.k*7...!.
022770: 06 C9 CD 9A 2A CD 88 29 C9 C5 D5 E5 01 0D 00 09 ....*..)........
022780: CD E9 36 EB 2B 4E 06 00 03 CD F8 36 E1 01 10 00 ..6.+N.....6....
022790: CD F8 36 D1 C1 C9 21 00 04 C9 C5 D5 22 03 30 CD ..6...!.....".0.
0227A0: F1 2A C2 AD 2A 3E 14 CD 70 3B C3 7E 44 2A 03 30 .*..*>..p;.~D*.0
0227B0: CD 15 2A CA EE 2A C5 01 10 00 21 00 60 7E B7 CA ..*..*....!.`~..
0227C0: D0 2A 09 FE 0D C2 BD 2A 3E 12 CD 70 3B C3 7E 44 .*.....*>..p;.~D
0227D0: C1 EB D5 2A 03 30 3E 0A B9 D2 DD 2A 4F 7E CD 84 ...*.0>....*O~..
0227E0: 36 DA E6 2A E6 5F 12 13 23 0D C2 DD 2A E1 D1 C1 6..*._..#...*...
0227F0: C9 01 00 00 7E CD 84 36 DA 44 2B 0C 23 F5 7E FE ....~..6.D+.#.~.
022800: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
022810: 1D 00 01 00 02 09 4E E5 1D 00 41 02 00 00 00 02 ......N...A.....
022820: 1D 00 46 02 00 00 00 02 1D 00 42 02 00 00 00 02 ..F.......B.....
022830: 1D 00 47 02 00 00 00 02 1D 00 43 02 00 00 00 02 ..G.......C.....
022840: 1D 00 48 02 00 00 00 02 1D 00 44 02 00 00 00 02 ..H.......D.....
022850: 1D 00 49 02 00 00 00 02 1D 00 45 02 00 00 00 02 ..I.......E.....
022860: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
022870: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
022880: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
022890: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0228A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0228B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0228C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0228D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0228E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0228F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
022900: B7 C2 C9 32 2E 9D 34 C3 C9 32 2E 99 7E B7 CA 21 ...2..4..2..~..!
022910: 33 2E 9C 34 2E 9B 7E B7 C2 C9 32 2E 9D 34 C3 C9 3..4..~...2..4..
022920: 32 2E 9B 7E B7 CA C9 32 2E 9D 35 C3 C9 32 FE 2E 2..~...2..5..2..
022930: C2 3F 33 2E 9B 7E B7 C2 3F 33 36 01 C3 C9 32 2E .?3..~..?36...2.
022940: 99 7E B7 C2 49 33 2E 9D 77 EB D1 C1 C9 C5 D5 79 .~..I3..w......y
022950: B7 CA 58 33 78 91 3D 47 EB 21 9D 6E 7E 2E 98 36 ..X3x.=G.!.n~..6
022960: 30 B7 F2 67 33 36 2D E6 7F D6 40 F2 AF 33 2F 3C 0..g36-...@..3/<
022970: 2E 9C 77 3E 20 05 CA 7E 33 12 13 C3 75 33 2E 98 ..w> ..~3...u3..
022980: 7E 12 13 79 B7 CA 15 34 3E 2E 12 13 2E 9C 46 3E ~..y...4>.....F>
022990: 30 05 CA 9E 33 12 13 0D C2 91 33 C3 15 34 2E A2 0...3.....3..4..
0229A0: AF CD AE 34 C6 30 12 13 0D C2 9E 33 C3 15 34 3C ...4.0.....3..4<
0229B0: 2E 9C 71 90 2F 3C CA C9 33 FA 0C 34 4F 3E 20 05 ..q./<..3..4O> .
0229C0: 0D CA D3 33 12 13 C3 BF 33 2E 9D 7E B7 FA 0C 34 ...3....3..~...4
0229D0: C3 DF 33 2E 98 7E FE 2D CA DD 33 3E 20 12 13 2E ..3..~.-..3> ...
0229E0: A2 AF C5 CD AE 34 C1 C6 30 12 13 05 C2 DF 33 2E .....4..0.....3.
0229F0: 9C 7E B7 CA 15 34 4F 3E 2E 12 13 2E A2 AF CD AE .~...4O>........
022A00: 34 C6 30 12 13 0D C2 FB 33 C3 15 34 3E 2A 12 13 4.0.....3..4>*..
022A10: 05 C2 0C 34 37 D1 C1 C9 C5 D5 EB 21 98 6E 06 0B ...47......!.n..
022A20: CD A6 34 EB 01 10 27 CD 4D 34 01 E8 03 CD 4D 34 ..4...'.M4....M4
022A30: 01 64 00 CD 4D 34 01 0A 00 CD 4D 34 01 01 00 CD .d..M4....M4....
022A40: 4D 34 3E 49 32 9D 6E CD 64 34 D1 C1 C9 16 FF 14 M4>I2.n.d4......
022A50: 7D 91 6F 7C 98 67 D2 4F 34 09 7A E5 21 A2 6E CD }.o|.g.O4.z.!.n.
022A60: AE 34 E1 C9 21 9E 6E 7E 2C B6 2C B6 2C B6 2C B6 .4..!.n~,.,.,.,.
022A70: 2C CA 98 34 21 9D 6E 7E E6 7F 4F 2C 7E E6 F0 C2 ,..4!.n~..O,~...
022A80: 90 34 0D CA 98 34 2E A2 CD AE 34 2E 9E C3 7C 34 .4...4....4...|4
022A90: 2E 9D 7E E6 80 B1 77 C9 2E 9D AF 77 C9 7E 12 23 ..~...w....w.~.#
022AA0: 13 05 C2 9D 34 C9 AF 77 2C 05 C2 A7 34 C9 06 05 ....4..w,...4...
022AB0: D5 E6 0F 5F 7E 07 07 07 07 57 E6 F0 B3 77 7A 2B ..._~....W...wz+
022AC0: 05 C2 B1 34 D1 E6 0F C9 AF 06 05 D5 0F 0F 0F 0F ...4............
022AD0: E6 F0 5F 7E 0F 0F 0F 0F 57 E6 0F B3 77 7A 2C 05 .._~....W...wz,.
022AE0: C2 D0 34 D1 C9 C5 D5 21 9D 6E 06 06 CD 9D 34 D1 ..4....!.n....4.
022AF0: C1 C9 C5 D5 11 9D 6E 06 06 CD 9D 34 D1 C1 C9 C5 ......n....4....
022B00: B3 40 D2 0A 3D 3E 0A C3 B3 42 CD 81 3F 0E 11 CD .@..=>...B..?...
022B10: 7A 3F FE FF C2 1C 3D 3E 08 C3 B3 42 0E 13 CD 7A z?....=>...B...z
022B20: 3F C3 9A 42 CD 24 41 3E 01 32 88 43 2A 24 43 22 ?..B.$A>.2.C*$C"
022B30: 84 43 CD 09 3F C3 97 42 CD 24 41 AF 32 88 43 2A .C..?..B.$A.2.C*
022B40: 24 43 22 84 43 CD 09 3F C3 97 42 CD 24 41 3E FF $C".C..?..B.$A>.
022B50: 32 88 43 2A 24 43 22 84 43 CD 09 3F C3 97 42 CD 2.C*$C".C..?..B.
022B60: 24 41 3E 80 32 88 43 2A 24 43 23 22 84 43 CD 09 $A>.2.C*$C#".C..
022B70: 3F C3 97 42 CD 24 41 7A B7 CA 87 3D CD F8 40 06 ?..B.$Az...=..@.
022B80: 80 CD DF 3F C3 97 42 21 00 00 22 8E 43 22 8C 43 ...?..B!..".C".C
022B90: CD 0A 40 C3 97 42 CD 24 41 AF 32 88 43 21 01 00 ..@..B.$A.2.C!..
022BA0: 22 84 43 2A 26 43 E5 21 79 43 22 26 43 CD 09 3F ".C*&C.!yC"&C..?
022BB0: 2A 8C 43 2B 22 8C 43 E1 22 26 43 C3 97 42 CD 24 *.C+".C."&C..B.$
022BC0: 41 AF 32 88 43 CD F8 40 06 00 CD DF 3F 2A 8A 43 A.2.C..@....?*.C
022BD0: 2B 3A 5F 01 B7 CA DD 3D 36 00 C3 97 42 36 01 C3 +:_....=6...B6..
022BE0: 97 42 CD 24 41 2A 8C 43 7D 12 13 7C 12 13 2A 8E .B.$A*.C}..|..*.
022BF0: 43 7D 12 13 7C 12 2A 91 43 22 26 43 C3 9A 42 CD C}..|.*.C"&C..B.
022C00: 24 41 2A 26 43 78 B7 4E 23 46 23 5E 23 56 CA 1D $A*&Cx.N#F#^#V..
022C10: 3E EB 22 8E 43 60 69 22 8C 43 C3 97 42 D5 69 78 >.".C`i".C..B.ix
022C20: E6 01 67 22 8C 43 D1 7A 1F 7B 1F 67 78 1F 6F 22 ..g".C.z.{.gx.o"
022C30: 8E 43 C3 97 42 3A 7D 43 B7 CA 9E 3E 21 93 43 22 .C..B:}C...>!.C"
022C40: 91 43 AF 32 2D 43 2A 91 43 7E B7 CA 6A 3E FE 01 .C.2-C*.C~..j>..
022C50: CA 68 3E 11 06 00 19 5E 23 56 1A 4F 3A 7D 43 B9 .h>....^#V.O:}C.
022C60: 3E 0A CA B3 42 C3 6A 3E 36 00 3A 2D 43 3C FE 0F >...B.j>6.:-C<..
022C70: D2 83 3E 32 2D 43 2A 91 43 11 08 00 19 22 91 43 ..>2-C*.C....".C
022C80: C3 46 3E 21 01 00 3A 7D 43 3D CA 95 3E FA 95 3E .F>!..:}C=..>..>
022C90: 29 3D C3 8A 3E EB 0E 25 CD 05 00 C3 9A 42 CD 81 )=..>..%.....B..
022CA0: 3F 0E 19 CD 05 00 F5 0E 0D CD 05 00 F1 5F 16 00 ?............_..
022CB0: 0E 0E CD 05 00 C3 9A 42 2A 24 43 EB CD 8A 3F CD .......B*$C...?.
022CC0: B3 40 D2 CA 3E 3E 0A C3 B3 42 11 2B 9C 21 5C 00 .@..>>...B.+.!\.
022CD0: 0E 10 CD 78 38 2A 26 43 EB CD 8A 3F CD 81 3F 0E ...x8*&C...?..?.
022CE0: 11 CD 7A 3F 3C CA ED 3E 3E 10 C3 B3 42 11 3B 9C ..z?<..>>...B.;.
022CF0: 21 5C 00 0E 10 CD 78 38 11 2B 9C 0E 17 CD 05 00 !\....x8.+......
022D00: D5 11 A3 6E 06 06 CD 9D 34 D1 C1 C9 C5 21 9D 6E ..£n....4....!.n
022D10: 7E E6 7F D6 40 DA 6E 35 FE 09 D2 37 35 D6 09 2F ~...@.n5...75../
022D20: 3C 4F C5 2E 9E CD C8 34 0D C2 23 35 C1 AF 2E A2 <O.....4..#5....
022D30: CD AE 34 0D C2 2D 35 C1 C9 C5 D5 11 00 00 21 9D ..4..-5.......!.
022D40: 6E 7E E6 7F D6 40 FA 6A 35 4F 3A 9E 6E 0F 0F 0F n~...@.j5O:.n...
022D50: 0F E6 0F 62 6B 29 29 19 29 EB 83 5F D2 60 35 14 ...bk)).).._.`5.
022D60: 21 A2 6E CD AE 34 0D F2 4A 35 EB D1 C1 C9 06 06 !.n..4..J5......
022D70: 21 9D 6E CD A6 34 C1 C9 C5 E5 0E 00 CD 8E 3A FE !.n..4........:.
022D80: 0D CA CF 35 FE 18 CA B8 35 FE 15 CA B8 35 FE 7F ...5....5....5..
022D90: CA C1 35 FE 08 CA C1 35 FE 1B CA C7 35 FE 12 CA ..5....5....5...
022DA0: D9 35 FE 19 CA AF 35 FE 20 DA 7C 35 CD E8 35 0C .5....5. .|5..5.
022DB0: 77 23 CA CC 35 C3 7C 35 CD DD 35 C2 B8 35 C3 7C w#..5.|5..5..5.|
022DC0: 35 CD DD 35 C3 7C 35 E1 77 B7 C1 C9 0D 3E 0D CD 5..5.|5.w....>..
022DD0: E8 35 36 00 E1 79 B7 C1 C9 E1 C1 B7 C9 79 B7 C8 .56..y.......y..
022DE0: 3E 7F CD E8 35 2B 0D C9 F5 C5 32 53 3A CD 0F 36 >...5+....2S:..6
022DF0: 3A 53 3A CD AA 3A 3A 56 44 B7 CA 0C 36 D5 11 53 :S:..::VD...6..S
022E00: 3A 01 01 00 CD 0D 3C 04 76 00 00 D1 C1 F1 C9 CD :.....<.v.......
022E10: 3B 3A C8 3A 70 44 B7 C8 C3 7E 44 C5 3E 0D CD E8 ;:.:pD...~D.>...
022E20: 35 3E 0A CD E8 35 C1 C9 CD 1B 36 7E B7 C8 CD E8 5>...5....6~....
022E30: 35 23 C3 2B 36 C5 D5 C3 4A 36 C5 D5 26 00 6F C3 5#.+6...J6..&.o.
022E40: 5C 36 C5 D5 26 00 6F C3 56 36 01 10 27 CD 6B 36 \6..&.o.V6..'.k6
022E50: 01 E8 03 CD 6B 36 01 64 00 CD 6B 36 01 0A 00 CD ....k6.d..k6....
022E60: 6B 36 01 01 00 CD 6B 36 D1 C1 C9 CD C7 36 CD E8 k6....k6.....6..
022E70: 35 C9 CD 7E 36 CD 7E 36 CD 7E 36 CD 7E 36 3E 20 5..~6.~6.~6.~6>
022E80: CD E8 35 C9 FE 41 D8 FE 5B 3F D0 FE 61 D8 FE 7B ..5..A..[?..a..{
022E90: 3F C9 CD 73 39 C8 FE 2C 37 C0 CD 69 39 C9 47 FE ?..s9..,7..i9.G.
022EA0: 27 C8 FE 22 C8 FE 5B C0 06 5D C9 FE 30 D8 FE 3A '.."..[..]..0..:
022EB0: 3F C9 E1 87 CD BB 36 CD DF 36 E9 85 6F D0 24 C9 ?.....6..6..o.$.
022EC0: 7A BC D8 C0 7B BD C9 D5 16 2F 14 7D 91 6F 7C 98 z...{..../.}.o|.
022ED0: 67 D2 CA 36 09 7A D1 C9 7D 93 6F 7C 9A 67 C9 7E g..6.z..}.o|.g.~
022EE0: 23 66 6F C9 73 23 72 23 C9 5E 23 56 23 C9 71 23 #fo.s#r#.^#V#.q#
022EF0: 70 23 C9 4E 23 46 23 C9 3E 00 C5 D5 57 78 B1 CA p#.N#F#.>...Wx..
022F00: 3C C2 9A 42 3E 08 C3 B3 42 AF 32 7C 43 3A 7C 43 <..B>...B.2|C:|C
022F10: B7 C0 2A 84 43 7C B5 C8 CD A6 41 EB 2A 84 43 CD ..*.C|....A.*.C.
022F20: C0 36 D2 26 3F EB 44 4D C5 2A 8E 43 CD 18 40 C1 .6.&?.DM.*.C..@.
022F30: C5 2A 8C 43 EB 2A 76 43 19 EB 2A 26 43 EB 3A 88 .*.C.*vC..*&C.:.
022F40: 43 0F D2 59 3F CD BD 42 EB 22 26 43 2A 76 43 EB C..Y?..B."&C*vC.
022F50: CD D8 36 22 8C 43 C3 6D 3F EB CD BD 42 22 26 43 ..6".C.m?...B"&C
022F60: 2A 76 43 EB CD D8 36 22 8C 43 CD E5 41 D1 2A 84 *vC...6".C..A.*.
022F70: 43 CD D8 36 22 84 43 C3 0D 3F 11 5C 00 CD 05 00 C..6".C..?.\....
022F80: C9 11 80 00 0E 1A CD 05 00 C9 C5 D5 D5 21 5C 00 .............!\.
022F90: 36 00 23 01 0B 00 3E 20 CD FA 36 01 18 00 CD F8 6.#...> ..6.....
022FA0: 36 3A 5A 44 32 5C 00 21 5D 00 D1 1A 77 13 23 1A 6:ZD2\.!]...w.#.
022FB0: FE 3A C2 BE 3F 2B 7E D6 40 32 5C 00 13 1A FE 2E .:..?+~.@2\.....
022FC0: CA CE 3F B7 CA DC 3F 77 23 13 1A C3 BE 3F 21 65 ..?...?w#....?!e
022FD0: 00 13 1A B7 CA DC 3F 77 23 C3 D1 3F D1 C1 C9 3A ......?w#..?...:
022FE0: 90 43 E6 40 C2 EC 3F 3A 5F 01 B7 C8 C5 CD 81 3F .C.@..?:_......?
022FF0: C1 2A 91 43 EB 3A 5F 01 B7 CA FC 3F 0E 10 CD 05 .*.C.:_....?....
023000: 00 3A 90 43 EE 40 32 90 43 C9 29 29 EB 2A 91 43 .:.C.@2.C.)).*.C
023010: 01 21 00 09 CD E4 36 C9 01 07 00 EB 21 13 44 22 .!....6.....!.D"
023020: 7A 43 7E B7 CA 33 40 FE FF CA 51 40 3A 7D 43 BE zC~..3@...Q@:}C.
023030: CA 37 40 09 C3 1F 40 E5 23 CD DF 36 CD C0 36 E1 .7@...@.#..6..6.
023040: C2 33 40 23 23 23 CD E9 36 EB 22 76 43 EB 36 01 .3@###..6."vC.6.
023050: C9 2A 86 43 09 22 86 43 7E FE FF C2 64 40 21 13 .*.C.".C~...d@!.
023060: 44 22 86 43 23 23 23 23 23 7E B7 CA 72 40 35 C3 D".C#####~..r@5.
023070: 51 40 23 7E B7 CA 87 40 CD 8A 42 2A 86 43 CD C4 Q@#~...@..B*.C..
023080: 41 3A 7D 43 CD 27 41 2A 86 43 23 23 23 CD DF 36 A:}C.'A*.C###..6
023090: 22 76 43 2A 8E 43 CD F1 41 2A 8E 43 EB 2A 86 43 "vC*.C..A*.C.*.C
0230A0: 22 7A 43 3A 7D 43 77 23 CD E4 36 23 23 36 01 23 "zC:}Cw#..6##6.#
0230B0: 36 00 C9 0E 00 21 93 43 22 91 43 7E B7 CA D3 40 6....!.C".C~...@
0230C0: CD E2 40 C2 D3 40 2A 91 43 7E FE 01 CA D1 40 37 ..@..@*.C~....@7
0230D0: C9 36 00 0C 79 FE 10 D0 2A 91 43 11 08 00 19 C3 .6..y...*.C.....
0230E0: B8 40 11 06 00 19 5E 23 56 21 5C 00 06 0C 1A BE .@....^#V!\.....
0230F0: C0 13 23 05 C2 EE 40 C9 3A 7D 43 47 21 13 44 7E ..#...@.:}CG!.D~
023100: 08 37 72 23 0B C3 FD 36 D1 C1 C9 3E 20 BE C0 23 .7r#...6...> ..#
023110: C3 0D 37 C5 BE CA 1E 37 23 0D C2 14 37 0D C1 C9 ..7....7#...7...
023120: C5 D5 47 0E 00 7E B8 CA 35 37 B7 CA 3A 37 12 23 ..G..~..57..:7.#
023130: 13 0C C2 25 37 79 B7 D1 C1 C9 D1 C1 C9 C5 1A BE ...%7y..........
023140: C2 49 37 13 23 0D C2 3E 37 C1 C9 C5 7E CD 84 36 .I7.#..>7...~..6
023150: DA 55 37 E6 5F 47 1A CD 84 36 DA 5F 37 E6 5F B8 .U7._G...6._7._.
023160: C2 69 37 13 23 0D C2 4C 37 C1 C9 C5 D5 78 B9 CA .i7.#..L7....x..
023170: 88 37 DA 7E 37 78 32 57 3A 06 01 C3 8A 37 79 32 .7.~7x2W:....7y2
023180: 57 3A 48 06 FF C3 8A 37 06 00 CD 3D 37 C2 AE 37 W:H....7...=7..7
023190: 78 B7 CA AE 37 FA 99 37 EB 3A 57 3A 91 4F 7E FE x...7..7.:W:.O~.
0231A0: 20 C2 AC 37 23 0D C2 9E 37 C3 AE 37 78 07 D1 C1 ..7#...7..7x...
0231B0: C9 C5 1A 4F 7E FE 61 DA BC 37 E6 5F B9 C2 FD 37 ...O~.a..7._...7
0231C0: D5 E5 06 00 1A B7 FA F9 37 CA E5 37 4F 7E FE 41 ........7..7O~.A
0231D0: DA D5 37 E6 5F B9 C2 DF 37 13 04 23 C3 C4 37 78 ..7._...7..#..7x
0231E0: FE 04 DA FB 37 7E FE 30 DA F9 37 FE 3B DA FB 37 ....7~.0..7.;..7
0231F0: FE 41 DA F9 37 B7 C3 FB 37 AF E3 E1 D1 C1 C9 C5 .A..7...7.......
023200: 44 4D 21 00 00 0A FE 20 C2 0F 38 03 C3 05 38 0A DM!.... ..8...8.
023210: 03 FE 30 DA 3B 38 FE 3A D2 3B 38 D6 30 11 99 19 ..0.;8.:.;8.0...
023220: F5 CD C0 36 D1 DA 38 38 7A 54 5D 29 29 19 29 85 ...6..88zT])).).
023230: 6F D2 0F 38 24 C2 0F 38 37 C1 C9 EB 0B 60 69 C1 o..8$..87....`i.
023240: B7 C9 CD 8E 3A E6 5F FE 1B CA 63 38 CD E8 35 F5 ....:._...c8..5.
023250: 3E 0D CD E8 35 F1 FE 4E C8 FE 0D C8 FE 59 C2 66 >...5..N.....Y.f
023260: 38 B7 C9 B7 37 C9 CD 1B 36 3E 3F CD E8 35 C3 42 8...7...6>?..5.B
023270: 38 C5 48 06 00 C3 7F 38 C5 06 00 C3 7F 38 C5 D5 8.H....8.....8..
023280: 79 B0 CA 8D 38 7E 12 23 13 0B C3 80 38 D1 C1 C9 y...8~.#....8...
023290: C5 D5 78 B1 CA 9F 38 7E 12 2B 1B 0B C3 92 38 D1 ..x...8~.+....8.
0232A0: C1 C9 C5 D5 CD 04 39 C2 00 39 E5 EB AF CD 2E 39 ......9..9.....9
0232B0: CA 00 39 57 60 69 AF CD 2E 39 92 CA EF 38 DA DB ..9W`i...9...8..
0232C0: 38 E1 E5 C5 47 AF CD 2E 39 CA EF 38 4F 54 5D 78 8...G...9..8OT]x
0232D0: CD BB 36 EB CD 3E 39 C1 C3 EF 38 E1 E5 2F 3C 54 ..6..>9...8../<T
0232E0: 5D CD BB 36 7E 12 B7 CA EF 38 23 13 C3 E4 38 60 ]..6~....8#...8`
0232F0: 69 AF CD 2E 39 E1 50 59 EB 4F CD 78 38 D1 C1 C9 i...9.PY.O.x8...
023300: FE FF C8 B8 C2 1D 41 E5 23 23 23 23 23 23 7E B7 ......A.######~.
023310: CA 1A 41 E1 E5 C5 CD C4 41 C1 E1 36 00 11 07 00 ..A.....A..6....
023320: 19 C3 FF 40 3A 7D 43 C5 D5 B7 FA 56 41 FE 11 D2 ...@:}C....VA...
023330: 56 41 3D 21 93 43 B7 CA 42 41 11 08 00 19 3D C2 VA=!.C..BA....=.
023340: 3D 41 7E B7 CA 56 41 23 22 8A 43 0E 07 11 8C 43 =A~..VA#".C....C
023350: CD 78 38 D1 C1 C9 3E 09 C3 B3 42 C5 D5 06 10 21 .x8...>...B....!
023360: 93 43 7E B7 CA 87 41 11 08 00 19 05 C2 62 41 06 .C~...A......bA.
023370: 10 21 93 43 7E FE 01 CA 87 41 11 08 00 19 05 C2 .!.C~....A......
023380: 74 41 3E 0D C3 B3 42 23 22 8A 43 0E 07 11 8C 43 tA>...B#".C....C
023390: CD 78 38 21 00 00 22 8C 43 22 8E 43 AF 32 90 43 .x8!..".C".C.2.C
0233A0: 3E 10 90 D1 C1 C9 2A 8C 43 EB 21 00 02 CD D8 36 >.....*.C.!....6
0233B0: 7C B5 C0 2A 8E 43 23 22 8E 43 21 00 00 22 8C 43 |..*.C#".C!..".C
0233C0: 21 00 02 C9 E5 7E CD 27 41 E1 23 CD E9 36 E5 CD !....~.'A.#..6..
0233D0: DF 36 22 76 43 EB CD 39 42 E1 23 23 36 00 23 36 .6"vC..9B.##6.#6
0233E0: 00 CD 8A 42 C9 2A 7A 43 23 23 23 23 23 23 36 01 ...B.*zC######6.
0233F0: C9 CD 0A 40 2A 76 43 06 04 E5 C5 EB 0E 1A CD 05 ...@*vC.........
023400: 00 2A 91 43 EB 0E 21 CD 05 00 C1 E1 B7 C2 2B 42 .*.C..!.......+B
023410: 11 80 00 19 E5 2A 91 43 11 21 00 19 CD E9 36 2B .....*.C.!....6+
023420: 2B 13 CD E4 36 E1 05 C2 F9 41 C9 3A 88 43 0F D0 +...6....A.:.C..
023430: 78 FE 04 C0 3E 0B C3 B3 42 CD 0A 40 2A 76 43 06 x...>...B..@*vC.
023440: 04 C5 E5 EB 0E 1A CD 05 00 2A 91 43 EB 0E 22 CD .........*.C..".
023450: 05 00 E1 C1 FE 05 CA 85 42 B7 C2 80 42 E5 2A 91 ........B...B.*.
023460: 43 11 21 00 19 CD E9 36 2B 2B 13 CD E4 36 E1 11 C.!....6++...6..
023470: 80 00 19 05 C2 41 42 3A 90 43 F6 40 32 90 43 C9 .....AB:.C.@2.C.
023480: 3E 0E C3 B3 42 3E 0F C3 B3 42 2A 8A 43 EB 0E 05 >...B>...B*.C...
023490: 21 8C 43 CD 78 38 C9 CD 8A 42 2A 2A 43 F9 E1 23 !.C.x8...B**C..#
0234A0: 23 23 E5 2A 24 43 44 4D 2A 26 43 EB 2A 28 43 3A ##.*$CDM*&C.*(C:
0234B0: 23 43 C9 32 23 43 2A 2A 43 F9 C3 A3 42 3A 88 43 #C.2#C**C..£B:.C
0234C0: FE 80 CA 0C 43 FE FF CA D5 42 78 B1 C8 7E 12 13 ....C....Bx..~..
0234D0: 23 0B C3 CA 42 7E FE 0A C2 E1 42 23 0B 78 B1 C8 #...B~....B#.x..
0234E0: 7E FE 1A C2 EB 42 3E 0B C3 B3 42 78 B1 C8 7E FE ~....B>...Bx..~.
0234F0: 0A CA 00 43 FE 0D CA 05 43 FE 1A CA 06 43 12 13 ...C....C....C..
023500: 37 D1 C1 C9 C5 D5 E5 7E B7 CA 29 39 1A BE C2 1C 7......~..)9....
023510: 39 23 13 1A B7 C2 07 39 E1 C3 2B 39 E1 23 7E B7 9#.....9..+9.#~.
023520: CA 2A 39 D1 D5 E5 C3 07 39 E1 3D D1 C1 C9 C5 0E .*9.....9.=.....
023530: 00 BE CA 3A 39 23 0C C2 31 39 79 B7 C1 C9 C5 D5 ...:9#..19y.....
023540: 7E 12 2B 1B 0D C2 40 39 D1 C1 C9 C5 CD 84 36 DA ~.+...@9......6.
023550: 54 39 E6 5F 4F 7E B9 CA 61 39 23 7E B7 C2 56 39 T9._O~..a9#~..V9
023560: 3D C1 C9 2A 54 3A 7E B7 C9 2A 54 3A 23 22 54 3A =..*T:~..*T:#"T:
023570: 7E B7 C9 2A 54 3A 7E FE 20 C2 80 39 23 C3 76 39 ~..*T:~. ..9#.v9
023580: FE 09 C2 89 39 23 C3 76 39 22 54 3A B7 C9 22 54 ....9#.v9"T:.."T
023590: 3A C9 21 56 82 22 54 3A C9 C5 0E 00 CD 92 39 2A :.!V."T:......9*
0235A0: 54 3A CD 78 35 F5 81 4F F1 2A 54 3A 3D CD BB 36 T:.x5..O.*T:=..6
0235B0: 7E FE 3B C2 C3 39 36 20 23 22 54 3A CD 1B 36 0D ~.;..96 #"T:..6.
0235C0: C3 9F 39 CD 92 39 79 C1 B7 C9 C5 D5 32 56 3A CD ..9..9y.....2V:.
0235D0: 92 39 EB 01 00 01 3A 56 3A CD 0D 3C 08 C3 FE 39 .9....:V:..<...9
0235E0: AF 12 21 56 83 CD D8 36 44 4D 1B 03 1A FE 3B CA ..!V...6DM....;.
0235F0: D6 39 CD 63 39 FE 1A CA 03 3A B7 C3 08 3A FE 0B .9.c9....:...:..
023600: C2 35 3A AF 32 56 82 37 D1 C1 C9 21 56 82 CD 28 .5:.2V.7...!V..(
023610: 36 C9 C5 D5 F5 AF 21 56 82 01 00 01 CD 13 37 36 6.....!V......76
023620: 0D 23 36 0A 01 00 01 11 56 82 F1 CD 0D 3C 09 C3 .#6.....V....<..
023630: 35 3A D1 C1 C9 CD 70 3B C3 7E 44 CD 5D 3B C8 CD 5:....p;.~D.];..
023640: 8E 3A FE 13 CA 4E 3A FE 1B C2 3B 3A B7 C9 CD 8E .:...N:...;:....
023650: 3A AF C9 00 56 82 00 00 0E 19 CD 05 00 3C 32 5A :...V........<2Z
023660: 44 C9 3A 78 43 B7 CA 70 3A F5 AF 32 78 43 F1 C9 D.:xC..p:..2xC..
023670: CD 7C 3A C3 62 3A 59 0E 06 C3 05 00 3A 78 43 B7 .|:.b:Y.....:xC.
023680: C0 1E FF 0E 06 CD 05 00 B7 C8 32 78 43 C9 C5 D5 ..........2xC...
023690: E5 CD 62 3A E6 7F FE 10 C2 A6 3A 3A 83 43 EE FF ..b:......::.C..
0236A0: 32 83 43 C3 91 3A E1 D1 C1 C9 C5 D5 E5 FE 09 C2 2.C..:..........
0236B0: BF 3A 3E 20 CD C6 3A 3A 2C 43 E6 07 C2 B2 3A CD .:> ..::,C....:.
0236C0: C6 3A E1 D1 C1 C9 F5 47 3A 7E 43 B7 CA E2 3A 78 .:.....G:~C...:x
0236D0: FE 7F C2 DE 3A CD 70 01 F1 3E 5F C3 F9 3A 4F CD ....:.p..>_..:O.
0236E0: 76 3A F1 FE 20 DA EF 3A 21 2C 43 34 C3 F9 3A FE v:.. ..:!,C4..:.
0236F0: 0D C2 F9 3A 21 2C 43 36 00 4F 3A 83 43 B7 C8 79 ...:!,C6.O:.C..y
023700: 23 0B C3 EB 42 23 3E FF 32 7C 43 C9 78 B1 C8 7E #...B#>.2|C.x..~
023710: 12 13 0B 23 FE 0A CA 1C 43 C3 0C 43 3E FF 32 7C ...#....C..C>.2|
023720: 43 C9 00 00 00 00 00 00 00 00 00 00 00 00 00 00 C...............
023730: 00 00 44 42 41 53 45 4F 56 52 43 4F 4D 00 00 00 ..DBASEOVRCOM...
023740: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023750: 00 00 00 44 42 41 53 45 4F 56 52 43 4F 4D 00 00 ...DBASEOVRCOM..
023760: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023770: 00 00 00 00 00 00 00 00 00 1A 00 00 00 00 FF 00 ................
023780: 00 00 00 00 00 00 13 44 00 00 00 00 00 00 00 00 .......D........
023790: 00 00 00 00 00 00 00 00 00 60 93 00 00 00 00 00 .........`......
0237A0: 00 84 93 00 00 00 00 00 00 A8 93 00 00 00 00 00 ................
0237B0: 00 CC 93 00 00 00 00 00 00 F0 93 00 00 00 00 00 ................
0237C0: 00 14 94 00 00 00 00 00 00 38 94 00 00 00 00 00 .........8......
0237D0: 00 5C 94 00 00 00 00 00 00 80 94 00 00 00 00 00 .\..............
0237E0: 00 A4 94 00 00 00 00 00 00 C8 94 00 00 00 00 00 ................
0237F0: 00 EC 94 00 00 00 00 00 00 10 95 00 00 00 00 00 ................
023800: 00 34 95 00 00 00 00 00 00 58 95 00 00 00 00 00 .4.......X......
023810: 00 7C 95 00 00 00 60 83 00 00 00 00 00 60 85 00 .|....`......`..
023820: 00 00 00 00 60 87 00 00 00 00 00 60 89 00 00 00 ....`......`....
023830: 00 00 60 8B 00 00 00 00 00 60 8D 00 00 00 00 00 ..`......`......
023840: 60 8F 00 00 00 00 00 60 91 00 00 FF 00 00 00 00 `......`........
023850: 00 FF F8 A3 00 00 00 FF 00 00 00 00 00 00 00 00 ...£............
023860: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023870: FF 00 00 00 00 FF 00 00 00 00 FF 00 00 FF 21 5D ..............!]
023880: 44 7E B7 CA 9B 44 3D 35 21 5E 44 CD BB 36 7E CD D~...D=5!^D..6~.
023890: 40 27 CD 45 25 CD 4D 2F C3 7E 44 21 73 44 7E CD @'.E%.M/.~D!sD~.
0238A0: 40 27 36 00 CD 45 25 21 4D 44 7E CD 40 27 36 00 @'6..E%!MD~.@'6.
0238B0: CD 45 25 AF 32 5C 44 AF 32 74 44 32 55 44 CD 61 .E%.2\D.2tD2UD.a
0238C0: 27 3E 01 21 00 45 C3 C7 3B 00 00 00 00 00 00 00 '>.!.E..;.......
0238D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0238E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0238F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023900: F5 59 0E 05 CD 05 00 F1 FE 20 DA 12 3B 21 2E 43 .Y....... ..;!.C
023910: 34 C9 FE 0A C0 21 2E 43 36 00 21 2F 43 34 3A 61 4....!.C6.!/C4:a
023920: 01 B7 C8 1E 20 0E 05 F5 CD 05 00 F1 3D C3 21 3B .... .......=.!;
023930: 3A 83 43 B7 CA 45 3B 1E 0D 0E 05 CD 05 00 1E 0C :.C..E;.........
023940: 0E 05 CD 05 00 AF 32 2F 43 32 2E 43 C9 3A 2F 43 ......2/C2.C.:/C
023950: C9 3A 2E 43 C9 32 7E 43 C9 3A 7E 43 C9 C5 D5 E5 .:.C.2~C.:~C....
023960: CD 7C 3A B7 E1 D1 C1 C9 3A 83 43 C9 32 83 43 C9 .|:.....:.C.2.C.
023970: C5 D5 32 30 43 CD 81 3F 3A 30 43 B7 1F 32 51 43 ..20C..?:0C..2QC
023980: 11 31 43 0E 14 CD 05 00 21 80 00 3A 30 43 1F D2 .1C.....!..:0C..
023990: 95 3B 21 C0 00 CD 2B 36 D1 C1 C9 CD 81 3F 11 31 .;!...+6.....?.1
0239A0: 43 0E 0F CD 05 00 FE FF C8 11 31 43 0E 14 CD 05 C.........1C....
0239B0: 00 11 A0 95 21 80 00 0E 1C CD 78 38 11 52 43 0E ....!.....x8.RC.
0239C0: 0F CD 05 00 FE FF C9 22 7F 43 87 21 A0 95 CD BB .......".C.!....
0239D0: 36 5E 16 00 23 4E EB 79 87 4F 29 22 73 43 21 00 6^..#N.y.O)"sC!.
0239E0: 45 22 81 43 EB C5 0E 1A CD 05 00 11 52 43 0E 21 E".C........RC.!
0239F0: CD 05 00 C1 0D CA 09 3C 2A 73 43 23 22 73 43 2A .......<*sC#"sC*
023A00: 81 43 11 80 00 19 C3 E1 3B 2A 7F 43 E9 32 7D 43 .C......;*.C.2}C
023A10: 22 28 43 EB 22 26 43 EB 60 69 22 24 43 21 00 00 "(C."&C.`i"$C!..
023A20: 39 22 2A 43 E1 7E 23 E5 CD B2 36 47 3C 47 3C FC 9"*C.~#...6G<G<.
023A30: 3C 24 3D 38 3D 74 3D 96 3D BE 3D 4B 3D 5F 3D E2 <$=8=t=.=.=K=_=.
023A40: 3D FF 3D 35 3E B8 3E CD 8A 3F 0E 00 21 93 43 22 =.=5>.>..?..!.C"
023A50: 91 43 7E FE 01 C2 5E 3C CD E2 40 CA DE 3C FE FF .C~...^<..@..<..
023A60: C2 76 3C 3A 7D 43 E6 40 CA 76 3C CD E2 40 C2 76 .v<:}C.@.v<..@.v
023A70: 3C 3E 0A C3 B3 42 0C 79 FE 10 D2 87 3C 2A 91 43 <>...B.y....<*.C
023A80: 11 08 00 19 C3 4F 3C CD 81 3F CD 5B 41 3C 32 23 .....O<..?.[A<2#
023A90: 43 2A 91 43 EB 21 5C 00 0E 24 CD 78 38 0E 0F 2A C*.C.!\..$.x8..*
023AA0: 91 43 EB CD 05 00 FE FF C2 CA 3C 3A 7D 43 B7 F2 .C........<:}C..
023AB0: C5 3C 0E 16 2A 91 43 EB CD 05 00 FE FF C2 CA 3C .<..*.C........<
023AC0: 3E 0E C3 B3 42 3E 08 C3 B3 42 2A 91 43 11 0E 00 >...B>...B*.C...
023AD0: 19 7E E6 7F 77 2A 8A 43 2B 36 FF C3 97 42 79 3C .~..w*.C+6...By<
023AE0: 32 23 43 21 00 00 22 8C 43 22 8E 43 AF 32 90 43 2#C!..".C".C.2.C
023AF0: 2A 91 43 36 FF 23 22 8A 43 C3 97 42 CD 8A 3F CD *.C6.#".C..B..?.
023B00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
023B10: 1E 00 01 00 02 09 4E E5 1E 00 41 02 00 00 00 02 ......N...A.....
023B20: 1E 00 46 02 00 00 00 02 1E 00 42 02 00 00 00 02 ..F.......B.....
023B30: 1E 00 47 02 00 00 00 02 1E 00 43 02 00 00 00 02 ..G.......C.....
023B40: 1E 00 48 02 00 00 00 02 1E 00 44 02 00 00 00 02 ..H.......D.....
023B50: 1E 00 49 02 00 00 00 02 1E 00 45 02 00 00 00 02 ..I.......E.....
023B60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023B70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023B80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023B90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023BA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023BB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023BC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023BD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023BE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023BF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023C00: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023C10: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023C20: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023C30: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023C40: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023C50: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023C60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023C70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023C80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023C90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023CA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023CB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023CC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023CD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023CE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023CF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023D00: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023D10: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023D20: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023D30: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023D40: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023D50: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023D60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023D70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023D80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023D90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023DA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023DB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023DC0: 00 00 00 00 00 00 00 00 00 31 BC 96 CD 58 3A 2A .........1...X:*
023DD0: 06 00 11 F8 A3 CD C0 36 CA C4 47 DA C4 47 21 E7 ....£..6..G..G!.
023DE0: 46 CD 28 36 C3 00 00 49 4E 53 55 46 46 49 43 49 F.(6...INSUFFICI
023DF0: 45 4E 54 20 4D 45 4D 4F 52 59 20 49 4E 20 53 59 ENT MEMORY IN SY
023E00: 0D 0A 2A 2A 2A 20 43 45 20 46 49 43 48 49 45 52 ..*** CE FICHIER
023E10: 20 4E 27 45 58 49 53 54 45 20 50 41 53 20 2A 2A N'EXISTE PAS **
023E20: 2A 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 *...............
023E30: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023E40: 0D 0A 2A 2A 2A 20 45 52 52 45 55 52 20 49 4E 54 ..*** ERREUR INT
023E50: 45 52 4E 45 20 20 43 4F 4E 54 41 43 54 45 5A 20 ERNE CONTACTEZ
023E60: 56 4F 54 52 45 20 46 4F 55 52 4E 49 53 53 45 55 VOTRE FOURNISSEU
023E70: 52 20 2A 2A 2A 00 00 00 00 00 00 00 00 00 00 00 R ***...........
023E80: 0D 0A 2A 2A 2A 20 46 49 43 48 49 45 52 20 45 4E ..*** FICHIER EN
023E90: 20 43 4F 55 52 53 20 44 27 55 54 49 4C 49 53 41 COURS D'UTILISA
023EA0: 54 49 4F 4E 20 2A 2A 2A 00 00 00 00 00 00 00 00 TION ***........
023EB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023EC0: 0D 0A 2A 2A 2A 20 46 49 4E 20 44 45 20 46 49 43 ..*** FIN DE FIC
023ED0: 48 49 45 52 20 49 4E 41 54 54 45 4E 44 55 45 20 HIER INATTENDUE
023EE0: 2A 2A 2A 00 00 00 00 00 00 00 00 00 00 00 00 00 ***.............
023EF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023F00: 0D 0A 2A 2A 2A 20 45 4E 52 45 47 49 53 54 52 45 ..*** ENREGISTRE
023F10: 4D 45 4E 54 20 4E 4F 4E 20 53 49 54 55 45 20 2A MENT NON SITUE *
023F20: 2A 2A 00 00 00 00 00 00 00 00 00 00 00 00 00 00 **..............
023F30: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023F40: 0D 0A 2A 2A 2A 20 54 52 4F 50 20 44 45 20 46 49 ..*** TROP DE FI
023F50: 43 48 49 45 52 53 20 53 4F 4E 54 20 4F 55 56 45 CHIERS SONT OUVE
023F60: 52 54 53 20 2A 2A 2A 00 00 00 00 00 00 00 00 00 RTS ***.........
023F70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023F80: 0D 0A 2A 2A 2A 20 44 45 50 41 53 53 45 4D 45 4E ..*** DEPASSEMEN
023F90: 54 20 44 45 20 4C 41 20 43 41 50 41 43 49 54 45 T DE LA CAPACITE
023FA0: 20 44 55 20 44 49 53 51 55 45 20 2A 2A 2A 00 00 DU DISQUE ***..
023FB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023FC0: 0D 0A 2A 2A 2A 20 44 45 50 41 53 53 45 4D 45 4E ..*** DEPASSEMEN
023FD0: 54 20 44 55 20 4E 4F 4D 42 52 45 20 4D 41 58 49 T DU NOMBRE MAXI
023FE0: 4D 55 4D 20 44 45 20 46 49 43 48 49 45 52 53 20 MUM DE FICHIERS
023FF0: 53 55 52 20 44 49 53 51 55 45 20 2A 2A 2A 00 00 SUR DISQUE ***..
024000: 53 54 45 4D 2C 20 64 42 41 53 45 20 52 45 51 55 STEM, dBASE REQU
024010: 49 52 45 53 0A 0D 41 54 20 4C 45 41 53 54 20 34 IRES..AT LEAST 4
024020: 31 39 38 34 20 42 59 54 45 53 20 28 30 41 34 30 1984 BYTES (0A40
024030: 30 20 48 45 58 29 20 4F 46 20 4D 45 4D 4F 52 59 0 HEX) OF MEMORY
024040: 20 49 4E 0A 0D 49 4E 20 41 44 44 49 54 49 4F 4E IN..IN ADDITION
024050: 20 54 4F 20 54 48 45 20 53 49 5A 45 20 4F 46 20 TO THE SIZE OF
024060: 54 48 45 20 4F 50 45 52 41 54 49 4E 47 20 53 59 THE OPERATING SY
024070: 53 54 45 4D 0A 0D 64 42 41 53 45 20 57 49 4C 4C STEM..dBASE WILL
024080: 20 4F 50 45 52 41 54 45 20 4F 4E 20 4D 4F 53 54 OPERATE ON MOST
024090: 20 34 38 4B 20 43 50 2F 4D 20 28 74 6D 29 20 53 48K CP/M (tm) S
0240A0: 59 53 54 45 4D 53 0A 0D 54 48 41 54 20 48 41 56 YSTEMS..THAT HAV
0240B0: 45 20 41 20 53 54 41 4E 44 41 52 44 20 42 49 4F E A STANDARD BIO
0240C0: 53 0A 0D 00 00 00 00 00 00 00 00 00 00 00 00 00 S...............
0240D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0240E0: 00 00 00 00 CD 20 29 AF 32 41 97 3A 80 00 B7 CA ..... ).2A.:....
0240F0: 2E 48 21 81 00 CD 8E 39 CD BB 36 36 00 3E 01 CD .H!....9..66.>..
024100: AD 27 CD F0 2B DA 2E 48 3A 5D 44 21 5E 44 CD BB .'..+..H:]D!^D..
024110: 36 CD 3C 27 77 32 5C 44 21 5D 44 34 CD 36 2F CD 6.<'w2\D!]D4.6/.
024120: 9B 3B C2 4E 49 21 3D 48 CD 28 36 C3 00 00 CD 9B .;.NI!=H.(6.....
024130: 3B C2 6A 48 21 3D 48 CD 28 36 C3 00 00 4F 56 45 ;.jH!=H.(6...OVE
024140: 52 4C 41 59 20 46 49 4C 45 20 28 44 42 41 53 45 RLAY FILE (DBASE
024150: 4F 56 52 2E 43 4F 4D 29 20 43 41 4E 4E 4F 54 20 OVR.COM) CANNOT
024160: 42 45 20 4F 50 45 4E 45 44 00 AF 32 4E 44 32 4F BE OPENED..2ND2O
024170: 44 32 50 44 3E 76 CD 70 3B 3A 60 01 B7 CA 89 48 D2PD>v.p;:`....H
024180: 21 86 4A CD 28 36 C3 8F 48 21 94 4A CD 28 36 CD !.J.(6..H!.J.(6.
024190: 99 39 CD 73 39 CA 4E 49 CD FF 37 7B 32 4E 44 32 .9.s9.NI..7{2ND2
0241A0: 84 4A CD 8E 39 CD 69 39 CD FF 37 7B 32 4F 44 32 .J..9.i9..7{2OD2
0241B0: 83 4A CD 8E 39 CD 69 39 FE 19 C2 C2 48 3E FF C3 .J..9.i9....H>..
0241C0: C6 48 CD FF 37 7B 32 50 44 32 85 4A 3A 60 01 B7 .H..7{2PD2.J:`..
0241D0: CA E1 48 3A 83 4A 47 3A 84 4A 32 83 4A 78 32 84 ..H:.JG:.J2.Jx2.
0241E0: 4A 3A 84 4A B7 CA 6A 48 FA 6A 48 FE 0D D2 6A 48 J:.J..jH.jH...jH
0241F0: 3A 83 4A B7 CA AF 49 3A 84 4A FE 04 CA 1E 49 FE :.J...I:.J....I.
024200: 0D 0A 2A 2A 2A 20 43 45 20 46 49 43 48 49 45 52 ..*** CE FICHIER
024210: 20 45 58 49 53 54 45 20 44 45 4A 41 20 2A 2A 2A EXISTE DEJA ***
024220: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024230: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024240: 0D 0A 2A 2A 2A 20 45 4E 52 45 47 49 53 54 52 45 ..*** ENREGISTRE
024250: 4D 45 4E 54 20 4E 4F 4E 20 54 52 4F 55 56 45 20 MENT NON TROUVE
024260: 2A 2A 2A 00 00 00 00 00 00 00 00 00 00 00 00 00 ***.............
024270: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024280: 0D 0A 2A 2A 2A 20 44 45 50 41 53 53 45 4D 45 4E ..*** DEPASSEMEN
024290: 54 20 44 55 20 4E 4F 4D 42 52 45 20 4D 41 58 49 T DU NOMBRE MAXI
0242A0: 4D 55 4D 20 44 45 20 56 41 52 49 41 42 4C 45 53 MUM DE VARIABLES
0242B0: 20 4D 45 4D 4F 49 52 45 20 2A 2A 2A 00 00 00 00 MEMOIRE ***....
0242C0: 0D 0A 2A 2A 2A 20 44 45 50 41 53 53 45 4D 45 4E ..*** DEPASSEMEN
0242D0: 54 20 44 45 20 4C 41 20 50 4C 41 43 45 20 41 4C T DE LA PLACE AL
0242E0: 4C 4F 55 45 45 20 41 55 58 20 56 41 52 49 41 42 LOUEE AUX VARIAB
0242F0: 4C 45 53 20 4D 45 4D 4F 49 52 45 20 2A 2A 2A 00 LES MEMOIRE ***.
024300: 0D 0A 2A 2A 2A 20 4E 4F 4D 20 44 45 20 56 41 52 ..*** NOM DE VAR
024310: 49 41 42 4C 45 20 49 4E 43 4F 52 52 45 43 54 45 IABLE INCORRECTE
024320: 20 2A 2A 2A 00 00 00 00 00 00 00 00 00 00 00 00 ***............
024330: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024340: 0D 0A 2A 2A 2A 20 54 52 4F 50 20 44 45 20 43 41 ..*** TROP DE CA
024350: 52 41 43 54 45 52 45 53 20 2A 2A 2A 00 00 00 00 RACTERES ***....
024360: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024370: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024380: 0D 0A 2A 2A 2A 20 41 55 43 55 4E 45 20 42 41 53 ..*** AUCUNE BAS
024390: 45 20 4E 27 45 53 54 20 55 54 49 4C 49 53 45 45 E N'EST UTILISEE
0243A0: 2C 20 44 4F 4E 4E 45 5A 20 53 4F 4E 20 4E 4F 4D , DONNEZ SON NOM
0243B0: 20 3A 20 00 00 00 00 00 00 00 00 00 00 00 00 00 : .............
0243C0: 0D 0A 2A 2A 2A 20 43 45 20 4E 27 45 53 54 20 50 ..*** CE N'EST P
0243D0: 41 53 20 55 4E 45 20 42 41 53 45 20 44 45 20 44 AS UNE BASE DE D
0243E0: 4F 4E 4E 45 45 20 44 45 20 44 42 41 53 45 49 49 ONNEE DE DBASEII
0243F0: 20 2A 2A 2A 00 00 00 00 00 00 00 00 00 00 00 00 ***............
024400: 06 CA 1E 49 FE 09 CA 1E 49 FE 0B CA 1E 49 FE 02 ...I....I....I..
024410: CA 29 49 3A 83 4A FE 20 D2 AF 49 C3 31 49 3A 83 .)I:.J. ..I.1I:.
024420: 4A FE 1F D2 AF 49 C3 31 49 3A 83 4A FE 1E D2 AF J....I.1I:.J....
024430: 49 3A 85 4A FE FF CC 25 4A E6 03 CA 4E 49 3A 84 I:.J...%J...NI:.
024440: 4A FE 02 C2 4E 49 3A 83 4A FE 1D D2 AF 49 CD 1B J...NI:.J....I..
024450: 36 CD 1B 36 21 5A 49 C3 92 49 86 DE E0 F2 E4 D2 6..6!ZI..I......
024460: CE D0 E8 40 50 86 52 40 62 72 70 64 40 A4 A6 A0 ...@P.R@brpd@...
024470: 40 92 DC C6 5C 1A 14 1A 14 54 54 54 40 40 C8 84 @...\....TTT@@..
024480: 82 A6 8A 40 92 92 40 40 40 40 40 AC CA E4 40 64 ...@..@@@@@...@d
024490: 5C 00 7E B7 CA 9F 49 1F CD AA 3A 23 C3 92 49 21 \.~...I...:#..I!
0244A0: A2 4A CD 2B 36 3A 5C 44 B7 C2 B7 44 C3 B3 44 CD .J.+6:\D...D..D.
0244B0: 1B 36 21 BB 49 CD 28 36 C3 6A 48 54 68 69 72 74 .6!.I.(6.jHThirt
0244C0: 79 20 64 61 79 73 20 68 61 74 68 20 53 65 70 74 y days hath Sept
0244D0: 65 6D 62 65 72 0D 0A 41 70 72 69 6C 2C 20 4A 75 ember..April, Ju
0244E0: 6E 65 20 61 6E 64 20 4E 6F 76 65 6D 62 65 72 0D ne and November.
0244F0: 0A 41 6C 6C 20 74 68 65 20 72 65 73 74 20 68 61 .All the rest ha
024500: 76 65 20 74 68 69 72 74 79 20 6F 6E 65 0D 0A 45 ve thirty one..E
024510: 78 63 65 70 74 20 46 65 62 72 75 61 72 79 20 2E xcept February .
024520: 2E 2E 0D 0A 00 45 52 52 4F 52 00 21 01 01 11 36 .....ERROR.!...6
024530: 4A EB 21 5D 4A D5 45 52 52 4F 52 00 11 4B 4A D5 J.!]J.ERROR..KJ.
024540: 7E C6 40 FE 40 CA 4F 4A C2 AA 3A 23 C3 3C 4A D1 ~.@.@.OJ..:#.<J.
024550: E3 23 23 7E 23 66 6F CD 35 36 C3 00 00 CA 04 02 .##~#fo.56......
024560: 01 13 05 E0 E8 03 E9 E0 F1 F9 F8 F2 E0 12 13 10 ................
024570: E0 09 2E 23 EE E0 13 05 12 E0 E3 ED 00 45 52 52 ...#.........ERR
024580: 4F 52 00 00 00 00 20 28 4A 4A 2F 4D 4D 2F 41 41 OR.... (JJ/MM/AA
024590: 29 20 3A 00 20 28 4D 4D 2F 4A 4A 2F 41 41 29 20 ) :. (MM/JJ/AA)
0245A0: 3A 00 34 20 20 31 20 41 76 72 69 6C 2C 20 31 39 :.4 1 Avril, 19
0245B0: 38 33 0D 0A 0A 20 46 72 61 70 70 65 7A 20 27 48 83... Frappez 'H
0245C0: 45 4C 50 27 2C 20 27 48 45 4C 50 20 64 42 41 53 ELP', 'HELP dBAS
0245D0: 45 27 2C 20 6F 75 20 27 48 45 4C 50 20 3C 63 6F E', ou 'HELP <co
0245E0: 6D 6D 61 6E 64 65 3E 27 20 20 0D 0A 00 00 00 00 mmande>' ......
0245F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024600: 0D 0A 2A 2A 2A 20 44 45 50 41 53 53 45 4D 45 4E ..*** DEPASSEMEN
024610: 54 20 44 55 20 4E 4F 4D 42 52 45 20 4D 41 58 49 T DU NOMBRE MAXI
024620: 4D 55 4D 20 44 27 55 54 49 4C 49 53 41 54 45 55 MUM D'UTILISATEU
024630: 52 53 20 2A 2A 2A 00 00 00 00 00 00 00 00 00 00 RS ***..........
024640: 0D 0A 2A 2A 2A 20 45 52 52 45 55 52 20 53 59 53 ..*** ERREUR SYS
024650: 54 45 4D 45 20 44 27 45 4E 54 52 45 45 2F 53 4F TEME D'ENTREE/SO
024660: 52 54 49 45 20 2A 2A 2A 00 00 00 00 00 00 00 00 RTIE ***........
024670: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024680: 20 45 4E 52 45 47 49 53 54 52 45 4D 45 4E 54 28 ENREGISTREMENT(
024690: 53 29 20 20 41 4A 4F 55 54 45 28 53 29 00 00 00 S) AJOUTE(S)...
0246A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0246B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 20 ...............
0246C0: 0D 0A 2A 2A 2A 20 41 42 41 4E 44 4F 4E 20 44 55 ..*** ABANDON DU
0246D0: 20 54 52 41 49 54 45 4D 45 4E 54 20 45 4E 20 43 TRAITEMENT EN C
0246E0: 4F 55 52 53 20 2A 2A 2A 00 00 00 00 00 00 00 00 OURS ***........
0246F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024700: 0D 0A 2A 2A 2A 20 44 45 46 49 4E 49 54 49 4F 4E ..*** DEFINITION
024710: 20 49 4E 43 4F 52 52 45 43 54 45 20 44 55 20 4E INCORRECTE DU N
024720: 4F 4D 20 44 55 20 43 48 41 4D 50 20 2A 2A 2A 00 OM DU CHAMP ***.
024730: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024740: 0D 0A 2A 2A 2A 20 44 45 46 49 4E 49 54 49 4F 4E ..*** DEFINITION
024750: 20 49 4E 43 4F 52 52 45 43 54 45 20 44 55 20 54 INCORRECTE DU T
024760: 59 50 45 20 44 45 20 43 48 41 4D 50 20 2A 2A 2A YPE DE CHAMP ***
024770: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024780: 0D 0A 2A 2A 2A 20 44 45 46 49 4E 49 54 49 4F 4E ..*** DEFINITION
024790: 20 49 4E 43 4F 52 52 45 43 54 45 20 44 55 20 4E INCORRECTE DU N
0247A0: 4F 4D 42 52 45 20 44 45 20 44 45 43 49 4D 41 4C OMBRE DE DECIMAL
0247B0: 45 28 53 29 20 2A 2A 2A 00 00 00 00 00 00 00 00 E(S) ***........
0247C0: 0D 0A 2A 2A 2A 20 44 45 46 49 4E 49 54 49 4F 4E ..*** DEFINITION
0247D0: 20 49 4E 43 4F 52 52 45 43 54 45 20 44 45 20 4C INCORRECTE DE L
0247E0: 41 20 44 49 4D 45 4E 53 49 4F 4E 20 44 55 20 43 A DIMENSION DU C
0247F0: 48 41 4D 50 20 2A 2A 2A 00 00 00 00 00 00 00 00 HAMP ***........
024800: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024810: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024820: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024830: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024840: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024850: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024860: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024870: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024880: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024890: 00 00 00 00 00 00 00 00 00 00 1A 1A 1A 1A 1A 1A ................
0248A0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0248B0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0248C0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0248D0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0248E0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0248F0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
024900: 00 00 00 00 00 00 00 00 05 1B 59 37 20 0F 00 00 ..........Y7 ...
024910: 00 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 ................
024920: 50 18 50 00 1C 1D 1E 1F 53 5C 44 5D 45 5E 58 5F P.P.....S\D]E^X_
024930: 00 00 03 08 20 08 03 02 20 04 1B 3D 00 00 00 00 .... ... ..=....
024940: 00 00 00 00 00 02 1B 28 00 00 00 02 1B 29 00 00 .......(.....)..
024950: 00 02 1B 29 00 00 00 02 1B AA 00 00 00 00 00 00 ...)............
024960: 00 00 00 04 1B 3D 37 20 00 00 00 00 00 00 00 01 .....=7 ........
024970: 00 00 00 00 00 00 00 00 00 00 00 28 18 50 00 08 ...........(.P..
024980: 0C 0B 0A 00 00 01 08 00 00 01 02 00 03 1B 00 00 ................
024990: 00 00 00 00 00 00 00 00 01 00 00 00 00 00 01 00 ................
0249A0: 00 00 00 00 01 00 00 00 00 00 01 04 00 00 00 00 ................
0249B0: 00 00 00 00 00 00 03 1B 01 18 00 00 00 00 00 00 ................
0249C0: 00 00 01 00 00 00 00 00 00 00 00 00 00 00 50 18 ..............P.
0249D0: 50 00 08 0C 0B 0A 00 00 03 08 20 08 03 02 20 04 P......... ... .
0249E0: 1B 59 00 00 00 00 00 00 00 00 00 01 00 00 00 00 .Y..............
0249F0: 00 01 00 00 00 00 00 01 00 00 00 00 00 01 0C 00 ................
024A00: 0D 0A 2A 2A 2A 20 56 4F 55 4C 45 5A 2D 56 4F 55 ..*** VOULEZ-VOU
024A10: 53 20 45 46 46 41 43 45 52 20 4C 45 20 46 49 43 S EFFACER LE FIC
024A20: 48 49 45 52 20 45 58 49 53 54 41 4E 54 20 28 59 HIER EXISTANT (Y
024A30: 2F 4E 29 20 3F 20 00 00 00 00 00 00 00 00 00 00 /N) ? ..........
024A40: 0D 0A 2A 2A 2A 20 43 45 54 54 45 20 43 4F 4D 4D ..*** CETTE COMM
024A50: 41 4E 44 45 20 4E 45 20 50 45 55 54 20 45 54 52 ANDE NE PEUT ETR
024A60: 45 20 55 54 49 4C 49 53 45 45 20 2A 2A 2A 00 00 E UTILISEE ***..
024A70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024A80: 0D 0A 2A 2A 20 43 4F 4D 50 54 45 55 52 20 3D 20 ..** COMPTEUR =
024A90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024AA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024AB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024AC0: 0D 0A 44 4F 4E 4E 45 5A 20 4C 41 20 53 54 52 55 ..DONNEZ LA STRU
024AD0: 43 54 55 52 45 20 44 45 20 4C 27 45 4E 52 45 47 CTURE DE L'ENREG
024AE0: 49 53 54 52 45 4D 45 4E 54 20 53 45 4C 4F 4E 20 ISTREMENT SELON
024AF0: 4C 45 20 46 4F 52 4D 41 54 20 3A 20 00 00 00 00 LE FORMAT : ....
024B00: 0D 0A 43 48 41 4D 50 20 20 20 20 4E 4F 4D 2C 54 ..CHAMP NOM,T
024B10: 59 50 45 2C 44 49 4D 45 4E 53 49 4F 4E 2C 44 45 YPE,DIMENSION,DE
024B20: 43 49 4D 41 4C 45 28 53 29 00 00 00 00 00 00 00 CIMALE(S).......
024B30: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024B40: 0D 0A 2A 2A 2A 20 56 4F 55 4C 45 5A 2D 43 4F 4D ..*** VOULEZ-COM
024B50: 4D 45 4E 43 45 52 20 4C 41 20 53 41 49 53 49 45 MENCER LA SAISIE
024B60: 20 28 59 2F 4E 29 20 3F 20 00 00 00 00 00 00 00 (Y/N) ? .......
024B70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024B80: 0D 0A 2A 2A 2A 20 4C 41 20 4D 41 43 52 4F 2D 49 ..*** LA MACRO-I
024B90: 4E 53 54 52 55 43 54 49 4F 4E 20 4E 27 45 53 54 NSTRUCTION N'EST
024BA0: 20 50 41 53 20 55 4E 45 20 43 48 41 49 4E 45 20 PAS UNE CHAINE
024BB0: 44 45 20 43 41 52 41 43 54 45 52 45 53 20 2A 00 DE CARACTERES *.
024BC0: 20 45 4E 52 45 47 49 53 54 52 45 4D 45 4E 54 28 ENREGISTREMENT(
024BD0: 53 29 20 54 52 41 4E 53 46 45 52 45 28 53 29 00 S) TRANSFERE(S).
024BE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024BF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 20 ...............
024C00: 01 1F 20 1B 3B 12 4D 12 5F 03 62 0D 6F 0D 7C 06 .. .;.M._.b.o.|.
024C10: 82 05 87 02 89 04 8D 04 91 05 96 07 00 00 00 00 ................
024C20: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024C30: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024C40: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024C50: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024C60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024C70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0F 05 ................
024C80: CD 1C 05 EB 79 C5 CD A0 13 C1 CD 40 04 F1 D8 E1 ....y......@....
024C90: C9 21 37 19 09 7E 23 66 6F C9 21 17 19 C3 16 05 .!7..~#fo.!.....
024CA0: D5 CD 1C 05 CD 30 05 CD 49 05 EB D1 B5 C9 EB 21 .....0..I......!
024CB0: 1F 19 CD 16 05 EB C9 D5 CD 13 05 CD 30 05 CD 49 ............0..I
024CC0: 05 CD 1C 05 19 D1 C9 7D 93 5F 7C 9A 57 C9 3E 01 .......}._|.W.>.
024CD0: 32 0B 19 2A 37 19 EB 2A 39 19 CD 49 05 DA 77 05 2..*7..*9..I..w.
024CE0: 2A 17 19 19 EB 2A 23 19 3A 0C 19 B7 CA 77 05 CD *....*#.:....w..
024CF0: 07 0A D2 8B 05 2A 17 19 EB 2A 23 19 CD 49 05 1F .....*...*#..I..
024D00: 1A 64 42 41 53 45 20 49 49 20 43 4F 50 59 52 49 .dBASE II COPYRI
024D10: 47 48 54 20 28 43 29 20 31 39 38 32 20 42 59 20 GHT (C) 1982 BY
024D20: 52 41 54 4C 49 46 46 20 53 4F 46 54 57 41 52 45 RATLIFF SOFTWARE
024D30: 20 50 52 4F 44 55 43 54 49 4F 4E 2C 20 49 4E 43 PRODUCTION, INC
024D40: 4F 52 50 4F 52 41 54 45 44 20 28 52 53 50 2C 20 ORPORATED (RSP,
024D50: 49 4E 43 2E 29 20 32 37 30 35 20 52 49 44 47 45 INC.) 2705 RIDGE
024D60: 50 49 4E 45 20 44 52 2C 20 4C 41 20 43 52 45 53 PINE DR, LA CRES
024D70: 43 45 4E 54 41 2C 20 43 41 20 39 31 32 31 34 E9 CENTA, CA 91214.
024D80: 0D 0A 2A 2A 2A 20 20 64 42 41 53 45 20 49 49 20 ..*** dBASE II
024D90: 4C 43 45 20 56 65 72 20 32 2E 00 C5 00 00 00 00 LCE Ver 2.......
024DA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024DB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024DC0: 0D 0A 2A 2A 2A 20 43 45 20 46 49 43 48 49 45 52 ..*** CE FICHIER
024DD0: 20 45 53 54 20 44 45 4A 41 20 4F 55 56 45 52 54 EST DEJA OUVERT
024DE0: 20 41 43 43 45 53 20 49 4D 50 4F 53 53 49 42 4C ACCES IMPOSSIBL
024DF0: 45 20 2A 2A 2A 00 00 00 00 00 00 00 00 00 00 00 E ***...........
024E00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
024E10: 1F 00 01 00 02 09 4E E5 1F 00 41 02 00 00 00 02 ......N...A.....
024E20: 1F 00 46 02 00 00 00 02 1F 00 42 02 00 00 00 02 ..F.......B.....
024E30: 1F 00 47 02 00 00 00 02 1F 00 43 02 00 00 00 02 ..G.......C.....
024E40: 1F 00 48 02 00 00 00 02 1F 00 44 02 00 00 00 02 ..H.......D.....
024E50: 1F 00 49 02 00 00 00 02 1F 00 45 02 00 00 00 02 ..I.......E.....
024E60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024E70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024E80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024E90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024EA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024EB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024EC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024ED0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024EE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024EF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024F00: 0D 0A 2A 2A 2A 20 4E 4F 4D 20 44 45 20 46 49 43 ..*** NOM DE FIC
024F10: 48 49 45 52 20 49 4E 43 4F 52 52 45 43 54 20 2A HIER INCORRECT *
024F20: 2A 2A 00 00 00 00 00 00 00 00 00 00 00 00 00 00 **..............
024F30: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024F40: 0D 0A 2A 2A 2A 20 43 45 20 46 49 43 48 49 45 52 ..*** CE FICHIER
024F50: 20 44 45 20 43 4F 4D 4D 41 4E 44 45 20 4E 27 45 DE COMMANDE N'E
024F60: 53 54 20 50 41 53 20 53 55 52 20 4C 27 55 4E 49 ST PAS SUR L'UNI
024F70: 54 45 20 41 43 54 49 56 45 20 2A 2A 2A 00 00 00 TE ACTIVE ***...
024F80: 0D 0A 2A 2A 2A 20 44 45 50 41 53 53 45 4D 45 4E ..*** DEPASSEMEN
024F90: 54 20 44 55 20 4E 4F 4D 42 52 45 20 4D 41 58 49 T DU NOMBRE MAXI
024FA0: 4D 55 4D 20 44 27 49 4D 42 52 49 43 41 54 49 4F MUM D'IMBRICATIO
024FB0: 4E 53 20 2A 2A 2A 00 00 00 00 00 00 00 00 00 00 NS ***..........
024FC0: 20 45 4E 52 45 47 49 53 54 52 45 4D 45 4E 54 28 ENREGISTREMENT(
024FD0: 53 29 20 45 46 46 41 43 45 28 53 29 00 00 00 00 S) EFFACE(S)....
024FE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024FF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 20 ...............
025000: 0D 0A 2A 2A 2A 20 46 49 4E 20 44 55 20 54 52 41 ..*** FIN DU TRA
025010: 49 54 45 4D 45 4E 54 20 64 42 41 53 45 20 49 49 ITEMENT dBASE II
025020: 20 76 65 72 73 69 6F 6E 20 4C 2E 43 2E 45 20 2A version L.C.E *
025030: 2A 2A 00 00 00 00 00 00 00 00 00 00 00 00 00 00 **..............
025040: 0D 0A 2A 2A 2A 20 54 52 4F 50 20 44 45 20 43 4F ..*** TROP DE CO
025050: 4D 4D 41 4E 44 45 53 20 27 52 45 54 55 52 4E 27 MMANDES 'RETURN'
025060: 20 52 45 4E 43 4F 4E 54 52 45 45 53 20 2A 2A 2A RENCONTREES ***
025070: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
025080: 0D 0A 2A 2A 45 4E 54 52 45 5A 20 4E 55 4D 2E 20 ..**ENTREZ NUM.
025090: 45 4E 52 45 2E 20 20 43 48 41 4D 50 28 4E 55 4D ENRE. CHAMP(NUM
0250A0: 2E 20 4F 55 20 4E 4F 4D 29 20 20 4E 4F 55 56 45 . OU NOM) NOUVE
0250B0: 4C 4C 45 20 56 41 4C 45 55 52 20 2A 2A 00 00 00 LLE VALEUR **...
0250C0: 0D 0A 2A 2A 2A 20 54 59 50 45 20 44 45 20 44 4F ..*** TYPE DE DO
0250D0: 4E 4E 45 45 53 20 49 4E 43 4F 52 52 45 43 54 45 NNEES INCORRECTE
0250E0: 20 2A 2A 2A 00 00 00 00 00 00 00 00 00 00 00 00 ***............
0250F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
025100: 0D 0A 44 45 53 49 52 45 5A 2D 56 4F 55 53 20 55 ..DESIREZ-VOUS U
025110: 4E 49 51 55 45 4D 45 4E 54 20 55 4E 20 52 45 53 NIQUEMENT UN RES
025120: 55 4D 45 20 44 55 20 52 41 50 50 4F 52 54 20 28 UME DU RAPPORT (
025130: 59 2F 4E 29 20 3F 20 00 00 00 00 00 00 00 00 00 Y/N) ? .........
025140: 0D 0A 2A 2A 2A 20 46 49 43 48 49 45 52 20 49 4E ..*** FICHIER IN
025150: 44 45 58 20 4E 4F 4E 20 54 52 4F 55 56 45 20 2A DEX NON TROUVE *
025160: 2A 2A 00 00 00 00 00 00 00 00 00 00 00 00 00 00 **..............
025170: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
025180: 0D 0A 2A 2A 2A 20 4C 41 20 56 41 52 49 41 42 4C ..*** LA VARIABL
025190: 45 20 45 53 54 20 49 4E 43 4F 52 52 45 43 54 45 E EST INCORRECTE
0251A0: 20 2A 2A 2A 00 00 00 00 00 00 00 00 00 00 00 00 ***............
0251B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0251C0: 0D 0A 2A 2A 20 4F 52 49 47 49 4E 45 20 45 54 20 ..** ORIGINE ET
0251D0: 44 45 53 54 49 4E 41 54 49 4F 4E 20 44 45 53 20 DESTINATION DES
0251E0: 54 59 50 45 53 20 44 45 20 44 4F 4E 4E 45 45 53 TYPES DE DONNEES
0251F0: 20 44 49 46 46 45 52 45 4E 54 45 53 20 2A 2A 00 DIFFERENTES **.
025200: 0D 0A 2A 2A 2A 20 50 48 52 41 53 45 20 49 4E 43 ..*** PHRASE INC
025210: 4F 4D 50 4C 45 54 45 20 3A 20 22 4F 4E 22 20 4D OMPLETE : "ON" M
025220: 41 4E 51 55 41 4E 54 20 2A 2A 2A 00 00 00 00 00 ANQUANT ***.....
025230: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
025240: 0D 0A 2A 2A 2A 20 44 45 50 41 53 53 45 4D 45 4E ..*** DEPASSEMEN
025250: 54 20 43 41 50 41 43 49 54 45 20 44 27 55 4E 20 T CAPACITE D'UN
025260: 43 48 41 4D 50 20 4E 55 4D 45 52 49 51 55 45 00 CHAMP NUMERIQUE.
025270: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
025280: 0D 0A 2A 2A 20 45 52 52 45 55 52 20 44 45 20 53 ..** ERREUR DE S
025290: 59 4E 54 41 58 45 20 44 41 4E 53 20 4C 41 20 53 YNTAXE DANS LA S
0252A0: 50 45 43 49 46 49 43 41 54 49 4F 4E 20 44 55 20 PECIFICATION DU
0252B0: 46 4F 52 4D 41 54 20 2A 2A 00 00 00 00 00 00 00 FORMAT **.......
0252C0: 0D 0A 2A 2A 2A 20 50 48 52 41 53 45 20 49 4E 43 ..*** PHRASE INC
0252D0: 4F 4D 50 4C 45 54 45 20 3A 20 22 46 49 45 4C 44 OMPLETE : "FIELD
0252E0: 22 20 4D 41 4E 51 55 41 4E 54 20 2A 2A 2A 00 00 " MANQUANT ***..
0252F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
025300: 0D 0A 4F 52 49 47 49 4E 45 20 44 45 20 4C 27 45 ..ORIGINE DE L'E
025310: 52 52 45 55 52 20 3A 20 00 00 00 00 00 00 00 00 RREUR : ........
025320: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
025330: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
025340: 0D 0A 2A 2A 2A 20 44 45 53 49 52 45 5A 2D 56 4F ..*** DESIREZ-VO
025350: 55 53 20 43 4F 52 52 49 47 45 52 20 45 54 20 52 US CORRIGER ET R
025360: 45 43 4F 4D 4D 45 4E 43 45 52 20 28 59 2F 4E 29 ECOMMENCER (Y/N)
025370: 20 3F 20 00 00 00 00 00 00 00 00 00 00 00 00 00 ? .............
025380: 0D 0A 2A 2A 2A 20 4C 45 20 46 49 43 48 49 45 52 ..*** LE FICHIER
025390: 20 41 20 45 54 45 20 45 46 46 41 43 45 20 20 2A A ETE EFFACE *
0253A0: 2A 2A 00 00 00 00 00 00 00 00 00 00 00 00 00 00 **..............
0253B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0253C0: 0D 0A 2A 2A 2A 20 4E 55 4D 45 52 4F 20 44 27 45 ..*** NUMERO D'E
0253D0: 4E 52 45 47 49 53 54 52 45 4D 45 4E 54 20 49 4E NREGISTREMENT IN
0253E0: 43 4F 52 52 45 43 54 20 2A 2A 2A 00 00 00 00 00 CORRECT ***.....
0253F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
025400: 0D 0A 2A 2A 2A 20 45 52 52 45 55 52 20 44 45 20 ..*** ERREUR DE
025410: 53 59 4E 54 41 58 45 20 20 56 45 55 49 4C 4C 45 SYNTAXE VEUILLE
025420: 5A 20 20 43 4F 52 52 49 47 45 52 20 2A 2A 2A 00 Z CORRIGER ***.
025430: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
025440: 0D 0A 2A 2A 2A 20 46 49 43 48 49 45 52 20 56 49 ..*** FICHIER VI
025450: 44 45 20 3A 20 49 4E 53 45 52 54 49 4F 4E 20 49 DE : INSERTION I
025460: 4D 50 4F 53 53 49 42 4C 45 20 2A 2A 2A 00 00 00 MPOSSIBLE ***...
025470: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
025480: 0D 0A 2A 2A 2A 20 46 49 4E 20 44 45 20 46 49 43 ..*** FIN DE FIC
025490: 48 49 45 52 20 2A 2A 2A 00 00 00 00 00 00 00 00 HIER ***........
0254A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0254B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0254C0: 0D 0A 2A 2A 2A 20 46 49 4E 20 44 45 20 4C 4F 43 ..*** FIN DE LOC
0254D0: 41 4C 49 53 41 54 49 4F 4E 20 2A 2A 2A 00 00 00 ALISATION ***...
0254E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0254F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
025500: 0D 0A 2A 2A 2A 20 4C 45 20 46 49 43 48 49 45 52 ..*** LE FICHIER
025510: 20 4E 45 20 50 45 55 54 20 45 54 52 45 20 4F 55 NE PEUT ETRE OU
025520: 56 45 52 54 20 2A 2A 2A 00 00 00 00 00 00 00 00 VERT ***........
025530: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
025540: 0D 0A 2A 2A 2A 20 4C 45 20 46 49 43 48 49 45 52 ..*** LE FICHIER
025550: 20 44 45 20 46 4F 52 4D 41 54 20 4E 45 20 50 45 DE FORMAT NE PE
025560: 55 54 20 45 54 52 45 20 4F 55 56 45 52 54 20 2A UT ETRE OUVERT *
025570: 2A 2A 00 00 00 00 00 00 00 00 00 00 00 00 00 00 **..............
025580: 0D 0A 2A 2A 20 43 4F 4F 52 44 20 3A 20 00 00 00 ..** COORD : ...
025590: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0255A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0255B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0255C0: 0D 0A 2A 2A 2A 20 44 45 53 49 52 45 5A 2D 56 4F ..*** DESIREZ-VO
0255D0: 55 53 20 43 4F 52 52 49 47 45 52 20 45 54 20 52 US CORRIGER ET R
0255E0: 45 43 4F 4D 4D 45 4E 43 45 52 20 28 59 2F 4E 29 ECOMMENCER (Y/N)
0255F0: 20 3F 20 00 00 00 00 00 00 00 00 00 00 00 00 00 ? .............
025600: 0D 0A 52 45 4D 50 4C 41 43 45 52 20 3A 20 00 00 ..REMPLACER : ..
025610: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
025620: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
025630: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
025640: 0D 0A 50 41 52 20 20 20 20 20 20 20 3A 20 00 00 ..PAR : ..
025650: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
025660: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
025670: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
025680: 0D 0A 2A 2A 2A 20 44 45 53 49 52 45 5A 2D 56 4F ..*** DESIREZ-VO
025690: 55 53 20 44 27 41 55 54 52 45 53 20 43 4F 52 52 US D'AUTRES CORR
0256A0: 45 43 54 49 4F 4E 53 20 28 59 2F 4E 2F 29 20 3F ECTIONS (Y/N/) ?
0256B0: 20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ...............
0256C0: 0D 0A 2A 2A 2A 20 44 4F 4E 4E 45 5A 20 4C 45 20 ..*** DONNEZ LE
0256D0: 4E 4F 4D 20 44 55 20 46 49 43 48 49 45 52 20 3A NOM DU FICHIER :
0256E0: 20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ...............
0256F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
025700: 0D 0A 2A 2A 2A 20 4C 41 20 4D 41 43 52 4F 2D 49 ..*** LA MACRO-I
025710: 4E 53 54 52 55 43 54 49 4F 4E 20 4E 27 45 58 49 NSTRUCTION N'EXI
025720: 53 54 45 20 50 41 53 20 2A 2A 2A 00 00 00 00 00 STE PAS ***.....
025730: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
025740: 0D 0A 43 4F 4D 50 41 43 54 41 47 45 20 54 45 52 ..COMPACTAGE TER
025750: 4D 49 4E 45 20 3A 20 00 00 00 00 00 00 00 00 00 MINE : .........
025760: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
025770: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
025780: 20 45 4E 52 45 47 49 53 54 52 45 4D 45 4E 54 28 ENREGISTREMENT(
025790: 53 29 20 20 54 52 41 4E 53 46 45 52 45 28 53 29 S) TRANSFERE(S)
0257A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0257B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 20 ...............
0257C0: 20 45 4E 52 45 47 49 53 54 52 45 4D 45 4E 54 28 ENREGISTREMENT(
0257D0: 53 29 20 52 45 53 54 49 54 55 45 28 53 29 00 00 S) RESTITUE(S)..
0257E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0257F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 20 ...............
025800: 0D 0A 43 4F 4C 4F 4E 4E 45 20 4C 4F 4E 47 55 45 ..COLONNE LONGUE
025810: 55 52 2C 43 4F 4E 54 45 4E 55 00 00 00 00 00 00 UR,CONTENU......
025820: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
025830: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
025840: 0D 0A 44 45 53 49 52 45 5A 2D 56 4F 55 53 20 55 ..DESIREZ-VOUS U
025850: 4E 20 44 4F 55 42 4C 45 20 49 4E 54 45 52 4C 49 N DOUBLE INTERLI
025860: 47 4E 45 20 28 59 2F 4E 29 20 3F 20 00 00 00 00 GNE (Y/N) ? ....
025870: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
025880: 20 52 45 4D 50 4C 41 43 45 4D 45 4E 54 28 53 29 REMPLACEMENT(S)
025890: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0258A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0258B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 20 ...............
0258C0: 0D 0A 44 4F 4E 4E 45 5A 20 4C 45 20 4E 4F 4D 20 ..DONNEZ LE NOM
0258D0: 44 55 20 46 49 43 48 49 45 52 20 44 45 20 47 45 DU FICHIER DE GE
0258E0: 4E 45 52 41 54 49 4F 4E 20 44 27 45 54 41 54 20 NERATION D'ETAT
0258F0: 3A 20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 : ..............
025900: 0D 0A 2A 2A 20 54 4F 54 41 4C 20 2A 2A 00 00 00 ..** TOTAL **...
025910: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
025920: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
025930: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
025940: 0D 0A 2A 2A 2A 20 45 4E 52 45 47 49 53 54 52 45 ..*** ENREGISTRE
025950: 4D 45 4E 54 20 3A 20 00 00 00 00 00 00 00 00 00 MENT : .........
025960: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
025970: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
025980: 0D 0A 2A 2A 2A 20 45 4E 52 45 47 49 53 54 52 45 ..*** ENREGISTRE
025990: 4D 45 4E 54 20 4E 4F 4E 20 54 52 4F 55 56 45 20 MENT NON TROUVE
0259A0: 2A 2A 2A 00 00 00 00 00 00 00 00 00 00 00 00 00 ***.............
0259B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0259C0: 20 50 41 47 45 20 4E 2E 20 00 00 00 00 00 00 00 PAGE N. .......
0259D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0259E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0259F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 20 ...............
025A00: 0D 0A 45 54 41 50 45 20 53 55 49 56 41 4E 54 45 ..ETAPE SUIVANTE
025A10: 20 2D 2D 3E 20 59 3D 4F 55 49 20 3A 20 4E 3D 43 --> Y=OUI : N=C
025A20: 4D 44 45 20 43 4C 41 56 49 45 52 20 3A 20 45 53 MDE CLAVIER : ES
025A30: 43 3D 41 4E 4E 55 4C 41 54 49 4F 4E 20 3F 20 00 C=ANNULATION ? .
025A40: 0D 0A 2D 3E 20 00 00 00 00 00 00 00 00 00 00 00 ..-> ...........
025A50: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
025A60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
025A70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
025A80: 0D 0A 43 48 41 4D 50 20 20 20 4E 4F 4D 20 20 20 ..CHAMP NOM
025A90: 20 20 20 20 20 20 54 59 50 20 20 20 44 49 4D 20 TYP DIM
025AA0: 20 20 20 44 45 43 49 4D 41 4C 45 28 53 29 00 00 DECIMALE(S)..
025AB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
025AC0: 0D 0A 53 54 52 55 43 54 55 52 45 20 44 55 20 46 ..STRUCTURE DU F
025AD0: 49 43 48 49 45 52 20 20 20 20 20 20 20 20 20 20 ICHIER
025AE0: 20 20 3A 20 00 00 00 00 00 00 00 00 00 00 00 00 : ............
025AF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
025B00: 0D 0A 44 4F 4E 4E 45 5A 20 4C 45 20 54 49 54 52 ..DONNEZ LE TITR
025B10: 45 20 3A 20 00 00 00 00 00 00 00 00 00 00 00 00 E : ............
025B20: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
025B30: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
025B40: 0D 0A 2A 2A 2A 20 41 55 43 55 4E 20 45 4E 52 45 ..*** AUCUN ENRE
025B50: 47 49 53 54 52 45 4D 45 4E 54 20 4E 45 20 43 4F GISTREMENT NE CO
025B60: 52 52 45 53 50 4F 4E 44 20 41 20 56 4F 54 52 45 RRESPOND A VOTRE
025B70: 20 53 45 4C 45 43 54 49 4F 4E 20 2A 2A 2A 00 00 SELECTION ***..
025B80: 0D 0A 2A 2A 2A 20 50 48 52 41 53 45 20 49 4E 43 ..*** PHRASE INC
025B90: 4F 4D 50 4C 45 54 45 20 3A 20 22 57 49 54 48 22 OMPLETE : "WITH"
025BA0: 20 4D 41 4E 51 55 41 4E 54 20 2A 2A 2A 00 00 00 MANQUANT ***...
025BB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
025BC0: 0D 0A 44 4F 4E 4E 45 5A 20 4C 45 20 43 48 41 4D ..DONNEZ LE CHAM
025BD0: 50 20 44 45 20 53 4F 55 53 2D 54 4F 54 41 4C 20 P DE SOUS-TOTAL
025BE0: 3A 20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 : ..............
025BF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
025C00: 0D 0A 44 45 53 49 52 45 5A 2D 56 4F 55 53 20 44 ..DESIREZ-VOUS D
025C10: 45 53 20 53 4F 55 53 2D 54 4F 54 41 55 58 20 44 ES SOUS-TOTAUX D
025C20: 41 4E 53 20 56 4F 54 52 45 20 52 41 50 50 4F 52 ANS VOTRE RAPPOR
025C30: 54 20 28 59 2F 4E 29 20 3F 20 00 00 00 00 00 00 T (Y/N) ? ......
025C40: 0D 0A 44 45 53 49 52 45 5A 2D 56 4F 55 53 20 55 ..DESIREZ-VOUS U
025C50: 4E 20 45 4E 54 45 54 45 20 28 59 2F 4E 29 20 3F N ENTETE (Y/N) ?
025C60: 20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ...............
025C70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
025C80: 0D 0A 44 4F 4E 4E 45 5A 20 4C 27 45 4E 54 45 54 ..DONNEZ L'ENTET
025C90: 45 20 3A 20 00 00 00 00 00 00 00 00 00 00 00 00 E : ............
025CA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
025CB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
025CC0: 0D 0A 2A 2A 2A 20 54 52 49 20 54 45 52 4D 49 4E ..*** TRI TERMIN
025CD0: 45 20 2A 2A 2A 00 00 00 00 00 00 00 00 00 00 00 E ***...........
025CE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
025CF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
025D00: 0D 0A 4F 50 54 49 4F 4E 53 20 20 4D 3D 4D 41 52 ..OPTIONS M=MAR
025D10: 47 45 20 47 41 55 43 48 45 2C 20 4C 3D 4C 49 47 GE GAUCHE, L=LIG
025D20: 4E 45 53 2F 50 41 47 45 2C 20 57 3D 4C 41 52 47 NES/PAGE, W=LARG
025D30: 45 55 52 20 44 45 20 50 41 47 45 20 00 00 00 00 EUR DE PAGE ....
025D40: 0D 0A 45 4E 54 52 45 5A 20 4C 45 20 54 49 54 52 ..ENTREZ LE TITR
025D50: 45 20 50 4F 55 52 20 4C 45 53 20 53 4F 55 53 2D E POUR LES SOUS-
025D60: 54 4F 54 41 55 58 20 3A 20 00 00 00 00 00 00 00 TOTAUX : .......
025D70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
025D80: 0D 0A 45 4E 54 52 45 5A 20 4C 45 20 53 4F 55 53 ..ENTREZ LE SOUS
025D90: 2D 54 49 54 52 45 20 50 4F 55 52 20 4C 45 53 20 -TITRE POUR LES
025DA0: 53 4F 55 53 2D 54 4F 54 41 55 58 20 3A 20 00 00 SOUS-TOTAUX : ..
025DB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
025DC0: 0D 0A 43 48 41 4E 47 45 4D 45 4E 54 20 44 45 20 ..CHANGEMENT DE
025DD0: 50 41 47 45 20 41 50 52 45 53 20 4C 45 53 20 53 PAGE APRES LES S
025DE0: 4F 55 53 2D 54 4F 54 41 55 58 20 28 59 2F 4E 29 OUS-TOTAUX (Y/N)
025DF0: 20 3F 20 00 00 00 00 00 00 00 00 00 00 00 00 00 ? .............
025E00: 0D 0A 2A 2A 2A 20 50 48 52 41 53 45 20 49 4E 43 ..*** PHRASE INC
025E10: 4F 4D 50 4C 45 54 45 20 3A 20 22 46 4F 52 22 20 OMPLETE : "FOR"
025E20: 4D 41 4E 51 55 41 4E 54 20 2A 2A 2A 00 00 00 00 MANQUANT ***....
025E30: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
025E40: 0D 0A 2A 2A 2A 20 43 4F 4D 4D 41 4E 44 45 20 27 ..*** COMMANDE '
025E50: 4A 4F 49 4E 27 20 4E 45 20 50 45 55 54 20 47 45 JOIN' NE PEUT GE
025E60: 4E 45 52 45 52 20 50 4C 55 53 20 44 45 20 36 35 NERER PLUS DE 65
025E70: 20 35 33 34 20 45 4E 52 45 47 2E 20 2A 2A 2A 00 534 ENREG. ***.
025E80: 0D 0A 2A 2A 2A 20 50 48 52 41 53 45 20 49 4E 43 ..*** PHRASE INC
025E90: 4F 4D 50 4C 45 54 45 20 3A 20 22 46 52 4F 4D 22 OMPLETE : "FROM"
025EA0: 20 4D 41 4E 51 55 41 4E 54 20 2A 2A 2A 00 00 00 MANQUANT ***...
025EB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
025EC0: 0D 0A 2A 2A 2A 20 4C 45 53 20 43 4C 45 53 20 4E ..*** LES CLES N
025ED0: 27 4F 4E 54 20 50 41 53 20 4C 41 20 4D 45 4D 45 'ONT PAS LA MEME
025EE0: 20 44 49 4D 45 4E 53 49 4F 4E 20 2A 2A 2A 00 00 DIMENSION ***..
025EF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
025F00: 0D 0A 2A 2A 2A 20 50 48 52 41 53 45 20 49 4E 43 ..*** PHRASE INC
025F10: 4F 4D 50 4C 45 54 45 20 3A 20 22 54 4F 22 20 4D OMPLETE : "TO" M
025F20: 41 4E 51 55 41 4E 54 20 2A 2A 2A 00 00 00 00 00 ANQUANT ***.....
025F30: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
025F40: 0D 0A 2A 2A 20 53 4F 55 53 2D 54 4F 54 41 4C 20 ..** SOUS-TOTAL
025F50: 2A 2A 00 00 00 00 00 00 00 00 00 00 00 00 00 00 **..............
025F60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
025F70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
025F80: 0D 0A 2A 2A 2A 20 49 4E 45 58 49 53 54 41 4E 43 ..*** INEXISTANC
025F90: 45 20 44 45 20 4C 27 45 58 50 52 45 53 53 49 4F E DE L'EXPRESSIO
025FA0: 4E 20 41 20 54 4F 54 41 4C 49 53 45 52 20 3A 20 N A TOTALISER :
025FB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
025FC0: 0D 0A 2A 2A 2A 20 45 58 50 52 45 53 53 49 4F 4E ..*** EXPRESSION
025FD0: 20 4E 4F 4E 20 4E 55 4D 45 52 49 51 55 45 20 2A NON NUMERIQUE *
025FE0: 2A 2A 00 00 00 00 00 00 00 00 00 00 00 00 00 00 **..............
025FF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
026000: 0D 0A 2A 2A 2A 20 45 52 52 45 55 52 20 3A 20 54 ..*** ERREUR : T
026010: 4F 54 41 4C 49 53 41 54 49 4F 4E 20 44 45 20 50 OTALISATION DE P
026020: 4C 55 53 20 44 45 20 35 20 43 48 41 4D 50 53 20 LUS DE 5 CHAMPS
026030: 20 2A 2A 2A 00 00 00 00 00 00 00 00 00 00 00 00 ***............
026040: 0D 0A 2A 2A 2A 20 45 52 52 45 55 52 20 44 45 20 ..*** ERREUR DE
026050: 53 59 4E 54 41 58 45 20 2A 2A 2A 00 00 00 00 00 SYNTAXE ***.....
026060: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
026070: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
026080: 0D 0A 44 45 53 49 52 45 5A 2D 56 4F 55 53 20 44 ..DESIREZ-VOUS D
026090: 45 53 20 54 4F 54 41 55 58 20 28 59 2F 4E 29 20 ES TOTAUX (Y/N)
0260A0: 3F 20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ? ..............
0260B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0260C0: 0D 0A 2A 2A 2A 20 45 4E 52 45 47 49 53 54 52 45 ..*** ENREGISTRE
0260D0: 4D 45 4E 54 20 45 4E 20 43 4F 55 52 53 20 44 27 MENT EN COURS D'
0260E0: 55 54 49 4C 49 53 41 54 49 4F 4E 2E 20 56 45 55 UTILISATION. VEU
0260F0: 49 4C 4C 45 5A 20 50 41 54 49 45 4E 54 45 52 00 ILLEZ PATIENTER.
026100: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
026110: 20 00 01 00 02 09 4E E5 20 00 41 02 00 00 00 02 .....N. .A.....
026120: 20 00 46 02 00 00 00 02 20 00 42 02 00 00 00 02 .F..... .B.....
026130: 20 00 47 02 00 00 00 02 20 00 43 02 00 00 00 02 .G..... .C.....
026140: 20 00 48 02 00 00 00 02 20 00 44 02 00 00 00 02 .H..... .D.....
026150: 20 00 49 02 00 00 00 02 20 00 45 02 00 00 00 02 .I..... .E.....
026160: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
026170: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
026180: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
026190: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0261A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0261B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0261C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0261D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0261E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0261F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
026200: 0D 0A 42 41 53 45 20 44 45 20 44 4F 4E 4E 45 45 ..BASE DE DONNEE
026210: 53 20 50 52 49 4D 41 49 52 45 20 45 4E 20 43 4F S PRIMAIRE EN CO
026220: 55 52 53 20 44 27 55 54 49 4C 49 53 41 54 49 4F URS D'UTILISATIO
026230: 4E 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 N...............
026240: 0D 0A 42 41 53 45 20 44 45 20 44 4F 4E 4E 45 45 ..BASE DE DONNEE
026250: 53 20 53 45 43 4F 4E 44 41 49 52 45 20 45 4E 20 S SECONDAIRE EN
026260: 43 4F 55 52 53 20 44 27 55 54 49 4C 49 53 41 54 COURS D'UTILISAT
026270: 49 4F 4E 00 00 00 00 00 00 00 00 00 00 00 00 00 ION.............
026280: 0D 0A 4E 4F 4D 42 52 45 20 44 27 45 4E 52 45 47 ..NOMBRE D'ENREG
026290: 49 53 54 52 45 4D 45 4E 54 53 20 20 20 20 20 20 ISTREMENTS
0262A0: 20 20 3A 20 00 00 00 00 00 00 00 00 00 00 00 00 : ............
0262B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0262C0: 0D 0A 2A 20 4C 41 20 42 41 53 45 20 44 45 20 44 ..* LA BASE DE D
0262D0: 4F 4E 4E 45 45 53 20 4E 27 55 54 49 4C 49 53 45 ONNEES N'UTILISE
0262E0: 20 50 41 53 20 44 45 20 46 49 43 48 49 45 52 20 PAS DE FICHIER
0262F0: 49 4E 44 45 58 20 2A 00 00 00 00 00 00 00 00 00 INDEX *.........
026300: 0D 0A 2A 20 41 55 20 4D 41 58 49 4D 55 4D 20 37 ..* AU MAXIMUM 7
026310: 20 46 49 43 48 2E 20 49 4E 44 45 58 20 50 45 55 FICH. INDEX PEU
026320: 56 45 4E 54 20 45 54 52 45 20 4F 55 56 45 52 54 VENT ETRE OUVERT
026330: 53 20 53 49 4D 55 4C 54 41 4E 45 4D 45 4E 54 00 S SIMULTANEMENT.
026340: 0D 0A 4C 41 20 43 4F 4D 4D 41 4E 44 45 20 22 4D ..LA COMMANDE "M
026350: 4F 44 49 46 59 22 20 44 45 54 52 55 49 52 41 20 ODIFY" DETRUIRA
026360: 54 4F 55 54 45 53 20 56 4F 53 20 44 4F 4E 4E 45 TOUTES VOS DONNE
026370: 45 53 20 28 59 2F 4E 29 20 3F 20 00 00 00 00 00 ES (Y/N) ? .....
026380: 0D 0A 2A 20 45 4E 54 52 45 5A 20 4C 41 20 44 41 ..* ENTREZ LA DA
026390: 54 45 20 53 4F 55 53 20 4C 41 20 46 4F 52 4D 45 TE SOUS LA FORME
0263A0: 20 53 55 49 56 41 4E 54 45 20 28 53 49 4E 4F 4E SUIVANTE (SINON
0263B0: 20 52 45 54 55 52 4E 29 20 20 00 00 00 00 00 00 RETURN) ......
0263C0: 0D 0A 44 41 54 45 20 44 45 20 4C 41 20 44 45 52 ..DATE DE LA DER
0263D0: 4E 49 45 52 45 20 4D 49 53 45 20 41 20 4A 4F 55 NIERE MISE A JOU
0263E0: 52 20 3A 20 00 00 00 00 00 00 00 00 00 00 00 00 R : ............
0263F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
026400: 39 CD 9E 36 C2 14 5B CD 69 39 78 11 1F 9E CD 20 9..6..[.i9x....
026410: 37 CA 14 5B CD 8E 39 21 1F 9E 22 CE 5F CD BB 36 7..[..9!.."._..6
026420: 36 00 AF 32 1E 9E 3A D4 5F B7 C8 21 7E 97 CD 20 6..2..:._..!~..
026430: 0B 3A D1 5F B7 C8 21 BB 9D 3A C5 5F FE 4E C2 09 .:._..!..:._.N..
026440: 4C 7E B7 CA 4F 4B FE 2E CA 4F 4B 23 C3 41 4B 22 L~..OK...OK#.AK"
026450: E6 5F 21 C7 9B 7E B7 CA 63 4B FE 2E CA 63 4B 23 ._!..~..cK...cK#
026460: C3 55 4B 22 E8 5F EB 2A E6 5F 1B 2B 7E B7 CA C4 .UK"._.*._.+~...
026470: 4B FE 24 CA AC 4B FE 2A CA AC 4B FE 23 CA B6 4B K.$..K.*..K.#..K
026480: FE 39 CA B6 4B FE 2C C2 6B 4B 1A B7 CA 99 4B FE .9..K.,.kK....K.
026490: 2D CA B6 4B FE 20 C2 6B 4B 2B 7E FE 24 CA A7 4B -..K. .kK+~.$..K
0264A0: FE 2A CA A7 4B 3E 20 23 77 C3 6B 4B 1A B7 CA 6B .*..K> #w.kK...k
0264B0: 4B FE 20 CA 6B 4B 1A B7 CA BF 4B 77 C3 6A 4B 36 K. .kK....Kw.jK6
0264C0: 20 C3 6B 4B 2A E8 5F EB 2A E6 5F 7E B7 CA 41 4C .kK*._.*._~..AL
0264D0: 1A B7 CA F0 4B 13 23 1A B7 CA F0 4B 7E B7 CA 41 ....K.#....K~..A
0264E0: 4C FE 23 CA EB 4B FE 39 C2 D6 4B 1A 77 C3 D5 4B L.#..K.9..K.w..K
0264F0: 7E B7 CA 41 4C FE 23 CA 03 4C FE 39 CA 03 4C 23 ~..AL.#..L.9..L#
026500: C3 F0 4B 36 30 23 C3 F0 4B 21 BB 9D 11 C7 9B 7E ..K60#..K!.....~
026510: B7 CA 41 4C FE 58 C2 24 4C 1A B7 CA 3B 4C 77 13 ..AL.X.$L...;Lw.
026520: 23 C3 0F 4C FE 39 CA 2E 4C FE 23 C2 36 4C 1A CD #..L.9..L.#.6L..
026530: AB 36 DA 3B 4C 77 13 23 C3 0F 4C 36 20 23 C3 0F .6.;Lw.#..L6 #..
026540: 4C 21 BB 9D 22 CA 5F C9 3E 56 C3 06 5B 3A 09 01 L!.."._.>V..[:..
026550: B7 CA 00 45 CD 3C 29 3E 0D 21 00 45 C3 C7 3B CD ...E.<)>.!.E..;.
026560: 73 39 CA 72 4C CD 15 2A C2 14 5B 11 0D 00 19 CD s9.rL..*..[.....
026570: DF 36 EB 21 00 45 E5 2A 52 44 E5 EB C9 3E 1B CD .6.!.E.*RD...>..
026580: 70 3B C3 7E 44 3E 02 32 55 44 C3 00 45 CD 3C 29 p;.~D>.2UD..E.<)
026590: 3E 02 21 03 45 C3 C7 3B CD 73 39 C2 D5 4C CD 45 >.!.E..;.s9..L.E
0265A0: 25 CD 44 27 CD 8C 23 CD 83 2E CD 45 25 CD 44 27 %.D'..#....E%.D'
0265B0: CD 8C 23 CD 83 2E 3A 4C 44 CD 40 27 CD D4 26 CD ..#...:LD.@'..&.
0265C0: 45 25 CD 20 29 AF 32 41 97 32 4C 44 32 56 44 CD E%. ).2A.2LD2VD.
0265D0: 89 2E C3 00 45 11 38 5E CD B1 37 CA E7 4C 11 3C ....E.8^..7..L.<
0265E0: 5E CD B1 37 C2 14 5B CD B5 06 C3 00 45 CD 3C 29 ^..7..[.....E.<)
0265F0: 3E 03 21 00 45 C3 C7 3B CD 3C 29 3E 03 21 18 45 >.!.E..;.<)>.!.E
026600: 20 45 4E 52 45 47 49 53 54 52 45 4D 45 4E 54 53 ENREGISTREMENTS
026610: 20 49 4E 44 45 58 45 53 00 00 00 00 00 00 00 00 INDEXES........
026620: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
026630: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 20 ...............
026640: 0D 0A 2A 2A 2A 20 4C 41 20 44 49 4D 45 4E 53 49 ..*** LA DIMENSI
026650: 4F 4E 20 44 45 20 4C 27 45 4E 52 45 47 49 53 54 ON DE L'ENREGIST
026660: 52 45 4D 45 4E 54 20 44 45 50 41 53 53 45 20 31 REMENT DEPASSE 1
026670: 30 30 30 20 43 41 52 41 43 54 45 52 45 53 00 00 000 CARACTERES..
026680: 0D 0A 2A 2A 2A 20 44 49 56 49 53 49 4F 4E 20 50 ..*** DIVISION P
026690: 41 52 20 5A 45 52 4F 20 49 4D 50 4F 53 53 49 42 AR ZERO IMPOSSIB
0266A0: 4C 45 20 2A 2A 2A 00 00 00 00 00 00 00 00 00 00 LE ***..........
0266B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0266C0: 0D 0A 2A 2A 2A 20 44 45 50 41 53 53 45 4D 45 4E ..*** DEPASSEMEN
0266D0: 54 20 43 48 41 49 4E 45 20 44 45 20 43 41 52 41 T CHAINE DE CARA
0266E0: 43 54 45 52 45 53 20 2A 2A 2A 00 00 00 00 00 00 CTERES ***......
0266F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
026700: 0D 0A 4C 45 53 20 46 49 43 2E 20 4F 56 45 52 4C ..LES FIC. OVERL
026710: 41 59 20 28 2E 4F 56 52 29 20 4E 45 20 53 45 20 AY (.OVR) NE SE
026720: 54 52 4F 55 56 45 4E 54 20 50 41 53 20 53 55 52 TROUVENT PAS SUR
026730: 20 4C 27 55 4E 49 54 45 20 41 43 54 49 56 45 00 L'UNITE ACTIVE.
026740: 0D 0A 44 4F 4E 4E 45 5A 20 4C 45 20 4E 55 4D 45 ..DONNEZ LE NUME
026750: 52 4F 20 44 45 20 4C 27 45 4E 52 45 47 49 53 54 RO DE L'ENREGIST
026760: 52 45 4D 45 4E 54 20 3A 20 00 00 00 00 00 00 00 REMENT : .......
026770: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
026780: 0D 0A 2A 2A 2A 20 4C 27 45 4E 52 45 47 49 53 54 ..*** L'ENREGIST
026790: 52 45 4D 45 4E 54 20 4E 27 45 53 54 20 50 41 53 REMENT N'EST PAS
0267A0: 20 49 4E 44 45 58 45 20 2A 2A 2A 00 00 00 00 00 INDEXE ***.....
0267B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0267C0: 0D 0A 2A 2A 2A 20 4C 27 20 49 4E 44 45 58 20 4E ..*** L' INDEX N
0267D0: 45 20 43 4F 52 52 45 53 50 4F 4E 44 20 50 41 53 E CORRESPOND PAS
0267E0: 20 41 20 4C 41 20 42 41 53 45 20 44 45 20 44 4F A LA BASE DE DO
0267F0: 4E 4E 45 45 53 20 2A 2A 2A 00 00 00 00 00 00 00 NNEES ***.......
026800: C3 C7 3B 3E 02 21 06 45 C3 C7 3B CD DD 25 CD 73 ..;>.!.E..;..%.s
026810: 39 11 26 5E CD B1 37 C2 42 4D CD 8E 39 AF CD AD 9.&^..7.BM..9...
026820: 27 CD 03 27 DA 39 4D CD 61 27 3A 7D 44 B7 CA 00 '..'.9M.a':}D...
026830: 45 3E 32 CD 70 3B C3 00 45 CD 70 3B CD 61 27 C3 E>2.p;..E.p;.a'.
026840: 00 45 CD 3C 29 3E 2A 32 D9 5F CD 5C 4D 3A 7D 44 .E.<)>*2._.\M:}D
026850: B7 CA 00 45 3E 2B CD 70 3B C3 00 45 CD E9 25 DA ...E>+.p;..E..%.
026860: 14 5B CD 73 39 C2 14 5B 21 01 00 CD 5B 26 01 00 .[.s9..[!...[&..
026870: 00 DA A1 4D 3A D9 5F 57 CD 2A 2C 7C B5 CA A1 4D ...M:._W.*,|...M
026880: CD 78 27 CA 98 4D DA A1 4D CD DC 1C BA CA 98 4D .x'..M..M......M
026890: 72 CD E7 1C CD D3 2E 03 CD 47 2B CA A1 4D D2 80 r........G+..M..
0268A0: 4D 60 69 3A 7D 44 B7 C8 CD 1B 36 CD 35 36 C9 21 M`i:}D....6.56.!
0268B0: 10 00 22 D5 5F 21 01 00 22 D7 5F 11 93 5E CD 73 .."._!.."._..^.s
0268C0: 39 CD B1 37 C2 D2 4D CD 3C 29 3E 03 21 1B 45 C3 9..7..M.<)>.!.E.
0268D0: C7 3B CD 8E 39 11 4A 5E CD B1 37 CA 74 4F 11 2B .;..9.J^..7.tO.+
0268E0: 5E CD B1 37 CA 7C 4F 11 8C 5E CD B1 37 CA 87 4F ^..7.|O..^..7..O
0268F0: CD 3C 29 AF 32 DB 5F 32 D2 5F CD DD 25 21 7E 97 .<).2._2._..%!~.
026900: 22 DF 5F CD 73 39 CA 81 4E CD E9 25 DA 14 5B CD "._.s9..N..%..[.
026910: 73 39 CA 81 4E 11 5A 5E CD B1 37 C2 29 4E 3E FF s9..N.Z^..7.)N>.
026920: 32 D2 5F CD 8E 39 C3 03 4E 11 1F 5E CD B1 37 C2 2._..9..N..^..7.
026930: 35 4E CD 8E 39 2A DF 5F EB CD F2 14 DA 14 5B 3E 5N..9*._......[>
026940: FF 32 DB 5F EB 3A 79 44 B7 C2 6B 4E 36 32 23 CD .2._.:yD..kN62#.
026950: F3 36 78 B7 C2 66 4E 79 B7 C2 61 4E 36 03 C3 67 .6x..fNy..aN6..g
026960: 4E 36 00 C3 6F 4E 70 34 C3 6F 4E 36 2E 23 23 23 N6..oNp4.oN6.###
026970: 36 00 23 36 35 22 DF 5F CD 92 36 CA 81 4E C3 03 6.#65"._..6..N..
026980: 4E 3A 79 44 B7 C2 F2 4E 3A DB 5F B7 C2 F2 4E CD N:yD...N:._...N.
026990: E3 1C 22 E6 5F 2A E6 5F 7E FE 0D CA F2 4E EB 2A .."._*._~....N.*
0269A0: DF 5F 36 29 23 CD E4 36 36 32 23 EB 01 0B 00 09 ._6)#..662#.....
0269B0: 7E 23 4E 23 23 23 46 EB FE 4E CA D6 4E FE 43 CA ~#N###F..N..N.C.
0269C0: CD 4E 36 00 23 36 00 23 36 03 C3 DB 4E 71 23 70 .N6.#6.#6...Nq#p
0269D0: 23 36 00 C3 DC 4E 70 23 71 23 71 34 23 36 00 23 #6...Np#q#q4#6.#
0269E0: 36 35 22 DF 5F 2A E6 5F 11 10 00 19 22 E6 5F C3 65"._*._...."._.
0269F0: 95 4E 2A D7 5F CD 5B 26 DA 00 45 CD 99 2C 7C B5 .N*._.[&..E..,|.
026A00: 31 BC 96 3A 6F 44 B7 C2 0C 5B AF 32 DB 5F 3A 5C 1..:oD...[.2._:\
026A10: 44 B7 CA 88 45 CD 3B 3A CA 22 45 3A 70 44 B7 C2 D...E.;:."E:pD..
026A20: 7E 44 3A 7B 44 B7 CA 68 45 3A 59 44 B7 CA 45 45 ~D:{D..hE:YD..EE
026A30: CD 68 3B 32 E5 5F 3E FF CD 6C 3B CD 59 3B 32 D3 .h;2._>..l;.Y;2.
026A40: 5F AF CD 55 3B 3E 64 CD 70 3B CD 42 38 F5 3A 59 _..U;>d.p;.B8.:Y
026A50: 44 B7 CA 61 45 3A E5 5F CD 6C 3B 3A D3 5F CD 55 D..aE:._.l;:._.U
026A60: 3B F1 DA 7E 44 CA 88 45 3A 5C 44 CD 40 2F 3A 5C ;..~D..E:\D.@/:\
026A70: 44 CD CA 39 DA 70 56 CD 63 39 F2 96 45 23 7E B7 D..9.pV.c9..E#~.
026A80: CA 96 45 2F 77 C3 7D 45 CD 1B 36 3E 2E CD E8 35 ..E/w.}E..6>...5
026A90: CD 7E 36 CD 99 39 CD 92 39 CD 73 39 CA 00 45 FE .~6..9..9.s9..E.
026AA0: 1B CA 00 45 FE 2A CA 00 45 3A 74 44 B7 CA 0D 46 ...E.*..E:tD...F
026AB0: CD 63 39 FE 80 CA C1 45 11 41 5E CD B1 37 C2 C8 .c9....E.A^..7..
026AC0: 45 21 DC 5F 34 C3 00 45 CD 63 39 FE 81 CA D9 45 E!._4..E.c9....E
026AD0: 11 12 5E CD B1 37 C2 E7 45 3A DC 5F B7 C2 00 45 ..^..7..E:._...E
026AE0: AF 32 74 44 C3 00 45 CD 63 39 FE 82 CA F8 45 11 .2tD..E.c9....E.
026AF0: BB 5E CD B1 37 C2 00 45 3A DC 5F B7 C2 06 46 AF .^..7..E:._...F.
026B00: 32 74 44 C3 00 45 3D 32 DC 5F C3 00 45 3A 5C 01 2tD..E=2._..E:\.
026B10: 47 CD 73 39 B7 CA 8A 46 B8 CA 21 46 23 7E C3 14 G.s9...F..!F#~..
026B20: 46 E5 21 7E 99 01 14 00 CD F8 36 21 C6 99 01 00 F.!~......6!....
026B30: 01 CD F8 36 11 7E 99 E1 E5 23 CD F1 2A 7E FE 2E ...6.~...#..*~..
026B40: C2 44 46 0C 0C E1 11 7E 99 CD 78 38 21 7F 99 CD .DF....~..x8!...
026B50: 15 2A C2 84 46 11 0B 00 19 7E E6 7F FE 43 C2 37 .*..F....~...C.7
026B60: 48 23 23 CD DF 36 4E 23 11 C6 99 CD 78 38 11 7E H##..6N#....x8.~
026B70: 99 01 C6 99 CD 92 39 CD A2 38 DA 41 48 AF 32 55 ......9..8.AH.2U
026B80: 83 C3 0D 46 CD 69 39 C3 0D 46 CD 92 39 CD 73 39 ...F.i9..F..9.s9
026B90: 3A 55 44 B7 CA 3D 47 CD 63 39 FE 89 CA B7 46 11 :UD..=G.c9....F.
026BA0: 0F 5E CD B1 37 C2 BE 46 CD 8E 39 CD 73 39 11 C1 .^..7..F..9.s9..
026BB0: 5E CD B1 37 C2 BE 46 21 D0 5F 34 C3 00 45 3A D0 ^..7..F!._4..E:.
026BC0: 5F B7 C2 25 47 3A 55 44 FE 02 CA 0D 47 CD 63 39 _..%G:UD....G.c9
026BD0: FE 85 CA E1 46 11 C1 5E CD B1 37 C2 FC 46 CD 8E ....F..^..7..F..
026BE0: 39 CD 69 39 CD 1D 2E DA 14 5B F5 CD 73 39 C2 14 9.i9.....[..s9..
026BF0: 5B F1 CA 00 45 AF 32 55 44 C3 00 45 CD 63 39 FE [...E.2UD..E.c9.
026C00: CA 00 45 CD 78 27 CA 68 4F DA 00 45 2A D5 5F 2B ..E.x'.hO..E*._+
026C10: 22 D5 5F 7C B5 C2 2B 4F 21 0F 00 22 D5 5F 3E 65 "._|..+O!.."._>e
026C20: CD 70 3B CD 8E 3A FE 1B CA 00 45 CD 1B 36 3A D2 .p;..:....E..6:.
026C30: 5F B7 C2 44 4F CD 99 2C CD 35 36 CD 7E 36 CD DC _..DO..,.56.~6..
026C40: 1C CD E8 35 3A DB 5F B7 C2 62 4F 3A 79 44 B7 CA ...5:._..bO:yD..
026C50: 62 4F CD 84 29 44 4D CD DC 1C 0B 23 CD 13 2C C3 bO..)DM....#..,.
026C60: 68 4F 21 7E 97 CD 20 0B CD 47 2B CA 00 45 D2 03 hO!~.. ..G+..E..
026C70: 4F C3 00 45 3E 03 21 0C 45 C3 C7 3B CD 8E 39 3E O..E>.!.E..;..9>
026C80: 03 21 09 45 C3 C7 3B CD 8E 39 3E 08 21 00 45 C3 .!.E..;..9>.!.E.
026C90: C7 3B CD 73 39 11 C1 5E CD B1 37 CA 5C 50 11 AA .;.s9..^..7.\P..
026CA0: 5E CD B1 37 CA EF 4F CD 63 39 3E 01 CD AD 27 DA ^..7..O.c9>...'.
026CB0: E2 4F CD 73 39 C2 14 5B 3E 42 CD F0 2B DA E2 4F .O.s9..[>B..+..O
026CC0: 3A 5D 44 FE 10 D2 E7 4F 21 5E 44 CD BB 36 CD 3C :]D....O!^D..6.<
026CD0: 27 77 32 5C 44 21 5D 44 34 CD 36 2F CD 61 27 C3 'w2\D!]D4.6/.a'.
026CE0: 00 45 3E 29 C3 E9 4F 3E 2A CD 70 3B C3 7D 4C 3A .E>)..O>*.p;.}L:
026CF0: 5C 44 B7 CA 54 50 CD 8E 39 CD 1D 2E DA 14 5B C2 \D..TP..9.....[.
026D00: 4E 50 AF 32 DA 5F 3A 5C 44 CD CA 39 CD 73 39 FE NP.2._:\D..9.s9.
026D10: 88 CA 2C 50 11 0F 5E CD B1 37 C2 33 50 CD 8E 39 ..,P..^..7.3P..9
026D20: CD 73 39 11 AA 5E CD B1 37 C2 06 50 21 DA 5F 34 .s9..^..7..P!._4
026D30: C3 06 50 CD 63 39 FE 84 CA 44 50 11 B5 5E CD B1 ..P.c9...DP..^..
026D40: 37 C2 06 50 21 DA 5F 35 F2 06 50 C3 00 45 CD 54 7..P!._5..P..E.T
026D50: 2F C3 00 45 3E 29 CD 70 3B C3 00 45 3E 01 32 55 /..E>).p;..E>.2U
026D60: 44 C3 00 45 CD 3C 29 3E 02 21 09 45 C3 C7 3B 3E D..E.<)>.!.E..;>
026D70: FF 32 74 44 AF 32 DC 5F C3 00 45 AF 32 55 44 C3 .2tD.2._..E.2UD.
026D80: 00 45 AF 32 DA 5F 3A 5C 44 B7 CA 00 45 CD 7D 2F .E.2._:\D...E.}/
026D90: C3 00 45 CD 68 3B F5 47 3A 7C 44 B0 CA A7 50 3E ..E.h;.G:|D...P>
026DA0: FF CD 6C 3B CD 30 3B F1 CD 6C 3B C3 00 45 CD AC ..l;.0;..l;..E..
026DB0: 06 C3 00 45 CD 3C 29 CD 9F 24 CA 0C 51 CD 73 39 ...E.<)..$..Q.s9
026DC0: CD 9E 36 CA CB 50 06 00 C3 CE 50 CD 69 39 78 11 ..6..P....P.i9x.
026DD0: C7 9B CD 20 37 4F CD 63 39 79 CD B1 20 E5 CD 9D ... 7O.c9y.. ...
026DE0: 27 E1 7C B5 CA FD 50 3A 5B 44 B7 CA 00 45 CD DC '.|...P:[D...E..
026DF0: 1C C2 00 45 CD 63 39 CD C9 21 C3 DD 50 3A 7D 44 ...E.c9..!..P:}D
026E00: 86 CA 1E 47 11 CE 5E CD B1 37 CA 1E 47 CD 63 39 ...G..^..7..G.c9
026E10: FE 87 CA 1E 47 11 C6 5E CD B1 37 C2 00 45 AF 32 ....G..^..7..E.2
026E20: 55 44 C3 00 45 CD 63 39 FE 87 CA 36 47 11 C6 5E UD..E.c9...6G..^
026E30: CD B1 37 C2 00 45 21 D0 5F 35 C3 00 45 CD 63 39 ..7..E!._5..E.c9
026E40: B7 FA 7D 47 3A 6E 44 B7 CA 7D 47 3A 59 44 B7 CA ..}G:nD..}G:YD..
026E50: 67 47 CD 68 3B 32 E5 5F 3E FF CD 6C 3B CD 59 3B gG.h;2._>..l;.Y;
026E60: 32 D3 5F AF CD 55 3B CD 0B 3A 3A 59 44 B7 CA 7D 2._..U;..::YD..}
026E70: 47 3A E5 5F CD 6C 3B 3A D3 5F CD 55 3B CD 92 39 G:._.l;:._.U;..9
026E80: CD 73 39 B7 FA A2 47 11 E9 5B CD 32 2E C2 95 47 .s9...G..[.2...G
026E90: CD 8E 39 EB E9 7E CD AB 36 DA 32 48 CD 3C 29 C3 ..9..~..6.2H.<).
026EA0: 14 51 F5 CD 69 39 F1 E6 7F CD B2 36 92 51 6F 50 .Q..i9.....6.QoP
026EB0: 00 45 92 4F 82 50 85 4C 85 4C 7B 50 F9 4F 5C 50 .E.O.P.L.L{P.O\P
026EC0: 90 59 2D 53 12 56 70 56 C3 56 29 49 46 48 E0 48 .Y-S.VpV.V)IFH.H
026ED0: 4D 4C 5F 4C 7D 4C 8D 4C 98 4C ED 4C F8 4C 03 4D ML_L}L.L.L.L.L.M
026EE0: 0B 4D AF 4D DB 52 64 50 93 50 AE 50 11 51 B4 50 .M.M.RdP.P.P.Q.P
026EF0: 8A 51 AF 51 C9 51 3A 52 45 52 4D 52 59 52 61 52 .Q.Q.Q:RERMRYRaR
026F00: 82 50 F3 52 FB 52 03 53 A0 53 D1 53 62 54 7F 54 .P.R.R.S.S.SbT.T
026F10: 8A 54 93 54 BF 54 02 56 63 56 0A 56 BB 56 E7 56 .T.T.T.VcV.V.V.V
026F20: 89 58 88 59 22 5A 2A 5A 55 5A 5D 5A 60 5A 68 5A .X.Y"Z*ZUZ]Z`ZhZ
026F30: FE 5A 3E 21 C3 06 5B 3E 26 C3 06 5B 3E 0C C3 06 .Z>!..[>&..[>...
026F40: 5B 3E 38 C3 06 5B CD A1 48 E5 3E 3A CD E8 35 CD [>8..[..H.>:..5.
026F50: 99 39 CD 63 39 FE 1B C2 67 48 3A 70 44 B7 C2 7E .9.c9...gH:pD..~
026F60: 44 CD 1B 36 C3 4A 48 11 80 97 AF CD 20 37 C2 76 D..6.JH..... 7.v
026F70: 48 3E 20 12 3E 01 4F 11 7F 97 12 21 7E 97 36 2B H> .>.O....!~.6+
026F80: 23 23 79 CD BB 36 36 2F D1 23 CD E4 36 36 35 EB ##y..66/.#..665.
026F90: 06 00 CD 88 29 DA 00 45 21 7E 97 CD 20 0B C3 00 ....)..E!~.. ...
026FA0: 45 CD 1B 36 CD 73 39 CD 9E 36 C2 CC 48 CD 69 39 E..6.s9..6..H.i9
026FB0: E5 7E B7 CA 14 5B 23 B8 C2 B1 48 CD 8E 39 D1 CD .~...[#...H..9..
026FC0: D8 36 44 4D 0B EB CD 13 2C CD 73 39 11 9D 5E CD .6DM....,.s9..^.
026FD0: B1 37 C2 27 52 23 CD 8E 39 CD 73 39 CD 9A 2A C9 .7.'R#..9.s9..*.
026FE0: CD 3C 29 CD 73 39 11 02 5E CD B1 37 CA F7 48 3E .<).s9..^..7..H>
026FF0: 02 21 00 45 C3 C7 3B CD 2A 2C 7C B5 CA 02 49 CD .!.E..;.*,|...I.
027000: B7 CA 00 45 3E 11 CD 70 3B C3 00 45 3E 73 C3 06 ...E>..p;..E>s..
027010: 5B CD 3C 29 11 77 5E CD 73 39 CD B1 37 C2 29 51 [.<).w^.s9..7.)Q
027020: CD 8E 39 CD 73 39 C3 59 51 11 A0 5E CD B1 37 C2 ..9.s9.YQ..^..7.
027030: 38 51 CD D8 2C C3 00 45 11 08 5E CD B1 37 C2 59 8Q..,..E..^..7.Y
027040: 51 CD 9F 24 C2 50 51 CD 2A 2C CD 9D 27 C3 00 45 Q..$.PQ.*,..'..E
027050: CD 41 23 CD 9D 27 C3 00 45 CD C2 2B DA 14 5B 7C .A#..'..E..+..[|
027060: B5 CA 80 51 EB CD 2A 2C EB CD C0 36 DA 3C 48 54 ...Q..*,...6.<HT
027070: 5D CD 9D 27 EB CD DE 1F 7C B5 CA 85 51 C3 00 45 ]..'....|...Q..E
027080: 3E 33 C3 06 5B 3E 7E C3 06 5B 3E 09 21 00 45 C3 >3..[>~..[>.!.E.
027090: C7 3B CD 1D 2E DA 14 5B F5 CD 73 39 C2 14 5B F1 .;.....[..s9..[.
0270A0: C2 00 45 3E FF 32 74 44 AF 32 DC 5F C3 00 45 CD ..E>.2tD.2._..E.
0270B0: 3C 29 CD 73 39 CA C0 51 3E 04 21 00 45 C3 C7 3B <).s9..Q>.!.E..;
0270C0: CD 43 21 CD 61 1D C3 00 45 CD A1 48 E5 3E 3A CD .C!.a...E..H.>:.
0270D0: E8 35 CD 99 39 CD 63 39 FE 1B C2 EA 51 3A 70 44 .5..9.c9....Q:pD
0270E0: B7 C2 7E 44 CD 1B 36 C3 CD 51 11 7E 97 CD F2 14 ..~D..6..Q.~....
0270F0: DA 2F 52 EB 36 2F 23 CD F3 36 2B 2B D1 D5 CD E4 ./R.6/#..6++....
027100: 36 EB E1 E5 CD 88 29 DA 2C 52 EB D1 3A 7D 44 B7 6.....).,R..:}D.
027110: CA 1E 52 36 30 23 CD E4 36 36 35 CD 1B 36 21 7E ..R60#..665..6!~
027120: 97 CD 20 0B C3 00 45 3E 48 C3 06 5B C3 00 45 3E .. ...E>H..[..E>
027130: 34 CD 70 3B CD 1B 36 C3 CD 51 CD 3C 29 3E 02 21 4.p;..6..Q.<)>.!
027140: 0C 45 C3 C7 3B 3E 0A 21 00 45 C3 C7 3B 21 FF FF .E..;>.!.E..;!..
027150: 22 D5 5F 22 D7 5F C3 BB 4D 3E 03 21 21 45 C3 C7 "._"._..M>.!!E..
027160: 3B CD 3C 29 CD 63 39 11 BC 96 7E 12 B7 CA 75 52 ;.<).c9...~...uR
027170: 13 23 C3 6A 52 21 BC 96 CD 8E 39 CD DD 25 CD E9 .#.jR!....9..%..
027180: 25 DA 14 5B CD 63 39 C2 14 5B 21 FF FF CD 5B 26 %..[.c9..[!...[&
027190: DA B7 52 CD 7C 29 22 76 44 CD 78 27 C2 C6 52 CD ..R.|)"vD.x'..R.
0271A0: 47 2B CA B7 52 D2 93 52 3A 7D 44 B7 CA 00 45 3E G+..R..R:}D...E>
0271B0: 36 CD 70 3B C3 00 45 3A 7D 44 B7 CA 00 45 3E 37 6.p;..E:}D...E>7
0271C0: CD 70 3B C3 00 45 3A 7D 44 B7 CA 00 45 3E 61 CD .p;..E:}D...E>a.
0271D0: 70 3B CD 99 2C CD 35 36 C3 00 45 21 BC 96 CD 8E p;..,.56..E!....
0271E0: 39 CD DD 25 CD E9 25 DA 14 5B 2A 76 44 CD 80 29 9..%..%..[*vD..)
0271F0: C3 9F 52 3E 06 21 00 45 C3 C7 3B 3E 04 21 06 45 ..R>.!.E..;>.!.E
027200: 9D 27 CD 37 2C D2 02 49 CD 07 2E CD D3 2E CD D4 .'.7,..I........
027210: 26 CD 43 21 CD 61 1D CD 99 2C CD 2E 2C CD 2A 2C &.C!.a...,..,.*,
027220: CD 9D 27 CD 37 2C C3 00 45 CD A3 49 3A 7C 44 B7 ..'.7,..E.£I:|D.
027230: CA 91 49 CD 68 3B 32 E5 5F 3E FF CD 6C 3B CD 59 ..I.h;2._>..l;.Y
027240: 3B 32 D3 5F AF CD 55 3B 2A EA 5F 44 4D CD 4D 3B ;2._..U;*._DM.M;
027250: 90 2F 3C F2 5C 49 C5 CD 30 3B C1 78 B7 CA 69 49 ./<.\I..0;.x..iI
027260: F5 CD 1B 36 F1 3D C3 5C 49 CD 51 3B 91 2F 3C B7 ...6.=.\I.Q;./<.
027270: CA 7C 49 F5 CD 7E 36 F1 3D C3 6F 49 2A CA 5F CD .|I..~6.=.oI*._.
027280: 2B 36 3A E5 5F CD 6C 3B 3A D3 5F CD 55 3B C3 00 +6:._.l;:._.U;..
027290: 45 2A EA 5F 44 4D 2A CA 5F EB 21 CC 5F CD 72 06 E*._DM*._.!._.r.
0272A0: C3 00 45 AF 32 D1 5F 32 D4 5F 3A 7C 44 B7 C2 B9 ..E.2._2._:|D...
0272B0: 49 3A 09 01 B7 C2 B9 49 C9 21 00 00 22 CC 5F 21 I:.....I.!.."._!
0272C0: 00 00 22 CE 5F 0E 00 CD 73 39 FE 24 C2 DB 49 0E .."._...s9.$..I.
0272D0: 80 CD 69 39 FE 2C 2E 00 CA E1 49 CD C2 2B DA 14 ..i9.,....I..+..
0272E0: 5B 7D B1 32 EB 5F CD 92 36 DA 48 4C 0E 00 CD 73 [}.2._..6.HL...s
0272F0: 39 FE 24 C2 02 4A 0E 80 CD 69 39 FE 20 2E 00 CA 9.$..J...i9. ...
027300: 08 4A CD C2 2B DA 14 5B 7D B1 32 EA 5F AF 32 C6 .J..+..[}.2._.2.
027310: 9B 32 C7 9B 21 C7 9B 22 CA 5F CD 73 39 11 7E 5E .2..!.."._.s9.~^
027320: CD B1 37 C2 BB 4A CD 8E 39 3E FF 32 D4 5F CD 73 ..7..J..9>.2._.s
027330: 39 11 7E 97 CD F2 14 DA 14 5B EB 11 BA 5F 36 31 9.~......[..._61
027340: 23 4E 73 23 46 72 78 B7 CA 5A 4A 32 C6 5F 79 32 #Ns#Frx..ZJ2._y2
027350: C9 5F 3E 4E 32 C5 5F C3 78 4A 32 C9 5F 79 B7 CA ._>N2._.xJ2._y..
027360: 6E 4A 41 32 C6 5F 3E 43 32 C5 5F C3 78 4A 32 C6 nJA2._>C2._.xJ2.
027370: 5F 3E 4C 32 C5 5F 06 01 21 C7 9B 78 CD BB 36 36 _>L2._..!..x..66
027380: 00 CD 73 39 11 A4 5E CD B1 37 C2 BB 4A CD 8E 39 ..s9..^..7..J..9
027390: CD 73 39 CD 9E 36 C2 14 5B CD 69 39 78 11 BB 9D .s9..6..[.i9x...
0273A0: CD 20 37 CA 14 5B 23 CD 8E 39 21 BB 9D CD BB 36 . 7..[#..9!....6
0273B0: 36 00 AF 32 BA 9D 3E FF 32 D1 5F CD 73 39 11 38 6..2..>.2._.s9.8
0273C0: 5E CD B1 37 C2 26 4B CD 8E 39 CD 73 39 CA 48 4C ^..7.&K..9.s9.HL
0273D0: E5 C5 CD F1 2A C1 CA 48 4C E3 CD CC 1C 22 CC 5F ....*..HL...."._
0273E0: CA E8 4A 3E 52 C3 06 5B E1 CD 8E 39 CD 73 39 CA ..J>R..[...9.s9.
0273F0: 26 4B 11 61 5E CD B1 37 C2 48 4C CD 8E 39 CD 73 &K.a^..7.HL..9.s
027400: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
027410: 21 00 01 00 02 09 46 E5 21 00 41 02 00 00 00 02 !.....F.!.A.....
027420: 21 00 46 02 00 00 00 02 21 00 42 02 00 00 00 02 !.F.....!.B.....
027430: 21 00 47 02 00 00 00 02 21 00 43 02 00 00 00 02 !.G.....!.C.....
027440: 21 00 48 02 00 00 00 02 21 00 44 02 00 00 00 02 !.H.....!.D.....
027450: 21 00 49 02 00 00 00 02 21 00 45 02 00 00 00 02 !.I.....!.E.....
027460: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
027470: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
027480: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
027490: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0274A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0274B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0274C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0274D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0274E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0274F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
027500: C3 C7 3B CD C2 2B DA 14 5B 22 E6 5F CD 92 36 DA ..;..+..["._..6.
027510: 14 5B CD C2 2B DA 14 5B 7D 2A E6 5F 77 23 22 E6 .[..+..[}*._w#".
027520: 5F CD 92 36 CA 00 45 D2 12 53 C3 00 45 21 7E 97 _..6..E..S..E!~.
027530: 22 DF 5F CD 73 39 CA 9A 53 FE 3F CA 44 53 CD 1B "._.s9..S.?.DS..
027540: 36 C3 47 53 CD 69 39 2A DF 5F EB CD F2 14 DA 14 6.GS.i9*._......
027550: 5B EB 3A 79 44 B7 C2 78 53 36 32 23 CD F3 36 78 [.:yD..xS62#..6x
027560: B7 C2 73 53 79 B7 C2 6E 53 36 03 C3 74 53 36 00 ..sSy..nS6..tS6.
027570: C3 7C 53 70 34 C3 7C 53 36 2E 23 23 23 36 00 23 .|Sp4.|S6.###6.#
027580: 36 35 22 DF 5F CD 92 36 CA 91 53 DA 14 5B C3 47 65"._..6..S..[.G
027590: 53 21 7E 97 CD 20 0B C3 00 45 CD 1B 36 C3 00 45 S!~.. ...E..6..E
0275A0: CD 45 25 CD 8C 23 CD 83 2E CD 45 25 CD 8C 23 3E .E%..#....E%..#>
0275B0: 2C CD 70 3B 3A 4C 44 CD 40 27 CD D4 26 CD 45 25 ,.p;:LD.@'..&.E%
0275C0: CD 73 39 00 00 00 CA 00 27 3E 03 21 06 45 C3 C7 .s9.....'>.!.E..
0275D0: 3B AF 32 D2 5F CD 73 39 CA E9 53 11 51 5E CD B1 ;.2._.s9..S.Q^..
0275E0: 37 C2 14 5B 3E FF 32 D2 5F 3A 09 01 B7 CA 00 45 7..[>.2._:.....E
0275F0: 3A 72 44 B7 CA 33 54 CD 40 27 CD A8 2D CD 61 27 :rD..3T.@'..-.a'
027600: CD AC 06 3A 72 44 CD CA 39 DA 33 54 CD 73 39 CA ...:rD..9.3T.s9.
027610: 03 54 FE 2A CA 03 54 FE 40 CC 69 39 CD A3 49 3E .T.*..T.@.i9.£I>
027620: FF 2A EA 5F 44 4D 2A CA 5F EB 21 CC 5F CD 72 06 .*._DM*._.!._.r.
027630: C3 03 54 3E 04 CD 1D 02 B7 FA 00 45 0F D2 00 45 ..T>.......E...E
027640: CD 3C 27 B7 CA 00 45 CD 99 2C 7C B5 CA 00 45 CD .<'...E..,|...E.
027650: E7 1C CD D3 2E 3A D2 5F B7 C2 00 45 CD 83 21 C3 .....:._...E..!.
027660: 00 45 CD 3C 29 CD DD 25 3E 20 32 D9 5F CD 5C 4D .E.<)..%> 2._.\M
027670: 3A 7D 44 B7 CA 00 45 3E 3B CD 70 3B C3 00 45 CD :}D...E>;.p;..E.
027680: 3C 29 3E 04 21 03 45 C3 C7 3B CD 63 39 CD 28 36 <)>.!.E..;.c9.(6
027690: C3 00 45 CD 73 39 CA 14 5B AF CD AD 27 CD A1 2C ..E.s9..[...'..,
0276A0: CD 73 39 CA 14 5B 11 9D 5E CD B1 37 C2 14 5B CD .s9..[..^..7..[.
0276B0: 8E 39 CD 73 39 AF CD AD 27 CD B2 2C C3 00 45 CD .9.s9...'..,..E.
0276C0: 3C 29 AF 32 D2 5F 01 00 00 CD 99 2C 7C B5 CA E1 <).2._.....,|...
0276D0: 55 CD DD 25 21 C7 9B 22 DF 5F 21 8F 9C 22 DD 5F U..%!.."._!.."._
0276E0: CD 73 39 CA 99 55 11 51 5E CD B1 37 C2 FA 54 CD .s9..U.Q^..7..T.
0276F0: 8E 39 3E FF 32 D2 5F C3 E0 54 CD E9 25 DA 14 5B .9>.2._..T..%..[
027700: 41 44 00 59 52 4C 4F 43 41 54 45 00 61 52 55 4E AD.YRLOCATE.aRUN
027710: 4C 4F 43 4B 00 5D 5A 4D 4F 44 49 46 59 00 F3 52 LOCK.]ZMODIFY..R
027720: 50 41 43 4B 00 FB 52 50 4F 4B 45 00 03 53 51 55 PACK..RPOKE..SQU
027730: 49 54 00 A0 53 52 45 41 44 00 D1 53 52 45 43 41 IT..SREAD..SRECA
027740: 4C 4C 00 62 54 52 45 49 4E 44 45 58 00 7F 54 52 LL.bTREINDEX..TR
027750: 45 4D 41 52 4B 00 8A 54 52 45 4E 41 4D 45 00 93 EMARK..TRENAME..
027760: 54 52 45 50 4C 41 43 45 00 BF 54 52 45 50 4F 52 TREPLACE..TREPOR
027770: 54 00 02 56 52 45 53 45 54 00 63 56 52 45 53 54 T..VRESET.cVREST
027780: 4F 52 45 00 0A 56 53 41 56 45 00 BB 56 53 45 54 ORE..VSAVE..VSET
027790: 00 E7 56 53 4B 49 50 00 89 58 53 4F 52 54 00 88 ..VSKIP..XSORT..
0277A0: 59 53 55 4D 00 22 5A 54 45 58 54 00 2A 5A 55 53 YSUM."ZTEXT.*ZUS
0277B0: 45 00 68 5A 57 41 49 54 00 FE 5A 43 41 53 45 00 E.hZWAIT..ZCASE.
0277C0: 85 4C 45 4E 44 43 41 53 45 00 7B 50 4F 54 48 45 .LENDCASE.{POTHE
0277D0: 52 57 49 53 45 00 85 4C 42 52 4F 57 53 45 00 4D RWISE..LBROWSE.M
0277E0: 4C 4A 4F 49 4E 00 45 52 54 4F 54 41 4C 00 55 5A LJOIN.ERTOTAL.UZ
0277F0: 55 50 44 41 54 45 00 60 5A FF 41 4C 4C 00 41 4E UPDATE.`Z.ALL.AN
027800: 44 00 42 4C 41 4E 4B 00 42 4F 54 54 4F 4D 00 44 D.BLANK.BOTTOM.D
027810: 4F 00 45 4C 53 45 00 45 4E 44 54 45 58 54 00 46 O.ELSE.ENDTEXT.F
027820: 49 45 4C 44 53 00 46 49 4C 45 00 46 49 4C 45 53 IELDS.FILE.FILES
027830: 00 53 43 52 45 45 4E 00 47 45 54 00 47 45 54 53 .SCREEN.GET.GETS
027840: 00 49 46 00 49 4E 44 45 58 00 4D 45 4D 4F 52 59 .IF.INDEX.MEMORY
027850: 00 4E 4F 55 50 44 41 54 45 00 4F 46 46 00 4F 4E .NOUPDATE.OFF.ON
027860: 00 50 49 43 54 55 52 45 00 50 52 49 4D 41 52 59 .PICTURE.PRIMARY
027870: 00 50 52 49 4E 54 00 52 45 43 4F 52 44 00 53 41 .PRINT.RECORD.SA
027880: 59 00 53 45 43 4F 4E 44 41 52 59 00 53 54 41 54 Y.SECONDARY.STAT
027890: 55 53 00 53 54 52 55 43 54 55 52 45 00 54 4F 00 US.STRUCTURE.TO.
0278A0: 54 4F 50 00 55 53 49 4E 47 00 57 48 49 4C 45 00 TOP.USING.WHILE.
0278B0: 57 49 54 48 00 45 4E 44 44 4F 00 45 4E 44 49 46 WITH.ENDDO.ENDIF
0278C0: 00 43 41 53 45 00 45 4E 44 43 41 53 45 00 4F 54 .CASE.ENDCASE.OT
0278D0: 48 45 52 57 49 53 45 00 42 45 4C 4C 00 51 44 43 HERWISE.BELL.QDC
0278E0: 41 52 52 59 00 54 44 43 4F 4C 4F 4E 00 57 44 43 ARRY.TDCOLON.WDC
0278F0: 4F 4E 46 49 52 4D 00 58 44 44 45 42 55 47 00 59 ONFIRM.XDDEBUG.Y
027900: CD 63 39 CA 99 55 CD 73 39 CD F1 2A C2 14 55 3E .c9..U.s9..*..U>
027910: 14 C3 06 5B CD 63 39 CD 92 28 C2 F8 55 22 E3 5F ...[.c9..(..U"._
027920: 11 B0 5E CD 63 39 79 CD BB 36 CD 8E 39 CD 73 39 ..^.c9y..6..9.s9
027930: CD B1 37 C2 FD 55 CD 8E 39 2A DF 5F EB CD F2 14 ..7..U..9*._....
027940: DA 14 5B 06 4E D5 EB 23 23 7E B7 C2 58 55 06 43 ..[.N..##~..XU.C
027950: 2B 7E B7 C2 58 55 06 4C 2A E3 5F 11 0B 00 19 7E +~..XU.L*._....~
027960: B8 D1 CA 6A 55 3E 53 C3 06 5B 2A E3 5F EB 36 31 ...jU>S..[*._.61
027970: 23 CD E4 36 36 35 22 DF 5F 3E FF 32 DB 5F CD 92 #..665"._>.2._..
027980: 36 CA 99 55 DA 8A 55 C3 06 55 11 FE 5D CD B1 37 6..U..U..U..]..7
027990: C2 E0 54 CD 8E 39 C3 06 55 3A DB 5F B7 CA F8 55 ..T..9..U:._...U
0279A0: 21 01 00 CD 5B 26 01 00 00 DA E1 55 CD 78 27 CA !...[&.....U.x'.
0279B0: D8 55 DA E1 55 CD DC 1C CA D8 55 21 C7 9B CD 20 .U..U.....U!...
0279C0: 0B CD E1 26 CD E7 1C CD D3 2E 3A D2 5F B7 C2 D4 ...&......:._...
0279D0: 55 CD 83 21 CD E8 26 03 CD 47 2B CA E1 55 D2 AC U..!..&..G+..U..
0279E0: 55 3A 7D 44 B7 CA 00 45 60 69 CD 1B 36 CD 35 36 U:}D...E`i..6.56
0279F0: 3E 3E CD 70 3B C3 00 45 3E 41 C3 06 5B 3E 42 C3 >>.p;..E>A..[>B.
027A00: 06 5B 3E 05 21 00 45 C3 C7 3B 3E 03 21 0F 45 C3 .[>.!.E..;>.!.E.
027A10: C7 3B CD 73 39 11 FA 5D CD B1 37 C2 35 56 CD 8E .;.s9..]..7.5V..
027A20: 39 CD 73 39 CA 2F 56 3E 03 21 15 45 C3 C7 3B CD 9.s9./V>.!.E..;.
027A30: 20 29 C3 00 45 CD 73 39 CA 00 45 CD F1 2A C2 46 )..E.s9..E..*.F
027A40: 56 3E 14 C3 37 5B E5 CD 63 39 CD 15 2A C2 53 56 V>..7[..c9..*.SV
027A50: CD 79 2A E1 CD 8E 39 CD 92 36 CA 00 45 DA 14 5B .y*...9..6..E..[
027A60: C3 35 56 CD 73 39 C2 6A 56 AF CD 71 2E C3 00 45 .5V.s9.jV..q...E
027A70: 3A 5C 44 B7 CA 00 45 CD 40 27 CD 45 25 CD 61 27 :\D...E.@'.E%.a'
027A80: CD 6F 2F 3A 5D 44 B7 CA B3 56 3D FA B3 56 CA A6 .o/:]D...V=..V..
027A90: 56 32 5D 44 3D 21 5E 44 CD BB 36 7E 32 5C 44 AF V2]D=!^D..6~2\D.
027AA0: 32 74 44 C3 00 45 AF 32 5C 44 32 5D 44 32 74 44 2tD..E.2\D2]D2tD
027AB0: C3 00 45 3E 2D CD 70 3B C3 00 45 3E 03 21 12 45 ..E>-.p;..E>.!.E
027AC0: C3 C7 3B CD 73 39 11 69 5E CD B1 37 C2 D6 56 AF ..;.s9.i^..7..V.
027AD0: CD 89 2E C3 00 45 11 82 5E CD B1 37 C2 14 5B 3E .....E..^..7..[>
027AE0: 01 CD 89 2E C3 00 45 CD 73 39 11 D8 5E CD 32 2E ......E.s9..^.2.
027AF0: C2 FF 56 D5 CD 8E 39 CD 6E 58 E1 77 C3 00 45 11 ..V...9.nX.w..E.
027B00: 44 44 45 4C 45 54 45 44 00 5B 44 45 43 48 4F 00 DDELETED.[DECHO.
027B10: 6E 44 45 4A 45 43 54 00 7A 44 45 53 43 41 50 45 nDEJECT.zDESCAPE
027B20: 00 70 44 45 58 41 43 54 00 71 44 49 4E 54 45 4E .pDEXACT.qDINTEN
027B30: 53 49 54 59 00 75 44 4C 49 4E 4B 41 47 45 00 78 SITY.uDLINKAGE.x
027B40: 44 52 41 57 00 79 44 53 54 45 50 00 7B 44 53 43 DRAW.yDSTEP.{DSC
027B50: 52 45 45 4E 00 09 01 54 41 4C 4B 00 7D 44 FF 41 REEN...TALK.}D.A
027B60: 4C 54 45 52 4E 41 54 45 00 16 57 43 41 4C 4C 00 LTERNATE..WCALL.
027B70: 99 57 43 4F 4E 53 4F 4C 45 00 0D 57 44 41 54 45 .WCONSOLE..WDATE
027B80: 00 12 58 44 45 46 41 55 4C 54 00 01 58 46 4F 52 ..XDEFAULT..XFOR
027B90: 4D 41 54 00 A8 57 48 45 41 44 49 4E 47 00 70 57 MAT..WHEADING.pW
027BA0: 49 4E 44 45 58 00 49 58 4D 41 52 47 49 4E 00 39 INDEX.IXMARGIN.9
027BB0: 58 50 52 49 4E 54 00 67 57 FF 00 00 00 00 00 00 XPRINT.gW.......
027BC0: 00 01 01 00 00 00 00 C7 9B 00 00 00 F3 56 35 8E .............V5.
027BD0: 00 00 00 00 00 00 00 00 05 D4 51 41 07 51 42 00 ..........QA.QB.
027BE0: 51 43 01 51 44 02 51 45 03 51 00 00 41 4C 4C 00 QC.QD.QE.Q..ALL.
027BF0: 99 57 43 4F 4E 53 4F 4C 45 00 0D 57 44 41 54 45 .WCONSOLE..WDATE
027C00: C3 0F 45 C3 A6 48 C3 A5 49 C3 DB 4C C3 EC 4E CD ..E..H..I..L..N.
027C10: 3C 29 AF 32 DD 56 32 D9 56 32 DA 56 CD DD 25 CD <).2.V2.V2.V..%.
027C20: 73 39 CA 7A 45 CD E9 25 DA C8 55 CD 73 39 CA 7A s9.zE..%..U.s9.z
027C30: 45 11 7E 56 CD B1 37 C2 4F 45 CD 8E 39 22 EB 56 E.~V..7.OE..9".V
027C40: AF CD AD 27 DA 8C 48 3E FF 32 DD 56 C3 1F 45 11 ...'..H>.2.V..E.
027C50: 9B 56 CD B1 37 C2 63 45 CD 8E 39 3E FF 32 D9 56 .V..7.cE..9>.2.V
027C60: C3 1F 45 11 65 56 CD B1 37 C2 C8 55 CD 8E 39 3E ..E.eV..7..U..9>
027C70: FF 32 D9 56 32 DA 56 C3 1F 45 CD 2A 2C 22 F5 56 .2.V2.V..E.*,".V
027C80: 7C B5 CA 88 45 CD 9D 27 CD 37 2C D2 88 45 3A DD |...E..'.7,..E:.
027C90: 56 B7 CA F3 46 21 00 00 22 04 57 21 64 00 22 FE V...F!..".W!d.".
027CA0: 56 CD 43 21 3A D9 56 B7 CA 18 47 2A EB 56 CD 8E V.C!:.V...G*.V..
027CB0: 39 3E 04 CD AD 27 3E 41 CD F0 2B DA 8C 48 CD 3C 9>...'>A..+..H.<
027CC0: 27 32 D6 56 CD 61 27 CD 07 2E 3A DA 56 B7 CA 95 '2.V.a'...:.V...
027CD0: 46 21 C8 9B CD 8E 39 EB 01 E8 03 3A D6 56 CD 40 F!....9....:.V.@
027CE0: 27 CD B2 25 DA 5C 48 AF 12 CD E3 1C 22 00 57 2A '..%.\H.....".W*
027CF0: 00 57 7E FE 0D CA A9 46 11 0B 00 19 7E FE 4E CA .W~....F....~.N.
027D00: 5F 5F CD 32 2E C2 14 5B CD 8E 39 EB E9 CD 6E 58 __.2...[..9...nX
027D10: CD 55 3B C3 00 45 CD 73 39 11 9D 5E CD B1 37 C2 .U;..E.s9..^..7.
027D20: 58 57 CD 8E 39 3A 4C 44 B7 CA 38 57 CD 40 27 CD XW..9:LD..8W.@'.
027D30: D4 26 CD 45 25 CD 61 27 AF 32 4C 44 CD 73 39 CA .&.E%.a'.2LD.s9.
027D40: 00 45 3E 04 CD AD 27 3E 81 CD F0 2B CD 3C 27 32 .E>...'>...+.<'2
027D50: 4C 44 CD 61 27 C3 00 45 CD 6E 58 CA 61 57 3A 4C LD.a'..E.nX.aW:L
027D60: 44 32 56 44 C3 00 45 CD 6E 58 CD 6C 3B C3 00 45 D2VD..E.nX.l;..E
027D70: CD 73 39 11 9D 5E CD B1 37 C2 7F 57 CD 8E 39 01 .s9..^..7..W..9.
027D80: 3C 00 21 41 97 CD F8 36 CD 63 39 11 41 97 AF CD <.!A...6.c9.A...
027D90: 20 37 AF 32 7D 97 C3 00 45 CD 5B 58 CD C2 2B DA 7.2}...E.[X..+.
027DA0: 14 5B 22 52 44 C3 00 45 3A 72 44 B7 CA BC 57 CD .["RD..E:rD...W.
027DB0: 40 27 CD 45 25 AF 32 72 44 CD 61 27 CD 5B 58 CA @'.E%.2rD.a'.[X.
027DC0: F2 57 11 71 5E CD B1 37 CA F9 57 11 31 5E CD B1 .W.q^..7..W.1^..
027DD0: 37 CA F2 57 3E 06 CD AD 27 3E 02 CD F0 2B D2 E6 7..W>...'>...+..
027DE0: 57 3E 59 C3 06 5B CD 3C 27 32 72 44 CD 61 27 C3 W>Y..[.<'2rD.a'.
027DF0: 00 45 AF 32 7C 44 C3 00 45 3E FF 32 7C 44 C3 00 .E.2|D..E>.2|D..
027E00: 45 CD 5B 58 CA 14 5B 7E E6 5F D6 40 32 5A 44 C3 E.[X..[~._.@2ZD.
027E10: 00 45 CD 5B 58 CD FF 37 7B 32 4E 44 CD 8E 39 CD .E.[X..7{2ND..9.
027E20: 69 39 CD FF 37 7B 32 4F 44 CD 8E 39 CD 69 39 CD i9..7{2OD..9.i9.
027E30: FF 37 7B 32 50 44 C3 00 45 CD 5B 58 CD C2 2B DA .7{2PD..E.[X..+.
027E40: 14 5B 7D 32 61 01 C3 00 45 CD 5B 58 CD 8C 23 CD .[}2a...E.[X..#.
027E50: 63 39 CA 00 45 CD AD 5A C3 00 45 CD 73 39 11 9D c9..E..Z..E.s9..
027E60: 5E CD B1 37 C2 14 5B CD 8E 39 CD 73 39 C9 CD 73 ^..7..[..9.s9..s
027E70: 39 11 5E 5E CD B1 37 CA 85 58 11 5A 5E CD B1 37 9.^^..7..X.Z^..7
027E80: C2 37 5B AF C9 3E FF B7 C9 CD 3C 29 0E 00 11 01 .7[..>....<)....
027E90: 00 CD 73 39 CA 14 59 FE 2D C2 A4 58 0E 01 CD 69 ..s9..Y.-..X...i
027EA0: 39 C3 AC 58 FE 2B C2 AC 58 CD 69 39 11 FA 5D CD 9..X.+..X.i9..].
027EB0: B1 37 CA 75 59 CD C2 2B DA 14 5B 7C B5 CA 00 45 .7.uY..+..[|...E
027EC0: EB 79 B7 CA 14 59 CD 9F 24 CA F9 58 CD 99 2C 22 .y...Y..$..X..,"
027ED0: E8 5F CD 5A 22 DA F0 58 1B 22 E8 5F 7A B3 C2 D2 ._.Z"..X."._z...
027EE0: 58 2A E8 5F CD 9D 27 CD 7B 59 CA D2 58 C3 60 59 X*._..'.{Y..X.`Y
027EF0: CD 01 23 CD 9D 27 C3 60 59 CD 99 2C CD D8 36 DA ..#..'.`Y..,..6.
027F00: 51 46 23 46 23 CD E9 36 CD 63 39 0E 00 FE 27 C2 QF#F#..6.c9...'.
027F10: 15 46 C3 1A 46 FE 22 C2 25 46 4F CD 69 39 B9 CA .F..F.".%FO.i9..
027F20: 71 46 C3 2C 46 FE 2C CA 82 46 0E 2C 12 13 05 CA qF.,F.,..F.,....
027F30: 3F 46 CD 69 39 CA A9 46 B9 C2 2C 46 C3 71 46 CD ?F.i9..F..,F.qF.
027F40: 69 39 CA A9 46 B9 CA 71 46 FE 2C C2 3F 46 C3 82 i9..F..qF.,.?F..
027F50: 46 23 46 23 CD E9 36 4E C5 CD 63 39 0E 64 CD 9F F#F#..6N..c9.d..
027F60: 32 CD 8E 39 EB C1 CD 4D 33 CD 63 39 FE 2C CA 82 2..9...M3.c9.,..
027F70: 46 79 FE 2C CA 82 46 CD 69 39 CA A9 46 FE 2C C2 Fy.,..F.i9..F.,.
027F80: 77 46 CD 69 39 CA A9 46 2A 00 57 11 10 00 19 22 wF.i9..F*.W...."
027F90: 00 57 C3 EF 45 CD DC 1C 23 EB 01 E7 03 3A D6 56 .W..E...#....:.V
027FA0: CD 40 27 CD B2 25 DA 5C 48 CD 78 27 CA C7 45 DA .@'..%.\H.x'..E.
027FB0: 5C 48 CD 61 27 CD D3 2E CD 61 1D 2A 04 57 23 22 \H.a'....a.*.W#"
027FC0: 04 57 2A F5 56 23 22 F5 56 2A FE 56 2B 22 FE 56 .W*.V#".V*.V+".V
027FD0: 7C B5 C2 C7 45 3A 7D 44 B7 CA C7 45 2A 04 57 CD |...E:}D...E*.W.
027FE0: 1B 36 CD 35 36 3E 1A CD 70 3B 21 64 00 22 FE 56 .6.56>..p;!d.".V
027FF0: C3 C7 45 CD 16 51 DA 09 47 CD 43 21 CD 61 1D 2A ..E..Q..G.C!.a.*
028000: F5 56 23 22 F5 56 C3 F3 46 CD D4 26 CD 2A 2C CD .V#".V..F..&.*,.
028010: 9D 27 CD 37 2C C3 83 48 3E 41 CD F0 2B DA 8C 48 .'.7,..H>A..+..H
028020: CD 3C 27 32 D6 56 01 09 02 11 BE 99 CD 7A 2C 3A .<'2.V.......z,:
028030: BE 99 FE 02 C2 99 48 01 C7 9B 21 C6 99 CD 75 25 ......H...!...u%
028040: 21 AF 9F 22 F0 56 21 C6 99 22 00 57 7E FE 0D CA !..".V!..".W~...
028050: E5 47 22 CC 56 CD 92 28 C2 D8 47 22 D4 56 11 0B .G".V..(..G".V..
028060: 00 19 7E FE 4E CA 86 47 2A F0 56 36 2D 23 EB 2A ..~.N..G*.V6-#.*
028070: CC 56 EB CD E4 36 EB 2A D4 56 EB CD E4 36 36 35 .V...6.*.V...665
028080: 22 F0 56 C3 D8 47 2A CC 56 11 0B 00 19 7E FE 4E ".V..G*.V....~.N
028090: CA B7 47 2A F0 56 36 29 23 EB 2A CC 56 EB CD E4 ..G*.V6)#.*.V...
0280A0: 36 36 19 23 36 31 23 EB 2A D4 56 EB CD E4 36 36 66.#61#.*.V...66
0280B0: 35 22 F0 56 C3 D8 47 2A F0 56 36 29 23 EB 2A CC 5".V..G*.V6)#.*.
0280C0: 56 EB CD E4 36 36 31 23 EB 2A D4 56 EB CD E4 36 V...661#.*.V...6
0280D0: 36 35 22 F0 56 C3 D8 47 2A 00 57 11 10 00 19 22 65".V..G*.W...."
0280E0: 00 57 C3 4C 47 CD 07 2E CD 43 21 11 C7 9B 2A C4 .W.LG....C!...*.
0280F0: 99 44 4D 3A D6 56 CD 40 27 CD 7A 2C DA 5C 48 3A .DM:.V.@'.z,.\H:
028100: 0E 59 CD 9D 27 CD 7B 59 CA F9 58 C3 60 59 CD D8 .Y..'.{Y..X.`Y..
028110: 2C C3 60 59 CD 9F 24 CA 4D 59 CD 99 2C 22 E8 5F ,.`Y..$.MY..,"._
028120: CD E9 21 DA 3E 59 1B 22 E8 5F 7A B3 C2 20 59 2A ..!.>Y."._z.. Y*
028130: E8 5F CD 9D 27 CD 7B 59 CA 20 59 C3 60 59 CD E1 ._..'.{Y. Y.`Y..
028140: 26 CD 41 23 CD 9D 27 CD E8 26 C3 60 59 CD 99 2C &.A#..'..&.`Y..,
028150: 19 CD 9D 27 CD 7B 59 C2 60 59 CD 37 2C D2 54 59 ...'.{Y.`Y.7,.TY
028160: 3A 7D 44 B7 CA 00 45 3E 61 CD 70 3B CD 99 2C CD :}D...E>a.p;..,.
028170: 35 36 C3 00 45 CD 47 2B C3 00 45 3A 5B 44 FE FF 56..E.G+..E:[D..
028180: C0 11 01 00 CD DC 1C C9 3E 07 21 00 45 C3 C7 3B ........>.!.E..;
028190: 11 7E 97 CD F2 14 DA 14 5B EB 22 DF 5F CD 73 39 .~......[."._.s9
0281A0: 11 9D 5E CD B1 37 C2 1D 5A CD 8E 39 2A DF 5F 23 ..^..7..Z..9*._#
0281B0: 4E 23 46 CD 73 39 CD 72 2A EB 2A DF 5F 36 2F 23 N#F.s9.r*.*._6/#
0281C0: CD E4 36 22 DF 5F EB 22 E3 5F CD 63 39 C5 CD F1 ..6"._."._.c9...
0281D0: 2A C1 CD 8E 39 CD 92 36 CA F1 59 DA 14 5B 2A E3 *...9..6..Y..[*.
0281E0: 5F EB 2A DF 5F 36 29 23 CD E4 36 22 DF 5F C3 B3 _.*._6)#..6"._..
0281F0: 59 3A 7D 44 B7 CA 08 5A 2A E3 5F EB 2A DF 5F 36 Y:}D...Z*._.*._6
028200: 30 23 CD E4 36 22 DF 5F 2A DF 5F 36 35 3A 7D 44 0#..6"._*._65:}D
028210: B7 C4 1B 36 21 7E 97 CD 20 0B C3 00 45 3E 48 C3 ...6!~.. ...E>H.
028220: 06 5B 3E 03 21 03 45 C3 C7 3B C3 3F 5A CD 73 39 .[>.!.E..;.?Z.s9
028230: 11 17 5E CD B1 37 CA 00 45 CD 92 39 CD 28 36 3A ..^..7..E..9.(6:
028240: 5C 44 B7 CA 4F 5A CD CA 39 DA 70 56 C3 2D 5A CD \D..OZ..9.pV.-Z.
028250: 99 39 C3 2D 5A 3E 0B 21 00 45 C3 C7 3B C3 00 45 .9.-Z>.!.E..;..E
028260: 3E 0C 21 00 45 C3 C7 3B CD 61 27 CD 45 25 CD 44 >.!.E..;.a'.E%.D
028270: 27 CD 8C 23 CD 73 39 CA 00 45 AF CD AD 27 DA EF '..#.s9..E...'..
028280: 5A 3E 40 CD F0 2B DA EA 5A CD 44 27 CD B5 2D CD Z>@..+..Z.D'..-.
028290: D8 2C CD 73 39 CA 00 45 11 44 5E CD B1 37 C2 14 .,.s9..E.D^..7..
0282A0: 5B CD 8E 39 CD 73 39 CD AD 5A C3 00 45 0E 07 3E [..9.s9..Z..E..>
0282B0: 05 CD AD 27 DA EF 5A 3E 40 CD F0 2B DA F4 5A CD ...'..Z>@..+..Z.
0282C0: 3C 27 CD A6 23 CD 92 36 CA D7 5A DA D7 5A 0D C2 <'..#..6..Z..Z..
0282D0: AF 5A 3E 74 C3 06 5B CD B7 23 CD DF 22 CD 43 21 .Z>t..[..#..".C!
0282E0: DA F9 5A CD 61 27 CD D8 2C C9 3E 08 C3 06 5B 3E ..Z.a'..,.>...[>
0282F0: 28 C3 06 5B 3E 51 C3 06 5B 3E 7F C3 06 5B 3E 03 (..[>Q..[>...[>.
028300: C7 9B FE 20 C2 EB 47 CD DC 1C 36 20 21 AF 9F CD ... ..G...6 !...
028310: 20 0B CD 78 27 CA EB 47 DA 5C 48 CD 61 27 CD D3 ..x'..G.\H.a'..
028320: 2E CD 61 1D 2A 04 57 23 22 04 57 2A F5 56 23 22 ..a.*.W#".W*.V#"
028330: F5 56 2A FE 56 2B 22 FE 56 7C B5 C2 EB 47 3A 7D .V*.V+".V|...G:}
028340: 44 B7 CA EB 47 2A 04 57 CD 1B 36 CD 35 36 3E 1A D...G*.W..6.56>.
028350: CD 70 3B 21 64 00 22 FE 56 C3 EB 47 CD 45 25 3A .p;!d.".V..G.E%:
028360: 7D 44 B7 CA 74 48 2A 04 57 CD 1B 36 CD 35 36 3E }D..tH*.W..6.56>
028370: 1A CD 70 3B CD 61 27 CD D4 26 CD 2A 2C CD 9D 27 ..p;.a'..&.*,..'
028380: CD 37 2C 2A F5 56 CD 2E 2C C3 D0 55 3E 08 CD 70 .7,*.V..,..U>..p
028390: 3B 3E 01 32 6F 44 C3 D0 55 3E 17 CD 70 3B 3E 01 ;>.2oD..U>..p;>.
0283A0: 32 6F 44 C3 D0 55 CD 3C 29 CD DD 25 AF 32 DB 56 2oD..U.<)..%.2.V
0283B0: CD 73 39 CA 3B 49 CD E9 25 DA C8 55 CD 73 39 CA .s9.;I..%..U.s9.
0283C0: 3B 49 11 78 56 CD B1 37 CA D8 48 3E 57 CD 70 3B ;I.xV..7..H>W.p;
0283D0: 3E 01 32 6F 44 C3 D0 55 3E FF 32 DB 56 CD 8E 39 >.2oD..U>.2.V..9
0283E0: 21 BB 9D 22 04 57 11 00 00 CD E4 36 CD 73 39 CD !..".W.....6.s9.
0283F0: F1 2A C2 02 49 3E 14 CD 70 3B 3E 01 32 6F 44 C3 .*..I>..p;>.2oD.
028400: D0 55 E5 CD 63 39 CD 92 28 CA 19 49 3E 52 CD 70 .U..c9..(..I>R.p
028410: 3B 3E 01 32 6F 44 C3 D0 55 EB 2A 04 57 CD E4 36 ;>.2oD..U.*.W..6
028420: 22 04 57 11 00 00 CD E4 36 E1 CD 8E 39 CD 73 39 ".W.....6...9.s9
028430: FE 2C C2 B0 48 CD 69 39 C3 EC 48 3A DB 56 B7 C2 .,..H.i9..H:.V..
028440: 4F 49 3E 57 CD 70 3B 3E 01 32 6F 44 C3 D0 55 21 OI>W.p;>.2oD..U!
028450: 01 00 CD 5B 26 CD 78 27 CA 99 49 DA A2 49 CD DC ...[&.x'..I..I..
028460: 1C CA 99 49 CD 1B 36 3E 61 CD 70 3B CD 99 2C CD ...I..6>a.p;..,.
028470: 35 36 CD 1B 36 21 BB 9D 22 04 57 2A 04 57 CD E9 56..6!..".W*.W..
028480: 36 22 04 57 7A B3 CA 93 49 EB CD F5 4F DA A2 49 6".Wz...I...O..I
028490: C3 7B 49 CD E7 1C CD D3 2E CD 47 2B CA A2 49 D2 .{I.......G+..I.
0284A0: 55 49 C3 D0 55 CD 45 25 CD 44 27 CD 8C 23 CD 44 UI..U.E%.D'..#.D
0284B0: 27 CD 73 39 C2 C2 49 3E 5F CD 70 3B CD 99 39 CA '.s9..I>_.p;..9.
0284C0: D0 55 AF CD AD 27 3E C1 CD F0 2B 32 D6 56 CD 73 .U...'>...+2.V.s
0284D0: 39 CA E0 49 11 7E 56 CD B1 37 C2 C8 55 C3 62 4B 9..I.~V..7..U.bK
0284E0: 3E 23 CD 70 3B 3E 24 CD 70 3B CD E3 1C 01 01 02 >#.p;>$.p;......
0284F0: CD F8 36 21 00 00 22 04 57 21 00 00 22 00 57 2A ..6!..".W!..".W*
028500: 21 1E 45 C3 C7 3B CD 70 3B C3 37 5B 3A 6F 44 FE !.E..;.p;.7[:oD.
028510: 01 CA 37 5B 3E 4D CD 70 3B CD 1B 36 CD 63 39 EB ..7[>M.p;..6.c9.
028520: CD 92 39 EB CD D8 36 4D 0D FA 32 5B CD 7E 36 C3 ..9...6M..2[.~6.
028530: 28 5B 3E 3F CD E8 35 CD 61 27 AF 32 6F 44 CD 92 ([>?..5.a'.2oD..
028540: 39 CD 73 39 B7 FA 7D 4C CD 0B 3A 3A 5C 44 B7 CA 9.s9..}L..::\D..
028550: 74 5B 3A 5D 44 32 DA 5F 21 DA 5F 35 FA 74 5B 3E t[:]D2._!._5.t[>
028560: 30 CD 70 3B 3A DA 5F 21 5E 44 CD BB 36 7E CD C4 0.p;:._!^D..6~..
028570: 25 C3 58 5B 3A 5D 01 B7 CA 7E 44 3E 5B CD 70 3B %.X[:]...~D>[.p;
028580: CD 42 38 DA 7E 44 CA 00 45 3E 5C CD 70 3B 21 7E .B8.~D..E>\.p;!~
028590: 99 CD 78 35 CA 00 45 3E 5D CD 70 3B 21 C6 99 CD ..x5..E>].p;!...
0285A0: 78 35 CD 92 39 11 7E 99 01 C6 99 CD A2 38 DA 89 x5..9.~......8..
0285B0: 5B CD 0B 3A 3E 5E CD 70 3B CD 42 38 DA 7E 44 C2 [..:>^.p;.B8.~D.
0285C0: 89 5B 31 BC 96 CD 92 39 C3 96 45 04 02 01 13 05 .[1....9..E.....
0285D0: E0 E8 03 E9 E0 F1 F9 F8 F1 E0 13 03 04 10 E0 00 ................
0285E0: 00 00 00 00 00 00 00 00 00 53 54 4F 52 45 00 90 .........STORE..
0285F0: 59 3F 00 2D 53 45 4C 53 45 00 6F 50 45 4E 44 44 Y?.-SELSE.oPENDD
028600: 4F 00 82 50 45 4E 44 49 46 00 00 45 44 4F 00 92 O..PENDIF..EDO..
028610: 4F 4E 4F 54 45 00 00 45 4C 4F 4F 50 00 82 50 52 ONOTE..ELOOP..PR
028620: 45 4C 45 41 53 45 00 12 56 52 45 54 55 52 4E 00 ELEASE..VRETURN.
028630: 70 56 53 45 4C 45 43 54 00 C3 56 40 00 29 49 41 pVSELECT..V@.)IA
028640: 43 43 45 50 54 00 46 48 41 50 50 45 4E 44 00 E0 CCEPT.FHAPPEND..
028650: 48 43 41 4C 4C 00 5F 4C 43 41 4E 43 45 4C 00 7D HCALL._LCANCEL.}
028660: 4C 43 48 41 4E 47 45 00 8D 4C 43 4C 45 41 52 00 LCHANGE..LCLEAR.
028670: 98 4C 43 4F 50 59 00 ED 4C 43 4F 55 4E 54 00 F8 .LCOPY..LCOUNT..
028680: 4C 43 52 45 41 54 45 00 03 4D 44 45 4C 45 54 45 LCREATE..MDELETE
028690: 00 0B 4D 44 49 53 50 4C 41 59 00 AF 4D 43 4F 4E ..MDISPLAY..MCON
0286A0: 54 49 4E 55 45 00 DB 52 45 44 49 54 00 64 50 45 TINUE..REDIT.dPE
0286B0: 4A 45 43 54 00 93 50 45 52 41 53 45 00 AE 50 47 JECT..PERASE..PG
0286C0: 4F 54 4F 00 11 51 47 4F 00 11 51 48 45 4C 50 00 OTO..QGO..QHELP.
0286D0: 8A 51 49 46 00 92 51 46 49 4E 44 00 B4 50 49 4E .QIF..QFIND..PIN
0286E0: 44 45 58 00 AF 51 49 4E 50 55 54 00 C9 51 49 4E DEX..QINPUT..QIN
0286F0: 53 45 52 54 00 3A 52 4C 49 53 54 00 4D 52 4C 4F SERT.:RLIST.MRLO
028700: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
028710: 22 00 01 00 02 09 4E E5 22 00 41 02 00 00 00 02 ".....N.".A.....
028720: 22 00 46 02 00 00 00 02 22 00 42 02 00 00 00 02 ".F.....".B.....
028730: 22 00 47 02 00 00 00 02 22 00 43 02 00 00 00 02 ".G.....".C.....
028740: 22 00 48 02 00 00 00 02 22 00 44 02 00 00 00 02 ".H.....".D.....
028750: 22 00 49 02 00 00 00 02 22 00 45 02 00 00 00 02 ".I.....".E.....
028760: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
028770: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
028780: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
028790: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0287A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0287B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0287C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0287D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0287E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0287F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
028800: 00 57 23 22 00 57 CD 1B 36 CD 7E 36 2A 00 57 2B .W#".W..6.~6*.W+
028810: 29 29 29 29 EB CD E3 1C 19 22 02 57 EB 3A 00 57 )))).....".W.:.W
028820: FE 21 D2 19 4B CD 42 36 CD 72 36 CD 99 39 CD 63 .!..K.B6.r6..9.c
028830: 39 CA 19 4B 01 10 00 62 6B CD F8 36 36 0D CD 63 9..K...bk..66..c
028840: 39 CD F1 2A 7E FE 2C C2 7D 4C CD E3 1C EB CD 63 9..*~.,.}L.....c
028850: 39 CD 11 27 CA 7D 4C 2A 02 57 EB CD 63 39 0E 00 9..'.}L*.W..c9..
028860: D5 7E FE 2C CA 76 4A CD 84 36 DA 6F 4A E6 5F 12 .~.,.vJ..6.oJ._.
028870: 0C 13 23 C3 61 4A D1 79 B7 CA 7D 4C CA 7D 4C FE ..#.aJ.y..}L.}L.
028880: 0B D2 7D 4C CD 8E 39 21 0B 00 19 EB CD 69 39 E6 ..}L..9!.....i9.
028890: 5F 32 DF 56 FE 43 CA B0 4A FE 4E CA B0 4A FE 4C _2.V.C..J.N..J.L
0288A0: C2 85 4C 12 13 3E 01 12 13 13 13 AF 12 C3 00 4B ..L..>.........K
0288B0: 12 13 D5 CD 69 39 CD 69 39 CD FF 37 DA 8D 4C 7B ....i9.i9..7..L{
0288C0: B7 CA 8D 4C 7A B7 C2 8D 4C 7B 3C CA 8D 4C 3D D1 ...Lz...L{<..L=.
0288D0: 12 13 13 13 3A DF 56 FE 4E C2 00 4B CD 8E 39 CD ....:.V.N..K..9.
0288E0: 63 39 CA 00 4B FE 2C C2 95 4C CD 69 39 D5 CD FF c9..K.,..L.i9...
0288F0: 37 DA 95 4C CD 8E 39 CD 63 39 C2 95 4C 7B D1 12 7..L..9.c9..L{..
028900: 1B 1B 1B 1A 2A 04 57 CD BB 36 11 E8 03 CD C0 36 ....*.W..6.....6
028910: DA 9D 4C 22 04 57 C3 FF 49 3E 0D 12 2A 00 57 2B ..L".W..I>..*.W+
028920: 7C B5 CA A5 4C 21 00 00 CD 2E 2C CD FF 2E CD D4 |...L!....,.....
028930: 26 CD 45 25 3E 25 CD 70 3B CD 42 38 CA D0 55 3E &.E%>%.p;.B8..U>
028940: 41 CD F0 2B CD B5 2D CD D4 26 CD D8 2C CD 07 2E A..+..-..&..,...
028950: CD 16 51 D2 50 4B CD D4 26 CD FF 2E CD 45 25 C3 ..Q.PK..&....E%.
028960: D0 55 CD 8E 39 CD 73 39 AF CD AD 27 DA D3 4C AF .U..9.s9...'..L.
028970: CD F0 2B DA D3 4C CD B5 2D CD E3 1C 11 C6 99 01 ..+..L..-.......
028980: 01 02 CD 7E 38 CD E3 1C 22 EE 56 01 09 02 CD F8 ...~8...".V.....
028990: 36 21 00 00 22 04 57 2A EE 56 EB CD 37 2C DA 54 6!..".W*.V..7,.T
0289A0: 4C CD DC 1C 7E FE 20 C2 97 4B 23 CD 8E 39 CD 63 L...~. ..K#..9.c
0289B0: 39 CD F1 2A 0E 0A CD 63 39 FE 20 C2 BF 4B AF 12 9..*...c9. ..K..
0289C0: 13 CD 69 39 0D C2 B9 4B AF 12 13 CD 63 39 E6 5F ..i9...K....c9._
0289D0: FE 43 CA EC 4B FE 4E CA EC 4B FE 4C C2 B3 4C 12 .C..K.N..K.L..L.
0289E0: 13 3E 01 12 13 13 13 AF 12 C3 31 4C 12 13 D5 CD .>........1L....
0289F0: 69 39 11 C8 56 0E 03 CD 78 38 CD 8E 39 21 C8 56 i9..V...x8..9!.V
028A00: 56 CD BB 36 36 00 AF 32 1E 9E 3A E0 56 B7 C8 21 V..66..2..:.V..!
028A10: 7E 97 CD 20 0B 3A DC 56 B7 C8 21 BB 9D 3A 4A 56 ~.. .:.V..!..:JV
028A20: FE 4E C2 ED 54 7E B7 CA 33 54 FE 2E CA 33 54 23 .N..T~..3T...3T#
028A30: C3 25 54 22 00 57 21 C7 9B 7E B7 CA 47 54 FE 2E .%T".W!..~..GT..
028A40: CA 47 54 23 C3 39 54 22 04 57 EB 2A 00 57 1B 2B .GT#.9T".W.*.W.+
028A50: 7E B7 CA A8 54 FE 24 CA 90 54 FE 2A CA 90 54 FE ~...T.$..T.*..T.
028A60: 23 CA 9A 54 FE 39 CA 9A 54 FE 2C C2 4F 54 1A B7 #..T.9..T.,.OT..
028A70: CA 7D 54 FE 2D CA 9A 54 FE 20 C2 4F 54 2B 7E FE .}T.-..T. .OT+~.
028A80: 24 CA 8B 54 FE 2A CA 8B 54 3E 20 23 77 C3 4F 54 $..T.*..T> #w.OT
028A90: 1A B7 CA 4F 54 FE 20 CA 4F 54 1A B7 CA A3 54 77 ...OT. .OT...£Tw
028AA0: C3 4E 54 36 20 C3 4F 54 2A 04 57 EB 2A 00 57 7E .NT6 .OT*.W.*.W~
028AB0: B7 CA 25 55 1A B7 CA D4 54 13 23 1A B7 CA D4 54 ..%U....T.#....T
028AC0: 7E B7 CA 25 55 FE 23 CA CF 54 FE 39 C2 BA 54 1A ~..%U.#..T.9..T.
028AD0: 77 C3 B9 54 7E B7 CA 25 55 FE 23 CA E7 54 FE 39 w..T~..%U.#..T.9
028AE0: CA E7 54 23 C3 D4 54 36 30 23 C3 D4 54 21 BB 9D ..T#..T60#..T!..
028AF0: 11 C7 9B 7E B7 CA 25 55 FE 58 C2 08 55 1A B7 CA ...~..%U.X..U...
028B00: 1F 55 77 13 23 C3 F3 54 FE 39 CA 12 55 FE 23 C2 .Uw.#..T.9..U.#.
028B10: 1A 55 1A CD AB 36 DA 1F 55 77 13 23 C3 F3 54 36 .U...6..Uw.#..T6
028B20: 20 23 C3 F3 54 21 BB 9D 22 CE 56 C9 3E 56 CD 70 #..T!..".V.>V.p
028B30: 3B 3E 01 32 6F 44 C3 D0 55 22 C4 56 CD AC 06 21 ;>.2oD..U".V...!
028B40: 9F 56 CD 2B 36 EB CD 35 36 21 00 01 22 E1 56 2A .V.+6..56!..".V*
028B50: C4 56 11 0C 00 19 4E 06 00 21 0C 00 09 3A 54 01 .V....N..!...:T.
028B60: 5F 16 00 0E 00 0C CD D8 36 D2 65 55 79 32 FB 56 _.......6.eUy2.V
028B70: 2A E1 56 84 4F 3A 55 01 B9 D8 21 B9 56 01 0A 00 *.V.O:U...!.V...
028B80: 3E 20 CD FA 36 2A C4 56 11 B9 56 7E B7 CA 96 55 > ..6*.V..V~...U
028B90: 12 13 23 C3 8B 55 11 B9 56 2A E1 56 44 4D 21 C4 ..#..U..V*.VDM!.
028BA0: 56 CD 72 06 2A E1 56 3A FB 56 84 67 22 E1 56 2A V.r.*.V:.V.g".V*
028BB0: C4 56 11 10 00 19 22 C4 56 7E FE 0D C2 4F 55 C9 .V....".V~...OU.
028BC0: 3E 01 32 6F 44 C3 D0 55 3E FF 32 6F 44 C3 D0 55 >.2oD..U>.2oD..U
028BD0: CD B5 06 3E 01 21 00 45 C3 C7 3B 54 54 54 40 40 ...>.!.E..;TTT@@
028BE0: C8 84 82 A6 8A 40 92 92 40 40 50 86 52 40 62 72 .....@..@@P.R@br
028BF0: 70 62 40 40 A6 86 88 A0 40 40 40 40 AC CA E4 40 pb@@....@@@@...@
028C00: CD FF 37 DA C3 4C 7B B7 CA 95 4C 7A B7 C2 95 4C ..7..L{...Lz...L
028C10: 7B D1 12 13 13 13 CD 63 39 D5 11 C8 56 0E 03 CD {......c9...V...
028C20: 78 38 CD 8E 39 21 C8 56 CD FF 37 DA BB 4C 7B D1 x8..9!.V..7..L{.
028C30: 12 1B 1B 1B 1A 2A 04 57 CD BB 36 11 E8 03 CD C0 .....*.W..6.....
028C40: 36 DA CB 4C 22 04 57 11 10 00 2A EE 56 19 22 EE 6..L".W...*.V.".
028C50: 56 C3 97 4B CD 45 25 2A EE 56 36 0D 21 00 00 CD V..K.E%*.V6.!...
028C60: 2E 2C 3A D6 56 CD 40 27 CD A8 2D CD FF 2E CD D4 .,:.V.@'..-.....
028C70: 26 CD 44 27 CD B5 2D CD D8 2C C3 D0 55 3E 1C CD &.D'..-..,..U>..
028C80: 70 3B C3 06 4A 3E 1D CD 70 3B C3 06 4A 3E 1F CD p;..J>..p;..J>..
028C90: 70 3B C3 06 4A 3E 1E CD 70 3B C3 06 4A 3E 79 CD p;..J>..p;..J>y.
028CA0: 70 3B C3 06 4A CD 45 25 CD 03 27 3E 32 CD 70 3B p;..J.E%..'>2.p;
028CB0: C3 D0 55 3E 1D CD 70 3B C3 C0 55 3E 1F CD 70 3B ..U>..p;..U>..p;
028CC0: C3 C0 55 3E 1E CD 70 3B C3 C0 55 3E 79 CD 70 3B ..U>..p;..U>y.p;
028CD0: C3 C0 55 3E 28 CD 70 3B C3 C0 55 CD 3C 29 21 00 ..U>(.p;..U.<)!.
028CE0: 00 22 F7 56 CD 99 2C 7C B5 CA D0 55 22 E6 56 CD .".V..,|...U".V.
028CF0: E3 1C 22 E3 56 3E FF 32 DE 56 CD 73 39 C2 37 4D ..".V>.2.V.s9.7M
028D00: AF 32 DE 56 3A 09 01 B7 C2 10 4D 3E 2E CD 70 3B .2.V:.....M>..p;
028D10: 3A DE 56 B7 C2 D0 55 3A 09 01 B7 C2 26 4D 3E 5A :.V...U:....&M>Z
028D20: CD 70 3B C3 2B 4D 3E 7D CD 70 3B CD 99 39 C2 37 .p;.+M>}.p;..9.7
028D30: 4D CD B5 06 C3 D0 55 CD 63 39 FE 20 DA D0 55 CD M.....U.c9. ..U.
028D40: FF 37 CD 8E 39 CD 2A 2C EB CD C0 36 DA E4 4E EB .7..9.*,...6..N.
028D50: CD 73 39 EB 7C B5 C2 5C 4D 2A E6 56 22 E6 56 CD .s9.|..\M*.V".V.
028D60: 9D 27 2A E6 56 CD DE 1F 3A 09 01 B7 CA 44 4E CD .'*.V...:....DN.
028D70: E3 1C 22 FC 56 3A 72 44 B7 CA 9F 4D CD 47 52 AF ..".V:rD...M.GR.
028D80: 47 CD 1D 02 B7 FA 10 4D 47 0F D2 90 4D CD 3A 4E G......MG...M.:N
028D90: 78 E6 04 CA 10 4D 78 E6 02 CA EC 4D C3 CE 4D 2A x....Mx....M..M*
028DA0: E6 56 EB 2A FC 56 CD 39 55 3E 01 06 00 CD 1D 02 .V.*.V.9U>......
028DB0: B7 FA 10 4D 47 0F D2 BC 4D CD 3A 4E 78 E6 04 CA ...MG...M.:Nx...
028DC0: 10 4D 78 E6 08 CA FB 4D 78 E6 02 CA EC 4D CD 9F .Mx....Mx....M..
028DD0: 24 CA DD 4D CD 5A 22 DA 10 4D C3 5C 4D 2A E6 56 $..M.Z"..M.\M*.V
028DE0: 2B 22 E6 56 7C B5 CA 10 4D C3 5C 4D CD 9F 24 CA +".V|...M.\M..$.
028DF0: 2A 4E CD E9 21 DA 10 4D C3 5C 4D 78 E6 02 CA 18 *N..!..M.\Mx....
028E00: 64 5C 2C 00 00 00 00 00 00 00 00 00 00 00 00 00 d\,.............
028E10: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
028E20: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
028E30: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 46 ...............F
028E40: 56 3E 14 C3 37 5B E5 CD 63 39 CD 15 C7 9B 53 42 V>..7[..c9....SB
028E50: 45 46 4F 52 45 00 42 4C 41 4E 4B 00 43 48 41 4E EFORE.BLANK.CHAN
028E60: 47 45 3F 20 00 44 45 4C 49 4D 49 54 45 44 00 54 GE? .DELIMITED.T
028E70: 4F 3A 20 20 20 20 20 00 46 49 45 4C 44 00 46 52 O: .FIELD.FR
028E80: 4F 4D 00 47 45 54 00 50 49 43 54 55 52 45 00 52 OM.GET.PICTURE.R
028E90: 45 43 4F 52 44 20 00 53 41 59 00 53 44 46 00 52 ECORD .SAY.SDF.R
028EA0: 45 43 4F 52 44 20 23 20 00 54 4F 20 20 20 20 20 ECORD # .TO
028EB0: 20 20 00 55 53 49 4E 47 00 00 45 3E 03 21 12 45 .USING..E>.!.E
028EC0: C3 C7 3B 00 73 39 00 00 00 00 00 00 C2 D6 56 AF ..;.s9........V.
028ED0: CD 89 2E C3 00 45 11 82 5E CD B1 37 00 14 5B 3E .....E..^..7..[>
028EE0: 00 CD 89 2E C3 00 45 CD 73 39 11 D8 5E 01 32 54 ......E.s9..^.2T
028EF0: 4F 3A 20 20 20 20 20 00 46 49 45 4C 44 00 46 52 O: .FIELD.FR
028F00: C3 24 45 C3 38 4A C3 B4 4B C3 CC 4C C3 27 4F C3 .$E.8J..K..L.'O.
028F10: D9 4F C3 A0 50 C3 8E 51 C3 FA 51 C3 8F 52 C3 59 .O..P..Q..Q..R.Y
028F20: 53 C3 B9 53 CD DD 25 AF 32 5F 56 32 5D 56 32 5E S..S..%.2_V2]V2^
028F30: 56 32 5A 56 32 5B 56 32 5C 56 CD E3 1C 11 C6 99 V2ZV2[V2\V......
028F40: 01 01 02 CD 7E 38 21 7E 97 22 71 56 CD 73 39 CA ....~8!~."qV.s9.
028F50: 5B 46 CD E9 25 DA 48 54 CD 73 39 CA 5B 46 11 AC [F..%.HT.s9.[F..
028F60: 55 CD B1 37 C2 7C 45 22 61 56 CD 8E 39 AF CD AD U..7.|E"aV..9...
028F70: 27 DA 23 4A 3E FF 32 5F 56 C3 4C 45 11 62 55 CD '.#J>.2_V.LE.bU.
028F80: B1 37 C2 ED 45 3E FF 32 5D 56 CD 8E 39 21 C6 99 .7..E>.2]V..9!..
028F90: 36 0D 22 73 56 CD 73 39 CD F1 2A C2 A3 45 3E 14 6."sV.s9..*.£E>.
028FA0: C3 2A 4A E5 CD 63 39 CD 92 28 E5 CA B3 45 3E 52 .*J..c9..(...E>R
028FB0: C3 2A 4A 0E 10 EB 2A 73 56 EB CD 78 38 21 10 00 .*J...*sV..x8!..
028FC0: 19 36 0D 22 73 56 E1 D5 EB 2A 71 56 36 2D 23 CD .6."sV...*qV6-#.
028FD0: E4 36 D1 CD E4 36 36 35 22 71 56 E1 CD 8E 39 CD .6...665"qV...9.
028FE0: 73 39 FE 2C C2 4C 45 CD 69 39 C3 95 45 11 A2 55 s9.,.LE.i9..E..U
028FF0: CD B1 37 C2 15 46 3E FF 32 5E 56 CD 8E 39 CD 73 ..7..F>.2^V..9.s
029000: 4E CD E3 1C EB 2A FC 56 CD C0 36 D2 CE 4D 11 F0 N....*.V..6..M..
029010: FF 19 22 FC 56 C3 75 4D 2A C4 56 7E FE 0D CA EC ..".V.uM*.V~....
029020: 4D 2A C4 56 22 FC 56 C3 75 4D CD 37 2C DA 10 4D M*.V".V.uM.7,..M
029030: 2A E6 56 23 22 E6 56 C3 5C 4D CD E7 1C CD D3 2E *.V#".V.\M......
029040: CD 83 21 C9 CD 63 39 CA CF 4E FE 2C C2 10 4D CD ..!..c9..N.,..M.
029050: 69 39 FE 2C CA AA 4E FE 3A D2 90 4E FE 30 DA AA i9.,..N.:..N.0..
029060: 4E CD FF 37 CD 8E 39 DA 10 4D 7A B7 C2 10 4D 7B N..7..9..Mz...M{
029070: FE 21 D2 10 4D EB 2B 29 29 29 29 EB CD E3 1C 19 .!..M.+)))).....
029080: 7E B7 CA 10 4D FE 0D CA 10 4D 22 E3 56 C3 AA 4E ~...M....M".V..N
029090: CD 63 39 CD F1 2A CA 10 4D E5 CD 63 39 CD 92 28 .c9..*..M..c9..(
0290A0: 22 E3 56 E1 C2 10 4D CD 8E 39 CD 63 39 CA CF 4E ".V...M..9.c9..N
0290B0: CD 69 39 E5 0E FF AF CD 13 37 D1 CD D8 36 4D CD .i9......7...6M.
0290C0: 63 39 EB 2A E3 56 CD AC 4F DA 10 4D C3 DB 4E 2A c9.*.V..O..M..N*
0290D0: E3 56 CD F5 4F DA D0 55 CA 10 4D CD E7 1C CD D3 .V..O..U..M.....
0290E0: 2E C3 10 4D 3E 0C CD 70 3B C3 D0 55 CD 3C 29 AF ...M>..p;..U.<).
0290F0: 32 D8 56 32 D7 56 CD 73 39 CA 24 4F 11 4F 56 CD 2.V2.V.s9.$O.OV.
029100: B1 37 C2 10 4F 3E FF 32 D7 56 CD 8E 39 C3 F6 4E .7..O>.2.V..9..N
029110: 11 56 56 CD B1 37 C2 C8 55 3E FF 32 D8 56 CD 8E .VV..7..U>.2.V..
029120: 39 C3 F6 4E CD 9F 24 B7 C2 0F 45 CD 99 2C 3A D7 9..N..$...E..,:.
029130: 56 B7 C2 36 4F 23 22 06 57 22 04 57 CD 0C 2C CD V..6O#".W".W..,.
029140: 84 29 44 4D 11 C7 9B CD 7A 2C DA A1 4F 2A 06 57 .)DM....z,..O*.W
029150: CD 0C 2C 3A D8 56 B7 CA 63 4F CD 07 2E CD D3 2E ..,:.V..cO......
029160: C3 69 4F CD 16 51 DA D0 55 11 C7 9B CD DC 1C EB .iO..Q..U.......
029170: CD 7E 38 11 C7 9B CD 7A 2C F5 2A 06 57 23 22 06 .~8....z,.*.W#".
029180: 57 CD 0C 2C CD D3 2E F1 D2 69 4F CD 2A 2C 23 CD W..,.....iO.*,#.
029190: 2E 2C CD D4 26 CD D8 2C 2A 04 57 CD 9D 27 C3 D0 .,..&..,*.W..'..
0291A0: 55 3E 35 CD 70 3B CD D8 2C C3 D0 55 C5 D5 11 0B U>5.p;..,..U....
0291B0: 00 19 7E FE 4E CA D8 4F 23 79 3D BE D2 EC 4F C5 ..~.N..O#y=...O.
0291C0: 4E 23 CD DF 36 54 5D 06 00 3E 20 CD FA 36 C1 E1 N#..6T]..> ..6..
0291D0: D5 CD 78 38 D1 C1 B7 C9 E3 CD 9F 32 E3 23 46 23 ..x8.......2.#F#
0291E0: CD E9 36 4E EB CD 4D 33 B7 D1 C1 C9 3E 15 CD 70 ..6N..M3....>..p
0291F0: 3B 37 D1 C1 C9 C5 D5 22 E9 56 11 0B 00 19 56 23 ;7.....".V....V#
029200: 39 11 59 55 CD B1 37 C2 4C 45 3E FF 32 5C 56 CD 9.YU..7.LE>.2\V.
029210: 8E 39 C3 4C 45 11 12 56 CD B1 37 C2 29 46 3E FF .9.LE..V..7.)F>.
029220: 32 5A 56 CD 8E 39 C3 4C 45 11 2A 55 CD B1 37 C2 2ZV..9.LE.*U..7.
029230: 48 54 3E FF 32 5A 56 32 5B 56 CD 8E 39 CD 73 39 HT>.2ZV2[V..9.s9
029240: 11 C0 55 CD B1 37 C2 4C 45 CD 8E 39 CD 73 39 CA ..U..7.LE..9.s9.
029250: 48 54 32 4F 56 CD 69 39 C3 4C 45 3A 5F 56 B7 CA HT2OV.i9.LE:_V..
029260: 28 4A 2A 61 56 CD 8E 39 3A 5A 56 B7 C2 73 46 AF (J*aV..9:ZV..sF.
029270: C3 75 46 3E 04 CD AD 27 3E C1 CD F0 2B CD 3C 27 .uF>...'>...+.<'
029280: 32 4D 44 3A 5A 56 B7 C2 BA 46 21 BE 99 AF 36 02 2MD:ZV...F!...6.
029290: 23 77 23 77 23 EB CD E3 1C 2B 2B 2B 2B 2B 0E 03 #w#w#....+++++..
0292A0: CD 78 38 3A 5C 56 B7 C2 5C 49 01 09 02 11 BE 99 .x8:\V..\I......
0292B0: CD C4 2E 3A 5E 56 B7 C2 DF 49 CD 61 27 01 C7 9B ...:^V...I.a'...
0292C0: 21 C6 99 CD 75 25 21 FF FF CD 5B 26 21 00 00 22 !...u%!...[&!.."
0292D0: 73 56 DA CA 49 21 64 00 22 6F 56 CD 99 2C 7C B5 sV..I!d."oV..,|.
0292E0: CA CA 49 CD 78 27 CA 50 49 DA CA 49 CD DC 1C CA ..I.x'.PI..I....
0292F0: 50 49 2A 73 56 23 22 73 56 2A 6F 56 2B 22 6F 56 PI*sV#"sV*oV+"oV
029300: 7C B5 C2 20 47 3A 7D 44 B7 CA 20 47 2A 73 56 CD |.. G:}D.. G*sV.
029310: 1B 36 CD 35 36 3E 27 CD 70 3B 21 64 00 22 6F 56 .6.56>'.p;!d."oV
029320: 3A 5D 56 B7 CA 2D 48 3A 5B 56 B7 C2 47 47 2A C4 :]V..-H:[V..GG*.
029330: 99 44 4D 21 C7 9B 3E 20 CD FA 36 21 7E 97 CD 20 .DM!..> ..6!~..
029340: 0B 11 C7 9B C3 31 48 21 7E 97 22 6C 56 21 C7 9B .....1H!~."lV!..
029350: 22 77 56 0E 00 2A 6C 56 7E FE 35 CA 13 48 23 CD "wV..*lV~.5..H#.
029360: E9 36 23 23 22 6C 56 EB 11 0B 00 19 7E FE 4E CA .6##"lV.....~.N.
029370: C5 47 23 46 23 CD E9 36 2A 77 56 79 B7 CA 83 47 .G#F#..6*wVy...G
029380: 36 2C 23 3A 4F 56 FE 2C CA 8D 47 77 23 EB CD 71 6,#:OV.,..Gw#..q
029390: 38 EB 78 CD BB 36 2B 7E FE 20 C2 A1 47 05 C2 96 8.x..6+~. ..G...
0293A0: 47 23 3A 4F 56 FE 2C CA B2 47 77 23 22 77 56 C3 G#:OV.,..Gw#"wV.
0293B0: 0F 48 2B 7E FE 20 C2 BE 47 2B 05 C2 B3 47 23 22 .H+~. ..G+...G#"
0293C0: 77 56 C3 0F 48 23 46 23 CD E9 36 2A 77 56 79 B7 wV..H#F#..6*wVy.
0293D0: CA D6 47 36 2C 23 EB 3A 4F 56 FE 2C CA ED 47 CD ..G6,#.:OV.,..G.
0293E0: 71 38 EB 78 CD BB 36 22 77 56 C3 0F 48 7E 23 FE q8.x..6"wV..H~#.
0293F0: 20 C2 FB 47 05 CA 08 48 C3 ED 47 12 13 05 C2 ED ..G...H..G.....
029400: 7E 32 E8 56 23 CD DF 36 22 F2 56 7A FE 43 CA 31 ~2.V#..6".Vz.C.1
029410: 50 CD DB 50 21 6F 56 CD 28 36 CD 99 39 CA 0A 51 P..P!oV.(6..9..Q
029420: 4F CD 63 39 EB 2A E9 56 CD AC 4F DA 11 50 C3 04 O.c9.*.V..O..P..
029430: 51 E5 01 00 01 21 C7 9B CD F8 36 AF 32 E5 56 E1 Q....!....6.2.V.
029440: E5 3A E8 56 47 11 C7 9B CD 71 38 21 C7 9B 22 F2 .:.VG....q8!..".
029450: 56 CD DB 50 21 5C 56 CD 28 36 21 C6 99 CD 78 35 V..P!\V.(6!...x5
029460: CA B3 50 3A C6 99 FE 1B CA FF 50 FE 19 CA 93 50 ..P:......P....P
029470: 21 A9 56 CD 28 36 21 F3 9C CD 78 35 21 C7 9B 11 !.V.(6!...x5!...
029480: C6 99 01 F3 9C CD A2 38 DA 0E 51 3E FF 32 E5 56 .......8..Q>.2.V
029490: C3 51 50 01 00 01 21 C7 9B CD F8 36 21 A9 56 CD .QP...!....6!.V.
0294A0: 28 36 21 C7 9B CD 78 35 CA B3 50 3E FF 32 E5 56 (6!...x5..P>.2.V
0294B0: C3 51 50 E1 3A E5 56 B7 CA 0A 51 3A E8 56 47 11 .QP.:.V...Q:.VG.
0294C0: C7 9B 1A B7 CA D1 50 77 23 13 05 C2 C2 50 C3 04 ......Pw#....P..
0294D0: 51 36 20 23 05 C2 D1 50 C3 04 51 2A E9 56 CD 1B Q6 #...P..Q*.V..
0294E0: 36 CD 28 36 3E 3A CD E8 35 CD 7E 36 2A F2 56 3A 6.(6>:..5.~6*.V:
0294F0: E8 56 5F 7E B7 C8 CD E8 35 23 1D C2 F3 50 C9 E1 .V_~....5#...P..
029500: D1 C1 37 C9 3E 01 B7 D1 C1 C9 AF D1 C1 C9 3E 11 ..7.>.........>.
029510: CD 70 3B C3 51 50 C5 D5 CD E3 1C 22 F9 56 CD 99 .p;.QP.....".V..
029520: 2C 7C B5 CA 2D 51 3A 54 44 B7 C2 30 51 CD 07 2E ,|..-Q:TD..0Q...
029530: 3A 09 01 B7 CA DE 51 3E 83 32 F4 56 AF 32 ED 56 :.....Q>.2.V.2.V
029540: CD E3 1C 22 FC 56 3A 72 44 B7 CA 66 51 CD 47 52 ...".V:rD..fQ.GR
029550: 3E 80 06 00 CD 1D 02 B7 FA 43 52 0F D2 43 52 CD >........CR..CR.
029560: D3 2E D1 C1 B7 C9 CD 99 2C 23 EB 2A FC 56 CD 39 ........,#.*.V.9
029570: 55 3A F4 56 06 00 CD 1D 02 B7 FA 43 52 47 E6 01 U:.V.......CRG..
029580: 4F 3A ED 56 B1 32 ED 56 78 E6 08 C2 CC 51 78 E6 O:.V.2.Vx....Qx.
029590: 02 CA B0 51 CD E3 1C EB 2A FC 56 CD C0 36 D2 CC ...Q....*.V..6..
0295A0: 51 11 F0 FF 19 22 FC 56 3E 03 32 F4 56 C3 66 51 Q....".V>.2.V.fQ
0295B0: 78 0F D2 CC 51 2A C4 56 7E FE 0D CA CC 51 2A C4 x...Q*.V~....Q*.
0295C0: 56 22 FC 56 3E 03 32 F4 56 C3 66 51 3A ED 56 0F V".V>.2.V.fQ:.V.
0295D0: D2 DA 51 CD D3 2E D1 C1 B7 C9 D1 C1 37 C9 CD 1B ..Q.........7...
0295E0: 36 21 8F 56 CD 28 36 CD 99 2C 23 CD 35 36 CD 1B 6!.V.(6..,#.56..
0295F0: 36 06 00 2A F9 56 CD 1B 36 C5 01 0A 00 CD 13 2C 6..*.V..6......,
029600: 47 EB 22 77 56 C3 0F 48 EB 36 30 23 22 77 56 0C G."wV..H.60#"wV.
029610: C3 55 47 11 C7 9B 2A 77 56 36 0D 23 36 0A 23 CD .UG...*wV6.#6.#.
029620: D8 36 44 4D 3A 4D 44 CD D1 25 C3 50 49 CD DC 1C .6DM:MD..%.PI...
029630: EB 3A 5A 56 B7 C2 4C 48 2A C4 99 44 4D 3A 4D 44 .:ZV..LH*..DM:MD
029640: CD 40 27 CD C4 2E CD 61 27 C3 50 49 3A 5B 56 B7 .@'....a'.PI:[V.
029650: C2 6D 48 2A C4 99 19 36 0D 23 36 0A 3A 4D 44 2A .mH*...6.#6.:MD*
029660: C4 99 44 4D 03 03 13 CD D1 25 C3 50 49 21 C7 9B ..DM.....%.PI!..
029670: 22 77 56 CD E3 1C 22 71 56 0E 00 2A 71 56 7E FE "wV..."qV..*qV~.
029680: 0D CA 39 49 11 0B 00 19 7E FE 4E CA E1 48 23 46 ..9I....~.N..H#F
029690: 23 CD E9 36 2A 77 56 79 B7 CA 9F 48 36 2C 23 3A #..6*wVy...H6,#:
0296A0: 4F 56 FE 2C CA A9 48 77 23 EB CD 71 38 EB 78 CD OV.,..Hw#..q8.x.
0296B0: BB 36 2B 7E FE 20 C2 BD 48 05 C2 B2 48 23 3A 4F .6+~. ..H...H#:O
0296C0: 56 FE 2C CA CE 48 77 23 22 77 56 C3 2B 49 2B 7E V.,..Hw#"wV.+I+~
0296D0: FE 20 C2 DA 48 2B 05 C2 CF 48 23 22 77 56 C3 2B . ..H+...H#"wV.+
0296E0: 49 23 46 23 CD E9 36 2A 77 56 79 B7 CA F2 48 36 I#F#..6*wVy...H6
0296F0: 2C 23 EB 3A 4F 56 FE 2C CA 09 49 CD 71 38 EB 78 ,#.:OV.,..I.q8.x
029700: CD BB 36 22 77 56 C3 2B 49 7E 23 FE 20 C2 17 49 ..6"wV.+I~#. ..I
029710: 05 CA 24 49 C3 09 49 12 13 05 C2 09 49 EB 22 77 ..$I..I.....I."w
029720: 56 C3 2B 49 EB 36 30 23 22 77 56 2A 71 56 11 10 V.+I.60#"wV*qV..
029730: 00 19 22 71 56 0C C3 7B 48 11 C7 9B 2A 77 56 36 .."qV..{H...*wV6
029740: 0D 23 36 0A 23 CD D8 36 44 4D 3A 4D 44 CD D1 25 .#6.#..6DM:MD..%
029750: CD 47 2B CA CA 49 D2 E3 46 C3 CA 49 21 C5 55 11 .G+..I..F..I!.U.
029760: C6 99 01 41 00 CD 7E 38 01 09 02 11 BE 99 CD C4 ...A..~8........
029770: 2E CD E3 1C 22 67 56 21 00 00 22 73 56 2A 67 56 ...."gV!.."sV*gV
029780: 7E FE 0D CA CA 49 11 C7 9B 3E 20 12 13 06 0A 7E ~....I...> ....~
029790: B7 C2 96 49 3E 20 12 23 13 05 C2 8F 49 23 7E 12 ...I> .#....I#~.
0297A0: 13 23 7E CD 63 54 23 23 23 7E CD 63 54 11 10 00 .#~.cT###~.cT...
0297B0: 2A 67 56 19 22 67 56 01 12 00 11 C7 9B CD C4 2E *gV."gV.........
0297C0: 2A 73 56 23 22 73 56 C3 7D 49 3A 7D 44 B7 CA DF *sV#"sV.}I:}D...
0297D0: 49 2A 73 56 CD 1B 36 CD 35 36 3E 27 CD 70 3B 3A I*sV..6.56>'.p;:
0297E0: 4D 44 CD 40 27 CD D4 26 3A 5C 56 B7 C2 FD 49 3A MD.@'..&:\V...I:
0297F0: 5E 56 B7 C2 16 4A 3A 5A 56 B7 C2 16 4A CD A8 2D ^V...J:ZV...J..-
029800: C1 3E 3A CD E8 35 CD 7E 36 CD 99 39 4F CD 63 39 .>:..5.~6..9O.c9
029810: FE 1B CA 18 51 B7 C2 21 52 78 B7 CA 43 52 C3 2C ....Q..!Rx..CR.,
029820: 52 04 EB 2A F9 56 CD AC 4F DA F3 51 2A F9 56 11 R..*.V..O..Q*.V.
029830: 10 00 19 22 F9 56 7E FE 0D C2 F6 51 CD D3 2E D1 ...".V~....Q....
029840: C1 B7 C9 37 D1 C1 C9 CD 40 27 CD A8 2D CD AC 06 ...7....@'..-...
029850: 3A 72 44 CD CA 39 DA 7B 52 CD 73 39 FE 40 C2 50 :rD..9.{R.s9.@.P
029860: 52 CD 69 39 CD 7F 52 3E FF 2A 06 57 44 4D 2A CE R.i9..R>.*.WDM*.
029870: 56 EB 21 D0 56 CD 72 06 C3 50 52 CD 61 27 C9 AF V.!.V.r..PR.a'..
029880: 32 DC 56 32 E0 56 3A 7C 44 B7 C2 95 52 3A 09 01 2.V2.V:|D...R:..
029890: B7 C2 95 52 C9 21 00 00 22 D0 56 21 00 00 22 D2 ...R.!..".V!..".
0298A0: 56 0E 00 CD 73 39 FE 24 C2 B7 52 0E 80 CD 69 39 V...s9.$..R...i9
0298B0: FE 2C 2E 00 CA BD 52 CD C2 2B DA C8 55 7D B1 32 .,....R..+..U}.2
0298C0: 07 57 CD 92 36 DA 2C 55 0E 00 CD 73 39 FE 24 C2 .W..6.,U...s9.$.
0298D0: DE 52 0E 80 CD 69 39 FE 20 2E 00 CA E4 52 CD C2 .R...i9. ....R..
0298E0: 2B DA C8 55 7D B1 32 06 57 AF 32 C6 9B 32 C7 9B +..U}.2.W.2..2..
0298F0: 21 C7 9B 22 CE 56 CD 73 39 11 97 56 CD B1 37 C2 !..".V.s9..V..7.
029900: 97 53 CD 8E 39 3E FF 32 E0 56 CD 73 39 11 7E 97 .S..9>.2.V.s9.~.
029910: CD F2 14 DA C8 55 EB 11 3F 56 36 31 23 4E 73 23 .....U..?V61#Ns#
029920: 46 72 78 B7 CA 36 53 32 4B 56 79 32 4E 56 3E 4E Frx..6S2KVy2NV>N
029930: 32 4A 56 C3 54 53 32 4E 56 79 B7 CA 4A 53 41 32 2JV.TS2NVy..JSA2
029940: 4B 56 3E 43 32 4A 56 C3 54 53 32 4B 56 3E 4C 32 KV>C2JV.TS2KV>L2
029950: 4A 56 06 03 21 C7 9B 78 CD BB 36 36 00 CD 73 39 JV..!..x..66..s9
029960: 11 B3 56 CD B1 37 C2 97 53 CD 8E 39 CD 73 39 CD ..V..7..S..9.s9.
029970: 9E 36 C2 C8 55 CD 69 39 78 11 BB 9D CD 20 37 CA .6..U.i9x.... 7.
029980: C8 55 23 CD 8E 39 21 BB 9D CD BB 36 36 00 AF 32 .U#..9!....66..2
029990: BA 9D 3E FF 32 DC 56 CD 73 39 11 83 56 CD B1 37 ..>.2.V.s9..V..7
0299A0: C2 0A 54 CD 8E 39 CD 73 39 CA 2C 55 E5 C5 CD F1 ..T..9.s9.,U....
0299B0: 2A C1 CA 2C 55 E3 CD CC 1C 22 D0 56 CA CC 53 3E *..,U....".V..S>
0299C0: 52 CD 70 3B 3E 01 32 6F 44 C3 D0 55 E1 CD 8E 39 R.p;>.2oD..U...9
0299D0: CD 73 39 CA 0A 54 11 87 56 CD B1 37 C2 2C 55 CD .s9..T..V..7.,U.
0299E0: 8E 39 CD 73 39 CD 9E 36 C2 C8 55 CD 69 39 78 11 .9.s9..6..U.i9x.
0299F0: 1F 9E CD 20 37 CA C8 55 CD 8E 39 21 1F 9E 22 D2 ... 7..U..9!..".
029A00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
029A10: 23 00 01 00 02 09 4E E5 23 00 41 02 00 00 00 02 #.....N.#.A.....
029A20: 23 00 46 02 00 00 00 02 23 00 42 02 00 00 00 02 #.F.....#.B.....
029A30: 23 00 47 02 00 00 00 02 23 00 43 02 00 00 00 02 #.G.....#.C.....
029A40: 23 00 48 02 00 00 00 02 23 00 44 02 00 00 00 02 #.H.....#.D.....
029A50: 23 00 49 02 00 00 00 02 23 00 45 02 00 00 00 02 #.I.....#.E.....
029A60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029A70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029A80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029A90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029AA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029AB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029AC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029AD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029AE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029AF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029B00: 01 08 00 2A 73 56 EB 21 BE 99 36 02 23 CD E4 36 ...*sV.!..6.#..6
029B10: 11 BE 99 CD C4 2E CD 45 25 AF 32 4D 44 CD 61 27 .......E%.2MD.a'
029B20: C3 5B 54 3E 28 C3 2A 4A 3E 48 CD 70 3B CD 61 27 .[T>(.*J>H.p;.a'
029B30: 3E 01 32 6F 44 C3 5B 54 CD 3C 29 CD DD 25 21 7E >.2oD.[T.<)..%!~
029B40: 97 22 6C 56 3E 41 32 07 56 AF 32 76 56 32 75 56 ."lV>A2.V.2vV2uV
029B50: 32 60 56 32 79 56 21 79 56 22 71 56 CD 73 39 CD 2`V2yV!yV"qV.s9.
029B60: E9 25 DA 48 54 CD 73 39 CA 46 4B 11 AC 55 CD B1 .%.HT.s9.FK..U..
029B70: 37 CA E8 4A 3A 75 56 3C 32 75 56 FE 06 D2 AF 4B 7..J:uV<2uV....K
029B80: EB 2A 6C 56 EB CD F2 14 DA 48 54 3E FF 32 60 56 .*lV.....HT>.2`V
029B90: EB 22 6C 56 23 CD F3 36 78 B7 CA AA 4B 21 07 56 ."lV#..6x...K!.V
029BA0: 34 CD 72 2A EB 21 0D 00 19 CD DF 36 01 06 00 CD 4.r*.!.....6....
029BB0: F8 36 2A 6C 56 36 29 23 CD E4 36 36 05 23 36 2F .6*lV6)#..66.#6/
029BC0: 23 CD E4 36 36 35 22 6C 56 2A 71 56 36 30 23 CD #..665"lV*qV60#.
029BD0: E4 36 36 35 22 71 56 CD 63 39 CA 46 4B FE 2C C2 .665"qV.c9.FK.,.
029BE0: 5C 4A CD 69 39 C3 5C 4A CD 8E 39 3E FF 32 76 56 \J.i9.\J..9>.2vV
029BF0: 21 79 56 22 71 56 CD 73 39 CA 46 4B CD 15 2A C2 !yV"qV.s9.FK..*.
029C00: 05 4B CD 79 2A 2A 71 56 7E B7 CA A5 4B 23 CD E9 .K.y**qV~...K#..
029C10: 36 22 71 56 62 6B 01 0A 00 CD F8 36 CD 73 39 CD 6"qVbk.....6.s9.
029C20: F1 2A CD 63 39 7E CD 84 36 DA 2E 4B E6 5F 12 13 .*.c9~..6..K._..
029C30: 23 0D C2 25 4B CD 8E 39 CD 73 39 FE 2C C2 5C 4A #..%K..9.s9.,.\J
029C40: CD 69 39 C2 FC 4A 3A 60 56 B7 CA A5 4B 21 FF FF .i9..J:`V...K!..
029C50: CD 5B 26 DA 74 4B CD 78 27 CA 6B 4B DA 74 4B CD .[&.tK.x'.kK.tK.
029C60: DC 1C CA 6B 4B 21 7E 97 CD 20 0B CD 47 2B CA 74 ...kK!~.. ..G+.t
029C70: 4B D2 56 4B 3A 7D 44 B7 CA 84 4B 21 79 56 CD 1B K.VK:}D...K!yV..
029C80: 36 CD 20 0B 3E 41 32 07 56 3A 76 56 B7 C2 5B 54 6. .>A2.V:vV..[T
029C90: 21 79 56 7E FE 35 CA 5B 54 23 CD E9 36 EB CD 79 !yV~.5.[T#..6..y
029CA0: 2A EB C3 93 4B 3E 4A C3 2A 4A 3E 4B C3 2A 4A 3E *...K>J.*J>K.*J>
029CB0: 4C C3 2A 4A CD 63 39 11 AC 55 CD B1 37 C2 48 54 L.*J.c9..U..7.HT
029CC0: CD 8E 39 CD 73 39 11 C6 99 CD 9E 36 C2 48 54 EB ..9.s9.....6.HT.
029CD0: CD E4 36 EB CD 69 39 CA 48 54 B8 C2 D4 4B CD 69 ..6..i9.HT...K.i
029CE0: 39 CD 73 39 CA F5 4B FE 2C C2 48 54 CD 69 39 CD 9.s9..K.,.HT.i9.
029CF0: 73 39 C2 C9 4B EB 22 73 56 21 C7 9B 22 77 56 2A s9..K."sV!.."wV*
029D00: 21 65 56 35 C2 F2 53 C3 CC 53 CD 45 25 AF 32 4D !eV5..S..S.E%.2M
029D10: 44 CD 61 27 C3 5B 54 3E 58 C3 53 54 21 00 00 1A D.a'.[T>X.ST!...
029D20: FE 47 DA 27 54 E6 5F D6 30 D8 C6 E9 D8 C6 06 F2 .G.'T._.0.......
029D30: 35 54 C6 07 D8 C6 0A B7 C5 4F 06 00 29 29 29 29 5T.......O..))))
029D40: 09 C1 13 0D C8 C3 1F 54 CD 61 27 3E FF 32 6F 44 .......T.a'>.2oD
029D50: C3 5B 54 CD 70 3B 3E 01 32 6F 44 3E 01 21 00 45 .[T.p;>.2oD>.!.E
029D60: C3 C7 3B E5 26 00 6F 01 64 00 CD 7B 54 01 0A 00 ..;.&.o.d..{T...
029D70: CD 7B 54 01 01 00 CD 7B 54 E1 C9 D5 16 2F 14 7D .{T....{T..../.}
029D80: 91 6F 7C 98 67 D2 7E 54 09 7A D1 12 13 C9 D5 EB .o|.g.~T.z......
029D90: 1A B7 CA B5 54 FE 20 CA B5 54 FE 2A CA B7 54 FE ....T. ..T.*..T.
029DA0: 3F CA B0 54 CD 84 36 DA AC 54 E6 5F BE C2 B7 54 ?..T..6..T._...T
029DB0: 13 23 C3 90 54 7E B7 D1 C9 54 54 54 40 40 C8 84 .#..T~...TTT@@..
029DC0: 82 A6 8A 40 92 92 40 40 50 86 52 40 62 72 70 62 ...@..@@P.R@brpb
029DD0: 40 40 A6 86 88 A0 40 40 40 40 AC CA E4 40 64 5C @@....@@@@...@d\
029DE0: 2C 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ,...............
029DF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029E00: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029E10: 00 00 00 00 00 00 00 00 00 00 00 00 00 41 44 44 .............ADD
029E20: 49 54 49 56 45 00 41 4C 4C 00 44 45 4C 49 4D 49 ITIVE.ALL.DELIMI
029E30: 54 45 44 00 20 56 41 52 49 41 42 4C 45 53 20 20 TED. VARIABLES
029E40: 20 20 20 20 20 00 20 4F 43 54 45 54 53 20 20 20 . OCTETS
029E50: 20 00 45 58 43 45 50 54 00 45 58 54 45 4E 44 45 .EXCEPT.EXTENDE
029E60: 44 00 46 49 45 4C 44 53 00 46 52 4F 4D 00 4C 49 D.FIELDS.FROM.LI
029E70: 4B 45 00 4E 4F 4D 53 20 46 49 43 48 49 45 52 53 KE.NOMS FICHIERS
029E80: 20 20 20 20 45 4E 52 45 47 2E 20 20 20 20 4D 49 ENREG. MI
029E90: 53 20 41 20 4A 4F 55 52 20 00 52 69 65 6E 00 4F S A JOUR .Rien.O
029EA0: 4E 00 53 54 52 55 43 54 55 52 45 00 54 4F 00 46 N.STRUCTURE.TO.F
029EB0: 49 4C 45 20 55 4E 41 56 41 49 4C 41 42 4C 45 00 ILE UNAVAILABLE.
029EC0: 57 49 54 48 00 46 49 45 4C 44 3A 4E 41 4D 45 00 WITH.FIELD:NAME.
029ED0: 43 0A 01 00 00 46 49 45 4C 44 3A 54 59 50 45 00 C....FIELD:TYPE.
029EE0: 43 01 0B 00 00 46 49 45 4C 44 3A 4C 45 4E 00 00 C....FIELD:LEN..
029EF0: 4E 03 0C 00 00 46 49 45 4C 44 3A 44 45 43 00 00 N....FIELD:DEC..
029F00: 73 56 2B 2B 22 73 56 11 C6 99 CD C0 36 CA 13 4C sV++"sV.....6..L
029F10: D2 34 4C CD E9 36 1A CD 9E 36 13 2A 77 56 EB 7E .4L..6...6.*wV.~
029F20: B8 CA 2A 4C 12 23 13 C3 1F 4C EB 36 00 23 22 77 ..*L.#...L.6.#"w
029F30: 56 C3 FF 4B 2A 77 56 36 00 21 C7 9B CD 42 4C CD V..K*wV6.!...BL.
029F40: 00 27 C5 D5 E5 0E 0C CD 05 00 7C B7 CA 59 4C 0E .'........|..YL.
029F50: 99 CD 05 00 C6 30 32 30 56 11 80 00 0E 1A CD 05 .....020V.......
029F60: 00 11 2E 56 0E 16 CD 05 00 11 2E 56 0E 0F CD 05 ...V.......V....
029F70: 00 E1 0E 00 11 81 00 7E B7 CA 83 4C 12 0C 13 23 .......~...L...#
029F80: C3 77 4C AF 12 79 32 80 00 E5 11 2E 56 0E 15 CD .wL..y2.....V...
029F90: 05 00 E1 23 7E B7 C2 72 4C 11 2E 56 0E 10 CD 05 ...#~..rL..V....
029FA0: 00 0E 0C CD 05 00 7C B7 CA C9 4C 0E 9A CD 05 00 ......|...L.....
029FB0: 11 80 00 19 E5 0E 99 CD 05 00 4F 06 00 E1 09 36 ..........O....6
029FC0: 01 11 00 00 0E 8F CD 05 00 C3 00 00 3A 5A 44 32 ............:ZD2
029FD0: 5C 00 AF 32 59 56 CD 73 39 CA 94 4D 11 9F 55 CD \..2YV.s9..M..U.
029FE0: B1 37 C2 03 4D CD 8E 39 CD 73 39 CA 48 54 E6 5F .7..M..9.s9.HT._
029FF0: D6 40 32 5C 00 CD 69 39 FE 3A C2 D6 4C CD 69 39 .@2\..i9.:..L.i9
02A000: C3 D6 4C 11 6E 55 CD B1 37 C2 48 54 CD 8E 39 CD ..L.nU..7.HT..9.
02A010: 73 39 CA 48 54 21 16 56 3E 20 01 0B 00 CD FA 36 s9.HT!.V> .....6
02A020: 11 16 56 06 08 CD 63 39 B7 CA 8C 4D FE 20 CA 8C ..V...c9...M. ..
02A030: 4D FE 2E CA 5B 4D FE 2A CA 4B 4D FE 61 DA 42 4D M...[M.*.KM.a.BM
02A040: E6 5F 12 13 CD 69 39 05 C3 28 4D EB 36 3F 23 05 ._...i9..(M.6?#.
02A050: C2 4C 4D CD 69 39 FE 2E C2 8C 4D CD 69 39 11 1E .LM.i9....M.i9..
02A060: 56 06 03 B7 CA 8C 4D FE 20 CA 8C 4D FE 2A CA 81 V.....M. ..M.*..
02A070: 4D FE 61 DA 78 4D E6 5F 12 13 CD 69 39 05 C3 63 M.a.xM._...i9..c
02A080: 4D EB 36 3F 23 05 C2 82 4D CD 69 39 3E FF 32 59 M.6?#...M.i9>.2Y
02A090: 56 C3 D6 4C CD 1B 36 3A 59 56 B7 C2 B9 4D 21 73 V..L..6:YV...M!s
02A0A0: 55 CD 28 36 21 22 56 11 5D 00 01 0C 00 CD 7E 38 U.(6!"V.].....~8
02A0B0: CD CE 4D CD 1B 36 C3 5B 54 21 16 56 11 5D 00 01 ..M..6.[T!.V.]..
02A0C0: 0C 00 CD 7E 38 CD CE 4D CD 1B 36 C3 5B 54 21 AD ...~8..M..6.[T!.
02A0D0: 56 22 AB 56 36 0D 11 80 00 0E 1A CD 05 00 11 5C V".V6..........\
02A0E0: 00 CD FD 4E D2 EE 4D 21 9A 55 CD 28 36 C9 EB 2A ...N..M!.U.(6..*
02A0F0: AB 56 EB 01 08 00 3A 59 56 B7 CA 00 4E 01 0B 00 .V....:YV...N...
02A100: 4E 03 0F 00 00 0D 0D 41 3A 3A 3A 3A 3A 3A 3A 3A N......A::::::::
02A110: 41 00 53 44 46 00 20 20 20 20 20 20 20 20 20 20 A.SDF.
02A120: 20 00 3F 3F 3F 3F 3F 3F 3F 3F 44 42 46 00 01 24 .????????DBF..$
02A130: 24 24 20 20 20 20 20 53 55 42 00 00 00 00 00 00 $$ SUB......
02A140: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 27 ...............'
02A150: 29 46 4F 2E 45 00 35 00 00 4E 3A 54 59 50 45 00 )FO.E.5..N:TYPE.
02A160: 43 01 0B 00 00 46 49 45 4C 44 3A 4C 45 4E 00 00 C....FIELD:LEN..
02A170: 4E 03 0C 00 00 46 49 45 4C 44 3A 44 45 43 00 00 N....FIELD:DEC..
02A180: 4F 4D 00 47 45 54 00 50 49 43 54 55 52 45 00 52 OM.GET.PICTURE.R
02A190: 45 43 4F 52 44 20 00 53 41 59 00 53 44 46 00 52 ECORD .SAY.SDF.R
02A1A0: 45 43 4F 52 44 20 23 20 00 54 4F 20 20 20 20 20 ECORD # .TO
02A1B0: 20 20 00 55 53 49 4E 47 00 00 45 3E 03 21 12 45 .USING..E>.!.E
02A1C0: C3 C7 3B 00 73 39 00 00 00 00 00 00 C2 D6 56 AF ..;.s9........V.
02A1D0: CD 89 2E C3 00 45 11 82 5E CD B1 37 00 14 5B 3E .....E..^..7..[>
02A1E0: 00 CD 89 2E C3 00 45 CD 73 39 11 D8 5E 01 32 54 ......E.s9..^.2T
02A1F0: 4F 3A 20 20 20 20 20 00 46 49 45 4C 44 00 46 52 O: .FIELD.FR
02A200: C3 09 45 C3 B0 45 C3 FF 45 CD 73 39 CA 13 47 AF ..E..E..E.s9..G.
02A210: 32 B2 47 32 B1 47 CD 73 39 CA 7D 45 11 92 47 CD 2.G2.G.s9.}E..G.
02A220: B1 37 C2 53 45 CD 8E 39 CD 73 39 22 B6 47 11 7E .7.SE..9.s9".G.~
02A230: 97 CD F2 14 DA 13 47 CD 63 39 7E B7 CA 40 45 2B ......G.c9~..@E+
02A240: 22 BE 47 EB 23 7E C6 02 4F 23 46 3E FF 32 B1 47 ".G.#~..O#F>.2.G
02A250: C3 16 45 11 AE 47 CD B1 37 C2 13 47 CD 8C 23 CD ..E..G..7..G..#.
02A260: 8E 39 CD 73 39 3E 05 CD AD 27 D2 75 45 3E 28 CD .9.s9>...'.uE>(.
02A270: 70 3B C3 21 47 3E FF 32 B2 47 C3 16 45 3A B1 47 p;.!G>.2.G..E:.G
02A280: B7 3E 54 CA 1E 47 3A B2 47 B7 3E 48 CA 1E 47 3E .>T..G:.G.>H..G>
02A290: 81 CD F0 2B CD 3C 27 CD A6 23 2A B6 47 EB 2A BE ...+.<'..#*.G.*.
02A2A0: 47 CD 3C 27 CD FC 1C CD 61 27 CD AE 46 C3 26 47 G.<'....a'..F.&G
02A2B0: CD 9F 24 CA 26 47 CD A4 24 22 B4 47 2A B4 47 7E ..$.&G..$".G*.G~
02A2C0: B7 CA F3 45 32 B3 47 CD DF 22 3A 7D 44 B7 CA E0 ...E2.G..":}D...
02A2D0: 45 CD 1B 36 21 95 47 CD 28 36 3A B3 47 CD C4 25 E..6!.G.(6:.G..%
02A2E0: CD BB 23 CD 45 1D CD AE 46 2A B4 47 23 22 B4 47 ..#.E...F*.G#".G
02A2F0: C3 BC 45 CD B7 23 CD DF 22 CD 43 21 C3 26 47 CD ..E..#..".C!.&G.
02A300: CD 7E 38 EB 09 22 AB 56 36 0D CD 04 4F D2 EE 4D .~8..".V6...O..M
02A310: 21 AD 56 22 AB 56 CD 1B 36 1E 04 2A AB 56 7E FE !.V".V..6..*.V~.
02A320: 0D C8 3A 59 56 B7 C2 D4 4E 01 08 00 11 5D 00 CD ..:YV...N....]..
02A330: 7E 38 22 AB 56 AF 32 68 00 21 5D 00 CD 13 2C CD ~8".V.2h.!]...,.
02A340: 7E 36 01 03 00 CD 13 2C CD 72 36 AF 32 7C 00 11 ~6.....,.r6.2|..
02A350: 80 00 0E 1A CD 05 00 0E 0F 11 5C 00 CD 05 00 B7 ..........\.....
02A360: FA C8 4E 11 5C 00 0E 14 CD 05 00 11 80 00 1A FE ..N.\...........
02A370: 02 C2 AE 4E 13 1A 6F 13 1A 67 CD 35 36 CD 72 36 ...N..o..g.56.r6
02A380: 13 1A CD 3A 36 3E 2F CD E8 35 13 1A CD 3A 36 3E ...:6>/..5...:6>
02A390: 2F CD E8 35 13 1A CD 3A 36 CD 1B 36 3A 5F 01 B7 /..5...:6..6:_..
02A3A0: CA 1B 4E 11 5C 00 0E 10 CD 05 00 C3 1B 4E 3E 17 ..N.\........N>.
02A3B0: CD 70 3B CD 1B 36 3A 5F 01 B7 CA 1B 4E 11 5C 00 .p;..6:_....N.\.
02A3C0: 0E 10 CD 05 00 C3 1B 4E 21 AF 55 CD 2B 36 CD 1B .......N!.U.+6..
02A3D0: 36 C3 1B 4E 01 08 00 CD 13 2C 3E 2E CD E8 35 01 6..N.....,>...5.
02A3E0: 03 00 CD 13 2C 22 AB 56 1D CA F5 4E CD 72 36 CD ....,".V...N.r6.
02A3F0: 78 36 C3 1B 4E CD 1B 36 1E 04 C3 1B 4E C5 D5 0E x6..N..6....N...
02A400: 11 C3 08 4F C5 D5 0E 12 11 5C 00 CD 05 00 FE FF ...O.....\......
02A410: C2 17 4F 37 D1 C1 C9 E6 03 06 00 0F 0F 0F 3C 4F ..O7..........<O
02A420: 21 80 00 09 D1 C1 C9 AF 32 69 56 21 00 00 22 6A !.......2iV!.."j
02A430: 56 CD D8 1C 7E B7 CA A9 4F 22 51 56 E5 CD 1B 36 V...~...O"QV...6
02A440: 01 0A 00 CD 13 2C CD 7B 36 21 69 56 34 E1 E5 3E .....,.{6!iV4..>
02A450: 28 CD E8 35 11 0B 00 19 7E E6 7F E5 CD E8 35 3E (..5....~.....5>
02A460: 29 CD E8 35 CD 7B 36 E1 7E E6 7F FE 4E CA 84 4F )..5.{6.~...N..O
02A470: 23 7E 32 54 56 B7 C2 7A 4F 3C 32 66 56 AF 32 55 #~2TV..zO<2fV.2U
02A480: 56 C3 95 4F 23 7E 32 55 56 23 23 23 7E 32 54 56 V..O#~2UV###~2TV
02A490: 3E 06 32 66 56 21 50 56 CD 20 0B 3A 66 56 2A 6A >.2fV!PV. .:fV*j
02A4A0: 56 CD BB 36 23 22 6A 56 E1 11 10 00 19 7E FE 0D V..6#"jV.....~..
02A4B0: C2 34 4F CD 1B 36 3E 60 CD 70 3B CD 72 36 3A 69 .4O..6>`.p;.r6:i
02A4C0: 56 CD 3A 36 21 34 55 CD 2B 36 2A 6A 56 CD 35 36 V.:6!4U.+6*jV.56
02A4D0: 21 46 55 CD 2B 36 C3 5B 54 AF 32 5D 56 32 5B 56 !FU.+6.[T.2]V2[V
02A4E0: CD 73 39 CA 1D 50 11 69 55 CD B1 37 C2 09 50 CD .s9..P.iU..7..P.
02A4F0: 8E 39 3E 03 CD AD 27 3E FF 32 5D 56 3E 01 CD F0 .9>...'>.2]V>...
02A500: 3C 29 21 01 00 22 B8 47 22 BA 47 CD 2A 2C 21 64 <)!..".G".G.*,!d
02A510: 00 22 BC 47 21 FF FF CD 2E 2C 2A B8 47 CD 0C 2C .".G!....,*.G..,
02A520: CD 37 2C DA 71 46 2A B8 47 23 22 B8 47 CD DC 1C .7,.qF*.G#".G...
02A530: CA 1A 46 2A BA 47 CD 0C 2C CD D3 2E 2A BA 47 2A ..F*.G..,...*.G*
02A540: BA 47 23 22 BA 47 3A 7D 44 B7 CA 1A 46 2A BC 47 .G#".G:}D...F*.G
02A550: 2B 22 BC 47 7C B5 C2 1A 46 CD 1B 36 2A BA 47 2B +".G|...F..6*.G+
02A560: CD 35 36 3E 3A CD 70 3B 21 64 00 22 BC 47 C3 1A .56>:.p;!d.".G..
02A570: 46 2A BA 47 CD 0C 2C CD D4 26 CD D8 2C 3A 7D 44 F*.G..,..&..,:}D
02A580: B7 CA 89 46 3E 39 CD 70 3B 2A BA 47 2B 22 BA 47 ...F>9.p;*.G+".G
02A590: CD 2E 2C 3A 7D 44 B7 CA A5 46 2A BA 47 CD 35 36 ..,:}D...F*.G.56
02A5A0: 3E 3A CD 70 3B CD 9F 24 CA 26 47 C3 B0 45 21 01 >:.p;..$.&G..E!.
02A5B0: 00 CD 9D 27 DA 12 47 CD 43 21 21 00 00 22 BE 47 ...'..G.C!!..".G
02A5C0: 21 64 00 22 BC 47 CD 8D 1D 2A BE 47 23 22 BE 47 !d.".G...*.G#".G
02A5D0: 2A BC 47 2B 22 BC 47 7C B5 C2 F7 46 3A 7D 44 B7 *.G+".G|...F:}D.
02A5E0: CA F7 46 2A BE 47 CD 1B 36 CD 35 36 3E 78 CD 70 ..F*.G..6.56>x.p
02A5F0: 3B 21 64 00 22 BC 47 CD 37 2C D2 C6 46 3A 7D 44 ;!d.".G.7,..F:}D
02A600: B7 CA 12 47 2A BE 47 CD 1B 36 CD 35 36 3E 78 CD ...G*.G..6.56>x.
02A610: 70 3B C9 CD 61 27 3E FF 32 6F 44 C3 26 47 CD 70 p;..a'>.2oD.&G.p
02A620: 3B 3E 01 32 6F 44 3E 01 21 00 45 C3 C7 3B 54 54 ;>.2oD>.!.E..;TT
02A630: 54 40 40 C8 84 82 A6 8A 40 92 92 40 40 50 86 52 T@@.....@..@@P.R
02A640: 40 62 72 70 62 40 40 A6 86 88 A0 40 40 40 40 AC @brpb@@....@@@@.
02A650: CA E4 40 64 5C 2C 00 00 00 00 00 00 00 00 00 00 ..@d\,..........
02A660: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02A670: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02A680: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02A690: 00 00 4F 4E 00 4D 49 53 45 20 41 20 4A 4F 55 52 ..ON.MISE A JOUR
02A6A0: 20 44 45 20 4C 27 49 4E 44 45 58 3A 20 00 54 4F DE L'INDEX: .TO
02A6B0: 00 00 00 C8 84 82 A6 8A 40 92 92 40 40 50 86 52 ........@..@@P.R
02A6C0: 40 62 72 70 62 40 40 A6 86 88 A0 40 40 40 40 AC @brpb@@....@@@@.
02A6D0: CA E4 40 64 5C 2C 00 00 00 00 00 00 00 00 00 00 ..@d\,..........
02A6E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02A6F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02A700: 2B D2 E0 4F 3E 58 C3 53 54 11 1D 55 CD B1 37 C2 +..O>X.ST..U..7.
02A710: 48 54 CD 8E 39 3E FF 32 5B 56 C3 E0 4F 3A 5D 56 HT..9>.2[V..O:]V
02A720: B7 CA 48 54 3A 5B 56 B7 C2 2E 50 CD 20 29 11 79 ..HT:[V...P. ).y
02A730: 56 01 10 00 CD 7A 2C DA 97 50 21 0B 00 19 7E FE V....z,..P!...~.
02A740: CE CA 55 50 FE CC CA 63 50 06 00 23 4E 79 3C 32 ..UP...cP..#Ny<2
02A750: 6E 56 C3 6B 50 23 46 23 23 23 4E 3E 06 32 6E 56 nV.kP#F###N>.2nV
02A760: C3 6B 50 01 00 00 3E 01 32 6E 56 21 79 56 CD 72 .kP...>.2nV!yV.r
02A770: 2A 22 57 56 3A 6E 56 4F 06 00 11 AD 56 CD 7A 2C *"WV:nVO....V.z,
02A780: 2A 57 56 11 0D 00 19 CD E9 36 3A 6E 56 4F 21 AD *WV......6:nVO!.
02A790: 56 CD 78 38 C3 2E 50 CD 45 25 CD 61 27 C3 5B 54 V.x8..P.E%.a'.[T
02A7A0: AF 32 5D 56 32 5B 56 CD 73 39 CA 18 51 11 AC 55 .2]V2[V.s9..Q..U
02A7B0: CD B1 37 C2 DD 50 CD 8E 39 3E 03 CD AD 27 DA 89 ..7..P..9>...'..
02A7C0: 51 3E 81 CD F0 2B DA 89 51 CD 3C 27 32 4D 44 CD Q>...+..Q.<'2MD.
02A7D0: D8 1C 22 67 56 3E FF 32 5D 56 C3 A7 50 11 26 55 .."gV>.2]V..P.&U
02A7E0: CD B1 37 C2 48 54 CD 8E 39 CD 73 39 CA 48 54 11 ..7.HT..9.s9.HT.
02A7F0: 6E 55 CD B1 37 C2 48 54 CD 8E 39 CD 73 39 CA 48 nU..7.HT..9.s9.H
02A800: 54 22 73 56 CD 69 39 FE 20 CA 10 51 B7 C2 04 51 T"sV.i9. ..Q...Q
02A810: 3E FF 32 5B 56 C3 A7 50 3A 5D 56 B7 CA 84 51 2A >.2[V..P:]V...Q*
02A820: 67 56 7E B7 CA 64 51 EB 3A 5B 56 B7 CA 38 51 2A gV~..dQ.:[V..8Q*
02A830: 73 56 CD 8E 54 C2 64 51 01 10 00 CD C4 2E 21 0B sV..T.dQ......!.
02A840: 00 19 46 23 4E 23 CD E9 36 78 FE CE CA 58 51 FE ..F#N#..6x...XQ.
02A850: CC CA 5D 51 0C C3 5F 51 0E 06 C3 5F 51 0E 01 06 ..]Q.._Q..._Q...
02A860: 00 CD C4 2E 2A 67 56 11 10 00 19 22 67 56 7E FE ....*gV...."gV~.
02A870: 0D C2 1F 51 CD D4 26 CD 45 25 AF 32 4D 44 CD 61 ...Q..&.E%.2MD.a
02A880: 27 C3 5B 54 3E 48 C3 53 54 3E 28 C3 53 54 AF 32 '.[T>H.ST>(.ST.2
02A890: 5B 56 CD 63 39 11 6E 55 CD B1 37 CA AF 51 3E FF [V.c9.nU..7..Q>.
02A8A0: 32 5B 56 CD 63 39 11 52 55 CD B1 37 C2 48 54 CD 2[V.c9.RU..7.HT.
02A8B0: 8E 39 CD 73 39 CA 48 54 22 71 56 CD D8 1C 22 67 .9.s9.HT"qV..."g
02A8C0: 56 2A 67 56 7E B7 CA E7 51 EB 2A 71 56 3A 5B 56 V*gV~...Q.*qV:[V
02A8D0: B7 CA DD 51 CD 8E 54 CA E7 51 C3 E3 51 CD 8E 54 ...Q..T..Q..Q..T
02A8E0: C2 E7 51 EB CD 79 2A 2A 67 56 11 10 00 19 22 67 ..Q..y**gV...."g
02A8F0: 56 7E FE 0D C2 C1 51 C3 5B 54 CD DD 25 AF 32 5F V~....Q.[T..%.2_
02A900: CD 3C 29 AF 32 38 51 32 51 51 32 32 51 32 4A 51 .<).28Q2QQ22Q2JQ
02A910: 32 34 51 21 72 59 01 20 01 CD F8 36 3E 08 32 3D 24Q!rY. ...6>.2=
02A920: 51 32 40 51 3E 39 32 3C 51 3E 50 32 47 51 CD 68 Q2@Q>92<Q>P2GQ.h
02A930: 3B 32 43 51 32 44 51 CD DD 25 CD 73 39 CA 9F 45 ;2CQ2DQ..%.s9..E
02A940: CD E9 25 DA A5 4D CD 73 39 CA 9F 45 11 1C 4E CD ..%..M.s9..E..N.
02A950: B1 37 C2 65 45 CD 8E 39 3E 02 CD AD 27 3E FF 32 .7.eE..9>...'>.2
02A960: 38 51 C3 3A 45 11 2D 4E CD B1 37 C2 8B 45 CD 8E 8Q.:E.-N..7..E..
02A970: 39 CD 73 39 CA A5 4D 11 27 4E CD B1 37 C2 A5 4D 9.s9..M.'N..7..M
02A980: CD 8E 39 3E FF 32 44 51 C3 3A 45 11 21 4E CD B1 ..9>.2DQ.:E.!N..
02A990: 37 C2 A5 4D CD 8E 39 3E FF 32 34 51 C3 3A 45 3A 7..M..9>.24Q.:E:
02A9A0: 38 51 B7 C2 BE 45 3E 3F CD 70 3B CD 99 39 CD 63 8Q...E>?.p;..9.c
02A9B0: 39 CA 9D 4D FE 1B CA 9D 4D 3E 02 CD AD 27 3E FF 9..M....M>...'>.
02A9C0: 32 33 51 3E 02 CD F0 2B D2 D4 45 3E 81 CD F0 2B 23Q>...+..E>...+
02A9D0: AF 32 33 51 CD 3C 27 32 73 44 AF 32 4E 51 3A 33 .23Q.<'2sD.2NQ:3
02A9E0: 51 B7 C2 EA 45 3E 68 CD 70 3B CD 48 4D CD 80 4D Q...E>h.p;.HM..M
02A9F0: CD 73 39 CA 65 46 FE 0D CA 65 46 E6 5F FE 4D C2 .s9.eF...eF._.M.
02AA00: 1D 46 CD 69 39 FE 3D C2 A5 4D CD 69 39 CD FF 37 .F.i9.=..M.i9..7
02AA10: 7B 32 40 51 32 3D 51 CD 8E 39 C3 57 46 FE 4C C2 {2@Q2=Q..9.WF.L.
02AA20: 3A 46 CD 69 39 FE 3D C2 A5 4D CD 69 39 CD FF 37 :F.i9.=..M.i9..7
02AA30: 7B 32 3C 51 CD 8E 39 C3 57 46 FE 57 C2 65 46 CD {2<Q..9.WF.W.eF.
02AA40: 69 39 FE 3D C2 A5 4D CD 69 39 CD FF 37 7B 32 47 i9.=..M.i9..7{2G
02AA50: 51 CD 8E 39 C3 57 46 CD 63 39 FE 2C C2 65 46 CD Q..9.WF.c9.,.eF.
02AA60: 69 39 C3 F0 45 3A 33 51 B7 C2 71 46 3E 45 CD 70 i9..E:3Q..qF>E.p
02AA70: 3B CD 48 4D CD 80 4D CD 73 39 E6 5F FE 59 C2 EB ;.HM..M.s9._.Y..
02AA80: 46 3E FF 32 4E 51 3A 33 51 B7 C2 92 46 3E 46 CD F>.2NQ:3Q...F>F.
02AA90: 70 3B 21 6A 54 36 2B CD 48 4D 11 6C 54 CD 63 39 p;!jT6+.HM.lT.c9
02AAA0: FE 3C CA AE 46 FE 3E CA B6 46 AF C3 BB 46 CD 69 .<..F.>..F...F.i
02AAB0: 39 3E 80 C3 BB 46 CD 69 39 3E 40 32 3B 51 AF CD 9>...F.i9>@2;Q..
02AAC0: 20 37 CA 86 46 32 6B 54 4F CD 80 4D 21 6C 54 79 7..F2kTO..M!lTy
02AAD0: CD BB 36 36 32 23 71 23 3A 3B 51 77 23 3A 40 51 ..662#q#:;Qw#:@Q
02AAE0: 47 3A 47 51 90 77 23 70 23 36 35 AF 32 37 51 3A G:GQ.w#p#65.27Q:
02AAF0: 33 51 B7 C2 FB 46 3E 3D CD 70 3B CD 48 4D CD 73 3Q...F>=.p;.HM.s
02AB00: 56 CD E9 25 DA 48 54 CD 73 39 CA 3B 52 11 AC 55 V..%.HT.s9.;R..U
02AB10: CD B1 37 C2 48 54 CD 8E 39 CD 73 39 CA 48 54 01 ..7.HT..9.s9.HT.
02AB20: 00 05 CD 72 2A 22 73 56 3E FF 32 5F 56 CD 69 39 ...r*"sV>.2_V.i9
02AB30: CA 3B 52 FE 20 C2 2D 52 C3 01 52 01 00 00 CD 2A .;R. .-R..R....*
02AB40: 2C 7C B5 CA 62 52 21 FF FF CD 5B 26 DA 62 52 CD ,|..bR!...[&.bR.
02AB50: 78 27 CA 59 52 DA 62 52 03 CD 47 2B CA 62 52 D2 x'.YR.bR..G+.bR.
02AB60: 4F 52 3A 7D 44 B7 CA 73 52 3E 22 CD 70 3B 60 69 OR:}D..sR>".p;`i
02AB70: CD 35 36 3A 5F 56 B7 CA 5B 54 60 69 CD 18 34 2A .56:_V..[T`i..4*
02AB80: 73 56 11 0D 00 19 CD E9 36 CD E5 34 C3 5B 54 3E sV......6..4.[T>
02AB90: 67 CD 70 3B CD 61 27 CD 3C 27 CD C4 25 3E 72 CD g.p;.a'.<'..%>r.
02ABA0: 70 3B CD 2A 2C CD 35 36 3E 77 CD 70 3B CD E3 1C p;.*,.56>w.p;...
02ABB0: 2B 2B 2B 2B 2B EB 1A CD 3A 36 3E 2F CD E8 35 13 +++++...:6>/..5.
02ABC0: 1A CD 3A 36 3E 2F CD E8 35 13 1A CD 3A 36 CD 7F ..:6>/..5...:6..
02ABD0: 2E FE 01 CA DE 52 3E 70 CD 70 3B C3 E3 52 3E 71 .....R>p.p;..R>q
02ABE0: CD 70 3B 3E 66 CD 70 3B CD E3 1C 0E 00 7E FE 0D .p;>f.p;.....~..
02ABF0: CA 3F 53 0C CD 1B 36 79 E5 CD 42 36 CD 72 36 E1 .?S...6y..B6.r6.
02AC00: C5 E5 01 0A 00 CD 13 2C CD 78 36 E1 C1 11 0B 00 .......,.x6.....
02AC10: E5 19 7E CD E8 35 CD 75 36 23 7E E5 CD 42 36 E1 ..~..5.u6#~..B6.
02AC20: CD 75 36 23 23 23 46 7E B7 CC 78 36 78 B7 CA 34 .u6###F~..x6x..4
02AC30: 53 CD 42 36 CD 78 36 E1 11 10 00 19 C3 ED 52 CD S.B6.x6.......R.
02AC40: 1B 36 3E 60 CD 70 3B CD 72 36 CD 72 36 CD 78 36 .6>`.p;.r6.r6.x6
02AC50: CD 84 29 CD 35 36 C3 5B 54 3E 65 CD 70 3B CD 8E ..).56.[T>e.p;..
02AC60: 3A FE 1B C2 6D 53 3A 70 44 B7 C2 7E 44 F5 CD 73 :...mS:pD..~D..s
02AC70: 39 CA B5 53 11 AC 55 CD B1 37 C2 48 54 CD 8E 39 9..S..U..7.HT..9
02AC80: CD 73 39 CA 48 54 E5 CD 15 2A C2 90 53 CD 79 2A .s9.HT...*..S.y*
02AC90: E1 01 01 00 CD 72 2A 11 0D 00 19 CD DF 36 36 01 .....r*......66.
02ACA0: 23 F1 FE 20 D2 A9 53 3E 20 77 CD E8 35 3E 0D CD #.. ..S> w..5>..
02ACB0: E8 35 C3 5B 54 F1 C3 5B 54 CD 73 39 3E 08 CD AD .5.[T..[T.s9>...
02ACC0: 27 3E 01 CD F0 2B DA 17 54 32 4D 44 3A 4D 44 11 '>...+..T2MD:MD.
02ACD0: C7 9B CD B2 25 DA 0A 54 11 C8 9B 0E 02 CD 1C 54 ....%..T.......T
02ACE0: 7D 32 65 56 B7 CA 0A 54 0E 04 CD 1C 54 22 63 56 }2eV...T....T"cV
02ACF0: 13 13 0E 02 CD 1C 54 7D 2A 63 56 77 23 22 63 56 ......T}*cVw#"cV
02AD00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
02AD10: 24 00 01 00 02 09 4E E5 24 00 41 02 00 00 00 02 $.....N.$.A.....
02AD20: 24 00 46 02 00 00 00 02 24 00 42 02 00 00 00 02 $.F.....$.B.....
02AD30: 24 00 47 02 00 00 00 02 24 00 43 02 00 00 00 02 $.G.....$.C.....
02AD40: 24 00 48 02 00 00 00 02 24 00 44 02 00 00 00 02 $.H.....$.D.....
02AD50: 24 00 49 02 00 00 00 02 24 00 45 02 00 00 00 02 $.I.....$.E.....
02AD60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02AD70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02AD80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02AD90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02ADA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02ADB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02ADC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02ADD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02ADE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02ADF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02AE00: 39 E6 5F FE 59 C2 0D 47 3E FF 32 37 51 CD 80 4D 9._.Y..G>.27Q..M
02AE10: AF 32 59 51 3A 33 51 B7 C2 20 47 3E 4E CD 70 3B .2YQ:3Q.. G>N.p;
02AE20: CD 48 4D CD 73 39 E6 5F FE 59 C2 42 47 3E FF 32 .HM.s9._.Y.BG>.2
02AE30: 59 51 21 11 4E 01 01 01 CD 72 2A 22 41 51 AF 32 YQ!.N....r*"AQ.2
02AE40: 4B 51 CD 80 4D 3A 59 51 B7 CA 58 48 3A 33 51 B7 KQ..M:YQ..XH:3Q.
02AE50: C2 58 47 3E 44 CD 70 3B CD 48 4D CD 73 39 E6 5F .XG>D.p;.HM.s9._
02AE60: FE 59 C2 6A 47 3E FF 32 4A 51 CD 80 4D 3A 4A 51 .Y.jG>.2JQ..M:JQ
02AE70: B7 CA 58 48 3A 33 51 B7 C2 80 47 3E 43 CD 70 3B ..XH:3Q...G>C.p;
02AE80: CD 48 4D 11 5C 51 CD F2 14 D2 9B 47 3A 33 51 B7 .HM.\Q.....G:3Q.
02AE90: C2 A5 4D 3E 34 CD 70 3B C3 7B 47 CD 80 4D 3A 33 ..M>4.p;.{G..M:3
02AEA0: 51 B7 C2 AA 47 3E 50 CD 70 3B CD 48 4D CD 73 39 Q...G>P.p;.HM.s9
02AEB0: E6 5F FE 59 C2 BC 47 3E FF 32 51 51 CD 80 4D AF ._.Y..G>.2QQ..M.
02AEC0: 32 52 51 3A 33 51 B7 C2 CF 47 3E 6B CD 70 3B CD 2RQ:3Q...G>k.p;.
02AED0: 48 4D CD 73 39 E6 5F FE 59 C2 E1 47 3E FF 32 52 HM.s9._.Y..G>.2R
02AEE0: 51 CD 80 4D 3A 33 51 B7 C2 F0 47 3E 69 CD 70 3B Q..M:3Q...G>i.p;
02AEF0: 21 04 59 36 2B CD 48 4D FE 0D CA 01 48 B7 C2 0C !.Y6+.HM....H...
02AF00: 48 11 06 59 3E 20 12 3E 01 C3 37 48 11 06 59 CD H..Y> .>..7H..Y.
02AF10: 63 39 FE 3C CA 20 48 FE 3E CA 28 48 AF C3 2D 48 c9.<. H.>.(H..-H
02AF20: CD 69 39 3E 80 C3 2D 48 CD 69 39 3E 40 32 3B 51 .i9>..-H.i9>@2;Q
02AF30: AF CD 20 37 CA E4 47 4F 32 05 59 CD 80 4D 21 06 .. 7..GO2.Y..M!.
02AF40: 59 79 CD BB 36 36 32 23 71 23 3A 3B 51 77 23 71 Yy..662#q#:;Qw#q
02AF50: 23 3A 40 51 77 23 36 35 3A 33 51 B7 C2 64 48 3E #:@Qw#65:3Q..dH>
02AF60: 3C CD 70 3B 21 92 5A 22 35 51 36 35 21 24 52 22 <.p;!.Z"5Q65!$R"
02AF70: 5A 51 36 35 21 73 55 22 39 51 36 35 21 49 53 22 ZQ65!sU"9Q65!IS"
02AF80: 53 51 36 35 3E 01 32 50 51 3A 33 51 B7 C2 9C 48 SQ65>.2PQ:3Q...H
02AF90: CD 1B 36 3A 50 51 CD 42 36 CD 72 36 CD 48 4D CD ..6:PQ.B6.r6.HM.
02AFA0: 73 39 CA D7 4A CD FF 37 7B 32 4F 51 CD 8E 39 7E s9..J..7{2OQ..9~
02AFB0: FE 2C C2 04 4D CD 69 39 D5 EB 2A 35 51 EB CD F2 .,..M.i9..*5Q...
02AFC0: 14 DA 04 4D CD 73 39 C2 04 4D EB E5 3A 51 51 B7 ...M.s9..M..:QQ.
02AFD0: C2 F4 48 36 32 23 4E 23 46 78 B7 C2 E1 48 F6 80 ..H62#N#Fx...H..
02AFE0: 77 23 3A 4F 51 77 23 3A 40 51 77 23 36 35 22 35 w#:OQw#:@Qw#65"5
02AFF0: 51 C3 FB 48 22 35 51 23 CD F3 36 C5 CD 80 4D 3A Q..H"5Q#..6...M:
02B000: 5A 00 00 45 3E 11 CD 70 3B C3 00 45 3E CE 00 80 Z..E>..p;..E>...
02B010: 5A 00 3C 29 11 77 5E CD 73 39 CD B1 37 CE 00 86 Z.<).w^.s9..7...
02B020: 5A 00 39 CD 73 39 C3 59 51 11 A0 5E CD CE 00 8C Z.9.s9.YQ..^....
02B030: 5A 00 CD 45 CD 3C 29 CD 9F 24 CA 0C 51 CE 00 62 Z..E.<)..$..Q..b
02B040: 5A 00 36 CA CB 50 06 00 C3 CE 50 CD 69 CE 00 68 Z.6..P....P.i..h
02B050: 5A 00 CD 20 37 4F CD 63 39 79 CD B1 20 CE 00 6E Z.. 7O.c9y.. ..n
02B060: 5A 00 7C B5 CA FD 50 3A 5B 44 B7 CA 00 CE 00 74 Z.|...P:[D.....t
02B070: 5A 00 00 45 CD 63 39 CD C9 21 C3 DD 50 CE 00 7A Z..E.c9..!..P..z
02B080: 27 C3 5B 54 3E 48 C3 53 54 3E 28 C3 53 54 AF 32 '.[T>H.ST>(.ST.2
02B090: 5B 56 CD 63 39 11 6E 55 CD B1 37 CA AF 51 3E FF [V.c9.nU..7..Q>.
02B0A0: 32 5B 56 CD 63 39 11 52 55 CD B1 37 C2 48 54 CD 2[V.c9.RU..7.HT.
02B0B0: 8E 39 CD 73 39 CA 48 54 22 71 56 CD D8 1C 22 67 .9.s9.HT"qV..."g
02B0C0: 56 2A 67 56 7E B7 CA E7 51 EB 2A 71 56 3A 5B 56 V*gV~...Q.*qV:[V
02B0D0: B7 CA DD 51 CD 8E 54 CA E7 51 C3 E3 51 CD 8E 54 ...Q..T..Q..Q..T
02B0E0: C2 E7 51 EB CD 79 2A 2A 67 56 11 10 00 19 22 67 ..Q..y**gV...."g
02B0F0: 56 7E FE 0D C2 C1 51 C3 5B 54 CD DD 25 AF 32 5F V~....Q.[T..%.2_
02B100: CD 73 39 11 DC 4E CD B1 37 CA 1B 45 11 6E 4E CD .s9..N..7..E.nN.
02B110: B1 37 C2 34 4E CD 8E 39 C3 54 48 3E 75 CD 70 3B .7.4N..9.TH>u.p;
02B120: CD 42 38 DA 2C 4E CA 2C 4E CD 3C 29 21 1D 51 01 .B8.,N.,N.<)!.Q.
02B130: 20 03 3E 20 CD FA 36 21 35 51 11 19 00 0E 20 AF .> ..6!5Q.... .
02B140: 77 19 0D C2 40 45 CD E3 1C 11 C6 99 01 01 02 CD w...@E..........
02B150: 7E 38 21 C6 99 22 1A 4F 21 1C 4F 22 12 4F 21 00 ~8!..".O!.O".O!.
02B160: 00 22 18 4F 2A 1A 4F 7E FE 0D CA AA 45 EB 2A 12 .".O*.O~....E.*.
02B170: 4F 01 0D 00 09 CD DF 36 EB 06 0C 7E B7 CA 81 45 O......6...~...E
02B180: 12 23 13 05 C2 7B 45 13 13 7E CD 01 4E 13 13 23 .#...{E..~..N..#
02B190: 23 23 7E CD 01 4E 11 10 00 2A 12 4F 19 22 12 4F ##~..N...*.O.".O
02B1A0: 2A 1A 4F 19 22 1A 4F C3 64 45 21 1C 4F 22 12 4F *.O.".O.dE!.O".O
02B1B0: CD AC 06 21 00 00 22 16 4F 01 0B 01 11 76 4E 21 ...!..".O....vN!
02B1C0: 16 4F CD 72 06 2A 12 4F 22 14 4F 21 00 02 22 FB .O.r.*.O".O!..".
02B1D0: 4E 2A FB 4E 44 4D 2A 14 4F 22 16 4F EB 21 16 4F N*.NDM*.O".O.!.O
02B1E0: CD 72 06 2A 14 4F 11 10 00 19 22 14 4F 7E FE 0D .r.*.O....".O~..
02B1F0: CA 02 46 2A FB 4E 24 22 FB 4E 3A 55 01 3D BC D2 ..F*.N$".N:U.=..
02B200: 33 51 B7 C2 0B 49 3E 40 CD 70 3B 2A 39 51 36 2B 3Q...I>@.p;*9Q6+
02B210: 23 22 39 51 CD 48 4D FE 0D CA 20 49 B7 C2 31 49 #"9Q.HM... I..1I
02B220: 2A 39 51 EB 13 3E 20 12 AF 32 3B 51 3E 01 C3 5E *9Q..> ..2;Q>..^
02B230: 49 2A 39 51 23 EB CD 63 39 FE 3C CA 47 49 FE 3E I*9Q#..c9.<.GI.>
02B240: CA 4F 49 AF C3 54 49 CD 69 39 3E 80 C3 54 49 CD .OI..TI.i9>..TI.
02B250: 69 39 3E 40 32 3B 51 AF CD 20 37 CA FF 48 4F CD i9>@2;Q.. 7..HO.
02B260: 80 4D 2A 39 51 71 79 CD BB 36 23 36 32 23 71 23 .M*9Qqy..6#62#q#
02B270: 3A 3B 51 77 23 3A 4F 51 77 23 3A 40 51 77 23 36 :;Qw#:OQw#:@Qw#6
02B280: 35 22 39 51 C1 78 B7 CA B8 4A 3A 59 51 B7 CA B8 5"9Q.x...J:YQ...
02B290: 4A 3A 33 51 B7 C2 9D 49 3E 4E CD 70 3B CD 48 4D J:3Q...I>N.p;.HM
02B2A0: CD 80 4D CD 73 39 E6 5F FE 59 C2 B8 4A 2A 41 51 ..M.s9._.Y..J*AQ
02B2B0: EB E1 36 2F 23 CD E4 36 3A 51 51 B7 C2 D5 49 36 ..6/#..6:QQ...I6
02B2C0: 29 23 CD E4 36 36 32 23 CD EE 36 3A 4F 51 77 23 )#..662#..6:OQw#
02B2D0: 3A 40 51 77 23 36 29 23 CD E4 36 E5 2A 30 4E 22 :@Qw#6)#..6.*0N"
02B2E0: 57 51 EB 21 10 00 19 22 30 4E 21 0C 00 19 70 21 WQ.!..."0N!...p!
02B2F0: 0F 00 19 71 E1 36 29 23 CD E4 36 36 05 23 36 2F ...q.6)#..66.#6/
02B300: 23 CD E4 36 3A 4A 51 B7 CA 3F 4A EB 2A 41 51 EB #..6:JQ..?J.*AQ.
02B310: 36 29 23 CD E4 36 E5 2A 30 4E 22 4C 51 EB 21 10 6)#..6.*0N"LQ.!.
02B320: 00 19 22 30 4E 21 0C 00 19 70 21 0F 00 19 71 E1 .."0N!...p!...q.
02B330: 36 29 23 CD E4 36 36 05 23 36 2F 23 CD E4 36 36 6)#..66.#6/#..66
02B340: 35 22 35 51 2A 57 51 EB 2A 5A 51 36 29 23 CD E4 5"5Q*WQ.*ZQ6)#..
02B350: 36 36 32 23 CD EE 36 3A 4B 51 5F 3A 4F 51 83 77 662#..6:KQ_:OQ.w
02B360: 23 36 00 23 36 35 22 5A 51 3A 4A 51 B7 CA 9E 4A #6.#65"ZQ:JQ...J
02B370: 2A 4C 51 EB 2A 53 51 36 29 23 CD E4 36 36 32 23 *LQ.*SQ6)#..662#
02B380: CD EE 36 3A 4B 51 47 3A 4F 51 80 77 23 36 00 23 ..6:KQG:OQ.w#6.#
02B390: 36 00 23 36 2F 23 CD E4 36 36 35 22 53 51 AF 32 6.#6/#..665"SQ.2
02B3A0: 4B 51 3A 50 51 3C 32 50 51 3A 4F 51 5F 3A 40 51 KQ:PQ<2PQ:OQ_:@Q
02B3B0: 83 3C 32 40 51 C3 89 48 E1 3A 4F 51 5F 3A 4B 51 .<2@Q..H.:OQ_:KQ
02B3C0: 83 3C 32 4B 51 3A 40 51 83 3C 32 40 51 3A 50 51 .<2KQ:@Q.<2@Q:PQ
02B3D0: 3C 32 50 51 C3 89 48 3A 33 51 B7 C2 E7 4A 3A 73 <2PQ..H:3Q...J:s
02B3E0: 44 CD 40 27 CD D4 26 3A 73 44 CD 40 27 CD 45 25 D.@'..&:sD.@'.E%
02B3F0: AF 32 73 44 CD 61 27 3A 44 51 CD 6C 3B 21 00 00 .2sD.a':DQ.l;!..
02B400: D1 45 3A EC 4E 47 3E 08 CD 1D 02 F5 78 32 EC 4E .E:.NG>.....x2.N
02B410: F1 47 E6 C0 CA 6A 46 FE 80 CA 2C 4E FE C0 CA C6 .G...jF...,N....
02B420: 46 3A EC 4E 5F 3A ED 4E 83 21 1D 51 11 19 00 B7 F:.N_:.N.!.Q....
02B430: CA 38 46 19 3D C2 33 46 22 FB 4E EB 21 24 54 CD .8F.=.3F".N.!$T.
02B440: D8 36 7C B5 CA 59 46 44 4D 11 3C 54 21 23 54 7E .6|..YFDM.<T!#T~
02B450: 12 2B 1B 0B 78 B1 C2 4F 46 2A FB 4E 01 19 00 3E .+..x..OF*.N...>
02B460: 20 CD FA 36 2B 36 00 C3 B0 45 78 E6 04 CA 0A 47 ..6+6...Ex....G
02B470: AF 32 EC 4E 78 E6 02 CA A5 46 2A 12 4F 11 80 FF .2.Nx....F*.O...
02B480: 19 22 12 4F 11 1C 4F CD C0 36 DA 9A 46 21 1C 4F .".O..O..6..F!.O
02B490: 22 12 4F AF 32 ED 4E C3 B0 45 3A ED 4E D6 08 32 ".O.2.N..E:.N..2
02B4A0: ED 4E C3 B0 45 2A 12 4F 11 80 00 19 22 12 4F 11 .N..E*.O....".O.
02B4B0: 9C 50 CD C0 36 D2 BB 46 C3 0A 47 3A ED 4E C6 08 .P..6..F..G:.N..
02B4C0: 32 ED 4E C3 B0 45 3A EC 4E 5F 3A ED 4E 83 21 1D 2.N..E:.N_:.N.!.
02B4D0: 51 11 19 00 B7 CA DD 46 19 3D C2 D8 46 22 FB 4E Q......F.=..F".N
02B4E0: EB 21 24 54 CD D8 36 7C B5 CA F9 46 44 4D 2A FB .!$T..6|...FDM*.
02B4F0: 4E EB 21 19 00 19 CD 7E 38 21 24 54 01 19 00 3E N.!....~8!$T...>
02B500: 20 CD FA 36 2B 36 00 C3 B0 45 21 C6 99 01 01 02 ..6+6...E!.....
02B510: CD F8 36 21 00 00 22 EF 4E 21 C6 99 22 1A 4F 21 ..6!..".N!..".O!
02B520: 1C 4F 22 12 4F 2A 12 4F 7E FE 0D CA 05 48 11 0D .O".O*.O~....H..
02B530: 00 19 CD DF 36 CD 8E 39 CD 73 39 CA F8 47 2A 1A ....6..9.s9..G*.
02B540: 4F EB CD 63 39 CD F1 2A 7E FE 20 C2 2C 48 CD 63 O..c9..*~. .,H.c
02B550: 39 0E 00 D5 7E FE 20 CA 69 47 CD 84 36 DA 62 47 9...~. .iG..6.bG
02B560: E6 5F 12 0C 13 23 C3 54 47 D1 79 B7 CA 2C 48 FE ._...#.TG.y..,H.
02B570: 0B D2 2C 48 CD 8E 39 21 0B 00 19 EB CD 73 39 E6 ..,H..9!.....s9.
02B580: 5F FE 43 CA 9D 47 FE 4E CA 9D 47 FE 4C C2 34 48 _.C..G.N..G.L.4H
02B590: 12 13 3E 01 12 13 13 13 AF 12 C3 D8 47 12 13 D5 ..>.........G...
02B5A0: CD 69 39 CD 73 39 CD FF 37 DA 44 48 7B B7 CA 44 .i9.s9..7.DH{..D
02B5B0: 48 7A B7 C2 44 48 7B D1 12 13 13 13 CD 8E 39 CD Hz..DH{.......9.
02B5C0: 73 39 CA D8 47 D5 CD FF 37 DA 3C 48 CD 8E 39 CD s9..G...7.<H..9.
02B5D0: 73 39 C2 3C 48 7B D1 12 1B 1B 1B 1A 2A EF 4E CD s9.<H{......*.N.
02B5E0: BB 36 11 E8 03 CD C0 36 DA 4C 48 22 EF 4E 11 10 .6.....6.LH".N..
02B5F0: 00 2A 1A 4F 19 22 1A 4F 11 10 00 2A 12 4F 19 22 .*.O.".O...*.O."
02B600: 22 3E 51 21 FF FF CD 5B 26 3A 4A 51 B7 CA 86 4B ">Q!...[&:JQ...K
02B610: 21 5C 51 11 E5 52 7E FE 35 CA 22 4B 12 13 23 C3 !\Q..R~.5."K..#.
02B620: 16 4B D5 E5 23 4E 23 46 21 11 4E 34 CD 72 2A 22 .K..#N#F!.N4.r*"
02B630: 45 51 EB E1 36 2F 23 CD E4 36 36 35 D1 EB 36 29 EQ..6/#..665..6)
02B640: 23 EB 2A 45 51 EB CD E4 36 36 0F 78 B7 CA 52 4B #.*EQ...66.x..RK
02B650: 36 07 23 36 35 21 17 53 36 30 23 EB 2A 45 51 EB 6.#65!.S60#.*EQ.
02B660: CD E4 36 36 35 CD DC 1C CA 74 4B CD 78 27 C2 80 ..665....tK.x'..
02B670: 4B DA BD 4C CD 47 2B CA BD 4C DA BD 4C C3 65 4B K..L.G+..L..L.eK
02B680: 21 5C 51 CD 20 0B CD 45 3B 3A 7A 44 B7 CA 9F 4B !\Q. ..E;:zD...K
02B690: CD 1B 36 CD 30 3B C3 9F 4B CD 1B 36 CD 30 3B AF ..6.0;..K..6.0;.
02B6A0: 32 32 51 3A 34 51 B7 C2 EE 4B CD 1B 36 CD 8C 4D 22Q:4Q...K..6..M
02B6B0: 3E 63 CD 70 3B 2A 3E 51 23 22 3E 51 CD 35 36 CD >c.p;*>Q#">Q.56.
02B6C0: 72 36 21 41 97 CD 2B 36 CD 8C 4D 3A 4E 44 B7 CA r6!A..+6..M:ND..
02B6D0: EE 4B CD 3A 36 3E 2F CD E8 35 3A 4F 44 CD 3A 36 .K.:6>/..5:OD.:6
02B6E0: 3E 2F CD E8 35 3A 50 44 CD 3A 36 CD 1B 36 CD 8C >/..5:PD.:6..6..
02B6F0: 4D 3A 4E 51 B7 CA FE 4B 21 6A 54 CD 20 0B CD 1B M:NQ...K!jT. ...
02B700: 36 CD 8C 4D 21 73 55 CD 20 0B CD 8C 4D 3A 4A 51 6..M!sU. ...M:JQ
02B710: B7 CA 2B 4C CD 8C 4D 3E 2A CD E8 35 CD 7E 36 21 ..+L..M>*..5.~6!
02B720: 04 59 CD 20 0B 21 17 53 CD 20 0B CD DC 1C CA 63 .Y. .!.S. .....c
02B730: 4C 3A 32 51 B7 C2 99 4B CD 4D 3B 4F 3A 3C 51 B9 L:2Q...K.M;O:<Q.
02B740: DA 99 4B CD 78 27 CA 63 4C DA BD 4C 3A 51 51 B7 ..K.x'.cL..L:QQ.
02B750: CC 8C 4D 21 92 5A CD 20 0B 3A 37 51 B7 CA 63 4C ..M!.Z. .:7Q..cL
02B760: CD 8C 4D CD 47 2B CA BD 4C DA BD 4C CD DC 1C CA ..M.G+..L..L....
02B770: 63 4C CD 78 27 CA 63 4C 3A 4A 51 B7 CA 2B 4C 21 cL.x'.cL:JQ..+L!
02B780: E5 52 CD 20 0B B7 CA 2B 4C CD 13 4D 3A 32 51 B7 .R. ...+L..M:2Q.
02B790: C2 2B 4C CD 4D 3B 4F 3A 3C 51 D6 04 B9 DA 99 4B .+L.M;O:<Q.....K
02B7A0: CD 1B 36 CD 8C 4D 3E 2A CD E8 35 CD 7E 36 21 04 ..6..M>*..5.~6!.
02B7B0: 59 CD 20 0B 21 17 53 CD 20 0B C3 2B 4C CD 13 4D Y. .!.S. ..+L..M
02B7C0: 3A 59 51 B7 CA F8 4C 3A 24 52 FE 35 CA F8 4C CD :YQ...L:$R.5..L.
02B7D0: 8C 4D 3E 60 CD 70 3B CD 8C 4D 21 24 52 CD 20 0B .M>`.p;..M!$R. .
02B7E0: 21 11 4E CD 15 2A C2 EC 4C CD 79 2A 21 11 4E 35 !.N..*..L.y*!.N5
02B7F0: 7E FE 41 D2 E3 4C 36 41 CD 1B 36 3A 43 51 CD 6C ~.A..L6A..6:CQ.l
02B800: 12 4F C3 25 47 2A 1A 4F 36 0D CD E3 1C EB 21 C6 .O.%G*.O6.....!.
02B810: 99 01 01 02 CD 7E 38 21 00 00 CD 2E 2C CD FF 2E .....~8!....,...
02B820: CD D4 26 CD B5 2D CD D8 2C C3 2C 4E 3E 1C CD 70 ..&..-..,.,N>..p
02B830: 3B C3 F6 4D 3E 1D CD 70 3B C3 F6 4D 3E 1F CD 70 ;..M>..p;..M>..p
02B840: 3B C3 F6 4D 3E 1E CD 70 3B C3 F6 4D 3E 79 CD 70 ;..M>..p;..M>y.p
02B850: 3B C3 F6 4D AF 32 0A 4F CD 73 39 C2 69 48 3E 5F ;..M.2.O.s9.iH>_
02B860: CD 70 3B CD 99 39 CA 2C 4E 3E 01 CD AD 27 CD DE .p;..9.,N>...'..
02B870: 4B 3E 41 CD F0 2B D2 87 48 21 A3 4E CD 28 36 3E K>A..+..H!£N.(6>
02B880: FF 32 F1 4E C3 8D 48 CD 3C 27 32 F1 4E 11 E6 4E .2.N..H.<'2.N..N
02B890: CD 08 4D 3E 81 CD F0 2B CD 3C 27 32 10 4F 3A 57 ..M>...+.<'2.O:W
02B8A0: 44 32 FA 4E AF 32 57 44 3A 54 01 3D 32 0B 4F 3A D2.N.2WD:T.=2.O:
02B8B0: 54 01 FE 40 D2 C7 48 3A 55 01 0F 3D 32 0F 4F 3A T..@..H:U..=2.O:
02B8C0: 0B 4F 87 3D 32 0B 4F 21 28 4F 3A 0B 4F 77 23 11 .O.=2.O!(O:.Ow#.
02B8D0: 7E 97 CD E4 36 21 2C 4F 36 0D 23 36 0A 23 22 F2 ~...6!,O6.#6.#".
02B8E0: 4E 22 F4 4E 22 F6 4E 22 FD 4E 23 22 F8 4E AF 32 N".N".N".N#".N.2
02B8F0: 01 4F 2A F2 4E EB 21 00 60 CD D8 36 44 4D 2A F2 .O*.N.!.`..6DM*.
02B900: 4E 3E 1A CD FA 36 CD 12 4D CD AC 06 21 00 00 22 N>...6..M...!.."
02B910: 16 4F 21 00 00 22 18 4F 2A F6 4E 22 FB 4E 01 00 .O!..".O*.N".N..
02B920: 01 2A FB 4E CD F5 4B DA 6B 49 C5 4F 7E FE 0D C2 .*.N..K.kI.O~...
02B930: 3A 49 23 7E FE 0A C2 3A 49 23 79 C1 22 FB 4E 26 :I#~...:I#y.".N&
02B940: 00 6F 19 36 00 21 7E 97 3A 0B 4F CD BB 36 36 00 .o.6.!~.:.O..66.
02B950: 21 16 4F C5 CD 72 06 C1 04 3A 0F 4F FE 0C D2 62 !.O..r...:.O...b
02B960: 49 04 3A 55 01 3D 3D B8 D2 21 49 CD B5 06 21 1C I.:U.==..!I...!.
02B970: 4F 22 16 4F 2A FD 4E CD F5 4B 22 FF 4E 3A 01 4F O".O*.N..K".N:.O
02B980: 47 04 0E 00 11 EE 4E 21 16 4F CD 72 06 06 00 3E G.....N!.O.r...>
02B990: 08 CD 1D 02 47 E6 C0 CA 1A 4A FE 80 C2 AE 49 21 ....G....J....I!
02B9A0: 8D 4E CD 28 36 CD 42 38 C2 A0 4B C3 09 49 FE C0 .N.(6.B8..K..I..
02B9B0: CA E3 49 CD 4F 4C CD 6A 4C 2A FD 4E EB 2A F8 4E ..I.OL.jL*.N.*.N
02B9C0: CD D8 36 44 4D 2A F8 4E 2B 54 5D 13 13 CD 90 38 ..6DM*.N+T]....8
02B9D0: EB 23 22 F8 4E 2A FD 4E 36 0D 23 36 0A CD 76 4D .#".N*.N6.#6..vM
02B9E0: C3 09 49 2A FF 4E 23 23 EB 2A F8 4E CD D8 36 44 ..I*.N##.*.N..6D
02B9F0: 4D 2A FD 4E EB 2A FF 4E 23 23 CD 7E 38 EB 09 22 M*.N.*.N##.~8.."
02BA00: 3B C3 9D 4D 3A 33 51 B7 C2 A5 4D 3E 34 CD 70 3B ;..M:3Q...M>4.p;
02BA10: C3 89 48 3A 4A 51 B7 C8 3A 49 53 FE 35 CA 31 4D ..H:JQ..:IS.5.1M
02BA20: CD 8C 4D 3E 49 CD 70 3B CD 8C 4D 21 49 53 CD 20 ..M>I.p;..M!IS.
02BA30: 0B 21 5C 51 CD 20 0B 3A 52 51 B7 CA 44 4D 3E FF .!\Q. .:RQ..DM>.
02BA40: 32 32 51 C9 CD 1B 36 C9 3A 33 51 B7 C2 67 4D CD 22Q...6.:3Q..gM.
02BA50: 99 39 CD 63 39 FE 1B C0 3A 73 44 CD 40 27 CD 45 .9.c9...:sD.@'.E
02BA60: 25 CD 61 27 C3 9D 4D 3A 73 44 CD CA 39 CD 63 39 %.a'..M:sD..9.c9
02BA70: E6 7F 77 CD 69 39 C2 70 4D CD 92 39 CD 63 39 C9 ..w.i9.pM..9.c9.
02BA80: 3A 33 51 B7 C0 3A 73 44 CD 12 3A C9 CD 1B 36 3A :3Q..:sD..:...6:
02BA90: 3D 51 4F 79 B7 C8 CD 7E 36 0D C3 93 4D 3E 01 21 =QOy...~6...M>.!
02BAA0: 00 45 C3 C7 3B 3E FF 32 6F 44 C3 9D 4D 54 54 54 .E..;>.2oD..MTTT
02BAB0: 40 40 C8 84 82 A6 8A 40 92 92 40 40 50 86 52 40 @@.....@..@@P.R@
02BAC0: 62 72 70 62 40 40 A6 86 88 A0 40 40 40 40 AC CA brpb@@....@@@@..
02BAD0: E4 40 64 5C 2C 00 00 00 00 00 00 00 00 00 00 00 .@d\,...........
02BAE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02BAF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02BB00: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02BB10: 00 41 3A 3A 3A 3A 3A 3A 3A 3A 41 00 46 4F 52 4D .A::::::::A.FORM
02BB20: 00 50 4C 41 49 4E 00 50 52 49 4E 54 00 54 4F 00 .PLAIN.PRINT.TO.
02BB30: 32 4E CD 8E 39 2A DF 5F EB CD F2 14 DA CE 00 72 2N..9*._.......r
02BB40: 59 00 DB 5F EB 3A 79 44 B7 C2 6B 4E 36 CE 00 78 Y.._.:yD..kN6..x
02BB50: 59 00 78 B7 C2 66 4E 79 B7 C2 61 4E 36 CE 00 7E Y.x..fNy..aN6..~
02BB60: 59 00 00 C3 6F 4E 70 34 C3 6F 4E 36 2E CE 00 84 Y...oNp4.oN6....
02BB70: 59 00 23 36 35 22 DF 5F CD 92 36 CA 81 CE 00 8A Y.#65"._..6.....
02BB80: 59 00 79 44 B7 C2 F2 4E 3A DB 5F B7 C2 CE 00 90 Y.yD...N:._.....
02BB90: 59 00 22 E6 5F 2A E6 5F 7E FE 0D CA F2 CE 00 96 Y."._*._~.......
02BBA0: 59 00 36 29 23 CD E4 36 36 32 23 EB 01 CE 00 9C Y.6)#..662#.....
02BBB0: 59 00 4E 23 23 23 46 EB FE 4E CA D6 4E CE 00 A2 Y.N###F..N..N...
02BBC0: 59 00 36 00 23 36 00 23 36 03 C3 DB 4E CE 00 A8 Y.6.#6.#6...N...
02BBD0: 59 00 00 C3 DC 4E 70 23 71 23 71 34 23 CE 00 AE Y....Np#q#q4#...
02BBE0: 59 00 22 DF 5F 2A E6 5F 11 10 00 19 22 CE 00 B4 Y."._*._...."...
02BBF0: 59 00 2A D7 5F CD 5B 26 DA 00 45 CD 99 CE 00 BA Y.*._.[&..E.....
02BC00: F8 4E 2A FD 4E 7E FE 1A C2 09 49 36 0D 23 36 0A .N*.N~....I6.#6.
02BC10: 23 36 1A 23 22 F8 4E C3 09 49 78 E6 04 CA 32 4B #6.#".N..Ix...2K
02BC20: 78 E6 02 CA 92 4A CD 4F 4C CD 6A 4C 2A F4 4E EB x....J.OL.jL*.N.
02BC30: 2A FD 4E CD C0 36 D2 6B 49 CD C8 4B 22 FD 4E 21 *.N..6.kI..K".N!
02BC40: 01 4F 35 3A 0F 4F FE 0C D2 4C 4A 35 7E B7 F2 6B .O5:.O...LJ5~..k
02BC50: 49 AF 32 01 4F 2A FD 4E 22 FB 4E 2A F4 4E EB 2A I.2.O*.N".N*.N.*
02BC60: FB 4E CD C0 36 D2 89 4A CD C8 4B 22 FB 4E 3A 01 .N..6..J..K".N:.
02BC70: 4F 3C 32 01 4F 47 3A 0F 4F FE 0C D2 83 4A 04 78 O<2.OG:.O....J.x
02BC80: 32 01 4F 78 FE 0A DA 5B 4A 2A FB 4E 22 F6 4E C3 2.Ox...[J*.N".N.
02BC90: 09 49 78 E6 08 C2 F2 4A CD 4F 4C CD 6A 4C 2A FD .Ix....J.OL.jL*.
02BCA0: 4E CD F5 4B 7E FE 1A C2 B4 4A 36 0D 23 36 0A 23 N..K~....J6.#6.#
02BCB0: 36 1A 2B 2B 23 23 22 FD 4E 7E FE 1A C2 CE 4A 36 6.++##".N~....J6
02BCC0: 0D 23 36 0A 23 36 1A 23 22 F8 4E CD 76 4D 21 01 .#6.#6.#".N.vM!.
02BCD0: 4F 34 3A 0F 4F FE 0C D2 DB 4A 34 3A 55 01 3D 3D O4:.O....J4:U.==
02BCE0: 3D BE D2 6B 49 AF 32 01 4F 2A FD 4E 22 F6 4E C3 =..kI.2.O*.N".N.
02BCF0: 09 49 CD 6A 4C 3A 0F 4F FE 0C 3E 0C D2 01 4B 3E .I.jL:.O..>...K>
02BD00: 06 32 11 4F 2A F6 4E CD F5 4B 7E FE 1A CA 25 4B .2.O*.N..K~...%K
02BD10: 23 23 7E FE 1A CA 25 4B 22 F6 4E 3A 11 4F 3D 32 ##~...%K".N:.O=2
02BD20: 11 4F C2 04 4B 2A F6 4E 22 FD 4E AF 32 01 4F C3 .O..K*.N".N.2.O.
02BD30: 09 49 CD 6A 4C 3A F1 4E B7 FA 48 4B 2A F8 4E 22 .I.jL:.N..HK*.N"
02BD40: F6 4E CD 12 4D D2 35 4B 2A F2 4E EB 2A F8 4E CD .N..M.5K*.N.*.N.
02BD50: D8 36 44 4D 3A 10 4F CD 40 27 CD C4 2E CD D4 26 .6DM:.O.@'.....&
02BD60: CD 45 25 3A F1 4E B7 FA 8B 4B CD 40 27 CD 45 25 .E%:.N...K.@'.E%
02BD70: 11 E9 4E CD 08 4D CD 03 27 11 07 4F CD 08 4D CD ..N..M..'..O..M.
02BD80: A1 2C 11 E9 4E CD 08 4D CD B2 2C 11 E6 4E CD 08 .,..N..M..,..N..
02BD90: 4D CD A1 2C 11 07 4F CD 08 4D CD B2 2C C3 B9 4B M..,..O..M..,..K
02BDA0: 3A F1 4E B7 FA AD 4B CD 40 27 CD 45 25 3A 10 4F :.N...K.@'.E%:.O
02BDB0: CD 40 27 CD 45 25 CD 03 27 CD 61 27 3A FA 4E 32 .@'.E%..'.a':.N2
02BDC0: 57 44 CD AC 06 C3 2C 4E 2B 7E FE 0A C2 D0 4B 2B WD....,N+~....K+
02BDD0: 2B 7E FE 0D C2 D0 4B 23 7E FE 0A C0 23 C9 CD 68 +~....K#~...#..h
02BDE0: 27 0E 0C 3E 2E CD 13 37 23 22 05 4F 11 07 4F 0E '..>...7#".O..O.
02BDF0: 03 CD 78 38 C9 C5 E5 3A 0B 4F 4F 06 00 3E 20 21 ..x8...:.OO..> !
02BE00: 59 00 45 CD 78 27 CA 68 4F DA 00 45 2A CE 00 C0 Y.E.x'.hO..E*...
02BE10: 59 00 5F 7C B5 C2 2B 4F 21 0F 00 22 D5 CE 00 C6 Y._|..+O!.."....
02BE20: 59 00 3B CD 8E 3A FE 1B CA 00 45 CD 1B CE 00 CC Y.;..:....E.....
02BE30: 59 00 C2 44 4F CD 99 2C CD 35 36 CD 7E CE 00 D2 Y..DO..,.56.~...
02BE40: 59 00 E8 35 3A DB 5F B7 C2 62 4F 3A 79 CE 00 D8 Y..5:._..bO:y...
02BE50: 59 00 CD 84 29 44 4D CD DC 1C 0B 23 CD CE 00 DE Y...)DM....#....
02BE60: 59 00 21 7E 97 CD 20 0B CD 47 2B CA 00 CE 00 E4 Y.!~.. ..G+.....
02BE70: 59 00 00 45 3E 03 21 0C 45 C3 C7 3B CD CE 00 EA Y..E>.!.E..;....
02BE80: 59 00 09 45 C3 C7 3B CD 8E 39 3E 08 21 CE 00 F0 Y..E..;..9>.!...
02BE90: 59 00 CD 73 39 11 C1 5E CD B1 37 CA 5C CE 00 F6 Y..s9..^..7.\...
02BEA0: 59 00 B1 37 CA EF 4F CD 63 39 3E 01 CD CE 00 FC Y..7..O.c9>.....
02BEB0: 59 00 CD 73 39 C2 14 5B 3E 42 CD F0 2B CE 00 02 Y..s9..[>B..+...
02BEC0: 5A 00 44 FE 10 D2 E7 4F 21 5E 44 CD BB CE 00 08 Z.D....O!^D.....
02BED0: 5A 00 32 5C 44 21 5D 44 34 CD 36 2F CD CE 00 0E Z.2\D!]D4.6/....
02BEE0: 5A 00 3E 29 C3 E9 4F 3E 2A CD 70 3B C3 CE 00 14 Z.>)..O>*.p;....
02BEF0: 5A 00 B7 CA 54 50 CD 8E 39 CD 1D 2E DA CE 00 1A Z...TP..9.......
02BF00: 5A 00 AF 32 DA 5F 3A 5C 44 CD CA 39 CD CE 00 20 Z..2._:\D..9...
02BF10: 5A 00 2C 50 11 0F 5E CD B1 37 C2 33 50 CE 00 26 Z.,P..^..7.3P..&
02BF20: 5A 00 39 11 AA 5E CD B1 37 C2 06 50 21 CE 00 2C Z.9..^..7..P!..,
02BF30: 5A 00 50 CD 63 39 FE 84 CA 44 50 11 B5 CE 00 32 Z.P.c9...DP....2
02BF40: 5A 00 06 50 21 DA 5F 35 F2 06 50 C3 00 CE 00 38 Z..P!._5..P....8
02BF50: 5A 00 00 45 3E 29 CD 70 3B C3 00 45 3E CE 00 3E Z..E>).p;..E>..>
02BF60: 5A 00 00 45 CD 3C 29 3E 02 21 09 45 C3 CE 00 44 Z..E.<)>.!.E...D
02BF70: 5A 00 74 44 AF 32 DC 5F C3 00 45 AF 32 CE 00 4A Z.tD.2._..E.2..J
02BF80: 5A 00 AF 32 DA 5F 3A 5C 44 B7 CA 00 45 CE 00 50 Z..2._:\D...E..P
02BF90: 5A 00 45 CD 68 3B F5 47 3A 7C 44 B0 CA CE 00 56 Z.E.h;.G:|D....V
02BFA0: 5A 00 6C 3B CD 30 3B F1 CD 6C 3B C3 00 CE 00 5C Z.l;.0;..l;....\
02BFB0: 5A 00 00 45 CD 3C 29 CD 9F 24 CA 0C 51 CE 00 62 Z..E.<)..$..Q..b
02BFC0: 5A 00 36 CA CB 50 06 00 C3 CE 50 CD 69 CE 00 68 Z.6..P....P.i..h
02BFD0: 5A 00 CD 20 37 4F CD 63 39 79 CD B1 20 CE 00 6E Z.. 7O.c9y.. ..n
02BFE0: 5A 00 7C B5 CA FD 50 3A 5B 44 B7 CA 00 CE 00 74 Z.|...P:[D.....t
02BFF0: 5A 00 00 45 CD 63 39 CD C9 21 C3 DD 50 CE 00 7A Z..E.c9..!..P..z
02C000: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
02C010: 25 00 01 00 02 09 4E E5 25 00 41 02 00 00 00 02 %.....N.%.A.....
02C020: 25 00 46 02 00 00 00 02 25 00 42 02 00 00 00 02 %.F.....%.B.....
02C030: 25 00 47 02 00 00 00 02 25 00 43 02 00 00 00 02 %.G.....%.C.....
02C040: 25 00 48 02 00 00 00 02 25 00 44 02 00 00 00 02 %.H.....%.D.....
02C050: 25 00 49 02 00 00 00 02 25 00 45 02 00 00 00 02 %.I.....%.E.....
02C060: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C070: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C080: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C090: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C0A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C0B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C0C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C0D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C0E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C0F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C100: 7E 97 CD FA 36 36 00 E1 3A 0A 4F B7 CA 15 4C 7E ~...66..:.O...L~
02C110: FE 1A CA 46 4C 11 7E 97 0E 00 22 02 4F D5 EB 2A ...FL.~...".O..*
02C120: F8 4E 2B CD C0 36 D4 12 4D D1 2A 02 4F 7E FE 1A .N+..6..M.*.O~..
02C130: CA 49 4C FE 0D CA 49 4C FE 09 C2 3F 4C 3E 20 12 .IL...IL...?L> .
02C140: 23 13 0C C3 1A 4C C1 37 C9 11 7E 97 79 C1 C9 C5 #....L.7..~.y...
02C150: D5 21 00 00 22 16 4F 11 7E 97 3A 01 4F 47 04 0E .!..".O.~.:.OG..
02C160: 00 21 16 4F CD 72 06 D1 C1 C9 C5 D5 2A FD 4E 06 .!.O.r......*.N.
02C170: 00 7E FE 0D CA 81 4C FE 1A CA 81 4C 04 23 C3 71 .~....L....L.#.q
02C180: 4C 3A 0B 4F 4F 0C 21 7E 97 CD BB 36 0D CA 9B 4C L:.OO.!~...6...L
02C190: 2B 7E B7 CA 8C 4C FE 20 CA 8C 4C 79 32 0E 4F 90 +~...L. ..Ly2.O.
02C1A0: 32 04 4F CA F4 4C F5 2A FF 4E EB 2A F8 4E CD D8 2.O..L.*.N.*.N..
02C1B0: 36 22 0C 4F F1 D2 DB 4C 79 2A FD 4E CD BB 36 EB 6".O...Ly*.N..6.
02C1C0: 2A 0C 4F 44 4D 2A FF 4E CD 7E 38 3A 04 4F 5F 16 *.ODM*.N.~8:.O_.
02C1D0: FF 2A F8 4E 19 22 F8 4E C3 F4 4C 2A F8 4E 2B CD .*.N.".N..L*.N+.
02C1E0: BB 36 EB 2A 0C 4F 44 4D 2A F8 4E 2B CD 90 38 EB .6.*.ODM*.N+..8.
02C1F0: 23 22 F8 4E 2A FD 4E 11 7E 97 EB 3A 0E 4F 4F CD #".N*.N.~..:.OO.
02C200: 78 38 CD 76 4D D1 C1 C9 2A 05 4F EB 0E 03 CD 78 x8.vM...*.O....x
02C210: 38 C9 C5 D5 3A F1 4E B7 FA 5E 4D 2A F8 4E 11 00 8...:.N..^M*.N..
02C220: 5E CD C0 36 D2 2D 4D CD 80 4D C3 1B 4D 54 5D 1B ^..6.-M..M..MT].
02C230: 01 00 02 09 22 F8 4E 3A F1 4E CD 40 27 CD 7A 2C ....".N:.N.@'.z,
02C240: F5 78 B1 CA 5A 4D 1A E6 7F 12 0B 13 FE 1A C2 41 .x..ZM.........A
02C250: 4D EB 22 F8 4E 3E FF 32 0A 4F F1 D1 C1 C9 2A F8 M.".N>.2.O....*.
02C260: 4E 2B 36 0D 23 36 0A 23 36 1A 23 22 F8 4E 3E FF N+6.#6.#6.#".N>.
02C270: 32 0A 4F D1 C1 C9 2A F8 4E 11 9C 5F CD C0 36 D0 2.O...*.N.._..6.
02C280: 2A F2 4E EB 2A F6 4E CD D8 36 11 00 02 CD C0 36 *.N.*.N..6.....6
02C290: D2 E7 4D 2A F2 4E EB 01 00 02 3A 10 4F CD 40 27 ..M*.N....:.O.@'
02C2A0: CD C4 2E 2A F2 4E 54 5D 09 D5 E5 EB 2A F8 4E CD ...*.NT]....*.N.
02C2B0: D8 36 44 4D E1 D1 CD 7E 38 11 00 FE 2A F6 4E 19 .6DM...~8...*.N.
02C2C0: 22 F6 4E 2A F8 4E 19 22 F8 4E 2A FD 4E 19 22 FD ".N*.N.".N*.N.".
02C2D0: 4E 2A 02 4F 19 22 02 4F 2A F2 4E 3E 0A 0E FF CD N*.O.".O*.N>....
02C2E0: 13 37 23 22 F4 4E C9 21 B1 4E CD 28 36 CD 42 38 .7#".N.!.N.(6.B8
02C2F0: CA A0 4B C3 35 4B 3E 65 CD 70 3B CD 8E 3A C3 AA ..K.5K>e.p;..:..
02C300: 36 D5 CD DF 36 22 7F 4A E1 22 6F 4A 21 59 4A CD 6...6".J."oJ!YJ.
02C310: 20 0B B7 E1 C2 2C 49 EB 2A 7F 4A EB CD E4 36 EB ....,I.*.J...6.
02C320: 2A 6F 4A EB CD E4 36 06 01 C3 37 49 3A 53 4A B7 *oJ...6...7I:SJ.
02C330: CA 37 49 F1 C3 40 49 F1 B7 CA 40 49 3D C3 F4 48 .7I..@I...@I=..H
02C340: D1 78 C1 B7 C9 3A 61 4A B7 C0 D5 22 8F 4A 3A 53 .x...:aJ...".J:S
02C350: 4A B7 CA 63 49 21 92 4A CD 20 0B C2 63 49 3E FF J..cI!.J. ..cI>.
02C360: 32 61 4A 21 9A 4A CD 20 0B 3E 01 32 53 4A D1 C9 2aJ!.J. .>.2SJ..
02C370: 3E 19 CD 70 3B C3 7E 44 3E 2F CD 70 3B C3 A0 49 >..p;.~D>/.p;..I
02C380: 3E 14 CD 70 3B C3 A0 49 3E 52 CD 70 3B C3 A0 49 >..p;..I>R.p;..I
02C390: 3E 48 CD 70 3B C3 A0 49 3E 28 CD 70 3B C3 A0 49 >H.p;..I>(.p;..I
02C3A0: 3E 01 32 6F 44 C3 B0 49 3E FF 32 6F 44 C3 B0 49 >.2oD..I>.2oD..I
02C3B0: 3E 01 21 00 45 C3 C7 3B 54 54 54 40 40 C8 84 82 >.!.E..;TTT@@...
02C3C0: A6 8A 40 92 92 40 40 50 86 52 40 62 72 70 64 40 ..@..@@P.R@brpd@
02C3D0: 40 A4 A6 A0 58 92 9C 86 40 AC CA E4 40 64 5C 2C @...X...@...@d\,
02C3E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C3F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C400: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C410: 00 00 00 00 00 00 00 00 00 00 00 00 41 3A 3A 3A ............A:::
02C420: 3A 3A 3A 3A 3A 41 00 4F 4E 00 41 53 43 45 4E 44 :::::A.ON.ASCEND
02C430: 49 4E 47 00 44 45 53 43 45 4E 44 49 4E 47 00 54 ING.DESCENDING.T
02C440: 4F 00 00 3A 0F 4F FE 0C D2 4C 4A 35 7E B7 F2 6B O..:.O...LJ5~..k
02C450: 49 AF 32 01 4F 2A FD 4E 22 29 00 00 29 00 00 0B I.2.O*.N")..)...
02C460: 35 4E 43 4F 50 59 52 49 47 48 54 20 20 4E 3A 01 5NCOPYRIGHT N:.
02C470: 4F 3C 28 43 29 20 31 39 38 32 20 20 20 4A 04 78 O<(C) 1982 J.x
02C480: 32 01 52 53 50 2C 20 49 4E 43 20 20 20 F6 4E C3 2.RSP, INC .N.
02C490: 09 49 29 02 00 29 82 4A 0B 35 29 82 4A 2F 02 00 .I)..).J.5).J/..
02C4A0: 35 CD 3A 3A 3A 41 00 4F 4E 00 41 53 43 45 4E 44 5.:::A.ON.ASCEND
02C4B0: 49 4E 47 00 44 45 53 43 45 4E 44 49 4E 47 00 54 ING.DESCENDING.T
02C4C0: 4F 00 00 3A 0F 4F FE 0C D2 4C 4A 35 7E B7 F2 6B O..:.O...LJ5~..k
02C4D0: 49 AF 32 01 4F 2A FD 4E 22 29 00 00 29 00 00 0B I.2.O*.N")..)...
02C4E0: 35 4E 43 4F 50 59 52 49 47 48 54 20 20 4E 3A 01 5NCOPYRIGHT N:.
02C4F0: 4F 3C 28 43 29 20 31 39 38 32 20 20 20 4A 04 78 O<(C) 1982 J.x
02C500: 45 E5 26 00 6F 01 64 00 CD 19 4E 01 0A 00 CD 19 E.&.o.d...N.....
02C510: 4E 01 01 00 CD 19 4E E1 C9 D5 16 2F 14 7D 91 6F N.....N..../.}.o
02C520: 7C 98 67 D2 1C 4E 09 7A D1 12 13 C9 3E 01 21 00 |.g..N.z....>.!.
02C530: 45 C3 C7 3B 3E FF 32 6F 44 C3 2C 4E 04 02 01 13 E..;>.2oD.,N....
02C540: 05 E0 E8 03 E9 E0 F1 F9 F8 F1 E0 13 03 04 10 E0 ................
02C550: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C560: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 43 4F ..............CO
02C570: 4D 4D 41 4E 44 00 4E 4F 4D 20 20 20 20 20 20 20 MMAND.NOM
02C580: 54 59 50 20 44 49 4D 20 20 44 45 43 00 41 42 41 TYP DIM DEC.ABA
02C590: 4E 44 4F 4E 20 4D 4F 44 49 46 2E 20 20 28 59 2F NDON MODIF. (Y/
02C5A0: 4E 29 00 0D 0A 20 20 43 52 45 41 54 49 4F 4E 20 N)... CREATION
02C5B0: 00 42 55 46 46 45 52 20 50 4C 45 49 4E 2E 20 59 .BUFFER PLEIN. Y
02C5C0: 20 3D 20 53 41 55 56 45 47 41 52 44 45 2C 20 4E = SAUVEGARDE, N
02C5D0: 20 3D 20 41 42 41 4E 44 4F 4E 20 00 53 54 52 55 = ABANDON .STRU
02C5E0: 43 54 55 52 45 00 24 24 24 42 41 4B 00 00 00 CD CTURE.$$$BAK....
02C5F0: 78 36 C3 1B 4E CD 1B 36 1E 04 C3 1B 4E C5 D5 0E x6..N..6....N...
02C600: 11 C3 08 4F C5 D5 0E 12 11 5C 00 CD 05 00 FE 16 ...O.....\......
02C610: C2 17 4F 37 D1 C1 C9 E6 03 06 00 0F 43 48 41 4D ..O7........CHAM
02C620: 50 20 30 31 20 20 00 43 18 1D 51 00 43 48 41 4D P 01 .C..Q.CHAM
02C630: 50 20 30 32 20 20 00 43 18 36 51 00 43 48 41 4D P 02 .C.6Q.CHAM
02C640: 50 20 30 33 20 20 00 43 18 4F 51 00 43 48 41 4D P 03 .C.OQ.CHAM
02C650: 50 20 30 34 20 20 00 43 18 68 51 00 43 48 41 4D P 04 .C.hQ.CHAM
02C660: 50 20 30 35 20 20 00 43 18 81 51 00 43 48 41 4D P 05 .C..Q.CHAM
02C670: 50 20 30 36 20 20 00 43 18 9A 51 00 43 48 41 4D P 06 .C..Q.CHAM
02C680: 50 20 30 37 20 20 00 43 18 B3 51 00 43 48 41 4D P 07 .C..Q.CHAM
02C690: 50 20 30 38 20 20 00 43 18 CC 51 00 43 48 41 4D P 08 .C..Q.CHAM
02C6A0: 50 20 30 39 20 20 00 43 18 E5 51 00 43 48 41 4D P 09 .C..Q.CHAM
02C6B0: 50 20 31 30 20 20 00 43 18 FE 51 00 43 48 41 4D P 10 .C..Q.CHAM
02C6C0: 50 20 31 31 20 20 00 43 18 17 52 00 43 48 41 4D P 11 .C..R.CHAM
02C6D0: 50 20 31 32 20 20 00 43 18 30 52 00 43 48 41 4D P 12 .C.0R.CHAM
02C6E0: 50 20 31 33 20 20 00 43 18 49 52 00 43 48 41 4D P 13 .C.IR.CHAM
02C6F0: 50 20 31 34 20 20 00 43 18 62 52 00 43 48 41 4D P 14 .C.bR.CHAM
02C700: CD 3C 27 B7 CA 77 45 3E FF 32 DB 47 CD 1B 36 21 .<'..wE>.2.G..6!
02C710: 12 49 CD 28 36 CD 3C 27 CD C4 25 CD 7F 2E FE 01 .I.(6.<'..%.....
02C720: CA 2B 45 3E 70 CD 70 3B C3 30 45 3E 71 CD 70 3B .+E>p.p;.0E>q.p;
02C730: CD 1B 36 CD A4 24 7E B7 CA 77 45 22 60 49 21 27 ..6..$~..wE"`I!'
02C740: 49 CD 28 36 CD 1B 36 CD 7E 36 2A 60 49 7E B7 CA I.(6..6.~6*`I~..
02C750: 77 45 23 22 60 49 CD 40 27 CD C4 25 CD 78 36 CD wE#"`I.@'..%.x6.
02C760: A8 2D 01 6E 00 11 FF 49 CD 7A 2C 21 09 4A CD 2B .-.n...I.z,!.J.+
02C770: 36 CD 1B 36 C3 47 45 CD 61 27 CD 83 2E CD 3C 27 6..6.GE.a'....<'
02C780: B7 CA F4 45 3E FF 32 DB 47 CD 1B 36 21 49 49 CD ...E>.2.G..6!II.
02C790: 28 36 CD 3C 27 CD C4 25 CD 7F 2E FE 01 CA A8 45 (6.<'..%.......E
02C7A0: 3E 70 CD 70 3B C3 AD 45 3E 71 CD 70 3B CD 1B 36 >p.p;..E>q.p;..6
02C7B0: CD A4 24 7E B7 CA F4 45 22 60 49 21 27 49 CD 28 ..$~...E"`I!'I.(
02C7C0: 36 CD 1B 36 CD 7E 36 2A 60 49 7E B7 CA F4 45 23 6..6.~6*`I~...E#
02C7D0: 22 60 49 CD 40 27 CD C4 25 CD 78 36 CD A8 2D 01 "`I.@'..%.x6..-.
02C7E0: 6E 00 11 FF 49 CD 7A 2C 21 09 4A CD 2B 36 CD 1B n...I.z,!.J.+6..
02C7F0: 36 C3 C4 45 CD 83 2E CD 1B 36 3A DB 47 B7 CA 1A 6..E.....6:.G...
02C800: 46 CD 1B 36 CD 1B 36 CD 1B 36 3E 65 CD 70 3B CD F..6..6..6>e.p;.
02C810: 8E 3A FE 1A CA 6C 47 CD 1B 36 21 FC 47 CD 28 36 .:...lG..6!.G.(6
02C820: 3A 4E 44 CD 3A 36 3E 2F CD E8 35 3A 4F 44 CD 3A :ND.:6>/..5:OD.:
02C830: 36 3E 2F CD E8 35 3A 50 44 CD 3A 36 21 12 48 CD 6>/..5:PD.:6!.H.
02C840: 28 36 3A 5A 44 C6 40 CD E8 35 3E 3A CD E8 35 3A (6:ZD.@..5>:..5:
02C850: 4C 44 B7 CA 65 46 21 E6 47 CD 28 36 3A 4C 44 CD LD..eF!.G.(6:LD.
02C860: C4 25 CD 1B 36 21 28 48 CD 28 36 3A 56 44 CD 5B .%..6!(H.(6:VD.[
02C870: 47 CD 78 36 21 35 48 CD 2B 36 3A 51 44 CD 5B 47 G.x6!5H.+6:QD.[G
02C880: 21 42 48 CD 28 36 3A 54 44 CD 5B 47 CD 78 36 21 !BH.(6:TD.[G.x6!
02C890: 4F 48 CD 2B 36 3A 57 44 CD 5B 47 21 69 48 CD 28 OH.+6:WD.[G!iH.(
02C8A0: 36 3A 58 44 CD 5B 47 CD 78 36 21 5C 48 CD 2B 36 6:XD.[G.x6!\H.+6
02C8B0: CD 59 3B CD 5B 47 21 76 48 CD 28 36 3A 59 44 CD .Y;.[G!vH.(6:YD.
02C8C0: 5B 47 CD 78 36 21 83 48 CD 2B 36 3A 5B 44 CD 5B [G.x6!.H.+6:[D.[
02C8D0: 47 21 90 48 CD 28 36 3A 6E 44 CD 5B 47 CD 78 36 G!.H.(6:nD.[G.x6
02C8E0: 21 9D 48 CD 2B 36 3A 7A 44 CD 5B 47 21 AA 48 CD !.H.+6:zD.[G!.H.
02C8F0: 28 36 3A 70 44 CD 5B 47 CD 78 36 21 B7 48 CD 2B (6:pD.[G.x6!.H.+
02C900: 50 20 31 35 20 20 00 43 18 7B 52 00 43 48 41 4D P 15 .C.{R.CHAM
02C910: 50 20 31 36 20 20 00 43 18 94 52 00 43 48 41 4D P 16 .C..R.CHAM
02C920: 50 20 31 37 20 20 00 43 18 AD 52 00 43 48 41 4D P 17 .C..R.CHAM
02C930: 50 20 31 38 20 20 00 43 18 C6 52 00 43 48 41 4D P 18 .C..R.CHAM
02C940: 50 20 31 39 20 20 00 43 18 DF 52 00 43 48 41 4D P 19 .C..R.CHAM
02C950: 50 20 32 30 20 20 00 43 18 F8 52 00 43 48 41 4D P 20 .C..R.CHAM
02C960: 50 20 32 31 20 20 00 43 18 11 53 00 43 48 41 4D P 21 .C..S.CHAM
02C970: 50 20 32 32 20 20 00 43 18 2A 53 00 43 48 41 4D P 22 .C.*S.CHAM
02C980: 50 20 32 33 20 20 00 43 18 43 53 00 43 48 41 4D P 23 .C.CS.CHAM
02C990: 50 20 32 34 20 20 00 43 18 5C 53 00 43 48 41 4D P 24 .C.\S.CHAM
02C9A0: 50 20 32 35 20 20 00 43 18 75 53 00 43 48 41 4D P 25 .C.uS.CHAM
02C9B0: 50 20 32 36 20 20 00 43 18 8E 53 00 43 48 41 4D P 26 .C..S.CHAM
02C9C0: 50 20 32 37 20 20 00 43 18 A7 53 00 43 48 41 4D P 27 .C..S.CHAM
02C9D0: 50 20 32 38 20 20 00 43 18 C0 53 00 43 48 41 4D P 28 .C..S.CHAM
02C9E0: 50 20 32 39 20 20 00 43 18 D9 53 00 43 48 41 4D P 29 .C..S.CHAM
02C9F0: 50 20 33 30 20 20 00 43 18 F2 53 00 43 48 41 4D P 30 .C..S.CHAM
02CA00: 50 20 33 31 20 20 00 43 18 0B 54 00 43 48 41 4D P 31 .C..T.CHAM
02CA10: 50 20 33 32 20 20 00 43 18 24 54 00 0D 84 45 4C P 32 .C.$T...EL
02CA20: 44 20 32 35 20 20 00 43 18 75 53 00 46 49 45 4C D 25 .C.uS.FIEL
02CA30: 44 20 32 36 20 20 00 43 18 8E 53 00 46 49 45 4C D 26 .C..S.FIEL
02CA40: 44 20 32 37 20 20 00 43 18 A7 53 00 46 49 45 4C D 27 .C..S.FIEL
02CA50: 44 20 32 38 20 20 00 43 18 C0 53 00 46 49 45 4C D 28 .C..S.FIEL
02CA60: 44 20 32 39 20 20 00 43 18 D9 53 00 46 49 45 4C D 29 .C..S.FIEL
02CA70: 44 20 33 30 20 20 00 43 18 F2 53 00 46 49 45 4C D 30 .C..S.FIEL
02CA80: 27 C3 5B 54 3E 48 C3 53 54 3E 28 C3 53 54 AF 32 '.[T>H.ST>(.ST.2
02CA90: 5B 56 CD 63 39 11 6E 55 CD B1 37 CA AF 51 3E FF [V.c9.nU..7..Q>.
02CAA0: 32 5B 56 CD 63 39 11 52 55 CD B1 37 C2 48 54 CD 2[V.c9.RU..7.HT.
02CAB0: 8E 39 CD 73 39 CA 48 54 22 71 56 CD D8 1C 22 67 .9.s9.HT"qV..."g
02CAC0: 56 2A 67 56 7E B7 CA E7 51 EB 2A 71 56 3A 5B 56 V*gV~...Q.*qV:[V
02CAD0: B7 CA DD 51 CD 8E 54 CA E7 51 C3 E3 51 CD 8E 54 ...Q..T..Q..Q..T
02CAE0: C2 E7 51 EB CD 79 2A 2A 67 56 11 10 00 19 22 67 ..Q..y**gV...."g
02CAF0: 56 7E FE 0D C2 C1 51 C3 5B 54 CD DD 25 AF 32 5F V~....Q.[T..%.2_
02CB00: 36 3A 71 44 CD 5B 47 21 C4 48 CD 28 36 3A 75 44 6:qD.[G!.H.(6:uD
02CB10: CD 5B 47 CD 78 36 21 D1 48 CD 2B 36 3A 78 44 CD .[G.x6!.H.+6:xD.
02CB20: 5B 47 21 DE 48 CD 28 36 CD 68 3B CD 5B 47 CD 78 [G!.H.(6.h;.[G.x
02CB30: 36 21 EB 48 CD 2B 36 3A 79 44 CD 5B 47 21 F8 48 6!.H.+6:yD.[G!.H
02CB40: CD 28 36 3A 7B 44 CD 5B 47 CD 78 36 21 05 49 CD .(6:{D.[G.x6!.I.
02CB50: 2B 36 3A 7D 44 CD 5B 47 C3 6C 47 B7 CA 65 47 21 +6:}D.[G.lG..eG!
02CB60: E1 47 C3 68 47 21 DC 47 CD 2B 36 C9 CD 61 27 3E .G.hG!.G.+6..a'>
02CB70: 01 21 00 45 C3 C7 3B 54 54 54 40 40 C8 84 82 A6 .!.E..;TTT@@....
02CB80: 8A 40 92 92 40 40 50 86 52 40 62 72 70 62 40 40 .@..@@P.R@brpb@@
02CB90: A6 86 88 A0 40 40 40 40 AC CA E4 40 64 5C 2C 00 ....@@@@...@d\,.
02CBA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02CBB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02CBC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02CBD0: 00 00 00 00 00 00 00 00 00 00 00 00 4F 46 46 20 ............OFF
02CBE0: 00 4F 4E 20 20 00 46 49 43 48 49 45 52 20 41 4C .ON .FICHIER AL
02CBF0: 54 45 52 4E 41 4E 54 20 20 2D 20 00 44 41 54 45 TERNANT - .DATE
02CC00: 20 44 55 20 4A 4F 55 52 20 20 20 20 20 20 20 2D DU JOUR -
02CC10: 20 00 55 4E 49 54 45 20 44 45 20 44 45 46 41 55 .UNITE DE DEFAU
02CC20: 54 20 20 20 20 2D 20 00 41 4C 54 45 52 4E 41 54 T - .ALTERNAT
02CC30: 45 20 2D 20 00 42 45 4C 4C 20 20 20 20 20 20 2D E - .BELL -
02CC40: 20 00 43 41 52 52 59 20 20 20 20 20 2D 20 00 43 .CARRY - .C
02CC50: 4F 4C 4F 4E 20 20 20 20 20 2D 20 00 43 4F 4E 53 OLON - .CONS
02CC60: 4F 4C 45 20 20 20 2D 20 00 43 4F 4E 46 49 52 4D OLE - .CONFIRM
02CC70: 20 20 20 2D 20 00 44 45 42 55 47 20 20 20 20 20 - .DEBUG
02CC80: 2D 20 00 44 45 4C 45 54 45 20 20 20 20 2D 20 00 - .DELETE - .
02CC90: 45 43 48 4F 20 20 20 20 20 20 2D 20 00 45 4A 45 ECHO - .EJE
02CCA0: 43 54 20 20 20 20 20 2D 20 00 45 53 43 41 50 45 CT - .ESCAPE
02CCB0: 20 20 20 20 2D 20 00 45 58 41 43 54 20 20 20 20 - .EXACT
02CCC0: 20 2D 20 00 49 4E 54 45 4E 53 49 54 59 20 2D 20 - .INTENSITY -
02CCD0: 00 4C 49 4E 4B 41 47 45 20 20 20 2D 20 00 50 52 .LINKAGE - .PR
02CCE0: 49 4E 54 20 20 20 20 20 2D 20 00 52 41 57 20 20 INT - .RAW
02CCF0: 20 20 20 20 20 2D 20 00 53 54 45 50 20 20 20 20 - .STEP
02CD00: CD 3C 29 3E 0B 32 49 4A 32 98 4A 3E 09 32 4A 4A .<)>.2IJ2.J>.2JJ
02CD10: 21 00 00 22 46 4A AF 32 43 4A CD 73 39 CA 99 45 !.."FJ.2CJ.s9..E
02CD20: 11 27 4A CD B1 37 C2 47 45 CD 8E 39 CD 73 39 E5 .'J..7.GE..9.s9.
02CD30: CD F1 2A CA 80 49 E3 CD 92 28 C2 88 49 22 46 4A ..*..I...(..I"FJ
02CD40: E1 CD 8E 39 C3 1A 45 11 2A 4A E5 CD B1 37 CA 55 ...9..E.*J...7.U
02CD50: 45 E1 C3 5C 45 CD 8E 39 E1 C3 1A 45 11 34 4A E5 E..\E..9...E.4J.
02CD60: CD B1 37 CA 6A 45 E1 C3 7E 45 CD 8E 39 E1 3E 0A ..7.jE..~E..9.>.
02CD70: 32 49 4A 32 98 4A 3E 08 32 4A 4A C3 1A 45 11 3F 2IJ2.J>.2JJ..E.?
02CD80: 4A CD B1 37 C2 90 49 CD 8E 39 AF CD AD 27 DA 98 J..7..I..9...'..
02CD90: 49 3E FF 32 43 4A C3 1A 45 2A 46 4A 7C B5 CA A8 I>.2CJ..E*FJ|...
02CDA0: 49 3A 43 4A B7 CA 90 49 2A 06 00 2B 11 C7 9B EB I:CJ...I*..+....
02CDB0: CD D8 36 EB CD 84 29 01 00 00 EB 19 03 7C B7 FA ..6...)......|..
02CDC0: BB 45 B5 CA C7 45 0B 78 B7 C2 D0 45 B1 F2 D2 45 .E...E.x...E...E
02CDD0: 3E 80 32 51 4A 2A 46 4A 11 0B 00 19 7E FE 4C CA >.2QJ*FJ....~.L.
02CDE0: 78 49 32 6D 4A 32 7D 4A 32 8D 4A FE 43 C2 03 46 xI2mJ2}J2.J.C..F
02CDF0: 3A 49 4A C6 08 32 49 4A 32 98 4A 3A 4A 4A C6 08 :IJ..2IJ2.J:JJ..
02CE00: 32 4A 4A 23 7E 32 6E 4A 32 7E 4A 32 8E 4A 23 CD 2JJ#~2nJ2~J2.J#.
02CE10: E9 36 7E 32 71 4A 32 81 4A 32 91 4A CD DC 1C EB .6~2qJ2.J2.J....
02CE20: CD D8 36 22 56 4A 3A 6E 4A 47 3A 71 4A 4F 3A 6D ..6"VJ:nJG:qJO:m
02CE30: 4A FE 4E CA 39 46 78 41 4F 21 1C 4A CD 72 2A 22 J.N.9FxAO!.J.r*"
02CE40: 93 4A 22 9E 4A CD D8 2C CD EF 26 CD 3C 27 32 58 .J".J..,..&.<'2X
02CE50: 4A 3E C0 CD F0 2B CD 3C 27 32 42 4A AF CD FF 2E J>...+.<'2BJ....
02CE60: 21 00 00 22 4E 4A 3E FF 32 61 4A 32 52 4A CD 2A !.."NJ>.2aJ2RJ.*
02CE70: 2C 7C B5 C2 BF 46 CD D4 26 AF 32 58 4A C3 8A 48 ,|...F..&.2XJ..H
02CE80: AF 32 52 4A 3A 42 4A CD 40 27 CD D4 26 CD EF 26 .2RJ:BJ.@'..&..&
02CE90: 2A 4E 4A CD 2E 2C CD FF 2E CD B5 2D AF CD F0 2B *NJ..,.....-...+
02CEA0: CD 3C 27 32 58 4A 3E FF 32 61 4A 3A 51 4A 16 00 .<'2XJ>.2aJ:QJ..
02CEB0: 5F 2A 4E 4A CD D8 36 22 4E 4A 7C B5 CA 8A 48 3A _*NJ..6"NJ|...H:
02CEC0: 61 4A B7 CA 8A 48 AF 32 61 4A 3A 52 4A B7 C2 E5 aJ...H.2aJ:RJ...
02CED0: 46 2A 4E 4A EB 26 00 3A 51 4A 6F CD D8 36 DA E5 F*NJ.&.:QJo..6..
02CEE0: 46 7B 32 51 4A AF 32 50 4A 32 53 4A 11 C7 9B CD F{2QJ.2PJ2SJ....
02CEF0: 84 29 44 4D 21 C6 99 22 54 4A 3A 42 4A CD 40 27 .)DM!.."TJ:BJ.@'
02CF00: 20 20 2D 20 00 54 41 4C 4B 20 20 20 20 20 20 2D - .TALK -
02CF10: 20 00 42 41 53 45 20 41 43 54 49 56 45 20 20 20 .BASE ACTIVE
02CF20: 20 20 20 20 2D 20 00 20 49 4E 44 45 58 3A 20 20 - . INDEX:
02CF30: 20 20 20 20 20 20 20 20 20 45 58 50 52 45 53 53 EXPRESS
02CF40: 49 4F 4E 20 43 4C 45 3A 00 42 41 53 45 20 49 4E ION CLE:.BASE IN
02CF50: 41 43 54 49 56 45 20 20 20 20 20 20 20 2D 20 00 ACTIVE - .
02CF60: F1 C9 3A 54 01 4F 06 00 11 0C 00 19 7E B9 D2 79 ..:T.O......~..y
02CF70: 49 3A 0E 4B 86 B9 DA 9E 49 3A 10 4B B7 CA 82 49 I:.K....I:.K...I
02CF80: 37 C9 E5 3E 2D 21 21 4B CD FA 36 21 21 4B 79 CD 7..>-!!K..6!!Ky.
02CF90: BB 36 36 00 E1 37 F5 7E 32 15 4B C3 B1 49 3F F5 .66..7.~2.K..I?.
02CFA0: E5 7E 32 15 4B 4F 06 00 3E 2D 21 21 4B CD FA 36 .~2.KO..>-!!K..6
02CFB0: E1 11 F4 FF 19 11 21 4B 7E B7 CA C3 49 12 23 13 ......!K~...I.#.
02CFC0: C3 B8 49 21 21 4B 3A 15 4B CD BB 36 36 00 2A 0E ..I!!K:.K..66.*.
02CFD0: 4B 44 4D 11 21 4B 21 C5 4A CD 72 06 2A 0E 4B 3A KDM.!K!.J.r.*.K:
02CFE0: 15 4B 85 3C 6F 22 0E 4B F1 C9 D5 3A 11 4B 6F 26 .K.<o".K...:.Ko&
02CFF0: 00 29 29 29 29 EB 3A 14 4B B7 C2 03 4A CD 00 1C .)))).:.K...J...
02D000: AF 32 C4 46 CD 73 39 CA 17 45 11 94 46 AF CD 20 .2.F.s9..E..F..
02D010: 37 6F 26 00 19 36 00 21 69 46 CD 8E 39 3A 5A 44 7o&..6.!iF..9:ZD
02D020: 32 C3 46 AF 32 5A 44 3E 04 CD AD 27 3E 02 CD F0 2.F.2ZD>...'>...
02D030: 2B 32 C1 46 3A C3 46 32 5A 44 3A 55 01 D6 04 32 +2.F:.F2ZD:U...2
02D040: C2 46 CD D9 45 3A C1 46 CD CA 39 DA E1 45 CD 63 .F..E:.F..9..E.c
02D050: 39 FE 2A C2 42 45 23 11 94 46 EB CD B1 37 C2 42 9.*.BE#..F...7.B
02D060: 45 3E FF 32 C4 46 CD 1B 36 CD D9 45 3A C1 46 CD E>.2.F..6..E:.F.
02D070: CA 39 DA E1 45 CD 63 39 7E FE 2A CA 69 45 C3 AE .9..E.c9~.*.iE..
02D080: 45 CD D9 45 3A C1 46 CD CA 39 DA E1 45 CD 63 39 E..E:.F..9..E.c9
02D090: 11 77 46 CD B1 37 CA EE 45 CD 63 39 11 72 46 CD .wF..7..E.c9.rF.
02D0A0: B1 37 CA 42 45 7E FE 2A CA BB 45 CD 92 39 CD 28 .7.BE~.*..E..9.(
02D0B0: 36 3A C2 46 3D 32 C2 46 C2 81 45 CD 1B 36 3E 65 6:.F=2.F..E..6>e
02D0C0: CD 70 3B CD 8E 3A FE 1B CA FD 45 CD 1B 36 3A 55 .p;..:....E..6:U
02D0D0: 01 D6 04 32 C2 46 C3 81 45 CD 3B 3A C8 3A 70 44 ...2.F..E.;:.:pD
02D0E0: C8 3A C4 46 B7 C2 EE 45 21 7D 46 CD 28 36 3A C1 .:.F...E!}F.(6:.
02D0F0: 46 CD 40 27 CD 45 25 CD 61 27 C3 FD 45 3E 01 21 F.@'.E%.a'..E>.!
02D100: CD CA 2C 3A 58 4A CD 40 27 CD CA 2C 3A 52 4A B7 ..,:XJ.@'..,:RJ.
02D110: CA 29 47 CD 7A 2C DA 88 47 1A FE 20 C2 13 47 2A .)G.z,..G.. ..G*
02D120: 4E 4A 23 22 4E 4A C3 2F 47 CD 7A 2C DA 70 49 D5 NJ#"NJ./G.z,.pI.
02D130: 2A 56 4A 19 EB 2A 54 4A CD E4 36 22 54 4A D1 60 *VJ..*TJ..6"TJ.`
02D140: 69 19 EB 21 50 4A 34 3A 51 4A BE C2 0C 47 CD C6 i..!PJ4:QJ...G..
02D150: 48 2A C6 99 22 7F 4A 21 72 4A 22 5D 4A 2A 46 4A H*..".J!rJ"]J*FJ
02D160: 22 5A 4A 3A 52 4A B7 C2 94 47 3A 51 4A 16 00 5F "ZJ:RJ...G:QJ.._
02D170: 2A 4E 4A CD D8 36 7C B7 FA 70 49 B5 CA 4F 48 22 *NJ..6|..pI..OH"
02D180: 4E 4A 22 4C 4A C3 94 47 3A 50 4A 32 51 4A CD C6 NJ"LJ..G:PJ2QJ..
02D190: 48 C3 4F 48 3A 58 4A CD 40 27 3A 52 4A B7 CA B7 H.OH:XJ.@':RJ...
02D1A0: 47 CD 37 2C DA 4F 48 CD DC 1C CA A1 47 2A 4E 4A G.7,.OH.....G*NJ
02D1B0: 23 22 4E 4A C3 BD 47 CD 37 2C DA 70 49 3A 4A 4A #"NJ..G.7,.pI:JJ
02D1C0: 32 5F 4A 21 59 4A CD 20 0B B7 CA E6 47 3A 42 4A 2_J!YJ. ....G:BJ
02D1D0: CD 40 27 CD D3 2E 2A 46 4A 11 0D 00 19 CD DF 36 .@'...*FJ......6
02D1E0: CD 45 49 C3 3C 48 3A 42 4A CD 40 27 2A 56 4A EB .EI.<H:BJ.@'*VJ.
02D1F0: 2A C6 99 CD D8 36 EB CD 84 29 44 4D CD C4 2E 2A *....6...)DM...*
02D200: 7F 4A CD 45 49 CD DC 1C CD 7E 38 2A C6 99 E5 11 .J.EI....~8*....
02D210: C6 99 21 C8 99 3A 51 4A 3D 87 4F CD 78 38 79 21 ..!..:QJ=.O.x8y!
02D220: C6 99 CD BB 36 D1 CD E4 36 3A 51 4A 4F CD D2 48 ....6...6:QJO..H
02D230: 2A C6 99 22 7F 4A 2A 46 4A 22 5A 4A 3A 52 4A B7 *..".J*FJ"ZJ:RJ.
02D240: C2 94 47 2A 4C 4A 2B 22 4C 4A 7C B5 C2 94 47 3A ..G*LJ+"LJ|...G:
02D250: 42 4A CD 40 27 CD 84 29 44 4D 21 C6 99 22 54 4A BJ.@'..)DM!.."TJ
02D260: 3A 51 4A F5 2A 54 4A CD E9 36 22 54 4A 2A 56 4A :QJ.*TJ..6"TJ*VJ
02D270: EB CD D8 36 EB CD C4 2E F1 3D C2 63 48 3A 52 4A ...6.....=.cH:RJ
02D280: B7 C2 80 46 CD EF 26 C3 BF 46 3A 42 4A CD 40 27 ...F..&..F:BJ.@'
02D290: CD 45 25 3A 58 4A CD 40 27 CD 45 25 CD 61 27 CD .E%:XJ.@'.E%.a'.
02D2A0: B5 2D 2A 93 4A CD 79 2A 3A 7D 44 B7 CA B0 49 21 .-*.J.y*:}D...I!
02D2B0: B8 48 CD 28 36 C3 B0 49 54 52 49 20 54 45 52 4D .H.(6..ITRI TERM
02D2C0: 49 4E 45 20 20 00 3A 51 4A 4F CD D2 48 C8 0D C3 INE .:QJO..H...
02D2D0: CA 48 C5 D5 3A 49 4A 32 5F 4A 3A 51 4A 91 47 79 .H..:IJ2_J:QJ.Gy
02D2E0: 48 06 00 3D 3D FA 40 49 21 72 4A 22 5D 4A 21 62 H..==.@I!rJ"]J!b
02D2F0: 4A 22 5A 4A F5 21 C6 99 81 87 CD BB 36 E5 CD E9 J"ZJ.!......6...
02D300: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
02D310: 26 00 01 00 02 09 4E E5 26 00 41 02 00 00 00 02 &.....N.&.A.....
02D320: 26 00 46 02 00 00 00 02 26 00 42 02 00 00 00 02 &.F.....&.B.....
02D330: 26 00 47 02 00 00 00 02 26 00 43 02 00 00 00 02 &.G.....&.C.....
02D340: 26 00 48 02 00 00 00 02 26 00 44 02 00 00 00 02 &.H.....&.D.....
02D350: 26 00 49 02 00 00 00 02 26 00 45 02 00 00 00 02 &.I.....&.E.....
02D360: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D370: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D380: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D390: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D3A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D3B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D3C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D3D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D3E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D3F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D400: 00 45 C3 C7 3B 1F 7A FE 07 CA A1 1F FE 08 CA 3C .E..;.z........<
02D410: 1E FE 15 CA A1 1F FE 16 CA A1 1F FE 09 C4 98 04 ................
02D420: 3E 17 47 C5 CD 04 1F 47 C3 3C 1E E1 22 96 38 D1 >.G....G.<..".8.
02D430: 7A B7 D5 C2 BD 1F 11 00 00 D5 11 20 01 D5 CD 10 z.......... ....
02D440: 20 22 BD 37 EB 22 92 38 EB 79 32 91 38 CD 0F 1F ".7.".8.y2.8...
02D450: FA 07 20 D6 02 CA 07 20 32 95 38 FE 05 CA F1 1F .. .... 2.8.....
02D460: FE 14 CA F1 1F FE 13 CA F1 44 42 41 53 45 4D 53 .........DBASEMS
02D470: 47 00 2A 45 4E 44 00 2A 45 58 49 54 00 41 55 43 G.*END.*EXIT.AUC
02D480: 55 4E 20 54 45 58 54 45 20 44 27 41 49 44 45 20 UN TEXTE D'AIDE
02D490: 20 20 20 00 48 45 4C 50 00 A1 1F FE 09 C4 98 04 .HELP........
02D4A0: 3E 17 47 C5 CD 04 1F 47 C3 3C 1E E1 22 96 38 D1 >.G....G.<..".8.
02D4B0: 7A B7 D5 C2 BD 1F 11 00 00 D5 11 20 01 D5 CD 10 z.......... ....
02D4C0: 20 22 BD 37 EB 22 92 38 EB 79 32 91 38 CD 0F 1F ".7.".8.y2.8...
02D4D0: FA 07 20 D6 02 CA 07 20 32 95 38 FE 05 CA F1 1F .. .... 2.8.....
02D4E0: FE 14 CA F1 1F FE 13 CA F1 44 42 41 53 45 4D 53 .........DBASEMS
02D4F0: 47 00 2A 45 4E 44 00 2A 45 58 49 54 00 4E 4F 20 G.*END.*EXIT.NO
02D500: CD 3C 29 CD 83 2E CD 3C 29 AF CD 89 2E AF 32 59 .<)....<).....2Y
02D510: 48 32 58 48 32 57 48 CD 73 39 CA A4 45 3A 59 48 H2XH2WH.s9..E:YH
02D520: B7 C2 42 45 11 53 48 CD B1 37 C2 42 45 CD 8E 39 ..BE.SH..7.BE..9
02D530: CD 73 39 AF CD AD 27 DA 9E 47 3E FF 32 59 48 C3 .s9...'..G>.2YH.
02D540: 17 45 3A 58 48 B7 C2 69 45 11 4F 48 CD B1 37 C2 .E:XH..iE.OH..7.
02D550: 69 45 CD 8E 39 CD 73 39 11 7E 97 CD F2 14 DA D1 iE..9.s9.~......
02D560: 47 3E FF 32 58 48 C3 17 45 3A 57 48 B7 C2 D1 47 G>.2XH..E:WH...G
02D570: 11 48 48 CD B1 37 C2 D1 47 CD 8E 39 3E FF 32 57 .HH..7..G..9>.2W
02D580: 48 CD 73 39 CA D1 47 22 5A 48 CD 73 39 CD F1 2A H.s9..G"ZH.s9..*
02D590: CA BE 47 CD 8E 39 CD 73 39 FE 2C C2 17 45 CD 69 ..G..9.s9.,..E.i
02D5A0: 39 C3 8A 45 3A 59 48 B7 CA A6 47 3A 58 48 B7 CA 9..E:YH...G:XH..
02D5B0: AE 47 3E 81 CD F0 2B CD 3C 27 32 56 48 CD 61 27 .G>...+.<'2VH.a'
02D5C0: AF CD 89 2E 3A 57 48 B7 C2 85 46 CD E3 1C 22 5C ....:WH...F..."\
02D5D0: 48 21 C6 99 22 5E 48 21 64 48 22 60 48 2A 5C 48 H!.."^H!dH"`H*\H
02D5E0: 7E FE 0D CA 20 46 EB 2A 5E 48 EB 01 10 00 CD 7E ~... F.*^H.....~
02D5F0: 38 2A 60 48 36 2D 23 EB 2A 5C 48 EB CD E4 36 EB 8*`H6-#.*\H...6.
02D600: 2C C2 13 45 CD 69 39 C3 C2 45 3A AE 49 B7 C2 0B ,..E.i9..E:.I...
02D610: 49 11 94 49 CD B1 37 C2 0B 49 CD 8E 39 3E FF 32 I..I..7..I..9>.2
02D620: AE 49 CD 9F 24 CA E7 48 C3 13 45 3A AC 49 B7 CA .I..$..H..E:.I..
02D630: C7 48 3A AD 49 B7 CA CF 48 3E 01 CD F0 2B DA B7 .H:.I...H>...+..
02D640: 48 CD 3C 27 32 AA 49 01 09 02 11 BE 99 CD 7A 2C H.<'2.I.......z,
02D650: 01 C7 9B 21 C6 99 CD 75 25 3A AE 49 B7 C2 9C 46 ...!...u%:.I...F
02D660: 2A C4 49 CD 92 28 C2 D7 48 11 0C 00 19 46 23 CD *.I..(..H....F#.
02D670: DF 36 22 B4 49 2A C4 49 11 C6 99 3A B0 49 4F CD .6".I*.I...:.IO.
02D680: 11 27 C2 D7 48 11 0C 00 19 4E 23 CD DF 36 22 B2 .'..H....N#..6".
02D690: 49 78 B9 C2 DF 48 32 B0 49 C3 BB 46 2A C4 49 11 Ix...H2.I..F*.I.
02D6A0: C6 99 3A B0 49 4F CD 11 27 C2 D7 48 11 0C 00 19 ..:.IO..'..H....
02D6B0: 7E 32 B0 49 23 CD DF 36 22 B2 49 21 7E 97 22 B8 ~2.I#..6".I!~.".
02D6C0: 49 22 BE 49 3A AB 49 B7 CA 42 47 2A B8 49 22 BC I".I:.I..BG*.I".
02D6D0: 49 2A C2 49 CD 8E 39 CD 73 39 22 C2 49 CD 92 28 I*.I..9.s9".I..(
02D6E0: C2 D7 48 22 A8 49 2A C2 49 CD F1 2A 22 B6 49 2A ..H".I*.I..*".I*
02D6F0: C2 49 11 C6 99 CD 11 27 C2 D7 48 EB 2A BC 49 36 .I.....'..H.*.I6
02D700: 29 23 CD E4 36 36 29 23 EB 2A A8 49 EB CD E4 36 )#..66)#.*.I...6
02D710: 36 05 23 36 31 23 EB 2A A8 49 EB CD E4 36 22 BC 6.#61#.*.I...6".
02D720: 49 2A B6 49 CD 8E 39 CD 73 39 7E FE 2C C2 39 47 I*.I..9.s9~.,.9G
02D730: CD 69 39 22 C2 49 C3 D1 46 2A BC 49 36 35 23 22 .i9".I..F*.I65#"
02D740: BE 49 3A AF 49 B7 CA C9 47 2A BE 49 22 BC 49 2A .I:.I...G*.I".I*
02D750: C6 49 CD 8E 39 CD 73 39 22 C6 49 CD 92 28 C2 D7 .I..9.s9".I..(..
02D760: 48 22 C0 49 2A C6 49 CD F1 2A 22 B6 49 CD 8E 39 H".I*.I..*".I..9
02D770: CD 73 39 11 A3 49 CD B1 37 C2 8B 47 CD 8E 39 CD .s9.£I..7..G..9.
02D780: 73 39 22 C6 49 CD F1 2A 22 B6 49 2A C6 49 11 C6 s9".I..*".I*.I..
02D790: 99 CD 11 27 C2 D7 48 EB 2A BC 49 36 2D 23 CD E4 ...'..H.*.I6-#..
02D7A0: 36 EB 2A C0 49 EB CD E4 36 22 BC 49 2A B6 49 CD 6.*.I...6".I*.I.
02D7B0: 8E 39 CD 73 39 7E FE 2C C2 C4 47 CD 69 39 22 C6 .9.s9~.,..G.i9".
02D7C0: 49 C3 4F 47 2A BC 49 36 35 3A AE 49 B7 C2 4A 48 I.OG*.I65:.I..JH
02D7D0: CD 61 27 21 FF FF CD 5B 26 DA A8 48 3A AA 49 CD .a'!...[&..H:.I.
02D7E0: 40 27 2A C4 99 44 4D 11 C7 9B CD 7A 2C 2A B4 49 @'*..DM....z,*.I
02D7F0: EB 2A B2 49 3A B0 49 4F CD 3D 37 DA 3E 48 CA 04 .*.I:.IO.=7.>H..
02D800: 2A 5E 48 EB CD E4 36 36 35 22 60 48 01 10 00 2A *^H...665"`H...*
02D810: 5C 48 09 22 5C 48 2A 5E 48 09 22 5E 48 C3 DD 45 \H."\H*^H."^H..E
02D820: 3E 01 CD 89 2E CD E3 1C 22 5C 48 2A 5C 48 7E FE >......."\H*\H~.
02D830: 0D CA F0 46 11 C6 99 CD 11 27 CA 78 46 2A 5E 48 ...F.....'.xF*^H
02D840: EB 2A 5C 48 01 10 00 CD 7E 38 2A 60 48 36 2D 23 .*\H....~8*`H6-#
02D850: EB 2A 5C 48 EB CD E4 36 EB 2A 5E 48 EB CD E4 36 .*\H...6.*^H...6
02D860: 36 35 22 60 48 01 10 00 2A 5E 48 09 22 5E 48 11 65"`H...*^H."^H.
02D870: C6 9B CD C0 36 DA F0 46 01 10 00 2A 5C 48 09 22 ....6..F...*\H."
02D880: 5C 48 C3 2B 46 21 C6 99 22 5E 48 21 64 48 22 60 \H.+F!.."^H!dH"`
02D890: 48 2A 5A 48 CD 8E 39 CD 73 39 CD F1 2A 22 62 48 H*ZH..9.s9..*"bH
02D8A0: CD 63 39 CD 92 28 C2 BE 47 22 5C 48 EB 2A 5E 48 .c9..(..G"\H.*^H
02D8B0: EB 01 10 00 CD 7E 38 2A 60 48 36 2D 23 EB 2A 5C .....~8*`H6-#.*\
02D8C0: 48 EB CD E4 36 EB 2A 5E 48 EB CD E4 36 36 35 22 H...6.*^H...665"
02D8D0: 60 48 2A 5E 48 11 10 00 19 22 5E 48 2A 62 48 CD `H*^H...."^H*bH.
02D8E0: 8E 39 CD 73 39 FE 2C C2 F0 46 CD 69 39 C3 97 46 .9.s9.,..F.i9..F
02D8F0: 2A 5E 48 36 0D 21 C6 99 01 C7 9B CD 75 25 3E 20 *^H6.!......u%>
02D900: 32 C7 9B 3A 56 48 CD 40 27 11 BE 99 01 09 02 CD 2..:VH.@'.......
02D910: C4 2E CD 61 27 3E 01 CD 89 2E CD D8 2C AF CD 89 ...a'>......,...
02D920: 2E CD D8 2C 21 00 00 22 BF 99 AF CD 89 2E 21 7E ...,!.."......!~
02D930: 97 CD 20 0B B7 CA 5F 47 21 64 48 CD 20 0B 3A 56 .. ..._G!dH. .:V
02D940: 48 CD 40 27 2A C4 99 44 4D 11 C7 9B CD C4 2E CD H.@'*..DM.......
02D950: 61 27 2A BF 99 23 22 BF 99 7C A5 3C CA B6 47 3E a'*..#"..|.<..G>
02D960: 01 CD 89 2E CD 47 2B DA 6D 47 C3 2A 47 CD D8 2C .....G+.mG.*G..,
02D970: AF CD 89 2E CD 47 2B DA 7D 47 C3 2A 47 3A 56 48 .....G+.}G.*G:VH
02D980: CD 40 27 CD D4 26 CD A8 2D 3E 02 01 09 02 11 BE .@'..&..->......
02D990: 99 12 CD C4 2E CD 45 25 CD 61 27 C3 DC 47 3E 28 ......E%.a'..G>(
02D9A0: CD 70 3B C3 C6 47 3E 48 CD 70 3B C3 C6 47 3E 6C .p;..G>H.p;..G>l
02D9B0: CD 70 3B C3 C6 47 3E 6D CD 70 3B C3 C6 47 3E 14 .p;..G>m.p;..G>.
02D9C0: CD 70 3B C3 D1 47 CD 61 27 3E 01 32 6F 44 C3 DC .p;..G.a'>.2oD..
02D9D0: 47 CD 61 27 3E FF 32 6F 44 C3 DC 47 3E 01 21 00 G.a'>.2oD..G>.!.
02D9E0: 45 C3 C7 3B 54 54 54 40 40 C8 84 82 A6 8A 40 92 E..;TTT@@.....@.
02D9F0: 92 40 40 50 86 52 40 62 72 70 62 40 40 A6 86 88 .@@P.R@brpb@@...
02DA00: 48 C3 27 48 3A AB 49 B7 CA 11 48 2A B8 49 CD 20 H.'H:.I...H*.I.
02DA10: 0B 3A AF 49 B7 CA 1E 48 2A BE 49 CD 20 0B CD 61 .:.I...H*.I. ..a
02DA20: 27 CD E7 1C CD D3 2E 3A AA 49 CD 40 27 2A C4 99 '......:.I.@'*..
02DA30: 44 4D 11 C7 9B CD 7A 2C DA A8 48 C3 ED 47 CD 61 DM....z,..H..G.a
02DA40: 27 CD 47 2B DA A8 48 C3 ED 47 3A AA 49 CD 40 27 '.G+..H..G:.I.@'
02DA50: 2A C4 99 44 4D 11 C7 9B CD 7A 2C CD 61 27 2A B2 *..DM....z,.a'*.
02DA60: 49 3A B0 49 CD B1 20 E5 CD 9D 27 E1 7C B5 CA 91 I:.I.. ...'.|...
02DA70: 48 3A AB 49 B7 CA 7E 48 2A B8 49 CD 20 0B 3A AF H:.I..~H*.I. .:.
02DA80: 49 B7 CA 8B 48 2A BE 49 CD 20 0B CD E7 1C CD D3 I...H*.I. ......
02DA90: 2E 3A AA 49 CD 40 27 2A C4 99 44 4D 11 C7 9B CD .:.I.@'*..DM....
02DAA0: 7A 2C DA A8 48 C3 5B 48 3A AA 49 CD 40 27 CD 45 z,..H.[H:.I.@'.E
02DAB0: 25 CD 61 27 C3 1C 49 3E 28 CD 70 3B C3 F7 48 3E %.a'..I>(.p;..H>
02DAC0: 1C CD 70 3B C3 0B 49 3E 6E CD 70 3B C3 F7 48 3E ..p;..I>n.p;..H>
02DAD0: 54 CD 70 3B C3 F7 48 3E 52 CD 70 3B C3 0B 49 3E T.p;..H>R.p;..I>
02DAE0: 6F CD 70 3B C3 F7 48 3E 73 CD 70 3B C3 F7 48 3E o.p;..H>s.p;..H>
02DAF0: 53 CD 70 3B C3 F7 48 3A AA 49 CD 40 27 CD 45 25 S.p;..H:.I.@'.E%
02DB00: CD 61 27 3E 01 32 6F 44 C3 1C 49 3A AA 49 CD 40 .a'>.2oD..I:.I.@
02DB10: 27 CD 45 25 3E FF 32 6F 44 C3 1C 49 3E 01 21 00 '.E%>.2oD..I>.!.
02DB20: 45 C3 C7 3B 54 54 54 40 40 C8 84 82 A6 8A 40 92 E..;TTT@@.....@.
02DB30: 92 40 40 50 86 52 40 62 72 70 62 40 40 A6 86 88 .@@P.R@brpb@@...
02DB40: A0 40 40 40 40 AC CA E4 40 64 5C 2C 00 00 00 00 .@@@@...@d\,....
02DB50: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02DB60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02DB70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02DB80: 00 00 00 00 00 00 00 00 41 44 44 00 46 52 4F 4D ........ADD.FROM
02DB90: 00 4F 4E 00 52 41 4E 44 4F 4D 00 52 45 50 4C 41 .ON.RANDOM.REPLA
02DBA0: 43 45 00 57 49 54 48 00 C2 A0 00 C3 A6 8A 40 92 CE.WITH.......@.
02DBB0: 92 40 40 50 86 52 40 62 72 70 62 40 40 A6 86 88 .@@P.R@brpb@@...
02DBC0: A0 40 40 40 40 AC CA E4 40 64 5C 2C 00 00 00 00 .@@@@...@d\,....
02DBD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02DBE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02DBF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02DC00: A0 40 40 40 40 AC CA E4 40 64 5C 2C 00 00 00 00 .@@@@...@d\,....
02DC10: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02DC20: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02DC30: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02DC40: 00 00 00 00 00 00 00 00 46 49 45 4C 44 53 00 46 ........FIELDS.F
02DC50: 4F 52 00 54 4F 00 32 6F 44 C3 DC 47 3E 01 21 00 OR.TO.2oD..G>.!.
02DC60: 45 C3 C7 3B 54 54 54 40 40 C8 84 82 A6 8A 40 92 E..;TTT@@.....@.
02DC70: 92 40 40 50 86 52 40 62 72 70 62 40 40 A6 86 88 .@@P.R@brpb@@...
02DC80: 2D 20 00 44 45 4C 45 54 45 20 20 20 20 2D 20 00 - .DELETE - .
02DC90: 45 43 48 4F 20 20 20 20 20 20 2D 20 00 45 4A 45 ECHO - .EJE
02DCA0: 43 54 20 20 20 20 20 2D 20 00 45 53 43 41 50 45 CT - .ESCAPE
02DCB0: 20 20 20 20 2D 20 00 45 58 41 43 54 20 20 20 20 - .EXACT
02DCC0: 20 2D 20 00 49 4E 54 45 4E 53 49 54 59 20 2D 20 - .INTENSITY -
02DCD0: 00 4C 49 4E 4B 41 47 45 20 20 20 2D 20 00 50 52 .LINKAGE - .PR
02DCE0: 49 4E 54 20 20 20 20 20 2D 20 00 52 41 57 20 20 INT - .RAW
02DCF0: 20 20 20 20 20 2D 20 00 53 54 45 50 20 20 20 20 - .STEP
02DD00: CD 3C 29 CD DD 25 AF 32 F8 48 32 F9 48 32 F7 48 .<)..%.2.H2.H2.H
02DD10: CD 73 39 CA B7 45 CD E9 25 DA 70 48 CD 73 39 CA .s9..E..%.pH.s9.
02DD20: B7 45 3A F9 48 B7 C2 44 45 11 F1 48 CD B1 37 C2 .E:.H..DE..H..7.
02DD30: 44 45 CD 8E 39 AF CD AD 27 DA 34 48 3E FF 32 F9 DE..9...'.4H>.2.
02DD40: 48 C3 10 45 3A F7 48 B7 C2 79 45 11 E7 48 CD B1 H..E:.H..yE..H..
02DD50: 37 C2 79 45 3E FF 32 F7 48 CD 8E 39 22 FA 48 CD 7.yE>.2.H..9".H.
02DD60: 73 39 CD F1 2A CA 3C 48 CD 8E 39 CD 73 39 FE 2C s9..*.<H..9.s9.,
02DD70: C2 10 45 CD 69 39 C3 5F 45 3A F8 48 B7 C2 70 48 ..E.i9._E:.H..pH
02DD80: 11 EE 48 CD B1 37 C2 70 48 3E FF 32 F8 48 CD 8E ..H..7.pH>.2.H..
02DD90: 39 CD 73 39 CA 44 48 22 01 49 CD F1 2A CA 44 48 9.s9.DH".I..*.DH
02DDA0: 32 FE 48 E5 CD 63 39 CD 92 28 C2 44 48 22 FF 48 2.H..c9..(.DH".H
02DDB0: E1 CD 8E 39 C3 10 45 3A F9 48 B7 CA 4C 48 3E 01 ...9..E:.H..LH>.
02DDC0: CD F0 2B DA D8 45 CD 3C 27 32 F6 48 11 BE 99 01 ..+..E.<'2.H....
02DDD0: 09 02 CD 7A 2C C3 F6 45 3E 81 CD F0 2B CD 3C 27 ...z,..E>...+.<'
02DDE0: 32 F6 48 CD E3 1C 11 F8 FF 19 11 BE 99 01 09 02 2.H.............
02DDF0: CD 7E 38 CD C4 2E CD 61 27 01 C7 9B 21 C6 99 CD .~8....a'...!...
02DE00: CD 99 2C 7C B5 CA 55 4A AF 32 14 4B 21 20 4C 22 ..,|..UJ.2.K! L"
02DE10: 1D 4B CD 73 39 CA 72 45 11 F2 4A CD B1 37 C2 3F .K.s9.rE..J..7.?
02DE20: 4A CD 8E 39 3E FF 32 14 4B CD 73 39 CD F1 2A C2 J..9>.2.K.s9..*.
02DE30: 3A 45 3E 14 CD 70 3B C3 47 4A E5 CD 63 39 CD 92 :E>..p;.GJ..c9..
02DE40: 28 CA 4C 45 3E 52 CD 70 3B C3 47 4A EB 2A 1D 4B (.LE>R.p;.GJ.*.K
02DE50: EB 01 10 00 CD 7E 38 21 10 00 19 22 1D 4B 36 0D .....~8!...".K6.
02DE60: E1 CD 8E 39 CD 73 39 FE 2C C2 72 45 CD 69 39 C3 ...9.s9.,.rE.i9.
02DE70: 29 45 CD DD 25 21 FE FF CD 5B 26 CD 99 2C 22 0B )E..%!...[&..,".
02DE80: 4B 22 1F 4B AF 32 0D 4B CD DE 1F 3A 57 44 32 0A K".K.2.K...:WD2.
02DE90: 4B AF 32 57 44 AF 32 11 4B 32 13 4B AF 32 18 4B K.2WD.2.K2.K.2.K
02DEA0: AF 32 1A 4B 32 19 4B CD AC 06 21 00 02 22 0E 4B .2.K2.K...!..".K
02DEB0: 2A 1F 4B CD 9D 27 CD EA 49 22 1D 4B AF 32 10 4B *.K..'..I".K.2.K
02DEC0: 3E 01 32 17 4B 2A 1D 4B 7E FE 0D CA E5 45 CD A1 >.2.K*.K~....E..
02DED0: 48 DA E5 45 21 10 4B 34 2A 1D 4B 11 10 00 19 22 H..E!.K4*.K...."
02DEE0: 1D 4B C3 C5 45 3A 55 01 D6 05 4F 3A 1A 4B 47 3A .K..E:U...O:.KG:
02DEF0: 17 4B 80 32 1A 4B B9 D2 23 46 2A 0E 4B 3A 17 4B .K.2.K..#F*.K:.K
02DF00: 84 67 2E 00 22 0E 4B 21 19 4B 34 CD 9F 24 CA 1D .g..".K!.K4..$..
02DF10: 46 CD E9 21 DA 23 46 CD 9D 27 C3 B6 45 CD 37 2C F..!.#F..'..E.7,
02DF20: D2 B6 45 21 00 01 22 0E 4B CD EA 49 22 1D 4B AF ..E!..".K..I".K.
02DF30: 32 10 4B 2A 1D 4B 7E FE 0D CA 53 46 CD 62 49 DA 2.K*.K~...SF.bI.
02DF40: 53 46 21 10 4B 34 2A 1D 4B 11 10 00 19 22 1D 4B SF!.K4*.K....".K
02DF50: C3 33 46 3A 0D 4B 4F 3A 17 4B 47 21 00 02 79 3D .3F:.KO:.KG!..y=
02DF60: FA 6A 46 4F 78 84 67 C3 5E 46 22 0E 4B 2A 0B 4B .jFOx.g.^F".K*.K
02DF70: 11 03 4B CD 09 4A 11 F9 4A 21 C5 4A 01 00 00 CD ..K..J..J!.J....
02DF80: 72 06 2A 0B 4B CD 9D 27 CD DE 1F CD EA 49 22 1D r.*.K..'.....I".
02DF90: 4B AF 32 10 4B 2A 1D 4B 7E FE 0D CA B5 46 CD 15 K.2.K*.K~....F..
02DFA0: 49 DA B5 46 21 10 4B 34 2A 1D 4B 11 10 00 19 22 I..F!.K4*.K...."
02DFB0: 1D 4B C3 95 46 3A 13 4B 21 10 4B BE DA C4 46 7E .K..F:.K!.K...F~
02DFC0: 3D 32 13 4B 3A 13 4B 47 3E 03 CD 1D 02 32 12 4B =2.K:.KG>....2.K
02DFD0: 78 32 13 4B CD B5 06 AF 32 0E 4B CD EA 49 22 1D x2.K....2.K..I".
02DFE0: 4B AF 32 10 4B 2A 1D 4B 7E FE 0D CA 05 47 CD A1 K.2.K*.K~....G..
02DFF0: 48 DA 05 47 21 10 4B 34 2A 1D 4B 11 10 00 19 22 H..G!.K4*.K...."
02E000: 75 25 21 7E 97 22 03 49 36 35 3A F7 48 B7 CA 78 u%!~.".I65:.H..x
02E010: 46 2A FA 48 CD 8E 39 CD 73 39 CD F1 2A 22 FA 48 F*.H..9.s9..*".H
02E020: CD 63 39 CD 92 28 C2 54 48 EB 21 0B 00 19 7E FE .c9..(.TH.!...~.
02E030: 4E C2 64 46 2A 03 49 36 29 23 CD E4 36 22 03 49 N.dF*.I6)#..6".I
02E040: CD 63 39 11 C6 99 CD 11 27 C2 54 48 EB 2A 03 49 .c9.....'.TH.*.I
02E050: 36 29 23 CD E4 36 36 05 23 36 31 23 CD E4 36 36 6)#..66.#61#..66
02E060: 35 22 03 49 2A FA 48 CD 8E 39 CD 73 39 FE 2C C2 5".I*.H..9.s9.,.
02E070: CA 46 CD 69 39 C3 17 46 21 C6 99 22 07 49 2A 07 .F.i9..F!..".I*.
02E080: 49 7E FE 0D CA CA 46 11 0B 00 19 7E FE 4E C2 BD I~....F....~.N..
02E090: 46 2A 07 49 CD 92 28 C2 54 48 EB 2A 03 49 36 29 F*.I..(.TH.*.I6)
02E0A0: 23 CD E4 36 EB 2A 07 49 EB 36 29 23 CD E4 36 36 #..6.*.I.6)#..66
02E0B0: 05 23 36 31 23 CD E4 36 36 35 22 03 49 2A 07 49 .#61#..665".I*.I
02E0C0: 11 10 00 19 22 07 49 C3 7E 46 3A F8 48 B7 CA 1A ....".I.~F:.H...
02E0D0: 47 2A 03 49 23 22 03 49 22 FC 48 2A FF 48 EB 21 G*.I#".I".H*.H.!
02E0E0: 0B 00 19 7E 06 06 FE 4E CA ED 46 06 0E 2A 03 49 ...~...N..F..*.I
02E0F0: 36 29 23 CD E4 36 22 03 49 3A FE 48 4F 2A 01 49 6)#..6".I:.HO*.I
02E100: 11 C6 99 CD 11 27 C2 44 48 EB 2A 03 49 36 29 23 .....'.DH.*.I6)#
02E110: CD E4 36 70 23 36 35 22 03 49 2A 03 49 23 22 03 ..6p#65".I*.I#".
02E120: 49 22 05 49 21 C6 99 22 07 49 2A 07 49 7E FE 0D I".I!..".I*.I~..
02E130: CA 5D 47 CD 92 28 C2 50 47 EB 2A 03 49 36 2D 23 .]G..(.PG.*.I6-#
02E140: CD E4 36 EB 2A 07 49 EB CD E4 36 36 35 22 03 49 ..6.*.I...665".I
02E150: 2A 07 49 11 10 00 19 22 07 49 C3 2A 47 21 FF FF *.I....".I.*G!..
02E160: CD 5B 26 2A C4 99 44 4D 21 C7 9B 3E 20 CD FA 36 .[&*..DM!..> ..6
02E170: CD D8 2C CD DC 1C 7E FE 2A CA 82 47 CD 78 27 C2 ..,...~.*..G.x'.
02E180: 8E 47 CD 47 2B DA EA 47 C2 73 47 C3 EA 47 2A 05 .G.G+..G.sG..G*.
02E190: 49 CD 20 0B 21 01 00 22 F4 48 C3 D8 47 3A F8 48 I. .!..".H..G:.H
02E1A0: B7 CA AE 47 2A FC 48 CD 20 0B B7 CA B7 47 21 7E ...G*.H. ....G!~
02E1B0: 97 CD 20 0B C3 D8 47 3A F6 48 CD 40 27 11 C7 9B .. ...G:.H.@'...
02E1C0: 2A C4 99 44 4D CD C4 2E CD 61 27 2A F4 48 23 22 *..DM....a'*.H#"
02E1D0: F4 48 2A 05 49 CD 20 0B CD 47 2B DA EA 47 CA EA .H*.I. ..G+..G..
02E1E0: 47 CD 78 27 CA D8 47 C3 9D 47 2A F4 48 22 BF 99 G.x'..G..G*.H"..
02E1F0: 3A F6 48 CD 40 27 11 C7 9B 2A C4 99 44 4D CD C4 :.H.@'...*..DM..
02E200: 1D 4B C3 E5 46 3A 12 4B E6 C0 CA 10 47 C3 4C 4A .K..F:.K....G.LJ
02E210: AF 32 09 4B 3A 12 4B E6 01 CA 42 47 CD E7 1C CD .2.K:.K...BG....
02E220: D3 2E CD 9F 24 CA 42 47 CD 83 21 32 09 4B B7 CA ....$.BG..!2.K..
02E230: 42 47 CD 99 2C 22 0B 4B 22 1F 4B CD DE 1F AF 32 BG..,".K".K....2
02E240: 0D 4B 3A 12 4B E6 04 CA 55 48 3A 12 4B E6 02 CA .K:.K...UH:.K...
02E250: DC 47 21 0E 4B 36 00 23 3A 17 4B 96 2F 3C 77 CD .G!.K6.#:.K./<w.
02E260: 9F 24 CA 86 47 CD 5A 22 DA C6 47 22 0B 4B 3A 09 .$..G.Z"..G".K:.
02E270: 4B B7 C2 CF 47 3A 17 4B 47 3A 18 4B 90 32 18 4B K...G:.KG:.K.2.K
02E280: FA CF 47 C3 6D 46 2A 0B 4B 2B 22 0B 4B 7C B5 CA ..G.mF*.K+".K|..
02E290: C6 47 3A 17 4B 47 3A 18 4B 90 32 18 4B FA A3 47 .G:.KG:.K.2.K.£G
02E2A0: C3 6D 46 2A 0B 4B 11 04 00 CD C0 36 D2 CF 47 11 .mF*.K.....6..G.
02E2B0: FC FF 19 22 1F 4B 3E 04 32 0D 4B 3A 17 4B 87 87 ...".K>.2.K:.K..
02E2C0: 32 18 4B C3 A0 45 CD D8 2C CD 99 2C 22 0B 4B 2A 2.K..E..,..,".K*
02E2D0: 0B 4B 22 1F 4B AF 32 0D 4B C3 9C 45 21 0E 4B 36 .K".K.2.K..E!.K6
02E2E0: 00 23 3A 17 4B 86 77 CD 9F 24 CA 13 48 CD E9 21 .#:.K.w..$..H..!
02E2F0: DA 48 48 22 0B 4B 3A 09 4B B7 C2 48 48 3A 1A 4B .HH".K:.K..HH:.K
02E300: 47 3A 18 4B 4F 3A 17 4B 81 32 18 4B B8 D2 48 48 G:.KO:.K.2.K..HH
02E310: C3 6D 46 CD 9F 24 CA 25 48 CD E9 21 DA 48 48 CD .mF..$.%H..!.HH.
02E320: 9D 27 C3 2B 48 CD 37 2C DA 48 48 2A 0B 4B 23 22 .'.+H.7,.HH*.K#"
02E330: 0B 4B 3A 1A 4B 47 3A 18 4B 4F 3A 17 4B 81 32 18 .K:.KG:.KO:.K.2.
02E340: 4B B8 D2 48 48 C3 6D 46 2A 0B 4B 22 1F 4B AF 32 K..HH.mF*.K".K.2
02E350: 0D 4B C3 9C 45 3A 12 4B E6 30 CA 9E 48 E6 10 CA .K..E:.K.0..H...
02E360: 73 48 3A 11 4B 3D FA 91 48 32 11 4B 21 13 4B 34 sH:.K=..H2.K!.K4
02E370: C3 91 48 CD EA 49 11 10 00 19 7E FE 0D CA 91 48 ..H..I....~....H
02E380: 3A 11 4B 3C 32 11 4B 3A 13 4B 3D FA 91 48 32 13 :.K<2.K:.K=..H2.
02E390: 4B 2A 0B 4B 22 1F 4B AF 32 0D 4B C3 9C 45 C3 4C K*.K".K.2.K..E.L
02E3A0: 4A 3A 54 01 4F 11 0C 00 19 7E B9 D2 B6 48 3A 0E J:T.O....~...H:.
02E3B0: 4B 86 B9 DA DF 48 3A 10 4B B7 CA BF 48 37 C9 E5 K....H:.K...H7..
02E3C0: 0E 00 7E 2F 3C 6F 26 FF 3A 54 01 5F 16 00 0C 19 ..~/<o&.:T._....
02E3D0: 7C B7 FA CE 48 E1 79 32 17 4B 37 F5 C3 E1 48 3F |...H.y2.K7...H?
02E3E0: F5 4E 79 32 15 4B 23 CD DF 36 11 21 4B CD 78 38 .Ny2.K#..6.!K.x8
02E3F0: EB 3A 15 4B CD BB 36 36 00 2A 0E 4B 44 4D 11 21 .:.K..66.*.KDM.!
02E400: 2E 3A F6 48 CD 40 27 CD D4 26 CD A8 2D 01 09 02 .:.H.@'..&..-...
02E410: 11 BE 99 CD C4 2E CD 45 25 CD 61 27 3A 7D 44 B7 .......E%.a':}D.
02E420: CA 7B 48 2A F4 48 CD 1B 36 CD 35 36 3E 27 CD 70 .{H*.H..6.56>'.p
02E430: 3B C3 7B 48 3E 28 CD 70 3B C3 5C 48 3E 52 CD 70 ;.{H>(.p;.\H>R.p
02E440: 3B C3 5C 48 3E 1C CD 70 3B C3 5C 48 3E 48 CD 70 ;.\H>..p;.\H>H.p
02E450: 3B C3 5C 48 3E 52 CD 70 3B C3 5C 48 3A F6 48 CD ;.\H>R.p;.\H:.H.
02E460: 40 27 CD 45 25 CD 61 27 3E 01 32 6F 44 C3 7B 48 @'.E%.a'>.2oD.{H
02E470: CD 61 27 3E FF 32 6F 44 C3 7B 48 3E 01 21 00 45 .a'>.2oD.{H>.!.E
02E480: C3 C7 3B 54 54 54 40 40 C8 84 82 A6 8A 40 92 92 ..;TTT@@.....@..
02E490: 40 40 50 86 52 40 62 72 70 62 40 40 A6 86 88 A0 @@P.R@brpb@@....
02E4A0: 40 40 40 40 AC CA E4 40 64 5C 2C 00 00 00 00 00 @@@@...@d\,.....
02E4B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E4C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E4D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E4E0: 00 00 00 00 00 00 00 46 49 45 4C 44 53 00 4F 4E .......FIELDS.ON
02E4F0: 00 54 4F 00 00 00 00 44 C3 7B 48 3E 01 21 00 45 .TO....D.{H>.!.E
02E500: CD 3C 29 AF 32 AC 49 32 AD 49 32 AB 49 32 AF 49 .<).2.I2.I2.I2.I
02E510: 32 AE 49 CD 73 39 CA 2B 46 3A AC 49 B7 C2 3E 45 2.I.s9.+F:.I..>E
02E520: 11 8C 49 CD B1 37 C2 3E 45 CD 8E 39 CD 73 39 AF ..I..7.>E..9.s9.
02E530: CD AD 27 DA B7 48 3E FF 32 AC 49 C3 13 45 3A AD ..'..H>.2.I..E:.
02E540: 49 B7 C2 6B 45 11 91 49 CD B1 37 C2 6B 45 CD 8E I..kE..I..7.kE..
02E550: 39 CD 73 39 22 C4 49 CD F1 2A CA BF 48 32 B0 49 9.s9".I..*..H2.I
02E560: CD 8E 39 3E FF 32 AD 49 C3 13 45 3A AB 49 B7 C2 ..9>.2.I..E:.I..
02E570: A6 45 11 88 49 CD B1 37 C2 A6 45 CD 8E 39 CD 73 .E..I..7..E..9.s
02E580: 39 CA 0B 49 22 C2 49 CD 73 39 CD F1 2A CA BF 48 9..I".I.s9..*..H
02E590: CD 8E 39 3E FF 32 AB 49 CD 73 39 FE 2C C2 13 45 ..9>.2.I.s9.,..E
02E5A0: CD 69 39 C3 87 45 3A AF 49 B7 C2 0A 46 11 9B 49 .i9..E:.I...F..I
02E5B0: CD B1 37 C2 0A 46 CD 8E 39 CD 73 39 CA 0B 49 22 ..7..F..9.s9..I"
02E5C0: C6 49 CD 73 39 CD F1 2A CA BF 48 CD 8E 39 3E FF .I.s9..*..H..9>.
02E5D0: 32 AF 49 CD 73 39 FE 2C C2 E1 45 CD 69 39 C3 C2 2.I.s9.,..E.i9..
02E5E0: 45 CD 73 39 11 A3 49 CD B1 37 C2 13 45 CD 8E 39 E.s9.£I..7..E..9
02E5F0: CD 73 39 CD F1 2A CA BF 48 CD 8E 39 CD 73 39 FE .s9..*..H..9.s9.
02E600: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
02E610: 27 00 01 00 02 09 4E E5 27 00 41 02 00 00 00 02 '.....N.'.A.....
02E620: 27 00 46 02 00 00 00 02 27 00 42 02 00 00 00 02 '.F.....'.B.....
02E630: 27 00 47 02 00 00 00 02 27 00 43 02 00 00 00 02 '.G.....'.C.....
02E640: 27 00 48 02 00 00 00 02 27 00 44 02 00 00 00 02 '.H.....'.D.....
02E650: 27 00 49 02 00 00 00 02 27 00 45 02 00 00 00 02 '.I.....'.E.....
02E660: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E670: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E680: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E690: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E6A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E6B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E6C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E6D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E6E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E6F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E700: 4B 21 C5 4A CD 72 06 2A 0E 4B 3A 15 4B 85 3C 6F K!.J.r.*.K:.K.<o
02E710: 22 0E 4B F1 C9 3A 54 01 4F 22 C1 4A 11 0C 00 19 ".K..:T.O".J....
02E720: 7E B9 D2 2D 49 3A 0E 4B 86 B9 DA 40 49 3A 10 4B ~..-I:.K...@I:.K
02E730: B7 CA 36 49 37 C9 3E 01 32 10 4B 37 F5 C3 42 49 ..6I7.>.2.K7..BI
02E740: 3F F5 7E 32 15 4B 2A 0E 4B 44 4D 11 C5 4A 21 C1 ?.~2.K*.KDM..J!.
02E750: 4A CD 72 06 2A 0E 4B 3A 15 4B 85 3C 6F 22 0E 4B J.r.*.K:.K.<o".K
02E760: F1 C9 3A 54 01 4F 06 00 11 0C 00 19 7E B9 D2 79 ..:T.O......~..y
02E770: 49 3A 0E 4B 86 B9 DA 9E 49 3A 10 4B B7 CA 82 49 I:.K....I:.K...I
02E780: 37 C9 E5 3E 2D 21 21 4B CD FA 36 21 21 4B 79 CD 7..>-!!K..6!!Ky.
02E790: BB 36 36 00 E1 37 F5 7E 32 15 4B C3 B1 49 3F F5 .66..7.~2.K..I?.
02E7A0: E5 7E 32 15 4B 4F 06 00 3E 2D 21 21 4B CD FA 36 .~2.KO..>-!!K..6
02E7B0: E1 11 F4 FF 19 11 21 4B 7E B7 CA C3 49 12 23 13 ......!K~...I.#.
02E7C0: C3 B8 49 21 21 4B 3A 15 4B CD BB 36 36 00 2A 0E ..I!!K:.K..66.*.
02E7D0: 4B 44 4D 11 21 4B 21 C5 4A CD 72 06 2A 0E 4B 3A KDM.!K!.J.r.*.K:
02E7E0: 15 4B 85 3C 6F 22 0E 4B F1 C9 D5 3A 11 4B 6F 26 .K.<o".K...:.Ko&
02E7F0: 00 29 29 29 29 EB 3A 14 4B B7 C2 03 4A CD E3 1C .)))).:.K...J...
02E800: C3 06 4A 21 20 4C 19 D1 C9 C5 D5 01 10 27 CD 2C ..J! L.......'.,
02E810: 4A 01 E8 03 CD 2C 4A 01 64 00 CD 2C 4A 01 0A 00 J....,J.d..,J...
02E820: CD 2C 4A 01 01 00 CD 2C 4A D1 C1 C9 D5 16 2F 14 .,J....,J...../.
02E830: 7D 91 6F 7C 98 67 D2 2F 4A 09 7A D1 12 13 C9 3E }.o|.g./J.z....>
02E840: FF 32 6F 44 C3 4C 4A 3E 01 C3 4F 4A CD AC 06 3A .2oD.LJ>..OJ...:
02E850: 0A 4B 32 57 44 3E 01 21 00 45 C3 C7 3B 00 00 0B .K2WD>.!.E..;...
02E860: 35 4E 43 4F 50 59 52 49 47 48 54 20 20 4E 3A 01 5NCOPYRIGHT N:.
02E870: 4F 3C 28 43 29 20 31 39 38 32 20 20 20 4A 04 78 O<(C) 1982 J.x
02E880: 32 01 52 53 50 2C 20 49 4E 43 20 20 20 F6 4E C3 2.RSP, INC .N.
02E890: 09 49 29 02 00 29 82 4A 0B 35 29 82 4A 2F 02 00 .I)..).J.5).J/..
02E8A0: 35 CD F5 4B 7E FE 1A C2 B4 4A 36 0D 23 36 0A 23 5..K~....J6.#6.#
02E8B0: 36 1A 2B 2B 23 23 22 FD 4E 7E FE 1A C2 CE 4A 36 6.++##".N~....J6
02E8C0: 0D 23 36 00 00 00 00 00 00 20 00 20 20 20 20 20 .#6...... .
02E8D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02E8E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02E8F0: 20 00 46 49 45 4C 44 53 00 52 45 43 4F 52 44 20 .FIELDS.RECORD
02E900: 4D 3D 31 0D 0A 59 0D 0A 4C 49 53 54 45 20 44 45 M=1..Y..LISTE DE
02E910: 53 20 43 48 49 46 46 52 45 53 20 44 27 41 46 46 S CHIFFRES D'AFF
02E920: 41 49 52 45 20 50 41 52 20 50 52 4F 46 45 53 53 AIRE PAR PROFESS
02E930: 49 4F 4E 0D 0A 4E 0D 0A 59 0D 0A 59 0D 0A 50 52 ION..N..Y..Y..PR
02E940: 4F 46 0D 0A 4E 0D 0A 4E 0D 0A 50 72 6F 66 65 73 OF..N..N..Profes
02E950: 73 69 6F 6E 3A 0D 0A 31 34 2C 4E 4F 4D 0D 0A 3C sion:..14,NOM..<
02E960: 4E 6F 6D 20 64 75 20 43 6C 69 65 6E 74 3B 3D 3D Nom du Client;==
02E970: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 0D 0A 31 32 2C ===========..12,
02E980: 50 52 45 4E 4F 4D 0D 0A 3C 50 72 65 6E 6F 6D 3B PRENOM..<Prenom;
02E990: 3D 3D 3D 3D 3D 3D 0D 0A 31 32 2C 56 49 4C 4C 45 ======..12,VILLE
02E9A0: 0D 0A 3C 56 69 6C 6C 65 3B 3D 3D 3D 3D 3D 0D 0A ..<Ville;=====..
02E9B0: 31 36 2C 54 45 4C 0D 0A 54 65 6C 65 70 68 6F 6E 16,TEL..Telephon
02E9C0: 65 3B 3D 3D 3D 3D 3D 3D 3D 3D 3D 0D 0A 31 35 2C e;=========..15,
02E9D0: 56 45 4E 54 45 0D 0A 3E 50 72 69 78 20 56 65 6E VENTE..>Prix Ven
02E9E0: 74 65 20 48 54 3B 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D te HT;==========
02E9F0: 3D 3D 3D 0D 0A 59 0D 0A 0D 0A 0D 0A 1A 1A 73 65 ===..Y........se
02EA00: 6C 65 63 74 20 70 72 69 6D 61 72 79 0D 0A 73 74 lect primary..st
02EA10: 6F 72 65 20 27 74 27 20 74 6F 20 74 65 73 74 0D ore 't' to test.
02EA20: 0A 65 6E 64 64 6F 0D 0A 72 65 74 75 72 6E 0D 0A .enddo..return..
02EA30: 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 1A 1A 65 20 ..............e
02EA40: 63 68 6F 69 78 3D 27 36 27 20 2E 6F 72 2E 20 63 choix='6' .or. c
02EA50: 68 6F 69 78 20 3D 20 27 37 27 0D 0A 64 6F 20 64 hoix = '7'..do d
02EA60: 65 6D 6C 69 73 74 0D 0A 63 61 73 65 20 63 68 6F emlist..case cho
02EA70: 69 78 20 3D 20 27 38 27 0D 0A 73 74 6F 72 65 20 ix = '8'..store
02EA80: 27 43 27 20 74 6F 20 65 6C 65 6D 0D 0A 64 6F 20 'C' to elem..do
02EA90: 6C 69 73 74 65 6C 65 6D 0D 0A 72 65 6C 65 61 73 listelem..releas
02EAA0: 65 20 6E 6F 6D 61 66 66 0D 0A 63 61 73 65 20 63 e nomaff..case c
02EAB0: 68 6F 69 78 20 3D 20 27 39 27 0D 0A 73 74 6F 72 hoix = '9'..stor
02EAC0: 65 20 27 4C 27 20 74 6F 20 65 6C 65 6D 0D 0A 64 e 'L' to elem..d
02EAD0: 6F 20 6C 69 73 74 65 6C 65 6D 0D 0A 72 65 6C 65 o listelem..rele
02EAE0: 61 73 65 20 6E 6F 6D 61 66 66 0D 0A 63 61 73 65 ase nomaff..case
02EAF0: 20 21 28 63 68 6F 69 78 29 3D 27 41 27 0D 0A 73 !(choix)='A'..s
02EB00: 23 20 3A 30 30 30 30 30 00 43 20 20 20 F6 4E C3 # :00000.C .N.
02EB10: 09 49 29 02 00 29 82 4A 0B 35 29 82 4A 2F 02 00 .I)..).J.5).J/..
02EB20: 35 CD F5 4B 7E FE 1A C2 B4 4A 36 0D 23 36 0A 23 5..K~....J6.#6.#
02EB30: 36 1A 2B 2B 23 23 22 FD 4E 7E FE 1A C2 CE 4A 36 6.++##".N~....J6
02EB40: 0D 23 36 00 00 00 00 00 00 20 00 20 20 20 20 20 .#6...... .
02EB50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02EB60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02EB70: 20 00 46 49 45 4C 44 53 00 52 45 43 4F 52 44 20 .FIELDS.RECORD
02EB80: A1 2C 11 E9 4E CD 08 4D CD B2 2C 11 E6 4E CD 08 .,..N..M..,..N..
02EB90: 4D CD A1 2C 11 07 4F CD 08 4D CD B2 2C C3 B9 4B M..,..O..M..,..K
02EBA0: 3A F1 4E B7 FA AD 4B CD 40 27 CD 45 25 3A 10 4F :.N...K.@'.E%:.O
02EBB0: CD 40 27 CD 45 25 CD 03 27 CD 61 27 3A FA 4E 32 .@'.E%..'.a':.N2
02EBC0: 57 44 CD AC 06 C3 2C 4E 2B 7E FE 0A C2 D0 4B 2B WD....,N+~....K+
02EBD0: 2B 7E FE 0D C2 D0 4B 23 7E FE 0A C0 23 C9 CD 68 +~....K#~...#..h
02EBE0: 27 0E 0C 3E 2E CD 13 37 23 22 05 4F 11 07 4F 0E '..>...7#".O..O.
02EBF0: 03 CD 78 38 C9 C5 E5 3A 0B 4F 4F 06 00 3E 20 21 ..x8...:.OO..> !
02EC00: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02EC10: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02EC20: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02EC30: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02EC40: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02EC50: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02EC60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02EC70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02EC80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02EC90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02ECA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02ECB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02ECC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02ECD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02ECE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02ECF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02ED00: 69 6D 61 72 79 0D 0A 20 20 20 75 73 65 20 26 66 imary.. use &f
02ED10: 72 65 66 20 69 6E 64 65 78 20 26 78 63 6C 65 0D ref index &xcle.
02ED20: 0A 20 20 20 67 6F 74 6F 20 74 6F 70 0D 0A 20 20 . goto top..
02ED30: 20 69 66 20 63 68 6F 69 78 20 23 20 27 35 27 0D if choix # '5'.
02ED40: 0A 20 20 20 40 20 6C 69 67 6D 31 2C 30 20 73 61 . @ ligm1,0 sa
02ED50: 79 20 27 6D 65 74 74 72 65 20 6C 61 20 70 72 65 y 'mettre la pre
02ED60: 6D 69 65 72 65 20 7A 6F 6E 65 20 61 20 62 6C 61 miere zone a bla
02ED70: 6E 63 20 6F 75 20 30 20 70 6F 75 72 20 61 62 61 nc ou 0 pour aba
02ED80: 6E 64 6F 6E 6E 65 72 20 20 20 20 20 27 0D 0A 20 ndonner '..
02ED90: 20 20 65 6E 64 69 66 0D 0A 20 20 20 73 74 6F 72 endif.. stor
02EDA0: 65 20 31 20 74 6F 20 63 70 74 0D 0A 20 20 20 73 e 1 to cpt.. s
02EDB0: 65 74 20 69 6E 74 65 6E 73 69 74 79 20 6F 66 66 et intensity off
02EDC0: 0D 0A 20 20 20 64 6F 20 77 68 69 6C 65 20 63 70 .. do while cp
02EDD0: 74 3C 3D 6E 62 7A 6F 6E 70 0D 0A 20 20 20 20 20 t<=nbzonp..
02EDE0: 20 73 74 6F 72 65 20 27 6D 7A 6F 6E 27 2D 73 74 store 'mzon'-st
02EDF0: 72 28 6E 6F 7A 2C 31 2B 69 6E 74 28 6E 6F 7A 2F r(noz,1+int(noz/
02EE00: 31 30 29 29 20 74 6F 20 6D 7A 6F 6E 0D 0A 20 20 10)) to mzon..
02EE10: 20 20 20 20 64 6F 20 69 6E 69 74 7A 6F 6E 65 0D do initzone.
02EE20: 0A 20 20 20 20 20 20 69 66 20 74 65 73 74 3D 27 . if test='
02EE30: 64 27 2E 61 6E 64 2E 6E 6F 6D 65 73 73 3D 30 0D d'.and.nomess=0.
02EE40: 0A 20 20 20 20 20 20 20 20 20 69 66 20 76 65 72 . if ver
02EE50: 69 66 20 3D 20 27 4E 41 27 2E 61 6E 64 2E 66 69 if = 'NA'.and.fi
02EE60: 65 6C 64 3A 74 79 70 65 23 27 4E 27 0D 0A 20 20 eld:type#'N'..
02EE70: 20 20 20 20 20 20 20 73 74 6F 72 65 20 74 61 62 store tab
02EE80: 76 2D 27 4E 27 20 74 6F 20 74 61 62 76 0D 0A 20 v-'N' to tabv..
02EE90: 20 20 20 20 20 20 20 20 65 6C 73 65 0D 0A 20 20 else..
02EEA0: 20 20 20 20 20 20 20 73 74 6F 72 65 20 74 61 62 store tab
02EEB0: 76 2D 27 4F 27 20 74 6F 20 74 61 62 76 0D 0A 20 v-'O' to tabv..
02EEC0: 20 20 20 20 20 20 20 20 65 6E 64 69 66 0D 0A 20 endif..
02EED0: 20 20 20 20 20 20 20 20 40 20 6C 74 2C 63 74 20 @ lt,ct
02EEE0: 73 61 79 20 74 65 78 74 65 0D 0A 20 20 20 20 20 say texte..
02EEF0: 20 65 6E 64 69 66 0D 0A 20 20 20 20 20 20 40 20 endif.. @
02EF00: 4B 21 C5 4A CD 72 06 2A 0E 4B 3A 15 4B 85 3C 6F K!.J.r.*.K:.K.<o
02EF10: 22 0E 4B F1 C9 3A 54 01 4F 22 C1 4A 11 0C 00 19 ".K..:T.O".J....
02EF20: 7E B9 D2 2D 49 3A 0E 4B 86 B9 DA 40 49 3A 10 4B ~..-I:.K...@I:.K
02EF30: B7 CA 36 49 37 C9 3E 01 32 10 4B 37 F5 C3 42 49 ..6I7.>.2.K7..BI
02EF40: 3F F5 7E 32 15 4B 2A 0E 4B 44 4D 11 C5 4A 21 C1 ?.~2.K*.KDM..J!.
02EF50: 4A CD 72 06 2A 0E 4B 3A 15 4B 85 3C 6F 22 0E 4B J.r.*.K:.K.<o".K
02EF60: F1 C9 3A 54 01 4F 06 00 11 0C 00 19 7E B9 D2 79 ..:T.O......~..y
02EF70: 49 3A 0E 4B 86 B9 DA 9E 49 3A 10 4B B7 CA 82 49 I:.K....I:.K...I
02EF80: 37 C9 E5 3E 2D 21 21 4B CD FA 36 21 21 4B 79 CD 7..>-!!K..6!!Ky.
02EF90: BB 36 36 00 E1 37 F5 7E 32 15 4B C3 B1 49 3F F5 .66..7.~2.K..I?.
02EFA0: E5 7E 32 15 4B 4F 06 00 3E 2D 21 21 4B CD FA 36 .~2.KO..>-!!K..6
02EFB0: E1 11 F4 FF 19 11 21 4B 7E B7 CA C3 49 12 23 13 ......!K~...I.#.
02EFC0: C3 B8 49 21 21 4B 3A 15 4B CD BB 36 36 00 2A 0E ..I!!K:.K..66.*.
02EFD0: 4B 44 4D 11 21 4B 21 C5 4A CD 72 06 2A 0E 4B 3A KDM.!K!.J.r.*.K:
02EFE0: 15 4B 85 3C 6F 22 0E 4B F1 C9 D5 3A 11 4B 6F 26 .K.<o".K...:.Ko&
02EFF0: 00 29 29 29 29 EB 3A 14 4B B7 C2 03 4A CD E3 1C .)))).:.K...J...
02F000: C3 06 4A 21 20 4C 19 D1 C9 C5 D5 01 10 27 CD 2C ..J! L.......'.,
02F010: 4A 01 E8 03 CD 2C 4A 01 64 00 CD 2C 4A 01 0A 00 J....,J.d..,J...
02F020: CD 2C 4A 01 01 00 CD 2C 4A D1 C1 C9 D5 16 2F 14 .,J....,J...../.
02F030: 7D 91 6F 7C 98 67 D2 2F 4A 09 7A D1 12 13 C9 3E }.o|.g./J.z....>
02F040: FF 32 6F 44 C3 4C 4A 3E 01 C3 4F 4A CD AC 06 3A .2oD.LJ>..OJ...:
02F050: 0A 4B 32 57 44 3E 01 21 00 45 C3 C7 3B 00 00 0B .K2WD>.!.E..;...
02F060: 35 4E 43 4F 50 59 52 49 47 48 54 20 20 4E 3A 01 5NCOPYRIGHT N:.
02F070: 4F 3C 28 43 29 20 31 39 38 32 20 20 20 4A 04 78 O<(C) 1982 J.x
02F080: 32 01 52 53 50 2C 20 49 4E 43 20 20 20 F6 4E C3 2.RSP, INC .N.
02F090: 09 49 29 02 00 29 82 4A 0B 35 29 82 4A 2F 02 00 .I)..).J.5).J/..
02F0A0: 35 CD F5 4B 7E FE 1A C2 B4 4A 36 0D 23 36 0A 23 5..K~....J6.#6.#
02F0B0: 36 1A 2B 2B 23 23 22 FD 4E 7E FE 1A C2 CE 4A 36 6.++##".N~....J6
02F0C0: 0D 23 36 00 00 00 00 00 00 20 00 20 20 20 20 20 .#6...... .
02F0D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02F0E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02F0F0: 20 00 46 49 45 4C 44 53 00 52 45 43 4F 52 44 20 .FIELDS.RECORD
02F100: 0B 64 62 61 73 65 20 6D 65 6E 75 70 00 54 52 41 .dbase menup.TRA
02F110: 49 54 45 4D 45 4E 54 20 64 42 41 53 45 20 49 49 ITEMENT dBASE II
02F120: 20 76 65 72 73 69 6F 6E 20 4C 2E 43 2E 45 20 2A version L.C.E *
02F130: 2A 2A 00 00 00 00 00 00 00 00 00 00 00 00 00 00 **..............
02F140: 0D 0A 2A 2A 2A 20 54 52 4F 50 20 44 45 20 43 4F ..*** TROP DE CO
02F150: 4D 4D 41 4E 44 45 53 20 27 52 45 54 55 52 4E 27 MMANDES 'RETURN'
02F160: 20 52 45 4E 43 4F 4E 54 52 45 45 53 20 2A 2A 2A RENCONTREES ***
02F170: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02F180: 6F 74 6F 20 74 6F 70 0D 0A 73 74 6F 72 65 20 27 oto top..store '
02F190: 20 20 20 20 20 20 20 20 27 20 74 6F 20 6E 6F 6D ' to nom
02F1A0: 66 69 63 68 0D 0A 65 72 61 73 65 0D 0A 40 20 35 fich..erase..@ 5
02F1B0: 2C 35 20 73 61 79 20 27 6E 6F 6D 20 64 75 20 66 ,5 say 'nom du f
02F1C0: 69 63 68 69 65 72 20 73 75 72 20 6C 65 71 75 65 ichier sur leque
02F1D0: 6C 20 76 6F 75 73 20 76 6F 75 6C 65 7A 20 74 72 l vous voulez tr
02F1E0: 61 76 61 69 6C 6C 65 72 27 0D 0A 40 20 35 2C 36 availler'..@ 5,6
02F1F0: 35 20 67 65 74 20 6E 6F 6D 66 69 63 68 20 70 69 5 get nomfich pi
02F200: 63 74 75 72 65 20 27 41 41 41 41 41 41 41 41 27 cture 'AAAAAAAA'
02F210: 0D 0A 40 20 6C 69 67 6D 31 2C 30 20 73 61 79 20 ..@ ligm1,0 say
02F220: 27 74 61 70 65 7A 20 72 65 74 75 72 6E 20 70 6F 'tapez return po
02F230: 75 72 20 61 62 61 6E 64 6F 6E 6E 65 72 27 0D 0A ur abandonner'..
02F240: 72 65 61 64 0D 0A 2A 20 76 65 75 74 2D 6F 6E 20 read..* veut-on
02F250: 72 65 76 65 6E 69 72 20 61 75 20 6D 65 6E 75 20 revenir au menu
02F260: 70 72 69 6E 63 69 70 61 6C 0D 0A 69 66 20 6E 6F principal..if no
02F270: 6D 66 69 63 68 3D 27 20 27 0D 0A 20 20 20 72 65 mfich=' '.. re
02F280: 74 75 72 6E 0D 0A 65 6E 64 69 66 0D 0A 73 74 6F turn..endif..sto
02F290: 72 65 20 21 28 6E 6F 6D 66 69 63 68 29 20 74 6F re !(nomfich) to
02F2A0: 20 6E 6F 6D 66 69 63 68 0D 0A 73 74 6F 72 65 20 nomfich..store
02F2B0: 6E 6F 6D 66 69 63 68 20 74 6F 20 6E 6F 6D 61 66 nomfich to nomaf
02F2C0: 66 0D 0A 6C 6F 63 61 74 65 20 66 6F 72 20 6E 6F f..locate for no
02F2D0: 6D 66 3D 6E 6F 6D 66 69 63 68 0D 0A 69 66 20 6E mf=nomfich..if n
02F2E0: 6F 6D 66 20 23 20 6E 6F 6D 66 69 63 68 20 2E 6F omf # nomfich .o
02F2F0: 72 2E 65 6F 66 0D 0A 20 20 20 73 74 6F 72 65 20 r.eof.. store
02F300: 0B 64 62 61 73 65 20 6D 65 6E 75 70 00 54 52 41 .dbase menup.TRA
02F310: 49 54 45 4D 45 4E 54 20 64 42 41 53 45 20 49 49 ITEMENT dBASE II
02F320: 20 76 65 72 73 69 6F 6E 20 4C 2E 43 2E 45 20 2A version L.C.E *
02F330: 2A 2A 00 00 00 00 00 00 00 00 00 00 00 00 00 00 **..............
02F340: 0D 0A 2A 2A 2A 20 54 52 4F 50 20 44 45 20 43 4F ..*** TROP DE CO
02F350: 4D 4D 41 4E 44 45 53 20 27 52 45 54 55 52 4E 27 MMANDES 'RETURN'
02F360: 20 52 45 4E 43 4F 4E 54 52 45 45 53 20 2A 2A 2A RENCONTREES ***
02F370: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02F380: 31 20 74 6F 20 6E 6F 6D 65 73 73 0D 0A 20 20 20 1 to nomess..
02F390: 20 20 20 20 20 20 64 6F 20 61 66 66 6D 65 73 73 do affmess
02F3A0: 0D 0A 20 20 20 20 20 20 65 6C 73 65 0D 0A 20 20 .. else..
02F3B0: 20 20 20 20 20 20 20 73 74 6F 72 65 20 27 74 27 store 't'
02F3C0: 20 74 6F 20 63 6F 72 72 65 63 74 0D 0A 20 20 20 to correct..
02F3D0: 20 20 20 65 6E 64 69 66 0D 0A 20 20 20 65 6E 64 endif.. end
02F3E0: 64 6F 0D 0A 20 20 20 67 6F 74 6F 20 74 6F 70 0D do.. goto top.
02F3F0: 0A 20 20 20 72 65 70 6C 61 63 65 20 69 6E 74 69 . replace inti
02F400: 74 66 20 77 69 74 68 20 64 61 74 65 2D 75 6E 69 tf with date-uni
02F410: 74 2D 6D 61 74 0D 0A 20 20 20 69 66 20 6D 61 74 t-mat.. if mat
02F420: 20 3D 20 22 36 31 32 38 22 0D 0A 20 20 20 73 74 = "6128".. st
02F430: 6F 72 65 20 32 30 20 74 6F 20 6C 69 67 6D 31 0D ore 20 to ligm1.
02F440: 0A 20 20 20 65 6C 73 65 0D 0A 20 20 20 73 74 6F . else.. sto
02F450: 72 65 20 32 39 20 74 6F 20 6C 69 67 6D 31 0D 0A re 29 to ligm1..
02F460: 20 20 20 65 6E 64 69 66 0D 0A 65 6E 64 69 66 0D endif..endif.
02F470: 0A 72 65 6C 65 61 73 65 20 64 61 74 65 2C 63 6F .release date,co
02F480: 72 72 65 63 74 2C 6D 61 74 0D 0A 75 73 65 0D 0A rrect,mat..use..
02F490: 73 74 6F 72 65 20 27 74 27 20 74 6F 20 74 65 73 store 't' to tes
02F4A0: 74 31 0D 0A 64 6F 20 77 68 69 6C 65 20 74 65 73 t1..do while tes
02F4B0: 74 31 3D 27 74 27 0D 0A 20 20 20 69 66 20 72 65 t1='t'.. if re
02F4C0: 70 72 69 73 65 3D 27 66 27 0D 0A 20 20 20 73 74 prise='f'.. st
02F4D0: 6F 72 65 20 27 46 27 20 74 6F 20 72 65 70 0D 0A ore 'F' to rep..
02F4E0: 20 20 20 65 72 61 73 65 0D 0A 20 20 20 40 20 31 erase.. @ 1
02F4F0: 2C 32 36 20 53 41 59 20 27 47 45 53 54 49 4F 4E ,26 SAY 'GESTION
02F500: 65 20 27 74 27 20 74 6F 20 76 69 64 65 0D 0A 20 e 't' to vide..
02F510: 20 20 20 20 20 65 6E 64 69 66 0D 0A 20 20 20 20 endif..
02F520: 20 20 65 6E 64 63 61 73 65 0D 0A 20 20 20 20 20 endcase..
02F530: 20 69 66 20 76 69 64 65 3D 27 74 27 0D 0A 20 20 if vide='t'..
02F540: 20 20 20 20 72 65 6C 65 61 73 65 20 74 61 62 76 release tabv
02F550: 2C 74 65 73 74 2C 76 69 64 65 2C 63 70 74 2C 63 ,test,vide,cpt,c
02F560: 6C 65 2C 6D 7A 6F 6E 2C 6D 7A 6F 6E 31 2C 6D 7A le,mzon,mzon1,mz
02F570: 6F 6E 32 2C 6D 7A 6F 6E 33 2C 6D 7A 6F 6E 34 2C on2,mzon3,mzon4,
02F580: 6D 7A 6F 6E 35 0D 0A 20 20 20 20 20 20 72 65 74 mzon5.. ret
02F590: 75 72 6E 0D 0A 20 20 20 20 20 20 65 6E 64 69 66 urn.. endif
02F5A0: 0D 0A 20 20 20 20 20 20 73 74 6F 72 65 20 30 20 .. store 0
02F5B0: 74 6F 20 6E 6F 6D 65 73 73 0D 0A 20 20 20 20 20 to nomess..
02F5C0: 20 69 66 20 63 68 6F 69 78 3D 27 31 27 0D 0A 20 if choix='1'..
02F5D0: 20 20 20 20 20 73 74 6F 72 65 20 31 20 74 6F 20 store 1 to
02F5E0: 76 31 0D 0A 20 20 20 20 20 20 73 74 6F 72 65 20 v1.. store
02F5F0: 6E 62 7A 6F 6E 70 20 74 6F 20 76 32 0D 0A 20 20 nbzonp to v2..
02F600: 20 20 20 20 64 6F 20 76 65 72 69 66 0D 0A 20 20 do verif..
02F610: 20 20 20 20 65 6E 64 69 66 0D 0A 20 20 20 20 20 endif..
02F620: 20 69 66 20 6E 6F 6D 65 73 73 23 30 0D 0A 20 20 if nomess#0..
02F630: 20 20 20 20 20 20 20 40 20 6C 69 67 6D 31 2C 30 @ ligm1,0
02F640: 0D 0A 20 20 20 20 20 20 20 20 20 64 6F 20 61 66 .. do af
02F650: 66 6D 65 73 73 0D 0A 20 20 20 20 20 20 65 6C 73 fmess.. els
02F660: 65 0D 0A 20 20 20 20 20 20 20 20 20 73 74 6F 72 e.. stor
02F670: 65 20 27 20 27 20 74 6F 20 63 6C 65 0D 0A 20 20 e ' ' to cle..
02F680: 20 20 20 20 20 20 20 73 65 6C 65 63 74 20 70 72 select pr
02F690: 69 6D 61 72 79 0D 0A 20 20 20 20 20 20 20 20 20 imary..
02F6A0: 75 73 65 20 26 66 72 65 66 20 69 6E 64 65 78 20 use &fref index
02F6B0: 26 78 63 6C 65 0D 0A 20 20 20 20 20 20 20 20 20 &xcle..
02F6C0: 73 74 6F 72 65 20 31 20 74 6F 20 63 70 74 0D 0A store 1 to cpt..
02F6D0: 20 20 20 20 20 20 20 20 20 67 6F 74 6F 20 74 6F goto to
02F6E0: 70 0D 0A 20 20 20 20 20 20 20 20 20 64 6F 20 77 p.. do w
02F6F0: 68 69 6C 65 20 63 70 74 3C 3D 6E 62 7A 6F 6E 70 hile cpt<=nbzonp
02F700: 00 00 00 00 00 00 00 00 00 20 4E 4F 4D 20 20 20 ......... NOM
02F710: 20 20 20 20 43 20 31 32 20 20 30 20 33 20 37 4E C 12 0 3 7N
02F720: 6F 6D 3A 20 20 20 20 20 20 20 20 20 20 20 20 20 om:
02F730: 20 20 20 20 33 31 32 4E 41 20 20 20 20 20 20 20 312NA
02F740: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02F750: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02F760: 20 20 20 20 20 20 20 20 20 20 20 20 31 20 50 52 1 PR
02F770: 45 4E 4F 4D 20 20 20 20 43 20 31 32 20 20 30 20 ENOM C 12 0
02F780: 33 32 36 50 72 7B 6E 6F 6D 3A 20 20 20 20 20 20 326Pr{nom:
02F790: 20 20 20 20 20 20 20 20 33 33 34 4E 41 20 20 20 334NA
02F7A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02F7B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02F7C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02F7D0: 32 20 44 45 52 56 49 53 49 54 45 20 43 20 20 38 2 DERVISITE C 8
02F7E0: 20 20 30 31 36 35 33 44 65 72 6E 69 7D 72 65 20 01653Derni}re
02F7F0: 56 69 73 69 74 65 3A 20 20 20 20 31 36 37 30 4E Visite: 1670N
02F800: 44 20 20 20 20 20 20 20 20 20 20 30 30 2F 30 30 D 00/00
02F810: 2F 30 30 20 20 20 20 20 20 20 20 20 20 20 20 20 /00
02F820: 20 20 20 20 20 20 20 20 20 30 30 2F 30 30 2F 30 00/00/0
02F830: 30 20 20 20 33 20 50 52 4F 56 49 53 49 54 45 20 0 3 PROVISITE
02F840: 43 20 20 38 20 20 30 31 38 35 32 50 72 6F 63 68 C 8 01852Proch
02F850: 61 69 6E 65 20 56 69 73 69 74 65 3A 20 20 20 31 aine Visite: 1
02F860: 38 37 30 4E 44 20 20 20 20 20 20 20 20 20 20 30 870ND 0
02F870: 30 2F 30 30 2F 30 30 20 20 20 20 20 20 20 20 20 0/00/00
02F880: 20 20 20 20 20 20 20 20 20 20 20 20 20 30 30 2F 00/
02F890: 30 30 2F 30 30 20 20 20 34 20 4C 49 45 55 20 20 00/00 4 LIEU
02F8A0: 20 20 20 20 43 20 20 31 20 20 30 32 30 35 36 4C C 1 02056L
02F8B0: 69 65 75 20 28 42 2C 44 2C 4E 29 3A 20 20 20 20 ieu (B,D,N):
02F8C0: 20 20 20 32 30 37 30 4E 4C 20 20 20 20 20 20 20 2070NL
02F8D0: 20 20 20 42 2C 44 2C 4E 20 20 20 20 20 20 20 20 B,D,N
02F8E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02F8F0: 20 20 20 20 20 20 20 20 20 20 20 20 35 20 42 45 5 BE
02F900: 4F 66 66 73 65 74 2D 49 6E 66 6F 0D 0A 00 00 C2 Offset-Info.....
02F910: 18 92 00 22 03 B3 05 43 08 D3 0A 63 0D F3 0F 83 ..."...C...c....
02F920: 12 13 15 C1 18 92 00 21 03 B1 05 42 08 D1 0A 61 .......!...B...a
02F930: 0D F0 0F 80 12 10 15 AF 18 91 00 21 03 B1 05 38 ...........!...8
02F940: 08 C8 0A 50 0D E0 0F 70 12 00 15 C1 18 92 00 22 ...P...p......."
02F950: 03 B1 05 41 08 D2 0A 62 0D F3 0F 83 12 13 15 C0 ...A...b........
02F960: 18 91 00 21 03 B2 05 42 08 D2 0A 63 0D F3 0F 82 ...!...B...c....
02F970: 12 12 15 C0 18 91 00 21 03 B1 05 41 08 D1 0A 61 .......!...A...a
02F980: 0D F0 0F 80 12 10 15 C1 18 92 00 22 03 B1 05 42 ..........."...B
02F990: 08 D1 0A 61 0D F1 0F 81 12 11 15 C1 18 92 00 22 ...a..........."
02F9A0: 03 B2 05 42 08 D2 0A 62 0D F2 0F 83 12 14 15 C0 ...B...b........
02F9B0: 18 92 00 22 03 B3 05 44 08 D4 0A 64 0D F4 0F 84 ..."...D...d....
02F9C0: 12 14 15 C0 18 92 00 22 03 B2 05 42 08 D2 0A 62 ......."...B...b
02F9D0: 0D F1 0F 81 12 11 15 BD 18 90 00 21 03 B0 05 40 ...........!...@
02F9E0: 08 D0 0A 60 0D EF 0F 7F 12 0F 15 BE 18 91 00 20 ...`...........
02F9F0: 03 B0 05 40 08 D0 0A 60 0D F0 0F 80 12 11 15 BD ...@...`........
02FA00: 18 91 00 21 03 B1 05 41 08 D2 0A 62 0D F2 0F 83 ...!...A...b....
02FA10: 12 13 15 BE 18 91 00 20 03 B1 05 41 08 D1 0A 61 ....... ...A...a
02FA20: 0D F1 0F 81 12 10 15 BE 18 90 00 20 03 B0 05 40 ........... ...@
02FA30: 08 CF 0A 5F 0D EF 0F 7E 12 0F 15 BC 18 90 00 21 ..._...~.......!
02FA40: 03 B0 05 40 08 CF 0A 5F 0D EF 0F 7F 12 0F 15 BC ...@..._........
02FA50: 18 91 00 20 03 B1 05 40 08 D0 0A 60 0D F1 0F 82 ... ...@...`....
02FA60: 12 12 15 BC 18 91 00 21 03 B1 05 42 08 D3 0A 63 .......!...B...c
02FA70: 0D F3 0F 82 12 12 15 BD 18 90 00 20 03 B1 05 40 ........... ...@
02FA80: 08 D0 0A 60 0D F0 0F 80 12 0F 15 BC 18 90 00 20 ...`...........
02FA90: 03 AF 05 40 08 CF 0A 5F 0D EF 0F 7E 12 0E 15 AB ...@..._...~....
02FAA0: 18 90 00 18 03 A7 05 2F 08 BF 0A 4F 0D DF 0F 6F ......./...O...o
02FAB0: 12 00 15 BC 18 90 00 20 03 B0 05 40 08 D1 0A 61 ....... ...@...a
02FAC0: 0D F2 0F 82 12 12 15 BB 18 90 00 20 03 B1 05 41 ........... ...A
02FAD0: 08 D1 0A 61 0D F0 0F 81 12 10 15 A9 18 91 00 20 ...a...........
02FAE0: 03 B0 05 41 08 D0 0A 60 0D E6 0F 75 12 FC 14 90 ...A...`...u....
02FAF0: 18 90 00 18 03 A7 05 2E 08 BF 0A 45 0D CC 0F 54 ...........E...T
02FB00: 12 E5 14 A1 18 8F 00 1F 03 AF 05 3F 08 CF 0A 57 ...........?...W
02FB10: 0D E8 0F 6F 12 FF 14 75 18 90 00 18 03 A0 05 27 ...o...u.......'
02FB20: 08 AE 0A 3E 0D C4 0F 4A 12 D2 14 6C 18 90 00 17 ...>...J...l....
02FB30: 03 9E 05 26 08 AD 0A 34 0D BA 0F 41 12 C8 14 6C ...&...4...A...l
02FB40: 18 90 00 17 03 9E 05 26 08 AC 0A 33 0D BA 0F 41 .......&...3...A
02FB50: 12 C8 14 6B 18 8F 00 17 03 9F 05 26 08 AE 0A 35 ...k.......&...5
02FB60: 0D BD 0F 44 12 CB 14 6B 18 8F 00 17 03 9F 05 26 ...D...k.......&
02FB70: 08 AD 0A 33 0D BA 0F 41 12 C8 14 6A 18 8F 00 16 ...3...A...j....
02FB80: 03 9D 05 25 08 AC 0A 33 0D BA 0F 41 12 C9 14 6A ...%...3...A...j
02FB90: 18 8F 00 17 03 9F 05 27 08 AF 0A 36 0D BD 0F 43 .......'...6...C
02FBA0: 12 CB 14 6B 18 90 00 19 03 A0 05 27 08 AD 0A 34 ...k.......'...4
02FBB0: 0D BB 0F 42 12 CA 14 69 18 8F 00 16 03 9E 05 26 ...B...i.......&
02FBC0: 08 AC 0A 33 0D B9 0F 3F 12 C6 14 6A 18 90 00 17 ...3...?...j....
02FBD0: 03 9F 05 25 08 AC 0A 32 0D B9 0F 40 12 C8 14 69 ...%...2...@...i
02FBE0: 18 8F 00 16 03 9E 05 26 08 AC 0A 34 0D BB 0F 43 .......&...4...C
02FBF0: 12 CA 14 68 18 8F 00 17 03 9F 05 26 08 AD 0A 34 ...h.......&...4
02FC00: 0D BA 0F 41 12 C9 14 67 18 8E 00 16 03 9D 05 24 ...A...g.......$
02FC10: 08 AB 0A 32 0D B8 0F 3F 12 C5 14 A5 18 8F 00 16 ...2...?........
02FC20: 03 A6 05 2C 08 BC 0A 4C 0D DC 0F 6C 12 FC 14 00 ...,...L...l....
02FC30: 00 00 00 ...
RESULT OF SEARCH :
PRO=52 CHEA=0 COD=13 MUSI=0 COP=12 GRA=7 WRIT=0 198=8 199=0 STARTER=0 KBI=0 CAAV=0 L.TOURNIER=0
EXTENDED CPC DSK File SAMdisk190122* NAFBGCHDIE!04 d(o&0#!*4(!!Fk Discette
read failure Press any key to restart!4 Cannot find ".EMS" file Press any key
to restart#Z 8! " ++( )8gJO.#EMS PAFBGCHDIE NAFBGCHDIEMENU CMDMENUSEC CMDD
EFZONESCMDGENE CMD DEMLIST CMD SUPELEM CMDVERIF CMD0PICTURE CMDCONFSUP CMDD
EFINDEXCMDAFFMESS CMD$DEMZONE CMD DEFELEM CMDL!"#$%&'()*LISTELEMCMD+,-OPTION CM
D.MODIFCLECMD/liste 7" 12,10 say "liste des cles existantes
8" 13,10 say "liste des listes existantes 9" 15,10 say "autre opti
on A" 16,10 say 'fin menu utilisation courante F'
17,55 SAY "+----------------------+" 18,5 say 'quel traitement voulez-vous ef
fectuer ' 18,55 SAY "I Reponse -- I" 19,55 SAY "+-----------------
-----+" clear get set intensity off 18,69 get choix set intensity on read
store !(cINITZONECMD0RECUP CMD123MENUGEN CMD,45678DEMFICH CMD9MENUP CMD0RSU
PFICH CMDABEXISTCLECMD(CDEFGLISTFICHCMDHIJKDEMCLE CMDLMNOELF DBFPGESTFICHDB
FQREF DBFSVERZONE CMDDTUVWXYZMODIFICHCMDMAJ CMDaPROSPECTDBFbchoix) to ch
oix release test do case case choix '1'.and.choix '4' do existcle case ch
oix '5' erase 1,26 say 'RECHERCHE SUR CLE' do demcle if mnomc#' ' if .
not.eof store # to nocour do existcle else store 17 to
nomess do affmess endif endif release mnomc case choix'6' .or. cho
ix '7' do demlist case choix '8' store 'C' to elem do listelem release no
maff case choix '9' store 'L' to elem do listelem release nomaff case !(ch
oix)'A' sPROSPECTELFdPROSPECTELIeNOM NDXfPROF NDXgVILLE NDXhDBASE CO
MinopqrstuvwxyzPROSPECTNOMjPROSPECTCLEkPROSPECTREFlmDBASE COMDBASEOVRCOMDBASEO
VRCOMDBASEOVRCOM£$$$ SUBPROF FRMTEMP DBFelect secondary use select p
rimary use do option select secondary use select primary use case !(choix
) 'F' return otherwise * afficher un message d'erreur store 1 to nomess do
affmess endcase select primary use select secondary use select primary s
tore 't' to test enddo return e choix'6' .or. choix '7' do deml
ist case choix '8' store 'C' to elem do listelem release nomaff case choix
'9' store 'L' to elem do listelem release nomaff case !(choix)'A' s$$$
SUB* menusec menu gestion des cles store 't' to test store 'F' to choix d
o while test't' erase 1,26 SAY 'GESTION DES CLES DU FICHIER ' 1,54
get nomaff 4,10 say 'quel traitement desirez-vous effectuer' 6,10 say
'creer une cle secondaire ou temporaire 1' 8,10 say "modifier une cle
principale, secondaire " 9,10 say "ou temporaire
2" 11,10 say 'supprimer une cle secondaire ou temporaire 3' 13,
10 say "lis* menu menu utilisation courante store 0 to nocour store 't' to
test do while test't' store 'F' to choix erase 1,26 SAY titremenup 3,10
say 'creation 1' 4,10 say "modification
2" 5,10 say "suppression 3" 6,10 say 'visua
lisation 4' 7,10 say "recherche sur cle
5" 9,10 say "affichage d'une liste a l'ecran 6" 10,10 say "impression d'u
ne NAFBGCHDIEter les cles 4" 15,10 say 'fin g
estion des cles F' 17,45 SAY "+---------------------
-+" 18,45 SAY "I Reponse -- I" 19,45 SAY "+------------------
----+" clear get set intensity off 18,59 get choix set intensit
y on read do case case choix'1'.and.choix'4' store 'C' to
elem do case case choix'1' store 'C' to modif
do defelem ree ligm1,0 store !(mnomzone) to mnomzone s
tore 'f' to correct 7,0 say 'libelle de la zone' 8,0 say 'ligne ou doi
t apparaitre le texte' 9,0 say 'colonne ou doit apparaitre le texte' 1
1,0 say 'ligne ou doit apparaitre la variable' 12,0 say 'colonne ou doit ap
paraitre la variable' 14,0 say 'type de la zone' 15,0 say 'Ccaractere,
Nnumerique,Llogique' 16,0 say 'longueur de la zone' 17,0 say 'nombre d
e decimales' do while correct'f' lease mnomelem case choix'
2' do modifcle case choix'3' do supelem
case choix'4' do listelem endcase release elem ca
se !(choix) 'F' return otherwise * afficher un message d'e
rreur store 1 to nomess do affmess endcase select primary
use select secondary use select primary store 'F' to choix
enddo return 5,40 get mnom ligm1,0 say " 7,45 get mt
exte 8,45 get mlt picture '99' 9,45 get mct picture '99'
11,45 get mls picture '99' 12,45 get mcs picture '99' 15,45 get
mtype 16,45 get mlon picture '999' 17,45 get mdec picture '999'
read store !(mtype) to mtype do case case mlt2.or.m
ltligm1-1 store 21 to nomess do affmess case mct0.or.mct79
store 22 to nomess do affmess case mls2.or.mlsligm1-1
stormf$(nomfich,3,8) dele pack use store 'f' to exist return
et else store 'O' to rep endif
if !(rep)'O' release rep,test,exist,noerr,reprise do ge
ne store 't' to exist store 0 to noerr else
release rep endif endif case choix'2'.and.choix'8'.or.choix'C'
if reprise'f'.and.exist'f' store 49 to nomess do affmess el
se if reprise'f'.ane 21 to nomess do affmess case mcs0.or.m
cs79 store 22 to nomess do affmess case mtype#'C'.and.mtype
#'N'.and.mtype#'L' store 26 to nomess do affmess case mlon1
.or.(mtype'C'.and.mlon254).or.(mtype'N'.and.mlon20) .or.mtype'N'.and.mdec
mlon-2.and.mdec#0 store 23 to nomess do affmess otherwise
store 't' to correct if mtype'L' store 1 to mlon endi
f endcase enddo release correct * defzones definition des zones
du fichier store 1 to longeng use &fref index &xnom,&xcle store 1 to cpt d
o while cpt32.and.longeng 1000 erase 1,26 say 'DEFINITION DES ZONES DU
FICHIER' store ' ' to mnomzone store $(blanc,1,20) to mtexte
store 0 to mlt store 0 to mct store 0 to mls store 0 to mcs s
tore 'C' to mtype store 1 to mlon store 0 to mdec 3,0 say 'taille e
nregistrement '+str(longeng,4) 3,45 say 'nombre de zones '+str( if mlo
n+longeng 1000 store 46 to nomess do affmess else appe
nd blank replace fieldname with mnomzone,texte with mtexte,lt with mlt,ct
with mct,ls with mls,cs with mcs,fieldtype with mtype,fieldlen with mlon, fi
elddec with mdec release mtexte,mlt,mct,mls,mcs store # to nocour
do verzone endif endcase enddo erase store 48 to nomess do af
fmess use release mnomzone,mtype,mlon,mdec,mlt,mct,mls,mcs,nomz,listc,valdeb,v
alfin release cpt-1,2) 6,0 say 'nom de la zone' 6,45 get mnomzone pic
ture 'AAAAAAAAAA' ligm1,0 say 'tapez return pour sortir' read clear
get store !(mnomzone) to mnomzone find &mnomzone do case case #
# 0 store 25 to nomess do affmess case mnomzone' '.and.cpt 1 s
tore 11 to nomess do affmess case mnomzone' ' use release mnomzo
ne,mtype,mlon,mdec,mlt,mct,mls,mcs,nomz,listc,valdeb,valfin release cpt,mtex
te,nocour,longeng return otherwis PAFBGCHDIEpremzone,cpt,mtexte,nocour,
longeng return blank replace fieldnam
e with mnomzone,texte with mtexte,lt with mlt,ct with mct,ls with mls,cs with
mcs,fieldtype with mtype,fieldlen with mlon, fielddec with mdec release
mtexte,mlt,mct,mls,mcs store # to nocour do verzone endif
endcase enddo erase store 48 to nomess do affmess use release mnomzone,mty
pe,mlon,mdec,mlt,mct,mls,mcs,nomz,listc,valdeb,valfin release premzone,cpt,mle
structure store nomfich-'.eli' to xele 'le fichier '+$(xele,3,12)+' va etre c
ree sur '+unit index on typelem+nomelem to &xele do defindex return
)'O' release rep,test,exist,noerr,reprise do gene
store 't' to exist store 0 to noerr else release
rep endif endif case choix'2'.and.choix'8'.or.choix'C' if rep
rise'f'.and.exist'f' store 49 to nomess do affmess else
if reprise'f'.an to mzon4 store 'FIN '+val3 to mzon5 case $(verif
,2,1)'L' store 'LISTE DE CODES' to mzon3 store val2 to mzon4
store ' ' to mzon5 otherwise store ' ' to mzon3 store ' '
to mzon4 store ' ' to mzon5 endcase lig+2,0 say mzon1+' '+mzon2
lig+2,28 say mzon3+' '+mzon4+' '+mzon5 store lig+4 to lig skip
if eof 'nombre de zones ',cpt,' taille enregist
rement',longeng if rep'N' * demlist demande le nom de la liste a
afficher select primary use &fele index &xele erase store 'f' to correct
do while correct'f' store ' ' to mnoml 6,5 say 'nom de la liste'
6,30 get mnoml ligm1,0 say 'tapez return pour quitter' read c
lear get if mnoml ' ' release mnoml,correct,cle,expf return end
if ligm1,0 store !(mnoml) to mnoml store 'L'-mnoml to cle find
&cle if # 0 store 7 to nomess do affmess * gene generatio
n de fichier erase 1,26 say 'GENERATION DU FICHIER ' 1,54 get nomaff cle
ar get store $(blanc,1,30) to mintitf store $(blanc,1,30) to mtitref 6,5 say
'intitule du fichier' 6,30 get mintitf read clear get store 'f' to correct
do while correct'f' 7,5 say 'titre menu principal' 7,30 get mtitref
read clear get if mtitref' ' store 35 to nomess do aff
mess else store 't' to correct endif enddo release correct * m
ettre aelse store 't' to correct endif enddo do demcle erase stor
e unit+mnoml to mnoml if eof store 19 to nomess do affmess release mnoml,cor
rect,cle,expf return endif if choix'7' set print on chr(13) set
print off report form &mnoml next 65535 &expf to print else do while .n
ot.eof erase report form &mnoml next 10 &expf skip i
f .not.eof "tapez F pour fin liste, n'importe quelle autre touche pour
la suite" else " jour gestfich use gestfich goto top if eof
append blank else locate for nomf$(nomfich,3,8) if nomf $(nomfich
,3,8) insert before blank else append blank endif endif
replace nomf with $(nomfich,3,8),titref with mtitref,intitf with mintitf releas
e mtitref,mintitf * definir la structure du fichier store nomfich-'.ref' to fr
ef 'le fichier '+$(fref,3,12)+' va etre cree sur '+unit use ref copy to &f
ref structure use &fref store nomfich-'.nom' to xnom 'le tapez sur une touch
e pour revenir au menu" endif set console off wait to choix
set console on if !(choix)'F' release mnoml,correct,cle
,expf return endif enddo endif release mnoml,correct,cle,
expf return fichier '+$(xnom,3,12)+' va etre cree sur '+unit
index on fieldname to &xnom store nomfich-'.cle' to xcle 'le fichier '+$(xc
le,3,12)+' va etre cree sur '+unit index on noz to &xcle * definir les zones d
u fichier do defzones * creer le fichier lui-meme erase 'le fichier '+$
(nomfich,3,8)+' va etre cree sur '+unit create &nomfich from &fref * creer le
fichier des index et des listes store nomfich-'.elf' to fele 'le fichier '+$(
fele,3,12)+' va etre cree sur '+unit use elf copy to &fe NAFBGCHDIEelect seco
ndary use select primary use do option select secondary use select primar
y use case !(choix) 'F' return otherwise * afficher un message d'erreur s
tore 1 to nomess do affmess endcase select primary use select secondary us
e select primary store 't' to test enddo return 3" 6,
10 say 'visualisation 4' 7,10 say "recherche sur cle
5" 9,10 say "affichage d'une liste a l'ecran 6" * ve
rif verification d'une zone if choix '4' ligm1,0 say 'recherche en cours.
veuillez patienter... ' else ligm1,0 say 'verification en co
urs. veuillez patienter... ' endif select primary use &fref in
dex &xcle count to nblist if v299 store nblist to v2 endif release nblist
store v1 to cpt store 0 to nomess do while cptv2.and.nomess0 store 'mzon'-str
(cpt,1+int(cpt/10)-int(cpt/20)-int(cpt/30)) to mzon if type(&mzon)'C' store !(
&mzon) to &mzon en* supelem supression d'une liste ou d'une cle erase selec
t primary use &fele index &xele if elem'L' 1,16 say "SUPPRESSION D'UNE LI
STE DU FICHIER " store 7 to nomess store 'nom de la liste' to quest els
e 1,16 say "SUPPRESSION D'UNE CLE DU FICHIER " store 16 to nomess s
tore 'nom de la cle' to quest endif 1,55 get nomaff clear get goto top 5,
10 say quest store 'f' to correct do while correct'f' store ' ' to
mnom 5,40 get mnom ligm1,0 say "dif if $(tabv,cpt,1)"N" store cpt+1
to cpt else store str(cpt,2) to ccpt select primary use &fref index &xcle f
ind &ccpt release ccpt ligm1,0 say 'verification de la zone '+texte+' en cour
s' store 0 to nomess store # to nozone store $(verif,1,1) to ver1 store $(ve
rif,2,1) to ver2 do case case ver2'D' store $(&mzon,7,2)-$(&mzon,4,2)-$(&mzon
,1,2) to valeur1 case ver2'M' store $(&mzon,4,2)-$(&mzon,1,2) to valeur1 othe
rwise store &mzon to valeur1 endcase * verifier pas depassement captapez retu
rn pour abandonner" read ligm1,0 * veut-on sortir if mnom' '
release quest,mnom,correct use return endif store !(m
nom) to mnom * le nom existe-t-il store elem-mnom to mnom find &mno
m if # 0 do affmess else if elem'C'.and.typc'P'
store 18 to nomess do affmess else store 't' to corr
ect endif endif enddo release correct 7,10 say 'libelle' 7,40 s
ay libelem stacite numerique if fieldtype 'N' store '99999999999999999999'
to neuf if fielddec 0 store fieldlen to nbent else store fieldlen-f
ielddec-1 to nbent endif if fielddec 0 store $(neuf,1,nbent) to maxpos
if nbent 1 store '0' to minpos else store '-'-$(neuf,1,nbent-1) to
minpos endif else store $(neuf,1,nbent)-'.'-$(neuf,1,fielddec) to maxp
os if nbent 1 store '-.'-$(neuf,1,fielddec) to minpos else store '-
'-$(neuf,1,nbent-1)-'.'-$(neuf,1,ore $(mnom,2,8) to mnom if elem'L' store u
nit-mnom-'.frm' to mnom else 9,10 say 'ZONE 1 '+zon1+' de '+deb1+'
a '+fin1 10,10 say 'ZONE 2 '+zon2+' de '+deb2+' a '+fin2 11
,10 say 'ZONE 3 '+zon3+' de '+deb3+' a '+fin3 11,10 say 'ZONE 4 '
+zon4+' de '+deb4+' a '+fin4 12,10 say 'ZONE 5 '+zon5+' de '+d
eb5+' a '+fin5 store unit-mnom-'.ndx' to mnom endif * demande de confi
rmation do confsup if !(confirm)'N' release confielddec) to minpos endi
f endif if &mzon&minpos.or.&mzon&maxpos store 133 to nomess store 0
to &mzon endif release neuf,minpos,maxpos,nbent endif if nomess0 if v
erif#"NA" store 'f' to zonevide do case case fieldtype'C' if
&mzon'00/00/00'.and.ver2'D'.or.&mzon'00/00'.and.ver2'M'.or.&mzon ' '.and.v
er2#'D'.and.ver2#'M' store 't' to zonevide endif case fieldtype'N
' if &mzon0 store 't' to zonevide endif endcase firm,quest
,mnom,elem use return endif store '"'-mnom-'"' to nomz if file(&nomz)
dele file &mnom else "le fichier "+$(mnom,3,12)+" n'existe pas sur l'
unite "+unit endif * destruction de la liste ou de la cle dans le fichier
des listes ou des cles delete pack release nomz,mnom,confirm,quest,elem use
return l traitement voulez-vous effectuer ' 18,55 SAY "I Repons
e -- I" 19,55 SAY "+----------------------+" clear get set
intensity off NAFBGCHDIE if ver1#'N' * tester le premier code
do case case ver1'O'.and.zonevide't' store 135 to nomess ca
se ver1'C' store val1 to nomz set index to &xnom find &nomz
store 'mzon'-str(noz,1+int(noz/10)-int(noz/20)-int(noz/30)) to nomz
store 'f' to vide do case case fieldtype'C' if &nomz'00/
00/00'.and.$(verif,2,1)'D'.or.&nomz'00/00' .and.$(verif,2,1)'M'.or.&nomz' '.and
.$(verif,2,1)#'D'.and.$(verif,2,1)#'M' s release finliste,trouve,list
e,posfin endcase if nomess0.and.(ver2'B'.or.ver2'D'.or.ver2'M')
store 'f' to pasfin do case case ver2'D' store
$(val2,7,2)-$(val2,4,2)-$(val2,1,2) to valeur2 store $(val3,7,2)-$(val
3,4,2)-$(val3,1,2) to valeur3 if valeur3'000000' store 't' to
pasfin endif case ver2'M' store $(val2,4,2)-$(val2,1,
2) to valeur2 store $(val3,4,2)-$(val3,1,2) to valeur3 tore 't'
to vide endif case fieldtype'N' if &nomz0 store 't'
to vide endif endcase goto nozone if vide'f'.and.zo
nevide't' store 136 to nomess endif release nomz,vide
case ver1'G'.or.ver1'P' store val1 to nomz set index to &xnom
find &nomz store 'mzon'-str(noz,int(noz/10)+1-int(noz/20)-int(noz/30
)) to nomz do case case ver2'D' store $(&nomz,7,2)-$(&nomz,
4,2)-$(&nomz,1,2 if valeur3'0000' store 't' to pasfin endif
case fieldtype'C' if fieldlen 10 store $(val2,1,fieldl
en) to valeur2 store $(val3,1,fieldlen) to valeur3 else
store $(val2,1,10) to valeur2 store $(val3,1,10) to valeur3
endif if valeur3' ' store 't' to pasfin endif
otherwise store val(val2) to valeur2 store val(val3) to val
eur3 if valeur30 stor) to valeur2 case ver2'M' s
tore $(&nomz,4,2)-$(&nomz,1,2) to valeur2 otherwise store &nomz to
valeur2 endcase goto nozone if valeur1 valeur2.and.ver1'G
' store 137 to nomess endif if valeur1 valeur2.and.ver1'P'
store 138 to nomess endif release nomz,valeur2 endc
ase endif if nomess 0.and.zonevide'f'.and.ver2#'A' do case
case ver2'D'.or.ver2'M' if (&mzon # '00/00/00'.and.e 't' to pasfin
endif endcase if valeur1 valeur2 .or. (valeur1 valeur
3 .and.pasfin'f') store 139 to nomess endif
release valeur2,valeur3,pasfin endif endif endif endif store cp
t+1 to cpt endif enddo ligm1,0 release zonevide,v1,v2,cpt,nozone,ver1,ver2,
valeur1 return if endif
enddo if trouve'f' store 140 to nomess endif release
finlen(&mzon)8).or.(&mzon#'00/00' .and.len(&mzon)5) store val($(&
mzon,1,2)) to j store val($(&mzon,4,2)) to m if len(&mzon)8
store val($(&mzon,7,2)) to an else store 0 to an endif
if m1.or.m12.or.j1.or.j31.or.(m4.or.m6.or.m9.or. m11).and.j30.or.m2.and.j29
.or.(an/4)#int(an/4).and.m2.and.j28 store 102 to nomess endif
endif release j,m,an case ver2'L' store 'f' to finliste
store 'f' * picture preparer le picture de la zone a saisir * rend en s
ortie le picture dans la variable pic * l'enregistrement de fref correspondant
a la zone a ete lu avant l'appel a ce * programme store '9999999999999999999
9' to neuf do case case fieldtype 'N' if fielddec0 store fieldle
n to nbent else store fieldlen-fielddec-1 to nbent endif if f
ielddec 0 store "picture '"-$(neuf,1,nbent)-"'" to pic else s
tore "picture '"-$(neuf,1,nbent)-"."-$(to trouve store trim(val2) to list
e do while finliste'f'.and.trouve'f' store (',',liste)-1 to posfin
if posfin 0 store 30 to posfin store 't' to finliste
endif if valeur1$(liste,1,posfin).and.len(trim(valeur1))len($(liste,1
,posfin)) store 't' to trouve else if finliste'f'
store $(liste,posfin+2,30) to liste endif endif enddo
if trouve'f' store 140 to nomess endif NAFBGCHDIEneuf,1
,fielddec)-"'" to pic endif release nbent case $(verif,2,1)'D' s
tore " picture '99/99/99'" to pic case $(verif,2,1)'M' store " picture '
99/99'" to pic otherwise store ' ' to pic endcase release neuf return
SAY "I Reponse -- I" 19,45 SAY "+-----------------
-----+" clear get set intensity off 18,59 get rep s
et intensity on read store !(rep) to rep else store '1'
to rep endif * affmess affichage d'un message * parametre d'entree nomess
nomess no du message ligm1,0 if nomess 100 store texte+'' to mess s
tore nomess-100 to nomess else store ' ' to mess endif do case case nomes
s 1 store mess+' la reponse est incorrecte' to mess case nomess 2 store mes
s+' la date est incorrecte' to mess case nomess 3 store "l'enregistrement exi
ste deja" to mess case nomess 4 store "l'enregistrement n'existe pas" to mess
case nomess 5 store "il y a plus d* confsup demande la confirmation d'une de
mande de suppression store 't' to test do while test't' store 'N' to confir
m ligm1,0 say ' voulez-vous toujours la suppression '
ligm1+1,0 say ' tapez O pour oui, N pour non ' set intensity
off ligm1+1,49 get confirm set intensity on read if !(confirm) # 'N'.and.!
(confirm) # 'O' store 8 to nomess do affmess else ligm1,0 ligm1+1,0 retu
rn endif enddo d.rep2#'M'.ane 15 listes creees. faite
s le menage" to mess case nomess 6 store "cette liste existe deja" to mess c
ase nomess 7 store "cette liste n'existe pas" to mess case nomess 8 store "
reponse incorrecte - seules reponses admises O ou N" to mess case nomess 9 st
ore "il y a plus de 15 cles creees . faites le menage" to mess case nomess 10
store "cette cle existe deja" to mess case nomess 11 store "la premiere zone
doit obligatoirement etre renseignee" to mess case nomess 12 store "la zone.
and.typindex#'T' store 1 to nomess do affmess
else store 't' to correct endif enddo endif
10,15 say 'nom zone' if typindex # 'P' 10,30 say 'debut'
10,40 say 'fin' if modif # 'M' ligm1,0 say 'tapez return dan
s la premiere zone pour abandonner' endif endif select secondary
use &fref index &xnom goto top store 0 to longcle store 'f' to f
inzone store ' ' to cle "+&mzon+" n'existe pas" to mess case nomess 13 s
tore "la zone "+&mzon+" n'est pas alphabetique" to mess case nomess 14 store
"position debut incorrecte - longueur de la zone "+str(fieldlen,3) to mess
case nomess 15 store "position fin incorrecte - longueur de la zone "+str
(fieldlen,3) to mess case nomess 16 store "cette cle n'existe pas" to mess
case nomess 17 store "aucun enregistrement trouve" to mess case nomess 18
store "cle principale - elle ne peut etre suppr* defindex definition des index p
rincipal et secondaires erase store 'C' to elem store 'P' to typindex stor
e 'G' to modif do defelem store mnomelem to listindex release mnomelem store
1 to cpt do while cpt15 erase store 'N' to rep 3,5 say 'voulez-vous defini
r un nouvel index secondaire' 4,5 say 'Ooui, Nnon ' set intensity off 4
,28 get rep set intensity on read do case case !(rep)'O' erase store 'G' t
o modif store 'S' to typindex do defelem if mnomelem # ' ' imee" to mess ca
se nomess 19 store "rien a lister" to mess case nomess 20 store "le fichier
"+$(nomfich,3,8)+" a deja ete genere" to mess case nomess 21 store "le numer
o de ligne doit etre compris entre 2 et "+str(ligm1-1,2) to mess case nomess 2
2 store "le numero de colonne doit etre compris entre 0 et 79" to mess case no
mess 23 store "longueur de zone ou nombre de decimales incorrect" to mess cas
e nomess 24 store "la definition d'un index principal est obligatoire" to mess
case nostore listindex+','+mnomelem to listindex store cpt+1 to cpt endif r
elease mnomelem case !(rep)'N' release rep,elem,typindex,modif,cpt return ot
herwise store 1 to nomess do affmess endcase enddo release rep,elem,typinde
x,modif,cpt return erase 'le fichier '+$(nomfich,3,8)+' va etre
cree sur '+unit create &nomfich from &fref * creer le fichier des index et des
listes store nomfich-'.elf' to fele 'le fichier '+$(fele,3,12)+' va etre cre
e sur '+unit use elf copy to &fe NAFBGCHDIEmess 25 store "ce nom existe dej
a" to mess case nomess 26 store "le type est incorrect - seules reponses admi
ses C, N ou L" to mess case nomess 27 store "la zone "+nomz+" n'existe pas" t
o mess case nomess 28 store "la longueur n'est pas celle d'une date - zone a
resaisir " to mess case nomess 29 store "la valeur debut ne peut etre superi
eure a la valeur fin" to mess case nomess 30 store "les deux zones a comparer
n'ont pas le meme type" to mess case nomess 31 store "une zone de mzon5 rel
ease cle,mdeb,mdeb1,mdeb2,mdeb3,mdeb4,mdeb5 release mfin,mfin1,mfin2,mfin3,mfin
4,mfin5 release llong,long1,long2,long3,long4,long5 release cptimax,zon,modif,
typindex,mlibelem,finzone,cpti,ligi,clenom release nomz,nocour,deb,fin return
pparue dans cet index if
typindex 'P' store 1 to cpt2 do while cpt2 cpti-1.and.nom
ess 0 store 'mzon'-str(cpt2,1) to mzonp if &mzon&mzon
p type logique ne peut etre comparee" to mess case nomess 32 sto
re "option non admise pour une zone numerique" to mess case nomess 33 store m
ess+" zone trop grande ou trop petite " to mess case nomess 34 store "une dat
e ou une zone numerique ne peut figurer dans un index qu'en en tier " to mess
case nomess 35 store mess+" la zone doit etre obligatoirement renseignee" to m
ess case nomess 36 store mess+" a renseigner, zone "+val1+" non vide" to mess
case nomess 37 store mess+" doit etr* demzone demande les zones constituant
une cle store 1 to cpt store 14 to lig store ' ' to exp store ' ' to cle
if choix'5' store 'S' to choix endif do while cptp.nbzones store 'p.zo
n'-str(cpt,1) to zone store 'p.deb'-str(cpt,1) to deb store 'p.fin'-str(
cpt,1) to fin store &zone to nomz find &nomz if &fin'F' store
fieldlen to long else store val(&fin) to long endif store lo
ng-val(&deb)+1 to long store 'f' to correct do while corree superieure o
u egale a "+val1 to mess case nomess 38 store mess+" doit etre inferieure ou
egale a "+val1 to mess case nomess 39 store mess+" zone en dehors des bornes"
to mess case nomess 40 store mess+" n'appartient pas la liste de codes" to
mess case nomess 44 store "la liste des codes doit etre non vide" to mess ca
se nomess 45 store "une meme zone ne doit pas apparaitre deux fois dans la cle
principale" to mess case nomess 46 store "la taille de l'enregistrement do
it etre inct'f' store 'mzone' to mzon do initzone if fieldt
ype # 'N' store $(&mzon,1,long) to &mzon endif lig,5 sa
y texte lig,25 get mzone &pic read clear get if fie
ldtype # 'N' store !(mzone) to mzone store $(mzone+$(blanc,1
,long),1,long) to mzone store 't' to correct else sto
re '99999999999999999999' to neuf if fielddec 0 store fi
eldlen to nbent storeferieure a 1000 caracteres" to mess case no
mess 47 store "le nombre de caracteres de la cle doit etre inferieur a 99" to
mess case nomess 48 store "32 zones ont ete creees ou l'enregistrement fait 1
000 caracteres" to mess case nomess 49 store "fichier "+nomfich+" non gere
par l'application gestion de fichiers" to mess case nomess 51 store $(nomfi
ch,3,8)+".ref ou "+$(nomfich,3,8)+".nom ou "+$(nomfich,3,8)+".cle n'est pas su
r la disquette "+unit to mess case nomess 52 store $(n $(neuf,1,nbent) to max
pos if nbent 1 store '0' to minpos el
se store '-'-$(neuf,1,nbent-1) to minpos endif
else store fieldlen-fielddec-1 to nbent store $(
neuf,1,nbent)-'.'-$(neuf,1,fielddec) to maxpos if nbent 1
store '-.'-$(neuf,1,fielddec) to minpos else
store '-'-$(neuf,1,nbent-1)-'.'-$(neuf,1,fielddec) to minpos endi
f omfich,3,8)+".elf ou "+$(nomfich,3,8)+".eli n'est pas sur la disquette "+uni
t to mess case nomess 53 store "le fichier "+$(nomfich,3,8)+" ou l'un de ses
index n'est pas sur la disquette "+unit to mess endcase ligm1,0 say mess
ligm1+1,0 say 'tapez sur une touche pour continuer
' set console off wait set console on ligm1,0 ligm1+1,0 release mes
s return it obligatoirement etre renseigne" to mess case nome
ss 12 store "la zone PAFBGCHDIE endif if mzone&minpos.or.m
zone&maxpos store 33 to nomess do affmess el
se store 't' to correct endif release neuf,nben
t,minpos,maxpos endif enddo do case case fieldtype'N'
store cle+str(mzone,fieldlen,fielddec) to cle store &zone to exp
case $(verif,2,1)'D' store cle+$(mzone,7,2)+$(mzone,4,2)+$(mzone,1,2) t
o cle store exp-'+$('-&zone-',7,2)+$('-&zone-',4,2)+z return pour abandon
ner' endif read clear get ligm1,0 * veut-on sortir if m
nomelem' ' if elem'L'.or.typindex#'P' release correct,nblist,mo
dif,typindex,mlibelem,cle return else store 24 to nom
ess do affmess endif endif if nomess 0 store !(
mnomelem) to mnomelem * le nom existe-t-il deja store elem-mnomele
m to cle find &cle if # # 0 if elem'L' store 6
to no$('-&zone-',1,2)' to exp case $(verif,2,1)'M' store cle+$(mz
one,4,2)+$(mzone,1,2) to cle store exp-'+$('-&zone-',4,2)+$('-&zone-',1,2
)' to exp otherwise store cle+!(mzone) to cle if &deb'1'.an
d.&fin'F' store exp-'+!('-&zone-')' to exp else store
exp-'+!($('-&zone-','-&deb-','-str(long,3)-'))' to exp endif endcase
store cpt+1 to cpt store lig+1 to lig enddo store $(cle,2,len(cle)-1)
to cle if fieldtype'N' if cmess else store 10 to nomes
s endif do affmess else store 't' to correc
t endif endif enddo release correct endif store $(blanc,1,30) to
mlibelem 6,10 say 'libelle explicite ' 6,40 get mlibelem read if elem'L'
append blank replace typelem with 'L',nomelem with mnomelem,libelem with
mlibelem use select secondary use &nomfich "En cas extreme
, vous pouvez stopper l'etape suivante du processus de " ptz1 store exp
+'&cle' to expd else store exp+'&cle' to expf endif else if c
ptz1 store exp+'"'+cle+'"' to expd else store exp+'"'+cle+'"' to
expf endif endif if choix 'S' store '5' to choix endif store trim(cl
e) to cle release cpt,lig,zone,deb,fin,long,mzon,mzone,exp,pic return
&zone to exp case $(verif,2,1)'D' store val+$(mz
one,7,2)+$(mzone,4,2)+$(mzone,1,2) to val store exp-'+$('-&zone-',7,2) +
"definition" "au moyen de la touche exit- tapez sur une touche pour continu
er" set console off wait set console on erase store unit+mno
melem to mnomelem report form &mnomelem else if modif'C' 7,10 s
ay 'type de la cle ' 8,10 say '(Ssecondaire,Ttemporaire)'
store 'f' to correct do while correct'f' store 'T' to ty
pindex 8,40 get typindex read clear get
store !(typindex) to* defelem definition d'un index ou d'une liste select pr
imary use &fele index &xele if modif#'M' goto top count for typelemelem to n
blist if nblist 15 if elem'L' erase store 5 to nomess else
store 9 to nomess endif do affmess release modif,nblist return
endif erase if elem'L' 1,8 say "DEFINITION D'UNE NOUVELLE LISTE POUR LE
FICHIER " 5,10 say 'nom de la liste' store ' ' to typindex else do
case case modif'C' 1,8 say "DEFIN typindex if typindex#'S'.a
nd.typindex#'T' store 1 to nomess do affmess
else store 't' to correct endif enddo rele
ase correct endif 10,15 say 'nom zone' if typindex # 'P' 10
,30 say 'debut' 10,40 say 'fin' if modif # 'M' ligm1,0
say 'tapez return dans la premiere zone pour abandonner' endif endif
select secondary use &fref index &xnom goto top store ITION D'U
NE NOUVELLE CLE SUR LE FICHIER" store 'T' to typindex case typindex'P'
1,8 say "DEFINITION DE L'INDEX PRINCIPAL DU FICHIER" case typindex'S'
1,8 say "DEFINITION D'UN INDEX SECONDAIRE SUR LE FICHIER" endcase 5,1
0 say 'nom de la cle' endif 1,60 get nomaff clear get store 'f' to correct
do while correct'f' store 0 to nomess store ' ' to mnomelem
5,40 get mnomelem picture 'AAAAAAAAAA' if elem'L'.or.typindex#'P' ligm
1,0 say 'tape P A F B G C H D I E0 to longcle store 'f' to finzone sto
re ' ' to cle store 1 to cpti store 11 to ligi do while cpti 5.and.
finzone'f' store 'mzon'-str(cpti,1) to mzon store '&'-mzon to clen
om store ' ' to &mzon store 'mdeb'-str(cpti,1) to mdeb
store '1 ' to &mdeb store 'mfin'-str(cpti,1) to mfin store '
F ' to &mfin store 0 to nomess ligi,10 get &mzon if typin
dex # 'P' ligi,30 get &mdeb ligi,40 get store 5
to long case fieldtype'N' store fieldlen to long
otherwise if &mfin 'F' store fieldlen to l
ong else store val(&mfin) to long endi
f store long-val(&mdeb)+1 to long endcase if lo
ng+longcle 99 store 47 to nomess do affmess
endif endcase endif if nomess 0 if finzone'f
' &mfin endif read clear get * controler la vali
dite des zones store !(&mzon) to &mzon store !(&mfin) to &mfin
* la zone est-elle deja apparue dans cet index if typindex 'P'
store 1 to cpt2 do while cpt2 cpti-1.and.nomess 0
store 'mzon'-str(cpt2,1) to mzonp if &mzon&mzonp st
ore 45 to nomess do affmess else st
ore cpt2+1 to cpt2 do case case fieldtype'N'
store cle-'+'-&mzon to cle store 't' to finzone
case $(verif,2,1)'D' store cle-'+$('-&mzon-',7,2)+$('-&mzon
-',4,2)+$('-&mzon -',1,2)' to cle case $(verif,2,1)'M'
store cle-'+$('-&mzon-',4,2)+$('-&mzon-',1,2)' to cle
case val(&mdeb)1.and.&mfin'F' store cle-'+!('-&mzon-')' to cle
otherwise store cle-'+!($('-&mzon-endif enddo
release cpt2,mzonp endif if nomess 0 * la zone
existe-t-elle find &clenom do case case &mzon '
'.and.cpti1 if typindex 'P'.or.modif'M' store 11 to nome
ss do affmess else release modif,nblist,typi
ndex,mlibelem,cle,longcle,finzone,cpti,zon release ligi,mzon,clenom
,mzon1,mdeb,mdeb1,mfin,mfin1,llong,long1 return endif
','-&mdeb-','-str(long,3)-'))' to cle endcase if c
pti1 ligm1,0 endif store longcle+long to
longcle if longcle 99 store 't' to finzone
endif else store cpti-1 to cpti endif
if finzone'f' store cpti+1 to cpti store ligi+1 t
o ligi endif endif enddo release longcle,long store
cpti to cptimax if cptimax case &mzon ' ' store 't' to finzone
case # 0 store 12 to nomess do affmess
* la zone est-elle alphabetique case fieldtype 'L'.or.fieldtype'N'.a
nd.cpti#1 store 13 to nomess do affmess * position
de debut correcte case val(&mdeb) 0.or.val(&mdeb)fieldlen
store 14 to nomess do affmess * position fin correcte
case !(&mfin)#'F'.and.(val(&mfin)val(&mdeb).o6 store 5 to cptimax
endif select primary use &fele index &xele append blank repla
ce typelem with 'C',nomelem with mnomelem, libelem with mlibelem, typc with
typindex store 1 to cpti do while cpticptimax store 'mzon'-str(cp
ti,1) to mzon store 'zon'-str(cpti,1) to zon store 'mdeb'-str(cpti
,1) to mdeb store 'deb'-str(cpti,1) to deb store 'mfin'-str(cpti,1
) to mfin store 'fin'-str(cpti,1) to fin replace &zon with &mzon,&
r.val(&mfin) fieldlen) store 15 to nomess do affme
ss case $(verif,2,1)'D'.and.(val(&mdeb)#1.or.(val(&mfin)#8.and.&mfin
#'F')).or.$(verif,2,1)'M'.and.(val(&mdeb)#1.or.(val(&mfin)#5.and.&mfin#'F')). o
r.fieldtype'N'.and.(val(&mdeb)#1.or.(val(&mfin)#fieldlen.and.&mfin#'F'))
store 34 to nomess do affmess otherwise do case
case $(verif,2,1)'D' store 8 to long cas
e $(verif,2,1)'M' NAFBGCHDIEdeb with &mdeb,&fin with &mfin * mettre a
jour noz dand .ref if typindex 'P' select secondary
use &fref index &xnom store '&'-mzon to nomz find &nomz
store # to nocour set index to &xcle goto nocour
replace noz with cpti endif store cpti+1 to cpti enddo
select primary replace nbzones with cptimax if typindex'P' sel
ect secondary use &fref goto top store cp* listelem liste d
es cles ou des listes definies par l'utilisateur select primary use &fele in
dex &xele goto top find &elem if # 0 store 19 to nomess do affmess return
endif erase if elem'L' 1,8 say 'LISTES QUE VOUS AVEZ DEFINIES POUR LE FICH
IER' else 1,8 say 'CLES QUE VOUS AVEZ DEFINIES SUR LE FICHIER' endif store
$(nomfich,3,8) to nomaff 1,60 get nomaff clear get 5,5 say "voulez-vous vot
re liste sur l'imprimante(Ooui,Nnon)" store 'f' to correct do while correct'f'
timax+1 to cpti do while .not.eof if noz0 store #
to nocour set index to &xcle goto nocour replace n
oz with cpti set index to goto nocour store cpti+1
to cpti endif skip enddo endif select second
ary use &nomfich store $(cle,2,len(cle)-1) to cle store unit+mnomele
m to mnomelem index on &cle to &mnomelem set index to &mnomelem use
select primary use endif store 'N' to rep 5,62 get rep read
clear get store !(rep) to rep do case case rep'O' set format
to print set print on store 't' to correct case rep'N' store 't
' to correct otherwise store 1 to nomess do affmess endcase end
do erase if elem'L' 1,8 say 'LISTES QUE VOUS AVEZ DEFINIES POUR LE FICHIER '
+nomaff 3,5 say 'nom liste' 3,50 say 'libelle explicite' store 5 to lig el
se 1,8 say 'CLES QUE VOUS AVEZ DEFINIES SUR LE FICHIER ' if elem'L' 'si vo
tre definition est incorrecte, il faut la supprimer et la ' 'recommencer en en
tier. tapez sur une touche pour continuer' set console off wait set console o
n endif release nblist,mnomc,mlibc,finzone,cpti,ligi,mzon,mzon1,mzon2,mzon3,mz
on4,mzon5 release cle,mdeb,mdeb1,mdeb2,mdeb3,mdeb4,mdeb5 release mfin,mfin1,mf
in2,mfin3,mfin4,mfin5 release llong,long1,long2,long3,long4,long5 release cpti
max,zon,modif,typindex,mlibelem,finzone,cpti,ligi,clenom release nomz,nocour,de
b,fin +nomaff store 3 to lig store 1 to cpt endif do while .not. eof.and.typ
elemelem if elem'L' lig,5 say nomelem lig,35 say libelem
store lig+1 to lig else if cpt 4.and.rep'N' ligm1+1,0
say 'tapez sur une touche pour avoir la suite de la liste' set consol
e off wait set console on store 1 to cpt
ligm1+1,0 store 3 to lig erase 1,8 say 'CLES QU
E VOUS AVEZ DEFINIES SUR LE F return
omess do affmess case $(verif,2,1)'D'.and.(val(&mdeb)#
1.or.(val(&mfin)#8.and.&mfin #'F')).or.$(verif,2,1)'M'.and.(val(&mdeb)#1.or.(va
l(&mfin)#5.and.&mfin#'F')). or.fieldtype'N'.and.(val(&mdeb)#1.or.(val(&mfin)#fi
eldlen.and.&mfin#'F')) store 34 to nomess do affmess
otherwise do case case $(verif,2,1)'D' st
ore 8 to long case $(verif,2,1)'M' ICHIER '+nomaff endif
do case case typc'P' store 'index principal - mise a jour au
tomatique' to comment case typc'S' store 'index secondaire - mise
a jour automatique' to comment otherwise store 'index temporaire -
mise a jour non automatique' to comment endcase lig,0 say '*****
'+nomelem+' '+libelem lig,48 say 'zone 1 '+zon1+' de '+deb1+' a '+fin1
if zon2#' ' lig+1,0 say 'zone 2 '+zon2+' de '+deb2+' a '+fin'L'
9,5 say "la zone doit etre plus grande ou egale a " 10,5 say "une
autre zone G" 11,5 say "la zone doit etre plu
s petite ou egale a " 12,5 say "une autre zone
P" endif do while correct'f' store 'N' to rep 15,5 say "r
eponse " set intensity off 15,25 get rep set intensity on read
store !(rep) to rep do case case rep'N'.or.rep'O' store 't' to c
orr NAFBGCHDIE2 if zon3#' ' lig+1,40 say 'zone 3 '+zon3+' de '+d
eb3+' a '+fin3 if zon4#' ' lig+2,0 say 'zone 4 '+zon4+' de '+deb4
+' a '+fin4 if zon5#' ' lig+2,40 say 'zone 5 '+zon5+' de '+deb5+'
a '+fin5 endif endif endif endif comment
store cpt+1 to cpt store lig+4 to lig endif skip enddo if
rep'N' ligm1,0 say 'tapez sur une touche pour continuer' set console of
f wait set console on else find &mnom if # 0 store 16 to nomess
do affmess else store typc to typindex store 't' to correct if typindex '
P' select secondary use &fref index &xcle goto top do while .not.eof replac
e noz with 0 skip enddo use endif select primary dele pack store 'C' to
elem store $(mnom,2,10) to mnomelem store 'M' to modif do defelem release mn
om,typindex,correct,elem,mnomelem,modif return endif enddo ix'
1' store 'C' to modif do defelem re * pour vider
le buffer chr(13) set print off set format to screen endif releas
e rep,lig,cpt,comment,elem,correct use return store 'index secon
daire - mise a jour automatique' to comment otherwise store 'index
temporaire - mise a jour non automatique' to comment endcase lig
,0 say '***** '+nomelem+' '+libelem lig,48 say 'zone 1 '+zon1+' de '+deb
1+' a '+fin1 if zon2#' ' lig+1,0 say 'zone 2 '+zon2+' de '+deb2+'
a '+fin* initzone initialise une zone de saisie en reprenant la valeur d'un enr
egis- * trement ou en mettant la valeur nulle suivant la variable choix,l'exist
ence * d'un enregistrement courant et l'appartenance ou non a la cle principale
* en entree choix 1creation, 2modification, 3suppression, 4visualisation * 5r
echerche sur cle partie affichage, Srecherche sur cle partie demande cle if (
choix '2'.and.choix'5').and.(noznbzonp.or.nocour # 0) store fieldname to nom
z store 's.'-nomz to n* option programme qui peut etre change par l'utilisat
eur erase 10,10 say "AUCUNE OPTION N'EST ENCORE IMPLEMENTEE" ligm1,0 say
'tapez sur une touche pour revenir au menu' set console off wait set console
on return ,)("f5")" Editer le dernier cran"%(,)("f3")" Editer un nouvel cran
"%(,)("f1")" Editer un fichier existant"%(,)("EXIT")" Quitter"u "" , w(u,) ,
Y,,! ( "e""v""E"omz store &nomz to &mzon else do case case field
type'N' store 0 to &mzon case fieldtype'L' store f to &mzon
case $(verif,2,1)'D' store '00/00/00' to &mzon case $(veri
f,2,1)'M' store '00/00' to &mzon case fieldtype'C' store $(
blanc,1,fieldlen) to &mzon endcase endif release nomz do picture return
rep set intensity on read store !(rep) to rep el
se store '1' to rep endif store !(valdeb) to valdeb
store !(valfin) to valfin endif store 0 to nomess if rep
2'B'.and.mtype'N' if valdeb&minpos.or.valdeb&maxpos store
33 to nomess do affmess else if valfin&minp
os.or.valfin&maxpos store 33 to nomess do affmes
s endif endif endif if rep2'D'.or.rep2'M'
store 1 to cpt do while cpt 2 set talk off set col
on off clear store "B" to unit store "
" to listind store 1 to longen
g erase 1,25 say "RECUPERATION DES DONNEES" 7,0 say "Unite par defaut de vo
s donnees (A, B ou M) " 8,0 say "Nom du fichier a recuperer (Return pour
abandonner) " 11,0 say "Liste des nouveaux index principal et secondaires sep*
modifcle modification d'une cle par supression - creation erase select primar
y use &fele index &xele 1,16 say "MODIFICATION D'UNE CLE DU FICHIER " 1,55
get nomaff clear get goto top 5,10 say 'nom de la cle' store 'f' to correct
do while correct'f' store ' ' to mnom 5,40 get mnom ligm1,0 say 't
apez return pour abandonner' read ligm1,0 * veut-on sortir if mnom' ' rele
ase mnom,correct return endif store !(mnom) to mnom * le nom existe-t-il s
tore 'C'-mnom to mnom N A F B G C H D I Eares par une" 12,0 say "virgule et
precedes de l'unite " 17,0 say "Taille de l'enregistrement avant modification"
store f to correct do while .not.correct store " " to nomfich
7,54 get unit 8,54 get nomfich picture 'AAAAAAAA' 12,33 get listind
17,48 get longeng read clear get store !(unit) to unit store
!(nomfich) to nomfich store !(listind) to listind if nomfich" "
clear quit endif if unit#'A'.and.unit#'B'.and.uni* menugen menu
parametrage store 't' to test do while test't' if choix'F' store 'f
' to reprise erase 1,26 SAY 'PARAMETRAGE DU FICHIER ' 1,54 get nom
aff 3,10 say 'quel traitement desirez-vous effectuer' 5,10 say 'genere
r le fichier 1' 6,10 say "modifier la structure du fichie
r 2" 7,10 say "supprimer le fichier 3" 8,10 say 'l
ister la structure du fichier 4' 9,10 say 'changer unt#'M' 20
,0 say "unite incorrecte - Tapez sur une touche pour continuer" wait
else store '"'-unit-nomfich-'"' to nomcomp if .not.file(&nomcomp)
20,0 say "fichier inexistant sur l'unite indiquee - tapez sur une t
ouche pour continuer" wait else if longeng2.or.longen
g1000 20,0 say "longueur enregistrement incorrecte - tapez sur une
touche pour continuer" wait else store t
to corree option de verification C' 11,10 say "menu gestion des cles
5" 13,10 say "definir une liste 6" 14,10
say 'supprimer une liste 7' 15,10 say "lister les listes
definies 8" 16,10 say 'fin parametrage F'
17,38 SAY "+----------------------+" 18,38 SAY "I Reponse -- I"
19,38 SAY "+----------------------+" clear get set intensity off
ct endif endif endif 20,0 21,0 enddo if unit"A
".or.unit"M" store unit-nomfich to nom1 store "B"-nomfich to nom2 us
e &nom1 index &listind append from &nom2 use else store str(int(107000
/longeng),6) to nb store "'B"-nomfich-".ex1'" to nomcomp1 store "'B"-nomfich-"
.ex2'" to nomcomp2 store "B"-nomfich to nomfich store nomfich-'.ex1' to nom1
store nomfich-'.ex2' to nom2 if file(&nomcomp1) dele file &nom1 endif 'i
nserez disquette sauve 18,52 get choix set intensity on read store
!(choix) to choix endif do case case choix '1' if exist't'
store 20 to nomess do affmess else if file(nomfich)
ligm1,0 say 'attention, deja un fichier sous ce nom sur la ' +'di
squette, il va etre ecrase' ligm1+1,0 say 'voulez-vous continuer la g
eneration' store 'N' to rep set intensity off lig
m1+1,38 get rep set intensity on garde dans B puis appuyez sur une
touche' wait reset if .not.file(&nomcomp2) rename &nomfich to &nom2 end
if use &nom2 if eof return endif store 1 to cpt do while cpt # 0 goto cpt
copy to temp next &nb skip if eof store 0 to cpt else store cpt+val
(nb) to cpt endif use rename &nom2 to &nomfich 'inserez disquette donnees d
ans B puis appuyez sur une touche' wait reset if .not.file(&nomcomp1) ren
ame &nomfich to &nom1 endif use &nom1 append from temp use rename &nom1
read clear get else store 'O' to rep endif
if !(rep)'O' release rep,test,exist,noerr,reprise do g
ene store 't' to exist store 0 to noerr else
release rep endif endif case choix'2'.and.choix'8'.or.choix'C'
if reprise'f'.and.exist'f' store 49 to nomess do affmess e
lse if reprise'f'.and.noerr # 0.and.choix#'2'.and.choix#'3' sto
re noerr to nomess to &nomfich if cpt#0 'inserez disquette sauvegarde dans B
puis appuyez sur une touche' wait reset if .not.file(&nomcomp2) rename &
nomfich to &nom2 endif use &nom2 endif enddo use &nomfich index &listind r
eindex dele file atemp endif clear quit -nomfich-".ex1'" to nomcomp1
store "'B"-nomfich-".ex2'" to nomcomp2 store "B"-nomfich to nomfich store nom
fich-'.ex1' to nom1 store nomfich-'.ex2' to nom2 if file(&nomcomp1) dele f
ile &nom1 endif 'inserez disquette sauve PAFBGCHDIE do affmess
if file(fele).and.file(xele) store 'C' to elem do list
elem release elem endif else do case
case choix'2' do modifich case choix '3' stor
e 'f' to modif do supfich return case choix'C'
store 'f' to correct select primary use &fref index &
xnom erase 1,26 say "CHANGEMENT D'UNE OPTION DE VERIFICATIO
N" f$(nomfich,3,8) replace utilise with ' ' case choix
'7' do supelem case choix'8' do listelem
endcase release elem endcase endif endi
f case !(choix) 'F' return otherwise * afficher un message d'er
reur store 1 to nomess do affmess endcase select primary use
select secondary use select primary store 'F' to choix stor
e 'f' to reprise store 't' 5,5 say 'nom de la zone' do
while correct'f' ligm1,0 say 'tapez return pour abandonner'
store " " to mzon 5,35 get mzon read
store !(mzon) to mzon if mzon ' ' sto
re 't' to correct else find &mzon i
f # 0 store mzon to nomz store 27 to nome
ss do affmess relea* demfich demande sur
quel fichier on veut travailler store 'f' to exist store 0 to noerr select
primary use gestfich goto top store ' ' to nomfich erase 5,5 say 'n
om du fichier sur lequel vous voulez travailler' 5,65 get nomfich picture 'AAA
AAAAA' ligm1,0 say 'tapez return pour abandonner' read * veut-on revenir au
menu principal if nomfich' ' return endif store !(nomfich) to nomfich st
ore nomfich to nomaff locate for nomfnomfich if nomf # nomfich .or.eof sto
re se nomz else store 't' to correct
endif endif enddo release correct
if mzon # ' ' store # to nocour store fieldtype t
o mtype store fieldlen to mlon store fielddec to mdec
do verzone "ATTENTION si vous avez dec
lare cette zone comme date " +"alors qu'elle ne l'etait pas avant
ou vice et versa" 'f' to exist store unit+nomfich to nomfich else
store 't' to exist store unit+nomfich to nomfich store titref to ti
tremenup store nomfich-'.ref' to fref store nomfich-'.nom' to xnom s
tore nomfich-'.cle' to xcle store nomfich-'.elf' to fele store nomfich-'
.eli' to xele * verifier que tous les fichiers sont la store 0 to noerr
if .not.file(nomfich) store 53 to noerr else if .not.(file
(fref).and.file(xcle).and.file(xnom)) store 51 to "si cette zone f
ait partie d'un index, n'oubliez pas de " +"redefinir votre index"
'tapez sur une touche pour continuer' s
et console off wait set console on endif
release mzon,correct,nocour,mtype,mlon,mdec case choix '4'
do listfich case choix'5' do menusec case c
hoix'6'.and.choix'8' store 'L' to elem do case
canoerr else if .not.(file(fele).and.file(xele)) s
tore 52 to noerr else use &fele index &xele
goto top find C store ' ' to listindex d
o while .not.eof.and.noerr0.and.typelem'C' do case
case typc # ' '.and..not.file(unit-nomelem-'.ndx') stor
e 53 to noerr case typc'P' store unit+nome
lem+listindex to listindex se choix'6' * sortir de dbase pour r
emettre le nb de fichiers ouverts a 0 if reprise'f'
select primary use gestfich locate for nomf$(no
mfich,3,8) replace utilise with choix clear
quit to 'dbase menup' endif store ' ' to m
odif do defelem release mnomelem select p
rimary use gestfich locate for nom NAFBGCHDIE
store nomelem to nomindp store nbzones to nbzonp
case typc'S' store listindex+','+unit+nomelem t
o listindex endcase skip enddo
endif endif endif endif return '+deb5+' a '+fin5
endif endif endif endif co
mment store cpt+1 to cpt store lig+4 to lig endif skip en
ddo if rep'N' UE 1986' 2,5 say 'Version 1.1' 9,19 say '+--------
------------------------------------+' 10,19 say " APPLICATION GENERATEUR
DE FICHIER DBASE II " 11,19 say "+----------------------------------------
----+" 15,25 say 'Donnez la date' store 'f' to correct do while cor
rect'f' store date() to date 15,40 get date picture "99/99/99"
read clear get store 0 to nomess if date#"00/00/00"
store val($(date,1,2)) to j storto test enddo return
on read store !(choix) to choix endif do case case choix '1
' if exist't' store 20 to nomess do affmess else if
file(nomfich) ligm1,0 say 'attention, deja un fichier sous ce nom su
r la ' +'disquette, il va etre ecrase' ligm1+1,0 say 'voule
z-vous continuer la generation' store 'N' to rep set intensi
ty off ligm1+1,38 get rep set intensity on e val($(date
,4,2)) to m store val($(date,7,2)) to an if m1.or.m12.or.j1.or.j31
.or.(m4.or.m6.or.m9.or.m11).and.j30 .or.m2.and.j29.or.(an/4)#int(an/4).an
d.m2.and.j28 store 2 to nomess endif endif releas
e j,m,an if nomess 0 store 't' to correct set date t
o &date else do affmess endif enddo 18,11 say "
Materiel que vous utilisez (6128 ou 8256) " store 'f' to correct do wi
f store $(intitf,11,4) to mat locate for utilise # ' ' if utilise # ' '.and..
not.eof store utilise to choix store 't' to reprise store 't' to exi
st store 0 to noerr store nomf to nomaff store unit+nomf to nomfich
store nomfich-'.ref' to fref store nomfich-'.nom' to xnom store nomf
ich-'.cle' to xcle store nomfich-'.elf' to fele store nomfich-'.eli' to
xele else store 'f' to reprise store 'F' to choix erase 1,5 sa
y '-Copyright NVI INFORMATIQhile correct 'f' 18,62 get mat read
clear get if mat # "6128".and. mat # "8256" store 1 to
nomess do affmess else store 't' to correct en
dif enddo goto top replace intitf with date-unit-mat if mat "61
28" store 20 to ligm1 else store 29 to ligm1 endif endif relea
se date,correct,mat use store 't' to test1 do while test1't' if reprise'f
' store 'F' to rep erase 1,26 SAY 'GESTION* menup menu initial s
et talk off set colon off set eject off clear store '
' to blanc store $(blanc,
1,101)+blanc to blanc store 0 to nomess use gestfich * reprendre l'etat coura
nt goto top store $(intitf,1,8) to date set date to &date store $(intitf,9,2
) to unit if $(intitf,11,4)"6128" store 20 to ligm1 else store 29 to ligm1
end DE FICHIER' 3,10 say "L'unite par defaut pour vos donnees est " 3,
55 get unit 5,10 say 'quel traitement desirez-vous effectuer' 7,10 say
'menu parametrage 1' 9,10 say "menu utilisation courante
2" 11,10 say "liste des fichiers 3" 13,10 sa
y "changement de l'unite par defaut 4" 15,10 say "fin application
F" 17,45 SAY "+----------------------+" 18,45 SAY "I Repif
store $(intitf,11,4) to mat locate for utilise # ' ' if utilise # ' '.and..n
ot.eof store utilise to choix store 't' to reprise store 't' to exis
t store 0 to noerr store nomf to nomaff store unit+nomf to nomfich
store nomfich-'.ref' to fref store nomfich-'.nom' to xnom store nomfi
ch-'.cle' to xcle store nomfich-'.elf' to fele store nomfich-'.eli' to x
ele else store 'f' to reprise store 'F' to choix erase 1,5 say
'-Copyright NVI INFORMATIQ NAFBGCHDIEonse -- I" 19,45 SAY "+---
-------------------+" clear get set intensity off 18,59 get rep
set intensity on read store !(rep) to rep else store '1' to rep
endif do case case rep '1' if reprise'f' do demfich
store 'F' to choix endif if nomfich # ' ' release test1,rep
do menugen endif case rep '2' store 'f' to correct do whi
le correct'f' do demfich if nomfich#' ' de unit+nomelem-
'.ndx' to nomz 'le fichier '+nomelem-'.ndx va etre supprime sur '+uni
t else store unit+nomelem-'.frm' to nomz 'le fichier
'+nomelem-'.frm va etre supprime sur '+unit endif dele file &nomz
dele pack enddo release nomz use endif * suppress
ion des fichiers nomfich.* store 1 to cpt do while cpt 6 do case c
ase cpt1 store nomfich-'.dbf' to nomera case cpt2 store fre
f to nomerao case case exist'f' store 49 to nomess
do affmess case noerr#0 store noerr to nomes
s do affmess if file(fele).and.file(xele)
store 'C' to elem do listelem release elem
store 'f' to correct endif otherwise s
tore 't' to correct endcase else store 't' to correct
endif enddo release correc case cpt3 store xnom to
nomera case cpt4 store xcle to nomera case cpt5 sto
re fele to nomera case cpt6 store xele to nomera endcase i
f .not.file(nomera) 'le fichier '+$(nomera,3,12)+" n'existe pas sur "+un
it else 'le fichier '+$(nomera,3,12)+" va etre supprime sur "+unit
dele file &nomera endif store cpt+1 to cpt enddo release nomera,
cpt * suppression du fichier dans gestfich use gestfich locate t if nom
fich # ' ' release nomaff,reprise,exist,noerr,test1,rep do menu endi
f case rep '3' erase 3,10 say 'Les fichiers geres par cette applic
ation sont' store 5 to lig select primary use gestfich * sauter
l'tat courant skip do while .not.eof if lig18 store 5 to
lig ligm1,0 say "tapez sur une touche pour la suite de la liste"
set console off wait set console on erase
3,10 say "for nomf$(nomfich,3,8) dele pack use release modif store 'f' t
o exist return ON2C pDEB2CpFIN2CpZON3C qDEB3
CqFIN3CqZON4C qDEB4CqFIN4CqZON5C !qDEB5C+qFIN5C.qTYPCC1q Les fichiers geres par
cette application sont" endif lig,5 say nomf lig,40 say inti
tf skip store lig+1 to lig enddo ligm1,0 say " tapez sur u
ne touche pour continuer" set console off wait set console on re
lease lig case rep '4' erase store 'f' to correct if ligm120
5,5 say 'Entrez la nouvelle unite par defaut (a ou b) ' else 5,5
say 'Entrez la nouvelle unite par defaut (a,b ou m) ' endif do whi* exis
tcle erase 1,10 say date() do case case choix'1' store ' creation
' to action case choix'2' store ' modification ' to action case c
hoix'3' store ' suppression ' to action case choix'4'.or.choix'5' sto
re ' visualisation ' to action endcase 1,57 get action clear get rele
ase action store 0 to nomess store 'd' to test store ' ' to tabv do while te
st#'f' if nocour # 0.and.choix # '1' select secondary use &nomfich
goto nocour * supfich suppression du fichier et de tous les fichiers ann
exes if modif'f' erase 1,26 say 'SUPPRESSION DU FICHIER ' 1,54
get nomaff clear get do confsup if !(confirm)'N' release conf
irm,modif return endif release confirm endif * suppression des
index et des listes if .not.file(fele) "aucune cle ou liste n'a pu etre re
trouvee" else select primary use &fele goto top do while .
not.eof if typelem'C' stor NAFBGCHDIEendif select primary
use &fref index &xcle goto top if choix # '5' ligm1,0 say 'mett
re la premiere zone a blanc ou 0 pour abandonner ' endif store 1 to
cpt set intensity off do while cptnbzonp store 'mzon'-str(noz,1+i
nt(noz/10)) to mzon do initzone if test'd'.and.nomess0 i
f verif 'NA'.and.fieldtype#'N' store tabv-'N' to tabv else
store tabv-'O' to tabv endif lt,ct say texte
endif endif set exact off endif endi
f if nomess0 ligm1,0 release cle,cpt,nomz,vide,ver2 do
case case choix'1'.or.choix'2'.or.choix'3' do maj store 's
' to test case choix'4'.or.choix'5' if choix'4' store un
it-nomindp to mnomc endif select primary use &fref index &x
cle goto top do while .not.eof store "mzon"-str(noz,1+in
t(noz/10)-int(noz/20)-i endif ls,cs get &mzon &pic store cpt+1
to cpt skip enddo release pic set intensity on if choix
'5' clear get store 0 to nomess else read goto
top store 'f' to vide do case case fieldtype'C' if $
(verif,2,1)'D'.and.mzon1'00/00/00'.or.$(verif,2,1)'M'.and. mzon1'00/00'.or.$(ve
rif,2,1)#'D'.and.$(verif,2,1)#'M'.and.mzon1' ' store 't' to vide e
ndif case fieldtype'N' if mzont(noz/30)) to mzon do init
zone if test'd' lt,ct say texte endif
ls,cs get &mzon &pic skip enddo clear get release
pic,mzon,mzon1,mzon2,mzon3,mzon4,mzon5,mzon6,mzon7,mzon8,mzon9 release m
zon10,mzon11,mzon12,mzon13,mzon14,mzon15,mzon16,mzon17,mzon18 release mzo
n19,mzon20,mzon21,mzon22,mzon23,mzon24,mzon25,mzon26,mzon27 release mzon2
8,mzon29,mzon30,mzon31,mzon32 select primary use sen10
store 't' to vide endif endcase if vide't' rel
ease tabv,test,vide,cpt,cle,mzon,mzon1,mzon2,mzon3,mzon4,mzon5 return
endif store 0 to nomess if choix'1' store 1 to v1
store nbzonp to v2 do verif endif if nomess#0
ligm1,0 do affmess else store ' ' to cle se
lect primary use &fref index &xcle store 1 to cpt
goto top dlect secondary use store '5' to choix s
elect secondary use &nomfich set index to &mnomc goto nocou
r store 'F' to rep ligm1+1,0 ligm1,0 say 'tapez F pour fi
n, S pour fiche suivante, P pour ' +'fiche precedente' wait to rep
if !(rep)'P' skip -1 else if !(rep)'S'
skip endif endif if !(rep)#'P'.and.!(rep)#'S'
release mnomc,rep,test,aig,cle,cpt,correo while cptnbzonp store
'mzon'-str(noz,1+int(noz/10)) to mzon do case case fieldtyp
e'N' store cle+str(&mzon,fieldlen,fielddec) to cle case $(ve
rif,2,1)'D' store cle+$(&mzon,7,2)+$(&mzon,4,2)+$(&mzon,1,2) to cle
case $(verif,2,1)'M' store cle+$(&mzon,4,2)+$(&mzon,1,2) to cl
e otherwise store cle+!(&mzon) to cle endcase
store cpt+1 to cpt skip enddo releact,nomz,v
ide,ver2,mzon,mzon1 release mzon2,mzon3,mzon4,mzon5,tabv ret
urn else store 's' to test store # to nocour e
ndif endcase endif enddo return endcas
e endif enddo return enddo return
skip enddo release pic set intensity on if
choix '5' clear get store 0 to nomess else read
goto top se cpt store $(cle,2,len(cle)-1) to cle stor
e trim(cle) to cle select secondary use &nomfich index &list
index if choix "1" .and. choix "3" set exact on
endif find &cle if choix'1'.and.(# # 0) store 3
to nomess do affmess else if choix #'1'.and
.( # 0 ) store 4 to nomess do affmess
else store # to nocour NAFBGCHDIE* listfich liste la struct
ure du fichier erase 1,20 say 'LISTE DE LA STRUCTURE DU FICHIER' 1,54 get
nomaff clear get 5,5 say "voulez-vous votre liste sur l'imprimante (Ooui,Nno
n)" store 'f' to correct do while correct'f' store 'N' to rep 5,62 get rep
read store !(rep) to rep do case case rep'O' set print on set format to pr
int store 't' to correct case rep'N' store 't' to correct otherwise store 1
to nomess do affmess endcase enddo store 0 to cpt store 1 to longeng n5
otherwise store ' ' to mzon3 store ' ' to mzon4 store ' ' to mzon5
endcase lig+2,0 say mzon1+' '+mzon2 lig+2,28 say mzon3+' '+mzon
4+' '+mzon5 store lig+4 to lig skip if eof 'nombre
de zones ',cpt,' taille enregistrement',longeng if rep'N'
ligm1,0 say 'tapez sur une touche pour continuer' set console
off wait set console on else * pour vider
le buffer use &fref index &xcle goto top store 'f' to correct erase
1,26 say 'LISTE DE LA STRUCTURE DU FICHIER '+nomaff store 3 to lig do while
correct'f' if lig 18.and.rep'N' ligm1,0 say "TAPEZ F POUR FIN LIST
E, N'IMPORTE QUELLE AUTRE TOUCHE " +"POUR LA SUITE" wait to choix
if !(choix)'F' release cpt,longeng,rep,lig,correct,mzon1,mzon2,mzo
n3,mzon4,mzon5 return else erase 1,26 say 'LISTE DE
LA STRUCTURE DU FICHIER '+nomaff st set print on chr(13)
set print off set format to screen endif release r
ep,correct,longeng,cpt,lig,mzon1,mzon2,mzon3,mzon4,mzon5 return endif
enddo 'nombre de zones ',cpt,' taille enregistrem
ent',longeng if rep'N' ligm1,0 say 'tapez sur une touche pour
continuer' set console off wait set console on
else * pour vider le buffer set print on ore 3 to lig
endif endif store cpt+1 to cpt store longeng+fieldlen to longe
ng lig,0 say '******* '+fieldname+' TYPE '+fieldtype+ ' LONG
UEUR' lig,48 say fieldlen picture '999' lig,64 say 'NB DECIM' lig
,74 say fielddec picture '999' lig+1,0 say 'LIBELLE '+texte+' LIG' lig
+1,35 say lt picture '99' lig+1,39 say 'COL' lig+1,44 say ct picture '
99' lig+1,50 say 'SAISIE A LIG' lig+1,64 say ls picture '99' ,0 s
tore unit+mnomc to mnomc if p.typc'T' * index non mis a jour automatiquemen
t store 'O' to modif 10,0 say 'avez-vous modifie votre fichier depuis l
a derniere liste sur cette cle' 11,0 say 'Ooui, Nnon ' store 'f' t
o correct do while correct'f' set intensity off 11,20 get mod
if set intensity on read store !(modif) to modif do
case case !(modif)'O' select secondary use &nomfich index &
mnomc r lig+1,70 say 'COL' lig+1,75 say cs picture '99' do case
case $(verif,1,1)'N' store 'ZONE NON OBLIGATOIRE' to mzon1 store ' '
to mzon2 case $(verif,1,1)'O' store 'ZONE OBLIGATOIRE' to mzon1 sto
re ' ' to mzon2 case $(verif,1,1)'C' store 'OBLIGATOIRE SI' to mzon1
store val1 to mzon2 case $(verif,1,1)'G' store 'SUPERIEUR A' to mzon1
store val1 to mzon2 case $(verif,1,1)'P' store 'INFERIEUR A' to mzon1
store val1 to mzon2 endcase * demcle select primary use &fele inde
x &xele 7,5 say "nom de l'index" store 'f' to correct do while correct'f'
store nomindp to mnomc if choix '5' ligm1,0 say "mettre nom index
a blanc pour abandonner" endif 7,30 get mnomc read store !(mno
mc) to mnomc if choix'5'.and.mnomc' ' return endif store 'C'-mno
mc to cle find &cle if # 0 store 16 to nomess do affmess
else store 't' to correct endif enddo ligm1 do case case
$(verif,2,1)'B' store 'ENTRE BORNES' to mzon3 store 'DEBUT '+$(val2,1,1
0) to mzon4 store 'FIN '+val3 to mzon5 case $(verif,2,1)'D' store 'D
ATE JJ/MM/AA' to mzon3 store 'DEBUT '+$(val2,1,10) to mzon4 store 'FIN '
+val3 to mzon5 case $(verif,2,1)'M' store 'DATE JJ/MM' to mzon3 stor
e 'DEBUT '+$(val2,1,10) to mzon4 store 'FIN '+val3 to mzon5 case $(verif
,2,1)'L' store 'LISTE DE CODES' to mzon3 store val2 to mzon4 store '
' to mzo NAFBGCHDIE,0 store unit+mnomc to mnomc if p.typc'T' * index non
mis a jour automatiquement store 'O' to modif 10,5 say 'Faut-il reinde
xer le fichier (Ooui,Nnon) ' store 'f' to correct do while correct'f'
set intensity off 10,60 get modif set intensity on
read store !(modif) to modif do case case !(modif)'O'
select secondary use &nomfich index &mnomc reindex store
't' to correct case !(modif)#'N'lfin'N' goto top store ' ' to expf re
lease cle,mnomc,cptz,valdeb,expd,cle1,valfin return endif if valdeb'O' fi
nd &cle1 if # 0 locate for &expd if .not.(&expd).or.eof
skip endif endif else goto top endif if valfin 'O' store '
for '+expf to expf else store ' ' to expf endif release cle,mnomc,cptz,vald
eb,expd,cle1,valfin return endif release cle,cptz,va
ldeb,valfin,expd,cle1 return endif if valdeb'N'.and.valfin store 1
to nomess do affmess otherwise store 't' to correct
endcase enddo release modif endif select secondary use &fref index &x
nom if choix # '5' store 1 to cptz do while cptz 2 store 'f' to
correct do while correct'f' store 'N' to rep erase
if cptz1 10,0 say 'voulez-vous donner une valeur debut de
liste ' +'(Ooui,Nnon) ' else 10,0 say 'vou
lee 15 listes creees. faites le menage" to mess case nomess 6 store "cette li
ste existe deja" to mess case nomess 7 store "cette liste n'existe pas" to me
ss case nomess 8 store "reponse incorrecte - seules reponses admises O ou N"
to mess case nomess 9 store "il y a plus de 15 cles creees . faites le menage
" to mess case nomess 10 store "cette cle existe deja" to mess case nomess
11 store "la premiere zone doit obligatoirement etre renseignee" to mess case
nomess 12 store "la zonez-vous donner une valeur fin de liste ' +
'(Ooui,Nnon) ' endif 10,75 get rep read
store !(rep) to rep if rep#'O'.and.rep#'N' store 1 to no
mess do affmess else store 't' to correct
if cptz1 store rep to valdeb else
store rep to valfin endif if rep'O'
do demzone if cptz1 zTYPELEMCpNOMELEMCpLIBELEMCpNBZONE
SNpZON1C pDEB1CpFIN1CpZON2C pDEB2CpFIN2CpZON3C qDEB3CqFIN3CqZON4C qDEB4CqFIN4CqZ
ON5C !qDEB5C+qFIN5C.qTYPCC1q store cle to cle1 endif
endif if cptz2 if valdeb'O'.and.valfin'O'
store 0 to nomess if fieldtype'N'
if &cle &cle1 store 29 to nomess
endif else if cle cle1
store 29 to nomess endif
endif if nomess # 0 * la zone est-elle alpha
betique case type # 'C' store 13 to nomess do affmess * position de debut co
rrecte case val(&mdeb) 0.or.val(&mdeb)lon store 14 to nomess do affmess *
position fin correcte case !(&mfin)#'F'.and.(val(&mfin)val(&mdeb).or.val(&mfin
)lon) store 15 to nomess do affmess otherwise store 'long'-str(cpti,1) to ll
ong store lon to &llong store cpti+1 to cpti store ligi+1 to ligi endcase e
nddo store cpti-1 to cptimax select primary use &fele index &xele
store 0 to cptz do affmess endif
endif endif endif enddo store cptz+1
to cptz enddo release rep else store 1 to cptz do demzone end
if select secondary use &nomfich index &mnomc if choix'5' find &cle i
f # 0 locate for &expd if .not.(&expd).or.eof skip
endif endif release cle,cptz,valdeb,valfin,expd,cle1 return endif
if valdeb'N'.and.va NAFBGCHDIEVFNOMFCpINTITFCpTITREFCpUTILISECp noclasse 3 5N
O CLASSE 325 C 3 0x nom 4 5NOM ELEVE 425 C 20 0x
PRENOM 6 5PRENOM ELEVE 625 C 20 0 ABS 10 5ABSENT
12 5 C 1 0 exc 15 5excuse 1520 C 1 0 0
5' 12,10 say 'impression
6' 13,10 say 'gestion des cles de recherche 7' 14,10 say
'fin application 8' 17,45 SAY "+------ 1 02/12/86a61
28 PROSPECTEXEMPLE D'APPLICATION
NO 1 GESTION COMMERCIALE NO 1 TOTO TOTO LIBERE TOT
O LIBRE PROSPECTEXEMPLE D'APPLICATION NO 1 GESTION COMME
RCIALE NO 1 *ULT ult
GIGI GIGI *GO
GO GOGO *LONG
* verzone definition des options de controle d'une zone * demander les verif
ications a faire erase store 'f' to correct 1,26 say 'VERIFICATIONS A FAIRE
SUR CETTE ZONE' 3,5 say 'comment la zone doit-elle etre remplie ' 5,5 say "l
a zone peut ne pas etre remplie N" 6,5 say "la zone doit etre ob
ligatoirement renseignee O" 7,5 say "la zone doit etre renseignee si une aut
re " 8,5 say "zone est renseignee C" if
mtype # le correct'f' 5,60 get unit read clear get
if !(unit)#'A'.and.!(unit)#'B'.and.!(unit)#'M'.or.!(unit)'M'.and. ligm12
0 store 1 to nomess do affmess else store '
t' to correct endif enddo use gestfich goto top store int
itf to mintitf store $(mintitf,1,8)-unit-$(mintitf,11,4) to mintitf repl
ace intitf with mintitf release mintitf,correct case !(rep) 'F' if
!(unit)'M' 'L' 9,5 say "la zone doit etre plus grande ou egal
e a " 10,5 say "une autre zone G"
11,5 say "la zone doit etre plus petite ou egale a " 12,5 say "un
e autre zone P" endif do while correct'f'
store 'N' to rep 15,5 say "reponse " set intensity off 15,25 get r
ep set intensity on read store !(rep) to rep do case case re
p'N'.or.rep'O' store 't' to corr "ATTENTION N'oubliez pas de sauvegard
er les donnees qui sont sur" +" m au moyen de " "l'utilitaire PIP
- Tapez sur une touche pour quitter l'application" set console off
wait set console on endif quit otherwise * afficher un
message d'erreur store 1 to nomess do affmess endcase select pri
mary use select secondary use select primary store 't' to te
st1 store 'f' to reprise enddo return ppliect case (rep'G
'.or.rep'P').and.mtype'L' store 31 to nomess do affmess case rep'C'.
or.rep'G'.or.rep'P' store ' ' to nomz 17,5 say "nom de l'autre
zone" 17,35 get nomz read store !(nomz) to nomz find &nomz
if # 0 store 27 to nomess do affmess 17,0 else
if fieldtype # mtype.and.rep # 'C' store 30 to nomess do af
fmess 17,0 else store 't' to correct endif
eFIELDNAMEC FIELDTYPECFIELDLENNFIELDDECNLTNCTNTEXTECLSNCSNVERIFCVAL1C VAL2CVAL3
C NOZN NAFBGCHDIEendif otherwise store 1 to nomess do affmess endc
ase enddo store 'f' to correct erase store 'A' to rep2 if mtype # 'L' 3,1
0 say 'options' 5,5 say "la zone doit etre comprise entre deux bornes B"
if mtype # 'N' 6,5 say "la zone est un code devant appartenir a une liste
L" 7,5 say "la zone est une date sous la forme JJ/MM/AA D" 8,
5 say "la zone est une date sous la forme JJ/MM M" endif 9,5 say "a
ucun des controles ci-deselse store $(neuf,1,nbent)-'.'-$(neuf,1,nd
ec) to maxpos if nbent 1 store '-.'-$(neuf,1,ndec)
to minpos else store '-'-$(neuf,1,nbent-1)-'.'-$(n
euf,1,ndec) to minpos endif endif store "pictur
e '"-maxpos-"'" to pic release neuf endcase 13,59 get v
aldeb &pic 14,59 get valfin &pic read store ' ' to datdeb
store ' ' to datfin if type(valdeb)'C' sus sur cette zone A"
11,5 say "reponse " do while correct'f' store 'A' to rep2 store 0
to nomess set intensity off 11,25 get rep2 set intensity on rea
d store !(rep2) to rep2 do case case (rep2'L'.or.rep2'D'.or.rep2'M')
.and.mtype'N' store 32 to nomess do affmess case rep2'A' store '
t' to correct case rep2'B'.or.rep2'D'.or.rep2'M' if (rep2'D'.and.(mtype#
'C'.or.mlon#8)).or.(rep2'M'.and. (mtype#'C'.or.mlon#5)) store !(v
aldeb) to valdeb store !(valfin) to valfin endif store 0
to nomess if rep2'B'.and.mtype'N' if valdeb&minpos.or.valdeb&m
axpos store 33 to nomess do affmess else
if valfin&minpos.or.valfin&maxpos store 33 to nomess
do affmess endif endif endif
if rep2'D'.or.rep2'M' store 1 to cptz do while cptz 2
store 28 to nomess do affmess if choix#'C' goto
nocour dele pack store 't' to correct endi
f else 13,5 say 'valeur de debut' 14,5 say 'valeur de fin'
do case case rep2'D' store '00/00/00' to valdeb
store '00/00/00' to valfin store " picture '99/99/99'" to pic
case rep2'M' store '00/00' to valdeb store '00/00' to
valfin store " pictur if cptz1 store valdeb to vda
te else store valfin to vdate endif
if vdate#'00/00/00'.and.len(vdate)8.or.vdate#'00/00'.and.
len(vdate)5 store val($(vdate,1,2)) to j store
val($(vdate,4,2)) to m if len(vdate)8 store
val($(vdate,7,2)) to an else store 0 to an
endif if m1.or.m12.or.j1.e '99/99'" to pic
case mtype 'C' if mlon 10 store $(blanc,1,10) to valde
b else store $(blanc,1,mlon) to valdeb endif
store valdeb to valfin store " " to pic case mtype
'N' store '9999999999' to neuf store 0 to valdeb s
tore 0 to valfin if mdec0 store mlon to nbent e
lse store mlon-mdec-1 to nbent endif if mlon 10
or.J31.or.(m4.or.m6.or.m9.or. m11).and.j30.or.m2.and.j29.or.(an/4)#int(an/4).
and.m2.and.j28 store 2 to nomess endif
endif store cptz+1 to cptz enddo release
j,m,an,cptz,vdate if nomess#0 do affmess else
if rep2'D' store $(valdeb,7,2)-$(valdeb,4,2)-$(vald
eb,1,2) to datdeb store $(valfin,7,2)-$(valfin,4,2)-$(valfin,1,2
) to datfin if nbent9 store 0 to ndec
if nbent10 store 10 to nbent endi
f else store 10-nbent-1 to ndec endif
else store mdec to ndec endif if ndec
0 store $(neuf,1,nbent) to maxpos if nbent1
store '0' to minpos else store '-'-$(neuf,1
,nbent-1) to minpos endif OAFBGCHDIE else
store $(valdeb,4,2)-$(valdeb,1,2) to datdeb store $(valfin,
4,2)-$(valfin,1,2) to datfin endif endif endif
if nomess 0 if mtype 'C' store rep2'D'.and.valfin#'
00/00/00'.or.rep2'M'.and.valfin #'00/00'.or.(rep2#'M'.and.rep2#'D'
).and.valfin # ' ' to comp else store valfin # 0 to comp
endif if comp if (rep2#'D'.and.rep2#'M'.and.val
debvalf * la zone est-elle alphabetique case type # 'C' store 13 to nomess d
o affmess * position de debut correcte case val(&mdeb) 0.or.val(&mdeb)lon s
tore 14 to nomess do affmess * position fin correcte case !(&mfin)#'F'.and.(
val(&mfin)val(&mdeb).or.val(&mfin)lon) store 15 to nomess do affmess otherwis
e store 'long'-str(cpti,1) to llong store lon to &llong store cpti+1 to cpti
store ligi+1 to ligi endcase enddo store cpti-1 to cptimax select primary
use &fele index &xele in).or. ((rep2'D'.or.rep2'M').and.datdebdatf
in) store 29 to nomess do affmess e
lse store 't' to correct endif else
store 't' to correct endif endif endif release
comp,datdeb,datfin,minpos,maxpos,pic case rep2'L' store $(blanc,1,30) to
listc 13,0 say 'Entrez les codes possibles en les separant' 14,0 say
'par des virgules' 14,45 get listc rea* modifich modification de la str
ucture d'un fichier erase 1,16 say 'MODIFICATION DE STRUCTURE DU FICHIER'
1,56 get nomaff clear get 8,16 say "avez-vous sauvegarde votre fichier de do
nnees " 16,16 say "repondre non si vous voulez abandonner la fonction" 12,18
say "reponse Ooui, Nnon " store 'f' to correct do while correct'f' store
'N' to rep 12,49 get rep read do case case !(rep)#'N'.and.!(rep)#'O' stor
e 1 to nomess do affmess case !(rep)'O' store 't' to correcd store !(list
c) to listc if listc ' ' store 44 to nomess do affmess el
se store 't' to correct endif otherwise store 1 to nomess
do affmess endcase if correct'f' 13,0 14,0 release valdeb
,valfin,listc endif enddo release correct endif if nomess28 store 0
to nomess else if choix # 'C' store longeng+mlon to longeng store c
pt+1 to cpt endif goto nocour replace verif with rep-rep2 if rep
'C'.or.rt case !(rep)'N' release rep,correct return endcase enddo release
rep,correct store 't' to modif do supfich do gene erase "Si vous voule
z recuperer vos donnees, sortez de l'application quand vous" "serez revenu au
menu et suivez les indications de la brochure, paragraphe 3 .32" "Tapez sur
une touche pour continuer" wait return par defaut (a,b ou m) ' endif
do while correct'f' 5,60 get unit read clear get
if !(unit)#'A'.and.!ep'G'.or.rep'P' replace val1 with nomz endif
if rep2'B'.or.rep2'D'.or.rep2'M' if mtype 'C' replace val2 wit
h valdeb,val3 with valfin else if ndec 0 replace
val2 with str(valdeb,nbent),val3 with str(valfin,nbent) else
replace val2 with str(valdeb,nbent+ndec+1,ndec),val3 with str(
valfin,nbent+ndec+1,ndec) endif endif endif if rep2'L'
replace val2 with listc endif endi* maj programme de mise a jo
ur du fichier creation,modification ou * suppression store 0 to nomess stor
e 'f' to correct * afficher les zones non cle do while correct'f' select p
rimary use &fref index &xcle store nbzonp+1 to v1 * se positionner s
ur la premiere zone non cle si elle existe store str(v1,2,0) to cle find
&cle release cle if # # 0 set intensity off do while .not
.eof store 'mzon'-str(noz,1+int(noz/10)-int(noz/20)-int(noz/30)) tf r
elease rep,rep2,nomz,valdeb,valfin,listc,nbent,ndec return
release r
ep,rep2,nomz,valdeb,valfin,listc return
endif release nbent,ndec endif endi
f if rep2'L' replace val2 with listc endif endif release rep,re
p2,nomz,valdeb,valfin,listc return
fi NAFBGCHDIEo mzon if nomess0 if test'd'
if verif"NA".and.fieldtype#"N" store tabv-'N' to
tabv else store tabv-"O" to tabv
endif lt,ct say texte endif do i
nitzone else do case case $(verif,2,1)'D'
store "picture '99/99/99'" to pic case $(verif,
2,1)'M' store "picture '99/99'" tomzon30,mzon31,mzon32 select p
rimary use select secondary use return st
ore !(&mzon) to &mzon endif select secondary replace &nomre
f with &mzon select primary skip enddo endif release nozone
release nomref,pic,correct,mzon,mzon1,mzon2,mzon3,mzon4,mzon5,mzon6,mzon7 rele
ase mzon8,mzon9,mzon10,mzon11,mzon12,mzon13,mzon14,mzon15,mzon16,mzon17 release
mzon18,mzon19,mzon20,mzon21,mzon22,mzon23,mzon24,mzon25,mzon26 release mzon27,
pic otherwise store " " to pic end
case endif ls,cs get &mzon &pic skip enddo
release pic set intensity on if choix '3' * ne
pas demander la saisie clear get release v1 store
't' to correct else read clear get ligm1,0
say "voulez-vous le controle de vos zones (Ooui,Nnon) " store 'O' to
rep ligm1,58 gr$++*/++8*/"Z$/O/12/*/"/5$J$*/#"/2/*o0*i06*k0#!/Ox8*//6
*Z62/*/$*/"/#"/$*o0*/6DM*/+T8#"i0*/*o066J$#o$C$#6!!$"/C!$!/7 "/*/*/6# ! "/o$/O$
!$#J$ #/O/j O$DMo$++/r$++8!/55$$!/5!/5$/. o$/Ox8J$ #o$!/Ox8$/O/ O2/"/#*o0"i0*/"/
#/7!2/*k0*/$! $ ++6z7!et rep read clear get ligm1
,0 if !(rep)'N' release v1 store 't' to corr
ect else * verifier les zones non cles relea
se rep store 99 to v2 do verif if nomess
0 store 't' to correct else do aff
mess endif endif release rep endif
else release v1 store 't' to correct VNOMCvPRENOMCvDERVISITECvPROV
ISITECvLIEUCvBESOINC7vVENTEN wADRESSECwCODEPOSTN&wVILLEC+wTELC7wPROFCGwMARQUECRw
TYPECw endif enddo * tout est correct. ecrire dans le fichier if choix'
3' * demander confirmation suppression do confsup if !(confirm)'N'
release confirm else release confirm select secondary
dele pack store 0 to nocour endif else select second
ary if choix '1' append blank store # to nocour endif
select primary set index to goto top do while .not.eof store
'mzon'-str(noz,1+int(noz/10)-int(no DURANT LUC 08/02/8601/01/87Nge
stion de fichier,traitement de texte 012,RUE DE LA GARE
88000EPINAL 29.82.19.88 MENUISIER AMSTRAD PCW 82 BARTHER BERNA
RD 12/02/8618/03/86BLOGICIEL GESTION DE FICHIER, COMPTABILITE
012, RUE DE LA GARE 88000EPINAL 29.82.19.88 MENUISIER AMSTRAD
8256 GUITY J.LUC 10/02/8611/03/86NGESTION DE CABINET MEDICAL
1200023,QUAI DES 4 VENTS 54000Nz/20)-int(noz/30)) to
mzon store fieldname to nomref if fieldtype"C" store !(
&mzon) to &mzon endif select secondary replace &nomref with
&mzon select primary skip enddo endif release nozone relea
se nomref,pic,correct,mzon,mzon1,mzon2,mzon3,mzon4,mzon5,mzon6,mzon7 release mz
on8,mzon9,mzon10,mzon11,mzon12,mzon13,mzon14,mzon15,mzon16,mzon17 release mzon1
8,mzon19,mzon20,mzon21,mzon22,mzon23,mzon24,mzon25,mzon26 release mzon27,mzon28
,mzon29, NAFBGCHDIEANCY 83.89.45.90 MEDECIN IBM PC DUPU
IS JEAN 01/01/8623/02/86BCOMPATBILITE,GESTION DE STOCK
1323412, QUAI BONS ENFANTS 57001METZ 87.30.11.29 CARRELE
UR AMSTRAD 8256 MARTEAU MICHEL 10/03/8611/03/86DDECISIONNEL
4300567, PLACE DE LA GARE 75002PARIS
16.1.42.45.65.24MEDECIN HP 150II PINARD VALERIE 10/02/86
20/03/86DCOMPTABILITE CNOM CPROF CVILLE L
PROF E LIEU MARQUE NOM PRENOM PROF PROVISITE TEL
TYPE VENTE VILLE E%2MDa'THST(ST2Vc9nU7Q2Vc9RU7HT9s9HT"qV"gV*gVQ*q
VVQTQQTQy**gV"gV QT%2V%HTs9RU7HT9s9HTr*"sV2Vi9R -RR*,bR!&bRx'YRbRG+bRORDsR"pi56V
Ti4*sV 64Tgpa''%rp*,56wp 045, RUE DE NANCY 88200REMIREMOMT
29.62.08.57 CARRELEUR AMSTRAD 6128 0 0 00/00/0000
/00/00 0
0 QTQQTQy**
gV"gV QT%2V%HTs9RU7HT9s9HTr*"sV2Vi9R -RR*,bR!&bRx'YRbRG+bRORDsR"pi56VTi4*sV 64Tg
pa''%rp*,56wpnom+prenomelemP9'2V+OXSTU7HT92VOVHTV.P )yVz,P! 0Pp AAA AATEL
TYPE VENTE VILLE E%2MDa'THST(ST2Vc9nU7Q2Vc9RU7HT9s9HT"qV"gV*gVQ*qV
VQTQQTQy**gV"gV QT%2V%HTs9RU7HT9s9HTr*"sV2Vi9R -RR*,VzTYPELEMCpNOMELEMCpLIBELEMC
pNBZONESNpZON1C pDEB1CpFIN1CpZON2C pDEB2CpFIN2CpZON3C qDEB3CqFIN3CqZON4C qDEB4Cq
FIN4CqZON5C !qDEB5C+qFIN5C.qTYPCC1q 0 0 BARTHER BERNARD
DUPUIS JEAN DURANT LUC GUITY J.LUC MART
EAU MICHEL PINARD VALERIE E%2MDa'THST(ST2Vc9nU7Q2Vc9RU7HT9s9HT
"qV"gV*gVQ*qVVQTQQTQy**gV"gV QT%2V%HTs9RU7HT9s9HTr*"sV2Vi9R -RR*,bR!&bRx'YRbRG+b
RORDsR"pi56VTi4*sV 64Tgpa''%rp*,56wp CNOM 2NOM
1 F PRENOM 1 F P C
PROF Liste triee par profession 1PROF 1 F
T CVILLE Tri Par Ville
1VILLE 1 F
S LPROF Liste des CA par profession
!PROF lemP9'2V+OXSTU7HT92VOVH
TV.P )yVz,P!CNOM CPROF CVILLE LPROF E LIEU MARQUE NOM
PRENOM PROF PROVISITE TEL TYPE VENTE VILLE E%2MDa'T
HST(ST2Vc9nU7Q2Vc9RU7HT9s9HT"qV"gV*gVQ*qVVQTQQTQy**gV"gV QT%2V%HTs9RU7HT9s9HTr*"
sV2Vi9R -RR*, 'typelem+nomelemP9'2V+OXSTU7HT92VOVHTV.P )yVz,P!nom+prenomelemP9'2
V+OXSTU7HT92VOVHTV.P )yVz,P!CNOM CPROF CVILLE LPROF E LIEU MAR
QUE NOM PRENOM PROF PROVISITE TEL TYPE VENTE VI
LLE E%2MDa'THST(ST2Vc9nU7Q2Vc9RU7HT9s9HT"qV"gV*gVQ*qVVQ NAFBGCHDIECARRELEUR
MEDECIN MEDECIN MENUISIER MENUISIER MENUISIER PRENOM PROF
PROVISITE TEL TYPE VENTE VILLE E%2MDa'THST(ST2Vc9nU7Q2Vc9
RU7HT9s9HT"qV"gV*gVQ*qVVQTQQTQy**gV"gV QT%2V%HTs9RU7HT9s9HTr*"sV2Vi9R -RR*,bR!&b
Rx'YRbRG+bRORDsR"pi56VTi4*sV 64Tgpa''%rp*,56wp$fieldnameelemP9'2V+OXSTU7HT92VOVH
TV.P )yVz,P!NOM lemP9'2V+OXSTU7HT92VOVHTV.P )yVz,P!CCLE BESOIN COD
EPOST DERVISITE LIEU MARQUE NOM PRENOM PROFESSIONPROVISITE TE
L TYPE VENTE VILLE E%2MDa'THST(ST2Vc9nU7Q2Vc9RU7HT9s9HT"qV"g
V*gVQ*qVVQVILLE lemP9'2V+OXSTU7HT92VOVHTV.P )yVz,P! 0Pp AAA AATEL TYP
E VENTE VILLE E%2MDa'THST(ST2Vc9nU7Q2Vc9RU7HT9s9HT"qV"gV*gVQ*qVVQT
QQTQy**gV"gV QT%2V%HTs9RU7HT9s9HTr*"sV2Vi9R -RR*,ADRESSE BESOIN CODEPOST D
ERVISITE LIEU MARQUE NOM PRENOM PROF PROVISITE TEL
TYPE VENTE VILLE E%2MDa'THST(ST2Vc9nU7Q2Vc9RU7HT9s9HT"qV"gV*gVQ*qV
VQTQQTQy**gV"gV QT%2V%HTs9RU7HT9s9HTr*"sV2Vi9R -RR*,bR!&bRx'YRbRG+bRORDsR"pi56VT
i4*sV 64Tgpa''%rp*,56wp EPINAL EPINAL METZ NANCY
PARIS REMIREMOMT MARTEAU MICHEL PINARD ODILE VENTE
VILLE E%2MDa'THST(ST2Vc9nU7Q2Vc9RU7HT9s9HT"qV"gV*gVQ*qVVQTQQTQy**gV"gV
QT%2V%HTs9RU7HT9s9HTr*"sV2Vi9R -RR*,bR!&bRx'YRbRG+bRORDsR"pi56VTi4*sV 64Tgpa''%
rp*,56wp 2nozdnameelemP9'2V+OXSTU7HT92VOVHTV.P )yVz,P!NOM lemP9'2V+OXSTU7
HT92VOVHTV.P )yVz,P!CCLE BESOIN CODEPOST DERVISITE LIEU MARQUE
NOM PRENOM PROFESSIONPROVISITE TEL TYPE VENTE VILLE
E%2MDa'THST(ST2Vc9nU7Q2Vc9RU7HT9s9HT"qV"gV*gVQ*qVVQF YCY kpqqYGEHqY7 PP &Fx#N
f!buD!buD!$buD!*b!0bVi*O!6 qO!6 q!b&id 6!b2)x2I" ! ! ! "!HbW222! 0zb b!Wb!Xw##N#
z6zNDTNxwzNjzzwZ("1zzzzz 0Pp AAA AATEL TYPE VENTE VILLE E%2M
Da'THST(ST2Vc9nU7Q2Vc9RU7HT9s9HT"qV"gV*gVQ*qVVQTQQTQy**gV"gV QT%2V%HTs9RU7HT9s9H
Tr*"sV2Vi9R -RR*,bR!&bRx'YRbRG+bRORDsR"pi56VTi4*sV 64Tgpa''%rp*,56wpW**"*#"Ov272
*""zhkW20z2 **6N-To%"0zw**60zXD *" 2 zy z2* wOv* 6* " N2* 6ByB* qO&2* " wOv 2k!
n! !z* +*6z0z*-"To%"2 O** y6+"2* " ** 60* Ny* NAFBGCHDIEVdFIELDNAMEC pFIELDTYPE
CpFIELDLENNpFIELDDECNpLTNpCTNpTEXTECpLSNpCSNpVERIFCpVAL1C pVAL2CpVAL3C qNOZNq 6
2* +" *)26, 2! K9O9y#yALo!eX7y6y6Oy! K97y! K9y6G*N##6yFTv4**p###q!"*N!M3!#*N #*
"v* w#" 9#AI!IXwe6ebO6y!ewee wO #* 6#" *""vO ##.#o&)))6N1* O2* 64* NOM C 1
2 0 3 7Nom 312NA
1 PRENOM C 12 0 326Prenom 334NA
2 DERVISITE C 8 01553Derniere Visite 1570ND
00/00/00 00/00/00 3 PROVISITE C 8 01752Prochaine Visit
e 1770ND 00/00/00 00/00/00 4 LIEU C 1 0
1956Lieu (B,D,N) 1970NL B,D,N
5 BE GO*M3*"*N #'*YMTM66r*u b*WDvv** 6" **-To%* 6*6*6" WDv!42 ""26"6"6"*O2# 2 #
6yh g h 4*O x2 y2X G2O!"" M3r #"2" * 2 2*"*"2vN 9LXQDvDELETED INSERT TF
YNtfyn.+- #9AXL!SOIN C 55 01215BESOIN 1223NA
6 VENTE N 6 01516Vente 1523NA
7 ADRESSE C 22 0 5 3Adresse
512NA 8 CODEPOST
N 5 0 539Code Postal 552NA
9 VILLE C 12 0 559Ville 566NA
10 TEL C 16"!j"!j".!j"*#"66#,5Af!/QdTb*+"6!"*N8"
#"*.6".6"F#N#6xHx62*4*x8*xS#yx8xm*w*TY66OG"xGxG4*M3*H,yN#,!'!#+6OG2"x G 0 347Te
l 352NA 11 PROF
C 11 0 7 5Prof. 712OA
12 MARQUE C 11 010 3Marque du Materiel 1023NA
13 TYPE C 6 01046Type 1052CA
MARQUE 14 VENTE VILLE E%2M
Da'THST(ST2Vc9nU7Q2Vc9RU7HT9s9HT"qV"gV*gVQ*qVVQ4*M3*H,6x2y5 N' y#J !'A !#+66A2U
O2 # w y y6 2 + + y y 2y/O , , ,6O #y/G #*w#w#s#r#w#w#"22-2*6!j"6N#2##V##F
#"x2-/rx2-J 2-*K666"!N#66#6Ox86" T##6NFx8x q* 6 2* " z2* 6 **6H0', zWW**6WN**6
* 6!Gx2W20zz*6*! 6 ! ! 2zzWzWWz0Wz WGp26"6"xG2yO2P!"!" !" 222*,"T$."* #" *2 NA
FBGCHDIE w1##6NFxDH9*Dp#+++q#66+N6xL++6q#q81##66"#F#6NGxG4*M3*H,F#N#6x,#,##6!'+6
!#+66"&#F#6N)M31Up#F#6HG 6#q81##696T16F1)95M)95E)*p#M3H)95M)95ExyO#x6*q#x8p*w# w
18zp181803cB jjXJjxj)bX7B)BD2JjxjMO4c#4c)c6 cBM!cqxNyCLB*jMU6+#6#p#e)"ccc)#cBM'c
BM(cqmmqmxm(m#)m#,m#77(# )#7x26*#4!76x# 7O6+###7TYFN78EEEEEE0N#y6F#q8xw6#"0N#F#x
G7#u*w0*w0*w/w)58,48N#28n&48**,0N#F#xsG7x#t/o&480N#y6+ y#F#q8x6ywx6 #"F#aw#6,#w#
##F###N)6*+7ed#N6)#6*+76)#6*+7*"+722+-#0.22OHyx #.F..T.CDEFILPRSTV#$!*INT#VALLEN
(TESTSPEEKuRANKSTR$!sCHRDATETYPETRIM*EOFFILELOCKLOCKNDX(*!d!*s0**q0*V0"0-*V0#"V0
2U02)95*6#w*6#ND6/#OD6/#PD0 M Bp#0w#TNy6 j+ *q#x8N#*x8i&6 c99D''+E%a'96"xyi&!42!
!48)95n&48#n&484)4*41*4#"+0qDN#xN#7*#"+x7F#N#k7*#"+66L*i&"*.6".*.+V+".ps9 9606DM
*m0 686x2/y2/2/!3x2/E!"/#"/$2/!$$b0zna0"C!2/,"$#2/!""Z*o0"i0*/"/#/*/!/Ox8*//66#6
*k0#6#62/2/5$$2/*/2/!/O$$++6z55$"/#5$*i0"/J$"//O/m$DM/r$+/r$+8*/!/Ox8*//6*Z6!/4/
$/$*/"i02/g/%2/*/"$/g/$2/2/r$/x8/2/O/2/$DM/5#q#p#657xu4x-7.OR.xouix7F.AND.777x7.
NOT.JxJx$#Jx7B#B/#*%BCBH#C #x+x#xV-#xV7xGGyMxG+#xyO-#xyOr$++*/++8*/"Z$/O/12/*/"/
5$J$*/#"/2/*o0*i06*k0#!/Ox8*//6*Z62/*/$*/"/#"/$*o0*/6DM*/+T8#"i0*/*o066J$#o$C$#6
!!$"/C!$!/7 "/*/*/6# ! "/o$/O$!$#J$ #/O/j O$DMo$++/r$++8!/55$$!/5!/5$/. o$/Ox8J
$ #o$!/Ox8$/O/ O2/"/#*o0"i0*/"/#/7!2/*k0*/$! $ ++6z7!7x*K#xyxGOxG/T#xxGtGyzMxG7+
-##Chq!0K97A2.i6Gcc)c)AcB jjX jjMc(iqf66$#6e6%c)&cBJjxjX7),2Jjxj)XJjxj)j#O NAFB
GCHDIE5$"/# ++6z(!5$"/# 5$62U0*o0"i0!$*m0 9!#6zC+++61r!N6/2/2/#/6$b0!!!!!a0!",,&
O!!o$$!6!#J$M"#$A"J$M"#/O/!/2/r$++65$"/2/5$#*k0#6z#"D"5$o$6V"2U07#J$"#/2/"J$"#/
r"2/*k0#"u$65$"/#/2/5$/r$++6z"J$!/55$"5$o$6"2U0720 .0*m0n ..,+#P+-+S+-+M'+-+ +-+
6+6+D+#-+y6*0+"0$n+7,D+Z++!+'D+n++A#7xD+.$+7,+.!+'.A#.7z+##+++6#6#65!z 9570 ,20.
7"0-x, 5#y,*Z0"Z020*s0*X0DM0 ,*V0#"V02U0o,.2U07p,70 ,,.7*V0U0!080 ,.!"0-$,2U0#'
D-!',2U2/*o0"i0#*/"/#5$/8#*k0#6#*k0###62U0!*o0"i0#*/"/#/2/5$/#r$++6M#/r$6J$!/55$
!a0# .#20O!a0###qa0*m0/ x8*k0###"/*/"00/ .0*k0 .*k02/*/"00/ .*k0/w0 .*/*i06/w#"i
0*o0*i06$7+2/+V+"/"i0/*/O/WyO$x$G$$330!a00 .*m0!/ x8*m00 ./6!/4/! O/! $##0!'D-7,
-! 06*0-+*Z06-"0"V0*X0"0!" 0!0--0! 0-!0-*0L- 00 ..w# -w# -w+ -0 .-0*q0 .*s0DM*q0
-#6"Z0*q0u%*q0++6"X0E%D'.*X0DM*s0 6pDz/.!z 7M.#.##4.0b..Ab..c.6w. .P0P0/!P0w/!Q0
66U0 x8!Q066U0 x80200 .*X0DM*s00 .20U0*V0#"V0"Z0/+%4/%2%41V47qD7%7A/Ok70O0e%0a%.
20200 .20!"0 %#*066"0#%*0og6 %.7l'e(!0+6 .!/6s9&/2.&9!&%&O&2/O&2/(&O&2/s97z79"02
/H&2/z/&2/"0/h&&/u&*0&/£&*0&*Z06&T'&!&/&/&*0,!"03...D0 .U02002U00 .-*q06#*Z06NDw
#ODw#PDw0 .*J06#"J0L0 .!"J0*J0L0w#M0w#N0w#O0w#"J0*J0+r/"J0G*J06/+/"J0x .ALL&NEX
T&RECORD &FORC&WHILE&KEY C.DBF.CMD.FRM.MEM.TXT.NDX.FMT.$$$.HEXu008np8np/tv
!n0!£n141G.£110/ 01n01WX0 '7K7&'&'9'+' '020P0!Q066020w020!0L0 ./'/'!z !z 7"0"V0
-7,!060s9U(#'+6U(Z(i9Z(i9c9U( U(.U(Z(i9( (,(."(Z('i9( (,(. (Z(i9Q( Q(,Q(Z('(U(!&
06x87aa(0# u(.#(*)x(()0()(0()(P0(0( )(0))(0()(0) )1P£i,4z1iw.F£nF1.'w- ,11.4.41.
7'w- N11.w- e1.7'w- t1.wd4.61!£nw0!nn4.4 .41G01.£4 1.GO.WIwx1wd4!n2n.£22n.6.£6 2
n0."2221.£wy.4n2n2y Z2.4nn22n.4G2.4nn22nZ2nG.N.ywn4d47n2n!n4 2 32.6+2-26 30 3.33
.6G.42oxw2ow.## *0'## *0'!6!d6!d6 0pc9"0!9x5D'+t)D'-,*09pD*0"0*X06x)y)6A##6z)+
p)6#6)6#6 #6z))9**p#+N66*##*9**p#6q*6pD*4*x+*4*## '!dS*6#j6*j*TH#* V*j6k*7!*) 6
+N66!"0**pD*0**!* *pD*0 *O6*# *6D+# NAFBGCHDIE2.42.!3.4.2.42.2.52.3.362.I3.wyX3
xG!n.60g36-3/.w 3u3.y4..F03 34.40 34.q/34O 33.43.-3 .403.4O..40 34*47!n4'M4M4dM
4 M4M4I2nd4ogO4z!n4!n,,,,,4!nO,4 4.4.4.w.w#4w,4Wwz+4Wwz,4!n4n4 BzBzB$A2C*$C"CB$
A2C*$C"CB$A2C*$C"CB$A2C*$C#"CB$AzB!"C"C B$A2C!"C*&C!yC"&C*C+"C"&CB$A2C*C+6B6B$A*
C*C*C"&CB$A*&CxN#F##V"Ci"CBixg"Czgxo"CBC!C"C2-C*Cjh#VOC Bj6-C2-C*C"CF!C)%B B*$C
B+!x8*&CzB!x8+£n4!nn575/O.4 #5.4 -5!nj5Onbk)))5!n4 J5!n4 55555555 55w#5555555w
56yy5+ 2S6SVD6S vpDD 5 565#+6J6&o6&oV6'k6k6dk6 k6k6656666 5Aas9,7i9G'"066o$z/og6
zog#fos#r##V#q#p#N#F#WxBB2CC*CA*C6&DM*C*C*vC*&CCYB"&C*vC6"CmB"&C*vC6"CA*C6"C !6#
66ZD2!w#+2.w#!ew#C*CC2C))*C!6!D"zC3QC7#663###6"vC6*C"Cd!D"C#####r5Q#B*CAC'A*C##
#6"vC*CA*C*C"zCCw#6##6#6!C"C*C76y*C#V!#CG!D7r#6 # 77# 7 G577#%7yI7# 76U7G67i7# L
7x77x2W7y2WH777x77WO 7# 77xOa7777OA77#7x7077A77DM! 88 0880688zT)))o8$87ic85 5N
Yf8765B8H88y8#8x8+899.99Wi.988G.98OTx698/T68#8i.9PYOx8A######AA6CVAVA!CBAAVA#"CC
x8B!CAbA!CAtA B#"CCx8!"C"C2C*C!6*C#"C!"C!'A#66"vC9B##6#6B*zC######6 *vC*C!+B*C!6
++6ACxB *vC*C"BB*C!6++6ABC2CBB*C!Cx8B**C###*$CDM*&C*(C#C2#C**C£BCCBx#B B#xBBx C
CC7)99#9+9#*999#19y+ 96T9Oa9#V9*T*T#"T*T 9#v99#v9"T"T!V"T9*Tx5O*T696 #"T6 99y2V9
V 9!V6DM9c952V7!V(6!V76 #6 V 5pDNV2ZDxCp2xCbYxC2xCbC2C ,CGCxpOv !,C4 !,C6OCy#B#2
Cx# CC2CDBASEOVRCOMDBASEOVRCOMD84X£!DD5!D6'E%M/D!sD'6E%!MD'6E%2D2tD2UDa'!EY !.C4
!.C6!/C4a !CE 2/C2.C/C.C2CCC2C20C0C2QC1C!0C!+61C1C!x8RC"C!6#NyO)"sC!E"CRC! *sC#
"sC*C*C2C"(C"&Ci"$C!9"*C#6GG$8tK5!C"CvCvv By*COA2#C*C!$x8*CC*CBB*Cw*C+6By2#C!"C"
C2C*C6#"CB NAFBGCHDIE1X*£6GG!F(6INSUFFICIENT MEMORY IN SY *** CE FICHIER N'EXI
STE PAS *** *** ERREUR INTERNE CONTACTEZ VOTRE FOURNISSEUR *** *** FICHIER EN
COURS D'UTILISATION *** *** FIN DE FICHIER INATTENDUE *** *** ENREGISTREMENT
NON SITUE *** *** TROP DE FICHIERS SONT OUVERTS *** *** DEPASSEMENT DE LA CAPA
CITE DU DISQUE *** *** DEPASSEMENT DU NOMBRE MAXIMUM DE FICHIERS SUR DISQUE ***
STEM, dBASE REQUIRES AT LEAST 41984 BYTES (0A400 HEX) OF MEMORY IN IN ADDITION
TO THE SIZE OF THE OPERATING SYSTEM dBASE WILL OPERATE ON MOST 48K CP/M (tm) S
YSTEMS THAT HAVE A STANDARD BIOS )2A.H!966'+.HD!D6'w2D!D46/NI!H(6jH!H(6OVERLA
Y FILE (DBASEOVR.COM) CANNOT BE OPENED2ND2OD2PDvpH!J(6H!J(69s9NI72ND2J9i972OD2J9
i9HH72PD2JHJGJ2Jx2JJjHjH jHJIJI *** CE FICHIER EXISTE DEJA *** *** ENREGISTREM
ENT NON TROUVE *** *** DEPASSEMENT DU NOMBRE MAXIMUM DE VARIABLES MEMOIRE ***
*** DEPASSEMENT DE LA PLACE ALLOUEE AUX VARIABLES MEMOIRE *** *** NOM DE VARIAB
LE INCORRECTE *** *** TROP DE CARACTERES *** *** AUCUNE BASE N'EST UTILISEE, D
ONNEZ SON NOM *** CE N'EST PAS UNE BASE DE DONNEE DE DBASEII ***III)IJ I1IJI1
IJIJ%JNIJNIJI66!ZIIPRbrpdTTTdI#I!J+6DDD6!I(6jHThirty days hath September April,
June and November All the rest have thirty one Except February ... ERROR!6J!
JERRORKJOJ#J###fo56.#ERROR (JJ/MM/AA) (MM/JJ/AA) 4 1 Avril, 1983 Frappez 'H
ELP', 'HELP dBASE', ou 'HELP commande' *** DEPASSEMENT DU NOMBRE MAXIMUM D'
UTILISATEURS *** *** ERREUR SYSTEME D'ENTREE/SORTIE *** ENREGISTREMENT(S) AJOU
TE(S) *** ABANDON DU TRAITEMENT EN COURS *** *** DEFINITION INCORRECTE DU NOM
DU CHAMP *** *** DEFINITION INCORRECTE DU TYPE DE CHAMP *** *** DEFINITION IN
CORRECTE DU NOMBRE DE DECIMALE(S) *** *** DEFINITION INCORRECTE DE LA DIMENSION
DU CHAMP ***Y7 PPSDEX ())7 (P PP Y *** VOULEZ-VOUS EFFACER LE FICHIER EXIST
ANT (Y/N) *** CETTE COMMANDE NE PEUT ETRE UTILISEE *** ** COMPTEUR DONNEZ
LA STRUCTURE DE L'ENREGISTREMENT SELON LE FORMAT CHAMP NOM,TYPE,DIMENSION
,DECIMALE(S) *** VOULEZ-COMMENCER LA SAISIE (Y/N) *** LA MACRO-INSTRUCTION N
'EST PAS UNE CHAINE DE CARACTERES * ENREGISTREMENT(S) TRANSFERE(S) Mb o y!7#fo!
0I!0IW2*7*9Iw**#w **#IdBASE II COPYRIGHT (C) 1982 BY RATLIFF SOFTWARE PRODUCTION
, INCORPORATED (RSP, INC.) 2705 RIDGEPINE DR, LA CRESCENTA, CA 91214 *** dBASE
II LCE Ver 2. *** CE FICHIER EST DEJA OUVERT ACCES IMPOSSIBLE *** NAFBGCHDIE
*** NOM DE FICHIER INCORRECT *** *** CE FICHIER DE COMMANDE N'EST PAS SUR L'UN
ITE ACTIVE *** *** DEPASSEMENT DU NOMBRE MAXIMUM D'IMBRICATIONS *** ENREGISTREM
ENT(S) EFFACE(S) *** FIN DU TRAITEMENT dBASE II version L.C.E *** *** TROP DE
COMMANDES 'RETURN' RENCONTREES *** **ENTREZ NUM. ENRE. CHAMP(NUM. OU NOM) NO
UVELLE VALEUR ** *** TYPE DE DONNEES INCORRECTE *** DESIREZ-VOUS UNIQUEMENT UN
RESUME DU RAPPORT (Y/N) *** FICHIER INDEX NON TROUVE *** *** LA VARIABLE ES
T INCORRECTE *** ** ORIGINE ET DESTINATION DES TYPES DE DONNEES DIFFERENTES **
*** PHRASE INCOMPLETE "ON" MANQUANT *** *** DEPASSEMENT CAPACITE D'UN CHAMP N
UMERIQUE ** ERREUR DE SYNTAXE DANS LA SPECIFICATION DU FORMAT ** *** PHRASE IN
COMPLETE "FIELD" MANQUANT *** ORIGINE DE L'ERREUR *** DESIREZ-VOUS CORRIGER
ET RECOMMENCER (Y/N) *** LE FICHIER A ETE EFFACE *** *** NUMERO D'ENREGIST
REMENT INCORRECT *** *** ERREUR DE SYNTAXE VEUILLEZ CORRIGER *** *** FICHIER
VIDE INSERTION IMPOSSIBLE *** *** FIN DE FICHIER *** *** FIN DE LOCALISATION
*** *** LE FICHIER NE PEUT ETRE OUVERT *** *** LE FICHIER DE FORMAT NE PEUT E
TRE OUVERT *** ** COORD *** DESIREZ-VOUS CORRIGER ET RECOMMENCER (Y/N) RE
MPLACER PAR *** DESIREZ-VOUS D'AUTRES CORRECTIONS (Y/N/) *** DONN
EZ LE NOM DU FICHIER *** LA MACRO-INSTRUCTION N'EXISTE PAS *** COMPACTAGE TE
RMINE ENREGISTREMENT(S) TRANSFERE(S) ENREGISTREMENT(S) RESTITUE(S) COLONNE
LONGUEUR,CONTENU DESIREZ-VOUS UN DOUBLE INTERLIGNE (Y/N) REMPLACEMENT(S) D
ONNEZ LE NOM DU FICHIER DE GENERATION D'ETAT ** TOTAL ** *** ENREGISTREMENT
*** ENREGISTREMENT NON TROUVE *** PAGE N. ETAPE SUIVANTE -- YOUI NCMDE CL
AVIER ESCANNULATION - CHAMP NOM TYP DIM DECIMALE(S) STRUCT
URE DU FICHIER DONNEZ LE TITRE *** AUCUN ENREGISTREMENT NE CORR
ESPOND A VOTRE SELECTION *** *** PHRASE INCOMPLETE "WITH" MANQUANT *** DONNEZ
LE CHAMP DE SOUS-TOTAL DESIREZ-VOUS DES SOUS-TOTAUX DANS VOTRE RAPPORT (Y/N)
DESIREZ-VOUS UN ENTETE (Y/N) DONNEZ L'ENTETE *** TRI TERMINE *** OPTI
ONS MMARGE GAUCHE, LLIGNES/PAGE, WLARGEUR DE PAGE ENTREZ LE TITRE POUR LES SO
US-TOTAUX ENTREZ LE SOUS-TITRE POUR LES SOUS-TOTAUX CHANGEMENT DE PAGE APR
ES LES SOUS-TOTAUX (Y/N) *** PHRASE INCOMPLETE "FOR" MANQUANT *** *** COMMA
NDE 'JOIN' NE PEUT GENERER PLUS DE 65 534 ENREG. *** *** PHRASE INCOMPLETE "FR
OM" MANQUANT *** *** LES CLES N'ONT PAS LA MEME DIMENSION *** *** PHRASE INCOM
PLETE "TO" MANQUANT *** ** SOUS-TOTAL ** *** INEXISTANCE DE L'EXPRESSION A TO
TALISER *** EXPRESSION NON NUMERIQUE *** *** ERREUR TOTALISATION DE PLUS DE
5 CHAMPS *** *** ERREUR DE SYNTAXE *** DESIREZ-VOUS DES TOTAUX (Y/N) ***
ENREGISTREMENT EN COURS D'UTILISATION. VEUILLEZ PATIENTER N A F B G C H D I E
BASE DE DONNEES PRIMAIRE EN COURS D'UTILISATION BASE DE DONNEES SECONDAIRE EN
COURS D'UTILISATION NOMBRE D'ENREGISTREMENTS * LA BASE DE DONNEES N'U
TILISE PAS DE FICHIER INDEX * * AU MAXIMUM 7 FICH. INDEX PEUVENT ETRE OUVERTS S
IMULTANEMENT LA COMMANDE "MODIFY" DETRUIRA TOUTES VOS DONNEES (Y/N) * ENTREZ
LA DATE SOUS LA FORME SUIVANTE (SINON RETURN) DATE DE LA DERNIERE MISE A JOU
R 96i9x 79!"662! !NLOK.OK#AK"!cK.cK#UK"*+K$K*K#K9K,kKK-K kK+$K*K #wkKkK kKKwjK6
kK**ALK#KAL#K9KwKAL#L9L#K60#K!ALX$LLw#L9.L#6L6Lw#L6 #L!"VE) !Es9rL* 6!E*RDpD2UD
E)!Es9LE%D'#.E%D'#.LD'&E% )2A2LD2VD.E87L7E)!E)!E ENREGISTREMENTS INDEXES *** L
A DIMENSION DE L'ENREGISTREMENT DEPASSE 1000 CARACTERES *** DIVISION PAR ZERO I
MPOSSIBLE *** *** DEPASSEMENT CHAINE DE CARACTERES *** LES FIC. OVERLAY (.OVR)
NE SE TROUVENT PAS SUR L'UNITE ACTIVE DONNEZ LE NUMERO DE L'ENREGISTREMENT
*** L'ENREGISTREMENT N'EST PAS INDEXE *** *** L' INDEX NE CORRESPOND PAS A LA B
ASE DE DONNEES ***!E%s9&7BM9''9Ma'DE2pEpa'E)*2MDE+pE%s9!&MW*,Mx'MMMr.G+MMiD656!"
!"s97M)!E9J7tO+7O7O)22%!"s9N%s9NZ7)N29N75N9*2yDkN62#6xfNyaN6gN6oNp4oN6.###6#65"6
NNyDNN"* N*6)#662##N###FNNCN6#6#6Nq#p#6Np#q#q4#6#65"*"N*&E,1oD2DE"EpDDDhEYDEEh2l
Y2UdpB8YDaElUDED/D9pVc9E#E/wE6.5699s9EE*EtD Fc9EA7E!4Ec9E7EE2tDEc9E7EF2tDE2EGs9F
!F#F!6!6#*.DFx8!*FC7H##6N#x898AH2U Fi9 F9s9UDGc9F7F9s97F!4E%GUD Gc9F7F9i9.s9E2UD
Ec9Ex'hOE*+"+O!"epE6DO,5665bOyDbO)DM#,hO! G+EOE!E9!E9!Es97P7Oc9'Os9B+ODO!D6'w2D!
D46/a'E)O*pLDTP9.NP2D9s9,P73P9s97P!4Pc9DP7P!5PET/E)pE2UDE)!E2tD2E2UDE2DE/EhGDPl0
lEE)$Qs96PPi9x 7Oc9y 'PDEEc9!PDG7Gc9G7E2UDEc96G7E!5Ec9GnDGYDgGh2lY2UYDGlU9s9G2.G
962H)Qi96QoPEOPLLPOPY-SVpVV)IFHHMLLLLLLLMMMRdPPPQPQQQRERMRYRaRPRRSSSbTTTTTVcV VV
VXY"Z*ZUZZZhZZ!&8H59c9gHpDD6JH 7vH O!6+##y66/#665)E! E6s96Hi9#H96DM,s97'R#9s9*)s
97H!E*,IEpEs)ws97)Q9s9YQ78Q,E7YQ$PQ*,'EA#'E+Q*,6HT'QE3!E.s9E2tD2E)s9Q!EC!aEH59c9
QpDD6Q/R6/#6++6),RDR60#6656! EHE4p6Q)!E !E!""M!!E)c9uR#jR!9%%c9!&R)"vDx'RG+RRDE6
pEDE7pEDEap,56E!9%%*vD)R!E!E'7,I..&C!a,.,*,'7,E£IDIh2lY2U*DMM/I0xiI6IQ/I6oI*+6lU
E*DM*!rE22DII!"!"s9$Ii9,.I+26HLs9$Ji9 .J+222!"s97J92s961#Ns#FrxZJ2y2N2xJ2ynJA2C2
xJ2L2!x66s97J9s96i9x 7#9!6622s987&K9s9HL*HL"JR9s9&Ka7HL9s !F!A!F!B!G!C!H!D!I!E+
"6+*w#"6ESE!"s9SDS6GSi9*yDxS62#6xsSynS6tS6Sp4S6.###6#65"6SGS! E6EE%#.E%#,pLD'&E%
s9'!E2s9SQ72ErD3T'-a'rD93Ts9T*Ti9£I*DM*!rTEE'E,E.E!E)% 2MDEpE)!Ec9(6Es9',s979s9'
,E)2,U%!"!"s9UQ7T92T%ADYRLOCATEaRUNLOCKZMODIFYRPACKRPOKESQUITSREADSRECALLbTREIND
EXTREMARKTRENAMETREPLACETREPORTVRESETcVRESTORE VSAVEVSETVSKIPXSORTYSUM"ZTEXT*ZUS
EhZWAITZCASELENDCASEPOTHERWISELBROWSEMLJOINERTOTALUZUPDATEZALLANDBLANKBOTTOMDOEL
SEENDTEXTFIELDSFILEFILESSCREENGETGETSIFINDEXMEMORYNOUPDATEOFFONPICTUREPRIMARYPRI
NTRECORDSAYSECONDARYSTATUSSTRUCTURETOTOPUSINGWHILEWITHENDDOENDIFCASEENDCASEOTHER
WISEBELLQDCARRYTDCOLONWDCONFIRMXDDEBUGYc9Us9*Uc9(U"c9y69s97U9*N##XUC+XUL*jUS*61#
665"26UUU7T9UU!&Ux'UUU! &.U!&G+UUDEi656pEAB!E!Es975V9s9/V!E )Es9E*FV7c9*SVy*96E5
Vs9jVq.EDE'E%a'o/DVVV2D!D62D2tDE2D2D2tDE-pE!Es9i7V.E7.Es92.V9nXwEDDELETEDDECHOnD
EJECTzDESCAPEpDEXACTqDINTENSITYuDLINKAGExDRAWyDSTEPDSCREENTALKDALTERNATEWCALLWCO
NSOLE WDATEXDEFAULTXFORMATWHEADINGpWINDEXIXMARGIN9XPRINTgWV5QAQBQCQDQEQALLWCONSO
LE WDATEEHILN)2V2V2V%s9zE%Us9zEV7OE9"V'H2VEV7cE92VEeV7U92V2VE*,"VE'7,EVF!"W!d"VC
!VG*V9'A+H'2Va'.VF!9V'%H"W*W FN2.9nXUEs97XW9LD8W'&E%a'2LDs9E'+'2LDa'EnXaWLD2VDEn
XlEs97W9!A6c9A 72EX+"RDErDW'E%2rDa'XWq7W17W'+WY'2rDa'E2DE2DEX2ZDEX72ND9i972OD9i9
72PDEX+2aEX#c9EZEs979s9s97XZ77)s9Y-Xi9X+Xi97uY+EyY$X,"Z"X"zX*'YXY#'Y,6QF#F#6c9'F
F"%FOi9qF,F,F,Fi9F,FqFi9FqF,FF#F#6Nc9d29M3c9,Fy,Fi9F,wFi9F*W"WE#V'%Hx'EHa'.a*W#"
W*V#"V*V+"VEDE*W656p!d"VEQGC!a*V#"VF&*,'7,HA+H'2Vz,H!u%!"V!"W G"V(G"VNG*V6-#*V6*
V665"VG*VNG*V6)#*V66#61#*V665"VG*V6)#*V661#*V665"VG*W"WLG.C!*DMV'z,HY'YXY,Y$MY,"
!Y"z Y*'Y YY&A#'&Y,'YY7,TYDEap,56EG+ED!E"s97Z9*#N#Fs9r**6/#6""c9*96Y**6)#6"YDZ**
60#6"*65D6! EH!EZs97E9(6DOZ9pV-Z9-Z!EE!Ea'E%D'#s9E'Z+ZD'-,s9ED79s9ZE'Z+Z'#6ZZ Zt
#"C!Za',(Q G6 ! x'GHa'.a*W#"W*V#"V*V+"VGDG*W656p!d"VGE%DtH*W656pa'&*,'7,*V.,Up2o
DUp2oDU)%2Vs9I%Us9IxV7HWp2oDU2V9!"W6s9*Ip2oDUc9(IRp2oDU*W6"W69s9,Hi9HVOIWp2oDU!&
x'III6ap,566!"W*W6"WzIOII.G+IUIUE%D'#D's9Ip9U'+2Vs9IV7UbK#p$p6!"W!"W*!Ep7oD7Mp6c
996M 26(5a'2oD9s9LDtD2!5t0p!D6%XDpB8DEp!x5Ep!x598pB8D19ESTOREY-SELSEoPENDDOPENDI
FEDOONOTEELOOPPRELEASEVRETURNpVSELECTV)IACCEPTFHAPPENDHCALLLCANCELLCHANGELCLEARL
COPYLCOUNTLCREATEMDELETEMDISPLAYMCONTINUEREDITdPEJECTPERASEPGOTOQGOQHELPQIFQFIND
PINDEXQINPUTQINSERTRLISTMRLO "N"A"F"B"G"C"H"D"I"EW#"W66*W+))))"WW!KB6r69c9Kbk66
c9*,Lc9'L*Wc9,vJ6oJ#aJyLLL9!i92VCJNJLLKi9i97LLzLLVNK9c9K,Li97L9c9L*W66L"WI *W+L
!.,.&E%%pB8UA+-&,.QPK&.E%U9s9'L+L-8"V6!"W*V7,TL K#9c9* c9 Ki9 Kc9CKNKLL1Li9Vx89!
VV662V! V!JVNT3T.3T#%T"W!GT.GT#9T"W*W+T$T*T#T9T,OTT-T OT+$T*T #wOTOT OT£TwNT6 OT
*W*W%UT#T%U#T9TwT%U#T9T#T60#T!%UXUUw#T9U#U6Uw#T6 #T!"VVp2oDU"V!V+656!"V*VN!T6eUy
2V*VOU!V 6*VVU#UV*VDM!Vr*VVg"V*V"V OU2oDU2oDU!ETTTPRbrpb7LLzLc9Vx89!V7L*W66L"W*
V"VKE%*V6 !.,V'-.&D'-,UpJpJpJpJypJE%'2pUpUpUpUypU(pU)!"V,U"V"V2Vs97M2VM.pVU&MZp+
Mp97MUc9 U79*,6Ns9M*V"V'*VDN"VrDMGRGMGMNxMxMM*V*V9UMGMNxMxMxM$MZ"MM*V+"VMM$*N!MM
xd,FV7c9SBEFOREBLANKCHANGE DELIMITEDTO FIELDFROMGETPICTURERECORD SAYSDFRECOR
D # TO USINGE!Es9V.E7.Es92TO FIELDFR$E8JKL'OOPQQRYSS%2V2V2V2ZV2V2V8!"q
Vs9F%HTs9FU7E"aV9'#J2VLEbU7E2V9!6 "sVs9*£E*Jc9(ER*J*sVx8!6 "sV*qV6-#6665"qV9s9,L
Ei9EU7F2V9sN*V6M"VuM*V M*V"VuM7,M*V#"VM.!c9N,Mi9,NN0N79MzM!M+))))M M"VNc9*Mc9("V
M9c9Ni976Mc9*VOMN*VOUM.MpU)2V2Vs9$OOV7O2V9NVV7U2V9N$E,V6O#"W"W,)DMz,O*W,VcO..iOQ
U8z,*W#"W,.iO*,#.,&,*W'U5p,UNO#yON#6T 6x82#F#6NM3p7"VV#9YU7LE2V9LEV7)F2ZV9LE*U7H
T2ZV2V9s9U7LE9s9HT2OVi9LEV(J*aV9ZVsFuF'+'2MDZVF!6#w#w#+++++x8VI.VIa'!u%!&!"sVI!d
"oV,Ix'PIIPI*sV#"sV*oV+"oV GD G*sV656'p!d"oVV-HVGG*DM! 6! 1H!"lV!"wV*lV5H#6##"lV
NG#F#6*wVyG6,#OV,Gw#q8x6+ GG#OV,Gw#"wVH+ G+G#"wVH#F#6*wVyG6,#OV,Gq8x6"wVH# GHG2V
#6"VzC1PP!oV(69 QOc9*VOPQ!62VVGq8!"VP!V(6!x5PPP!V(6!x5!8Q2VQP!6!V(6!x5P2VQPV QVG
Pw#PQ6 #PQ*V6(656*VV5#P7pQP"V,-QTD0Q.Q2V2V"VrDfQGRCRCR.,#*V9UVCRGOV2VxQxQ*V6Q"V2
VfQxQ*V Q*V"V2VfQVQ.76!V(6,#566*V6 ,G"wVH60#"wVUG*wV6 #6 #6DMMD%PIZVLH*DMMD'.a'P
IVmH*6 #6 MD*DM%PI!"wV"qV*qV 9INH#F#6*wVyH6,#OV,Hw#q8x6+ HH#OV,Hw#"wV+I+ H+H#"wV
+I#F#6*wVyH6,#OV,Iq8x6"wV+I# I$III"wV+I60#"wV*qV"qVH*wV6 #6 #6DMMD%G+IFI!UA8."gV
!"sV*gV I I #I##cT###cT*gV"gV.*sV#"sVIDI*sV656'pMD'&VIVJZVJ-569Oc9Q!RxCR,R*VOQ*
V"V Q.7'-rD9Rs9PRi9R*WDM*V!VrPRa'2V2VDRR!"V!"Vs9$Ri9,.R+U2W6,Us9$Ri9 .R+U2W22!"V
s9V7S92Vs9UV61#Ns#Frx6S2KVy2NVN2JVTS2NVyJSA2KVC2JVTS2KVL2JV!x66s9V7S9s96Ui9x 7U#
9!6622Vs9V7 T9s9,U*,U"VSRp2oDU9s9 TV7,U9s96Ui9x 7U9!" #N#A#F#B#G#C#H#D#I#E*sV!6
#6.E%2MDa'T(*JHpa'2oDT)%!"lVA2V2vV2uV2V2yV!yV"qVs9%HTs9FKU7JuV2uVK*lVHT2V"lV#6xK
!V4r*! 66*lV6)#66#6/#665"lV*qV60#665"qVc9FK,Ji9J92vV!yV"qVs9FK*Ky**qVK#6"qVbk 6s
9*c96.K# %K9s9,Ji9JVK!&tKx'kKtKkK! G+tKVKDK!yV6 A2VvVT!yV5T#6y*KJ*JK*JL*Jc9U7HT9
s96HT6i9HTKi9s9K,HTi9s9K"sV!"wV*!eV5SSE%2MDa'TXST!G'T05T O)))) Ta'2oDTp2oD!E&odT
TT/ogTzT T*TT6TT#TTTTPRbrpbd,ADDITIVEALLDELIMITED VARIABLES OCTETS EX
CEPTEXTENDEDFIELDSFROMLIKENOMS FICHIERS ENREG. MIS A JOUR RienONSTRUCTURET
OFILE UNAVAILABLEWITHFIELDNAMEC FIELDTYPECFIELDLENNFIELDDECsV++"sV6L4L66*wV*L#L6
#"wVK*wV6!BL'YL020V.V.VL#wLy2.V#rL.VLO6ZD22YVs9MU7M9s9HT2i9Li9LnU7HT9s9HT!V 6Vc9
M M.M*KMaBMi9(M6#LMi9.Mi9VM M*MaxMi9cM6#Mi92YVL6YVM!sU(6!"V8M6T!V8M6T!V"V6 NM!U(
6*VYVNN AASDF DBF$$$ SUB')FO.E5NTYPECFIELDLENNFIELDDECOMGETPICTUR
ERECORD SAYSDFRECORD # TO USINGE!Es9V.E7.Es92TO FIELDFREEEs9G2G2Gs9EG7
SE9s9"GGc9E+"G#O#F2GEG7G#9s9'uE(p!G2GEGTGGHG+'#*G*G'a'F&G$&G$"G*GE2G"DE6!G(6G%#E
F*G#"GE#"C!&G8"V6 OM!V"V6*V YVN8"V2h!,6,r62NNog56r66/56/566NNp6NN!U+66N,.5,"VNr6
x6N6NOO7O!2iV!"jVO"QV6 ,6!iV4(55)56NO#2TVzO2fV2UVO#2UV###2TV2fV!PV fV*jV6#"jV 4O
6pr6iV6!4U+6*jV56!FU+6T2V2Vs9PiU7P9'2V)!"G"G*,!d"G!.,*G,7,qF*G#"GF*G,.*G*G#"GDF*
G+"GF6*G+56p!d"GF*G,&,DF9p*G+"G.,DF*G56p$&GE!'GC!!"G!d"G*G#"G*G+"GFDF*G656xp!d"G
7,FDG*G656xpa'2oD&Gp2oD!ETTTPRbrpbd,ONMISE A JOUR DE L'INDEX TOPRbrpbd,+OXSTU7HT
92VOVHTV.P )yVz,P!UPcP#Ny2nVkP#F###N2nVkP2nV!yVr*"WVnVOVz,*WV 6nVO!Vx8.PE%a'T2V2
Vs9QU7P9'Q+Q'2MD"gV2VP&U7HT9s9HTnU7HT9s9HT"sVi9 QQ2VPVQ*gVdQV8Q*sVTdQ.!F#N#6xXQQ
QQ.*gV"gV Q&E%2MDa'THST(ST2Vc9nU7Q2Vc9RU7HT9s9HT"qV"gV*gVQ*qVVQTQQTQy**gV"gV QT%
2)28Q2QQ22Q2JQ24Q!rY 62Q2Q92QP2GQh2CQ2DQ%s9E%Ms9EN7eE9'28QE-N7E9s9M'N7M92DQE!N7M
924QE8QEp9c9MM'23Q+E+23Q'2sD2NQ3QEhpHMMs9eF eFMFi9Mi972Q2Q9WFLFi9Mi972Q9WFWeFi9M
i972GQ9WFc9,eFi9E3QqFEpHMMs9YF2NQ3QFFp!jT6+HMlTc9FFFi9Fi92Q 7F2kTOM!lTy662#q#Qw#
QGGQw#p#6527Q3QFpHMsV%HTs9RU7HT9s9HTr*"sV2Vi9R -RR*,bR!&bRx'YRbRG+bRORDsR"pi56VT
i4*sV 64Tgpa''%rp*,56wp+++++6/56/56.RppRqpfp S6yB6r6 ,x65u6#B6u6###Fx6x4SB6x6R6p
r6r6x6)56TepmSpDDs9SU7HT9s9HT*Sy*r* 66# S w5 5TTs9'+T2MDMD% TT2eV TT"cVT*cVw#"cV
$N$A$F$B$G$C$H$D$I$E9Y G27QM2YQ3Q GNpHMs9YBG2YQ!Nr*"AQ2KQMYQXH3QXGDpHMs9YjG2JQ
MJQXH3QGCpHMQG3QM4pGM3QGPpHMs9YG2QQM2RQ3QGkpHMs9YG2RQM3QGip!Y6+HM HHY 7HYc9 H(H-
Hi9-Hi92Q 7GO2YM!Yy662#q#Qw#q#Qw#653QdHp!Z"5Q65!$R"ZQ65!sU"9Q65!IS"SQ652PQ3QH6PQ
B6r6HMs9J72OQ9,Mi9*5QMs9MQQH62#N#FxHw#OQw#Qw#65"5QH"5Q#6MZEpEZ)ws97Z9s9YQZE)$QbZ
6PPihZ 7Oc9y nZPDtZEc9!Pz'THST(ST2Vc9nU7Q2Vc9RU7HT9s9HT"qV"gV*gVQ*qVVQTQQTQy**gV
"gV QT%2s9N7EnN74N9THupB8,N,N)!Q 6!5Q w E8!"O!O"O!"O*O E*O 6E#EN###N*O"O*O"OdE!
O"O!"OvN!Or*O"O!"N*NDM*O"O!Or*O"O F*N$"NU3QIp*9Q6+#"9QHM I1I*9Q 2QI*9Q#c9GIOITI
i9TIi92Q 7HOM*9Qqy6#62#q#Qw#OQw#Qw#65"9QxJYQJ3QINpHMMs9YJ*AQ6/#6QQI6)#662#6OQw#Q
w#6)#6*0N"WQ!"0N!p!q6)#66#6/#6JQJ*AQ6)#6*0N"LQ!"0N!p!q6)#66#6/#665"5Q*WQ*ZQ6)#66
2#6KQOQw#6#65"ZQJQJ*LQ*SQ6)#662#6KQGOQw#6#6#6/#665"SQ2KQPQ2PQOQQ2QHOQKQ2KQQ2QPQ2
PQH3QJsD'&sD'E%2sDa'DQl!ENGx2NGjF,NFNN!Q8F3F"N!$T6YFDMT!#T+xOF*N 6+6Ex G2NxF*O"O
O6F!O"O2NEN2NE*O"OP6F GN2NENN!QFF"N!$T6FDM*N!8!$T 6+6E!6!"N!"O!O"O*O H 69s9G*Oc9
* ,Hc9 iG6bG#TGy,H,H9!s9CGNGL4HGi9s97DHDHzDH9s9G7H9s9H*N66LH"N*O"O*O""Q!&JQK!QR5
"K#K#N#F!N4r*"EQ6/#6656)#*EQ66xRK6#65!S60#*EQ665tKx'KLG+LLeK!Q EzDK60K6022Q4QK6M
cp*Q#"Q56r6!A+6MNDK6/5OD6/5PD66MNQK!jT 6M!sU MJQ+LM*56!Y !S cL2QKMOQKx'cLLQQM!Z
7QcLMG+LLcLx'cLJQ+L!R +LM2Q+LMOQK6M*56!Y !S +LMYQL$R5LMpM!$R !N*Ly*!N5AL6A6CQlO%
G*O6 !8!.,.&-,,NpMpMpMpMypM2 Os9iHp9,N'KA+H!£N(62NH'2NNM+'2OWD2N2WDT2OTHU2OO2O!(
OOw#6!,O6 #6 #"N"N"N"N#"N2O*N!6DM*N6M!"O!"O*N"N*NKkIO I# I#y"N&o6!O66!OrObIU!I!O
"O*NK"NOGN!OrGJI!N(6B8KIIOLjL*N*N6DM*N+T8#"N*N6 #6 vMI*N##*N6DM*N*N##8"M3QM4pHJQ
IS51MMIpM!IS !Q RQDM22Q63QgM9c9sD'E%a'MsD9c9wi9pM9c93QsD6QOy6 M!E2oDMTTTPRbrpbd,
AAFORMPLAINPRINTTO2N9*rYyDkN6xYxfNyaN6YoNp4oN6.Y#65"6YyDNY"* Y6)#662#YN###FNNY6#
6#6NYNp#q#q4#Y"*"Y*&EN*NI6 #6 #6#"NIx2KxJOLjL*N*N6kIK"N!O5OLJ5kI2O*N"N*N*N6JK"NO
2OGOJx2Ox J*N"NIxJOLjL*NKJ6 #6 #6++##"NJ6 #6 #6#"NvM!O4OJ4UkI2O*N"NIjLOK2O*NK%K#
#%K"NO2OK*N"N2OIjLNHK*N"NM5K*N*N6DMO'.&E%NK'E%NM'OM,NM,NM,OM,KNK'E%O'E%'a'N2WD,N
+ K++ K# #h'.7#"OOx8OO !YEx'hOE*Y+O!"YEYDO,56Y5bOyY)DM#Y! G+YE!EYE9!Ys97Y7Oc9Ys9
B+ZDO!DZ2D!D46/Z)O*pZTP9.Z2D9 Z,P73P&Z97P!,ZPc9DP2ZP!5P8ZE)pEZE)!EDZtD2E2JZ2DEPZ
EhGDVZl0lZE)$QbZ6PPihZ 7Oc9y nZPDtZEc9!Pz %N%A%F%B%G%C%H%D%I%E66 OLFL"O*N+6M*OI
L ILL #L7y!"OOG!Or*N LL#qLOO!6 L+L Ly2O2OL*N*N6"OLy*N6*ODM*N8O*N"NL*N+6*ODM*N+8#
"N*NOOx8vM*Ox8NM*N6-MMMT"NN'z,xZMAM"N2 O*N+6 #6 #6#"N2 O*N6*N*N66M*NO'.*NT*N6DM8
*N"N*N"N*N"N*O"O*N 7#"N!N(6B8K5Kep66"J"oJ!YJ ,I*J6*oJ67ISJ7IIIHxaJ"JSJcI!J cI2aJ
!J 2SJpD/pIpIRpIHpI(pI2oDI2oDI!ETTTPRbrpdXd,AAONASCENDINGDESCENDINGTOOLJ5kI2O*N"
))5NCOPYRIGHT NO(C) 1982 Jx2RSP, INC NI))J5)J/5AONASCENDINGDESCENDINGTOOLJ5
kI2O*N"))5NCOPYRIGHT NO(C) 1982 JxE&odN NN/ogNz!E2oD,NCOMMANDNOM TYP DI
M DECABANDON MODIF. (Y/N) CREATION BUFFER PLEIN. Y SAUVEGARDE, N ABANDON
STRUCTURE$$$BAKx6N6NOO7CHAMP 01 CQCHAMP 02 C6QCHAMP 03 COQCHAMP 04 ChQCHAMP
05 CQCHAMP 06 CQCHAMP 07 CQCHAMP 08 CQCHAMP 09 CQCHAMP 10 CQCHAMP 11 CRCH
AMP 12 C0RCHAMP 13 CIRCHAMP 14 CbRCHAM'wE2G6!I(6'%.+Epp0Eqp6$wE"I!'I(666*IwE#
"I'%x6-nIz,!J+66GEa'.'E2G6!II(6'%.EppEqp6$E"I!'I(666*IE#"I'%x6-nIz,!J+66E.6GF666
eplG6!G(6ND6/5OD6/5PD6!H(6ZD55LDeF!G(6LD%6!(H(6VDGx6!5H+6QDG!BH(6TDGx6!OH+6WDG!i
H(6XDGx6!H+6YG!vH(6YDGx6!H+6DG!H(6nDGx6!H+6zDG!H(6pDGx6!H+P 15 CRCHAMP 16 CRCH
AMP 17 CRCHAMP 18 CRCHAMP 19 CRCHAMP 20 CRCHAMP 21 CSCHAMP 22 C*SCHAMP 23
CCSCHAMP 24 CSCHAMP 25 CuSCHAMP 26 CSCHAMP 27 CSCHAMP 28 CSCHAMP 29 CSCHA
MP 30 CSCHAMP 31 CTCHAMP 32 C$T ELD 25 CuSFIELD 26 CSFIELD 27 CSFIELD 28
CSFIELD 29 CSFIELD 30 CSFIEL'THST(ST2Vc9nU7Q2Vc9RU7HT9s9HT"qV"gV*gVQ*qVVQTQQTQ
y**gV"gV QT%26qDG!H(6uDGx6!H+6xDG!H(6hGx6!H+6yDG!H(6DGx6!I+6DGlGeG!GhG!G+6a'!ETT
TPRbrpbd,OFF ON FICHIER ALTERNANT - DATE DU JOUR - UNITE DE DEFAUT -
ALTERNATE - BELL - CARRY - COLON - CONSOLE - CONFIRM - DEBUG
- DELETE - ECHO - EJECT - ESCAPE - EXACT - INTENSITY - LINK
AGE - PRINT - RAW - STEP )2IJ2J2JJ!"FJ2CJs9E'J7GE9s9*I(I"FJ9E*J7U
EE9E4J7jEE9 2IJ2J2JJEJ7I9'I2CJE*FJICJI*+6)EExEE2QJ*FJLxI2mJ2J2JCFIJ2IJ2JJJ2JJ#2n
J2J2J#62qJ2J2J6"VJnJGqJOmJN9FxAO!Jr*"J"J,&'2XJ+'2BJ.!"NJ2aJ2RJ*,F&2XJH2RJBJ'&&*N
J.,.-+'2XJ2aJQJ*NJ6"NJHaJH2aJRJF*NJ&QJo6F2QJ2PJ2SJ)DM!"TJBJ' - TALK - BASE
ACTIVE - INDEX EXPRESSION CLEBASE INACTIVE - TOyIKIKI7-!
!K6!!Ky6672KI2KO-!!K6!KI#I!!KK66*KDM!K!Jr*KKo"KKo&))))KJ2Fs9EF 7o&6!iF9ZD2F2ZD'+
2FF2ZDU2FEF9Ec9*BE#F7BE2F6EF9Ec9*iEEEF9Ec9wF7Ec9rF7BE*E9(6F2FE6epE6U2FEpDFE!F(6F
'E%a'E!,XJ',RJ)Gz,G G*NJ#"NJ/Gz,pI*VJ*TJ6"TJi!PJ4QJGH*"J!rJ"J*FJ"ZJRJGQJ*NJ6pIOH
"NJ"LJGPJ2QJHOHXJ'RJG7,OHG*NJ#"NJG7,pIJJ2J!YJ GBJ'.*FJ 6EIHBJ'*VJ*6)DM.*JEI8*!QJ
Ox8y!66QJOH*"J*FJ"ZJRJG*LJ+"LJGBJ')DM!"TJQJ*TJ6"TJ*VJ6.cHRJF&FBJ'E%XJ'E%a'-*Jy*D
I!H(6ITRI TERMINE QJOH HIJ2JQJGyHI!rJ"J!bJ"ZJ!6 &N&A&F&B&G&C&H&D&I&EEzGG"8z "
7"8y28 28DBASEMSG*END*EXITAUCUN TEXTE D'AIDE HELPGG"8z "7"8y28 28DBASEMSG*
END*EXITNO ).).2YH2XH2WHs9EYHBESH7BE9s9'G2YHEXHiEOH7iE9s9G2XHEWHGHH7G92WHs9G"ZHs
9*G9s9,Ei9EYHGXHG+'2VHa'.WHF"H!"H!dH"H*H F*H8*H6-#*H6,Ei9EIII7I92I$HEIHIH+H'2Iz
,!u%IF*I(HF#6"I*IIO'HN#6"IxH2IF*IIO'H2I#6"I!"I"IIBG*I"I*I9s9"I(H"I*I*"I*I'H*I6)#
66)#*I66#61#*I6"I*I9s9,9Gi9"IF*I65#"IIG*I"I*I9s9"I(H"I*I*"I9s9£I7G9s9"I*"I*I'H*I
6-#6*I6"I*I9s9,Gi9"IOG*I65IJHa'!&HI'*DMz,*I*IIO7H*H665"H*H"H*H"HE."H*H F'xF*H*H8
*H6-#*H6*H665"H*H"H6F*H"H+F!"H!dH"H*ZH9s9*"bHc9(G"H*H8*H6-#*H6*H665"H*H"H*bH9s9,
Fi9F*H6 !u% 2VH'.a'.,.,!".! G!dH VH'*DM.a'*#"G.G+mG*G,.G+G*GVH'&-.E%a'G(pGHpGlpG
mpGpGa'2oDGa'2oDG!ETTTPRbrpbH'HIH*I IH*I a'.I'*DMz,HGa'G+HGI'*DMz,a'*II 'HIH*I I
H*I .I'*DMz,HHI'E%a'I(pHpInpHTpHRpIopHspHSpHI'E%a'2oDII'E%2oDI!ETTTPRbrpbd,ADDFR
OMONRANDOMREPLACEWITHPRbrpbd,d,FIELDSFORTO2oDG!ETTTPRbrpb- DELETE - ECHO
- EJECT - ESCAPE - EXACT - INTENSITY - LINKAGE - PRINT - RAW
- STEP )%2H2H2Hs9E%pHs9EHDEH7DE9'4H2HEHyEH7yE2H9"Hs9*H9s9,Ei9EHpHH7pH2H9
s9DH"I*DH2Hc9(DH"H9EHLH+E'2Hz,E+'2H8.a'!,UJ2K! L"Ks9rEJ7J92Ks9*EpGJc9(LERpGJ*K8!
"K6 9s9,rEi9)E%!&,"K"K2 KWD2 K2WD2K2K2K2K2K!"K*K'I"K2K2K*K EHE!K4*K"KEUOKGK2K#F*
KKg."K!K4$F!#F'E7,E!"KI"K2K*K SFbISF!K4*K"K3F KOKG!yjFOxgF"K*KKJJ!Jr*K'I"K2K*K F
IF!K4*K"KFK!KF2KKG2Kx2K2KI"K2K*K GHG!K4*K"u%!"I65HxF*H9s9*"Hc9(TH!NdF*I6)#6"Ic9'
TH*I6)#66#61#665"I*H9s9,Fi9F!"I*I FNF*I(TH*I6)#6*I6)#66#61#665"I*I"IFHG*I#"I"H*H
!NF*I6)#6"IHO*I'DH*I6)#6p#65"I*I#"I"I!"I*I G(PG*I6-#6*I665"I*I"I*G!&*DM! 6,*Gx'G
G+GsGG*I !"HGHG*H G! GH'*DM.a'*H#"H*I G+GGx'GG*H"H'*DMKFKGLJ2KKBG.$BG!2KBG,"K"K2
KKUHKG!K6#K/w$GZ"G"KKGKGK2KGmF*K+"KGKGK2K£GmF*K6G"K2 KK2KE,,"K*K"K2 KE!K6#Kw$H!
HH"KKHHKGKOK2KHHmF$%H!HH'+H7,HH*K#"KKGKOK2KHHmF*K"K2 KEK0HsHKH2K!K4HI HK2KKH2K*K
"K2 KELJTOHKHKH7/o&THy2K7HNy2K#6!Kx8K66*KDM!.H'&-.E%a'DH*H656'pH(pHRpHpHHpHRpHH'
E%a'2oDHa'2oDH!ETTTPRbrpbd,FIELDSONTODH!E)2I2I2I2I2Is9+FIEI7E9s9'H2IEIkEI7kE9s9"
I*H2I92IEIEI7E9s9I"Is9*H92Is9,Ei9EI FI7 F9s9I"Is9*H92Is9,Ei9Es9£I7E9s9*H9s9 'N'
A'F'B'G'C'H'D'I'EK!Jr*KKo"KTO"J-IKIK6I72K7BI2K*KDMJ!Jr*KKo"KTOyIKIKI7-!!K6!!Ky66
72KI2KO-!!K6!KI#I!!KK66*KDM!K!Jr*KKo"KKo&))))KJJ! L',J,Jd,J ,J,J/og/Jz2oDLJOJ K2
WD!E5NCOPYRIGHT NO(C) 1982 Jx2RSP, INC NI))J5)J/5KJ6 #6 #6++##"NJ6 #6
FIELDSRECORD M1 Y LISTE DES CHIFFRES D'AFFAIR
E PAR PROFESSION N Y Y PROF N N Profession 14,NOM Nom du Client 12,PRE
NOM Prenom 12,VILLE Ville 16,TEL Telephone 15,VENTE Prix Vente HT Y
select primary store 't' to test enddo return e choix'6' .or. c
hoix '7' do demlist case choix '8' store 'C' to elem do listelem release
nomaff case choix '9' store 'L' to elem do listelem release nomaff case !(
choix)'A' s# 00000C NI))J5)J/5KJ6 #6 #6++##"NJ6 #6
FIELDSRECORD ,NM,NM,OM,KNK'E%O'E%'a'N2WD,N+ K++ K# #h'.7#"OOx8OO !im
ary use &fref index &xcle goto top if choix # '5' ligm1,0 say '
mettre la premiere zone a blanc ou 0 pour abandonner ' endif store 1
to cpt set intensity off do while cptnbzonp store 'mzon'-str(noz
,1+int(noz/10)) to mzon do initzone if test'd'.and.nomess0
if verif 'NA'.and.fieldtype#'N' store tabv-'N' to tabv e
lse store tabv-'O' to tabv endif lt,ct say texte
endif K!Jr*KKo"KTO"J-IKIK6I72K7BI2K*KDMJ!Jr*KKo"KTOyIKIKI7-!!K6!!
Ky6672KI2KO-!!K6!KI#I!!KK66*KDM!K!Jr*KKo"KKo&))))KJJ! L',J,Jd,J ,J,J/og/Jz2oDLJO
J K2WD!E5NCOPYRIGHT NO(C) 1982 Jx2RSP, INC NI))J5)J/5KJ6 #6 #6++##"NJ6 #6
FIELDSRECORD dbase menupTRAITEMENT dBASE II
version L.C.E *** *** TROP DE COMMANDES 'RETURN' RENCONTREES ***oto top store
' ' to nomfich erase 5,5 say 'nom du fichier sur lequel vous voulez t
ravailler' 5,65 get nomfich picture 'AAAAAAAA' ligm1,0 say 'tapez return pou
r abandonner' read * veut-on revenir au menu principal if nomfich' ' retu
rn endif store !(nomfich) to nomfich store nomfich to nomaff locate for nomf
nomfich if nomf # nomfich .or.eof store dbase menupTRAITEMENT dBASE II vers
ion L.C.E *** *** TROP DE COMMANDES 'RETURN' RENCONTREES ***1 to nomess
do affmess else store 't' to correct endif enddo
goto top replace intitf with date-unit-mat if mat "6128" store
20 to ligm1 else store 29 to ligm1 endif endif release date,correc
t,mat use store 't' to test1 do while test1't' if reprise'f' store 'F
' to rep erase 1,26 SAY 'GESTIONe 't' to vide endif endca
se if vide't' release tabv,test,vide,cpt,cle,mzon,mzon1,mzon2,mzon
3,mzon4,mzon5 return endif store 0 to nomess if choi
x'1' store 1 to v1 store nbzonp to v2 do verif endif
if nomess#0 ligm1,0 do affmess else
store ' ' to cle select primary use &fref index &xcle
store 1 to cpt goto top do while cptnbzonp NOM C
12 0 3 7Nom 312NA
1 PRENOM C 12 0 326Prnom 334NA
2 DERVISITE C 8 01653Dernire Visite 1670ND
00/00/00 00/00/00 3 PROVISITE C 8 01852Prochaine Visit
e 1870ND 00/00/00 00/00/00 4 LIEU C 1 0
2056Lieu (B,D,N) 2070NL B,D,N
5 BE "C c !B a !8 P p"A b !B c !A a "B a "B b "D d "B b ! !A b A a !
!B c / O o a A a A u. E T W ou' Jl& 4 Al& 3 Ak& 5 Dk& 3 Aj% 3 Aj' 6
Ck' 4 Bi& 3 j% 2 i& 4 Ch& 4 Ag$ 2 , L l