/* Auto Logon for Extro (A Unix Dialup) */

/* This is a good example of making X-Comm log onto a BBS */

Address "X-Comm"                       /* Tell ARexx you want talk to X-Comm */
options results

LOOK1 = "host:"                        /* Setup strings we want to look for */
LOOK2 = "login:"
LOOK3 = "Password:"

XString "\n\r"                         /* Pass this string through X-Comm parser */
                                       /* Note use of Auto-Inserts */
XSerialPrint result                    /* Send result to the serial port */

XWaitString LOOK1 10                   /* Look for "host:" within 10 second limit */
If result  == LOOK1 then do
        XString "extro\n\r"            /* Parse "extro" through parser */
        XSerialPrint result            /* Send result to the serial port */ 

        XWaitString LOOK2 10           /* Look for "login:" within 10 second limit */
        If result == LOOK2 then do
                XString "username\n\r" /* Parse "username" through parser */
                XSerialPrint result    /* Send result to serial port */

                XWaitString LOOK3 10   /* Look for "Password:" within 10 second limit */
                If result == LOOK3 then do
                        XString "password\n\r"  /* Parse "password" through parser */
                        XModemPrint result      /* Send result to serial port */
                end
        end
end

exit                                   /* Exit and tidy up nicely */