home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 24 / 024.d81 / pluto (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  4KB  |  109 lines
  1. 100 print"[147]"
  2. 110 poke53280,12:poke53281,0
  3. 120 printtab(15)"[152][209]-pluto"
  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)=======5,900"
  7. 160 printtab(2)"miles       (in millions)======3,666"
  8. 170 printtab(2)"astronomical units (a.u)=======39.44"
  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(22)"[152]247.7 years"
  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(8)"[152]6 days,9 hours,23 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)========17,100"
  21. 300 printtab(2)"(miles per hour)=============10,600"
  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)"[152][209]-pluto (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,000?"
  28. 370 printtab(2)"(miles)======================1,900?"
  29. 380 printtab(2)"(earth=1):====================0.24?"
  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.002?"
  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.7?"
  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:[152]================0.013?"
  39. 480 printtab(2)"[152](grams per cubic centimeter:water=1)
  40. 490 [153][163]2)"clrvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalval"
  41. 500 [153][163]2)"valvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalval"
  42. 510 [153][163]2)"surface gravity:print#(earth=1)=====0.03?"
  43. 520 [153][163]2)"valvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalval":[141]3520:[141]3580
  44. 530 [153]"load"
  45. 540 [153][163]9)"print#(NULL)-pluto (continued)"
  46. 550 [153][163]2)"valvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalval"
  47. 560 [153][163]11)"escape velocity:"
  48. 570 [153][163]2)"print#kilometers per second=========0.34?"
  49. 580 [153][163]2)"miles per hour=================751?"
  50. 590 [153][163]2)"valvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalval"
  51. 600 [153][163]2)"valvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalval"
  52. 610 [153][163]9)"temperature extremes:"
  53. 620 [153][163]2)"print#high celsius=============== -230cosc?"
  54. 630 [153][163]2)"high fahrenheit============ -382cosf?"
  55. 640 [153][163]2)"low celsius================= -234cosc"
  56. 650 [153][163]2)"low fahrenheit============== -390cosf"
  57. 660 [153][163]2)"valvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalval"
  58. 670 [153][163]2)"valvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalval"
  59. 680 [153][163]2)"atmosphere:(principal gases)print#...none"
  60. 690 [153][163]2)"valvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalval"
  61. 700 [153][163]2)"clrvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalval"
  62. 710 [153][163]2)"number of known moons:print#============1"
  63. 720 [153][163]2)"clrvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalval":[141]3520:[141]3580
  64. 730 [153]"load"
  65. 740 [153][163]9)"print#(NULL)-pluto (continued)"
  66. 750 [153][163]2)"valvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalval"
  67. 760 [153][163]2)"eccentricity of orbit:print#========0.250"
  68. 770 [153][163]2)"(circular orbit=0)"
  69. 780 [153][163]2)"valvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalval"
  70. 790 [153][163]2)"valvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalval"
  71. 800 [153][163]7)"inclination of equator:"
  72. 810 [153][163]2)"to planet's orbital plane:print#=====90cos?"
  73. 820 [153][163]2)"valvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalval"
  74. 830 [153][163]2)"clrvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalval"
  75. 840 [153][163]2)"oblateness of planet:print#=============?"
  76. 850 [153][163]2)"clrvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalval":[141]3520:[141]3580
  77. 860 [153]"load"
  78. 870 [153][163]10)"press n to continue "
  79. 880 [161]r$
  80. 890 [139]r$[179][177]"n"[167]880
  81. 900 [139]r$[178]"n"[167]920
  82. 910 [137]880
  83. 920 [153]"stoploadload"[199](34)"main menu"[199](34)",8"
  84. 930 [153]"run"
  85. 935 [153][163]10)"working real hard...stop"
  86. 940 [151]198,10
  87. 950 [131] 19,13,13
  88. 960 [129]i[178]1[164]3 :[135]x:[151]630[170]i,x:[130]
  89. 970 [162]
  90. 3520 [129]l[178]54272[164]54295:[151]l,0:[130]:[151]54296,15
  91. 3530 [151]54277,9:[151]54278,255:[151]54276,23
  92. 3540 f2[178]4
  93. 3550 [129]z[178]1[164]1:[151]54287,f2
  94. 3560 [129]f1[178]1[164]200[169]3
  95. 3570 [151]54273,f1:f2[178]f2[170].01:[130]f1:[130]z:[151]54278,15:[142]
  96. 3580 [153][163]3)"if you want a print-out press..print#p   "
  97. 3590 [153][163]3)" or press..print#n for next screen       "
  98. 3600 [161]ca$: