Enjoy programming more!
Kidspod is a post site which supports young programmers.
First step to join us.
Register as a member
For members

2018/09/25 21:11:09

MixJuice GET URL : kidspod.club/mj/580

IchigoJam ロゴ(BASIC 0.7.6~)

詳細は イチゴジャム レシピ で公開しています。
「プログラムをみる」を参照して下さい。

SOURCE CODE

CLS

NEW

10 'IchigoJam logo
20 LET [0],25945:LET [1],21058
30 LET [2],5445:LET [3],30021
40 LET [4],21957:LET [5],30533
50 LET [6],21829:LET [7],21829
60 LET [8],25945:LET [9],21810
70 LET D,0:LET X,0:LET B,0
80 IF(B==15)*(D%2==1)GOTO 100
90 ? CHR$([D]%2);:LET [D],[D]/2
100 LET X,X+1:IF X==32 GOTO 100
110 LET B,B+1:IF B<>16 GOTO 80
120 IF D%2 ?:LET X,0
130 LET D,D+1:LET B,0
140 IF D<>10 GOTO 80

'OK

COMMENT