Breaking down three digit or larger numbers

RebelRider

Hi All,
Can I make this more simple?
' {$STAMP BS2}
' {$PBASIC 2.5}
Number VAR Word
Number10 VAR Byte
Number1 VAR Byte
DEBUG DEC Number, CR
DEBUG DEC Number / 100," " ' hundreds digit
Number10 = Number // 100
DEBUG DEC Number10 / 10," ", DEC Number10 // 10 ' tens digit, " ", ones digit

I know i can break down and DEBUG two digit number on one line:

DEBUG DEC Number / 10," ", DEC Number // 10 ' tens digit, " ", ones digit

I was thought there must be a way to do larger numbers.

Thanks,

Michael

Mike Green

Look at the description of the DIG operator. 12345 DIG 3 gives you a 2. 12345 DIG 0 gives you a 5.

RebelRider

Mike Green wrote: »

Look at the description of the DIG operator. 12345 DIG 3 gives you a 2. 12345 DIG 0 gives you a 5.

Thanks, this helps me.