1963970a1d
* contrib/examples/pp/pp.c
* contrib/hbmisc/fileread.prg
* contrib/hbmisc/tests/readfile.prg
* contrib/hbmisc/tests/twirl.prg
* contrib/hbmisc/twirler.prg
* doc/en/readme.txt
* doc/es/readme.txt
* harbour-ce-spec
* harbour-w32-spec
* harbour.spec
* source/rtl/achoice.prg
* tests/boxtst2.prg
* tests/delimtst.prg
* tests/devtest.prg
* tests/disptest.prg
* tests/inkeytst.prg
* tests/longdev.prg
* tests/output.prg
* tests/round.prg
* tests/sbartest.prg
* tests/scroll.prg
* tests/sdf_test.prg
* tests/seconds.prg
* tests/setkeys.prg
* tests/testhtml.prg
* tests/version.prg
* utils/hbdoc/hbdoc.prg
* Minor formattings, cosmetic updates,
homepage made lower case everywhere.
45 lines
1.0 KiB
Plaintext
45 lines
1.0 KiB
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
// Test program for DEVPOS() and DEVOUT() Clipper compatibility
|
|
// The result is either devtestc.prn or devtesth.prn, depending upon
|
|
// which compiler created the program. Both files should be 263,444
|
|
// bytes in size and should be identical.
|
|
/* Harbour Project source code
|
|
http://www.harbour-project.org/
|
|
Public domain program written by David G. Holm <dholm@jsd-llc.com>
|
|
*/
|
|
|
|
procedure main()
|
|
#ifdef __HARBOUR__
|
|
SET PRINTER TO devtesth
|
|
#else
|
|
SET PRINTER TO devtestc
|
|
#endif
|
|
SET DEVICE TO PRINTER
|
|
DevPos( -2, 76 )
|
|
? Prow(), Pcol()
|
|
DevOut( "First text written!" )
|
|
? Prow(), Pcol()
|
|
DevOut( "Hello" )
|
|
? Prow(), Pcol()
|
|
DevPos( 6, 74 )
|
|
? Prow(), Pcol()
|
|
DevOut( "Off to the side!!" )
|
|
? Prow(), Pcol()
|
|
DevPos( 8, -12 )
|
|
? Prow(), Pcol()
|
|
DevPos( 13, -12 )
|
|
? Prow(), Pcol()
|
|
DevOut( "More test text!" )
|
|
? Prow(), Pcol()
|
|
DevOut( "Yet more text!" )
|
|
? Prow(), Pcol()
|
|
DevPos( 19, 85 )
|
|
? Prow(), Pcol()
|
|
DevPos( 500, 20 )
|
|
? Prow(), Pcol()
|
|
DevOut( "!" )
|
|
? Prow(), Pcol()
|
|
quit |