/*
Copyright (C) Magna Carta Software, Inc. 1988-1991.  All Rights Reserved.
FAX01.C:
1)  Sends one or more FAXes via a CAS-compatible device (e.g. the Intel
Connection CoProcessor (R), or SatisFaxion Card.

NOTE:
    An CAS-compatible fax device must be present in the machine for
    this example to be used.  The target can be any compatible FAX device.
*/

#include <comm.h>
#include <cas.h>


#include <conio.h>

char *logon = "\n\nCopyright (C) Magna Carta Software, Inc. 1989.  All Rights Reserved."
        "\nFAX -- The DOS command line FAX software for the Intel Connection CoProcessor."
        "\nThis program was created with Magna Carta's \"C Communications Toolkit\"."
        "\nMagna Carta Software, Inc."
        "\nP.O. Box 475594"
        "\nGarland, TX  75047"
        "\nVoice: (214) 226-6909,  FAX: (214) 226-0386,  BBS: (214) 226-8088.";

short main(void);

short main(void)
{
    CAS *c;
    short ret;

    fputs(logon, stderr);

    if (!isacas()) {
        fputs("Connection Coprocessor Not Installed", stderr);
        return (EOF);
    }
    c = cas_create_task(CAS_SEND, "Me", "The World", "226-0386",
            todosdate(1990, 4, 9), todostime(3,23,00));
    cas_queue_file(c, CAS_ASCII, CAS_80_COL, "cct00.c", 0, 0);
    cas_queue_file(c, CAS_ASCII, CAS_80_COL, "cct01.c", 0, 0);
    ret = cas_submit_task(c, "temp000.$$$", CAS_200_DPI, "", "Magna Carta Software");
    if (ret < 0) fprintf(stderr, "\nError: Class: %#X, Subcode %#X",
        (-ret >> 8) & 0XFF, -ret & 0XFF);
    else fprintf(stderr, "\nSuccess: CoCo returned event handle %#X\n", ret);

    return (ret);
}