The following code should work.

Cheers

Al.

Code:
Percent  var byte
R_Amp var Word
I_Amp var Byte
D_Amp var Byte

main:
Percent = 8 ' set variable with your percent
gosub Calc
LDCOUT I_Amp, ".", D_Amp ' display values
goto main

Calc:
R_Amp = (100 - Percent) * Amps ' here Amps is your variable with the primitive value
I_Amp = R_Amp/100 ' integerpart
D_Amp = R_Amp//100 ' decimal part
Return