home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / progm / cufs.zip / ARROW.PAS < prev    next >
Pascal/Delphi Source File  |  1980-01-01  |  765b  |  44 lines
  1. {*****************************}
  2. {**      Arrow Key Demo     **}
  3.  
  4.  
  5.  
  6. Var  ch1,ch2 : char;
  7.      escape : boolean;
  8.  
  9. Procedure Select_Arrow;
  10. begin
  11.  escape := false;
  12.  case ch2 of
  13.  #77 : writeln('Right Arrow ',ord(ch2));
  14.  #75 : writeln('Left Arrow ',ord(ch2));
  15.  #72 : writeln('Up Arrow ',ord(ch2));
  16.  #80 : writeln('Down Arrow ',ord(ch2));
  17. end;
  18.  
  19.  
  20. end; {** procedure **}
  21.  
  22. Procedure Read_Arrow_Keys;
  23. begin
  24.  repeat until keypressed;
  25.  Read(Kbd,ch1);
  26.  if (ch1 = #27) and keypressed then
  27.    begin
  28.     Read(Kbd,ch2);
  29.     Select_Arrow;
  30.    end
  31.   else escape := true;
  32.  
  33. end;
  34.  
  35.  
  36. {** main **}
  37. begin
  38.  clrscr;
  39.  gotoxy(25,1); write('Press Arrow Keys or ESC to Leave Program');
  40.  writeln; writeln;
  41. repeat
  42.  Read_Arrow_Keys;
  43. until escape = true;
  44. end.