; Return from this routine only after operator presses one of the following.

; 
; ENTER		CR.asc
; ESCAPE	ESC.asc
; HOME		SOH.asc
; DELETE	DEL.asc
; Y
; y
; N
; n

;---------------------------------------------------------------{

GET.yn		KEY.get					; Routine to get y or n reply.
		cp		DEL.asc			; User hit RUBOUT (shift del)?
		cp		ESC.asc			; User hit escape key?
		cp		'Y'			; Y reply?
		jr		z,cngYy			; Change to lower case.
		cp		'N'			; N reply?
		jr		z,cngNn			; Change to lower case.
		cp		'y'			; y reply?
		ret		z
		cp		'n'			; n reply?
		ret		z
		jr		GET.yn			; Not a yes or no so get another key.
cngYy		ld		a,'y'			; Change to lower case.
		ret
cngNn		ld		a,'n'			; Change to lower case.
		ret

;--------------------------------------------------------------}