.enable substitution
.ask ques Are you running on a privileged account
.ift ques .goto 10
;
; Please log onto a privileged account
;
/
.10:
.asks dsk What disk are the sources on
asn 'dsk'=ob:
asn 'dsk'=sy:
.ask fcs Are you using FCSRES
.iff fcs .goto 20
tkb @edefs
.goto 25
.20:
tkb @edrsx
.25:
.ask ques Did it build ok
.iff ques .goto 100
.asks act What account should the task be stored on <[1,54]>
.if act ne "" .goto 30
.sets act "[1,54]"
.30:
pip 'act'/nv/en=ed.tsk
pip 'act'ed.tsk/pu
pip 'act'*.*;1='act'ed.tsk/re
pip 'act'ed.tsk/pr/wo:r
pip ed.tsk;0/rm
ins 'act'ed
.100: