10 REM MTST.ECB 15 PRINT "&K" 20 LET I1=16384+256*5+16*2+5,I2=I1+1024 30 CURSOR 0,0: PRINT ,"MEMORY TEST from ";I1;" to ";I2 40 LET A=1 50 FOR I=I1 TO I2: POKE I,A: NEXT I 60 STOP 100 FOR I=I1 TO I2 101 FOR J=1 TO 255 105 POKE I,A 110 LET B=PEEK(I) 115 CURSOR 1,1: PRINT I;" ";B;" "; 140 IF B<>A THEN PRINT I,"Address error =";B: STOP 150 LET A=A+1 160 IF A>255 THEN LET A=0 170 NEXT J 190 NEXT I 200 CURSOR 23,1: PRINT "*DONE*" 210 GOTO 100 300 END