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

  Name:     ebctoascii() - convert an EBCDIC string to ascii
  Usage:    <string> = ebctoascii(<string>)
  Params:   string <string> - the string to convert
  Returns:  a string equal to the parameter <string> converted to
            ascii characters

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

                 handle1 = fopen("EBCTEXT.TXT")
                 handle2 = fcreate("ASCTEXT.TXT")

                 do while ! feof(handle1)
                      temp = freadline(handle1)
                      temp = ebctoascii(temp)
                      fwriteline(handle2,temp)
                 enddo

                 fclose(handle1)
                 fclose(handle2)

  Note:     This example takes an EBCDIC text file and converts
            it to ascii for reading by Clipper.