DECLARE EXTERNAL PICTURE moon

OPTION ANGLE DEGREES

LET m=0

20 SET WINDOW 0,300,0,300

   DATA 0,5,10,15,25,40,80,1000,1900,1920,1930,1960,1980,1990,2000,2000,2010,2020,2030,2040,2070,3000,-80,-40,-25,-15,-10,-5,0

   READ c

   LET m=m+1

   IF m= 29 THEN goto 400

   FOR ti=1 TO 1000000

   NEXT ti

   SET AREA COLOR 1

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

   IF c>1000 THEN GO TO 100

   IF c>2000 THEN GO TO 200

   IF c<0 THEN GO TO 300

   GOTO 80

80 DRAW moon(c)WITH ROTATE(0)*SCALE(1)*SHIFT(0,0)

   GOTO 20

100 LET c=c-1000

    DRAW moon2(c)WITH ROTATE(0)*SCALE(1)*SHIFT(0,0)

    GOTO 20

200 LET c=c-2000

    DRAW moon2(c) WITH ROTATE(180)*SCALE(1)*SHIFT(0,0)

    GOTO 20

300 DRAW moon(c) WITH ROTATE(0)*SCALE(1)*SHIFT(0,0)

    GOTO 20

400 RESTORE

    LET m=0

    GOTO 20

 END

 EXTERNAL PICTURE moon(c)

    SET AREA COLOR 1

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

    SET COLOR 1

    SET LINE WIDTH 150

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

    REM SET AREA STYLE "HATCH"

    REM SET AREA STYLE INDEX 5

    SET COLOR "yellow"

    DRAW disk WITH SCALE (49)*SHIFT (150,150)

    REM SET AREA STYLE "SOLID"

    SET COLOR 1

    DRAW disk WITH SCALE (SQR(c^2+50^2))*SHIFT (150-c,150)

 END PICTURE

 EXTERNAL PICTURE moon2(c)

    LET c=c-1000

    SET COLOR 1

    DRAW disk WITH SCALE (50)*SHIFT (150,150)

    SET COLOR "yellow"

    DRAW disk WITH SCALE (SQR(c^2+50^2))*SHIFT (150-c,150)

    SET COLOR 1

    SET LINE WIDTH 150

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

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

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

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

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

 END PICTURE

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 "絵の大きさは？（１以上）"

      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

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