Program post site for everyone
■説明
表示される数字を素因数分解していくゲームです。
使う素数は２，３，５，７の四つです。
素数を選ぶと数字が割り算されます。
1になると得点が入り次の数字が表示されます。
間違えるとゲームオーバーです。
■操作
カーソル移動：← →
決定：スペース
■ちなみに・・・
今年は2023年
2023は素数でしょうか？
実は素数ではありません。ぜひ素因数分解してみてください。
10 CLS:CLV:VIDEO3:Q=1:D=1:LET[0],2,3,5,7 20 LC 0,2:PRINT"2 3 5 7":LC 0,4:PRINT"SCORE" 30 @S:A=RND(4):Q=Q*[A]:C=C+1:IF C<D+1 CONT 40 @T:IF Q!=1 LC 0,0:PRINT" ":LC 0,0:PRINT Q 50 @A:LC X*2,3:PRINT" ":K=INKEY():X=(X-(K=28)+(K=29)+4)%4:LC X*2,3:PRINT CHR$(226) 60 IF Q=1 C=0:S=S+1:D=(S/5)*(S<20)+3*(S>19)+1:LC 1,5:PRINT S:GOTO@S 70 IF K=32 IF Q%[X] GOTO@E ELSE Q=Q/[X]:GOTO@T 80 GOTO@A 90 @E:LC 0,6:PRINT"GAME OVER"
