XProfan

Proc Humanizesize

    Parameters S$
    Declare H!
    H!:=Val(S$)

    If (H!<512)

        S$:=S$+" B"

    Elseif (H!<524288)

        S$:=Str$(Round(H!/1024,1))+" KB"

    Elseif (H!<536870912)

        S$:=Str$(Round(H!/1024/1024,1))+" MB"

    Endif

    Return S$

Endproc