; CommanderX16 text clock example!
; make sure to compile with the cx16 compiler target.

%zeropage basicsafe

main {

    sub start() {

        cx16.screen_set_mode($80)
        cx16.r0=0

        cx16.FB_init()
        cx16.r0 = 0
        cx16.r1 = 0
        cx16.FB_cursor_position()
        uword xx
        ubyte yy
        for yy in 199 downto 0 {
            for xx in 319 downto 0 {            ; TODO fix compiler hang -- should be error message when range is too large
                cx16.FB_set_pixel( yy+lsb(xx))
            }
        }

;        uword xx
;        for xx in 0 to 319 step 32 {
;            cx16.GRAPH_clear()
;            ubyte q
;            for q in 0 to 31 {
;                cx16.GRAPH_set_colors(q, 2, 0)
;                cx16.r0 = xx+q
;                cx16.r1=0
;                cx16.r2=rnd()
;                cx16.r3=199
;                cx16.GRAPH_draw_line()
;            }
;        }
    }
}