prog8/testsource/input.ill

output prg,basic

import "c64lib"

~ main {
        var  .text  name        = "?"*80

start
        c64.init_system()

        XY = c64.CINV
        SI = 1
        c64.CINV = #irq_handler
        SI = 0


        c64scr.print_string("enter your name: ")
        c64scr.input_chars(name)
        c64.CHROUT('\n')

blop
        breakpoint   ; yeah!

        c64scr.print_string("thank you, mr or mrs: ")
        c64scr.print_string(name)
        c64.CHROUT('\n')

        SI = 1
        c64.CINV = XY
        SI = 0

        return


irq_handler
        asm {
                lda  $cb
                cmp  #$40
                beq  +
                inc  c64.EXTCOL
+               jmp  c64.IRQDFRT
        }


}