ENTRY MAIN
MAIN,	CLA CLL
	TAD BUFF
	DCA BUFFPT
LISN,	KSF
	JMP LISN
	KRB
	TLS
	DCA I BUFFPT
	TAD I BUFFPT
	TAD MDOLAR
	SNA
	JMP DONE
	ISZ BUFFPT
	JMP LISN
DONE,	CLA CLL
	DCA I BUFFPT
	CALL 0,EXIT
BUFF,	2000
BUFFPT,	0
MDOLAR,	7534
	END