• No registered tag exist.

5 'RENDA TAIKETU KEYBORDBAN
10 CLS:CLT:A=0:B=0:D=0:E=0:C=5
20 LC 8,12:?"スヘ゜ースキー テ゛ スタート"
30 IF BTN(SPACE) 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 K=90 D=0
71 K=INKEY()
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 K=77 E=0
83 IF D=0 AND K=90 AND T>0 A=A+1:D=1
85 IF E=0 AND K=77 AND T>0 B=B+1:E=1
90 LC 9,12:?A
100 LC 19,12:?B
103 LC 9,10:?"1P"
104 LC 19,10:?"2P"
105 LC 17,18:?" "
110 IF T>10 PLAY"T180C16E16G16<C":IF A>B LC 11,17:?"1P ノ カチ! ":END ELSE IF B>A LC 10,17:?" 2P ノ カチ!  ":END ELSE IF A=B LC 11,17:?"  ヒキワケ!":LC 18,17:?"     ":END
120 GOTO 70

Pagetop