; MS-Kermit 2.30 Initialization File for the IBM PC, XT, AT, PS2, etc. ; ; For use with CUCCA systems. ; By Vace Kundakci, Frank da Cruz, and Chris Gianone ; January 1988 ; ; See MSIIBM.DOC for an explanation of how to use the macros defined here. ; echo Columbia University IBM PC Kermit 2.30 Initialization file... ; General settings ; set warning on ; Change this to "off" to allow overwriting of files. set term roll off set input timeout quit set input echo on set input case observe set term vt102 set speed 9600 ; Change this if necessary ; Macros for connecting to different systems def cu20b do pacx,o cu20b\13,do 2065 def b do cu20b def cu20d do pacx,o cu20d\13,do 2065 def d do cu20d def sima do pacx,o sima\13,do 7171,do 3270 def simb do pacx,o simb\13,do 4994,do 3270 def clio do pacx,o clio\13,do 7171,o \13,do clog def cunixc do pacx,o cunixc\13,do 8700 def c do cunixc def cuvma do pacx,o cuvm\13,do 3695,o vma\13,do 3083 def cuvmb do pacx,o cuvm\13,do 3695,o vmb\13,do 3083 ; Macros for navigating thru front end & login prompts def pacx cle,set par e,o \13,i 5 Enter node name =>\32,pau def 3695 i 5 SWITCHING CHARACTERS:\32\32 def 3083 i 5 ONLINE,o L (CMSID)\13,do vml,c def 8700 i 5 login:\32,output (UNIXID)\13,do dec,c def 2065 i 5 \13\10\64,o ter vt102\13,o (DEC20ID)\13,do dec,c def 7171 pau,cle,o \13,i 5 TERMINAL TYPE:\32,o vt-100\13 def 4994 pau,cle,o \13,i 5 terminal type:\32,pau,o vt100\13 def 3270 pau,cle,o \13,o L (CMSID)\13,do xed,c def clog pau,cle,o \13,o CLIO\13,pause,o CLIO\13,do xed,c ; Macros for communicating with different systems def vml set par m,set k \127 \8,set k \3 \Kbreak,do tty def xed set par e,set k \127 \8,set k \3,do def def dec set par n,set k \127 ,set k \3,do def def def set tim of,set loc of,set hand non,set flow xon def tty set tim on,set loc on,set hand xon,set flow non ; Macro to run script to dial PACX on Hayes modem (untested) def dial do dec,set sp 1200,o \13,o AT\13,i OK,o ATDT 2808050,i CONNECT def callb do dial, do b ; Define similar macros for calling other systems. ; Sample Key relocations set key \334 \Kmodeline ; Toggle mode line on keypad plus key set key \271 \27 ; Put ESC on Tab key ; 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 gw set term color 0 32 40 ; green on black define bw set term color 0 30 47 ; black on white ; 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 ; 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 ; Set desired color (sky is the default), greet, and start. set terminal color 10 ; Fast screen updating do sky ; Say hello echo \13Smile!