私めも・・・
──────────────────────────────────────
S=0:DIM M(6):FOR I=0 TO 255:CLS:K=ASC(INKEY$)-48:K=K*(K>0)*(K<6)
:FOR J=1 TO 5:PRINT CHR$(M(J)*6+32);" ";:NEXT J:PRINT S;
:S=S+M(K):M(K)=0:M(RND(5)+1)=1:M(RND(5)+1)=0:M(RND(5)+1)=0
:FOR X=0 TO 255:NEXT X:NEXT I:IF S>20 THEN PRINT "GOOD"
ELSE PRINT "BAD"
──────●───────────────────────────────
V■V__ < モク゛ラタタキ
/ ̄/ \ /| ”&”ヲ タタイテ テンスウヲ カセコ゛ウ
∧ ∧ ././| 1 カラ 5 ノキー カ゛ ツカエルヨ
/_(,,゚Д゚)__// ┌─────────
|| ̄/ | ̄ ̄||/ < 機種によっては
||, (___ノ || | 長すぎて入らんぞゴルァ!!
/ . └─────────