PK.ORDRSEARCH
@OPEN.OE,
@ORDERS,
END;

OPEN.OE
@admdir,
O(&,@misdict),
@oedir,
O(*,@oedata),
O(\,@oedict),
@pkdir

ORDERS
N("Order categories")^!,
""^pc,
DO{+\PC[pc]^pc "got one",
   IF{"Y"'=\PC[pc]|0;
      N("  "_(pc_": "):12L_\PC[pc]|1)^!}}
