prog8/compiler/res/prog8lib/cx16logo.p8
2023-07-02 06:15:02 +02:00

35 lines
936 B
Lua

; routine to draw the Commander X16's log in petscii.
%import textio
cx16logo {
%option no_symbol_prefixing
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"
]
}