BANNER-OFFICAL-OLD.BAS

' Banner IchigoJam officially logo version | IchigoJam BASIC
' Copyright (c) 2015 Keiichi Shiga (BALLOON | FU-SEN)
' IchigoJam officially logo - CC BY IchigoJam http://ichigojam.net/ Licensed by jig.jp
' The MIT License (MIT) - https://mit.balloon.net.eu.org/#2015
10 CLS
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 35,7+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