home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l216 / 1.ddi / TICKFILE.PRO < prev    next >
Encoding:
Text File  |  1987-03-23  |  747 b   |  31 lines
  1.  
  2. /*************************************************************
  3.     Turbo Prolog Toolbox
  4.     (C) Copyright 1987 Borland International.
  5.  
  6.     Ticks (0-32767) causes the program to wait for a specified period
  7.     of time, measured in hundredths of seconds.
  8. **************************************************************/
  9. GLOBAL PREDICATES
  10.   Ticks(Integer)-(i)
  11.  
  12. Predicates
  13.   Ticks2(Real)
  14.   repeat
  15.  
  16. Clauses
  17. /* Wait delay based on the PCs clock circuit */
  18.  
  19. ticks(Hundred) :-
  20.       time(_,Min,Sek,Hund),
  21.       Tw2 = Min*6000.0 + SEK*100.0 + Hund, Tw3 = Tw2+Hundred,
  22.       ticks2(Tw3).
  23.   
  24. ticks2(EndHundred) :-
  25.       repeat,
  26.       time(_,Min,Sek,Hund),
  27.       Tw2 = Min*6000.0 + SEK*100.0 + Hund,
  28.       Tw2>EndHundred,!.
  29.  
  30. repeat. repeat:-repeat.
  31.