From 4ffd1f0beaf85d13be107513cc2b729ce0f306f8 Mon Sep 17 00:00:00 2001 From: "Eric S. Raymond" Date: Fri, 11 Nov 1994 19:06:45 +0000 Subject: [PATCH] Corrected the program. --- test/fancyquad.cupl | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/test/fancyquad.cupl b/test/fancyquad.cupl index 5395af0..1e2b4f7 100644 --- a/test/fancyquad.cupl +++ b/test/fancyquad.cupl @@ -12,12 +12,11 @@ COMMENT SOLVE THE QUADRATIC EQUATION AX**2 + BX + C = 0 LET X1 = (-B+E)/(2*A) LET X2 = (-B-E)/(2*A) WRITE X1,X2 - GO TO LAST + GO TO QUADSOL END OTHER LET E = SQRT(-D) LET XREAL = -B/(2*A) LET XIMAG = E/(2*A) WRITE XREAL,XIMAG -LAST STOP QUADSOL END *DATA N=4 -- 2.43.0