;====================
	; hgr input
	;====================
	; TODO: save to string
	; TODO: arbitrary Y location
	; TODO: when backspacing, erase old char not XOR

	; INPUT_X points to next char
	;	we print to chars to right

hgr_input:
;	ldx	INPUT_ACTIVE
;	bne	input_currently_happening

;	inc	INPUT_ACTIVE		; make input active

	; current keypress in A

;	pha

	; activate typing area

;	jsr	clear_bottom

;	ldx	#0
;	ldy	#184
;	lda	#'>'
;	jsr	hgr_put_char

;	ldx	#0		; reset INPUT_X
;	stx	INPUT_X

;	pla
input_currently_happening:

	; check for backspace
	;	actually DELETE (on Apple IIe) or ^B (II+)
	;	we can't use backspace/^H as maps to left arrow
	;	and the game assumes that means you want to walk left
	; this does mean it's hard to backspace on some emulators,
	;	but that's an eternal challenge with Apple II emulators

	cmp	#$7f			; check if DELETE (backspace)
	beq	hgr_input_backspace
	cmp	#2			; ^B, option for Apple II+
	beq	hgr_input_backspace

	ldx	INPUT_X
	sta	input_buffer,X		; store to buffer

	ldy	#184			; print char
	ldx	INPUT_X
	inx				; print two to the right
	inx				; because of prompt
	jsr	hgr_put_char

	ldx	INPUT_X
	cpx	#37
	bcs	input_too_big		; FIXME this is a hack
	inc	INPUT_X
input_too_big:

	rts

hgr_input_backspace:
	ldx	INPUT_X
	beq	done_backspace		; don't backspace too far

	dec	INPUT_X
	ldx	INPUT_X

	lda	input_buffer,X		; load old char
	inx
	inx
	ldy	#184
	jsr	hgr_put_char		; xor it on top


done_backspace:
	rts

done_hgr_input:

	ldx	INPUT_X			; NUL terminate
	lda	#0
;	sta	INPUT_ACTIVE
	sta	input_buffer,X

	rts

input_buffer:
	.byte 0,0,0,0,0,0,0,0,0,0
	.byte 0,0,0,0,0,0,0,0,0,0
	.byte 0,0,0,0,0,0,0,0,0,0
	.byte 0,0,0,0,0,0,0,0,0,0