      PROGRAM TERM_SIZE
      INCLUDE '($DVIDEF)'
      INTEGER*4 PW,PL
      CALL LIB$GETDVI(DVI$_DEVBUFSIZ,,'TT',PW,,)
      CALL LIB$GETDVI(DVI$_TT_PAGE,,'TT',PL,,)
      WRITE(*,*) PW,PL
      END
