v4.0/src/CMD/TREE/TREE.SKL

   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 \1a