//initialize all unpacked BCD digits
    for(ii = 0; ii < 5; ii++)
    {
	xx[ii] = 0;
    }
//var is an number we want to convert in to unpacked bcd format
    while(var--)            // decrement the number 
    {
	if(++xx[0] == 10)   //Increment the 5 digit oddometer 
	{
            xx[0] = 0;
	    if(++xx[1] == 10)
	    {
                xx[1] = 0;
                if(++xx[2] == 10)
                {
                    xx[2] = 0;
                    if(++xx[3] == 10)
                    {
                        xx[3] = 0;
                        xx[4]++;
                    }
                }
            }
        }
    }

//end we have the var in BCD format