harbour-core/contrib/hbnf/tests/diskfunc.prg at master - harbour-core - fivego gitea

fivedev/harbour-core

Files

Przemysław Czerpak 96ca3fe470 2014-01-21 20:41 UTC+0100 Przemyslaw Czerpak (druzus/at/poczta.onet.pl)

* Makefile
  * config/*
  * contrib/*
  * doc/*
  * extras/*
  * include/*
  * lib/*
  * package/*
  * src/*
  * tests/*
  * utils/*
    * removed empty lines left after removed '$' + 'Id' + '$' identifiers

2014-01-21 20:41:05 +01:00

9 lines

150 B

Plaintext

Raw Permalink Blame History

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