a4a357a18b
* /harbour/* -> /*
* moved whole Harbour source tree one level up to
avoid single 'harbour' top dir
27 lines
566 B
Plaintext
27 lines
566 B
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
// Tests @ SAY with and without PICTURE clauses
|
|
|
|
PROCEDURE Main()
|
|
|
|
Set( _SET_DATEFORMAT, "yyyy-mm-dd" )
|
|
|
|
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
|