Annotation 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	james	22	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