ITS Muddle.

[pdp10-muddle.git] / MUDDLE / testsp.4

diff --git a/MUDDLE/testsp.4 b/MUDDLE/testsp.4
new file mode 100644 (file)
index 0000000..df6a2a0
--- /dev/null
+++ b/MUDDLE/testsp.4
@@ -0,0 +1,18 @@
+<SETG ENVIRON 
+  <FUNCTION ("BIND" E) .E>>
+
+
+<SET E0 <ENVIRON>>
+
+<PROG ((A 100) E1)
+   <SET E1 <ENVIRON>>
+   <PRINT .A>
+   <PROG ((A 10) E2)
+      <SET E2 <ENVIRON>>
+      <PRINT .A>
+      <PROG ((A 1) E3)
+         <PRINT .A>
+         <SPLICE <ENVIRON> .E1>
+         <PRINT .A>>
+      <PRINT .A>>
+   <PRINT .A>>\f\ 3\f
\ No newline at end of file