CONFIGURE KBD Example10 CONTROL KBD,203;1 !Turn off detection of mouse movements.
20 CLEAR SCREEN
30 PRINT "Mapping key '4' to '7'."
40 DISP "Press 'e' to stop"
50 Nustr$="0123756789"
60 Normstr$="0123456789"
70 PRINT "Type 4 and notice that it is now 7."
80 CONFIGURE KBD 48 TO Nustr$ !Change 4 to 7.
90 ON KBD GOTO Here
100 REPEAT
110 Loop: GOTO Loop
120 Here: Ch$=KBD$
130 PRINT Ch$
140 UNTIL Ch$="e"
150 CONFIGURE KBD 48 TO Normstr$ !Change 4 back to 4.
160 PRINT "Now 4 is back to normal."
170 DISP "All done."
180 END
|