T.V. SATELLITES
FILE INFORMATION
FILENAME(S): T.V. SATELLITES
FILE TYPE(S): PRG
FILE SIZE: 4.6K
FIRST SEEN: 2025-10-20 14:30:51
APPEARS ON: 1 disk(s)
FILE HASH
befe9538ad0d0d685510824786d96123aa0eb4376390cb37c6626c51cdceb4f0
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 0047ED | T.V. SATELLITES | PRG | Treasure Chest - Klaus Der Suhler | 31 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 17 08 32 00 97 35 33 32 38 30 2C 30 3A 97 |....2..53280,0:.| 00000010: 35 33 32 38 31 2C 30 00 43 08 64 00 8F 20 2D 20 |53281,0.C.d.. - | 00000020: 54 56 20 53 41 54 45 4C 4C 49 54 45 53 2C 20 44 |TV SATELLITES, D| 00000030: 41 56 49 44 20 57 49 4C 4C 49 41 4D 53 2C 20 31 |AVID WILLIAMS, 1| 00000040: 39 38 32 00 49 08 96 00 3A 00 96 08 C8 00 4C 41 |982.I...:.....LA| 00000050: B2 AB 34 31 2E 32 3A 4C 4F B2 AB 31 37 34 2E 38 |..41.2:LO..174.8| 00000060: 3A 8F 20 4C 41 54 49 54 55 44 45 20 26 20 4C 4F |:. LATITUDE & LO| 00000070: 4E 47 49 54 55 44 45 20 4F 46 20 57 45 4C 4C 49 |NGITUDE OF WELLI| 00000080: 4E 47 54 4F 4E 20 28 44 45 46 41 55 4C 54 20 56 |NGTON (DEFAULT V| 00000090: 41 4C 55 45 53 29 00 B3 08 FA 00 96 20 A5 52 4F |ALUES)...... .RO| 000000A0: 28 58 29 B2 B5 28 31 30 30 AC 58 AA 2E 35 29 AD |(X)..(100.X..5).| 000000B0: 31 30 30 00 D7 08 2C 01 43 46 B2 FF AD 31 38 30 |100...,.CF...180| 000000C0: 3A 8F 20 44 45 47 52 45 45 2F 52 41 44 49 41 4E |:. DEGREE/RADIAN| 000000D0: 20 46 41 43 54 4F 52 00 1E 09 5E 01 52 B2 36 2E | FACTOR...^.R.6.| 000000E0: 36 31 35 3A 20 8F 20 52 41 44 49 55 53 20 4F 46 |615: . RADIUS OF| 000000F0: 20 47 45 4F 53 59 4E 43 48 52 41 4E 4F 55 53 20 | GEOSYNCHRANOUS | 00000100: 4F 52 42 49 54 20 49 4E 20 55 4E 49 54 53 20 4F |ORBIT IN UNITS O| 00000110: 46 20 45 41 52 54 48 20 52 41 44 49 55 53 00 24 |F EARTH RADIUS.$| 00000120: 09 90 01 3A 00 5C 09 C2 01 8F 20 52 45 41 44 20 |...:.\.... READ | 00000130: 53 41 54 45 4C 4C 49 54 45 20 44 41 54 41 20 46 |SATELLITE DATA F| 00000140: 52 4F 4D 20 54 41 42 4C 45 20 41 54 20 45 4E 44 |ROM TABLE AT END| 00000150: 20 4F 46 20 50 52 4F 47 52 41 4D 2E 00 73 09 F4 | OF PROGRAM..s..| 00000160: 01 86 20 53 4E 24 28 31 30 30 29 2C 4C 53 28 31 |.. SN$(100),LS(1| 00000170: 30 30 29 00 7C 09 26 02 4E B2 AB 31 00 9C 09 58 |00).|.&.N..1...X| 00000180: 02 87 20 53 4E 24 3A 8B 20 53 4E 24 B2 22 45 4E |.. SN$:. SN$."EN| 00000190: 44 44 41 54 41 22 20 A7 20 37 35 30 00 B9 09 8A |DDATA" . 750....| 000001A0: 02 4E B2 4E AA 31 3A 53 4E 24 28 4E 29 B2 53 4E |.N.N.1:SN$(N).SN| 000001B0: 24 3A 87 20 4C 53 28 4E 29 00 C3 09 BC 02 89 20 |$:. LS(N)...... | 000001C0: 36 30 30 00 C9 09 EE 02 3A 00 F5 09 20 03 99 20 |600.....:... .. | 000001D0: 22 9A 8E 93 11 11 11 1D 1D 1D 1D 44 4F 20 59 4F |"..........DO YO| 000001E0: 55 20 57 41 4E 54 20 49 4E 53 54 52 55 43 54 49 |U WANT INSTRUCTI| 000001F0: 4F 4E 53 20 3F 00 18 0A 52 03 A1 20 47 24 3A 8B |ONS ?...R.. G$:.| 00000200: 20 47 24 B3 B1 22 59 22 20 AF 20 47 24 B3 B1 22 | G$.."Y" . G$.."| 00000210: 4E 22 20 A7 20 38 35 30 00 2C 0A 84 03 8B 20 47 |N" . 850.,.... G| 00000220: 24 B2 22 59 22 20 A7 20 36 34 30 30 00 32 0A B6 |$."Y" . 6400.2..| 00000230: 03 3A 00 46 0A E8 03 8F 20 49 4E 50 55 54 20 53 |.:.F.... INPUT S| 00000240: 45 43 54 49 4F 4E 00 7A 0A 1A 04 99 20 22 93 11 |ECTION.z.... "..| 00000250: 49 4E 50 55 54 20 4C 41 54 49 54 55 44 45 20 41 |INPUT LATITUDE A| 00000260: 4E 44 20 4C 4F 4E 47 49 54 55 44 45 20 49 4E 20 |ND LONGITUDE IN | 00000270: 44 45 47 52 45 45 53 2E 22 3B 00 A9 0A 24 04 99 |DEGREES.";...$..| 00000280: 20 22 A3 A3 A3 A3 A3 20 A3 A3 A3 A3 A3 A3 A3 A3 | "..... ........| 00000290: A0 A3 A3 A3 A0 A3 A3 A3 A3 A3 A3 A3 A3 A3 A0 A3 |................| 000002A0: A3 A0 A3 A3 A3 A3 A3 A3 A3 00 DA 0A 4C 04 99 20 |............L.. | 000002B0: 22 96 11 55 53 45 20 4E 45 47 41 54 49 56 45 20 |"..USE NEGATIVE | 000002C0: 4E 55 4D 42 45 52 53 20 46 4F 52 20 53 4F 55 54 |NUMBERS FOR SOUT| 000002D0: 48 20 4C 41 54 49 54 55 44 45 00 FC 0A 7E 04 99 |H LATITUDE...~..| 000002E0: 20 22 11 20 20 41 4E 44 20 45 41 53 54 20 4C 4F | ". AND EAST LO| 000002F0: 4E 47 49 54 55 54 45 2E 11 11 11 22 00 44 0B B0 |NGITUTE....".D..| 00000300: 04 99 20 22 9A 59 4F 55 52 20 4C 41 54 49 54 55 |.. ".YOUR LATITU| 00000310: 44 45 20 28 44 45 47 2E 20 4E 4F 52 54 48 29 20 |DE (DEG. NORTH) | 00000320: 20 20 22 3B 4C 41 3B 22 9D 9D 9D 9D 9D 9D 9D 9D | ";LA;"........| 00000330: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 22 3B A3 |.............";.| 00000340: 32 37 29 3B 00 61 0B E2 04 4D 58 B2 39 30 3A 8D |27);.a...MX.90:.| 00000350: 20 35 38 35 30 3A 8B 20 45 52 20 A7 20 31 32 30 | 5850:. ER . 120| 00000360: 30 00 6B 0B 14 05 4C 41 B2 49 4E 00 B4 0B 46 05 |0.k...LA.IN...F.| 00000370: 99 20 22 9A 11 59 4F 55 52 20 4C 4F 4E 47 49 54 |. "..YOUR LONGIT| 00000380: 55 44 45 20 28 44 45 47 2E 20 57 45 53 54 29 20 |UDE (DEG. WEST) | 00000390: 20 20 22 3B 4C 4F 3B 22 9D 9D 9D 9D 9D 9D 9D 9D | ";LO;"........| 000003A0: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 22 3B A3 |.............";.| 000003B0: 32 37 29 3B 00 D2 0B 78 05 4D 58 B2 33 36 30 3A |27);...x.MX.360:| 000003C0: 8D 20 35 38 35 30 3A 8B 20 45 52 20 A7 20 31 33 |. 5850:. ER . 13| 000003D0: 35 30 00 DC 0B AA 05 4C 4F B2 49 4E 00 E2 0B DC |50.....LO.IN....| 000003E0: 05 3A 00 F2 0B 0E 06 4C 54 B2 4C 41 3A 4C 47 B2 |.:.....LT.LA:LG.| 000003F0: 4C 4F 00 04 0C 40 06 8B 20 4E B2 AB 31 20 A7 20 |LO...@.. N..1 . | 00000400: 32 32 35 30 00 22 0C 72 06 99 20 22 93 96 57 48 |2250.".r.. "..WH| 00000410: 49 43 48 20 53 41 54 45 4C 4C 49 54 45 20 3F 9A |ICH SATELLITE ?.| 00000420: 11 22 00 30 0C A4 06 81 20 49 B2 30 20 A4 20 4E |.".0.... I.0 . N| 00000430: 00 4F 0C D6 06 99 20 22 A7 12 22 3B C7 28 36 35 |.O.... "..";.(65| 00000440: AA 49 29 3B 22 92 A5 22 3B 53 4E 24 28 49 29 00 |.I);"..";SN$(I).| 00000450: 55 0C 08 07 82 00 69 0C 1C 07 99 22 A7 12 5A 92 |U.....i...."..Z.| 00000460: A5 96 4F 54 48 45 52 22 3B 00 81 0C D0 07 A1 20 |..OTHER";...... | 00000470: 47 24 3A 8B 20 47 24 B2 22 22 20 A7 20 32 30 30 |G$:. G$."" . 200| 00000480: 30 00 94 0C 02 08 8B 20 47 24 B2 22 5A 22 A7 20 |0...... G$."Z". | 00000490: 32 32 35 30 00 B6 0C 34 08 47 B2 C6 28 47 24 29 |2250...4.G..(G$)| 000004A0: AB 36 35 3A 8B 20 47 B3 30 20 B0 20 47 B1 4E 20 |.65:. G.0 . G.N | 000004B0: A7 20 32 30 30 30 00 DB 0C 66 08 99 22 13 22 2C |. 2000...f..".",| 000004C0: 2C 22 9A A7 12 22 3B 47 24 3B 22 92 A5 11 11 22 |,"...";G$;"...."| 000004D0: 3A 81 49 B2 30 A4 4E 3A 99 3A 82 00 EF 0C 98 08 |:.I.0.N:.:......| 000004E0: 4C 53 B2 4C 53 28 47 29 3A 89 20 32 37 30 30 00 |LS.LS(G):. 2700.| 000004F0: 19 0D CA 08 99 20 22 93 11 9B 49 4E 50 55 54 20 |..... "...INPUT | 00000500: 4C 4F 4E 47 49 54 55 44 45 20 4F 46 20 53 41 54 |LONGITUDE OF SAT| 00000510: 45 4C 4C 49 54 45 20 49 4E 00 45 0D FC 08 99 20 |ELLITE IN.E.... | 00000520: 22 11 44 45 47 52 45 45 53 20 57 45 53 54 20 9A |".DEGREES WEST .| 00000530: 28 45 4E 54 45 52 20 45 41 53 54 20 4C 4F 4E 47 |(ENTER EAST LONG| 00000540: 49 54 55 44 45 00 6F 0D 2E 09 99 20 22 11 41 53 |ITUDE.o.... ".AS| 00000550: 20 41 20 4E 45 47 41 54 49 56 45 20 4E 55 4D 42 | A NEGATIVE NUMB| 00000560: 45 52 29 2E 9B 20 20 A0 A0 A0 9D 9D 9D 22 3B 00 |ER).. ......";.| 00000570: 8D 0D 92 09 4D 58 B2 33 36 30 3A 8D 20 35 38 35 |....MX.360:. 585| 00000580: 30 3A 8B 20 45 52 20 A7 20 32 32 35 30 00 97 0D |0:. ER . 2250...| 00000590: C4 09 4C 53 B2 49 4E 00 9D 0D F6 09 99 00 A3 0D |..LS.IN.........| 000005A0: 28 0A 99 00 A9 0D 5A 0A 99 00 AF 0D 8C 0A 3A 00 |(.....Z.......:.| 000005B0: D4 0D BE 0A 4C 44 B2 4C 47 AB 4C 53 3A 20 8F 20 |....LD.LG.LS: . | 000005C0: 4C 4F 4E 47 49 54 55 44 45 20 44 49 46 46 45 52 |LONGITUDE DIFFER| 000005D0: 45 4E 43 45 00 FA 0D F0 0A 4C 54 B2 39 30 AA 4C |ENCE.....LT.90.L| 000005E0: 54 3A 20 8F 20 4C 41 54 49 54 55 44 45 20 46 52 |T: . LATITUDE FR| 000005F0: 4F 4D 20 53 2E 20 50 4F 4C 45 00 1E 0E 22 0B 4C |OM S. POLE...".L| 00000600: 54 B2 43 46 AC 4C 54 3A 20 8F 20 4C 41 54 49 54 |T.CF.LT: . LATIT| 00000610: 55 44 45 20 49 4E 20 52 41 44 49 41 4E 53 00 49 |UDE IN RADIANS.I| 00000620: 0E 54 0B 4C 44 B2 43 46 AC 4C 44 3A 20 8F 20 4C |.T.LD.CF.LD: . L| 00000630: 4F 4E 47 49 54 55 44 45 20 44 49 46 46 2E 20 49 |ONGITUDE DIFF. I| 00000640: 4E 20 52 41 44 49 41 4E 53 00 4F 0E 86 0B 3A 00 |N RADIANS.O...:.| 00000650: 73 0E B8 0B 8F 20 53 41 54 45 4C 4C 49 54 45 27 |s.... SATELLITE'| 00000660: 53 20 58 2C 59 2C 5A 20 43 4F 4F 52 44 49 4E 41 |S X,Y,Z COORDINA| 00000670: 54 45 53 00 8E 0E EA 0B 59 B2 30 3A 8F 20 45 51 |TES.....Y.0:. EQ| 00000680: 55 41 54 4F 52 49 41 4C 20 4F 52 42 49 54 00 9C |UATORIAL ORBIT..| 00000690: 0E 1C 0C 58 B2 52 AC BF 28 4C 44 29 00 AA 0E 4E |...X.R..(LD)...N| 000006A0: 0C 5A B2 52 AC BE 28 4C 44 29 00 B0 0E 80 0C 3A |.Z.R..(LD).....:| 000006B0: 00 DF 0E B2 0C 8F 20 52 4F 54 41 54 45 20 53 59 |...... ROTATE SY| 000006C0: 53 54 45 4D 20 54 4F 20 50 55 54 20 4F 42 53 45 |STEM TO PUT OBSE| 000006D0: 52 56 45 52 20 41 54 20 53 2E 20 50 4F 4C 45 00 |RVER AT S. POLE.| 000006E0: 02 0F E4 0C 44 B2 B6 28 5A 29 3A 20 8F 20 44 49 |....D..(Z): . DI| 000006F0: 53 54 41 4E 43 45 20 46 52 4F 4D 20 58 2D 41 58 |STANCE FROM X-AX| 00000700: 49 53 00 47 0F 16 0D 41 4E B2 FF AC 28 28 5A B3 |IS.G...AN...((Z.| 00000710: 30 29 AA 2E 35 29 3A 20 8F 20 41 5A 49 4D 55 54 |0)..5): . AZIMUT| 00000720: 48 20 41 4E 47 4C 45 20 4F 4E 54 4F 20 59 2D 5A |H ANGLE ONTO Y-Z| 00000730: 20 50 4C 41 4E 45 20 28 59 2D 41 58 49 53 20 41 | PLANE (Y-AXIS A| 00000740: 53 20 5A 45 52 4F 29 00 65 0F 48 0D 41 4E B2 41 |S ZERO).e.H.AN.A| 00000750: 4E AA 4C 54 3A 20 8F 20 52 4F 54 41 54 45 20 53 |N.LT: . ROTATE S| 00000760: 59 53 54 45 4D 00 7C 0F 7A 0D 59 B2 44 AC BE 28 |YSTEM.|.z.Y.D..(| 00000770: 41 4E 29 3A 20 8F 20 4E 45 57 20 59 00 93 0F AC |AN): . NEW Y....| 00000780: 0D 5A B2 44 AC BF 28 41 4E 29 3A 20 8F 20 4E 45 |.Z.D..(AN): . NE| 00000790: 57 20 5A 00 99 0F DE 0D 3A 00 B6 0F 10 0E 8F 20 |W Z.....:...... | 000007A0: 43 41 4C 43 55 4C 41 54 45 20 4E 45 57 20 42 45 |CALCULATE NEW BE| 000007B0: 41 52 49 4E 47 53 00 D9 0F 42 0E 8B 20 5A B2 30 |ARINGS...B.. Z.0| 000007C0: 20 A7 20 42 45 B2 FF AC 28 28 58 B3 30 29 AA 2E | . BE...((X.0)..| 000007D0: 35 29 3A 89 20 33 37 35 30 00 FA 0F 74 0E 42 45 |5):. 3750...t.BE| 000007E0: B2 C1 28 58 AD 5A 29 AB FF AC 28 5A B3 30 29 3A |..(X.Z)...(Z.0):| 000007F0: 20 8F 20 42 45 41 52 49 4E 47 00 24 10 A6 0E 8B | . BEARING.$....| 00000800: 20 58 B2 30 20 AF 20 5A B2 30 20 A7 20 41 4C B2 | X.0 . Z.0 . AL.| 00000810: 28 FF AD 32 29 AC B4 28 AB 31 AB 59 29 3A 89 20 |(..2)..(.1.Y):. | 00000820: 33 38 35 30 00 4E 10 D8 0E 41 4C B2 C1 28 28 AB |3850.N...AL..((.| 00000830: 31 AB 59 29 AD 28 BA 28 58 AC 58 AA 5A AC 5A 29 |1.Y).(.(X.X.Z.Z)| 00000840: 29 29 3A 20 8F 20 41 4C 54 49 54 55 44 45 00 71 |)): . ALTITUDE.q| 00000850: 10 0A 0F 42 45 B2 42 45 AD 43 46 3A 20 8F 20 42 |...BE.BE.CF: . B| 00000860: 45 41 52 49 4E 47 20 49 4E 20 44 45 47 52 45 45 |EARING IN DEGREE| 00000870: 53 00 91 10 3C 0F 41 4C B2 41 4C AD 43 46 3A 20 |S...<.AL.AL.CF: | 00000880: 8F 20 41 4C 54 2E 20 49 4E 20 44 45 47 52 45 45 |. ALT. IN DEGREE| 00000890: 53 00 AF 10 6E 0F 8B 20 42 45 B3 30 20 A7 20 42 |S...n.. BE.0 . B| 000008A0: 45 B2 42 45 AA 33 36 30 3A 89 20 33 39 35 30 00 |E.BE.360:. 3950.| 000008B0: D0 10 A0 0F 8B 20 42 45 B1 B2 33 36 30 20 A7 20 |..... BE..360 . | 000008C0: 42 45 B2 42 45 AB 33 36 30 3A 89 20 34 30 30 30 |BE.BE.360:. 4000| 000008D0: 00 D6 10 D2 0F 3A 00 E5 10 04 10 8F 20 52 4F 55 |.....:...... ROU| 000008E0: 4E 44 4F 46 46 00 F4 10 36 10 42 45 B2 A5 52 4F |NDOFF...6.BE..RO| 000008F0: 28 42 45 29 00 03 11 68 10 41 4C B2 A5 52 4F 28 |(BE)...h.AL..RO(| 00000900: 41 4C 29 00 09 11 9A 10 3A 00 18 11 CC 10 8F 20 |AL).....:...... | 00000910: 50 52 49 4E 54 4F 55 54 00 1E 11 FE 10 99 00 5D |PRINTOUT.......]| 00000920: 11 30 11 8B 20 41 4C B3 30 20 A7 20 99 20 22 11 |.0.. AL.0 . . ".| 00000930: 9B 53 41 54 45 4C 4C 49 54 45 20 49 4E 56 49 53 |.SATELLITE INVIS| 00000940: 49 42 4C 45 20 96 28 42 45 4C 4F 57 20 48 4F 52 |IBLE .(BELOW HOR| 00000950: 49 5A 4F 4E 29 22 3A 89 20 35 31 30 30 00 8E 11 |IZON)":. 5100...| 00000960: 94 11 99 20 22 11 9B 53 41 54 45 4C 4C 49 54 45 |... "..SATELLITE| 00000970: 27 53 20 42 45 41 52 49 4E 47 20 49 53 22 3B 42 |'S BEARING IS";B| 00000980: 45 3B 22 44 45 47 52 45 45 53 2E 9A 11 22 00 B4 |E;"DEGREES..."..| 00000990: 11 C6 11 8B 20 42 45 B2 30 20 A7 20 99 20 22 20 |.... BE.0 . . " | 000009A0: 20 28 44 55 45 20 4E 4F 52 54 48 29 22 3A 89 20 | (DUE NORTH)":. | 000009B0: 34 39 35 30 00 E8 11 F8 11 8B 20 42 45 B3 39 30 |4950...... BE.90| 000009C0: 20 A7 20 99 20 22 20 20 28 4E 4F 52 54 48 22 3B | . . " (NORTH";| 000009D0: 42 45 3B 22 44 45 47 52 45 45 53 20 45 41 53 54 |BE;"DEGREES EAST| 000009E0: 29 22 3A 89 34 39 35 30 00 0E 12 2A 12 8B 20 42 |)":.4950...*.. B| 000009F0: 45 B2 39 30 20 A7 20 99 20 22 20 20 28 44 55 45 |E.90 . . " (DUE| 00000A00: 20 45 41 53 54 29 22 3A 89 20 34 39 35 30 00 4D | EAST)":. 4950.M| 00000A10: 12 5C 12 8B 20 42 45 B3 31 38 30 20 A7 20 99 20 |.\.. BE.180 . . | 00000A20: 22 20 20 28 53 4F 55 54 48 22 3B A5 52 4F 28 31 |" (SOUTH";.RO(1| 00000A30: 38 30 AB 42 45 29 3B 22 44 45 47 52 45 45 53 20 |80.BE);"DEGREES | 00000A40: 45 41 53 54 29 22 3A 89 20 34 39 35 30 00 75 12 |EAST)":. 4950.u.| 00000A50: 8E 12 8B 20 42 45 B2 31 38 30 20 A7 20 99 20 22 |... BE.180 . . "| 00000A60: 20 20 28 44 55 45 20 53 4F 55 54 48 29 22 3A 89 | (DUE SOUTH)":.| 00000A70: 20 34 39 35 30 00 B4 12 C0 12 8B 20 42 45 B3 32 | 4950...... BE.2| 00000A80: 37 30 20 A7 20 99 20 22 20 20 28 53 4F 55 54 48 |70 . . " (SOUTH| 00000A90: 22 3B A5 52 4F 28 42 45 AB 31 38 30 29 3B 22 44 |";.RO(BE.180);"D| 00000AA0: 45 47 52 45 45 53 20 57 45 53 54 29 22 3A 89 20 |EGREES WEST)":. | 00000AB0: 34 39 35 30 00 DB 12 F2 12 8B 20 42 45 B2 32 37 |4950...... BE.27| 00000AC0: 30 20 A7 20 99 20 22 20 20 28 44 55 45 20 57 45 |0 . . " (DUE WE| 00000AD0: 53 54 29 22 3A 89 20 34 39 35 30 00 08 13 24 13 |ST)":. 4950...$.| 00000AE0: 99 20 22 20 20 28 4E 4F 52 54 48 22 3B A5 52 4F |. " (NORTH";.RO| 00000AF0: 28 33 36 30 AB 42 45 29 3B 22 44 45 47 52 45 45 |(360.BE);"DEGREE| 00000B00: 53 20 57 45 53 54 29 22 00 2D 13 56 13 99 3A 99 |S WEST)".-.V..:.| 00000B10: 20 22 9B 41 4C 54 49 54 55 44 45 20 49 53 22 3B | ".ALTITUDE IS";| 00000B20: 41 4C 3B 22 44 45 47 52 45 45 53 2E 22 00 3F 13 |AL;"DEGREES.".?.| 00000B30: 88 13 8B 20 41 4C B1 33 20 A7 20 35 31 30 30 00 |... AL.3 . 5100.| 00000B40: 72 13 BA 13 99 3A 99 20 22 96 4C 4F 57 20 41 4C |r....:. ".LOW AL| 00000B50: 54 49 54 55 44 45 20 2D 20 43 4F 4D 4D 55 4E 49 |TITUDE - COMMUNI| 00000B60: 43 41 54 49 4F 4E 20 55 4E 52 45 4C 49 41 42 4C |CATION UNRELIABL| 00000B70: 45 22 00 78 13 EC 13 3A 00 9A 13 1E 14 99 22 13 |E".x...:......".| 00000B80: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................| 00000B90: 11 11 11 11 11 11 11 11 22 3B 00 D6 13 50 14 99 |........";...P..| 00000BA0: 22 9A 50 52 45 53 53 A7 12 53 48 49 46 54 92 91 |".PRESS..SHIFT..| 00000BB0: 9D 9D 9D 9D 9D A4 A4 A4 A4 A4 11 A5 46 4F 52 20 |............FOR | 00000BC0: 41 4E 4F 54 48 45 52 20 43 41 4C 43 55 4C 41 54 |ANOTHER CALCULAT| 00000BD0: 49 4F 4E 2E 22 3B 00 EA 13 B4 14 92 36 35 33 2C |ION.";......653,| 00000BE0: 31 2C 31 3A 92 36 35 33 2C 31 00 F3 13 E6 14 99 |1,1:.653,1......| 00000BF0: 20 22 93 00 FD 13 7C 15 89 31 35 35 30 00 1A 14 | "....|..1550...| 00000C00: AE 15 99 20 22 11 41 4E 4F 54 48 45 52 20 50 4F |... ".ANOTHER PO| 00000C10: 53 49 54 49 4F 4E 3F 20 22 3B 00 3E 14 E0 15 A1 |SITION? ";.>....| 00000C20: 20 47 24 3A 8B 20 47 24 B3 B1 22 59 22 20 AF 20 | G$:. G$.."Y" . | 00000C30: 47 24 B3 B1 22 4E 22 20 A7 20 35 36 30 30 00 5E |G$.."N" . 5600.^| 00000C40: 14 12 16 99 20 22 12 22 3B 47 24 3B 22 92 22 3A |.... ".";G$;".":| 00000C50: 81 20 49 B2 31 20 A4 20 31 30 30 30 3A 82 00 72 |. I.1 . 1000:..r| 00000C60: 14 44 16 8B 20 47 24 B2 22 59 22 20 A7 20 31 30 |.D.. G$."Y" . 10| 00000C70: 30 30 00 7D 14 76 16 89 20 35 31 35 30 00 83 14 |00.}.v.. 5150...| 00000C80: A8 16 3A 00 97 14 DA 16 8F 20 49 4E 50 55 54 20 |..:...... INPUT | 00000C90: 26 20 43 48 45 43 4B 00 A1 14 0C 17 85 20 49 4E |& CHECK...... IN| 00000CA0: 24 00 C5 14 3E 17 8B 20 49 4E 24 B2 22 A0 22 20 |$...>.. IN$."." | 00000CB0: A7 20 45 52 B2 AB 31 3A 99 20 22 91 91 22 3A 89 |. ER..1:. "..":.| 00000CC0: 20 36 33 30 30 00 D3 14 70 17 49 4E B2 C5 28 49 | 6300...p.IN..(I| 00000CD0: 4E 24 29 00 E5 14 A2 17 45 52 B2 28 B6 28 49 4E |N$).....ER.(.(IN| 00000CE0: 29 B1 4D 58 29 00 F7 14 D4 17 8B 20 45 52 B2 30 |).MX)...... ER.0| 00000CF0: 20 A7 20 36 33 30 30 00 12 15 06 18 99 20 22 11 | . 6300...... ".| 00000D00: 12 4F 55 54 20 4F 46 20 52 41 4E 47 45 20 21 92 |.OUT OF RANGE !.| 00000D10: 91 22 00 25 15 38 18 81 20 49 B2 31 20 A4 20 32 |.".%.8.. I.1 . 2| 00000D20: 30 30 30 3A 82 00 3F 15 6A 18 99 20 22 20 20 20 |000:..?.j.. " | 00000D30: 20 20 20 20 20 20 20 20 20 20 20 91 91 91 22 00 | ...".| 00000D40: 45 15 9C 18 8E 00 4B 15 CE 18 3A 00 5E 15 00 19 |E.....K...:.^...| 00000D50: 8F 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 00 8D |. INSTRUCTIONS..| 00000D60: 15 32 19 99 20 22 93 9B 54 48 49 53 20 50 52 4F |.2.. "..THIS PRO| 00000D70: 47 52 41 4D 20 43 41 4C 43 55 4C 41 54 45 53 20 |GRAM CALCULATES | 00000D80: 54 48 45 20 50 4F 53 49 54 49 4F 4E 22 00 BD 15 |THE POSITION"...| 00000D90: 64 19 99 20 22 98 28 45 58 50 52 45 53 53 45 44 |d.. ".(EXPRESSED| 00000DA0: 20 41 53 20 54 52 55 45 20 43 4F 4D 50 41 53 53 | AS TRUE COMPASS| 00000DB0: 20 42 45 41 52 49 4E 47 20 41 4E 44 22 00 ED 15 | BEARING AND"...| 00000DC0: 96 19 99 20 22 41 4C 54 49 54 55 44 45 29 20 9B |... "ALTITUDE) .| 00000DD0: 4F 46 20 41 4E 59 20 53 41 54 45 4C 4C 49 54 45 |OF ANY SATELLITE| 00000DE0: 20 57 48 49 43 48 20 49 53 20 49 4E 22 00 1B 16 | WHICH IS IN"...| 00000DF0: C8 19 99 20 22 47 45 4F 53 54 41 54 49 4F 4E 41 |... "GEOSTATIONA| 00000E00: 52 59 20 4F 52 42 49 54 20 98 28 41 4C 4D 4F 53 |RY ORBIT .(ALMOS| 00000E10: 54 20 41 4C 4C 20 54 2E 56 2E 22 00 49 16 FA 19 |T ALL T.V.".I...| 00000E20: 99 20 22 42 52 4F 41 44 43 41 53 54 49 4E 47 20 |. "BROADCASTING | 00000E30: 41 4E 44 20 52 45 4C 41 59 20 53 41 54 45 4C 4C |AND RELAY SATELL| 00000E40: 49 54 45 53 20 41 52 45 22 00 79 16 2C 1A 99 20 |ITES ARE".y.,.. | 00000E50: 22 47 45 4F 53 54 41 54 49 4F 4E 41 52 59 29 9B |"GEOSTATIONARY).| 00000E60: 2E 20 20 59 4F 55 20 57 49 4C 4C 20 42 45 20 41 |. YOU WILL BE A| 00000E70: 53 4B 45 44 20 46 4F 52 22 00 A6 16 5E 1A 99 20 |SKED FOR"...^.. | 00000E80: 22 59 4F 55 52 20 4C 41 54 49 54 55 44 45 20 41 |"YOUR LATITUDE A| 00000E90: 4E 44 20 4C 4F 4E 47 49 54 55 44 45 2C 20 41 4E |ND LONGITUDE, AN| 00000EA0: 44 20 46 4F 52 22 00 D0 16 90 1A 99 20 22 54 48 |D FOR"...... "TH| 00000EB0: 45 20 4C 4F 4E 47 49 54 55 44 45 20 4F 46 20 54 |E LONGITUDE OF T| 00000EC0: 48 45 20 53 41 54 45 4C 4C 49 54 45 2E 22 3A 99 |HE SATELLITE.":.| 00000ED0: 00 FE 16 C2 1A 99 20 22 54 48 45 20 50 52 4F 47 |...... "THE PROG| 00000EE0: 52 41 4D 20 50 52 49 4E 54 53 20 44 45 46 41 55 |RAM PRINTS DEFAU| 00000EF0: 4C 54 20 56 41 4C 55 45 53 20 46 4F 52 22 00 2A |LT VALUES FOR".*| 00000F00: 17 F4 1A 99 20 22 59 4F 55 52 20 4C 41 54 49 54 |.... "YOUR LATIT| 00000F10: 55 44 45 20 41 4E 44 20 4C 4F 4E 47 49 54 55 44 |UDE AND LONGITUD| 00000F20: 45 20 98 28 57 48 49 43 48 22 00 5A 17 26 1B 99 |E .(WHICH".Z.&..| 00000F30: 20 22 41 52 45 20 54 48 4F 53 45 20 46 4F 52 20 | "ARE THOSE FOR | 00000F40: 57 45 4C 4C 49 4E 47 54 4F 4E 2C 20 4E 45 57 20 |WELLINGTON, NEW | 00000F50: 5A 45 41 4C 41 4E 44 29 9B 2E 00 8C 17 58 1B 99 |ZEALAND).....X..| 00000F60: 20 22 49 46 20 59 4F 55 20 41 52 45 20 49 4E 20 | "IF YOU ARE IN | 00000F70: 57 45 4C 4C 49 4E 47 54 4F 4E 2C 20 4A 55 53 54 |WELLINGTON, JUST| 00000F80: 20 50 52 45 53 53 20 54 48 45 22 3B 00 BA 17 8A | PRESS THE";....| 00000F90: 1B 99 20 22 52 45 54 55 52 4E 20 4B 45 59 2E 20 |.. "RETURN KEY. | 00000FA0: 20 54 48 45 20 50 52 4F 47 52 41 4D 20 41 4C 53 | THE PROGRAM ALS| 00000FB0: 4F 20 43 4F 4E 54 41 49 4E 53 00 E5 17 BC 1B 99 |O CONTAINS......| 00000FC0: 20 22 4C 4F 4E 47 49 54 55 44 45 20 44 41 54 41 | "LONGITUDE DATA| 00000FD0: 20 46 4F 52 20 53 4F 4D 45 20 4F 46 20 54 48 45 | FOR SOME OF THE| 00000FE0: 20 4D 4F 52 45 00 09 18 EE 1B 99 20 22 46 52 45 | MORE...... "FRE| 00000FF0: 51 55 45 4E 54 4C 59 20 55 53 45 44 20 53 41 54 |QUENTLY USED SAT| 00001000: 45 4C 4C 49 54 45 53 2E 22 00 36 18 20 1C 99 3A |ELLITES.".6. ..:| 00001010: 99 20 22 59 4F 55 20 43 41 4E 20 43 48 41 4E 47 |. "YOU CAN CHANG| 00001020: 45 20 54 48 45 20 44 45 46 41 55 4C 54 20 4C 41 |E THE DEFAULT LA| 00001030: 54 49 54 55 44 45 00 60 18 52 1C 99 20 22 41 4E |TITUDE.`.R.. "AN| 00001040: 44 20 4C 4F 4E 47 49 54 55 44 45 20 42 59 20 45 |D LONGITUDE BY E| 00001050: 44 49 54 49 4E 47 20 4C 49 4E 45 20 32 30 30 2E |DITING LINE 200.| 00001060: 00 8D 18 B6 1C 99 20 22 41 44 44 49 54 49 4F 4E |...... "ADDITION| 00001070: 41 4C 20 53 41 54 45 4C 4C 49 54 45 53 20 43 41 |AL SATELLITES CA| 00001080: 4E 20 42 45 20 41 44 44 45 44 20 54 4F 00 B8 18 |N BE ADDED TO...| 00001090: E8 1C 99 20 22 54 48 45 20 44 41 54 41 20 41 54 |... "THE DATA AT| 000010A0: 20 54 48 45 20 45 4E 44 20 4F 46 20 54 48 45 20 | THE END OF THE | 000010B0: 50 52 4F 47 52 41 4D 2E 00 E6 18 1A 1D 99 20 22 |PROGRAM....... "| 000010C0: 9A 11 11 50 52 45 53 53 A7 12 53 48 49 46 54 92 |...PRESS..SHIFT.| 000010D0: 91 9D 9D 9D 9D 9D A4 A4 A4 A4 A4 11 A5 54 4F 20 |.............TO | 000010E0: 42 45 47 49 4E 2E 00 FA 18 4C 1D 92 36 35 33 2C |BEGIN....L..653,| 000010F0: 31 2C 31 3A 92 36 35 33 2C 31 00 05 19 7E 1D 89 |1,1:.653,1...~..| 00001100: 20 31 30 30 30 00 0B 19 B0 1D 3A 00 26 19 E2 1D | 1000.....:.&...| 00001110: 8F 20 53 41 54 45 4C 4C 49 54 45 20 44 41 54 41 |. SATELLITE DATA| 00001120: 20 54 41 42 4C 45 00 37 19 14 1E 83 20 41 4E 49 | TABLE.7.... ANI| 00001130: 4B 20 31 2C 31 30 34 00 48 19 46 1E 83 20 41 4E |K 1,104.H.F.. AN| 00001140: 49 4B 20 42 2C 31 30 39 00 5F 19 78 1E 83 20 41 |IK B,109._.x.. A| 00001150: 4E 49 4B 20 41 32 20 26 20 41 33 2C 31 31 34 00 |NIK A2 & A3,114.| 00001160: 73 19 AA 1E 83 20 41 4E 49 4B 20 44 31 2C 31 30 |s.... ANIK D1,10| 00001170: 34 2E 35 00 85 19 DC 1E 83 20 57 45 53 54 41 52 |4.5...... WESTAR| 00001180: 20 31 2C 39 39 00 9A 19 0E 1F 83 20 57 45 53 54 | 1,99...... WEST| 00001190: 41 52 20 32 2C 31 32 33 2E 35 00 AC 19 40 1F 83 |AR 2,123.5...@..| 000011A0: 20 57 45 53 54 41 52 20 33 2C 39 31 00 BF 19 72 | WESTAR 3,91...r| 000011B0: 1F 83 20 53 41 54 43 4F 4D 20 32 2C 31 31 39 00 |.. SATCOM 2,119.| 000011C0: D1 19 A4 1F 83 20 53 41 54 43 4F 4D 20 34 2C 38 |..... SATCOM 4,8| 000011D0: 33 00 EA 19 D6 1F 83 20 43 4F 4D 53 54 41 52 20 |3...... COMSTAR | 000011E0: 44 31 20 26 20 44 32 2C 39 35 00 F0 19 08 20 3A |D1 & D2,95.... :| 000011F0: 00 3B 1A 3A 20 8F 20 41 44 44 49 54 49 4F 4E 41 |.;.: . ADDITIONA| 00001200: 4C 20 53 41 54 45 4C 4C 49 54 45 53 2C 20 41 4E |L SATELLITES, AN| 00001210: 44 20 54 48 45 49 52 20 4C 4F 4E 47 49 54 55 44 |D THEIR LONGITUD| 00001220: 45 53 20 28 44 45 47 2E 20 57 45 53 54 29 20 43 |ES (DEG. WEST) C| 00001230: 41 4E 20 42 45 20 41 44 44 45 44 00 79 1A 6C 20 |AN BE ADDED.y.l | 00001240: 8F 20 54 4F 20 54 41 42 4C 45 20 41 42 4F 56 45 |. TO TABLE ABOVE| 00001250: 2E 20 4E 4F 20 4F 54 48 45 52 20 43 48 41 4E 47 |. NO OTHER CHANG| 00001260: 45 53 20 54 4F 20 50 52 4F 47 52 41 4D 20 41 52 |ES TO PROGRAM AR| 00001270: 45 20 4E 45 45 44 45 44 2E 00 7F 1A 9E 20 3A 00 |E NEEDED..... :.| 00001280: 8D 1A D0 20 83 20 45 4E 44 44 41 54 41 00 00 00 |... . ENDDATA...|
....2..53280,0:.53281,0.C.D.. - TV SATEL LITES, DAVID WILLIAMS, 1982.I...:...H.LA ..41.2:LO..174.8:. LATITUDE & LONGITUDE OF WELLINGTON (DEFAULT VALUES)...... .RO (X)..(100.X..5).100.W.,.CF...180:. DEGRE E/RADIAN FACTOR...^.R.6.615: . RADIUS OF GEOSYNCHRANOUS ORBIT IN UNITS OF EARTH RADIUS.$...:.\.B.. READ SATELLITE DATA F ROM TABLE AT END OF PROGRAM..S.... SN$(1 00),LS(100).|.&.N..1...X.. SN$:. SN$."EN DDATA" . 750.....N.N.1:SN$(N).SN$:. LS(N ).C.... 600.I...:... .. "..........DO YO U WANT INSTRUCTIONS ?...R.. G$:. G$.."Y" . G$.."N" . 850.,.... G$."Y" . 6400.2.. .:.F.... INPUT SECTION.Z.... "..INPUT LA TITUDE AND LONGITUDE IN DEGREES.";...$.. "..... ........ ... ......... .. ...... ..Z.L.. "..USE NEGATIVE NUMBERS FOR SOUT H LATITUDE...~.. ". AND EAST LONGITUTE. ...".D.... ".YOUR LATITUDE (DEG. NORTH) ";LA;".....................";.27);.A.. .MX.90:. 5850:. ER . 1200.K...LA.IN...F. . "..YOUR LONGITUDE (DEG. WEST) ";LO;" .....................";.27);.R.X.MX.360: . 5850:. ER . 1350.....LO.IN.....:.....L T.LA:LG.LO...@.. N..1 . 2250.".R.. "..WH ICH SATELLITE ?..".0.... I.0 . N.O.V.. " ..";G(65.I);"..";SN$(I).U.....I...."..Z. ..OTHER";...P.. G$:. G$."" . 2000...... G$."Z". 2250...4.G.F(G$).65:. G.0 . G.N . 2000...F..".",,"...";G$;"....":.I.0.N: .:......LS.LS(G):. 2700...J.. "...INPUT LONGITUDE OF SATELLITE IN.E.... ".DEGREE S WEST .(ENTER EAST LONGITUDE.O.... ".AS A NEGATIVE NUMBER).. ...";.....MX.3 60:. 5850:. ER . 2250...D.LS.IN......... (.....Z.......:.T...LD.LG.LS: . LONGITUD E DIFFERENCE.....LT.90.LT: . LATITUDE FR OM S. POLE...".LT.CF.LT: . LATITUDE IN R ADIANS.I.T.LD.CF.LD: . LONGITUDE DIFF. I N RADIANS.O...:.S.... SATELLITE'S X,Y,Z COORDINATES.....Y.0:. EQUATORIAL ORBIT.. ...X.R..(LD)...N.Z.R..(LD).....:...... R OTATE SYSTEM TO PUT OBSERVER AT S. POLE. ....D..(Z): . DISTANCE FROM X-AXIS.G...A N...((Z.0)..5): . AZIMUTH ANGLE ONTO Y-Z PLANE (Y-AXIS AS ZERO).E.H.AN.AN.LT: . ROTATE SYSTEM.|.Z.Y.D..(AN): . NEW Y.... .Z.D..(AN): . NEW Z.....:...... CALCULAT E NEW BEARINGS.Y.B.. Z.0 . BE...((X.0).. 5):. 3750...T.BE.A(X.Z)...(Z.0): . BEARI NG.$.... X.0 . Z.0 . AL.(..2)..(.1.Y):. 3850.N.X.AL.A((.1.Y).(.(X.X.Z.Z))): . AL TITUDE.Q...BE.BE.CF: . BEARING IN DEGREE S...<.AL.AL.CF: . ALT. IN DEGREES...N.. BE.0 . BE.BE.360:. 3950.P. .. BE..360 . BE.BE.360:. 4000.V.R.:...... ROUNDOFF... 6.BE..RO(BE)...H.AL..RO(AL).....:...L.. PRINTOUT.......].0.. AL.0 . . "..SATELLI TE INVISIBLE .(BELOW HORIZON)":. 5100... ... "..SATELLITE'S BEARING IS";BE;"DEGRE ES..."...F.. BE.0 . . " (DUE NORTH)":. 4950...... BE.90 . . " (NORTH";BE;"DEGR EES EAST)":.4950...*.. BE.90 . . " (DUE EAST)":. 4950.M.\.. BE.180 . . " (SOUT H";.RO(180.BE);"DEGREES EAST)":. 4950.U. ... BE.180 . . " (DUE SOUTH)":. 4950... ... BE.270 . . " (SOUTH";.RO(BE.180);"D EGREES WEST)":. 4950...... BE.270 . . " (DUE WEST)":. 4950...$.. " (NORTH";.RO (360.BE);"DEGREES WEST)".-.V..:. ".ALTIT UDE IS";AL;"DEGREES.".?.... AL.3 . 5100. R....:. ".LOW ALTITUDE - COMMUNICATION U NRELIABLE".X...:......"................. ........";.V.P..".PRESS..SHIFT.......... ....FOR ANOTHER CALCULATION.";......653, 1,1:.653,1...... "....|..1550...... ".AN OTHER POSITION? ";.>.... G$:. G$.."Y" . G$.."N" . 5600.^.... ".";G$;".":. I.1 . 1000:..R.D.. G$."Y" . 1000.}.V.. 5150... ..:...Z.. INPUT & CHECK...... IN$.E.>.. IN$." " . ER..1:. "..":. 6300.S.P.IN.E(I N$).....ER.(.(IN).MX)...T.. ER.0 . 6300. ..... "..OUT OF RANGE !..".%.8.. I.1 . 2 000:..?.J.. " ...".E.....K. N.:.^.... INSTRUCTIONS...2.. "..THIS PRO GRAM CALCULATES THE POSITION"...D.. ".(E XPRESSED AS TRUE COMPASS BEARING AND"... ... "ALTITUDE) .OF ANY SATELLITE WHICH I S IN"...H.. "GEOSTATIONARY ORBIT .(ALMOS T ALL T.V.".I.... "BROADCASTING AND RELA Y SATELLITES ARE".Y.,.. "GEOSTATIONARY). . YOU WILL BE ASKED FOR"...^.. "YOUR LA TITUDE AND LONGITUDE, AND FOR".P.... "TH E LONGITUDE OF THE SATELLITE.":....B.. " THE PROGRAM PRINTS DEFAULT VALUES FOR".* .... "YOUR LATITUDE AND LONGITUDE .(WHIC H".Z.&.. "ARE THOSE FOR WELLINGTON, NEW ZEALAND).....X.. "IF YOU ARE IN WELLINGT ON, JUST PRESS THE";...... "RETURN KEY. THE PROGRAM ALSO CONTAINS...... "LONGIT UDE DATA FOR SOME OF THE MORE...... "FRE QUENTLY USED SATELLITES.".6. ..:. "YOU C AN CHANGE THE DEFAULT LATITUDE.`.R.. "AN D LONGITUDE BY EDITING LINE 200....... " ADDITIONAL SATELLITES CAN BE ADDED TO... ... "THE DATA AT THE END OF THE PROGRAM. ...... "...PRESS..SHIFT..............TO BEGIN....L..653,1,1:.653,1...~.. 1000... ..:.&.... SATELLITE DATA TABLE.7.... ANI K 1,104.H.F.. ANIK B,109._.X.. ANIK A2 & A3,114.S.... ANIK D1,104.5...... WESTAR 1,99...... WESTAR 2,123.5...@.. WESTAR 3,91...R.. SATCOM 2,119.Q.... SATCOM 4,8 3...V.. COMSTAR D1 & D2,95.... :.;.: . A DDITIONAL SATELLITES, AND THEIR LONGITUD ES (DEG. WEST) CAN BE ADDED.Y.L . TO TAB LE ABOVE. NO OTHER CHANGES TO PROGRAM AR E NEEDED.... :...P . ENDDATA...
> CLICK IMAGE PREVIEW FOR FULL MODAL