SUB CalcByte(Attr%,LowByte%,HiByte%)PUBLIC $CODE SEG "DNASEG1" LowByte% = 15 AND Attr% HiByte% = 255 AND (Attr% - LowByte%) / 16 END SUB SUB MakeByte(Attr%,LowByte%,HiByte%)PUBLIC $CODE SEG "DNASEG1" Attr% = HiByte% * 16 + LowByte% END SUB SUB CheckBits(Attr%,BitOne%,BitTwo%,BitThree%,BitFour%,BitFive%,BitSix%,BitSeven%,BitEight%)PUBLIC $CODE SEG "DNASEG1" 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