1 '************************ 2 '* MEMCHK.CO * 3 '* by Paul Globman * 4 '* Copyright (c) 1988 * 5 '************************ 10 FOR I = 63574 TO 63648 20 READ X:POKE I,X:SM=SM+X 30 NEXT 40 IF SM = 10354 THEN 60 50 PRINT"error in data":STOP 60 SAVEM"MEMCHK.CO",63574,63648,63574 1000 DATA 195,116,248,17,0,0,126,71 1010 DATA 47,79,119,126,185,112,194,146 1020 DATA 248,126,184,194,146,248,35,223 1030 DATA 194,92,248,195,158,248,17,116 1040 DATA 248,33,0,160,126,71,47,79 1050 DATA 119,126,185,112,194,146,248,126 1060 DATA 184,194,146,248,35,223,194,122 1070 DATA 248,195,89,248,205,69,79,205 1080 DATA 69,79,205,69,79,205,69,79 1090 DATA 195,69,79 1100 ' END OF DATA 1110 'This is a non-destructive test, 1120 'it tests all the bits of every 1130 'address in RAM, including the 1140 'addresses where MEMCHK.CO runs. 1150 'It tests reading and writing of 1160 'every address in RAM and if a 1170 'bad location is found it will 1180 'beep 5 times, if no problem is 1190 'found it will beep once!