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

