2 ; Christian Groessler, November-2002
4 ; get a char from the keyboard
23 sta ICAX1Z ; fix problems with direct call to KEYBDV
29 lda OLDCHR ; get char at current cursor position
32 ldx cursor ; current cursor setting as requested by the user
38 cont: stx CRSINH ; update system variable
41 and #$7f ; clear high bit / inverse flag
42 finish: sta (OLDADR),y ; update on-screen display
45 turnon: ora #$80 ; set high bit / inverse flag