home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / k95 / asap.ksc < prev    next >
Text File  |  2020-01-01  |  5KB  |  140 lines
  1. ; K95.INI - Kermit 95 initialization file for AFB NET.
  2. ; amended For use with ASAP
  3. ; by Gregory J. Rosmaita, gregory@afb.net
  4. ; Information Systems Department
  5. ; American Foundation for the Blind (AFB)
  6. ; New York, New York 
  7. ; Last modified 22 January 1997
  8. ;
  9. ; Based on the Standard Kermit 95 initialization file: V2.3, June 1997
  10. ;
  11. ; This file sets up the standard and expected environment for Kermit 95.
  12. ; Please don't edit this file.
  13.  
  14. echo Executing \v(cmdfile) for \v(system)...
  15.  
  16. ; Dialing and Network directories
  17.  
  18. set dial directory ckermit.kdd cis.kdd sprint.kdd tymnet.kdd
  19. set netw directory ckermit.knd
  20.  
  21. ; Editor - Version 1.1.9 or later required
  22.  
  23. if < \v(xversion) 119 forward custom  ; K95 too old
  24. if def \v(editor) forward netedit     ; Picked up from registry?
  25.  
  26. ; Set up the default editor for the EDIT command.  If you would rather use
  27. ; a different editor, then either define an EDITOR environment variable, or
  28. ; add a SET EDITOR command to your K95CUSTOM.INI file to override this one.
  29. ;
  30. xif not def \$(EDITOR) {
  31.     xif def \$(SystemRoot) {                    ; Windows NT
  32.         set editor \$(SystemRoot)\\NOTEPAD.EXE
  33.     } else {
  34.         xif def \$(windir) {                    ; Windows 95
  35.             set editor \$(windir)\\NOTEPAD.EXE
  36.         } else {
  37.             echo ERROR setting default editor name --
  38.             echo Unable to locate proper Windows Environment variables  
  39.         }
  40.     }
  41. }
  42.  
  43. :NETEDIT
  44.  
  45. ; NETEDIT macro -- See UPDATES.DOC for an explanation.
  46. ;  
  47. def _NETEDIT {
  48.     switch \v(protocol) {
  49.       :kermit,   output kermit -s \%1\13, break
  50.       :zmodem,   output sz -a \%1\13, break
  51.       :ymodem,   output sb -a \%1\13, break
  52.       :ymodem-g, output sb -a \%1\13, break
  53.       :xmodem,   output sx -a \%1\13, break
  54.       :default, end 1 "\v(protocol)" - protocol unexpected
  55.     }
  56.     receive \%1
  57.     if fail end 1 "\%1" - Download failed
  58.     edit \%1
  59.     if def WAIT_FOR_EDITOR getok
  60.     if not exist \%1 end 1 -
  61.       File "\%1" missing after edit - Did you change its name\?
  62.     set file type text
  63.     send \%1
  64.     asg status \v(status)
  65.     delete \%1
  66.     if not = \m(status) 0 end 1 Upload failed
  67.     end 0
  68. }
  69.  
  70. def NETEDIT {
  71.     local mode current
  72.     asg mode \v(ftype)            ; Save things
  73.     set term autodownload off
  74.     asg current \v(directory)
  75.     if def \v(download) cd \v(download)
  76.     do _netedit \%1            ; Execute the macro
  77.     asg status \v(status)
  78.     set term autodownload on        ; Restore things
  79.     cd \m(current)
  80.     set file type \m(mode)
  81.     end \m(status)            ; Return
  82. }
  83.  
  84. ; The K95CUSTOM.INI file is created for you by SETUP.
  85. ; You can edit K95CUSTOM.INI to suit your preferences.
  86.  
  87. :CUSTOM
  88.  
  89. ; begin AFB customization by GJR
  90. set printer {LPT1}
  91. set bell audible system-sounds
  92. set editor C:\os\util\ed.exe
  93. set file download-directory H:\
  94. set terminal autodownload on
  95. ;added following 4 lines 01/07/98
  96. set terminal color terminal-screen lightgray black
  97. set terminal color help-text yellow dgray
  98. set terminal statusline off
  99. set terminal mouse off
  100. set terminal apc on
  101. set terminal margin-bell on 72
  102. set terminal screen-update fast
  103. set terminal type VT102
  104. set telnet terminal-type VT102
  105. set terminal key vt102 \264 \{127}    ; Backspace
  106. set scrollback 
  107.  
  108. ; Modifications for use with ASAP by Frank da Cruz
  109. set key \400  \Kignore    ; NumLock
  110. set key \4543 \Kignore    ; Keypad Slash    Num Lock On
  111. set key \362  \Kignore    ; Keypad Multiply Num Lock On
  112. set key \365  \Kignore    ; Keypad Minus    Num Lock On
  113. set key \363  \Kignore    ; Keypad Plus     Num Lock On
  114. set key \4365 \Kignore    ; Keypad Enter    Num Lock On
  115. set key \366  \Kignore    ; Keypad Period   Num Lock On
  116. set key \352  \Kignore    ; Keypad 0        Num Lock On
  117. set key \353  \Kignore    ; Keypad 1        Num Lock On
  118. set key \354  \Kignore    ; Keypad 2        Num Lock On
  119. set key \355  \Kignore    ; Keypad 3        Num Lock On
  120. set key \356  \Kignore    ; Keypad 4        Num Lock On
  121. set key \357  \Kignore    ; Keypad 5        Num Lock On
  122. set key \358  \Kignore    ; Keypad 6        Num Lock On
  123. set key \359  \Kignore    ; Keypad 7        Num Lock On
  124. set key \360  \Kignore    ; Keypad 8        Num Lock On
  125. set key \361  \Kignore    ; Keypad 9        Num Lock On
  126. ;End of modifications for use with ASAP
  127.  
  128. ;if exist \$(K95CUSTOM) -
  129. ;  take \$(K95CUSTOM)
  130. ;else if exist \v(startup)K95CUSTOM.INI -
  131. ;  take \v(startup)K95CUSTOM.INI 
  132. ;else if exist \v(inidir)K95CUSTOM.INI -
  133. ;  take \v(inidir)K95CUSTOM.INI 
  134. ;else if exist \v(exedir)K95CUSTOM.INI -
  135. ;  take \v(exedir)K95CUSTOM.INI 
  136.  
  137. if < \v(ntime) 43200 echo Good Morning and Welcome to AFB NET, smile!
  138.   else if < \v(ntime) 61200 echo Good Afternoon and Welcome to AFB NET, smile!
  139.   else echo Good Evening and Welcome to AFB NET, smile!
  140.