Type baum
   Field x#,y#,z#
End Type

;ein paar Bäume anlegen
b.baum = New baum
b\x = 10
b\y = 2
b\z = 3
b.baum = New baum
b\x = 110
b\y = 12
b\z = 13
b.baum = New baum
b\x = 210
b\y = 22
b\z = 23

save("datei.dat")

;Alle Bäume löschen
Delete Each baum

load("datei.dat")

; Ausgabe der geladenen Bäume
For b.baum = Each baum
   Print "Baum: "+b\x+"/"+b\y+"/"+b\z+"/"
Next
WaitKey

Function save(fname$)
   ; datei zum schreiben anlegen
   f = WriteFile(fname$)
   ;für jeden Baum
   For b.baum = Each baum
      ; die werte in die Datei schreiben
      WriteFloat(f,b\x)
      WriteFloat(f,b\y)
      WriteFloat(f,b\z)
   Next
   ;datei schliessen
   CloseFile(f)
End Function

Function load(fname$)
   ; wenn die datei nicht existiert dann abbrechen
   If FileType(fname) <> 1 Then Return False
   ;datei zum lesen öffnen
   f = ReadFile(fname$)
   
   ;solange noch nicht das ende der datei erreicht ist
   While Not Eof(f)
      ;neuen Baum anlegen
      b.baum = New baum
      ;die Werte aus der datei lesen und in den Baum Type schreiben
      b\x = ReadFloat(f)
      b\y = ReadFloat(f)
      b\z = ReadFloat(f)
   Wend
   ; Datei schliessen
   CloseFile(f)
   Return True
End Function