96ca3fe470
* Makefile
* config/*
* contrib/*
* doc/*
* extras/*
* include/*
* lib/*
* package/*
* src/*
* tests/*
* utils/*
* removed empty lines left after removed '$' + 'Id' + '$' identifiers
30 lines
540 B
Plaintext
30 lines
540 B
Plaintext
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
|