1;
2;
3;	getkey() Wait for keypress
4;
5
6        SECTION code_clib
7	PUBLIC	fgetc_cons
8	PUBLIC	_fgetc_cons
9
10	EXTERN	getk
11	EXTERN	msleep
12	EXTERN	__CLIB_FGETC_CONS_DELAY
13
14fgetc_cons:
15_fgetc_cons:
16        ld      hl,__CLIB_FGETC_CONS_DELAY
17        call    msleep
18loop:
19	call	getk
20	ld	a,h
21	or	l
22	jr	z,loop
23	ret
24