home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / utl / ramchk.ba < prev    next >
Text File  |  2006-10-19  |  1KB  |  35 lines
  1. 0 'RAMCHK.BA  Bill Templeton
  2. 1 'CLUB 100 Library - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
  3. 10 CLS:PRINT"This program will test your RAM"
  4. 11 PRINT"Be sure all files are saved first!"
  5. 12 PRINT@172,"Continue? (y/n)"
  6. 13 A$=INKEY$
  7. 14 IFA$=""THEN13
  8. 15 IFA$="Y"ORA$="y"THEN17
  9. 16 IFA$="N"ORA$="n"THENMENU:ELSE13
  10. 17 CLS:CLEAR1000,MAXRAM
  11. 18 IFMAXRAM<>62960THENPRINT"Something has changed MAXRAM":PRINT"This program will not run.":BEEP:BEEP:BEEP:BEEP:END
  12. 19 FORA=62001TO62093
  13. 20 READB
  14. 21 B1=B1+B
  15. 22 POKEA,B
  16. 23 NEXTA
  17. 24 IFB1=11093THEN27
  18. 25 PRINT"DATA statements are wrong"
  19. 26 PRINT"Program will not run unless corrected":END
  20. 27 FORH=32768TO65535
  21. 28 IFH=61952THENH=H+256
  22. 29 PRINT@168,"Address under test:"H;
  23. 30 PRINTCHR$(13);
  24. 31 CALL62001,0,H
  25. 32 IFPEEK(62094)><0THEN33ELSE36
  26. 33 PRINT@168,"RAM failed at byte";
  27. 34 PRINT(PEEK(62095)*256)+PEEK(62096)
  28. 35 BEEP:BEEP:BEEP:BEEP:END
  29. 36 NEXTH
  30. 37 PRINT@168,"All RAM locations test OK":END
  31. 38 DATA 243,245,197,213,229,0,0,0,17,129,242,70,26,254,254,202,77,242,119,78,185
  32. 39 DATA 194,110,242,19,195,61,242,112,35,124,181,202,102,242,62,0,189,194,57,242,0,0,0
  33. 40 DATA 0,0,0,0,0,0,0,0,0,62,0,50,142,242,195,123,242,62,255,50,142,242,124,50,143,242,125,50,144,242,225,209,193,241,251,201
  34. 41 DATA 0,1,2,4,8,16,32,64,128,255,85,170,254
  35.