TASTE - get a single keystroke from terminal
Purpose : Get a single Keystroke from keyboard
Put the corresponding keycode into a DCL symbol
Inputs : DCL commandline p1=DCL symbol name, [p2=prompt string]
optional command /Options:
/TIMEout=nsec : timeout in seconds
/HEXA : return key hexdecimal
/TEXT : return key as symbolic name
Outputs : DCL symbol set to the code returned by smg$read_keystroke:
SMG$K_TRM_x in $SMGDEF (of forsysdef.tlb) .
Program exit status is that of the smg$read_keystroke.
In case of timeout the symbol is "TIMEOUT", and exit status is success.
Any non-success is either a CLI or conversion error.
For the curious: TASTE is German for KEY as in KEYboard, German TASTatur.
Program source files:
- taste.for Fortran main program
- taste_table command definition
- make_taste.com compile and link commands
- init_cli_for subroutine called
To make the command available to DCL, either
$ TASTE :== $location:TASTE.EXE ,or
put TASTE.EXE into DCL$PATH .
Joseph Huber , huber AT mppmuDOTmpgDOTde