#include <stdio.h>
#include <string.h>
#include <stdlib.h>
#include <smgdef.h>
#include <ssdef.h>
#include <descrip.h>
#include <smg$routines.h>
#include <lib$routines.h>
 
main()
{ 
        static $DESCRIPTOR(hello_message_d, "Hello World!");
        unsigned long rtn;
	unsigned long pasteboard_id, display_id, keyboard_id;
	unsigned int word_terminator_code;
	unsigned long display_attributes, video_attributes, charset;

	rtn = smg$create_pasteboard(&pasteboard_id);
	if (rtn != SS$_NORMAL) { lib$stop(rtn); }

	display_attributes = SMG$M_BORDER;
	video_attributes = SMG$M_BOLD;
	charset = SMG$C_ASCII;

	rtn = smg$create_virtual_display(&5, &50, &display_id,
		&display_attributes, &video_attributes, &charset);

	if (rtn != SS$_NORMAL) { lib$stop(rtn); }

	rtn = smg$create_virtual_keyboard(&keyboard_id);
	if (rtn != SS$_NORMAL) { lib$stop(rtn); }

	rtn = smg$paste_virtual_display(&display_id, &pasteboard_id, &10, &15);
	if (rtn != SS$_NORMAL) { lib$stop(rtn); }

	rtn = smg$put_line(&display_id, &hello_message_d);
        if (rtn != SS$_NORMAL) { lib$stop(rtn); }

	/* Wait for keyboard input before ending program */
	rtn = smg$read_keystroke(&keyboard_id, &word_terminator_code);

	if (rtn != SS$_NORMAL) { lib$stop(rtn); }
}