f2480e5443
* contrib/make_b32_all.bat * contrib/make_vc_all.bat * contrib/Makefile - contrib/msql + contrib/hbmsql * contrib/hbmsql/common.mak * contrib/hbmsql/Makefile - contrib/libmisc + contrib/hbmisc - contrib/mysql + contrib/hbmysql - contrib/odbc + contrib/hbodbc - contrib/ole + contrib/hbole - contrib/pgsql + contrib/hbpgsql * contrib/hbpgsql/common.mak * contrib/hbpgsql/Makefile - contrib/samples + contrib/hbclipsm * contrib/hbclipsm/common.mak * contrib/hbclipsm/Makefile
17 lines
182 B
Plaintext
17 lines
182 B
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
function test()
|
|
|
|
local aStat := StatusNew( 10, 5, "R/N" )
|
|
local i
|
|
|
|
CLS
|
|
for i := 1 to 40
|
|
StatusUpdate( aStat )
|
|
Inkey( .1 )
|
|
next
|
|
|
|
return nil
|