00010 REM MICROBEE SOLAR SYSTEM 00020 REM NINE PLANETS - PCG SPRITE VERSION 00025 STRS(500) 00030 CLS 00040 DIM H(9),J(9),A(9),S(9),T(9),O(9) 00050 DIM P(35),Q(37),W(49) 00060 F=256:G=128 00065 V=1 00066 Q(36)=3 00067 Q(37)=1 00070 RESTORE 15010 00080 FOR I=1 TO 9 00090 READ H(I),J(I),A(I),S(I) 00100 T(I)=0 00110 O(I)=0 00120 NEXT I 00130 GOSUB 1000 00140 GOSUB 1200 00145 GOSUB 3000 00150 GOSUB 1600 00160 D=USR(42925) 00165 GOSUB 4000 00170 FOR I=1 TO 9 00180 GOSUB 500 00190 POKE E,K+128 00200 O(I)=E 00210 NEXT I 00220 GOTO 280 00280 GOSUB 4200 00290 IF V<0 THEN 280 00300 FOR I=1 TO 9 00310 T(I)=T(I)+1 00320 IF T(I)=0 THEN 370 00360 A(I)=A(I)+36 00370 M=O(I) 00380 GOSUB 500 00390 IF E<>M THEN 420 00400 POKE E,K+128 00410 GOTO 450 00420 O(I)=E 00430 POKE E,K+128 00440 GOSUB 1800 00450 NEXT I 00460 GOTO 280 00500 REM CALCULATE PLANET I 00510 B=F+H(I)*P(A(I))/100 00520 C=G+J(I)*Q(A(I))/100 00530 X=B/8 00540 Y=C/16 00550 R=B-X*8 00560 U=C-Y*16 00570 L=R/2 00580 N=U/4 00590 K=68+N*4+L 00600 IF I=5 THEN 640 00610 IF I=6 THEN 670 00620 GOTO 684 00640 L=R/4 00650 K=84+N*2+L 00660 GOTO 684 00670 L=R/4 00680 K=100+N*2+L 00684 IF Q(37)<>2 THEN 700 00685 IF I<>Q(36) THEN 700 00686 IF I=5 THEN 690 00687 IF I=6 THEN 695 00688 K=K+40 00689 GOTO 700 00690 K=K+24 00691 GOTO 700 00695 K=K+8 00696 GOTO 700 00700 E=61440+Y*64+X 00710 RETURN 00990 REM ---- ORBIT TABLE / PCG SETUP ---- 01000 REM LOAD ORBIT TABLE 01010 RESTORE 15110 01020 FOR Z=0 TO 35 01030 READ P(Z),Q(Z) 01040 NEXT Z 01050 RETURN 01200 REM BUILD PCG ARTWORK 01210 REM LOAD SUN CHARACTERS 64 TO 67 01220 RESTORE 15510 01230 FOR K=64 TO 67 01240 E=63488+K*16 01250 FOR Z=0 TO 15 01260 READ B 01270 POKE E+Z,B 01280 NEXT Z 01290 NEXT K 01300 REM FOUR HORIZONTAL DOT POSITIONS 01310 W(0)=192 01320 W(1)=48 01330 W(2)=12 01340 W(3)=3 01350 REM CHARACTERS 68 TO 83 = PLANET PHASES 01360 FOR N=0 TO 3 01370 FOR L=0 TO 3 01380 K=68+N*4+L 01390 E=63488+K*16 01400 FOR Z=0 TO 15 01410 POKE E+Z,0 01420 NEXT Z 01430 R=1+N*4 01440 POKE E+R,W(L) 01450 POKE E+R+1,W(L) 01460 NEXT L 01470 NEXT N 01480 RETURN 01590 REM ---- SCREEN DRAW / RESTORE ---- 01600 REM DRAW 2 BY 2 CENTRED SUN 01610 E=61440+7*64+31 01620 POKE E,192 01630 POKE E+1,193 01640 POKE E+64,194 01650 POKE E+65,195 01660 RETURN 01700 REM RESTORE BACKGROUND CELL 01710 IF E=61919 THEN POKE E,192:RETURN 01720 IF E=61920 THEN POKE E,193:RETURN 01730 IF E=61983 THEN POKE E,194:RETURN 01740 IF E=61984 THEN POKE E,195:RETURN 01750 POKE E,32 01760 RETURN 01800 REM RESTORE OLD PLANET CELL 01810 D=I:C=0 01820 FOR Z=1 TO 9 01830 IF Z=D THEN 1850 01840 IF O(Z)<>M THEN 1850 01845 C=Z 01850 NEXT Z 01860 IF C=0 THEN 1920 01870 I=C 01880 GOSUB 500 01890 POKE E,K+128 01900 I=D 01910 RETURN 01920 E=M 01930 GOSUB 1700 01940 I=D 01950 RETURN 02990 REM ---- JUPITER / SATURN PCGS ---- 03000 REM BUILD JUPITER AND SATURN 03010 W(0)=1:W(1)=2:W(2)=4:W(3)=8 03020 REM JUPITER CHARACTERS 84 TO 99 03030 FOR N=0 TO 3 03040 FOR L=0 TO 1 03050 K=84+N*2+L 03060 E=63488+K*16 03070 FOR Z=0 TO 15 03080 POKE E+Z,0 03090 NEXT Z 03100 RESTORE 15610 03110 FOR Z=0 TO 5 03120 READ B 03130 NEXT Z 03140 FOR Z=0 TO 5 03150 READ B 03160 R=N*3 03170 IF N<3 THEN 3190 03180 R=10 03190 POKE E+R+Z,B/W(L) 03200 NEXT Z 03210 NEXT L 03220 NEXT N 03230 REM SATURN CHARACTERS 100 TO 107 03240 FOR N=0 TO 3 03250 FOR L=0 TO 1 03260 K=100+N*2+L 03270 E=63488+K*16 03280 FOR Z=0 TO 15 03290 POKE E+Z,0 03300 NEXT Z 03310 RESTORE 15710 03320 FOR Z=0 TO 5 03330 READ B 03340 NEXT Z 03350 FOR Z=0 TO 5 03360 READ B 03370 R=N*3 03380 IF N<3 THEN 3400 03390 R=10 03400 POKE E+R+Z,B/W(L) 03410 NEXT Z 03420 NEXT L 03430 NEXT N 03440 RETURN 03990 REM ---- DASHBOARD / MENU 1 ---- 04000 REM DRAW DASHBOARD 04010 E=62400 04020 FOR Z=0 TO 63 04030 POKE E+Z,32 04040 NEXT Z 04050 IF Q(37)=2 THEN 4800 04060 B=V 04070 IF B>=0 THEN 4090 04080 B=-B 04090 CURS 1,16 04100 PRINT "SOLAR SYSTEM "; 04110 IF V<0 THEN 4140 04120 PRINT "RUN "; 04130 GOTO 4150 04140 PRINT "PAUSE"; 04150 PRINT " SPD";B;"X +/- SPEED SPACE PAUSE R RESET >"; 04155 RETURN 04200 REM READ DASHBOARD KEYS 04210 K0$=KEY$ 04215 IF Q(37)=2 THEN 4900 04220 IF K0$="" THEN 4290 04230 IF K0$=" " THEN 4310 04235 IF K0$=">" THEN 4540 04236 IF K0$="." THEN 4540 04240 IF K0$="+" THEN 4350 04241 IF K0$="=" THEN 4350 04250 IF K0$="-" THEN 4400 04260 IF K0$="R" THEN 4450 04270 IF K0$="r" THEN 4450 04280 GOSUB 4500 04290 RETURN 04300 REM MENU 1 ACTIONS 04310 V=-V 04320 GOSUB 4000 04330 GOSUB 4500 04340 RETURN 04350 IF V<0 THEN 4380 04360 IF V>=4 THEN 4380 04370 V=V+1 04380 GOSUB 4000 04390 GOSUB 4500 04395 RETURN 04400 IF V<0 THEN 4430 04410 IF V<=1 THEN 4430 04420 V=V-1 04430 GOSUB 4000 04440 GOSUB 4500 04445 RETURN 04450 RUN 04500 REM WAIT FOR KEY RELEASE 04510 K0$=KEY$ 04520 IF K0$<>"" THEN 4510 04530 RETURN 04540 REM OPEN MENU 2 04550 Q(37)=2 04555 GOSUB 5400 04557 GOSUB 5300 04560 GOSUB 4000 04570 GOSUB 4500 04580 RETURN 04590 REM ---- MENU 2 / PLANET SELECT ---- 04600 REM PRINT SELECTED PLANET 04610 IF Q(36)=1 THEN 4700 04620 IF Q(36)=2 THEN 4710 04630 IF Q(36)=3 THEN 4720 04640 IF Q(36)=4 THEN 4730 04650 IF Q(36)=5 THEN 4740 04660 IF Q(36)=6 THEN 4750 04670 IF Q(36)=7 THEN 4760 04680 IF Q(36)=8 THEN 4770 04690 IF Q(36)=9 THEN 4780 04695 RETURN 04700 PRINT "MERCURY";:RETURN 04710 PRINT "VENUS";:RETURN 04720 PRINT "EARTH";:RETURN 04730 PRINT "MARS";:RETURN 04740 PRINT "JUPITER";:RETURN 04750 PRINT "SATURN";:RETURN 04760 PRINT "URANUS";:RETURN 04770 PRINT "NEPTUNE";:RETURN 04780 PRINT "PLUTO";:RETURN 04800 REM DRAW MENU 2 04810 CURS 16,16 04820 PRINT "< BACK PLANET:"; 04830 GOSUB 4600 04840 PRINT " +/- SELECT Z ZOOM"; 04850 D=USR(42925) 04860 RETURN 04900 REM MENU 2 KEYS 04910 IF K0$="<" THEN 4950 04911 IF K0$="," THEN 4950 04920 IF K0$="+" THEN 4980 04921 IF K0$="=" THEN 4980 04930 IF K0$="-" THEN 5030 04935 IF K0$="Z" THEN 4942 04936 IF K0$="z" THEN 4942 04940 RETURN 04942 GOSUB 5700 04943 GOSUB 4500 04944 RETURN 04950 GOSUB 5200 04955 Q(37)=1 04960 GOSUB 4000 04970 GOSUB 4500 04975 RETURN 04980 GOSUB 5200 04985 Q(36)=Q(36)+1 04990 IF Q(36)<=9 THEN 5010 05000 Q(36)=1 05010 GOSUB 5400 05012 GOSUB 5300 05015 GOSUB 4000 05020 GOSUB 4500 05025 RETURN 05030 GOSUB 5200 05035 Q(36)=Q(36)-1 05040 IF Q(36)>=1 THEN 5060 05050 Q(36)=9 05060 GOSUB 5400 05062 GOSUB 5300 05065 GOSUB 4000 05070 GOSUB 4500 05080 RETURN 05190 REM ---- SELECTED PLANET HELPERS ---- 05200 REM RESTORE OLD SELECTED PLANET 05210 D=I 05220 Z=Q(36) 05230 Q(36)=0 05240 I=Z 05250 GOSUB 500 05260 POKE E,K+128 05270 Q(36)=Z 05280 I=D 05290 RETURN 05300 REM DRAW NEW SELECTED PLANET 05310 D=I 05320 I=Q(36) 05330 GOSUB 500 05340 POKE E,K+128 05350 O(I)=E 05360 I=D 05370 RETURN 05390 REM ---- SELECTED PCG BANK ---- 05400 REM LOAD SELECTED PLANET PCGS 05410 IF Q(36)=5 THEN 5460 05420 IF Q(36)=6 THEN 5500 05430 RESTORE 16010 05440 C=16 05450 GOTO 5530 05460 RESTORE 16210 05470 C=8 05480 GOTO 5530 05500 RESTORE 16310 05510 C=8 05530 FOR L=0 TO C-1 05540 E=63488+(108+L)*16 05550 FOR Z=0 TO 15 05560 READ B 05570 POKE E+Z,B 05580 NEXT Z 05590 NEXT L 05600 RETURN 05610 REM REDRAW SOLAR SYSTEM 05620 CLS 05630 GOSUB 1600 05640 FOR I=1 TO 9 05650 GOSUB 500 05660 POKE E,K+128 05670 O(I)=E 05680 NEXT I 05690 GOSUB 4000 05695 RETURN 05700 REM PLANET ZOOM - ANY PLANET Q(36) 05705 Q(37)=3 05710 CLS 05711 RESTORE 16910 05712 READ M 05715 RESTORE 17000+Q(36)*100 05720 READ A0$ 05722 CURS 29,3:PRINT A0$; 05724 READ A0$ 05726 CURS 29,5:PRINT "SUN DIST ";A0$; 05728 READ A0$ 05730 CURS 29,7:PRINT "YEAR ";A0$; 05732 READ A0$ 05734 CURS 29,9:PRINT "DAY ";A0$; 05736 READ A0$ 05738 CURS 29,11:PRINT "DIAMETER ";A0$; 05740 READ A0$ 05742 CURS 29,13:PRINT "MOONS ";A0$; 05744 READ A0$ 05746 CURS 29,15:PRINT A0$; 05750 READ C,N 05755 IF N=0 THEN 5800 05760 FOR L=0 TO N-1 05765 U=10+L*8 05770 READ W(U),W(U+1),W(U+2),W(U+3),W(U+4),K 05775 W(U+5)=0 05780 W(U+4)=W(U+4)*4 05782 W(U+1)=W(U+1)*M/100 05784 W(U+7)=0 05785 NEXT L 05800 REM LOAD PLANET PCGS FROM 108 05805 FOR K=108 TO 107+C*2 05810 E=63488+K*16 05815 FOR Z=0 TO 15 05820 READ B 05825 POKE E+Z,B 05830 NEXT Z 05835 NEXT K 05900 REM DRAW PLANET C WIDE BY 2 HIGH 05905 E=61440+7*64+14-C/2 05910 FOR Z=0 TO C-1 05915 POKE E+Z,236+Z 05920 POKE E+64+Z,236+C+Z 05925 NEXT Z 05930 CURS 1,16:PRINT "< BACK"; 05935 D=USR(42925) 05940 IF N=0 THEN 5975 05945 FOR L=0 TO N-1 05950 U=10+L*8 05955 GOSUB 6300 05960 NEXT L 05965 GOSUB 6400 05975 GOSUB 4500 05980 GOSUB 6000 05995 GOSUB 4500 05996 Q(37)=2 05997 GOSUB 5400 05998 GOSUB 5610 05999 RETURN 06000 REM ZOOM ANIMATION - RETURNS ON < OR , 06010 D=0 06020 K0$=KEY$ 06030 IF K0$="<" THEN 6190 06040 IF K0$="," THEN 6190 06050 D=D+1 06060 IF D<8 THEN 6020 06070 D=0 06080 IF N=0 THEN 6020 06090 FOR L=0 TO N-1 06100 U=10+L*8 06110 W(U+5)=W(U+5)+1 06120 IF W(U+5)=0 THEN 6150 06148 W(U+4)=143 06150 GOSUB 6300 06170 NEXT L 06175 GOSUB 6400 06188 GOTO 6020 06190 RETURN 06200 REM MOON PIXEL POSITION - E=CELL ADDRESS K=PCG CODE 06205 Z=W(U+4)/4 06210 C=W(U+4)-Z*4 06215 B=Z+1 06220 IF B<36 THEN 6230 06225 B=0 06230 X=(P(Z)*(4-C)+P(B)*C)/4 06235 X=112+W(U)*X/100 06240 Y=(Q(Z)*(4-C)+Q(B)*C)/4 06245 Y=128+W(U+1)*Y/100 06250 K=X/8 06255 R=Y/16 06260 B=(X-K*8)/2 06265 M=(Y-R*16)/4 06270 E=61440+R*64+K 06275 K=196+M*4+B 06280 RETURN 06300 REM MOVE MOON U - ERASE OLD CELL - HIDE IF CELL IS IN USE 06305 GOSUB 6200 06310 IF E=W(U+7) THEN 6355 06315 IF W(U+7)=0 THEN 6325 06320 POKE W(U+7),32 06325 W(U+7)=0 06330 B=PEEK(E) 06335 IF B=32 THEN 6350 06340 IF B<196 THEN 6360 06345 IF B>211 THEN 6360 06350 W(U+7)=E 06355 W(U+6)=K 06360 RETURN 06400 REM DRAW ALL VISIBLE MOONS 06410 FOR L=0 TO N-1 06420 U=10+L*8 06430 IF W(U+7)=0 THEN 6450 06440 POKE W(U+7),W(U+6) 06450 NEXT L 06460 RETURN 15000 REM PLANET X RADIUS,Y RADIUS,START,SPEED 15010 DATA 30,20,0,1 15020 DATA 42,24,4,2 15030 DATA 54,30,8,3 15040 DATA 68,36,12,5 15050 DATA 92,46,16,12 15060 DATA 118,58,20,20 15070 DATA 146,72,24,32 15080 DATA 174,86,28,45 15090 DATA 206,102,32,60 15100 REM ORBIT LOOKUP TABLE 15110 DATA 100,0 15120 DATA 98,17 15130 DATA 94,34 15140 DATA 87,50 15150 DATA 77,64 15160 DATA 64,77 15170 DATA 50,87 15180 DATA 34,94 15190 DATA 17,98 15200 DATA 0,100 15210 DATA -17,98 15220 DATA -34,94 15230 DATA -50,87 15240 DATA -64,77 15250 DATA -77,64 15260 DATA -87,50 15270 DATA -94,34 15280 DATA -98,17 15290 DATA -100,0 15300 DATA -98,-17 15310 DATA -94,-34 15320 DATA -87,-50 15330 DATA -77,-64 15340 DATA -64,-77 15350 DATA -50,-87 15360 DATA -34,-94 15370 DATA -17,-98 15380 DATA 0,-100 15390 DATA 17,-98 15400 DATA 34,-94 15410 DATA 50,-87 15420 DATA 64,-77 15430 DATA 77,-64 15440 DATA 87,-50 15450 DATA 94,-34 15460 DATA 98,-17 15500 REM SUN PCG DATA - CHARACTERS 64 TO 67 15510 DATA 0,0,0,0,0,0,0,0 15520 DATA 0,0,7,15,31,31,63,63 15530 DATA 0,0,0,0,0,0,0,0 15540 DATA 0,0,224,240,248,248,252,252 15550 DATA 63,63,31,31,15,7,0,0 15560 DATA 0,0,0,0,0,0,0,0 15570 DATA 252,252,248,248,240,224,0,0 15580 DATA 0,0,0,0,0,0,0,0 15600 REM JUPITER MASTER SPRITE 15610 DATA 0,0,0,0,0,0,56,124,254,254,124,56,0,0,0,0 15700 REM SATURN MASTER SPRITE 15710 DATA 0,0,0,0,0,0,16,60,122,188,120,16,0,0,0,0 16000 REM SELECTED NORMAL PLANET PCGS 108 TO 123 16010 DATA 24,228,194,129,0,0,0,0,0,0,0,0,129,66,36,24 16020 DATA 24,52,114,129,0,0,0,0,0,0,0,0,129,66,36,24 16030 DATA 24,44,78,129,0,0,0,0,0,0,0,0,129,66,36,24 16040 DATA 24,39,67,129,0,0,0,0,0,0,0,0,129,66,36,24 16050 DATA 24,36,66,129,0,192,192,0,0,0,0,0,129,66,36,24 16060 DATA 24,36,66,129,0,48,48,0,0,0,0,0,129,66,36,24 16070 DATA 24,36,66,129,0,12,12,0,0,0,0,0,129,66,36,24 16080 DATA 24,36,66,129,0,3,3,0,0,0,0,0,129,66,36,24 16090 DATA 24,36,66,129,0,0,0,0,0,192,192,0,129,66,36,24 16100 DATA 24,36,66,129,0,0,0,0,0,48,48,0,129,66,36,24 16110 DATA 24,36,66,129,0,0,0,0,0,12,12,0,129,66,36,24 16120 DATA 24,36,66,129,0,0,0,0,0,3,3,0,129,66,36,24 16130 DATA 24,36,66,129,0,0,0,0,0,0,0,0,129,194,228,24 16140 DATA 24,36,66,129,0,0,0,0,0,0,0,0,129,114,52,24 16150 DATA 24,36,66,129,0,0,0,0,0,0,0,0,129,78,44,24 16160 DATA 24,36,66,129,0,0,0,0,0,0,0,0,129,67,39,24 16200 REM SELECTED JUPITER PCGS 108 TO 115 16210 DATA 56,124,254,255,124,56,0,0,0,0,0,0,129,66,36,24 16220 DATA 28,62,127,255,62,28,0,0,0,0,0,0,129,66,36,24 16230 DATA 24,36,66,185,124,254,254,124,56,0,0,0,129,66,36,24 16240 DATA 24,36,66,157,62,127,127,62,28,0,0,0,129,66,36,24 16250 DATA 24,36,66,129,0,0,56,124,254,254,124,56,129,66,36,24 16260 DATA 24,36,66,129,0,0,28,62,127,127,62,28,129,66,36,24 16270 DATA 24,36,66,129,0,0,0,0,0,0,56,124,255,254,124,56 16280 DATA 24,36,66,129,0,0,0,0,0,0,28,62,255,127,62,28 16300 REM SELECTED SATURN PCGS 108 TO 115 16310 DATA 24,60,122,189,120,16,0,0,0,0,0,0,129,66,36,24 16320 DATA 24,62,127,223,60,8,0,0,0,0,0,0,129,66,36,24 16330 DATA 24,36,66,145,60,122,188,120,16,0,0,0,129,66,36,24 16340 DATA 24,36,66,137,30,61,94,60,8,0,0,0,129,66,36,24 16350 DATA 24,36,66,129,0,0,16,60,122,188,120,16,129,66,36,24 16360 DATA 24,36,66,129,0,0,8,30,61,94,60,8,129,66,36,24 16370 DATA 24,36,66,129,0,0,0,0,0,0,16,60,251,254,124,24 16380 DATA 24,36,66,129,0,0,0,0,0,0,8,30,189,94,60,24 16900 REM ZOOM MOON SETTINGS - MOONS USE PCGS 68-83 16905 REM SCREEN SHAPE: PIXEL WIDTH/HEIGHT X 100 16910 DATA 70 17000 REM PLANET ZOOM RECORDS 17100-17900 17010 REM 7 TEXTS / WIDTH,MOONS / MOON XR,YR,STEPS,DIR,START,UNUSED / PCGS 17095 REM MERCURY 17100 DATA "MERCURY","0.39 AU" 17102 DATA "88 DAYS","59 DAYS" 17104 DATA "4878 KM","0" 17106 DATA "CLOSEST PLANET TO THE SUN" 17110 DATA 2,0 17120 DATA 0,0,0,0,0,0,0,0,0,0,0,7,24,34,32,36 17125 DATA 0,0,0,0,0,0,0,0,0,0,0,224,88,4,4,36 17130 DATA 34,32,33,24,7,0,0,0,0,0,0,0,0,0,0,0 17135 DATA 4,4,20,24,224,0,0,0,0,0,0,0,0,0,0,0 17195 REM VENUS 17200 DATA "VENUS","0.72 AU" 17202 DATA "225 DAYS","243 DAYS" 17204 DATA "12104 KM","0" 17206 DATA "HOTTEST PLANET - THICK CLOUD" 17210 DATA 4,0 17220 DATA 0,0,0,0,0,0,0,3,4,8,16,16,33,32,32,32 17225 DATA 0,0,0,0,3,60,192,0,62,0,0,0,240,0,0,0 17230 DATA 0,0,0,0,192,60,3,0,15,0,0,0,124,0,0,0 17235 DATA 0,0,0,0,0,0,0,192,160,16,8,8,28,4,4,4 17240 DATA 47,32,32,32,28,16,8,4,3,0,0,0,0,0,0,0 17245 DATA 131,0,0,0,31,0,0,0,248,192,60,3,0,0,0,0 17250 DATA 224,0,0,0,7,0,0,0,62,3,60,192,0,0,0,0 17255 DATA 252,4,4,4,200,8,16,32,192,0,0,0,0,0,0,0 17295 REM EARTH - MOON 17300 DATA "EARTH","1.00 AU" 17302 DATA "365 DAYS","24 HOURS" 17304 DATA "12742 KM","1" 17306 DATA "ONLY PLANET KNOWN TO HAVE LIFE" 17310 DATA 4,1 17311 DATA 56,56,1,-1,0,0 17320 DATA 0,0,0,0,1,3,6,12,9,27,19,55,39,39,35,35 17325 DATA 0,0,31,112,192,0,0,124,254,255,254,252,252,254,254,254 17330 DATA 0,0,248,14,3,0,0,62,255,255,255,63,15,31,63,63 17335 DATA 0,0,0,0,128,192,96,48,144,152,136,140,132,196,132,132 17340 DATA 33,32,32,32,48,16,24,8,12,6,3,1,0,0,0,0 17345 DATA 254,62,28,0,0,0,0,0,0,15,48,192,112,31,0,0 17350 DATA 62,62,62,62,62,31,3,3,0,248,6,3,14,248,0,0 17355 DATA 4,4,4,4,12,232,248,240,48,96,192,128,0,0,0,0 17395 REM MARS - PHOBOS DEIMOS 17400 DATA "MARS","1.52 AU" 17402 DATA "687 DAYS","24.6 HOURS" 17404 DATA "6794 KM","2" 17406 DATA "GIANT VOLCANO OLYMPUS MONS" 17410 DATA 2,2 17411 DATA 36,36,1,-1,0,0 17412 DATA 62,62,4,-1,18,0 17420 DATA 0,0,0,0,0,0,0,0,0,0,7,31,63,64,64,70 17425 DATA 0,0,0,0,0,0,0,0,0,0,224,248,252,2,2,2 17430 DATA 67,64,64,32,24,7,0,0,0,0,0,0,0,0,0,0 17435 DATA 2,50,34,4,24,224,0,0,0,0,0,0,0,0,0,0 17495 REM JUPITER - IO EUROPA GANYMEDE CALLISTO 17500 DATA "JUPITER","5.20 AU" 17502 DATA "11.9 YEARS","9.9 HOURS" 17504 DATA "142800 KM","16 (4 SHOWN)" 17506 DATA "GREAT RED SPOT IS A HUGE STORM" 17510 DATA 6,4 17511 DATA 48,48,1,-1,0,0 17512 DATA 62,62,2,-1,9,0 17513 DATA 80,80,4,-1,18,0 17514 DATA 100,100,9,-1,27,0 17520 DATA 0,0,0,0,0,1,2,7,8,8,16,47,32,63,32,32 17525 DATA 0,0,7,24,96,128,0,255,0,0,0,255,0,255,0,0 17530 DATA 0,255,0,0,0,0,0,255,0,0,0,255,0,255,0,0 17535 DATA 0,255,0,0,0,0,0,255,0,0,0,255,0,255,0,0 17540 DATA 0,0,224,24,6,1,0,255,0,0,0,255,0,255,0,0 17545 DATA 0,0,0,0,0,128,64,224,16,16,8,244,4,252,4,4 17550 DATA 32,35,32,32,32,31,8,8,4,3,1,0,0,0,0,0 17555 DATA 0,142,0,0,0,255,0,0,0,255,128,96,24,7,0,0 17560 DATA 0,56,0,0,0,255,0,0,0,255,0,0,0,0,255,0 17565 DATA 0,227,0,3,28,240,16,24,3,255,0,0,0,0,255,0 17570 DATA 0,142,0,0,224,63,32,96,0,255,1,6,24,224,0,0 17575 DATA 4,60,4,4,4,248,16,16,32,192,128,0,0,0,0,0 17595 REM SATURN - DIONE RHEA TITAN 17600 DATA "SATURN","9.54 AU" 17602 DATA "29.5 YEARS","10.7 HOURS" 17604 DATA "120000 KM","17 (3 SHOWN)" 17606 DATA "RINGS OF ICE AND ROCK" 17610 DATA 6,3 17611 DATA 58,32,1,-1,0,0 17612 DATA 76,42,2,-1,12,0 17613 DATA 100,55,5,-1,24,0 17620 DATA 0,0,0,0,0,0,0,0,0,0,0,0,7,24,98,72 17625 DATA 0,0,0,0,0,0,0,0,0,0,1,251,44,135,116,132 17630 DATA 0,0,0,0,0,0,3,28,96,128,0,255,0,255,0,0 17635 DATA 0,0,0,0,0,0,192,56,6,1,0,255,0,255,0,0 17640 DATA 0,0,0,0,0,0,0,0,0,0,128,223,40,226,46,33 17645 DATA 0,0,0,0,0,0,0,0,0,0,0,0,224,152,38,2 17650 DATA 72,98,24,7,0,0,0,0,0,0,0,0,0,0,0,0 17655 DATA 132,116,143,42,254,1,0,0,0,0,0,0,0,0,0,0 17660 DATA 0,0,240,15,170,255,128,96,28,3,0,0,0,0,0,0 17665 DATA 0,0,15,240,170,255,1,6,56,192,0,0,0,0,0,0 17670 DATA 33,46,242,168,127,128,0,0,0,0,0,0,0,0,0,0 17675 DATA 2,38,152,224,0,0,0,0,0,0,0,0,0,0,0,0 17695 REM URANUS - MIRANDA ARIEL UMBRIEL TITANIA OBERON 17700 DATA "URANUS","19.2 AU" 17702 DATA "84 YEARS","ABOUT 16 HOURS" 17704 DATA "51800 KM","5" 17706 DATA "TIPPED OVER ON ITS SIDE" 17710 DATA 4,5 17711 DATA 36,36,1,-1,0,0 17712 DATA 50,50,2,-1,7,0 17713 DATA 64,64,3,-1,14,0 17714 DATA 82,82,5,-1,21,0 17715 DATA 100,100,8,-1,28,0 17720 DATA 0,0,0,0,0,0,0,0,3,4,8,8,16,16,16,16 17725 DATA 0,0,0,0,0,7,56,192,0,0,2,16,32,65,3,71 17730 DATA 0,0,0,0,0,224,28,3,0,0,160,16,0,128,194,224 17735 DATA 0,0,0,0,0,0,0,0,192,32,16,16,8,8,8,8 17740 DATA 16,16,16,16,8,8,4,3,0,0,0,0,0,0,0,0 17745 DATA 7,67,1,0,8,5,0,0,192,56,7,0,0,0,0,0 17750 DATA 226,192,130,4,8,64,0,0,3,28,224,0,0,0,0,0 17755 DATA 8,8,8,8,16,16,32,192,0,0,0,0,0,0,0,0 17795 REM NEPTUNE - TRITON NEREID 17800 DATA "NEPTUNE","30.1 AU" 17802 DATA "165 YEARS","ABOUT 18 HOURS" 17804 DATA "49500 KM","2" 17806 DATA "MOON TRITON ORBITS BACKWARDS" 17810 DATA 4,2 17811 DATA 56,56,2,1,0,0 17812 DATA 100,100,10,-1,9,0 17820 DATA 0,0,0,0,0,0,0,0,1,2,4,8,8,16,16,31 17825 DATA 0,0,0,0,0,0,31,96,128,0,240,0,0,0,0,255 17830 DATA 0,0,0,0,0,0,248,6,1,0,240,0,0,0,0,255 17835 DATA 0,0,0,0,0,0,0,0,128,64,224,16,16,8,8,248 17840 DATA 16,16,16,8,8,7,2,1,0,0,0,0,0,0,0,0 17845 DATA 0,0,0,0,0,195,0,128,96,31,0,0,0,0,0,0 17850 DATA 0,0,0,0,0,195,0,1,6,248,0,0,0,0,0,0 17855 DATA 8,8,8,16,16,224,64,128,0,0,0,0,0,0,0,0 17895 REM PLUTO - CHARON 17900 DATA "PLUTO","39.5 AU" 17902 DATA "248 YEARS","6.4 DAYS" 17904 DATA "ABOUT 2300 KM","1" 17906 DATA "MOON CHIRON DISCOVERED IN 1978" 17910 DATA 2,1 17911 DATA 36,36,2,-1,0,0 17920 DATA 0,0,0,0,0,0,0,0,0,0,0,0,3,12,16,18 17925 DATA 0,0,0,0,0,0,0,0,0,0,0,0,192,48,8,8 17930 DATA 17,16,12,3,0,0,0,0,0,0,0,0,0,0,0,0 17935 DATA 8,72,48,192,0,0,0,0,0,0,0,0,0,0,0,0