BANNER-OLD.BAS

' Banner | IchigoJam BASIC
' Copyright (c) 2015 Keiichi Shiga (BALLOON | FU-SEN)
' The MIT License (MIT) - https://mit.balloon.net.eu.org/#2015
10 CLS
20 LET [0],12291,12291,16383,16383
30 LET [4],12291,12291,0,0
40 LET [8],4032,4032,12336,12336
50 LET [12],12336,12336,12336,12336
60 LET [16],3264,3264,0,0
70 LET [20],16383,16383,192,192
80 LET [24],48,48,48,48
90 LET [28],16320,16320,0,0
100 LET [32],48,48,16371,16371
110 LET [36],0,0,960,960
120 LET [40],-13264,-13264,-13264,-13264
130 LET [44],-13264,-13264,16368,16368
140 LET [48],0,0,4032,4032
150 LET [52],12336,12336,12336,12336
160 LET [56],12336,12336,4032,4032
170 LET [60],0,0,3072,3072
180 LET [64],12288,12288,12291,12291
190 LET [68],4095,4095,3,3
200 LET [72],3072,3072,13104,13104
210 LET [76],13104,13104,13104,13104
220 LET [80],16320,16320,0,0
230 LET [84],16368,16368,48,48
240 LET [88],16368,16368,48,48
250 LET [92],16320,16320,0,0
260 LET [96],0,0,0,0,0
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