500  PRINT "UNITS? (GHZ,MHZ,KHZ)";
502  DIM U$[3]
504  INPUT U$
506  PRINT 
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
572  IF X>1 THEN 590
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
602  GOSUB 878
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 R<A1 THEN 784
772  H1=M*(B*R+P*I)
774  H2=N*S
776  R=R-A1
778  PRINT M;N,H1,H2,R
780  GOSUB 810
782  Q=1
784  IF T=1 THEN 792
786  R=(N/M)*S+J*((M-K)/M)*I
788  T=1
790  GOTO 768
792  T=0
794  NEXT N
796  NEXT M
798  IF Q=1 THEN 802
800  GOSUB 904
802  Q=0
804  PRINT 
806  GOSUB 810
808  RETURN 
810  U=U+1
812  IF U<60 THEN 866
814  IF F<1 THEN 818
816  F=0
818  W1=65-U
820  FOR W=1 TO W1
822  PRINT 
824  NEXT W
826  PRINT "- - - - - - - - - - - - - - - - - - - - - - - - - - - -"
828  FOR W=1 TO 5
830  PRINT 
832  NEXT W
834  U=5
836  IF A>0 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  U=U+1
874  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 
