zipcon.net/www.zipcon.net.tar/www.zipcon.net/pub/win31/allfiles/login.cmd

OS/2 REXX Batch file | 1996-05-25 | 1KB | 67 lines

#trace on
#
if ![load $number]
  if [query $number "Call wait # (one space for none)"]
    save $number
  end
end
if ![load $init]
  if [query $init "Enter modem init (AT&F&K3 usually works)"]
    save $init
  end
end
if ![load $username]
  if [username "Enter your login username"]
    save $username
  end
end
if ![load $pass]
  if [query $pass "Enter your login password"]
    save $pass
  end
end

%attempts = 10

DISPLAY \n
DISPLAY \n
DISPLAY ======= Now dialing Zipnet, press ESC to abort ==========\n
DISPLAY \n
DISPLAY \n
#
# initialize modem
#

OUTPUT ATZ\13
input 10 OK

OUTPUT $init\13
#input 10 OK
sleep 2

#
# send phone number
#
%n = 0
repeat
  if %n = %attempts
    DISPLAY ======== Too many dial attempts =========\n
    DISPLAY ======== sorry, try again later =========\n
    abort
  end
  output "atdt"$number",524-7696"\13
  %ok = [input 60 CONNECT]
  %n = %n + 1
until %ok

#
# send username and password
#
input 30 gin:
output P$username\13
input 60 word:
output $pass\13
sleep 1
ONLINE
sleep 1