%%HP: T(1)A(D)F(.);
 "DREIECK-STERN
"
{
":R13:
:R12:
:R23:"
{ 1 0 } V } INPUT
OBJ 'R12' STO
'R13' STO 'R23' STO
3 ENG 'R12*R13/(R12
+R13+R23)' NUM
'R2' TAG 'R12*R23/
(R12+R13+R23)' NUM
'R3' TAG 'R13*R23/
(R12+R13+R23)' NUM
'R1' TAG 20.01
MENU { R23 R13 R12
} PURGE

