96ca3fe470
* Makefile
* config/*
* contrib/*
* doc/*
* extras/*
* include/*
* lib/*
* package/*
* src/*
* tests/*
* utils/*
* removed empty lines left after removed '$' + 'Id' + '$' identifiers
8 lines
170 B
Plaintext
8 lines
170 B
Plaintext
#require "hbziparc"
|
|
|
|
PROCEDURE Main( cZip, ... )
|
|
|
|
? hb_UnzipFile( cZip, NIL, .F., NIL, NIL, hb_AParams(), {| x, y | QOut( Str( x / y * 100, 3 ) + "%" ) } )
|
|
|
|
RETURN
|