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"
