.MACRO	M_GTINP	PROMPT,?A
	.SAVE_PSECT	LOCAL_BLOCK
	.PSECT	P_MESSAGE,CON,LCL,NOEXE,NOWRT
TMPDSD=.
	.ASCID	\PROMPT\
	.RESTORE_PSECT
	PUSHAL	L_INP1SIZE
	PUSHAL	TMPDSD
	PUSHAL	L_INP1DESC
	CALLS	#3,G^LIB$GET_INPUT
	.ENDM	M_GTINP