AT&T 6300 Programmer's Manual page 370

ON KEY(n) GOSUB
Statement
Example
7-214
100 KEY 15, CHRS(&H04]
+
CHRS(83]
105 REM
* *
Key 15 now is CTRL DEL
* *
110 KEY(15] qN
1000 PRINT "If you want to stop processing
for a break"
1010 PRINT "press the CTRL key and the
DEL key at the"
1020 PRINT "same time."
1030 ON KEY(15] GOSUB 3000.
Operator presses CTRL DEL
3000 REM
* *
Suspend processing loop.
3010 CLOSE #1
3020 RESET
3030 CLS
3035 PRINT "Enter CONT to continue."
3040 STOP
3050 OPEN "A", #1, "ACCOUNTS.DAT"
3060 RETURN
In the above, the programmer has enabled the
CTRL DEL key to enter a subroutine which
closes the files and stops program execution
until the operator is ready to continue.