15 lines
252 B
Plaintext
15 lines
252 B
Plaintext
//
|
|
// $Id$
|
|
//
|
|
|
|
// Testing Harbour device management.
|
|
|
|
#include "box.ch"
|
|
function Main()
|
|
|
|
dispbox( 1, 1, 5, 5, B_SINGLE + 'X', 'color not supported')
|
|
dispbox( 7, 7, 13, 72, B_DOUBLE + '.')
|
|
dispbox( 14, 14, 22, 22, B_SINGLE_DOUBLE )
|
|
|
|
return nil
|