read key Example10 ! Comments: Uncomment the SET KEY option if no
20 ! softkeys have been defined. WARNING: Do not
30 ! uncomment if you do not want your softkeys
40 ! changed!!!
50 DIM A$[30]
60 CLEAR SCREEN
70 PRINT "*** TEST ****"
80 FOR Nloop=1 TO 22
90 !SET KEY Nloop,"CLS"
100 READ KEY Nloop,A$
110 PRINT Nloop,A$
120 WAIT 1
130 NEXT Nloop
140 END
|