home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / canada-remote-systems / c64 / utils / halley.prg (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  7.0 KB  |  260 lines
  1. 1 GOTO5000REM"
  2. 11 [143]"""FROM THE PEEK(null)ATN(null)STR$ OF VALSTR$ PEEKPEEK(null) 201-369-5972"
  3. 15 [143]"""MODIFIED FOR THE LEN-64 BY CHR$EORGE (null)ERVO"[204]
  4. 20 [156]:PI[178][255]
  5. 25 [153]"LOAD"
  6. 30 CO$[178]"LEN(null)(null)VAL(null)CLOSELEFT$ATN(null)(null)VAL(null)"
  7. 40 PH[178]1986.11
  8. 50 PL[178]170.011
  9. 60 AN[178]58.1453
  10. 70 PY[178]76.0081
  11. 80 SM[178]17.9435
  12. 90 EO[178].967267
  13. 100 IO[178]162.239
  14. 110 [153]"LOADSYS --------------------------------------"
  15. 120 [153]"              "CO$
  16. 130 [153]" --------------------------------------"
  17. 140 [153]:[153]"      VALPHEMERIS FOR DATES"
  18. 150 [153]"      BETWEEN 1946 AND 2026"
  19. 160 [143]
  20. 170 [143]================================
  21. 180 [143]     INPUT DATA
  22. 190 [143]================================
  23. 200 [153]:[153]"SYS RIGHT$(null)(null)(null)(null) THE YEAR  ";
  24. 210 [133]"SINCMDCMDCMD";Y$:Y[178][197](Y$)
  25. 220 [139] Y[179]1946 [176] Y[177]2026 [167] [137] 110
  26. 230 [153]:[153]" RIGHT$(null)(null)(null)(null) MONTH   ";
  27. 240 [133]"SINCMDCMDCMD";M$:M[178][197](M$)
  28. 250 [139] M[179]1 [176] M[177]12 [167] [137] 230
  29. 260 [153]:[153]" RIGHT$(null)(null)(null)(null) DAY   ";
  30. 270 [133]"SINCMDCMDCMD";D$:D[178][197](D$)
  31. 280 [139]D[177]31[176]D[179]1[167]260
  32. 285 [153]"OPEN((null)HINKING... (null)LEASE (null)ATNRIGHT$(null)!)SYS"
  33. 290 [143]================================
  34. 300 [143]     CALCULATIONS FOR COMET
  35. 310 [143]================================
  36. 320 X[178]PH
  37. 330 [139] Y[177][178]1986 [167] Z[178]1984
  38. 340 [139] Y[179]1986 [167] Z[178]1988
  39. 350 [139] Y[177][178]1986 [167] S[178]0
  40. 360 [139] Y[179]1986 [167] S[178]1
  41. 370 [141] 1780
  42. 380 DS[178]N
  43. 390 B[178](360[173]PY)[172](N[173]365.25)
  44. 400 K[178]B
  45. 410 [141] 1930
  46. 420 B[178](K[172]PI)[173]180
  47. 430 E[178]B
  48. 440 Y1[178]EO
  49. 450 Q[178]E[171](Y1[172][191](E))[171]B
  50. 460 [139] [182](Q)[179][178].000017 [167] [137] 500
  51. 470 U[178]Q[173](1[171](Y1[172][190](E)))
  52. 480 E[178]E[171]U
  53. 490 [137] 450
  54. 500 V[178]([186]((1[170]Y1)[173](1[171]Y1))[172][192](E[173]2))
  55. 510 V[178]2[172][193](V)
  56. 520 V1[178](V[172]180)[173]PI
  57. 530 L[178]V1[170]PL
  58. 540 R[178]SM[172](1[171](Y1[172]Y1))[173](1[170]Y1[172][190](V))
  59. 550 F[178]L[171]AN
  60. 560 F2[178]IO
  61. 570 F1[178](F[172]PI)[173]180
  62. 580 F2[178](F2[172]PI)[173]180
  63. 590 I[178]([191](F1)[172][191](F2))
  64. 600 I[178][193](I[173][186]([171]I[172]I[170]1))
  65. 610 P[178][193]([192](F1)[172][190](F2))
  66. 620 P1[178](P[172]180)[173]PI[170]AN
  67. 630 [139] F[177][178]90 [175] F[179][178]270 [167] P1[178]P1[170]180
  68. 640 [139] P1[179]0 [167] P1[178]P1[170]360
  69. 650 P[178](P1[172]PI)[173]180
  70. 660 R2[178]R[172][190](I)
  71. 670 [143]================================
  72. 680 [143]     CALCULATIONS FOR THE EARTH
  73. 690 [143]================================
  74. 700 X[178]1975
  75. 710 [139] Y[177][178]X [167] Z[178]1972
  76. 720 [139] Y[179]X [167] Z[178]1976
  77. 730 [139] Y[177][178]X [167] S[178]0
  78. 740 [139] Y[179]X [167] S[178]1
  79. 750 [141] 1780
  80. 760 T[178](360[173]365.25)[172](N[173]1.00004)
  81. 770 K[178]T
  82. 780 [141] 1930
  83. 790 T[178]K
  84. 800 T1[178](T[172]PI)[173]180
  85. 810 C[178].01672
  86. 820 J[178]T[170](360[173]PI)[172]C[172][191](T1[171].051943)
  87. 830 J[178]J[170]99.53429000000003
  88. 840 [139] J[177]360 [167] J[178]J[171]360
  89. 850 [139] J[179]0 [167] J[178]J[170]360
  90. 860 H[178]((J[171]102.51044)[172]PI)[173]180
  91. 870 R1[178](1[171]C[172]C)[173](1[170]C[172][190](H))
  92. 880 [143]================================
  93. 890 [143]   ECLIPTIC COORDINATES
  94. 900 [143]================================
  95. 910 U1[178]((P1[171]J)[172]PI)[173]180
  96. 920 U2[178]((J[171]P1)[172]PI)[173]180
  97. 930 [139] R2[179]R1 [167] [137] 990
  98. 940 Q1[178](R1[172][191](U1))
  99. 950 Q1[178]Q1[173](R2[171](R1[172][190](U1)))
  100. 960 Q1[178][193](Q1)
  101. 970 Q2[178](Q1[172]180)[173]PI[170]P1
  102. 980 [137] 1030
  103. 990 Q3[178](R2[172][191](U2))
  104. 1000 Q3[178]Q3[173](R1[171](R2[172][190](U2)))
  105. 1010 Q3[178][193](Q3)
  106. 1020 Q2[178](Q3[172]180)[173]PI[170]J[170]180
  107. 1030 [139] Q2[177]360 [167] Q2[178]Q2[171]360
  108. 1040 [139] Q2[179]0 [167] Q2[178]Q2[170]360
  109. 1050 Q4[178](Q2[172]PI)[173]180
  110. 1060 Q5[178](R2[172][192](I)[172][191](Q4[171]P))
  111. 1070 Q5[178]Q5[173](R1[172][191](U1))
  112. 1080 Q5[178][193](Q5)
  113. 1090 [143]===============================
  114. 1100 [143]     CONVERT TO EQ COOR.
  115. 1110 [143]===============================
  116. 1120 E1[178].40893064
  117. 1130 L1[178]([191](Q5)[172][190](E1))
  118. 1140 L1[178]L1[170]([190](Q5)[172][191](E1)[172][191](Q4))
  119. 1150 M1[178][193](L1[173][186]([171]L1[172]L1[170]1))
  120. 1160 Y2[178](M1[172]180)[173]PI
  121. 1170 B1[178]([192](Q4)[172][190](E1))
  122. 1180 B1[178]B1[171](([192](Q5)[172][191](E1))[173][190](Q4))
  123. 1190 G[178][193](B1)
  124. 1200 H1[178](G[172]180)[173]PI
  125. 1210 I1[178][181](Q2[173]90)
  126. 1220 J1[178][181](H1[173]90)
  127. 1230 [139] I1[171]J1[178]4 [176] I1[171]J1[178]1 [167] H1[178]H1[170]360
  128. 1240 [139] I1[171]J1[178]2 [176] I1[171]J1[178]3 [167] H1[178]H1[170]180
  129. 1250 [139] I1[171]J1[178][171]4 [167] H1[178]H1[170]360
  130. 1260 [139] I1[171]J1[178][171]2 [167] H1[178]H1[171]180
  131. 1270 N1[178]H1[173]15
  132. 1280 W[178][181]((N1[171][181](N1))[172]60[170].5)
  133. 1290 [139] W[178]60 [167] N1[178]N1[170]1
  134. 1300 [139] W[178]60 [167] W[178]0
  135. 1310 K1[178][182](Y2)
  136. 1320 W1[178][181]((K1[171][181](K1))[172]60[170].5)
  137. 1330 [139] W1[178]60 [167] G1[178]G1[170]1
  138. 1340 [139] W1[178]60 [167] W1[178]0
  139. 1350 G1[178][181](K1)
  140. 1360 [139] Y2[179]0 [175] G1[179]1 [167] W1[178][171]W1
  141. 1370 D1[178]R1[172]R1[170]R2[172]R2
  142. 1380 D2[178][186](D1)
  143. 1390 R3[178]D2[173][190](I)
  144. 1400 K9[178]R
  145. 1410 [141] 2040
  146. 1420 R[178]K9
  147. 1430 K9[178]R3[173]10
  148. 1440 [141] 2040
  149. 1450 R3[178]K9[172]10
  150. 1460 MO[178]4.1:N[178]3.1
  151. 1470 [139] DS[179]0 [167] MO[178]5:N[178]4.44
  152. 1480 MA[178]MO[170]5[172].4343[172][188](R3)
  153. 1485 MA[178]MA[170]N[172]2.5[172].4343[172][188](R)
  154. 1490 MA[178]([181](10[172]MA))[173]10
  155. 1500 [139] Y2[179]0 [167] G1[178][171]G1
  156. 1510 [143]===============================
  157. 1520 [143]     PRINT EPHEMERIS FOR DATE
  158. 1530 [143]===============================
  159. 1535 [143]
  160. 1540 [153]"LOADSYS --------------------------------------"
  161. 1550 [153]"        LEN(null)(null)VAL(null) LEFT$ATN(null)(null)VAL(null) RIGHT$NFORMATION"
  162. 1555 [153]" --------------------------------------"
  163. 1560 [153]" STR$ATE:"M"/"D"/"Y:[153]
  164. 1570 [153]:[153]"STR$AYS TO PERIHELION: ";[181](DS)"/"[181](DS[172]1000[173]365.25)[173]1000"(null)RS"
  165. 1600 [153]:[153]" (null)ATN:";[181](N1);" LEFT$(null)(null)      ";W;" (null)RIGHT$(null)"
  166. 1610 [153]"STR$VALLEN:";G1;" STR$VALCHR$      ";W1;" (null)RIGHT$(null)"
  167. 1620 [153]
  168. 1630 [153]"STR$ISTANCES:"
  169. 1635 [153]"----------"
  170. 1640 [153]"  LENOMET TO (null)(null)(null)";R[172]93;" (null)ILLION MILES"
  171. 1650 [153]"LENOMET TO VALATN(null)(null)LEFT$";R3[172]93;" (null)ILLION MILES"
  172. 1660 [153]
  173. 1670 [153]"(null)REDICTED (null)ATNCHR$  ";MA
  174. 1675 [153]"   ((null)OTE: 5 = LIMIT FOR NAKED EYE)"
  175. 1676 [153]
  176. 1700 [153]"OPENATNNOTHER STR$ATN(null)VAL? <(null)/(null)>SYS":[151]198,0:A$[178]""
  177. 1710 [161]A$:[139]A$[178]""[167]1710
  178. 1720 [139]A$[178]"Y"[176]A$[178]"(null)"[167]20
  179. 1730 [139]A$[178]"N"[176]A$[178]"(null)"[167][153]"LOAD":[158]64738
  180. 1740 [137]1710
  181. 1760 [143]===============================
  182. 1770 [143]     DAYS TO PERIHELION
  183. 1780 A[178](Y[171]Z)[173]4
  184. 1790 A1[178][181](A[170]S)
  185. 1800 N[178]365[172](Y[171]X[170]S)[170]A1
  186. 1810 [139] [181](A)[179][177]A [167] [137] 1830
  187. 1820 [139] (M[178]2 [175] D[179]29) [176] M[178]1 [167] N[178]N[171]1
  188. 1830 [139] M[177]2 [167] [137] 1870
  189. 1840 M2[178]M[171]1
  190. 1850 M2[178]31[172]M2
  191. 1860 [137] 1890
  192. 1870 M2[178]M[170]1
  193. 1880 M2[178][181](30.6[172]M2)[171]63
  194. 1890 N[178]N[170]M2[170]D[171]365[172]S
  195. 1900 [142]
  196. 1910 [143]===============================
  197. 1920 [143]  BETWEEN 0 AND 360
  198. 1930 [139] K[179]0 [167] [137] 1950
  199. 1940 [139] K[177]360 [167] [137] 1980
  200. 1950 K[178]K[170]360
  201. 1960 [139] K[177][178]0 [167] [137] 2010
  202. 1970 [137] 1950
  203. 1980 K[178]K[171]360
  204. 1990 [139] K[179][178]360 [167] [137] 2010
  205. 2000 [137] 1980
  206. 2010 [142]
  207. 2020 [143]===============================
  208. 2030 [143]     ROUND OFF
  209. 2040 K9[178]K9[172]1000
  210. 2050 K9[178][181](K9[170].5)
  211. 2060 K9[178]K9[173]1000
  212. 2070 [142]
  213. 3000 [143]===============================
  214. 3010 [143] EXPLANATION AREA
  215. 3020 [143]===============================
  216. 3021 [131] "(null)EMEMBER...THE DISTANCE TO THE OPEN(null)(null)(null)SYS"
  217. 3022 [131] "FROM THE OPENVALATN(null)(null)LEFT$SYS IS 93 MILLION MILES!"
  218. 3023 [131] "-----------------------------------"
  219. 3030 [131] "ATNSTRONOMICAL (null)YMBOLS"
  220. 3035 [131] "--------------------"
  221. 3040 [131] "(null)OCATIONS IN THE NIGHT (AND DAYTIME)"
  222. 3050 [131] "SKY ARE USUALLY FOUND USING WHAT IS"
  223. 3060 [131] "CALLED OPEN(null)RIGHT$CHR$LEFT$(null) ATN(null)LENVAL(null)(null)RIGHT$(null)(null)SYS AND OPENSTR$VALLEN(null)RIGHT$(null)ATN(null)RIGHT$(null)(null)SYS."
  224. 3070 [131] "OPEN(null)RIGHT$CHR$LEFT$(null) ATN(null)LENVAL(null)(null)RIGHT$(null)(null)SYS IS SIMILAR TO THE IDEA"
  225. 3080 [131] "OF OPEN(null)(null)(null)CHR$RIGHT$(null)(null)STR$VALSYS WHILE OPENSTR$VALLEN(null)RIGHT$(null)ATN(null)RIGHT$(null)(null)SYS IS"
  226. 3090 [131] "MUCH LIKE OPEN(null)ATN(null)RIGHT$(null)(null)STR$VALSYS."
  227. 3100 [131] "OPEN(null)RIGHT$CHR$LEFT$(null) ATN(null)LENVAL(null)(null)RIGHT$(null)(null)SYS IS MEASURED IN OPENLEFT$(null)(null)(null)(null)SYS"
  228. 3110 [131] "AND OPEN(null)RIGHT$(null)(null)(null)VAL(null)SYS.  (RIGHT$MAGINE A TRANSPARENT"
  229. 3120 [131] "GLOBE WITH A LIGHT BULB INSIDE.  (null)HE"
  230. 3130 [131] "LINES OF OPEN(null)(null)(null)CHR$RIGHT$(null)(null)STR$VALSYS WOULD SHOW UP AS"
  231. 3140 [131] "SHADOWS ON A WALL...THUS THE 24 OPENLEFT$(null)(null)(null)(null)SYS"
  232. 3150 [131] "OF OPEN(null)RIGHT$CHR$LEFT$(null) ATN(null)LENVAL(null)(null)RIGHT$(null)(null)SYS."
  233. 3160 [131] "(null)O FIND THE COMET, LOOK FOR A STAR"
  234. 3170 [131] "WITH OPEN(null)RIGHT$CHR$LEFT$(null) ATN(null)LENVAL(null)(null)RIGHT$(null)(null)SYS AND OPENSTR$VALLEN(null)RIGHT$(null)ATN(null)RIGHT$(null)(null)SYS"
  235. 3180 [131] "CLOSE TO THAT OF THE COMET.  (null)HEN"
  236. 3190 [131] "THE OPEN'(null)(null)VALSTR$RIGHT$LEN(null)VALSTR$ (null)ATNCHR$(null)RIGHT$(null)(null)STR$VAL'SYS GETS CLOSE"
  237. 3200 [131] "TO '8'....USE BINOCULARS AND GIVE"
  238. 3210 [131] "IT A TRY!!!"
  239. 4000 [131] "END"
  240. 5000 [151]53281,11:[151]53280,11:[141]6500
  241. 5500 [153]"LOADSYS";
  242. 5510 [135]A$:[139]A$[178]"END"[167][151]198,0:A$[178]"":[137]5530
  243. 5520 [141]6100:[137]5510
  244. 5530 [153]"(null)RESS ANY KEY TO CONTINUE...SYS";
  245. 5540 [161]A$:[139]A$[178]""[167]6000
  246. 5550 [137]20
  247. 6000 D5[178][181]([187](1)[172]4)
  248. 6010 [139]D5[178]0[167][153]"";
  249. 6020 [139]D5[178]1[167][153]"";
  250. 6030 [139]D5[178]2[167][153]"CLR";
  251. 6040 [139]D5[178]3[167][153]"STOP";
  252. 6050 [137]5530
  253. 6100 D6[178][195](A$)
  254. 6110 [129]I[178]1[164]D6:[153][202](A$,I,1);:[129]D7[178]0[164]33:[130]:[130]:[153]
  255. 6120 [142]
  256. 6500 [153]"LOADSYS                               "
  257. 6510 [153]"  LEFT$CLOSEATNCLOSE(null)CLOSE(null)CLOSEVALCLOSE(null)CLOSE'CLOSE(null)CLOSECLOSECLOSELENCLOSE(null)CLOSE(null)CLOSEVALCLOSE(null)  "
  258. 6520 [153]"                               "
  259. 6530 [129]I[178]0[164]1999:[130]:[142]
  260.