mirror of
https://github.com/irmen/prog8.git
synced 2024-11-23 07:32:10 +00:00
44 lines
713 B
Lua
44 lines
713 B
Lua
%import c64utils
|
|
%zeropage basicsafe
|
|
|
|
main {
|
|
|
|
struct Color {
|
|
ubyte red
|
|
ubyte green
|
|
ubyte blue
|
|
}
|
|
|
|
sub start() {
|
|
|
|
Color purple = {255, 0, 255}
|
|
|
|
Color other
|
|
|
|
other = purple
|
|
|
|
other.red /= 2
|
|
other.green = 10 + other.green / 2
|
|
other.blue = 99
|
|
|
|
c64scr.print_ub(other.red)
|
|
c64.CHROUT(',')
|
|
c64scr.print_ub(other.green)
|
|
c64.CHROUT(',')
|
|
c64scr.print_ub(other.blue)
|
|
c64.CHROUT('\n')
|
|
|
|
check_eval_stack()
|
|
}
|
|
|
|
|
|
sub check_eval_stack() {
|
|
if X!=255 {
|
|
c64scr.print("stack x=")
|
|
c64scr.print_ub(X)
|
|
c64scr.print(" error!\n")
|
|
}
|
|
}
|
|
|
|
}
|