Initial revision

diff --git a/test/poly11.cupl b/test/poly11.cupl
new file mode 100644 (file)
index 0000000..2e4bf47
--- /dev/null
+++ b/test/poly11.cupl
@@ -0,0 +1,12 @@
+COMMENT        EVALUATION OF A POLYNOMIAL
+COMMENT (SPECIFICALLY, SUM FOR K = 1 TO 11 OF K!X**K, PLUS 1)
+       READ X
+       LET FOFX = 0
+       LET TERM = 1
+       PERFORM STEP FOR N = 1 TO 11
+STEP   BLOCK
+       LET FOFX = FOFX + TERM
+       LET TERM = TERM*N*X
+STEP   END
+       WRITE X, FOFX
+       STOP