Files
harbour-core/contrib/hbnf/tests/diskfunc.prg
vszakats 9687850865 2013-03-16 02:10 UTC+0100 Viktor Szakats (harbour syenar.net)
* (all files)
    * stripped svn header
    * minor cleanups
    ; use following command to find out the history of files:
       git log
       git log --follow
       git blame
       git annotate
2013-03-16 02:11:42 +01:00

10 lines
151 B
Plaintext

#require "hbnf"
PROCEDURE Main( cDrv )
? "Disk size: " + Str( ft_DskSize( cDrv ) )
? "Free bytes: " + Str( ft_DskFree( cDrv ) )
RETURN