a # 1 60 R ' z#a headeron b;i;j;Lio                                     '
a # a,[1]  ' i#-1YRa#prepare a H Lio#1                                  '
a # a,[1]  ' j#-1YRb#prepare b                                          '
a # a,[1]  ' $(l1,l2,l0)if i compare j                                  '
a # a,[1]  'l0:$l2,Rb#center(j-i)addcols b                              '
a # a,[1]  'l1:a#center(i-j)addcols a                                   '
a # a,[1]  'l2:z#a,[1]'_',[1]1 addrows b                                '
a # a,[1]  ' z#(1+1YRa)adjustup(1+1YRa)adjustdown z                     '
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. '
Lfx a