MZ is back!HEADmain

1 files changed, 22 insertions, 0 deletions

diff --git a/v4.0/src/CMD/SUBST/SUBST.SKL b/v4.0/src/CMD/SUBST/SUBST.SKL
new file mode 100644
index 0000000..fa33102
--- /dev/null
+++ b/v4.0/src/CMD/SUBST/SUBST.SKL
@@ -0,0 +1,22 @@
+;SUBST Utility                                                                  ;AN000;
+;Message Service Routine                                                        ;AN000;
+
+:util  SUBST                            ;BEGIN UTIL                     ;AN000;
+
+:class 1                                ;EXTENDED ERRORS                ;AN000;
+;-------                                 ---------------
+;:use  EXTEND3                          ;Path not found
+;:use  EXTEND8                          ;Insufficient memory
+
+:class 2                                ;PARSE ERRORS                   ;AN000;
+;-------                                 ------------
+;:use  PARSE3                           ;Invalid switch
+;:use  PARSE10                          ;Invalid parameter                      ;AN000;
+
+:class A                                ;COMMON & DEFINED MSGS          ;AN000;
+;-------                                 ------------
+:use  1 COMMON1                         ;Incorrect DOS version          ;AN000;
+:def  2 "Incorrect number of parameters",CR,LF                          ;AN000;
+:use 12 COMMON12                        ;Cannot %1 a network drive      ;AN000;
+
+:end                                                   ;END UTIL        ;AN000;