Dim sumsp1 As Decimal, bock As Integer
 
   sumsp1 = 123.45D : bock = 88
 
   'Daten ausgeben
   Dim kanal As Integer = FreeFile()
 
   FileOpen(kanal, "C:\daten\testX.txt", _
                    OpenMode.Output, _
                    OpenAccess.Write, _
                    OpenShare.LockReadWrite)
 
   WriteLine(kanal, sumsp1, bock)
 
   FileClose(kanal)
 
   'Daten lesen
   Dim kanal_in As Integer = FreeFile()
 
   FileOpen(kanal_in, "C:\daten\testX.txt", _
                OpenMode.Input, _
                OpenAccess.Read, _
                OpenShare.LockReadWrite)
 
   Dim sumsp1_in As Decimal, bock_in As Integer
 
   Input(kanal_in, sumsp1_in)
   Input(kanal_in, bock_in)
 
   FileClose(kanal_in)