fb:porticula NoPaste
Input und Cls für 'Lauthals'
Uploader: | Sebastian |
Datum/Zeit: | 20.04.2014 13:54:54 |
Dim As Integer x, y
y = 1234
Print "Bitte geben Sie zum Loeschen des Bildschirms den Geheimcode 1234 ein,"
Print "jede andere Eingabe fuehrt zur Ausgabe von 'Hallo Welt'."
Input "Ihre Eingabe --> ", x
If x = y Then
Cls
Else
Print "Hallo Welt"
End If
GetKey