text: /** **** **** **** **** **** **** **** **** **** **** **** **/ 
  /*Relocate attribute qualifier triplet X'80'*/ 
  /** **** **** **** **** **** **** **** **** **** **** **** **/ 
  
   for (i=40; i>30; i--) 
   exitstruc->record[i] = exitstruc->record[i-2]; 
  
  /** **** **** **** **** **** **** **** **** **** **** **** **/ 
  /*Change mmddyy to mm/dd/yy*/ 
  /** **** **** **** **** **** **** **** **** **** **** **** **/ 
  
   exitstruc->record[30] = exitstruc->record[28]; 
   exitstruc->record[29] = exitstruc->record[27]; 
   exitstruc->record[28] = 0x61; 
   exitstruc->record[27] = exitstruc->record[26]; 
   exitstruc->record[26] = exitstruc->record[25]; 
   exitstruc->record[25] = 0x61; 