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:54:13

MixJuice GET URL : kidspod.club/mj/589

バナー(電光掲示板)(BASIC 0.9.7~)

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

SOURCE CODE

CLS

NEW

5 'Banner
10 CLS:CLV
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 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