home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #5 / Amiga Plus CD - 2000 - No. 5.iso / Tools / Dev / fpc / source / docs / crtex / ex3.pp < prev    next >
Encoding:
Text File  |  2000-01-01  |  430 b   |  24 lines
  1. Program Example3;
  2. uses Crt;
  3.  
  4. { Program to demonstrate the ReadKey function. }
  5.  
  6. var
  7.   ch : char;
  8. begin
  9.   writeln('Press Left/Right, Esc=Quit');
  10.   repeat
  11.     ch:=ReadKey;
  12.     case ch of
  13.      #0 : begin
  14.             ch:=ReadKey; {Read ScanCode}
  15.             case ch of
  16.              #75 : WriteLn('Left');
  17.              #77 : WriteLn('Right');
  18.         end;
  19.       end;
  20.     #27 : WriteLn('ESC');      
  21.     end;
  22.   until ch=#27 {Esc}           
  23. end.
  24.