0 'RAMCHK.BA Bill Templeton 1 'CLUB 100 Library - 415/939-1246 BBS, 937-5039 NEWSLETTER, 932-8856 VOICE 10 CLS:PRINT"This program will test your RAM" 11 PRINT"Be sure all files are saved first!" 12 PRINT@172,"Continue? (y/n)" 13 A$=INKEY$ 14 IFA$=""THEN13 15 IFA$="Y"ORA$="y"THEN17 16 IFA$="N"ORA$="n"THENMENU:ELSE13 17 CLS:CLEAR1000,MAXRAM 18 IFMAXRAM<>62960THENPRINT"Something has changed MAXRAM":PRINT"This program will not run.":BEEP:BEEP:BEEP:BEEP:END 19 FORA=62001TO62093 20 READB 21 B1=B1+B 22 POKEA,B 23 NEXTA 24 IFB1=11093THEN27 25 PRINT"DATA statements are wrong" 26 PRINT"Program will not run unless corrected":END 27 FORH=32768TO65535 28 IFH=61952THENH=H+256 29 PRINT@168,"Address under test:"H; 30 PRINTCHR$(13); 31 CALL62001,0,H 32 IFPEEK(62094)><0THEN33ELSE36 33 PRINT@168,"RAM failed at byte"; 34 PRINT(PEEK(62095)*256)+PEEK(62096) 35 BEEP:BEEP:BEEP:BEEP:END 36 NEXTH 37 PRINT@168,"All RAM locations test OK":END 38 DATA 243,245,197,213,229,0,0,0,17,129,242,70,26,254,254,202,77,242,119,78,185 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 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 41 DATA 0,1,2,4,8,16,32,64,128,255,85,170,254