_connect.ep

一个通讯程序源码

#+------------------------------------------------------------------
#  _connect.ep - CONNECT special "hook" procedure
#
# %argv(1) - result code
#-------------------------------------------------------------------
#+:EDITS:*/
#:09-10-1992-13:59-wht@n4hgf-ECU release 3.20
#:08-22-1992-15:39-wht@n4hgf-ECU release 3.20 BETA
#:07-13-1991-14:47-wht@n4hgf-creation

    $iv0_save = $i0  # it is a VERY good idea to save the dialer
    $sv0_save = $s0  # function return status
                     # since gobs of functions and commands modify $i0
                     # as a side effect of their operation
	ifs %envvar('WINDOWID') != ''
		echo %chr(0x1B)+']0ECU ('+%uname+'->'+%rname+') '+%logname+%chr(0x07)

	prompt %uname+'->'+%rname+'%'
    $i0 = $iv0_save  # restore dialer return status
    $s0 = $sv0_save