100 ' 110 ' 初期化 120 DIM NINZU(3),TE(10),KATI(3),MAKE(3),KEKKA(10) 130 RANDOMIZE VAL(MID$(TIME$,4,2)+RIGHT$(TIME$,2)) 140 ' 150 ' KATI と MAKE を定義 160 KATI(1)=3 : KATI(2)=1 : KATI(3)=2 170 MAKE(1)=2 : MAKE(2)=3 : MAKE(3)=1 180 ' 190 ' 結果, X, Y を初期化 200 FOR I=1 TO 10 '(01) 210 KEKKA(I)=0 ' ↓ 220 NEXT I ' ↓ 230 X=0 : Y=0 ' ↓ 240 ' 250 INPUT " キー入力 → 1 乱数 → 0 ";KR 260 ' 270 ' だれかが3回勝つまでくり返し 280 WHILE Y=0 '(02) 290 ' 300 ' じゃんけん 310 IF KR THEN 320 FOR I=1 TO 10 '(03) 330 PRINT USING " TE(##) = ";I; : INPUT TE(I) ' ↓ 340 NEXT I ' ↓ 350 ELSE 360 FOR I=1 TO 10 ' ↓ 370 TE(I)=INT(RND*3)+1 ' ↓ 380 PRINT USING " TE(##) = #";I,TE(I) ' ↓ 390 NEXT I ' ↓ 400 END IF 410 PRINT 420 ' 430 ' 人数を初期化 440 FOR I=1 TO 3 '(04) 450 NINZU(I)=0 ' ↓ 460 NEXT I ' ↓ 470 ' 480 X=X+1 '(05) 490 ' 500 ' 判定を開始 510 FOR I=1 TO 10 '(06) 520 NINZU(TE(I))=NINZU(TE(I))+1 '(07) 530 NEXT I '(08) 540 ' 550 FOR J=1 TO 10 '(09) 560 A=TE(J) '(10) 570 B=KATI(A) : C=MAKE(A) '(11) 580 ' 590 IF NINZU(B)=0 AND NINZU(C)>0 THEN '(12) 600 KEKKA(J)=KEKKA(J)+1 '(13) 610 END IF '(14) 620 IF KEKKA(J)=3 THEN '(15) 630 Y=Y+1 '(16) 640 PRINT J; '(17) 650 END IF '(18) 660 NEXT J '(19) 670 ' 680 WEND '(20) 690 ' 700 PRINT "番の人が3回勝ちました" : PRINT 710 PRINT X,Y '(21) 720 ' 730 END