最初に大きな風船が出ています。
何かキーを押すと、全て小さな風船になり、飛んでいきます。

 

10 CLS:CLV:X=9:Y=5
20 LC14,2:?"CCCC":LC13,3:?"EFFFFD":
LC12,4:?"E
FFFFFFD"

30 LC11,Y:?"AFFFFFFFF%":Y=Y+1:
IF Y<11 GOTO 30

40 POKE #700,#FF,#FF,#FF,#FF,#00,#00,#00,#00

50 LC14,Y+2:?"####":LC13,Y+1:?"BFFFF’":
LC12,Y:?"BFFFFFF’"

60 LC15,Y+3:?"&":LC15,Y+4:?")":LC15,Y+5:?"&":
LC15,Y+6:?")":
LC15,Y+7:?"&":LC15,Y+8:?")":LC15,Y+9:?"&"

70 IF INKEY()=0 GOTO 70:ELSE Y=0

80 V=VPEEK(X,Y):IF V!=0 GOSUB 110

90 X=X+1:IF X=21 X=9:Y=Y+1:IF Y=22 LC8,21:?"Happy Birthday!":GOTO 130

100 GOTO 80

110 LCX,Y:IF Y%2=0 ?"l":RETURN

120 ?"i":RETURN

130 A=A+1:WAIT 10:SCROLL 0

140 IF A>11 LC8,9:?"               ":LC8,10:?"Happy Birthday!"

150 IF A<25 GOTO 130

コメント
ふっ、ふっ、ふうせんぅ&#12316;&#12316;&#12316; >< ←5/12 誕生日でした
コメントする