#ffffff" size="3"><b>&nbsp;
Example Code
</b></font></td></tr>
</table>
<font face="Verdana" size="2">
<pre>
cls<BR>
open to write 1,"data.dat"<BR>
if file open(1)=1<BR>
write dirblock 1,"pathfile.dat"<BR>
endif<BR>
close file 1<BR>
wait 1000*8<BR>
open to read 1,"pathfile.dat"<BR>
if file open(1)=1<BR>
read dirblock 1,"pathfile.dat"<BR>
endif<BR>
close file 1<BR>
do<BR>
loop<BR>
end<BR>
</pre>
</font>
<!-- See Also -->
<table width="590" cellpadding="3">
<tr><td bgcolor="#0d4283"><font color="#ffffff" size