home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 24 / 024.d81 / facts (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  3KB  |  103 lines
  1. 100 poke53280,6:poke53281,0:print"[147]"
  2. 110 printtab(6)"interplanetary weight chart"
  3. 120 printtab(5)"(rounded off to nearest pound)"
  4. 130 printtab(2)"earth"
  5. 140 printtab(2)"weight-moon-sun--venus-mars-jupiter[152]"
  6. 150 printtab(3)"70     11  1952   60   27    185"
  7. 160 printtab(3)"80     13  2231   68   30    211"
  8. 170 printtab(3)"90     14  2510   77   34    238"
  9. 180 printtab(3)"100    16  2789   85   38    264"
  10. 190 printtab(3)"110    18  3068   94   42    290"
  11. 200 printtab(3)"120    19  3347   102  46    317"
  12. 210 printtab(3)"130    21  3626   111  49    343"
  13. 220 printtab(3)"140    22  3905   119  53    370"
  14. 230 printtab(3)"150    23  4184   128  57    396"
  15. 240 printtab(3)"160    25  4462   136  61    422"
  16. 250 printtab(3)"170    27  4741   145  65    449"
  17. 260 printtab(3)"180    28  5020   153  68    475"
  18. 270 printtab(3)"190    30  5299   162  72    502"
  19. 280 printtab(3)"200    32  5578   170  76    528"
  20. 290 gosub660:gosub 880
  21. 300 print"[147]"
  22. 310 printtab(13)"distance chart"
  23. 320 printtab(5)"radar and radio communications"
  24. 330 print"[152]light, electricity and radar waves"
  25. 340 print"being the fastest thing we know today"
  26. 350 print"travel at the approximate velocity of"
  27. 360 print"186,282 miles per second. the following"
  28. 370 print"graph indicates the time involved for"
  29. 380 print"these waves to reach their objective,"
  30. 390 print"if you were to communicate,in this "
  31. 400 print"manner from earth."
  32. 410 printtab(13)"light year"
  33. 420 printtab(3)"[152]the speed of light,approximately"
  34. 430 printtab(3)"186,282 miles per sec.,times 60"
  35. 440 printtab(3)"sec.,times 60 min.,times 24 hours,"
  36. 450 printtab(3)"times 365 days"
  37. 460 gosub660:gosub 880
  38. 470 print"[147]"
  39. 480 printtab(13)"distance chart"
  40. 490 printtab(5)"radar and radio communications"
  41. 500 printtab(3)"planets---time lapse at closest point"
  42. 510 printtab(3)"[152]mercury---4.5 minutes
  43. 520 [153][163]3)"venus-----2 min. 18 sec."
  44. 530 [153][163]3)"mars------4 min. 21 sec."
  45. 540 [153][163]3)"jupiter---35 min. 11 sec."
  46. 550 [153][163]3)"saturn----1 hour, 11 sec."
  47. 560 [153][163]3)"uranus----2 hours,32 sec."
  48. 570 [153][163]3)"neptune---4 hours,2 min."
  49. 580 [153][163]3)"pluto-----6 hours,25 min."
  50. 590 [153][163]3)"galaxies------time lapse"
  51. 600 [153][163]3)"print#andromeda-----1,500,000 years."
  52. 610 [153][163]3)"alpha centuri-4 yrs.,4 mo.,7 days"
  53. 620 [153][163]3)"our sun-------7 min.,59 sec."
  54. 630 [153][163]3)"moon----------1.23 sec."
  55. 640 [141]660:[141] 880:[137]730
  56. 650 [128]
  57. 660 [129]l[178]54272[164]54295:[151]l,0:[130]:[151]54296,15
  58. 670 [151]54277,8:[151]54278,255:[151]54276,23
  59. 680 f2[178]4
  60. 690 [129]z[178]1[164]1:[151]54287,f2
  61. 700 [129]f1[178]1[164]200[169]3
  62. 710 [151]54273,f1:f2[178]f2[170].01:[130]f1:[130]z:[151]54278,15
  63. 720 [142]
  64. 730 [153]"load"
  65. 740 [153][163]7)"space ship time schedule"
  66. 750 [153][163]2)"leaving     speed       min.distance"
  67. 760 [153][163]2)"earth    25,000 mph.    from earth"
  68. 770 [153][163]3)"for-       arrive      (in miles)"
  69. 780 [153][163]2)"print#moon        8 4/5 hour  221,463"
  70. 790 [153][163]2)"venus      43 1/3 days  26,000,000"
  71. 800 [153][163]2)"mars       57 2/3 days  34,600,000"
  72. 810 [153][163]2)"mercury    83 1/3 days  50,000,000"
  73. 820 [153][163]2)"jupiter   611 2/3 days  367,000,000"
  74. 830 [153][163]2)"saturn   1241 2/3 days  745,000,000"
  75. 840 [153][163]2)"uranus   2681 1/3 days  1,608,800,000"
  76. 850 [153][163]2)"neptune  4466     days  2,679,600,000"
  77. 860 [153][163]2)"pluto    4446 2/3 days  2,668,000,000":[141]660:[141] 880
  78. 870 [137] 990
  79. 880 [153][163]3)"if you want a print-out press..p   "
  80. 890 [153][163]3)"  or press..n to go to next screen "
  81. 900 [161] ca$
  82. 910 [139] ca$[179][177]"p"[175]ca$[179][177]"n"[167] 900
  83. 920 [139] ca$[178]"p"[167] 940
  84. 930 [139] ca$[178]"n"[167][142]
  85. 940 a$[178]"":[159]4,4:z[178]1023:[129] y[178]0 [164] 24:[129] x[178]0 [164] 39:z[178]z[170]1
  86. 950 ch[178][194](z):[139] ch[177][178]128 [167] ch[178]ch[171]128
  87. 960 [139] ch[179]32 [176] ch[177]95 [167] ch[178]ch[170]64:[137] 980
  88. 970 [139] ch[177]63 [175] ch[179]36 [167] ch[178]ch[170]32
  89. 980 a$[178]a$[170][199](ch):[130]:[152]4,a$:a$[178]"":[130]:[160] 4:[142]
  90. 990 [153]"load"
  91. 1000 [153][163]11)"press n to continuewait"
  92. 1010 [161]d$
  93. 1020 [139]d$[179][177]"n"[167]1010
  94. 1030 [139]d$[178]"n"[167]1050
  95. 1040 [137]1010
  96. 1050 [153]"stoploadload"[199](34)"main menu"[199](34)",8"
  97. 1060 [153]"run"
  98. 1065 [153][163]10)"working real hard...stop"
  99. 1070 [151]198,10
  100. 1080 [131] 19,13,13
  101. 1090 [129]i[178]1[164]3 :[135]x:[151]630[170]i,x:[130]
  102. 1100 [162]
  103.