ITS Muddle.

[pdp10-muddle.git] / MUDDLE / multi.test

diff --git a/MUDDLE/multi.test b/MUDDLE/multi.test
new file mode 100644 (file)
index 0000000..52f2b4a
--- /dev/null
+++ b/MUDDLE/multi.test
@@ -0,0 +1,12 @@
+<SETG PROC2FUN <FUNCTION (A)<PRINT PROCESS2><PRINT .A>
+<RESUME <PROC1ID 'PROCESS2PASS> PROC2FUN>>>
+
+<SETG PROC2ID <CREATE ,PROC2FUN>>
+
+<SET P PROCESS1>
+
+<SETG PROC1FUN <FUNCTION (A)<PRINT PROC1FUN> <PRINT .A>>>
+
+
+<SETG PROC1ID .THIS-PROCESS>
+\f\ 3\f
\ No newline at end of file