*20
	PMODE
	FLAC=44
	INTEGER=53
	ERROR2=4566
	EVAL=1613
	PUSHJ=4540
	CHAR=66
	BOTTOM=35
	FEXP=4620
	PFZ=412
	EFUN3I=136
	PFX=PFZ-1
	PFNEW=PFZ-2
	*BOTTOM
	FX-1
	*PFX
	FX
	*FEXP-55
FX,	JMS I INTEGER	/GET VALUE
	DCA VALUE	/SAVE IT
	TAD CHAR	/GET NEXT CHAR
	TAD MCOMMA	/WHICH SHOULD BE COMMA
	SZA CLA
	ERROR2		/BUT ISNT
	PUSHJ		/IT IS
	EVAL-1		/GET CHANNEL
	JMS I INTEGER
	CLL
	SPA SNA		/MUST BE 1 - 6
	ERROR2		/<=0
	TAD P7771
	SZL
	ERROR2		/>6
	TAD M1221	/MAKE A DACSN
	DCA .+2		/WHICH = 655N
	TAD VALUE	/GET VALUE
	HLT		/AND DO THE D/A
	CLA CLL
	JMP I EFUN3I
MCOMMA,	-254
P7771,	7771
VALUE,	0
M1221,	-1221
	LISTAP-7