130 "C" CLEAR : CLS : INPUT "Ax/Ay^2=";A,"Dx=";D,"Ey=";E,"F=";F
  131 IF ( SQU D+ SQU E-4*A*F)<=0 PRINT "kein Kreis": END 
  132 PRINT "(x+"+ STR$ D+"/"+ STR$ (2*A)+")^2+"
  133 PRINT "(y+"+ STR$ E+"/"+ STR$ (2*A)+")^2="
  134 PRINT  SQU D+ SQU E-4*A*F;"/";4* SQU A
  135 PRINT "r=";( RCP (2* ABS A)* û ( SQU D+ SQU E-4*A*E)): PAUSE "Mittelpkt"
  136 PRINT "x=";-(D/(2*A)): PRINT "y=";-(E/(2*A)): END