home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1997 August / macformat-053.iso / mac / Demos / Acacia Educational Multimedia / START.Dxr / 00030.ls < prev    next >
Encoding:
Text File  |  1997-04-15  |  155 b   |  10 lines
  1. on exitFrame
  2.   global gSubj
  3.   set gSubj to EMPTY
  4.   repeat with i = 2 to 7
  5.     puppetSprite(i, 1)
  6.   end repeat
  7.   repeat while soundBusy(2)
  8.   end repeat
  9. end
  10.