%import textio
%zeropage basicsafe

main {
    str s1 = "Irmen_"
    str s2 = @"IRMEN_"
    ;str s3 = iso:"Irmen_~"

    sub start() {
        txt.lowercase()
        txt.nl()
        txt.nl()
        txt.nl()
        txt.nl()
        txt.nl()
        txt.print(s1)
        txt.nl()
        txt.print(s2)
        txt.nl()
;        txt.print(s3)
;        txt.nl()

        sc(1, s1)
        sc(2, s2)
        ; sc(3, s3)
    }

    sub sc(ubyte row, str text) {
        uword addr = 1024+row*40
        ubyte ix = 0
        ubyte ss
        repeat {
            ss = text[ix]
            if not ss
                return
            @(addr) = ss
            addr++
            ix++
        }
    }
}