a # 1 60 R ' r#da sortda m;n                                            '
a # a,[1]  ' r#n[W,(n#m[A,m[;-1Yda];])[;1Yda];]                         '
a # a,[1]  ' $0                                                         '
a # a,[1]  '"sortda                                                     '
a # a,[1]  '"from ''the apl handbook of techniques'' copyright 1978, ibm. '
a # a,[1]  '" da is a pair of column numbers in user''s origin.          '
a # a,[1]  '" a controls the initial ascending sort.                    '
a # a,[1]  '" d controls the final descending sort.                     '
a # a,[1]  '" m is a numeric matrix which may result from nform.        '
Lfx a