home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 24 / 024.d81 / sun (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  4KB  |  108 lines
  1. 100 print"[147]"
  2. 110 poke53280,7:poke53281,0
  3. 120 printtab(15)"[158][209]-the sun"
  4. 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]"
  5. 140 printtab(2)"[152]41 trillion kilometers to nearest-"
  6. 145 printtab(2)"star."
  7. 150 printtab(2)"[152]25 trillion miles to nearest star"
  8. 160 printtab(2)"4.3 light years to nearest star"
  9. 170 printtab(2)"246 million years to orbit galaxy"
  10. 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]"
  11. 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]"
  12. 200 printtab(2)"length of day (period of (rotation)"
  13. 210 printtab(2)"[152]25 days, 8 hours, 24 min.(at equator)"
  14. 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]"
  15. 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]"
  16. 280 printtab(8)"average orbital speed:"
  17. 290 printtab(2)"[152]900,000 kilometers per hour around"
  18. 300 printtab(2)"galactic center"
  19. 305 printtab(2)"560,000 miles per hour around"
  20. 307 printtab(2)"galactic center"
  21. 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
  22. 320 print"[147]"
  23. 330 printtab(9)"[158][209]-the sun (continued)"
  24. 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]"
  25. 350 printtab(10)"equatorial diameter:"
  26. 360 printtab(2)"[152](kilometers)==============1,392,000"
  27. 370 printtab(2)"(miles)=====================865,000"
  28. 380 printtab(2)"(earth=1):======================109"
  29. 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]"
  30. 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]"
  31. 410 printtab(2)"mass:[152](earth=1)==============332,946"
  32. 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]"
  33. 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]"
  34. 440 printtab(2)"volume:[152](earth=1)==========1,300,000"
  35. 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]"
  36. 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]"
  37. 470 printtab(2)"mean density:[152]==================1.41"
  38. 480 printtab(2)"[152](grams per cubic centimeter:water=1)
  39. 490 [153][163]2)"clrvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalval"
  40. 500 [153][163]2)"valvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalval"
  41. 510 [153][163]2)"surface gravity:print#(earth=1)======27.8"
  42. 520 [153][163]2)"valvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalval":[141]3520:[141]3580
  43. 530 [153]"load"
  44. 540 [153][163]9)"sys(NULL)-the sun (continued)"
  45. 550 [153][163]2)"valvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalval"
  46. 560 [153][163]11)"escape velocity:"
  47. 570 [153][163]2)"print#kilometers per second===========616"
  48. 580 [153][163]2)"miles per hour=============1,378,000"
  49. 590 [153][163]2)"valvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalval"
  50. 600 [153][163]2)"valvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalval"
  51. 610 [153][163]9)"temperature extremes:"
  52. 620 [153][163]2)"print#high celsius=(at core)=15,000,000cosc"
  53. 630 [153][163]2)"high fahrenheit=(core)=27,000,000cosf"
  54. 640 [153][163]2)"low celsius=================6,000cosc"
  55. 650 [153][163]2)"low fahrenheit=============10,800cosf"
  56. 660 [153][163]2)"valvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalval"
  57. 670 [153][163]2)"valvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalval"
  58. 680 [153][163]2)"atmosphere:(principal gases)print#..h2,he"
  59. 690 [153][163]2)"valvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalval"
  60. 700 [153][163]2)"clrvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalval"
  61. 710 [153][163]2)"number of known moons:print#====9-planets"
  62. 720 [153][163]2)"clrvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalval":[141]3520:[141]3580
  63. 730 [153]"load"
  64. 740 [153][163]9)"sys(NULL)-the sun (continued)"
  65. 750 [153][163]2)"valvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalval"
  66. 760 [153][163]2)"eccentricity of orbit:print#=========== -"
  67. 770 [153][163]2)"(circular orbit=0)"
  68. 780 [153][163]2)"valvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalval"
  69. 790 [153][163]2)"valvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalval"
  70. 800 [153][163]7)"inclination of equator:"
  71. 810 [153][163]4)"7.25cos suns equator to ecliptic"
  72. 820 [153][163]2)"valvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalval"
  73. 830 [153][163]2)"clrvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalval"
  74. 840 [153][163]2)"oblateness of planet:print#=============0"
  75. 850 [153][163]2)"clrvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalval":[141]3520:[141]3580
  76. 860 [153]"load"
  77. 870 [153][163]10)"press n to continue "
  78. 880 [161]r$
  79. 890 [139]r$[179][177]"n"[167]880
  80. 900 [139]r$[178]"n"[167]920
  81. 910 [137]880
  82. 920 [153]"stoploadload"[199](34)"main menu"[199](34)",8"
  83. 930 [153]"run"
  84. 935 [153][163]10)"working real hard...stop"
  85. 940 [151]198,10
  86. 950 [131] 19,13,13
  87. 960 [129]i[178]1[164]3 :[135]x:[151]630[170]i,x:[130]
  88. 970 [162]
  89. 3520 [129]l[178]54272[164]54295:[151]l,0:[130]:[151]54296,15
  90. 3530 [151]54277,9:[151]54278,255:[151]54276,23
  91. 3540 f2[178]4
  92. 3550 [129]z[178]1[164]1:[151]54287,f2
  93. 3560 [129]f1[178]1[164]200[169]3
  94. 3570 [151]54273,f1:f2[178]f2[170].01:[130]f1:[130]z:[151]54278,15:[142]
  95. 3580 [153][163]3)"if you want a print-out press..print#p   "
  96. 3590 [153][163]3)" or press..print#n for next screen       "
  97. 3600 [161]ca$:[139]ca$[179][177]"p"[175]ca$[179][177]"n"[167]3600
  98. 3610 [139]ca$[178]"p"[167]3630
  99. 3620 [139]ca$[178]"n"[167][142]
  100. 3630 [159]1,3:[159]2,4:[152]1,[199](19);
  101. 3640 [129] m[178]1[164]25:a$[178]"           "
  102. 3650 [129] l[178]1[164]40:[161]#1,b$:a$[178]a$[170]b$:[130]
  103. 3660 r$[178][199](13):[139] b$[178]r$[167]3680
  104. 3670 [152]2,a$:[130] ,m:[137]3690
  105. 3680 [152]2,a$;:[130] m
  106. 3690 [152]1:[160] 1:[152]2:[16