home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
C++ Games Programming
/
CPPGAMES.ISO
/
fgl
/
fglight
/
expas.arj
/
TEMP
/
CC-01.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1995-01-20
|
498b
|
34 lines
program main;
uses fgmain, fgmisc;
const
ESC = 27;
var
key, aux : byte;
status1 : integer;
status2 : integer;
procedure int1C (flag : integer); far; external;
{$L cc-01.obj}
begin
int1C(1);
status1 := 0;
status2 := 0;
repeat
begin
writeln;
writeln('Joystick 1 status: ',status1);
writeln('Joystick 2 status: ',status2);
status1 := 0;
status2 := 0;
fg_getkey(key,aux);
end;
until (key = ESC);
int1C(0);
end.