The Weather Channel - Everything Weather/TheWeatherChannel-EverythingWeather-Win31.iso/twcia/sky/sky.dxr/00099.ls

Text File | 1995-08-22 | 844 b | 27 lines

on readIndex startCast, endCast
  repeat with n = startCast to endCast
    set castName to the name of cast n
    put "idx" into char 10 to 12 of castName
    put castName
    set readObject to FileIO(mnew, "read", "d:\abraddir\glossidx\" & castName)
    set controlFile to readObject(mReadFile)
    readObject(mdispose)
    repeat with i = 1 to the number of lines in controlFile - 1
      set start to value(item 1 of line i of controlFile)
      set end to value(item 2 of line i of controlFile)
      set the foreColor of char start to end of field n to 249
    end repeat
  end repeat
end

on colorSet theCast, theWord
  if the controlDown then
    set the foreColor of word theWord of field theCast to 249
  else
    if the optionDown then
      set the foreColor of word theWord of field theCast to 255
    end if
  end if
  abort()
end