home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 24 / 024.d81 / earth (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  3KB  |  110 lines
  1. 100 print"[147]"
  2. 110 poke53280,6:poke53281,0
  3. 120 printtab(16)"[209]-[152]earth"
  4. 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]"
  5. 130 printtab(2)""p$
  6. 140 printtab(9)"avg. distance from sun:"
  7. 150 printtab(2)"[152]kilometers (in millions)=======149.5"
  8. 160 printtab(2)"miles      (in millions)========92.9"
  9. 170 printtab(2)"astronomical units (a.u)=======1.000"
  10. 180 printtab(2)""p$
  11. 190 printtab(2)""p$
  12. 200 printtab(2)"length of year (period of orbit):"
  13. 210 printtab(23)"[152]365.26 days"
  14. 220 printtab(2)""p$
  15. 230 printtab(2)""p$
  16. 240 printtab(2)"length of day (period of rotation):"
  17. 250 printtab(5)"[152]23 hours, 56 min.,04 seconds"
  18. 260 printtab(2)""p$
  19. 270 printtab(2)"[156]"p$
  20. 280 printtab(8)"average orbital speed:"
  21. 290 printtab(2)"[152](kilometers per hour)=======107,400"
  22. 300 printtab(2)"(miles per hour)=============66,800"
  23. 310 printtab(2)"[156]"p$                                  :gosub3520:gosub3580
  24. 320 print"[147]"
  25. 330 printtab(11)"[209]-[152]earth (continued)"
  26. 340 printtab(2)""p$
  27. 350 printtab(10)"equatorial diameter:"
  28. 360 printtab(2)"[152](kilometers)=================12,756"
  29. 370 printtab(2)"(miles)=======================7,927"
  30. 380 printtab(2)"(earth=1):====================1.000"
  31. 390 printtab(2)""p$
  32. 400 printtab(2)""p$
  33. 410 printtab(2)"mass:[152](earth=1)================1.000"
  34. 420 printtab(2)""p$
  35. 430 printtab(2)""p$
  36. 440 printtab(2)"volume:[152](earth=1)==============1.000"
  37. 450 printtab(2)""p$
  38. 460 printtab(2)"[156]"p$
  39. 470 printtab(2)"mean density:(water=1)"
  40. 480 printtab(2)"[152](grams per cubic centimeter:===5.52"
  41. 490 printtab(2)"[156]"p$
  42. 500 printtab(2)""p$
  43. 510 printtab(2)"surface gravity:[152](earth=1)======1.00"
  44. 520 printtab(2)""p$:gosub3520:gosub3580
  45. 530 print"[147]"
  46. 540 printtab(11)"[209]-[152]earth (continued)"
  47. 550 printtab(2)""p$
  48. 560 printtab(12)"escape velocity:"
  49. 570 printtab(2)"[152]kilometers per second==========11.2"
  50. 580 printtab(2)"miles per hour===============25,055"
  51. 590 printtab(2)""p$
  52. 600 printtab(2)""p$
  53. 610 printtab(9)"temperature extremes:"
  54. 620 printtab(2)"[152]high celsius===================58[190]c"
  55. 630 printtab(2)"high fahrenheit=============136.4[190]f"
  56. 640 printtab(2)"low celsius================= 88.3[190]c"
  57. 650 printtab(2)"low fahrenheit============ -126.9[190]f"
  58. 660 printtab(2)""p$
  59. 670 printtab(2)""p$
  60. 680 printtab(2)"atmosphere:(principal gases):[152].n2,o2"
  61. 690 printtab(2)""p$
  62. 700 printtab(2)"[156]"p$
  63. 710 printtab(2)"number of known moons:[152]============1"
  64. 720 printtab(2)"[156]"p$:gosub3520:gosub3580
  65. 730 print"[147]"
  66. 740 printtab(11)"[209]-[152]earth (continued)"
  67. 750 printtab(2)""p$
  68. 760 printtab(2)"eccentricity of orbit:[152]========0.017"
  69. 770 printtab(2)"(circular orbit=0)"
  70. 780 printtab(2)""p$
  71. 790 printtab(2)""p$
  72. 800 printtab(7)"inclination of equator:"
  73. 810 printtab(2)"to planet's orbital plane:[152]===23.45[190]"
  74. 820 printtab(2)""p$
  75. 830 printtab(2)"[156]"p$
  76. 840 printtab(2)"oblateness of planet:[152]=========0.003"
  77. 850 printtab(2)"[156]"p$:gosub3520:gosub3580
  78. 860 print"[147]"
  79. 870 printtab(10)"press n to continue "
  80. 880 getr$
  81. 890 ifr$<>"n"then880
  82. 900 ifr$="n"then920
  83. 910 goto880
  84. 920 print"[144][147]load"chr$(34)"main menu"chr$(34)",8"
  85. 930 print"run"
  86. 935 printtab(10)"working real hard...[144]"
  87. 940 poke198,10
  88. 950 data 19,13,13
  89. 960 fori=1to3 :readx:poke630+i,x:next
  90. 970 new
  91. 3520 forl=54272to54295:pokel,0:next:poke54296,15
  92. 3530 poke54277,9:poke54278,255:poke54276,23
  93. 3540 f2=4
  94. 3550 forz=1to1:poke54287,f2
  95. 3560 forf1=1to200step3
  96. 3570 poke54273,f1:f2=f2+.01:nextf1:nextz:poke54278,15:return
  97. 3580 printtab(3)"if you want a print-out press..[152]p   "
  98. 3590 printtab(3)" or press..[152]n for next screen       "
  99. 3600 getca$:ifca$<>"p"andca$<>"n"then3600
  100. 3610 ifca$="p"then3630
  101. 3620 ifca$="n"thenreturn
  102. 3630 open1,3:open2,4:print#1,chr$(19);
  103. 3640 for m=1to25:a$="           "
  104. 3650 for l=1to40:get#1,b$:a$=a$+b$:next
  105. 3660 r$=chr$(13):if b$=r$then3680
  106. 3670 print#2,a$:next ,m:goto3690
  107. 3680 print#2,a$;:next m
  108. 3690 print#1:close 1:print#2:close 2
  109. 3700 return
  110.