home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol021 / delay.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1984-04-29  |  364 b   |  17 lines
  1. (*$I+ *)
  2. program dly;
  3.  
  4. Procedure DELAY(timer:integer);
  5. { call delay with timer = number seconds * 10 }
  6. {  DELAY(10);    will give about 1 second delay }
  7. {  DELAY(5);    will give about 1/2 second delay }
  8. CONST    factor = 172;
  9. var    ix,jx : integer;
  10. begin
  11.   for ix:=1 to factor do
  12.     for jx:=1 to timer do {dummy};
  13. end{of delay};
  14.  
  15. {dummy program}
  16. begin end.
  17.