prog8/examples/test.p8
2020-09-21 21:39:36 +02:00

28 lines
416 B
Lua

%import syslib
; %import graphics
%import textio
%zeropage basicsafe
main {
sub start() {
ubyte x
ubyte y
for y in 0 to txt.DEFAULT_HEIGHT-1 {
for x in 0 to txt.DEFAULT_WIDTH-1 {
txt.setchr(x,y,x+y)
}
}
repeat 60 {
txt.scroll_up(true)
repeat 5000 {
x++
}
}
}
}