@echo 0 ;%%Delphi via Sprintnet
@echo 0
@rem ******************************************************************
@rem ****                                                         *****
@rem ****   This script logs on to Delphi via Sprintnet           *****
@rem ****   Grateful acknowledgements and thanks to Cary Camden.  *****
@rem ****                                                         *****
@rem ****                                                         *****
@rem ******************************************************************

@board 0
@rem ***dial using dial.scr
<dial.scr

@rem **** connects to Sprintnet, and then to Delphi****
@echo     "\r\n ****  Please wait, connecting to Sprintnet ****\r\n"

@wait 3
@send "\@"
@wait 1
@send "D"
@wait 1
@send "\r"
@wait "TELENET" 20
@wait "TERMINAL=" 20
@send "\r"
@rem  wait 5
@send "C DELPHI\r" 
@wait "DELPHI CONNECTED" 25

@rem *****************************************************
@rem ***  Execute the login procedure                   **
@rem *****************************************************

@if "%HostLoginName%" != ""
@:RetryLogin
@   if "%NetworkScript%" == "manual.scn"
@       wait "sername:"   ; If manual network connect, don't prompt or timeout for login
@   else
@       echo "\r\n** Logging in...\r\n"
@       if not @wait "sername:" 40    
@           echo "\r\n** Error(delphspr.scc): error - Host Login Prompt not received\r\n"
@           send "\r"
@           goto RetryLogin
@       endif
@   endif
@   send "%HostLoginName%\r"
@   if not @wait "\n" 40
@      echo "\r\n** Error(delphspr.scc): No response to Host Login Name\r\n"
<
@   endif
@   if "%HostPassword%" != ""
@       if not @wait "assword:" 30  ; e.g. "Password:" or "password:"
@           echo "\r\n** Error(delphspr.scc): Host Password prompt not received\r\n"
<
@       endif
@       send "%HostPassword%\r"
@       if not @wait "\n" 40
@           echo "\r\n** Error(delphspr.scc): No response to Host Password\r\n"
<
@       endif
@   else
@       rem ** We need to synchronize around the password **
@       echo "\r\n** Automated login script will resume after you enter your password\r\n"
@       if not @wait "assword:" 40
@          echo "\r\n** Error(delphspr.scc): Host password prompt not received\r\n"
<
@       endif
@       passwordEntry 1
@       wait "\n" 
@       passwordEntry 0
@   endif ; HostPassword
@else 
@   if "%NetworkScript%" != "manual.scn"  ; No prompts if manual network connect
@       echo "\r\n** Automated login script will resume after login is complete\r\n"
@   endif
@   wait "sername:"
@   wait "assword:"
@   passwordEntry 1
@   wait "\n"
@   passwordEntry 0
@endif ; HostLoginName


@rem ***************************************************
@rem *** Go from MAIN Prompt to Internet Conference ****
@rem ***************************************************

@delphifix 1 ; // Ignore LFs, CR -> CR+LF.

@wait "MAIN>What do you want to do? "

@send "/busy\r"    ;disables confernce messages
@wait "MAIN>What do you want to do? "

@send "/prompt=brief\r"
@wait "MAIN>What do you want to do? "

@send "/width 255\r"
@wait "MAIN>What do you want to do? "

@send "/echo HOST\r"
@wait "MAIN>What do you want to do? "


@send "go Int telnet %FibsInternetAddress% %FibsTelnetPort%\r"

<fibslogn.scr