load key Example10 CLEAR SCREEN
20 STORE KEY "keys2"
30 READ KEY 1,Str$
40 PRINT "Key 1 was ";Str$;" now is QUIT -- Please type CONT"
50 SET KEY 1,"QUIT"
60 PAUSE
70 LOAD KEY "keys2"
80 PRINT "Keys are returned to normal."
90 PURGE "keys2"
100 END
|