Diagnostic Programs
BASIC Code Listings
DISPLAY SHIFT KEY STATUS

9200 REM ==== ====
9205 REM ==== Display shift key status ====
9210 CLS : PRINT "Shift key test: press Ctrl/Break to terminate"
9220 DEF SEG = &H0
9230 K% = PEEK(&H417)
9235 LOCATE 3, 1
9240 PRINT "Right Shift : "; : GOSUB 9250
9241 PRINT "Left Shift : "; : GOSUB 9250
9242 PRINT "Control key : "; : GOSUB 9250
9243 PRINT "Alt key : "; : GOSUB 9250
9244 PRINT "Scroll Lock : "; : GOSUB 9250
9245 PRINT "Num Lock : "; : GOSUB 9250
9246 PRINT "Caps Lock : "; : GOSUB 9250
9247 PRINT "Insert : "; : GOSUB 9250
9248 GOTO 9230
9250 L% = INT(K% / 2): K% = K% - (L% + L%)
9252 IF K% = 0 THEN PRINT "OFF" ELSE PRINT "ON "
9254 K% = L%
9256 RETURN