ichigojam けいさん名人

ichigojam ミニゲームズの足し算めいじんの改造

プログラミングクラブで、足し算めいじんの改造でヒントを得て、作ってみました。足し算、引き算、掛け算の暗算ゲームです。気分転換にどうぞ

プログラム
3 'KEISAN MEIJIN
5 CLV:CLS:S=0:C=0
10 X=RND(3)
20 A=RND(9)+1:B=RND(9)+1
30 GOSUB 900
50 GSB 100
60 IF C<5 GOTO 10 ELSE ?S,S100/C;:?"%"
90 END
100 IF Z-Y=0 S=S+1 ELSE ?"BAD"
110 C=C+1
150 RETURN
900 IF X=0 ?A;"+";B;"=";:INPUT Z:Y=A+B
910 IF X=1 ?A;"";B;"=";:INPUT Z:Y=A*B
920 IF X=2 ?A;"-";B;"=";:INPUT Z:Y=A-B
930 RETURN