home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / basic / library / qb_pds / pbclon20 / pbc_bas / explattr.bas < prev    next >
Encoding:
BASIC Source File  |  1992-10-07  |  1.7 KB  |  35 lines
  1. '   +----------------------------------------------------------------------+
  2. '   |                                                                      |
  3. '   |        PBClone  Copyright (c) 1990-1992  Thomas G. Hanlin III        |
  4. '   |                                                                      |
  5. '   +----------------------------------------------------------------------+
  6.  
  7. FUNCTION ExplainFAttr$ (VAttr%, AbbrevLevel%)
  8.    Result$ = ""
  9.    SELECT CASE AbbrevLevel%
  10.       CASE 1
  11.          IF VAttr% AND 1 THEN Result$ = Result$ + " R"
  12.          IF VAttr% AND 2 THEN Result$ = Result$ + " H"
  13.          IF VAttr% AND 4 THEN Result$ = Result$ + " S"
  14.          IF VAttr% AND 8 THEN Result$ = Result$ + " V"
  15.          IF VAttr% AND 16 THEN Result$ = Result$ + " D"
  16.          IF VAttr% AND 32 THEN Result$ = Result$ + " A"
  17.       CASE 2
  18.          IF VAttr% AND 1 THEN Result$ = Result$ + " R-O"
  19.          IF VAttr% AND 2 THEN Result$ = Result$ + " Hid"
  20.          IF VAttr% AND 4 THEN Result$ = Result$ + " Sys"
  21.          IF VAttr% AND 8 THEN Result$ = Result$ + " Vol"
  22.          IF VAttr% AND 16 THEN Result$ = Result$ + " Dir"
  23.          IF VAttr% AND 32 THEN Result$ = Result$ + " Arc"
  24.       CASE 3
  25.          IF VAttr% AND 1 THEN Result$ = Result$ + " Read-Only"
  26.          IF VAttr% AND 2 THEN Result$ = Result$ + " Hidden"
  27.          IF VAttr% AND 4 THEN Result$ = Result$ + " System"
  28.          IF VAttr% AND 8 THEN Result$ = Result$ + " Volume"
  29.          IF VAttr% AND 16 THEN Result$ = Result$ + " Directory"
  30.          IF VAttr% AND 32 THEN Result$ = Result$ + " Archive"
  31.       CASE ELSE: Result$ = "Invalid AbbrevLevel%"
  32.    END SELECT
  33.    ExplainFAttr$ = LTRIM$(Result$)
  34. END FUNCTION
  35.