;===========================================================================
;
;  This script will log you onto Delphi automatically. It is not to be
;  used if you are on the 20/20 Advantage Plan.
;
;===========================================================================
;===========================================================================
;
;  The following 3 defines should be cutomized with the dialing entry for
;  your local Delphi number,your Delphi Username, and your Delphi Password.
;  The rest of the script should need no modification..............
;
;  NOTE: this script is only for 1200 and 2400 Baud Modem Settings...
;        to log on 300 Baud the waitfor "p " statement must be changed..
;
;===========================================================================

define Delphi_Number  "4"         ;Make sure entry is E,7,1 Full Duplex
define USERNAME "JohnDoe"         ;Enter your Username here
define PASSWORD "xyz123"          ;Enter you Password here

proc main                         ;Start Main Procedure
   clear                          ;Clear screen
   locate 0 0                     ;Locate cursor at 0,0
   box 0 0 4 30 14                ;Draw a box
   atsay  2 2 14 "Logging onto DELPHI...!!!!! "

   if not fromddir                ;If not called via Dial Dir. Link
       dial Delphi_Number         ;Use Dialing Dir. for Delphi Number
   endif

   waitfor "ppp "

   transmit "a "                  ;Transmit identifier
   waitfor "Please log in: "      ;Wait for login  to come to comm port
   Pause 1                        ;Pause for 1 sec
   transmit "Delphi^M "           ;Transmit login...
   waitfor "Username: "           ;Wait for Username to come to comm port
   Pause 1                        ;Pause or 1 sec
   transmit USERNAME              ;Transmit Username
   transmit "^M"                  ;Transmit carriage return
   waitfor "Password: "           ;Wait for Password to come to comm port
   Pause 1                        ;Pause for 1 sec
   transmit PASSWORD              ;Transmit user Password
   transmit "^M"                  ;Transmit carriage return
endproc                           ;End of Main Procedure