1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
;RECOVER Utility
;Message Service Routine
:util RECOVER ;BEGIN UTIL
:class A ;EXTENDED ERRORS
;------- ---------------
:def 2 CR,LF,"File not found",CR,LF ;File not found
;COMMON & DEFINED MSGS
;------- ------------
:def 3 CR,LF,"Cannot RECOVER an ASSIGNED or SUBST'd drive",CR,LF
:def 4 CR,LF,"Invalid drive or file name",CR,LF
:def 5 CR,LF,"Warning - directory full",CR,LF
:def 6 CR,LF,"Cannot RECOVER a Network Drive", CR,LF ;Cannot %1 a Network drive
;:def 7 CR,LF,"Recover not available on drive %1",CR,LF
:def 8 CR,LF,"%1 file(s) recovered",CR,LF
:def 9 CR,LF,"%1 of %2 bytes recovered",CR,LF
;:use COMMON28 ;Press any key... ;AC000;bgb
: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
:def 11 CR,LF,"Can not read file allocation table",CR,LF
:def 12 CR,LF,"Can not write file allocation table",CR,LF
:def 13 CR,LF
:use 14 extend8 ;insufficent memory ;an013;bgb
:end ;END UTIL
|
