home *** CD-ROM | disk | FTP | other *** search
/ Shocking The Web CD-ROM / SHOCK_CD.ISO / pc / tutorial / casestdy / ch13_lev / 501.dcr / 00005.ls < prev    next >
Encoding:
Text File  |  1996-12-04  |  184 b   |  9 lines
  1. on exitFrame
  2.   global gCycleStart, gCpuTicks, gSuspend, gPlatform
  3.   puppetSound(0)
  4.   set gCycleStart to the timer
  5.   if gCpuTicks then
  6.     set the cpuHogTicks to gCpuTicks
  7.   end if
  8. end
  9.