fb:porticula NoPaste
Programm beenden
Uploader: | PMedia |
Datum/Zeit: | 18.10.2007 02:39:39 |
Dim Eingabe As String
Print "Dieses Programm ist eine Endlosschleife."
Print "Es soll demonstrieren, dass inkey reicht zum beenden"
Do
Eingabe = Inkey
Loop Until Eingabe = Chr(255) & "k"
Print "Funktioniert."
Print "Beliebige Taste zum beenden, aber fix, sonst beendet das Betriebssystem das Programm."
Sleep