a4a357a18b
* /harbour/* -> /*
* moved whole Harbour source tree one level up to
avoid single 'harbour' top dir
13 lines
166 B
Plaintext
13 lines
166 B
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
#require "hbnf"
|
|
|
|
PROCEDURE Main( cDrv )
|
|
|
|
? "Disk size: " + Str( ft_DskSize( cDrv ) )
|
|
? "Free bytes: " + Str( ft_DskFree( cDrv ) )
|
|
|
|
RETURN
|