diff options
Diffstat (limited to 'v4.0/src/CMD/BACKUP/BACKUP.SKL')
| -rw-r--r-- | v4.0/src/CMD/BACKUP/BACKUP.SKL | 52 |
1 files changed, 52 insertions, 0 deletions
diff --git a/v4.0/src/CMD/BACKUP/BACKUP.SKL b/v4.0/src/CMD/BACKUP/BACKUP.SKL new file mode 100644 index 0000000..c083c25 --- /dev/null +++ b/v4.0/src/CMD/BACKUP/BACKUP.SKL | |||
| @@ -0,0 +1,52 @@ | |||
| 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 | ;========================================================== | ||