Carousel Volume 2 #1/carousel.iso/comdore/64apps/nightsky

Commodore BASIC | 1989-01-30 | 14KB | 418 lines

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