{
{  The purpose of this request is to write data to a file opened as
{        cyc$binary_file.  The data is written to the current position of the
{        file.
{
{
{        CYP$PUT_NEXT_BINARY (BINARY_FILE, POINTER_TO_SOURCE, FILE_KEY,
{              STATUS)
{
{
{  BINARY_FILE: (input) This parameter names the binary file to be written to.
{
{  POINTER_TO_SOURCE: (input) This parameter specifies the data to be written.
{
{  FILE_KEY: (output) This parameter returns the "file cell address" at which
{        the write started.
{
{  STATUS: (output) This parameter specifies the request status.
{        CONDITIONS:
{              cye$file_not_open
{              cye$illegal_operation
{              cye$illegal_output_request
{
