home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
C++ Games Programming
/
CPPGAMES.ISO
/
fgl
/
fglight
/
expas.arj
/
TEMP
/
14-12.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1995-01-20
|
472b
|
27 lines
program main;
uses fgmain, fgmisc;
var
status : integer;
b, x, y : integer;
begin
fg_initpm;
status := fg_initjoy(1);
status := fg_initjoy(2);
while true do
begin
x := fg_getxjoy(1);
y := fg_getyjoy(1);
b := fg_button(1);
writeln('1: ',x:3,' ',y:3,' ',b);
x := fg_getxjoy(2);
y := fg_getyjoy(2);
b := fg_button(2);
writeln('2: ',x:3,' ',y:3,' ',b);
writeln;
fg_waitfor(9);
end;
end.