' File attributes and disk info: FILEATTR, GETATTR, SETATTR, ISFILE, ISFOLDER, DISKFREE, DISKSIZE
#COMPILE EXE
#DIM ALL

FUNCTION PBMAIN() AS LONG
    OPEN "test_attr.txt" FOR OUTPUT AS #1
        PRINT #1, "Attribute test"
    CLOSE #1

    PRINT "ISFILE(test_attr.txt):"; ISFILE("test_attr.txt")
    PRINT "ISFOLDER(.):"; ISFOLDER(".")

    PRINT "GETATTR(test_attr.txt):"; GETATTR("test_attr.txt")

    PRINT "DISKFREE(C:):"; DISKFREE("C:\")
    PRINT "DISKSIZE(C:):"; DISKSIZE("C:\")

    KILL "test_attr.txt"
    PRINT "Attribute operations complete."

    FUNCTION = 0
END FUNCTION
