a # 1 60 R ' z#a centeron b;i                                           '
a # a,[1]  ' a#Fa H b#Fb                                                '
a # a,[1]  ' $(l1,l3,l2)if 0 compare i#(-1YRa)_-1YRb                    '
a # a,[1]  'l1:$l3 H b#center i addcols prepare b                       '
a # a,[1]  'l2:a#center(_i)addcols prepare a                            '
a # a,[1]  'l3:z#a on b                                                 '
a # a,[1]  ' $0                                                         '
a # a,[1]  '"headeron - puts a heading on a report                      '
a # a,[1]  '"from ''the apl handbook of techniques'' copyright 1978, ibm. '
a # a,[1]  '"-takes two character arrays of any size, centers the one   '
a # a,[1]  '" with fewer columns, then catenates a above b.             '
a # a,[1]  '"-uses: Gif Gcompare Gaddcols Gcenter Gon Gprepare          '
Lfx a