Table of Contents
Advertisement
340 IF NAME2$(1,1)<>"Y" THEN
360
350
XIO
33,#1,0,0,FILE$
360
RETURN
398 REM
LOCK
FILE WITH
XIO
35
400
•
"ENTER
FILENAME
TO
LOCK IN
THIS
FORM'
D'
FILENRME.EXT"
410 HIPUT F I
LE$
420
XIO
35,#1,0,0,FILE$
430
RETURt·~
498 REM UNLOCK FILE WITH
XIO 36
500
?
"ENTER FILENRME TO
UNLOCK
IN
THIS FORM' D'FILENRME.EXT"
5
H3
H~PUT
F I
LE$
520
XIO
36,#1,0,0,FILE$
530
RETUR~l
Accessing Damaged Files
Files can be damaged in two ways. The disk directory entry
(filename,
directory
pointer,
and the number
of
sectors
in
the file)
can
be damaged
;
or the file itself can be damaged
.
(Formore
information on accessing and repairing damaged files
,
see the
DISKFIX.COM section of Appendix L.)
Should the disk directory entry be damaged
,
there is no way to
access the file. If the disk directory entry was accidentally de-
leted
,
an ERROR
170 (File Not Found) will appear on the screen.
If the
number
of sectors indicated
in
the
d
isk directory entry are
shorter than the actual number of sectors in the
file,
an
ER
ROR
164 (File Number Mismatch) will
appear
on the screen. In the
latter case, you may be able to retrieve that portion of the file that
falls within the
sector
range by initialing the
Get
Byte program
shown
below,
where File
1
= the damaged file and File 2 = the
recovery
file.
10
OPEN
#1,4,
O, "D:
FILE.
1 "
20
OPUl
#2,8,O, "D:
FILE
.2"
25
TRRP
50
3(1
C;ET
#
1, A
40
PUT
#2,P.
45
GOTO
3(1
50 CLOSE
#1
60 CLOSE
#2
79
Advertisement
Table of Contents
