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

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

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

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

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

                 fclose(handle1)
                 fclose(handle2)

  Note:     This example takes an ascii text file and converts
            it to EBCDIC for uploading to a mainframe.