> 0 ON STOP GOTO 1000
> 10 CLS
> 20 BEEP:PRINT"ﾁﾝﾎﾟ";
> 30 GOTO 20
> 1000 BEEP:PRINT"ﾏﾝｺ";
> 1010 GOTO 20

20 PLAY "T150C4E4G2"; : COLOR RND*15: PRINT "ﾁﾝﾎﾟ"; GOTO 20
曲が流れるやら色が変わるやらでもー大騒ぎ

参考：2017/10/19(木)23時22分17秒