4 lines
181 B
Text
4 lines
181 B
Text
NB. =========================================================
|
|
NB.*ferase v erases a file
|
|
NB. Returns 1 if successful, otherwise _1
|
|
ferase=: (1!:55 :: _1:) @ (fboxname &>) @ boxopen
|