$!---------------------------------------------------------------------
$!          SYMBOLS Command -  By Scott B. Sibley   18 Oct 82
$!---------------------------------------------------------------------
$!
$!            Define Common Symbols:  @SYMBOLS -F | -H
$!
$!     GLOBAL SYMBOLS used:  HelpDir, Out, it
$!     FILES used:
$!
$!---------------------------------------------------------------------
$      IF "''F$EXT(0,1,P1)'" .EQS. "-" THEN GOTO INFO
$!--------------------------------------------- DEFINE LIBRARY DISK
$  DEFINE LIB0 _DRA2:
$!--------------------------------------------- Get VMS Version Code
$  VMS_Version := "2.5"
$  IF "''F$LOG("SYS$INSTRUCTION")'" .NES. "" THEN VMS_Version := "3.0"
$!--------------------------------------------- Short Symbols
$  V :== SH SYM
$  Out :== WR SYS$OUTPUT
$!--------------------------------------------- Directory Path Symbols
$  InfoDir :== LIB0:[UTIL.FordUtil.INFO]
$  UtilityDir :== LIB0:[UTIL.FordUtil]
$  HelpDir :== LIB0:[UTIL.FordUtil.HELP]
$  NewsDir :== LIB0:[UTIL.FordUtil.NEWS]
$  LSErrDir :== LIB0:[NASALib.LSErrCode]
$  TempDir :== LIB0:[UTIL.TempFiles]
$  InSubDir  :== LIB0:[NASALib.INPUT]
$  OutSubDir :== LIB0:[NASALib.OUTPUT]
$  CmdInterpDir :== LIB0:[NASALib.CmdInterp]
$  ScreenDir :== LIB0:[NASALib.Screen]
$  VAXVMSDir :== LIB0:[NASALib.VAXVMS]
$  FMTDir :== LIB0:[UTIL.FordUtil.FORMAT]
$  IF "''F$LOGI("FORDUTIL")'" .NES. "" THEN DEASSIGN FordUtil
$  ASSIGN 'UtilityDir' FordUtil
$!--------------------------------------------- Saved File-Name/Directory
$  SaveFile :== LOGIN.COM
$  What :== 'Out' """         SaveFile:  """, SaveFile
$  SaveDir :== "''F$LOGI(""SYS$LOGIN"")'"
$!--------------------------------------------- Functions
$  GetTopDir :== @FordUtil:TopDir     ! () RETURNS TopDir
$  GetPathName :== @FordUtil:GetPath  ! (file-spec) RETURNS PathName
$  SetDefFileType :==@FordUtil:SetFilTyp! (file,"typ") RETURNS FileSpec
$!--------------------------------------------- Commands: BMDP
$!  BMDP :== @LIB0:[BMDP]BMDP
$!  BMDPT :== @LIB0:[BMDP]BMDPT
$!  BIMED :== @LIB0:[BMDP]BIMED
$!  STAT*ISTICS :== @LIB0:[NASAProg.NumEdit.Autostat]AUTOSTAT
$!--------------------------------------------- Commands: Unsupported
$  IF VMS_Version .EQS. "3.0" THEN GOTO SetVMS30
$    Talk :== $TALK
$    Sea*rch :== @FordUtil:SEARCH
$    SetP*roc :== $SETNAME
$    Us*ers :== $USERS
$    GOTO AllVersions
$SetVMS30:
$  Sea*rch :== "SEARCH"
$  SetP*roc :== "SET PROC/NAME="
$  Us*ers :== "SHOW USERS"
$AllVersions:
$  TECO :== $TECO TECO
$  TOC :== $TOC
$  TCX :== $TCX
$  NDXDMP :== $NDXDMP
$!--------------------------------------------- Commands: List
$  FILETYP :== @FordUtil:FILETYP
$  PG :== @FordUtil:PG
$!--------------------------------------------- Commands: NEWS
$  NEW*S :== @'NewsDir'NEWS
$  Pub*lish :== @'NewsDir'PUBLISH
$  SysN*ews :== @'NewsDir'SYSNEWS
$!--------------------------------------------- Commands: Language
$  RENUM*BER :== RUN FordUtil:RENUM
$  IF "''F$LOGI(""FLECSDir"")'" .NES. "" THEN DEAS FLECSDir
$  ASSI LIB0:[UTIL.FordUtil.FLECS] FLECSDir
$  FLE*CS :== @FLECSDir:FLECS
$  CEN*TER :== @FordUtil:CENTER
$  FMT :== @'FMTDir'FMT
$!--------------------------------------------- Commands: Directory
$  DIRCOM :== @FordUtil:DIRCOM
$  Tree :== @FordUtil:Tree
$  Free*Dir :== SET PROT=(O:RWED,W:RWED)
$  MkDir :== @FordUtil:MkDir
$  WH*ERE :== @FordUtil:WHERE
$  CD :== @FordUtil:CD
$  LF :== @FordUtil:LF
$!--------------------------------------------- Commands: Utility
$  DEB*LOCK :== @FordUtil:DEBLOCK
$  AR*CHIVE :== @FordUtil:ARCHIVE
$  COPFTD :== @FordUtil:COPFTD
$  COPDTF :== @FordUtil:COPDTF
$  SAVE :== @FordUtil:SAVE
$!  REW :== SET MAGTAPE/REWIND
$  LSLINK :== @'LSErrDir'LSLINK
$  GenFLX :== @FordUtil:GENFLX
$  KILL :== @FordUtil:KILL
$!--------------------------------------------- Commands: Information
$  LOO*KUP :== @FordUtil:LOOKUP
$  WHOIS :== @FordUtil:WHOIS
$  WHOSYS :== @FordUtil:WHOSYS
$  Syms :== @FordUtil:SYMS
$  Sou*rce :== @FordUtil:SOURCE
$  Inf*o :== @FordUtil:INFO
$  ASC*II :== 'INFO -I:'InfoDir'ASCII.INF
$  Day*OfWeek :== @FordUtil:DAYOFWEEK
$!--------------------------------------------- Commands: Edit
$!  NE*D :== @LIB0:[NASAProg.NumEdit]NED
$  SE :== @FordUtil:SE        ! Multi-file MCR Editor
$!  E :== "''Out ""       Use """"ESOS"""" to run the Multi-file SOS Editor (abbreviation:  ES)"""
$  ES*OS :== @FordUtil:ESOS   ! Multi-file SOS Editor
$  HPE :== @LIB0:[UTIL.FORDUTIL.EDIT]HPE  ! Scott Sibley's Editor, HP26xx
$  EEF :== @LIB0:[UTIL.FORDUTIL.EDIT]EEF  ! Scott Sibley's Editor (Fast)
$  EE :== @LIB0:[UTIL.FORDUTIL.EDIT]EE    ! Scott Sibley's Editor
$!  EZ :== @LIB0:[NASAProg.EZGraph]EZ    ! Easy Graphing
$!--------------------------------------------- Commands: Conversion
$!  FIXLO*GIN :== @LIB0:[UTIL]FIXLOGIN
$!--------------------------------------------- Initialize Status
$  SET PROT=(S:RE,O:RWED,G:RE,W:RE)/DEFAULT
$  SET MESSAGE /NOFAC/NOSEVER/NOID
$!--------------------------------------------- Check for NEWS, SYSNEWS
$  IF "''F$LOGI(""SkipNews"")'" .EQS. "YES" THEN EXIT
$  @'NewsDir'CheckNEWS
$  @'NewsDir'CheckSYS
$  EXIT
$!----------------------------------------------------
$INFO: WR SYS$OUTPUT "       Define Common Symbols:  @SYMBOLS -F | -H"
$      IF "''F$EXT(0,2,P1)'" .EQS. "-F" THEN EXIT
$      CREATE SYS$OUTPUT:

     This DCL Command file defines commonly used global symbols for
the standard user.