; FILE MSKERMIT.INI
;
; Sample initialization file for MS-DOS Kermit 3.01.
; Christine M. Gianone, March 1990

echo MS-DOS Kermit 3.01 initialization file

COMMENT - Macro definitions section...

; Reserved variables.  If you define new macros, don't use these variables.
;  \%e - Last EDIT command filename.
;  \%n - Last DIAL command phone number.

; Macros 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
def vms  do vax, set displ 8 ; VMS 5.0 or later, VT320 Eightbit.
def unix do vax, set displ 7 ; Most UNIX systems are still 7-bit.

; 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 directly from the MS-Kermit> prompt.

; 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 3 fatal {Copy \%1 to where?},-
run copy \%1 \%2

; DOS CHCP command to examine or change code page...
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 a file from the host.
; Unlike the LOG SESSION command, CAPTURE always creates a new file.
; It overwrites file of same name if it already exists.
; Usage: at the MS-Kermit> prompt, type "capture xxx" where xxx is the name
; of the file you want to create on the PC.  Once you are connected to the
; host, TYPE the desired file.  Escape back when done.  The captured file will
; be on your disk (with a TYPE command at the beginning & a prompt at the end).
def capture if = argc 1 fatal {Capture into what file?},-
if exist \%1 del \%1,-
log session \%1,-
connect,close session,log sess session.log,close ses,def \%1

; 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: \%1\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 also add or delete lines, but the entire macro definition
; cannot be more than 255 characters long.
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.TAK 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.tak

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 tabs at 1:8	; Set tabs at every 8 spaces
set terminal cursor underline	; Underline cursor (rather than block)
set terminal character latin1	; Use ISO Latin-1 terminal character set

COMMENT - File transfer settings

set file warning on		; Don't overwrite existing files
set transfer character-set transparent ; For compatibility with old versions
set receive packet-length 94    ; Regular-size packets
set attributes on		; Use file-attribute packets
set window 1			; Don't use sliding windows

COMMENT - Initial PC communication setup.
;
; The following commands are commented out, shown as examples only.
; Replace with settings appropriate for 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 speed 9600                ; Transmission speed
; set terminal color 0 34 47    ; Terminal color is blue on white

echo \13Smile!