23 lines
510 B
Plaintext
23 lines
510 B
Plaintext
//
|
|
// $Id$
|
|
//
|
|
|
|
// Tests @ SAY with and without PICTURE clauses
|
|
|
|
function 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 nil
|