100 ' 110 ' 初期化 120 DIM NINZU(3),TE(10),KATI(3),MAKE(3) 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 ' じゃんけん 200 INPUT " キー入力 → 1 乱数 → 0 ";KR 210 IF KR THEN 220 FOR I=1 TO 10 230 PRINT USING " TE(##) = ";I; : INPUT TE(I) 240 NEXT I 250 ELSE 260 FOR I=1 TO 10 270 TE(I)=INT(RND*3)+1 280 PRINT USING " TE(##) = #";I,TE(I) 290 NEXT I 300 END IF 310 PRINT 320 ' 330 ' 人数を初期化 340 FOR I=1 TO 3 '(01) 350 NINZU(I)=0 ' ↓ 360 NEXT I ' ↓ 370 ' 380 ' 判定を開始 390 FOR I=1 TO 10 '(02) 400 NINZU(TE(I))=NINZU(TE(I))+1 '(03) 410 NEXT I '(04) 420 ' 430 A=TE(1) '(05) 440 B=KATI(A) : C=MAKE(A) '(06) 450 ' 460 IF NINZU(B)=0 AND NINZU(C)>0 THEN '(07) 470 PRINT "1番の人は勝ち" '(08) 472 IF NINZU(A)=1 THEN '(08.1) 474 PRINT "他に勝者はいない" '(08.2) 476 END IF '(08.3) 480 ELSE '(09) 490 IF NINZU(B)>0 AND NINZU(C)=0 THEN '(10) 500 PRINT "1番の人は負け" '(11) 510 ELSE '(12) 520 PRINT "あいこ" '(13) 530 END IF '(14) 540 END IF '(15) 550 ' 560 END