	.ENABLE GLOBAL
	.ENABLE ESCAPE
	.IFDF $MP .GOTO DFM
	.IFF $L .GOTO SMP
.LMP:	;
; A task builder map is strongly recommended. Diagnosing failures
; requires this map.
;
.SMP:	.SETS $MP "NL"
	.SETS $SM ""
	.ASK Z Task builder map desired
	.IFT <ESCAPE> .GOTO LMP
	.IFF Z .GOTO END
.DFM:	.IFF $L .GOTO SMD
.LMD:	;
; It is recommended that you specify SY0: for the map device.  If
; you are running offline however, you may specify LP:.  A reply of
; <cr> defaults to SY0:.
;
.SMD:	.ASKS ZS What is to be the map device? [DDU]
	.IFT <ESCAPE> .GOTO LMD
	.IF ZS = "" .SETS ZS "SY0"
	.SETS $MP ZS
	.SETS ZS2 ZS[3:3]
	.SETS ZS3 ZS[4:4]
	.IF ZS2 = ":" .SETS $MP ZS[1:2]
	.IF ZS3 = ":" .SETS $MP ZS[1:3]
	.IFF $L .GOTO SSP
.LSP:	;
; Spooling will only actually occur for directory devices, and
; then only if the print spooler (PRT...) is installed.
;
.SSP:	.ASK Z Spool map file
	.IFT <ESCAPE> .GOTO LSP
	.IFF Z .SETS $SM "/-SP"
	.IFT Z .SETS $SM "/SP"
	.IFDF $TT .GOTO TTP
	.IFF $L .GOTO STT
.LTT:	;
; The map will default to a 132 column wide page format unless
; otherwise specified
;
.STT:	.ASK $TT Do you need narrow (80 column) output
	.IFT <ESCAPE> .GOTO LTT
.TTP:	.IFT $TT .SETS $SM "/-WI"+$SM
	.IFF $L .GOTO SCRF
.LCRF:	;
; A cross reference listing provides information regarding referencing
; of global variables across modules. It takes much time to generate,
; and is only possible if the cross referencer (CRF...) is installed.
;
.SCRF:	.ASK Z Do you want a cross reference listing
	.IFT <ESCAPE> .GOTO LCRF
	.IFT Z .SETS $SM "/CR"+$SM
.END:
