im_command
Example
With System, Bit, Text_IO, Intrmecd_IO, Intrmecp_IO;
Use System, Bit, Text_IO, Intrmecd_IO, Intrmecp_IO;
procedure command Is
status
: System.Word;
high_trast : String(1..5) := "$+DJ7";
low_trast
: String(1..5) := "$+DJ0";
norm_trast : String(1..5) := "$+DJ3";
begin
Put_Line ("Setting high contrast");
status := im_command (high_trast, high_trast'Length);
status := im_standby_wait (5000);
Put_Line ("Setting low contrast");
status := im_command (low_trast, low_trast'Length);
status := im_standby_wait (5000);
Put_Line ("Setting normal contrast");
status := im_command (norm_trast, norm_trast'Length);
end command;
3-14