home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TJTOT10B.ZIP / DEMO.EXE / arc / DEMIN1.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-02-11  |  336 b   |  17 lines
  1. Program DemoInputOne;
  2. {DEMIN1}
  3.  
  4. Uses CRT,
  5.      totINPUT;
  6.  
  7. begin                 
  8.    Clrscr;
  9.    Writeln('Press any key or mouse button combination. (Esc to quit)');
  10.    Key.SetDouble(true);
  11.    repeat
  12.       Key.GetInput;
  13.       GotoXY(1,2);
  14.       Write('You press key: ',Key.LastKey,'    ');
  15.    until Key.LastKey = 27;
  16. end.
  17.