mirror of
https://github.com/KarolS/millfork.git
synced 2024-10-31 14:04:58 +00:00
31 lines
535 B
Plaintext
31 lines
535 B
Plaintext
import stdio
|
|
|
|
const array p = [
|
|
"this is an example", 13,
|
|
"of {red}multiline {blue}{reverse}",
|
|
#if CBM
|
|
"petscii",
|
|
#else
|
|
"ASCII",
|
|
#endif
|
|
"{reverseoff} {white}text"
|
|
]
|
|
|
|
const array s = [
|
|
"and this is an example " scr,
|
|
"of text done in screencodes" scr
|
|
]
|
|
|
|
array screen [1000] @$400
|
|
|
|
void main(){
|
|
byte i
|
|
putstr(p, p.length)
|
|
#if CBM_64
|
|
for i,0,paralleluntil,s.length {
|
|
screen[20 * 40 + i] = s[i]
|
|
c64_color_ram[20 * 40 + i] = light_blue
|
|
}
|
|
#endif
|
|
while(true){}
|
|
} |