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

1449766451

見本です。


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

1449766131

見本です


100 SET WINDOW 0,400,400,0

FOR r=0 TO 200

SET AREA COLOR 1

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

SET LINE WIDTH 5

SET LINE COLOR 4

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: 303,400;200,220

PLOT LINES: 400,335;200,220

PLOT LINES: 400,273;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 40

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 171

PLOT AREA:199,0; 199,220;201,220;201,0

SET AREA COLOR 38

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

FOR t=0 TO 500000

NEXT t

CLEAR

NEXT r

GOTO 100

END

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