100 PRINT"[147]"
110 POKE53280,7:POKE53281,0
120 PRINTTAB(15)"[158][209]-THE SUN"
130 PRINTTAB(2)"[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]"
140 PRINTTAB(2)"[152]41 TRILLION KILOMETERS TO NEAREST-"
145 PRINTTAB(2)"STAR."
150 PRINTTAB(2)"[152]25 TRILLION MILES TO NEAREST STAR"
160 PRINTTAB(2)"4.3 LIGHT YEARS TO NEAREST STAR"
170 PRINTTAB(2)"246 MILLION YEARS TO ORBIT GALAXY"
180 PRINTTAB(2)"[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]"
190 PRINTTAB(2)"[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]"
200 PRINTTAB(2)"LENGTH OF DAY (PERIOD OF (ROTATION)"
210 PRINTTAB(2)"[152]25 DAYS, 8 HOURS, 24 MIN.(AT EQUATOR)"
220 PRINTTAB(2)"[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]"
270 PRINTTAB(2)"[156][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]"
280 PRINTTAB(8)"AVERAGE ORBITAL SPEED:"
290 PRINTTAB(2)"[152]900,000 KILOMETERS PER HOUR AROUND"
300 PRINTTAB(2)"GALACTIC CENTER"
305 PRINTTAB(2)"560,000 MILES PER HOUR AROUND"
307 PRINTTAB(2)"GALACTIC CENTER"
310 PRINTTAB(2)"[156][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]":GOSUB3520:GOSUB3580
320 PRINT"[147]"
330 PRINTTAB(9)"[158][209]-THE SUN (CONTINUED)"
340 PRINTTAB(2)"[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]"
350 PRINTTAB(10)"EQUATORIAL DIAMETER:"
360 PRINTTAB(2)"[152](KILOMETERS)==============1,392,000"
370 PRINTTAB(2)"(MILES)=====================865,000"
380 PRINTTAB(2)"(EARTH=1):======================109"
390 PRINTTAB(2)"[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]"
400 PRINTTAB(2)"[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]"
410 PRINTTAB(2)"MASS:[152](EARTH=1)==============332,946"
420 PRINTTAB(2)"[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]"
430 PRINTTAB(2)"[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]"
440 PRINTTAB(2)"VOLUME:[152](EARTH=1)==========1,300,000"
450 PRINTTAB(2)"[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]"
460 PRINTTAB(2)"[156][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]"
470 PRINTTAB(2)"MEAN DENSITY:[152]==================1.41"
480 PRINTTAB(2)"[152](GRAMS PER CUBIC CENTIMETER:WATER=1)
490 [153][163]2)"CLRVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVAL"
500 [153][163]2)"VALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVAL"
510 [153][163]2)"SURFACE GRAVITY:PRINT#(EARTH=1)======27.8"
520 [153][163]2)"VALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVAL":[141]3520:[141]3580
530 [153]"LOAD"
540 [153][163]9)"SYS(null)-THE SUN (CONTINUED)"
550 [153][163]2)"VALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVAL"
560 [153][163]11)"ESCAPE VELOCITY:"
570 [153][163]2)"PRINT#KILOMETERS PER SECOND===========616"
580 [153][163]2)"MILES PER HOUR=============1,378,000"
590 [153][163]2)"VALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVAL"
600 [153][163]2)"VALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVAL"
610 [153][163]9)"TEMPERATURE EXTREMES:"
620 [153][163]2)"PRINT#HIGH CELSIUS=(AT CORE)=15,000,000COSC"
630 [153][163]2)"HIGH FAHRENHEIT=(CORE)=27,000,000COSF"
640 [153][163]2)"LOW CELSIUS=================6,000COSC"
650 [153][163]2)"LOW FAHRENHEIT=============10,800COSF"
660 [153][163]2)"VALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVAL"
670 [153][163]2)"VALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVAL"
680 [153][163]2)"ATMOSPHERE:(PRINCIPAL GASES)PRINT#..H2,HE"
690 [153][163]2)"VALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVAL"
700 [153][163]2)"CLRVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVAL"
710 [153][163]2)"NUMBER OF KNOWN MOONS:PRINT#====9-PLANETS"
720 [153][163]2)"CLRVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVAL":[141]3520:[141]3580
730 [153]"LOAD"
740 [153][163]9)"SYS(null)-THE SUN (CONTINUED)"
750 [153][163]2)"VALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVAL"
760 [153][163]2)"ECCENTRICITY OF ORBIT:PRINT#=========== -"
770 [153][163]2)"(CIRCULAR ORBIT=0)"
780 [153][163]2)"VALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVAL"
790 [153][163]2)"VALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVAL"
800 [153][163]7)"INCLINATION OF EQUATOR:"
810 [153][163]4)"7.25COS SUNS EQUATOR TO ECLIPTIC"
820 [153][163]2)"VALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVAL"
830 [153][163]2)"CLRVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVAL"
840 [153][163]2)"OBLATENESS OF PLANET:PRINT#=============0"
850 [153][163]2)"CLRVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVAL":[141]3520:[141]3580
860 [153]"LOAD"
870 [153][163]10)"PRESS N TO CONTINUE "
880 [161]R$
890 [139]R$[179][177]"N"[167]880
900 [139]R$[178]"N"[167]920
910 [137]880
920 [153]"STOPLOADLOAD"[199](34)"MAIN MENU"[199](34)",8"
930 [153]"RUN"
935 [153][163]10)"WORKING REAL HARD...STOP"
940 [151]198,10
950 [131] 19,13,13
960 [129]I[178]1[164]3 :[135]X:[151]630[170]I,X:[130]
970 [162]
3520 [129]L[178]54272[164]54295:[151]L,0:[130]:[151]54296,15
3530 [151]54277,9:[151]54278,255:[151]54276,23
3540 F2[178]4
3550 [129]Z[178]1[164]1:[151]54287,F2
3560 [129]F1[178]1[164]200[169]3
3570 [151]54273,F1:F2[178]F2[170].01:[130]F1:[130]Z:[151]54278,15:[142]
3580 [153][163]3)"IF YOU WANT A PRINT-OUT PRESS..PRINT#P   "
3590 [153][163]3)" OR PRESS..PRINT#N FOR NEXT SCREEN       "
3600 [161]CA$:[139]CA$[179][177]"P"[175]CA$[179][177]"N"[167]3600
3610 [139]CA$[178]"P"[167]3630
3620 [139]CA$[178]"N"[167][142]
3630 [159]1,3:[159]2,4:[152]1,[199](19);
3640 [129] M[178]1[164]25:A$[178]"           "
3650 [129] L[178]1[164]40:[161]#1,B$:A$[178]A$[170]B$:[130]
3660 R$[178][199](13):[139] B$[178]R$[167]3680
3670 [152]2,A$:[130] ,M:[137]3690
3680 [152]2,A$;:[130] M
3690 [152]1:[160] 1:[152]2:[160] 2
3700 [142]