a # 1 60 R 'r # q bargraph v;Lio                                        '
a # a,[1]  '" q is character to be used for bars.                       '
a # a,[1]  '" v is a vector of positive and negative integers.          '
a # a,[1]  '" negative integers stored in v will be ignored.            '
a # a,[1]  '" thus the same vector can be used twice.                   '
a # a,[1]  ' r#(-2Yq)[vJ.Z1+IS/v] H Lio#0                               '
a # a,[1]  '$0                                                          '
a # a,[1]  '"bargraph - plot horizontal integer bargraphs.              '
a # a,[1]  '"from ''the apl handbook of techniques'' copyright 1978, ibm. '
a # a,[1]  '"-produce horizontal histograms or gantt charts.            '
a # a,[1]  '"-two classes of input (coded plus and minus) treated,      '
a # a,[1]  '" one invisible while the other is plotted.                 '
a # a,[1]  '"-the characters used for the bars are user-specified.      '
a # a,[1]  '"-the output can be catenated to names, for example.        '
a # a,[1]  '"-uses: GH                                                  '
Lfx a