> 100 print "ﾄﾞｳﾃｲ ﾊﾝﾃｲ ﾏｼｰﾝ":print:print
> 110 input "ｱﾅﾀﾉ ﾅﾏｴｦ ｲﾚﾃｸﾀﾞｻｲ ";a$
> 120 print "ﾅﾏｴ ｶｲｾｷﾁｭｳ"
> 130 for x=0 to 1000:next
> 140 print "ｻｰﾊﾞﾆ ﾘｸｴｽﾄﾁｭｳ"
> 150 for x=0 to 1000:next
> 160 print "ｶｲｾｷｹｯｶ"
> 170 for x=0 to 1000:next
> 180 print　"ｱﾅﾀﾊ ﾄﾞｳﾃｲ ﾃﾞｽ!!"
> 999 new

10 CLS:PRINT"ｵﾏﾝｺ!":BEEP:GOTO 10

参考：2006/11/26(日)23時05分30秒