9 lines
206 B
Text
9 lines
206 B
Text
declare t float controlled;
|
|
|
|
do i = 1 to 5; /* a loop to read in and save five values. */
|
|
allocate t; get (t);
|
|
end;
|
|
|
|
do while (allocation(t) > 0); /* a loop to retrieve the values. */
|
|
put (t); free t;
|
|
end;
|