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

Contents of /archive/adfssector/ReadDisc

Parent Directory Parent Directory | Revision Log Revision Log


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

1 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