1 ON ERROR GOTO 23
2 LOAD"A:FFF
5 FOR X = 1 TO 66500!:C=PEEK(X):A$ = CHR$(C)+CHR$(PEEK(X+1))+CHR$(PEEK(X+2))+CHR$(PEEK(X+3)):IF LEFT$(TIME$,4) = A$ THEN PRINT X:STOP ELSE NEXT
23 OLD = ERDEV
33 FOR X = 65535! TO 1 STEP -1
34 IF PEEK(X) = ERDEV THEN PRINT X,ERDEV:POKE X,255:IF ERDEV <> OLD THEN STOP
36 NEXT X