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