v4.0/src/CMD/REPLACE/REPLACE.SKL

   1 ;REPLACE Utility                                                                ;AN000;
   2 ;Message Service Routine                                                        ;AN000;
   3
   4 :util  REPLACE                                         ;BEGIN UTIL              ;AN000;
   5
   6 :class 1                                               ;EXTENDED ERRORS         ;AN000;
   7 ;-------                                                ---------------         ;AN000;
   8 ;:use  EXTEND2                          ;File not Found                         ;AN000;
   9 ;:use  EXTEND3                          ;Path not Found                         ;AN000;
  10 ;:use  EXTEND5                          ;Access denied                          ;AN000;
  11 ;:use  EXTEND8                          ;Insufficient memory                    ;AN000;
  12 ;:use  EXTEND15                         ;Invalid drive specification            ;AN000;
  13
  14 :class 2                                               ;PARSE ERRORS            ;AN000;
  15 ;-------                                                ------------            ;AN000;
  16 ;:use  PARSE1                           ;Too many parameters
  17 ;:use  PARSE3                           ;Invalid switch
  18 ;:use  PARSE10                          ;Invalid parameter                      ;AN000;
  19 ;:use  PARSE11                          ;Invalid parameter combination          ;AN000;
  20
  21 :class A                                               ;COMMON & DEFINED MSGS   ;AN000;
  22 ;-------                                                ------------            ;AN000;
  23 :use  1 COMMON1                         ;Incorrect DOS version                  ;AN000;
  24 :use  2 COMMON29                        ;Source path required                   ;AN000;
  25 :def  3 CR,LF,"No files replaced",CR,LF                                         ;AN000;
  26 :def  4 CR,LF,"No files added",CR,LF                                            ;AN000;
  27 :use 11 COMMON18                        ;File cannot be copied onto itself      ;AN000;
  28 :use 12 COMMON20                        ;Insufficient disk space                ;AN000;
  29 :def 13 CR,LF,"Replacing %1",CR,LF                                              ;AN000;
  30 :def 14 CR,LF,"Adding %1",CR,LF                                                 ;AN000;
  31 :def 15 CR,LF,"%1 file(s) replaced",CR,LF                                       ;AN000;
  32 :def 16 CR,LF,"%1 file(s) added",CR,LF                                          ;AN000;
  33 :def 17 CR,LF,"No files found - %1",CR,LF                                         ;AN000;
  34 :use 21 COMMON28                        ;Press any key to continue . . .        ;AN000;
  35 :def 22 CR,LF,"Replace %1? (Y/N)"                                               ;AN000;
  36 :def 23 CR,LF,"Add %1? (Y/N)"                                                   ;AN000;
  37
  38 :end                                                   ;END UTIL                ;AN000;