   	>                                                                2>                                                                                                                                                                                                                                                                                                                                                                       à                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    à                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                à                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        À À                                                                                                             ÀÀÌÌÌÌÌÌÌÀÌÀ                                                                                                          ÌÀ À  ÌÌÌ                                                                                                        ÀÌÀ          À À                                                                                                     À               Ì                                                                                                   Ì               ÀÀÌ                                                                                                 ÀÌÀ      À À      ÌÌ                                                                                                     ÀÀÌÀÌÌÌÌÌ     À                                               À                                              ÀÀÌ    Ì À ÀÀÌÀ     Ì                                             Ì  À                                          Ì  ÀÀÌÀ         Ì   ÀÀ                                         ÀÌ   À   Ì                                        ÀÀ    Ì           ÀÀÌÀ   Ì                                                À                                         Ì   À               Ì  À 0                                       À  À  À    À                                     À   ÀÌ    À À À À     À   ÀÌ                                  ÀÌ    Ì Ì Ì   Ì                                          ÌÌÌÌÌÌ    ÀÌ   <                                    À  À  À  À  À À                                   ÀÌ   ÀÌ   ÀÌÀ À À ÀÀÌÀ    À  ÃÌ                                     Ì          Ì                                      À   À          Ì    Ì0                                      À  À       À                                   ÀÌ   Ì   Ì           À    ÀÀ                  à                À     Ì ÀÌ  À                                       ÀÀ   À             ÀÌ    < À                              ÀÌ Ì À  À     Ì  ÀÌ ÀÌ                                 Ì  ÀÌ     À À À    À   Ã                                    À  Ì        À                                   ÀÌ  ÀÀ      ÀÌÌÌÌ   Ì 0 À                                       À          À                                  À  Ì  ÀÌ   ÀÌ À À ÀÀÌ   À  Ì                                         ÀÌ  ÀÌ   Ì  À                              Ì  À  À   À         À   À<  ÀÀ                                 À À           À À   Ì                             À  À   Ì   Ì          Ì     Ì                              ÌÌ À          Ì    À                            À   Ì ÀÀ   À           À  0ÀÌ  À                             ÀÌ  À À  Ì  À     À       ÀÌ                         Ì  À  Ì  ÀÌ          ÀÌ     À                                    À   Ì  ÀÌ     ÀÌ                             À  À   À      ÀÀÌÀÌÀÌ    0     Ì                                         À            À                             Ì À   ÀÌ    Ì      Ã ÀÌ  À                              À À                  À    Ì                        ÀÌ  À  Ì     À À      ÀÌ  0À                                    ÌÌ  À            Ì   À              à                À  À    Ì        À  À    À                              À À ÀÌ Ì  ÀÌ       À                               À  ÀÌ    Ì  À          Ì<  Ì ÀÌ                                      À          ÀÌ                               Ì   ÀÌ  À  ÀÌ   À      À  À                                À                         ÀÌ   À                       À  À    À       ÌÀÌ À  0   À  À                             Ì                  À       À Ì                        Ì   Ì À     À   Ì ÀÌ  Ì Ì                            ÀÀÌ                  Ì   À   ÌÀ                      ÀÌ  À ÀÌ  À  Ì        À 0    À  À                                                À    Ì  À                                 À  ÀÌ                                                ÀÌ                    À                              ÀÌ    ÀÌ             0À      ÀÌ                                ÀÌ                                              ÀÌ                   Ì ÀÌ ÀÌ                                    ÀÌ     @DD          ÀÌ                           À  ÀÌ    ÀÌ      @DD 0 À       À                                    ÀÌ    DDD      À    À                       À  Ì   À        DDD        À  Ì                            À           @DDDD      Ì    ÌÀ                     Ì À  À  Ì    ÀÌ  @DDD4      À  Ì À                           À ÌÀ          DDDDD     À     À Ì                 à  À  À  Ì À  À     DDDDC  À  Ì À                              ÌÀ Ì        @DDDDDD       À     À                     À  Ì À  À  Ì    @DDD4DD  Ì À     À                          À   À À       @DDDDDD       Ì                          Ì À  À  Ì À     @DDDCDD  À     À  Ì                                Ì      @DDD3CD       À À                         À  À  Ì À     À  @DD4DDD     À  Ì À à                               À       @DD433D         ÌÀ                       À  Ì À     À  Ì @DDCDDD     Ì À  À                        à    À     À     @DD433D         À Ì                      Ì À     À  Ì À  @D4DDDD    À  À  Ì                            Ì    Ì     DD433          À                       À     À  Ì À      DCDDD ÀÌ     Ì À                             À    À      @DD3C   ÀÌ                              À  À  Ì À         0DDDD       À                               ÀÌ          DDD    ÀÌ                           Ì Ì À       À  DDD     ÀÌ   ÀÌ                           ÀÌ             @DD       ÀÌ   ÀÌ                     À  À    ÀÌ ÀÌ  Ì0 @DD                                            À                    ÀÌ                            ÀÌ      À             ÀÌ                                 À   Ì   À                                         ÀÌ ÀÌ           0       ÀÌ  À                                   Ì À    Ì                 ÀÌ                            À  À     À         Ì À  ÀÌ                              À       À                                              À  Ì Ì ÀÌ 0 Ì  À     À  Ì                                  ÀÌ                                                 À  Ì À  À     À ÀÌ Ì      À                                       ÀÌ          À                                Ì À     À   0      À   ÀÌ  À  ÀÌ                                    À       ÀÌ   ÌÀÌ À À                         À    ÀÌ  Ì  Ã         À   Ì   À                           ÀÌ À    Ì           À   ÌÌÀÌ                         ÀÌ    À  0À         Ì   À  À                                Ì   À                  À À                         ÀÌ       À  ÀÌ      À À      Ì À                         à    À            À                                      Ì àÀ  ÀÌ  Ì<      Ì   ÀÌ   À  Ì                                ÀÌ     ÀÌ   Ì  À                                  Ì Ì    À   ÀÌÀÌÀÌÀ à    À   À    à                                À     À   Ì À À                             À  À     0ÀÌ          ÀÌ   Ì À                                 À     Ì         À  ÌÌ                               À  ÀÌ  À           À   ÀÀ  Ì                              À Ì  À À           À À À                           ÀÌ  Ì  <   Ì          Ì   Ì  À                               ÌÀ   Ì   ÀÌ  ÀÌ         Ì                            ÀÀ  ÀÃ   À         À   À  À                                À     À          À      À                               Ì 0À   ÀÌÀ À À ÀÌ   ÀÌ   Ì                                       À         Ì À                                ÀÌ  À   Ì   ÌÌÌÌÌ      ÀÀ            à                       ÀÌ   Ì    À  À  Ì                                  À0  À    À À À     ÀÌ   Ì                                        À  ÀÌ  Ì    À                                 ÀÌ  Ì   ÀÌ             À   ÀÀ                                    À   À       À  À   À                                   0À    À            Ì   Ì  À                                 Ì  Ì          Ì  Ì                                  Ì    Ì         À   À                                    À   À  À  À  À  À   À                                 ÀÌ0 À    ÀÀÌÀ À À ÀÀÌ   ÀÌ   ÀÌ                                        Ì Ì Ì                                          ÀÌ     ÌÌÌÌÌÌ       à                                    À  À  À  À                                        0Ì   À     À À À À    ÀÌ   À              à                        Ì          ÀÌ                                     À   Ì              À    Ì                                      À   À   À                                        0  Ì  ÀÀÌÀ            Ì   ÀÀ                                           Ì  Ì                                        à ÀÀ    Ì        ÀÀÌÀ   Ì                                           À   À                                       0    Ì    ÀÀÌÀ À  Ì   ÀÌÀ                                                                                             À      ÌÌÌÌÌÌÀÌÀ                                                                                              0      ÀÌ     À À      ÀÀÌ                                                                                                 ÌÌÀ                Ì                                                                                         0         Ì              À                                                                                                     À À          ÀÀÌ                                                                                           0            ÀÌÌ À À Ì                                                                                                        ÀÀÌÀÌÌÌÌÌÌÌÀ                                                                                                              À À                                                                                                                                                                                                                                                                                                                                                 à                                                                                                                                                                                                   ÀÌÌ      ÀÀ                                                ÌÌ    Ì                                                      ÌÀÀÀÌ  ÌÌÀÌ ÌÌ                                         ÀÌ  ÌÌÀÌÌÀÀÀÌÀÌ                                             ÌÀÀÀÀÀÀ ÌÀÌ                                          ÌÀ Ì Ì ÀÀÀÀÀ                                           ÀÌÀÀÀÀÀÀ Ì Ì                                           ÀÌÀ Ì Ì ÀÀÀ À                                            Ì ÌÀÌÀ ÌÀÌ Ì                                          ÀÌ ÌÌ ÀÌ ÌÀ À                                                 À                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 Ì ÀÀÌÌ  ÀÌ                                               ÀÌ ÌÀÌÌ  ÀÌ    ÀÌ                                       ÀÌ ÌÀ   ÀÌÌ Ì ÌÀÌ ÌÌ                                     ÌÀÀ  Ì  ÀÌÌ ÌÌ                                         Ì ÀÀÌ  ÀÌÌÀÀÀÀÀÀÀÌ                                     Ì ÌÌ À  ÀÌÌÀÀ Ì                                        Ì À  Ì  ÀÀÀÀÀÀÀÀÀ ÀÌ                                   À   ÀÀ Ì  ÀÀÀÀÀÌÌ                                        ÀÌÌÌÀÌ  À À Ì ÌÀÀÀÌ                                   ÀÌÌ Ì Ì  À À Ì                                                                                                                                                                                                                                                                 à                                      à                       ¬	 -- title: planets moons
-- author: potato imaginator
-- desc: Press 'Z' to start animation
-- script: lua

function BOOT()
 rnd=math.random
 cos=math.cos
 sin=math.sin
 pi=math.pi
 t=0
 f=false
 d=0
 p={}
 for i=1,50 do
  p[i]={x=rnd(0,239),y=rnd(0,135)}
 end
end

function draw_p()
 for i=1,#p do
  pix((p[i].x-d)%240,p[i].y,14)
 end
end

function TIC()
 cls()
 draw_p()
 circ(120-d,68,4,13)
 print('Mercury',120-t,115,12)
 print('0 Moons',120-t,125,12)
 circ(120-d+120,68,4,4)
 print('Venus',120-t+120,115,12)
 print('0 Moons',120-t+120,125,12)
 circ(120-d+240,68,4,10)
 circ(120-d+240+2,68+2,2,5)
 circ
 (360-d+16*cos(t/16),
  68+16*sin(t/16),2,12)
 print('Earth',120-d+240,115,12)
 print('1 Moon',120-d+240,125,12)
 circ(120-d+360,68,4,2)
 circ
 (480-d+16*cos(t/16),
  68+16*sin(t/16),2,12)
 circ
 (480-d-16*cos(t/16),
  68-16*sin(t/16),2,12)
 print('Mars',120-d+360,115,12)
 print('2 Moons',120-d+360,125,12)
 circ(600-d,68,6,4)
 circ(600-d+2,68+2,2,3)
 for j=1,5 do
  for i=0,6*j do
	  circ
	  (600-d+(10+4*j)*cos(t/32+2*pi*i/6/j),
	   68+(10+4*j)*sin(t/32+2*pi*i/6/j),1,12)
		end
 end
 for i=0,24 do
  circ
  (600-d+34*cos(t/32+2*pi*i/25),
   68+34*sin(t/32+2*pi*i/25),1,12)
 end
 print('Jupiter',600-d,115,12)
 print('115 Moons',600-d,125,12)
 circ(720-d,68,6,4)
 for j=1,6 do
  for i=0,14*j do
   if i<=14*6-1 then
	   circ
	   (720-d+(6+6*j)*cos(t/32+2*pi*i/14/j),
	    68+(6+6*j)*sin(t/32+2*pi*i/14/j),1,12)
   end
  end
 end
 line
 (720-d-40,68+40,720-d+40,68-40,3)
 print('Saturn',720-d,115,12)
 print('293 Moons',720-d,125,12)
 circ(840-t,68,6,11)
 for j=1,2 do
  for i=0,6*j do
	  circ
	  (840-d+(10+8*j)*cos(t/32+2*pi*i/6/j),
	   68+(10+8*j)*sin(t/32+2*pi*i/6/j),1,12)
		end
 end
 for i=0,10 do
  circ
  (840-d+34*cos(t/32+2*pi*i/11),
   68+34*sin(t/32+2*pi*i/11),1,12)
 end
 line(840-d-30,68+30,840-d+30,68-30,10)
 print('Uranus',840-d,115,12)
 print('29 Moons',840-d,125,12)
 circ(960-d,68,6,10)
 for j=1,2 do
  for i=0,5*j do
	  circ
	  (960-d+(10+8*j)*cos(t/32+2*pi*i/5/j),
	   68+(10+8*j)*sin(t/32+2*pi*i/5/j),1,12)
		end
 end
 circ
 (960-d+34*cos(t/32),68+34*sin(t/32),
  1,12)
 line
 (960-d-30,68+30,960-d+30,68-30,11)
 print('Neptune',960-d,115,12)
 print('16 Moons',960-d,125,12)
 circ(1080-d,68,4,13)
 for i=0,4 do
  circ
  (1080-d+12*cos(t/32+2*pi*i/5),
   68+12*sin(t/32+2*pi*i/5),1,12)
 end
 print('Pluto',1080-d,115,12)
 print('5 Moons',1080-d,125,12)
 if f then
	 t=t+1/2
	 if d<960 then
	  d=d+1/2
	 end
	end
 if btnp(4) then
  f=true
 end
end
