home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 June / SIMTEL_0692.cdr / msdos / kermit / msiibm.arc / CUNIXC.SCR < prev    next >
Encoding:
Text File  |  1989-01-20  |  1.1 KB  |  35 lines
  1. ; MS-DOS Kermit script for logging in to CUNIXC
  2. ; through the IBM/Rolm CBX using a 120D, 240D, or
  3. ; 400D phone, or a 244PC which has been given the
  4. ; AT%D command.
  5. ;
  6. ; Christine M. Gianone, CUCCA, October 1988
  7. ;
  8. set input timeout proceed
  9. output \13        ; Send a carriage return
  10. input 10 MODIFY?    ; Look for CBX prompt
  11. if success goto host
  12. echo No CBX prompt!\13
  13. echo Please check your connection and try again.\13
  14. stop
  15. :HOST             ; Come here to call host.
  16. output call cunixc\13    ; Ask for CUNIXC
  17. input 30 COMPLETE    ; Look for "CALL COMPLETE"
  18. if success goto setup
  19. echo Can't connect to cunixc - try again later.\13
  20. stop
  21. :SETUP            ; Call completed OK.
  22. output \13        ; Send a carriage return.
  23. set count 5        ; Try the following 5 times.
  24. :LOOP                   ; Top of try-again loop.
  25. input 10 login:        ; Look for "login:" prompt.
  26. if success goto OK    ; If found, done.
  27. output \b        ; Else, send BREAK to change 
  28. if count goto loop    ; speed, and try again.
  29. echo Failed to get login prompt - try again later.\13
  30. stop
  31. :OK                ; Login prompt seen.
  32. connect            ; Begin terminal emulation.
  33. ;
  34. ; End of Script
  35.