home *** CD-ROM | disk | FTP | other *** search
/ C++ Games Programming / CPPGAMES.ISO / fgl / fglight / expas.arj / TEMP / 14-03.PAS < prev    next >
Pascal/Delphi Source File  |  1995-01-20  |  380b  |  21 lines
  1. program main;
  2. uses fgmain, fgmisc;
  3.  
  4. begin
  5.   fg_initpm;
  6.   if (fg_capslock = 1) then
  7.     writeln('CapsLock is on.')
  8.   else
  9.     writeln('CapsLock is off.');
  10.  
  11.   if (fg_numlock = 1) then
  12.     writeln('NumLock is on.')
  13.   else
  14.     writeln('NumLock is off.');
  15.  
  16.   if (fg_scrlock = 1) then
  17.     writeln('ScrollLock is on.')
  18.   else
  19.     writeln('ScrollLock is off.');
  20. end.
  21.