INTEGER FUNCTION IGTCHR C***************************************************************************** C C Description : Waits for a character input from the terminal and returns its C ASCII-value C C Arguments : None C C Author : H.A.M.Fikke C AKZO PHARMA, Oss Holland C dept. SDA C C Version : V1.0 Date : 27-dec-82 C C Module name : IGTCHR.FTN C C Package : RSX-LIBRARY C C Compilation/Linking : FOR/F4P/TR:NONE IGTCHR C C Updates : name version C C description : C C***************************************************************************** INTEGER*2 IPAR(6) C IEFN=1 !Event flag number IRAL=520 !Read all characters CALL GETADR(IPAR(1),IN) IPAR(2)=1 !Buffer size CALL WTQIO(IRAL,5,IEFN,,,IPAR) !Read character from terminal IF (IN .GT. 0) 10,20,20 C THEN 10 IGTCHR=IN RETURN C ELSE !No character in buffer 20 IGTCHR=-1 RETURN C ENDIF END