main: print Setting up modem and dialing. # Modem Port port cua0 # Port Baud Rate speed 38400 # It's safe to leave this one go. modem HAYES # Turn echo on to see everything as it happens (good for debugging) echo on # Initialize modem send ATZ\r wait OK 2 # Dial Netaxs dial 7316100 print Connected. Logging into the system. login: sleep 2 # Wait for the "What do you want to do?" prompt. It seems some other(tm) # annexes send something like [member,slip,cpcn,bbs,ppp,exit]: (wrong order, # I know, but you get the idea). In that case, you will need to change the # '?' in the below line to a ':' or ']:', or whatever other string is at the # very end of the string sent to you. wait ? 20 if $errlvl != 0 goto login_error send slip\n # When selecting slip, the system sends 'Username:', not 'login:' wait ername: 20 if $errlvl != 0 goto login_error # Put your username here. send Your_UserName_Goes_Here\n wait assword: 20 if $errlvl != 0 goto login_error # Put your password here. send This_Is_My_Password\n print Logged in, establishing connection. # Grab remote and local IP addresses. get $rmtip remote get $locip remote loggedin: # Set up SLIP parameters. get $mtu 1006 default print CONNECTED $locip --> $rmtip # Netaxs SLIP lines are CSLIP. mode CSLIP goto exit login_error: print Error logging in! goto error error: print ** CONNECT FAILED *** print Could not connect to remote system. exit: