v4.0/src/CMD/LABEL/LABL.SKL

   1 ;LABEL Utility
   2 ;Message Service Routine
   3
   4 :util  LABL                             ;BEGIN UTIL                     ;AN000;
   5
   6 :class 1                                ;EXTENDED ERRORS                ;AN000;
   7 ;-------                                 ---------------
   8 ;:use  EXTEND4                          ;Too many files open
   9 ;:use  EXTEND15                         ;Invalid drive specification
  10 ;:use  EXTEND82                         ;Can not make directory entry
  11
  12 :class A                                ;COMMON & DEFINED MSGS          ;AN000;
  13 ;-------                                 ------------
  14 :use 01 COMMON1                         ;Incorrect DOS version
  15 :use 02 COMMON14                        ;Cannot %1 a SUBSTed or ASSIGNed drive
  16 :use 03 COMMON21                        ;Invalid characters in volume label
  17 :use 04 COMMON33                        ;Volume in drive %1 has no label
  18 :use 05 COMMON34                        ;Volume in drive %1 is %2
  19 :use 06 COMMON35                        ;Vol label (11 chars, ENTER for none)?
  20 :use 07 COMMON36                        ;Volume Serial Number is %1-%2
  21 :use 08 COMMON12                        ;Cannot %1 a network drive
  22 :def 09 CR,LF,"Delete current volume label (Y/N)?"                      ;AN001;
  23 :use 10 COMMON38                        ;CR,LF                          ;AN001;
  24
  25 :end                                    ;END UTIL                       ;AN000;
  26 \1a