PARM DIRECTORY=""
##  CD.XEQ - CHANGE DIRECTORY
##  ABRAHAM ZWYGART
IF "!DIRECTORY" = ""
  IF NOT BOUND(LASTGROUP) &
  OR NOT BOUND(LASTDIR)
    SETVAR LASTGROUP, HPHGROUP
    SETVAR LASTDIR, "/!HPACCOUNT/!HPHGROUP"
  ENDIF
  CHDIR !LASTDIR > $NULL
  SETVAR NEWGROUP, STR(LASTDIR,POS("/",LASTDIR,-1)+1,8)
  CHGROUP !NEWGROUP > $NULL
  SETVAR HPPROMPT, STR(LASTDIR,POS("/",LASTDIR,-1)+1,8)+":"
  SETVAR LASTGROUP, HPHGROUP
  SETVAR LASTDIR, "/!HPACCOUNT/!HPHGROUP"
ELSE
  IF STR("!DIRECTORY",1,1) <> "/"
    SETVAR NEWDIR, "/!HPACCOUNT/!DIRECTORY"
  ELSE
    SETVAR NEWDIR, "!DIRECTORY"
  ENDIF
  SETVAR HPPROMPT, "!DIRECTORY"+":"
  IF "!NEWDIR" <> "!HPCWD"
    SETVAR LASTGROUP, HPGROUP
    SETVAR LASTDIR, HPCWD
    CHDIR !NEWDIR > $NULL
    SETVAR NEWGROUP, STR(NEWDIR,POS("/",NEWDIR,-1)+1,8)
    CHGROUP !NEWGROUP > $NULL
  ELSE
    ECHO CWD is already !NEWDIR.
  ENDIF
ENDIF