sub main() 
  var f=file("c:\имя файла") 

  f.open() 
  while not f.eof() and not fatal error 
    s=safe call f.readnumber() 
    if not fatal error then 
      UO.TextPrint(f.readstring()) 
    endif
  wend 
  f.close() 
endsub