*DECK RGPROCS 
USETEXT CCTTEXT 
USETEXT RPTEXT
PROC RGPROCS (P1, P2, P3, C1 ); 
          BEGIN 
*CALL RPROCS
          $BEGIN
ENTRY PROC CT$TRACE (P1, P2, C1 );
          BEGIN 
  
          #TRACE CTEXT FROM RGEN. # 
          #P1 IS THE CTEXT INDEX, # 
          #P2 IS THE CTEXT VALUE, # 
          #P3 IS THE TYPE (OR     # 
          #RESERVED IF ITS A      # 
          #RESERVED WORD ATOM).   # 
  
          IF DB$CTEXT EQ 0
          THEN
              RETURN; 
          DBCTEMP = " ";
          C< 40     , 10 > DBCTEMP = DEC ( P1 );
          C< 40 + 10, 10 > DBCTEMP = C1;
          C< 40 + 20, 10 > DBCTEMP = DEC ( P2 );
  
          CBLIST ( 1, DBCTEMP, 40 + 30 ); 
          RETURN; 
          END 
          $END
          END #RGPROCS# 
          TERM
