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
31 lines
541 B
Plaintext
31 lines
541 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
|