Liren Large Software Subsidy 5/05.iso/a/a081/2.ddi/CTFXX.EXE/FOXFAX02.PRG

Text File | 1993-05-12 | 4.5 KB | 123 lines

*.............................................................................
*   Program Name: FOXFAX02.PRG     Copyright: Magna Carta Software, Inc.
*   Date Created: 10-19-91         Language: FoxPro v2.x
*.............................................................................
* Description: Run CAS diagnostics.
*.............................................................................
SET TALK OFF
CLOSE ALL


* Load the right library
foxid = VERS()
IF "2.0" $ foxid
    SET LIBR TO ftf                 && Identified FoxPro 2.0
ELSE
    IF "2.5" $ VERS()
        IF "Windows" $ foxid        && Identified FoxPro 2.5 for Windows
            SET LIBR TO ftfw
        ELSE
            SET LIBR TO ftf25       && Identified FoxPro 2.5 for DOS
        ENDIF
    ENDIF
ENDIF


DO ftfhdr

PUBLIC logon0, logon1, logon2, logon3, logon4, logon5, logon6, logon7, logon8
PUBLIC ret, num_ctl, num_rx

num_ctl = 0
num_rx  = 0

logon0 = "FAXTEST -- The CAS diagnostics program for CAS FAX devices such"
logon1 = "as the Intel Connection CoProcessor and SatisFAXtion card."
logon2 = "This program was created with the CommTools - Fox communications library"
logon3 = "Published by..."
logon4 = "Pinnacle Publishing, Inc."
logon5 = "P.O. Box 8099"
logon6 = "Federal Way, WA 98003"
logon7 = "Voice: [phone],  FAX: [phone],  BBS: [phone]."
logon8 = "------------------------------------------------------------------"

CLEAR                            && clear screen
@ 00, 00 SAY logon0              && print opening screen
@ 01, 00 SAY logon1
@ 02, 00 SAY logon2
@ 03, 00 SAY logon3
@ 04, 00 SAY logon4
@ 05, 00 SAY logon5
@ 06, 00 SAY logon6
@ 07, 00 SAY logon7
@ 08, 00 SAY logon8

@ 09,00 SAY "Test 1: Get Installed State..."
IF isacas() == 0
    @ 10,00 SAY "   CAS-compliant FAX device not installed"
ELSE
    @ 10,00 SAY "   CAS-compliant FAX device found"
    @ 11,00 SAY "Test 2: Run Diagnostics"
    ret = cas_run_diagnostics(1)
    IF ret < 0
        @12, 00 SAY "   Diagnostics could not be started"
    ELSE
        @12, 00 SAY "   CAS diagnostics running"
        @12, 27 SAY CHR(0)
        ret = 64
        DO WHILE ret == 64
            ret = cas_run_diagnostics(0)
            IF ret < 0
                @13, 00 SAY "   Diagnostics failed (Error code " + LTRIM(STR(ret)) + ")"
            ELSE
                IF ret == 64
                   ?? '.'
                ELSE
                   @13, 00 SAY "   Diagnostics passed"
                ENDIF
            ENDIF
        ENDDO
        @14, 00 SAY "Test 3: Get Queue Status"
        @15, 00 SAY "   Subtest 1: Task Queue"
        ret = cas_get_queue_status(CAS_SEND, @num_ctl, @num_rx)
        IF ret < 0
            @16, 00 SAY "       Error("+ UPPER(d2x(abs(ret))) +"h): Unable to obtain task queue status"
        ELSE
            @16, 00 SAY "       Total no. of task queue changes: "+ ALLTRIM(STR(ret))
            @17, 00 SAY "       Total no. of control files     : "+ ALLTRIM(STR(num_ctl))
        ENDIF
        @18, 00 SAY "   Subtest 2: Receive Queue"
        ret = cas_get_queue_status(CAS_RECEIVE, @num_ctl, @num_rx)
        IF ret < 0
            @19, 00 SAY "       Error("+ UPPER(d2x(abs(ret))) +"h): Unable to obtain receive queue status"
        ELSE
            @19, 00 SAY "       Total no. of receive queue changes: "+ ALLTRIM(STR(ret))
            @20, 00 SAY "       Total no. of control files        : "+ ALLTRIM(STR(num_ctl))
            @21, 00 SAY "       Total no. of received files       : "+ ALLTRIM(STR(num_rx))
        ENDIF
        WAIT
        @09, 00 CLEAR TO 24, 79
        @09, 00 SAY "   Subtest 3: Log Queue"
        ret = cas_get_queue_status(CAS_LOG, @num_ctl, @num_rx)
        IF ret < 0
            @10, 00 SAY "       Error(" + UPPER(d2x(abs(ret))) + "h): Unable to obtain log queue status"
        ELSE
            @10, 00 SAY "       Total no. of log queue changes: "+ ALLTRIM(STR(ret))
            @11, 00 SAY "       Total no. of control files    : "+ ALLTRIM(STR(num_ctl))
        ENDIF
        @12, 00 SAY "Test 4: Get Autoreceive State"
        ret = cas_autorx(.F., 0)
        IF ret < 0
            @13, 00 SAY "   Error(" + UPPER(d2x(abs(ret))) +"h): Unable to obtain autoreceive state"
        ELSE
            IF ret == 0
                @13, 00 SAY "   Autoreceive disabled"
            ELSE
                @13, 00 SAY "   Autoreceive enabled to "+ ALLTRIM(STR(ret)) + " rings"
            ENDIF
        ENDIF
    ENDIF
    @23, 00 SAY "Diagnostics Completed"
ENDIF