case "$1" in
  -[1-9][0-9]) W=`expr $1 : '-\(.*\)$'`; shift;;
        *) W=72;;
esac

EXINIT=`echo "$EXINIT\nmap #1 :?^[ \t]*\\$?+1,/^[ \t]*\\$/-1 !mg
$W w\r\n\
map #2 :?^[ \t]*\\$?+1,/^[ \t]*\\$/-1 !mg $W\r\n\
map #3 :!:\r"`
export EXINIT

vi +1 $*