mirror of
https://github.com/irmen/prog8.git
synced 2024-09-10 09:54:32 +00:00
51 lines
1.1 KiB
Lua
51 lines
1.1 KiB
Lua
%import c64utils
|
|
%zeropage basicsafe
|
|
|
|
~ main {
|
|
|
|
sub start() {
|
|
|
|
Color foreground ; = [0,1,2] @todo init values
|
|
Color background
|
|
Color cursor
|
|
|
|
foreground.red=99
|
|
background.blue=foreground.red
|
|
|
|
;cursor=foreground ; @todo full by-value copy
|
|
|
|
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
|
|
; }
|
|
|
|
}
|