*COMDECK SPBT1
  CONTROL EJECT;
  COMMON SPBTCOMM;
  BASED 
      ARRAY SPBT[0:49     ] S(2); 
        BEGIN 
          ITEM SPBT$WORD1 U(0,0,60);
          ITEM SPBT$LOBOUND U(0,0,15);
          ITEM SPBT$HIBOUND  U(0,15,15);
        ITEM  SPBT$LINE     U(0,30,16); 
        ITEM  SPBT$COLUMN   U(0,46,7);
          ITEM SPBT$WORD2 U(1,0,60);
          ITEM SPBT$PROC   U(1,0,15); 
          ITEM SPBT$STATUS U(1,15,15);
          ITEM SPBT$TYPE   U(1,30,14);
          ITEM SPBT$VERB   U(1,44,1); 
          ITEM SPBT$DNAT     U(1,45,15);
  
        END 
