'====INTEGER TO BCD PROCEDURE============================
'= CONVERTS a% to n% in packed BCD format               =
'========================================================
SUB int2bcd(a%)(n%)
       n% = 0
       WHILE a% > 999
         a% = a% - 1000
         n% = n% + &H1000
       WEND
       WHILE a% > 99
         a% = a% - 100
         n% = n% + &H100
       WEND
       WHILE a% > 9
         a% = a% - 10
         n% = n% + &H10
       WEND
       n% = n% + a%
END SUB
'====END SUB INT2BCD=====================================