Computer Shopper 127/dpcs0998.iso/Internet/netobs/Install.exe/t2.z/BREAKOUT.DCR/00017_timeDrivers.ls

Text File | 1998-01-20 | 319 b | 17 lines

on timePause piTicks
  set tempTicks to the ticks
  repeat while the ticks < (tempTicks + piTicks)
    if the mouseDown then
      exit repeat
      pass()
    end if
  end repeat
end

on timeHardPause piTicks
  set tempTicks to the ticks
  repeat while the ticks < (tempTicks + piTicks)
    nothing()
  end repeat
end