From: Eric S. Raymond <esr@thyrsus.com>
Date: Fri, 11 Nov 1994 19:06:45 +0000 (+0000)
Subject: Corrected the program.
X-Git-Tag: 1-2~41
X-Git-Url: http://thyrsus.com/gitweb/?a=commitdiff_plain;h=4ffd1f0beaf85d13be107513cc2b729ce0f306f8;p=cupl.git

Corrected the program.
---

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