prog8/examples/test.p8

%import c64utils
%zeropage basicsafe

~ main {

    sub start() {
        uword derp
        ubyte[] v = [22,33,44]

        Color foreground
        Color foreground2   = [11,22,33]

        foreground.red = 111
        ; foreground2.red = 111
    }

;    sub test() {
;        Color foreground    ; = [0,1,2]     ;@todo init values
;        Color background
;        Color cursor
;
;        foreground.red=99
;        background.blue=foreground.red
;
;        cursor = [1,2,3]    ; assign all members at once
;        cursor = v
;        cursor=foreground   ; @todo memberwise assignment
;
;        c64scr.print_ub(foreground.red)
;        c64.CHROUT(':')
;        c64scr.print_ub(foreground.green)
;        c64.CHROUT(':')
;        c64scr.print_ub(foreground.blue)
;        c64.CHROUT('\n')
;        c64scr.print_ub(background.red)
;        c64.CHROUT(':')
;        c64scr.print_ub(background.green)
;        c64.CHROUT(':')
;        c64scr.print_ub(background.blue)
;        c64.CHROUT('\n')
;        c64scr.print_ub(cursor.red)
;        c64.CHROUT(':')
;        c64scr.print_ub(cursor.green)
;        c64.CHROUT(':')
;        c64scr.print_ub(cursor.blue)
;        c64.CHROUT('\n')
;
;        return
;    }

    struct Color {
        ubyte red
        ubyte green
        ubyte blue
    }

    ; @todo structs as sub args. After strings and arrays as sub-args.
;    sub foo(Color arg) -> ubyte {
;        return arg.red+arg.green+arg.blue
;    }

}