home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 June / SIMTEL_0692.cdr / msdos / kermit / pcbdker.arc / DDNTAC.INI next >
Encoding:
Text File  |  1989-03-12  |  3.4 KB  |  71 lines
  1. take \kermit\default.scr
  2. set key \270 \127                    ; Make backarrow delete
  3. ;
  4. ; EMACS Key Definitions (Some close to WP, E88, XEDIT, and APL)
  5. ;
  6. set key \327  \1                     ; Home - ^A Move to Beginning of line
  7. set key \1399 \27A                   ; ^Home - ESC A Move to begin. of sent.
  8. set key \839  \12                    ; Sh-Home - ^L Refresh/Clear Screen
  9. set key \331  \2                     ; Left Arr - ^B Back one space
  10. set key \1395 \27B                   ; ^Left Arr - ESC B Back one word
  11. set key \335  \5                     ; End - ^E Move to End of line
  12. set key \1397 \27E                   ; ^End - ESC E Move to end of sentence
  13. set key \333  \6                     ; Right Arr - ^F Fwd one space
  14. set key \1396 \27F                   ; ^Right Arr - ESC F Fwd one word
  15. set key \336  \14                    ; Dn Arr - ^N Next Line
  16. set key \2410 \15                    ; Alt-F3 - ^O Insert Line/SplitJoin
  17. set key \2411 \11                    ; Alt-F4 - ^K Delete line
  18. set key \328  \16                    ; Up Arr - ^P Up line
  19. set key \849  \22                    ; Sh-PgDn - EMACS PgDn (Don't chg PgDn)
  20. set key \841  \27V                   ; Sh-PgUp - EMACS PgUp
  21. set key \1422 \27<                   ; ^PgUp - Go to TOF
  22. set key \1398 \27>                   ; ^PgDn - Go to BOF
  23. set key \319  \24\22                 ; F5 - ^X^V Get File
  24. set key \315  \24\19                 ; F1 - ^X^S Save File
  25. ; ^C (Abort), ^X^Z (QQuit) not implemented on single key due to error
  26. ; potential
  27. ;
  28. ;
  29. clear                                ; Clear the input buffer.
  30. set local-echo off
  31. set input echo off
  32. set speed 1200                       ; Dial at high speed.
  33. take \kermit\initmodm.scr            ; Yes.
  34. pause 1                              ; Pause for a second first.
  35. set count 30                         ; Set the redial limit.
  36. define \%d \27\91\50J\13Dialing      ; Set initial message
  37. define \%e .
  38. :REDIAL
  39. echo \27\91\49\;\49H\%d DDN\%e\13\10  ; Tell them we're dialing.
  40. output ATDT0000000\13                ; Dial the phone number.
  41. clear                                ; Clear away the command echo.
  42. input 20 CONNECT                     ; Wait for CONNECT message.
  43. if success goto speed                ; Got it, go check speed.
  44. define \%m No dialtone or no answer. ; Make this the error message.
  45. reinput BUSY                         ; Didn't connect.  Was it busy?
  46. if failure errstop {\%m\10\13Try again later.} ; No
  47. Echo \13Busy...                      ; It's busy, let them know.
  48. hangup                               ; Drop DTR momentarily.
  49. pause 2                              ; Wait one minute.
  50. define \%d \13Redialing              ; Change message to "Redialing".
  51. assign \%f \%e
  52. assign \%e .\%f
  53. if count goto redial                 ; Then go redial.
  54. define \%m \13Line busy.             ; After 5 tries set this message.
  55. :SPEED                               ; Connected!
  56. echo Logging on...\13\10
  57. set input echo on
  58. pause 1                              ; Wait for text after CONNECT.
  59. output \17                           ; Output ^Q to start TAC
  60. input 5 :
  61. output \64O 0.0.0.0\13\10            ; @O 0.0.0.0 Open Host
  62. input 5 :
  63. output TAC-LOGIN\13\10               ; TAC Login
  64. input 5 :
  65. output PASSWORD1\13\10               ; TAC Password
  66. input 20 \64                         ; Wait for TOPS 20 prompt
  67. output LOG USER PASSWORD2\13\10      ; Login to host
  68. connect                              ; And start terminal emulation.
  69.  
  70.  
  71.