home *** CD-ROM | disk | FTP | other *** search
/ Carousel Volume 2 #1 / carousel.iso / comdore / 64apps / nightsky (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1989-01-30  |  13.4 KB  |  418 lines
  1. 1000 REM **NIGHTSKY**
  2. 1010 PRINT"[147]":POKE53272,23
  3. 1020 POKE53280,6:POKE53281,6
  4. 1110 DIME(7,6):DIMC(1024):DIMR$(25):DIMD$(48)
  5. 1120 FORX=1TO7:FORY=1TO6:READ E(X,Y)
  6. 1130 NEXT Y:NEXTX
  7. 1140 DEFFNR(X)=X/180*(null)
  8. 1150 DEFFND(X)=X*180/(null)
  9. 1160 DEFFNAS(X)=ATN(X/SQR(-X*X+1))
  10. 1170 DEFFNA1(X)=SIN(D)*COS(OE)-COS(D)*SIN(OE)*SIN(R)
  11. 1180 DEFFNA2(X)=SIN(R)*COS(OE)+TAN(D)*SIN(OE)
  12. 1190 DEFFNB1(X)=SIN(B)*COS(OE)+COS(B)*SIN(OE)*SIN(L)
  13. 1200 DEFFNB2(X)=SIN(L)*COS(OE)-TAN(B)*SIN(OE)
  14. 2000 PRINT"[147][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]";
  15. 2010 PRINT"    [195][200][193][210][212][211][160][207][198][160][212][200][197][160][211][212][193][210][211][160][193][206][196][160][208][204][193][206][197][212][211]     ";
  16. 2020 PRINT"[146][159]  [208]LEASE ENTER THE CODE FOR THE STATION ";
  17. 2050 PRINT"OF OBSERVATION."
  18. 2060 GET A$:IF A$=""THEN 2060
  19. 2100 IFASC(A$)= 13THENB$="-0702000+433000 [208]ORTLAND, [205]AINE"
  20. 2101 IFASC(A$)= 80THENB$="-0701048+420300 [208]ROVINCETOWN, [205]ASSACHUSETTS"
  21. 2102 IFASC(A$)= 66THENB$="-0710325+422114 [194]OSTON, [205]ASSACHUSETTS"
  22. 2110 IFASC(A$)=133THENB$="+0000000+512810 [199]REENWICH, [197]NGLAND"
  23. 2120 IFASC(A$)=137THENB$="+0000000+900000 [212]HE [206]ORTH [208]OLE"
  24. 2130 IFASC(A$)=134THENB$="-1222400+374700 [211]AN [198]RANCISCO, [195]ALIFORNIA"
  25. 2140 IFASC(A$)=138THENB$="-0730000+180000 [194]OMBAY, [201]NDIA"
  26. 2150 IFASC(A$)=135THENB$="+1050000+020000 [211]INGAPORE, [205]ALAYSIA"
  27. 2160 IFASC(A$)=139THENB$="+1511200-335200 [211]YDNEY, [206]EW [211]OUTH [215]ALES"
  28. 2170 IFASC(A$)=136THENB$="-0553000-520000 [211]TANLEY, [198]ALKLAND [201]SLANDS"
  29. 2180 IFASC(A$)=140THENB$="+0000000-900000 [212]HE [211]OUTH [208]OLE"
  30. 2200 L$=B$:IF LEN(L$)<2 THEN GOTO 2060
  31. 2310 O$=MID$(L$,17,(LEN(L$)-15))
  32. 2320 PRINT:PRINT CHR$(159) TAB((40-LEN(O$))/2) O$
  33. 2330 O$=O$+"                                        "
  34. 2340 O$=LEFT$(O$,40)
  35. 2350 LG=FNR(VAL(MID$(L$,2,3))+VAL(MID$(L$,5,2))/60+VAL(MID$(L$,7,2))/3600)
  36. 2360 IF MID$(L$,1,1)="-"THEN LG=-LG
  37. 2370 LT=FNR(VAL(MID$(L$,10,2))+VAL(MID$(L$,12,2))/60+VAL(MID$(L$,14,2))/3600)
  38. 2380 IF MID$(L$,9,1)="-"THEN LT=-LT
  39. 2430 PRINT"  [208]LEASE ENTER THE LOCAL DATE: FIRST THE";
  40. 2440 PRINT"MONTH, ";
  41. 2450 GET A$:IF A$=""THEN 2450
  42. 2455 IF ASC(A$)=20THENRUN
  43. 2460 IF ASC(A$)=13THENM=1:GOTO2560
  44. 2470 IF ASC(A$)<49ORASC(A$)>57THEN2450
  45. 2480 IF ASC(A$)>49THENM=VAL(A$):GOTO2560
  46. 2490 GETB$:IFB$=""THEN2490
  47. 2495 IF ASC(B$)=20THENRUN
  48. 2500 IF ASC(B$)=13THENM=1:GOTO2560
  49. 2510 IF ASC(B$)<48ORASC(B$)>57THEN2490
  50. 2520 M=10*VAL(A$)+VAL(B$)
  51. 2560 A$="679874200346[202]ANUARY[198]EBRUARY[205]ARCH[193]PRIL[205]AY[202]UNE[202]ULY"
  52. 2570 A$=A$+"[193]UGUST[211]EPTEMBER[207]CTOBER[206]OVEMBER[196]ECEMBER785534469788"
  53. 2580 M$=MID$(A$,6*M+1+VAL(MID$(A$,M,1)),VAL(MID$(A$,M+86,1)))
  54. 2590 S$=M$
  55. 2600 PRINT""TAB((40-LEN(S$))/2)S$
  56. 2670 PRINT"[145][145][145]THEN THE DAY,"
  57. 2680 GETA$:IFA$=""THEN2680
  58. 2685 IF ASC(A$)=20THENRUN
  59. 2690 IF ASC(A$)=13THEND=1:GOTO2770
  60. 2700 IF ASC(A$)<48ORASC(A$)>57THEN2680
  61. 2710 IFASC(A$)>51THEND=VAL(A$):GOTO2770
  62. 2730 GETB$:IFB$=""THEN2730
  63. 2735 IF ASC(A$)=20THENRUN
  64. 2740 IF ASC(B$)=13ORASC(B$)=44THEND=VAL(A$):GOTO2770
  65. 2750 IF ASC(B$)<48ORASC(B$)>57THEN2730
  66. 2760 D=10*VAL(A$)+VAL(B$)
  67. 2770 S$=M$+STR$(D)+","
  68. 2780 PRINT""TAB((40-LEN(S$))/2)S$
  69. 2790 PRINT"[145][145][145] AND THE YEAR.":LET Y$="":LETY=0
  70. 2800 FORA=1TO4
  71. 2802 GETA$:IFA$=""THEN2802
  72. 2805 IF ASC(A$)=20THENRUN
  73. 2810 IF ASC(A$)=13ANDA>1THEN2860
  74. 2820 IF ASC(A$)=13THENY=1986:GOTO2860
  75. 2830 IF ASC(A$)<48ORASC(A$)>57THEN2800
  76. 2840 Y=10*Y+VAL(A$)
  77. 2850 NEXT
  78. 2860 S$=S$+STR$(Y)
  79. 2870 PRINT""TAB((40-LEN(S$))/2)S$
  80. 3030 PRINT"  [208]LEASE ENTER THE LOCAL [211]TANDARD [212]IME  ";
  81. 3040 PRINT"IN FOUR DIGIT TWENTY-FOUR HOUR NOTATION.";:T$=""
  82. 3050 FORA=1TO4
  83. 3060 GETA$:IFA$=""THEN3060
  84. 3065 IF ASC(A$)=20THENRUN
  85. 3070 IF ASC(A$)=13THENT$="0000":GOTO3140
  86. 3080 IF ASC(A$)=13 THEN 3110
  87. 3090 IF ASC(A$)<48 OR ASC(A$)>57 THEN 3060
  88. 3100 T$=T$+A$
  89. 3110 F=F+1:J=J-1
  90. 3120 NEXT
  91. 3140 U$=T$+T1$:U$=MID$(U$,1,2)+":"+MID$(U$,3)
  92. 3150 T=(VAL(MID$(T$,1,2))+VAL(MID$(T$,3,2))/60)/24
  93. 3160 TZ=INT(LG*180/(null)/15+0.5)/24
  94. 3170 D=D+T-TZ
  95. 3180 PRINT""SPC(15)U$" [204][211][212]"
  96. 3200 INPUT"  [196]IRECTION: [206]-[206][197]-[197]-[211][197]-[211]-[211][215]-[215]-[206][215]  S    [157][157][157][157][157][157][157]";A$
  97. 3210 IFA$="NE"THENDR=045
  98. 3220 IFA$="E" THENDR=090
  99. 3230 IFA$="SE"THENDR=135
  100. 3240 IFA$="S" THENDR=180
  101. 3250 IFA$="SW"THENDR=225
  102. 3260 IFA$="W" THENDR=270
  103. 3270 IFA$="NW"THENDR=315
  104. 3280 IFA$="N" THENDR=360
  105. 3290 IFDR=0THENPRINTCHR$(13)"[145][145][145][145]":GOTO3208
  106. 3300 D$(0)="000":D$(24)="000"
  107. 3305 FORX=1TO23
  108. 3310 D$(X)=MID$(STR$(X*15),2)
  109. 3320 IFLEN(D$(X))=2THEND$(X)="0"+D$(X)
  110. 3330 D$(X+24)=D$(X):NEXT
  111. 3340 FORX=-3TO3
  112. 3350 DR$=DR$+D$(X+DR/15)+"  "
  113. 3360 NEXT
  114. 3370 DR$="    "+DR$
  115. 3400 REM CONVERSION TO JULIAN DATE
  116. 3410 G=1:IFY<1752ORY=1752ANDM<9ORY=1752ANDM=9ANDD<4THENG=0
  117. 3420 D1=INT(D):F=D-D1-0.5
  118. 3430 J=-INT(7*(INT((M+9)/12)+Y)/4)
  119. 3440 IFG=0THEN 3480
  120. 3450 S=SGN(M-9):A=ABS(M-9)
  121. 3460 J1=INT(Y+S*INT(A/7))
  122. 3470 J1=-INT((INT(J1/100)+1)*3/4)
  123. 3480 J=J+INT(275*M/9)+D1+G*J1
  124. 3490 J=J+1721027+2*G+367*Y
  125. 3500 OE=0.4093197-2.2711E-4*(T/100-19)
  126. 3510 F=F+1:J=J-1
  127. 3520 T=D/36525:T1=INT(T)
  128. 3530 J0=T1*36525+2451545
  129. 3540 T2=(J-J0+0.5)/36525
  130. 3550 S=24110.54841+184.812866*T1
  131. 3560 S=S+8640184.812866*T2
  132. 3570 S=S+0.093104*T*T
  133. 3580 S=S-0.0000062*T*T*T
  134. 3590 S=S/86400: S=S-INT(S)
  135. 3600 S=24*(S+(F-0.5)*1.002737909)
  136. 3610 IF S<0 THEN S=S+24
  137. 3620 IF S>24THEN S=S-24
  138. 3630 T=FNR(S)*15
  139. 3800 POKE646,3:POKE53280,3:POKE53281,3:PRINT"[147]  "LEFT$(O$,37)
  140. 3810 PRINT"  "S$TAB(31)U$" LST";
  141. 3820 POKE53272,21:FORX=1026TO1067:IFPEEK(X)>64THENPOKEX,(PEEK(X)-64)
  142. 3830 NEXT
  143. 3910 Y$="                                    ":Z$="[179]"+Y$+"[171]":Y$="  "+"[221]"+Y$+"[221]"
  144. 3920 PRINT"  [176][192][192][177][192][192][192][192][177][192][192][192][192][177][192][192][192][192][177][192][192][192][192][177][192][192][192][192][177][192][192][192][192][177][192][192][192][174]"Y$Y$;
  145. 3930 FORX=75TO25STEP-25:X$=MID$(STR$(X),2):PRINTX$Z$Y$Y$Y$Y$Y$;:NEXT
  146. 3940 PRINT" 0[173][192][192][178][192][192][192][192][178][192][192][192][192][178][192][192][192][192][178][192][192][192][192][178][192][192][192][192][178][192][192][192][192][178][192][192][192][189]";DR$;
  147. 4000 REM THE SUN
  148. 4010 P=1:D1=J-2444238.5:D1=D1+F:N1=360/365.2422*D1
  149. 4040 N1=360*(N1/360-INT(N1/360))/180*(null):M0=N1+FNR(E(1,2))-FNR(E(1,3))
  150. 4080 E0=M0:FORCC=1TO3:E0=E0-(E0-E(1,4)*SIN(E0)-M0)/(1-E(1,4)*COS(E0)):NEXTCC
  151. 4100 V0=2*ATN(SQR((1+E(1,4))/(1-E(1,4)))*TAN(E0/2)):L=V0+FNR(E(1,3)):B=0
  152. 4130 GOSUB8000:SY=81:CL=7:GOSUB6000
  153. 4150 IFH=<-12THENHP=0
  154. 4160 IFH=>-12ANDH<0THENHP=6
  155. 4170 IFH=>0THENHP=14
  156. 4180 POKE53280,HP:POKE53281,HP
  157. 4300 PL=2:REM MOON
  158. 4304 PRINT""SPC(32)"[158]THE SUN "
  159. 4310 D1=J-2444238.5:D1=D1+F
  160. 4320 L2=13.1763966*D1+E(2,2)
  161. 4330 L2=360*(L2/360-INT(L2/360))
  162. 4340 M2=FNR(L2-0.1114041*D1-E(2,3))
  163. 4350 N2=FNR((E(2,1)-0.0529539*D1))
  164. 4360 L2=FNR(L2)
  165. 4370 N1=360/365.2422*D1
  166. 4380 N1=360*(N1/360-INT(N1/360))/180*(null)
  167. 4390 M0=N1+FNR(E(1,2))-FNR(E(1,3))
  168. 4400 E0=M0
  169. 4410 FOR CC=1 TO 3
  170. 4420 E0=E0-(E0-E(1,4)*SIN(E0)-M0)/(1-E(1,4)*COS(E0))
  171. 4430 NEXT CC
  172. 4440 V0=2*ATN(SQR((1+E(1,4))/(1-E(1,4)))*TAN(E0/2))
  173. 4450 L0=V0+FNR(E(1,3))
  174. 4470 A1=(FNR(1.2739))*SIN((2*(L2-L0))-M2)
  175. 4480 A2=FNR(0.1858)*SIN(M0)
  176. 4490 A3=FNR(0.3700)*SIN(M0)
  177. 4500 M3=M2+A1-A2-A3
  178. 4510 A4=FNR(6.2886)*SIN(M3)
  179. 4520 A5=FNR(0.2140)*SIN(2*M3)
  180. 4530 L3=L2+A1+A4-A2+A5
  181. 4540 V2=FNR(0.6583)*SIN(2*(L3-L0))
  182. 4550 L4=L3+V2:PH=FND(L4-L0):IFPH<0THENPH=PH+360
  183. 4560 N3=N2-FNR(0.1600)*SIN(M0)
  184. 4570 Y1=SIN(L4-N3)*COS(FNR(E(2,5)))
  185. 4580 X=COS(L4-N3):Z=ATN(Y1/X)
  186. 4600 IF X<0 THEN Z=Z+(null)
  187. 4610 IF X>0 AND Y1<0 THEN Z=Z+2*(null)
  188. 4620 L=Z+N3
  189. 4630 B=FNAS(SIN(L4-N3)*SIN(FNR(E(2,5))))
  190. 4640 GOSUB 8000
  191. 4650 CL=13
  192. 4660 IFPH=<090THENSY=41
  193. 4670 IFPH>090ANDPH<270THENSY=81
  194. 4680 IFPH=>270THENSY=40
  195. 4690 GOSUB 6000
  196. 5000 REM PLANETS
  197. 5001 FOR P=3TO7
  198. 5002 GETA$:IFA$=""THEN5004
  199. 5003 IFASC(A$)=20THENRUN
  200. 5004 IFP=3THENPRINT""SPC(32)"[153]THE MOON"
  201. 5005 IFP=4THENPRINT""SPC(32)"[151]MERCURY "
  202. 5006 IFP=5THENPRINT""SPC(32)"VENUS   "
  203. 5007 IFP=6THENPRINT""SPC(32)"MARS    "
  204. 5008 IFP=7THENPRINT""SPC(32)"[150]JUPITER "
  205. 5010 D1=J-2444238.5:D1=D1+F
  206. 5020 N1=360*D1/365.2422/E(P,6)
  207. 5025 N1=360*(N1/360-INT(N1/360))
  208. 5030 M0=FNR(N1+E(P,1)-E(P,2)):E=M0
  209. 5060 FORCC=1TO4:E=E-(E-E(P,5)*SIN(E)-M0)/(1-E(P,5)*COS(E)):NEXTCC
  210. 5080 V1=2*ATN(SQR((1+E(P,5))/(1-E(P,5)))*TAN(E/2))
  211. 5085 L1=V1+FNR(E(P,2))
  212. 5090 R1=E(P,6)^(2/3)*(1-E(P,5)^2)/(1+E(P,5)*COS(V1)):D1=J-2444238.5:D1=D1+F
  213. 5100 N2=360/365.2422*D1/1.00004
  214. 5110 N2=360*(N2/360-INT(N2/360))
  215. 5120 M0=FNR(N2+E(1,2)-E(1,3))
  216. 5130 E=M0:FORCC=1TO3:E=E-(E-E(1,4)*SIN(E)-M0)/(1-E(1,4)*COS(E)):NEXTCC
  217. 5140 V2=2*ATN(SQR((1+E(1,4))/(1-E(1,4)))*TAN(E/2))
  218. 5150 L2=V2+FNR(102.596403)
  219. 5160 R2=(1-E(1,4)^2)/(1+E(1,4)*COS(V2))
  220. 5170 W=FNAS(SIN(L1-(FNR(E(P,3))))*SIN(FNR(E(P,4))))
  221. 5180 X1=COS(L1-FNR(E(P,3)))
  222. 5190 Y1=SIN(L1-FNR(E(P,3)))*COS(FNR(E(P,4)))
  223. 5200 Z1=ATN(Y1/X1)
  224. 5210 IF X1<0 THEN Z1=Z1+(null)
  225. 5220 IF X1>0 AND Y1<0 THEN Z1=Z1+2*(null)
  226. 5230 L3=Z1+FNR(E(P,3))
  227. 5240 R3=R1*COS(W)
  228. 5250 IFP=<4THENL=(null)+L2+ATN((R3*SIN(L2-L3))/(R2-R3*COS(L2-L3)))
  229. 5260 IFP=>5THENL=L3+ATN((R2*SIN(L3-L2))/(R3-R2*COS(L3-L2)))
  230. 5270 B=ATN((R3*TAN(W)*SIN(L-L3))/(R2*SIN(L3-L2)))
  231. 5280 GOSUB 8000
  232. 5290 SY=81
  233. 5300 IFP=3THENCL=11
  234. 5310 IFP=4THENCL=1
  235. 5320 IFP=5THENCL=8
  236. 5330 IFP=6THENCL=10
  237. 5340 IFP=7THENCL=3
  238. 5350 GOSUB6000
  239. 5360 IFP=7THENPRINT""SPC(32)"[159]SATURN  ":FORDS=1TO1000:NEXT
  240. 5370 NEXTP
  241. 5800 REM PLOTTING OF STARS
  242. 5810 SY=42:FORJJ=1TO315:READR,D
  243. 5830 PRINT""SPC(31)"STAR:"JJ" "
  244. 5840 IFT2<-0.5ORT2>0.5THENGOSUB8200
  245. 5850 IFLT>0ANDD<LT-(null)/2THEN5880
  246. 5860 IFLT<0ANDD>LT+(null)/2THEN5880
  247. 5870 GOSUB6000
  248. 5880 NEXTJJ
  249. 5890 PRINT""SPC(31)"          "
  250. 5900 GOTO 6800
  251. 6000 REM SUBROUTINE FOR A,H
  252. 6010 T5=T-R+LG:S1=SIN(LT)*SIN(D)+COS(LT)*COS(D)*COS(T5)
  253. 6140 C1=1-S1*S1:IFC1>0THENC1=SQR(C1)
  254. 6160 IF C1<=0THEN 6180
  255. 6170 H=ATN(S1/C1):GOTO 6190
  256. 6180 H=SGN(S1)*(null)/2
  257. 6190 IFH<0ANDP<>1THENRETURN
  258. 6200 C2=COS(LT)*SIN(D)-SIN(LT)*COS(D)*COS(T5):S2=-COS(D)*SIN(T5)
  259. 6220 IFC2=0THENA=SGN(S2)*(null)/2
  260. 6230 IFC2=0THEN 6260
  261. 6240 A=ATN(S2/C2):IFC2<0THENA=A+(null)
  262. 6260 IFA<0THENA=A+2*(null)
  263. 6270 H=FND(H):A=FND(A)
  264. 6272 IFDR=>270ANDA<180THENA=A+360
  265. 6274 IFDR=<090ANDA>180THENA=A-360
  266. 6280 Y=INT(-0.24*H+23.5)
  267. 6300 X=INT(1/3*(A-DR)+20.5)
  268. 6310 GETA$:IFA$=""THEN6350
  269. 6320 IFASC(A$)=80THENPP$="P"
  270. 6330 IFASC(A$)=64THEN6850
  271. 6340 IFASC(A$)=20THENRUN
  272. 6350 Z=40*Y+X+1024
  273. 6360 IFJJ>93THENCL=11:GOTO6400
  274. 6370 IFJJ>22THENCL=15:GOTO6400
  275. 6380 IFJJ>00THENCL= 1
  276. 6400 IFNOT(X>2ANDX<40ANDY>2ANDY<24ANDPEEK(Z)=32)THENRETURN
  277. 6500 POKEZ,SY:POKEZ+54272,CL
  278. 6502 IFJJ=125ORJJ=142THENPOKEZ,102
  279. 6505 W=Z-1024
  280. 6506 IFJJ=125ORJJ=142THENC(W)=102:RETURN
  281. 6510 IFSY=42ANDCL=11THENC(W)=46:RETURN
  282. 6520 IFSY=42ANDCL=15THENC(W)=43:RETURN
  283. 6530 IFSY=42ANDCL= 1THENC(W)=42:RETURN
  284. 6540 IFSY=81ANDCL= 7THENC(W)=15:RETURN
  285. 6550 IFSY=81ANDCL=11THENC(W)=13:RETURN
  286. 6560 IFSY=81ANDCL= 1THENC(W)=22:RETURN
  287. 6570 IFSY=81ANDCL= 8THENC(W)= 1:RETURN
  288. 6580 IFSY=81ANDCL=10THENC(W)=10:RETURN
  289. 6590 IFSY=81ANDCL= 3THENC(W)=19:RETURN
  290. 6600 RETURN
  291. 6800 REM HARD COPY
  292. 6805 IFPP$="P"THEN6850
  293. 6810 GETA$:IFA$=""THEN6810
  294. 6820 IFASC(A$)=20THENRUN
  295. 6830 IFASC(A$)<>80THEN6800
  296. 6850 FORY=3TO23:FORX=3TO38
  297. 6860 Z=40*Y+1024+X:W=Z-1024
  298. 6870 IFC(W)>0THENPOKEZ,C(W)
  299. 6880 NEXTX:NEXTY
  300. 7040 OPEN4,4:CMD4
  301. 7050 FORY=0TO24:FORX=0TO39
  302. 7060 Z=PEEK(40*Y+1024+X)
  303. 7070 IFZ<32OR Z>95THENZ=Z+64:GOTO7100
  304. 7080 IFZ>63ANDZ<96THENZ=Z+32
  305. 7100 R$(Y)=R$(Y)+CHR$(Z)
  306. 7110 NEXTX
  307. 7120 PRINTCHR$(14)R$(Y)
  308. 7130 NEXTY
  309. 7140 CLOSE4
  310. 7150 GETA$:IFA$=""THEN7150
  311. 7160 RUN
  312. 8000 REM ECLIPTIC TO EQUATORIAL
  313. 8010 D=FNAS(FNB1(X))
  314. 8020 Y=FNB2(X):X=COS(L)
  315. 8030 R=ATN(Y/X):IFX<0THENR=R+(null)
  316. 8040 IFX>0ANDY<0THENR=R+2*(null)
  317. 8050 RETURN
  318. 8200 REM PRECESSION
  319. 8210 B=FNAS(FNA1(X))
  320. 8220 Y=FNA2(X):X=COS(R)
  321. 8230 L=ATN(Y/X):IFX<0THENL=L+(null)
  322. 8240 IFX>0ANDY<0THENL=L+2*(null)
  323. 8250 L=L+0.0243817*T2:GOTO8010
  324. 8800 REM ELEMENTS OF PLANETS (1980.0)
  325. 8810 DATA000.000000,278.83354,282.59640
  326. 8820 DATA0.016718,1,0
  327. 8830 DATA151.950429,064.97546,349.38306
  328. 8840 DATA0.054900,5.145396,0
  329. 8850 DATA231.2973,77.1442128,48.0941733
  330. 8860 DATA7.0043579,0.2056306,0.24085
  331. 8870 DATA355.7335,131.289579,76.4997524
  332. 8880 DATA3.394435,0.0067826,0.61521
  333. 8890 DATA126.30783,335.690816,49.403200
  334. 8900 DATA1.8498011,0.0933865,1.88089
  335. 8910 DATA146.96636,14.009549,100.252017
  336. 8920 DATA1.3041819,0.0484658,11.86224
  337. 8930 DATA165.32224,92.665397,113.488834
  338. 8940 DATA2.4893741,0.0556155,29.45771
  339. 9000 REM R.A. AND DEC. (2000.0)              OF STARS TO MAG  3.5
  340. 9010 DATA 1.768,-.292,1.675,-.92,3.838,-1.062,3.734, .335,4.874, .677
  341. 9020 DATA 1.372,-.143,1.382, .803,2.004, .091,.426,-.999,1.55, .129
  342. 9030 DATA 3.682,-1.054,5.196, .155,1.204, .288,3.258,-1.101,3.513,-.195
  343. 9040 DATA 4.317,-.461,2.03, .489,6.011,-.517,3.35,-1.042,5.417, .79
  344. 9050 DATA 2.655, .209,3.838,-1.062,1.827,-.506,1.375, .111,1.984, .557
  345. 9060 DATA 3.278,-.997,4.597,-.648,1.424, .499,1.467,-.021,2.414,-1.217
  346. 9070 DATA 5.796,-.82,.891, .87,1.487,-.034,2.136,-.826,2.896, 1.078
  347. 9080 DATA 3.377, .977,1.569, .784,1.735, .286,1.869,-.461,2.193,-1.039
  348. 9090 DATA 3.258,-1.101,3.611, .861,4.401,-1.205,4.613,-.75,4.818,-.6
  349. 9100 DATA 5.348,-.99,.19,-.314,.555, .409,.662, 1.558,1.67,-.313
  350. 9110 DATA 2.289,-.955,2.477,-.151,4.954,-.459,.037, .508,.304, .622
  351. 9120 DATA .821, .715,1.517,-.169,3.094, .254,3.694,-.635,3.886, 1.294
  352. 9130 DATA 4.603, .219,5.946,-.818,.177, .987,.541, .739,1.449,-5E-03
  353. 9140 DATA 2.391,-.758,3.323,-.855,4.078, .466,4.698, .899,5.333, .703
  354. 9150 DATA .04, 1.032,2.11,-.698,2.431,-1.035,2.705, .346,3.508, .959
  355. 9160 DATA 3.577,-.933,3.82,-.736,3.848,-.827,4.19,-.395,4.408,-.599
  356. 9170 DATA .115,-.738,1.938,-.511,2.888, .984,3.115, .937,3.861, .473
  357. 9180 DATA 4.496,-.274,4.636,-.681,5.579, 1.092,5.691, .172,6.038, .49
  358. 9190 DATA .247, 1.06,.795, .071,2.453,-.96,5.438, .593,6.042, .265
  359. 9200 DATA .5, .363,1.452,-.311,1.482,-.595,1.57, .649,2.941, .358
  360. 9210 DATA 3.178,-.885,3.211,-.306,3.646,-.825,4.001,-.164,4.212,-.346
  361. 9220 DATA 4.351,-.184,.374, 1.051,1.296, .579,1.907,-.647,2.822,-.863
  362. 9230 DATA 3.292,-.408,3.304,-1.207,3.642, .321,3.921,-.753,4.12, .112
  363. 9240 DATA 4.251,-.064,4.293, 1.074,4.585,-.651,4.804,-.521,5.176, .185
  364. 9250 DATA .058, .265,.112,-1.348,1.343,-.089,1.432,-.362,1.464,-.103
  365. 9260 DATA 2.127,-.424,2.805,-1.124,3.208,-1.025,3.323,-.025,3.413, .191
  366. 9270 DATA 3.493,-.641,3.887,-.28,4.08,-.718,4.321, .375,4.345,-.492
  367. 9280 DATA 4.369, .552,4.583, .913,4.64, .08,4.834,-.444,.518,-1.075
  368. 9290 DATA .806, .934,.993, .421,1.022, .556,1.038, .698,1.671, .393
  369. 9300 DATA 1.789,-.883,1.951, .145,3.386, .669,4.01,-1.199,4.168,-1.107
  370. 9310 DATA 4.184,-.456,4.281,-.447,4.561,-.969,5.017,-.367,5.17, .788
  371. 9320 DATA 5.635,-.097,5.703,-.281,5.84,-1.052,5.947, .527,.565, .611
  372. 9330 DATA .608,-.052,.973, .834,1.039,-.236,1.318, .765,1.473, .369
  373. 9340 DATA 1.659,-.525,1.762, .439,1.846,-.416,2.556, .415,2.562,-1.136
  374. 9350 DATA 2.922, .777,3.186,-.395,3.272,-.288,3.486,-.404,3.62,-.741
  375. 9360 DATA 3.805, .669,4.415,-.664,4.589,-.871,4.658,-.7,4.738,-.531
  376. 9370 DATA 4.986,-.522,4.998, .242,5.733,-.652,5.785,-6E-03,1.531,-.624
  377. 9380 DATA 2.336, .104,2.353, .838,2.448, .6,2.492,-.995,2.715, .724
  378. 9390 DATA 2.834,-.283,3.036,-1.1,3.344,-1.189,3.923,-.735,4.017, 1.254
  379. 9400 DATA 4.445,-.977,4.516, .434,4.789,-.642,5.029, 1.181,5.108, .488
  380. 9410 DATA 5.328,-.258,5.4,-.825,.778,-.703,.992,-1.296,1.265, .121
  381. 9420 DATA 1.333,-.39,1.337, .72,1.736,-.754,2.5, .902,3.85,-1.134
  382. 9430 DATA 4.02,-.709,4.269,-.082,4.44, .164,4.489, 1.147,4.515, .251
  383. 9440 DATA 4.516, .642,4.668,-.647,4.912,-.471,4.97, .571,5.285,-.014
  384. 9450 DATA 5.554, .528,5.623, 1.232,6.193, 1.355,.172, .539,.288,-.815
  385. 9460 DATA 1.196,-.961,1.365,-.283,1.636, .393,1.781,-1.081,1.96,-.756
  386. 9470 DATA 2.048,-.434,2.678,-1.222,2.758,-1.077,2.942, .269,3.209, .995
  387. 9480 DATA 3.693,-.466,3.945,-.441,4.036, 1.029,4.504,-.755,4.547,-.436
  388. 9490 DATA 4.561,-.984,4.708,-.171,4.805,-.051,5.004,-.483,5.998,-.276
  389. 9500 DATA .214, 1.009,.386,-.756,.493, .516,.499, 1.111,.808, .678
  390. 9510 DATA 1.11,-1.09,1.172, .277,1.416,-.042,1.462, .173,1.768, .225
  391. 9520 DATA 2.226, 1.06,2.299, .112,2.404,-1.029,2.691, .409,2.693,-1.07
  392. 9530 DATA 3.384, .059,3.555,-.01,3.619,-.728,3.981,-.909,4.026,-.78
  393. 9540 DATA 4.189,-.67,4.653, .484,5.001,-.085,5.085, .054,5.432,-1.155
  394. 9550 DATA 5.433, 1.079,5.807, 1.016,5.941, .189,.299,-.178,.454,-.278
  395. 9560 DATA .713, .056,1.05, .218,1.84,-.488,2.08,-.925,2.693, .749
  396. 9570 DATA 2.96, .578,3.935, .705,3.995, .581,4.931, .582,5.231, .34
  397. 9580 DATA 5.971,-.896,5.978, .429
  398. 9610 DATA 1.172,0.335,2.166,0.160,2.650,0.293,4.376,0.679
  399. 9620 DATA 3.101,0.031,4.089,-0.491
  400. 9630 DATA 2.298,0.502,5.215,0.112
  401. 9640 DATA 0.533,0.048,2.586,0.454,5.854,-0.024,3.853,-0.099
  402. 9650 DATA 2.289,0.317,3.228,-0.017,4.452,0.540,5.220,0.612
  403. 9660 DATA 5.914,-0.002
  404. 9670 DATA 1.807,-0.210,1.849,-0.273,5.462,-0.467
  405. 9680 DATA 2.350,0.207,4.389,1.432
  406. 9690 DATA 3.672,0.027,4.119,1.358
  407. 9700 DATA 4.591,1.511,4.265,1.322
  408. 9710 DATA 5.662,-0.137,5.870,0.024
  409. 9720 DATA 4.265,-1.322
  410. 60000 REM ** END PROGRAM **
  411. 60010 PRINT"[147]RE-SAVING THE PROGRAM."
  412. 60020 PN$="NIGHTSKY":OPEN15,8,15
  413. 60030 PRINT#15,"S0:"+PN$+".BKUP"
  414. 60040 PRINT#15,"R0:"+PN$+".BKUP="+PN$
  415. 60050 CLOSE15
  416. 60060 SAVEPN$,8
  417. 60070 END
  418.