Home » CEEFAX disks » telesoftware12.adl » 17-02-89/T\Astra

17-02-89/T\Astra

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » CEEFAX disks » telesoftware12.adl
Filename: 17-02-89/T\Astra
Read OK:
File size: 0FE4 bytes
Load address: 0000
Exec address: 0000
File contents
                     Technical info for the Astra satellite

   Astra is positioned in a geostationary orbit over longitude 19.2 degrees
   East.  From London, point your dish 24.2 degrees East, with 28.3 degrees
   elevation. (Subtract 6 degrees from azimuth if using a magnetic compass)

   Technical details available by phone from Luxembourg: 010-352-717251


   Frequencies:

             Horizontal Polarisation         Vertical Polarisation

              Ch.1    11214.25 Mc/s          Ch.2    11229.00 Mc/s
              Ch.3    11243.75 Mc/s          Ch.4    11258.50 Mc/s
              Ch.5    11273.25 Mc/s          Ch.6    11288.00 Mc/s
              Ch.7    11302.75 Mc/s          Ch.8    11317.50 Mc/s
              Ch.9    11332.25 Mc/s          Ch.10   11347.00 Mc/s
              Ch.11   11361.75 Mc/s          Ch.12   11376.50 Mc/s
              Ch.13   11391.25 Mc/s          Ch.14   11406.00 Mc/s
              Ch.15   11420.25 Mc/s          Ch.16   11435.50 Mc/s


   Video Deviation ....... 16 Mc/s pk-pk
   Pre-emphasis .......... CCIR 405-1
   Energy Dispersal ...... 2 Mc/s pk-pk
   Channel bandwidth ..... 26 Mc/s
   Primary Audio ......... 6.50 Mc/s
   Pre-emphasis .......... 50 us
   S/C Bandwidth ......... 180 Kc/s

   Additional sound channels using the PANDA-1 discrete subcarrier system:
       Stereo 1   7.02 Mc/s (L)    7.20 Mc/s (R)
       Stereo 2   7.38 Mc/s (L)    7.56 Mc/s (R)
   some channels use four separate mono sound signals.


   Networks:

          Ch.1   ScreenSport      T.B.A.
          Ch.2   ---
          Ch.3   Scansat TV3      On Air     Stereo               (MAC)
          Ch.4   Disney           T.B.A.
          Ch.5   Lifestyle        T.B.A.
          Ch.6   ---
          Ch.7   Scansat TV4      T.B.A.
       *  Ch.8   Sky Channel      On Air     Stereo    Teletext/Ind.Data
          Ch.9   EuroSport        On Air     Mono      Teletext
          Ch.10  ---
          Ch.11  Filmnet 24       On Air     Mono      Teletext   (Scrambled)
          Ch.12  Sky News         On Air     Stereo    Teletext
          Ch.13  Sky Arts         T.B.A.
          Ch.14  ---
          Ch.15  MTV Europe       T.B.A.
          Ch.16  Sky Movies       On Air     Stereo    Teletext

   * Stereo 1 on Sky Channel carries main programme sound,
     Stereo 2 has "Sky Radio".  (Wegener Comms. 1800 demodulator required)

     "T.B.A." := Start date yet to be announced


   Data from test captions on Ch.13, Tuesday 7th February 1989
   Peter Vince, G8ZZR




   This (BBC) BASIC program will determine the direction to point your dish
   for any satellite position and receiver latitude.


  10 REM > FindSat   Find direction of geostationary satellite
  20
  30 REM (Figures below are for receiving Astra in London)
  40 rel_long = -19.3  : REM Longitude of satellite wrt receiver (East = -ve)
  50 abs_lat = 51.5    : REM Absolute latitude of receiver (South = -ve)
  60 PRINT'"Astra from London:"'
  70
  80 x = ACS(COS(RAD(abs_lat))*COS(RAD(rel_long)))
  90 azim = DEG(ATN(TAN(RAD(rel_long))/SIN(RAD(abs_lat))))
 100 elev = DEG(ATN((COS(x)-0.1513)/SIN(x)))
 110
 120 @% = &2020A : REM Print formatting for two decimal places
 130 PRINT TAB(10)"Azimuth = ";ABS(azim);" degrees ";
 140 IF SGN(azim) = -1  THEN PRINT"East" ELSE PRINT"West"
 150 PRINT TAB(10)"Elevation = ";elev;" degrees"'
 160 @% = &A0A   : REM Restore print formatting to normal
 170
 180 PRINT"Don't forget to allow for Magnetic North being about 6 degrees West"
 190 PRINT"of true North (in London), so the dish should be pointed 6 degrees"
 200 PRINT"west of the indicated figure if using a magnetic compass."'


 Typical run:

 >RUN

 Astra from London:

           Azimuth = 24.11 degrees East
           Elevation = 28.33 degrees

 Don't forget to allow for Magnetic North being about 6 degrees West
 of true North (in London), so the dish should be pointed 6 degrees
 west of the indicated figure if using a magnetic compass.

 >
00000000  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000010  20 20 20 20 20 54 65 63  68 6e 69 63 61 6c 20 69  |     Technical i|
00000020  6e 66 6f 20 66 6f 72 20  74 68 65 20 41 73 74 72  |nfo for the Astr|
00000030  61 20 73 61 74 65 6c 6c  69 74 65 0d 0a 0d 0a 20  |a satellite.... |
00000040  20 20 41 73 74 72 61 20  69 73 20 70 6f 73 69 74  |  Astra is posit|
00000050  69 6f 6e 65 64 20 69 6e  20 61 20 67 65 6f 73 74  |ioned in a geost|
00000060  61 74 69 6f 6e 61 72 79  20 6f 72 62 69 74 20 6f  |ationary orbit o|
00000070  76 65 72 20 6c 6f 6e 67  69 74 75 64 65 20 31 39  |ver longitude 19|
00000080  2e 32 20 64 65 67 72 65  65 73 0d 0a 20 20 20 45  |.2 degrees..   E|
00000090  61 73 74 2e 20 20 46 72  6f 6d 20 4c 6f 6e 64 6f  |ast.  From Londo|
000000a0  6e 2c 20 70 6f 69 6e 74  20 79 6f 75 72 20 64 69  |n, point your di|
000000b0  73 68 20 32 34 2e 32 20  64 65 67 72 65 65 73 20  |sh 24.2 degrees |
000000c0  45 61 73 74 2c 20 77 69  74 68 20 32 38 2e 33 20  |East, with 28.3 |
000000d0  64 65 67 72 65 65 73 0d  0a 20 20 20 65 6c 65 76  |degrees..   elev|
000000e0  61 74 69 6f 6e 2e 20 28  53 75 62 74 72 61 63 74  |ation. (Subtract|
000000f0  20 36 20 64 65 67 72 65  65 73 20 66 72 6f 6d 20  | 6 degrees from |
00000100  61 7a 69 6d 75 74 68 20  69 66 20 75 73 69 6e 67  |azimuth if using|
00000110  20 61 20 6d 61 67 6e 65  74 69 63 20 63 6f 6d 70  | a magnetic comp|
00000120  61 73 73 29 0d 0a 0d 0a  20 20 20 54 65 63 68 6e  |ass)....   Techn|
00000130  69 63 61 6c 20 64 65 74  61 69 6c 73 20 61 76 61  |ical details ava|
00000140  69 6c 61 62 6c 65 20 62  79 20 70 68 6f 6e 65 20  |ilable by phone |
00000150  66 72 6f 6d 20 4c 75 78  65 6d 62 6f 75 72 67 3a  |from Luxembourg:|
00000160  20 30 31 30 2d 33 35 32  2d 37 31 37 32 35 31 0d  | 010-352-717251.|
00000170  0a 0d 0a 0d 0a 20 20 20  46 72 65 71 75 65 6e 63  |.....   Frequenc|
00000180  69 65 73 3a 0d 0a 0d 0a  20 20 20 20 20 20 20 20  |ies:....        |
00000190  20 20 20 20 20 48 6f 72  69 7a 6f 6e 74 61 6c 20  |     Horizontal |
000001a0  50 6f 6c 61 72 69 73 61  74 69 6f 6e 20 20 20 20  |Polarisation    |
000001b0  20 20 20 20 20 56 65 72  74 69 63 61 6c 20 50 6f  |     Vertical Po|
000001c0  6c 61 72 69 73 61 74 69  6f 6e 0d 0a 0d 0a 20 20  |larisation....  |
000001d0  20 20 20 20 20 20 20 20  20 20 20 20 43 68 2e 31  |            Ch.1|
000001e0  20 20 20 20 31 31 32 31  34 2e 32 35 20 4d 63 2f  |    11214.25 Mc/|
000001f0  73 20 20 20 20 20 20 20  20 20 20 43 68 2e 32 20  |s          Ch.2 |
00000200  20 20 20 31 31 32 32 39  2e 30 30 20 4d 63 2f 73  |   11229.00 Mc/s|
00000210  0d 0a 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |..              |
00000220  43 68 2e 33 20 20 20 20  31 31 32 34 33 2e 37 35  |Ch.3    11243.75|
00000230  20 4d 63 2f 73 20 20 20  20 20 20 20 20 20 20 43  | Mc/s          C|
00000240  68 2e 34 20 20 20 20 31  31 32 35 38 2e 35 30 20  |h.4    11258.50 |
00000250  4d 63 2f 73 0d 0a 20 20  20 20 20 20 20 20 20 20  |Mc/s..          |
00000260  20 20 20 20 43 68 2e 35  20 20 20 20 31 31 32 37  |    Ch.5    1127|
00000270  33 2e 32 35 20 4d 63 2f  73 20 20 20 20 20 20 20  |3.25 Mc/s       |
00000280  20 20 20 43 68 2e 36 20  20 20 20 31 31 32 38 38  |   Ch.6    11288|
00000290  2e 30 30 20 4d 63 2f 73  0d 0a 20 20 20 20 20 20  |.00 Mc/s..      |
000002a0  20 20 20 20 20 20 20 20  43 68 2e 37 20 20 20 20  |        Ch.7    |
000002b0  31 31 33 30 32 2e 37 35  20 4d 63 2f 73 20 20 20  |11302.75 Mc/s   |
000002c0  20 20 20 20 20 20 20 43  68 2e 38 20 20 20 20 31  |       Ch.8    1|
000002d0  31 33 31 37 2e 35 30 20  4d 63 2f 73 0d 0a 20 20  |1317.50 Mc/s..  |
000002e0  20 20 20 20 20 20 20 20  20 20 20 20 43 68 2e 39  |            Ch.9|
000002f0  20 20 20 20 31 31 33 33  32 2e 32 35 20 4d 63 2f  |    11332.25 Mc/|
00000300  73 20 20 20 20 20 20 20  20 20 20 43 68 2e 31 30  |s          Ch.10|
00000310  20 20 20 31 31 33 34 37  2e 30 30 20 4d 63 2f 73  |   11347.00 Mc/s|
00000320  0d 0a 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |..              |
00000330  43 68 2e 31 31 20 20 20  31 31 33 36 31 2e 37 35  |Ch.11   11361.75|
00000340  20 4d 63 2f 73 20 20 20  20 20 20 20 20 20 20 43  | Mc/s          C|
00000350  68 2e 31 32 20 20 20 31  31 33 37 36 2e 35 30 20  |h.12   11376.50 |
00000360  4d 63 2f 73 0d 0a 20 20  20 20 20 20 20 20 20 20  |Mc/s..          |
00000370  20 20 20 20 43 68 2e 31  33 20 20 20 31 31 33 39  |    Ch.13   1139|
00000380  31 2e 32 35 20 4d 63 2f  73 20 20 20 20 20 20 20  |1.25 Mc/s       |
00000390  20 20 20 43 68 2e 31 34  20 20 20 31 31 34 30 36  |   Ch.14   11406|
000003a0  2e 30 30 20 4d 63 2f 73  0d 0a 20 20 20 20 20 20  |.00 Mc/s..      |
000003b0  20 20 20 20 20 20 20 20  43 68 2e 31 35 20 20 20  |        Ch.15   |
000003c0  31 31 34 32 30 2e 32 35  20 4d 63 2f 73 20 20 20  |11420.25 Mc/s   |
000003d0  20 20 20 20 20 20 20 43  68 2e 31 36 20 20 20 31  |       Ch.16   1|
000003e0  31 34 33 35 2e 35 30 20  4d 63 2f 73 0d 0a 0d 0a  |1435.50 Mc/s....|
000003f0  0d 0a 20 20 20 56 69 64  65 6f 20 44 65 76 69 61  |..   Video Devia|
00000400  74 69 6f 6e 20 2e 2e 2e  2e 2e 2e 2e 20 31 36 20  |tion ....... 16 |
00000410  4d 63 2f 73 20 70 6b 2d  70 6b 0d 0a 20 20 20 50  |Mc/s pk-pk..   P|
00000420  72 65 2d 65 6d 70 68 61  73 69 73 20 2e 2e 2e 2e  |re-emphasis ....|
00000430  2e 2e 2e 2e 2e 2e 20 43  43 49 52 20 34 30 35 2d  |...... CCIR 405-|
00000440  31 0d 0a 20 20 20 45 6e  65 72 67 79 20 44 69 73  |1..   Energy Dis|
00000450  70 65 72 73 61 6c 20 2e  2e 2e 2e 2e 2e 20 32 20  |persal ...... 2 |
00000460  4d 63 2f 73 20 70 6b 2d  70 6b 0d 0a 20 20 20 43  |Mc/s pk-pk..   C|
00000470  68 61 6e 6e 65 6c 20 62  61 6e 64 77 69 64 74 68  |hannel bandwidth|
00000480  20 2e 2e 2e 2e 2e 20 32  36 20 4d 63 2f 73 0d 0a  | ..... 26 Mc/s..|
00000490  20 20 20 50 72 69 6d 61  72 79 20 41 75 64 69 6f  |   Primary Audio|
000004a0  20 2e 2e 2e 2e 2e 2e 2e  2e 2e 20 36 2e 35 30 20  | ......... 6.50 |
000004b0  4d 63 2f 73 0d 0a 20 20  20 50 72 65 2d 65 6d 70  |Mc/s..   Pre-emp|
000004c0  68 61 73 69 73 20 2e 2e  2e 2e 2e 2e 2e 2e 2e 2e  |hasis ..........|
000004d0  20 35 30 20 75 73 0d 0a  20 20 20 53 2f 43 20 42  | 50 us..   S/C B|
000004e0  61 6e 64 77 69 64 74 68  20 2e 2e 2e 2e 2e 2e 2e  |andwidth .......|
000004f0  2e 2e 20 31 38 30 20 4b  63 2f 73 0d 0a 0d 0a 20  |.. 180 Kc/s.... |
00000500  20 20 41 64 64 69 74 69  6f 6e 61 6c 20 73 6f 75  |  Additional sou|
00000510  6e 64 20 63 68 61 6e 6e  65 6c 73 20 75 73 69 6e  |nd channels usin|
00000520  67 20 74 68 65 20 50 41  4e 44 41 2d 31 20 64 69  |g the PANDA-1 di|
00000530  73 63 72 65 74 65 20 73  75 62 63 61 72 72 69 65  |screte subcarrie|
00000540  72 20 73 79 73 74 65 6d  3a 0d 0a 20 20 20 20 20  |r system:..     |
00000550  20 20 53 74 65 72 65 6f  20 31 20 20 20 37 2e 30  |  Stereo 1   7.0|
00000560  32 20 4d 63 2f 73 20 28  4c 29 20 20 20 20 37 2e  |2 Mc/s (L)    7.|
00000570  32 30 20 4d 63 2f 73 20  28 52 29 0d 0a 20 20 20  |20 Mc/s (R)..   |
00000580  20 20 20 20 53 74 65 72  65 6f 20 32 20 20 20 37  |    Stereo 2   7|
00000590  2e 33 38 20 4d 63 2f 73  20 28 4c 29 20 20 20 20  |.38 Mc/s (L)    |
000005a0  37 2e 35 36 20 4d 63 2f  73 20 28 52 29 0d 0a 20  |7.56 Mc/s (R).. |
000005b0  20 20 73 6f 6d 65 20 63  68 61 6e 6e 65 6c 73 20  |  some channels |
000005c0  75 73 65 20 66 6f 75 72  20 73 65 70 61 72 61 74  |use four separat|
000005d0  65 20 6d 6f 6e 6f 20 73  6f 75 6e 64 20 73 69 67  |e mono sound sig|
000005e0  6e 61 6c 73 2e 0d 0a 0d  0a 0d 0a 20 20 20 4e 65  |nals.......   Ne|
000005f0  74 77 6f 72 6b 73 3a 0d  0a 0d 0a 20 20 20 20 20  |tworks:....     |
00000600  20 20 20 20 20 43 68 2e  31 20 20 20 53 63 72 65  |     Ch.1   Scre|
00000610  65 6e 53 70 6f 72 74 20  20 20 20 20 20 54 2e 42  |enSport      T.B|
00000620  2e 41 2e 0d 0a 20 20 20  20 20 20 20 20 20 20 43  |.A...          C|
00000630  68 2e 32 20 20 20 2d 2d  2d 0d 0a 20 20 20 20 20  |h.2   ---..     |
00000640  20 20 20 20 20 43 68 2e  33 20 20 20 53 63 61 6e  |     Ch.3   Scan|
00000650  73 61 74 20 54 56 33 20  20 20 20 20 20 4f 6e 20  |sat TV3      On |
00000660  41 69 72 20 20 20 20 20  53 74 65 72 65 6f 20 20  |Air     Stereo  |
00000670  20 20 20 20 20 20 20 20  20 20 20 20 20 28 4d 41  |             (MA|
00000680  43 29 0d 0a 20 20 20 20  20 20 20 20 20 20 43 68  |C)..          Ch|
00000690  2e 34 20 20 20 44 69 73  6e 65 79 20 20 20 20 20  |.4   Disney     |
000006a0  20 20 20 20 20 20 54 2e  42 2e 41 2e 0d 0a 20 20  |      T.B.A...  |
000006b0  20 20 20 20 20 20 20 20  43 68 2e 35 20 20 20 4c  |        Ch.5   L|
000006c0  69 66 65 73 74 79 6c 65  20 20 20 20 20 20 20 20  |ifestyle        |
000006d0  54 2e 42 2e 41 2e 0d 0a  20 20 20 20 20 20 20 20  |T.B.A...        |
000006e0  20 20 43 68 2e 36 20 20  20 2d 2d 2d 0d 0a 20 20  |  Ch.6   ---..  |
000006f0  20 20 20 20 20 20 20 20  43 68 2e 37 20 20 20 53  |        Ch.7   S|
00000700  63 61 6e 73 61 74 20 54  56 34 20 20 20 20 20 20  |cansat TV4      |
00000710  54 2e 42 2e 41 2e 0d 0a  20 20 20 20 20 20 20 2a  |T.B.A...       *|
00000720  20 20 43 68 2e 38 20 20  20 53 6b 79 20 43 68 61  |  Ch.8   Sky Cha|
00000730  6e 6e 65 6c 20 20 20 20  20 20 4f 6e 20 41 69 72  |nnel      On Air|
00000740  20 20 20 20 20 53 74 65  72 65 6f 20 20 20 20 54  |     Stereo    T|
00000750  65 6c 65 74 65 78 74 2f  49 6e 64 2e 44 61 74 61  |eletext/Ind.Data|
00000760  0d 0a 20 20 20 20 20 20  20 20 20 20 43 68 2e 39  |..          Ch.9|
00000770  20 20 20 45 75 72 6f 53  70 6f 72 74 20 20 20 20  |   EuroSport    |
00000780  20 20 20 20 4f 6e 20 41  69 72 20 20 20 20 20 4d  |    On Air     M|
00000790  6f 6e 6f 20 20 20 20 20  20 54 65 6c 65 74 65 78  |ono      Teletex|
000007a0  74 0d 0a 20 20 20 20 20  20 20 20 20 20 43 68 2e  |t..          Ch.|
000007b0  31 30 20 20 2d 2d 2d 0d  0a 20 20 20 20 20 20 20  |10  ---..       |
000007c0  20 20 20 43 68 2e 31 31  20 20 46 69 6c 6d 6e 65  |   Ch.11  Filmne|
000007d0  74 20 32 34 20 20 20 20  20 20 20 4f 6e 20 41 69  |t 24       On Ai|
000007e0  72 20 20 20 20 20 4d 6f  6e 6f 20 20 20 20 20 20  |r     Mono      |
000007f0  54 65 6c 65 74 65 78 74  20 20 20 28 53 63 72 61  |Teletext   (Scra|
00000800  6d 62 6c 65 64 29 0d 0a  20 20 20 20 20 20 20 20  |mbled)..        |
00000810  20 20 43 68 2e 31 32 20  20 53 6b 79 20 4e 65 77  |  Ch.12  Sky New|
00000820  73 20 20 20 20 20 20 20  20 20 4f 6e 20 41 69 72  |s         On Air|
00000830  20 20 20 20 20 53 74 65  72 65 6f 20 20 20 20 54  |     Stereo    T|
00000840  65 6c 65 74 65 78 74 0d  0a 20 20 20 20 20 20 20  |eletext..       |
00000850  20 20 20 43 68 2e 31 33  20 20 53 6b 79 20 41 72  |   Ch.13  Sky Ar|
00000860  74 73 20 20 20 20 20 20  20 20 20 54 2e 42 2e 41  |ts         T.B.A|
00000870  2e 0d 0a 20 20 20 20 20  20 20 20 20 20 43 68 2e  |...          Ch.|
00000880  31 34 20 20 2d 2d 2d 0d  0a 20 20 20 20 20 20 20  |14  ---..       |
00000890  20 20 20 43 68 2e 31 35  20 20 4d 54 56 20 45 75  |   Ch.15  MTV Eu|
000008a0  72 6f 70 65 20 20 20 20  20 20 20 54 2e 42 2e 41  |rope       T.B.A|
000008b0  2e 0d 0a 20 20 20 20 20  20 20 20 20 20 43 68 2e  |...          Ch.|
000008c0  31 36 20 20 53 6b 79 20  4d 6f 76 69 65 73 20 20  |16  Sky Movies  |
000008d0  20 20 20 20 20 4f 6e 20  41 69 72 20 20 20 20 20  |     On Air     |
000008e0  53 74 65 72 65 6f 20 20  20 20 54 65 6c 65 74 65  |Stereo    Telete|
000008f0  78 74 0d 0a 0d 0a 20 20  20 2a 20 53 74 65 72 65  |xt....   * Stere|
00000900  6f 20 31 20 6f 6e 20 53  6b 79 20 43 68 61 6e 6e  |o 1 on Sky Chann|
00000910  65 6c 20 63 61 72 72 69  65 73 20 6d 61 69 6e 20  |el carries main |
00000920  70 72 6f 67 72 61 6d 6d  65 20 73 6f 75 6e 64 2c  |programme sound,|
00000930  0d 0a 20 20 20 20 20 53  74 65 72 65 6f 20 32 20  |..     Stereo 2 |
00000940  68 61 73 20 22 53 6b 79  20 52 61 64 69 6f 22 2e  |has "Sky Radio".|
00000950  20 20 28 57 65 67 65 6e  65 72 20 43 6f 6d 6d 73  |  (Wegener Comms|
00000960  2e 20 31 38 30 30 20 64  65 6d 6f 64 75 6c 61 74  |. 1800 demodulat|
00000970  6f 72 20 72 65 71 75 69  72 65 64 29 0d 0a 0d 0a  |or required)....|
00000980  20 20 20 20 20 22 54 2e  42 2e 41 2e 22 20 3a 3d  |     "T.B.A." :=|
00000990  20 53 74 61 72 74 20 64  61 74 65 20 79 65 74 20  | Start date yet |
000009a0  74 6f 20 62 65 20 61 6e  6e 6f 75 6e 63 65 64 0d  |to be announced.|
000009b0  0a 0d 0a 0d 0a 20 20 20  44 61 74 61 20 66 72 6f  |.....   Data fro|
000009c0  6d 20 74 65 73 74 20 63  61 70 74 69 6f 6e 73 20  |m test captions |
000009d0  6f 6e 20 43 68 2e 31 33  2c 20 54 75 65 73 64 61  |on Ch.13, Tuesda|
000009e0  79 20 37 74 68 20 46 65  62 72 75 61 72 79 20 31  |y 7th February 1|
000009f0  39 38 39 0d 0a 20 20 20  50 65 74 65 72 20 56 69  |989..   Peter Vi|
00000a00  6e 63 65 2c 20 47 38 5a  5a 52 0d 0a 0d 0a 0d 0a  |nce, G8ZZR......|
00000a10  0d 0a 0d 0a 20 20 20 54  68 69 73 20 28 42 42 43  |....   This (BBC|
00000a20  29 20 42 41 53 49 43 20  70 72 6f 67 72 61 6d 20  |) BASIC program |
00000a30  77 69 6c 6c 20 64 65 74  65 72 6d 69 6e 65 20 74  |will determine t|
00000a40  68 65 20 64 69 72 65 63  74 69 6f 6e 20 74 6f 20  |he direction to |
00000a50  70 6f 69 6e 74 20 79 6f  75 72 20 64 69 73 68 0d  |point your dish.|
00000a60  0a 20 20 20 66 6f 72 20  61 6e 79 20 73 61 74 65  |.   for any sate|
00000a70  6c 6c 69 74 65 20 70 6f  73 69 74 69 6f 6e 20 61  |llite position a|
00000a80  6e 64 20 72 65 63 65 69  76 65 72 20 6c 61 74 69  |nd receiver lati|
00000a90  74 75 64 65 2e 0d 0a 0d  0a 0d 0a 20 20 31 30 20  |tude.......  10 |
00000aa0  52 45 4d 20 3e 20 46 69  6e 64 53 61 74 20 20 20  |REM > FindSat   |
00000ab0  46 69 6e 64 20 64 69 72  65 63 74 69 6f 6e 20 6f  |Find direction o|
00000ac0  66 20 67 65 6f 73 74 61  74 69 6f 6e 61 72 79 20  |f geostationary |
00000ad0  73 61 74 65 6c 6c 69 74  65 0d 0a 20 20 32 30 0d  |satellite..  20.|
00000ae0  0a 20 20 33 30 20 52 45  4d 20 28 46 69 67 75 72  |.  30 REM (Figur|
00000af0  65 73 20 62 65 6c 6f 77  20 61 72 65 20 66 6f 72  |es below are for|
00000b00  20 72 65 63 65 69 76 69  6e 67 20 41 73 74 72 61  | receiving Astra|
00000b10  20 69 6e 20 4c 6f 6e 64  6f 6e 29 0d 0a 20 20 34  | in London)..  4|
00000b20  30 20 72 65 6c 5f 6c 6f  6e 67 20 3d 20 2d 31 39  |0 rel_long = -19|
00000b30  2e 33 20 20 3a 20 52 45  4d 20 4c 6f 6e 67 69 74  |.3  : REM Longit|
00000b40  75 64 65 20 6f 66 20 73  61 74 65 6c 6c 69 74 65  |ude of satellite|
00000b50  20 77 72 74 20 72 65 63  65 69 76 65 72 20 28 45  | wrt receiver (E|
00000b60  61 73 74 20 3d 20 2d 76  65 29 0d 0a 20 20 35 30  |ast = -ve)..  50|
00000b70  20 61 62 73 5f 6c 61 74  20 3d 20 35 31 2e 35 20  | abs_lat = 51.5 |
00000b80  20 20 20 3a 20 52 45 4d  20 41 62 73 6f 6c 75 74  |   : REM Absolut|
00000b90  65 20 6c 61 74 69 74 75  64 65 20 6f 66 20 72 65  |e latitude of re|
00000ba0  63 65 69 76 65 72 20 28  53 6f 75 74 68 20 3d 20  |ceiver (South = |
00000bb0  2d 76 65 29 0d 0a 20 20  36 30 20 50 52 49 4e 54  |-ve)..  60 PRINT|
00000bc0  27 22 41 73 74 72 61 20  66 72 6f 6d 20 4c 6f 6e  |'"Astra from Lon|
00000bd0  64 6f 6e 3a 22 27 0d 0a  20 20 37 30 0d 0a 20 20  |don:"'..  70..  |
00000be0  38 30 20 78 20 3d 20 41  43 53 28 43 4f 53 28 52  |80 x = ACS(COS(R|
00000bf0  41 44 28 61 62 73 5f 6c  61 74 29 29 2a 43 4f 53  |AD(abs_lat))*COS|
00000c00  28 52 41 44 28 72 65 6c  5f 6c 6f 6e 67 29 29 29  |(RAD(rel_long)))|
00000c10  0d 0a 20 20 39 30 20 61  7a 69 6d 20 3d 20 44 45  |..  90 azim = DE|
00000c20  47 28 41 54 4e 28 54 41  4e 28 52 41 44 28 72 65  |G(ATN(TAN(RAD(re|
00000c30  6c 5f 6c 6f 6e 67 29 29  2f 53 49 4e 28 52 41 44  |l_long))/SIN(RAD|
00000c40  28 61 62 73 5f 6c 61 74  29 29 29 29 0d 0a 20 31  |(abs_lat)))).. 1|
00000c50  30 30 20 65 6c 65 76 20  3d 20 44 45 47 28 41 54  |00 elev = DEG(AT|
00000c60  4e 28 28 43 4f 53 28 78  29 2d 30 2e 31 35 31 33  |N((COS(x)-0.1513|
00000c70  29 2f 53 49 4e 28 78 29  29 29 0d 0a 20 31 31 30  |)/SIN(x))).. 110|
00000c80  0d 0a 20 31 32 30 20 40  25 20 3d 20 26 32 30 32  |.. 120 @% = &202|
00000c90  30 41 20 3a 20 52 45 4d  20 50 72 69 6e 74 20 66  |0A : REM Print f|
00000ca0  6f 72 6d 61 74 74 69 6e  67 20 66 6f 72 20 74 77  |ormatting for tw|
00000cb0  6f 20 64 65 63 69 6d 61  6c 20 70 6c 61 63 65 73  |o decimal places|
00000cc0  0d 0a 20 31 33 30 20 50  52 49 4e 54 20 54 41 42  |.. 130 PRINT TAB|
00000cd0  28 31 30 29 22 41 7a 69  6d 75 74 68 20 3d 20 22  |(10)"Azimuth = "|
00000ce0  3b 41 42 53 28 61 7a 69  6d 29 3b 22 20 64 65 67  |;ABS(azim);" deg|
00000cf0  72 65 65 73 20 22 3b 0d  0a 20 31 34 30 20 49 46  |rees ";.. 140 IF|
00000d00  20 53 47 4e 28 61 7a 69  6d 29 20 3d 20 2d 31 20  | SGN(azim) = -1 |
00000d10  20 54 48 45 4e 20 50 52  49 4e 54 22 45 61 73 74  | THEN PRINT"East|
00000d20  22 20 45 4c 53 45 20 50  52 49 4e 54 22 57 65 73  |" ELSE PRINT"Wes|
00000d30  74 22 0d 0a 20 31 35 30  20 50 52 49 4e 54 20 54  |t".. 150 PRINT T|
00000d40  41 42 28 31 30 29 22 45  6c 65 76 61 74 69 6f 6e  |AB(10)"Elevation|
00000d50  20 3d 20 22 3b 65 6c 65  76 3b 22 20 64 65 67 72  | = ";elev;" degr|
00000d60  65 65 73 22 27 0d 0a 20  31 36 30 20 40 25 20 3d  |ees"'.. 160 @% =|
00000d70  20 26 41 30 41 20 20 20  3a 20 52 45 4d 20 52 65  | &A0A   : REM Re|
00000d80  73 74 6f 72 65 20 70 72  69 6e 74 20 66 6f 72 6d  |store print form|
00000d90  61 74 74 69 6e 67 20 74  6f 20 6e 6f 72 6d 61 6c  |atting to normal|
00000da0  0d 0a 20 31 37 30 0d 0a  20 31 38 30 20 50 52 49  |.. 170.. 180 PRI|
00000db0  4e 54 22 44 6f 6e 27 74  20 66 6f 72 67 65 74 20  |NT"Don't forget |
00000dc0  74 6f 20 61 6c 6c 6f 77  20 66 6f 72 20 4d 61 67  |to allow for Mag|
00000dd0  6e 65 74 69 63 20 4e 6f  72 74 68 20 62 65 69 6e  |netic North bein|
00000de0  67 20 61 62 6f 75 74 20  36 20 64 65 67 72 65 65  |g about 6 degree|
00000df0  73 20 57 65 73 74 22 0d  0a 20 31 39 30 20 50 52  |s West".. 190 PR|
00000e00  49 4e 54 22 6f 66 20 74  72 75 65 20 4e 6f 72 74  |INT"of true Nort|
00000e10  68 20 28 69 6e 20 4c 6f  6e 64 6f 6e 29 2c 20 73  |h (in London), s|
00000e20  6f 20 74 68 65 20 64 69  73 68 20 73 68 6f 75 6c  |o the dish shoul|
00000e30  64 20 62 65 20 70 6f 69  6e 74 65 64 20 36 20 64  |d be pointed 6 d|
00000e40  65 67 72 65 65 73 22 0d  0a 20 32 30 30 20 50 52  |egrees".. 200 PR|
00000e50  49 4e 54 22 77 65 73 74  20 6f 66 20 74 68 65 20  |INT"west of the |
00000e60  69 6e 64 69 63 61 74 65  64 20 66 69 67 75 72 65  |indicated figure|
00000e70  20 69 66 20 75 73 69 6e  67 20 61 20 6d 61 67 6e  | if using a magn|
00000e80  65 74 69 63 20 63 6f 6d  70 61 73 73 2e 22 27 0d  |etic compass."'.|
00000e90  0a 0d 0a 0d 0a 20 54 79  70 69 63 61 6c 20 72 75  |..... Typical ru|
00000ea0  6e 3a 0d 0a 0d 0a 20 3e  52 55 4e 0d 0a 0d 0a 20  |n:.... >RUN.... |
00000eb0  41 73 74 72 61 20 66 72  6f 6d 20 4c 6f 6e 64 6f  |Astra from Londo|
00000ec0  6e 3a 0d 0a 0d 0a 20 20  20 20 20 20 20 20 20 20  |n:....          |
00000ed0  20 41 7a 69 6d 75 74 68  20 3d 20 32 34 2e 31 31  | Azimuth = 24.11|
00000ee0  20 64 65 67 72 65 65 73  20 45 61 73 74 0d 0a 20  | degrees East.. |
00000ef0  20 20 20 20 20 20 20 20  20 20 45 6c 65 76 61 74  |          Elevat|
00000f00  69 6f 6e 20 3d 20 32 38  2e 33 33 20 64 65 67 72  |ion = 28.33 degr|
00000f10  65 65 73 0d 0a 0d 0a 20  44 6f 6e 27 74 20 66 6f  |ees.... Don't fo|
00000f20  72 67 65 74 20 74 6f 20  61 6c 6c 6f 77 20 66 6f  |rget to allow fo|
00000f30  72 20 4d 61 67 6e 65 74  69 63 20 4e 6f 72 74 68  |r Magnetic North|
00000f40  20 62 65 69 6e 67 20 61  62 6f 75 74 20 36 20 64  | being about 6 d|
00000f50  65 67 72 65 65 73 20 57  65 73 74 0d 0a 20 6f 66  |egrees West.. of|
00000f60  20 74 72 75 65 20 4e 6f  72 74 68 20 28 69 6e 20  | true North (in |
00000f70  4c 6f 6e 64 6f 6e 29 2c  20 73 6f 20 74 68 65 20  |London), so the |
00000f80  64 69 73 68 20 73 68 6f  75 6c 64 20 62 65 20 70  |dish should be p|
00000f90  6f 69 6e 74 65 64 20 36  20 64 65 67 72 65 65 73  |ointed 6 degrees|
00000fa0  0d 0a 20 77 65 73 74 20  6f 66 20 74 68 65 20 69  |.. west of the i|
00000fb0  6e 64 69 63 61 74 65 64  20 66 69 67 75 72 65 20  |ndicated figure |
00000fc0  69 66 20 75 73 69 6e 67  20 61 20 6d 61 67 6e 65  |if using a magne|
00000fd0  74 69 63 20 63 6f 6d 70  61 73 73 2e 0d 0a 0d 0a  |tic compass.....|
00000fe0  20 3e 0d 0a                                       | >..|
00000fe4
17-02-89/T\Astra.m0
17-02-89/T\Astra.m1
17-02-89/T\Astra.m2
17-02-89/T\Astra.m4
17-02-89/T\Astra.m5