home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 June / SIMTEL_0692.cdr / msdos / kermit / msiibm.arc / MSKERMIT.INI < prev    next >
Encoding:
Text File  |  1989-01-20  |  7.3 KB  |  179 lines

  1. ; MS-Kermit Initialization File for the IBM PC, XT, AT, PS2, etc.
  2. ; Requires MS-DOS Kermit 2.31 or later.  Won't work with earlier versions.
  3. ;
  4. ; For use with CUCCA systems.
  5. ;   By Christine Gianone, Frank da Cruz, Vace Kundakci
  6. ;   November 1988
  7. ;
  8. ; See MSIIBM.DOC for an explanation of how to use the macros defined here.
  9. ;
  10. ; If you use a 244PC rather than a ROLMphone 120D, 240D, or 400D, see the
  11. ; file 244PC.INI
  12. ;
  13. ; Variables used:
  14. ;   \%c  VM/CMS User ID for CUVMB
  15. ;   \%u  UNIX User ID for CUNIXA-D
  16. ;   \%s  UNIX system selected through CUNIX terminal server: CUNIXA,CUNIXB,...
  17.  
  18. ; User IDs on various systems.  Substitute your own IDs.
  19. ;
  20. def \%c XYZCU          ; CMS ID
  21. def \%u xyz            ; UNIX ID
  22.  
  23. echo Columbia University IBM PC Kermit 2.31 Initialization file...
  24.  
  25. ; General settings
  26. ;
  27. set warning on         ; Change this to "off" to allow overwriting of files.
  28. set speed 9600         ; Use 9600 bits per second by default
  29.  
  30. ; Behavior of INPUT command in script programs
  31. ;
  32. set input timeout quit ; Exit from script if input pattern not found
  33. set input echo on      ; Echo characters that arrive during INPUT
  34. set input case observe ; Match according to alphabetic case
  35.  
  36. ; Terminal emulation settings
  37. ;
  38. set term vt102         ; Emulate a DEC VT-102 terminal
  39. set term roll off      ; For use with Page Up / Page Down
  40. set term wrap on       ; Have Kermit automatically wrap lines at column 80
  41.  
  42. ; Local commands
  43. ;
  44. def edit run epsilon \%1   ; This lets you say "edit foo" at Kermit prompt.
  45. def more run more < \%1    ; Like TYPE, but pauses after each screen.
  46. def rename run ren \%1 \%2 ; DOS REN command.
  47.  
  48. ; Macros for connecting to different systems thru the Gandalf PACX.
  49. ; These are commented out because the PACX was deactivated in November, 1988.
  50. ;
  51. ;def pcuvmb  do pacx,o cuvm\13,do 3695,o vmb\13,do 4381
  52. ;def pcuvml  do pacx,o cuvm\13,do 3695,o vml\13,do 4381
  53. ;def psimb   do pacx,o simb\13,do 7171,do 3270
  54. ;def psiml   do pacx,o siml\13,do 7171,do 3270
  55. ;def pclio   do pacx,o clio\13,do 7171,o \13,do clog
  56. ;def pcunixc do pacx,o cunixc\13,out \13,do unix
  57. ;def pcunix  do pacx,o cunix\13,do cuts,do unix
  58. ;def pcunixa def \%s cunixa,do cunix
  59. ;def pcunixb def \%s cunixb,do cunix
  60. ;def pcunixd def \%s cunixd,do cunix
  61.  
  62. ; Macros for connecting to different systems thru the IBM/Rolm CBX
  63. ;
  64. def cuvmb  do cbx,o c cuvm\13,  i 10 PLETE,      do 3695, o vmb\13, do 4381
  65. def cuvml  do cbx,o c cuvm\13,  i 10 PLETE,      do 3695, o vml\13, do 4381
  66. def simb   do cbx,o c simb\13,  i 10 PLETE, pau, do 7171, do 3270
  67. def siml   do cbx,o c siml\13,  i 10 PLETE, pau, do 7171, do 3270
  68. def clio   do cbx,o c clio\13,  i 10 PLETE, pau, do 7171, do clog
  69. def cunix  do cbx,o c cunix\13, i 10 PLETE, pau, do cuts, do unix
  70. def cunixa def \%s cunixa,do xcunix
  71. def cunixb def \%s cunixb,do xcunix
  72. def cunixc do cbx,o c cunixc\13,i 10 PLETE, pau, out \13, do unix
  73. def cunixd def \%s cunixd,do xcunix
  74.  
  75. ; Sample macro for high-speed PC-to-PC direct connection on port 2
  76. ; Assumes you have your COM2 connected with a null modem cable to
  77. ; another PC.  The PC/AT, PS/2, and compatibles can run at this speed.
  78. ;
  79. def pc set port 2,set sp 57600,set par non,set flow xon,set hand none
  80.  
  81. ; Macros for navigating thru front end and login prompts
  82. ;
  83. def pacx do def,set par e,o \13,i 5 node name =>\32,pau      ; PACX
  84. def cbx  do def,o \13,i 10 MODIFY?                           ; CBX
  85.  
  86. def  3695 i 5 ING CHARACTERS:\32\32                          ; COMTEN
  87. def  7171 pau,cle,o \13,i 5 TERMINAL TYPE:\32,o vt-100\13    ; 7171 front end
  88. ;def 4994 pau,cle,o \13,i 5 terminal type:\32,pau,o vt100\13 ; 4994 front end
  89. def  4381 do vml,i 5 BREAK KEY,o \b,i 5 .\17,o LOG \%c\13,c  ; VM/CMS linemode
  90. def  3270 pau,cle,o \13,o L \%c\13,do vmf,c                  ; VM/CMS fullsc.
  91. def  clog pau,cle,o \13,o CLIO\9,pause,o CLIO\13,do vmf,c    ; CLIO login
  92.  
  93. ; CU Terminal Servers (cutsa, cutsb, etc)
  94. ; Send carriage return, look for ">" prompt.  Try 8 times (for speed
  95. ; recognition), then give up.
  96. ;
  97. def cuts set inp tim p,out \13,pau,-
  98. set co 8,:loop ,out \13,i 3 >,if suc goto ok,if count goto loop,-
  99. ech Failed,stop,:ok ,out \%s\13,set inp tim q
  100.  
  101. ; UNIX login with speed matching
  102. ;
  103. def unix set inp timeout proc,-
  104. set count 8,:loop ,i 5 login:\32,if suc goto ok,-
  105. out \b,if count goto loop,ech Failed,stop,:ok ,out \%u\13,do dec,-
  106. set inp tim q,connect
  107.  
  108. ; Macros for interacting with different systems:
  109. ; . set parity appropriately,
  110. ; . make <- Backspace key send appropriate deletion character,
  111. ; . make Ctrl-C send appropriate interruption character.
  112. ;
  113. def vml do tty,set par m,set k \270 \8,  set k \3 \Kbreak    ; VM linemode
  114. def vmf do def,set par e,set k \270 \8\4,set k \3 \3,do simk ; VM fullscreen
  115. def dec do def,set par n,set k \270 \127,set k \3 \3         ; DEC, SUN, etc
  116.  
  117. def def set tim of,set loc of,set hand non,set flow xon,do nosimk ; Default
  118. def tty set tim on,set loc on,set hand xon,set flow non,do nosimk ; IBM TTY
  119.  
  120. ; Macro to dial PACX from Hayes or compatible modem at 1200 bps.
  121. ;
  122. ; def hpacx do dec,set sp 1200,o \13,o AT\13,i OK,o ATDT 2808050,i CONNECT
  123. ; def hpc do hpacx, do cunixc ; Make similar macros for other systems.
  124.  
  125. ; Macro to dial CBX from Hayes or compatible modem at 1200 bps.
  126. ; Change 1200 to 2400 if dialing at 2400 bps.
  127. ;
  128. def hcbx do dec,set sp 1200,o \13,o AT\13,i OK,o ATDT 8541812,i CONNECT
  129. def hxc do hcbx, do xcunixc ; Make similar macros for other systems.
  130.  
  131. ; Sample Key relocations, ones that you want in effect all the time.
  132. ; . Toggle mode line on keypad plus key
  133. ; . Put ESC on Tab key
  134. ; These are defined in a macro, so that they can be restored by "nosimk".
  135. ;
  136. def defk set key \334 \Kmodeline, set key \271 \27
  137. do defk
  138.  
  139. ; Key definitions for using the 7171 3270 simulator, e.g. with CLIO.
  140. ; Just type "do simk" to invoke them.
  141. ; Type "do nosimk" to restore all default key definitions.
  142. ;
  143. def simk do sk1, do sk2, do sk3, do sk4
  144. def nosimk set key clear, do defk
  145.  
  146. ; F1 sends ESC 1 (PF1), F2 sends ESC 2 (PF2), etc.
  147. def sk1  set k \315 \{27}1,set k \316 \{27}2,set k \317 \{27}3,do sk1b
  148. def sk1b set k \318 \{27}4,set k \319 \{27}5,set k \320 \{27}6,do sk1c
  149. def sk1c set k \321 \{27}7,set k \322 \{27}8,set k \323 \{27}9,do sk1d
  150. def sk1d set k \324 \{27}0
  151.  
  152. ; Shift F1 sends ESC Q (PF11), etc. (letters from top row of keyboard)
  153. def sk2  set k \852 \27Q,set k \853 \27W,set k \854 \27E,do sk2b
  154. def sk2b set k \855 \27R,set k \856 \27T,set k \857 \27Y,do sk2c
  155. def sk2c set k \858 \27U,set k \858 \27I,set k \860 \27O,set k \861 \27P
  156.  
  157. ; Alt-F1 thru Alt-F4 are like PF21 thru PF24 (letters from second row)
  158. def sk3 set k \2408 \27A, set k \2409 \27S,set k \2410 \27D,set k \2411 \27F
  159.  
  160. ; Ins key sends Ctrl-X,Keypad Del sends Ctrl-D.
  161. ; Arrows: up = Ctrl-P, Left = Ctrl-H, Right = Ctrl-E, Down = Ctrl-N
  162. def sk4 set k \338 \24,set k \840 \16,set k \331 \08,set k \333 \05,do sk4b
  163. def sk4b set k \336 \14,set k \339 \04
  164.  
  165. ; Colors
  166.  
  167. define amy   set term color 1 31 45  ; pink on purple
  168. define ocean set term color 0 37 44  ; white on blue
  169. define sky   set term color 0 34 47  ; blue on white
  170. define sea   set term color 0 32 44  ; green on blue
  171. define gb    set term color 0 32 40  ; green on black
  172. define bw    set term color 0 30 47  ; black on white
  173.  
  174. ; Set desired color, greet, and start.
  175.  
  176. set terminal color 10 ; Fast screen updating
  177. do sky
  178. echo \13Smile!
  179.