home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TURBO5.ZIP / KEYPR.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1986-12-26  |  640 b   |  20 lines
  1. {$C-,U-}
  2. {Note : U compiler directive is off by default.  I show it here to make it
  3.  clear that it must be off}
  4. var
  5.    j : integer;
  6.    ch : char;
  7.  
  8. begin
  9.    j := 0;
  10.    clrscr;
  11.    repeat
  12.       begin
  13.          j := j + 1;
  14.          writeln('j = ',j);
  15.       end;
  16.    until keypressed;
  17.    read(kbd,ch);    {Under most operating systems, eliminating this line in
  18.                      this program will cause Turbo to interpret the character
  19.                      entered.  The exception is generic MS-DOS}
  20. end.