Files
microw8/examples/curlywas/control.cwa

24 lines
652 B
Plaintext

import "env.memory" memory(4);
import "env.printString" fn printString(i32);
export fn upd() {
printString(0x20000);
}
data 0x20000 {
i8(14, 0xfd, 15, 15, 12) // clear screen to color 0xfd
"Top left"
i8(14, 10, 11, 11, 11, 11) // scroll up 4 lines
i8(31, 28, 29, 14, 0xfd) "Bottom right"
i8(14, 10, 10, 10) // scroll down 2 lines
i8(31, 40, 3, 14, 10, 15, 0xf0) "Other colors"
i8(24, 0xb0) "inverted"
i8(13, 10, 8, 8) "->"
i8(10, 10, 9, 9, 1) "|<-"
i8(5, 31, 7, 28+17, 15, 0xe3) "Graphics text!"
i8(5, 31, 6, 28+16, 15, 0xe5) "Graphics text!"
i8(4, 24, 14, 10, 0x90, 0x80, 0xf1)
i8(31, 37, 29, 0xf1, 0x80, 0x90)
i8(0)
}