$	MAP__QUIET    = %x10000000		! Inhibit display (bit 28)
$	MAP__SUCCESS  = MAP__QUIET + %x0001	! Severity 1 (success)
$	MAP__FATAL    = MAP__QUIET + %x0004	! Severity 4 (fatal error)
$	MAP__CONTROLY = MAP__FATAL
$	on warning   then exit MAP__QUIET .or. $STATUS
$	on control_y then exit MAP__CONTROLY
$	if f$type(MAP__QUIET) .eqs. "" then exit %x10000000
!
$	echo LIB__ANS B "	Is the MAPS platter mounted (YES/NO)?" YES
$	if LIB__ANS
$	then
$		echo LIB__ANS S "	On which drive (DKB500:,DKB200:)" DKB500 U
$		LIB__OD_UNIT == LIB__ANS-":"+":"
$		LIB__OD_VOLNAM == "MAPS"
$		goto TEMPORARY_LABEL
$	else
$		if f$type(LIB__OD_UNIT)   .nes. "" then delete/symbol/global LIB__OD_UNIT
$		if f$type(LIB__OD_VOLNAM) .nes. "" then delete/symbol/global LIB__OD_VOLNAM
$	endif
!
$! MAP$MOUNT_OD:
$!	@$COM:LIBSUB SYMBOL_SET LIB__ANS LIB__OD_UNIT
$!	if .not. LIB__ANS
$!	then
$!		@$COM:DEV ODLIST
$!		@$COM:LIBSUB SYMBOL_SET LIB__ANS LIB__OD_UNIT
$!	endif
$!	if .not. LIB__ANS
$!	then
$!		echo LIB__ANS B "	Mount optical drive (YES/NO)?" NO
$!		if LIB__ANS
$!		then
$!			@$COM:DEV ODMOUNT
$!			goto MAP$MOUNT_OD
$!		endif
$!	endif
!
$ TEMPORARY_LABEL:
!
$	if f$type(LIB__OD_VOLNAM) .eqs. "" then goto MAP$'P1
$	if     LIB__OD_VOLNAM .nes. "MAPS" then goto MAP$'P1
$	MAP_DIR = LIB__OD_UNIT+"[MAPS."
$	XSURF    = "SRF"
$	DSURF    = MAP_DIR+"SURF]"
$	XSACPEAK = "SAC"
$	DSACPEAK = MAP_DIR+"SACPEAK]"
$	XYOHKOH  = "YOH"
$	DYOHKOH  = MAP_DIR+"YOHKOH]"
$	XMARKIII = "MRK"
$	DMARKIII = MAP_DIR+"MARK]"
$	XMHD     = "MHD"
$	DMHD     = MAP_DIR+"MHD]"
$	XMPA     = "MPA"
$	DMPA     = MAP_DIR+"MPA]"
$	XGIPSY	 = "CAM"
$	DGIPSY	 = MAP_DIR+"GIPS]"
$	MJDLAST  = 49622			!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
$	XVIPS	 = "SAN"
$	DVIPS	 = MAP_DIR+"SANIPS]"
$	XNAGOYA  = "NAG"
$	DNAGOYA  = MAP_DIR+"NAGOYA]"
$	XOOTY    = "OOT"
$	DOOTY    = MAP_DIR+"OOTY]"
$	define/nolog $SRF 'DSURF
$	if f$type(X'P1) .eqs. "STRING"
$	then
$		TMP1 = "$"+X'P1
$		TMP2 = D'P1
$		define/nolog 'TMP1 'TMP2
$	endif
$	goto MAP$'P1
$ MAP$GENMAP:
$	if f$type(DSURF)    .nes. "" then define/nolog $SRF 'DSURF
$	if f$type(DSACPEAK) .nes. "" then define/nolog $SAC 'DSACPEAK
$	if f$type(DMARKIII) .nes. "" then define/nolog $MRK 'DMARKIII
$	if f$type(DYOHKOH)  .nes. "" then define/nolog $YOH 'DYOHKOH
$	if f$type(DMHD)     .nes. "" then define/nolog $MHD 'DMHD
$	if f$type(DMPA)     .nes. "" then define/nolog $MPA 'DMPA
$	define/user_mode SYS$INPUT LIB$ECHO
$	RRUN = "$ $EXE:MAP
$	RRUN
$	if f$trnlnm("$SRF") .nes. "" then undefine $SRF
$	if f$trnlnm("$SAC") .nes. "" then undefine $SAC
$	if f$trnlnm("$MRK") .nes. "" then undefine $MRK
$	if f$trnlnm("$YOH") .nes. "" then undefine $YOH
$	if f$trnlnm("$MHD") .nes. "" then undefine $MHD
$	if f$trnlnm("$MPA") .nes. "" then undefine $MPA
$	goto MAP$EXIT
$ MAP$SURF:
$	define/user_mode SYS$INPUT LIB$ECHO
$	RRUN = "$ $EXE:MAP /SRF"
$	RRUN
$	goto MAP$EXIT
$ MAP$MARKIII:
$	GR$WINDOW = "Mark III"
$	define/user_mode SYS$INPUT LIB$ECHO
$	RRUN = "$ $EXE:MAP /MRK"
$	RRUN
$	goto MAP$EXIT
$ MAP$SACPEAK:
$	GR$WINDOW = "NSO/SP Observatory"
$	RRUN = "$ $EXE:MAP /SAC"
$	define/user_mode SYS$INPUT LIB$ECHO
$	RRUN
$	goto MAP$EXIT
$ MAP$YOHKOH:
$	GR$WINDOW = "Yohkoh/SXT"
$	RRUN = "$ $EXE:MAP /YOH"
$	define/user_mode SYS$INPUT LIB$ECHO
$	RRUN
$	goto MAP$EXIT
$ MAP$MHD:
$	define/user_mode SYS$INPUT LIB$ECHO
$	RRUN = "$ $EXE:MAP /MHD"
$	RRUN
$	goto MAP$EXIT
$ MAP$GIPSY:
$ MAP$EGIPSY:
$ MAP$NGIPSY:
$ MAP$NEGIPSY:
$	GIPSY = "2,8,0"
$	EGIPSY = "2,8,1"
$	NGIPSY = "3,8,0"
$	NEGIPSY = "3,8,1"
$	define/user_mode SYS$INPUT LIB$ECHO
$	RRUN = "$ $EXE:IPS 4,"+'P1
$	RRUN
$	goto MAP$EXIT
$ MAP$VIPS:
$	define/user_mode SYS$INPUT LIB$ECHO
$	RRUN = "$ $EXE:IPS 2,1,8"
$	RRUN
$	goto MAP$EXIT
$ MAP$NAGOYAV:
$ MAP$NAGOYAG:
$ MAP$NAGOYAN:
$	NAGOYAV = "1,1,8"
$	NAGOYAG = "1,2,8"
$	NAGOYAN = "1,3,8"
$	GR$WINDOW = "SteLab, Nagoya, Japan"
$	define/user_mode SYS$INPUT LIB$ECHO
$	RRUN = "$ $EXE:IPS "+'P1
$	if P2 .nes. "" then RRUN = RRUN+","+P2
$	RRUN
$	goto MAP$EXIT
$ MAP$OOTYV:
$ MAP$OOTYG:
$ MAP$OOTYN:
$	OOTYV = "3,1,8"
$	OOTYG = "3,2,8"
$	OOTYN = "3,3,8"
$	GR$WINDOW = "IPS observations, Ooty, India"
$	define/user_mode SYS$INPUT LIB$ECHO
$	RRUN = "$ $EXE:IPS "+'P1
$	if P2 .nes. "" then RRUN = RRUN+","+P2
$	RRUN
$	goto MAP$EXIT
!
$ MAP$SANHEL:
$ MAP$A0_HOS:
$ MAP$B0_HOS:
$ MAP$A1_HOS:
$ MAP$B1_HOS:
$	SANHEL    = ""
$	A0_HOS = "1,0,1"
$	B0_HOS = "2,0,1"
$	A1_HOS = "1,1,1"
$	B1_HOS = "2,1,1"
$	define/user_mode $IPS	'LIB__OD_UNIT'[MAPS.SANIPS.VTX]
$!	define/user_mode $DATA 'f$environment("default")
$	define/user_mode SYS$INPUT LIB$ECHO
$	RRUN = "$ $EXE:SANHEL "+'P1	! Graphics, S/C, speed, scaling
$	RRUN
$	goto MAP$EXIT
$ MAP$EXIT:
$	exit MAP__SUCCESS