5 CLEAR 512,&H6000
7 LOADM "TIME.BIN"
10 PRINT "WRITE PROTECT TIMING"
20 PRINT
30 PRINT "WRITE PROTECT DISK AND PRESS    ENTER"
40 INPUT A$
45 REM PUT HEAD ON TRACK ZERO
50 DSKI$ 0,0,1,A$,B$
60 EXEC
70 PRINT "COUNT:" PEEK(&H6000)
80 PRINT "STATUS: $";HEX$(PEEK(&H6001))
90 END
