DIM B% 10240

INPUT "Sector: "s$
s% = EVAL(s$)

SYS"ADFS_SectorDiscOp",, 1, 4<<29 OR s%, B%, 10240
OSCLI"Memory B "+STR$~B%+" +200"

INPUT"Filename: "f$
OSCLI"Save "+f$+" "+STR$~B%+" +200"
OSCLI"SetType "+f$+" Data"
