home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HAM Radio 1
/
HamRadio.cdr
/
misc
/
pc-hamd3
/
files.2
< prev
next >
Wrap
File List
|
1985-09-28
|
1KB
|
41 lines
10 REM VERSION 790822
20REM FILES\- LISTS TYPE THREE FILES AND SIZES IN BLOCKS
30 ERRSET 320,E1,E2
40 INPUT"Which drive ? ",D$\IFD$=""THEN 40
60 PRINT
70 PRINT "Data files on drive ",D$," are :- "
80 DIM L$(1028)
90 DIM A(8)
100 PRINT
110 OPEN #0,"<*>,"+D$
120 FOR I=0 TO 63
130 L$=""
140 READ#0%I*16,&A(0),&A(1),&A(2),&A(3),&A(4),&A(5),&A(6),&A(7)
150 READ#0,&J1,&J2,&J3,&J4,&J5
160 READ #0%I*16+12,&T
170 IF A(0)=32 THEN 290
180 IF T>128 THEN T=T - 128
190 IF T <> 3 THEN 290
200 FOR K=0 TO 7
210 L$=L$+CHR$(A(K))
220 NEXT K
230 IF L$(1,1)="*" THEN 290
240 IF L$(1,3) = "<*>" THEN 290
250 Q= Q + 1
260 PRINTL$,TAB(12), \ J3=J3+256*J4
270 IF J5<128 THEN PRINT" S ", ELSE PRINT" D ",
280 IFJ5<128 THEN PRINTJ3 ELSE PRINT2*J3
290 NEXT I
300 IF Q = 0 THEN PRINT "NO DATA FILES PRESENT ON DISC"
310 CLOSE #0 \ GOTO 350
320 ERRSET 320,E1,E2
330 IF E1<>360 THEN 340 ELSE IF I>4 THEN 380 ELSE 370
340 IF E2<>8 THEN 345 ELSE PRINT"HARD DISC ERROR"\GOTO 350
345 PRINT"ERROR ",E2," AT LINE ",E1
350 FOR I=1 TO 4 \ I$=STR$(I)
360 IF FILE("SYSTEM,"+I$)=2 THEN EXIT 400
370 NEXT
380 PRINT"put a system disc in a drive, hit 'RETURN"
390 INPUT" ",A$ \ GOTO 350
400 CHAIN"SYSTEM,"+I$