Contents of /archive/adfssector/ReadSects

DIM B% 1024^2

INPUT "Start sector: "s$
s% = EVAL(s$)
INPUT "Number of sectors: "n%

z% = B%

 FOR S% = s% TO (s% + n%)

  SYS"ADFS_SectorDiscOp",, 1, 4<<29 OR S%, z%, 512 TO ,,, z%

 NEXT

INPUT"Filename: "f$
OSCLI"Save "+f$+" "+STR$~B%+" "+STR$~z%
OSCLI"SetType "+f$+" Data"
1	DIM B% 1024^2
2
3	INPUT "Start sector: "s$
4	s% = EVAL(s$)
5	INPUT "Number of sectors: "n%
6
7	z% = B%
8
9	FOR S% = s% TO (s% + n%)
10
11	SYS"ADFS_SectorDiscOp",, 1, 4<<29 OR S%, z%, 512 TO ,,, z%
12
13	NEXT
14
15	INPUT"Filename: "f$
16	OSCLI"Save "+f$+" "+STR$~B%+" "+STR$~z%
17	OSCLI"SetType "+f$+" Data"