/[james]/archive/adfssector/ReadSects
ViewVC logotype

Contents of /archive/adfssector/ReadSects

Parent Directory Parent Directory | Revision Log Revision Log


Revision 22 - (show annotations) (download)
Thu Mar 13 12:01:06 2003 UTC (21 years, 7 months ago) by james
File size: 277 byte(s)
Initial import.

1 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"

  ViewVC Help
Powered by ViewVC 1.1.26