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 REM END OF DATA