*DECK NDLPS2T 
      PROC NDLPS2T; 
      BEGIN 
      CONTROL STEXT;
      DEF PRU$SZ  # 640 #;   # NUMBER OF CHARS IN ONE PRU              #
      DEF UBZ$CON # 100 #;   # MULTIPLE USED TO CALCULATE UBZ CONSOLE  #
*CALL PS2CNDL 
      END 
      TERM