1
0
mirror of https://github.com/KarolS/millfork.git synced 2024-12-25 06:29:17 +00:00
millfork/examples/crossplatform/screnctest.mfk
2019-11-04 02:31:04 +01:00

23 lines
394 B
Plaintext

import encconv
import scrstring
import stdio
#if CBM_64
import c64_basic
const pointer SCREEN = $400
#elseif CBM_264
import c264_basic
const pointer SCREEN = $c00
#else
#error
#endif
void main() {
pointer s
ensure_mixedcase()
putstrz("Enter a text line; it will be displayed{n}on top of the screen:{n}"z)
s = readline()
strz_to_screencode(s)
scrstrzpaste(SCREEN, s)
}