C128 COLOR SRAM TEST PROGRAM

10 DATA 1,2,4,8
20 FORX=55296 TO 56295
30 FORY=1TO4
40 READ Z:POKE X,Z
50 IF PEEK(X) AND Z THEN 70
60 GOTO120
70 POKE X,0
80 IF PEEK(X) AND Z THEN 120
90 NEXT Y:RESTORE
100 NEXT X
110 PRINT"TEST COMPLETED":END
120 PRINT"BIT ";Y-1;" AT ADDRESS ";X;" CHECKS BAD"
130 GOTO 90