fb:porticula NoPaste
Schleife nur mit ESC beenden
Uploader: | Sebastian |
Datum/Zeit: | 09.08.2013 15:09:53 |
PRINT "Dieses Programm wird nur verlassen wenn Sie die ESC-Taste druecken."
PRINT "Die ESCape-Taste hat den ASCII-Code 27, daher wird auf CHR(27) getestet."
PRINT
DIM TASTE AS STRING
DO
PRINT TIME ' Uhrzeit ausgeben
SLEEP 500 ' 500 ms warten
TASTE = INKEY
LOOP UNTIL TASTE = CHR(27)
PRINT "----"
PRINT "Aha, Sie haben ESC gedrueckt. Hoeren wir also auf."
SLEEP
END