home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Spezial / SPEZIAL2_97.zip / SPEZIAL2_97.iso / ANWEND / ONLINE / TE2_134T / te2inst.003 / GEnie.scr < prev    next >
Text File  |  1997-07-03  |  1KB  |  35 lines
  1. ; ---------------------------------------------------------------------
  2. ;
  3. ;  TE/2 Script Language
  4. ;   Copyright 1990-94, Oberon Software, Mankato, MN
  5. ;
  6. ;   Script for automated logon to
  7. ;       GEnie (the General Electric Network for Information Exchange)
  8. ;
  9. ; ---------------------------------------------------------------------
  10. ; login string should have atleast "userid,password", it may optionally
  11. ; be of the form: "userid,password,first_menu".  For instance,
  12. ; "xxx99999,password,615" will take you immediately to the IBMPC area.
  13.  
  14. string login = "xxx99999,password"
  15.  
  16. ; ---------------------------------------------------------------------
  17.  
  18. program
  19.  
  20.   if !connected                 ; !connected implies that we were NOT called
  21.     dial("GEnie")               ; from the dialing directory, so go ahead
  22.   endif                         ; and dial up GEnie
  23.  
  24.   if connected                  ; If we got a connect
  25.     transmit("HHH")             ; Send synchronization sequence to GEnie
  26.     if muxwait("/U#=/Uú╜/", 60) ; and wait for the login prompt
  27.       transmit("%s^M", login)   ; tell them who we are
  28.     else
  29.       hangup(IFCARRIER)         ; This will ask the user if s/he wants to
  30.     endif                       ; hang up because we never found the
  31.   endif                         ; login prompt but we are still connected.
  32.   end
  33.  
  34.  
  35.