Hello Atomski,

First of all... Please forgive me for misspelling your name on the last post...I did not mean to make that error...

Here is some code that will switch Your Dig number to a binary...
Remember, I am *NOT* a PBP pro <g> I do not know the language that well, Now if you put me in Borlands c/c++ compilers...You are in my field...<g>

But I think the following should compile without much changing at all.



BinNumber=0;
Power=100;
for (BinCounter=2;BinCounter>=0;BinCounter--)
{
if((BinCounter*2)<=DigNumber)
{
DigNumber=DigNumber-(BinCounter*2);
BinNumber=BinNumber+((BinCounter*2)* Power);
BinNumber=BinNumber;
}
Power=Power/10;
}
if (DigNumber>0)BinNumber=BinNumber+1;


This equates to PBP code as the following::




BinNumber=0;
Power=100;
for BinCounter=2 to 0 stop -1)

if((BinCounter*2)<=DigNumber)
{
DigNumber=DigNumber-(BinCounter*2);
BinNumber=BinNumber+((BinCounter*2)* Power);
BinNumber=BinNumber;
}
Power=Power/10;
Next BinCounter

if (DigNumber>0)BinNumber=BinNumber+1;



The Entire code will look somehting like this....



Number var byte
DigNumber var byte
counter var byte
BinNumber var byte
BinCounter var byte
Power Var byte

For counter=2 to 0 step -1
DigNumber=Number Dig counter 'Dig first number out

**************
'One way of doing it..if it works
BinNumber = DCD DigNumber '
*************************
'Another way of doing it...
BinNumber=0;
Power=100;
for BinCounter=2 to 0 stop -1)

if((BinCounter*2)<=DigNumber)
{
DigNumber=DigNumber-(BinCounter*2);
BinNumber=BinNumber+((BinCounter*2)* Power);
BinNumber=BinNumber;
}
Power=Power/10;
Next BinCounter

if (DigNumber>0)BinNumber=BinNumber+1;
*************************************
'Another way of doing it..with case statements...
'although I saw someone use a case statement here in th forum
'I did a quick search and didn't find one one the first try...
'look it up (if PBP has one) it will go somthing like...

Switch (DigNumber)
case 0: BinNumber = DCD DigNumber
break
case 1 : BinNumber = DCD DigNumber
break
case 2 : BinNumber = DCD DigNumber
break
.....
.....
case 7:BinNumber = DCD DigNumber

LCDout BinNumber


***************************************
'if you want zero's (front zeros printed) check length of 'BinNumber and add leading zeros.

LCDout BinNumber
LCDout "-"
Next counter