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