#!/bin/awk -f
# 17/5/95 MJR, after RWG
BEGIN { print "Scanning for lines longer than 72 chars."
        print "Ignoring FORTAN comments and trailing whitespace."}
(length > 72) && (substr($0,1,1) !~ /[cC]/ ) && (substr($0,73) ~ /[^ ]/ ) {
    printf "\nIn file %s\n",FILENAME
    printf "Line %8d:                                       Last valid char ->|\n",NR
    print }
END {print "Done"}