| 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 | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 493 | 
   | 
       Result[i*3 + 0].DestID := -1; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 494 | 
   | 
       Result[i*3 + 0].PosDestExts := 'M3GA'; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 495 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 | 496 | 
 < | 
       Result[i*3 + 0].SrcOffset := $20 + i*240 + 4; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 497 | 
 < | 
       Result[i*3 + 0].DestID := -1; | 
 
 
 
 
 
 
 
 
 
 | 496 | 
 > | 
       Result[i*3 + 1].SrcOffset := $20 + i*240 + 4; | 
 
 
 
 
 
 | 497 | 
 > | 
       Result[i*3 + 1].DestID := -1; | 
 
 
 
 
 
 
 
 
 
 
 
 | 498 | 
   | 
       Result[i*3 + 1].PosDestExts := 'OBAN'; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 499 | 
   | 
  | 
 
 
 
 
 
 
 
 
 
 
 
 | 500 | 
 < | 
       Result[i*3 + 0].SrcOffset := $20 + i*240 + 8; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 501 | 
 < | 
       Result[i*3 + 0].DestID := -1; | 
 
 
 
 
 
 
 
 
 
 | 500 | 
 > | 
       Result[i*3 + 2].SrcOffset := $20 + i*240 + 8; | 
 
 
 
 
 
 | 501 | 
 > | 
       Result[i*3 + 2].DestID := -1; | 
 
 
 
 
 
 
 
 
 
 
 
 | 502 | 
   | 
       Result[i*3 + 2].PosDestExts := 'ENVP'; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 503 | 
   | 
     end; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 504 | 
   | 
   end; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 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; |