	;====================================
	; wait for keypress or a few seconds
	;====================================
	; A is length to wait

wait_a_bit:

	bit	KEYRESET
	tax

keyloop:
	lda	#200			; delay a bit
	jsr	wait

	lda	KEYPRESS
	bmi	done_keyloop

	dex
	bne	keyloop
;	beq	no_escape

done_keyloop:

;	and	#$7f
;	cmp	#27
;	bne	no_escape

;	inc	ESC_PRESSED
;no_escape:

	bit	KEYRESET

	rts




