home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 September / Simtel20_Sept92.cdr / msdos / kermit / easyk110.arc / DIAL.INI < prev    next >
Encoding:
Text File  |  1988-11-28  |  6.7 KB  |  87 lines
  1. ;DIAL.INI designed for EasyK by R.A. Elnicki, DIS, CBA, University of Florida 1
  2. ;               Copyright 1987 by R.A. Elnicki                                2
  3. ;                   (86 lines, 85 numbered)                                   3
  4. ;                                                                             4
  5. ;SET BAUD 1200                   ; Activate one baud rate and comment out     5
  6. SET BAUD 2400                    ;  the other baud rate (2400 active here).   6
  7. CLEAR                            ; Clear the chosen port buffers.             7
  8. SET INPUT TIMEOUT-ACTION PROCEED ; Continue in the script if timed out.       8
  9. PAUSE 1                          ; Modem work time buffer.                    9
  10. RUN CLS                          ; Clear the display screen.                 10
  11. ECHO \13 EasyK will enter all commands necessary to sign on.  Do NOT enter  ;11
  12. ECHO \13 anything until you are asked to do so.  EasyK's next action is     ;12
  13. ECHO \13 described at each step in the programmed sign-on process.  The     ;13 
  14. ECHO \13 number will be tried three times (40 seconds each) and then you    ;14
  15. ECHO \13 will be returned to the EasyK prompt.  If the selected service     ;15
  16. ECHO \13 cannot be signed onto, the reason for the failure is given and     ;16
  17. ECHO \13 you will be returned to the EasyK prompt.                          ;17
  18. ECHO \13\10 *************************************************************** ;18
  19. ECHO \13 *  To display the EasyK-3270 keyboard, enter "Alt" with "x"   *    ;19
  20. ECHO \13 *  and then "do listkb" any time during a VTAM session.       *    ;20
  21. ECHO \13 ***************************************************************    ;21
  22. PAUSE 3                          ; Wait for 3 seconds to read the above.     22
  23. ECHO \13\10Resetting your modem next (should respond "OK" twice)...         ;23
  24. OUTPUT AT &F &C1 &D2 &W\13       ; Hayes 2400 SmartModem factory set, data   24
  25. ;                                   carrier suitable for 2400 SM, goes on    25
  26. PAUSE 3                          ;  hook no auto-answer, store, wait 3 sec.  26
  27. OUTPUT +++                       ; Return modem to command state.            27
  28. PAUSE 3                          ; Wait for 3 seconds for modem work.        28
  29. CLEAR                            ; Clear prior OK from buffer for next IF... 29
  30. OUTPUT ATZ\13                    ; Load modem config, do modem self test.    30
  31. INPUT 10 OK                      ; Wait 10 seconds for modem to send "OK".   31
  32. IF SUCCESS GOTO DIAL             ; Can dial if modem returns "OK".           32
  33. ECHO \13\10Modem did not respond correctly, returning to EasyK prompt.      ;33
  34. PAUSE 2                                                                     ;34
  35. GOTO OUT                         ;Go to script exit sequence.                35
  36. :DIAL                            ; Branch point for successful "OK".         36
  37. SET COUNT 3                      ; Dial up to 3 times.                       37
  38. :RETRY                           ; Branch back loop point for redialing      38
  39. ECHO \10\13 Dialing the 2400 baud number 392-9177 on a rotary phone not on  ;39
  40. ECHO \13 the UF 392 exchange with ringing muted and call waiting disabled.  ;40
  41. ECHO \13\10                                                                 ;41
  42. OUTPUT ATMD1170,3929177\13                                                  ;42
  43. PAUSE 1                                                                     ;43
  44. ECHO \13\10Waiting for "CONNECT" to 7171 next (times out at 40 seconds)...  ;44
  45. INPUT 40 CONNECT                                                            ;45
  46. IF SUCCESS GOTO MADEIT           ;Go to MADEIT if CONNECT is returned.       46
  47. OUTPUT +++                       ;Reset modem again to redial...             47 
  48. PAUSE 3                                                                     ;48
  49. OUTPUT ATZ\13                                                               ;49
  50. PAUSE 3                                                                     ;50
  51. ECHO \13\10 No "CONNECT" given in 40 seconds, dialing again ... (Ho Humm)   ;51
  52. IF COUNT GOTO RETRY                                                         ;52
  53. PAUSE 2                                                                     ;53
  54. RUN CLS                                                                     ;54
  55. ECHO \10\13+--------------------------------------------------------------+ ;55
  56. ECHO \13| Dialing not successful in 3 tries at 50 seconds each.  Bye...|    ;56
  57. ECHO \13+--------------------------------------------------------------+    ;57
  58. ECHO \10\13                                                                 ;58
  59. PAUSE 2                                                                     ;59
  60. GOTO OUT                         ;Go to script exit sequence.                60
  61. :MADEIT                                                                     ;61
  62. ECHO \13\10Sending carriage return next for baud detect by 7171 next...     ;62
  63. PAUSE 1                                                                     ;63
  64. OUTPUT \13                                                                  ;64
  65. ECHO \13\10Waiting for 7171 to send "ENTER TERMINAL TYPE" next...           ;65
  66. INPUT 10 ENTER TERMINAL TYPE:                                               ;66
  67. IF SUCCESS GOTO NVTAM                                                       ;67
  68. OUTPUT \13\10Did not find "ENTER TERMINAL TYPE"; back to EasyK.             ;68
  69. PAUSE 2                                                                     ;69
  70. GOTO OUT                         ;Go to script exit sequence.                70
  71. :NVTAM                                                                      ;71
  72. SET INPUT ECHO OFF                                                          ;72
  73. ECHO \13\10Entering the "VT100" terminal type next...                       ;73
  74. OUTPUT VT100\13                                                             ;74
  75. INPUT 20 NERDC VTAM IS ACTIVE                                               ;75
  76. IF SUCCESS GOTO SERVICE                                                     ;76
  77. OUTPUT \13\10Did not find "VTAM IS ACTIVE"; back to EasyK.                  ;77
  78. PAUSE 2                                                                     ;78
  79. :OUT                                                                        ;79
  80. OUTPUT +++                       ;Reset modem & return to Easyk prompt.      80
  81. PAUSE 3                                                                     ;81
  82. OUTPUT ATZ\13                                                               ;82
  83. PAUSE 3                                                                     ;83
  84. STOP                                                                        ;84
  85. :SERVICE                         ;A service.INI is next invoked by a macro.  85
  86. ;   End.
  87.