a="\n" b="Charges:" c="Belt:" d="ON " e="OFF " h="/100" i="%" j=1000
l="Power:" if:belt>0 then f=d else f=e end
k=(:bchar/j)*j :furnace=a+c+a+l+a+f+:bpow+i+a+a+b+a+k+h goto1