home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
C++ Games Programming
/
CPPGAMES.ISO
/
fgl
/
fglight
/
exfor.arj
/
TEMP
/
CC-01.FOR
< prev
next >
Wrap
Text File
|
1995-01-20
|
576b
|
32 lines
$INCLUDE: 'C:\FG\FASTGRAF.FI'
INTERFACE TO SUBROUTINE INT1C[C](FLAG)
INTEGER FLAG
END
PROGRAM MAIN
INTEGER*1 ESC
PARAMETER (ESC=27)
INTEGER*1 KEY, AUX
INTEGER STATUS1, STATUS2
CALL INT1C(1)
STATUS1 = 0
STATUS2 = 0
10 WRITE(6,*)
WRITE(6,*) 'Joystick 1 status:', STATUS1
WRITE(6,*) 'Joystick 2 status:', STATUS2
STATUS1 = 0
STATUS2 = 0
CALL FG_GETKEY(KEY,AUX)
IF (KEY .NE. ESC) GO TO 10
CALL INT1C(0)
STOP ' '
END