$CPU 8086          ' make compatible with XT systems
$LIB ALL OFF       ' turn off all PowerBASIC libraries
$ERROR ALL OFF     ' turn off all PowerBASIC error checking
$OPTIMIZE SIZE     ' optimize for smaller code
 $COMPILE UNIT      ' compile to a UNIT (.PBU)
'$COMPILE EXE       ' compile to a UNIT (.PBU)

DEFINT A-Z         ' Required for all numeric functions, forces PB to not
                   ' include floating point in UNIT (makes it smaller)
'/*------------------------------------------------------------------*/
DECLARE SUB SAY(BYVAL Row AS INTEGER, BYVAL Col AS INTEGER, BYVAL Text AS STRING, BYVAL Attr AS INTEGER)
'/*------------------------------------------------------------------*/
$CODE SEG "MLIB11"
'/*------------------------------------------------------------------*/
' FILL ROW,COL,BROW,BCOL,C$,ATTR
'     Fills the area defined by ROW,COL and BROW,BCOL with chacater
'     in C$ using color ATTR
'     EXAMPLE:  FILL 10,20,20,60,"²",31
'/*------------------------------------------------------------------*/
    SUB SFILL(TROW%,TCOL%,BROW%,BCOL%,C$,ATTR%) PUBLIC
      L = BCOL%-TCOL%
      FOR CNT = TROW% TO BROW%
        SAY CNT%,TCOL%,STRING$(L,C$),ATTR%
      NEXT CNT
    END SUB
'/*------------------------------------------------------------------*/
'   $INCLUDE "C:\CODE\MLIB\MLIB.INC"
'   SHELL "D C:\CODE"
'   FILL 1,1,25,80,"±",120
'   Y$ = GETKEY
'/*------------------------------------------------------------------*/