!
!     
! ***** PRINT KEYPAD DIAGRAM *****
!
!
PROCEDURE fred$print_keypad
   LOCAL termtype;

   termtype := fred$test_vt_mode;

   if termtype = "100" then
      fred$hidden_subprocess
	("print/queue=FRED_KEYPAD_PRINTER/noflag/noheader/notify FRED_VT100_KEYPAD");
      MESSAGE ("VT100 keypad diagram printed on the Letter Quality Printer.");
   else
      fred$hidden_subprocess
	("print/queue=FRED_KEYPAD_PRINTER/noflag/noheader/notify FRED_VT200_KEYPAD");
      MESSAGE ("VT200 keypad diagram printed on the Letter Quality Printer.");
   endif;

ENDPROCEDURE;