$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 NTOD(BYVAL B AS INTEGER, BYVAL N AS STRING) AS STRING
DECLARE FUNCTION SPACE(BYVAL X AS STRING, BYVAL N AS INTEGER, BYVAL PAD AS STRING) AS STRING
'/*------------------------------------------------------------------*/
$CODE SEG "MLIB5"
'/*--------------------------------------------------------------------
SUB GETBITS(Attr%,BitOne%,BitTwo%,BitThree%,BitFour%,BitFive%,BitSix%,BitSeven%,BitEight%)PUBLIC
  IF (Attr% AND 1) = 1 THEN BitOne% = 1 ELSE BitOne% = 0
  IF (Attr% AND 2) = 2 THEN BitTwo% = 1 ELSE BitTwo% = 0
  IF (Attr% AND 4) = 4 THEN BitThree% = 1 ELSE BitThree% = 0
  IF (Attr% AND 8) = 8 THEN BitFour% = 1 ELSE BitFour% = 0
  IF (Attr% AND 16) = 16 THEN BitFive% = 1 ELSE BitFive% = 0
  IF (Attr% AND 32) = 32 THEN BitSix% = 1 ELSE BitSix% = 0
  IF (Attr% AND 64) = 64 THEN BitSeven% = 1 ELSE BitSeven% = 0
  IF (Attr% AND 128) = 128 THEN BitEight% = 1 ELSE BitEight% = 0
END SUB
'/*--------------------------------------------------------------------