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:

  1. taste.for Fortran main program
  2. taste_table command definition
  3. make_taste.com compile and link commands
  4. 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