ROM Check

    1 REM TS2068 16K ROM CHECK
    5 CLS : FLASH 0: BORDER 1: PAPER 6: INK 0: BRIGHT 0: INVERSE 0: CLS 
    9 PRINT 
   10 BEEP 1,0
   11 PRINT TAB 6;"TS2068 16K ROM CHECK"
   12 PRINT 
   13 PRINT TAB 4;"RUN TIME IS FOUR MINUTES"
   14 PRINT 
   15 PRINT TAB 3;"TO BEGIN PRESS 1 AND ENTER"
   16 INPUT F
   17 IF F<>1 THEN GO TO 15
   18 PRINT 
   19 CLS 
   20 LET a=0
   30 LET b=0
   40 FOR i=0 TO 16*1024-1
   50 LET a=a+PEEK i
   60 IF PEEK i=0 THEN LET b=b+1
   70 NEXT i
   72 PRINT "     TS2068 16K ROM CHECK"
   78 PRINT 
   80 IF a=1752253 THEN PRINT TAB 5;"FIRST ROM CHECK IS OK"
   85 PRINT 
   90 IF b=609 THEN PRINT TAB 5;"SECOND ROM CHECK IS OK"
   95 PRINT 
  100 REM rom accuracy check
  110 LET c=0
  120 LET d=0
  130 LET e=0
  140 FOR i=1000 TO 1100
  150 LET c=c+i*.5-i/2
  160 LET d=d+i*.1-i/10
  170 LET e=e+i-SQR (i*i)
  180 NEXT i
  185 LET AEA=1.3391177E-7
  190 PRINT TAB 3;"ARITHMETIC ERRORS AVERAGE =            ";AEA
  201 PRINT 
  205 IF (C+D+E)/300<=AEA THEN PRINT TAB 2;"ARITHMETIC ERRORS AVERAGE IS             CORRECT"
  240 PRINT 
  245 PRINT 
  250 PRINT "NOTE......THE ADDITIONAL 8K ROM  DEDICATED TO COMMAND CARTRIDGE  CAPABILITIES AND BANK SWITCHING IS NOT INCLUDED OR TESTED BY    THIS PROGRAM"
  270 BEEP 1,0
  280 STOP 
 9998 SAVE "ROMCHECK" LINE 1
 9999 VERIFY ""