Title$="Select a file"
Pattern$="Text (.txt)|*.txt|All files (*.*)|*.*"
fileName$ = OpenFileRequester(Title$,"",Pattern$,0)
If fileName$
  If ReadFile(0, fileName$)
    length = Lof(0)
    *MemoryID = AllocateMemory(length)
    If *MemoryID
      bytes = ReadData(0, *MemoryID, length)
      MessageRequester("Info",Str(bytes)+" was read")
    EndIf
    CloseFile(0)
  EndIf
EndIf