mirror of
https://github.com/irmen/prog8.git
synced 2024-09-10 09:54:32 +00:00
63 lines
1.4 KiB
Lua
63 lines
1.4 KiB
Lua
%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
|
|
; }
|
|
|
|
}
|