INDAS1.MAC=INDAS1.MAC
-27,,/;PE/
; MODIFIED BY PAUL ELLIOTT NOV 1978
-31,,/;PE/
	.MCALL	PUT$S,FDOF$L,FCSBT$
	FDOF$L
	FCSBT$
-36,37,/;PE/
EXBUF:	.ASCII	/ C/
MSGBUF:	.BLKB	160.
;
	.EVEN
LEN:	.BLKW	1		;SAVE LEN OF QUESTION HERE
-93,95,/;PE/
	MOV	R2,LEN		;SAVE THE LEN OF QUESTION
	CLR	TIDPB+Q.IOPL+4	; SET PROMPT MODE
	MOV	R3,-(SP)		;SAVE R3
100$:	CALL	PRMSG1		; PROMPT
	BCS	140$		; ERROR
	MOV	LEN,R2		;GET LENTH OF QUESTION
	MOV	#ASKBUF,R1	;PREPARE TO MOVE TO
	MOV	#MSGBUF,R3	;MSGBUF
105$:	MOVB	(R1)+,(R3)+	;MOVE
	SOB	R2,105$		;R2 IS COUNTER
-104,,/;PE/
	MOV	#ASKBUF,R1	;GET LOCATION OF ANSWER
	MOV	TIOST+2,R2	;GET LENTH OF ANSWER
	TSTB	EXST	;CHECK IF FILE IN USE
	BEQ	128$		;IF YES SKIP
	TST	R2		;CHECK FOR ZERO LENTH
	BEQ	124$		;IF YES THEN SKIP MOVE
125$:	MOVB	(R1)+,(R3)+	;MOVE TO MSGBUF
	SOB	R2,125$		;R2 IS COUNTER
124$:	SUB	#EXBUF,R3	;GET LENTH OF EXBUF TO BE WRITTEN
	MOVB	#' ,EXBUF	;ASSUME NO ESCAPE
	CMP	TIOST,#IS.ESC	;CHECK FOR ESCAPE
	BNE	126$		;IF NO ESCAPE SKIP
	MOVB	#'E,EXBUF	;SET FLAG FOR ESCAPE
126$:	PUT$S	#EXTRA,#EXBUF,R3	;WRITE TO EXTRA FILE
	BCS	130$		;CHECK FOR ERROR
128$:	MOV	(SP)+,R3	;RESTORE R3
-109,110,/;PE/
	MOV	(SP)+,R3	;RESTORE R3
	TRAP	EREOF		; Y - PRINT @ <EOF> AND EXIT
140$:	MOV	(SP)+,R3	;RESTORE R3
	JMP	ATEXIT		; N - SIMPLY EXIT
/