100 ! **********************************************************************
110 ! Program          GALAXY.800       Utg}va  1.0      1984-04-23
120 ! av Torbj|rn Alm
130 ! Ins{nd av Torbj|rn Alm
140 ! F|r ABC800M ABC800C ABC806, med HR-grafik
150 ! Testad p} ABC806
160 ! 
170 ! Screened by --"-TCP-"--
180 ! **********************************************************************
190 ! 
200 ! -------------------------------------!
210 ! *       G A L A X Y . B A C          !
220 ! *       *******************          !
230 ! * Simulated view of the Galaxy from  !
240 ! * BYTE April-79. ABC-800 HR version  !
250 ! * Torbj|rn Alm ABC116  830926        !
260 ! *                                    !
270 ! -------------------------------------!
280 FLOAT : EXTEND 
290 DIM Fx(300),Fy(300),Fz(300)
300 H=FNInfo : Maxstar=FNLasxy
310 ; CHR$(12) TAB(35) 'G A L A X Y' : ; TAB(35) '***********'
320 ; : ; 'Ange betraktelsepunkten'
330 INPUT 'Avst}nd fr}n solen i ljus}r';Dist
340 INPUT 'Right ascension (timvinkel) fr}n solen';Ra : Rr=Ra*PI/12
350 INPUT 'Deklination';Deb : Dec=Deb*PI/180
360 ; CHR$(12); : FGPOINT 0,0,0 : FGFILL 239,239
370 FGCTL 3 : FGPOINT 12,30,2 : FGLINE 12,210 : FGLINE 230,210 : FGLINE 230,30 : FGLINE 12,30
380 FGPOINT 12,120 : FGLINE 230,120 : FGPOINT 66,30 : FGLINE 66,210 : FGPOINT 120,30 : FGLINE 120,210 : FGPOINT 174,30 : FGLINE 174,210
390 ; CUR(1,3) '24' CUR(1,21) '18' CUR(1,39) '12' CUR(1,58) '6' CUR(1,76) '0'
400 ; CUR(22,3) '24' CUR(22,21) '18' CUR(22,39) '12' CUR(22,58) '6' CUR(22,76) '0'
410 ; CUR(3,0) '+90' CUR(12,0) ' 0' CUR(21,0) '-90' CUR(3,77) '+90' CUR(12,77) ' 0' CUR(21,77) '-90';
420 ; CUR(23,0) 'Distance ' Dist ' lyrs        Ra=' Ra 'hrs      Decl=' Deb ' deg';
430 Axy=Dist*COS(Dec) : Ax=Axy*COS(Rr)
440 Ay=Axy*SIN(Rr) : Az=Dist*SIN(Dec)
450 FOR I=1 TO Maxstar
460   Xp=Fx(I)-Ax : Yp=Fy(I)-Ay : Zp=Fz(I)-Az
470   Nra=ATN(Yp/Xp)*12/PI : Newr=SQR(Xp*Xp+Yp*Yp+Zp*Zp)
480   Ndec=FNAsn(Zp/Newr)
490   IF Xp<0 Nra=Nra+12
500   IF Xp>0 AND Yp<0 Nra=Nra+24
510   IF Nra>24 Nra=Nra-24
520   IF Nra<0 Nra=Nra+24
530   H=FNPlot(-Nra,Ndec)
540 NEXT I 
550 ; CUR(23,70) 'ok'; : GET A$ : GOTO 310
560 DEF FNLasxy LOCAL Cdec,Cra,Dist,I
570   RESTORE 740 : I=0
580   READ Cra : IF Cra<0 RETURN I
590   READ Cdec,Dist : I=I+1
600   Cra=Cra*PI/12 : Cdec=Cdec*PI/180
610   Cxy=Dist*COS(Cdec)
620   Fx(I)=Cxy*COS(Cra) : Fy(I)=Cxy*SIN(Cra)
630   Fz(I)=Dist*SIN(Cdec)
640   GOTO 580
650 FNEND 
660 DEF FNPlot(X,Y)
670   FGPOINT (X+24)*9+12,Y*180/PI+120
680   RETURN 0
690 FNEND 
700 DEF FNInfo
710   RETURN 0
720 FNEND 
730 DEF FNAsn(X)=ATN(X/SQR(1-X*X)) 
740 DATA 2.983,3.9,250,14.8,-15.833,62,2.933,-40.517,120,0,0,.1
750 DATA .667,4.1,1500000,.668,4.1,1500000,.666,4.2,1500005,.665,4.4,1500010
760 DATA .668,4.3,1501000,.667,4.5,1500100,.660,4,1500150,.656,4.4,1500050
770 DATA .660,4.55,1510000,.661,4.5,15100001,.667,4.6,1510000,.667,41.001,1500000
780 DATA .669,41,1500000,.665,41.001,1500000.1,.666,41.002,1500001
790 DATA .665,41.001,1500000,.668,40.999,1500000,.630,41.42,1500000,.667,40.6,1500000
800 DATA 3.733,23.950,4300,6.716,-16.6,8.7,14.6,-60.6,4.3,6.38,-52.6,2300,18.586,38.733,23
810 DATA 5.216,45.95,42,14.223,19.45,32,7.612,5.35,10,1.598,-57.483,70,14.005,-60.133,130
820 DATA 19.805,8.733,18,4.55,16.416,54,13.376,-10.900,190,22.915,-29.883,27,20.662,45.100,465
830 DATA 5.202,-8.25,545,5.875,7.4,300,5.367,6.3,230,5.567,-1.233,300,5.767,-9.683,2100,5.497,-.333,600
840 DATA 5.55,9.917,1600,16.438,-26.316,170,10.095,12.216,70,11.800,14.733,43,10.3,19.983,90,9.733,19.983,100
850 DATA 11.217,15.6,150,11.217,21,140,10.25,23.567,500,9.850,26.167,110,15.9,-28.5,450
860 DATA 16.883,-42.317,300,17.567,-42.967,140,17.5,-37.067,200,16.783,-34.2,75,17.650,-39,360
870 DATA 15.938,-22.533,590,16.883,-42.317,100,7.705,28.150,31,7.523,32,44,6.7,25.167,200
880 DATA 6.217,22.517,300,7.3,22.033,300,.9,60.45,200,37.833,59.267,230,.108,58.883,45
890 DATA 1.4,60.083,150,1.867,63.517,100,5.383,28.567,130,5.633,21,350,4.25,16,300
900 DATA 4.45,19.117,300,12.863,56.233,50,11,62.017,105,13.767,49.467,210,13.367,55.183,190
910 DATA 12.233,57.2,100,10.98,56.65,76,11.867,53.967,88,12.746,-59.416,465,12.396,-62.816,150
920 DATA 6.945,-28.9,325,12.4,-63.15,220,8.358,-59.35,330,9.217,-69.517,300,16.717,-68.933,130
930 DATA 3.35,49.683,270,8.133,-47.183,100,36.583,16.45,78,18.35,-34.417,160,7.1,-26.317,650
940 DATA 6.342,-17.933,300,8.717,-54.517,70,5.633,-1.967,400,5.933,44.950,84,20.367,-56.9,160
950 DATA 1.817,89.033,470,1.53,73,500,1.62,76,700,1.795,86.1,650,16.85,82.130,550,1.572,78.1,750
960 DATA 17.55,12.6,67,18.867,-26.367,160,.088,28.817,120,9.417,-8.433,200,22.083,-47.200,91
970 DATA 9.1,-43.233,220,3.082,40.767,100,2.067,23.233,74,22.65,-47.150,325,.683,-18.267,57
980 DATA 14.85,74.367,270,9.267,-59.067,100,14.067,-36.117,86,8.033,-39.867,800
990 DATA 2.033,42.083,400,15.55,26.883,67,20.333,40.1,470,1.117,35.35,75,17.917,51.500,150
1000 DATA 7.367,-29.200,270,.4,-42.583,76,21.700,9.65,250,23.033,14.933,100,17.125,-15.667,76
1010 DATA 12.217,-17.267,130
1020 DATA -1,-1