9687850865
* (all files)
* stripped svn header
* minor cleanups
; use following command to find out the history of files:
git log
git log --follow
git blame
git annotate
12 lines
261 B
Plaintext
12 lines
261 B
Plaintext
// Testing Harbour device management.
|
|
|
|
#include "box.ch"
|
|
|
|
PROCEDURE Main()
|
|
|
|
DispBox( 1, 1, 5, 5, HB_B_SINGLE_UNI + "X", "color not supported" )
|
|
DispBox( 7, 7, 13, 72, HB_B_DOUBLE_UNI + "." )
|
|
DispBox( 14, 14, 22, 22, HB_B_SINGLE_DOUBLE_UNI )
|
|
|
|
RETURN
|