v4.0/src/CMD/BACKUP/BACKUP.SKL

   1 ;==========================================================
   2
   3 :util   BACKUP                                          ;AN000;
   4
   5 ;---------
   6 :class  A
   7 ;---------
   8 :use 1   COMMON1                                        ;AN000; ;For "Incorrect DOS version
   9 :def 2   CR,LF,"Insufficient memory",CR,LF              ;AN000;
  10 :def 6   CR,LF,"Invalid drive specification",CR,LF      ;AN000;
  11 :use 7   COMMON23                                       ;AN000; ;For  "Invalid date
  12 :use 8   COMMON24                                       ;AN000; ;For  "Invalid time
  13
  14
  15 :use 11  COMMON25                                       ;AN000; ;For  "Invalid path
  16
  17 :use 12  COMMON26                                       ;AN000; ;For  "No source drive specified
  18 :use 13  COMMON27                                       ;AN000; ;For  "No target drive specified
  19 :def 14  CR,LF,"Source and target drives are the same",CR,LF ;AN000;
  20 :def 15  CR,LF,"Error executing FORMAT",CR,LF           ;AN000;d178
  21 :def 16  CR,LF,"Cannot find FORMAT.COM",CR,LF           ;AN000;d178
  22 :def 17  CR,LF,"Error opening logfile",CR,LF            ;AN000;
  23 :def 18  CR,LF,"Logging to file %1",CR,LF               ;AN000;
  24 :def 19  CR,LF,"Last backup diskette not inserted",CR,LF ;AN000;
  25
  26 :def 20  CR,LF,"Warning! Files in the target drive",CR,LF ;AN000;
  27          "%1:\ root directory will be erased",CR,LF       ;AN000;
  28
  29 :def 21  CR,LF,"Warning! Files in the target drive",CR,LF ;AN000;
  30          "%1:\BACKUP directory will be erased",CR,LF      ;AN000;
  31
  32 :def 22  CR,LF,"*** Backing up files to drive %1: ***",CR,LF  ;AN000;
  33 :def 23  "Diskette Number: %1",CR,LF                          ;AN000;
  34 :def 24  CR,LF,"Warning! No files were found to back up",CR,LF ;AN000;
  35 :def 25  CR,LF,"Insert backup source diskette in drive %1:",CR,LF ;AN000;
  36
  37 :def 26  CR,LF,"Insert backup diskette %1 in drive %2:",CR,LF     ;AN000;
  38 :def 27  CR,LF,"*** Not able to backup file ***",CR,LF            ;AN000;
  39 :def 28  CR,LF,"Insert last backup diskette in drive %1:",CR,LF   ;AN000;
  40
  41 :def 29  CR,LF,"Target can not be used for backup",CR,LF          ;AN000;
  42 :def 30  CR,LF,"*** Last file not backed up ***",CR,LF            ;AN000;
  43 :def 31  CR,LF,"Fixed backup device %1: is full",CR,LF            ;AN000;
  44
  45 :def 32  CR,LF,"Disk full error writing to BACKUP Log File",CR,LF ;AN000;
  46                                                                   ;AN000;
  47 :use 33  COMMON28                                       ;AN000; ;For  "Press any key to continue . . .
  48 :def 34  CR,LF                                                    ;AN000;
  49 :def 35  CR,LF,"Cannot FORMAT nonremovable drive %1:",CR,LF       ;AN000;
  50
  51 :end                                                              ;AN000;
  52 ;==========================================================