Komputer for Alle 2002 #10/K-CD-10-2002.ISO/Tools/K-CS.dcr/00418.ls

Text File | 2002-04-19 | 348 b | 15 lines

on new me
  set Temp to EMPTY
  set myfile to new(xtra("fileio"))
  openFile(myfile, "C:\Komputer.tmp", 1)
  if status(myfile) = 0 then
    put readFile(myfile) into field "HopDestination"
    closeFile(myfile)
    set myfile to 0
    set Temp to the text of member "HopDestination"
    if Temp <> EMPTY then
      go(Temp)
    end if
  end if
end