home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / PROGTOOL / FGL304E.ZIP;1 / EXPAS.ARJ / FGDOC / EXAMPLES / PASCAL / CC-01.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1994-01-24  |  498 b   |  34 lines
  1. program main;
  2. uses fgmain, fgmisc;
  3.  
  4. const
  5.   ESC = 27;
  6.  
  7. var
  8.   key, aux : byte;
  9.   status1  : integer;
  10.   status2  : integer;
  11.  
  12. procedure int1C (flag : integer); far; external;
  13. {$L cc-01.obj}
  14.  
  15. begin
  16.   int1C(1);
  17.  
  18.   status1 := 0;
  19.   status2 := 0;
  20.  
  21.   repeat
  22.   begin
  23.     writeln;
  24.     writeln('Joystick 1 status: ',status1);
  25.     writeln('Joystick 2 status: ',status2);
  26.     status1 := 0;
  27.     status2 := 0;
  28.     fg_getkey(key,aux);
  29.   end;
  30.   until (key = ESC);
  31.  
  32.   int1C(0);
  33. end.
  34.