; FILE MSKERMIT.INI ; ; Sample initialization file for MS-DOS Kermit 3.00. ; Christine M. Gianone, January 1990 echo MS-DOS Kermit 3.0 initialization file... COMMENT - Macro definitions section... ; Reserved variables. If you define new macros, don't use these variables. ; \%c - Last CAPTURE command filename. ; \%e - Last EDIT command filename. ; \%n - Last DIAL command phone number. ; Macro for communicating with UNIX, VAX/VMS, and similar systems: def vax set par non, set flo x, set hand no, set dupl ful, set key \270 \127 ; Macro for communicating with IBM mainframes in linemode: def ibm set par mark, set flo no, set hand xon, set dup ha, set key \270 \8 ; Macro for communicating with IBM mainframes in fullscreen mode: def fullscreen set par ev,set flo x,set hand no,set dupl ful,set key \270 \8 ; Additional DOS commands available from MS-Kermit> prompt level... ; First define a FATAL error macro. def fatal echo Error: \%1\13, def \%1, stop ; DOS MORE command... def more if < argc 2 fatal {More what?},- run more < \%1 ; DOS REN(ame) command... def rename if < argc 2 fatal {Rename what?},- if < argc 3 fatal {Rename \%1 to what?},- run ren \%1 \%2 ; DOS COPY command... def copy if < argc 2 fatal {Copy what?},- if < argc 2 fatal {Copy \%1 to where?},- run copy \%1 \%2 ; DOS CHCP command... def chcp if = argc 1 run chcp,- if = argc 2 run chcp \%1 ; EDIT command (replace "edlin" with your favorite editor or word processor) def edit if = argc 2 assign \%e \%1,- if not def \%e fatal {Edit what?},- run edlin \%e ; CAPTURE command - easy downloading of file from host. ; Unlike LOG session command, always creates a new file. ; Overwrites file of same name if it already exists. def capture if = argc 2 assign \%c \%1,- if not def \%c fatal {Capture into what file?},- if exist \%c del \%c,- log session \%c,- connect,close session ; NOISY and CLEAN macros, modify to suit your environment... def clean set rec pack 94, set retry 4, set bl 1 def noisy set rec pack 40, set retr 20, set bl 3 ; ERRSTP macro, for use with DIAL command... def errstp echo Error: \%\13,def \%1,hangup,stop ; LOOKUP macro for use with DIAL command... ; The names and numbers shown here are not real. ; Replace them with ones you really use. You may add or delete lines. def lookup - if eq \%1 compuserve def \%1 5551423,- if eq \%1 telenet def \%1 5551234,- if eq \%1 tymnet def \%1 5554321 ; DIAL command... ; Requires the file HAYES.SCR to be on current disk or in DOS PATH. ; Uses LOOKUP and FATAL macros. def dial if = argc 2 assign \%n \%1,- if < argc 2 if not def \%n fatal {Dial what?},- if > argc 2 fatal {No spaces please.},- lookup \%n,- take hayes.scr COMMENT - Script defaults set input timeout proceed ; Allow IF SUCCESS/FAILURE to work set input echo on ; Display port input on screen set input case ignore ; Ignore alphabet case for input matching set input default-timeout 1 ; One second default input timeout COMMENT - Terminal emulation settings. Modify to suit your environment. set display 7 ; in the 7-bit environment set terminal vt320 ; Emulate DEC VT320 set terminal roll off ; Keep rolled-back screens where they are set terminal wrap on ; Tell Kermit to do line wrap set terminal cursor underline ; Underline cursor (rather than block) set terminal character latin-1 ; Use ISO Latin-1 character set COMMENT - File transfer settings set file warning on ; Don't overwrite existing files set transfer character-set transparent ; Use Latin-1 for internat'l chars ;... more... COMMENT - Initial PC communication setup. Modify to suit your PC and tastes. set port 1 ; Use COM1 do vax ; Set parameters for talking to VAX ; (These are the default parameters anyway) set key \96 \27 ; Exchange ESC and set key \27 \96 ; accent grave keys during terminal emulation set terminal color 0 34 47 ; Terminal color is blue on white echo \13Smile!