mirror of
https://github.com/irmen/prog8.git
synced 2024-09-07 19:54:26 +00:00
42 lines
699 B
Lua
42 lines
699 B
Lua
%import textio
|
|
%zeropage basicsafe
|
|
|
|
main {
|
|
str s1 = "Irmen_"
|
|
str s2 = @"IRMEN_"
|
|
;str s3 = iso:"Irmen_~"
|
|
|
|
sub start() {
|
|
txt.lowercase()
|
|
txt.nl()
|
|
txt.nl()
|
|
txt.nl()
|
|
txt.nl()
|
|
txt.nl()
|
|
txt.print(s1)
|
|
txt.nl()
|
|
txt.print(s2)
|
|
txt.nl()
|
|
; txt.print(s3)
|
|
; txt.nl()
|
|
|
|
sc(1, s1)
|
|
sc(2, s2)
|
|
; sc(3, s3)
|
|
}
|
|
|
|
sub sc(ubyte row, str text) {
|
|
uword addr = 1024+row*40
|
|
ubyte ix = 0
|
|
ubyte ss
|
|
repeat {
|
|
ss = text[ix]
|
|
if not ss
|
|
return
|
|
@(addr) = ss
|
|
addr++
|
|
ix++
|
|
}
|
|
}
|
|
}
|