SHIROのIchigoJam日記

マイコン「IchigoJam」(イチゴジャム)の電子工作とプログラミングをメインに

祝☆IchigoJam3周年

先日、4/1にIchigoJamは誕生3周年を迎えました。
おめでとうございます。

本当は4/1に投稿したかったのですが、このIchigoNameフルバージョンの液晶をうっかり割ってしまい、材料取り寄せと修復に今までかかってしまいました。

IchigoJamのお陰で楽しいプログラミング環境が手に入り、パソコンクラブなど子ども達へのプログラミング教育も新たなステージに入りました。
今後も楽しんでいきたいと思います。よろしくお願いします。

3周年表示のプログラムはこちら。
通常のIchigoJam環境で動きます。

10 '* IchigoJam 3rd Birthday!!
20 CLS
30 LET [0],#5005,#10,#5000,0,0
40 LET [5],#7175,#5755,#5057,#BB57,#B
50 LET [10],#1131,#5311,#1313,#2233,2
60 LET [15],#3333,#1313,#3333,#3333,3
70 LET [20],0,#5300,#5000,0,0
80 LET [25],0,#5300,#5717,0,0
90 LET [30],0,#1300,#1301,0,0
100 LET [35],#105,#5080,#500,#A000,#A
110 LET [40],#7557,#71B1,#7575,#2AA5,2
120 LET [45],#1113,#1120,#3131,#2B23,2
130 LET [50],0,0,0,#320,0
140 FOR Y=0 TO 50 STEP 5
150 LC 7,Y/5+7
160 FOR X=0 TO 4
170 D=[X+Y]
180 FOR B=0 TO 3
190 N=D&15
200 ?CHR$(#80+N);
210 D=D>>4
220 NEXT
230 NEXT
240 NEXT
250 CONT