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