//****************************************************
// Compuserve Logon Script Version 1.8    11.04.95
//****************************************************
01,A,"#ENTER","Connecting",02,02            // send <cr> to wake up Compuserve  
02,W,5,3,1,"$HOSTNAME",08,"PORTS BUSY",99,"NO CARRIER",99                   // wait for the host name prompt, else another CR 
03,A,"#ENTER","Connecting",04,04            // another <CR> last one not seen?  
04,W,5,6,1,"$HOSTNAME",08,"PORTS BUSY",99,"NO CARRIER",99                   // wait again
05,W,1,6,1," ",6                            // dummy
//
06,A,"#ENTER","Connecting",07,07            // send yet another <cr> to wake up Compuserve
07,W,30,99,1,"$HOSTNAME",08,"PORTS BUSY",99                 // wait for the host name prompt 
08,A,"%GOHOST","Connecting",09,09           // ouput our host required       
09,W,30,99,1,"$GETUSERNAME",10,"Host Unresponsive",99,"Host Unavailable",99  // wait for User name prompt
10,A,"?USERNAME","Sending Username",11,11   // send User Name
//
11,W,30,99,1,"$GETPASSWORD",12              // wait for Password prompt
12,A,"?PASSWORD","Validating...",13,13      // send our password
//
13,W,30,99,1,"$PASSERROR",20,"![c",14,       // check for Authorization failure
14,A,"![?1;2C","Communicating",15,15        // send our terminal type
15,W,15,16,1,"!7",16                        // wait for ESC 7
16,A,"![24;1R","Communicating",17,17        // send ...
//
17,W,20,99,1,"READY",18                     // wait for the READY prompt, else error exit
18,A,"#VERSION","Initializing",19,19            // send our Version No. V.09 etc
19,A,"?ServerName","Initializing",0,0       // output our server name, usually (null)<cr>
//                                          // exit script
// Here we have a password failure
// present the dialog box and retry the password
20,A,"%PASSWORD","Input Password",21,21     // get the new Username & Password from the user
21,A,"#ENTER","Input Password",22,22
22,W,10,99,1,"$GETUSERNAME",23	            // wait for the Username prompt
23,A,"?USERNAME","Sending Username",24,24   // send User Name
24,W,30,99,1,"$GETPASSWORD",25              // wait for Password prompt
25,A,"?PASSWORD","Validating...",26,26      // send our new password
26,W,10,99,1,"![c",14,"READY",18,"$PASSERROR",99// check for Authorization failure, Exit 99 if failure
END				            //  .. or go rejoin main script


