Burn in test
1 REM BURN IN
10 TIME$=”00:00:00”
20 CLS:PRINT TIME$;”  “;
30 FOR N=0 TO 65535
40 X=PEEK(N)
50 IF X < 32 THEN 70
60 PRINT CHR$(X);
70 NEXT N
80 BEEP
90 GOTO 20


Keyboard test
1 REM KB_Test
10 A$ = INKEYS$
20 IF A$ = "" THEN 10
30 PRINT A$:GOTO 10