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
