home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.barnyard.co.uk
/
2015.02.ftp.barnyard.co.uk.tar
/
ftp.barnyard.co.uk
/
cpm
/
walnut-creek-CDROM
/
SIMTEL
/
CPMUG
/
CPMUG003.ARK
/
CORETEST.BAS
< prev
next >
Wrap
BASIC Source File
|
1984-04-29
|
293b
|
21 lines
DIM C(4096)
PRINT "CORE TEST"
PRINT
PRINT FRE;" BYTES FREE"
INPUT "START,STOP";J,K
FOR N=J TO K
C(N)=0
NEXT N
PRINT "CORE ZEROED ";J;" TO ";K
FOR N=J TO K
IF C(N)=0 THEN 200
PRINT "ERROR @ ";N;TAB(10);"IS:";C(N);" S.B. 0"
200 NEXT N
PRINT "END TEST"
END