.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 .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 ; defaults to SY0:. ; .SMD: .ASKS ZS What is to be the map device? [DDU] .IFT .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 .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 .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 .GOTO LCRF .IFT Z .SETS $SM "/CR"+$SM .END: