else
Put ("rec byte status = ");
im_message (status);
New_Line;
end if;
end loop;
New_Line;
Put_Line ("Receive done");
else
Put_Line("Com setup failed");
im_message (System.Word(setup_comm_status));
New_Line;
end if;
end recbyte;
3
im_receive_byte
3-99