cls 15 BEGIN DUP 5 lc 0 . 32 rnd 23 lc 1 . 0 scroll DUP 5 scr 0 = WHILE 30 sleep inkey DUP 28 = IF SWAP 1 - SWAP THEN DUP 29 = IF SWAP 1 + SWAP THEN DROP REPEAT
I made a game with IchigoLatte FORTH I’m creating. This is a source program of it.
The game is like this. Is it difficult?
BEGIN
33 out 1000 sleep
18 out 1000 sleep
REPEAT
And I also made a robot control program. It is very simple. “33 out” is “Forward”, “18 out” is “Backward”, “17 out” is “Turn left” and “34 out” is “Turn right”.
The robot moves like this. Do you like it?
You can download this firmware from here. This firmware for IchigoJam board. Please reflash this firmware to your IchigoJam board.
Have fun!
.
Pingback: PCN Silicon Valley 謹製「QR ROM」は超便利!FORTH版も人気なので 変数 と 関数 を追加! – about yrm