mirror of
https://github.com/irmen/prog8.git
synced 2024-11-22 15:33:02 +00:00
28 lines
887 B
Lua
28 lines
887 B
Lua
%import textio
|
|
|
|
%zeropage basicsafe
|
|
%option no_sysinit
|
|
|
|
main {
|
|
sub start() {
|
|
uword active_world = memory("world", 80*50, 0)
|
|
uword @shared cell_off = 500
|
|
uword @shared cell_off_1 = cell_off+1
|
|
const uword STRIDE = 40
|
|
sys.memset(active_world, 80*50, 1)
|
|
|
|
txt.print_ub(active_world[500] + active_world[501]) ; 2
|
|
txt.nl()
|
|
txt.print_ub(active_world[cell_off] + active_world[cell_off_1]) ; 2
|
|
txt.nl()
|
|
txt.print_ub(count()) ; 8
|
|
txt.nl()
|
|
|
|
sub count() -> ubyte {
|
|
return active_world[cell_off-STRIDE-1] + active_world[cell_off-STRIDE] + active_world[cell_off-STRIDE+1] +
|
|
active_world[cell_off-1] + active_world[cell_off+1] +
|
|
active_world[cell_off+STRIDE-1] + active_world[cell_off+STRIDE] + active_world[cell_off+STRIDE+1]
|
|
}
|
|
}
|
|
}
|