: 190599 (I Hassine):'DIRX -?' zeigt die Funktion des DIRX an.
IF TEST $# -GT 0
THEN
  IF TEST $1 = '-?'
  THEN
    ECHO 'DIRX Directory der Execution-Directories.';
  FI;
ELSE
  SET `PWD`

  IF TEST $2 = *"-"
  THEN
    2 = SEG[4,EXPR(LEN($2)-2)]($2);
  ELSE
    2 = SEG[4,]($2);
  FI;
  IF TEST $2=/
  THEN
    ECHO "there is no exec-directory";
  ELSE
    ECHO "1st exec-directory is: $2";
    DIR $2;
    ECHO;
    CASE $# IN
        2) ECHO "there is no 2nd exec-directory";
        ;;
        4) IF TEST $4 = *"-"
           THEN
            4 = SEG[,EXPR(LEN($4)-2)]($4);
           FI;
             ECHO "2nd exec-directory is: $4"
          DIR $4;
        ;;
    ESAC;
  FI;
FI;
EXIT 0 ;
















