1473973197


標的ゲーム → 当たると球が消える


5 SET WINDOW 0,300,300,0

10 LET a=30

LET b=300

LET i=1

LET j=-1

LET c=80

LET d=300

LET m=1

LET n=-1

LET e=130

LET f=300

LET k=1

LET l=-1

LET c0=3

LET c1=1

LET c2=1

LET c3=1

50 LET y1 = 300

LET a$=""

60 CLEAR

CHARACTER INPUT NOWAIT: a$

IF a$ = "m" THEN LET y1 = y1-1

SET AREA COLOR c0

DRAW disk WITH SCALE(5)*SHIFT(150,y1)

IF y1<10 THEN GOTO 50

70 LET a=a

LET b=b+j

LET c=c

LET d=d+n

LET e=e

LET f=f+l


REM 以下の不等号の範囲を広げると当たりやすくなる。


IF b<152 AND b>148 THEN GOTO 75 ELSE GOTO 76

75 IF y1<32 AND y1>28 THEN GOTO 2500

76 SET AREA COLOR c1

DRAW disk WITH SCALE(3)*SHIFT(b,a)

IF d<153 AND d>147 THEN GOTO 77 ELSE GOTO 78

77 IF y1<85 AND y1>75 THEN GOTO 2510

78 SET AREA COLOR c2

DRAW disk WITH SCALE(6)*SHIFT(d,c)

IF f<155 AND f>145 THEN GOTO 79 ELSE GOTO 80

79 IF y1>120 AND y1<140 THEN GOTO 2520

80 SET AREA COLOR c3

DRAW disk WITH SCALE(10)*SHIFT(f,e)


86 FOR k=1 TO 200000

87 NEXT k

130 IF a<30 THEN GOTO 300

140 IF b<30 THEN GOTO 300

150 IF a>280 THEN GOTO 330

160 IF b>280 THEN GOTO 330

IF c<30 THEN GOTO 1300

IF d<30 THEN GOTO 1300

IF c>280 THEN GOTO 1330

IF d>280 THEN GOTO 1330

IF e<30 THEN GOTO 1340

IF f<30 THEN GOTO 1340

IF e>280 THEN GOTO 1370

IF f>280 THEN GOTO 1370

210 IF a=c THEN 220

220 IF c=d THEN 330

270 GOTO 60

300 LET i=INT(4*RND)

RANDOMIZE

LET j=INT(4*RND)

GOTO 1650

310 LET i=INT(-4*RND)

RANDOMIZE

LET j=INT(4*RND)

GOTO 60

320 LET i=INT(4*RND)

RANDOMIZE

LET j=INT(-4*RND)

GOTO 60

330 LET i=INT(-4*RND)

RANDOMIZE

LET j=INT(-4*RND)

GOTO 60

1300 LET m=INT(4*RND)

RANDOMIZE

LET n=INT(4*RND)

GOTO 1650

1310 LET m=INT(-4*RND)

RANDOMIZE

LET n=INT(4*RND)

GOTO 60

1320 LET m=INT(4*RND)

RANDOMIZE

LET n=INT(-4*RND)

GOTO 60

1330 LET m=INT(-4*RND)

RANDOMIZE

LET n=INT(-4*RND)

GOTO 60

1340 LET k=INT(4*RND)

RANDOMIZE

LET l=INT(4*RND)

GOTO 1650

1350 LET k=INT(-4*RND)

RANDOMIZE

LET l=INT(4*RND)

GOTO 60

1360 LET k=INT(4*RND)

RANDOMIZE

LET l=INT(-4*RND)

GOTO 60

1370 LET k=INT(-4*RND)

RANDOMIZE

LET l=INT(-4*RND)

GOTO 60

1650 LET x1=INT(10*RND)

LET p1=INT(300*RND)

LET q1=INT(300*RND)

SET AREA COLOR x1

REM DRAW disk WITH SCALE(x1)*SHIFT(p1,q1)

1660 LET x2=INT(10*RND)

LET p2=INT(300*RND)

LET q2=INT(300*RND)

SET AREA COLOR x2

REM DRAW disk WITH SCALE(x2)*SHIFT(p2,q2)

1670 LET x3=INT(10*RND)

LET p3=INT(300*RND)

LET q3=INT(300*RND)

SET AREA COLOR x3

REM DRAW disk WITH SCALE(x3)*SHIFT(p3,q3)

1680 REM FOR k=1 TO 300000

REM NEXT k

1700 GOTO 60

2500 LET c1=0

GOTO 76

2510 LET c2=0

GOTO 78

2520 LET c3=0

GOTO 80

END

1473350452

しっぽが動く


SET WINDOW  0 , 300 , 300 , 0
10 FOR n=0 TO 360
15    CLEAR
18    LET  h=SIN(10*n)*10
19    LET  h2=SIN(10*n+10)*10
20    LET  h3=SIN(10*n+20)*10
21    LET  h4=SIN(10*n+30)*10
22    LET  h5=SIN(10*n+40)*10
23    LET  h6=SIN(10*n+50)*10
24    LET  h7=SIN(10*n+60)*10
             SET LINE WIDTH 100
             PLOT LINES: 30,150+h ;70,150+h2;110,150+h3;150,150+h4;190,150+ h5;230,150+h6;270,150+h7       

200    FOR t=1 TO 800000
210    NEXT t
300 NEXT n     
1200 GOTO 10
  END   



らせんを描く



DEF f(t)=COS(t)
DEF g(t)=SIN(t)
SET WINDOW -8,8,-8,8
DRAW axes
FOR t=0 TO 40*pi STEP pi/180
   PLOT LINES: f(t)*t/20,g(t)*t/20;
       FOR TI=0 TO 10000
   NEXT TI 
   NEXT t
END



文字の散開


5 SET WINDOW 0,300,300,0

50 LET a=150

LET b=150

LET i=1

LET j=1

LET c=150

LET d=150

LET m=-1

LET n=1

LET e=150

LET f=150

LET k=0

LET l=1

60 CLEAR

70 LET a=a+i

LET b=b+j

LET c=c+m

LET d=d+n

LET e=e+k

LET f=f-l

85 SET AREA COLOR 1

SET TEXT HEIGHT 20

DRAW disk WITH SCALE(20)*SHIFT(a,b)

SET TEXT COLOR 6

PLOT TEXT ,AT a-10,b+10:"美"

DRAW disk WITH SCALE(20)*SHIFT(c,d)

PLOT TEXT ,AT c-10,d+10:"真"

DRAW disk WITH SCALE(20)*SHIFT(e,f)

PLOT TEXT ,AT e-15,f+10:"善"

86 FOR ti=1 TO 200000

87 NEXT ti

100 IF a>320 THEN GOTO 50

150 GOTO 60

END

1473349481


二つ以上のものを別々にコントロールする。


20 CLEAR
   SET WINDOW  0,300,300,0
25 CHARACTER INPUT NOWAIT: a$
30 IF a$ = "i" THEN LET  y1 = y1-10
40 IF a$ = "j" THEN LET  x1 = x1-10
50 IF a$ = "k" THEN LET  i3 = i3
60 IF a$ = "l" THEN LET  x1 = x1+10
70 IF a$ = "m" THEN LET  y1 = y1+10
130 IF a$ = "w" THEN LET  y2 = y2-10
140 IF a$ = "a" THEN LET  x2 = x2-10
150 IF a$ = "s" THEN LET  i3 = i3
160 IF a$ = "d" THEN LET  x2 = x2+10
170 IF a$ = "z" THEN LET  y2 = y2+10
    
    SET AREA COLOR 3  
200 DRAW disk WITH SCALE(20)*SHIFT(200+x1,150+y1)
    
    SET AREA COLOR 7
250 DRAW disk WITH SCALE(20)*SHIFT(100+x2,150+y2)
    
1000 WAIT DELAY 0.1
1100 GOTO 20
     
     
     END
     

1473348214


キーボードで好きな位置に移動させる




20 CLEAR
   SET WINDOW  0,300,300,0
25 CHARACTER INPUT NOWAIT: a$
30 IF a$ = "i" THEN LET  y = y-10
40 IF a$ = "j" THEN LET  x = x-10
50 IF a$ = "k" THEN LET  i3 = i3
60 IF a$ = "l" THEN LET  x = x+10
70 IF a$ = "m" THEN LET  y = y+10
  
200 DRAW disk WITH SCALE(20)*SHIFT(150+x,150+y)
1000 WAIT DELAY 0.1
1100 GOTO 20
     
     
     END
     



1473346820


キーボードからの動きコントロール



10 SET WINDOW 0,400,400,0
   
30 CLEAR
   
   
40 CHARACTER INPUT nowait :a$
   
   
   IF a$="i" THEN  DRAW disk WITH SCALE(20)*SHIFT(200,140)
   
   IF a$="j" THEN  DRAW disk WITH SCALE(20)*SHIFT(140,200)
   
   IF a$="l" THEN  DRAW disk WITH SCALE(20)*SHIFT(260,200)
   
   IF a$="m" THEN  DRAW disk WITH SCALE(20)*SHIFT(200,260)
   
   IF a$="k" THEN  DRAW disk WITH SCALE(20)*SHIFT(200,200)
   
   DRAW circle WITH SCALE(80)*SHIFT(200,200)
   
   
   FOR ti=0 TO 5000000
   
   NEXT ti
   
   
   GOTO 30
   
   
   END

1473338357


文字列を消すゲームの素材



5 SET WINDOW 0,300,0,300

50 LET a=30

   LET b=300

   LET i=1

   LET j=-1

   LET c=130

   LET d=300

   LET m=1

   LET n=-1

   LET e=230

   LET f=300

   LET k=1

   LET l=-1

60 CLEAR

70 LET a=a

   LET b=b+j

   LET c=c

   LET d=d+n

   LET e=e

   LET f=f+l

85 SET AREA COLOR 1

   DRAW disk WITH SCALE(20)*SHIFT(a,b)

   SET TEXT COLOR 6 
   PLOT TEXT  ,AT a-10,b-5:"love"

   DRAW disk WITH SCALE(20)*SHIFT(c,d)

   PLOT TEXT  ,AT c-10,d-5:"and"

   DRAW disk WITH SCALE(20)*SHIFT(e,f)

   PLOT TEXT  ,AT e-15,f-5:"peace"

86 FOR k=1 TO 20000

87 NEXT k

130 IF a<30 THEN GOTO 300

140 IF b<30 THEN GOTO 300

150 IF a>280 THEN GOTO 330

160 IF b>280 THEN GOTO 330

    IF c<30 THEN GOTO 1300

    IF d<30 THEN GOTO 1300

    IF c>280 THEN GOTO 1330

    IF d>280 THEN GOTO 1330

    IF e<30 THEN GOTO 1340

    IF f<30 THEN GOTO 1340

    IF e>280 THEN GOTO 1370

    IF f>280 THEN GOTO 1370

210 IF a=c THEN 220

220 IF c=d THEN 330

270 GOTO 60

300 LET i=INT(4*RND)

    RANDOMIZE

    LET j=INT(4*RND)

    GOTO 1650

310 LET i=INT(-4*RND)

    RANDOMIZE

    LET j=INT(4*RND)

    GOTO 60

320 LET i=INT(4*RND)

    RANDOMIZE

    LET j=INT(-4*RND)

    GOTO 60

330 LET i=INT(-4*RND)

    RANDOMIZE

    LET j=INT(-4*RND)

    GOTO 60

1300 LET m=INT(4*RND)

     RANDOMIZE

     LET n=INT(4*RND)

     GOTO 1650

1310 LET m=INT(-4*RND)

     RANDOMIZE

     LET n=INT(4*RND)

     GOTO 60

1320 LET m=INT(4*RND)

     RANDOMIZE

     LET n=INT(-4*RND)

     GOTO 60

1330 LET m=INT(-4*RND)

     RANDOMIZE

     LET n=INT(-4*RND)

     GOTO 60

1340 LET k=INT(4*RND)

     RANDOMIZE

     LET l=INT(4*RND)

     GOTO 1650

1350 LET k=INT(-4*RND)

     RANDOMIZE

     LET l=INT(4*RND)

     GOTO 60

1360 LET k=INT(4*RND)

     RANDOMIZE

     LET l=INT(-4*RND)

     GOTO 60

1370 LET k=INT(-4*RND)

     RANDOMIZE

     LET l=INT(-4*RND)

     GOTO 60

1650 LET x1=INT(10*RND)

     LET p1=INT(300*RND)

     LET q1=INT(300*RND)

     SET AREA COLOR x1
     REM     DRAW disk WITH SCALE(x1)*SHIFT(p1,q1)

1660 LET x2=INT(10*RND)

     LET p2=INT(300*RND)

     LET q2=INT(300*RND)
     SET AREA COLOR x2
     REM     DRAW disk WITH SCALE(x2)*SHIFT(p2,q2)

1670 LET x3=INT(10*RND)

     LET p3=INT(300*RND)

     LET q3=INT(300*RND)
     SET AREA COLOR x3
     REM     DRAW disk WITH SCALE(x3)*SHIFT(p3,q3)

1680 rem FOR k=1 TO 30000

     rem NEXT k

1700 GOTO 60

2500 GOTO 60

     END

1467920383


スターウォーズ


10 SET WINDOW 0,700,700,0

11 SET AREA COLOR 1

PLOT AREA:0,0;701,0;701,100;0,100

SET AREA COLOR 1

PLOT AREA:0,600;701,600;701,701;0,701

SET TEXT FONT "MS 明朝",30

SET TEXT COLOR 1

PLOT TEXT ,AT 170,300 : "回避シューティング"

SET TEXT FONT "MS 明朝",17

SET TEXT COLOR 4

PLOT TEXT ,AT 517,580 : "START"

SET AREA COLOR 5

PLOT AREA:380,360;340,370;380,380

SET TEXT FONT "MS 明朝",11

SET TEXT COLOR 1

PLOT TEXT ,AT 425,360 : "I = UP"

PLOT TEXT ,AT 419,380 : "K = STOP"

PLOT TEXT ,AT 417,400 : "M = DOWN"

CHARACTER INPUT CLEAR :p$

IF p$="p" THEN GOTO 12

!hajime gamen-----------------------------

12 LET c1=234

LET c2=234

LET c3=234

LET c4=234

LET c5=234

LET c6=234

LET c7=234

LET c8=234

LET c9=234

LET c10=234

LET c11=234

LET c12=234

LET c13=234

LET c14=234

LET c15=234

LET c16=234

LET c17=234

LET c18=234

LET c21=2

LET c22=2

LET c23=2

LET c24=2

LET c25=2

LET c26=2

LET c27=2

LET c28=2

LET c29=2

LET c100=00000

!teki move---------------------------

20 FOR m=1 TO 700 STEP 10

!my move-----------------------------

35 CLEAR

40 CHARACTER INPUT nowait :a$

IF a$="i" THEN LET i=i-6

!yajirusi---------------------------

SET AREA COLOR 4

IF a$="m" THEN LET i=i+6

PLOT AREA:650,360+i;610,370+i;650,380+i

!m攻撃-----------------------------

rem IF a$="j" THEN GOTO 45

45 SET AREA COLOR 7

DRAW disk WITH SCALE (5)*SHIFT(640-m,370+i)

SET AREA COLOR 7

DRAW disk WITH SCALE (5)*SHIFT(620-m,370+i)

SET AREA COLOR 7

DRAW disk WITH SCALE (5)*SHIFT(600-m,370+i)

DRAW disk WITH SCALE (5)*SHIFT(740-m,370+i)

SET AREA COLOR 7

DRAW disk WITH SCALE (5)*SHIFT(720-m,370+i)

SET AREA COLOR 7

DRAW disk WITH SCALE (5)*SHIFT(700-m,370+i)

DRAW disk WITH SCALE (5)*SHIFT(840-m,370+i)

SET AREA COLOR 7

DRAW disk WITH SCALE (5)*SHIFT(820-m,370+i)

SET AREA COLOR 7

DRAW disk WITH SCALE (5)*SHIFT(800-m,370+i)

!tama atari

LET misx=610-m

LET misy=370+i

!teki-----------------------------

50 SET AREA COLOR c1

IF c1=0 THEN GOTO 90

51 IF misx>85+m-20 THEN GOTO 52 ELSE GOTO 60

52 IF misx<85+m+20 THEN GOTO 53 ELSE GOTO 60

53 IF misy>78 THEN GOTO 54 ELSE GOTO 60

54 IF misy<122 THEN GOTO 86

60 DRAW disk WITH SCALE (45)*SHIFT(85+m,100)

70 IF (85+m)>590 THEN GOTO 75 ELSE GOTO 90

75 IF (85+m)<630 THEN GOTO 80 ELSE GOTO 90

80 IF (360+i)>78 THEN GOTO 85 ELSE GOTO 90

85 IF (360+i)<122 THEN GOTO 10000

86 LET c1=0

87 IF c1=0 THEN GOTO 88 ELSE GOTO 90

88 LET c100=c100+50

90 SET AREA COLOR 56

100 DRAW disk WITH SCALE (23)*SHIFT(380+m*2,120)

105 IF (380+m*2)>599 THEN GOTO 110 ELSE GOTO 130

110 IF (380+m*2)<621 THEN GOTO 115 ELSE GOTO 130

115 IF (360+i)>110 THEN GOTO 120 ELSE GOTO 130

120 IF (360+i)<130 THEN GOTO 10000

130 SET AREA COLOR 56

140 DRAW disk WITH SCALE (23)*SHIFT(115+m*2,185)

145 IF (115+m*2)>599 THEN GOTO 150 ELSE GOTO 170

150 IF (115+m*2)<621 THEN GOTO 155 ELSE GOTO 170

155 IF (360+i)>175 THEN GOTO 160 ELSE GOTO 170

160 IF (360+i)<195 THEN GOTO 10000

170 SET AREA COLOR c2

IF c2=0 THEN GOTO 210

171 IF misx>295+m*1.3-20 THEN GOTO 172 ELSE GOTO 180

172 IF misx<295+m*1.3+20 THEN GOTO 173 ELSE GOTO 180

173 IF misy>133 THEN GOTO 174 ELSE GOTO 180

174 IF misy<177 THEN GOTO 206

180 DRAW disk WITH SCALE (45)*SHIFT(295+m*1.3,155)

190 IF (295+m*1.3)>590 THEN GOTO 195 ELSE GOTO 210

195 IF (295+m*1.3)<630 THEN GOTO 200 ELSE GOTO 210

200 IF (360+i)>133 THEN GOTO 205 ELSE GOTO 210

205 IF (360+i)<177 THEN GOTO 10000

206 LET c2=0

207 IF c2=0 THEN GOTO 208 ELSE GOTO 210

208 LET c100=c100+50

210 SET AREA COLOR c21

IF c21=0 THEN GOTO 250

211 IF misx>550+m-32 THEN GOTO 212 ELSE GOTO 220

212 IF misx<550+m+32 THEN GOTO 213 ELSE GOTO 220

213 IF misy>118 THEN GOTO 214 ELSE GOTO 220

214 IF misy<182 THEN GOTO 246

220 DRAW disk WITH SCALE (65)*SHIFT(550+m,150)

225 IF (550+m)>578 THEN GOTO 230 ELSE GOTO 250

230 IF (550+m)<642 THEN GOTO 235 ELSE GOTO 250

235 IF (360+i)>118 THEN GOTO 340 ELSE GOTO 250

240 IF (360+i)<182 THEN GOTO 10000

246 LET c21=0

247 IF c21=0 THEN GOTO 248 ELSE GOTO 250

248 LET c100=c100+30

250 SET AREA COLOR 56

260 DRAW disk WITH SCALE (23)*SHIFT(440+m*2,233)

265 IF (440+m*2)>599 THEN GOTO 270 ELSE GOTO 290

270 IF (440+m*2)<621 THEN GOTO 275 ELSE GOTO 290

275 IF (440+i)>223 THEN GOTO 280 ELSE GOTO 290

280 IF (440+i)<243 THEN GOTO 10000

290 SET AREA COLOR c22

IF c22=0 THEN GOTO 330

291 IF misx>100+m-32 THEN GOTO 292 ELSE GOTO 300

292 IF misx<100+m+32 THEN GOTO 293 ELSE GOTO 300

293 IF misy>268 THEN GOTO 294 ELSE GOTO 300

294 IF misy<332 THEN GOTO 326

300 DRAW disk WITH SCALE (65)*SHIFT(100+m,300)

305 IF (100+m)>578 THEN GOTO 310 ELSE GOTO 330

310 IF (100+m)<642 THEN GOTO 315 ELSE GOTO 330

315 IF (360+i)>268 THEN GOTO 320 ELSE GOTO 330

320 IF (360+i)<332 THEN GOTO 10000

326 LET c22=0

327 IF c22=0 THEN GOTO 328 ELSE GOTO 330

328 LET c100=c100+30

!ch

330 SET AREA COLOR c3

IF c3=0 THEN GOTO 370

331 IF misx>180+m*1.3-20 THEN GOTO 332 ELSE GOTO 340

332 IF misx<180+m*1.3+20 THEN GOTO 333 ELSE GOTO 340

333 IF misy>373 THEN GOTO 334 ELSE GOTO 340

334 IF misy<417 THEN GOTO 366

340 DRAW disk WITH SCALE (45)*SHIFT(180+m*1.3,395)

350 IF (180+m*1.3)>590 THEN GOTO 355 ELSE GOTO 370

355 IF (180+m*1.3)<630 THEN GOTO 360 ELSE GOTO 370

360 IF (360+i)>373 THEN GOTO 365 ELSE GOTO 370

365 IF (360+i)<417 THEN GOTO 10000

366 LET c3=0

367 IF c3=0 THEN GOTO 368 ELSE GOTO 370

368 LET c100=c100+50

!ch

370 SET AREA COLOR 56

380 DRAW disk WITH SCALE (23)*SHIFT(240+m*2,310)

385 IF (240+m*2)>599 THEN GOTO 390 ELSE GOTO 410

390 IF (240+m*2)<621 THEN GOTO 395 ELSE GOTO 410

395 IF (360+i)>299 THEN GOTO 400 ELSE GOTO 410

400 IF (360+i)<321 THEN GOTO 10000

410 SET AREA COLOR 56

420 DRAW disk WITH SCALE (23)*SHIFT(310+m,280)

425 IF (310+m)>599 THEN GOTO 430 ELSE GOTO 450

430 IF (310+m)<621 THEN GOTO 435 ELSE GOTO 450

435 IF (360+i)>270 THEN GOTO 440 ELSE GOTO 450

440 IF (360+i)<290 THEN GOTO 10000

450 SET AREA COLOR 56

460 DRAW disk WITH SCALE (23)*SHIFT(500+m,340)

465 IF (500+m)>599 THEN GOTO 470 ELSE GOTO 490

470 IF (500+m)<621 THEN GOTO 475 ELSE GOTO 490

475 IF (360+i)>330 THEN GOTO 480 ELSE GOTO 490

480 IF (360+i)<350 THEN GOTO 10000

490 SET AREA COLOR 56

500 DRAW disk WITH SCALE (23)*SHIFT(400+m*2,413)

505 IF (400+m*2)>599 THEN GOTO 510 ELSE GOTO 530

510 IF (400+m*2)<621 THEN GOTO 515 ELSE GOTO 530

515 IF (400+m*2)>403 THEN GOTO 520 ELSE GOTO 530

520 IF (400+m*2)<423 THEN GOTO 10000

!攻撃

!SET AREA COLOR 5

!DRAW disk WITH SCALE (8)*SHIFT(430,413)

!SET AREA COLOR 5

!DRAW disk WITH SCALE (8)*SHIFT(460,403)

!SET AREA COLOR 5

!DRAW disk WITH SCALE (8)*SHIFT(490,393)

530 SET AREA COLOR c4

IF c4=0 THEN GOTO 570

531 IF misx>505+m-20 THEN GOTO 532 ELSE GOTO 540

532 IF misx<505+m+20 THEN GOTO 533 ELSE GOTO 540

533 IF misy>463 THEN GOTO 534 ELSE GOTO 540

534 IF misy<507 THEN GOTO 566

540 DRAW disk WITH SCALE (45)*SHIFT(505+m,485)

550 IF (505+m)>599 THEN GOTO 555 ELSE GOTO 570

555 IF (505+m)<621 THEN GOTO 560 ELSE GOTO 570

560 IF (360+i)>463 THEN GOTO 565 ELSE GOTO 570

565 IF (360+i)<507 THEN GOTO 10000

566 LET c4=0

567 IF c4=0 THEN GOTO 568 ELSE GOTO 570

568 LET c100=c100+50

570 SET AREA COLOR c23

IF c23=0 THEN GOTO 610

571 IF misx>290+m-32 THEN GOTO 572 ELSE GOTO 580

572 IF misx<290+m+32 THEN GOTO 573 ELSE GOTO 580

573 IF misy>438 THEN GOTO 574 ELSE GOTO 580

574 IF misy<502 THEN GOTO 606

580 DRAW disk WITH SCALE (65)*SHIFT(290+m,470)

585 IF (290+m)>578 THEN GOTO 590 ELSE GOTO 610

590 IF (290+m)<642 THEN GOTO 595 ELSE GOTO 610

595 IF (360+i)>438 THEN GOTO 600 ELSE GOTO 610

600 IF (360+i)<502 THEN GOTO 10000

606 LET c23=0

607 IF c23=0 THEN GOTO 608 ELSE GOTO 610

608 LET c100=c100+30

610 SET AREA COLOR c5

IF c5=0 THEN GOTO 650

611 IF misx>100+m*1.3-20 THEN GOTO 612 ELSE GOTO 620

612 IF misx<100+m*1.3+20 THEN GOTO 613 ELSE GOTO 620

613 IF misy>548 THEN GOTO 614 ELSE GOTO 620

614 IF misy<592 THEN GOTO 646

620 DRAW disk WITH SCALE (45)*SHIFT(100+m*1.3,570)

630 IF (100+m*1.3)>590 THEN GOTO 635 ELSE GOTO 650

635 IF (100+m*1.3)<630 THEN GOTO 640 ELSE GOTO 650

640 IF (360+i)>548 THEN GOTO 645 ELSE GOTO 650

645 IF (360+i)<592 THEN GOTO 10000

646 LET c5=0

647 IF c5=0 THEN GOTO 648 ELSE GOTO 650

648 LET c100=c100+50

650 SET AREA COLOR 56

660 DRAW disk WITH SCALE (23)*SHIFT(55+m*2,480)

665 IF (55+m*2)>599 THEN GOTO 670 ELSE GOTO 690

670 IF (55+m*2)<621 THEN GOTO 675 ELSE GOTO 690

675 IF (360+i)>470 THEN GOTO 680 ELSE GOTO 690

680 IF (360+i)<490 THEN GOTO 10000

690 SET AREA COLOR 56

700 DRAW disk WITH SCALE (23)*SHIFT(250+m*2,580)

705 IF (250+m*2)>599 THEN GOTO 710 ELSE GOTO 730

710 IF (250+m*2)<621 THEN GOTO 715 ELSE GOTO 730

715 IF (360+i)>570 THEN GOTO 720 ELSE GOTO 730

720 IF (360+i)<590 THEN GOTO 10000

730 SET AREA COLOR c6

IF c6=0 THEN GOTO 770

731 IF misx>385+m*1.3-20 THEN GOTO 732 ELSE GOTO 740

732 IF misx<385+m*1.3+20 THEN GOTO 733 ELSE GOTO 740

733 IF misy>558 THEN GOTO 734 ELSE GOTO 740

734 IF misy<602 THEN GOTO 766

740 DRAW disk WITH SCALE (45)*SHIFT(385+m*1.3,580)

750 IF (385+m*1.3)>590 THEN GOTO 755 ELSE GOTO 770

755 IF (385+m*1.3)<630 THEN GOTO 760 ELSE GOTO 770

760 IF (360+i)>558 THEN GOTO 765 ELSE GOTO 770

765 IF (360+i)<602 THEN GOTO 10000

766 LET c6=0

767 IF c6=0 THEN GOTO 768 ELSE GOTO 770

768 LET c100=c100+50

770 SET AREA COLOR 56

780 DRAW disk WITH SCALE (23)*SHIFT(570+m*2,530)

785 IF (250+m*2)>599 THEN GOTO 790 ELSE GOTO 850

790 IF (250+m*2)<621 THEN GOTO 795 ELSE GOTO 850

795 IF (360+i)>520 THEN GOTO 800 ELSE GOTO 850

800 IF (360+i)<540 THEN GOTO 10000

!攻撃

!SET AREA COLOR 5

!DRAW disk WITH SCALE (8)*SHIFT(580,500)

!SET AREA COLOR 5

!DRAW disk WITH SCALE (8)*SHIFT(595,470)

!SET AREA COLOR 5

!DRAW disk WITH SCALE (8)*SHIFT(605,440)

!teki2-----------------------------

850 SET AREA COLOR c7

IF c7=0 THEN GOTO 890

851 IF misx>-910+85+m*1.3-20 THEN GOTO 852 ELSE GOTO 860

852 IF misx<-910+85+m*1.3+20 THEN GOTO 853 ELSE GOTO 860

853 IF misy>78 THEN GOTO 854 ELSE GOTO 860

854 IF misy<122 THEN GOTO 886

860 DRAW disk WITH SCALE (45)*SHIFT(-910+85+m*1.3,100)

870 IF (-910+85+m*1.3)>590 THEN GOTO 875 ELSE GOTO 890

875 IF (-910+85+m*1.3)<630 THEN GOTO 880 ELSE GOTO 890

880 IF (360+i)>78 THEN GOTO 885 ELSE GOTO 890

885 IF (360+i)<122 THEN GOTO 10000

886 LET c7=0

887 IF c7=0 THEN GOTO 888 ELSE GOTO 890

888 LET c100=c100+50

890 SET AREA COLOR 56

900 DRAW disk WITH SCALE (23)*SHIFT(-1400+380+m*2,120)

905 IF (-1400+380+m*2)>599 THEN GOTO 910 ELSE GOTO 930

910 IF (-1400+380+m*2)<621 THEN GOTO 915 ELSE GOTO 930

915 IF (360+i)>110 THEN GOTO 920 ELSE GOTO 930

920 IF (360+i)<130 THEN GOTO 10000

930 SET AREA COLOR 56

940 DRAW disk WITH SCALE (23)*SHIFT(-1400+115+m*2,185)

945 IF (-1400+115+m*2)>599 THEN GOTO 950 ELSE GOTO 970

950 IF (-1400+115+m*2)<621 THEN GOTO 955 ELSE GOTO 970

955 IF (360+i)>175 THEN GOTO 960 ELSE GOTO 970

960 IF (360+i)<195 THEN GOTO 10000

970 SET AREA COLOR c8

IF c8=0 THEN GOTO 1010

971 IF misx>-700+295+m-20 THEN GOTO 972 ELSE GOTO 980

972 IF misx<-700+295+m+20 THEN GOTO 973 ELSE GOTO 980

973 IF misy>133 THEN GOTO 974 ELSE GOTO 980

974 IF misy<172 THEN GOTO 1006

980 DRAW disk WITH SCALE (45)*SHIFT(-700+295+m,155)

990 IF (-700+295+m)>590 THEN GOTO 995 ELSE GOTO 1010

995 IF (-700+295+m)<630 THEN GOTO 1000 ELSE GOTO 1010

1000 IF (360+i)>133 THEN GOTO 1005 ELSE GOTO 1010

1005 IF (360+i)<172 THEN GOTO 10000

1006 LET c8=0

1007 IF c8=0 THEN GOTO 1008 ELSE GOTO 1010

1008 LET c100=c100+50

1010 SET AREA COLOR c24

IF c24=0 THEN GOTO 1050

1011 IF misx>-700+550+m-32 THEN GOTO 1012 ELSE GOTO 1020

1012 IF misx<-700+550+m+32 THEN GOTO 1013 ELSE GOTO 1020

1013 IF misy>118 THEN GOTO 1014 ELSE GOTO 1020

1014 IF misy<182 THEN GOTO 1046

1020 DRAW disk WITH SCALE (65)*SHIFT(-700+550+m,150)

1025 IF (-700+550+m)>578 THEN GOTO 1030 ELSE GOTO 1050

1030 IF (-700+550+m)<642 THEN GOTO 1035 ELSE GOTO 1050

1035 IF (360+i)>118 THEN GOTO 1040 ELSE GOTO 1050

1040 IF (360+i)<182 THEN GOTO 10000

1046 LET c24=0

1047 IF c24=0 THEN GOTO 1048 ELSE GOTO 1050

1048 LET c100=c100+50

1050 SET AREA COLOR 56

1060 DRAW disk WITH SCALE (23)*SHIFT(-1400+440+m*2,233)

1065 IF (-1400+440+m*2)>599 THEN GOTO 1070 ELSE GOTO 1090

1070 IF (-1400+440+m*2)<621 THEN GOTO 1075 ELSE GOTO 1090

1075 IF (360+i)>223 THEN GOTO 1080 ELSE GOTO 1090

1080 IF (360+i)<243 THEN GOTO 10000

1090 SET AREA COLOR c25

IF c25=0 THEN GOTO 1130

1091 IF misx>-700+100+m-32 THEN GOTO 1092 ELSE GOTO 1100

1092 IF misx<-700+100+m+32 THEN GOTO 1093 ELSE GOTO 1100

1093 IF misy>268 THEN GOTO 1094 ELSE GOTO 1100

1094 IF misy<332 THEN GOTO 1126

1100 DRAW disk WITH SCALE (65)*SHIFT(-700+100+m,300)

1105 IF (-700+100+m)>578 THEN GOTO 1010 ELSE GOTO 1130

1110 IF (-700+100+m)<642 THEN GOTO 1115 ELSE GOTO 1130

1115 IF (360+i)>268 THEN GOTO 1120 ELSE GOTO 1130

1120 IF (360+i)<332 THEN GOTO 10000

1126 LET c25=0

1127 IF c25=0 THEN GOTO 1128 ELSE GOTO 1130

1128 LET c100=c100+30

1130 SET AREA COLOR c9

IF c9=0 THEN GOTO 1170

1131 IF misx>-910+180+m*1.3-20 THEN GOTO 1132 ELSE GOTO 1140

1132 IF misx<-910+180+m*1.3+20 THEN GOTO 1133 ELSE GOTO 1140

1133 IF misy>373 THEN GOTO 1134 ELSE GOTO 1140

1134 IF misy<417 THEN GOTO 1166

1140 DRAW disk WITH SCALE (45)*SHIFT(-910+180+m*1.3,395)

1150 IF (-910+180+m*1.3)>590 THEN GOTO 1155 ELSE GOTO 1170

1155 IF (-910+180+m*1.3)<630 THEN GOTO 1160 ELSE GOTO 1170

1160 IF (360+i)>373 THEN GOTO 1165 ELSE GOTO 1170

1165 IF (360+i)<417 THEN GOTO 10000

1166 LET c9=0

1167 IF c9=0 THEN GOTO 1168 ELSE GOTO 1170

1168 LET c100=c100+50

1170 SET AREA COLOR 56

1180 DRAW disk WITH SCALE (23)*SHIFT(-1400+240+m*2,310)

1185 IF (-1400+240+m*2)>599 THEN GOTO 1190 ELSE GOTO 1210

1190 IF (-1400+240+m*2)<621 THEN GOTO 1195 ELSE GOTO 1210

1195 IF (360+i)>300 THEN GOTO 1200 ELSE GOTO 1210

1200 IF (360+i)<320 THEN GOTO 10000

1210 SET AREA COLOR 56

1230 DRAW disk WITH SCALE (23)*SHIFT(-1400+310+m*2,280)

1235 IF (-1400+310+m*2)>599 THEN GOTO 1240 ELSE GOTO 1260

1240 IF (-1400+310+m*2)<621 THEN GOTO 1245 ELSE GOTO 1260

1245 IF (360+i)>270 THEN GOTO 1250 ELSE GOTO 1260

1250 IF (360+i)<290 THEN GOTO 10000

1260 SET AREA COLOR 56

1270 DRAW disk WITH SCALE (23)*SHIFT(-1400+500+m*2,340)

1275 IF (-1400+500+m*2)>599 THEN GOTO 1280 ELSE GOTO 1300

1280 IF (-1400+500+m*2)<621 THEN GOTO 1285 ELSE GOTO 1300

1285 IF (360+i)>330 THEN GOTO 1290 ELSE GOTO 1300

1290 IF (360+i)<350 THEN GOTO 10000

1300 SET AREA COLOR 56

1310 DRAW disk WITH SCALE (23)*SHIFT(-1400+400+m*2,413)

1315 IF (-1400+400+m*2)>599 THEN GOTO 1320 ELSE GOTO 1340

1320 IF (-1400+400+m*2)<621 THEN GOTO 1325 ELSE GOTO 1340

1325 IF (360+i)>403 THEN GOTO 1330 ELSE GOTO 1340

1330 IF (360+i)<420 THEN GOTO 10000

1340 SET AREA COLOR c10

IF c10=0 THEN GOTO 1380

1341 IF misx>-910+505+m*1.3-20 THEN GOTO 1342 ELSE GOTO 1350

1342 IF misx<-910+505+m*1.3+20 THEN GOTO 1343 ELSE GOTO 1350

1343 IF misy>463 THEN GOTO 1344 ELSE GOTO 1350

1344 IF misy<507 THEN GOTO 1376

1350 DRAW disk WITH SCALE (45)*SHIFT(-910+505+m*1.3,485)

1360 IF (-910+505+m*1.3)>590 THEN GOTO 1365 ELSE GOTO 1380

1365 IF (-910+505+m*1.3)<630 THEN GOTO 1370 ELSE GOTO 1380

1370 IF (360+i)>463 THEN GOTO 1375 ELSE GOTO 1380

1375 IF (360+i)<507 THEN GOTO 10000

1376 LET c10=0

1377 IF c10=0 THEN GOTO 1378 ELSE GOTO 1380

1378 LET c100=c100+50

1380 SET AREA COLOR c26

IF c26=0 THEN GOTO 1420

1381 IF misx>-700+290+m-32 THEN GOTO 1382 ELSE GOTO 1390

1382 IF misx<-700+290+m+32 THEN GOTO 1383 ELSE GOTO 1390

1383 IF misy>338 THEN GOTO 1384 ELSE GOTO 1390

1384 IF misy<502 THEN GOTO 1416

1390 DRAW disk WITH SCALE (65)*SHIFT(-700+290+m,470)

1395 IF (-700+290+m)>578 THEN GOTO 1400 ELSE GOTO 1420

1400 IF (-700+290+m)<642 THEN GOTO 1405 ELSE GOTO 1420

1405 IF (360+i)>338 THEN GOTO 1410 ELSE GOTO 1420

1410 IF (360+i)<502 THEN GOTO 10000

1416 LET c26=0

1417 IF c26=0 THEN GOTO 1418 ELSE GOTO 1420

1418 LET c100=c100+50

1420 SET AREA COLOR c11

IF c11=0 THEN GOTO 1460

1421 IF misx>-700+100+m-20 THEN GOTO 1422 ELSE GOTO 1430

1422 IF misx<-700+100+m+20 THEN GOTO 1423 ELSE GOTO 1430

1423 IF misy>449 THEN GOTO 1424 ELSE GOTO 1430

1424 IF misy<592 THEN GOTO 1456

1430 DRAW disk WITH SCALE (45)*SHIFT(-700+100+m,570)

1440 IF (-700+100+m)>590 THEN GOTO 1445 ELSE GOTO 1460

1445 IF (-700+100+m)<630 THEN GOTO 1450 ELSE GOTO 1460

1450 IF (360+i)>448 THEN GOTO 1455 ELSE GOTO 1460

1455 IF (360+i)<592 THEN GOTO 10000

1456 LET c11=0

1457 IF c11=0 THEN GOTO 1458 ELSE GOTO 1460

1458 LET c100=c100+50

1460 SET AREA COLOR 56

1470 DRAW disk WITH SCALE (23)*SHIFT(-1400+55+m*2,480)

1475 IF (-1400+55+m*2)>599 THEN GOTO 1480 ELSE GOTO 1500

1480 IF (-1400+55+m*2)<621 THEN GOTO 1485 ELSE GOTO 1500

1485 IF (360+i)>470 THEN GOTO 1490 ELSE GOTO 1500

1490 IF (360+i)<490 THEN GOTO 10000

1500 SET AREA COLOR 56

1510 DRAW disk WITH SCALE (23)*SHIFT(-1400+250+m*2,580)

1515 IF (-1400+250+m*2)>599 THEN GOTO 1520 ELSE GOTO 1540

1520 IF (-1400+250+m*2)<621 THEN GOTO 1525 ELSE GOTO 1540

1525 IF (360+i)>570 THEN GOTO 1530 ELSE GOTO 1540

1530 IF (360+i)<590 THEN GOTO 10000

1540 SET AREA COLOR c12

IF c12=0 THEN GOTO 1580

1541 IF misx>-910+385+m*1.3-20 THEN GOTO 1542 ELSE GOTO 1550

1542 IF misx<-910+385+m*1.3+20 THEN GOTO 1543 ELSE GOTO 1550

1543 IF misy>558 THEN GOTO 1544 ELSE GOTO 1550

1544 IF misy<602 THEN GOTO 1576

1550 DRAW disk WITH SCALE (45)*SHIFT(-910+385+m*1.3,580)

1560 IF (-910+385+m*1.3)>590 THEN GOTO 1565 ELSE GOTO 1580

1565 IF (-910+385+m*1.3)<630 THEN GOTO 1570 ELSE GOTO 1580

1570 IF (360+i)>558 THEN GOTO 1575 ELSE GOTO 1580

1575 IF (360+i)<602 THEN GOTO 10000

1576 LET c12=0

1577 IF c12=0 THEN GOTO 1578 ELSE GOTO 1580

1578 LET c100=c100+50

1580 SET AREA COLOR 56

1590 DRAW disk WITH SCALE (23)*SHIFT(-1400+570+m*2,530)

1595 IF (-1400+570+m*2)>599 THEN GOTO 1600 ELSE GOTO 1660

1600 IF (-1400+570+m*2)<621 THEN GOTO 1605 ELSE GOTO 1660

1605 IF (360+i)>520 THEN GOTO 1610 ELSE GOTO 1660

1610 IF (360+i)<540 THEN GOTO 10000

!teki3--------------------------

1660 SET AREA COLOR c13

IF c13=0 THEN GOTO 1700

1661 IF misx>-910+85+m*1.3-20 THEN GOTO 1662 ELSE GOTO 1670

1662 IF misx<-910+85+m*1.3+20 THEN GOTO 1663 ELSE GOTO 1670

1663 IF misy>80 THEN GOTO 1664 ELSE GOTO 1670

1664 IF misy<120 THEN GOTO 1696

1670 DRAW disk WITH SCALE (45)*SHIFT(-910+85+m*1.3,100)

1680 IF (-910+85+m*1.3)>590 THEN GOTO 1685 ELSE GOTO 1700

1685 IF (-910+85+m*1.3)<630 THEN GOTO 1690 ELSE GOTO 1700

1690 IF (360+i)>80 THEN GOTO 1695 ELSE GOTO 1700

1695 IF (360+i)<120 THEN GOTO 10000

1696 LET c13=0

1697 IF c13=0 THEN GOTO 1698 ELSE GOTO 1700

1698 LET c100=c100+50

1700 SET AREA COLOR 56

1710 DRAW disk WITH SCALE (23)*SHIFT(-700+380+m*2,120)

1715 IF (-700+380+m*2)>599 THEN GOTO 1720 ELSE GOTO 1740

1720 IF (-700+380+m*2)<621 THEN GOTO 1725 ELSE GOTO 1740

1725 IF (360+i)>110 THEN GOTO 1730 ELSE GOTO 1740

1730 IF (360+i)<130 THEN GOTO 10000

1740 SET AREA COLOR 56

1750 DRAW disk WITH SCALE (23)*SHIFT(-700+115+m*2,185)

1755 IF (-700+115+m*2)>599 THEN GOTO 1760 ELSE GOTO 1780

1760 IF (-700+115+m*2)<621 THEN GOTO 1765 ELSE GOTO 1780

1765 IF (360+i)>175 THEN GOTO 1770 ELSE GOTO 1780

1770 IF (360+i)<195 THEN GOTO 10000

1780 SET AREA COLOR c14

IF c14=0 THEN GOTO 1820

1781 IF misx>-910+385+m*1.3-20 THEN GOTO 1782 ELSE GOTO 1790

1782 IF misx<-910+385+m*1.3+20 THEN GOTO 1783 ELSE GOTO 1790

1783 IF misy>133 THEN GOTO 1784 ELSE GOTO 1790

1784 IF misy<177 THEN GOTO 1816

1790 DRAW disk WITH SCALE (45)*SHIFT(-700+295+m,155)

1800 IF (-910+385+m*1.3)>590 THEN GOTO 1805 ELSE GOTO 1820

1805 IF (-910+385+m*1.3)<630 THEN GOTO 1810 ELSE GOTO 1820

1810 IF (360+i)>133 THEN GOTO 1815 ELSE GOTO 1820

1815 IF (360+i)<177 THEN GOTO 10000

1816 LET c14=0

1817 IF c14=0 THEN GOTO 1818 ELSE GOTO 1820

1818 LET c100=c100+50

1820 SET AREA COLOR c27

IF c27=0 THEN GOTO 1860

1821 IF misx>-700+550+m-32 THEN GOTO 1822 ELSE GOTO 1830

1822 IF misx<-700+550+m+32 THEN GOTO 1823 ELSE GOTO 1830

1823 IF misy>118 THEN GOTO 1824 ELSE GOTO 1830

1824 IF misy<182 THEN GOTO 1856

1830 DRAW disk WITH SCALE (65)*SHIFT(-700+550+m,150)

1835 IF (-700+550+m)>578 THEN GOTO 1840 ELSE GOTO 1860

1840 IF (-700+550+m)<642 THEN GOTO 1845 ELSE GOTO 1860

1845 IF (360+i)>118 THEN GOTO 1850 ELSE GOTO 1860

1850 IF (360+i)<182 THEN GOTO 10000

1856 LET c27=0

1857 IF c27=0 THEN GOTO 1858 ELSE GOTO 1860

1858 LET c100=c100+30

1860 SET AREA COLOR 56

1870 DRAW disk WITH SCALE (23)*SHIFT(-700+440+m*2,233)

1875 IF (-700+440+m*2)>599 THEN GOTO 1880 ELSE GOTO 1900

1880 IF (-700+440+m*2)<621 THEN GOTO 1885 ELSE GOTO 1900

1885 IF (360+i)>223 THEN GOTO 1890 ELSE GOTO 1900

1890 IF (360+i)<243 THEN GOTO 10000

1900 SET AREA COLOR c28

IF c28=0 THEN GOTO 1940

1901 IF misx>-700+100+m-32 THEN GOTO 1902 ELSE GOTO 1910

1902 IF misx<-700+100+m+32 THEN GOTO 1903 ELSE GOTO 1910

1903 IF misy>268 THEN GOTO 1904 ELSE GOTO 1910

1904 IF misy<332 THEN GOTO 1936

1910 DRAW disk WITH SCALE (65)*SHIFT(-700+100+m,300)

1915 IF (-700+100+m)>578 THEN GOTO 1920 ELSE GOTO 1940

1920 IF (-700+100+m)<642 THEN GOTO 1925 ELSE GOTO 1940

1925 IF (360+i)>268 THEN GOTO 1930 ELSE GOTO 1940

1930 IF (360+i)<332 THEN GOTO 10000

1936 LET c28=0

1937 IF c28=0 THEN GOTO 1938 ELSE GOTO 1940

1938 LET c100=c100+30

1940 SET AREA COLOR c15

IF c15=0 THEN GOTO 1980

1941 IF misx>-910+180+m*1.3-20 THEN GOTO 1942 ELSE GOTO 1950

1942 IF misx<-910+180+m*1.3+20 THEN GOTO 1943 ELSE GOTO 1950

1943 IF misy>373 THEN GOTO 1944 ELSE GOTO 1950

1944 IF misy<417 THEN GOTO 1976

1950 DRAW disk WITH SCALE (45)*SHIFT(-910+180+m*1.3,395)

1960 IF (-910+180+m*1.3)>590 THEN GOTO 1965 ELSE GOTO 1980

1965 IF (-910+180+m*1.3)<630 THEN GOTO 1970 ELSE GOTO 1980

1970 IF (360+i)>373 THEN GOTO 1975 ELSE GOTO 1980

1975 IF (360+i)<417 THEN GOTO 10000

1976 LET c15=0

1977 IF c15=0 THEN GOTO 1978 ELSE GOTO 1980

1978 LET c100=c100+50

1980 SET AREA COLOR 56

1990 DRAW disk WITH SCALE (23)*SHIFT(-700+240+m*2,310)

1995 IF (-700+240+m*2)>599 THEN GOTO 2000 ELSE GOTO 2220

2000 IF (-700+240+m*2)<621 THEN GOTO 2005 ELSE GOTO 2020

2005 IF (360+i)>300 THEN GOTO 2010 ELSE GOTO 2020

2010 IF (360+i)<320 THEN GOTO 10000

2020 SET AREA COLOR 56

2030 DRAW disk WITH SCALE (23)*SHIFT(-700+310+m*2,280)

2035 IF (-700+240+m*2)>599 THEN GOTO 2040 ELSE GOTO 2060

2040 IF (-700+240+m*2)<621 THEN GOTO 2045 ELSE GOTO 2060

2045 IF (360+i)>270 THEN GOTO 2050 ELSE GOTO 2060

2050 IF (360+i)<290 THEN GOTO 10000

2060 SET AREA COLOR 56

2070 DRAW disk WITH SCALE (23)*SHIFT(-700+500+m*2,340)

2075 IF (-700+500+m*2)>599 THEN GOTO 2080 ELSE GOTO 2100

2080 IF (-700+500+m*2)<621 THEN GOTO 2085 ELSE GOTO 2100

2085 IF (360+i)>330 THEN GOTO 2090 ELSE GOTO 2100

2090 IF (360+i)<350 THEN GOTO 10000

2100 SET AREA COLOR 56

2110 DRAW disk WITH SCALE (23)*SHIFT(-700+400+m*2,413)

2115 IF (-700+400+m*2)>599 THEN GOTO 2120 ELSE GOTO 2140

2120 IF (-700+400+m*2)<621 THEN GOTO 2125 ELSE GOTO 2140

2125 IF (360+i)>403 THEN GOTO 2130 ELSE GOTO 2140

2130 IF (360+i)<423 THEN GOTO 10000

2140 SET AREA COLOR c16

IF c16=0 THEN GOTO 2180

2141 IF misx>-910+505+m*1.3-20 THEN GOTO 2142 ELSE GOTO 2150

2142 IF misx<-910+505+m*1.3+20 THEN GOTO 2143 ELSE GOTO 2150

2143 IF misy>463 THEN GOTO 2144 ELSE GOTO 2150

2144 IF misy<517 THEN GOTO 2176

2150 DRAW disk WITH SCALE (45)*SHIFT(-910+505+m*1.3,485)

2160 IF (-910+505+m*1.3)>590 THEN GOTO 2165 ELSE GOTO 2180

2165 IF (-910+505+m*1.3)<630 THEN GOTO 2170 ELSE GOTO 2180

2170 IF (360+i)>463 THEN GOTO 2175 ELSE GOTO 2180

2175 IF (360+i)<517 THEN GOTO 10000

2176 LET c16=0

2177 IF c16=0 THEN GOTO 2178 ELSE GOTO 2180

2178 LET c100=c100+50

2180 SET AREA COLOR c29

IF c29=0 THEN GOTO 2220

2181 IF misx>-700+290+m-32 THEN GOTO 2182 ELSE GOTO 2190

2182 IF misx<-700+290+m+32 THEN GOTO 2183 ELSE GOTO 2190

2183 IF misy>438 THEN GOTO 2184 ELSE GOTO 2190

2184 IF misy<502 THEN GOTO 2216

2190 DRAW disk WITH SCALE (65)*SHIFT(-700+290+m,470)

2195 IF (-700+290+m)>578 THEN GOTO 2200 ELSE GOTO 2220

2200 IF (-700+290+m)<642 THEN GOTO 2005 ELSE GOTO 2220

2205 IF (360+i)>438 THEN GOTO 2010 ELSE GOTO 2220

2210 IF (360+i)<502 THEN GOTO 10000

2216 LET c29=0

2217 IF c29=0 THEN GOTO 2218 ELSE GOTO 2220

2218 LET c100=c100+30

2220 SET AREA COLOR c17

IF c17=0 THEN GOTO 2260

2221 IF misx>-700+100+m-20 THEN GOTO 2222 ELSE GOTO 2230

2222 IF misx<-700+100+m+20 THEN GOTO 2223 ELSE GOTO 2230

2223 IF misy>548 THEN GOTO 2224 ELSE GOTO 2230

2224 IF misy<590 THEN GOTO 2256

2230 DRAW disk WITH SCALE (45)*SHIFT(-700+100+m,570)

2240 IF (-700+100+m)>590 THEN GOTO 2245 ELSE GOTO 2260

2245 IF (-700+100+m)<630 THEN GOTO 2250 ELSE GOTO 2260

2250 IF (360+i)>548 THEN GOTO 2255 ELSE GOTO 2260

2255 IF (360+i)<590 THEN GOTO 10000

2256 LET c17=0

2257 IF c17=0 THEN GOTO 2258 ELSE GOTO 2260

2258 LET c100=c100+50

2260 SET AREA COLOR 56

2270 DRAW disk WITH SCALE (23)*SHIFT(-700+55+m*2,480)

2275 IF (-700+55+m*2)>599 THEN GOTO 2280 ELSE GOTO 2300

2280 IF (-700+55+m*2)<621 THEN GOTO 2285 ELSE GOTO 2300

2285 IF (360+i)>470 THEN GOTO 2290 ELSE GOTO 2300

2290 IF (360+i)<490 THEN GOTO 10000

2300 SET AREA COLOR 56

2310 DRAW disk WITH SCALE (23)*SHIFT(-700+250+m*2,580)

2315 IF (-700+250+m*2)>599 THEN GOTO 2320 ELSE GOTO 2340

2320 IF (-700+250+m*2)<621 THEN GOTO 2325 ELSE GOTO 2340

2325 IF (360+i)>570 THEN GOTO 2330 ELSE GOTO 2340

2330 IF (360+i)<590 THEN GOTO 10000

2340 SET AREA COLOR c18

IF c18=0 THEN GOTO 2380

2341 IF misx>-910+385+m*1.3-20 THEN GOTO 2342 ELSE GOTO 2350

2342 IF misx<-910+385+m*1.3+20 THEN GOTO 2343 ELSE GOTO 2350

2343 IF misy>558 THEN GOTO 2344 ELSE GOTO 2350

2344 IF misy<602 THEN GOTO 2376

2350 DRAW disk WITH SCALE (45)*SHIFT(-910+385+m*1.3,580)

2360 IF (-910+385+m*1.3)>590 THEN GOTO 2365 ELSE GOTO 2380

2365 IF (-910+385+m*1.3)<630 THEN GOTO 2370 ELSE GOTO 2380

2370 IF (360+i)>558 THEN GOTO 2375 ELSE GOTO 2380

2375 IF (360+i)<602 THEN GOTO 10000

2376 LET c18=0

2377 IF c18=0 THEN GOTO 2378 ELSE GOTO 2380

2378 LET c100=c100+50

2380 SET AREA COLOR 56

2390 DRAW disk WITH SCALE (23)*SHIFT(-700+570+m*2,530)

2395 IF (-700+570+m*2)>599 THEN GOTO 2400 ELSE GOTO 2500

2400 IF (-700+570+m*2)<621 THEN GOTO 2405 ELSE GOTO 2500

2405 IF (360+i)>520 THEN GOTO 2410 ELSE GOTO 2500

2410 IF (360+i)<540 THEN GOTO 10000

!上帯--------------------------------------

2500 SET AREA COLOR 1

2510 PLOT AREA:0,0;701,0;701,100;0,100

!下帯--------------------------------------

2520 SET AREA COLOR 1

2530 PLOT AREA:0,600;701,600;701,701;0,701

!suuji--------------------------------------

2540 SET TEXT FONT "MS 明朝",17

2550 SET TEXT COLOR 0

PLOT TEXT ,AT 507,630 : "SCORE :"

PLOT TEXT ,AT 627,630,USING "#####":c100

FOR ti=0 TO 500000

NEXT ti

4600 NEXT m

!teki mouicidoo--------------------------------------

4700 IF m=1 THEN GOTO 4705 ELSE GOTO 4800

4705 LET c1=234

LET c2=234

LET c3=234

LET c4=234

LET c5=234

LET c6=234

LET c7=234

LET c8=234

LET c9=234

LET c10=234

LET c11=234

LET c12=234

LET c13=234

LET c14=234

LET c15=234

LET c16=234

LET c17=234

LET c18=234

LET c21=2

LET c22=2

LET c23=2

LET c24=2

LET c25=2

LET c26=2

LET c27=2

LET c28=2

LET c29=2

4800 GOTO 20

!帯2--------------------------------------

10000 CLEAR

SET AREA COLOR 1

PLOT AREA:0,0;701,0;701,100;0,100

SET AREA COLOR 1

PLOT AREA:0,600;701,600;701,701;0,701

!l de mouicidoo--------------------------------------

SET TEXT FONT "MS 明朝",50

SET TEXT COLOR 1

PLOT TEXT ,AT 200,320 : "THE END"

SET TEXT FONT "MS 明朝",17

SET TEXT COLOR 1

PLOT TEXT ,AT 257,370 : "SCORE :"

PLOT TEXT ,AT 377,370,USING "#####":c100

SET TEXT COLOR 2

PLOT TEXT ,AT 517,530 : "RESTART = L"

LET c100=00000

CHARACTER INPUT CLEAR :s$

IF s$="l" THEN GOTO 20 ELSE GOTO 10000

10005 END

1467919849


線香花火



100

SET WINDOW 0,400,400,0

SET AREA COLOR 1

FOR r=0 TO 200

SET AREA COLOR 1

PLOT AREA:0,0; 0,400;400,400;400,0

SET AREA COLOR 56

DRAW disk WITH SCALE(5)*SHIFT(200,220)

SET LINE WIDTH 1

SET LINE COLOR 38

SET LINE STYLE 3

PLOT LINES: 140,0;200,220

PLOT LINES: 73,0;200,220

PLOT LINES: 0,20;200,220

PLOT LINES: 0,105;200,220

PLOT LINES: 0,167;200,220

PLOT LINES: 0,220;200,220

PLOT LINES: 0,273;200,220

PLOT LINES: 0,335;200,220

PLOT LINES: 20,400;200,220

PLOT LINES: 96,400;200,220

PLOT LINES: 150,400;200,220

PLOT LINES: 200,400;200,220

PLOT LINES: 248,400;200,220

PLOT LINES: 310,400;200,220

PLOT LINES: 400,400;200,220

PLOT LINES: 400,335;200,220

PLOT LINES: 400,273;200,220

PLOT LINES: 400,220;200,220

PLOT LINES: 400,167;200,220

PLOT LINES: 400,105;200,220

PLOT LINES: 400,20;200,220

PLOT LINES: 327,0;200,220

PLOT LINES: 260,0;200,220

SET LINE COLOR 1

200 SET LINE WIDTH 440

210 DRAW circle WITH SCALE(r+145)*SHIFT(200,220)

SET LINE WIDTH 100

DRAW circle WITH SCALE(r)*SHIFT(200,220)

IF r<50 THEN LET r1=0

IF r>50 THEN LET r1=r-50

DRAW circle WITH SCALE(r1)*SHIFT(200,220)

IF r<100 THEN LET r2=0

IF r>100 THEN LET r2=r-100

DRAW circle WITH SCALE(r2)*SHIFT(200,220)

IF r<150 THEN LET r3=0

IF r>150 THEN LET r3=r-150

DRAW circle WITH SCALE(r3)*SHIFT(200,220)

IF r<200 THEN LET r4=0

IF r>200 THEN LET r4=r-200

DRAW circle WITH SCALE(r4)*SHIFT(200,220)

SET AREA COLOR 56

DRAW disk WITH SCALE(5)*SHIFT(200,220)

SET COLOR MIX(255)1,0.9,0.4

SET AREA COLOR 255

DRAW disk WITH SCALE(3)*SHIFT(199+m,218+n)

randomize

LET m=2*RND

randomize

LET n=2*RND

SET AREA COLOR 139

PLOT AREA:199,0; 199,215;200,215;200,0

FOR t=0 TO 1000

NEXT t

SET WINDOW 0,400,400,0

SET AREA COLOR 1

NEXT r

GOTO 100

END

- 1 - - 2 - - 3 - - 4 - - 5 - - 6 -