millfork/examples/vcs/colors.mfk

void main() {
    init_rw_memory()
    byte y
    while true {
        start_frame()
        for y,0,until,192 {
            COLUBK = y
            wsync()
        }
        end_frame()
    }
}