*COMDECK SCMAC
          CONTROL NOLIST;    #SCMAC#
COMMON SCMAC; 
  BEGIN 
    ITEM
      PGIX=0, 
      EOFI=0, 
      PPTR, 
      FCON, 
      POZN, 
      ZPOS, 
      DEFN, 
      RPLI S:CLIST ,
      TROP, 
          FTEST;
ARRAY[CSTCP]S;  #CONSTRUCT STRING#
     ITEM 
     CSRF(1,0,18),
     CSRFL(1,0,9),
     CSRFR(1,9,9),
     CSDF B(01,36,01),             # TRUE IF DECIMAL INT CAME FROM A   #
                                   # DEF OR A STATUS CONSTANT          #
     CSNR(1,42,18), 
     PBV(1,18,18),
     CRNO(0,0,18),
     FLNK(0,18,18), 
     BLNK(0,42,18), 
     CST0(1,0,60);
ARRAY[3]; ITEM POSN;
  END 
          CONTROL LIST;      #SCMAC#
