%%HP: T(1)A(D)F(.);
« "X-Wert 1" ":X1:"
INPUT OBJ EVAL
"Y-Wert 1" ":Y1:"
INPUT OBJ EVAL
"X-Wert 2" ":X2:"
INPUT OBJ EVAL
"Y-Wert 2" ":Y2:"
INPUT OBJ EVAL  C
D E F
  «
" Solve?  wähle

   Ķ(x)=1  Z=2 "
":?:" INPUT OBJ 
W
    «
      IF W 2 ==
      THEN E C - SQ
F D - SQ + ƒ 3 RND
'Z' TAG
      ELSE F D -
EVAL E C - EVAL / 
A
        «
"y=m*x+b und y=0" F
A E * -  B
          « B Q
'b' TAG A Q 'm'
TAG B NEG A / 3
RND 'x' TAG
          »
        »
      END
    »
  »
»