Files (work in progress)

Commentary Code Result
Commentary #ns => @;
'c:\glee\user\test'#fc.purge %**$;
'a:\xyz'#fc:purge %**$;
Seq[I222R1C0T:K]:
Seq[I269R1C0T:K]:
Commentary #ns => @;
'c:\glee\test'#fc:purge$;
[0^2:23]
'c:\glee\test'#fc:purge$;
                      ^
Value error
Rooted on: c:\glee\test\
Need Root: c:\glee\user\ or removable
:C:\CPPProjs\Interpreter\KFCtxt.cpp[318]
Commentary #ns => @;'c:\glee\user\test'#fc =>fc;
fc:purge;
'<1>' $;
'open.txt'#file fc =>fOP;
fOP:create;fOP:props$;
'<2>'$;
'closed.txt'#file fc =>fCL;
fCL:create;fCL:props$;
'<3>'$;
fCL %>;fCL:props$;
'<4>' (fc:purge %**) $;
<1>
D[R]; PPos[1]; B[Y]; E[Y]; Pos[1]; NE[0];O[W];Hnd[1916];RO[N]
<2>
D[R]; PPos[1]; B[Y]; E[Y]; Pos[1]; NE[0];O[W];Hnd[1928];RO[N]
<3>
D[X]; PPos[0]; B[Y]; E[Y]; Pos[0]; NE[0];O[C];Hnd[0];RO[Y]
<4>Seq[R2C1:K]
[1]String[R1C26:C]c:\glee\user\test\open.txt
Commentary #ns => @;'c:\glee\user'#fc =>root;
'test'#fc => fc;root,fc :purge;
'temp.txt'#file (root,fc)=>f;
f:create;
'<1>'$;
"Now is the time"=>[]f;f[]$;
'<2>'$;
"For all good men"=>[]f;f[]$;
<1>
Now is the time
<2>
For all good men
Commentary #ns => @;'c:\glee\user'#fc =>root;
'test'#fc => fc;root,fc :purge;
'temp.txt'#file (root,fc)=>f;
f.create; 13 #asc =>n;
'<1>'$;
"Now is the time" ->>f;f[]$;
'<2>'$;
n"For all good men" %* ->>f;f[]$;
<1>
Now is the time
<2>
Now is the time
For all good men
Commentary 'c:\glee'#fc =>fb;
'website\bases'#fc =>fw;
'gbfile.htm'#file(fb,fw)=>f; f @<-;
f[_5..20+(f `->>&"file")]:hex $;
uage: Files Base</TITLE>..
76663246667246763254544300
5175A069C5302135CF494C5EDA