MUDDLE/vers.2

   1
   2 <FLOAD "EDITOR" ">">
   3
   4
   5 <DEFINE VERSION ()
   6         <REPEAT ((OB <ERRORS>) SUB)
   7                 <COND (<EMPTY? .OB><RETURN DONE>)>
   8                 <SET SUB <1 .OB>>
   9 L2              <COND (<EMPTY? .SUB><GO L1>)>
  10                 <PRIN1 <1 .SUB>>
  11                 <PRINC " VERSION ">
  12                 <PRIN1 ,<1 .SUB>>
  13                 <TERPRI>
  14                 <SET SUB <REST .SUB>>
  15 L1              <SET OB <REST .OB>>>>
  16
  17 \f\ 3\f