[Oberon] System-V - Float to Alpha

[Tomas Kral]

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
1.231230E+02

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>