v4.0/src/CMD/RESTORE/RESTORE.SKL

   1 ;==========================================================
   2
   3 :util   RESTORE                                         ;AN000;
   4
   5 ;---------
   6 :class  A
   7 ;---------                                                      ;AN000;
   8 :use 1   COMMON1                                                ;AN000; ;For "Incorrect DOS version
   9 :def 2   CR,LF,"Source and target drives are the same",CR,LF    ;AN000;
  10 :def 3   CR,LF,"Invalid number of parameters",CR,LF             ;AN000;
  11
  12 :use 5   COMMON25                                               ;AN000;  ;For  "Invalid path
  13 :def 6   CR,LF,"Invalid drive specification",CR,LF              ;AN000;
  14 :def 7   CR,LF,"Warning! No files were found to restore",CR,LF  ;AN000;
  15 :def 8   CR,LF,"Insert backup diskette %1 in drive %2:",CR,LF   ;AN000;
  16 :def 9   CR,LF,"Insert restore target in drive %1:",CR,LF       ;AN000;
  17 :use 10  COMMON28                                               ;AN000;  ;For "Press any key to continue . . .",CR,LF
  18 :def 11  CR,LF,"Warning! Diskette is out of sequence",CR,LF     ;AN000;
  19          "Replace diskette or continue if okay",CR,LF           ;AN000;
  20
  21 :def 12  CR,LF,"The last file was not restored",CR,LF           ;AN000;
  22 :def 13  CR,LF,"*** Files were backed up %1 ***",CR,LF          ;AN000;
  23 :def 14  CR,LF,"Source does not contain backup files",CR,LF     ;AN000;
  24 :def 15  CR,LF,"Insufficient memory",CR,LF                      ;AN000;
  25 :def 16  CR,LF,"Warning! File %1",CR,LF                         ;AN000;
  26          "is a read-only file",CR,LF                            ;AN000;
  27          "Replace the file (Y/N)?"                              ;AN000;
  28
  29 :def 17  CR,LF,"Restore file sequence error",CR,LF              ;AN000;
  30 :def 18  CR,LF,"File creation error",CR,LF                      ;AN000;
  31 :def 19  CR,LF,"Insufficient disk space",CR,LF                  ;AN000;
  32 :def 20  CR,LF,"*** Not able to restore file ***",CR,LF         ;AN000;
  33 :def 21  CR,LF,"*** Restoring files from drive %1: ***",CR,LF   ;AN000;
  34 :def 22  CR,LF,"Warning! File %1",CR,LF                         ;AN000;
  35          "was changed after it was backed up",CR,LF             ;AN000;
  36          "Replace the file (Y/N)?",CR,LF                        ;AN000;
  37
  38 :def 23  "Diskette: %1",CR,LF                                   ;AN000;
  39
  40 :use 27  COMMON23                                               ;AN000; ;For  "Invalid date
  41 :use 28  COMMON24                                               ;AN000; ;For  "Invalid time
  42 :use 29  COMMON26                                               ;AN000; ;For  "No source drive specified
  43 :use 30  COMMON27                                               ;AN000; ;For  "No target drive specified
  44 :def 31  CR,LF                                                  ;AN000;
  45 :end                                                            ;AN000;
  46 ;==========================================================