; MS-Kermit Initialization File for the IBM PC, XT, AT, PS2, etc. ; Requires MS-DOS Kermit 2.31 or later. Won't work with earlier versions. ; ; For use with Columbia University systems. ; By Christine Gianone, Vace Kundakci ; December 1988 ; ; See MSIIBM.DOC for an explanation of how to use the macros defined here. ; Rename this file to MSKERMIT.INI to make it your Kermit initialization file. ; ; Variables used: ; \%c VM/CMS User ID for CUVMB ; \%u UNIX User ID for CUNIXA-D ; \%s UNIX system selected through CUNIX terminal server: CUNIXA,CUNIXB,... ; User IDs on various systems. Substitute your own IDs. ; def \%c XYZCU ; CMS ID def \%u xyz ; UNIX ID echo Columbia University IBM PC Kermit Initialization file... ; General settings ; set warning on ; Change this to "off" to allow overwriting of files. set speed 9600 ; Use 9600 bits per second by default ; Behavior of INPUT command in script programs ; set input timeout quit ; Exit from script if input pattern not found set input echo on ; Echo characters that arrive during INPUT set input case observe ; Match according to alphabetic case ; Terminal emulation settings ; set term vt102 ; Emulate a DEC VT-102 terminal set term roll off ; For use with Page Up / Page Down set term wrap on ; Have Kermit automatically wrap lines at column 80 ; More DOS commands you can issue from the "Kermit-MS>" prompt. ; def edit run epsilon \%1 ; This lets you say "edit foo" at Kermit prompt. def more run more < \%1 ; Like TYPE, but pauses after each screen. def rename run ren \%1 \%2 ; DOS REN command. ; Macros for connecting to different systems thru the IBM/Rolm CBX ; def cuvmb do cbx,o c cuvm\13, i 10 PLETE, do 3695, o vmb\13, do 4381 def cuvml do cbx,o c cuvm\13, i 10 PLETE, do 3695, o vml\13, do 4381 def simb do cbx,o c simb\13, i 10 PLETE, pau, do 7171, do 3270 def siml do cbx,o c siml\13, i 10 PLETE, pau, do 7171, do 3270 def clio do cbx,o c clio\13, i 10 PLETE, pau, do 7171, do clog def cunix do cbx,o c cunix\13, i 10 PLETE, pau, do cuts, do unix def cunixa def \%s cunixa,do cunix def cunixb def \%s cunixb,do cunix def cunixc do cbx,o c cunixc\13,i 10 PLETE, pau, out \13, do unix def cunixd def \%s cunixd,do cunix ; Sample macro for high-speed PC-to-PC direct connection on port 2 ; Assumes you have your COM2 connected with a null modem cable to ; another PC. The PC/AT, PS/2, and compatibles can run at this speed. ; def pc set port 2,set sp 57600,set par non,set flow xon,set hand none ; Macros for navigating thru front end and login prompts ; def cbx do def,o \13,i 10 MODIFY? ; IBM/Rolm CBX def 3695 i 5 ING CHARACTERS:\32\32 ; COMTEN def 7171 pau,cle,o \13,i 5 TERMINAL TYPE:\32,o vt-100\13 ; 7171 front end def 4381 do vml,i 5 BREAK KEY,o \b,i 5 .\17,o LOG \%c\13,c ; VM/CMS linemode def 3270 pau,cle,o \13,o L \%c\13,do vmf,c ; VM/CMS fullsc. def clog pau,cle,o \13,o CLIO\9,pause,o CLIO\13,do vmf,c ; CLIO login ; CU Terminal Servers (cutsa, cutsb, etc) ; Send carriage return, look for ">" prompt. Try 8 times (for speed ; recognition), then give up. ; def cuts set inp tim p,out \13,pau,- set co 8,:loop ,out \13,i 3 >,if suc goto ok,if count goto loop,- ech Failed,stop,:ok ,out \%s\13,set inp tim q ; UNIX login with speed matching ; def unix set inp timeout proc,- set count 8,:loop ,out \13,i 5 login:\32,if suc goto ok,- if count goto loop,ech Failed,stop,:ok ,out \%u\13,do dec,- set inp tim q,connect ; Macros for interacting with different systems: ; . set parity appropriately, ; . make <- Backspace key send appropriate deletion character, ; . make Ctrl-C send appropriate interruption character. ; def vml do tty,set par m,set k \270 \8, set k \3 \Kbreak ; VM linemode def vmf do def,set par e,set k \270 \8\4,set k \3 \3,do simk ; VM fullscreen def dec do def,set par n,set k \270 \127,set k \3 \3 ; DEC, SUN, etc def def set tim of,set loc of,set hand non,set flow xon,do nosimk ; Default def tty set tim on,set loc on,set hand xon,set flow non,do nosimk ; IBM TTY ; Macro to dial CBX from Hayes or compatible modem at 1200 bps. ; Change 1200 to 2400 if dialing at 2400 bps. ; def hcbx do dec,set sp 1200,o \13,o AT\13,i OK,o ATDT 8541812,i CONNECT def hxc do hcbx, do xcunixc ; Make similar macros for other systems. ; Sample Key relocations, ones that you want in effect all the time. ; . Toggle mode line on keypad plus key ; . Put ESC on Tab key ; These are defined in a macro, so that they can be restored by "nosimk". ; def defk set key \334 \Kmodeline, set key \271 \27 do defk ; Key definitions for using the 7171 3270 simulator, e.g. with CLIO. ; Just type "do simk" to invoke them. ; Type "do nosimk" to restore all default key definitions. ; def simk do sk1, do sk2, do sk3, do sk4 def nosimk set key clear, do defk ; F1 sends ESC 1 (PF1), F2 sends ESC 2 (PF2), etc. def sk1 set k \315 \{27}1,set k \316 \{27}2,set k \317 \{27}3,do sk1b def sk1b set k \318 \{27}4,set k \319 \{27}5,set k \320 \{27}6,do sk1c def sk1c set k \321 \{27}7,set k \322 \{27}8,set k \323 \{27}9,do sk1d def sk1d set k \324 \{27}0 ; Shift F1 sends ESC Q (PF11), etc. (letters from top row of keyboard) def sk2 set k \852 \27Q,set k \853 \27W,set k \854 \27E,do sk2b def sk2b set k \855 \27R,set k \856 \27T,set k \857 \27Y,do sk2c def sk2c set k \858 \27U,set k \858 \27I,set k \860 \27O,set k \861 \27P ; Alt-F1 thru Alt-F4 are like PF21 thru PF24 (letters from second row) def sk3 set k \2408 \27A, set k \2409 \27S,set k \2410 \27D,set k \2411 \27F ; Ins key sends Ctrl-X,Keypad Del sends Ctrl-D. ; Arrows: up = Ctrl-P, Left = Ctrl-H, Right = Ctrl-E, Down = Ctrl-N def sk4 set k \338 \24,set k \840 \16,set k \331 \08,set k \333 \05,do sk4b def sk4b set k \336 \14,set k \339 \04 ; Colors define amy set term color 1 31 45 ; pink on purple define ocean set term color 0 37 44 ; white on blue define sky set term color 0 34 47 ; blue on white define sea set term color 0 32 44 ; green on blue define gb set term color 0 32 40 ; green on black define bw set term color 0 30 47 ; black on white ; Set desired color, greet, and start. set terminal color 10 ; Fast screen updating do sky echo \13Smile!