10 REM COPYRIGHT 1995 - COMPUTE PUBLICATIONS INTL LTD - ALL RIGHTS RESERVED 20 REM SATELLITE PLOTTING PROGRAM D.KLICH 30 DIMSN$(100),SA(100):POKE53280,0:POKE53281,0:DR=.0174532925:RD=57.2957795 40 FORI=1TO100:READSN$(I),J:IFSN$(I)<>"END"THENSA(I)=J*.0174533:NEXT 50 Q=I-1:OPEN1,4:PRINT"[147]MAKE SURE THE PRINTER IS ON AND AT TOP":PRINTSPC(14)"OF THE FORM.":PRINTSPC(8)"PRESS SPACE WHEN READY" 60 GETA$:IFA$=""THEN60 65 IFA$<>" "THEN60 70 PRINT#1,"EARTH SATELLITE COORDINATES FOR SITE LOCATED AT:":PRINT#1 80 PRINT"ENTER SITE LONGITUDE IN:":PRINT"DEGREES,MINUTES,SECOMDS,E OR W":INPUT"EXAMPLE 87,54,46,W ";D,M,S,EW$ 90 IFEW$="E"THENJ=-1:GOTO110 100 IFEW$="W"THENJ=1:GOTO110 105 GOTO80 110 PRINT#1,"LONGITUDE ";D;" ";M;"'";S;CHR$(34);" ";EW$ 120 LO=DR*J*(D+(M/60)+(S/3600)) 130 PRINT"ENTER SITE LATITUDE IN":PRINT"DEGREES,MINUTES,SECONDS,N OR S":INPUT"EXAMPLE 42,8,16,N ";D,M,S,NS$ 140 PRINT#1,"LATITUDE ";D;" ";M;"'";S;CHR$(34);" ";NS$ 150 LA=DR*(D+(M/60)+(S/3600)) 160 PRINT"ENTER TRUE NORTH CORRECTION AS:":PRINT"..E OR ..W":INPUT"EXAMPLE: 02E ";A$ 170 IFRIGHT$(A$,1)="W"THEN190 180 IFRIGHT$(A$,1)="E"THENJ=-J:GOTO190 185 GOTO160 190 PRINT#1,"CORRECTION FOR TRUE NORTH ";LEFT$(A$,LEN(A$)-1);:IFRIGHT$(A$,1)="E"THENPRINT#1," EAST":GOTO200 195 PRINT#1," WEST" 200 CR=VAL(LEFT$(A$,LEN(A$)-1))*J*DR 210 PRINT#1:PRINT#1,"AZIMUTH FIGURES ARE GIVEN IN 'TRUE' AND 'COMPASS' READINGS":PRINT#1,"USE THE COMPASS READINGS FOR SITE TESTING" 220 PRINT#1,"SATELLITE"SPC(6)"LONG."SPC(4)"TRUE"SPC(4)"ELEVATION"SPC(3)"DISTANCE"SPC(3)"COMPASS" 230 PRINT#1," NAME";SPC(16);"AZIMUTH";SPC(4);"IN DEG";SPC(5);"IN MILES";SPC(3);"AZIMUTH" 240 FORI=1TO62:PRINT#1,CHR$(99);:NEXT:PRINT#1 250 FORI=1TOQ:X=COS(LO-SA(I))*COS(LA):GOSUB340:Y=AC:X=TAN(LA)/TAN(Y):GOSUB340:AZ=(null)+AC 260 EV=ATN((COS(Y)-.15166)/SIN(Y)) 270 R=3963-(LA*26.6/(null)):HA=EV+((null)/2):X=R/26263*SIN(HA):RA=ATN(X/SQR(-X*X+1)):DA=(null)-RA-HA:D=R*SIN(DA)/SIN(RA) 280 IFSA(I)<0THENK$="E":GOTO290 285 K$="W" 290 IF EV<0THEN330 300 IFSA(I)ABTHENAA=ABS(X-AB):AC=AC-AA:GOTO360 390 AA=ABS(X-AB):AC=AC+AA:GOTO360 400 DATA "SATCOM C-5",139,"SATCOM C-1",137,"SATCOM C-4",135,"GALAXY 1",133,"SATCOM C-3",131,"ASC1",128,"GALAXY 5",125,"GSTAR IV",125,"TELSTAR 303",123 410 DATA "SPACENET 1",120,"MORELOS 2",116.7,"ANIK C3",114.9,"MORELOS 1",113.5,"ANIK E1",111.1,"ANIK C1 & C2",110,"ANIK E2",107.3,"GSTAR 2",105,"GSTAR A1",103 420 DATA "SPACENET IV",101,"GALAXY VI",99,"TELSTAR 301",96,"SBS 3",95,"GALAXY 3",93.5,"SBS 4",91,"SPACENET 3",87,"TELSTAR 302",85,"SATCOM K-1",85,"ANIK D2",82 430 DATA "SATCOM K-2",81,"GALAXY 2",74,"SATCOM F-2R",72,"BRASILSAT",70,"SPACENET 2",69,"INTELSAT 513",53,"INTELSAT 506",50,"PANAMSAT F1",45,"TDRSS-41",41 440 DATA "INTELSAT 603",34.5,"HISPASAT",31,"MARCOPOLO I",31,"INTELSAT 601",27.5,"INTELSAT 605",24.5,"INTELSAT K",21.5,"TV-SAT 1/2",19.2,"TDF 1A/1B",19 450 DATA "OLYMPUS 1",18.8,"INTELSTAT 515",18.5,"GORIZONT 15",14,"GORIZONT 7",11,"TELECOM 2A",8,"TELECOM 2B",5,"INTELSAT 512",1,"THOR",-1,"TELECOM 1C",-3 460 DATA "TELE-X",-5,"EUTELSAT II F4",-7,"EUTELSAT II F2",-10,"EUTELSAT II F1",-13,"EUTELSAT II F3",-16,"ASTRA 1A & 1B",-19.2,"EUTELSAT I F5",-21.5 470 DATA "KOPERNIKUS DFS1",-23.5,"ARABSAT 1C",-26,"KOPERNIKUS DFS2",-28.5,"KOPERNIKUS DFS3",-33.5,"GORIZONT 12",-40,"ARABSAT 1B",-43,"GORIZONT 11",-53 480 DATA "INTELSAT 507",-57,"INTELSAT 604",-60,"INTELSAT 602",-63,"INTELSAT 505",-66,"INSAT 2A",-74,"GORIZONT 10",-80,"INSAT 1D",-83,"DFH2-A1",-87.5 490 DATA "GORIZONT 13",-90,"INTELSAT 501",-91.5,"GORIZONT 19",-96.5,"EKRAN 19",-99,"STATSIONAR 21",-103,"ASIASAT 1",-105.5,"PALAPA B2R",-108,"BS-3A/3B",-110 500 DATA "DFH2-A2",-110.5,"PALAPA B2P",-113,"CS-3A SAKURA",-132,"JCSAT 1",-150,"JCSAT 2",-154,"AUSSAT A2",-156,"AUSSAT A1",-160,"AUSSAT A3",-164 510 DATA "SUPERBIRD B1",-162,"INTELSTAT 510",-174,"INTELSTAT 511",-177,"INTELSTAT 508",-180,"END",0