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

      PROGRAM MAIN

      INTEGER*1 KEY, AUX
      INTEGER*2 STATUS
      INTEGER*2 FG_INITJOY

      STATUS = FG_INITJOY(1)
      STATUS = FG_INITJOY(2)

10    CALL FG_INTJOY(1,KEY,AUX)
      WRITE(6,1000) '1', KEY, AUX
      CALL FG_INTJOY(2,KEY,AUX)
      WRITE(6,1000) '2', KEY, AUX
      WRITE(6,1000)
      CALL FG_WAITFOR(9)
      GO TO 10

      STOP ' '
1000  FORMAT(1X,A1,':',2I3)
      END