• No registered tag exist.

5 'RENDA TAIKETU
10 CLS:CLT:A=0:B=0:D=0:E=0:C=5
20 LC 3,12:?"アカ ト ミト゛リ ト゛ウシ゛オシ テ゛ スタート"
30 IF IN(1) AND IN(4) ELSE GOTO 30
40 CLS:LC 15,12:?C:BEEP 10:WAIT 60
50 C=C-1
60 IF C<1 BEEP 5,60:CLS:CLT ELSE GOTO 40
70 IF IN(1)=0 D=0
73 IF TICK()/60<0 ELSE T=TICK()/60
75 IF T>0 LC 11,17:?"ノコリタイム:";10-T ELSE GOTO 80
77 IF TICK()%(RND(6)+5) ELSE BEEP RND(20)
80 IF IN(4)=0 E=0
83 IF D=0 AND IN(1)=1 AND T>0 A=A+1:D=1
85 IF E=0 AND IN(4)=1 AND T>0 B=B+1:E=1
90 LC 9,12:?A
100 LC 19,12:?B
103 LC 8,10:?"ミト゛リ"
104 LC 19,10:?"アカ"
105 LC 17,18:?" "
110 IF T>10 PLAY"T180C16E16G16<C":IF A<B LC 11,17:?"アカ ノ カチ! ":END ELSE IF B<A LC 10,17:?"ミト゛リ ノ カチ!":END ELSE IF A=B LC 11,17:?"  ヒキワケ!":LC 18,17:?"     ":END
120 GOTO 70

Pagetop