.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 = 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''''FNM' .IF =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