DIM B% 10240

INPUT "Start sector: "s$
s% = EVAL(s$)

REPEAT

IF s%MOD1000 = 0 THEN PRINT s%
SYS"ADFS_SectorDiscOp",, 1, 4<<29 OR s%, B%, 10240
IF B%!26 = &30303741 THEN PRINT s%, "!": END
s% += 1

UNTIL0