; Compuserve auto logon using session strings                                 

OPEN("compuser.WSF","",1)

START

DO UNTIL(ONLINE?==1)

i = TIME? + 2
DO UNTIL(TIME?>i)

times = 0
SEND("^C")

AGAIN:
PROMPT
  PSTR(2,1,"^^C")
  PWAIT(2,200)
PEND
DO i=PROMPT? UNTIL(i !=0)

IF(i == 1)GOTO NEXT
IF(i == 2)SEND("^C")
times = times+1
IF(times > 1){
  ALERT("Compuserve Logon Unsuccessful.  Try again later.")
  HALT
}
GOTO AGAIN

SEND("^C")

NEXT:

PROMPT
  PSTR(2,1,"ID:")
  PSTR(2,2,"Password")
  PSTR(2,3,"Copyright")
  PWAIT(4,3000)
PEND

DO i=PROMPT? UNTIL(i !=0)

IF(I == 1){
SEND(GETSESSSTR(4)+"^M")
GOTO NEXT
}
IF(I == 2){
SEND(GETSESSSTR(3)+"^M")
GOTO NEXT
}
IF(I == 3){
text$ = "Now connected to compuserve"
HALT
}
IF(I == 4){
  ALERT("Compuserve Logon Unsuccessful.  Try again later.")
  HALT
}

END