Graphics 800,600,16,2
Print  "CommandLine"
Print  "<><>...<><>"
Print  ""


.start

auswahl$ =Input ("Loadimage, ExecFile, Explore, End ")


If auswahl$=("Explore")
festp$="C:\"

folder$= festpl$
myDir=ReadDir(folder$)


Repeat

file$=NextFile$(myDir)


If file$="" Then Exit


If FileType(folder$+"\"+file$) = 2 Then
Print "Folder:" + file$
Else
Print "File:" + file$
End If
Forever

CloseDir myDir
Goto start
EndIf


If auswahl$=("End")
End
EndIf

If auswahl$=("Loadimage")

bild$=Input ("")
bild2 =LoadImage ("c:\"+bild$)
If bild2=0 Then
Print "Picture doesnt Exist"
Goto start
EndIf
Print FileSize(bild2)
DrawImage bild2,10,10

Goto start
EndIf

If auswahl$=("ExecFile")

exe$ = Input ("wmplayer.exe, calc.exe, www.website.com ")
ExecFile exe$

Goto start
EndIf

If Not auswahl$ ="Loadimage" Or "ExecFile" Or "End" Or "Explore"

Print "Unvalid Command"
Goto start
EndIf

WaitKey