home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1997 February / WPCFEB97.ISO / multi / times / data / shared.dir / 00951_date71.ls < prev    next >
Encoding:
Text File  |  1996-08-11  |  278 b   |  12 lines
  1. on mouseDown
  2.   global whDate, whyear
  3.   set mhd to the mouseH
  4.   set whyear to abs((30 - mhd) / 110) + 1
  5.   set whDate to "pre1930,1931-50,1951-60,1961-71"
  6.   set the castNum of sprite 47 to 800
  7.   spriteBox(47, 0, 0, 640, 480)
  8.   updateStage()
  9.   doDateList()
  10.   setOffStage("47")
  11. end
  12.