goto_test.ep

一个通讯程序源码

#  CHK=0xE30F
# goto_test.ep
#+:EDITS:*/
#:09-10-1992-13:59-wht@n4hgf-ECU release 3.20
#:08-22-1992-15:39-wht@n4hgf-ECU release 3.20 BETA
#:06-07-1989-22:31-wht-creation
	echo '... TRY1 goto test'; goto TRY1
	echo '... TRY1 goto failed'
	return

BACK1	echo '... gotob succeeded'
	gotob COMP

TRY1	echo '... TRY1 goto succeeded'
	gotob BACK1

COMP	echo '... COMPuted goto test'; set $s0='COMP'+'UTED',$s0
	goto $s0
	echo '... COMP failed'
	return

COMPUTED
	echo '... computed goto worked'
	echo '... test complete'
	return

# vi:set tabstop=8: