;
;		Build Rollin Utility Program Command File
;			Privileged Command File
;
.ENABLE SUBSTITUTION
.ENABLE ESCAPE
.SETS TASK "ROLLIN"
.100:
.ASKS PGM Enter the name of the 'TASK' program to be updated
.IFT <ESCAPE> .GOTO 200
.IF  <STRLEN> EQ 0 .GOTO 200
.TESTFILE 'PGM'.MAC
.IF <FILERR> EQ 1 .GOTO 150
;
;	Nonexistant Program:  'PGM'.MAC
;
.GOTO 100
.150:
OLD 'PGM'.MAC
PIP 'PGM'.*/PU
PIP 'PGM'.LST;*/DE
PIP 'PGM'.OBJ;*/DE
PIP 'PGM'.MAC;1/RE='PGM'.MAC;*
MAC 'PGM','PGM'/-SP='PGM'
.ASK LIST Do you want a listing of 'PGM' on your terminal
.IFT <ESCAPE> .GOTO 100
.IFF LIST .GOTO 100
TYPE 'PGM'.LST
.GOTO 100
.200:
.ASK BLD Do you want to TASK BUILD 'TASK'
.IFT <ESCAPE> .GOTO 900
.IFF BLD .GOTO 900
.ASK IMAP Do you want a MAP of 'TASK'
.SETS BIG ""
.SETS LIBR "FCS Resident"
.GOTO 300
.250:
.SETS BIG "BIG"
.SETS LIBR "System"
.300:
.TESTFILE TKB'BIG'ROL.CMD
.IF <FILERR> EQ 1 .GOTO 500
.IF BIG NE "BIG" .GOTO 250
;
;	Nonexistant Command File for 'TASK'
;
.GOTO 900
.500:
;
;		Build 'TASK' using 'LIBR' Library
;
.TESTFILE 'BIG'ROL.TSK
.IF <FILERR> EQ 1 PIP 'BIG'ROL.TSK;*/DE
.IFF IMAP .GOTO 550
.TESTFILE 'BIG'ROL.MAP
.IF <FILERR> EQ 1 PIP 'BIG'ROL.MAP;*/DE
.550:
.SETS TSK TASK[1:3]
TKB @TKB'BIG''TSK'
.IFT IMAP .GOTO 560
.TESTFILE 'BIG'ROL.MAP
.IF <FILERR> EQ 1 PIP 'BIG'ROL.MAP;*/DE
.560:
.IF BIG NE "BIG" .GOTO 250
.ASK INS Do you want the task(s) to be put into system uic [1,54] 
.IFT <ESCAPE> .GOTO 900
.IFF INS .GOTO 900
REM 'TASK'
.TESTFILE 'TASK'.TSK
.IF <FILERR> EQ 1 PIP LB:[1,54]='TASK'.TSK/SU
.TESTFILE BIG'TASK'.TSK
.IF <FILERR> EQ 1 PIP LB:[1,54]=BIG'TASK'.TSK/SU
.SETS BIG "BIG"
.ASK INSBIG Do you want the BIG 'TASK' INSTALLED
.IFT <ESCAPE> .SETS BIG ""
.IFF INSBIG .SETS BIG ""
INS LB:$'BIG''TASK'
.900:
.EXIT
