mirror of
https://github.com/irmen/prog8.git
synced 2024-07-21 01:29:03 +00:00
37 lines
718 B
Lua
37 lines
718 B
Lua
%import conv
|
|
%import gfx2
|
|
%import textio
|
|
|
|
main {
|
|
|
|
sub start() {
|
|
gfx2.screen_mode(4) ; lo res 256c
|
|
gfx2.text_charset(3)
|
|
gfx2.text(10, 10, 1, @"Hello!")
|
|
|
|
c64.SETTIM(0,0,0)
|
|
|
|
ubyte yy
|
|
uword rw
|
|
|
|
;480 jiffies (highres mono) / 442 jiffies (lores 4c)
|
|
repeat 50000 {
|
|
rw = rndw()
|
|
yy = (lsb(rw) & 127) + 20
|
|
gfx2.plot(msb(rw), yy, 1)
|
|
}
|
|
repeat 50000 {
|
|
rw = rndw()
|
|
yy = (lsb(rw) & 127) + 20
|
|
gfx2.plot(msb(rw), yy, 0)
|
|
}
|
|
|
|
uword time = c64.RDTIM16()
|
|
conv.str_uw(time)
|
|
gfx2.text(100, 10, 1, conv.string_out)
|
|
|
|
repeat {
|
|
}
|
|
}
|
|
}
|