2021-12-21 18:08:33 +00:00
|
|
|
%import textio
|
2022-01-18 20:21:49 +00:00
|
|
|
%zeropage basicsafe
|
2021-12-15 22:43:14 +00:00
|
|
|
|
2021-10-30 13:15:11 +00:00
|
|
|
main {
|
2022-01-18 20:21:49 +00:00
|
|
|
str s1 = "Irmen_"
|
|
|
|
str s2 = @"IRMEN_"
|
2022-01-19 19:45:24 +00:00
|
|
|
str s3 = sc:"IRMEN_"
|
|
|
|
str s4 = iso:"Käse, Straße"
|
2022-01-13 01:29:55 +00:00
|
|
|
|
2022-01-18 20:21:49 +00:00
|
|
|
sub start() {
|
2022-01-19 19:45:24 +00:00
|
|
|
txt.iso()
|
|
|
|
; txt.lowercase()
|
2022-01-18 20:21:49 +00:00
|
|
|
txt.nl()
|
|
|
|
txt.nl()
|
|
|
|
txt.nl()
|
|
|
|
txt.nl()
|
|
|
|
txt.nl()
|
|
|
|
txt.print(s1)
|
|
|
|
txt.nl()
|
|
|
|
txt.print(s2)
|
|
|
|
txt.nl()
|
2022-01-19 19:45:24 +00:00
|
|
|
txt.print(s3)
|
|
|
|
txt.nl()
|
|
|
|
txt.print(s4)
|
|
|
|
txt.nl()
|
2022-01-16 00:07:10 +00:00
|
|
|
|
2022-01-18 20:21:49 +00:00
|
|
|
sc(1, s1)
|
|
|
|
sc(2, s2)
|
2022-01-19 19:45:24 +00:00
|
|
|
sc(3, s3)
|
|
|
|
sc(4, s4)
|
2022-01-18 20:21:49 +00:00
|
|
|
}
|
2022-01-17 21:12:38 +00:00
|
|
|
|
2022-01-18 20:21:49 +00:00
|
|
|
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++
|
|
|
|
}
|
|
|
|
}
|
2021-05-12 22:35:22 +00:00
|
|
|
}
|