$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 FUNCTION MKATTR(BYVAL FC%,BYVAL BC%) AS INTEGER
DECLARE SUB CALCBYTE(ATTR%,FCOLOR%,BCOLOR%)
'/*------------------------------------------------------------------*/
$CODE SEG "MLIB11"
'/*------------------------------------------------------------------*/
  FUNCTION RATTR(ATTR) PUBLIC AS INTEGER
    CALCBYTE ATTR,FC,BC
    FUNCTION = MKATTR(BC,FC)
  END FUNCTION
'/*------------------------------------------------------------------*/