64K Tape Test

Source Code

   1 SAVE "1018%7"
   2 REM                                 64K TAPE TEST REQUIRES          45 MINS. TO RUN
  10 DIM A$(1,16384)
  20 DIM B$(1,16384)
  30 FAST 
  40 FOR A=1 TO 16384
  50 LET A$(1,A)="%E"
  60 LET B$(1,A)="%Z"
  70 NEXT A
  80 PRINT "START TAPE PRESS ENTER"
  90 INPUT Z$
 100 CLS 
 110 SAVE "TAPE TEST"
 120 LET ERROR=0
 130 FOR X=1 TO 16384
 140 IF A$(1,X)<>"%E" THEN LET ERROR=ERROR+1
 150 IF B$(1,X)<>"%Z" THEN LET ERROR=ERROR+1
 160 NEXT X
 170 SLOW 
 180 PRINT "ERROR COUNT IS ";ERROR
 190 STOP