ITS Muddle.

[pdp10-muddle.git] / MUDDLE / vers.2

diff --git a/MUDDLE/vers.2 b/MUDDLE/vers.2
new file mode 100644 (file)
index 0000000..dd1c8d1
--- /dev/null
+++ b/MUDDLE/vers.2
@@ -0,0 +1,17 @@
+
+<FLOAD "EDITOR" ">">
+
+
+<DEFINE VERSION ()
+       <REPEAT ((OB <ERRORS>) SUB)
+               <COND (<EMPTY? .OB><RETURN DONE>)>
+               <SET SUB <1 .OB>>
+L2             <COND (<EMPTY? .SUB><GO L1>)>
+               <PRIN1 <1 .SUB>>
+               <PRINC " VERSION ">
+               <PRIN1 ,<1 .SUB>>
+               <TERPRI>
+               <SET SUB <REST .SUB>>
+L1             <SET OB <REST .OB>>>>
+
+\f\ 3\f
\ No newline at end of file