Hi,

try this

OUTSTR VAR BYTE[5]
I       VAR BYTE
INDATA  VAR     WORD
W1      VAR     BYTE
W2      VAR     BYTE

FOR i=0 TO 5
    IF (i & 1) THEN
        W2 =  W1 << 4
        W1 =  INDATA DIG I
        INDATA[p] =  W2 | W1
        p =  p + 1
    ELSE
        W1 = INDATA DIG I
    ENDIF
NEXT i

I hope this helps.

Imre


On Sat, 24 Jul 1999, Fernando Santos wrote:

> Hello All,
>
> Have anyone idea how to converte in PBP Pro,  DECIMAL to BCD
>
> Thank You
> Fernando Santos
>
>