mhack_test.ep

一个通讯程序源码

#  CHK=0xEC1B
#---------------------------------------------------------------------------
#  mhack_test.ep - test %mhack while showing entertaining colors
#  also useful to get a feeling for how fast the procedure language can be
#---------------------------------------------------------------------------
#+:EDITS:*/
#:09-10-1992-13:59-wht@n4hgf-ECU release 3.20
#:08-22-1992-15:39-wht@n4hgf-ECU release 3.20 BETA
#:03-16-1990-05:25-wht@n4hgf-requires ecu x2.64 or later

	echo 'SIGINT to quit\n'
	$i20 = %colors
	$i21 = %colors & 0xFFFFF0FF
	whilei 1==1
	{
		$i0 = %mhack
		$i1 = $i0 & 0xF00
		icolor $i21 | $i1
		echo -n %itos($i0,8d)+%chr(0x0d)
	}
	echo ''
	icolor $i20