*DECK PRINTOV 
          PROC PRINTOV; 
          BEGIN 
          XREF BEGIN
              FUNC DEC  C(10);
              FUNC OCT  C(40);
              PROC CBLIST;
          END 
          $BEGIN
CONTROL EJECT;
          XDEF PROC PRINTVAL; 
          PROC PRINTVAL (NUM, NAM, VAL);
          BEGIN 
#**********************************************************************#
#*                                                                    *#
#*     PRINTVAL BEGINS HERE                                           *#
#*                                                                    *#
#**********************************************************************#
  
          ITEM NUM I; 
          ITEM NAM C(10); 
          ITEM VAL I; 
  
          ARRAY PRINTVALUE [0] S(3);
          BEGIN 
            ITEM PRINTSP C(0,0,1) = [" "];
            ITEM PNUM C(0,6,9); 
            ITEM PNAM C(1,0,10);
            ITEM PVAL C(2,0,10);
          END 
  
          PVAL [0] = DEC (VAL); 
          PNUM[0] = DEC (NUM);
          PNAM [0] = NAM; 
          CBLIST (1, PRINTVALUE, 30); 
          RETURN; 
  
          END 
  
CONTROL EJECT;
          XDEF PROC PRINTOCT; 
          PROC PRINTOCT (NUM, NAM, VAL);
          BEGIN 
#**********************************************************************#
#*                                                                    *#
#*     PRINTOCT BEGINS HERE                                           *#
#*                                                                    *#
#**********************************************************************#
  
          ITEM NUM I; 
          ITEM NAM C(10); 
          ITEM VAL I; 
  
          ARRAY PRINTVALUE [0] S(4);
          BEGIN 
            ITEM PRINTSP C(0,0,1) = [" "];
            ITEM PNUM C(0,6,9); 
            ITEM PNAM C(1,0,10);
            ITEM PVAL C(2,0,20);
          END 
  
          PVAL [0] = OCT (VAL, 0, 20);
          PNUM[0] = DEC (NUM);
          PNAM [0] = NAM; 
          CBLIST (1, PRINTVALUE, 40); 
          RETURN; 
  
          END 
          $END
          END 
          TERM; 
