Contents of /archive/adfssector/ReadSector

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"
1	DIM B% 10240
2
3	INPUT "Sector: "s$
4	s% = EVAL(s$)
5
6	SYS"ADFS_SectorDiscOp",, 1, 4<<29 OR s%, B%, 10240
7	OSCLI"Memory B "+STR$~B%+" +200"
8
9	INPUT"Filename: "f$
10	OSCLI"Save "+f$+" "+STR$~B%+" +200"
11	OSCLI"SetType "+f$+" Data"