home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 24
/
024.d81
/
pluto
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
4KB
|
109 lines
100 print"[147]"
110 poke53280,12:poke53281,0
120 printtab(15)"[152][209]-pluto"
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)=======5,900"
160 printtab(2)"miles (in millions)======3,666"
170 printtab(2)"astronomical units (a.u)=======39.44"
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]247.7 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(8)"[152]6 days,9 hours,23 min."
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)========17,100"
300 printtab(2)"(miles per hour)=============10,600"
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(11)"[152][209]-pluto (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)=================3,000?"
370 printtab(2)"(miles)======================1,900?"
380 printtab(2)"(earth=1):====================0.24?"
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)===============0.002?"
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)===============0.7?"
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]================0.013?"
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)=====0.03?"
520 [153][163]2)"valvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalval":[141]3520:[141]3580
530 [153]"load"
540 [153][163]9)"print#(NULL)-pluto (continued)"
550 [153][163]2)"valvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalval"
560 [153][163]11)"escape velocity:"
570 [153][163]2)"print#kilometers per second=========0.34?"
580 [153][163]2)"miles per hour=================751?"
590 [153][163]2)"valvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalval"
600 [153][163]2)"valvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalval"
610 [153][163]9)"temperature extremes:"
620 [153][163]2)"print#high celsius=============== -230cosc?"
630 [153][163]2)"high fahrenheit============ -382cosf?"
640 [153][163]2)"low celsius================= -234cosc"
650 [153][163]2)"low fahrenheit============== -390cosf"
660 [153][163]2)"valvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalval"
670 [153][163]2)"valvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalval"
680 [153][163]2)"atmosphere:(principal gases)print#...none"
690 [153][163]2)"valvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalval"
700 [153][163]2)"clrvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalval"
710 [153][163]2)"number of known moons:print#============1"
720 [153][163]2)"clrvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalval":[141]3520:[141]3580
730 [153]"load"
740 [153][163]9)"print#(NULL)-pluto (continued)"
750 [153][163]2)"valvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalval"
760 [153][163]2)"eccentricity of orbit:print#========0.250"
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#=====90cos?"
820 [153][163]2)"valvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalval"
830 [153][163]2)"clrvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalval"
840 [153][163]2)"oblateness of planet:print#=============?"
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$: