home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 24 / 024.d81 / mercury (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  3KB  |  110 lines
  1. 100 print"[147]"
  2. 110 poke53280,11:poke53281,0
  3. 120 printtab(15)"[152][209]-mercury"
  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(9)"avg. distance from sun:"
  6. 150 printtab(2)"[152]kilometers (in millions)========57.9"
  7. 160 printtab(2)"miles       (in millions)=======36.0"
  8. 170 printtab(2)"astronomical units (a.u)=======0.387"
  9. 180 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]"
  10. 182 printtab(2)""p$
  11. 190 printtab(2)""p$
  12. 200 printtab(2)"length of year (period of orbit):"
  13. 210 printtab(24)"[152]88.0 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]58 days,16 hours.,02 minutes"
  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)=======172,700"
  22. 300 printtab(2)"(miles per hour)============107,300"
  23. 310 printtab(2)"[156]"p$:gosub3520:gosub3580
  24. 320 print"[147]"
  25. 330 printtab(9)"[152][209]-mercury (continued)"
  26. 340 printtab(2)""p$
  27. 350 printtab(10)"equatorial diameter:"
  28. 360 printtab(2)"[152](kilometers)==================4,878"
  29. 370 printtab(2)"(miles)=======================3,031"
  30. 380 printtab(2)"(earth=1):====================0.382"
  31. 390 printtab(2)""p$
  32. 400 printtab(2)""p$
  33. 410 printtab(2)"mass:[152](earth=1)================0.055"
  34. 420 printtab(2)""p$
  35. 430 printtab(2)""p$
  36. 440 printtab(2)"volume:[152](earth=1)==============0.056"
  37. 450 printtab(2)""p$
  38. 460 printtab(2)"[156]"p$
  39. 470 printtab(2)"mean density:[152]=================5.44"
  40. 480 printtab(2)"[152](grams per cubic centimeter:water=1)
  41. 490 [153][163]2)"clr"p$
  42. 500 [153][163]2)""p$
  43. 510 [153][163]2)"surface gravity:print#(earth=1)======0.38"
  44. 520 [153][163]2)""p$:[141]3520:[141]3580
  45. 530 [153]"load"
  46. 540 [153][163]9)"print#(NULL)-mercury (continued)"
  47. 550 [153][163]2)""p$
  48. 560 [153][163]11)"escape velocity:"
  49. 570 [153][163]2)"print#kilometers per second===========4.3"
  50. 580 [153][163]2)"miles per hour================9,619"
  51. 590 [153][163]2)""p$
  52. 600 [153][163]2)""p$
  53. 610 [153][163]9)"temperature extremes:"
  54. 620 [153][163]2)"print#high celsius==================350cosc"
  55. 630 [153][163]2)"high fahrenheit===============660cosf"
  56. 640 [153][163]2)"low celsius================= -170cosc"
  57. 650 [153][163]2)"low fahrenheit============== -270cosf"
  58. 660 [153][163]2)""p$
  59. 670 [153][163]2)""p$
  60. 680 [153][163]2)"atmosphere:(principal gases): print#none"
  61. 690 [153][163]2)""p$
  62. 700 [153][163]2)"clr"p$
  63. 710 [153][163]2)"number of known moons:print#============0"
  64. 720 [153][163]2)"clr"p$:[141]3520:[141]3580
  65. 730 [153]"load"
  66. 740 [153][163]9)"print#(NULL)-mercury (continued)"
  67. 750 [153][163]2)""p$
  68. 760 [153][163]2)"eccentricity of orbit:print#========0.206"
  69. 770 [153][163]2)"(circular orbit=0)"
  70. 780 [153][163]2)""p$
  71. 790 [153][163]2)""p$
  72. 800 [153][163]7)"inclination of equator:"
  73. 810 [153][163]2)"to planet's orbital plane:print#=====< 2cos "
  74. 820 [153][163]2)""p$
  75. 830 [153][163]2)"clr"p$
  76. 840 [153][163]2)"oblateness of planet:print#=============0"
  77. 850 [153][163]2)"clr"p$:[141]3520:[141]3580
  78. 860 [153]"load"
  79. 870 [153][163]10)"press n to continue "
  80. 880 [161]r$
  81. 890 [139]r$[179][177]"n"[167]880
  82. 900 [139]r$[178]"n"[167]920
  83. 910 [137]880
  84. 920 [153]"stoploadload"[199](34)"main menu"[199](34)",8"
  85. 930 [153]"run"
  86. 935 [153][163]10)"working real hard...stop"
  87. 940 [151]198,10
  88. 950 [131] 19,13,13
  89. 960 [129]i[178]1[164]3 :[135]x:[151]630[170]i,x:[130]
  90. 970 [162]
  91. 3520 [129]l[178]54272[164]54295:[151]l,0:[130]:[151]54296,15
  92. 3530 [151]54277,9:[151]54278,255:[151]54276,23
  93. 3540 f2[178]4
  94. 3550 [129]z[178]1[164]1:[151]54287,f2
  95. 3560 [129]f1[178]1[164]200[169]3
  96. 3570 [151]54273,f1:f2[178]f2[170].01:[130]f1:[130]z:[151]54278,15:[142]
  97. 3580 [153][163]3)"if you want a print-out press..print#p   "
  98. 3590 [153][163]3)" or press..print#n for next screen       "
  99. 3600 [161]ca$:[139]ca$[179][177]"p"[175]ca$[179][177]"n"[167]3600
  100. 3610 [139]ca$[178]"p"[167]3630
  101. 3620 [139]ca$[178]"n"[167][142]
  102. 3630 [159]1,3:[159]2,4:[152]1,[199](19);
  103. 3640 [129] m[178]1[164]25:a$[178]"           "
  104. 3650 [129] l[178]1[164]40:[161]#1,b$:a$[178]a$[170]b$:[130]
  105. 3660 r$[178][199](13):[139] b$[178]r$[167]3680
  106. 3670 [152]2,a$:[130] ,m:[137]3690
  107. 3680 [152]2,a$;:[130] m
  108. 3690 [152]1:[160] 1:[152]2:[160] 2
  109. 3700 [142]
  110.