home *** CD-ROM | disk | FTP | other *** search
/ C++ Games Programming / CPPGAMES.ISO / fgl / fglight / expas.arj / TEMP / 14-05.PAS < prev    next >
Pascal/Delphi Source File  |  1995-01-20  |  594b  |  31 lines
  1. program main;
  2. uses fgmain, fgmisc;
  3.  
  4. const
  5.   ESC = 1;
  6.   LEFT = 75;
  7.   RIGHT = 77;
  8.   UP = 72;
  9.   DOWN = 80;
  10.  
  11. begin
  12.   fg_initpm;
  13.   fg_kbinit(1);
  14.   writeln('Keyboard handler enabled.');
  15.  
  16.   repeat
  17.   begin
  18.     write('keys pressed:  ');
  19.     if (fg_kbtest(LEFT) = 1)  then write('Left ');
  20.     if (fg_kbtest(RIGHT) = 1) then write('Right ');
  21.     if (fg_kbtest(UP) = 1)    then write('Up ');
  22.     if (fg_kbtest(DOWN) = 1)  then write('Down ');
  23.     writeln;
  24.     fg_waitfor(18);
  25.   end
  26.   until (fg_kbtest(ESC) = 1);
  27.  
  28.   fg_kbinit(0);
  29.   writeln('Keyboard handler disabled.');
  30. end.
  31.