ChangeDir("c:\")
Pfad$=CurrentDir$()
Repeat
f=0


Befehl0$=Input$(Pfad$+">")
befehl0$=Lower(befehl0$)
i=Instr(befehl0$," ")

If i Then
befehl$=Left(befehl0$,i-1)
befehl2$=Right(befehl0$,Len(befehl0$)-i)
Else
befehl$=befehl0$
End If

If befehl$="quit" Then
f=1
End
End If

If befehl$="cls" Then
f=1
Cls
Locate 0,0
End If

If befehl$="dir" Then
f=1
Verz=ReadDir(pfad$)
Repeat
Datei$=NextFile$(Verz)
If Datei$="" Then Exit
If FileType(pfad$+Datei$) = 2 Then
Print "Ordner:  " + Datei$
Else
Print "Datei:   " + Datei$
End If
Forever
CloseDir Verz
Print
End If

If befehl$="help" Then
f=1
Print "OpenSource BlitzBasic UserInterface"
Print ""
Print "Dir - Verzeichniss Inhalt ausgeben"
Print "Cls - Bildschirm löschen"
Print "Quit - UserInterface beenden"
End If

If f=0 Then Print "Befehl oder Dateiname nicht gefunden"
Until KeyDown(1)

End