home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / k95source / k95.ini < prev    next >
Text File  |  2020-01-01  |  3KB  |  100 lines
  1. ; K95.INI - Standard Kermit 95 initialization file.
  2. ;
  3. ; V3.0, May 2000
  4. ;
  5. ; This file sets up the standard and expected environment for Kermit 95.
  6. ; Please don't edit this file.  Make any desired customizations in the
  7. ; K95CUSTOM.INI file, which is executed by this file.
  8.  
  9. echo Executing \v(cmdfile) for \v(system)...
  10. if < \v(xversion) 1121 forward custom  ; K95 too old
  11.  
  12. if iks forward custom
  13.  
  14. ; Dialing and Network directories
  15.  
  16. set dial directory ckermit.kdd cis.kdd sprint.kdd tymnet.kdd genie.kdd
  17. set network directory ckermit.knd
  18.  
  19. ; Editor - Version 1.1.9 or later required
  20.  
  21. if def \v(editor) forward netedit     ; Picked up from registry?
  22.  
  23. ; Set up the default editor for the EDIT command.  If you would rather use
  24. ; a different editor, then either define an EDITOR environment variable, or
  25. ; add a SET EDITOR command to your K95CUSTOM.INI file to override this one.
  26. ;
  27. xif not def \$(EDITOR) {
  28.     xif def \$(SystemRoot) {                    ; Windows NT
  29.         set editor \$(SystemRoot)\\NOTEPAD.EXE
  30.     } else {
  31.         xif def \$(windir) {                    ; Windows 95
  32.             set editor \$(windir)\\NOTEPAD.EXE
  33.         } else {
  34.             echo ERROR setting default editor name --
  35.             echo Unable to locate proper Windows Environment variables  
  36.         }
  37.     }
  38. }
  39.  
  40. :NETEDIT
  41.  
  42. ; NETEDIT macro -- See UPDATES.TXT for an explanation.
  43. ;  
  44. def _NETEDIT {
  45.     switch \v(protocol) {
  46.       :kermit,   output kermit -s \%1\13, break
  47.       :zmodem,   output sz -a \%1\13, break
  48.       :ymodem,   output sb -a \%1\13, break
  49.       :ymodem-g, output sb -a \%1\13, break
  50.       :xmodem,   output sx -a \%1\13, break
  51.       :default, end 1 "\v(protocol)" - protocol unexpected
  52.     }
  53.     receive \%1
  54.     if fail end 1 "\%1" - Download failed
  55.     edit \%1
  56.     if def WAIT_FOR_EDITOR getok
  57.     if not exist \%1 end 1 -
  58.       File "\%1" missing after edit - Did you change its name\?
  59.     set file type text
  60.     send \%1
  61.     asg status \v(status)
  62.     delete \%1
  63.     if not = \m(status) 0 end 1 Upload failed
  64.     end 0
  65. }
  66.  
  67. def NETEDIT {
  68.     local mode current
  69.     asg mode \v(ftype)            ; Save things
  70.     set term autodownload off
  71.     asg current \v(directory)
  72.     if def \v(download) cd \v(download)
  73.     do _netedit \%1            ; Execute the macro
  74.     asg status \v(status)
  75.     set term autodownload on        ; Restore things
  76.     cd \m(current)
  77.     set file type \m(mode)
  78.     end \m(status)            ; Return
  79. }
  80.  
  81. ; The K95CUSTOM.INI file is created for you by SETUP.
  82. ; You can edit K95CUSTOM.INI to suit your preferences.
  83.  
  84. :CUSTOM
  85.  
  86. if exist \$(K95CUSTOM) -
  87.   take \$(K95CUSTOM)
  88. else if exist \v(startup)K95CUSTOM.INI -
  89.   take \v(startup)K95CUSTOM.INI 
  90. else if exist \v(inidir)K95CUSTOM.INI -
  91.   take \v(inidir)K95CUSTOM.INI 
  92. else if exist \v(exedir)K95CUSTOM.INI -
  93.   take \v(exedir)K95CUSTOM.INI 
  94.  
  95. if < \v(ntime) 43200 echo Good Morning, smile!
  96.   else if < \v(ntime) 61200 echo Good Afternoon, smile!
  97.   else echo Good Evening, smile!
  98.  
  99. end ; of K95.INI
  100.