10 DATA 1,140,7,200,300.1,3,200 500 PRINT "UNITS? (GHZ,MHZ,KHZ)"; 504 INPUT U$ 508 PRINT 510 READ X 512 PRINT "NUMBER OF MIXERS =";X 514 READ S1,J1,F3,F4,K1,I1 516 PRINT "S1=";S1,"J1=";J1,"F3=";F3,"F4=";F4 518 PRINT "K1=";K1,"I1=";I1 520 T=0 522 U=8 524 IF X=1 THEN 554 526 READ F5,K2,I2 528 PRINT "F5=";F5,"K2=";K2,"I2=";I2 530 U=U+1 532 IF X=2 THEN 538 534 READ F7,F8,K3,I3 536 PRINT "F7=";F7,"F8=";F8,"K3=";K3,"I3=";I3 538 PRINT 540 PRINT " RESIDUAL SPURIOUS RESPONSES" 542 PRINT 544 PRINT " "," FIRST MIXER" 546 PRINT 548 U=U+6 550 GOSUB 868 552 GOSUB 898 554 Q=0 556 P=1 558 F=0 560 M1=K1 562 I=I1 564 B1=F3 566 B2=F4 568 L1=(F3+F4)/2 570 L=L1 574 N1=J1 576 S=S1 578 PRINT 580 U=U+1 582 GOSUB 910 584 GOSUB 710 586 GOSUB 758 588 STOP 590 N1=K2 592 L2=F5 594 S=L2 596 GOSUB 710 598 GOSUB 758 600 IF X=2 THEN 616 604 GOSUB 898 606 L3=(F7+F8)/2 608 S=L3 610 N1=K3 612 GOSUB 710 614 GOSUB 758 616 PRINT " "," SECOND MIXER" 618 GOSUB 810 620 PRINT 622 GOSUB 810 624 GOSUB 868 626 GOSUB 898 628 L=L1 630 I=I2 632 S=L2 634 N1=K2 636 GOSUB 710 638 GOSUB 758 640 IF X=2 THEN 708 642 GOSUB 888 644 GOSUB 898 646 L=L3 648 M1=K3 650 B1=F7 652 B2=F8 654 GOSUB 710 656 GOSUB 758 658 PRINT " "," THIRD MIXER" 660 GOSUB 810 662 PRINT 664 GOSUB 810 666 GOSUB 878 668 GOSUB 898 670 L=L1 672 M1=K1 674 S=L3 676 N1=K3 678 I=I3 680 B1=F3 682 B2=F4 684 GOSUB 710 686 GOSUB 758 688 GOSUB 888 690 GOSUB 898 692 L=L3 694 M1=K3 696 S=L2 698 N1=K2 700 B1=F7 702 B2=F8 704 GOSUB 710 706 GOSUB 758 708 STOP 710 IF L>S THEN 742 712 IF I>S THEN 728 714 J=1 716 K=1 718 A1=B1+I 720 A2=B2+I 722 P=-1 724 B=1 726 GOTO 756 728 J=1 730 K=-1 732 A1=I-B2 734 A2=I-B1 736 P=1 738 B=-1 740 GOTO 756 742 IF I>L THEN 728 744 J=-1 746 K=-1 748 A1=B1-I 750 A2=B2-I 752 P=1 754 B=1 756 RETURN 758 PRINT 760 GOSUB 810 762 FOR M=1 TO M1 764 FOR N=1 TO N1 766 R=(N/M)*S+J*((M+K)/M)*I 768 IF R>A2 THEN 784 770 IF R0 THEN 842 838 GOSUB 910 840 GOTO 862 842 IF A>1 THEN 850 844 GOSUB 868 846 GOSUB 898 848 GOTO 862 850 IF A>2 THEN 858 852 GOSUB 878 854 GOSUB 898 856 GOTO 862 858 GOSUB 888 860 GOSUB 898 862 PRINT 864 U=U+1 866 RETURN 868 PRINT "1ST 2ND","1ST LO","2ND LO","SPUR" 870 A=1 872 F=1 876 RETURN 878 PRINT "1ST 3RD","1ST LO","3RD LO","SPUR" 880 A=2 882 U=U+1 884 F=1 886 RETURN 888 PRINT "3RD 2ND","3RD LO","2ND LO","SPUR" 890 A=3 892 U=U+1 894 F=1 896 RETURN 898 PRINT " LO LO",U$,U$,U$ 900 U=U+1 902 RETURN 904 PRINT "*****NO SPURIOUS RESPONSES" 906 GOSUB 810 908 RETURN 910 PRINT " LO SIG","LO ";U$,"SIG ";U$,"SPUR ";U$ 912 A=0 914 U=U+1 916 RETURN 918 END