home *** CD-ROM | disk | FTP | other *** search
/ CD Loisirs 26 / CDL26.iso / PLANETPC / WIN311 / ELEMENTS / TWSK20B / LOGIN.CMD < prev    next >
OS/2 REXX Batch file  |  1995-10-09  |  562b  |  36 lines
  1. #trace on
  2. #
  3. # On rΘcupΦre le numΘro α appeler et la chaine d'init dans
  4. # trumpwsk.ini:
  5. #
  6. load $numero
  7. load $init
  8.  
  9. %attempts = 10
  10. #
  11. #
  12. #----------------------------------------------------------
  13. #
  14. # initialisation du modem
  15. #
  16. output $init\13
  17. if ! [input 10 OK\n]
  18.   display "Le modem ne rΘpond pas"\n
  19.   abort
  20. end
  21. #
  22. # numΘrotation
  23. #
  24. %n = 0
  25. repeat
  26.   if %n = %attempts
  27.     display "Trop de tentatives de connexion"\n
  28.     abort
  29.   end
  30.   output "atdt"$numero\13
  31.   %ok = [input 60 CONNECT]
  32.   %n = %n + 1
  33. until %ok
  34. input 10 \n
  35. wait 30 dcd
  36.