.aus

来自「支持X/YModem和cis_b+协议的串口通讯程序」· AUS 代码 · 共 66 行

# .asu or .aus : visit SCOForum and UnixForum
#	non-stop read, and Prompt Char set to '^H' in all Fora.
#debug "on"
set cis off
set proto 7e

call ".cisdial"

pause 3; transmit "^C"
assign SERVICE eq "scoforum"
call ".pass"

#debug "on"

set cfile "/pub/jpr/comm/sco"
waitfor "moment please..."
capture "on"
if waitfor "forum !^h"  75
then
	call ".temp_opt"			
	assign Upload eq `ls scoR 2>/dev/null`
	if Upload eq "scoR"
	then	capture "off"
		type "scoR"
		transmit "^M"
		while ! waitfor "% choice required"
			do; done
		shell "mv scoR /pub/rescue/scoR$$"
		capture "on"
	fi
	transmit "rea new^M^M"
	while ! waitfor "% choice required"
		do; done
	capture "off"
else
	beep
fi

set cfile "/pub/jpr/comm/uni"
transmit "g unixforum^M"
waitfor "moment please..."
capture "on"
if waitfor "forum !^h" 75
then
	call ".temp_opt"			
	assign Upload eq `ls uniR 2>/dev/null`
	if Upload eq "uniR"
	then	capture "off"
		type "uniR"
		transmit "^M"
		while ! waitfor "% choice required"
			do; done
		shell "mv uniR /pub/rescue/uniR$$"
		capture "on"
	fi
	transmit "rea new^M^M"
	while ! waitfor "% choice required"
		do; done
	capture "off"
else
	beep
fi

transmit "off^M"
quit