#!/usr/bin/awk -f
# HP20020416 20020421
# g7to -i g45w   new -> old format
BEGIN{FS=";"}
/^W/{printf "%s%s;%s;%s;%s\r\n",
	substr($1,1,9),
	gensub("[[:space:]]*$","","g",substr($1,19)),
	$2,$3,$4}
/^[^W]/{print $0 "\r"}