diff options
Diffstat (limited to 'v4.0/src/CMD/RECOVER/RECOVER.SKL')
| -rw-r--r-- | v4.0/src/CMD/RECOVER/RECOVER.SKL | 29 |
1 files changed, 29 insertions, 0 deletions
diff --git a/v4.0/src/CMD/RECOVER/RECOVER.SKL b/v4.0/src/CMD/RECOVER/RECOVER.SKL new file mode 100644 index 0000000..ee8fcdf --- /dev/null +++ b/v4.0/src/CMD/RECOVER/RECOVER.SKL | |||
| @@ -0,0 +1,29 @@ | |||
| 1 | ;RECOVER Utility | ||
| 2 | ;Message Service Routine | ||
| 3 | |||
| 4 | :util RECOVER ;BEGIN UTIL | ||
| 5 | |||
| 6 | :class A ;EXTENDED ERRORS | ||
| 7 | ;------- --------------- | ||
| 8 | :def 2 CR,LF,"File not found",CR,LF ;File not found | ||
| 9 | |||
| 10 | |||
| 11 | ;COMMON & DEFINED MSGS | ||
| 12 | ;------- ------------ | ||
| 13 | :def 3 CR,LF,"Cannot RECOVER an ASSIGNED or SUBST'd drive",CR,LF | ||
| 14 | :def 4 CR,LF,"Invalid drive or file name",CR,LF | ||
| 15 | :def 5 CR,LF,"Warning - directory full",CR,LF | ||
| 16 | |||
| 17 | :def 6 CR,LF,"Cannot RECOVER a Network Drive", CR,LF ;Cannot %1 a Network drive | ||
| 18 | ;:def 7 CR,LF,"Recover not available on drive %1",CR,LF | ||
| 19 | :def 8 CR,LF,"%1 file(s) recovered",CR,LF | ||
| 20 | :def 9 CR,LF,"%1 of %2 bytes recovered",CR,LF | ||
| 21 | |||
| 22 | ;:use COMMON28 ;Press any key... ;AC000;bgb | ||
| 23 | :def 10 CR,LF,"Press any key to begin recovery of the",CR,LF,"file(s) on drive %1",CR,LF,CR,LF ;AN000;bgb | ||
| 24 | :def 11 CR,LF,"Can not read file allocation table",CR,LF | ||
| 25 | :def 12 CR,LF,"Can not write file allocation table",CR,LF | ||
| 26 | :def 13 CR,LF | ||
| 27 | :use 14 extend8 ;insufficent memory ;an013;bgb | ||
| 28 | :end ;END UTIL | ||
| 29 | \ No newline at end of file | ||