ハッピーデモンストレーション、略してハピデモ!
誕生日はもちろん、何かとおめでたい時やデモ画面にも使えます。

最初のゴミはランダム表示です。
「HAPPY」にかぶらないように制限をかけています。
SCRを使って「HAPPY」を残したまま塗りつぶしています。
そのあとは繰り返しになります。



イチゴを別のキャラクターなどにして楽しむのもいいかもしれないです。

15 CLS:CLV
18 CLT
19 A=RND(31):B=RND(7)+8:IF SCR(A,B)=0 LCA,B:?CHR$(1):ELSE IF TICK()<500 GOTO19:ELSE GOTO 80
20 LC1,9:?" ":LC5,9:?" ":LC9,9:?" ":LC13,9:?"    ":LC19,9:?"    ":LC25,9:?" ":LC29,9:?" "
30 LC1,10:?" ":LC5,10:?" ":LC8,10:?" ":LC10,10:?" ":LC13,10:?" ":LC17,10:?" ":LC19,10:?" ":LC23,10:?" ":LC26,10:?" ":LC28,10:?" "
40 LC1,11:?"     ":LC8,11:?"   ":LC13,11:?"    ":LC19,11:?"    ":LC27,11:?" "
50 LC1,12:?" ":LC5,12:?" ":LC7,12:?" ":LC11,12:?" ":LC13,12:?" ":LC19,12:?" ":LC27,12:?" "
60 LC1,13:?" ":LC5,13:?" ":LC7,13:?" ":LC11,13:?" ":LC13,13:?" ":LC19,13:?" ":LC27,13:?" "
70 GOTO18
80 C=255
85 X=0:Y=8
90 IF (SCR(X,Y)=1)+(SCR(X,Y)=255) LCX,Y:?CHR$(C)
100 X=X+1:IF X=31 X=0:Y=Y+1:IF Y=15 GOTO120
110 GOTO 90
120 IF C=255 WAIT 300:C=1:GOTO85
130 WAIT 300:GOTO15
コメント
コメントする