RPL That Stack

[raprism]

After reading about a PAD program in HP50g AUR to produce padded text I wondered how to get some kind of print command PrLn with right-aligned output. The following example just makes use of the normal text size, and spacing to get 8 lines of output:

Code:


Directory {
    PrLn
        «
            @ Usage: <obj> <lineno> PrLn
            → o l
            «
                o →STR
                { 10 } 6.70 l 1.50
                * - +
                { 2 FALSE FALSE -1
                    0 } +
            »
            DISP
        »
    TPrLn
        «
            1 8
            FOR i
                i 8 / →Q 1 TOLIST
                i * i PrLn
            NEXT
        »
}
'DPrLn' STO

The output of the test function TPrLn is: