home *** CD-ROM | disk | FTP | other *** search
/ Dictionnaire Multimedia Multilingue (Home PC 42) / dictionarvizual.iso / pc / open1.dir / 00009.ls < prev    next >
Encoding:
Text File  |  1996-03-13  |  503 b   |  18 lines
  1. on exitFrame
  2.   global gl1Ip, gl2Ip, gl3Ip, gwaLanDp, gReadObject, theText, gmoHsIp, gmoHsDp, done, gfDelim, gRoot, gBox, HDdir
  3.   cursor(4)
  4.   set gwaLanDp to []
  5.   if objectp(gReadObject) then
  6.     gReadObject(mdispose)
  7.   end if
  8.   set gReadObject to FileIO(mnew, "read", HDdir & "wa_lan.dp")
  9.   set theText to " "
  10.   repeat while theText > EMPTY
  11.     set theText to gReadObject(mReadLine)
  12.     append(gwaLanDp, value(theText))
  13.   end repeat
  14.   if objectp(gReadObject) then
  15.     gReadObject(mdispose)
  16.   end if
  17. end
  18.