home *** CD-ROM | disk | FTP | other *** search
/ Shocking The Web CD-ROM / SHOCK_CD.ISO / pc / tutorial / casestdy / ch12_isn / ledshow.dcr / 00067.ls < prev    next >
Encoding:
Text File  |  1996-11-13  |  199 b   |  12 lines
  1. global gHowLongHold, gIterCount
  2.  
  3. on exitFrame
  4.   if the timer < (60 * gHowLongHold) then
  5.     go(#loop)
  6.   else
  7.     set gIterCount to gIterCount + 1
  8.     writeMessage()
  9.     go("WriteNStop")
  10.   end if
  11. end
  12.