home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / utl / ramtst.ba < prev    next >
Text File  |  2006-10-19  |  1KB  |  49 lines
  1. 0 ' RAMTST.BA
  2. 1 'CLUB 100 LIBRARY - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
  3. 10 CLS
  4. 20 PRINT
  5. 30 PRINT"This program will test your RAM
  6. 40 PRINT"Be sure all files are saved first!!!
  7. 50 PRINT
  8. 60 PRINT"Continue?  <Y>es or <N>o
  9. 70 A$=INKEY$
  10. 80 IFA$=""THEN70
  11. 90 IFA$="Y"ORA$="y"THEN120
  12. 100 IFA$="N"ORA$="n"THENMENU
  13. 110 GOTO70
  14. 120 CLS
  15. 130 PRINT"Starting RAM test
  16. 140 CLEAR1000,MAXRAM
  17. 150 IFMAXRAM<>62960THENPRINT"Something has changed MAXRAM.":PRINT"This program will not run":BEEP:END
  18. 160 FORA=62001TO62093
  19. 170 READB
  20. 180 B1=B1+B
  21. 190 POKEA,B
  22. 200 NEXTA
  23. 210 IFB1=11093THEN250
  24. 220 PRINT"DATA statements are wrong
  25. 230 PRINT"Program will not run unless corrected
  26. 240 END
  27. 250 FORH=32*1024TO64*1024STEP256
  28. 260 IFH=65536THENH=H-1
  29. 270 IFH=61952THENH=H+256
  30. 280 PRINT"Test RAM byte "H;
  31. 290 PRINTCHR$(13);
  32. 300 CALL62001,0,H
  33. 310 IFPEEK(62094)><0THEN320ELSE390
  34. 320 PRINT"RAM failed at byte ";
  35. 330 PRINT(PEEK(62095)*256)+PEEK(62096)
  36. 340 PRINT"BAD RAM!
  37. 350 BEEP
  38. 360 PRINT
  39. 370 BEEP
  40. 380 END
  41. 390 NEXTH
  42. 400 PRINT
  43. 410 PRINT"GOOD RAM
  44. 420 END
  45. 430 DATA 243,245,197,213,229,0,0,0,17,129,242,70,26,254,254,202,77,242,119,78,185
  46. 440 DATA 194,110,242,19,195,61,242,112,35,124,181,202,102,242,62,0,189,194,57,242,0,0,0
  47. 450 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
  48. 460 DATA 0,1,2,4,8,16,32,64,128,255,85,170,254
  49.