home *** CD-ROM | disk | FTP | other *** search
/ Dictionnaire Multimedia Multilingue (Home PC 42) / dictionarvizual.iso / pc / open1.dir / 00011.ls < prev    next >
Encoding:
Text File  |  1996-03-13  |  804 b   |  30 lines
  1. on exitFrame
  2.   global waLoads, gwaMoDp, gwaMoIp, gReadObject, theText, done, gfDelim, gRoot, gBox, HDdir
  3.   cursor(4)
  4.   updateStage()
  5.   set waLoads to 1
  6.   set gwaMoDp to []
  7.   if objectp(gReadObject) then
  8.     gReadObject(mdispose)
  9.   end if
  10.   set gReadObject to FileIO(mnew, "read", HDdir & "wa_mo.dp")
  11.   set theText to " "
  12.   repeat while theText > EMPTY
  13.     set theText to gReadObject(mReadLine)
  14.     append(gwaMoDp, value(theText))
  15.   end repeat
  16.   set gwaMoIp to []
  17.   if objectp(gReadObject) then
  18.     gReadObject(mdispose)
  19.   end if
  20.   set gReadObject to FileIO(mnew, "read", HDdir & "wa_mo.ip")
  21.   set theText to " "
  22.   repeat while theText > EMPTY
  23.     set theText to gReadObject(mReadLine)
  24.     append(gwaMoIp, value(theText))
  25.   end repeat
  26.   if objectp(gReadObject) then
  27.     gReadObject(mdispose)
  28.   end if
  29. end
  30.