• No registered tag exist.

1 REM イシモムヨウ
10 IF R=0 THEN GOTO 20
11 IF R=1 THEN GOTO60
12 IF R=2 THEN GOTO 110
13 IF R=3 THEN GOTO 150
14 IF R=6 THEN GOTO 170
15 LRUN2
20 FOR M=0 TO 31:LOCATE M,1:?CHR$(#EE):NEXT:LOCATE 0,20:? "キラキラホ゛シヲナカ゛シマス!":WAIT 30:PLAY "CCGGAAGRFFEEDDCRGGFFEEDRGGFFEEDRCCGGAAGRFFEEDDC"
30 S=SOUND()
40 IF S=0 THEN LRUN0
50 GOTO 30
60 FOR M=0 TO 31:LOCATE M,1:?CHR$(#EE):NEXT:LOCATE 0,20:? "カエルノカ゛ッショウヲナカ゛シマス!":WAIT 30:PLAY "CDEFEDCREFGAGFERCRCRCRCRCDEFEDC"
70 S=SOUND()
80 IF S=0 THEN LRUN0
90 GOTO 70
100 GOTO 80
110 FOR M=0 TO 31:LOCATE M,1:?CHR$(#EF):NEXT:LOCATE 0,20:? "ウラナイシマス!     ":? "キョウノケンコウウンハ、";:WAIT60:? RND(100)+1;"テンテ゛ス":? "ワルクテモキニシナイテ゛ネ":? "PUSH BUTTON"
120 B=BTN()
130 IF B=1 THEN LRUN0
140 GOTO 120
150 FOR M=0 TO 31:LOCATE M,1:?CHR$(#EF):NEXT:LOCATE 0,20:? "ウラナイシマス!     ":? "キョウノキンウンハ、";:WAIT60:? RND(100)+1;"テンテ゛ス":? "ワルクテモキニシナイテ゛ネ":? "PUSH BUTTON"
160 GOTO 120
170 LOCATE 0,20:? "ホ゛クモイツカハ":WAIT 60:? "カッコイイロホ゛ニナルンタ゛!":? "PUSH BUTTON"
180 GOTO 120

Pagetop