7a45440566
* tests/fixcase.hb
! minor fix
+ accept single filename
* contrib/hbct/fcopy.prg
* contrib/hbnf/nwsem.prg
* contrib/hbnf/tbwhile.prg
* contrib/xhb/regexrpl.prg
* extras/gtwvw/tests/_wvwmous.prg
* src/rtl/tbrowse.prg
* tests/devtest.prg
* tests/mathtest.prg
* tests/vidtest.prg
! rerun fixcase.hb after fix
* tests/harbour.ini
* tests/inifiles.prg
* minor cleanups
48 lines
1.0 KiB
Plaintext
48 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 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()
|
|
|
|
RETURN
|