home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 August / CHIP_CD_1999_08_PL.iso / software / fax / faxserve5 / disk7 / TYMNET.SC_ / TYMNET.bin
Encoding:
Text File  |  1996-12-17  |  575 b   |  31 lines
  1. {tymnet.SCP}
  2.  
  3.  
  4. trace(0)
  5. :start
  6.     @c=1
  7.     typecr("Select the Tymnet Record ID...")
  8.     selpbk(default)
  9.     select(Tymnet)
  10.     if ( @mode <> 1 ) @mode = 1     { set it to call mode }
  11.     docomm
  12.  
  13. :loop1 
  14.     twait(1,"sec");
  15.     if ( @conn = 0 ) goto :abort     { abort if disconnected }
  16.     if ( @conn = 1 ) goto :done      { continue on if connected }
  17.     goto :loop1  
  18.  
  19.  :done
  20.     twait(5,"sec")
  21.     "o"
  22.     cwait("please log in:")
  23.     "delphi$0D"
  24.     cwait("Username:")
  25.     "xxx$0D"
  26.     cwait("Password:")    
  27.     "yyy$0D" 
  28.  
  29. :abort
  30.     exit
  31.