.ENABLE SUBSTITUTION .IF P1 NE "?" .GOTO BEGIN ; RMDMON.CMD ; Install and start a stand-alone RMD task. ; ; SYNTAX: ; @LB:[1,2]RMDMON [ttn:] ; ttn: is the terminal to use (assumes TT5:) ; ; @LB:[1,2]RMDMON [ttn]:STOP ! aborts the RMD task ; .EXIT '' ! after @RMDMON ? .BEGIN: .IF P1 EQ "" .SETS P1 "TT5:" .PARSE P1 ":" P1 X .ENABLE GLOBAL @/LB:USRCHK RMDMON/MCR PRIV .IFNINS RMDMON INS $RMDMON/TASK=RMDMON .IFACT RMDMON ABO RMDMON .IF X NE "" .EXIT REA RMDMON 1 'P1': REA RMDMON 2 'P1': RUN RMDMON .IF $CLI NE "MCR" SET /CLI=TI:'$CLI'