28 lines
785 B
Plaintext
28 lines
785 B
Plaintext
// Testing Harbour dates management.
|
|
|
|
#include "set.ch"
|
|
#define cNewLine CHR( 13 ) + CHR( 10 )
|
|
|
|
function Main()
|
|
|
|
OUTSTD (cNewLine, "Testing Harbour device management on", DATE())
|
|
SET (_SET_ALTFILE, "output", .T.)
|
|
SET (_SET_PRINTFILE, "output", .T.)
|
|
QOUT ("SCREEN, NOT ALTERNATE, NOT PRINTER")
|
|
DEVPOS (5, 5)
|
|
DEVOUT ("SCREEN, NOT ALTERNATE NOT PRINTER")
|
|
SET (_SET_ALTERNATE, .T.)
|
|
SET (_SET_PRINTER, .T.)
|
|
QOUT ("SCREEN, ALTERNATE AND PRINTER")
|
|
DEVPOS (10, 10)
|
|
DEVOUT ("SCREEN, NOT ALTERNATE, NOT PRINTER")
|
|
SET (_SET_DEVICE, "PRINTER")
|
|
QOUT ("SCREEN, ALTERNATE AND PRINTER AGAIN")
|
|
SET (_SET_PRINTER, .F.)
|
|
QOUT ("SCREEN AND ALTERNATE, BUT NOT PRINTER")
|
|
DEVPOS (15, 15)
|
|
DEVOUT ("PRINTER, NOT SCREEN, NOT ALTERNATE")
|
|
EJECT()
|
|
|
|
return nil
|