/	DUMMY QTASK SENDER #1

TASK=	USER1
CUR=	40
INIWT=	0

	FIELD	CUR%10

	*200
START,	CLA CLL		/SUSPEND THY SELF
	CAL
	SUSPND
	CAL
	SENDW
	QTASK
	MSG1
	JMP	START

MSG1,	ZBLOCK 3
	LTA^10+1+2000	/POST MSG AND DELETE LTA1:FILE AFTER RUN
	FLNAM1		/FILENAME POINTER
	TEXT	!.R FRTS!
	TEXT	!*CURVE!
	TEXT	!*RKB0:DATA/7$!
	7777

FLNAM1,	FILENAME QTEMP

	PAGE