home *** CD-ROM | disk | FTP | other *** search
/ Chip 1995 March / CHIP3.mdf / demo / bitware / disk2 / mci.sc$ / mci.sc$
Encoding:
Text File  |  1995-06-28  |  803 b   |  32 lines
  1. {MCI.SCP}
  2.  
  3. { Before use this script, you should change the MCI phone number }
  4. { and some setings from phone book, the record is MCI }
  5. {This is a logon file for accessing MCI Mail, the increasingly popular}
  6. {E-mail service.  Replace "xxx"s and "yyy"s in file below as indicated.}
  7.  
  8. trace(0)
  9. :start
  10.     @c=1
  11.     typecr("Select the MCI Record ID...")
  12.     selpbk(default)    
  13.     select(MCI)
  14.     if ( @mode <> 1 ) @mode = 1     { set it to call mode }
  15.     twait(1,"sec")    
  16.     docomm
  17.  
  18. :loop1 
  19. {    twait(1,"sec"); }
  20.     if ( @conn = 0 ) goto :abort     { abort if disconnected }
  21.     if ( @conn = 1 ) goto :done      { continue on if connected }
  22.     goto :loop1  
  23.  
  24.  :done
  25.     cwait("Please enter your user name: ")
  26.     "xx$0D"
  27.     cwait("Password: ")
  28.     "yyy$0D"
  29.  
  30. :abort
  31.     exit
  32.