000
10.06.2013, 14:11 Uhr
funkheld
|
Hallo, hier ist mal ein Beispiel, wie Grafik und Text mit FORTH auf dem JKcemu-Z1013 dargestellt wird. Habe hier zum Test die 2048 Bytes ab 8000h geladen.
Mit "Create" habe ich einen 32 Byte grossen Speicher für den String.
"CLSSTR" löscht den String.
"65 16 16 GEMIT" : Damit schreibe ich ein "A" an X=16 und Y=16 (Textauflösung) in den Grafikspeicher
"4 12 14 GSTR [RETURN] " : Damit schreibe ich 4 Buchstaben (Expect von Forth wird genommen) in den STR-Buffer und nach der Eingabe der 4 Buchstaben werden die Buchstaben in den Grafikbereich X=12 , Y=14 (Textauflösung) gedruckt. Damit kann man dann Grafiken beschriften oder ein Grafik/Textadventures erfinden.
Wird noch verbessert.
Wer dieses Forth vom Z1013 kennt und damit spielt , kann dieses bestimmt gebrauchen und verbessern.
| Quellcode: | VARIABLE A
VARIABLE X1
VARIABLE Y1
VARIABLE X
VARIABLE Y
VARIABLE Z
VARIABLE L
CREATE STR
0 C, 0 C, 0 C, 0 C, 0 C, 0 C, 0 C, 0 C,
0 C, 0 C, 0 C, 0 C, 0 C, 0 C, 0 C, 0 C,
0 C, 0 C, 0 C, 0 C, 0 C, 0 C, 0 C, 0 C,
0 C, 0 C, 0 C, 0 C, 0 C, 0 C, 0 C, 0 C,
: STERN
360 0 DO
I SIN 80 10000 */ X !
I COS 80 10000 */ Y !
128 128 X @ 128 + Y @
128 + GLINE
10 +LOOP ;
: CLSSTR
31 0 DO
0 STR I + C!
LOOP ;
: GEMIT
Y1 ! X1 ! A !
GON
GCLS
8 0 DO
I 8 P!
A @ 8 * -32768 + I + C@ 255 XOR Y1 @ 1 - 32 * X1 @ + -5120 + C!
LOOP
KEY
DROP
GOFF ;
: GSTR
CLSSTR
Y1 ! X1 ! L !
STR L @ EXPECT
GON
GCLS
STERN
0 Z !
L @ 0 DO
8 0 DO
I 8 P!
STR Z @ + C@ 8 * -32768 + I + C@ 255 XOR Y1 @ 1 - 32 * X1 @ + -5120 + C!
LOOP
X1 @ 1 + X1 !
Z @ 1 + Z !
LOOP
KEY
DROP
GOFF ;
|
[url=http://picup.oliverlamm.de/files/IMG_d0f16928d48db9cdb9bbf464a1bd78b8_2335TT4wDimHM.jpg] [/url]
Gruss
peter
Dieser Beitrag wurde am 10.06.2013 um 16:00 Uhr von funkheld editiert. |
