# Convert a spreadsheet source file to an s[sc] spreadsheet
# Warning: delimiters are tabs.  Space will *not* do.
/^C/ { # Contract name.  $2 is the name
  print "leftstring A5 = " "\""$2"\""
  Firstrow = 7
  Row = 7 
  }
/^[T]/ { # Telephone charges: $2 are the charges in USD, $3 in local currency
Row++;
print "leftstring A" Row " = \"" $2 "\"";
print "let J" Row " = " $3;
Row++ 
}
/^[^CT#]/ {  # Anything else: daily records
print "leftstring A" Row " = \"" $1 "\"";
if ($2 != "") print "let C" Row " = " $2; 
if ($3 != "") print "let D" Row " = " $3; 
if ($4 != "") print "let E" Row " = " $4; 
if ($5 != "") print "let F" Row " = " $5; 
if ($6 != "") print "let G" Row " = " $6; 
if ($7 != "") print "let H" Row " = " $7; 
if ($8 != "") print "let I" Row " = " $8; 
print "let H" Row "= C" Row "*100"
print "let J" Row "= @sum(D" Row ":I" Row ")"
Row++ }
END {  # Create the formulae at the end
  Lastrow = Row
  Row ++
  print "let C" Row " = @sum(C" Firstrow ":C" Lastrow ")"
  print "let D" Row " = @sum(D" Firstrow ":D" Lastrow ")"
  print "let E" Row " = @sum(E" Firstrow ":E" Lastrow ")"
  print "let F" Row " = @sum(F" Firstrow ":F" Lastrow ")"
  print "let G" Row " = @sum(G" Firstrow ":G" Lastrow ")"
  print "let H" Row " = @sum(H" Firstrow ":H" Lastrow ")"
  print "let I" Row " = @sum(I" Firstrow ":I" Lastrow ")"
  print "let J" Row " = @sum(J" Firstrow ":J" Lastrow ")"
  Endrow = Row + 3
  print "leftstring A" Endrow " = \"Total\""
  print "let C" Endrow " = J" Row
  }