1538071050



増殖


5 REM life game by HAJIME HIRAO 2006

  

  FOR d=30 TO 120 STEP 10

     clear

8    option base 0

     set window 0,200,0,200

10    LET  px=0

      LET  py=0

      LET  t=0

20    print "LlFE"

40    DIM a(100,100),b$(100)

      

      

45    FOR y = 2 TO 99

         FOR x = 2 TO 99

            LET  a(x,y) = 0 

         next x

      next y

      

50    LET  h = 1

      print "絵の大きさは?(1以上)"

      LET  sc=2

60    print "Enter a pattern(type end when finished):"

70    LET  b$(h)="random"

75    IF b$(h) = "random" THEN GOTO 900

80    if b$(h) = "end" then

         LET  h = h-1

         goto 120

      END IF

90    IF LEN(b$(h)) > w THEN LET  w = LEN(b$(h))

100    LET  h = h+1

110    GOTO 70

120    LET  xmin = int(50-w/2)

       LET  ymin = int(50-h/2)

       LET  xmax = xmin+w

       LET  ymax = ymin+h

130    FOR y = 1 TO h

          FOR x = 1 TO w

140          IF b$(y)(x:x+1-1) = "." THEN GOTO 160

150          LET  a(x+xmin,y+ymin) = 1

160       next x

       NEXT y

170    LET  right = 1

       LET  left = 100

       LET  top = 100

       LET  bottom = 1

180    FOR y = ymin TO ymax

          FOR x = xmin TO xmax

190          IF a(x,y) = 11 THEN

                LET  a(x,y) = 1

                if a(x,y) = 10 then LET  a(x,y) = 0

             END IF

200          IF a(x,y) = 1 THEN

                gosub 600

                goto 220

             END IF

210          gosub 620

             goto 260

220          IF x > right THEN LET  right = x

230          IF x < left THEN LET  left = x

240          IF y < top THEN LET  top = y

250          IF y > bottom THEN LET  bottom = y

260       next x

          GOSUB 700

       NEXT y

270    REM for y = ymax+1 to 40

       REM   print

       REM next y

280    PRINT "LIFE";d;"GENERATION:";t

282    IF t=400 THEN GOTO 1000

       

285    REM WAIT DELAY .001

       LET  py=0+t/4

290    LET  xmin = left

       LET  ymin = top

       LET  xmax = right

       LET  ymax = bottom

300    if xmin < 3 then LET  xmin = 3

310    IF ymin < 3 THEN LET  ymin = 3

320    if xmax > 98 then LET  xmax = 98

330    if ymax > 98 then LET  ymax = 98

340    LET  t = t+1

       LET  xmin = xmin-1

       LET  ymin = ymin-1

       LET  xmax = xmax+1

       LET  ymax = ymax+1

350    for y = ymin to ymax

          for x = xmin to xmax

360          LET  nbrs = a(x-1,y-1)+a(x,y-1)+a(x+1,y-1)+a(x-1,y)

370          LET  nbrs = INT(nbrs/10)

380          LET  nbrs = nbrs+a(x+1,y)+a(x-1,y+1)+a(x,y+1)+a(x+1,y+1)

390          LET  nbrs = nbrs-10*INT(nbrs/10)

400          LET  a(x,y) = a(x,y)-10*INT(a(x,y)/10)

410          LET  a(x,y) = 10*a(x,y)

420          IF nbrs = 3 THEN GOTO 450

430          IF nbrs <> 2 THEN GOTO 460

440          if a(x,y) <> 10 then goto 460

450          LET  a(x,y) = a(x,y)+1

460       next x

       NEXT y

470    GOTO 180

       

600    if sc=1 then goto 605

       SET POINT STYLE 3

       GOTO 610

605    set point style 1

610    SET POINT COLOR t

       plot points : px,py

       LET  px = px+sc

       return

       

620    if sc=1 then goto 625

       set point style 3

       GOTO 630

625    set point style 1

       

       

630    REM set point color 0

       REM plot points : px,py

       LET  px = px+sc

       return

       

700    LET  py = py+sc

       LET  px = 0

       return

       

900    rem ramdomize

910    REM print "Enter density:"

920    REM LET  d=38

930    for y = 2 to 99

          for x = 2 to 99

935          IF y < 8 THEN

                LET  a(x,y) = 0 

             ELSE

                GOTO 950

             END IF

940          IF RND*(d+100) < d THEN LET  a(x,y) = 1

950       next x

       next y

960    LET  xmin = 3

       LET  ymin = 3

       LET  xmax = 98

       LET  ymax = 98

970    GOTO 180

1000 NEXT d

1100 GOTO 5

     END

     

     


1536257891

渦巻き



10 SET WINDOW  -2,2,2,-2

20 SET POINT STYLE 1

30 OPTION ANGLE DEGREES

40 FOR t=0 TO 360 STEP 6

   

      LET  x=SIN (t)

      LET  y=SIN(t)/3+COS (t)/3

      SET COLOR 1

      DRAW disk WITH SCALE(0.01)*SHIFT(x,y)

      

      LET  x=SIN (t+2)/2

      LET  y=SIN(t-2)/4+COS (t-2)/4

      SET COLOR 1

      DRAW disk WITH SCALE(0.01)*SHIFT(x,y+0.2)

      

      LET  x=SIN (t+4)/3

      LET  y=SIN(t-4)/5+COS (t-4)/5

      SET COLOR 1

      DRAW disk WITH SCALE(0.01)*SHIFT(x,y+0.4)

      

      LET  x=SIN (t)/4

      LET  y=SIN(t)/3+COS (t)/3

      SET COLOR 1

      DRAW disk WITH SCALE(0.01)*SHIFT(x,y+0.6)

      

      LET  x=SIN (t)/5

      LET  y=SIN(t)/3+COS (t)/3

      SET COLOR 1

      DRAW disk WITH SCALE(0.01)*SHIFT(x,y+0.8)

      

      LET  x=SIN (t)/6

      LET  y=SIN(t)/3+COS (t)/3

      SET COLOR 1

      DRAW disk WITH SCALE(0.01)*SHIFT(x,y+1)

      

      

100    WAIT DELAY 0.1

110    CLEAR

120 NEXT t    

130 GOTO 10

500 END

    


1536256150


細菌増殖



5 SET WINDOW 0,300,0,300  

  

  LET p1=INT((20)*RND)+150

  

  LET q1=INT((20)*RND)+150

  

  LET p2=INT((40)*RND)+150

  

  LET q2=INT((40)*RND)+150

  

  LET p3=INT((60)*RND)+150

  

  LET q3=INT((60)*RND)+150

  

  LET p4=-INT((80)*RND)+150

  

  LET q4=-INT((80)*RND)+150

  

  LET p5=-INT((100)*RND)+150

  

  LET q5=-INT((100)*RND)+150

  

  LET p6=-INT((120)*RND)+150

  

  LET q6=-INT((120)*RND)+150

  

  

10 FOR e=0 TO 80

      LET  ex=e

      

      DRAW circle WITH SCALE(150)*SHIFT(150,150)

      

50    LET x1=e+INT(10*RND)

      

      

      SET AREA COLOR x1

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

      

      

      

60    LET x2=e+INT(10*RND)

      

      SET AREA COLOR x2

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

      

70    LET x3=e+INT(10*RND)

      

      SET AREA COLOR x3

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

      

80    LET x4=e+INT(10*RND)

      

      SET AREA COLOR x4

      DRAW disk WITH SCALE(x4)*SHIFT(p4,q4)

      

90    LET x5=e+INT(10*RND)

      

      

      SET AREA COLOR x5

      DRAW disk WITH SCALE(x5)*SHIFT(p5,q5)

      

100    LET x6=e+INT(10*RND)

       

       SET AREA COLOR x6

       DRAW disk WITH SCALE(x6)*SHIFT(p6,q6)

       

       

110    FOR k=1 TO 1500000

       

       

       NEXT k

       

       clear  

       

200 NEXT e

    

210 GOTO 10

    

    END

    


1532046397


メタモルフォーゼ

 

5 SET WINDOW 0,300,300,0

  

  LET t = 50

  LET count = 100

  LET num = 0

  DIM POSX(count)

  DIM POSY(count)

  DIM SCALE(count)

  DIM COLOR(count)

  

10 FOR i=1 TO count

   

      LET POSX(i) = INT(300*RND)

      LET POSY(i) = INT(300*RND)

      LET SCALE(i) = INT(5*RND+1)

      

   NEXT i

    

20 FOR i=1 TO 1000000

   NEXT i

   

   SET AREA COLOR 0

   PLOT AREA : 0,0;300,0;300,300;0,300;0,0

   

30 FOR ti=1 TO count

   

40    IF POSX(ti) = 150 THEN

      

      ELSE

         IF POSX(ti) < 150 THEN

            LET POSX(ti) = POSX(ti) + (150 - POSX(ti)) / t*INT(30*RND)

            

         ELSE

            LET POSX(ti) = POSX(ti) - (POSX(ti) - 150) / t*INT(100*RND)

            

         END IF

      END IF

      

      

50    IF POSY(ti) = 150 THEN

      

      ELSE

         IF POSY(ti) < 150 THEN

            LET POSY(ti) = POSY(ti) + (150 - POSY(ti)) / t*INT(50*RND)

            

         ELSE

            LET POSY(ti) = POSY(ti) - (POSY(ti) - 150) / t*INT(80*RND)

            

         END IF

      END IF

      

      

60    SET AREA COLOR 1

      DRAW disk WITH SCALE(SCALE(ti))*SHIFT(POSX(ti),POSY(ti))

      

70    IF POSX(ti) > 149.5 AND POSX(ti) < 150.5 THEN

         IF POSY(ti) > 149.5 AND POSY(ti) < 150.5 THEN

            LET num = num + 1

         END IF

      END IF

      

80 NEXT ti

   

   GOTO 10

   

   

   END

1532043724


赤い三角形

 

10 SET WINDOW 0,400,400,0

   

20 SET AREA COLOR  4

  

30 PLOT AREA: 200,100;100,300;300,300

   

   

END

1532042962


リモコンロボット i j k l m のキーで操作

 

10 SET WINDOW 0,400,400,0

   

30 SET AREA COLOR  4

   PLOT AREA:  165 ,  65 ; 235 , 65 ;  235 , 75; 165, 75;165 ,  65

   

   

   

   SET AREA COLOR 6

   PLOT AREA:  165 , 228 ; 235 , 228 ;  235,  240; 165, 240;165 , 228

   

   

   

   

   DRAW disk WITH SCALE(10)*SHIFT(148,235)

   

   DRAW disk WITH SCALE(10)*SHIFT(252,235)

   

   

   !kao

   

  

   SET AREA COLOR  6

   PLOT AREA:  165 , 125 ; 235 , 125 ;  235 , 130; 165, 130;165 , 125

   

   SET AREA COLOR 2

   PLOT AREA:  140 , 155 ; 260 , 155 ;  260,  200; 140, 200;140 , 155

   

   

   

   SET AREA COLOR  6

   PLOT AREA:  145 , 75 ; 255 , 75 ; 255 ,140; 145, 140;145 , 75

   

   SET AREA COLOR  4

   PLOT AREA:  140 , 90 ; 145 , 90 ;  145 , 130; 140, 130;140 , 90

   PLOT AREA:  255 , 90 ; 260 , 90 ;  260 , 130; 255, 130;255 , 90

   

   

   

   

   SET AREA COLOR  4

   PLOT AREA:  155 , 140 ; 245 , 140 ;  245,  145; 155, 145;155 , 140

   

   SET AREA COLOR  4

   

   PLOT AREA:  130 , 145 ; 270 , 145 ;  270,  255; 130, 255;130 , 145

   

   

   

   SET AREA COLOR  4

   PLOT AREA:   80 , 150 ; 125 , 150 ;  125, 180;  90, 180;80 , 150

   SET AREA COLOR  6

   PLOT AREA:   95 , 180 ; 120 , 180 ;  120, 200;  95, 200;95 , 180

   SET AREA COLOR  4

   PLOT AREA:   90 , 200 ; 125 , 200 ;  125, 220;  90, 220;90 , 200

   SET AREA COLOR  6

   PLOT AREA:   95 , 220 ; 120 , 220 ;  120, 240;  95, 240;95 , 220

   SET AREA COLOR   4

   PLOT AREA:   90 , 240 ; 125 , 240 ;  125, 275;  90, 275;90 , 240

   PLOT AREA:   85 , 245 ; 90 , 245 ;  90, 255;  85, 255;85 , 245

   PLOT AREA:   125 , 155 ; 130 , 155 ;  130, 175;  125, 175;125 , 155

   

   

   

   SET AREA COLOR  4

   PLOT AREA:  275, 150 ; 320, 150 ;  310, 180; 275, 180;275, 150

   SET AREA COLOR  6

   PLOT AREA:  280, 180 ; 305, 180 ;  305, 200; 280, 200;280, 180

   SET AREA COLOR  4

   PLOT AREA:  275, 200 ; 310, 200 ;  310, 220; 275, 220;275, 200

   SET AREA COLOR  6

   PLOT AREA:  280, 220 ; 305, 220 ;  305, 240; 280, 240;280, 220

   SET AREA COLOR  4

   PLOT AREA:  275, 240 ; 310, 240 ;  310, 275; 275, 275;275, 240

   PLOT AREA:  310, 245 ; 315, 245 ;  315, 255; 310, 255;310, 245

   PLOT AREA:  270, 155 ; 275, 155 ;  275, 175; 270, 175;270, 155

   

   

   

  

   SET AREA COLOR  6

   PLOT AREA:   140 , 255 ; 190 , 255 ;  190, 290;  145, 290;140 , 255

   

   SET AREA COLOR   4

   PLOT AREA:   140 , 290 ; 195 , 290 ;  195, 310;  140, 310;140 , 290

   

   SET AREA COLOR  6

   PLOT AREA:   145 , 310 ; 190 , 310 ;  190, 340;  140, 340;145 , 310

   

   SET AREA COLOR   4

   PLOT AREA:   130 , 340 ; 195 , 340 ;  195, 370;  130, 370;130 , 340

   

   

   

   

   SET AREA COLOR  6

   PLOT AREA:   210 , 255; 260 , 255 ;  255, 290;  210, 290;210 , 255

   SET AREA COLOR   4

   PLOT AREA:   205 , 290 ; 260 , 290 ;  260, 310;  205, 310;205 , 290

   SET AREA COLOR  6

   PLOT AREA:   210 , 310 ; 255 , 310 ;  260, 340;  210, 340;210 , 310

   SET AREA COLOR   4

   PLOT AREA:   205 , 340 ; 270 , 340 ;  270, 370;  205, 370;205 , 340

   

   

  

400 SET COLOR   0

    DRAW disk WITH SCALE(14)*SHIFT(170,100)

    

    SET COLOR  0

    DRAW disk WITH SCALE(14)*SHIFT(230,100)

    

    

   

    SET COLOR   1

    DRAW circle WITH SCALE(15)*SHIFT(170,100)

    

    SET COLOR  1

    DRAW circle WITH SCALE(15)*SHIFT(230,100)

    

    

    CHARACTER INPUT nowait :a$

    

    

    SET COLOR   1

    

    IF a$="i" THEN  DRAW disk WITH SCALE(10)*SHIFT( 170,95)

     

    IF a$="j" THEN  DRAW disk WITH SCALE(10)*SHIFT(165,100)

    

    IF a$="l" THEN  DRAW disk WITH SCALE(10)*SHIFT(175,100)

    

    IF a$="m" THEN  DRAW disk WITH SCALE(10)*SHIFT(170,105)

    

    IF a$="k" THEN  DRAW disk WITH SCALE(10)*SHIFT(170,100)

    

    

   

    

    IF a$="i" THEN  DRAW disk WITH SCALE(10)*SHIFT(230,95)

    

    IF a$="j" THEN  DRAW disk WITH SCALE(10)*SHIFT(225,100)

    

    IF a$="l" THEN  DRAW disk WITH SCALE(10)*SHIFT(235,100)

    

    IF a$="m" THEN  DRAW disk WITH SCALE(10)*SHIFT(230,105)

    

    IF a$="k" THEN  DRAW disk WITH SCALE(10)*SHIFT(230,100)

    

    

   

    

    FOR ti=0 TO 5000000

    

    NEXT ti

    

    

    

    GOTO  400

    

     

    

 END

1532042509


テ○リス


SET WINDOW  0 , 300 , 300 , 0

CLEAR

OPTION BASE 1

 

20 DIM a(6),b(6)

   

   FOR n=1 TO 6

      LET a(n)=-300

   NEXT n

   

   

   FOR n=1 TO 6

      LET b(n)=-300

   NEXT n

   

   

   LET j=1

   LET h=280

   

   FOR m=1 TO 6

   

      LET a(m)=0

      

60    CLEAR

      

      CHARACTER INPUT NOWAIT: a$

      IF a$ = "j" THEN LET a(m) = a(m)-1

      IF a$ = "k" THEN LET a(m) = a(m)

      IF a$ = "l" THEN LET a(m) = a(m)+1

      

      LET b(m)=b(m)+j

      

      

      SET AREA COLOR 27

      DRAW GRID(10,10)

      

      PLOT AREA: 0+a(1),300+b(1);0+a(1),240+b(1);20+a(1),240+b(1);2+a(1),280+b(1);40+a(1),280+b(1);40+a(1),300+b(1)

      

      SET AREA COLOR 31

      PLOT AREA: 60+a(2),300+b(2);60+a(2),280+b(2);90+a(2),280+b(2);120+a(2),280+b(2);140+a(2),280+b(2);140+a(2),300+b(2)

      

      SET AREA COLOR 104

      PLOT AREA: 180+a(3),300+b(3);180+a(3),280+b(3);200+a(3),280+b(3);200+a(3),260+b(3);220+a(3),260+b(3);220+a(3),280+b(3);260+a(3),280+b(3);260+a(3),300+b(3)

      

      SET AREA COLOR 247

      PLOT AREA: 260+a(4),300+b(4);260+a(4),260+b(4);280+a(4),260+b(4);280+a(4),240+b(4);300+a(4),240+b(4);300+a(4),300+b(4)

      

      SET AREA COLOR 72

      PLOT AREA: 140+a(5),300+b(5);180+a(5),300+b(5);180+a(5),280+b(5);160+a(5),280+b(5);160+a(5),260+b(5);140+a(5),260+b(5)

      

      

      SET AREA COLOR 243

      PLOT AREA: 0+a(1),300+b(1);2+a(1),298+b(1);2+a(1),282+b(1);0+a(1),280+b(1)

      PLOT AREA: 0+a(1),280+b(1);2+a(1),278+b(1);2+a(1),262+b(1);0+a(1),260+b(1)

      PLOT AREA: 0+a(1),260+b(1);2+a(1),258+b(1);2+a(1),242+b(1);0+a(1),240+b(1)

      PLOT AREA: 20+a(1),300+b(1);22+a(1),298+b(1);22+a(1),282+b(1);20+a(1),280+b(1)

      

      SET AREA COLOR 154

      PLOT AREA: 0+a(1),300+b(1);20+a(1),300+b(1);18+a(1),298+b(1);2+a(1),298+b(1)

      PLOT AREA: 0+a(1),280+b(1);20+a(1),280+b(1);18+a(1),278+b(1);2+a(1),278+b(1)

      PLOT AREA: 0+a(1),260+b(1);20+a(1),260+b(1);18+a(1),258+b(1);2+a(1),258+b(1)

      PLOT AREA: 20+a(1),300+b(1);40+a(1),300+b(1);38+a(1),298+b(1);22+a(1),298+b(1)

      

      SET AREA COLOR 99

      PLOT AREA: 20+a(1),300+b(1);20+a(1),280+b(1);18+a(1),282+b(1);18+a(1),298+b(1)

      PLOT AREA: 20+a(1),280+b(1);20+a(1),260+b(1);18+a(1),262+b(1);18+a(1),278+b(1)

      PLOT AREA: 20+a(1),260+b(1);20+a(1),240+b(1);18+a(1),242+b(1);18+a(1),258+b(1)

      PLOT AREA: 40+a(1),300+b(1);40+a(1),280+b(1);38+a(1),282+b(1);38+a(1),298+b(1)

      

      SET AREA COLOR 38

      PLOT AREA: 0+a(1),280+b(1);2+a(1),282+b(1);18+a(1),282+b(1);20+a(1),280+b(1)

      PLOT AREA: 0+a(1),260+b(1);2+a(1),262+b(1);18+a(1),262+b(1);20+a(1),260+b(1)

      PLOT AREA: 0+a(1),240+b(1);2+a(1),242+b(1);18+a(1),242+b(1);20+a(1),240+b(1)

      PLOT AREA: 20+a(1),280+b(1);22+a(1),282+b(1);38+a(1),282+b(1);40+a(1),280+b(1)

      

      

      

      

      SET AREA COLOR 70

      PLOT AREA: 60+a(2),300+b(2);62+a(2),298+b(2);62+a(2),282+b(2);60+a(2),280+b(2)

      PLOT AREA: 80+a(2),300+b(2);82+a(2),298+b(2);82+a(2),282+b(2);80+a(2),280+b(2)

      PLOT AREA: 100+a(2),300+b(2);102+a(2),298+b(2);102+a(2),282+b(2);100+a(2),280+b(2)

      PLOT AREA: 120+a(2),300+b(2);122+a(2),298+b(2);122+a(2),282+b(2);120+a(2),280+b(2)

      

      SET AREA COLOR 189

      PLOT AREA: 60+a(2),300+b(2);80+a(2),300+b(2);78+a(2),298+b(2);62+a(2),298+b(2)

      PLOT AREA: 80+a(2),300+b(2);100+a(2),300+b(2);98+a(2),298+b(2);82+a(2),298+b(2)

      PLOT AREA: 100+a(2),300+b(2);120+a(2),300+b(2);118+a(2),298+b(2);102+a(2),298+b(2)

      PLOT AREA: 120+a(2),300+b(2);140+a(2),300+b(2);138+a(2),298+b(2);122+a(2),298+b(2)

      

      SET AREA COLOR 196

      PLOT AREA: 80+a(2),300+b(2);80+a(2),280+b(2);78+a(2),282+b(2);78+a(2),298+b(2)

      PLOT AREA: 100+a(2),300+b(2);100+a(2),280+b(2);98+a(2),282+b(2);98+a(2),298+b(2)

      PLOT AREA: 120+a(2),300+b(2);120+a(2),280+b(2);118+a(2),282+b(2);118+a(2),298+b(2)

      PLOT AREA: 140+a(2),300+b(2);140+a(2),280+b(2);138+a(2),282+b(2);138+a(2),298+b(2)

      

      SET AREA COLOR 199

      PLOT AREA: 60+a(2),280+b(2);62+a(2),282+b(2);78+a(2),282+b(2);80+a(2),280+b(2)

      PLOT AREA: 80+a(2),280+b(2);82+a(2),282+b(2);98+a(2),282+b(2);100+a(2),280+b(2)

      PLOT AREA: 100+a(2),280+b(2);102+a(2),282+b(2);118+a(2),282+b(2);120+a(2),280+b(2)

      PLOT AREA: 120+a(2),280+b(2);122+a(2),282+b(2);138+a(2),282+b(2);140+a(2),280+b(2)

      

      

      

      

      

      SET AREA COLOR 187

      PLOT AREA: 180+a(3),300+b(3);182+a(3),298+b(3);182+a(3),282+b(3);180+a(3),280+b(3)

      PLOT AREA: 200+a(3),300+b(3);202+a(3),298+b(3);202+a(3),282+b(3);200+a(3),280+b(3)

      PLOT AREA: 220+a(3),300+b(3);222+a(3),298+b(3);222+a(3),282+b(3);220+a(3),280+b(3)

      PLOT AREA: 240+a(3),300+b(3);242+a(3),298+b(3);242+a(3),282+b(3);240+a(3),280+b(3)

      PLOT AREA: 200+a(3),280+b(3);202+a(3),278+b(3);202+a(3),262+b(3);200+a(3),260+b(3)

      

      SET AREA COLOR 28

      PLOT AREA: 200+a(3),300+b(3);200+a(3),280+b(3);198+a(3),282+b(3);198+a(3),298+b(3)

      PLOT AREA: 220+a(3),300+b(3);220+a(3),280+b(3);218+a(3),282+b(3);218+a(3),298+b(3)

      PLOT AREA: 240+a(3),300+b(3);240+a(3),280+b(3);238+a(3),282+b(3);238+a(3),298+b(3)

      PLOT AREA: 260+a(3),300+b(3);260+a(3),280+b(3);258+a(3),282+b(3);258+a(3),298+b(3)

      PLOT AREA: 220+a(3),280+b(3);220+a(3),260+b(3);218+a(3),262+b(3);218+a(3),278+b(3)

      

      SET AREA COLOR 163

      PLOT AREA: 180+a(3),300+b(3);200+a(3),300+b(3);198+a(3),298+b(3);182+a(3),298+b(3)

      PLOT AREA: 200+a(3),300+b(3);220+a(3),300+b(3);218+a(3),298+b(3);202+a(3),298+b(3)

      PLOT AREA: 220+a(3),300+b(3);240+a(3),300+b(3);238+a(3),298+b(3);222+a(3),298+b(3)

      PLOT AREA: 240+a(3),300+b(3);260+a(3),300+b(3);258+a(3),298+b(3);242+a(3),298+b(3)

      PLOT AREA: 200+a(3),280+b(3);220+a(3),280+b(3);218+a(3),278+b(3);202+a(3),278+b(3)

      

      SET AREA COLOR 45

      PLOT AREA: 180+a(3),280+b(3);182+a(3),282+b(3);198+a(3),282+b(3);200+a(3),280+b(3)

      PLOT AREA: 200+a(3),280+b(3);202+a(3),282+b(3);218+a(3),282+b(3);220+a(3),280+b(3)

      PLOT AREA: 220+a(3),280+b(3);222+a(3),282+b(3);238+a(3),282+b(3);240+a(3),280+b(3)

      PLOT AREA: 200+a(3),260+b(3);202+a(3),262+b(3);218+a(3),262+b(3);220+a(3),260+b(3)

      PLOT AREA: 240+a(3),280+b(3);242+a(3),282+b(3);258+a(3),282+b(3);260+a(3),280+b(3)

      

      

      

      

      

      SET AREA COLOR 52

      PLOT AREA: 260+a(4),280+b(4);262+a(4),282+b(4);278+a(4),282+b(4);280+a(4),280+b(4)

      PLOT AREA: 280+a(4),280+b(4);282+a(4),282+b(4);298+a(4),282+b(4);300+a(4),280+b(4)

      PLOT AREA: 260+a(4),260+b(4);262+a(4),262+b(4);278+a(4),262+b(4);280+a(4),260+b(4)

      PLOT AREA: 280+a(4),260+b(4);282+a(4),262+b(4);298+a(4),262+b(4);300+a(4),260+b(4)

      PLOT AREA: 280+a(4),240+b(4);282+a(4),242+b(4);298+a(4),242+b(4);300+a(4),240+b(4)

      

      SET AREA COLOR 121

      PLOT AREA: 260+a(4),300+b(4);260+a(4),280+b(4);262+a(4),282+b(4);262+a(4),298+b(4)

      PLOT AREA: 280+a(4),300+b(4);280+a(4),280+b(4);282+a(4),282+b(4);282+a(4),298+b(4)

      PLOT AREA: 260+a(4),280+b(4);260+a(4),260+b(4);262+a(4),262+b(4);262+a(4),278+b(4)

      PLOT AREA: 280+a(4),280+b(4);280+a(4),260+b(4);282+a(4),262+b(4);282+a(4),278+b(4)

      PLOT AREA: 280+a(4),260+b(4);280+a(4),240+b(4);282+a(4),242+b(4);282+a(4),258+b(4)

      

      SET AREA COLOR 186

      PLOT AREA: 280+a(4),300+b(4);280+a(4),280+b(4);278+a(4),282+b(4);278+a(4),298+b(4)

      PLOT AREA: 300+a(4),300+b(4);300+a(4),280+b(4);298+a(4),282+b(4);298+a(4),298+b(4)

      PLOT AREA: 280+a(4),280+b(4);280+a(4),260+b(4);278+a(4),262+b(4);278+a(4),278+b(4)

      PLOT AREA: 300+a(4),280+b(4);300+a(4),260+b(4);298+a(4),262+b(4);298+a(4),278+b(4)

      PLOT AREA: 300+a(4),260+b(4);300+a(4),240+b(4);298+a(4),242+b(4);298+a(4),258+b(4)

      

      SET AREA COLOR 138

      PLOT AREA: 260+a(4),300+b(4);280+a(4),300+b(4);278+a(4),298+b(4);262+a(4),298+b(4)

      PLOT AREA: 280+a(4),300+b(4);300+a(4),300+b(4);298+a(4),298+b(4);282+a(4),298+b(4)

      PLOT AREA: 260+a(4),280+b(4);280+a(4),280+b(4);278+a(4),278+b(4);262+a(4),278+b(4)

      PLOT AREA: 280+a(4),280+b(4);300+a(4),280+b(4);298+a(4),278+b(4);282+a(4),278+b(4)

      PLOT AREA: 280+a(4),260+b(4);300+a(4),260+b(4);298+a(4),258+b(4);282+a(4),258+b(4)

      

      

      

      

      SET AREA COLOR 191

      PLOT AREA: 140+a(5),300+b(5);140+a(5),280+b(5);142+a(5),282+b(5);142+a(5),298+b(5)

      PLOT AREA: 160+a(5),300+b(5);160+a(5),280+b(5);162+a(5),282+b(5);162+a(5),298+b(5)

      PLOT AREA: 140+a(5),280+b(5);140+a(5),260+b(5);142+a(5),262+b(5);142+a(5),278+b(5)

      

      SET AREA COLOR 17

      PLOT AREA: 160+a(5),280+b(5);162+a(5),282+b(5);178+a(5),282+b(5);180+a(5),280+b(5)

      PLOT AREA: 140+a(5),280+b(5);142+a(5),282+b(5);158+a(5),282+b(5);160+a(5),280+b(5)

      PLOT AREA: 140+a(5),260+b(5);142+a(5),262+b(5);158+a(5),262+b(5);160+a(5),260+b(5)

      

      SET AREA COLOR 183

      PLOT AREA: 180+a(5),300+b(5);180+a(5),280+b(5);178+a(5),282+b(5);178+a(5),298+b(5)

      PLOT AREA: 160+a(5),300+b(5);160+a(5),280+b(5);158+a(5),282+b(5);158+a(5),298+b(5)

      PLOT AREA: 160+a(5),280+b(5);160+a(5),260+b(5);158+a(5),262+b(5);158+a(5),278+b(5)

      

      SET AREA COLOR 167

      PLOT AREA: 160+a(5),300+b(5);180+a(5),300+b(5);178+a(5),298+b(5);162+a(5),298+b(5)

      PLOT AREA: 140+a(5),300+b(5);160+a(5),300+b(5);158+a(5),298+b(5);142+a(5),298+b(5)

      PLOT AREA: 140+a(5),280+b(5);160+a(5),280+b(5);158+a(5),278+b(5);142+a(5),278+b(5)

      

      

      

      

85    SET AREA COLOR 1

      PLOT AREA: 140+a(6),280+b(6);140+a(6),300+b(6);160+a(6),300+b(6);160+a(6),280+b(6)

      

      

86    FOR k=1 TO 150000

87    NEXT k

      

140    IF b(m)>h-300 THEN GOTO 330

270    GOTO 60

330    LET b(m)=h-300

       

       IF 140+a(6)=<5 and 140+a(6)>=-5 THEN GOTO 1610

       

       IF 140+a(6)=<45 and 140+a(6)>=35 THEN GOTO 1610

       

       IF 140+a(6)=<85 and 140+a(6)>=75 THEN GOTO 1610

       

       IF 140+a(6)=<125 and 140+a(6)>=115 THEN GOTO 1610

       

       IF 140+a(6)=<165 and 140+a(6)>=155 THEN GOTO 1610

       

       IF 140+a(6)=<205 and 140+a(6)>=195 THEN GOTO 1610

       

       IF 140+a(6)=<245 and 140+a(6)>=235 THEN GOTO 1610

       

       IF 140+a(6)=<285 and 140+a(6)>=275 THEN GOTO 1610

       

       

1450    RANDOMIZE

        LET j=INT(3*RND)+1

        

1500 NEXT m

     

1550 GOTO 20   

     

1610 clear

     

     rem SET AREA COLOR 0

     rem    PLOT AREA: 0,300;300,300;300,280;0,280

     

2000 END

   

1532042368


ポチの散歩


 5 SET WINDOW 0,300,300,0

  

50 LET a=-263

   LET b=2

   LET i=1

   LET j=1

   

60 CLEAR

70 LET a=a+i

   LET b=b+0

   

   

85 SET AREA COLOR 8

   

   

   

   

87 PLOT AREA: 100,50; 30,70; 5,110; 100,160; 210,110; 180,70; 160,65; 160,35; 150,30; 140,35; 140,60

   PLOT AREA: 30,130; 100,165; 180,130; 175,210; 100,240; 35,210

   

   SET LINE WIDTH 5

   PLOT LINES : a+205,b+200; a+250,b+200; a+250,b+240; a+205,b+240; a+205,b+200

   PLOT LINES : a+210,230; a+210,260; a+150,260; a+150,230; a+210,230

   

   PLOT LINES : a+160,250; a+160,280; a+150,280; a+150,250; a+160,250

   PLOT LINES : a+175,250; a+175,280; a+165,280; a+165,250; a+175,250

   PLOT LINES : a+185,250; a+185,280; a+175,280; a+175,250; a+185,250

   PLOT LINES : a+200,250; a+200,280; a+190,280; a+190,250; a+200,250

   

   PLOT LINES : a+243,190; a+260,190; a+260,210; a+243,210; a+243,190

   SET LINE WIDTH 6

   PLOT LINES : a+222,220; a+223,220

   PLOT LINES : a+240,220; a+241,220

   

   

   SET LINE WIDTH 5

   PLOT LINES : a+230,225; a+260,225; a+260,242; a+230,242; a+230,225

   

   SET LINE WIDTH 5

   PLOT LINES : a+160,225; a+160,240; a+130,240; a+130,225; a+160,225

   SET AREA COLOR 1

   PLOT AREA : a+193,190; a+220,190; a+220,210; a+193,210; a+193,190

   

90 FOR ti=1 TO 420000

95 NEXT ti

100 IF a>170 THEN GOTO 50

150 GOTO 60

    

 END

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