Timeframe Mod Function Verbose

tfrmod(tf_mult,baseres,res_step)=>
    resx = baseres * tf_mult
    rmndr = -1*(resx % res_step)
    divs = (max(rmndr,resx) - min(rmndr,resx))

    digit_mod4 = pow(10,3)
    digit_mod3 = pow(10,2)
    digit_mod2 = pow(10,1)
    digit_mod1 = 1
    remaining_mod4 = (pow(10,4))
    remaining_mod3 = (pow(10,3))
    remaining_mod2 = (pow(10,2))
    remaining_mod1 = (pow(10,1))
    rawmod4 = (divs%remaining_mod4)
    rawmod3 = (divs%remaining_mod3)
    rawmod2 = (divs%remaining_mod2)
    rawmod1 = (divs%remaining_mod1)
    //
    rpv4 = (rawmod4 - (rawmod4%digit_mod4)) / digit_mod4
    rpv3 = (rawmod3 - (rawmod3%digit_mod3)) / digit_mod3
    rpv2 = (rawmod2 - (rawmod2%digit_mod2)) / digit_mod2
    rpv1 = (rawmod1 - (rawmod1%digit_mod1)) / digit_mod1
    rpv0 = rpv4*digit_mod4 + rpv3*digit_mod3 + rpv2*digit_mod2 + rpv1*digit_mod1

    pv = tostring(rpv0, "####")