The Weather Channel - Everything Weather/TheWeatherChannel-EverythingWeather-Win31.iso/twcia/calndr1/calndrx.dxr/00095.ls

Text File | 1995-08-25 | 330 b | 17 lines

on mouseDown
  global backString, linkFlag
  set n to the clickOn
  set the castNum of sprite n to the castNum of sprite n + 1
  updateStage()
  repeat while the mouseDown
    nothing()
  end repeat
  set the castNum of sprite 48 to 116
  if linkFlag then
    set linkFlag to 0
    link(backString)
    exit
  end if
  quit()
end