mirror of
https://github.com/irmen/prog8.git
synced 2024-12-04 19:50:19 +00:00
2b8f613a00
Also improved error for invalid directive.
35 lines
951 B
Lua
35 lines
951 B
Lua
; routine to draw the Commander X16's log in petscii.
|
|
|
|
%import textio
|
|
|
|
cx16logo {
|
|
%option no_symbol_prefixing, ignore_unused
|
|
|
|
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.nl()
|
|
}
|
|
}
|
|
|
|
str[] logo_lines = [
|
|
"\uf10d\uf11a\uf139\uf11b \uf11a\uf13a\uf11b",
|
|
"\uf10b\uf11a▎\uf139\uf11b \uf11a\uf13a\uf130\uf11b",
|
|
"\uf10f\uf11a▌ \uf139\uf11b \uf11a\uf13a \uf11b▌",
|
|
"\uf102 \uf132\uf11a▖\uf11b \uf11a▗\uf11b\uf132",
|
|
"\uf10e ▂\uf11a▘\uf11b \uf11a▝\uf11b▂",
|
|
"\uf104 \uf11a \uf11b\uf13a\uf11b \uf139\uf11a \uf11b",
|
|
"\uf101\uf130\uf13a \uf139▎\uf100"
|
|
]
|
|
}
|