ElseIf wahl="color red" Then
Color 255,0,0
Print "Farbe wurde auf rot gesetzt"

ElseIf wahl="clear" Then
Locate 0,0
Cls

If ImagesCollide(pointer,MouseX(),MouseY(),0,bt04,135,100,0) And m Then
Cls
Flip
Gosub d
EndIf

.d
Cls
Repeat
Color 255,255,255
wahl$=Input()
If wahl="help" Then
Print "-Hilfemenü-"
Print " "
Print "Befehle:"
Print "'help' öffnet das Hilfemenü"
Print "'info' zeigt Informationen zur Konsole"
Print "'exit' schließt das Programm"
Print "'clear' löscht den Bildschirminhalt"
Print "'color' ändert die Schriftfarbe. Für mehr Hilfen 'color?' eingeben"
Print "'date' zeigt Uhrzeit und Datum"
ElseIf wahl="exit" Then
Return
ElseIf wahl="clear" Then
Locate 0,0
Cls
ElseIf wahl="color red" Then
Color 255,0,0
Print "Farbe wurde auf rot gesetzt"
ElseIf wahl="color green" Then
Color 0,255,0
Print "Farbe wurde auf grün gesetzt"
ElseIf wahl="color blue" Then
Color 0,0,255
Print "Farbe wurde auf blau gesetzt"
ElseIf wahl="color white" Then
Color 255,255,255
Print "Farbe wurde auf weiß gesetzt"
ElseIf wahl="color?" Then
Print "color lässt die Schrift in einer anderen Farbe erscheinen"
Print "Folgendes ist möglich:"
Print " "
Print "color red = Rot"
Print "color blue = Blau"
Print "color green = Grün"
Print "color white = Weiß"
ElseIf wahl="info" Then
Print "Console[Version 0.5.0.7]"
Print "by Aletessoftware"
Print "892KB(913.408 Bytes)"
ElseIf wahl="date" Then
Print "Heutiges Datum ist: " +CurrentDate$()
Print "Aktuelle Uhrzeit:" +CurrentTime$()
Else
Print "Der Befehl konnte nicht gefunden werden"
Print "Für mehr Hilfen 'help' eingeben"
EndIf
Until KeyHit(59)
End