a # 1 60 R ' z#frametest a                                              '
a # a,[1]  ' z#~Lio#1                                                   '
a # a,[1]  ' $0 if 0=X/Ra                                               '
a # a,[1]  ' $0 if a[1;1]^=''|''                                          '
a # a,[1]  ' $0 if 1^=&/,(a[1,1YRa;],Ta[;1,-1YRa])E''|_-''                '
a # a,[1]  ' z#1                                                        '
a # a,[1]  ' $0                                                         '
a # a,[1]  '"frametest - checks a matrix for framing                    '
a # a,[1]  '"from ''the apl handbook of techniques'' copyright 1978, ibm. '
a # a,[1]  '"-examines a matrix for the presence of framing elements    '
a # a,[1]  '" ''|_-'' around its periphery and returns a 1 if present,    '
a # a,[1]  '" 0 otherwise.                                              '
a # a,[1]  '"-uses: Gif                                                 '
Lfx a