	.PREL
	.IDENT	ERROR
	.INSERT	MACRO.LIB
	.INSERT	BBEQU.ASM
WHAT:	.ASCII	   'WHAT?'
	.BYTE	CR
HOW:	.ASCII	   'HOW?'
	.BYTE	CR
SORRY:	.ASCII	   'SORRY'
	.BYTE	CR
QWHAT::	PUSH	D
AWHAT::	LXI	D,WHAT
	JMP	HKERR#
ERROR::	CALL	CRLF#
	CALL	PRTSTG#
	LHLD	CURRNT#
	PUSH	H
	XCHG	
	LDAX	D
	MOV	H,A
	INX	D
	LDAX	D
	ORA	H
	XCHG	
	POP	D
	JZ	TELL#
	XCHG
	LDAX	D
	XCHG	
	ORA	A
	JM	INPERR#
	CALL	PRTLN#
	POP	B
	MOV	B,C
	CALL	PRTCHS#
	MVI	A,'?'
	RSTOCH
	CALL	PRTSTG#
	JMP	TELL#
QSORRY::	PUSH	D
ASORRY::	LXI	D,SORRY
	JMP	HKERR#
QHOW::	PUSH	D
AHOW::	LXI	D,HOW
	JMP	HKERR#
	.END
                                     