mirror of
https://github.com/irmen/prog8.git
synced 2024-09-07 03:54:27 +00:00
25 lines
402 B
Lua
25 lines
402 B
Lua
%import test_stack
|
|
%import textio
|
|
%zeropage basicsafe
|
|
%option no_sysinit
|
|
|
|
main {
|
|
|
|
|
|
sub start () {
|
|
uword length
|
|
|
|
if length>256 {
|
|
repeat length-1
|
|
gfx2.next_pixel(color)
|
|
} else {
|
|
repeat (length-1) as ubyte ; TODO lsb(length-1) doesn't work!?!?!?
|
|
gfx2.next_pixel(color)
|
|
}
|
|
|
|
test_stack.test()
|
|
|
|
}
|
|
|
|
}
|