im_set_warm_boot
in_char := ' ';
New_Line;
status := im_set_warm_boot (IM_ENABLE);
if im_isgood (status)then
Put_Line ("Warmboot ENABLED");
Put_Line ("q to quit");
loop
exit when in_char = 'q';
Get (in_char);
end loop;
else
Put ("Enable Warmboot err = ");
SYSWORD_IO.Put (status, Width => 8);
New_Line;
end if;
end setboot;
3-124