'****************************************************************************
'
'   Info's ber Datentr„ger einholen in PowerBASIC 3.0/3.1
'   speziell der noch verfgbare Speicherplatz auf einem Medium
'    
'   entwickelt von / developed by   :  Thomas Gohel
'
'                           Fido    :  Thomas Gohel@2:2410/330.1
'                           InterNet:  author@pbsound.snafu.de
'                           Homepage:  http://www.snafu.de/~pbsound/
'
'****************************************************************************

CLS
FOR i% = 1 TO 26
    DiskSpace i%
NEXT i%

FUNCTION DiskSpace(BYVAL Laufwerk%)
        LOCAL SektorAnzahl??, SektorBytes??, ClusterAnzahl??, ClusterFree??
        pbvUsingChrs = "*$.."
        ! mov ah, &h36
        ! mov dl, Laufwerk%
        ! int &h21
        ! mov SektorAnzahl??, ax
        ! mov ClusterFree??, bx
        ! mov SektorBytes??, cx
        ! mov ClusterAnzahl??, dx
        IF SektorAnzahl?? = 65535 THEN
            LOCATE ,1
            PRINT "Laufwerk "+ CHR$(Laufwerk% + 64)+ " nicht bereit :-(";: DELAY 0.05
        ELSE
            PRINT
            PRINT "INFO ber Laufwerk      : "; CHR$(Laufwerk% + 64)
            PRINT "Bytes pro Sektor        :"; USING$("###############",SektorBytes??); " Bytes"
            PRINT "Anzahl der Sektoren     :"; USING$("###############", SektorAnzahl??)
            PRINT "Anzahl der Cluster      :"; USING$("###############",ClusterAnzahl??)
            DiskGesamt??? = SektorAnzahl?? * SektorBytes?? * ClusterAnzahl??
            PRINT "Plattenspeicher gesamt  :"; USING$("###,###,###,###",DiskGesamt???);" Bytes"
            DiskFree??? = SektorAnzahl?? * SektorBytes?? * ClusterFree??
            PRINT "Plattenspeicher frei    :"; USING$("###,###,###,###",DiskFree???);" Bytes"
            PRINT STRING$(46,"-")
        END IF
END FUNCTION