2 ; Ullrich von Bassewitz, 06.08.1998
12 _cgetc: lda KEY_COUNT ; Get number of characters
13 bne L2 ; Jump if there are already chars waiting
15 ; Switch on the cursor if needed
23 L2: lda KEY_COUNT ; Check characters again
25 jsr CURS_OFF ; Switch cursor off, if characters available
27 jsr KBDREAD ; Read char and return in A