風船

IchigoLatte FORTH で何か作ろうと考えて、

作ったものは……やっぱり風船でした。🎈😍←風船大好き

 

とはいっても IchigoLatte FORTH は数字しか表示できないので、

数字 0 で風船、数字 1 で糸を表現しています。

それでも風船だと分かってもらえるようです。

横座標を同じところにするため、乱数で出した値を

DUP で複製して 1 つをスタックに残します。

スクロール後、残した値が lc で使われています。

 

WHILE がない BEGIN~REPEAT で無限ループになります。

 

あとは FORTH の仕様が分かれば、

スタックの状態と共に解読できるかと思います。

 

0.4.0D 以降になっていますが、0.3.0D は

1 行目 \ Balloons を削除する事で動作可能です。

  


\ Balloons

cls

BEGIN
 31 rnd
 DUP 23 lc
 0 .

 100 sleep

 0 scroll

 23 lc
 1 .
REPEAT

MixJuice・MicJack ダウンロード lash>echo MJ GET 15lt.eu.org/balloon.fs> uart;cat uart > .


他のプログラム