Tandy 1000 Basic Reference Manual page 235

Chapter 10 I BASIC Ke-ywords
Sample Program
1 0 K E Y ( 5 ) ON
2 0 K E Y ( 1 ) ON
3 0 ON K E Y ( 5 ) GOSUB 8 0
4 0 ON K E Y ( 1 ) GOSUB 1 0 0
5 0 FOR I
=
1 TO 1 0 0
6 0 P R I N T "NO K E Y PRESSED"
7 0 N E X T 1 : E N D
8 0 P R I N T " K E Y ( 5 ) PRESSED
* * * * * * * * * * * * ' I
9 0 RETURN
1 0 0 P R I N T " K E Y ( 1 P R E S S E D
;
; ; ; ; ; ;
; ; ; ;
; ' I
1 1 0 RETURN
This program sets up [F51 and to be trapped.
233