ckermit-8.0.211/ckermit.ini - nest-learning-thermostat/5.1.1/ckermit - Git at Google

 COMMENT - Standard C-Kermit initialization file
 ;
 ; For C-Kermit Version: 8.0
 ;
 ; Filename:
 ;   .kermrc     (UNIX, OS-9, Aegis)
 ;   CKERMIT.INI (OS/2, VMS, OpenVMS, AOS/VS, Atari ST, Commodore Amiga)
 ;   ckermit.ini (Stratus VOS)
 ;   K95.INI     (Kermit 95 -- but this big version is not used there)
 ;   K2.INI      (Kermit/2  -- but ditto)
 ;
 ; Authors:
 ;   Frank da Cruz, Christine M. Gianone, Jeffrey Altman
 ;   Columbia University, New York, NY 10025-7799, USA
 ;
 ; This is the standard and recommended C-Kermit 8.0 initialization file.  To
 ; override settings or definitions made in this file, to add new settings or
 ; definitions, or to make any other desired customizations, create a separate,
 ; personal customization file called:
 ;
 ;   .mykermrc     (UNIX, OS-9, Aegis, BeBox, Plan 9)
 ;   CKERMOD.INI   (OS/2, VMS, OpenVMS, AOS/VS, Atari ST, Commodore Amiga)
 ;   ckermod.ini   (VOS)
 ;
 ; You can also define the customization filename in an environment
 ; variable (logical name in VMS), CKERMOD, which takes precedence over
 ; the names shown above.
 ;
 ; WHAT THIS FILE DOES:
 ;
 ; . Defines your default dialing directory name:
 ;     .kdd for UNIX, OS-9 and Aegis; CKERMIT.KDD for other operating systems.
 ;        You can override this with the environment variable K_DIAL_DIRECTORY
 ; . Defines your default network directory name:
 ;     .knd for UNIX, OS-9 and Aegis; CKERMIT.KND for other operating systems.
 ;        You can override this with the environment variable K_NET_DIRECTORY
 ; . Defines your default services directory name:
 ;     .ksd for UNIX, OS-9 and Aegis; CKERMIT.KSD for other operating systems.
 ;        You can override this with environment variable K_SERVICE_DIRECTORY.
 ; . Defines your customization file name (name given above)
 ; . Performs system-dependent setups for UNIX, VMS, OS/2, etc.
 ; . Defines VTPRINT macros for use with K95, MS-DOS Kermit, etc.
 ; . If you have a services directory, all the macros needed to use it are
 ;     defined.  If you don't have a services directory, the macros are not
 ;     defined and Kermit starts faster.
 ; . Executes your personal customization file, if you have one.
 ;   NOTE: Your customization file is NOT executed by Kermit itself; it is
 ;   executed by this file.
 ;
 ; In UNIX, with C-Kermit 7.0 and later, you can store this file with a name
 ; other than .kermrc, and it will not be executed automatically, but, if you
 ; give this file execute permission, you can execute directly because of the
 ; "kerbang line" at the top, whenever you want all of the above actions to
 ; occur.  The kerbang line must reflect the actual full path of the Kermit
 ; 7.0-or-later executable.
 ;
 ; C-Kermit 6.0 is documented in the book "Using C-Kermit", 2nd Edition,
 ; by Frank da Cruz and Christine M. Gianone, 1997, Digital Press /
 ; Butterworth-Heinemann, ISBN 1-55558-164-1.  New features of subsequent
 ; versions are documented at the Kermit website:
 ; http://www.columbia.edu/kermit/
 ;
 ; Everything after this point depends on the script programming language.
 ; The CHECK command terminates this command file immediately if the script
 ; programming language (IF command) is not configured.
 ;
 set take error on		; This makes CHECK quit if no script language.
 check if			; Do we have an IF command?  If not, quit now.
 set take error off		; Back to normal.

 local _sd _servicedir _xp       ; Declare local variables.

 COMMENT - C-Kermit version 6.0 or later required.
 ;

 asg _xp \v(xprogram)
 if not def _xp asg _xp \v(program)
 if not equal "\m(_xp)" "C-Kermit" -
   stop 1 \v(cmdfile): This initialization file is only for C-Kermit.
 echo Executing \v(cmdfile) for \v(system)...
 if < \v(version) 60000 -
   stop 1 \v(cmdfile): C-Kermit 6.0 or later required.

 forward \v(system)		; First do system-dependent items...

 :unknown			; Should not happen
 Stop 1 Error: System type unknown!

 :Aegis				; Apollo Aegis and
 :UNIX				; UNIX, all versions
 asg _myinit -
   \v(home).mykermrc		; Customization filename
 if remote forward COMMON        ; Skip local-mode items if "-R"
 asg _dialdir -
   \v(home).kdd			; C-Kermit dialing directory
 asg _netdir -
   \v(home).knd			; C-Kermit network directory
 asg _servicedir -
   \v(home).ksd			; C-Kermit services directory
 forward COMMON                  ; End of UNIX section

 :OS9/68K			; OS-9
 asg _myinit -
   \v(home).mykermrc		; Customization filename
 if remote forward COMMON
 asg _dialdir -
   \v(home).kdd			; C-Kermit dialing directory
 asg _netdir -
   \v(home).knd			; C-Kermit network directory
 asg _servicedir -
   \v(home).ksd			; C-Kermit services directory
 else set file display crt
 forward COMMON			; End of OS-9 section

 :VMS				; VMS and OpenVMS
 forward COMMON

 :OS/2				; Kermit 95
 :WIN32
 echo This initialization file is not for use with K95.
 forward COMMON                  ; End of OS/2 section

 :AOS/VS				; Data General AOS/VS
 set window 1			; Sliding windows don't work
 set file char dg-international	; File character-set
 set xfer char latin1		; Transfer character-set
 set file display crt            ; File transfer fisplay
 def cli push			; Escape to CLI
 def reset -			; Macro to reset DG DASHER terminal
  run write [!ascii 236 306 301]
 forward COMMON                  ; End of AOS/VS section

 :Amiga				; Commodore Amiga
 def cls echo \27[H\27[2J	; CLS command to clear the screen
 set file char latin1		; Use Latin Alphabet 1 for file transfer
 set xfer char latin1		; ...
 forward COMMON                  ; End of Amiga section

 :Atari_ST			; Atari ST
 def cls echo \27H\27J		; Clear screen a`la VT52
 set server display on		; Show file xfer display in server mode too
 set server timeout 15		; Nonzero required for ^C interruption!
 forward COMMON                  ; End of Atari ST section

 :Macintosh			; Apple Macintosh
 set server display on		; Show file xfer display in server mode too.
 forward COMMON

 :Stratus_VOS                    ; Stratus VOS
 asg _myinit \v(home)ckermod.ini
 if remote forward COMMON
 asg _dialdir \v(home)ckermit.kdd
 asg _netdir \v(home)ckermit.knd
 asg _servicedir \v(home)ckermit.ksd
 forward COMMON                  ; End of Stratus VOS section

 :COMMON				; For all systems

 ; Define macros that are useful when running C-Kermit in remote mode.
 ; These macros serve no purpose on local-mode-only versions such as
 ; OS/2, Macintosh, Amiga, and Atari ST Kermit, so we skip defining them
 ; for those systems.
 ;
 if not = 0 \findex(\v(system),WIN32:OS/2:Macintosh:Amiga:Atari_ST) -
   forward files

 ; VTPRINT macro.  Print a file on your PC's local printer.

 def VTPRINT echo \27[5i, type \%1, echo \27[4i
 ; or if your printer needs a formfeed to force the page out:
 ; def VTPRINT  def echo \27[5i, type \%1, echo \12\27[4i

 ; Macros for host-initiated file transfer using APC:
 ;   NOT NEEDED ANY MORE because of autodownload/autoupload.
 ;   Remove the following FORWARD command to reinstate these definitions:

 :FILES

 ; Get customization and directory file names.  Environment variables take
 ; precedence, so you do not have to edit this file to change these filenames.
 ;
 if def \$(CKERMOD) assign _myinit \$(CKERMOD)
 if not def _myinit assign _myinit \v(home)CKERMOD.INI

 if remote forward CUSTOM ; Skip all this if -R given on command line

 if def \$(K_NET_DIRECTORY) assign _netdir \$(K_NET_DIRECTORY)
 if not def _netdir assign _netdir \v(home)CKERMIT.KND

 if def \$(K_DIAL_DIRECTORY) assign _dialdir \$(K_DIAL_DIRECTORY)
 if not def _dialdir assign _dialdir \v(home)CKERMIT.KDD

 CHECK DIAL			; Is there a DIAL command?
 xif fail { 			; No.
     echo DIAL disabled
     forward CUSTOM
 }

 CHECK NETWORK
 xif success {
     xif exist \m(_netdir) {
 	set net directory \m(_netdir)
 	echo { Network directory is \m(_netdir) }
     }
 }

 if eq "\v(name)" "telnet" forward CUSTOM

 xif exist \m(_dialdir) {
     set dial directory \m(_dialdir)
     echo { Dial directory is \m(_dialdir) }
 }

 COMMENT - Services directory

 if def \$(K_SERVICE_DIRECTORY) assign _servicedir \$(K_SERVICE_DIRECTORY)
 if not def _servicedir assign _servicedir \v(home)CKERMIT.KSD

 ; If no services directory is found skip all the big macro definitions and
 ; go straight to the bottom, where we execute the customization file.

 if not exist \m(_servicedir) forward custom

 echo { Services directory is \m(_servicedir)}

 def MAX_SVCS 200               ; Adjust this if you have more entries
 define _sd 0                   ; Assume no services directory
 open read \m(_servicedir)      ; Try to open services directory file
 xif success {
     declare \&d[\m(MAX_SVCS)]  ; It's open, declare directory array
     for \%i 1 \m(MAX_SVCS) 1 { ; Read the lines into the array
 	read \&d[\%i]
 	if fail break
     }
     close read
     xif > \%i  \m(MAX_SVCS) {
 	echo Too many entries in services directory
 	echo { Maximum is \m(MAX_SVCS).}
 	echo { Change definition of MAX_SVCS in \v(cmdfile) to allow more. }
 	echo { Services directory disabled.}
     } else {
         asg \&d[0] \feval(\%i - 1)
         define _sd 1
     }
 }

 xif not \m(_sd) {
     def access echo { Services directory not available.}
     asg list \m(access)
 } else {
     def FIND {
 	set case off
 	for \%i 1 \&d[0] 1 {
 	    if eq {\%1} {\fsubstr(\&d[\%i],1,\flen(\%1))} break
 	}
 	if not > \%i \&d[0] return \&d[\%i]
     }
     def LIST {
 	xif > \v(argc) 1 {
 	    do find \%1
 	    if def \v(return) echo \v(return)
 	    else echo \%1: Not found
 	} else {
 	    echo \&d[0] items in services directory:
 	    for \%i 1 \&d[0] 1 { echo \fcont(\&d[\%i]) }
 	}
     }
     def SPLIT { asg _word1 \%1, asg _word2 \%2 }
     def DOACCESS {               ; (Used internally by ACCESS macro)
 	do \%5 \%6 \%7 \%8 \%9   ; Do the connection macro
 	if fail end 1
         split \%3                ; Get words from \%3
 	asg \%3 \m(_word1)
 	asg \%2 \m(_word2)
 	do \%3 \%4 {\%1} \%2     ; Login macro, userid, password, prompt
     }
     def ACCESS {
 	if not defined \%1 end 1 access what?        ; Check service
 	do find \%1                                  ; Look it up
 	if success doaccess {\%2} \v(return)         ; OK, try it
 	else end 1 "\%1" not in services directory   ; Not found
 	if fail end 1                                ; DOACCESS failed?
 	xif eq \v(cmdlevel) 1 {
 	    echo
 	    echo ACCESS: Login succeeded - CONNECTing...
             show escape
             output \13
 	    connect /quietly
         }
     }
 }

 :CONNECTION ; Macros for making connections

 COMMENT - SERIAL macro.  Arguments:
 ; \%1 = device name
 ; \%2 = speed
 ;
 def SERIAL {
     if < \v(argc) 3                         ; All arguments given?
       end 1 Usage: SERIAL device speed      ; No.
     set line \%1                            ; OK, try to SET LINE.
     if failure -                            ; If this failed,
       end 1 Can't open device: \%1          ; print message and quit.
     set speed \%2                           ; Try to set the speed.
     if fail end 1 Unsupported speed: \%2    ; Failed.
     echo Connection successful.             ; Succeeded.
 }

 COMMENT - NET macro.  Arguments:
 ; \%1 = network type
 ; \%2 = host name or address
 ;
 def NET {
     if < \v(argc) 3 end 1 Usage: NET network host
     set network type \%1
     if fail end 1 unsupported network: \%1
     set login user                ; Don't send user ID.
     set host \%2
     if fail end 1 Can't reach host: \%2
     echo Connection successful.
 }

 COMMENT - CALL macro.  Arguments:
 ;
 ; \%1 = modem type
 ; \%2 = device name
 ; \%3 = speed
 ; \%4 = phone number
 ;
 def CALL {
     if < \v(argc) 5 -         ; All arguments present?
       end 1 Usage: CALL modem device speed number
     xif not equal {\v(modem)} {\%1} { ; Set modem type
         set modem \%1
         if fail end 1 unknown modem type: \%1
     }
     xif not equal {\v(line)} {\%2} { ; Communication device
         set line \%2
         if fail end 1 can't open device: \%2
     }
     xif not equal {\v(speed)} {\%3} { ; Communication speed
         set speed \%3
         if fail end 1 unsupported speed: \%3
     }
     dial \%4                  ; Dial the number
     if fail end 1 Can't place call: \%4
     end 0 Connection successful.
 }

 COMMENT - TCPCALL macro.  Arguments:
 ;
 ; \%1 = server name:port
 ; \%2 = modem type
 ; \%3 = phone number
 ;
 def TCPCALL {
     if < \v(argc) 4 -         ; All arguments present?
       end 1 Usage: TCPCALL server[:port] modem number
     set net type tcp/ip       ; Which network to use
     if fail end 1 unsupported network: tcp/ip
     set host \%1              ; Access server and port
     if fail end 1 can't access server \%1
     set modem \%2             ; Set modem type
     if fail end 1 unknown modem type: \%2
     dial \%3                  ; Dial the number
     if fail end 1 Can't place call: \%3
     end 0 Connection successful.
 }

 COMMENT - SPRINT macro.  Arguments:
 ; \%1 = Service name or address
 ;
 def SPRINT {
     if < \v(argc) 2 end 1 Usage: \%0 service
     set input timeout proceed
     output @D\13
     input 10 TERMINAL=
     if fail end 1 No terminal prompt
     out D1\13
     inp 10 @
     if fail end 1 No atsign prompt
     output c \%1\13
     input 10 CONNECTED
     if fail end 1 Can't access \%1 from SprintNet
 }

 COMMENT - ULOGIN macro.  For logging into systems where user ID is required
 ; but there is no password.  Arguments:
 ; \%1 = UNIX user ID
 ;
 define ULOGIN {
     if < \v(argc) 2 end 1 Usage: \%0 userid
     set input timeout proceed     ; Handle timeouts ourselves
     set case on                   ; Case is important in UNIX
     minput 5 login: Username: {User ID:} {User Name:}
     out \%1\13                    ; Send username, carriage return
     end 0
 }

 COMMENT - VMSLOGIN macro.  Arguments:
 ; \%1 = VMS user ID
 ; \%2 = Password.  If password not supplied, it is prompted for.
 ; \%3 = System prompt.  If omitted a default is supplied.
 ;
 define VMSLOGIN {
     if < \v(argc) 2 end 1 Usage: \%0 userid [ password [ prompt ] ]
     while not defined \%2 {
         askq \%2 { \%1's password: }
     }
     set parity none               ; Set communication parameters
     set duplex full
     set handshake none
     set input timeout proceed     ; Handle timeouts ourselves
     in 5 Username:                ; Is prompt already there?
     xif fail {                    ; No.
         for \%i 1 3 1 {           ; Try 3 times to get it.
             out \13               ; Send carriage return
             in 5 Username:        ; Look for prompt
             if success break      ; Success, go log in
         }
         if > \%i 3 end 1 No Username prompt
     }
     out \%1\13                    ; Send username, carriage return
     inp 5 Password:               ; Wait 5 sec for this prompt
     if fail end 1 No password prompt
     pause                         ; Wait a sec
     out \%2\13                    ; Send password
     xif not emulation {           ; No emulator built in?
         set input echo off        ; Protect terminal from this
         minput 10 {\27Z} {\27[c} {\27[0c} ; Get terminal ID query
         xif success {                     ; Got one
             output \27[\?1c               ; Send VT100 terminal ID
             in 2 \27[6n                   ; Screen dimension query?
             if succ out \27[\v(rows);\v(cols)R ; Send dimensions
         }
         set input echo on         ; Echo input again
     }
     if not def \%3 -              ; If we were not given a prompt
       asg \%3 {\v(prompt)}        ; use the SET LOGIN PROMPT value
     if not def \%3 -              ; If we still don't have a prompt
       asg \%3 {\13$\32}           ; use this one as the default
     reinp 0 \%3                   ; Did we INPUT the prompt already?
     if fail inp 60 \%3            ; No, look now.
     if fail end 1
 }

 COMMENT - UNIXLOGIN macro.  Arguments:
 ; \%1 = UNIX user ID
 ; \%2 = Password.  If password not supplied, it is prompted for.
 ; \%3 = System prompt.  If omitted a default is supplied.
 ;
 define UNIXLOGIN {
     local \%m \%i
     if < \v(argc) 2 -
       end 1 Usage: \%0 userid [ password [ prompt ] ]
     while not defined \%2 {
         askq \%2 { \%1's password: }
     }
     set input echo on
     set parity none               ; Set communication parameters.
     set duplex full
     set handshake none
     set input timeout proceed     ; Handle timeouts ourselves
     set case on                   ; Case is important in UNIX
     def \%m 10                    ; Waiting time for INPUT
     for \%i 1 5 1 {
         minput \%m login: {ssword:} {Password for \%1:}
 	if success break
 	output \B\13
         \%m ::= 6-\%1
     }
     if > \%i 5 end 1 {No response from host}
     xif = \v(minput) 1 {	  ; Have username prompt
 	output \%1\13		  ; Send username
         minput 5 {ssword:} {ssword for \%1:} ; Wait for password prompt
 	if fail end 1 {No password prompt}
     }
     pause                         ; Wait a sec
     out \%2\13                    ; Send password
     if not def \%3 -              ; If we were not given a prompt
       asg \%3 {\v(prompt)}        ; use the SET LOGIN PROMPT value
     if not def \%3 -              ; If we still don't have a prompt
       asg \%3 {\10$ }             ; use this one as the default
     reinp 0 \%3                   ; Did we INPUT the prompt already?
     if fail inp 60 \%3            ; No, look now.
     if fail end 1
 }

 COMMENT - VMLINELOGIN macro.  Arguments:
 ; \%1 = User ID
 ; \%2 = Password
 ;
 define VMLINELOGIN {
     if < \v(argc) 2 -
       end 1 Usage: \%0 userid [ password ]
     while not defined \%2 {
         askq \%2 { \%1's password: }
     }
     set parity mark               ; Set communication parameters
     set flow none
     set handshake xon
     set duplex half
     set input timeout quit        ; Don't bother with IF FAILURE
     input 10 BREAK KEY            ; Look for BREAK KEY prompt
     pause 1                       ; Wait a second
     output \B                     ; Send BREAK
     input 10 .\17, output logon \%1\13    ; Now log in
     input 10 .\17, output \%2\13          ; Send password
     input 10 .\17, output \13             ; Send carriage return
     input 10 .\17, output \13             ; Send another one
     end 0
 }

 COMMENT - VMFULLOGIN macro.  Arguments:
 ; \%1 = User ID
 ; \%2 = Password
 ;
 define VMFULLOGIN {
     if < \v(argc) 2 -
       end 1 Usage: \%0 userid [ password ]
     while not defined \%2 {
         askq \%2 { \%1's password: }
     }
     set input timeout quit      ; Quit if INPUT fails
     set parity even             ; Set communication parameters
     set duplex full
     set handshake none
     set flow xon/xoff
     out \13                     ; Send carriage return
     inp 5 TERMINAL TYPE:        ; Get terminal-type prompt
     out vt-100\13               ; Just send "vt-100"
     inp 20 RUNNING              ; Get RUNNING message
     pau 1                       ; Wait one second
     out \%1\9\%2\13             ; Send user ID, tab, password
     out \13\13                  ; Two more carriage returns
     end 0
 }

 COMMENT - CISLOGIN macro.  Arguments:
 ; \%1 = CompuServe User ID
 ; \%2 = Password
 ; \%3 = Prompt
 ;
 define CISLOGIN {
     if < \v(argc) 2 -
       end 1 Usage: \%0 userid [ password [ prompt ] ]
     while not defined \%2 {
         askq \%2 { \%1's password: }
     }
     set terminal bytesize 7     ; No 8-bit characters
     set input timeout quit      ; Skip the IF FAILURE's
     output \13                  ; Send initial carriage return
     input 5 Host Name:          ; Look for Host Name prompt
     output cis\13               ; Send "cis" and carriage return
     input 5 User ID:            ; Look for User ID prompt
     output \%1\13               ; Send ID and carriage return
     input Password:             ; Look for Password prompt
     output \%2\13               ; Send password and CR
     if not def \%3 asg \%3 \v(prompt)
     if not def \%3 asg \%3 {CompuServe Information Service}
     input 30 \%3
     end 0
 }

 COMMENT - DOWLOGIN macro.  Arguments:
 ; \%1 = Dow Jones Password
 ;
 define DOWLOGIN {
     while not defined \%1 {              ; Get password
         askq \%1 { Dow Jones password: }
     }
     set input timeout proceed
     input 20 SERVICE PLEASE\?\?\?\?      ; Look for Dow prompt
     if fail end 1 No service prompt
     out djnr\13                          ; Select DJNR
     input 10 @@@@@@@@                        ; Get password prompt
     if fail end 1 No password prompt
     pause 1                              ; Wait a second, then...
     output \%1\13                        ; send password and CR
     input 30 ENTER QUERY                 ; Get DJNR query prompt
     if fail end 1 No main query prompt
     pause 1
 }

 COMMENT - DJNRSPRINT macro: Log in to Dow Jones via SprintNet.
 ;
 def djnrsprint sprint dow, if success dowlogin

 COMMENT - NOLOGIN macro.  Does nothing.  Use when login not required.
 ;
 def nologin comment

 :CUSTOM ; Customization file

 ; In VMS and OpenVMS, allow for system-wide site customizations

 xif equal "\v(system)" "VMS" {
     xif exist CKERMIT_INI:CKERMIT.SYS {
 	echo Executing CKERMIT_INI:CKERMIT.SYS
 	take CKERMIT_INI:CKERMIT.SYS
     }
 }

 ; Execute user's personal customization file

 xif exist \m(_myinit)  {		; If it exists,
     echo Executing \m(_myinit)...	; print message,
     take \m(_myinit)			; and TAKE the file.
 }

 ; Finish up with traditional greeting.

 if < \v(ntime) 43200 echo Good Morning!
   else if < \v(ntime) 61200 echo Good Afternoon!
   else echo Good Evening.

 End ; of C-Kermit 8.0 initialization file.
	COMMENT - Standard C-Kermit initialization file
	;
	; For C-Kermit Version: 8.0
	;
	; Filename:
	; .kermrc (UNIX, OS-9, Aegis)
	; CKERMIT.INI (OS/2, VMS, OpenVMS, AOS/VS, Atari ST, Commodore Amiga)
	; ckermit.ini (Stratus VOS)
	; K95.INI (Kermit 95 -- but this big version is not used there)
	; K2.INI (Kermit/2 -- but ditto)
	;
	; Authors:
	; Frank da Cruz, Christine M. Gianone, Jeffrey Altman
	; Columbia University, New York, NY 10025-7799, USA
	;
	; This is the standard and recommended C-Kermit 8.0 initialization file. To
	; override settings or definitions made in this file, to add new settings or
	; definitions, or to make any other desired customizations, create a separate,
	; personal customization file called:
	;
	; .mykermrc (UNIX, OS-9, Aegis, BeBox, Plan 9)
	; CKERMOD.INI (OS/2, VMS, OpenVMS, AOS/VS, Atari ST, Commodore Amiga)
	; ckermod.ini (VOS)
	;
	; You can also define the customization filename in an environment
	; variable (logical name in VMS), CKERMOD, which takes precedence over
	; the names shown above.
	;
	; WHAT THIS FILE DOES:
	;
	; . Defines your default dialing directory name:
	; .kdd for UNIX, OS-9 and Aegis; CKERMIT.KDD for other operating systems.
	; You can override this with the environment variable K_DIAL_DIRECTORY
	; . Defines your default network directory name:
	; .knd for UNIX, OS-9 and Aegis; CKERMIT.KND for other operating systems.
	; You can override this with the environment variable K_NET_DIRECTORY
	; . Defines your default services directory name:
	; .ksd for UNIX, OS-9 and Aegis; CKERMIT.KSD for other operating systems.
	; You can override this with environment variable K_SERVICE_DIRECTORY.
	; . Defines your customization file name (name given above)
	; . Performs system-dependent setups for UNIX, VMS, OS/2, etc.
	; . Defines VTPRINT macros for use with K95, MS-DOS Kermit, etc.
	; . If you have a services directory, all the macros needed to use it are
	; defined. If you don't have a services directory, the macros are not
	; defined and Kermit starts faster.
	; . Executes your personal customization file, if you have one.
	; NOTE: Your customization file is NOT executed by Kermit itself; it is
	; executed by this file.
	;
	; In UNIX, with C-Kermit 7.0 and later, you can store this file with a name
	; other than .kermrc, and it will not be executed automatically, but, if you
	; give this file execute permission, you can execute directly because of the
	; "kerbang line" at the top, whenever you want all of the above actions to
	; occur. The kerbang line must reflect the actual full path of the Kermit
	; 7.0-or-later executable.
	;
	; C-Kermit 6.0 is documented in the book "Using C-Kermit", 2nd Edition,
	; by Frank da Cruz and Christine M. Gianone, 1997, Digital Press /
	; Butterworth-Heinemann, ISBN 1-55558-164-1. New features of subsequent
	; versions are documented at the Kermit website:
	; http://www.columbia.edu/kermit/
	;
	; Everything after this point depends on the script programming language.
	; The CHECK command terminates this command file immediately if the script
	; programming language (IF command) is not configured.
	;
	set take error on ; This makes CHECK quit if no script language.
	check if ; Do we have an IF command? If not, quit now.
	set take error off ; Back to normal.

	local _sd _servicedir _xp ; Declare local variables.

	COMMENT - C-Kermit version 6.0 or later required.
	;

	asg _xp \v(xprogram)
	if not def _xp asg _xp \v(program)
	if not equal "\m(_xp)" "C-Kermit" -
	stop 1 \v(cmdfile): This initialization file is only for C-Kermit.
	echo Executing \v(cmdfile) for \v(system)...
	if < \v(version) 60000 -
	stop 1 \v(cmdfile): C-Kermit 6.0 or later required.

	forward \v(system) ; First do system-dependent items...

	:unknown ; Should not happen
	Stop 1 Error: System type unknown!

	:Aegis ; Apollo Aegis and
	:UNIX ; UNIX, all versions
	asg _myinit -
	\v(home).mykermrc ; Customization filename
	if remote forward COMMON ; Skip local-mode items if "-R"
	asg _dialdir -
	\v(home).kdd ; C-Kermit dialing directory
	asg _netdir -
	\v(home).knd ; C-Kermit network directory
	asg _servicedir -
	\v(home).ksd ; C-Kermit services directory
	forward COMMON ; End of UNIX section

	:OS9/68K ; OS-9
	asg _myinit -
	\v(home).mykermrc ; Customization filename
	if remote forward COMMON
	asg _dialdir -
	\v(home).kdd ; C-Kermit dialing directory
	asg _netdir -
	\v(home).knd ; C-Kermit network directory
	asg _servicedir -
	\v(home).ksd ; C-Kermit services directory
	else set file display crt
	forward COMMON ; End of OS-9 section

	:VMS ; VMS and OpenVMS
	forward COMMON

	:OS/2 ; Kermit 95
	:WIN32
	echo This initialization file is not for use with K95.
	forward COMMON ; End of OS/2 section

	:AOS/VS ; Data General AOS/VS
	set window 1 ; Sliding windows don't work
	set file char dg-international ; File character-set
	set xfer char latin1 ; Transfer character-set
	set file display crt ; File transfer fisplay
	def cli push ; Escape to CLI
	def reset - ; Macro to reset DG DASHER terminal
	run write [!ascii 236 306 301]
	forward COMMON ; End of AOS/VS section

	:Amiga ; Commodore Amiga
	def cls echo \27[H\27[2J ; CLS command to clear the screen
	set file char latin1 ; Use Latin Alphabet 1 for file transfer
	set xfer char latin1 ; ...
	forward COMMON ; End of Amiga section

	:Atari_ST ; Atari ST
	def cls echo \27H\27J ; Clear screen a`la VT52
	set server display on ; Show file xfer display in server mode too
	set server timeout 15 ; Nonzero required for ^C interruption!
	forward COMMON ; End of Atari ST section

	:Macintosh ; Apple Macintosh
	set server display on ; Show file xfer display in server mode too.
	forward COMMON

	:Stratus_VOS ; Stratus VOS
	asg _myinit \v(home)ckermod.ini
	if remote forward COMMON
	asg _dialdir \v(home)ckermit.kdd
	asg _netdir \v(home)ckermit.knd
	asg _servicedir \v(home)ckermit.ksd
	forward COMMON ; End of Stratus VOS section

	:COMMON ; For all systems

	; Define macros that are useful when running C-Kermit in remote mode.
	; These macros serve no purpose on local-mode-only versions such as
	; OS/2, Macintosh, Amiga, and Atari ST Kermit, so we skip defining them
	; for those systems.
	;
	if not = 0 \findex(\v(system),WIN32:OS/2:Macintosh:Amiga:Atari_ST) -
	forward files

	; VTPRINT macro. Print a file on your PC's local printer.

	def VTPRINT echo \27[5i, type \%1, echo \27[4i
	; or if your printer needs a formfeed to force the page out:
	; def VTPRINT def echo \27[5i, type \%1, echo \12\27[4i

	; Macros for host-initiated file transfer using APC:
	; NOT NEEDED ANY MORE because of autodownload/autoupload.
	; Remove the following FORWARD command to reinstate these definitions:

	:FILES

	; Get customization and directory file names. Environment variables take
	; precedence, so you do not have to edit this file to change these filenames.
	;
	if def \$(CKERMOD) assign _myinit \$(CKERMOD)
	if not def _myinit assign _myinit \v(home)CKERMOD.INI

	if remote forward CUSTOM ; Skip all this if -R given on command line

	if def \$(K_NET_DIRECTORY) assign _netdir \$(K_NET_DIRECTORY)
	if not def _netdir assign _netdir \v(home)CKERMIT.KND

	if def \$(K_DIAL_DIRECTORY) assign _dialdir \$(K_DIAL_DIRECTORY)
	if not def _dialdir assign _dialdir \v(home)CKERMIT.KDD

	CHECK DIAL ; Is there a DIAL command?
	xif fail { ; No.
	echo DIAL disabled
	forward CUSTOM
	}

	CHECK NETWORK
	xif success {
	xif exist \m(_netdir) {
	set net directory \m(_netdir)
	echo { Network directory is \m(_netdir) }
	}
	}

	if eq "\v(name)" "telnet" forward CUSTOM

	xif exist \m(_dialdir) {
	set dial directory \m(_dialdir)
	echo { Dial directory is \m(_dialdir) }
	}

	COMMENT - Services directory

	if def \$(K_SERVICE_DIRECTORY) assign _servicedir \$(K_SERVICE_DIRECTORY)
	if not def _servicedir assign _servicedir \v(home)CKERMIT.KSD

	; If no services directory is found skip all the big macro definitions and
	; go straight to the bottom, where we execute the customization file.

	if not exist \m(_servicedir) forward custom

	echo { Services directory is \m(_servicedir)}

	def MAX_SVCS 200 ; Adjust this if you have more entries
	define _sd 0 ; Assume no services directory
	open read \m(_servicedir) ; Try to open services directory file
	xif success {
	declare \&d[\m(MAX_SVCS)] ; It's open, declare directory array
	for \%i 1 \m(MAX_SVCS) 1 { ; Read the lines into the array
	read \&d[\%i]
	if fail break
	}
	close read
	xif > \%i \m(MAX_SVCS) {
	echo Too many entries in services directory
	echo { Maximum is \m(MAX_SVCS).}
	echo { Change definition of MAX_SVCS in \v(cmdfile) to allow more. }
	echo { Services directory disabled.}
	} else {
	asg \&d[0] \feval(\%i - 1)
	define _sd 1
	}
	}

	xif not \m(_sd) {
	def access echo { Services directory not available.}
	asg list \m(access)
	} else {
	def FIND {
	set case off
	for \%i 1 \&d[0] 1 {
	if eq {\%1} {\fsubstr(\&d[\%i],1,\flen(\%1))} break
	}
	if not > \%i \&d[0] return \&d[\%i]
	}
	def LIST {
	xif > \v(argc) 1 {
	do find \%1
	if def \v(return) echo \v(return)
	else echo \%1: Not found
	} else {
	echo \&d[0] items in services directory:
	for \%i 1 \&d[0] 1 { echo \fcont(\&d[\%i]) }
	}
	}
	def SPLIT { asg _word1 \%1, asg _word2 \%2 }
	def DOACCESS { ; (Used internally by ACCESS macro)
	do \%5 \%6 \%7 \%8 \%9 ; Do the connection macro
	if fail end 1
	split \%3 ; Get words from \%3
	asg \%3 \m(_word1)
	asg \%2 \m(_word2)
	do \%3 \%4 {\%1} \%2 ; Login macro, userid, password, prompt
	}
	def ACCESS {
	if not defined \%1 end 1 access what? ; Check service
	do find \%1 ; Look it up
	if success doaccess {\%2} \v(return) ; OK, try it
	else end 1 "\%1" not in services directory ; Not found
	if fail end 1 ; DOACCESS failed?
	xif eq \v(cmdlevel) 1 {
	echo
	echo ACCESS: Login succeeded - CONNECTing...
	show escape
	output \13
	connect /quietly
	}
	}
	}

	:CONNECTION ; Macros for making connections

	COMMENT - SERIAL macro. Arguments:
	; \%1 = device name
	; \%2 = speed
	;
	def SERIAL {
	if < \v(argc) 3 ; All arguments given?
	end 1 Usage: SERIAL device speed ; No.
	set line \%1 ; OK, try to SET LINE.
	if failure - ; If this failed,
	end 1 Can't open device: \%1 ; print message and quit.
	set speed \%2 ; Try to set the speed.
	if fail end 1 Unsupported speed: \%2 ; Failed.
	echo Connection successful. ; Succeeded.
	}

	COMMENT - NET macro. Arguments:
	; \%1 = network type
	; \%2 = host name or address
	;
	def NET {
	if < \v(argc) 3 end 1 Usage: NET network host
	set network type \%1
	if fail end 1 unsupported network: \%1
	set login user ; Don't send user ID.
	set host \%2
	if fail end 1 Can't reach host: \%2
	echo Connection successful.
	}

	COMMENT - CALL macro. Arguments:
	;
	; \%1 = modem type
	; \%2 = device name
	; \%3 = speed
	; \%4 = phone number
	;
	def CALL {
	if < \v(argc) 5 - ; All arguments present?
	end 1 Usage: CALL modem device speed number
	xif not equal {\v(modem)} {\%1} { ; Set modem type
	set modem \%1
	if fail end 1 unknown modem type: \%1
	}
	xif not equal {\v(line)} {\%2} { ; Communication device
	set line \%2
	if fail end 1 can't open device: \%2
	}
	xif not equal {\v(speed)} {\%3} { ; Communication speed
	set speed \%3
	if fail end 1 unsupported speed: \%3
	}
	dial \%4 ; Dial the number
	if fail end 1 Can't place call: \%4
	end 0 Connection successful.
	}

	COMMENT - TCPCALL macro. Arguments:
	;
	; \%1 = server name:port
	; \%2 = modem type
	; \%3 = phone number
	;
	def TCPCALL {
	if < \v(argc) 4 - ; All arguments present?
	end 1 Usage: TCPCALL server[:port] modem number
	set net type tcp/ip ; Which network to use
	if fail end 1 unsupported network: tcp/ip
	set host \%1 ; Access server and port
	if fail end 1 can't access server \%1
	set modem \%2 ; Set modem type
	if fail end 1 unknown modem type: \%2
	dial \%3 ; Dial the number
	if fail end 1 Can't place call: \%3
	end 0 Connection successful.
	}

	COMMENT - SPRINT macro. Arguments:
	; \%1 = Service name or address
	;
	def SPRINT {
	if < \v(argc) 2 end 1 Usage: \%0 service
	set input timeout proceed
	output @D\13
	input 10 TERMINAL=
	if fail end 1 No terminal prompt
	out D1\13
	inp 10 @
	if fail end 1 No atsign prompt
	output c \%1\13
	input 10 CONNECTED
	if fail end 1 Can't access \%1 from SprintNet
	}

	COMMENT - ULOGIN macro. For logging into systems where user ID is required
	; but there is no password. Arguments:
	; \%1 = UNIX user ID
	;
	define ULOGIN {
	if < \v(argc) 2 end 1 Usage: \%0 userid
	set input timeout proceed ; Handle timeouts ourselves
	set case on ; Case is important in UNIX
	minput 5 login: Username: {User ID:} {User Name:}
	out \%1\13 ; Send username, carriage return
	end 0
	}

	COMMENT - VMSLOGIN macro. Arguments:
	; \%1 = VMS user ID
	; \%2 = Password. If password not supplied, it is prompted for.
	; \%3 = System prompt. If omitted a default is supplied.
	;
	define VMSLOGIN {
	if < \v(argc) 2 end 1 Usage: \%0 userid [ password [ prompt ] ]
	while not defined \%2 {
	askq \%2 { \%1's password: }
	}
	set parity none ; Set communication parameters
	set duplex full
	set handshake none
	set input timeout proceed ; Handle timeouts ourselves
	in 5 Username: ; Is prompt already there?
	xif fail { ; No.
	for \%i 1 3 1 { ; Try 3 times to get it.
	out \13 ; Send carriage return
	in 5 Username: ; Look for prompt
	if success break ; Success, go log in
	}
	if > \%i 3 end 1 No Username prompt
	}
	out \%1\13 ; Send username, carriage return
	inp 5 Password: ; Wait 5 sec for this prompt
	if fail end 1 No password prompt
	pause ; Wait a sec
	out \%2\13 ; Send password
	xif not emulation { ; No emulator built in?
	set input echo off ; Protect terminal from this
	minput 10 {\27Z} {\27[c} {\27[0c} ; Get terminal ID query
	xif success { ; Got one
	output \27[\?1c ; Send VT100 terminal ID
	in 2 \27[6n ; Screen dimension query?
	if succ out \27[\v(rows);\v(cols)R ; Send dimensions
	}
	set input echo on ; Echo input again
	}
	if not def \%3 - ; If we were not given a prompt
	asg \%3 {\v(prompt)} ; use the SET LOGIN PROMPT value
	if not def \%3 - ; If we still don't have a prompt
	asg \%3 {\13$\32} ; use this one as the default
	reinp 0 \%3 ; Did we INPUT the prompt already?
	if fail inp 60 \%3 ; No, look now.
	if fail end 1
	}

	COMMENT - UNIXLOGIN macro. Arguments:
	; \%1 = UNIX user ID
	; \%2 = Password. If password not supplied, it is prompted for.
	; \%3 = System prompt. If omitted a default is supplied.
	;
	define UNIXLOGIN {
	local \%m \%i
	if < \v(argc) 2 -
	end 1 Usage: \%0 userid [ password [ prompt ] ]
	while not defined \%2 {
	askq \%2 { \%1's password: }
	}
	set input echo on
	set parity none ; Set communication parameters.
	set duplex full
	set handshake none
	set input timeout proceed ; Handle timeouts ourselves
	set case on ; Case is important in UNIX
	def \%m 10 ; Waiting time for INPUT
	for \%i 1 5 1 {
	minput \%m login: {ssword:} {Password for \%1:}
	if success break
	output \B\13
	\%m ::= 6-\%1
	}
	if > \%i 5 end 1 {No response from host}
	xif = \v(minput) 1 { ; Have username prompt
	output \%1\13 ; Send username
	minput 5 {ssword:} {ssword for \%1:} ; Wait for password prompt
	if fail end 1 {No password prompt}
	}
	pause ; Wait a sec
	out \%2\13 ; Send password
	if not def \%3 - ; If we were not given a prompt
	asg \%3 {\v(prompt)} ; use the SET LOGIN PROMPT value
	if not def \%3 - ; If we still don't have a prompt
	asg \%3 {\10$ } ; use this one as the default
	reinp 0 \%3 ; Did we INPUT the prompt already?
	if fail inp 60 \%3 ; No, look now.
	if fail end 1
	}

	COMMENT - VMLINELOGIN macro. Arguments:
	; \%1 = User ID
	; \%2 = Password
	;
	define VMLINELOGIN {
	if < \v(argc) 2 -
	end 1 Usage: \%0 userid [ password ]
	while not defined \%2 {
	askq \%2 { \%1's password: }
	}
	set parity mark ; Set communication parameters
	set flow none
	set handshake xon
	set duplex half
	set input timeout quit ; Don't bother with IF FAILURE
	input 10 BREAK KEY ; Look for BREAK KEY prompt
	pause 1 ; Wait a second
	output \B ; Send BREAK
	input 10 .\17, output logon \%1\13 ; Now log in
	input 10 .\17, output \%2\13 ; Send password
	input 10 .\17, output \13 ; Send carriage return
	input 10 .\17, output \13 ; Send another one
	end 0
	}

	COMMENT - VMFULLOGIN macro. Arguments:
	; \%1 = User ID
	; \%2 = Password
	;
	define VMFULLOGIN {
	if < \v(argc) 2 -
	end 1 Usage: \%0 userid [ password ]
	while not defined \%2 {
	askq \%2 { \%1's password: }
	}
	set input timeout quit ; Quit if INPUT fails
	set parity even ; Set communication parameters
	set duplex full
	set handshake none
	set flow xon/xoff
	out \13 ; Send carriage return
	inp 5 TERMINAL TYPE: ; Get terminal-type prompt
	out vt-100\13 ; Just send "vt-100"
	inp 20 RUNNING ; Get RUNNING message
	pau 1 ; Wait one second
	out \%1\9\%2\13 ; Send user ID, tab, password
	out \13\13 ; Two more carriage returns
	end 0
	}

	COMMENT - CISLOGIN macro. Arguments:
	; \%1 = CompuServe User ID
	; \%2 = Password
	; \%3 = Prompt
	;
	define CISLOGIN {
	if < \v(argc) 2 -
	end 1 Usage: \%0 userid [ password [ prompt ] ]
	while not defined \%2 {
	askq \%2 { \%1's password: }
	}
	set terminal bytesize 7 ; No 8-bit characters
	set input timeout quit ; Skip the IF FAILURE's
	output \13 ; Send initial carriage return
	input 5 Host Name: ; Look for Host Name prompt
	output cis\13 ; Send "cis" and carriage return
	input 5 User ID: ; Look for User ID prompt
	output \%1\13 ; Send ID and carriage return
	input Password: ; Look for Password prompt
	output \%2\13 ; Send password and CR
	if not def \%3 asg \%3 \v(prompt)
	if not def \%3 asg \%3 {CompuServe Information Service}
	input 30 \%3
	end 0
	}

	COMMENT - DOWLOGIN macro. Arguments:
	; \%1 = Dow Jones Password
	;
	define DOWLOGIN {
	while not defined \%1 { ; Get password
	askq \%1 { Dow Jones password: }
	}
	set input timeout proceed
	input 20 SERVICE PLEASE\?\?\?\? ; Look for Dow prompt
	if fail end 1 No service prompt
	out djnr\13 ; Select DJNR
	input 10 @@@@@@@@ ; Get password prompt
	if fail end 1 No password prompt
	pause 1 ; Wait a second, then...
	output \%1\13 ; send password and CR
	input 30 ENTER QUERY ; Get DJNR query prompt
	if fail end 1 No main query prompt
	pause 1
	}

	COMMENT - DJNRSPRINT macro: Log in to Dow Jones via SprintNet.
	;
	def djnrsprint sprint dow, if success dowlogin

	COMMENT - NOLOGIN macro. Does nothing. Use when login not required.
	;
	def nologin comment

	:CUSTOM ; Customization file

	; In VMS and OpenVMS, allow for system-wide site customizations

	xif equal "\v(system)" "VMS" {
	xif exist CKERMIT_INI:CKERMIT.SYS {
	echo Executing CKERMIT_INI:CKERMIT.SYS
	take CKERMIT_INI:CKERMIT.SYS
	}
	}

	; Execute user's personal customization file

	xif exist \m(_myinit) { ; If it exists,
	echo Executing \m(_myinit)... ; print message,
	take \m(_myinit) ; and TAKE the file.
	}

	; Finish up with traditional greeting.

	if < \v(ntime) 43200 echo Good Morning!
	else if < \v(ntime) 61200 echo Good Afternoon!
	else echo Good Evening.

	End ; of C-Kermit 8.0 initialization file.