\def\KEYWORD#1{ \mbox{\underbar{\normalshape\bf #1}}}
\renewcommand\IF{\KEYWORD{si}\ }
\renewcommand\THEN{ \KEYWORD{alors}\ }
\renewcommand\ELSE{ \KEYWORD{sinon}\ }%
\renewcommand\FI{\KEYWORD{fin si}\\}
\renewcommand\DO{\KEYWORD{faire}\ }
\renewcommand\OD{\KEYWORD{fin faire}\\}
\renewcommand\WHILE{\KEYWORD{tant que}\ }
\renewcommand\FOR{\KEYWORD{pour}\ }
	 \def\STEP{\KEYWORD{par}\ }
\def\TO{\KEYWORD{jusqu'$\bf\grave{a}$}\ }
\renewcommand\ARRAY{\KEYWORD{tableau}\ }
\renewcommand\FUNCT{\KEYWORD{fonction}\ }
\renewcommand\ENDFUNCT{\fullstop}
\renewcommand\PROC{\KEYWORD{proc\'edure}\ }
\renewcommand\ENDPROC{\fullstop}
\renewenvironment{program}
{%
\begin{minipage}{7cm}
}%
{%
\end{minipage}
}