Click above to get retro games delivered to your door ever month!

  Name:     ferase() - erase a file
  Usage:    <logical> = ferase(<filename>)
  Params:   string <filename> - file to erase
  Returns:  logical .T. if the file was erased, .F. if not or error

 ---------------------------------- Example ---------------------------------

                 @ 10,00 say "Enter file name to erase:" get fname
                 read

                 if .not. ferase(fname)
                      @ 0,0 say "couldn't erase file &fname"
                 endif