.TITLE	VRCDS
	.MCALL	VRCS$S,SETF$S

BUF:	.BLKW	258.		;Message buffer

START:	SETF$S	#34.		;Set we are started
LOOP:	VRCS$S	,#BUF,#256.	;Read message and stop
	BR	LOOP		;Loop for next message

	.END	START