home *** CD-ROM | disk | FTP | other *** search
/ The See Clearly Method / TheSeeClearlyMethod.iso / Media / stub2.dir / 00008.ls < prev    next >
Encoding:
Text File  |  2002-02-15  |  298 b   |  18 lines
  1. global myFile
  2.  
  3. on enterFrame
  4.   if objectp(myFile) then
  5.     myFile = 0
  6.   end if
  7.   myFile = new(xtra("fileio"))
  8.   openFile(myFile, "c:\agreed.txt", 1)
  9.   myVariable = readFile(myFile)
  10.   if readFile(myFile) = VOID then
  11.     go(2)
  12.   else
  13.     go(1, "qtpc")
  14.     closeFile(myFile)
  15.   end if
  16.   myFile = 0
  17. end
  18.