//
//  FixColumns.vdm                    Christian Ziemski  13.01.2004
//

// -rw-r-----   1 transfer sapsys      1679740 Sep 16 09:28 stxt0001
// -rw-r-----   1 transfer sapsys      43978 Sep 16 11:21 ks010001
// =>
// -rw-r-----   1 transfer sapsys      1679740 Sep 16 09:28 stxt0001
// -rw-r-----   1 transfer sapsys        43978 Sep 16 11:21 ks010001

BoF

#103=0
while (! At_EOF) {
  Search(" |A|A|A |D", NOERR+ERRBREAK)
  #103=Max(#103, Cur_Col)
  Line(1, NOERR+ERRBREAK)
}

BoF

while (! At_EOF) {
  Search(" |A|A|A |D", NOERR+ERRBREAK)
  #104=#103-Cur_Col
  Search("|W", REVERSE+ADVANCE)
  Ins_Char(32, COUNT, #104)
  Line(1, NOERR+ERRBREAK)
}