ockermit.ini

   1 COMMENT - Standard C-Kermit initialization file
   2 ;
   3 ; For C-Kermit Version: 8.0
   4 ;
   5 ; Filename:
   6 ;   .kermrc     (UNIX, OS-9, Aegis)
   7 ;   CKERMIT.INI (OS/2, VMS, OpenVMS, AOS/VS, Atari ST, Commodore Amiga)
   8 ;   ckermit.ini (Stratus VOS)
   9 ;   K95.INI     (Kermit 95 -- but this big version is not used there)
  10 ;   K2.INI      (Kermit/2  -- but ditto)
  11 ;
  12 ; Authors:
  13 ;   Frank da Cruz, Christine M. Gianone, Jeffrey Altman
  14 ;   Columbia University, New York, NY 10025-7799, USA
  15 ;
  16 ; This is the standard and recommended C-Kermit 8.0 initialization file.  To
  17 ; override settings or definitions made in this file, to add new settings or
  18 ; definitions, or to make any other desired customizations, create a separate,
  19 ; personal customization file called:
  20 ;
  21 ;   .mykermrc     (UNIX, OS-9, Aegis, BeBox, Plan 9)
  22 ;   CKERMOD.INI   (OS/2, VMS, OpenVMS, AOS/VS, Atari ST, Commodore Amiga)
  23 ;   ckermod.ini   (VOS)
  24 ;
  25 ; You can also define the customization filename in an environment
  26 ; variable (logical name in VMS), CKERMOD, which takes precedence over
  27 ; the names shown above.
  28 ;
  29 ; WHAT THIS FILE DOES:
  30 ;
  31 ; . Defines your default dialing directory name:
  32 ;     .kdd for UNIX, OS-9 and Aegis; CKERMIT.KDD for other operating systems.
  33 ;        You can override this with the environment variable K_DIAL_DIRECTORY
  34 ; . Defines your default network directory name:
  35 ;     .knd for UNIX, OS-9 and Aegis; CKERMIT.KND for other operating systems.
  36 ;        You can override this with the environment variable K_NET_DIRECTORY
  37 ; . Defines your default services directory name:
  38 ;     .ksd for UNIX, OS-9 and Aegis; CKERMIT.KSD for other operating systems.
  39 ;        You can override this with environment variable K_SERVICE_DIRECTORY.
  40 ; . Defines your customization file name (name given above)
  41 ; . Performs system-dependent setups for UNIX, VMS, OS/2, etc.
  42 ; . Defines VTPRINT macros for use with K95, MS-DOS Kermit, etc.
  43 ; . If you have a services directory, all the macros needed to use it are
  44 ;     defined.  If you don't have a services directory, the macros are not
  45 ;     defined and Kermit starts faster.
  46 ; . Executes your personal customization file, if you have one.
  47 ;   NOTE: Your customization file is NOT executed by Kermit itself; it is
  48 ;   executed by this file.
  49 ;
  50 ; In UNIX, with C-Kermit 7.0 and later, you can store this file with a name
  51 ; other than .kermrc, and it will not be executed automatically, but, if you
  52 ; give this file execute permission, you can execute directly because of the
  53 ; "kerbang line" at the top, whenever you want all of the above actions to
  54 ; occur.  The kerbang line must reflect the actual full path of the Kermit
  55 ; 7.0-or-later executable.
  56 ;
  57 ; C-Kermit 6.0 is documented in the book "Using C-Kermit", 2nd Edition,
  58 ; by Frank da Cruz and Christine M. Gianone, 1997, Digital Press /
  59 ; Butterworth-Heinemann, ISBN 1-55558-164-1.  New features of subsequent
  60 ; versions are documented at the Kermit website:
  61 ; http://www.columbia.edu/kermit/
  62 ;
  63 ; Everything after this point depends on the script programming language.
  64 ; The CHECK command terminates this command file immediately if the script
  65 ; programming language (IF command) is not configured.
  66 ;
  67 set take error on               ; This makes CHECK quit if no script language.
  68 check if                        ; Do we have an IF command?  If not, quit now.
  69 set take error off              ; Back to normal.
  70
  71 local _sd _servicedir _xp       ; Declare local variables.
  72
  73 COMMENT - C-Kermit version 6.0 or later required.
  74 ;
  75
  76 asg _xp \v(xprogram)
  77 if not def _xp asg _xp \v(program)
  78 if not equal "\m(_xp)" "C-Kermit" -
  79   stop 1 \v(cmdfile): This initialization file is only for C-Kermit.
  80 echo Executing \v(cmdfile) for \v(system)...
  81 if < \v(version) 60000 -
  82   stop 1 \v(cmdfile): C-Kermit 6.0 or later required.
  83
  84 forward \v(system)              ; First do system-dependent items...
  85
  86 :unknown                        ; Should not happen
  87 Stop 1 Error: System type unknown!
  88
  89 :Aegis                          ; Apollo Aegis and
  90 :UNIX                           ; UNIX, all versions
  91 asg _myinit -
  92   \v(home).mykermrc             ; Customization filename
  93 if remote forward COMMON        ; Skip local-mode items if "-R"
  94 asg _dialdir -
  95   \v(home).kdd                  ; C-Kermit dialing directory
  96 asg _netdir -
  97   \v(home).knd                  ; C-Kermit network directory
  98 asg _servicedir -
  99   \v(home).ksd                  ; C-Kermit services directory
 100 forward COMMON                  ; End of UNIX section
 101
 102 :OS9/68K                        ; OS-9
 103 asg _myinit -
 104   \v(home).mykermrc             ; Customization filename
 105 if remote forward COMMON
 106 asg _dialdir -
 107   \v(home).kdd                  ; C-Kermit dialing directory
 108 asg _netdir -
 109   \v(home).knd                  ; C-Kermit network directory
 110 asg _servicedir -
 111   \v(home).ksd                  ; C-Kermit services directory
 112 else set file display crt
 113 forward COMMON                  ; End of OS-9 section
 114
 115 :VMS                            ; VMS and OpenVMS
 116 forward COMMON
 117
 118 :OS/2                           ; Kermit 95
 119 :WIN32
 120 echo This initialization file is not for use with K95.
 121 forward COMMON                  ; End of OS/2 section
 122
 123 :AOS/VS                         ; Data General AOS/VS
 124 set window 1                    ; Sliding windows don't work
 125 set file char dg-international  ; File character-set
 126 set xfer char latin1            ; Transfer character-set
 127 set file display crt            ; File transfer fisplay
 128 def cli push                    ; Escape to CLI
 129 def reset -                     ; Macro to reset DG DASHER terminal
 130  run write [!ascii 236 306 301]
 131 forward COMMON                  ; End of AOS/VS section
 132
 133 :Amiga                          ; Commodore Amiga
 134 def cls echo \27[H\27[2J        ; CLS command to clear the screen
 135 set file char latin1            ; Use Latin Alphabet 1 for file transfer
 136 set xfer char latin1            ; ...
 137 forward COMMON                  ; End of Amiga section
 138
 139 :Atari_ST                       ; Atari ST
 140 def cls echo \27H\27J           ; Clear screen a`la VT52
 141 set server display on           ; Show file xfer display in server mode too
 142 set server timeout 15           ; Nonzero required for ^C interruption!
 143 forward COMMON                  ; End of Atari ST section
 144
 145 :Macintosh                      ; Apple Macintosh
 146 set server display on           ; Show file xfer display in server mode too.
 147 forward COMMON
 148
 149 :Stratus_VOS                    ; Stratus VOS
 150 asg _myinit \v(home)ckermod.ini
 151 if remote forward COMMON
 152 asg _dialdir \v(home)ckermit.kdd
 153 asg _netdir \v(home)ckermit.knd
 154 asg _servicedir \v(home)ckermit.ksd
 155 forward COMMON                  ; End of Stratus VOS section
 156
 157 :COMMON                         ; For all systems
 158
 159 ; Define macros that are useful when running C-Kermit in remote mode.
 160 ; These macros serve no purpose on local-mode-only versions such as
 161 ; OS/2, Macintosh, Amiga, and Atari ST Kermit, so we skip defining them
 162 ; for those systems.
 163 ;
 164 if not = 0 \findex(\v(system),WIN32:OS/2:Macintosh:Amiga:Atari_ST) -
 165   forward files
 166
 167 ; VTPRINT macro.  Print a file on your PC's local printer.
 168
 169 def VTPRINT echo \27[5i, type \%1, echo \27[4i
 170 ; or if your printer needs a formfeed to force the page out:
 171 ; def VTPRINT  def echo \27[5i, type \%1, echo \12\27[4i
 172
 173 ; Macros for host-initiated file transfer using APC:
 174 ;   NOT NEEDED ANY MORE because of autodownload/autoupload.
 175 ;   Remove the following FORWARD command to reinstate these definitions:
 176
 177 :FILES
 178
 179 ; Get customization and directory file names.  Environment variables take
 180 ; precedence, so you do not have to edit this file to change these filenames.
 181 ;
 182 if def \$(CKERMOD) assign _myinit \$(CKERMOD)
 183 if not def _myinit assign _myinit \v(home)CKERMOD.INI
 184
 185 if remote forward CUSTOM ; Skip all this if -R given on command line
 186
 187 if def \$(K_NET_DIRECTORY) assign _netdir \$(K_NET_DIRECTORY)
 188 if not def _netdir assign _netdir \v(home)CKERMIT.KND
 189
 190 if def \$(K_DIAL_DIRECTORY) assign _dialdir \$(K_DIAL_DIRECTORY)
 191 if not def _dialdir assign _dialdir \v(home)CKERMIT.KDD
 192
 193 CHECK DIAL                      ; Is there a DIAL command?
 194 xif fail {                      ; No.
 195     echo DIAL disabled
 196     forward CUSTOM
 197 }
 198
 199 CHECK NETWORK
 200 xif success {
 201     xif exist \m(_netdir) {
 202         set net directory \m(_netdir)
 203         echo { Network directory is \m(_netdir) }
 204     }
 205 }
 206
 207 if eq "\v(name)" "telnet" forward CUSTOM
 208
 209 xif exist \m(_dialdir) {
 210     set dial directory \m(_dialdir)
 211     echo { Dial directory is \m(_dialdir) }
 212 }
 213
 214 COMMENT - Services directory
 215
 216 if def \$(K_SERVICE_DIRECTORY) assign _servicedir \$(K_SERVICE_DIRECTORY)
 217 if not def _servicedir assign _servicedir \v(home)CKERMIT.KSD
 218
 219 ; If no services directory is found skip all the big macro definitions and
 220 ; go straight to the bottom, where we execute the customization file.
 221
 222 if not exist \m(_servicedir) forward custom
 223
 224 echo { Services directory is \m(_servicedir)}
 225
 226 def MAX_SVCS 200               ; Adjust this if you have more entries
 227 define _sd 0                   ; Assume no services directory
 228 open read \m(_servicedir)      ; Try to open services directory file
 229 xif success {
 230     declare \&d[\m(MAX_SVCS)]  ; It's open, declare directory array
 231     for \%i 1 \m(MAX_SVCS) 1 { ; Read the lines into the array
 232         read \&d[\%i]
 233         if fail break
 234     }
 235     close read
 236     xif > \%i  \m(MAX_SVCS) {
 237         echo Too many entries in services directory
 238         echo { Maximum is \m(MAX_SVCS).}
 239         echo { Change definition of MAX_SVCS in \v(cmdfile) to allow more. }
 240         echo { Services directory disabled.}
 241     } else {
 242         asg \&d[0] \feval(\%i - 1)
 243         define _sd 1
 244     }
 245 }
 246
 247 xif not \m(_sd) {
 248     def access echo { Services directory not available.}
 249     asg list \m(access)
 250 } else {
 251     def FIND {
 252         set case off
 253         for \%i 1 \&d[0] 1 {
 254             if eq {\%1} {\fsubstr(\&d[\%i],1,\flen(\%1))} break
 255         }
 256         if not > \%i \&d[0] return \&d[\%i]
 257     }
 258     def LIST {
 259         xif > \v(argc) 1 {
 260             do find \%1
 261             if def \v(return) echo \v(return)
 262             else echo \%1: Not found
 263         } else {
 264             echo \&d[0] items in services directory:
 265             for \%i 1 \&d[0] 1 { echo \fcont(\&d[\%i]) }
 266         }
 267     }
 268     def SPLIT { asg _word1 \%1, asg _word2 \%2 }
 269     def DOACCESS {               ; (Used internally by ACCESS macro)
 270         do \%5 \%6 \%7 \%8 \%9   ; Do the connection macro
 271         if fail end 1
 272         split \%3                ; Get words from \%3
 273         asg \%3 \m(_word1)
 274         asg \%2 \m(_word2)
 275         do \%3 \%4 {\%1} \%2     ; Login macro, userid, password, prompt
 276     }
 277     def ACCESS {
 278         if not defined \%1 end 1 access what?        ; Check service
 279         do find \%1                                  ; Look it up
 280         if success doaccess {\%2} \v(return)         ; OK, try it
 281         else end 1 "\%1" not in services directory   ; Not found
 282         if fail end 1                                ; DOACCESS failed?
 283         xif eq \v(cmdlevel) 1 {
 284             echo
 285             echo ACCESS: Login succeeded - CONNECTing...
 286             show escape
 287             output \13
 288             connect /quietly
 289         }
 290     }
 291 }
 292
 293 :CONNECTION ; Macros for making connections
 294
 295 COMMENT - SERIAL macro.  Arguments:
 296 ; \%1 = device name
 297 ; \%2 = speed
 298 ;
 299 def SERIAL {
 300     if < \v(argc) 3                         ; All arguments given?
 301       end 1 Usage: SERIAL device speed      ; No.
 302     set line \%1                            ; OK, try to SET LINE.
 303     if failure -                            ; If this failed,
 304       end 1 Can't open device: \%1          ; print message and quit.
 305     set speed \%2                           ; Try to set the speed.
 306     if fail end 1 Unsupported speed: \%2    ; Failed.
 307     echo Connection successful.             ; Succeeded.
 308 }
 309
 310 COMMENT - NET macro.  Arguments:
 311 ; \%1 = network type
 312 ; \%2 = host name or address
 313 ;
 314 def NET {
 315     if < \v(argc) 3 end 1 Usage: NET network host
 316     set network type \%1
 317     if fail end 1 unsupported network: \%1
 318     set login user                ; Don't send user ID.
 319     set host \%2
 320     if fail end 1 Can't reach host: \%2
 321     echo Connection successful.
 322 }
 323
 324 COMMENT - CALL macro.  Arguments:
 325 ;
 326 ; \%1 = modem type
 327 ; \%2 = device name
 328 ; \%3 = speed
 329 ; \%4 = phone number
 330 ;
 331 def CALL {
 332     if < \v(argc) 5 -         ; All arguments present?
 333       end 1 Usage: CALL modem device speed number
 334     xif not equal {\v(modem)} {\%1} { ; Set modem type
 335         set modem \%1
 336         if fail end 1 unknown modem type: \%1
 337     }
 338     xif not equal {\v(line)} {\%2} { ; Communication device
 339         set line \%2
 340         if fail end 1 can't open device: \%2
 341     }
 342     xif not equal {\v(speed)} {\%3} { ; Communication speed
 343         set speed \%3
 344         if fail end 1 unsupported speed: \%3
 345     }
 346     dial \%4                  ; Dial the number
 347     if fail end 1 Can't place call: \%4
 348     end 0 Connection successful.
 349 }
 350
 351 COMMENT - TCPCALL macro.  Arguments:
 352 ;
 353 ; \%1 = server name:port
 354 ; \%2 = modem type
 355 ; \%3 = phone number
 356 ;
 357 def TCPCALL {
 358     if < \v(argc) 4 -         ; All arguments present?
 359       end 1 Usage: TCPCALL server[:port] modem number
 360     set net type tcp/ip       ; Which network to use
 361     if fail end 1 unsupported network: tcp/ip
 362     set host \%1              ; Access server and port
 363     if fail end 1 can't access server \%1
 364     set modem \%2             ; Set modem type
 365     if fail end 1 unknown modem type: \%2
 366     dial \%3                  ; Dial the number
 367     if fail end 1 Can't place call: \%3
 368     end 0 Connection successful.
 369 }
 370
 371 COMMENT - SPRINT macro.  Arguments:
 372 ; \%1 = Service name or address
 373 ;
 374 def SPRINT {
 375     if < \v(argc) 2 end 1 Usage: \%0 service
 376     set input timeout proceed
 377     output @D\13
 378     input 10 TERMINAL=
 379     if fail end 1 No terminal prompt
 380     out D1\13
 381     inp 10 @
 382     if fail end 1 No atsign prompt
 383     output c \%1\13
 384     input 10 CONNECTED
 385     if fail end 1 Can't access \%1 from SprintNet
 386 }
 387
 388 COMMENT - ULOGIN macro.  For logging into systems where user ID is required
 389 ; but there is no password.  Arguments:
 390 ; \%1 = UNIX user ID
 391 ;
 392 define ULOGIN {
 393     if < \v(argc) 2 end 1 Usage: \%0 userid
 394     set input timeout proceed     ; Handle timeouts ourselves
 395     set case on                   ; Case is important in UNIX
 396     minput 5 login: Username: {User ID:} {User Name:}
 397     out \%1\13                    ; Send username, carriage return
 398     end 0
 399 }
 400
 401 COMMENT - VMSLOGIN macro.  Arguments:
 402 ; \%1 = VMS user ID
 403 ; \%2 = Password.  If password not supplied, it is prompted for.
 404 ; \%3 = System prompt.  If omitted a default is supplied.
 405 ;
 406 define VMSLOGIN {
 407     if < \v(argc) 2 end 1 Usage: \%0 userid [ password [ prompt ] ]
 408     while not defined \%2 {
 409         askq \%2 { \%1's password: }
 410     }
 411     set parity none               ; Set communication parameters
 412     set duplex full
 413     set handshake none
 414     set input timeout proceed     ; Handle timeouts ourselves
 415     in 5 Username:                ; Is prompt already there?
 416     xif fail {                    ; No.
 417         for \%i 1 3 1 {           ; Try 3 times to get it.
 418             out \13               ; Send carriage return
 419             in 5 Username:        ; Look for prompt
 420             if success break      ; Success, go log in
 421         }
 422         if > \%i 3 end 1 No Username prompt
 423     }
 424     out \%1\13                    ; Send username, carriage return
 425     inp 5 Password:               ; Wait 5 sec for this prompt
 426     if fail end 1 No password prompt
 427     pause                         ; Wait a sec
 428     out \%2\13                    ; Send password
 429     xif not emulation {           ; No emulator built in?
 430         set input echo off        ; Protect terminal from this
 431         minput 10 {\27Z} {\27[c} {\27[0c} ; Get terminal ID query
 432         xif success {                     ; Got one
 433             output \27[\?1c               ; Send VT100 terminal ID
 434             in 2 \27[6n                   ; Screen dimension query?
 435             if succ out \27[\v(rows);\v(cols)R ; Send dimensions
 436         }
 437         set input echo on         ; Echo input again
 438     }
 439     if not def \%3 -              ; If we were not given a prompt
 440       asg \%3 {\v(prompt)}        ; use the SET LOGIN PROMPT value
 441     if not def \%3 -              ; If we still don't have a prompt
 442       asg \%3 {\13$\32}           ; use this one as the default
 443     reinp 0 \%3                   ; Did we INPUT the prompt already?
 444     if fail inp 60 \%3            ; No, look now.
 445     if fail end 1
 446 }
 447
 448 COMMENT - UNIXLOGIN macro.  Arguments:
 449 ; \%1 = UNIX user ID
 450 ; \%2 = Password.  If password not supplied, it is prompted for.
 451 ; \%3 = System prompt.  If omitted a default is supplied.
 452 ;
 453 define UNIXLOGIN {
 454     local \%m \%i
 455     if < \v(argc) 2 -
 456       end 1 Usage: \%0 userid [ password [ prompt ] ]
 457     while not defined \%2 {
 458         askq \%2 { \%1's password: }
 459     }
 460     set input echo on
 461     set parity none               ; Set communication parameters.
 462     set duplex full
 463     set handshake none
 464     set input timeout proceed     ; Handle timeouts ourselves
 465     set case on                   ; Case is important in UNIX
 466     def \%m 10                    ; Waiting time for INPUT
 467     for \%i 1 5 1 {
 468         minput \%m login: {ssword:} {Password for \%1:}
 469         if success break
 470         output \B\13
 471         \%m ::= 6-\%1
 472     }
 473     if > \%i 5 end 1 {No response from host}
 474     xif = \v(minput) 1 {          ; Have username prompt
 475         output \%1\13             ; Send username
 476         minput 5 {ssword:} {ssword for \%1:} ; Wait for password prompt
 477         if fail end 1 {No password prompt}
 478     }
 479     pause                         ; Wait a sec
 480     out \%2\13                    ; Send password
 481     if not def \%3 -              ; If we were not given a prompt
 482       asg \%3 {\v(prompt)}        ; use the SET LOGIN PROMPT value
 483     if not def \%3 -              ; If we still don't have a prompt
 484       asg \%3 {\10$ }             ; use this one as the default
 485     reinp 0 \%3                   ; Did we INPUT the prompt already?
 486     if fail inp 60 \%3            ; No, look now.
 487     if fail end 1
 488 }
 489
 490 COMMENT - VMLINELOGIN macro.  Arguments:
 491 ; \%1 = User ID
 492 ; \%2 = Password
 493 ;
 494 define VMLINELOGIN {
 495     if < \v(argc) 2 -
 496       end 1 Usage: \%0 userid [ password ]
 497     while not defined \%2 {
 498         askq \%2 { \%1's password: }
 499     }
 500     set parity mark               ; Set communication parameters
 501     set flow none
 502     set handshake xon
 503     set duplex half
 504     set input timeout quit        ; Don't bother with IF FAILURE
 505     input 10 BREAK KEY            ; Look for BREAK KEY prompt
 506     pause 1                       ; Wait a second
 507     output \B                     ; Send BREAK
 508     input 10 .\17, output logon \%1\13    ; Now log in
 509     input 10 .\17, output \%2\13          ; Send password
 510     input 10 .\17, output \13             ; Send carriage return
 511     input 10 .\17, output \13             ; Send another one
 512     end 0
 513 }
 514
 515 COMMENT - VMFULLOGIN macro.  Arguments:
 516 ; \%1 = User ID
 517 ; \%2 = Password
 518 ;
 519 define VMFULLOGIN {
 520     if < \v(argc) 2 -
 521       end 1 Usage: \%0 userid [ password ]
 522     while not defined \%2 {
 523         askq \%2 { \%1's password: }
 524     }
 525     set input timeout quit      ; Quit if INPUT fails
 526     set parity even             ; Set communication parameters
 527     set duplex full
 528     set handshake none
 529     set flow xon/xoff
 530     out \13                     ; Send carriage return
 531     inp 5 TERMINAL TYPE:        ; Get terminal-type prompt
 532     out vt-100\13               ; Just send "vt-100"
 533     inp 20 RUNNING              ; Get RUNNING message
 534     pau 1                       ; Wait one second
 535     out \%1\9\%2\13             ; Send user ID, tab, password
 536     out \13\13                  ; Two more carriage returns
 537     end 0
 538 }
 539
 540 COMMENT - CISLOGIN macro.  Arguments:
 541 ; \%1 = CompuServe User ID
 542 ; \%2 = Password
 543 ; \%3 = Prompt
 544 ;
 545 define CISLOGIN {
 546     if < \v(argc) 2 -
 547       end 1 Usage: \%0 userid [ password [ prompt ] ]
 548     while not defined \%2 {
 549         askq \%2 { \%1's password: }
 550     }
 551     set terminal bytesize 7     ; No 8-bit characters
 552     set input timeout quit      ; Skip the IF FAILURE's
 553     output \13                  ; Send initial carriage return
 554     input 5 Host Name:          ; Look for Host Name prompt
 555     output cis\13               ; Send "cis" and carriage return
 556     input 5 User ID:            ; Look for User ID prompt
 557     output \%1\13               ; Send ID and carriage return
 558     input Password:             ; Look for Password prompt
 559     output \%2\13               ; Send password and CR
 560     if not def \%3 asg \%3 \v(prompt)
 561     if not def \%3 asg \%3 {CompuServe Information Service}
 562     input 30 \%3
 563     end 0
 564 }
 565
 566 COMMENT - DOWLOGIN macro.  Arguments:
 567 ; \%1 = Dow Jones Password
 568 ;
 569 define DOWLOGIN {
 570     while not defined \%1 {              ; Get password
 571         askq \%1 { Dow Jones password: }
 572     }
 573     set input timeout proceed
 574     input 20 SERVICE PLEASE\?\?\?\?      ; Look for Dow prompt
 575     if fail end 1 No service prompt
 576     out djnr\13                          ; Select DJNR
 577     input 10 @@@@@@@@                        ; Get password prompt
 578     if fail end 1 No password prompt
 579     pause 1                              ; Wait a second, then...
 580     output \%1\13                        ; send password and CR
 581     input 30 ENTER QUERY                 ; Get DJNR query prompt
 582     if fail end 1 No main query prompt
 583     pause 1
 584 }
 585
 586 COMMENT - DJNRSPRINT macro: Log in to Dow Jones via SprintNet.
 587 ;
 588 def djnrsprint sprint dow, if success dowlogin
 589
 590 COMMENT - NOLOGIN macro.  Does nothing.  Use when login not required.
 591 ;
 592 def nologin comment
 593
 594 :CUSTOM ; Customization file
 595
 596 ; In VMS and OpenVMS, allow for system-wide site customizations
 597
 598 xif equal "\v(system)" "VMS" {
 599     xif exist CKERMIT_INI:CKERMIT.SYS {
 600         echo Executing CKERMIT_INI:CKERMIT.SYS
 601         take CKERMIT_INI:CKERMIT.SYS
 602     }
 603 }
 604
 605 ; Execute user's personal customization file
 606
 607 xif exist \m(_myinit)  {                ; If it exists,
 608     echo Executing \m(_myinit)...       ; print message,
 609     take \m(_myinit)                    ; and TAKE the file.
 610 }
 611
 612 ; Finish up with traditional greeting.
 613
 614 if < \v(ntime) 43200 echo Good Morning!
 615   else if < \v(ntime) 61200 echo Good Afternoon!
 616   else echo Good Evening.
 617
 618 End ; of C-Kermit 8.0 initialization file.