Add new example

examples/README.md

@@ -20,6 +20,8 @@
 
 * [Fire effect](crossplatform/fire.mfk) (C64/C16/ZX Spectrum) – a simple fire effect
 
+* [Screen encoding test](crossplatform/screnctest.mfk) (C64/C16) – default-to-screen encoding conversion test
+
 * [Bell](crossplatform/bell.mfk) (Apple II/ZX Spectrum) – a program that goes \*ding!\*
 
 * [Life](crossplatform/life.mfk) (C64/C16/Atari/ZX Spectrum) – Conway's game of life

examples/crossplatform/screnctest.mfk

@@ -0,0 +1,22 @@
+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)
+}