MUDDLE/pfunct.12

   1 <SETG PFUNCT <FUNCTION (OBLST CHAN)
   2         <PROG (A B C D E (F 0))
   3                 <SET A 1>
   4                 <SET B <LENGTH .OBLST>>
   5
   6 L2              <SET C <.A .OBLST>>
   7 L1              <COND (<=? .C ()> <GO FOO>)>
   8
   9                 <COND (<GASSIGNED? <SET D <1 .C>>>
  10                         <SET E <TYPE <GVAL .D>>>
  11                         <COND (<OR <=? .E SUBR><=? .E FSUBR>>
  12                                 <PRIN1 .D .CHAN>
  13                                 <PRINC "  " .CHAN>
  14                                 <PRIN1 .E .CHAN>
  15                                 <COND (<=? 5 <SET F <+ .F 1>>> <SET F 0> <TERPRI .CHAN><TERPRI .CHAN>)
  16                                         (ELSE <PRINC "  " .CHAN>
  17                                         <SET FO <FLATSIZE .D 24>>
  18                                         <COND (<1? .FO> <PRINC "                " .CHAN>)
  19                                                 (<L? .FO 10><PRINC "    " .CHAN>)>)>)>)>
  20                 <SET C <REST .C>>
  21                 <GO L1>
  22 FOO             <SET A <+ .A 1>>
  23                 <COND (<1? <- .A .B>> <RETURN "DONE">)>
  24                 <GO L2>
  25 >>>
  26 \f\ 3\f