Gob's program

:start
    set j, 0      ; Global cursor location
    set b, 0x2000 ; Default colour is green on black
    set a, gob
    jsr printstring
    set a, flashblock
    jsr printstring
:wait
    ife [0x9000], 0 ; If they press ANYTHING
    set PC, wait
    set a, [0x9000]
    ife a, 0x59 ; If it isn't y then just end
    set PC, proceed
    ife a, 0x79
    set PC, proceed
    set PC, crash
:proceed
    sub j, 1 ; move cursor back
    set a, yes ; Print Y
    jsr printstring
    set j, 32     ; Set cursor to next line
    set i, 0      ; And print penus a bunch
:penusloop
    set a, penus
    jsr printstring
    add i, 1
    ifg 60, i
    set PC, penusloop
    set PC, crash
:printstring

:printchar
    set c, [a]
    ife c, 0
        set PC, endprint
    bor c, b
    set [0x8000+j], c
    add a, 1
    add j, 1
    set PC, printchar
:endprint
        set PC, POP

:crash
    sub PC, 1
:data
:gob
    dat "Gob's Program: Y/N? ", 0x0000
:yes
    dat "Y", 0x0000
:penus
    dat "Penus ", 0x0000
:flashblock
    dat 0x00Df, 0x0000