home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.whtech.com
/
ftp.whtech.com.tar
/
ftp.whtech.com
/
club100
/
utl
/
ramchk.ba
< prev
next >
Wrap
Text File
|
2006-10-19
|
1KB
|
35 lines
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