Initial revision

diff --git a/test/rise.cupl b/test/rise.cupl
new file mode 100644 (file)
index 0000000..8673407
--- /dev/null
+++ b/test/rise.cupl
@@ -0,0 +1,14 @@
+COMMENT        COMPARE ITERATED INCREMENT, DOUBLING, SQUARING, AND MULTIPLICATION
+       LET K = 0
+       LET M = 1
+       LET P = 10
+       LET F = 1
+       PERFORM CHANGE N TIMES
+       WRITE K,M,P,F
+       STOP
+CHANGE BLOCK
+       LET K = K + 1
+       LET M = 2*M
+       LET P = P**2
+       LET F = F*K
+CHANGE END