Diagnostic Programs
BASIC Code Listings
TEST KEYBOARD INDICATOR LIGHTS

9300 REM ==== ====
9305 REM ==== Test keyboard indicator lights ====
9310 CLS : PRINT "Indicator light test: press Esc to terminate"
9320 FOR I% = 0 TO 7
9325 OUT 96, 237: OUT 96, I%
9330 FOR J% = 0 TO 2000: NEXT J%
9332 K$ = INKEY$
9335 IF K$ <> "" THEN IF ASC(K$) = 27 THEN 9345
9340 NEXT I%
9342 GOTO 9320
9345 OUT 96, 237: OUT 96, 0
9348 END