a4a357a18b
* /harbour/* -> /*
* moved whole Harbour source tree one level up to
avoid single 'harbour' top dir
49 lines
1.0 KiB
Plaintext
49 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://harbour-project.org/
|
|
Public domain program written by David G. Holm <dholm@jsd-llc.com>
|
|
*/
|
|
|
|
PROCEDURE Main()
|
|
|
|
#ifdef __HARBOUR__
|
|
SET PRINTER TO dev_hb
|
|
#else
|
|
SET PRINTER TO dev_cl
|
|
#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()
|
|
|
|
RETURN
|