home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
kermit.columbia.edu
/
kermit.columbia.edu.tar
/
kermit.columbia.edu
/
k95
/
asap.ksc
< prev
next >
Wrap
Text File
|
1998-02-13
|
5KB
|
140 lines
; K95.INI - Kermit 95 initialization file for AFB NET.
; amended For use with ASAP
; by Gregory J. Rosmaita, gregory@afb.net
; Information Systems Department
; American Foundation for the Blind (AFB)
; New York, New York
; Last modified 22 January 1997
;
; Based on the Standard Kermit 95 initialization file: V2.3, June 1997
;
; This file sets up the standard and expected environment for Kermit 95.
; Please don't edit this file.
echo Executing \v(cmdfile) for \v(system)...
; Dialing and Network directories
set dial directory ckermit.kdd cis.kdd sprint.kdd tymnet.kdd
set netw directory ckermit.knd
; Editor - Version 1.1.9 or later required
if < \v(xversion) 119 forward custom ; K95 too old
if def \v(editor) forward netedit ; Picked up from registry?
; Set up the default editor for the EDIT command. If you would rather use
; a different editor, then either define an EDITOR environment variable, or
; add a SET EDITOR command to your K95CUSTOM.INI file to override this one.
;
xif not def \$(EDITOR) {
xif def \$(SystemRoot) { ; Windows NT
set editor \$(SystemRoot)\\NOTEPAD.EXE
} else {
xif def \$(windir) { ; Windows 95
set editor \$(windir)\\NOTEPAD.EXE
} else {
echo ERROR setting default editor name --
echo Unable to locate proper Windows Environment variables
}
}
}
:NETEDIT
; NETEDIT macro -- See UPDATES.DOC for an explanation.
;
def _NETEDIT {
switch \v(protocol) {
:kermit, output kermit -s \%1\13, break
:zmodem, output sz -a \%1\13, break
:ymodem, output sb -a \%1\13, break
:ymodem-g, output sb -a \%1\13, break
:xmodem, output sx -a \%1\13, break
:default, end 1 "\v(protocol)" - protocol unexpected
}
receive \%1
if fail end 1 "\%1" - Download failed
edit \%1
if def WAIT_FOR_EDITOR getok
if not exist \%1 end 1 -
File "\%1" missing after edit - Did you change its name\?
set file type text
send \%1
asg status \v(status)
delete \%1
if not = \m(status) 0 end 1 Upload failed
end 0
}
def NETEDIT {
local mode current
asg mode \v(ftype) ; Save things
set term autodownload off
asg current \v(directory)
if def \v(download) cd \v(download)
do _netedit \%1 ; Execute the macro
asg status \v(status)
set term autodownload on ; Restore things
cd \m(current)
set file type \m(mode)
end \m(status) ; Return
}
; The K95CUSTOM.INI file is created for you by SETUP.
; You can edit K95CUSTOM.INI to suit your preferences.
:CUSTOM
; begin AFB customization by GJR
set printer {LPT1}
set bell audible system-sounds
set editor C:\os\util\ed.exe
set file download-directory H:\
set terminal autodownload on
;added following 4 lines 01/07/98
set terminal color terminal-screen lightgray black
set terminal color help-text yellow dgray
set terminal statusline off
set terminal mouse off
set terminal apc on
set terminal margin-bell on 72
set terminal screen-update fast
set terminal type VT102
set telnet terminal-type VT102
set terminal key vt102 \264 \{127} ; Backspace
set scrollback
; Modifications for use with ASAP by Frank da Cruz
set key \400 \Kignore ; NumLock
set key \4543 \Kignore ; Keypad Slash Num Lock On
set key \362 \Kignore ; Keypad Multiply Num Lock On
set key \365 \Kignore ; Keypad Minus Num Lock On
set key \363 \Kignore ; Keypad Plus Num Lock On
set key \4365 \Kignore ; Keypad Enter Num Lock On
set key \366 \Kignore ; Keypad Period Num Lock On
set key \352 \Kignore ; Keypad 0 Num Lock On
set key \353 \Kignore ; Keypad 1 Num Lock On
set key \354 \Kignore ; Keypad 2 Num Lock On
set key \355 \Kignore ; Keypad 3 Num Lock On
set key \356 \Kignore ; Keypad 4 Num Lock On
set key \357 \Kignore ; Keypad 5 Num Lock On
set key \358 \Kignore ; Keypad 6 Num Lock On
set key \359 \Kignore ; Keypad 7 Num Lock On
set key \360 \Kignore ; Keypad 8 Num Lock On
set key \361 \Kignore ; Keypad 9 Num Lock On
;End of modifications for use with ASAP
;if exist \$(K95CUSTOM) -
; take \$(K95CUSTOM)
;else if exist \v(startup)K95CUSTOM.INI -
; take \v(startup)K95CUSTOM.INI
;else if exist \v(inidir)K95CUSTOM.INI -
; take \v(inidir)K95CUSTOM.INI
;else if exist \v(exedir)K95CUSTOM.INI -
; take \v(exedir)K95CUSTOM.INI
if < \v(ntime) 43200 echo Good Morning and Welcome to AFB NET, smile!
else if < \v(ntime) 61200 echo Good Afternoon and Welcome to AFB NET, smile!
else echo Good Evening and Welcome to AFB NET, smile!