89b2cb7d90
* website/*
+ set eol-style to native for all text files
! fixed inconsistent EOL in 3rd party .js files
* contrib/hbct/tests/addascii.prg
* contrib/hbct/tests/ctwtest.prg
* contrib/hbct/tests/math.prg
* contrib/hbct/tests/num1.prg
* contrib/hbct/tests/trig.prg
* contrib/hbnf/clrsel.prg
* contrib/hbnf/menu1.prg
* contrib/hbnf/sqzn.prg
* tests/db_brows.prg
* tests/fsplit.prg
* tests/mathtest.prg
* tests/newrdd.prg
* tests/round.prg
* tests/say.prg
* tests/scroll.prg
* tests/teststr.prg
* tests/transtst.prg
* tests/wvtext.prg
! fixed to use inkey.ch macros instead of literals
* corrected hbformat mistakes
25 lines
525 B
Plaintext
25 lines
525 B
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
// Tests @ SAY with and without PICTURE clauses
|
|
|
|
PROCEDURE Main()
|
|
|
|
CLS
|
|
SET CENTURY ON
|
|
@ 2, 39 TO 7, 39 DOUBLE
|
|
@ 0, 0 SAY "Testing @ SAY with and without PICTURE clauses"
|
|
@ 0, 60 SAY Date()
|
|
SET CENTURY OFF
|
|
@ 2, 1 SAY -1.25
|
|
@ 2, 41 SAY -1.25 PICTURE "@( 99,999.99"
|
|
@ 3, 1 SAY 1.25 PICTURE "@( 9,999.99"
|
|
@ 3, 41 SAY 1.25 PICTURE "@( $9,999.99"
|
|
@ 5, 1 SAY Date()
|
|
@ 5, 41 SAY Date() PICTURE "@E"
|
|
@ 7, 1 SAY "Hello"
|
|
@ 7, 41 SAY "Hello" PICTURE "@!"
|
|
|
|
RETURN
|