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

Annotation of /archive/adfssector/ReadSects

Parent Directory Parent Directory | Revision Log Revision Log


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

1 james 22 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