5 FORS=1TO32:PRINT"=";:NEXTS:PRINT"THIS PACKAGE IS OF PARTICULAR INTEREST TO YOU IF YOU ARE DESIGNING AN ANTENNA SYSTEM FOR AN AMATEUR OR COMMERCIAL INSTALLATION."
6 PRINT" YOU WILL BE ABLE TO COMPARE VARIOUS COMBINATIONS OF ANTENNA-FEEDLINE TYPES TO OBTAIN THE MOST PRACTICAL EFFECTIVE RADIATED POWER FOR THE TYPE OF ANTENNA OR FEEDLINE IN PROGRAM /A/.
7 PRINT"PROGRAM /B/ ALLOWS YOU TO DETERMINE EXACTLY HOW MUCH LOSS IN DB CAN BE ALLOWED FOR A PARTICULAR ERP OUTPUT":FORS=1TO31:PRINT"=";:NEXTS:PRINT
8 INPUT"DO YOU WANT TO RUN A OR B";A$:CLS
9 FOR S=1TO64:PRINT"=";:NEXTS
10 IF A$="B"THEN GOTO 110
11 PRINT"THIS PROGRAM COMPUTES THE EFFECTIVE RADIATED PWR"
12 PRINT
13 PRINT"AS WELL AS THE FEEDLINE LOSS OF ANY TRANSMITTER-"
14 PRINT
15 PRINT"ANTENNA SYSTEM, BASED ON XMTR OUTPUT POWER,"
16 PRINT
17 PRINT"FEEDLINE AND ANTENNA EFFICIENCY"
18 FOR S=1TO64:PRINT"=";:NEXTS
19 PRINT:PRINT:INPUT"DO YOU NEED INSTRUCTIONS";A$
20 IF LEFT$(A$,1)="Y"THEN55
21 GOSUB67
22 CLS:INPUT"WHAT IS THE TRANSMITTER OUTPUT POWER";TP
23 PRINT:PRINT:INPUT"HOW MANY FEET OF FEEDLINE DO YOU PLAN ON USING";FL
24 REM IF INTERPOLATION WAS USED THE STEP ASKING FOR FEED-LINE LOSS IS OMMITTED. VALUE LL IS USED DIRECTLY
25 IF LL<>0 THEN 27
26 PRINT:PRINT:INPUT" WHAT IS THE LOSS IN DB/100 FT OF YOUR FEEDLINE";LL
27 PRINT:PRINT:INPUT"WHAT IS THE GAIN OF YOUR ANTENNA SYSTEM IN DB (IF UNITY GAIN DB GAIN IS 0)";AG
28 REM CALCULATE TOTAL LOSS FOR ENTIRE LENGTH OF CABLE
29 L=FL/100*LL
30 L1=L
31 GOSUB83
32 PL=P1
33 REM CALCULATES ERP AFTER FIRST DETERMINING POWER DELIVEREDTO ANTENNA
34 PA=TP-P1
35 L=AG
36 GOSUB83
37 CLS:PRINT:PRINT
38 PRINT" TRANSMITTER OUTPUT..";TP;"WATTS"
40 PRINT" FEEDLINE LENGTH.....";FL;"FEET"
42 PRINT" LOSS/100 FT.........";LL;"DB"
44 PRINT" LOSS OF ENTIRE RUN..";L1;"DB"
46 PRINT" LOSS OF ENTIRE RUN..";PA;"WATTS"
48 PRINT" POWER TO ANTENNA....";PL;"WATTS"
50 PRINT" ERP.................";E;"WATTS"
51 PRINT
52 LL=0:INPUT" DO YOU WANT ANOTHER CALCULATION";A$
53 IFLEFT$(A$,1)="Y" GOSUB67:GOTO22
54 GOTO 109
55 CLS:FORS=1TO31:PRINT"=":PRINT"YOU WILL BE ASKED TO ENTER VARIOUS OPERATION PARAMETERS ";
56 PRINT"OF YOUR PROPOSED TRANSMITTING SYSTEM. THESE WILL BE: ";
57 PRINT"TRANSMITTER OUTPUT POWER; LENGTH OF FEEDLINE; FEEDLINE ";
58 PRINT"LOSS AT OPERATING FREQUENCY IN DB/100 FT; & ANTENNA GAIN IN DB.";
60 PRINT"ENTER ALL FREQUENCIES IN MHZ. FOR YOUR CONVENIENCE AN ABBREVIATED TABLE OF MORE COMMON COAX TYPES AND LOSSES IS GIVEN. ";
61 PRINT"USE THIS TABLE,OR ANY SIMILIAR TABLE FOR YOUR CALCULATIONS.";
62 PRINT" AN OPTION WHICH ALLOWS YOU TO INTERPOLATE FROM THE TABLE IS ALSO INCLUDED";
63 FOR S=1TO5:PRINT"=";:NEXTS
64 INPUT"PRESS ENTER TO CONTINUE";A$
65 GOSUB67
66 GOTO22
67 CLS:PRINT"LOSSES OF COMMONLY USED COAX IN DB/100 FT"