| 358 |  | function Impt(Connection: TDataAccess; FileID: Integer): TDatLinkList; | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 359 |  | const | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 360 |  | types: array[0..0] of String[4] = | 
 
 
 
 
 
 
 
 
 
 
 | 361 | < | ('*'); | 
 
 
 
 
 
 
 
 
 | 361 | > | ('Impt'); | 
 
 
 
 
 
 
 
 
 
 
 | 362 |  | var | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 363 |  | i: Integer; | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 364 |  | begin | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 425 |  |  | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 426 |  | function M3GM(Connection: TDataAccess; FileID: Integer): TDatLinkList; | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 427 |  | const | 
 
 
 
 
 
 
 
 
 
 
 | 428 | < | types: array[0..7] of String[4] = | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 429 | < | ('PNTA', 'VCRA', 'VCRA', 'TXCA', 'IDXA', 'IDXA', 'TXMP', '*'); | 
 
 
 
 
 
 
 
 
 | 428 | > | types: array[0..6] of String[4] = | 
 
 
 
 
 | 429 | > | ('PNTA', 'VCRA', 'VCRA', 'TXCA', 'IDXA', 'IDXA', 'TXMP'); | 
 
 
 
 
 
 
 
 
 
 
 | 430 |  | var | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 431 |  | i: Integer; | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 432 |  | begin | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 433 |  | SetLength(Result, 8); | 
 
 
 
 
 
 
 
 
 
 
 | 434 | < | for i := 0 to 7 do | 
 
 
 
 
 
 
 
 
 | 434 | > | for i := 0 to 6 do | 
 
 
 
 
 
 
 
 
 
 
 | 435 |  | begin | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 436 |  | Result[i].SrcOffset := $0C + i*4; | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 437 |  | Result[i].DestID := -1; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 443 |  | function Mtrl(Connection: TDataAccess; FileID: Integer): TDatLinkList; | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 444 |  | const | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 445 |  | types: array[0..0] of String[4] = | 
 
 
 
 
 
 
 
 
 
 
 | 446 | < | ('*'); | 
 
 
 
 
 
 
 
 
 | 446 | > | ('Mtrl'); | 
 
 
 
 
 
 
 
 
 
 
 | 447 |  | var | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 448 |  | i: Integer; | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 449 |  | begin | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 586 |  | SetLength(Result, 1); | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 587 |  | Result[0].SrcOffset := $8; | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 588 |  | Result[0].DestID := -1; | 
 
 
 
 
 
 
 
 
 
 
 | 589 | < | Result[0].PosDestExts := '*'; | 
 
 
 
 
 
 
 
 
 | 589 | > | Result[0].PosDestExts := 'ONCV'; | 
 
 
 
 
 
 
 
 
 
 
 | 590 |  | end; | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 591 |  |  | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 592 |  |  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 729 |  | SetLength(Result, 1); | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 730 |  | Result[0].SrcOffset := $50; | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 731 |  | Result[0].DestID := -1; | 
 
 
 
 
 
 
 
 
 
 
 | 732 | < | Result[0].PosDestExts := '*'; | 
 
 
 
 
 
 
 
 
 | 732 | > | Result[0].PosDestExts := 'TXMP'; | 
 
 
 
 
 
 
 
 
 
 
 | 733 |  | end; | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 734 |  |  | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 735 |  |  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 747 |  | begin | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 748 |  | Result[i].SrcOffset := $20 + i*8 + 4; | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 749 |  | Result[i].DestID := -1; | 
 
 
 
 
 
 
 
 
 
 
 | 750 | < | Result[i].PosDestExts := '*'; | 
 
 
 
 
 
 
 
 
 | 750 | > | Result[i].PosDestExts := 'PSpc'; | 
 
 
 
 
 
 
 
 
 
 
 | 751 |  | end; | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 752 |  | end; | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 753 |  | end; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 1103 |  | SetLength(Result, 2); | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 1104 |  | Result[0].SrcOffset := $94; | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 1105 |  | Result[0].DestID := -1; | 
 
 
 
 
 
 
 
 
 
 
 | 1106 | < | Result[0].PosDestExts := '*'; | 
 
 
 
 
 
 
 
 
 | 1106 | > | Result[0].PosDestExts := 'TXAN'; | 
 
 
 
 
 
 
 
 
 
 
 | 1107 |  | Result[1].SrcOffset := $98; | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 1108 |  | Result[1].DestID := -1; | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 1109 |  | Result[1].PosDestExts := 'TXMP'; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 1133 |  | begin | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 1134 |  | Result[i].SrcOffset := $20 + i*8 + 4; | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 1135 |  | Result[i].DestID := -1; | 
 
 
 
 
 
 
 
 
 
 
 | 1136 | < | Result[i].PosDestExts := '*'; | 
 
 
 
 
 
 
 
 
 | 1136 | > | Result[i].PosDestExts := 'PSpc'; | 
 
 
 
 
 
 
 
 
 
 
 | 1137 |  | end; | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 1138 |  | end; | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 1139 |  | end; |