SUBROUTINE KEYPAD (ONOFF) C***************************************************************************** C C Description : Sets the VT100 terminal in AUXILARY KEYPAD mode or NUMERIC C KEYPAD mode. C C Arguments : ONOFF = STRING containing 'ON' (aux. mode) or C 'OFF' (num. mode) C C Author : R. Beetz C AKZO PHARMA, Oss Holland C dept. SDA C C Version : V1.0 Date : 22-dec-82 C C Module name : KEYPAD.FTN C C Package : RSX-LIBRARY C C Compilation/Linking : FOR/F4P/TR:NONE KEYPAD C C Updates : name version C C description : C C***************************************************************************** C BYTE ONOFF(1),ESC(2) C ESC(1) = 155 ESC(2) = 0 CALL SCVTLU (ONOFF) IF (ISCOMP(ONOFF,'ON') .EQ. 0) 10,20,20 C THEN 10 CALL SWRITE (5,'+$',ESC,'=') GOTO 90 C ENDIF 20 IF (ISCOMP(ONOFF,'OFF') .EQ. 0) 30,40,40 C THEN 30 CALL SWRITE (5,'+$',ESC,'>') GOTO 90 C ENDIF 40 CALL FATAL ('KEYPAD','Incorrect argument') 90 RETURN END