.ENABLE SUBSTITUTION ; ; '' ; ; Install FIGURE on an RSX system ; .SETS S$OUIC .SETS S$MCR "MCR " .IF = "MCR" .SETS S$MCR "" .PARSE ":]" S$DDEV S$DUIC S$JUNK .SETS S$DDEV S$DDEV+":" .SETS S$DUIC S$DUIC+"]" 'S$MCR'ASN 'S$DDEV'=SY: 'S$MCR'SET /UIC='S$DUIC' .TESTFILE 'S$DDEV''S$DUIC'FIG.TSK .IF <> 1 @FIGBLDRSX FALSE .SETS S$INS S$DDEV+S$DUIC .ASK L$Q Shall I copy your task image to LB:'' .IFF L$Q .GOTO FIGCOP 'S$MCR'SET /UIC='' 'S$MCR'PIP LB:''/NV='S$DDEV''S$DUIC'FIG.TSK .SETS S$INS "LB:''" .FIGCOP:.; .ASK L$Q Shall I install the help files .IFF L$Q .GOTO HLPDON 'S$MCR'SET /UIC=[1,2] .OPEN LB:FIG.TMP .DATA SET TE HCPY .DATA D ALL "<>" .DATA S/<>//WH .DATA EXIT .CLOSE 'S$MCR'EDT LB:FIGURE.HLP='S$DDEV''S$DUIC'FIGSOURCE.HLP,LB:''FIG.TMP 'S$MCR'PIP FIG.TMP;*/DE/NM .OPEN LB:FIG.HLP .DATA 1 FIGURE .DATA @FIGURE .CLOSE 'S$MCR'PIP LB:FIG.HLP/PU & LB:*.*;1/RE=LB:FIG.HLP 'S$MCR'PIP LB:FIGURE.HLP/PU & LB:*.*;1/RE=LB:FIGURE.HLP 'S$MCR'SET /UIC='S$DUIC' .HLPDON:.; 'S$MCR'ASN =SY: 'S$MCR'SET /UIC='S$OUIC' ; ; To complete your installation, you may wish to place the command ; INS 'S$INS'FIG/TASK=...FIG ; in your startup command file, or execute it in VMR.