.MACRO	INPUT,ADDR,LENG,PROMPT,PROMTS
	.MCALL	DIR$
	MOV	ADDR,READ+Q.IOPL
	MOV	LENG,READ+Q.IOPL+2
	.IF	B	PROMPT
	.PRINT	;NO PROMPT STRING SPECIFIED;
	.PRINT	;LAST PROMPT STRING SPECIFIED BEING USED;
	.IFF
	MOV	PROMPT,READ+Q.IOPL+6
	.IF	B	PROMTS
	MOV	PROMPT'S,READ+Q.IOPL+10
	.IFF
	MOV	PROMTS,READ+Q.IOPL+10
	.ENDC	
	.ENDC
	DIR$	#READ
	.ENDM	INPUT