set key Example10 CLEAR SCREEN
20 PRINT "Program shows soft key control statements."
30 STORE KEY "keys2"! store softkey definitions
40 READ KEY 1,Str$! read current key label
50 PRINT "Key 1 was ";Str$;" now is QUIT -- Please type CONT"
60 SET KEY 1,"QUIT"! change key label
70 PAUSE
80 LOAD KEY "keys2"! load original sofkey definitions
90 PRINT "Key 1 is back to normal."
100 PURGE "keys2"! delete file.
110 END
|