startup.com
12 lines
| 252 B
| application/x-msdownload
|
TextLexer
Jean-Francois Pieronne
|
r51894 | $! | ||
| $! Mercurial startup file | ||||
| $! | ||||
| $ proc = f$environment("PROCEDURE") | ||||
| $ cur_dev = f$parse(proc,,,"DEVICE","SYNTAX_ONLY") | ||||
| $ cur_dir = f$parse(proc,,,"DIRECTORY","SYNTAX_ONLY") | ||||
| $! | ||||
| $! Define logicals | ||||
| $! | ||||
| $ @'cur_dev''cur_dir'logicals "/system/exec" | ||||
| $ | ||||
| $ exit | ||||