$!
$! TASM$STARTUP.COM
$!
$! Date: 09-Jun-93
$! Desc: Define logicals for Tools for Automated System Mgmt (TASM)
$!	 These logical names are referenced by many of the example
$!	 command procedures included with this book
$!	 (See Appendix F for instructions)
$!
$ set NOON
$ dsec:=define/system/exec/translation=concealed
$ dse:=define/system/exec
$ dsec	TASM$DSK	DISK$USER2:
$ dsec	TASM$ROOT	TASM$DSK:[TASM.]
$ dsec	TASM$RESTORE 	TASM$DSK:[TASM.RESTORE.]
$ dse	TASM$ARCHIVE	TASM$ROOT:[ARCHIVE]
$ dse	TASM$BACKUPS 	TASM$ROOT:[BACKUPS]
$ dse	TASM$COM 	TASM$ROOT:[COM]
$ dse	TASM$DOC	TASM$ROOT:[DOC]
$ dse	TASM$SCRATCH	TASM$ROOT:[SCRATCH]
$!
$! If "SETUP" passed as P1 then create directories
$!
$ P1 = F$EDIT(P1,"UPCASE")
$ IF P1 .NES. "SETUP" THEN EXIT
$ CREATE/DIR/LOG TASM$ARCHIVE
$ CREATE/DIR/LOG TASM$BACKUPS
$ CREATE/DIR/LOG TASM$COM
$ CREATE/DIR/LOG TASM$DOC
$ CREATE/DIR/LOG TASM$SCRATCH