MORE
0^li,
O(*S,%.MACRO),
O(:S,*M[A])^op,
IF{'op O(:S,*S[A])^op},
IF{'op 1,
   N("program "_A_" not found")^#;
   1^running,
   DO{(+:)&(running) 1,
      :^l,
      @P},
   C(:U)},
C(*U),
END;

P
""^lf,
IF{li=22 1,
   1^lf,
   N("-- more --")^#,
   #S^q,
   D(13)_"          "_D(13)^#,
   0^li},
li+1^li,
IF{(q="q")!(q="Q") 1,
   ""^running;
   IF{'lf 1,
      N(l)^#;
      l^#}}
