REM ? BKGMAP.BAT - Define a background map to be used by UPC Fkey menu and GUI
REM ?
REM ? Name:    BKGMAP.BAT
REM ?
REM ? Purpose: Define a background map to be used for the Unidata Menu System.
REM ?          The map information (LAT, LON, SLAT, SLON, PRO, LIN, ELE) are
REM ?          stored in a string named ?BKGMAP and saved in the VIRTual
REM ?          graphic file, VIRT9300.
REM ?
REM ? Method:  BKGMAP accepts as input mnemonics for map definitions that
REM ?          must be defined below.
REM ?
REM ? Invocation: 
REM ?          BATCH mnemonic frame LALO SVF PRO FLIP BAR EG "BKGMAP.BAT
REM ?                   |       |    |    |   |   |    |  |   |_ BATCH file name
REM ?                   |       |    |    |   |   |    |  |___ erase after
REM ?                   |       |    |    |   |   |    |______ draw data bar
REM ?                   |       |    |    |   |   |___________ flip to menu
REM ?                   |       |    |    |   |_______________ map projection
REM ?                   |       |    |    |___________________ VIRT file save
REM ?                   |       |    |________________________ LATxLON line flag
REM ?                   |       |_____________________________ frame to draw in
REM ?                   |_____________________________________ map mnemonic
REM ?
REM 
REM   Note: The following are recognized map mnemonics
REM
REM   Topographic images:
REM   TOPOCONF    TOPOSAT     TOPOWHEMI  TOPOMERC    TOPONPOLE   TOPOSPOLE
REM   TOPOMOLL    TOPOGLOB    TOPOGOES8  TOPOGOES9   TOPODEF
REM
REM   Map mnemonics:
REM   USACONF     USAMERC     ALASKA     HAWAII      NACONF      NAMERC
REM   CACONF      CANADA      MEXCONF    MEXICO      CAMERICA    WESTINDIES
REM   GREENLAND   NORTHPOLE   SOUTHPOLE  EUROPE      EUROPECONF  EUROPEMERC
REM   SCANDINAVIA ENGLAND     FRANCE     SPAIN       ITALY       MIDDLEEAST
REM   INDIA REM   INDOCHINA   CHINA      RUSSIA      WORLD       SAMERICA
REM   EASTEUROPE  AFRICA      AUSTRALIA  NEWZEALAND  NEWGUINEA   MICRONESIA
REM   NEUS        SEUS        CNUS       NWUS        SWUS        ECAN
REM   WCAN        CARIB       DEFAULT    USERDEF
REM
REM   US States:
REM   AL          AK          AZ          AR          CA          CO
REM   CT          DE          FL          GA          HI          ID
REM   IL          IN          IA          KS          LA          ME
REM   MD          MA          MI          MN          MS          MO
REM   MT          NE          NV          NH          NJ          NM
REM   NY          NC          ND          OH          OK          OR
REM   PA          RI          SC          SD          TN          TX
REM   UT          VT          VA          WA          WV          WI
REM   WY          MID         USA         NA
REM
REM   History:19940801 - Developed for Unidata McIDAS-OS2 Version 5.90
REM           19940926 - Updated to do selective saves; added recognition of
REM                       "standard" map mnemonics
REM           19941027 - Added regional US maps, consolidated CONF and MERC
REM                       projections for USA,NA and CANADA, added logic for
REM                       flipping to frames.
REM           19941028 - Put up message that map is being drawn instead of
REM                       flipping to the frame.
REM           19941206 - Added drawing of Virtual Graphic 9300
REM           19941227 - Consolidated CONF and MERC EUROPE, deleted 
REM                       NAMERICAMERC and USAMERC (obsolete), consolidated
REM                       difference between X and OS/2
REM           19950127 - If SVF is not specified, don't create the background
REM                       map VIRT file.  Modified GREENLAND, NORTHPOLE, 
REM                       SOUTHPOLE to set different LINELE for non-VGA
REM           19950530 - Added option for using User Defined Map (USER) as
REM                       an overlay map from the menu, added CARIB mnemonic,
REM                       added NAME string to MAP option
REM           19951127 - Added support for topographic images as background
REM                       maps
REM           19961001 - Added back mnemonics for CONF and MERC projections
REM                       for USA, EUROPE and NA
REM           19961203 - changed Fkey menu string PREFIX from '+' to '?'
REM           19961212 - Changed default mnemonic from USER to DEFAULT
REM           19961223 - Documented BAR parameter, use value of ?BAR for
REM                        plotting
REM           19970523 - Changed GD= to DASHSET= for MAP invocations
REM           19970917 - Set box to be same color as map (8)
REM           19980208 - Changed 'EG I' to 'EG B' to clear both image and
REM                       graphics for McIDAS-X version 7.3
REM                       Removed flip to frame at beginning
REM           19990724 - Switched from use of DF to IMGDISP for topo loads
REM           19990725 - Removed branches for VGA displays
REM                      Removed redundant/unnecessary lines
REM                      Tightened up code for displaying TOPO images
REM           20010226 - Change initial NAME definition to NAME=FILE=X
REM                        and succeeding NAME=NAME= to NAME=FILE=
REM           20020625 - Redefined CONF parameters for most maps
REM ? ----------

REM  Initialize some variables

SET LINELE=X
SET NAME=FILE=X
SET APPEND=R
SET MC=8
SET PC=5

REM Check for BAR parameter

SET BAR=%7
IF "%7"=="" SET BAR=NO
IF NOT "#BAR"=="NO" SET BAR=REFRESH='BAR %2 ANN=NO ORI=%7 SU=TOPO'

REM Don't erase display for overlay maps
ECHO %1
IF "%1"=="SAT"       GOTO OLAY
IF "%1"=="H"         GOTO OLAY
IF "%1"=="L"         GOTO OLAY
IF "%1"=="VH"        GOTO OLAY
IF "%1"=="COUNTY"    GOTO COUNTY
IF "%1"=="MARINE"    GOTO MARINE
IF "%1"=="STATE"     GOTO STATE
IF "%1"=="ZONE"      GOTO ZONE
IF "%1"=="ARGENTST"  GOTO ARGENTST
IF "%1"=="BRAZILST"  GOTO BRAZILST
IF "%1"=="MEXICOST"  GOTO MEXICOST
IF "%1"=="INDIADS"   GOTO INDIADS
IF "%1"=="INDIAST"   GOTO INDIAST
IF "%1"=="USSTRD"    GOTO USSTRD
IF "%1"=="USHIW"     GOTO USHIW
IF "%1"=="USINT"     GOTO USINT
IF "%1"=="USRAIL1"   GOTO USRAIL1
IF "%1"=="USRAIL2"   GOTO USRAIL2
IF "%1"=="USRAIL3"   GOTO USRAIL3
IF "%1"=="USRIV"     GOTO USRIV
IF "%1"=="WOLAK"     GOTO WOLAK
IF "%1"=="WORIV"     GOTO WORIV
IF "%1"=="TECTN"     GOTO TECTN

REM Clear the screen, restore the graphic frame, and show the frame
EG B %2
IF "%8"=="EG" GOTO REST
SF %2
:REST
GU REST GRAPHIC %2 DEV=NNN

REM Check for X Window session.

IF NOT #UC(37)==6 GOTO %1

REM Running in X Windows, set Map Color to one less than the number of
REM graphic colors available (X graphic color levels are 0-based)
REM Set the Political map Color to one less than the Map Color if the
REM environment has less than 7 colors available.

IF #UC(500)==8 SET MC=7
IF #UC(500)==7 SET MC=6
IF #UC(500)==6 SET MC=5
IF #UC(500)==6 SET PC=4
IF #UC(500)==5 SET MC=4
IF #UC(500)==5 SET PC=3
IF #UC(500)==4 SET MC=3
IF #UC(500)==4 SET PC=2
IF #UC(500)==3 SET MC=2
IF #UC(500)==3 SET PC=1
IF #UC(500)==2 SET MC=1
IF #UC(500)==2 SET PC=1
GOTO %1

:USACONF
SET BKGMAP=LAT=20.83 49.88 LON=78 137.97 SLON=105 PRO=CONF
SET NAME=FILE=OUTLUSAM OUTLHPOL
IF "%3"=="LALO" GOTO LALO
GOTO MAP

:USAMERC
SET BKGMAP=LAT=23 56 LON=66 126 PRO=MERC
IF "%3"=="LALO" GOTO LALO
GOTO MAP

:ALASKA
REM SET BKGMAP=LAT=49 71 LON=133 180 SLON=160 PRO=CONF
SET BKGMAP=LAT=63 LON=155 SLAT=60 PRO=CONF SCALE=6
SET NAME=FILE=OUTLHRES OUTLHPOL
IF "%3"=="LALO" GOTO LALO
GOTO POLITICAL

:HAWAII
REM SET BKGMAP=LAT=17 23 LON=152 162 SLON=157 PRO=CONF
SET BKGMAP=LAT=20:30 LON=157:30 SLAT=60 PRO=CONF SCALE=3
SET NAME=FILE=OUTLHRES
IF "%3"=="LALO" GOTO LALO
GOTO MAP

:NACONF
SET BKGMAP=LAT=13 45 LON=70 180 SLON=105 PRO=CONF
SET NAME=FILE=OUTLUSAM OUTLHPOL
IF "%3"=="LALO" GOTO LALO
GOTO POLITICAL

:NAMERC
SET BKGMAP=LAT=5 80 LON=55 179 PRO=MERC
SET NAME=FILE=OUTLUSAM OUTLHPOL
IF "%3"=="LALO" GOTO LALO
GOTO POLITICAL

:CANADA
IF "%5"=="MERC" GOTO MERC
SET BKGMAP=LAT=35:37 68 LON=67:33 160:25 SLON=105 PRO=CONF
SET NAME=FILE=OUTLUSAM OUTLHPOL
IF "%3"=="LALO" GOTO LALO
GOTO MAP
:MERC
SET BKGMAP=LAT=42 75 LON=55 143 PRO=MERC
SET NAME=FILE=OUTLUSAM OUTLHPOL
IF "%3"=="LALO" GOTO LALO
GOTO MAP

:CACONF
SET BKGMAP=LAT=35:37 68 LON=67:33 160:25 SLON=105 PRO=CONF
SET NAME=FILE=OUTLUSAM OUTLHPOL
IF "%3"=="LALO" GOTO LALO
GOTO MAP

:ECAN
IF "%5"=="MERC" GOTO MERC
SET BKGMAP=LAT=38 61 LON=63 115 SLON=91 PRO=CONF 
SET NAME=FILE=OUTLUSAM
IF "%3"=="LALO" GOTO LALO
GOTO MAP
:MERC
SET BKGMAP=LAT=40 65 LON=58 100 PRO=MERC 
SET NAME=FILE=OUTLUSAM
IF "%3"=="LALO" GOTO LALO
GOTO MAP

:WCAN
IF "%5"=="MERC" GOTO MERC
SET BKGMAP=LAT=44:15 62 LON=81:44 156:44 SLON=105 PRO=CONF 
SET NAME=FILE=OUTLUSAM
IF "%3"=="LALO" GOTO LALO
GOTO MAP
:MERC
SET BKGMAP=LAT=45 70 LON=85 143 PRO=MERC 
SET NAME=FILE=OUTLUSAM
IF "%3"=="LALO" GOTO LALO
GOTO MAP

:MEXICO
IF "%5"=="MERC" GOTO MERC
SET BKGMAP=LAT=12 33 LON=87 118 SLON=105 PRO=CONF
SET NAME=FILE=OUTLHRES OUTLHPOL
IF "%3"=="LALO" GOTO LALO
GOTO POLITICAL
:MERC
SET BKGMAP=LAT=14 33 LON=85 118  PRO=MERC
SET NAME=FILE=OUTLHRES OUTLHPOL
IF "%3"=="LALO" GOTO LALO
GOTO POLITICAL

:MEXCONF
SET BKGMAP=LAT=12 33 LON=87 118 SLON=105 PRO=CONF
SET NAME=FILE=OUTLHRES OUTLHPOL
IF "%3"=="LALO" GOTO LALO
GOTO POLITICAL

:MEXMERC
SET BKGMAP=LAT=14 33 LON=85 118  PRO=MERC
SET NAME=FILE=OUTLHRES OUTLHPOL
IF "%3"=="LALO" GOTO LALO
GOTO POLITICAL

:CAMERICA
SET BKGMAP=LAT=10 LON=84 SLAT=60 PRO=CONF SCALE=9
SET NAME=FILE=OUTLHRES OUTLHPOL
IF "%3"=="LALO" GOTO LALO
GOTO POLITICAL

:CARIB
IF "%5"=="MERC" GOTO MERC
REM SET BKGMAP=LAT=9  33 LON=61 93 SLON=77 PRO=CONF 
SET BKGMAP=LAT=15 LON=66 SLAT=60 PRO=CONF SCALE=10
SET NAME=FILE=OUTLUSAM OUTLHPOL
IF "%3"=="LALO" GOTO LALO
GOTO POLITICAL
:MERC
SET BKGMAP=LAT=11 33 LON=60 90 PRO=MERC 
SET NAME=FILE=OUTLUSAM OUTLHPOL
IF "%3"=="LALO" GOTO LALO
GOTO POLITICAL

:PUERTORICO
IF "%5"=="MERC" GOTO MERC
SET BKGMAP=LAT=17:15 19 LON=64:15 68 SLON=66 PRO=CONF
SET NAME=FILE=OUTLUSAM OUTLHPOL
IF "%3"=="LALO" GOTO LALO
GOTO POLITICAL
:MERC
SET BKGMAP=LAT=17:15 19 LON=64:15 68 PRO=MERC
SET NAME=FILE=OUTLUSAM OUTLHPOL
IF "%3"=="LALO" GOTO LALO
GOTO POLITICAL

:WESTINDIES
SET BKGMAP=LAT=18 LON=71 SLAT=60 PRO=CONF SCALE=12
SET NAME=FILE=OUTLUSAM OUTLHPOL
IF "%3"=="LALO" GOTO LALO
GOTO POLITICAL

:SAMERICA
SET BKGMAP=LAT=-57 13 LON=18 104 PRO=MERC
SET NAME=FILE=OUTLHRES OUTLHPOL
IF "%3"=="LALO" GOTO LALO
GOTO POLITICAL

:ARGENTINA
SET BKGMAP=LAT=-37 LON=65 SLAT=-60 PRO=CONF SCALE=16
SET NAME=FILE=OUTLSUPW OUTLHPOL
IF "%3"=="LALO" GOTO LALO
GOTO POLITICAL

:BRAZIL
SET BKGMAP=LAT=-12 LON=55 SLAT=-60 PRO=CONF SCALE=22
SET NAME=FILE=OUTLSUPW OUTLHPOL
IF "%3"=="LALO" GOTO LALO
GOTO POLITICAL

:VENEZULEA
SET BKGMAP=LAT=0 13 LON=56 76 PRO=MERC
SET NAME=FILE=OUTLHRES OUTLHPOL
IF "%3"=="LALO" GOTO LALO
GOTO POLITICAL

:GREENLAND
SET BKGMAP=LAT=72 LON=50 SLAT=60 PRO=CONF SCALE=12
SET NAME=FILE=OUTLHRES OUTLHPOL
IF "%3"=="LALO" GOTO LALO
GOTO MAP

:NORTHPOLE
SET BKGMAP=LAT=90 LON=100 SLAT=60 PRO=CONF SCALE=20
SET NAME=FILE=OUTLHRES OUTLHPOL
IF "%3"=="LALO" GOTO LALO
GOTO MAP

:SOUTHPOLE
SET BKGMAP=LAT=-90 LON=100 SLAT=-60 PRO=CONF SCALE=23
SET NAME=FILE=OUTLSUPW OUTLANT
IF "%3"=="LALO" GOTO LALO
GOTO MAP

:ANTARCTICA
SET BKGMAP=LAT=-90 LON=0 SLAT=-90 PRO=CONF SCALE=19
SET NAME=FILE=OUTLANT
IF "%3"=="LALO" GOTO LALO
GOTO MAP

:EUROPE
IF "%5"=="MERC" GOTO MERC
SET BKGMAP=LAT=48 LON=-8 SLAT=60 PRO=CONF SCALE=13
SET NAME=FILE=OUTLHRES OUTLHPOL
IF "%3"=="LALO" GOTO LALO
GOTO POLITICAL
:MERC
SET BKGMAP=LAT=35 53 LON=-16 12 PRO=MERC
SET NAME=FILE=OUTLHRES OUTLHPOL
IF "%3"=="LALO" GOTO LALO
GOTO POLITICAL

:EUROPECONF
SET BKGMAP=LAT=48 LON=-8 SLAT=60 PRO=CONF SCALE=13
SET NAME=FILE=OUTLHRES OUTLHPOL
IF "%3"=="LALO" GOTO LALO
GOTO POLITICAL

:EUROPEMERC
SET BKGMAP=LAT=35 53 LON=-16 12 PRO=MERC
SET NAME=FILE=OUTLHRES OUTLHPOL
IF "%3"=="LALO" GOTO LALO
GOTO POLITICAL

:EASTEUROPE
REM SET BKGMAP=LAT=40 56 LON=-36 -8 PRO=MERC
SET BKGMAP=LAT=47 LON=-20 PRO=CONF SCALE=7
SET NAME=FILE=OUTLHRES OUTLHPOL
IF "%3"=="LALO" GOTO LALO
GOTO POLITICAL

:SCANDINAVIA
REM SET BKGMAP=LAT=54 71 LON=-28 2 SLON=-12 PRO=CONF
SET BKGMAP=LAT=63 LON=-20 SLAT=60 PRO=CONF SCALE=7
SET NAME=FILE=OUTLHRES OUTLHPOL
IF "%3"=="LALO" GOTO LALO
GOTO POLITICAL

:ENGLAND
REM SET BKGMAP=LAT=49 55 LON=-12 26 SLON=-10 PRO=CONF
SET BKGMAP=LAT=54 LON=3 SLAT=60 PRO=CONF SCALE=4
SET NAME=FILE=OUTLHRES OUTLHPOL
IF "%3"=="LALO" GOTO LALO
GOTO POLITICAL

:FRANCE
REM SET BKGMAP=LAT=42 54 LON=-12 5 SLON=4 PRO=CONF
SET BKGMAP=LAT=46:30 LON=-2:30 SLAT=60 PRO=CONF SCALE=4.5
SET NAME=FILE=OUTLHRES OUTLHPOL
IF "%3"=="LALO" GOTO LALO
GOTO POLITICAL

:SPAIN
REM SET BKGMAP=LAT=36 42 LON=-7 15 SLON=-12 PRO=CONF
SET BKGMAP=LAT=40 LON=4 SLAT=60 PRO=CONF SCALE=5
SET NAME=FILE=OUTLHRES OUTLHPOL
IF "%3"=="LALO" GOTO LALO
GOTO POLITICAL

:ITALY
REM SET BKGMAP=LAT=36 48 LON=-20 -6 SLON=0 PRO=CONF
SET BKGMAP=LAT=42:15 LON=-13 SLAT=60 PRO=CONF SCALE=5
SET NAME=FILE=OUTLHRES OUTLHPOL
IF "%3"=="LALO" GOTO LALO
GOTO POLITICAL

:MIDDLEEAST
REM SET BKGMAP=LAT=24 42 LON=-52 -24 SLON=-39 PRO=CONF
SET BKGMAP=LAT=29 LON=-37 SLAT=60 PRO=CONF SCALE=15
SET NAME=FILE=OUTLHRES OUTLHPOL
IF "%3"=="LALO" GOTO LALO
GOTO POLITICAL

:INDIA
REM SET BKGMAP=LAT=3 37 LON=-93 -59 SLON=-72 PRO=CONF
SET BKGMAP=LAT=21 LON=-79 SLAT=60 PRO=CONF SCALE=18
SET NAME=FILE=OUTLSUPW OUTLHPOL
IF "%3"=="LALO" GOTO LALO
GOTO POLITICAL

:INDOCHINA
REM SET BKGMAP=LAT=4 27 LON=-113 -92 SLON=-98 PRO=CONF
SET BKGMAP=LAT=16 LON=-102 SLAT=60 PRO=CONF SCALE=12
SET NAME=FILE=OUTLHRES OUTLHPOL
IF "%3"=="LALO" GOTO LALO
GOTO POLITICAL

:CHINA
REM SET BKGMAP=LAT=13 46 LON=-130 -64 SLON=-105 PRO=CONF
SET BKGMAP=LAT=35 LON=-103 SLAT=60 PRO=CONF SCALE=20
SET NAME=FILE=OUTLHRES OUTLHPOL
IF "%3"=="LALO" GOTO LALO
GOTO POLITICAL

:RUSSIA
REM SET BKGMAP=LAT=30 54 LON=-140 -8 SLON=-100 PRO=CONF
SET BKGMAP=LAT=60 LON=-100 SLAT=60 PRO=CONF SCALE=24
SET NAME=FILE=OUTLHRES OUTLHPOL
IF "%3"=="LALO" GOTO LALO
GOTO POLITICAL

:AFRICA
SET BKGMAP=LAT=-36 40 LON=-72 42 PRO=MERC
SET NAME=FILE=OUTLHRES OUTLHPOL
IF "%3"=="LALO" GOTO LALO
GOTO POLITICAL

:AUSTRALIA
SET BKGMAP=LAT=-45 -8 LON=-159 -108 PRO=MERC
SET NAME=FILE=OUTLAUST OUTLAUSS
IF "%3"=="LALO" GOTO LALO
GOTO MAP

:NEWZEALAND
SET BKGMAP=LAT=-47 -34 LON=177 -162 PRO=MERC
SET NAME=FILE=OUTLHRES
IF "%3"=="LALO" GOTO LALO
GOTO MAP

:NEWGUINEA
SET BKGMAP=LAT=-11  2 LON=-163 -122 PRO=MERC
SET NAME=FILE=OUTLHRES OUTLHPOL
IF "%3"=="LALO" GOTO LALO
GOTO POLITICAL

:MICRONESIA
SET BKGMAP=LAT=-11 8 LON=-136 -92 PRO=MERC
SET NAME=FILE=OUTLHRES OUTLHPOL
IF "%3"=="LALO" GOTO LALO
GOTO POLITICAL

:WORLD
SET BKGMAP=LAT=-90 90 LON=-180 180 PRO=MERC
IF "%3"=="LALO" GOTO LALO
GOTO MAP

:AL
IF "%5"=="MERC" GOTO MERC
SET BKGMAP=LAT=28 38 LON=77 97 PRO=CONF
IF "%3"=="LALO" GOTO LALO
GOTO MAP
:MERC
SET BKGMAP=LAT=28 38 LON=82 92 PRO=MERC
IF "%3"=="LALO" GOTO LALO
GOTO MAP

:AK
IF "%5"=="MERC" GOTO MERC
SET BKGMAP=LAT=49 71 LON=133 180 SLON=160 PRO=CONF
IF "%3"=="LALO" GOTO LALO
GOTO MAP
:MERC
SET BKGMAP=LAT=50 72 LON=146 168 PRO=MERC
IF "%3"=="LALO" GOTO LALO
GOTO MAP

:AZ
IF "%5"=="MERC" GOTO MERC
SET BKGMAP=LAT=29 39 LON=103 123 PRO=CONF
IF "%3"=="LALO" GOTO LALO
GOTO MAP
:MERC
SET BKGMAP=LAT=29 39 LON=108 118 PRO=MERC
IF "%3"=="LALO" GOTO LALO
GOTO MAP

:AR
IF "%5"=="MERC" GOTO MERC
SET BKGMAP=LAT=30 40 LON=82 102 PRO=CONF
IF "%3"=="LALO" GOTO LALO
GOTO MAP
:MERC
SET BKGMAP=LAT=30 40 LON=87 97 PRO=MERC
IF "%3"=="LALO" GOTO LALO
GOTO MAP

:CA
IF "%5"=="MERC" GOTO MERC
SET BKGMAP=LAT=32 42 LON=110 130 PRO=CONF
IF "%3"=="LALO" GOTO LALO
GOTO MAP
:MERC
SET BKGMAP=LAT=32 42 LON=115 125 PRO=MERC
IF "%3"=="LALO" GOTO LALO
GOTO MAP

:CO
IF "%5"=="MERC" GOTO MERC
SET BKGMAP=LAT=34 44 LON=96 116 PRO=CONF
IF "%3"=="LALO" GOTO LALO
GOTO MAP
:MERC
SET BKGMAP=LAT=34 44 LON=101 111 PRO=MERC
IF "%3"=="LALO" GOTO LALO
GOTO MAP

:CT
IF "%5"=="MERC" GOTO MERC
SET BKGMAP=LAT=37 47 LON=63 83 PRO=CONF
IF "%3"=="LALO" GOTO LALO
GOTO MAP
:MERC
SET BKGMAP=LAT=37 47 LON=68 78 PRO=MERC
IF "%3"=="LALO" GOTO LALO
GOTO MAP

:DE
IF "%5"=="MERC" GOTO MERC
SET BKGMAP=LAT=34 44 LON=66 86 PRO=CONF
IF "%3"=="LALO" GOTO LALO
GOTO MAP
:MERC
SET BKGMAP=LAT=34 44 LON=71 81 PRO=MERC
IF "%3"=="LALO" GOTO LALO
GOTO MAP

:FL
IF "%5"=="MERC" GOTO MERC
SET BKGMAP=LAT=23 33 LON=72 92 PRO=CONF
IF "%3"=="LALO" GOTO LALO
GOTO MAP
:MERC
SET BKGMAP=LAT=23 33 LON=77 87 PRO=MERC
IF "%3"=="LALO" GOTO LALO
GOTO MAP

:GA
IF "%5"=="MERC" GOTO MERC
SET BKGMAP=LAT=28 38 LON=74 94 PRO=CONF
IF "%3"=="LALO" GOTO LALO
GOTO MAP
:MERC
SET BKGMAP=LAT=28 38 LON=79 89 PRO=MERC
IF "%3"=="LALO" GOTO LALO
GOTO MAP

:HI
IF "%5"=="MERC" GOTO MERC
SET BKGMAP=LAT=15 25 LON=147 167 PRO=CONF
IF "%3"=="LALO" GOTO LALO
GOTO MAP
:MERC
SET BKGMAP=LAT=15 25 LON=152 162 PRO=MERC
IF "%3"=="LALO" GOTO LALO
GOTO MAP

:ID
IF "%5"=="MERC" GOTO MERC
SET BKGMAP=LAT=39 49 LON=105 125 PRO=CONF
IF "%3"=="LALO" GOTO LALO
GOTO MAP
:MERC
SET BKGMAP=LAT=39 49 LON=110 120 PRO=MERC
IF "%3"=="LALO" GOTO LALO
GOTO MAP

:IL
IF "%5"=="MERC" GOTO MERC
SET BKGMAP=LAT=35 45 LON=79 99 PRO=CONF
IF "%3"=="LALO" GOTO LALO
GOTO MAP
:MERC
SET BKGMAP=LAT=35 45 LON=84 94 PRO=MERC
IF "%3"=="LALO" GOTO LALO
GOTO MAP

:IN
IF "%5"=="MERC" GOTO MERC
SET BKGMAP=LAT=35 45 LON=76 96 PRO=CONF
IF "%3"=="LALO" GOTO LALO
GOTO MAP
:MERC
SET BKGMAP=LAT=35 45 LON=81 91 PRO=MERC
IF "%3"=="LALO" GOTO LALO
GOTO MAP

:IA
IF "%5"=="MERC" GOTO MERC
SET BKGMAP=LAT=37 47 LON=84 104 PRO=CONF
IF "%3"=="LALO" GOTO LALO
GOTO MAP
:MERC
SET BKGMAP=LAT=37 47 LON=89 99 PRO=MERC
IF "%3"=="LALO" GOTO LALO
GOTO MAP

:KS
IF "%5"=="MERC" GOTO MERC
SET BKGMAP=LAT=33 43 LON=90 110 PRO=CONF
IF "%3"=="LALO" GOTO LALO
GOTO MAP
:MERC
SET BKGMAP=LAT=33 43 LON=95 105 PRO=MERC
IF "%3"=="LALO" GOTO LALO
GOTO MAP

:KY
IF "%5"=="MERC" GOTO MERC
SET BKGMAP=LAT=32 42 LON=75 95 PRO=CONF
IF "%3"=="LALO" GOTO LALO
GOTO MAP
:MERC
SET BKGMAP=LAT=32 42 LON=80 90 PRO=MERC
IF "%3"=="LALO" GOTO LALO
GOTO MAP

:LA
IF "%5"=="MERC" GOTO MERC
SET BKGMAP=LAT=26 36 LON=82 102 PRO=CONF
IF "%3"=="LALO" GOTO LALO
GOTO MAP
:MERC
SET BKGMAP=LAT=26 36 LON=87 97 PRO=MERC
IF "%3"=="LALO" GOTO LALO
GOTO MAP

:ME
IF "%5"=="MERC" GOTO MERC
SET BKGMAP=LAT=40 50 LON=59 79 PRO=CONF
IF "%3"=="LALO" GOTO LALO
GOTO MAP
:MERC
SET BKGMAP=LAT=40 50 LON=64 74 PRO=MERC
IF "%3"=="LALO" GOTO LALO
GOTO MAP

:MD
IF "%5"=="MERC" GOTO MERC
SET BKGMAP=LAT=34 44 LON=67 87 PRO=CONF
IF "%3"=="LALO" GOTO LALO
GOTO MAP
:MERC
SET BKGMAP=LAT=34 44 LON=72 82 PRO=MERC
IF "%3"=="LALO" GOTO LALO
GOTO MAP

:MA
IF "%5"=="MERC" GOTO MERC
SET BKGMAP=LAT=37 47 LON=62 82 PRO=CONF
IF "%3"=="LALO" GOTO LALO
GOTO MAP
:MERC
SET BKGMAP=LAT=37 47 LON=67 77 PRO=MERC
IF "%3"=="LALO" GOTO LALO
GOTO MAP

:MI
IF "%5"=="MERC" GOTO MERC
SET BKGMAP=LAT=38 48 LON=75 95 PRO=CONF
IF "%3"=="LALO" GOTO LALO
GOTO MAP
:MERC
SET BKGMAP=LAT=38 48 LON=80 90 PRO=MERC
IF "%3"=="LALO" GOTO LALO
GOTO MAP

:MN
IF "%5"=="MERC" GOTO MERC
SET BKGMAP=LAT=40 50 LON=84 104 PRO=CONF
IF "%3"=="LALO" GOTO LALO
GOTO MAP
:MERC
SET BKGMAP=LAT=40 50 LON=89 99 PRO=MERC
IF "%3"=="LALO" GOTO LALO
GOTO MAP

:MS
IF "%5"=="MERC" GOTO MERC
SET BKGMAP=LAT=28 38 LON=80 100 PRO=CONF
IF "%3"=="LALO" GOTO LALO
GOTO MAP
:MERC
SET BKGMAP=LAT=28 38 LON=85 95 PRO=MERC
IF "%3"=="LALO" GOTO LALO
GOTO MAP

:MO
IF "%5"=="MERC" GOTO MERC
SET BKGMAP=LAT=33 43 LON=83 103 PRO=CONF
IF "%3"=="LALO" GOTO LALO
GOTO MAP
:MERC
SET BKGMAP=LAT=33 43 LON=88 98 PRO=MERC
IF "%3"=="LALO" GOTO LALO
GOTO MAP

:MT
IF "%5"=="MERC" GOTO MERC
SET BKGMAP=LAT=42 52 LON=100 120 PRO=CONF
IF "%3"=="LALO" GOTO LALO
GOTO MAP
:MERC
SET BKGMAP=LAT=42 52 LON=105 115 PRO=MERC
IF "%3"=="LALO" GOTO LALO
GOTO MAP

:NE
IF "%5"=="MERC" GOTO MERC
SET BKGMAP=LAT=36 46 LON=89 109 PRO=CONF
IF "%3"=="LALO" GOTO LALO
GOTO MAP
:MERC
SET BKGMAP=LAT=36 46 LON=94 104 PRO=MERC
IF "%3"=="LALO" GOTO LALO
GOTO MAP

:NV
IF "%5"=="MERC" GOTO MERC
SET BKGMAP=LAT=34 44 LON=107 127 PRO=CONF
IF "%3"=="LALO" GOTO LALO
GOTO MAP
:MERC
SET BKGMAP=LAT=34 44 LON=112 122 PRO=MERC
IF "%3"=="LALO" GOTO LALO
GOTO MAP

:NH
IF "%5"=="MERC" GOTO MERC
SET BKGMAP=LAT=39 49 LON=62 82 PRO=CONF
IF "%3"=="LALO" GOTO LALO
GOTO MAP
:MERC
SET BKGMAP=LAT=39 49 LON=67 77 PRO=MERC
IF "%3"=="LALO" GOTO LALO
GOTO MAP

:NJ
IF "%5"=="MERC" GOTO MERC
SET BKGMAP=LAT=35 45 LON=65 85 PRO=CONF
IF "%3"=="LALO" GOTO LALO
GOTO MAP
:MERC
SET BKGMAP=LAT=35 45 LON=70 80 PRO=MERC
IF "%3"=="LALO" GOTO LALO
GOTO MAP

:NM
IF "%5"=="MERC" GOTO MERC
SET BKGMAP=LAT=29 39 LON=96 116 PRO=CONF
IF "%3"=="LALO" GOTO LALO
GOTO MAP
:MERC
SET BKGMAP=LAT=29 39 LON=101 111 PRO=MERC
IF "%3"=="LALO" GOTO LALO
GOTO MAP

:NY
IF "%5"=="MERC" GOTO MERC
SET BKGMAP=LAT=38 48 LON=66 86 PRO=CONF
IF "%3"=="LALO" GOTO LALO
GOTO MAP
:MERC
SET BKGMAP=LAT=38 48 LON=71 81 PRO=MERC
IF "%3"=="LALO" GOTO LALO
GOTO MAP

:NC
IF "%5"=="MERC" GOTO MERC
SET BKGMAP=LAT=31 41 LON=69 89 PRO=CONF
IF "%3"=="LALO" GOTO LALO
GOTO MAP
:MERC
SET BKGMAP=LAT=31 41 LON=74 84 PRO=MERC
IF "%3"=="LALO" GOTO LALO
GOTO MAP

:ND
IF "%5"=="MERC" GOTO MERC
SET BKGMAP=LAT=43 53 LON=90 110 PRO=CONF
IF "%3"=="LALO" GOTO LALO
GOTO MAP
:MERC
SET BKGMAP=LAT=43 53 LON=95 105 PRO=MERC
IF "%3"=="LALO" GOTO LALO
GOTO MAP

:OH
IF "%5"=="MERC" GOTO MERC
SET BKGMAP=LAT=35 45 LON=73 93 PRO=CONF
IF "%3"=="LALO" GOTO LALO
GOTO MAP
:MERC
SET BKGMAP=LAT=35 45 LON=78 88 PRO=MERC
IF "%3"=="LALO" GOTO LALO
GOTO MAP

:OK
IF "%5"=="MERC" GOTO MERC
SET BKGMAP=LAT=30 40 LON=87 107 PRO=CONF
IF "%3"=="LALO" GOTO LALO
GOTO MAP
:MERC
SET BKGMAP=LAT=30 40 LON=92 102 PRO=MERC
IF "%3"=="LALO" GOTO LALO
GOTO MAP

:OR
IF "%5"=="MERC" GOTO MERC
SET BKGMAP=LAT=39 49 LON=111 131 PRO=CONF
IF "%3"=="LALO" GOTO LALO
GOTO MAP
:MERC
SET BKGMAP=LAT=39 49 LON=116 126 PRO=MERC
IF "%3"=="LALO" GOTO LALO
GOTO MAP

:PA
IF "%5"=="MERC" GOTO MERC
SET BKGMAP=LAT=36 46 LON=68 88 PRO=CONF
IF "%3"=="LALO" GOTO LALO
GOTO MAP
:MERC
SET BKGMAP=LAT=36 46 LON=73 83 PRO=MERC
IF "%3"=="LALO" GOTO LALO
GOTO MAP

:RI
IF "%5"=="MERC" GOTO MERC
SET BKGMAP=LAT=37 47 LON=62 82 PRO=CONF
IF "%3"=="LALO" GOTO LALO
GOTO MAP
:MERC
SET BKGMAP=LAT=37 47 LON=67 77 PRO=MERC
IF "%3"=="LALO" GOTO LALO
GOTO MAP

:SC
IF "%5"=="MERC" GOTO MERC
SET BKGMAP=LAT=29 39 LON=71 91 PRO=CONF
IF "%3"=="LALO" GOTO LALO
GOTO MAP
:MERC
SET BKGMAP=LAT=29 39 LON=76 86 PRO=MERC
IF "%3"=="LALO" GOTO LALO
GOTO MAP

:SD
IF "%5"=="MERC" GOTO MERC
SET BKGMAP=LAT=40 50 LON=90 110 PRO=CONF
IF "%3"=="LALO" GOTO LALO
GOTO MAP
:MERC
SET BKGMAP=LAT=40 50 LON=95 105 PRO=MERC
IF "%3"=="LALO" GOTO LALO
GOTO MAP

:TN
IF "%5"=="MERC" GOTO MERC
SET BKGMAP=LAT=31 41 LON=76 96 PRO=CONF
IF "%3"=="LALO" GOTO LALO
GOTO MAP
:MERC
SET BKGMAP=LAT=31 41 LON=81 91 PRO=MERC
IF "%3"=="LALO" GOTO LALO
GOTO MAP

:TX
IF "%5"=="MERC" GOTO MERC
SET BKGMAP=LAT=26 36 LON=89 109 PRO=CONF
IF "%3"=="LALO" GOTO LALO
GOTO MAP
:MERC
SET BKGMAP=LAT=26 36 LON=94 104 PRO=MERC
IF "%3"=="LALO" GOTO LALO
GOTO MAP

:UT
IF "%5"=="MERC" GOTO MERC
SET BKGMAP=LAT=34 44 LON=102 122 PRO=CONF
IF "%3"=="LALO" GOTO LALO
GOTO MAP
:MERC
SET BKGMAP=LAT=34 44 LON=107 117 PRO=MERC
IF "%3"=="LALO" GOTO LALO
GOTO MAP

:VT
IF "%5"=="MERC" GOTO MERC
SET BKGMAP=LAT=39 49 LON=63 83 PRO=CONF
IF "%3"=="LALO" GOTO LALO
GOTO MAP
:MERC
SET BKGMAP=LAT=39 49 LON=68 78 PRO=MERC
IF "%3"=="LALO" GOTO LALO
GOTO MAP

:VA
IF "%5"=="MERC" GOTO MERC
SET BKGMAP=LAT=33 43 LON=68 88 PRO=CONF
IF "%3"=="LALO" GOTO LALO
GOTO MAP
:MERC
SET BKGMAP=LAT=33 43 LON=73 83 PRO=MERC
IF "%3"=="LALO" GOTO LALO
GOTO MAP

:WA
IF "%5"=="MERC" GOTO MERC
SET BKGMAP=LAT=43 53 LON=110 130 PRO=CONF
IF "%3"=="LALO" GOTO LALO
GOTO MAP
:MERC
SET BKGMAP=LAT=43 53 LON=115 125 PRO=MERC
IF "%3"=="LALO" GOTO LALO
GOTO MAP

:WV
IF "%5"=="MERC" GOTO MERC
SET BKGMAP=LAT=34 44 LON=71 91 PRO=CONF
IF "%3"=="LALO" GOTO LALO
GOTO MAP
:MERC
SET BKGMAP=LAT=34 44 LON=76 86 PRO=MERC
IF "%3"=="LALO" GOTO LALO
GOTO MAP

:WI
IF "%5"=="MERC" GOTO MERC
SET BKGMAP=LAT=39 49 LON=80 100 PRO=CONF
IF "%3"=="LALO" GOTO LALO
GOTO MAP
:MERC
SET BKGMAP=LAT=39 49 LON=85 95 PRO=MERC
IF "%3"=="LALO" GOTO LALO
GOTO MAP

:WY
IF "%5"=="MERC" GOTO MERC
SET BKGMAP=LAT=38 48 LON=98 118 PRO=CONF
IF "%3"=="LALO" GOTO LALO
GOTO MAP
:MERC
SET BKGMAP=LAT=38 48 LON=103 113 PRO=MERC
IF "%3"=="LALO" GOTO LALO
GOTO MAP

:MID
IF "%5"=="MERC" GOTO MERC
SET BKGMAP=LAT=34 50 LON=83 104 SLON=91.8 PRO=CONF
IF "%3"=="LALO" GOTO LALO
GOTO MAP
:MERC
SET BKGMAP=LAT=34 50 LON=83 104 PRO=MERC
IF "%3"=="LALO" GOTO LALO
GOTO MAP

:USA
IF "%5"=="MERC" GOTO MERC
SET BKGMAP=LAT=20.83 49.88 LON=78 137.97 SLON=105 PRO=CONF
IF "%3"=="LALO" GOTO LALO
GOTO MAP
:MERC
SET BKGMAP=LAT=23 56 LON=66 126 PRO=MERC
IF "%3"=="LALO" GOTO LALO
GOTO MAP

:NA
IF "%5"=="MERC" GOTO MERC
SET BKGMAP=LAT=13 45 LON=70 180 SLON=105 PRO=CONF
IF "%3"=="LALO" GOTO LALO
GOTO MAP
:MERC
SET BKGMAP=LAT=5 80 LON=55 170 PRO=MERC
IF "%3"=="LALO" GOTO LALO
GOTO MAP

:NEUS
IF "%5"=="MERC" GOTO MERC
SET BKGMAP=LAT=34 51 LON=72 102 SLON=91 PRO=CONF
IF "%3"=="LALO" GOTO LALO
GOTO MAP
:MERC
SET BKGMAP=LAT=36 50 LON=65 98 PRO=MERC
IF "%3"=="LALO" GOTO LALO
GOTO MAP

:SEUS
IF "%5"=="MERC" GOTO MERC
SET BKGMAP=LAT=24 36 LON=79 102 SLON=92 PRO=CONF
IF "%3"=="LALO" GOTO LALO
GOTO MAP
:MERC
SET BKGMAP=LAT=24 39 LON=72 102 PRO=MERC
IF "%3"=="LALO" GOTO LALO
GOTO MAP

:CNUS
IF "%5"=="MERC" GOTO MERC
SET BKGMAP=LAT=33 48 LON=85 115 SLON=100 PRO=CONF
IF "%3"=="LALO" GOTO LALO
GOTO MAP
:MERC
SET BKGMAP=LAT=33 48 LON=85 115 PRO=MERC
IF "%3"=="LALO" GOTO LALO
GOTO MAP

:NWUS
IF "%5"=="MERC" GOTO MERC
SET BKGMAP=LAT=38 50 LON=100 130 SLON=110 PRO=CONF
IF "%3"=="LALO" GOTO LALO
GOTO MAP
:MERC
SET BKGMAP=LAT=40 50 LON=98 126 PRO=MERC
IF "%3"=="LALO" GOTO LALO
GOTO MAP

:SWUS
IF "%5"=="MERC" GOTO MERC
SET BKGMAP=LAT=28 39 LON=101 123 SLON=110 PRO=CONF
IF "%3"=="LALO" GOTO LALO
GOTO MAP
:MERC
SET BKGMAP=LAT=28 41 LON=98 125 PRO=MERC
IF "%3"=="LALO" GOTO LALO
GOTO MAP

:DEFAULT
SET BKGMAP=#?BKGMAP
IF "%3"=="LALO" GOTO LALO
GOTO MAP

:TOPOCONF
IMGDISP TOPO/CONF %2 LATLON=45 110 MAG=-2 EU=TOPO SF=YES #BAR
SET BKGMAP=PRO=SAT CONF EC 45 110 -2 -2 TOPO TOPO 12
IF "%4"=="SVF" GOTO SATLALO
GOTO DONE

:TOPOSAT
IMGDISP TOPO/QUAD %2 LATLON=32 100 MAG=1 EU=TOPO SF=YES #BAR
SET BKGMAP=PRO=SAT QUAD EC 32 100 1 1 TOPO TOPO 12
IF "%4"=="SVF" GOTO SATLALO
GOTO DONE

:TOPOWHEMI
IMGDISP TOPO/QUAD %2 LATLON=30 100 MAG=-2 EU=TOPO SF=YES #BAR
SET BKGMAP=PRO=SAT QUAD EC 30 100 -2 -2 TOPO TOPO 12
IF "%4"=="SVF" GOTO SATLALO
GOTO DONE

:TOPOMERC
IMGDISP TOPO/MERC %2 LATLON=40 110 MAG=-2 EU=TOPO SF=YES #BAR
SET BKGMAP=PRO=SAT MERC EC 40 110 -2 -2 TOPO TOPO 12
IF "%4"=="SVF" GOTO SATLALO
GOTO DONE

:TOPONPOLE
IMGDISP TOPO/NPOLE %2 LATLON=90 105 MAG=-2 EU=TOPO SF=YES #BAR
SET BKGMAP=PRO=SAT NPOLE EC 90 105 -2 -2 TOPO TOPO 12
IF "%4"=="SVF" GOTO SATLALO
GOTO DONE

:TOPOSPOLE
IMGDISP TOPO/SPOLE %2 LATLON=-90  0 MAG=-2 EU=TOPO SF=YES #BAR
SET BKGMAP=PRO=SAT SPOLE EC -90 0 -2 -2 TOPO TOPO 12
IF "%4"=="SVF" GOTO SATLALO
GOTO DONE

:TOPOMOLL
IMGDISP TOPO/MOLL %2 LATLON=0 0 MAG=-2 EU=TOPO SF=YES #BAR
SET BKGMAP=PRO=SAT MOLL EC 0 0 -2 -2 TOPO TOPO 12
IF "%4"=="SVF" GOTO SATLALO
GOTO DONE

:TOPOGOESE
REM IMGDISP TOPO/GOESE %2 LATLON=32 82 MAG=1 EU=TOPO SF=YES #BAR
REM SET BKGMAP=PRO=SAT GOESE EC 32 82 1 1 TOPO TOPO 12
IMGDISP TOPO/GOESE %2 LINELE=350 432 PLACE=C MAG=1 EU=TOPO SF=YES #BAR
SET BKGMAP=PRO=SAT GOESE EC 350 432 1 1 TOPO TOPO 12
IF "%4"=="SVF" GOTO SATLALO
GOTO DONE

:TOPOGOESW
REM IMGDISP TOPO/GOESW %2 LATLON=32 130 MAG=1 EU=TOPO SF=YES #BAR
REM SET BKGMAP=PRO=SAT GOESW EC 32 130 1 1 TOPO TOPO 12
IMGDISP TOPO/GOESW %2 LINELE=333 422 PLACE=C MAG=1 EU=TOPO SF=YES #BAR
SET BKGMAP=PRO=SAT GOESW AC 333 422 1 1 TOPO TOPO 12
IF "%4"=="SVF" GOTO SATLALO
GOTO DONE

:TOPOGLOB
IMGDISP TOPO/GLOB %2 LATLON=0 0 MAG=-7 EU=TOPO SF=YES #BAR
SET BKGMAP=PRO=SAT GLOB EC 0 0 -7 -7 TOPO TOPO 12
IF "%4"=="SVF" GOTO SATLALO
GOTO DONE

:TOPODEF
RUN %2 %3 FILE=BKGSAT.MCB
GOTO DONE

REM Overlay maps
:OLAY
MAP %1 #MC BOX=NO
GOTO DONE

:COUNTY
MAP X 5 %1=ALL BOX=NO
GOTO DONE

:MARINE
MAP X 4 %1=ALL BOX=NO
GOTO DONE

:STATE
MAP X 1 %1=ALL BOX=NO
GOTO DONE

:ZONE
MAP X 2 %1=ALL BOX=NO
GOTO DONE

:ARGENTST
MAP X 7 FILE=OUTARGENTST BOX=NO
GOTO DONE

:BRAZILST
MAP X 7 FILE=OUTBRAZILST BOX=NO
GOTO DONE

:INDIADS
MAP X 7 FILE=OUTINDIADS BOX=NO
GOTO DONE

:INDIAST
MAP X 7 FILE=OUTINDIAST BOX=NO
GOTO DONE

:MEXICOST
MAP X 7 FILE=OUTMEXICOST BOX=NO
GOTO DONE

:USSTRD
MAP X 7 FILE=OUTSTRD BOX=NO
GOTO DONE

:USHIW
MAP X 7 FILE=OUTUSHIW BOX=NO
GOTO DONE

:USINT
MAP X 7 FILE=OUTUSINT BOX=NO
GOTO DONE

:USRAIL1
MAP X 7 FILE=OUTRAIL1 BOX=NO
GOTO DONE

:USRAIL2
MAP X 7 FILE=OUTRAIL2 BOX=NO
GOTO DONE

:USRAIL3
MAP X 7 FILE=OUTRAIL3 BOX=NO
GOTO DONE

:USRIV
MAP X 7 FILE=OUTUSRIV BOX=NO
GOTO DONE

:WOLAK
MAP X 7 FILE=OUTWOLAK BOX=NO
GOTO DONE

:WORIV
MAP X 7 FILE=OUTWORIV BOX=NO
GOTO DONE

:TECTN
MAP X 7 FILE=OUTTECTN BOX=NO
GOTO DONE

:ERROR
REM Map mnemonic is not listed
ECHO "Map Definition Error
GOTO FLIP

:LALO
IF "%4"=="SVF" GOTO SAVE
MAP DEF #MC LALO -2 INT=20 20 DASHSET=1 X 5 #BKGMAP #LINELE #NAME GRA=%2 BOX=YES 8
GOTO DONE
:SAVE
MAP DEF #MC LALO -2 INT=20 20 DASHSET=1 X 5 #BKGMAP #LINELE #NAME GRA=%2 BOX=YES 8 VIRT=9300
GOTO DONE

:SATLALO
IF "%4"=="SVF" GOTO SAVE
MAP SAT 0 %3 -2 INT=20 20 DASHSET=1 X 5 LSIZE=5 GRA=%2 IMA=%2
GOTO DONE
:SAVE
MAP SAT 0 %3 -2 INT=20 20 DASHSET=1 X 5 LSIZE=5 GRA=%2 IMA=%2 VIRT=9300
GOTO DONE

:POLITICAL
REM Draw political boundaries
IF "%4"=="SVF" GOTO SAVE
MAP DEF #PC NAME=OUTLHPOL #BKGMAP #LINELE GRA=%2
GOTO MAP
:SAVE
MAP DEF #PC NAME=OUTLHPOL #BKGMAP #LINELE GRA=%2 VIRT=9300
SET APPEND=A

:MAP
REM Map mnemonic has been stored in string ?BKGMAP; draw map and create 
REM virtual graphic file
IF "%4"=="SVF" GOTO SAVE
MAP DEF #MC #BKGMAP #LINELE GRA=%2 #NAME BOX=YES 8
GOTO DONE
:SAVE
MAP DEF #MC #BKGMAP #LINELE GRA=%2 #NAME BOX=YES 8 VIRT=9300 #APPEND
GOTO DONE

:DONE
IF NOT "%4"=="SVF" GOTO FLIP
SETSTRING ?BKGMAP=#BKGMAP #LINELE
SETSTRING ?MAPID=%1
SETSTRING ?LALO=%3

:ERASE
IF "%8"=="EG" EG B %2

:FLIP
IF NOT "%6"=="FLIP" GOTO EXIT
SF %2
WAIT 4 
UCU POKE 200 9

:EXIT
REM Done!