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