prog8/examples/test.p8

%import conv
%import gfx2

main {

    sub start() {
        gfx2.screen_mode(1)     ; lo res monochrome
        gfx2.text_charset(3)
        gfx2.text(10, 10, 1, @"Hello!")

        c64.SETTIM(0,0,0)

        repeat 4 {
            uword xx
            gfx2.monochrome_stipple(true)
            for xx in 0 to 319 {
                gfx2.vertical_line(xx, 20, 210, 1)
            }
            gfx2.monochrome_stipple(false)
            for xx in 0 to 319 {
                gfx2.vertical_line(xx, 20, 210, 1)
            }
            for xx in 0 to 319 {
                gfx2.vertical_line(xx, 20, 210, 0)
            }
        }

        uword time = c64.RDTIM16()
        conv.str_uw(time)
        gfx2.text(100, 10, 1, conv.string_out)

        repeat {
        }
    }
}