*COMDECK PLT1 
          CONTROL  NOLIST;  #PLT1#
  CONTROL EJECT;
  COMMON PLTCOMM; 
  BEGIN 
  BASED 
      ARRAY PLTATTRIBUTE[0:0] S(1); 
        BEGIN 
          ITEM PL$INFO U(0,0,60); 
          ITEM PL$TYPE      U(0,0,12);
          ITEM PL$SIGNEDFLG U(0,0,1); 
          ITEM PL$SIGNFLAG   U(0,1,1);
          ITEM PL$FIGCON    U(0,2, 5);
          ITEM PL$FIGZERO U(0,2,1); 
          ITEM PL$FIGSPACE U(0,3,1);
          ITEM PL$FIGQUOTE U(0,4,1);
          ITEM PL$FIGLOWV  U(0,5,1);
          ITEM PL$FIGHIGHV U(0,6,1);
          ITEM PL$CODE   U(0,7,5);
          ITEM PL$6BITTYPE U(0,7,5);
          ITEM PL$LOWC   U(0,12,12);
          ITEM PL$LINE   U(0,12,16);
          ITEM PL$COLUMN U(0,28,7); 
          ITEM PL$LENGTH U(0,35,8); 
          ITEM PL$ALL        U(0,43,1); 
          ITEM PL$STRINGPTR U(0,45,15); 
        END 
  
  BASED 
      ARRAY PLTSTRING[0:0] S(1);
        ITEM PLT$CHAR C(0,0,10);
  END 
  
  
  
  
          CONTROL  LIST;    #PLT1#
