home *** CD-ROM | disk | FTP | other *** search
/ C++ Games Programming / CPPGAMES.ISO / fgl / fglight / expas.arj / TEMP / 14-12.PAS < prev    next >
Pascal/Delphi Source File  |  1995-01-20  |  472b  |  27 lines
  1. program main;
  2. uses fgmain, fgmisc;
  3.  
  4. var
  5.   status  : integer;
  6.   b, x, y : integer;
  7.  
  8. begin
  9.   fg_initpm;
  10.   status := fg_initjoy(1);
  11.   status := fg_initjoy(2);
  12.  
  13.   while true do
  14.   begin
  15.     x := fg_getxjoy(1);
  16.     y := fg_getyjoy(1);
  17.     b := fg_button(1);
  18.     writeln('1:  ',x:3,' ',y:3,' ',b);
  19.     x := fg_getxjoy(2);
  20.     y := fg_getyjoy(2);
  21.     b := fg_button(2);
  22.     writeln('2:  ',x:3,' ',y:3,' ',b);
  23.     writeln;
  24.     fg_waitfor(9);
  25.   end;
  26. end.
  27.