MacFormat 1995 December/macformat-031.iso/mac/Demos/LOUVRE/CG074.DXR/00026.ls

Text File | 1995-02-28 | 253 b | 17 lines

on startMovie
  when mouseDown then Play done
end

on PlaySound chan, theFile
  set theFile to the pathName & theFile
  sound playFile chan, theFile
end

on WaitForSound chan
  if soundBusy(chan) then
    go(the frame)
  else
    nothing()
  end if
end