9687850865
* (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
23 lines
550 B
Plaintext
23 lines
550 B
Plaintext
// 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
|