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

1467919660


ブロック崩し



5 SET WINDOW 0,300,0,300

40 LET a=10 !

LET b=10 !

LET i=3

LET j=2

45 LET c=2

LET c2=5

LET c3=15

LET c4=5

LET c5=15

LET c6=2

LET c7=5

LET c8=2

!SET DRAW MODE HIDDEN

!FOR k=0 TO 10000000

!NEXT k

!SET DRAW MODE EXPLICIT

60 FOR k=0 TO 100000

NEXT k

SET DRAW MODE EXPLICIT

SET DRAW MODE HIDDEN

CLEAR

70 LET a=a+i

LET b=b+j

SET AREA COLOR c

PLOT AREA: 0,300;0,290;100,290;100,300

SET AREA COLOR c2

PLOT AREA: 200,300;200,290;300,290;300,300

SET AREA COLOR c3

PLOT AREA: 100,290;100,280;200,280;200,290

SET AREA COLOR c4

PLOT AREA: 0,280;0,270;100,270;100,280

SET AREA COLOR c5

PLOT AREA: 200,280;200,270;300,270;300,280

SET AREA COLOR c6

PLOT AREA: 100,270;100,260;200,260;200,270

SET AREA COLOR c7

PLOT AREA: 0,260;0,250;100,250;100,260

SET AREA COLOR c8

PLOT AREA: 200,260;200,250;300,250;300,260

80 SET AREA COLOR "green"

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

!FOR k=1 TO 1000

!NEXT k

IF c=0 AND c2=0 AND c3=0 AND c4=0 AND c5=0 AND c6=0 AND c7=0 AND c8=0 THEN GOTO 500

IF c8>0 AND a=>200 AND a<=300 AND b=>250 AND b<=260 THEN GOTO 160 !c8 あたり判定 b

IF c7>0 AND a=>0 AND a<=100 AND b=>250 AND b<=260 THEN GOTO 165

IF c6>0 AND a=>100 AND a<=200 AND b=>260 AND b<=270 THEN GOTO 170

IF c5>0 AND a=>200 AND a<=300 AND b=>270 AND b<=280 THEN GOTO 175

IF c4>0 AND a=>0 AND a<=200 AND b=>270 AND b<=280 THEN GOTO 180

IF c3>0 AND a=>100 AND a<=200 AND b=>280 AND b<=290 THEN GOTO 185

IF c2>0 AND a=>200 AND a<=300 AND b=>290 AND b<=300 THEN GOTO 190

IF c>0 AND a=>0 AND a<=100 AND b=>290 AND b<=300 THEN GOTO 195

!FOR k=1 TO 100000

!NEXT k

130 IF a<10 THEN LET i=-i

140 IF b<10 THEN LET j=-j

150 IF a>300 THEN LET i=-i

IF b>300 THEN LET j=-j

GOTO 200

160 LET c8=0

GOTO 205

165 LET c7=0

GOTO 205

170 LET c6=0

GOTO 205

175 LET c5=0

GOTO 205

180 LET c4=0

GOTO 205

185 LET c3=0

GOTO 205

190 LET c2=0

GOTO 205

195 LET c=0

GOTO 205

200 IF a>10 THEN GOTO 60

IF b>10 THEN GOTO 60

IF a<300 THEN GOTO 60

IF b<290 THEN GOTO 60

205 RANDOMIZE

LET n=INT(4*RND) !0~4

210 IF n=0 THEN LET i=-i

220 IF n=1 THEN LET i=i

230 IF n=2 THEN LET j=-j

240 IF n=3 THEN LET j=j

300 !IF c=0 AND c2=0 AND c3=0 AND c4=0 AND c5=0 AND c6=0 AND c7=0 AND c8=0 THEN GOTO 500

!FOR k=0 TO 10000000

!NEXT k

!SET DRAW MODE EXPLICIT

GOTO 60 !CLEAR

500 END

1467919195



迷路脱出


1 SET WINDOW 0,300,300,0

10 LET x=200

LET y=30

LET i=1

LET j=1

LET m=0

25 CLEAR

65 LET x=x+i

LET y=y+j

DRAW grid(50,50)

90 SET AREA COLOR 1

PLOT AREA: 50,50; 50,100; 150,100; 150,50

100 IF x>50 THEN GOTO 110 ELSE GOTO 200

110 IF x<150 THEN GOTO 120 ELSE GOTO 200

120 IF y>50 THEN GOTO 130 ELSE GOTO 200

130 IF y<100 THEN GOTO 140 ELSE GOTO 200

140 LET i=-i+m

150 LET j=-j

200 SET AREA COLOR 9

PLOT AREA: 0,0; 0,50; 50,50; 50,0

210 IF x>0 THEN GOTO 220 ELSE GOTO 300

220 IF x<50 THEN GOTO 230 ELSE GOTO 300

230 IF y<50 THEN GOTO 240 ELSE GOTO 300

240 IF y>0 THEN GOTO 250 ELSE GOTO 300

250 LET i=-i/2

260 LET j=-j

300 SET AREA COLOR 8

PLOT AREA: 0,150; 0,200; 150,200; 150,150

400 SET AREA COLOR 11

PLOT AREA: 0,250; 0,300; 50,300; 50,250

500 SET AREA COLOR 12

PLOT AREA: 200,50; 200,200; 250,200; 250,50

510 IF x>200 THEN GOTO 520 ELSE GOTO 600

520 IF x<250 THEN GOTO 530 ELSE GOTO 600

530 IF y<200 THEN GOTO 540 ELSE GOTO 600

540 IF y>50 THEN GOTO 550 ELSE GOTO 600

550 LET i=m

560 LET j=-j

600 SET AREA COLOR 13

PLOT AREA: 250,200; 250,250; 300,250; 300,200

700 SET AREA COLOR 14

PLOT AREA: 100,250; 100,300; 300,300; 300,250

900 SET AREA COLOR 11

985 DRAW disk WITH SCALE(8)*SHIFT(x,y)

SET AREA COLOR 3

986 DRAW disk WITH SCALE(5)*SHIFT(x,y)

987 FOR k=1 TO 300000

988 NEXT k

RANDOMIZE

LET m=RND

IF x>290 THEN LET i=-m-1

IF x<10 THEN LET i=m+1

IF y>290 THEN LET j=-m-1

IF y<10 THEN LET j=m+1

1500 GOTO 25

END

1450794794

アナグラム生成プログラム

SET WINDOW 0,400,400,0

CLEAR

FOR s=1 TO 5

DECLARE STRING b$(100)

DIM c(1 TO 100)

LET r=0

LET p=0

INPUT a$

LET n=LEN(a$)

LET p=n-1

LET q=p-1

FOR m=1 TO n

LET b$(m)=a$(m:m)

NEXT m

PLOT TEXT ,AT 15*1,100+30*s:b$(1)

FOR m=2 TO p

200 RANDOMIZE

LET r=2+INT(q*RND)

FOR d=2 TO q

IF r=c(d) THEN GOTO 200

NEXT d

LET c(m)=r

PLOT TEXT ,AT 15*m,100+30*s:b$(r)

NEXT m

PLOT TEXT ,AT 15*n,100+30*s:b$(n)

NEXT s

END

1450103683

見本です。

10 SET WINDOW 0,300,300,0
   rem OPTION CHARACTER UTF8
   DECLARE STRING a$(5),b$(5),e$(7),f$(7)
   clear
20 RANDOMIZE
   DIM c(1 TO 5)
   DIM g(1 TO 7)
   LET p=0
   LET r=0

   FOR m=1 TO 5

      INPUT a$(m)

      PLOT TEXT ,AT 10*m,100:a$(m)

   NEXT m

   LET b$(1)=a$(1)
   LET b$(5)=a$(5)

   FOR n=2 TO 4

100    randomize

110    LET r=2+INT(3*RND)

120    IF c(2)=r THEN GOTO 100 ELSE GOTO 130
130    IF c(3)=r THEN GOTO 100 ELSE GOTO 140
140    IF c(4)=r THEN GOTO 100 ELSE GOTO 170

170    LET c(n)=r

200    LET b$(n)=a$(r)

    NEXT n

    LET d$=b$(1)&b$(2)&b$(3)&b$(4)&b$(5)

    PLOT TEXT ,AT  10,150:d$

220 FOR m=1 TO  7

       INPUT e$(m)

       PLOT TEXT ,AT 10*m,200:e$(m)

    NEXT m

    LET f$(1)=e$(1)
    LET f$(7)=e$(7)

    FOR n=2 TO 6

300    randomize

310    LET r=2+INT(5*RND)

320    IF g(2)=r THEN GOTO 300 ELSE GOTO 330
330    IF g(3)=r THEN GOTO 300 ELSE GOTO 340
340    IF g(4)=r THEN GOTO 300 ELSE GOTO 350
350    IF g(5)=r THEN GOTO 300 ELSE GOTO 360
360    IF g(6)=r THEN GOTO 300 ELSE GOTO 370

370    LET g(n)=r

400    LET f$(n)=e$(r)

    NEXT n

    LET h$=f$(1)&f$(2)&f$(3)&f$(4)&f$(5)&f$(6)&f$(7)

    PLOT TEXT ,AT  10,250:h$

    END

1449766753


見本です。


10 SET WINDOW 0,300,300,0

clear

20 RANDOMIZE

DIM a$(1 TO 5)

DIM b$(1 TO 5)

DIM c(1 TO 5)

LET p=0

LET r=0

FOR m=1 TO 5

CHARACTER INPUT CLEAR: a$(m)

PLOT TEXT ,AT 10*m,100:a$(m)

NEXT m

FOR n=1 TO 5

100 randomize

110 LET r=1+INT(5*RND)

120 IF c(1)=r THEN GOTO 100 ELSE GOTO 130

130 IF c(2)=r THEN GOTO 100 ELSE GOTO 140

140 IF c(3)=r THEN GOTO 100 ELSE GOTO 150

150 IF c(4)=r THEN GOTO 100 ELSE GOTO 160

160 IF c(5)=r THEN GOTO 100 ELSE GOTO 170

170 LET c(n)=r

200 LET b$(n)=a$(r)

NEXT n

LET h$=b$(1)&b$(2)&b$(3)&b$(4)&b$(5)

PLOT TEXT ,AT 10,150:h$

END

1449766586

見本です。


10 CLEAR

SET WINDOW 0 , 500 , 500 , 0

20 SET TEXT FONT "Times New Roman", 20

30 SET AREA COLOR 199

PLOT AREA : 435,435 ; 435,465 ; 465,465 ; 465,435

40 SET TEXT COLOR 0

PLOT TEXT ,AT 439,455: "click"

100 RANDOMIZE

300 LET n1=1+INT(5*RND)

LET n2=6+INT(5*RND)

LET n3=11+INT(5*RND)

400 IF n1=1 THEN GOTO 1100

IF n1=2 THEN GOTO 1200

IF n1=3 THEN GOTO 1300

IF n1=4 THEN GOTO 1400

IF n1=5 THEN GOTO 1500

500 IF n2=6 THEN GOTO 2100

IF n2=7 THEN GOTO 2200

IF n2=8 THEN GOTO 2300

IF n2=9 THEN GOTO 2400

IF n2=10 THEN GOTO 2500

600 IF n3=11 THEN GOTO 3100

IF n3=12 THEN GOTO 3200

IF n3=13 THEN GOTO 3300

IF n3=14 THEN GOTO 3400

IF n3=15 THEN GOTO 3500

1100 SET AREA COLOR 185

PLOT AREA : 100,100 ; 150,340 ; 350,350 ; 330,50

PLOT AREA : 435,330 ; 435,360 ; 465,360 ; 465,330

GOTO 500

1200 SET AREA COLOR 90

PLOT AREA : 50, 100 ; 100,340 ; 350,350 ; 330,50

PLOT AREA : 435,330 ; 435,360 ; 465,360 ; 465,330

GOTO 500

1300 SET AREA COLOR 74

PLOT AREA : 50,80 ; 50,350 ; 330,330 ; 350,50

PLOT AREA : 435,330 ; 435,360 ; 465,360 ; 465,330

GOTO 500

1400 SET AREA COLOR 11

PLOT AREA : 50,50 ; 50,270 ; 320,350 ; 350,50

PLOT AREA : 435,330 ; 435,360 ; 465,360 ; 465,330

GOTO 500

1500 SET AREA COLOR 158

PLOT AREA : 50,80 ; 50,340 ; 350,350 ; 350,60

PLOT AREA : 435,330 ; 435,360 ; 465,360 ; 465,330

GOTO 500

2100 SET AREA COLOR 152

PLOT AREA : 100,60 ; 50,340 ; 350,350 ; 300,50

PLOT AREA : 435,365 ; 435,395 ; 465,395 ; 465,365

GOTO 600

2200 SET AREA COLOR 199

PLOT AREA : 100,100 ; 50,340 ; 350,330 ; 200,80

PLOT AREA : 435,365 ; 435,395 ; 465,395 ; 465,365

GOTO 600

2300 SET AREA COLOR 75

PLOT AREA : 100,100 ; 50,340 ; 320,300 ; 330,50

PLOT AREA : 435,365 ; 435,395 ; 465,395 ; 465,365

GOTO 600

2400 SET AREA COLOR 229

PLOT AREA : 100,100 ; 50,340 ; 300,300 ; 330,50

PLOT AREA : 435,365 ; 435,395 ; 465,395 ; 465,365

GOTO 600

2500 SET AREA COLOR 27

PLOT AREA : 100,100 ; 50,340 ; 350,270 ; 330,50

PLOT AREA : 435,365 ; 435,395 ; 465,395 ; 465,365

GOTO 600

3100 SET AREA COLOR 181

3130 PLOT AREA : 150,100 ; 50,340 ; 250,250 ; 330,50

PLOT AREA : 435,400 ; 435,430 ; 465,430 ; 465,400

GET POINT: x , y

3132 IF x=>435 AND x=<465 AND y=>330 AND y=<360 THEN GOTO 3150 ELSE GOTO 3133

3133 IF x=>435 AND x=<465 AND y=>370 AND y=<390 THEN GOTO 3230 ELSE GOTO 3134

3134 IF x=>435 AND x=<465 AND y=>400 AND y=<430 THEN GOTO 3330 ELSE GOTO 3135

3135 IF x=>435 AND x=<465 AND y=>435 AND y=<460 THEN GOTO 3430 ELSE GOTO 3136

3136 IF x=>435 AND x=<465 AND y=>470 AND y=<490 THEN GOTO 10 ELSE GOTO 3100

3150 LET c31=11+INT(5*RND)

IF c31=11 THEN GOTO 3150 ! lottery one more

IF c31=12 THEN GOTO 3152

IF c31=13 THEN GOTO 3153

IF c31=14 THEN GOTO 3154

IF c31=15 THEN GOTO 3155

3151 SET AREA COLOR 181

GOTO 3130

3152 SET AREA COLOR 175

GOTO 3130

3153 SET AREA COLOR 170

GOTO 3130

3154 SET AREA COLOR 88

GOTO 3130

3155 SET AREA COLOR 200

GOTO 3130

3200 SET AREA COLOR 175

3230 PLOT AREA : 50,50 ; 50,250 ; 200,200 ; 200,70

PLOT AREA : 435,400 ; 435,430 ; 465,430 ; 465,400

3250 LET c32=11+INT(5*RND)

IF c32=11 THEN GOTO 3251

IF c32=12 THEN GOTO 3250 ! lottery one more

IF c32=13 THEN GOTO 3253

IF c32=14 THEN GOTO 3254

IF c32=15 THEN GOTO 3255

3251 SET AREA COLOR 181

GOTO 3130

3252 SET AREA COLOR 175

GOTO 3130

3253 SET AREA COLOR 170

GOTO 3130

3254 SET AREA COLOR 88

GOTO 3130

3255 SET AREA COLOR 200

GOTO 3130

3300 SET AREA COLOR 170

3330 PLOT AREA : 150,100 ; 100,340 ; 300,300 ; 330,100

PLOT AREA : 435,400 ; 435,430 ; 465,430 ; 465,400

3350 LET c33=11+INT(5*RND)

IF c33=11 THEN GOTO 3351

IF c33=12 THEN GOTO 3352

IF c33=13 THEN GOTO 3350 ! lottery one more

IF c33=14 THEN GOTO 3354

IF c33=15 THEN GOTO 3355

3351 SET AREA COLOR 181

GOTO 3130

3352 SET AREA COLOR 175

GOTO 3130

3353 SET AREA COLOR 170

GOTO 3130

3354 SET AREA COLOR 88

GOTO 3130

3355 SET AREA COLOR 200

GOTO 3130

3400 SET AREA COLOR 88

3430 PLOT AREA : 50,150 ; 65,300 ; 270,270 ; 350,70

PLOT AREA : 435,400 ; 435,430 ; 465,430 ; 465,400

3450 LET c34=11+INT(5*RND)

IF c34=11 THEN GOTO 3451

IF c34=12 THEN GOTO 3452

IF c34=13 THEN GOTO 3453

IF c34=14 THEN GOTO 3450 ! lottery one more

IF c34=15 THEN GOTO 3455

3451 SET AREA COLOR 181

GOTO 3130

3452 SET AREA COLOR 175

GOTO 3130

3453 SET AREA COLOR 170

GOTO 3130

3455 SET AREA COLOR 200

GOTO 3130

3500 SET AREA COLOR 200

3530 PLOT AREA : 100,50 ; 65,300 ; 270,270

PLOT AREA : 435,400 ; 435,430 ; 465,430 ; 465,400

3550 LET c35=11+INT(5*RND)

IF c35=11 THEN GOTO 3551

IF c35=12 THEN GOTO 3552

IF c35=13 THEN GOTO 3553

IF c35=14 THEN GOTO 3554

IF c35=15 THEN GOTO 3550 ! lottery one more

3551 SET AREA COLOR 181

GOTO 3130

3552 SET AREA COLOR 175

GOTO 3130

3553 SET AREA COLOR 170

GOTO 3130

3554 SET AREA COLOR 88

GOTO 3130

3555 SET AREA COLOR 200

GOTO 3130

END

- 1 - - 2 - - 3 - - 4 - - 5 - - 6 - - 7 - - 8 - - 9 -