DCL logic bugs fixed.

(I really need to review my knowledge of the language)

diff --git a/engines/makeengines.com b/engines/makeengines.com
index 96fccbddf93473ce17b496ed0f89f843f5c18813..b2d191653dcb7aebd7ee9fde096f8b55e6bb2e0a 100644 (file)
--- a/engines/makeengines.com
+++ b/engines/makeengines.com
@@ -369,7 +369,7 @@ $!
 $!  Else, Check To See If OPT_PHASE Has A Valid Arguement.
 $!
 $   IF ("," + ACCEPT_PHASE + ",") - ("," + OPT_PHASE + ",") -
-       .EQS. ("," + ACCEPT_PHASE + ",")
+       .NES. ("," + ACCEPT_PHASE + ",")
 $   THEN
 $!
 $!    A Valid Arguement.
@@ -385,9 +385,11 @@ $!
 $     WRITE SYS$OUTPUT ""
 $     WRITE SYS$OUTPUT "The option ",OPT_PHASE," is invalid.  The valid options are:"
 $     WRITE SYS$OUTPUT ""
-$     IF ("," + ACCEPT_PHASE + ",") - ",ALL," THEN -
+$     IF ("," + ACCEPT_PHASE + ",") - ",ALL," -
+       .NES. ("," + ACCEPT_PHASE + ",") THEN -
        WRITE SYS$OUTPUT "    ALL      :  just build everything."
-$     IF ("," + ACCEPT_PHASE + ",") - ",ENGINES," THEN -
+$     IF ("," + ACCEPT_PHASE + ",") - ",ENGINES," -
+       .NES. ("," + ACCEPT_PHASE + ",") THEN -
        WRITE SYS$OUTPUT "    ENGINES  :  to compile just the [.xxx.EXE.ENGINES]*.EXE hareable images."
 $     WRITE SYS$OUTPUT ""
 $     WRITE SYS$OUTPUT " where 'xxx' stands for:"