10 A$=""
 20 input "あれれ、にょんさんの誕生日だったんですか？ (y/n)",A$
 30 If A$="Y" or A$="y" then goto 40 else goto 90
 40   print "おめでとう！十の位が（以下略）" 
 90 end

どーも、たてにょんです。

まあ、ホントの誕生日はもうちょっと先なんですけれども、
まだまだ十の位は上がりません（笑……と、笑ってもいられ
なくなってきた昨今。まあ、0x10代はまだ暫く続くしね！

〉 10 A$=""
〉 20 input "あれれ、にょんさんの誕生日だったんですか？ (y/n)",A$
〉 30 If A$="Y" or A$="y" then goto 40 else goto 90
〉 40   print "おめでとう！十の位が（以下略）" 
〉 90 end

〉 40   print "おめでとう！十の位が（以下略）" 
やっぱり、レベルアップという表現がいいのかな？（ぉ

＃というネタ、ＬａＬａ（にざかな先生）であった気が…