home *** CD-ROM | disk | FTP | other *** search
/ Phoenix CD 2.0 / Phoenix_CD.cdr / 01e / msker301.zip / MSIKEY.HLP < prev    next >
Text File  |  1990-03-08  |  24KB  |  598 lines
  1. MS-DOS Kermit 3.00 Sample Key Settings Files
  2.  
  3. ------------------------------
  4.  
  5. Date: Tue, 6 Feb 90 09:54 CST
  6. From: "Kevin Lowey" <LOWEY%SASK.USask.CA@cuvmb.cc.columbia.edu>
  7. Subject: Extended.ini - VT300 layout for IBM Extended keyboard
  8.  
  9. Hi,
  10.  
  11.   Below you will find an MS-KERMIT .INI file that I have put together
  12. for use on campus here at the U of S.  It defines the IBM Extended
  13. keyboard (as found on PS/2 computers) to be more like a VT300
  14. terminal.
  15.  
  16. A complete listing of the key definitions is given in the listing
  17. below.  Here is a short summary.
  18.  
  19. VT300                             IBM
  20. Numbers on the keypad             Numbers on the keypad
  21. Enter on the keypad               Enter on the keypad
  22. - on keypad                       - on keypad
  23. , on keypad                       + on keypad
  24. Help key                          / on keypad
  25. Do key                            * on keypad
  26. PF1 through PF4                   F1 through F4
  27. F5 through F12                    F5 through F12
  28. F13 through F20                   Shift F5 through shift F12
  29. Insert Here                       Insert on cursor pad
  30. Remove                            Delete on the cursor pad
  31. Previous Screen                   Page Up on the cursor pad
  32. Next Screen                       Page Down on the cursor pad
  33. FIND                              Home on the cursor pad
  34. END                               Select on the cursor pad
  35.  
  36. The number pad definitions work no matter what state NUMLOCK is set to.
  37. (That way I don't have to field questions from people saying this
  38. didn't work simply because they forgot to press NUM-LOCK)
  39.  
  40. The definition does not include the F1 through F5 keys, however these
  41. are not real "keys" on a VT200 keyboard, but more terminal control switches
  42. that can be handled through other PC keys like Printscreen, etc.
  43.  
  44. I also added the SET DISPLAY 8, and the SET SEND PACKET 2000 and
  45. SET RECEIVE PACKET 2000 statements at the bottom because these should
  46. be used at our site.  You may wish to delete these.
  47.  
  48. - Kevin Lowey
  49.  
  50. ========================= Cut Here ==================================
  51. ; MSKERMIT 3.00 .INI file for IBM Extended Keyboard
  52. ; Written by Kevin Lowey - University of Saskatchewan Computing Services
  53. ;                        - LOWEY@SASK.USASK.CA
  54. ; DATE: 2 February 1990
  55. ;
  56. ; USAGE:
  57. ; This INI file is guaranteed to work ONLY with IBM Extended keyboards
  58. ; as found with the IBM PS/2 computers.  It may work with others as well
  59. ; but don't be surprised if it doesn't.
  60. ;
  61. ; To use this file rename it MSKERMIT.INI and put it in the same
  62. ; directory as the MSVIBM.EXE (or KERMIT.EXE) file.
  63. ;
  64. ; DESCRIPTION:
  65. ; This file sets the IBM-PC Extended Keyboard so that it emulates the
  66. ; VT300 keyboard.
  67. ;
  68. ; It also sets some of the communication parameters and protocol
  69. ; paramters for use with our campus VAX and Unix systems.
  70. ;
  71. ;
  72. ; ********************* Keyboard Definitions ******************
  73. ;                           IBM KEY              DEC KEY
  74. ; Numeric Keypad
  75. ; There are two definitions for each of the numeric keypad keys,
  76. ; one for when <NUM-LOCK> is pressed, and one when it isn't.
  77. set key \850 \kkp0        ; Keypad 0 (Nunlock)   Keypad 0
  78. set key \338 \kkp0        ; Keypad 0 (Normal)    Keypad 0
  79. set key \847 \kkp1        ; Keypad 1 (Numlock)   Keypad 1
  80. set key \335 \kkp1        ; Keypad 1 (normal)    Keypad 1
  81. set key \848 \kkp2        ; Keypad 2 (numlock)   Keypad 2
  82. set key \336 \kkp2        ; Keypad 2 (normal)    Keypad 2
  83. set key \849 \kkp3        ; Keypad 3 (Numlock)   Keypad 3
  84. set key \337 \kkp3        ; Keypad 3 (Normal)    Keypad 3
  85. set key \843 \kkp4        ; Keypad 4 (Numlock)   Keypad 4
  86. set key \331 \kkp4        ; Keypad 4 (Normal)    Keypad 4
  87. set key \844 \kkp5        ; Keypad 5 (Numlock)   Keypad 5
  88. set key \332 \kkp5        ; Keypad 5 (Normal)    Keypad 5
  89. set key \845 \kkp6        ; Keypad 6 (Numlock)   Keypad 6
  90. set key \333 \kkp6        ; Keypad 6 (Normal)    Keypad 6
  91. set key \839 \kkp7        ; Keypad 7 (Numlock)   Keypad 7
  92. set key \327 \kkp7        ; Keypad 7 (Normal)    Keypad 7
  93. set key \840 \kkp8        ; Keypad 8 (Numlock)   Keypad 8
  94. set key \328 \kkp8        ; Keypad 8 (normal)    Keypad 8
  95. set key \841 \kkp9        ; Keypad 9 (Numlock)   Keypad 9
  96. set key \329 \kkp9        ; Keypad 9 (Normal)    Keypad 9
  97. set key \330 \kkpminus    ; Keypad -             Keypad -
  98. set key \334 \kkpcoma     ; Keypad +             Keypad ,
  99. set key \851 \kkpdot      ; Keypad . (Numlock)   Keypad .
  100. set key \339 \kkpdot      ; Keypad . (normal)    Keypad .
  101. set key \4365 \Kkpenter   ; Keypad Enter         Keypad Enter
  102. set key \4399 \kdechelp   ; Keypad /             Help (F15)
  103. set key \311 \kdecDO      ; Keypad *             DO key (F16)
  104.  
  105.  
  106. ; F1 thru F20 keys        IBM                    DEC
  107.                           ; F1                   Gold (PF1)
  108.                           ; F2                   PF2
  109.                           ; F3                   PF3
  110.                           ; F4                   PF4
  111. set key \319 \kbreak      ; F5                   BREAK
  112. set key \320 \Kdecf6      ; F6                   DEC F6
  113. set key \321 \Kdecf7      ; F7                   DEC F7
  114. set key \322 \KdecF8      ; F8                   DEC F8
  115. set key \323 \KdecF9      ; F9                   DEC F9
  116. set key \324 \KdecF10     ; F10                  DEC F10
  117. set key \389 \kdecF11     ; F11                  DEC F11 (ESC)
  118. set key \390 \kdecF12     ; F12                  DEC F12 (BS)
  119. set key \856 \kdecF13     ; Shift-F5             DEC F13 (LF)
  120. set key \857 \kdecF14     ; Shift-F6             DEC F14
  121. set key \858 \kdecHelp    ; Shift-F7             DEC HELP
  122. set key \859 \kdecDO      ; Shift-F8             DEC DO
  123. set key \860 \kdecF17     ; Shift-F9             DEC F17
  124. set key \861 \KdecF18     ; Shift-F10            DEC F18
  125. set key \903 \KdecF19     ; Shift-F11            DEC F19
  126. set key \904 \kdecF20     ; Shift-F12            DEC F20
  127.  
  128. ; Cursor Keypad
  129. set key \4434 \kdecinsert ; INSERT               DEC insert
  130. set key \4475 \kdecRemove ; DELETE               DEC Remove
  131. set key \4423 \kdecFind   ; Home                 DEC Find
  132. set key \4431 \KdecSelect ; END                  DEC SELECT
  133. set key \4425 \KDecPrev   ; PGUP                 DEC PREV
  134. set key \4433 \KDecNext   ; PGDN                 DEC NEXT
  135.  
  136.  
  137. ; ***************** Other settings ************************
  138. ; Maximum Packet Size
  139. set send packet 2000
  140. set receive packet 2000
  141.  
  142. ; set the display to 8 bits so Word-11 et. al. work correctly
  143. SET DISPLAY 8
  144.  
  145. ------------------------------
  146.  
  147. Date: Tue, 6 Feb 90 09:58 CST
  148. From: "Kevin Lowey" <LOWEY%SASK.USask.CA@cuvmb.cc.columbia.edu>
  149. Subject: 88key.ini - VT300 layout for original IBM 88 key keyboard
  150.  
  151. Hi,
  152.  
  153.    This is an INI file I developed for use at the University of
  154. Saskatchewan.  It makes all the VT300 keys available to people using
  155. the original 88-key IBM-PC keyboard, using a "reasonable" layout.
  156.  
  157. The comments below explain how the keys have been layed out.
  158.  
  159. - Kevin Lowey
  160.  
  161. ===================== Cut Here =================
  162. ; MS-Kermit 3.0 MSKERMIT.INI file for Old style 88-key keyboard
  163. ; Written by Kevin Lowey - University of Saskatchewan Computing Services
  164. ;                        - LOWEY@SASK.USASK.CA
  165. ; DATE: 2 Feb. 1990
  166. ;
  167. ; USAGE:
  168. ;    If you have the old style 88 key keyboard (with the function keys on
  169. ; the left hand side) then rename this file MSKERMIT.INI and place it in
  170. ; the same directory as the KERMIT.EXE (or MSVIBM.EXE) file.  That will make
  171. ; Kermit use this keyboard definition instead of its default settings.
  172. ;
  173. ; Key Definitions:
  174. ; Mapping the VT300 series keyboard to an old-style 88 key keyboard is not
  175. ; easy.  The following mapping is the best compromise I could come up with.
  176. ;
  177. ; The numeric keypad is mapped as follows:
  178. ;
  179. ;          IBM Function                   VT100 Keys
  180. ;     Normal      Shifted           On the Numeric Keypad
  181. ;  -------------------------      -------------------------
  182. ;  |  F1 |  F2 | SF1 | SF2 |      | PF1 | PF2 | PF3 | PF4 |
  183. ;  |-----+-----+-----+-----|      |-----+-----+-----+-----|
  184. ;  |  F3 |  F4 | SF3 | SF4 |      |  7  |  8  |  9  |  -  |
  185. ;  |-----+-----+-----+-----|      |-----+-----+-----+-----|
  186. ;  |  F5 |  F6 | SF5 | SF6 |      |  4  |  5  |  6  |  ,  |
  187. ;  |-----+-----+-----+-----|      |-----+-----+-----+-----|
  188. ;  |  F7 |  F8 | SF7 | SF8 |      |  1  |  2  |  3  |     |
  189. ;  |-----------+-----|-----|      |-----------+-----|ENTER|
  190. ;  |  F9 | F10 | SF9 |SF10 |      |     0     |  .  |     |
  191. ;  -------------------------      -------------------------
  192. ;
  193. ; The repetition of the F9 and F10 keys, as well as the SF8 and SF10 keys,
  194. ; was done for consistancy.
  195. ;
  196. ; The DEC F1 to F10 keys are mapped to the PC Control-F1 to Control-F10 keys.
  197. ; The DEC F11 to F20 keys are mapped to the PC ALT-F1 to ALT-F10 keys.
  198. ;
  199. ;  Definition               PC key         DEC key
  200. set key \315 \kpf1        ; F1             PF1
  201. set key \316 \kpF2        ; F2             PF2
  202. set key \317 \kkp7        ; F3             Keypad 7
  203. set key \318 \kkp8        ; F4             Keypad 8
  204. set key \319 \kkp4        ; F5             Keypad 4
  205. set key \320 \kkp5        ; F6             Keypad 5
  206. set key \321 \kkp1        ; F7             Keypad 1
  207. set key \322 \kkp2        ; F8             Keypad 2
  208. set key \323 \kkp0        ; F9             Keypad 0
  209. set key \324 \kkp0        ; F10            Keypad 0 (duplicate)
  210.  
  211. set key \852 \kpf3        ; Shift-F1       PF3
  212. set key \853 \kpf4        ; Shift-F2       PF4
  213. set key \854 \kkp9        ; Shift-F3       Keypad 9
  214. set key \855 \kkpminus    ; Shift-F4       Keypad Minus
  215. set key \856 \kkp6        ; Shift-F5       Keypad 6
  216. set key \857 \kkpcoma     ; Shift-F6       Keypad Comma
  217. set key \858 \kkp3        ; Shift-F7       Keypad 3
  218. set key \859 \kkpenter    ; Shift-F8       Keypad Enter
  219. set key \860 \kkpdot      ; Shift-F9       Keypad Dot
  220. set key \861 \kkpenter    ; Shift-F10      Keypad Enter (duplicate)
  221.  
  222. set key \1374 \kholdscrn  ; Control-F1     F1
  223. set key \1375 \kprtscn    ; Control-F2     F2
  224. set key \1376 \khelp      ; Control-F3     Setup
  225. ; No Definition           ; Control-F4     F4
  226. set key \1378 \kbreak     ; Control-F5     F5
  227. set key \1379 \kdecF6     ; Control-F6     F6
  228. set key \1380 \kdecF7     ; Control-F7     F7
  229. set key \1381 \kdecF8     ; Control-F8     F8
  230. set key \1382 \kdecF9     ; Control-F9     F9
  231. set key \1383 \kdecF10    ; Control-F10    F10
  232.  
  233. set key \2408 \kdecF11    ; Alt-F1         F11
  234. set key \2409 \kdecF12    ; Alt-F2         F12
  235. set key \2410 \kdecF13    ; Alt-F3         F13
  236. set key \2411 \kdecF14    ; Alt-F4         F14
  237. set key \2412 \kdechelp   ; Alt-F5         Help (F15)
  238. set key \2413 \kdecdo     ; Alt-F6         Do (F16)
  239. set key \2414 \kdecF17    ; Alt-F7         F17
  240. set key \2415 \kdecF18    ; Alt-F8         F18
  241. set key \2416 \kdecF19    ; Alt-F9         F19
  242. set key \2417 \kdecF20    ; Alt-F10        F20
  243.  
  244. ; The following definitions define the DEC cursor keypad equivalents
  245. set key \327  \kdecfind   ; HOME           FIND
  246. set key \335  \kdecselect ; END            Select
  247. set key \329  \kdecprev   ; PGUP           Previous Screen
  248. set key \337  \kdecnext   ; PGDN           Next Screen
  249. set key \330  \kdechelp   ; Keypad -       Help
  250. set key \334  \kdecdo     ; Keypad +       Do
  251. set key \338  \kdecinsert ; INSERT         INSERT
  252. set key \339  \kdecremove ; DEL            REMOVE
  253.  
  254. ; Other settings for University of Saskatchewan
  255. SET DISPLAY 8
  256. SET SEND PACKET 2000
  257. SET RECEIVE PACKET 2000
  258.  
  259. ------------------------------
  260.  
  261. Date:  5 FEB 90 16:16:58.50-GMT
  262. From: VALIRON@FRGAG51.BITNET
  263. Subject: Comments on Kermit 3.00
  264.  
  265. Many thanks for all of you who have worked on MS-Kermit 3.00. Very
  266. impressive. Kermit operated PC's are now valuable competitors for most
  267. alpha dedicated terminals.
  268.  
  269. I have extended the MSKERMIT.INI file and written two additional macro
  270. files with the following purposes:
  271.         - Simulating a VT300 keypad on 84-key and 102-key keyboards
  272.         - Optional remap of french characters to ascii characters
  273.           useful for programming applications. The macro file KEYBOARD.TAK
  274.           is mapped to Cntrl-F1 and allows to select the desired mapping.
  275.         - Automated file transfer macro procedure mapped to Cntrl-F2.
  276.  
  277. I include the procedures below. They might be used as additional templates
  278. for Kermit users.
  279.  
  280. Best regards.
  281.  
  282. Dr. Pierre VALIRON             | bitnet:                     VALIRON@FRGAG51
  283. Observatoire de Grenoble       | phone:                      +33 76 51 47 87
  284. Groupe d'Astrophysique         |
  285. Bat. CERMO                     | Fax:   Groupe Astro         +33 76 44 88 21
  286. BP 53X  38041 Grenoble Cedex   |        IRAM                 +33 76 51 59 38
  287.         FRANCE                 |
  288.  
  289. ==============================================================================
  290. COMMENT - File MSKERMIT.INI
  291. COMMENT - For french PC's.
  292. COMMENT - Minor corrections should be made on other national PC's.
  293. COMMENT - (P. Valiron,  2 february 1990)
  294. ;
  295. ; FILE MSKERMIT.INI
  296. ;
  297. ; Sample initialization file for MS-DOS Kermit 3.00.
  298. ; Christine M. Gianone, January 1990
  299. ;
  300. ; Extended by P. Valiron
  301. ; Extra support to remap a VT300-like keypad on extended keyboards
  302. ; Extra support to remap french characters
  303. ;       ( Cntrl F1  and KEYBOARD.TAK )
  304. ;       ( Cntrl F2  and XFER.TAK )
  305.  
  306. echo \13MS-DOS Kermit 3.0 initialization file...
  307. echo \13Extra support for french extended keyboards ( Cntrl F1 )
  308. echo \13Macro XFER for file transfers               ( Cntrl F2 )
  309. echo \13
  310.  
  311. COMMENT - KEYPAD section...
  312.  
  313.                ; Default definitions are appropriate when the F1-F10
  314.                ; keys form a line above the keyboard.
  315.  
  316. ;goto k84      ; For a 84-key keyboard, F1-F10 forming a left-handed rectangle
  317.                ; Added some definitions, especially for VT200 keys.
  318.  goto k102     ; Extended 102-key keyboard, plus above definitions
  319. ;goto finpad   ; Default Kermit mapping, plus above definitions.
  320. ;goto skippad  ; Stick to default definitions.
  321.  
  322.  
  323. :k84
  324.  
  325. COMMENT - KEYPAD for 84-key keyboard, F1-F10 forming a left-handed rectangle
  326.  
  327. SET KEY \315  \Kgold        ; F1
  328. SET KEY \316  \Kpf2         ; F2
  329. SET KEY \2408 \Kpf3         ; Alt F1
  330. SET KEY \2409 \Kpf4         ; Alt F2
  331. ;
  332. SET KEY \317  \Kkp7         ; F3
  333. SET KEY \318  \Kkp8         ; F4
  334. SET KEY \2410 \Kkp9         ; Alt F3
  335. SET KEY \2411 \Kkpminus     ; Alt F4
  336. ;
  337. SET KEY \319  \Kkp4         ; F5
  338. SET KEY \320  \Kkp5         ; F6
  339. SET KEY \2412 \Kkp6         ; Alt F5
  340. SET KEY \2413 \Kkpcoma      ; Alt F6
  341. ;
  342. SET KEY \321  \Kkp1         ; F7
  343. SET KEY \322  \Kkp2         ; F8
  344. SET KEY \2414 \Kkp3         ; Alt F7
  345. SET KEY \2415 \Kkpenter     ; Alt F8
  346. ;
  347. SET KEY \323  \Kkp0         ; F9
  348. SET KEY \324  \Kkp0         ; F10
  349. SET KEY \2416 \Kkpdot       ; Alt F9
  350. SET KEY \2417 \Kkpenter     ; Alt F10
  351. ;
  352. SET KEY \339  \Kkp6         ;  .ANNUL    Cut/Paste
  353. SET KEY \851  \Kkp6         ;  .ANNUL
  354. SET KEY \338  \Kkpdot       ;  +INS      Select/Reset
  355. SET KEY \850  \Kkpdot       ;  +INS
  356. ;
  357. ; Rolling screen memory:
  358. ; Default mapping ( Pgup, Pgdn, Cntl Pgup, Cntl Pgdn )
  359. ;
  360. goto finpad
  361.  
  362.  
  363.  
  364. :k102
  365.  
  366. COMMENT - KEYPAD for an extended 102-key keyboard,
  367. COMMENT - same disposition as native VT220/VT320
  368. COMMENT - (excepted Gold as F12 and Erase C (comma) as Alt Del)
  369.  
  370. SET KEY \390  \Kgold        ; F12
  371. SET KEY \4399 \Kpf2         ; keypad
  372. SET KEY \311  \Kpf3         ; keypad
  373. SET KEY \330  \Kpf4         ; keypad
  374. ;
  375. SET KEY \327  \Kkp7         ; keypad
  376. SET KEY \328  \Kkp8         ; keypad
  377. SET KEY \329  \Kkp9         ; keypad
  378. SET KEY \334  \Kkpminus     ; keypad
  379. ;
  380. SET KEY \331  \Kkp4         ; keypad
  381. SET KEY \332  \Kkp5         ; keypad
  382. SET KEY \333  \Kkp6         ; keypad
  383. SET KEY \2318 \Kkpcoma      ; Alt Del
  384. ;
  385. SET KEY \335  \Kkp1         ; keypad
  386. SET KEY \336  \Kkp2         ; keypad
  387. SET KEY \337  \Kkp3         ; keypad
  388. SET KEY \4365 \Kkpenter     ; ENTR
  389. ;
  390. SET KEY \338  \Kkp0         ; keypad
  391. SET KEY \339  \Kkpdot       ; keypad
  392. ;
  393. ; Mapping the mini keypad of the VT200
  394. ;
  395. ; The 6 keys above the direction arrows are mapped according to the
  396. ; indications on the keys, the disposition is thus different from the
  397. ; native disposition on a true VT200, but the functionality is the same.
  398. ;
  399. ; Mapping HELP and DO to F9 and F10.
  400. ; Function keys F6 to F20 are not yet mapped. Suggestions are welcome.
  401. ;
  402. SET KEY \4434 \KdecInsert
  403. SET KEY \4435 \KdecRemove
  404. SET KEY \4423 \KdecSelect
  405. SET KEY \4431 \KdecFind
  406. SET KEY \4425 \KdecPrev
  407. SET KEY \4433 \KdecNext
  408. ;
  409. SET KEY \323  \KdecHelp     ; Help en F9
  410. SET KEY \324  \KdecDO       ; DO en F10
  411. ;
  412. ; Rolling screen memory:
  413. ; Alt Pgup, Pgdn above the arrows, and Alt Arrows.
  414. ;
  415. SET KEY \2457 \KUPSCN       ;  Alt Pgup
  416. SET KEY \2465 \KDNSCN       ;  Alt Pgdn
  417. SET KEY \2456 \KUPONE       ;  Alt Up
  418. SET KEY \2464 \KDNONE       ;  Alt Down
  419. SET KEY \2459 \KHOMSCN      ;  Alt Left
  420. SET KEY \2461 \KENDSCN      ;  Alt Right
  421.  
  422.  
  423.  
  424. :finpad
  425.  
  426. COMMENT - Additional tricks.
  427.  
  428. SET KEY \782  \8            ;  \<-       Backspace
  429.                             ;  Alt B     Break   (preset)
  430. SET KEY \2350 \Kreset       ;  Alt C     Clear terminal
  431. SET KEY \2341 \Khelp        ;  Alt K     Kermit Help menu
  432. SET KEY \2329 \Kprtscn      ;  Alt P     Print screen
  433. SET KEY \2324 \Ktermtype    ;  Alt T     Toggle Termtype
  434. SET KEY \2326 \Kdump        ;  Alt U     dUmp screen to KERMIT.SCN
  435.                             ;  Alt X     Return to Kermit> prompt (preset)
  436. ;
  437. ; Some extra definitions to simulate the missing VT200 keys on a 84-key
  438. ; keypad. These definitions can be kept here, and thus in use also on
  439. ; extended keyboards, or moved at the end of the specific redefinition
  440. ; for 84-key keyboards.
  441. ;
  442. SET KEY \2336 \KdecDO       ;  Alt D     DO
  443. SET KEY \2337 \KdecFind     ;  Alt F     Find
  444. SET KEY \2339 \KdecHelp     ;  Alt H     Help
  445. SET KEY \2327 \KdecInsert   ;  Alt I     Insert
  446. SET KEY \2323 \KdecRemove   ;  Alt R     Remove
  447. SET KEY \2335 \KdecSelect   ;  Alt S     Select
  448. SET KEY \2351 \KdecPrev     ;  Alt V     Previous Page
  449. SET KEY \2353 \KdecNext     ;  Alt N     Next Page
  450.  
  451. :skippad
  452.  
  453.  
  454.  
  455. COMMENT - Macro definitions section...
  456.  
  457. ; Reserved variables.  If you define new macros, don't use these variables.
  458. ;  \%e - Last EDIT command filename.
  459. ;  \%n - Last DIAL command phone number.
  460.  
  461. ; Macros for communicating with UNIX, VAX/VMS, and similar systems:
  462.  
  463. ; VAX, MINITEL
  464. def vax set par non, set display 8, set term VT320, set flo x, -
  465.         set hand no, set dupl ful, set key \270 \127
  466. def minitel set par even, set display 7, set term VT102, -
  467.         set flo x, set hand no, set dupl ful, set key \270 \127
  468.  
  469. ; Macro for communicating with IBM mainframes in linemode:
  470. def ibm set par mark, set flo no, set hand xon, set dup ha, set key \270 \8
  471.  
  472. ; Macro for communicating with IBM mainframes in fullscreen mode:
  473. def fullscreen set par ev,set flo x,set hand no,set dupl ful,set key \270 \8
  474.  
  475. ; Additional DOS commands available directly from the MS-Kermit> prompt.
  476.  
  477. ; First define a FATAL error macro.
  478. def fatal echo Error: \%1\13, def \%1, stop
  479.  
  480. ; DOS MORE command...
  481. def more if < argc 2 fatal $More what?,-
  482. run more < \%1
  483.  
  484. ; DOS REN(ame) command...
  485. def rename if < argc 2 fatal $Rename what?,-
  486. if < argc 3 fatal $Rename \%1 to what?,-
  487. run ren \%1 \%2
  488.  
  489. ; DOS COPY command...
  490. def copy if < argc 2 fatal $Copy what?,-
  491. if < argc 3 fatal $Copy \%1 to where?,-
  492. run copy \%1 \%2
  493.  
  494. ; DOS CHCP command to examine or change code page...
  495. def chcp if = argc 1 run chcp,-
  496. if = argc 2 run chcp \%1
  497.  
  498. ; EDIT command...
  499. ; Replace "edlin" with your favorite editor or word processor.
  500. def edit if = argc 2 assign \%e \%1,-
  501. if not def \%e fatal $Edit what?,-
  502. run ec \%e
  503.  
  504. ; CAPTURE command - easy downloading of a file from the host.
  505. ; Unlike the LOG SESSION command, CAPTURE always creates a new file.
  506. ; It overwrites file of same name if it already exists.
  507. ; Usage: at the MS-Kermit> prompt, type "capture xxx" where xxx is the name
  508. ; of the file you want to create on the PC.  Once you are connected to the
  509. ; host, TYPE the desired file.  Escape back when done.  The captured file will
  510. ; be on your disk (with a TYPE command at the beginning & a prompt at the end).
  511. def capture if = argc 1 fatal $Capture into what file?,-
  512. if exist \%1 del \%1,-
  513. log session \%1,-
  514. connect,close session,log sess session.log,close ses,def \%1
  515.  
  516. ; NOISY and CLEAN macros, modify to suit your environment...
  517. def clean set rec pack 94, set retry 4, set bl 1
  518. def noisy set rec pack 40, set retr 20, set bl 3
  519.  
  520. ; ERRSTP macro, for use with DIAL command...
  521. def errstp echo Error: \%1\13,def \%1,hangup,stop
  522.  
  523. ; LOOKUP macro for use with DIAL command...
  524. ; The names and numbers shown here are not real.
  525. ; Replace them with ones you really use.
  526. ; You may also add or delete lines, but the entire macro definition
  527. ; cannot be more than 255 characters long.
  528. ;
  529. ; For MINITEL access : execute the macro MINITEL
  530. ; For VAX access, default mode 8bits, noparity: execute the macro "VAX"
  531. ;
  532. def lookup -
  533.   if eq \%1 gag-minitel  def \%1 xxxxxxxx,-
  534.   if eq \%1 gag-fulldup  def \%1 yyyyyyyy,-
  535.   if eq \%1 other-access def \%1 zzzzzzzz
  536.  
  537. ; DIAL command...
  538. ; Requires the file HAYES.TAK to be on current disk or in DOS PATH.
  539. ; Uses LOOKUP and FATAL macros.
  540. def dial if = argc 2 assign \%n \%1,-
  541.   if < argc 2 if not def \%n fatal $Dial what?,-
  542.   if > argc 2 fatal $No spaces please.,-
  543.   lookup \%n,-
  544.   take hayes.tak
  545.  
  546. COMMENT - Script defaults
  547.  
  548. set input timeout proceed       ; Allow IF SUCCESS/FAILURE to work
  549. set input echo on               ; Display port input on screen
  550. set input case ignore           ; Ignore alphabet case for input matching
  551. set input default-timeout 1     ; One second default input timeout
  552.  
  553. COMMENT - Terminal emulation settings.  Modify to suit your environment.
  554.  
  555. ;set display 8                  ; default for macro VAX
  556. ;set terminal vt320             ; default for macro VAX
  557. set terminal roll on            ; Roll-back screens
  558. set terminal wrap on            ; Tell Kermit to do line wrap
  559. set terminal cursor underline   ; Underline cursor (rather than block)
  560. set terminal character latin-1  ; Use ISO Latin-1 terminal character set
  561.  
  562. COMMENT - File transfer settings
  563.  
  564. set file warning on             ; Don't overwrite existing files
  565. ;set transfer character-set transparent  ; For compatibility with old versions
  566. set transfer character-set latin1        ; To transfer multinational characters
  567. set receive packet-length 94    ; Regular-size packets
  568. set attributes on               ; Use file-attribute packets
  569. set window 1                    ; Don't use sliding windows
  570.  
  571. COMMENT - Initial PC communication setup.  Modify to suit your PC and tastes.
  572.  
  573. set port 1                      ; Use COM1
  574. do vax                          ; Set parameters for talking to VAX
  575.                                 ; (These are the default parameters anyway)
  576.  
  577. ;set key \96 \27                ; Exchange ESC and
  578. ;set key \27 \96                ; accent grave keys during terminal emulation
  579.  
  580. ;set terminal color 0 34 47             ; Terminal color is blue on white
  581.  set terminal color 0 37 42             ; Nicer on black and white VGA
  582.  
  583. COMMENT - Support for KEYBOARD.TAK ( Ctrl F1 ) and XFER.TAK ( Ctrl F2 )
  584.  
  585. define terminalR def \%a inter, take keyboard.tak, def %a, connect
  586. set key \1374   \KterminalR
  587.  
  588. define xfer take xfer.tak
  589. define terminalS def \%a inter, take xfer.tak, def %a, connect
  590. set key \1375   \KterminalS
  591.  
  592. take keyboard.tak                 ; Redefine the keyboard if wanted
  593. set speed 19200                   ; Adjust speed to your convenience
  594.   connect                         ; You might comment this line
  595.  
  596. ------------------------------
  597.  
  598.