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