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

Annotation of /archive/adfssector/ReadDisc

Parent Directory Parent Directory | Revision Log Revision Log


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

1 james 22 DIM B% 10240
2    
3     INPUT "Start sector: "s$
4     s% = EVAL(s$)
5    
6     REPEAT
7    
8     IF s%MOD1000 = 0 THEN PRINT s%
9     SYS"ADFS_SectorDiscOp",, 1, 4<<29 OR s%, B%, 10240
10     IF B%!26 = &30303741 THEN PRINT s%, "!": END
11     s% += 1
12    
13     UNTIL0
14    

  ViewVC Help
Powered by ViewVC 1.1.26