mirror of
https://github.com/irmen/prog8.git
synced 2024-11-03 13:07:54 +00:00
32 lines
907 B
Lua
32 lines
907 B
Lua
; routine to draw the Commander X16's log in petscii.
|
|
|
|
%import textio
|
|
|
|
cx16logo {
|
|
sub logo_at(ubyte column, ubyte row) {
|
|
uword strptr
|
|
for strptr in logo_lines {
|
|
txt.plot(column, row)
|
|
txt.print(strptr)
|
|
row++
|
|
}
|
|
}
|
|
|
|
sub logo() {
|
|
uword strptr
|
|
for strptr in logo_lines
|
|
txt.print(strptr)
|
|
txt.chrout('\n')
|
|
}
|
|
|
|
str[] logo_lines = [
|
|
"\uf10d\uf11a\uf139\uf11b \uf11a\uf13a\uf11b\n",
|
|
"\uf10b\uf11a▎\uf139\uf11b \uf11a\uf13a\uf130\uf11b\n",
|
|
"\uf10f\uf11a▌ \uf139\uf11b \uf11a\uf13a \uf11b▌\n",
|
|
"\uf102 \uf132\uf11a▖\uf11b \uf11a▗\uf11b\uf132\n",
|
|
"\uf10e ▂\uf11a▘\uf11b \uf11a▝\uf11b▂\n",
|
|
"\uf104 \uf11a \uf11b\uf13a\uf11b \uf139\uf11a \uf11b\n",
|
|
"\uf101\uf130\uf13a \uf139▎\uf100"
|
|
]
|
|
}
|