Figure 9.
Simple output.
<![CDATA[
------------------------------------------------------------
--The Dimensionless function can be used to output a value.
with DIM_INT_32; use DIM_INT_32;
with STANDARD_INTEGERS; use STANDARD_INTEGERS;
with TEXT_IO; use TEXT_IO;
procedure Program_Fragment is
type Feet is new DIM_INT_32.Units;
PRESENT_POSITION : Feet;
begin
PRESENT_POSITION := Type_Convert(10);
put("The present position is");
put(Integer_32'IMAGE(Dimensionless(PRESENT_POSITION)));
put_line(" feet.");
end Program_Fragment;
]]>