100 PRINT"[147]"
110 POKE53280,6:POKE53281,0
120 PRINTTAB(16)"[209]-[152]EARTH"
125 P$="[197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197]"
130 PRINTTAB(2)""P$
140 PRINTTAB(9)"AVG. DISTANCE FROM SUN:"
150 PRINTTAB(2)"[152]KILOMETERS (IN MILLIONS)=======149.5"
160 PRINTTAB(2)"MILES      (IN MILLIONS)========92.9"
170 PRINTTAB(2)"ASTRONOMICAL UNITS (A.U)=======1.000"
180 PRINTTAB(2)""P$
190 PRINTTAB(2)""P$
200 PRINTTAB(2)"LENGTH OF YEAR (PERIOD OF ORBIT):"
210 PRINTTAB(23)"[152]365.26 DAYS"
220 PRINTTAB(2)""P$
230 PRINTTAB(2)""P$
240 PRINTTAB(2)"LENGTH OF DAY (PERIOD OF ROTATION):"
250 PRINTTAB(5)"[152]23 HOURS, 56 MIN.,04 SECONDS"
260 PRINTTAB(2)""P$
270 PRINTTAB(2)"[156]"P$
280 PRINTTAB(8)"AVERAGE ORBITAL SPEED:"
290 PRINTTAB(2)"[152](KILOMETERS PER HOUR)=======107,400"
300 PRINTTAB(2)"(MILES PER HOUR)=============66,800"
310 PRINTTAB(2)"[156]"P$                                  :GOSUB3520:GOSUB3580
320 PRINT"[147]"
330 PRINTTAB(11)"[209]-[152]EARTH (CONTINUED)"
340 PRINTTAB(2)""P$
350 PRINTTAB(10)"EQUATORIAL DIAMETER:"
360 PRINTTAB(2)"[152](KILOMETERS)=================12,756"
370 PRINTTAB(2)"(MILES)=======================7,927"
380 PRINTTAB(2)"(EARTH=1):====================1.000"
390 PRINTTAB(2)""P$
400 PRINTTAB(2)""P$
410 PRINTTAB(2)"MASS:[152](EARTH=1)================1.000"
420 PRINTTAB(2)""P$
430 PRINTTAB(2)""P$
440 PRINTTAB(2)"VOLUME:[152](EARTH=1)==============1.000"
450 PRINTTAB(2)""P$
460 PRINTTAB(2)"[156]"P$
470 PRINTTAB(2)"MEAN DENSITY:(WATER=1)"
480 PRINTTAB(2)"[152](GRAMS PER CUBIC CENTIMETER:===5.52"
490 PRINTTAB(2)"[156]"P$
500 PRINTTAB(2)""P$
510 PRINTTAB(2)"SURFACE GRAVITY:[152](EARTH=1)======1.00"
520 PRINTTAB(2)""P$:GOSUB3520:GOSUB3580
530 PRINT"[147]"
540 PRINTTAB(11)"[209]-[152]EARTH (CONTINUED)"
550 PRINTTAB(2)""P$
560 PRINTTAB(12)"ESCAPE VELOCITY:"
570 PRINTTAB(2)"[152]KILOMETERS PER SECOND==========11.2"
580 PRINTTAB(2)"MILES PER HOUR===============25,055"
590 PRINTTAB(2)""P$
600 PRINTTAB(2)""P$
610 PRINTTAB(9)"TEMPERATURE EXTREMES:"
620 PRINTTAB(2)"[152]HIGH CELSIUS===================58[190]C"
630 PRINTTAB(2)"HIGH FAHRENHEIT=============136.4[190]F"
640 PRINTTAB(2)"LOW CELSIUS================= 88.3[190]C"
650 PRINTTAB(2)"LOW FAHRENHEIT============ -126.9[190]F"
660 PRINTTAB(2)""P$
670 PRINTTAB(2)""P$
680 PRINTTAB(2)"ATMOSPHERE:(PRINCIPAL GASES):[152].N2,O2"
690 PRINTTAB(2)""P$
700 PRINTTAB(2)"[156]"P$
710 PRINTTAB(2)"NUMBER OF KNOWN MOONS:[152]============1"
720 PRINTTAB(2)"[156]"P$:GOSUB3520:GOSUB3580
730 PRINT"[147]"
740 PRINTTAB(11)"[209]-[152]EARTH (CONTINUED)"
750 PRINTTAB(2)""P$
760 PRINTTAB(2)"ECCENTRICITY OF ORBIT:[152]========0.017"
770 PRINTTAB(2)"(CIRCULAR ORBIT=0)"
780 PRINTTAB(2)""P$
790 PRINTTAB(2)""P$
800 PRINTTAB(7)"INCLINATION OF EQUATOR:"
810 PRINTTAB(2)"TO PLANET'S ORBITAL PLANE:[152]===23.45[190]"
820 PRINTTAB(2)""P$
830 PRINTTAB(2)"[156]"P$
840 PRINTTAB(2)"OBLATENESS OF PLANET:[152]=========0.003"
850 PRINTTAB(2)"[156]"P$:GOSUB3520:GOSUB3580
860 PRINT"[147]"
870 PRINTTAB(10)"PRESS N TO CONTINUE "
880 GETR$
890 IFR$<>"N"THEN880
900 IFR$="N"THEN920
910 GOTO880
920 PRINT"[144][147]LOAD"CHR$(34)"MAIN MENU"CHR$(34)",8"
930 PRINT"RUN"
935 PRINTTAB(10)"WORKING REAL HARD...[144]"
940 POKE198,10
950 DATA 19,13,13
960 FORI=1TO3 :READX:POKE630+I,X:NEXT
970 NEW
3520 FORL=54272TO54295:POKEL,0:NEXT:POKE54296,15
3530 POKE54277,9:POKE54278,255:POKE54276,23
3540 F2=4
3550 FORZ=1TO1:POKE54287,F2
3560 FORF1=1TO200STEP3
3570 POKE54273,F1:F2=F2+.01:NEXTF1:NEXTZ:POKE54278,15:RETURN
3580 PRINTTAB(3)"IF YOU WANT A PRINT-OUT PRESS..[152]P   "
3590 PRINTTAB(3)" OR PRESS..[152]N FOR NEXT SCREEN       "
3600 GETCA$:IFCA$<>"P"ANDCA$<>"N"THEN3600
3610 IFCA$="P"THEN3630
3620 IFCA$="N"THENRETURN
3630 OPEN1,3:OPEN2,4:PRINT#1,CHR$(19);
3640 FOR M=1TO25:A$="           "
3650 FOR L=1TO40:GET#1,B$:A$=A$+B$:NEXT
3660 R$=CHR$(13):IF B$=R$THEN3680
3670 PRINT#2,A$:NEXT ,M:GOTO3690
3680 PRINT#2,A$;:NEXT M
3690 PRINT#1:CLOSE 1:PRINT#2:CLOSE 2
3700 RETURN