prog8/examples/test.p8

31 lines
562 B
Lua

%import syslib
; %import graphics
%import textio
%zeropage basicsafe
main {
sub start() {
; cx16.screen_set_mode(128)
ubyte width = txt.width()
ubyte height = txt.height()
ubyte x
repeat 999 {
ubyte xpos = rnd() % (width-1)
txt.setcc(xpos, 0, 81, 6)
ubyte ypos = rnd() % (height-1)+1
txt.setcc(width-1, ypos, 81, 2)
txt.scroll_left(true)
txt.scroll_down(true)
repeat 2000 {
x++
}
}
}
}