! Copyright fixer macro. Finds current copyright disclaimer and replaces
  it with the current, getting dates up to date. File is assumed open with
  first page resident; new copyright in in q-reg S.
!
j<:scopyright"u onf' 0l.ua 0auc 1:fb19dd"s 4r\uy 0;'l>
:s supplied by"u onf' l.ub
qaj :-s****************************"s 0l.ua'
qbj :s****************************"s l.ub'
0u1 qaj <.-qb; 0a-qc"n 0a-13"n oncom'' %1 l>
q1-10"l Copyright is short
'
q1-22"g Copyright is long
'
qaj qa,qbk gs
@^ux/j<fs=%=/ qc:^ux 27:^ux :^ux;> mx
%f 

!ncom! Non-comments within copyright statement
 

!nf! Copyright statement not found

