Computer Life: SuperPac/SuperPac (Computer Life Magazine)(Ziff-Davis)(1995).ISO/pc/demos/nmmdemo/nmmdemo.exe/END.DXR/00022.ls

Text File | 1995-04-27 | 212 b | 9 lines

on exitFrame
  set thetime to the timer
  set newVal to 255 - float(float(thetime) / float(180) * float(255))
  set the volume of sound 2 to max(newVal, 100)
  if newVal > 100 then
    go(the frame)
  end if
end