Detecting ALT, C=, Shift, CTRL & CAPS

[OzOne]

Code Select Expand

10 DO:V=PEEK(211):A$="KEY":B$=CHR$(147)
20 IF V=1 THEN PRINT B$"SHIFT "+A$
30 IF V=2 THEN PRINT B$"COMMODORE "+A$
40 IF V=4 THEN PRINT B$"CONTROL "+A$
50 IF V=8 THEN PRINT B$"ALT "+A$
60 IF V=16 THEN PRINT B$"CAPS LOCK "+A$
70 LOOP