prog8/testsource/input.ill

%output prg,basic

%import c64lib

~ main {
        var  .text  name        = "????????????????????????????????????????????????????????????????????????????????"  ; 80
        var  .word  orig_irq

start:
        c64.init_system()

        orig_irq = c64.CINV
        SI = 1
        c64.CINV = &irq_handler
        SI = 0


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

blop:
	return
        %breakpoint
        return

           ; yeah!

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

        SI = 1
        c64.CINV = orig_irq
        SI = 0

        return


irq_handler:
        %asm {
                lda  c64.SFDX
                cmp  #$40               ; nothing pressed?
                beq  +
                inc  c64.EXTCOL         ; otherwise change color
+               jmp  c64.IRQDFRT
        }



}