home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / cpmug / cpmug003.ark / CORETEST.BAS < prev    next >
Encoding:
BASIC Source File  |  1984-04-29  |  293 b   |  21 lines
  1. DIM C(4096)
  2.     PRINT "CORE TEST"
  3.     PRINT
  4.  
  5.     PRINT FRE;" BYTES FREE"
  6.  
  7.     INPUT "START,STOP";J,K
  8.  
  9.     FOR N=J TO K
  10.     C(N)=0
  11.     NEXT N
  12.     PRINT "CORE ZEROED ";J;" TO ";K
  13.  
  14.     FOR N=J TO K
  15.     IF C(N)=0 THEN 200
  16.     PRINT "ERROR @ ";N;TAB(10);"IS:";C(N);"  S.B. 0"
  17. 200    NEXT N
  18.  
  19.     PRINT "END TEST"
  20.     END
  21.