_hangup.ep

一个通讯程序源码

#+------------------------------------------------------------------
#  _hangup.ep - hangup special "hook" procedure
#
# %argv(1) - connect time in seconds
#-------------------------------------------------------------------
#+: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

    $i0 = %stoi(%argv(1))
	$s0 = %etime($i0)
	echo '_hangup on '+%rname+' after '+$s0+' connect'
	ifs %envvar('WINDOWID') != ''
		echo %chr(0x1B)+']0ECU disconnected ('+%logname+')'+%chr(0x07)
	prompt %uname+'%'