Function LoadFile(Src$)
File = ReadFile(Src$)
Return File
End Function

; Dateiöffnungsfunktion für BB
; Öffnet Dateien und zeigt sie auf dem Bildschirm an
; Bei fehlender Datei wird eine Fehlermeldung angezeigt
; Copyright (C) 2004 by Travis

Graphics3D 320,240,16,2 ; 3D Grafikmodus setzen

Datei = OpenDatei("Test.txt") ; Öffnungsfunktion aufrufen

WaitKey ; Tastendruck abwarten
End ; Programmablauf beenden

; --- Travis OD-Dateiinitializing Subroutine V1.0 ---
Function OpenDatei(File$)
 Datei = OpenFile(File$)
 If Datei <> 0 Then Print File$
 If Datei = 0 Then Print "File not found"
 Return Datei
End Function

Function ViewDatei(File$)
 Datei = OpenFile(File$)
 
 While Not Eof(Datei)
  Wert = ReadByte(Datei)
  Color wert,wert,wert
  Rect x*4,y*4,4,4,1
  x = x + 1: If x > 320 Then x = 0: y= y + 1
 Wend
End Function

Graphics 640,480,0,2

Datei$ = "[Datei]" ; Hier Dateinamen angeben
lines = readlines(Datei$)

file = ReadFile(Datei$)
For I = 1 To lines
 inhalt$ = ReadLine(file)
 Print inhalt$
Next
CloseFile file
WaitKey
End

Function readlines(Datei$)

   file = ReadFile(Datei$)
   Repeat
    If Eof(file)=True Then Exit
    var = ReadLine(file)
    row = row + 1
   Forever
   CloseFile file
   Return row
   
End Function

ExecFile()