home *** CD-ROM | disk | FTP | other *** search
/ The Weather Channel - Everything Weather / TheWeatherChannel-EverythingWeather-Win31.iso / twcia / calndr1 / calndrx.dxr / 00056.ls < prev    next >
Encoding:
Text File  |  1995-08-25  |  458 b   |  20 lines
  1. on mouseDown
  2.   global OnLinePath, backString, linkFlag, CDPath
  3.   set the castNum of sprite the clickOn to 57
  4.   updateStage()
  5.   repeat while the mouseDown
  6.     nothing()
  7.   end repeat
  8.   cleanUp()
  9.   if CDPath = OnLinePath then
  10.     CDcheck()
  11.     set linkFlag to 1
  12.     set backString to "calndr1 0 0 0 0"
  13.     go(1, CDPath & "online\online")
  14.   else
  15.     set linkFlag to 1
  16.     set backString to "calndrx 0 0 0 0"
  17.     go(1, OnLinePath & "online\onlinex")
  18.   end if
  19. end
  20.