10 BLOAD "kc.bin"
20 DEFUSR=&H9000
30 CLS
40 PRINT "Atari 2600 keyboard tester"
50 LOCATE 0,2
60 POKE &H9804,0
70 GOSUB 1000
75 LOCATE 0,7
80 POKE &H9804,255
90 GOSUB 1000
100 GOTO 50
1000 A=USR(0)
1010 R0=PEEK(&H9800)
1020 R1=PEEK(&H9801)
1030 R2=PEEK(&H9802)
1040 REM
1050 IF R2 AND 1 THEN PRINT"-";ELSEPRINT"1";
1060 IF R1 AND 1 THEN PRINT"-";ELSEPRINT"2";
1070 IF R0 AND 1 THEN PRINT"-";ELSEPRINT"3";
1080 PRINT
1090 IF R2 AND 2 THEN PRINT"-";ELSEPRINT"4";
1100 IF R1 AND 2 THEN PRINT"-";ELSEPRINT"5";
1110 IF R0 AND 2 THEN PRINT"-";ELSEPRINT"6";
1120 PRINT
1130 IF R2 AND 4 THEN PRINT"-";ELSEPRINT"7";
1140 IF R1 AND 4 THEN PRINT"-";ELSEPRINT"8";
1150 IF R0 AND 4 THEN PRINT"-";ELSEPRINT"9";
1160 PRINT
1170 IF R2 AND 8 THEN PRINT"-";ELSEPRINT"*";
1180 IF R1 AND 8 THEN PRINT"-";ELSEPRINT"0";
1190 IF R0 AND 8 THEN PRINT"-";ELSEPRINT"#";
1200 RETURN