home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / top2src.zip / TOPLINK.ZIP / GETKEYS.PAS < prev    next >
Pascal/Delphi Source File  |  1994-06-14  |  75b  |  6 lines

  1. Uses Crt;
  2. begin
  3.   Repeat
  4.     Writeln (Ord(Readkey));
  5.   Until 1=2;
  6. end.