$
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$
$   This is an example of using the &FILE command.
$
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$
$***************************************         basic stuff
$
&device -g_default device
&dimen -dimen feet kips
&default -depth 100
$
$***************************************         writing file
$
&cutype Testing File Read/Write
&type Writting file
&type =============
&file open -type test  -name cow
&file write test hi there
&file write test another line
&file write test last line
&file close test keep
$
$***************************************         reading file
$
&type Reading  file
&type =============
&file open -type test  -name cow
&loop
    &exit &f_read(test cow)
    &type <%cow%>
&endloop
$
$***************************************         copying file
$
&type Copying  file
&type =============
&file cp cow dog
&file close test delete
&file open -type test  -name dog
&loop
    &exit &f_read(test cow)
    &type %cow
&endloop
&file close test delete
$
$***************************************         all done
$
&fini