a4a357a18b
* /harbour/* -> /*
* moved whole Harbour source tree one level up to
avoid single 'harbour' top dir
34 lines
556 B
Plaintext
34 lines
556 B
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
PROCEDURE Main()
|
|
|
|
CLS
|
|
|
|
@ 0, 0, 15, MaxCol() BOX " " COLOR "W+/B"
|
|
MESSAGE( '@ 0, 0, 15, MaxCol() BOX " " COLOR "W+/B"' )
|
|
|
|
__Box( 1, 1, 5, 7 )
|
|
MESSAGE( "__Box( 1, 1, 5, 7 )" )
|
|
|
|
__Box( 1, 1, 5, 7, "X" )
|
|
MESSAGE( '__Box( 1, 1, 5, 7, "X" )' )
|
|
|
|
__BoxD( 2, 2, 6, 8 )
|
|
MESSAGE( "__BoxD( 2, 2, 6, 8 )" )
|
|
|
|
__BoxS( 3, 3, 7, 9 )
|
|
MESSAGE( "__BoxS( 3, 3, 7, 9 )" )
|
|
|
|
RETURN
|
|
|
|
PROCEDURE MESSAGE( cText )
|
|
|
|
@ 16, 0 CLEAR TO 16, MaxCol()
|
|
@ 16, 0 SAY cText
|
|
OutStd( Chr( 7 ) )
|
|
Inkey( 0 )
|
|
|
|
RETURN
|