.fp 3 CW
.CW
.nr cW \n(.f
.ft P
.nr cE \n(.f
.br
.ft 3
.cs 3 24
\(de	usage: . initvars
\(de	use carriage returns f\&or 'no change'
echo 'initializations? \(rgc'
read response
if\& test \(34$response\(34 = y
then	echo 'HOME=\(rgc'; read temp
	HOME=$\(Fltemp:-$HOME\(Fi
	echo \(34PATH=\(rgc\(34; read temp
	PATH=$\(Fltemp:-$PATH\(Fi
	echo \(34TERM=\(rgc\(34; read temp
	TERM=$\(Fltemp:-$TERM\(Fi
f\&i
.br
.cs 3
.ft \n(cE
.ft \n(cW
.CN
