c  external references for SMG routines.
      integer*4	smg$begin_display_update
      external	smg$begin_display_update

      integer*4	smg$control_mode
      external	smg$control_mode

      integer*4	smg$create_pasteboard
      external	smg$create_pasteboard

      integer*4	smg$change_virtual_display
      external	smg$change_virtual_display

      integer*4	smg$create_virtual_display
      external	smg$create_virtual_display

      integer*4	smg$create_virtual_keyboard
      external	smg$create_virtual_keyboard

      integer*4	smg$cursor_column
      external	smg$cursor_column

      integer*4	smg$cursor_row
      external	smg$cursor_row

      integer*4	smg$delete_line
      external	smg$delete_line

      integer*4	smg$delete_pasteboard
      external	smg$delete_pasteboard

      integer*4	smg$delete_virtual_keyboard
      external	smg$delete_virtual_keyboard

      integer*4	smg$end_display_update
      external	smg$end_display_update

      integer*4	smg$get_display_attr
      external	smg$get_display_attr

      integer*4	smg$home_cursor
      external	smg$home_cursor

      integer*4	smg$label_border
      external	smg$label_border

      integer*4	smg$paste_virtual_display      
      external	smg$paste_virtual_display      

      integer*4	smg$pop_virtual_display      
      external	smg$pop_virtual_display      

      integer*4	smg$put_chars
      external	smg$put_chars

      integer*4	smg$put_line
      external	smg$put_line

      integer*4	smg$put_with_scroll
      external	smg$put_with_scroll

      integer*4	smg$read_from_display
      external	smg$read_from_display

      integer*4	smg$read_string
      external	smg$read_string

      integer*4	smg$ring_bell
      external	smg$ring_bell

      integer*4	smg$repaint_screen
      external	smg$repaint_screen

      integer*4	smg$restore_physical_screen
      external	smg$restore_physical_screen

      integer*4	smg$save_physical_screen
      external	smg$save_physical_screen

      integer*4	smg$set_display_scroll_region
      external	smg$set_display_scroll_region

      integer*4	smg$scroll_display_area
      external	smg$scroll_display_area

      integer*4	smg$set_broadcast_trapping
      external	smg$set_broadcast_trapping

      integer*4	smg$set_cursor_abs
      external	smg$set_cursor_abs

      integer*4	smg$set_keypad_mode
      external	smg$set_keypad_mode

      integer*4	smg$snapshot
      external	smg$snapshot