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