64K Memory Test

   1 REM "64K MEMORY TEST"
  10 FAST 
  20 FOR I=32768 TO 65535
  30 POKE I,255
  40 LET A=PEEK I
  50 POKE I,0
  60 LET B=PEEK I
  70 IF A<>255 OR B<>0 THEN GOSUB 140
  80 NEXT I
  90 SLOW 
 100 PRINT "END OF MEMORY TEST"
 110 STOP 
 120 SAVE "1018%6"
 130 RUN 
 140 SLOW 
 150 PRINT AT 21,0;"ERROR AT MEMORY LOCATION: ";I
 160 SCROLL 
 170 FAST 
 180 LPRINT "ERROR AT MEMORY LOCATION: ";I
 190 RETURN