/TEST CHAIN FUNCTION
	CHANNEL	;THING;THING+1;4	/CHAIN
	GONEG	;ERROR
	PRINT 4;TEXT 'WHAT'
	TYPCH
ERROR,	PRINTN
	PRINT 6;TEXT 'ERROR?'
	TYPCH
THING,	0;DEVICE SYS;FILENA TEST.S1
$