Hi Wolfgang,
How to reduce the size of the float ?
Best regards,
Fabrice

\usemodule[algorithmic]
\definefloat[algorithm][algorithms]


\definecolor[H1prime][c=0.50, m=0.00, y=1.00, k=0.00]
\definecolor[H4][c=0.07, m=0.00, y=0.15, k=0.00]

\setupfloat
  [algorithm]
  [background=color,
   frame=on,
   framecolor=H1prime,
   backgroundcolor=H4,
   width=0.5\textwidth]

\starttext
\placealgorithm[none][]{}
  {\startalgorithmic\black
   \STATE{\bf Variables :}
   \STATE  $N$ et $P$ sont deux entiers naturels
   \STATE  $A$ est un nombre réel
    \STATE{\bf Entrée :}
   \STATE Demander à l'utilisateur la valeur de $N$
   \STATE{\bf Initialisation :}
   \STATE Affecter à $A$ la valeur $92\,000$
   \STATE{\bf Traitement :}
   \STATE Affecter à $P$ la valeur $N-1$
   \FOR{$I=1$ to $P$}
   \STATE Affecter à $A$ la valeur $1,163 \times A$
   \STATE Afficher A
   \ENDFOR
   \stopalgorithmic}
\stoptext