10 REM MTEST.ECB
   20 PRINT "&K"
   30 LET I1=4*16*16*16,I2=I1*2
   40 CURSOR 0,0: PRINT ,"MEMORY TEST from ";I1;" to ";I2
  100 FOR I=I1 TO I2
  105   CURSOR 1,1: PRINT I;
  110   LET A=PEEK(I)
  120   POKE I,0
  130   LET B=PEEK(I)
  140   IF B>0 THEN  PRINT I,"Address error 00 =";B
  150   POKE I,255
  160   LET C=PEEK(I)
  170   IF C<255 THEN  PRINT I,"Address error FF =";C
  180   POKE I,A
  190 NEXT I
  200 CURSOR 23,1: PRINT "*DONE*"
  300 END