im_get_display_type
Example
With System, Intrmecd_IO, Intrmecp_IO, Text_IO, RTEXT_IO, ITOOLS;
Use Intrmecd_IO, Intrmecp_IO, Text_IO, RTEXT_IO, ITOOLS;
procedure DISTYPE is
package SYSBYTE_IO is new INTEGER_IO(System.Byte);
package SYSWORD_IO is new INTEGER_IO(System.Word);
use SYSBYTE_IO, SYSWORD_IO;
display_type : IM_DISPLAY_TYPE;
status
: System.Word;
begin
clrscr;
Put_Line("im_get_display_type example:");
New_line;
im_get_display_type(display_type, status);
if (display_type = IM_LCD_20X16) then
Put_Line("Display type is Standard JANUS display");
else
Put_Line("Display type is JANUS VMU display");
end if;
Put("Status
: ");
Print_status_code(status);
New_line;
end DISTYPE;
3-28