Code:
    NUM VAR WORD
    NUM = 12345
    NUM_DIG VAR BYTE
    
    BOOT:
    SEROUT2 TX,BAUD,[$d,$a]
    'RETURNS 12345
    SEROUT2 TX,BAUD,["NUM= ",DEC NUM,$d ,$a]
    'RETURNS 345
    SEROUT2 TX,BAUD,["NUM= ",DEC3 NUM,$d ,$a]
    NUM_DIG = NUM DIG 4 'RETURNS 1
    SEROUT2 TX,BAUD,["NUM_DIG4= ",DEC NUM_DIG,$d ,$a]
    NUM_DIG = NUM DIG 3 'RETURNS 2
    SEROUT2 TX,BAUD,["NUM_DIG3= ",DEC NUM_DIG,$d ,$a]
    NUM_DIG = NUM DIG 2 'RETURNS 3
    SEROUT2 TX,BAUD,["NUM_DIG2= ",DEC NUM_DIG,$d ,$a]
    GOTO BOOT