currentdirectory$=CurrentDir()

Print "Anquav Command Console V1.0"
Print "Copyright 2005"

Repeat

   command$=Input(CurrentDir()+">")
   stream=CreateProcess(command)
   If stream Then
      Repeat
         Print ReadLine(stream)
      Until Eof(stream)
   EndIf
   
   If Instr(Lower(command$),"cd") Then command$=Replace$(command$,"cd ",""):ChangeDir(command$)   
   If Instr(Lower(command$),"dir ") Then dir(Replace(command,"dir ",""))
Forever

Function dir(dirr$)
   Verz=ReadDir(dirr)
   Repeat
      Datei$=NextFile$(Verz)
      If Datei$="" Then Return
      If FileType("C:\"+Datei$) = 2 Then
         Print "Ordner:" + Datei$
      Else
         Print "Datei:" + Datei$
      EndIf
   Forever
   
   CloseDir Verz
   Print ""
   Print "-Ende-"
   Print ""
End Function