Print Page - Detecting ALT, C=, Shift, CTRL & CAPS

Title: Detecting ALT, C=, Shift, CTRL & CAPS
Post by: OzOne on February 26, 2007, 06:55 PM

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

Commodore 128 Alive!

Commodore 128 => Tips & tricks => Topic started by: OzOne on February 26, 2007, 06:55 PM