home *** CD-ROM | disk | FTP | other *** search
/ Mundo do CD-ROM 25 / CDROM25.iso / lazer / fpwtdemo / Option.dcr / Internal_56_Quit.ls < prev    next >
Encoding:
Text File  |  1998-02-10  |  101 b   |  8 lines
  1. global gnSoundVolume
  2.  
  3. on mouseUp
  4.   set the soundLevel to gnSoundVolume
  5.   PitchProduct()
  6.   halt()
  7. end
  8.