diff options
Diffstat (limited to 'v4.0/src/CMD/TREE/TREE.SKL')
| -rw-r--r-- | v4.0/src/CMD/TREE/TREE.SKL | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/v4.0/src/CMD/TREE/TREE.SKL b/v4.0/src/CMD/TREE/TREE.SKL new file mode 100644 index 0000000..3a7a74a --- /dev/null +++ b/v4.0/src/CMD/TREE/TREE.SKL | |||
| @@ -0,0 +1,21 @@ | |||
| 1 | :util TREE ; ;AN000; | ||
| 2 | :class A ; ;AN000; | ||
| 3 | |||
| 4 | :use 1 COMMON1 ;MSG 1 is always "Incorrect DOS version" ;AN000; | ||
| 5 | |||
| 6 | :def 2 "Directory PATH listing for Volume %1",CR,LF ;define message ;AN000; | ||
| 7 | |||
| 8 | :def 3 "Directory PATH listing",CR,LF ; ;AN000; | ||
| 9 | |||
| 10 | :def 4 "No sub-directories exist",CR,LF,LF ; ;AN000; | ||
| 11 | |||
| 12 | :use 5 COMMON25 ;"Invalid path" ;AN000; | ||
| 13 | |||
| 14 | :use 6 COMMON36 ;"Volume Serial Number is %1-%2",CR,LF ;AN001; | ||
| 15 | |||
| 16 | :def 7 "ÀÄó" ;"elbo","dash","tee","bar" ;AN002; | ||
| 17 | ; 1. NONE OF THE FOUR CAN BE BLANK | ||
| 18 | ; 2. EACH OF THE FOUR MUST BE UNIQUE | ||
| 19 | ; 3. EACH CHAR MUST BE A SINGLE BYTE (NO DBCS) | ||
| 20 | :end ; ;AN000; | ||
| 21 | \ No newline at end of file | ||