summaryrefslogtreecommitdiff
path: root/v4.0/src/CMD/REPLACE/REPLACE.SKL
diff options
context:
space:
mode:
Diffstat (limited to 'v4.0/src/CMD/REPLACE/REPLACE.SKL')
-rw-r--r--v4.0/src/CMD/REPLACE/REPLACE.SKL38
1 files changed, 38 insertions, 0 deletions
diff --git a/v4.0/src/CMD/REPLACE/REPLACE.SKL b/v4.0/src/CMD/REPLACE/REPLACE.SKL
new file mode 100644
index 0000000..495b2db
--- /dev/null
+++ b/v4.0/src/CMD/REPLACE/REPLACE.SKL
@@ -0,0 +1,38 @@
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;
HIC SVNT DRACONES