[Oberon] System-V - Float to Alpha

Tomas Kral thomas.kral at email.cz
Mon Feb 4 13:24:22 CET 2019

After applying your improvement, my `calc' now does adding, so
far only.

I do this.

123 Enter -> Push()
.123 Enter -> Push()
+ -> Push(Pop()+Pop())
Pop() -> result onto display

It is fun this RPN :-)
Simply I am not capable of precedence and infix.

Unary minus 1, I think, would take this form then.
0 Enter
1 Enter

Thank you.

Tomas Kral <thomas.kral at email.cz>

More information about the Oberon mailing list