mirror of
https://github.com/irmen/prog8.git
synced 2025-02-19 11:31:07 +00:00
31 lines
453 B
Lua
31 lines
453 B
Lua
%import c64utils
|
|
%zeropage basicsafe
|
|
|
|
~ main {
|
|
|
|
Color blocklevelcolor
|
|
|
|
sub start() {
|
|
|
|
Color subcol
|
|
|
|
A=msb(subcol.red)
|
|
for ubyte i in 10 to 20 {
|
|
;A=subcol.red
|
|
;A=blocklevelcolor.green
|
|
|
|
;subcol.blue = Y
|
|
;blocklevelcolor.green=Y
|
|
A=msb(subcol.red)
|
|
}
|
|
return
|
|
}
|
|
|
|
struct Color {
|
|
ubyte red
|
|
ubyte green
|
|
ubyte blue
|
|
}
|
|
|
|
}
|