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:58:07

MixJuice GET URL : kidspod.club/mj/590

バナー(電光掲示板)公式ロゴ版(BASIC 0.9.7~)

IchigoJam officially logo - CC BY IchigoJam https://ichigojam.net/ Licensed by jig.jp

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

SOURCE CODE

CLS

NEW

1 'Banner IchigoJam logo
10 CLS:CLV
20 LET [0],26622,26622,24576
30 LET [3],24576,26592,26592
40 LET [6],26208,26208,26208
50 LET [9],26208,24576,24576
60 LET [12],26622,26622,24672
70 LET [15],24672,26592,26592
80 LET [18],24576,24576,26598
90 LET [21],26598,0,0
100 LET [24],26592,26592,26208
110 LET [27],26208,32736,32736
120 LET [30],0,0,26592
130 LET [33],26592,26208,26208
140 LET [36],26592,26592,24576
150 LET [39],24576,26112,26112
160 LET [42],26112,26112,26622
170 LET [45],26622,24576,24576
180 LET [48],26592,26592,26208
190 LET [51],26208,26592,26592
200 LET [54],26112,26112,24672
210 LET [57],24672,26592,26592
220 LET [60],24672,24672,26592
230 LET [63],26592,24672,24672
240 LET [66],26592,26592
270 LET D,0:LET B,0
280 LC 31,4+B:? CHR$([D]&1);
290 LET [D],[D]>>1
300 LET B,B+1:IF B<>16 GOTO 280
310 SCROLL 3:LET B,0
320 LET D,D+1:IF D<>101 GOTO 280
330 LET D,0:GOTO 20

'OK

COMMENT