home *** CD-ROM | disk | FTP | other *** search
/ Millennium Time Capsule / AC2000.BIN / disks / hbasic_1 / source / fsfirst.bas < prev    next >
Encoding:
BASIC Source File  |  1997-09-14  |  859 b   |  46 lines
  1.  
  2. LIBRARY "gemdos"
  3.  
  4. DEFINT a-z
  5. REM $option k200
  6.  
  7. a&=fgetdta&
  8.  
  9. b=fsfirst%("*.*",16)
  10. IF b<>0 THEN STOP -1
  11.  
  12. DO
  13.  
  14. FOR c=30 TO 43
  15. d=SPEEKB(a&+c)
  16. IF d<>0 THEN a$=a$+CHR$(d) ELSE EXIT FOR
  17. NEXT c
  18. PRINT a$;
  19. a$=""
  20.  
  21. d&=SPEEKL(a&+26)
  22. PRINT " (File size:";d&;")"
  23. e=SPEEKW(a&+22)
  24. 'PRINT "File time stamp: ";e
  25. f=SPEEKW(a&+24)
  26. 'PRINT "File date stamp: ";f
  27. g=SPEEKB(a&+21)
  28. 'PRINT "Attribute: ";
  29. 'IF g AND 32 THEN PRINT "Archive"
  30. 'IF g AND 16 THEN PRINT "Subdirectory"
  31. 'IF g AND 8 THEN PRINT "Volume label"
  32. 'IF g AND 4 THEN PRINT "System file"
  33. 'IF g AND 2 THEN PRINT "Hidden"
  34. 'IF g AND 1 THEN PRINT "Read Only"
  35.  
  36. 'IF g=0 THEN PRINT "Read Only"
  37. 'IF g=1 THEN PRINT "Hidden"
  38. 'IF g=2 THEN PRINT "System"
  39. 'IF g=3 THEN PRINT "Volume label"
  40. 'IF g=4 THEN PRINT "Subdirectory"
  41. 'IF g=5 THEN PRINT "Archive bit"
  42.  
  43. 'PRINT
  44. b=fsnext%
  45.  
  46. LOOP UNTIL b<>0