a # 1 60 R ' z#frame a;Lio                                              '
a # a,[1]  ' $l1 if character z#a                                       '
a # a,[1]  ' z#tabulate z                                               '
a # a,[1]  'l0:z#1 adjustup''-'',[Lio#1]z                                 '
a # a,[1]  ' z#''|'',(z,[1]''_''),''|''                                       '
a # a,[1]  ' $0 H z#(1YRz)adjustdown z                                  '
a # a,[1]  'l1:$l0 if 0=frametest z#matrix z                            '
a # a,[1]  ' $0                                                         '
a # a,[1]  '"frame - frame and array                                    '
a # a,[1]  '"from ''the apl handbook of techniques'' copyright 1978, ibm. '
a # a,[1]  '"-employs the  characters ''_-|'' to build a frame around     '
a # a,[1]  '" any array after reshaping it as a matrix.                 '
a # a,[1]  '"-no data is truncated.                                     '
a # a,[1]  '"-uses: Gcharacter Gtabulate Gadjustup Gadjustdown          '
a # a,[1]  '        Gframetest Gmatrix Gif                              '
Lfx a