100 PRINT"[147]"
110 POKE53280,5:POKE53281,0
120 PRINTTAB(15)"[209]-NEPTUNE"
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(9)"AVG. DISTANCE FROM SUN:"
150 PRINTTAB(2)"[152]KILOMETERS (IN MILLIONS)=======2,869"
160 PRINTTAB(2)"MILES       (IN MILLIONS)======2,794"
170 PRINTTAB(2)"ASTRONOMICAL UNITS (A.U)=======30.06"
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 YEAR (PERIOD OF ORBIT):"
210 PRINTTAB(22)"[152]164.8 YEARS"
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]"
230 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]"
240 PRINTTAB(2)"LENGTH OF DAY (PERIOD OF ROTATION):"
250 PRINTTAB(2)"[152]18 HOURS,30 MIN.,? SEC., AT EQUATOR"
260 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](KILOMETERS PER HOUR)========19,600"
300 PRINTTAB(2)"(MILES PER HOUR)=============12,200"
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)"[209]-NEPTUNE (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)=================48,600"
370 PRINTTAB(2)"(MILES)======================30,200"
380 PRINTTAB(2)"(EARTH=1):=====================3.81"
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)================17.24"
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)===============55.3"
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.75"
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)======1.23"
520 [153][163]2)"VALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVAL":[141]3520:[141]3580
530 [153]"LOAD"
540 [153][163]9)"(null)-NEPTUNE (CONTINUED)"
550 [153][163]2)"VALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVAL"
560 [153][163]11)"ESCAPE VELOCITY:"
570 [153][163]2)"PRINT#KILOMETERS PER SECOND==========24.2"
580 [153][163]2)"MILES PER HOUR===============54,136"
590 [153][163]2)"VALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVAL"
600 [153][163]2)"VALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVAL"
610 [153][163]9)"TEMPERATURE EXTREMES:"
620 [153][163]2)"PRINT#HIGH CELSIUS======================?"
630 [153][163]2)"HIGH FAHRENHEIT===================?"
640 [153][163]2)"LOW CELSIUS===(AT CLOUD TOPS)-220COSC"
650 [153][163]2)"LOW FAHRENHEIT(AT CLOUD TOPS)-364COSF"
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#============2"
720 [153][163]2)"CLRVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVAL":[141]3520:[141]3580
730 [153]"LOAD"
740 [153][163]9)"(null)-NEPTUNE (CONTINUED)"
750 [153][163]2)"VALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVAL"
760 [153][163]2)"ECCENTRICITY OF ORBIT:PRINT#========0.009"
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]2)"TO PLANET'S ORBITAL PLANE:PRINT#====28.8COS"
820 [153][163]2)"VALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVAL"
830 [153][163]2)"CLRVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVAL"
840 [153][163]2)"OBLATENESS OF PLANET:PRINT#=========0.026"
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]