$INCLUDE: 'C:\FG\INTRFACE.FOR'

      PROGRAM MAIN

      INTEGER*1 ESC
      PARAMETER (ESC=27)

      INTEGER*1 KEY, AUX

10    CALL FG_WAITFOR(9)
      CALL FG_INTKEY(KEY,AUX)
      WRITE(6,1000) KEY, AUX
      IF (KEY .NE. ESC) GO TO 10

      STOP ' '
1000  FORMAT(' key = ',I3,'  aux = ',I3)
      END