home *** CD-ROM | disk | FTP | other *** search
/ Mobiclic 13 / MOBICLIC_13.ISO / pc / wanadoo / insta_pc / sos / wanakm15.scp < prev   
Text File  |  1998-12-30  |  385b  |  23 lines
  1. proc main
  2. integer nTries = 3
  3. string szSer = "Ser?"
  4. string szFTI = "WANADOO"
  5. integer nLoginTimeout = 3
  6. while 0 < nTries do
  7. waitfor szSer then DoConnectFTI
  8. until nLoginTimeout
  9. TryAgain:
  10. transmit "^M"        ; ping
  11. nTries = nTries - 1
  12. endwhile
  13. goto BailOut
  14. DoConnectFTI:
  15. transmit szFTI, raw
  16. transmit "^M"
  17. goto Done
  18. BailOut:
  19. set screen keyboard on
  20. halt
  21. Done:
  22. endproc
  23.