10 ? CHR$(12):G=1024:K=2:REM SBC6502 46kB RAM version 11 ? " SBC 6502 SHORT 46kB":? " RAM MEMORY TEST" 12 ? " (c)2017 Igi":? " I do not test the":?" first 1kb of RAM" 13 ? " Controlled";K;"kB" 14 FOR F=G TO G+1023 15 POKE F,0:IF PEEK(F)<>0 THEN 22 16 POKE F,85:IF PEEK(F)<>85 THEN 22 17 POKE F,170:IF PEEK(F)<>170 THEN 22 18 POKE F,255:IF PEEK(F)<>255 THEN 22 19 NEXT F 20 G=G+1024:K=K+1:IF K=47 THEN 23 21 GOTO 13 22 ? "Problem at: adress - data":? F, PEEK(F):GOTO 24 23 ? "Complete !" 24 ? "End"