• IchigoJam
• BASIC
• IchigoJamロゴ
• ふうせんFU-SEN

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

Pagetop