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