Contents of /archive/adfssector/ReadDisc

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

1	DIM B% 10240
2
3	INPUT "Start sector: "s$
4	s% = EVAL(s$)
5
6	REPEAT
7
8	IF s%MOD1000 = 0 THEN PRINT s%
9	SYS"ADFS_SectorDiscOp",, 1, 4<<29 OR s%, B%, 10240
10	IF B%!26 = &30303741 THEN PRINT s%, "!": END
11	s% += 1
12
13	UNTIL0
14