home *** CD-ROM | disk | FTP | other *** search
/ Dictionnaire Multimedia Multilingue (Home PC 42) / dictionarvizual.iso / pc / open1.dir / 00010.ls < prev    next >
Encoding:
Text File  |  1996-03-13  |  1.7 KB  |  62 lines
  1. on enterFrame
  2.   global gl4Ip, gwaLanDp, gBox, gmoHsIp, gmoHsDp, gL123, gl1Ip, gl2Ip, gl3Ip, HDdir, gReadObject, theText, done, gfDelim, gRoot, gBox
  3.   set gmoHsIp to []
  4.   if objectp(gReadObject) then
  5.     gReadObject(mdispose)
  6.   end if
  7.   set gReadObject to FileIO(mnew, "read", HDdir & "mo_hs.ip")
  8.   set theText to " "
  9.   repeat while theText > EMPTY
  10.     set theText to gReadObject(mReadLine)
  11.     append(gmoHsIp, value(theText))
  12.   end repeat
  13.   if objectp(gReadObject) then
  14.     gReadObject(mdispose)
  15.   end if
  16.   cursor(4)
  17.   set gL123 to 1
  18.   set gl1Ip to []
  19.   if objectp(gReadObject) then
  20.     gReadObject(mdispose)
  21.   end if
  22.   set gReadObject to FileIO(mnew, "read", HDdir & "l1.Ip")
  23.   set theText to " "
  24.   repeat while theText > EMPTY
  25.     set theText to gReadObject(mReadLine)
  26.     append(gl1Ip, value(theText))
  27.   end repeat
  28.   set gl2Ip to []
  29.   if objectp(gReadObject) then
  30.     gReadObject(mdispose)
  31.   end if
  32.   set gReadObject to FileIO(mnew, "read", HDdir & "l2.Ip")
  33.   set theText to " "
  34.   repeat while theText > EMPTY
  35.     set theText to gReadObject(mReadLine)
  36.     append(gl2Ip, value(theText))
  37.   end repeat
  38.   set gl3Ip to []
  39.   if objectp(gReadObject) then
  40.     gReadObject(mdispose)
  41.   end if
  42.   set gReadObject to FileIO(mnew, "read", HDdir & "l3.Ip")
  43.   set theText to " "
  44.   repeat while theText > EMPTY
  45.     set theText to gReadObject(mReadLine)
  46.     append(gl3Ip, value(theText))
  47.   end repeat
  48.   set gl4Ip to []
  49.   if objectp(gReadObject) then
  50.     gReadObject(mdispose)
  51.   end if
  52.   set gReadObject to FileIO(mnew, "read", HDdir & "l4.Ip")
  53.   set theText to " "
  54.   repeat while theText > EMPTY
  55.     set theText to gReadObject(mReadLine)
  56.     append(gl4Ip, value(theText))
  57.   end repeat
  58.   if objectp(gReadObject) then
  59.     gReadObject(mdispose)
  60.   end if
  61. end
  62.