第１回昔のＰＣ板杯ﾌﾟﾛｸﾞﾗﾑｺﾝﾃｽﾄ

81 ：ナイコンさん：01/12/25 21:06.net

お前モナーでキータッチ　半角全角ひらカタランダムです
N88互換BASIC　全機種OKだと思う。
10 data お,オ,ｵ,ま,マ,ﾏ,え,エ,ｴ,も,モ,ﾓ,な,ナ,ﾅ,ー,ｰ,-,お前モナー
20 I=0:dim A$(99):cls
30 read A$(I)
40 if A$(I)="お前モナー" then 60
50 I=I+1:goto 30
60 I=0:for K=1 to 6
70 R=int(rnd*5)
80 if R>2 then 70
90 Q$=Q$+A$(I+R)
100 I=I+3
110 next K
120 color 5:print Q$
130 line input Y$
140 if Y$=Q$ then color 4:print"(・∀・）ｲｲ":Q$="":goto 60 else color 2:print "違うぞゴルァもう一回打て！":color 5:goto 130