(42S) (& 41C): Ceiling (& Floor) Function Programme

[Gerald H]

Behold a programme to implement the ceiling function for reals.

I would be grateful for improvements.

Code:


0.    { 24-Byte Prgm }
1.    LBL “CEIL”
2.    X>0?
3.    GTO 00
4.    IP
5.    RTN
6.    LBL 00
7.    STO "1"
8.    FP
9.    X≠0?
10.    SIGN
11.    RCL+ "1"
12.    IP
13.    END