mirror of
https://github.com/KarolS/millfork.git
synced 2024-09-28 18:55:09 +00:00
Add new example
This commit is contained in:
parent
d906d8aab4
commit
4a8be268cc
@ -20,6 +20,8 @@
|
|||||||
|
|
||||||
* [Fire effect](crossplatform/fire.mfk) (C64/C16/ZX Spectrum) – a simple fire effect
|
* [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!\*
|
* [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
|
* [Life](crossplatform/life.mfk) (C64/C16/Atari/ZX Spectrum) – Conway's game of life
|
||||||
|
22
examples/crossplatform/screnctest.mfk
Normal file
22
examples/crossplatform/screnctest.mfk
Normal file
@ -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)
|
||||||
|
}
|
Loading…
Reference in New Issue
Block a user