SUBROUTINE KBL(K,KF)
C TESTET KEYBOARD READER FLAG KF UND LIEST ZEICHEN K VOM KEYBOARD
C K STEHT IM 6-BIT-CODE IN BIT 6...11
C KF = 0 : FLAG NICHT GESETZT
C KF = 1 : FLAG GESETZT ZEICHEN GELESEN
C DARSTELLUNG DER ZEICHEN DURCH DEZIMALZAHLEN :
C  CHARACTER DEZIMALZAHL
C     SPACE	32
C	!	33
C	"	34
C	#	35
C	$	36
C	%	37
C	&	38
C	'	39
C	(	40
C	)	41
C	*	42
C	+	43
C	,	44
C	-	45
C	.	46
C	/	47
C	0	48
C	1	49
C	2	50
C	3	51
C	4	52
C	5	53
C	6	54
C	7	55
C	8	56
C	9	57
C	:	58
C	;	59
C	<	60
C	=	61
C	>	62
C	?	63
C	@	 0
C	A	 1
C	B	 2
C	C	 3
C	D	 4
C	E	 5
C	F	 6
C	G	 7
C	H	 8
C	I	 9
C	J	10
C	K	11
C	L	12
C	M	13
C	N	14
C	O	15
C	P	16
C	Q	17
C	R	18
C	S	19
C	T	20
C	U	21
C	V	22
C	W	23
C	X	24
C	Y	25
C	Z	26
C	[	27
C	\	28
C	]	29
C	^	30
C	_	31
	KF=0
S	KSF		/ SKIP ON KEYBOARD READER FLAG
S	JMP \1000	/ NOT SET RETURN
S	KRB		/ READ KEYBOARD BUFFER CLEAR FLAG
S	AND (077	/ SIX HIGHEST BIT ONLY
S	DCA I \K	/ SAVE IT
	KF=1
1000	RETURN
	END