home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / utl / memchk.200 < prev    next >
Text File  |  2006-10-19  |  1KB  |  32 lines
  1. 1 '************************
  2. 2 '*  MEMCHK.CO           *
  3. 3 '*     by Paul Globman  *
  4. 4 '*  Copyright (c) 1988  *
  5. 5 '************************
  6. 10 FOR I = 63574 TO 63648 
  7. 20 READ X:POKE I,X:SM=SM+X
  8. 30 NEXT
  9. 40 IF SM = 10354 THEN 60
  10. 50 PRINT"error in data":STOP
  11. 60 SAVEM"MEMCHK.CO",63574,63648,63574
  12. 1000 DATA 195,116,248,17,0,0,126,71
  13. 1010 DATA 47,79,119,126,185,112,194,146
  14. 1020 DATA 248,126,184,194,146,248,35,223
  15. 1030 DATA 194,92,248,195,158,248,17,116
  16. 1040 DATA 248,33,0,160,126,71,47,79
  17. 1050 DATA 119,126,185,112,194,146,248,126
  18. 1060 DATA 184,194,146,248,35,223,194,122
  19. 1070 DATA 248,195,89,248,205,69,79,205
  20. 1080 DATA 69,79,205,69,79,205,69,79
  21. 1090 DATA 195,69,79
  22. 1100 '         END OF DATA
  23. 1110 'This is a non-destructive test,
  24. 1120 'it tests all the bits of every
  25. 1130 'address in RAM, including the
  26. 1140 'addresses where MEMCHK.CO runs.
  27. 1150 'It tests reading and writing of
  28. 1160 'every address in RAM and if a
  29. 1170 'bad location is found it will
  30. 1180 'beep 5 times, if no problem is
  31. 1190 'found it will beep once!
  32.