Files
harbour-core/contrib/hbnf/tests/floptst.prg
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

15 lines
313 B
Plaintext

#require "hbnf"
PROCEDURE Main( cArg1 )
LOCAL nErrCode
IF HB_ISSTRING( cArg1 )
nErrCode := ft_FlopTst( Asc( Upper( cArg1 ) ) - Asc( "A" ) )
? "Return Code is " + hb_ntos( nErrCode )
ELSE
? "Usage: floptst cDrive" + hb_eol() + " where cDrive is 'A' or 'B' etc..."
ENDIF
RETURN