Questel-Orbit

A Member of the France Telecom Group. Offices in Washington, Paris, London and Sydney.

Questel-Orbit is an international online information company specializing in patent, trademark, scientific, chemical, business and news information.

Connecting to Questel-Orbit through STN Express

\*
\*              SprintNet for QUESTEL
\*

  _ec = 0
  _rate = 2400
  _counter = 10

  echo " "
  echo "*"
  echo "*  Connecting through SPRINTNET"
  echo "*"

  IF _$baud = _rate or _$baud = 9600
    BEGIN
      pause 1 second
      send "@" NOCR
      pause 1 second
      send "D"
    END
  ELSE
    BEGIN
      pause 1 second
      SEND "[CR]" NOCR
      pause 1 second
      SEND "[CR]" NOCR
    END

@a10

  pause 1 second

    wait 
      for "TERMINAL="      goto @a30
      for "NO CARRIER"     goto @a985
      for "@"              goto @a40
      for 5 seconds tryagain 5 times then goto @a710

@a30

  send "d1"
    wait
      for "NO CARRIER"     goto @a985
      for "@"              goto @a40
      for 10 seconds       goto @a710

@a40

send "c qstl"				
    
@a100
    wait
      for "INVALID USER ID"       goto @a760
      for "REFUSED COLLECT"       goto @a760
      for "REFUSED"               goto @a730
      for "NOT RESPONDING"        goto @a730
      for "NOT REACHABLE"         goto @a780
      for "REJECT"                goto @a780
      for "NO CARRIER"            goto @a985
      for "CONNECTED"             goto @a120
      for "QUESTEL"               goto @a120
      for "ILLEGAL"               continue
      for "Choix ?"		  continue
      for 10 seconds tryagain 3 times goto @a710

@a120

    exit

@a400

  wait
    for "PASSWORD"   continue
    for 20 seconds   goto @a710


  wait
    for "@"          continue
    for 20 seconds   goto @a760

return



@a710

  _error = "There is no response from SprintNet."
  goto @a990

@a720

  _error = "This is an invalid service."
  goto @a990

@a730

  _error = "This service is not available through SprintNet."
  goto @a990

@a760

  _error = "The Network User ID and/or Password were rejected."
  goto @a990

@a780

  _error = "This service is currently unavailable through SprintNet."
  goto @a990

@a985

  _error = "No carrier signal was detected."

@a990

  _ec = 21
  echo " "
  echo "_error"

  exit