---------------------------------------------------------------------------
| 1147 | } |
| 1148 | //--------------------------------------------------------------------------- |
| 1149 | BYTE ToBCD(BYTE val) |
| 1150 | { |
| 1151 | val %= (BYTE)100; |
| 1152 | return (BYTE)( (val/10<<4) + (val%10) ); |
| 1153 | } |
| 1154 | //--------------------------------------------------------------------------- |
| 1155 | AnsiString ByteToBinary(BYTE val) |
| 1156 | { |
nothing calls this directly
no outgoing calls
no test coverage detected