Routine INIT.GRAPHICS

define WINDOW.ID as integer variable

                               '' non-square window
define .XLO to mean  4096      ''   o------o xhi,yhi
define .XHI to mean  32786-4096''   |      | 
define .YLO to mean  4096      ''   |      |
define .YHI to mean  32786     ''   o------o
                               '' xlo,ylo


   call OPENWINDOW.R (.XLO, .XHI, .YLO, .YHI, "Show some county map", 0)
                      yielding WINDOW.ID


   call SETWINDOW.R(WINDOW.ID)

   call READ.GLIB.R("menu.sg2")

end
