	.ENABLE SUBSTITUTION
	.SETT SLP
	.ASKS SFNM Slip command file name (C/R if none)
	.IF SFNM EQ "" .SETF SLP
	.SETS FNM SFNM
;
;Pascal questions 
;
	.IFF SLP .GOTO 4
	.IFT SLP .ASK ANS Name of pascal file other than 'SFNM'.PAS
	.IFF ANS .GOTO 6
.4:	.ASKS FNM Name of the pascal file
.6:	.ASK PLIST Do you want a pascal listing only file (no debug)
	.ASK DBUG  Do you want pascal debugging and listing
;
;Macro questions follow
;
	.ASK NET Are there any network macros in this module
	.SETS NETMOD ""
	.IFT NET .SETS NETMOD "[1,1]NETLIB/ML,"
	.ASK LST Do you want a MACRO listing
;
;Task Build questions follow
;
	.ASK ABOT Do you want ABORT the Task Build
	.IFT ABOT .GOTO PASC
	.ASK CMD Generate command line (no command file)
.PASC:	.SETS LST1 ""
	.SETS DEB1 ""
	.SETS LST2 ""
	.SETS DEB2 ""
	.IFT PLIST .SETS LST1 ",'FNM'"
	.IFT PLIST .SETS LST2 "/S"
	.IFT DBUG .SETS LST1 ",'FNM'"
	.IFT DBUG .SETS DEB1 ",'FNM'"
	.IFT DBUG .SETS DEB2 "/S/D"
	.IFT SLP SLP @'SFNM'.SRC
	PAS 'FNM''LST1''DEB1'='FNM''LST2''DEB2'
.10:	.IF <EXSTAT> = 1 .GOTO 12
;
;Pascal compile error, aborting 
;
	.GOTO 50
.12:	.SETS LSTNM ""
.15:	.IFT LST .SETS LSTNM ",'FNM'"
	.SETS MSP ""
	.IFT LST .SETS MSP "/-SP"
	MAC 'FNM''LSTNM''MSP'='NETMOD''<UIC>''FNM'
	.IF <EXSTAT> =1 .GOTO 25
;
;Aborting TKB due to error in MAC
;
	.GOTO 50
.25:	.IFT ABOT .GOTO 50
	PUR 'FNM'.TSK;*
	.IFT CMD .GOTO 30
	TKB @'FNM'BLD
	.GOTO 40
.30:	TKB 'FNM'/CP/FP='FNM',[300,41]PASLIB/LB
.40:	PUR 'FNM'.OBJ
	.IFF CMD PUR 'FNM'.MAP
        .IFT DBUG PUR 'FNM'.SYM
.50:	PUR 'FNM'.MAC
	.IFT SLP .SETS EXT "SRC"
	.IFF SLP .SETS EXT "PAS"
	.IFT SLP PUR 'FNM'.SRC
	.IFT SLP PUR 'FNM'.PAS;*
	.IFF SLP PUR 'FNM'.PAS
	.IFT PLIST PUR 'FNM'.LST
	.IFT LST PUR 'FNM'.LST
