Real


\begin{elan}
TYPE REAL
\par
PROC get (REAL VAR r)
PROC put (REAL CONST r)
\par...
...ST r)
REAL PROC log10 (REAL CONST r)
REAL PROC log2 (REAL CONST r)
\end{elan}