%%HP: T(1)A(D)F(.);
«
"Kein Wert=0
WERT 1"
":X:" INPUT OBJ¨
EVAL "WERT 2" ":Y:"
INPUT OBJ¨ EVAL
"WERT 3" ":M:"
INPUT OBJ¨ EVAL
"WERT 4" ":B:"
INPUT OBJ¨ EVAL ¨ X
Y M B
  «
"SOLVE? ¨ Wähle
X=1 Y=2 M=3 B=4 "
":?:" INPUT OBJ¨ ¨
Z
    «
      CASE Z 1 ==
        THEN
          IF Y 0 ==
          THEN B
NEG M / ¨Q "X="
¨TAG
          ELSE Y B
- M / ¨Q "X=" ¨TAG
          END
        END Z 2 ==
        THEN M X *
B + ¨Q "Y=" ¨TAG
        END Z 3 ==
        THEN Y B -
X / ¨Q "M=" ¨TAG
        END Z 4 ==
        THEN Y M X
* - ¨Q "B=" ¨TAG
        END
      END
    »
  »
»