mirror of
https://github.com/irmen/prog8.git
synced 2024-11-02 22:04:40 +00:00
30 lines
509 B
Lua
30 lines
509 B
Lua
%import test_stack
|
|
%import gfx2
|
|
%zeropage basicsafe
|
|
%option no_sysinit
|
|
|
|
main {
|
|
|
|
|
|
sub start () {
|
|
|
|
void cx16.screen_set_mode($80)
|
|
cx16.GRAPH_init(0)
|
|
cx16.GRAPH_set_colors(13, 6, 6)
|
|
cx16.GRAPH_clear()
|
|
|
|
uword cp
|
|
|
|
for cp in 0 to 15 {
|
|
cx16.r0 = 10+cp*2
|
|
cx16.r1 = 10+cp*11
|
|
ubyte cc
|
|
for cc in "Hello world, 123456789<>-=!#$%"
|
|
cx16.GRAPH_put_next_char(cc)
|
|
}
|
|
|
|
test_stack.test()
|
|
}
|
|
|
|
}
|