'Ä=Ž , Ö=™ , Ü=š ; ä=„ , ö=”, ü=� , ß=á ,§=õ , ©=¸, °=ø
Declare Function LoadAll(byVal DateiName As String)As String
Declare Function GetFAttr Lib "kernel32.dll" Alias "GetFileAttributesA" _
	(ByVal lpFileName As String) As Integer
	
Function LoadAll(byVal DateiName As String)As String
  Var Datei=FreeFile, g=GetFAttr(DateiName) 'Variablen vorbelegen..
  Dim Puffer As String Ptr
  If Not g<0 And (g And &h10)=0 Then 'ist Datei vorhanden und kein Verzeichnis
    Open DateiName For Binary As #Datei 'Datei binär öffnen
      g=Lof(Datei) 'Dateigröße ermitteln
      Puffer=cAllocate(g)'Puffer reservieren
      *Puffer=Space(g)  'Puffer vorbelegen
      Get #Datei,, *Puffer  'gesamt Datei inPuffer ablegen
    Close #Datei 'Datei schließen
    Function=*Puffer 'Funktionswert zuweisen
    DeAllocate Puffer 'Puffer im Speicher freigeben, besser isses..
  Else 'Ooops, da war was falsch
    If g<0 Then Return DateiName &" fehlt.."
    If (g And &h10)<>0 Then Return DateiName &" ist ein Verzeichnis.."
    Return "Oooops, mit " &DateiName &"stimmt was nich.."
  End If
End Function

Print LoadAll(Environ("Tmp") &"\\Consi.Prx") '"Franz.Doc"
Print "Tested with FB 0.20b using current FBEdit"
Print "Fertich..";
GetKey