$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 TBOX(BYVAL ROW,BYVAL COL,BYVAL ROWS,BYVAL COLS,BYVAL ATTR,BYVAL OPT,BYVAL SHAD)
    DECLARE SUB SAY(BYVAL Row AS INTEGER, BYVAL Col AS INTEGER, BYVAL Text AS STRING, BYVAL Attr AS INTEGER)
    DECLARE FUNCTION FORMAT(BYVAL NUM AS EXT, BYVAL BEF AS INTEGER, BYVAL AFT AS INTEGER)  AS STRING
'/*------------------------------------------------------------------*/
$CODE SEG "MLIB4"
'/*------------------------------------------------------------------*/
   SUB DCOLORBOX(ROW,COL,BATTR,BTYPE,SHADOW)
 '/* --- Row/Col Centering? ---*/
     IF ROW = 0 THEN ROW = 12 - (18\2)
     IF COL = 0 THEN COL = 40 - ((L+50+2)\2)
     ATTR = -1
     TBOX ROW,COL,18,50,BATTR,BTYPE,SHADOW
     FOR TROW = 1 TO 16
       OT = COL+1
       FOR TCOL = 1 TO 16
         INCR ATTR
         SAY ROW+TROW,OT,FORMAT(ATTR,3,0),ATTR
         OT = OT + 3
       NEXT TCOL
     NEXT TROW
   END SUB
'/*------------------------------------------------------------------*/
'    $INCLUDE "C:\CODE\MLIB\MLIB.INC"
'    DCOLORBOX 1,31,12,1,0
'    Y$ = GETKEY$
'/*------------------------------------------------------------------*/