.sets versn "1.12"
.enable substitution
.sets uic <uic>
;
;	Specify values in WHOLE MINUTES for these parameter:
;
.askn [2.:33.:10.] monp1 Enter the length of the first monitoring period
.askn [2.:33.:10.] monp2 Enter the length of the second monitoring period
.askn [2.:33.:10.] monp3 Enter the length of the third monitoring period
;
;	Specify a value in WHOLE SECONDS for this parameter:
;
.time:
.askn [5.:60.:15.] secnds Enter the time between task list checks
.setn temp 60./secnds
.setn temp 60.-(temp*secnds)
.if temp eq 0 .goto ok
;
; The number must divide evenly into one minute:
;
.goto time
.ok:
.setn no1 (monp1*60.)/secnds
.sets $no1 "'monp1'"
.setn temp monp1+monp2
.setn no2 (temp*60.)/secnds
.sets $no2 "'temp'"
.setn temp monp1+monp2+monp3-1
.setn no3 (temp*60.)/secnds
.sets $no3 "'temp'"
.inc temp
.setn no4 (temp*60.)/secnds
.sets $no4 "'temp'"
.setn warn2 temp-monp2-monp1
.sets $warn2 "'warn2'"
.sets $wn2 "0"
.test $warn2
.if <strlen> eq 2 .sets $wn2 "''"+$warn2[2:2]
.sets $warn2 "time2 = ''"+$warn2[1:1]+" + <"+$wn2+"*256.>"
.setn warn1 temp-monp1
.sets $warn1 "'warn1'"
.sets $wn1 "0"
.test $warn1
.if <strlen> eq 2 .sets $wn1 "''"+$warn1[2:2]
.sets $warn1 "time1 = ''"+$warn1[1:1]+" + <"+$wn1+"*256.>"
.ask decnet Is DECnet supported on this machine
.iff decnet .goto uicget
.ask netsup Do you want idle DECnet HT: terminals logged out
.iff netsup .goto uicget
.asks netuic Enter the UFD on LB: where RMHPRE.MAC can be found [ggg,mmm]
.uicget:
.asks rsxuic Enter the UFD on LB: where RSXMC.MAC can be found [ggg,mmm]
.asks consol Enter the console device for statistic logging (usually CO:)
.ask vt100 Do you want VT100 support
.ask list Do you want listings of the user monitor
.ask map Do you want a map of the user monitor
.ask debug Do you want odt
pip user.mac/pu
pip userpre.mac;*/de/nm
pip userpre.mac=userpre0.mac
.opena userpre.mac
.enable data
secnds = 'secnds'.
first = 'no1'.
second = 'no2'.
third = 'no3'.
fourth = 'no4'.
'$warn1'
'$warn2'
.disable data
.ift vt100 .data v$t100 = 0
.close userpre.mac
pip user.obj;*/de/nm
.sets lst ""
.ift list .sets lst ",user/-sp"
.open usermac.cmd
.data sy:user'lst' = lb:[1,1]exemc/ml,lb:'rsxuic'rsxmc/pa:1, -
.iff decnet .goto nonet
.ift netsup .data lb:'netuic'rmhpre/pa:1, -
.nonet:
.data sy:'uic'userpre/pa:1, -
.data sy:'uic'user
.close usermac.cmd
mac @usermac.cmd
pip usermac.cmd/pu,userpre.mac/pu
pip userbld.cmd;*/de/nm
.sets $odt ""
.ift debug .sets $odt "/da"
.sets $map ""
.ift map .sets $map ",sy:[1,54]user/ma/-sp"
.open userbld.cmd
.data lb:[1,54]user/pr'$odt''$map' =
.data sy:'uic'user,lb:[1,54]rsx11m.stb/ss
.data /
.data units=2
.data task=BIGBRO
.data asg='consol'1
.data pri=150
.data //
.close
set /uic=[1,54]
pip user.tsk;*/pr:0/fo
pip user.tsk;*/nm/de,user.map;*/nm/de
tkb @'uic'userbld.cmd
pip sy:'uic'user.map;*/pr/fo
set /uic='uic'
pip user.lst/pu,userbld.cmd/pu
pip user.obj;*/de/nm

