home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol094 / hold.pas < prev    next >
Pascal/Delphi Source File  |  1984-04-29  |  147b  |  13 lines
  1. program hold;
  2.  
  3. var
  4. c : char;
  5.  
  6. begin
  7.  
  8.   repeat               
  9.     write('Press X key to continue.');
  10.     read(c);
  11.   until ( c = 'x' ) or ( c = 'X' )
  12.  
  13. end.