home *** CD-ROM | disk | FTP | other *** search
/ Shirley Barber's Fairies: Create, Paint & Play / Fairies.iso / pc / Files / Menu.dxr / Internal_8_Exit.ls < prev    next >
Encoding:
Text File  |  2003-11-06  |  429 b   |  19 lines
  1. global scrWidth, scrHeight, scrDepth
  2.  
  3. on mouseDown
  4.   sound(1).stop()
  5.   sound(2).stop()
  6.   sound(3).stop()
  7.   sound(4).stop()
  8.   sound(5).stop()
  9.   sound(6).stop()
  10.   if the platform contains "Windows,32" then
  11.     baDisableSwitching(0)
  12.     OldSS = baDisableScreenSaver(0)
  13.     showing = baHideTaskBar(0)
  14.     KeysOff = baDisableKeys(0, baWinHandle())
  15.     Ok = baSetDisplay(scrWidth, scrHeight, scrDepth, "temp", 0)
  16.   end if
  17.   quit()
  18. end
  19.