home *** CD-ROM | disk | FTP | other *** search
/ Shocking The Web CD-ROM / SHOCK_CD.ISO / pc / tutorial / casestdy / ch16_ibm / reliabl4.dcr / 00015.ls < prev    next >
Encoding:
Text File  |  1996-11-12  |  135 b   |  7 lines
  1. on WaitForTicks theTicks
  2.   set startTime to the timer
  3.   repeat while (startTime + theTicks) > the timer
  4.     nothing()
  5.   end repeat
  6. end
  7.