a # 1 60 R ' r#n cvec loc                                               '
a # a,[1]  ' r#nR1                                                      '
a # a,[1]  ' $0 if n<loc+Lio=0                                          '
a # a,[1]  ' r[loc]#0                                                   '
a # a,[1]  ' $0                                                         '
a # a,[1]  '"cvec - build compression or logical vector                 '
a # a,[1]  '"from ''the apl handbook of techniques'' copyright 1978, ibm. '
a # a,[1]  '"-binary vectors of arbitrary length with arbitrary zeros   '
a # a,[1]  '" at numbered positions, in user''s origin.                  '
a # a,[1]  '"-can generate input to Gxvec.                              '
a # a,[1]  '"-returns a compression vector that can select all but loc. '
a # a,[1]  '" loc is desired row of Gloc (Lio#0), or similar numeric    '
a # a,[1]  '" vector. n is original length of axis to be compressed.    '
Lfx a