NCR GW-BASIC Betriebsanleitung Seite 249

Beispiel:
GW-BASIC
oder FOR-Befehl, der zum Zeitpunkt der Verzwei­
gung aktiv war, bleibt aktiv.
Durch das folgende Beispiel wird die normale Aus­
wirkung von <Ctrl-Break> verhindert:
10 KEY 20,CHR$(&H04)+CHR$(70)
20 ON KEY(20) GOSUB 1000
30 KEY(20) ON
40 PRINT "Versuchen Sie, zu "Ok" zurück­
zukehren
50 GOTO 40
1000 PRINT "Sie haben erfolglos versucht, aus-
zubrechen"
1010 RETURN
Bevor dieses Programm ausgeführt wird, muß
geprüft werden, ob andere im Speicher stehende
Programme auf Diskette gesichert wurden, da für
das Ausbrechen ein Neustart des Systems mit
<Ctrl-Alt-Del> erforderlich ist.
GW-BASIC-BEFEHLE UND FUNKTIONEN
ON KEY
4-175