.FUNCT	V-FLUSH
	EQUAL?	PRSO,INTNUM \?CND1
	EQUAL?	P-NUMBER,33 \?CND1
	GETB	0,18
	ZERO?	STACK /?THN6
	ZERO?	P-VMERGE /?CND1
?THN6:	CALL	GOTO,P-NMERGE
	CALL	V-LOOK
	RTRUE	
?CND1:	PRINTR	"You can't flush that."

	.ENDI