home *** CD-ROM | disk | FTP | other *** search
/ The Weather Channel - Everything Weather / TheWeatherChannel-EverythingWeather-Win31.iso / twcia / hurrican / hurrican.dxr / 00100.ls < prev    next >
Encoding:
Text File  |  1995-08-22  |  491 b   |  13 lines
  1. on readText buffer
  2.   set readObject to FileIO(mnew, "?read", "tcf")
  3.   set controlFile to readObject(mReadFile)
  4.   readObject(mdispose)
  5.   repeat with i = 1 to the number of lines in controlFile - 1
  6.     set readObject to FileIO(mnew, "read", item 1 of line i of controlFile)
  7.     set the text of field (buffer + i) to readObject(mReadFile)
  8.     set the name of cast (buffer + i) to item 1 of line i of controlFile
  9.     readObject(mdispose)
  10.     put item 1 of line i of controlFile
  11.   end repeat
  12. end
  13.