home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / math / intmod60 / intmod60.bas (.txt) next >
Encoding:
GW-BASIC  |  1988-08-16  |  16.9 KB  |  624 lines
  1. 10  CLS
  2. 20  PRINT:PRINT:PRINT"INTERMOD PROGRAM, TWO APPROACHES..."
  3. 30  PRINT:PRINT "1.  UNLIMITED AMOUNT OF FREQUENCIES"
  4. 40  PRINT:PRINT "2.  BACK CALCULATION SHOWING FREQUENCIES THAT WILL"
  5. 50  PRINT "    MIX WITH A LOCAL STRONG FREQUENCY TO CREATE A REPEATER"
  6. 60  PRINT "    INPUT SIGNAL."
  7. 70  PRINT:PRINT "3. EXIT PROGRAM ? "
  8. 80  PRINT:PRINT
  9. 90  INPUT "YOUR CHOICE.. ";N9
  10. 100  IF N9=2 GOTO 2000
  11. 110  IF N9=3 THEN END
  12. 120  CLS
  13. 130  PRINT:PRINT:PRINT:PRINT
  14. 140  PRINT "INTERMOD PROGRAM FOR UP TO REQUESTED NUMBER OF FREQUENCIES"
  15. 150  PRINT
  16. 160  PRINT "      A MINIMUM OF 3 FREQUENCES MUST BE ENTERED"
  17. 170  PRINT
  18. 180  INPUT "         HOW MANY FREQUENCIES DO YOU WANT";N
  19. 190  LET P$ = "N"
  20. 200  PRINT:PRINT:
  21. 210  PRINT "IF YOU HAVE A  PRINTER ATTACHED TO YOUR COMPUTER"
  22. 220  INPUT "    ENTER 'YES' FOR A LISTING OF THE RESULTS";P$:GOTO 1520
  23. 230  CLS:PRINT "A HIGH AND LOW INTERMOD FREQUENCY MAY BE ENTERED.  IF YOU SELECT":PRINT"THIS OPTION THE ONLY FREQUENCIES DISPLAYED WILL BE BETWEEN THE":PRINT"HIGH AND LOW LIMIT"
  24. 240  O$ = "N":N$ = "N":PRINT:PRINT
  25. 250  INPUT "ENTER 'YES' TO SELECT THIS OPTION";O$
  26. 260  IF O$ = "N" OR O$ = "n" GOTO 310
  27. 270  PRINT:INPUT "ENTER LOW  INTERMOD FREQUENCY";O1
  28. 280  PRINT:INPUT "ENTER HIGH INTERMOD FREQUENCY";O2
  29. 290  IF O2 => O1 THEN GOTO 310
  30. 300  PRINT "ERROR---HIGH LIMIT MUST BE EQUAL TO  OR GREATER THAN LOW LIMIT":GOTO 270
  31. 310  IF N$ = "Y" OR N$="y" THEN GOTO 400
  32. 320  CLS:PRINT:PRINT:PRINT:PRINT
  33. 330  DIM A(100)
  34. 340  DIM B(26)
  35. 350  FOR I = 1 TO N
  36. 360  PRINT "FREQUENCY ",I,"";
  37. 370  INPUT A(I)
  38. 380  IF A(I) = 0 THEN 400
  39. 390  NEXT I
  40. 400  B = 1:C = 2:D = 3
  41. 410  FOR Z = 11 TO 200:NEXT Z
  42. 420  FOR S = 1 TO N
  43. 430  FOR I = 1 TO N
  44. 440  IF A(B) = A(C) OR A(C) = A(D) OR A(B) = A(D) THEN GOTO 750
  45. 450  A = (2*A(B))-A(C):B2 = (2*A(C))-A(B)
  46. 460  C2 = (3*A(B))-(2*A(C)):D2 = (3*A(C))-(2*A(B))
  47. 470  E = A(B)+A(C)-A(D):F = A(C)+A(D)-A(B)
  48. 480  G = A(D)+A(B)-A(C):H = A(B)+(2*A(C))-(2*A(D))
  49. 490  I1 = A(B)+(2*A(D))-(2*A(C)):J = A(C)+(2*A(B))-(2*A(D))
  50. 500  K = A(C)+(2*A(D))-(2*A(B))
  51. 510  L = A(D)+(2*A(B))-(2*A(C)):M = A(D)+(2*A(C))-(2*A(B))
  52. 520  A1 = (2*A(B))+A(C):B1 = (2*A(C))+A(B)
  53. 530  C1 = (3*A(B))+(2*A(C)):D1 = (3*A(C))+(2*A(B))
  54. 540  E1 = A(B)+A(C)+A(D):F1 = A(C)+A(D)+A(B)
  55. 550  G1 = A(D)+A(B)+A(C):H1 = A(B)+(2*A(D))
  56. 560  I2 = A(C)+(2*A(D))+(2*A(C)):J1 = A(C)+(2*A(B))+(2*A(D))
  57. 570  K1 = A(C)+(2*A(D))+(2*A(B))
  58. 580  L1 = A(D)+(2*A(B))+(2*A(C)):M1 = A(D)+(2*A(C))+(2*A(B))
  59. 590  M = A(I+2)+(2*A(I+1))-(2*A(I))
  60. 600  CLS:R$ = "P"
  61. 610  IF O$ >< "Y" OR O$ >< "y" THEN GOTO 660
  62. 620  PRINT "        *** HIGH AND LOW INTERMOD OPTION ***"
  63. 630  PRINT:PRINT "COMBINATIONS",B,C,D:PRINT
  64. 640  PRINT "            LOW  LIMIT  ";O1
  65. 650  PRINT "            HIGH LIMIT  ";O2
  66. 660  GOSUB 810
  67. 670  IF R$ >< "N" OR R$ >< "n" THEN GOTO 690
  68. 680  R$ = "P":GOTO 750
  69. 690  IF P$ >< "Y" OR P$ >< "y" THEN GOTO 720
  70. 700  GOSUB 1340
  71. 710  IF X$ = "Y" OR X$ = "y" THEN R$ = "P":GOTO 750
  72. 720  INPUT "PRESS 'ENTER' TO CONTINUE";V$
  73. 730  R$ = "P"
  74. 740  IF V$ = "" GOTO 750
  75. 750  C = C+1:D = D+1
  76. 760  NEXT I
  77. 770  B = B+1
  78. 780  C = 1:D = 2
  79. 790  NEXT S
  80. 800  GOTO 1120
  81. 810  IF  O$ = "N" OR O$ = "n" THEN GOTO 880
  82. 820  B(1) = A:B(2) = B2:B(3) = A1:B(4) = B1:B(5) = C2:B(6) = D2:B(7) = C1:B(8) = D1:B(9) = E:B(10) = F:B(11) = G:B(12) = E1:B(13) = F1
  83. 830  B(14) = G1:B(15) = H:B(16) = I1:B(17) = J:B(18) = K:B(19) = L:B(20) = M:B(21) = H1:B(22) = I2:B(23) = J1:B(24) = K1:B(25) = L1:B(26) = M1
  84. 840  FOR Q = 1 TO 26:IF B(Q) => O1 THEN GOTO 850 ELSE GOTO 860
  85. 850  IF B(Q) =< O2 THEN GOTO 880 ELSE GOTO 860
  86. 860  NEXT Q
  87. 870  R$ = "N":GOTO 970
  88. 880  CLS
  89. 890  PRINT "2 - SIGNAL, 3RD ORDER PRODUCT OF";A(B);"AND";A(C)
  90. 900  PRINT "    (-) ",A,B2
  91. 910  PRINT "    (+) ",A1,B1
  92. 920  PRINT "2 - SIGNAL, 5TH ORDER PRODUCT OF";A(B);"AND";A(C)
  93. 930  PRINT "    (-) ",C2,D2
  94. 940  PRINT "    (+) ",C1,D1
  95. 950  IF A(D) >< 0 THEN GOTO 990
  96. 960  PRINT:PRINT "COMBINATIONS",B,C
  97. 970  IF A(D) = 0 THEN RETURN
  98. 980  IF R$ = "N" OR R$ = "n" THEN GOTO 1070
  99. 990  PRINT "3 - SIGNAL, 3RD ORDER PRODUCT OF";A(B);",";A(C);"AND";A(D)
  100. 1000  PRINT "    (-) ",E,F,G
  101. 1010  PRINT "    (+) ",E1,F1,G1
  102. 1020  PRINT "3 - SIGNAL, 5TH ORDER PRODUCT OF";A(B);",";A(C);"AND";A(D)
  103. 1030  PRINT "    (-) "H;I1;J;K;L;M
  104. 1040  PRINT "    (+) "H1;I2;J1;K1;L1;M1
  105. 1050  PRINT:PRINT "COMBINATIONS",B,C,D
  106. 1060  PRINT
  107. 1070  IF A(D) = O THEN 1090
  108. 1080  RETURN
  109. 1090  IF R$ = "N" OR R$ = "n" THEN GOTO 1120
  110. 1100  INPUT "PRESS 'ENTER' TO CONTINUE";T$
  111. 1110  IF T$ = "" GOTO 1120
  112. 1120  CLS:N$ = "N":PRINT:PRINT:PRINT:PRINT:PRINT
  113. 1130  IF O$ >< "Y" OR O$ >< "y" THEN GOTO 1190
  114. 1140  PRINT "        *** HIGH AND LOW  INTERMOD OPTION ***"
  115. 1150  PRINT "            COMPUTATIONS COMPLETE"
  116. 1160  INPUT "            DO YOU WISH TO ENTER NEW LIMITS";N$
  117. 1170  PRINT:IF N$ = "YES" THEN GOTO 270
  118. 1180  O$ = "N":GOTO 1120
  119. 1190  PRINT "          COMPUTATIONS COMPLETE"
  120. 1200  INPUT "           DO YOU WANT ANOTHER RUN";W$
  121. 1210  IF W$ = "Y" OR W$ = "y" THEN RUN
  122. 1220  END
  123. 1230  A1 = (2*A(I))+A(I+1))
  124. 1240  C1 = (3*A(I)+(2*A(I+1)):B1 = (2*A(I+1))+A(I)
  125. 1250  D1 = (3*A(I+1))+(2*A(1)):E1 = A(I)+A(I+1)+A(I+2)
  126. 1260  F1 = A(I+1)+A(I+2)+A(I)
  127. 1270  G1 = A(I+2)+A(I)+A(I+1):H1 = A(I)+(2*A(I+1))+(2*A(I+2))
  128. 1280  I2 = A(I+1)+(2*A(I+2))+(2*A(I+1))
  129. 1290  J1 = A(I+1)+(2*A(I))+(2*A(I+2))
  130. 1300  K1 = A(I+1)+(2*A(I+2))+(2*A(I))
  131. 1310  L1 = A(I+2)+(2*A(I))+(2*A(I+1))
  132. 1320  M1 = A(I+2)+(2*A(I+1))+(2*A(I))
  133. 1330  RETURN
  134. 1340  LPRINT "2 - SIGNAL, 3RD ORDER PRODUCT OF"A(B);"AND";A(C)
  135. 1350  LPRINT "(-)     ",A,B2
  136. 1360  LPRINT "(+)     ",A1,B1
  137. 1370  LPRINT
  138. 1380  LPRINT "2 - SIGNAL, 5TH ORDER PRODUCT OF"A(B);"AND";A(C)
  139. 1390  LPRINT "(-)     ",C2,D2
  140. 1400  LPRINT "(+)     ",C1,D1
  141. 1410  LPRINT
  142. 1420  IF A(D) = 0 THEN RETURN
  143. 1430  LPRINT "3 - SIGNAL, 3RD ORDER PRODUCT OF";A(B);",";A(C);"AND";A(D)
  144. 1440  LPRINT "(-)     ",E,F,G
  145. 1450  LPRINT "(+)     ",E1,F1,G1
  146. 1460  LPRINT
  147. 1470  LPRINT "3 - SIGNAL, 5TH ORDER PRODUCT OF";A(B);",";A(C);"AND";A(D)
  148. 1480  LPRINT "(-)     "H;I1;J;K;L;M
  149. 1490  LPRINT "(+)     "H1;I2;J1;K1;L1;M1
  150. 1500  LPRINT:LPRINT:LPRINT:LPRINT
  151. 1510  RETURN
  152. 1520  IF P$ <> "Y" OR P$ >< "y" THEN GOTO 230
  153. 1530  PRINT:PRINT:PRINT "YOU HAVE A PRINTER ATTACHED"
  154. 1540  INPUT "   ENTER 'YES' FOR UNINTERRUPTED OPERATION";X$:GOTO 230
  155. 2000  CLS
  156. 2003  PRINT:PRINT:PRINT
  157. 2005  P$= "N"
  158. 2007  PRINT:PRINT:PRINT "DO YOU HAVE A PRINTER ATTACHED TO YOUR COMPUTER"
  159. 2008  PRINT
  160. 2010  INPUT "ENTER Y/N (Yes OR No) FOR A LISTING OF THE RESULTS";P$
  161. 2015  PRINT:PRINT:PRINT
  162. 2020  INPUT "INTERMOD RESULTS (REPEATER INPUT ?).....   ";F
  163. 2030  INPUT "LOCAL STRONG SIGNAL, (REPEATER OUTPUT ?)   ";A
  164. 2040  INPUT "SUSPECTED MIXING FREQUENCY..............   ";C
  165. 2050  PRINT:PRINT
  166. 2060  PRINT "FREQUENCIES THAT WILL MIX AND BRING UP THE REPEATER"
  167. 2070  PRINT
  168. 2080  PRINT "VIA 3RD ORDER INTERMOD MIXING              WHEN COMBINED WITH"
  169. 2090  PRINT
  170. 2100  B=(F-A)/2
  171. 2110  B1=(F+A)/2
  172. 2120  B2=F-2*A
  173. 2130  B3=F+2*A
  174. 2140  B4=F-A-C
  175. 2150  B5=A+C-F
  176. 2160  B6=A-F-C
  177. 2170  B7=F+C-A
  178. 2180  B8=F+A-C
  179. 2190  B9=(F-C)/2
  180. 2200  B10=(C-F)/2
  181. 2210  B11=F+2*C
  182. 2220  B12=2*C-F
  183. 2230  B13=F+A+C
  184. 2240  B14=C-A-F
  185. 2250  REM ** 5TH ORDER FORMULA **
  186. 2260  B15=(F-A)/4
  187. 2270  B16=(F+A)/4
  188. 2280  B17=(F-2*A)/3
  189. 2290  B18=(F+2*A)/3
  190. 2300  B19=(F-3*A)/2
  191. 2310  B20=(F+3*A)/2
  192. 2320  B21=F-4*A
  193. 2330  B22=F+4*A
  194. 2340  B23=(F-C)/4
  195. 2350  B24=(F+C)/4
  196. 2355  B25=(F-2*C)/3
  197. 2360  B26=(F+2*C)/3
  198. 2370  B27=(F-3*C)/2
  199. 2380  B28=(F+3*C)/2
  200. 2390  B29=F-4*C
  201. 2400  B30=F+4*C
  202. 2410  B31=(A-F)/4
  203. 2420  B32=4*A-F
  204. 2430  B33=(3*A-F)/2
  205. 2440  B34=(C-F)/4
  206. 2450  B35=(4*C-F)
  207. 2460  B36=(3*C-F)/2
  208. 2470  B37=(2*C-F)/3
  209. 2480  B38=(F+A+2*C)/2
  210. 2490  B39=(F-A+2*C)/2
  211. 2500  B40=(F+A-2*C)/2
  212. 2510  B41=(F-A-2*C)/2
  213. 2520  B42=(A+2*C-F)/2
  214. 2530  B43=(2*C-A-F)/2
  215. 2540  B44=(A-F-2*C)/2
  216. 2550  B45=(F+2*A+2*C)
  217. 2560  B46=(F-2*A+2*C)
  218. 2570  B47=(F+2*A-2*C)
  219. 2580  B48=(F-2*A-2*C)
  220. 2600  B49=(2*A+2*C-F)
  221. 2610  B50=(2*C-2*A-F)
  222. 2620  B51=(2*A-2*C-F)
  223. 2630  B52=(F+2*A+C)/2
  224. 2640  B53=(F-2*A+C)/2
  225. 2650  B54=(F+2*A-C)/2
  226. 2660  B55=(F-2*A-C)/2
  227. 2670  B56=(2*A+C-F)/2
  228. 2680  B57=(C-2*A-F)/2
  229. 2690  B58=(2*A-C-F)/2
  230. 2700  B59=(F+A+3*C)
  231. 2710  B60=(F-A+3*C)
  232. 2720  B61=(F+A-3*C)
  233. 2730  B62=(F-A-3*C)
  234. 2740  B63=(A+3*C-F)
  235. 2750  B64=(3*C-A-F)
  236. 2760  B65=(A-3*C-F)
  237. 2770  B66=(F+A+C)/3
  238. 2780  B67=(F-A+C)/3
  239. 2790  B68=(F+A-C)/3
  240. 2800  B69=(F-A-C)/3
  241. 2810  B70=(A+C-F)/3
  242. 2820  B71=(C-A-F)/3
  243. 2830  B72=(A-C-F)/3
  244. 2840  B73=(F+3*A+C)
  245. 2850  B74=(F-3*A+C)
  246. 2860  B75=(F+3*A-C)
  247. 2870  B76=(F-3*A-C)
  248. 2880  B77=(3*A+C-F)
  249. 2890  B78=(C-3*A-F)
  250. 2900  B79=(3*A-C-F)
  251. 2910  IF P$ = "Y" OR P$ = "y" GOTO 9000
  252. 3000  IF B<0 GOTO 3020
  253. 3010  PRINT "          ";B;,,;A
  254. 3020  IF B1<0 GOTO 3040
  255. 3030  PRINT "          ";B1;,,;A
  256. 3040  IF B2<0 GOTO 3060
  257. 3050  PRINT "          ";B2;,,;A
  258. 3060  IF B3<0 GOTO 3080
  259. 3070  PRINT "          ";B3;,,;A
  260. 3080  IF B4<0 GOTO 3100
  261. 3090  PRINT "          ";B4;,,;A;" & ";C
  262. 3100  IF B5<0 GOTO 3120
  263. 3110  PRINT "          ";B5;,,;A;" & ";C
  264. 3120  IF B6<0 GOTO 3140
  265. 3130  PRINT "          ";B6;,,;A;" & ";C
  266. 3140  IF B7<0 GOTO 3160
  267. 3150  PRINT "          ";B7;,,;C;" & ";A
  268. 3160  IF B8<0 GOTO 3180
  269. 3170  PRINT "          ";B8;,,;A;" & ";C
  270. 3180  IF B9<0 GOTO 3200
  271. 3190  PRINT "          ";B9;,,;C
  272. 3200  IF B10<0 GOTO 3220
  273. 3210  PRINT "          ";B10;,,;C
  274. 3220  IF B11<0 GOTO 3240
  275. 3230  PRINT "          ";B11;,,;C
  276. 3240  IF B12<0 GOTO 3260
  277. 3250  PRINT "          ";B12;,,;C
  278. 3260  IF B13<0 GOTO 3280
  279. 3270  PRINT "          ";B13;,,;A;" & ";C
  280. 3280  IF B14<0 GOTO 3300
  281. 3290  PRINT "          ";B14;,,;C;" & ";A
  282. 3300  PRINT
  283. 4000  INPUT "HIT ENTER TO CONTINUE FOR 5TH ORDER RESULTS";XX$
  284. 4010  CLS
  285. 4020  PRINT "FREQUENCIES THAT WILL MIX AND BRING UP REPEATER"
  286. 4030  PRINT
  287. 4040  PRINT "VIA 5TH ORDER INTERMOD MIXING              WHEN COMBINED WITH"
  288. 4050  PRINT
  289. 4060  IF B15<0 THEN GOTO 4080
  290. 4070  PRINT "          ";B15;,,;A
  291. 4080  IF B16<0 THEN GOTO 4100
  292. 4090  PRINT "          ";B16;,,;A
  293. 4100  IF B17<0 THEN GOTO 4120
  294. 4110  PRINT "          ";B17;,,;A
  295. 4120  IF B18<0 THEN GOTO 4140
  296. 4130  PRINT "          ";B18;,,;A
  297. 4140  IF B19<0 THEN GOTO 4160
  298. 4150  PRINT "          ";B19;,,;A
  299. 4160  IF B20<0 THEN GOTO 4180
  300. 4170  PRINT "          ";B20;,,;A
  301. 4180  IF B21<0 THEN GOTO 4200
  302. 4190  PRINT "          ";B21;,,;A
  303. 4200  IF B22<0 THEN GOTO 4220
  304. 4210  PRINT "          ";B22;,,;A
  305. 4220  IF B23<0 THEN GOTO 4240
  306. 4230  PRINT "          ";B23;,,;C
  307. 4240  IF B24<0 THEN GOTO 4260
  308. 4250  PRINT "          ";B24;,,;C
  309. 4260  IF B25<0 THEN GOTO 4280
  310. 4270  PRINT "          ";B25;,,;C
  311. 4280  IF B26<0 THEN GOTO 4300
  312. 4290  PRINT "          ";B26;,,;C
  313. 4300  IF B27<0 THEN GOTO 4320
  314. 4310  PRINT "          ";B27;,,;C
  315. 4320  IF B28<0 THEN GOTO 4340
  316. 4330  PRINT "          ";B28;,,;C
  317. 4340  IF B29<0 THEN GOTO 4360
  318. 4350  PRINT "          ";B29;,,;C
  319. 4360  IF B30<0 THEN GOTO 4380
  320. 4370  PRINT "          ";B30;,,;C
  321. 4380  IF B31<0 THEN GOTO 4400
  322. 4390  PRINT "          ";B31;,,;A
  323. 4400  IF B32<0 THEN GOTO 4420
  324. 4410  PRINT "          ";B32;,,;A
  325. 4420  IF B33<0 THEN GOTO 4440
  326. 4430  PRINT "          ";B33;,,;A
  327. 4440  IF B34<0 THEN GOTO 4460
  328. 4450  PRINT "          ";B34;,,;C
  329. 4460  IF B35<0 THEN GOTO 4480
  330. 4470  PRINT "          ";B35;,,;C
  331. 4480  IF B36<0 THEN GOTO 4492
  332. 4490  PRINT "          ";B36;,,;C
  333. 4492  PRINT:INPUT "HIT ENTER TO CONTINUE TO NEXT PAGE OF 5TH ORDER RESULTS";XZ
  334. 4493  CLS:PRINT:PRINT:PRINT
  335. 4494  PRINT "MORE FREQUENCIES THAT WILL MIX AND BRING UP REPEATER"
  336. 4495  PRINT:PRINT "  VIA 5TH ORDER INTERMOD MIXING           WHEN COMBINED WITH"
  337. 4496  PRINT
  338. 4500  IF B37<0 THEN GOTO 4520
  339. 4510  PRINT "          ";B37;,,;C
  340. 4520  IF B38<0 THEN GOTO 4540
  341. 4530  PRINT "          ";B38;,,;A;"  &  ";C
  342. 4540  IF B39<0 THEN GOTO 4560
  343. 4550  PRINT "          ";B39;,,;A;"  &  ";C
  344. 4560  IF B40<0 THEN GOTO 4580
  345. 4570  PRINT "          ";B40;,,;A;"  &  ";C
  346. 4580  IF B41<0 THEN GOTO 4600
  347. 4590  PRINT "          ";B41;,,;A;"  &  ";C
  348. 4600  IF B42<0 THEN GOTO 4620
  349. 4610  PRINT "          ";B42;,,;A;"  &  ";C
  350. 4620  IF B43<0 THEN GOTO 4640
  351. 4630  PRINT "          ";B43;,,;A;"  &  ";C
  352. 4640  IF B44<0 THEN GOTO 4660
  353. 4650  PRINT "          ";B44;,,;A;"  &  ";C
  354. 4660  IF B45<0 THEN GOTO 4680
  355. 4670  PRINT "          ";B45;,,;A;"  &  ";C
  356. 4680  IF B46<0 THEN GOTO 4700
  357. 4690  PRINT "          ";B46;,,;A;"  &  ";C
  358. 4700  IF B47<0 THEN GOTO 4720
  359. 4710  PRINT "          ";B47;,,;A;"  &  ";C
  360. 4720  IF B48<0 THEN GOTO 4740
  361. 4730  PRINT "          ";B48;,,;A;"  &  ";C
  362. 4740  IF B49<0 THEN GOTO 4760
  363. 4750  PRINT "          ";B49;,,;A;"  &  ";C
  364. 4760  IF B50<0 THEN GOTO 4780
  365. 4770  PRINT "          ";B50;,,;A;"  &  ";C
  366. 4780  IF B51<0 THEN GOTO 4800
  367. 4790  PRINT "          ";B51;,,;A;"  &  ";C
  368. 4800  IF B52<0 THEN GOTO 4820
  369. 4810  PRINT "          ";B52;,,;A;"  &  ";C
  370. 4820  IF B53<0 THEN GOTO 4840
  371. 4830  PRINT "          ";B53;,,;A;"  &  ";C
  372. 4840  IF B54<0 THEN GOTO 4860
  373. 4850  PRINT "          ";B54;,,;A;"  &  ";C
  374. 4860  IF B55<0 THEN GOTO 4880
  375. 4870  PRINT "          ";B55;,,;A;"  &  ";C
  376. 4880  IF B56<0 THEN GOTO 4900
  377. 4890  PRINT "          ";B56;,,;A;"  &  ";C
  378. 4900  IF B57<0 THEN GOTO 4912
  379. 4910  PRINT "          ";B57;,,;A;"  &  ";C
  380. 4912  PRINT:INPUT "HIT ENTER TO CONTINUE TO NEXT PAGE OF 5TH ORDER RESULTS";XW
  381. 4913  CLS:PRINT:PRINT:PRINT
  382. 4914  PRINT "MORE FREQUENCIES THAT WILL MIX AND BRING UP REPEATER"
  383. 4915  PRINT:PRINT "  VIA 5TH ORDER INTERMOD MIXING           WHEN COMBINED WITH"
  384. 4916  PRINT
  385. 4920  IF B58<0 THEN GOTO 4940
  386. 4930  PRINT "          ";B58;,,;A;"  &  ";C
  387. 4940  IF B59<0 THEN GOTO 4960
  388. 4950  PRINT "          ";B59;,,;A;"  &  ";C
  389. 4960  IF B60<0 THEN GOTO 4980
  390. 4970  PRINT "          ";B60;,,;A;"  &  ";C
  391. 4980  IF B61<0 THEN GOTO 5000
  392. 4990  PRINT "          ";B61;,,;A;"  &  ";C
  393. 5000  IF B62<0 THEN GOTO 5020
  394. 5010  PRINT "          ";B62;,,;A;"  &  ";C
  395. 5020  IF B63<0 THEN GOTO 5040
  396. 5030  PRINT "          ";B63;,,;A;"  &  ";C
  397. 5040  IF B64<0 THEN GOTO 5060
  398. 5050  PRINT "          ";B64;,,;A;"  &  ";C
  399. 5060  IF B65<0 THEN GOTO 5080
  400. 5070  PRINT "          ";B65;,,;A;"  &  ";C
  401. 5080  IF B66<0 THEN GOTO 5100
  402. 5090  PRINT "          ";B66;,,;A;"  &  ";C  
  403. 5100  IF B67<0 THEN GOTO 5120
  404. 5110  PRINT "          ";B67;,,;A;"  &  ";C
  405. 5120  IF B68<0 THEN GOTO 5140
  406. 5130  PRINT "          ";B68;,,;A;"  &  ";C
  407. 5140  IF B69<0 THEN GOTO 5160
  408. 5150  PRINT "          ";B69;,,;A;"  &  ";C
  409. 5160  IF B70<0 THEN GOTO 5180
  410. 5170  PRINT "          ";B70;,,;A;"  &  ";C
  411. 5180  IF B71<0 THEN GOTO 5200
  412. 5190  PRINT "          ";B71;,,;A;"  &  ";C
  413. 5200  IF B72<0 THEN GOTO 5220
  414. 5210  PRINT "          ";B72;,,;A;"  &  ";C
  415. 5220  IF B73<0 THEN GOTO 5240
  416. 5230  PRINT "          ";B73;,,;A;"  &  ";C
  417. 5240  IF B74<0 THEN GOTO 5260
  418. 5250  PRINT "          ";B74;,,;A;"  &  ";C
  419. 5260  IF B75<0 THEN GOTO 5280
  420. 5270  PRINT "          ";B75;,,;A;"  &  ";C
  421. 5280  IF B76<0 THEN GOTO 5300
  422. 5290  PRINT "          ";B76;,,;A;"  &  ";C
  423. 5300  IF B77<0 THEN GOTO 5320
  424. 5310  PRINT "          ";B77;,,;A;"  &  ";C
  425. 5320  IF B78<0 THEN GOTO 5340
  426. 5330  PRINT "          ";B78;,,;A;"  &  ";C
  427. 5340  IF B79<0 THEN GOTO 5360
  428. 5350  PRINT "          ";B79;,,;A;"  &  ";C
  429. 5360  PRINT
  430. 8000  INPUT "DO YOU WANT ANOTHER RUN ? (Y/N) ";A9$
  431. 8010  IF A9$ = "Y" OR A9$ = "y" THEN GOTO 8030
  432. 8020  IF A9$ = "N" OR A9$ = "n" THEN GOTO 10
  433. 8030  CLS
  434. 8040  PRINT "INTER MOD. RESULTS (REPEATER INPUT ?)..  ";F
  435. 8050  INPUT "                                        ";F1
  436. 8060  IF F1 = 0 GOTO 8080
  437. 8070  F = F1
  438. 8080  PRINT "LOCAL STRONG SIGNAL, (REPEATER OUTPUT?)  ";A
  439. 8090  INPUT "                                        ";A1
  440. 8100  IF A1 = 0 GOTO 8120
  441. 8110  A = A1
  442. 8120  PRINT "SUSPECTED MIXING FREQUENCY.............  ";C
  443. 8130  INPUT "                                       ";C1
  444. 8140  IF C1 = 0 GOTO 8160
  445. 8150  C = C1
  446. 8160  GOTO 2050
  447. 9000  LPRINT "INTERMOD RESULTS (REPEATER INPUT ?)...   ";F
  448. 9010  LPRINT "LOCAL STRONG SIGNAL, (REPEATER OUTPUT ?)   ";A
  449. 9020  LPRINT "SUSPECTED MIXING FREQUENCY..............   ";C
  450. 9030  LPRINT:LPRINT
  451. 9032  LPRINT "FREQUENCIES THAT WILL MIX AND BRING UP THE REPEATER"
  452. 9034  LPRINT
  453. 9036  LPRINT "VIA 3RD ORDER INTERMOD MIXING              WHEN COMBINED WITH"
  454. 9038  LPRINT
  455. 9040  IF B<0 GOTO 9060
  456. 9050  LPRINT "          ";B;,,;A
  457. 9060  IF B1<0 GOTO 9080
  458. 9070  LPRINT "          ";B1;,,;A
  459. 9080  IF B2<0 GOTO 9100
  460. 9090  LPRINT "          ";B2;,,;A
  461. 9100  IF B3<0 GOTO 9120
  462. 9110  LPRINT "          ";B3;,,;A
  463. 9120  IF B4<0 GOTO 9140
  464. 9130  LPRINT "          ";B4;,,;A;" & ";C
  465. 9140  IF B5<0 GOTO 9160
  466. 9150  LPRINT "          ";B5;,,;A;" & ";C
  467. 9160  IF B6<0 GOTO 9180
  468. 9170  LPRINT "          ";B6;,,;A;" & ";C
  469. 9180  IF B7<0 GOTO 9200
  470. 9190  LPRINT "          ";B7;,,;C;" & ";A
  471. 9200  IF B8<0 GOTO 9220
  472. 9210  LPRINT "          ";B8;,,;A;" & ";C
  473. 9220  IF B9<0 GOTO 9240
  474. 9230  LPRINT "          ";B9;,,;C
  475. 9240  IF B10<0 GOTO 9260
  476. 9250  LPRINT "          ";B10;,,;C
  477. 9260  IF B11<0 GOTO 9280
  478. 9270  LPRINT "          ";B11;,,;C
  479. 9280  IF B12<0 GOTO 9300
  480. 9290  LPRINT "          ";B12;,,;C
  481. 9300  IF B13<0 GOTO 9320
  482. 9310  LPRINT "          ";B13;,,;A;" & ";C
  483. 9320  IF B14<0 GOTO 9340
  484. 9330  LPRINT "          ";B14;,,;C;" & ";A
  485. 9340  LPRINT
  486. 9350  LPRINT "FREQUENCIES THAT WILL MIX AND BRING UP REPEATER"
  487. 9360  LPRINT
  488. 9370  LPRINT "VIA 5TH ORDER INTERMOD MIXING              WHEN COMBINED WITH"
  489. 9380  LPRINT
  490. 9390  IF B15<0 THEN GOTO 9410
  491. 9400  LPRINT "          ";B15;,,;A
  492. 9410  IF B16<0 THEN GOTO 9430
  493. 9420  LPRINT "          ";B16;,,;A
  494. 9430  IF B17<0 THEN GOTO 9450
  495. 9440  LPRINT "          ";B17;,,;A
  496. 9450  IF B18<0 THEN GOTO 9470
  497. 9460  LPRINT "          ";B18;,,;A
  498. 9470  IF B19<0 THEN GOTO 9490
  499. 9480  LPRINT "          ";B19;,,;A
  500. 9490  IF B20<0 THEN GOTO 9510
  501. 9500  LPRINT "          ";B20;,,;A
  502. 9510  IF B21<0 THEN GOTO 9530
  503. 9520  LPRINT "          ";B21;,,;A
  504. 9530  IF B22<0 THEN GOTO 9550
  505. 9540  LPRINT "          ";B22;,,;A
  506. 9550  IF B23<0 THEN GOTO 9570
  507. 9560  LPRINT "          ";B23;,,;C
  508. 9570  IF B24<0 THEN GOTO 9590
  509. 9580  LPRINT "          ";B24;,,;C
  510. 9590  IF B25<0 THEN GOTO 9610
  511. 9600  LPRINT "          ";B25;,,;C
  512. 9610  IF B26<0 THEN GOTO 9630
  513. 9620  LPRINT "          ";B26;,,;C
  514. 9630  IF B27<0 THEN GOTO 9650
  515. 9640  LPRINT "          ";B27;,,;C
  516. 9650  IF B28<0 THEN GOTO 9670
  517. 9660  LPRINT "          ";B28;,,;C
  518. 9670  IF B29<0 THEN GOTO 9690
  519. 9680  LPRINT "          ";B29;,,;C
  520. 9690  IF B30<0 THEN GOTO 9710
  521. 9700  LPRINT "          ";B30;,,;C
  522. 9710  IF B31<0 THEN GOTO 9730
  523. 9720  LPRINT "          ";B31;,,;A
  524. 9730  IF B32<0 THEN GOTO 9750
  525. 9740  LPRINT "          ";B32;,,;A
  526. 9750  IF B33<0 THEN GOTO 9790
  527. 9760  LPRINT "          ";B33;,,;A
  528. 9770  IF B34<0 THEN GOTO 9790
  529. 9780  LPRINT "          ";B34;,,;C
  530. 9790  IF B35<0 THEN GOTO 9810
  531. 9800  LPRINT "          ";B35;,,;C
  532. 9810  IF B36<0 THEN GOTO 9830
  533. 9820  LPRINT "          ";B36;,,;C
  534. 9830  IF B37<0 THEN GOTO 9850
  535. 9840  LPRINT "          ";B37;,,;C
  536. 9850  IF B38<0 THEN GOTO 9870
  537. 9860  LPRINT "          ";B38;,,;A;"  &  ";C
  538. 9870  IF B39<0 THEN GOTO 9890
  539. 9880  LPRINT "          ";B39;,,;A;"  &  ";C
  540. 9890  IF B40<0 THEN GOTO 9910
  541. 9900  LPRINT "          ";B40;,,;A;"  &  ";C
  542. 9910  IF B41<0 THEN GOTO 9930
  543. 9920  LPRINT "          ";B41;,,;A;"  &  ";C
  544. 9930  IF B42<0 THEN GOTO 9950
  545. 9940  LPRINT "          ";B42;,,;A;"  &  ";C
  546. 9950  IF B43<0 THEN GOTO 9970
  547. 9960  LPRINT "          ";B43;,,;A;"  &  ";C
  548. 9970  IF B44<0 THEN GOTO 9990
  549. 9980  LPRINT "          ";B44;,,;A;"  &  ";C
  550. 9990  IF B45<0 THEN GOTO 10010
  551. 10000  LPRINT "          ";B45;,,;A;"  &  ";C
  552. 10010  IF B46<0 THEN GOTO 10030
  553. 10020  LPRINT "          ";B46;,,;A;"  &  ";C
  554. 10030  IF B47<0 THEN GOTO 10050
  555. 10040  LPRINT "          ";B47;,,;A;"  &  ";C
  556. 10050  IF B48<0 THEN GOTO 10070
  557. 10060  LPRINT "          ";B48;,,;A;"  &  ";C
  558. 10070  IF B49<0 THEN GOTO 10090
  559. 10080  LPRINT "          ";B49;,,;A;"  &  ";C
  560. 10090  IF B50<0 THEN GOTO 10110
  561. 10100  LPRINT "          ";B50;,,;A;"  &  ";C
  562. 10110  IF B51<0 THEN GOTO 10130
  563. 10120  LPRINT "          ";B51;,,;A;"  &  ";C
  564. 10130  IF B52<0 THEN GOTO 10150
  565. 10140  LPRINT "          ";B52;,,;A;"  &  ";C
  566. 10150  IF B53<0 THEN GOTO 10170
  567. 10160  LPRINT "          ";B53;,,;A;"  &  ";C
  568. 10170  IF B54<0 THEN GOTO 10190
  569. 10180  LPRINT "          ";B54;,,;A;"  &  ";C
  570. 10190  IF B55<0 THEN GOTO 10210
  571. 10200  LPRINT "          ";B55;,,;A;"  &  ";C
  572. 10210  IF B56<0 THEN GOTO 10230
  573. 10220  LPRINT "          ";B56;,,;A;"  &  ";C
  574. 10230  IF B57<0 THEN GOTO 10250
  575. 10240  LPRINT "          ";B57;,,;A;"  &  ";C
  576. 10250  IF B58<0 THEN GOTO 10270
  577. 10260  LPRINT "          ";B58;,,;A;"  &  ";C
  578. 10270  IF B59<0 THEN GOTO 10290
  579. 10280  LPRINT "          ";B59;,,;A;"  &  ";C
  580. 10290  IF B60<0 THEN GOTO 10310
  581. 10300  LPRINT "          ";B60;,,;A;"  &  ";C
  582. 10310  IF B61<0 THEN GOTO 10330
  583. 10320  LPRINT "          ";B61;,,;A;"  &  ";C
  584. 10330  IF B62<0 THEN GOTO 10350
  585. 10340  LPRINT "          ";B62;,,;A;"  &  ";C
  586. 10350  IF B63<0 THEN GOTO 10370
  587. 10360  LPRINT "          ";B63;,,;A;"  &  ";C
  588. 10370  IF B64<0 THEN GOTO 10390
  589. 10380  LPRINT "          ";B64;,,;A;"  &  ";C
  590. 10390  IF B65<0 THEN GOTO 10410
  591. 10400  LPRINT "          ";B65;,,;A;"  &  ";C
  592. 10410  IF B66<0 THEN GOTO 10430
  593. 10420  LPRINT "          ";B66;,,;A;"  &  ";C  
  594. 10430  IF B67<0 THEN GOTO 10450
  595. 10440  LPRINT "          ";B67;,,;A;"  &  ";C
  596. 10450  IF B68<0 THEN GOTO 10470
  597. 10460  LPRINT "          ";B68;,,;A;"  &  ";C
  598. 10470  IF B69<0 THEN GOTO 10490
  599. 10480  LPRINT "          ";B69;,,;A;"  &  ";C
  600. 10490  IF B70<0 THEN GOTO 10510
  601. 10500  LPRINT "          ";B70;,,;A;"  &  ";C
  602. 10510  IF B71<0 THEN GOTO 10530
  603. 10520  LPRINT "          ";B71;,,;A;"  &  ";C
  604. 10530  IF B72<0 THEN GOTO 10550
  605. 10540  LPRINT "          ";B72;,,;A;"  &  ";C
  606. 10550  IF B73<0 THEN GOTO 10570
  607. 10560  LPRINT "          ";B73;,,;A;"  &  ";C
  608. 10570  IF B74<0 THEN GOTO 10590
  609. 10580  LPRINT "          ";B74;,,;A;"  &  ";C
  610. 10590  IF B75<0 THEN GOTO 10610
  611. 10600  LPRINT "          ";B75;,,;A;"  &  ";C
  612. 10610  IF B76<0 THEN GOTO 10630
  613. 10620  LPRINT "          ";B76;,,;A;"  &  ";C
  614. 10630  IF B77<0 THEN GOTO 10650
  615. 10640  LPRINT "          ";B77;,,;A;"  &  ";C
  616. 10650  IF B78<0 THEN GOTO 10670
  617. 10660  LPRINT "          ";B78;,,;A;"  &  ";C
  618. 10670  IF B79<0 THEN GOTO 10690
  619. 10680  LPRINT "          ";B79;,,;A;"  &  ";C
  620. 10690  LPRINT CHR$(12)
  621. 10700  CLS
  622. 10710  GOTO 8000
  623. 10720  END
  624.