Files
harbour-core/contrib/hbnf/tests/pending.prg
vszakats 9687850865 2013-03-16 02:10 UTC+0100 Viktor Szakats (harbour syenar.net)
* (all files)
    * stripped svn header
    * minor cleanups
    ; use following command to find out the history of files:
       git log
       git log --follow
       git blame
       git annotate
2013-03-16 02:11:42 +01:00

16 lines
371 B
Plaintext

#require "hbnf"
PROCEDURE Main()
CLS
ft_Pending( "Message one", 20, 0, 3, "W+/G" ) // Displays "Message one."
// sets row to 20, col to 0.
// wait to 3 and color to
// bright white over green.
ft_Pending( "Message two" ) // Displays "Message two", after 5 sec.
ft_Pending( "Message three" ) // Displays "Message three", after 5 sec.
RETURN