title	Module from library BASE_3 : COMBRK
	name	('COMBRK')
	maclib	baselib.lib

; Test character available and get it if any available

; Copyright (C)	Werner Cirsovius
;		Hohe Weide 44
;		D-20253 Hamburg
;		Tel.: +49-40-4223247

;		Version 2.1 August 1986

; ENTRY	None

; EXIT	Carry will be set if character was available
;	otherwise carry will be reset
;	Accu holds character which will not be echoed

	entry	combrk

	extrn	break,conind

combrk:
	call	break		; Test status
	ret	nc		; None, exit
	call	conind		; Get character
	scf			; .. set got one
	ret

	end