home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
World of Ham Radio 1997
/
WOHR97_AmSoft_(1997-02-01).iso
/
basic
/
imod2.bas
< prev
next >
Wrap
BASIC Source File
|
1997-02-01
|
3KB
|
84 lines
10 CLS
20 PRINT : PRINT : PRINT : PRINT : PRINT
30 PRINT "INTERMOD PROGRAM FOR UP TO REQUESTED NUMBER OF FREQUENCIES"
40 PRINT
50 PRINT " A MINIMUM OF 3 FREQUENCIES MUST BE ENTERED"
60 PRINT
70 INPUT " HOW MANY FREQUENCIES DO YOU WANT"; N
80 CLS
90 PRINT : PRINT : PRINT : PRINT
100 DIM A(100)
110 DIM B(100), C(100), D(100)
120 FOR I = 1 TO N
130 PRINT "FREQUENCY ", I, "";
140 INPUT A(I)
150 IF A(I) = 0 THEN 170
160 NEXT I
170 B = 1: C = 2: D = 3
180 FOR Z = 11 TO 200: NEXT Z
190 FOR S = 1 TO N
200 FOR I = 1 TO (N * N)
210 IF A(B) = A(C) OR A(C) = A(D) OR A(B) = A(D) GOTO 410
220 A = (2 * A(B)) - A(C): B2 = (2 * A(C)) - A(B)
230 C2 = (3 * A(B)) - (2 * A(C)): D2 = (3 * A(C)) - (2 * A(B))
240 E = A(B) + A(C) - A(D): F = A(C) + A(D) - A(B)
250 G = A(D) + A(B) - A(C): H = A(B) + (2 * A(C)) - (2 * A(D))
260 I1 = A(B) + (2 * A(D)) - (2 * A(C)): J = A(C) + (2 * A(B)) - (2 * A(D))
270 K = A(C) + (2 * A(D)) - (2 * A(B))
280 L = A(D) + (2 * A(B)) - (2 * A(C)): M = A(D) + (2 * A(C)) - (2 * A(B))
290 A1 = (2 * A(B)) + A(C): B1 = (2 * A(C)) + A(B)
300 C1 = (3 * A(B)) + (2 * A(C)): D1 = (3 * A(C)) + (2 * A(B))
310 E1 = A(B) + A(C) + A(D): F1 = A(C) + A(D) + A(B)
320 G1 = A(D) + A(B) + A(C): H1 = A(B) + (2 * A(D))
330 I2 = A(C) + (2 * A(D)) + (2 * A(C)): J1 = A(C) + (2 * A(B)) + (2 * A(D))
340 K1 = A(C) + (2 * A(D)) + (2 * A(B))
350 L1 = A(D) + (2 * A(B)) + (2 * A(C)): M1 = A(D) + (2 * A(C)) + (2 * A(B))
360 M = A(I + 2) + (2 * A(I + 1)) - (2 * A(I))
370 CLS
380 GOSUB 470
390 INPUT "PRESS 'ENTER' TO CONTINUE"; V$
400 IF V$ = "" GOTO 410
410 C = C + 1: D = D + 1
420 NEXT I
430 B = B + 1
440 C = 1: D = 2
450 NEXT S
460 GOTO 670
470 PRINT "2 - SIGNAL, 3RD ORDER PRODUCT OF"; A(B); "AND"; A(C)
480 PRINT "(-) ", A, B2
490 PRINT "(+) ", A1, B1
500 PRINT
510 PRINT "2 - SIGNAL, 5TH ORDER PRODUCT OF"; A(B); "AND"; A(C)
520 PRINT "(-) ", C2, D2
530 PRINT "(+) ", C1, D1
540 PRINT
550 IF A(D) = 0 THEN RETURN
560 PRINT "3 - SIGNAL, 3RD ORDER PRODUCT OF"; A(B); ","; A(C); "AND"; A(D)
570 PRINT "(-) ", E, F, G
580 PRINT "(+) ", E1, F1, G1
590 PRINT
600 PRINT "3 - SIGNAL, 5TH ORDER PRODUCT OF"; A(B); ","; A(C); "AND"; A(D)
610 PRINT "(-) "; H; I1; J; K; L; M
620 PRINT "(+) "; H1; I2; J1; K1; L1; M1
630 IF A(D) = 0 THEN 650
640 RETURN
650 INPUT "PRESS 'ENTER' TO CONTINUE"; T$
660 IF T$ = "" GOTO 670
670 CLS : PRINT : PRINT : PRINT : PRINT : PRINT
680 PRINT " COMPUTATIONS COMPLETE"
690 INPUT " DO YOU WANT ANOTHER RUN"; W$
700 IF W$ = "YES" THEN RUN
710 END
720 A1 = (2 * A(I)) + A(I + 1)
730 C1 = (3 * A(I)) + (2 * A(I + 1)): B1 = (2 * A(I + 1)) + A(I)
740 D1 = (3 * A(I + 1)) + (2 * A(1)): E1 = A(I) + A(I + 1) + A(I + 2)
750 F1 = A(I + 1) + A(I + 2) + A(I)
760 G1 = A(I + 2) + A(I) + A(I + 1): H1 = A(I) + (2 * A(I + 1)) + (2 * A(I + 2))
770 I2 = A(I + 1) + (2 * A(I + 2)) + (2 * A(I + 1))
780 J1 = A(I + 1) + (2 * A(I)) + (2 * A(I + 2))
790 K1 = A(I + 1) + (2 * A(I + 2)) + (2 * A(I))
800 L1 = A(I + 2) + (2 * A(I)) + (2 * A(I + 1))
810 M1 = A(I + 2) + (2 * A(I + 1)) + (2 * A(I))
820 RETURN