#! /bin/awk -f
#
#------------------------------------------------------------------------------
# This awk script is used to replace blank lines in ALC source with comments
# so that IFOX00 will process it.  The first line of the input is stored for
# use as a replacement line for any blank lines found - add a line with an
# asterisk in the first column and your initials ending in 71.  Don't put
# anything in column 72 or you will cause lots of diagnostics.
#
# Syntax: awk -f alcblank.awk [input source file] >[corrected source file]
#------------------------------------------------------------------------------
#
/^ *$/ {                          # if blank line, replace with comment
  print comment;
  next;
  }
/ / {                             # all other lines
  if (NR == 1)                      # if it is the first, store it in comment
    comment = $0;
  print $0;                       # print the input line
  }