10 REM "KNOE, DF9RY KOHLBERG DEN 24.06.79" 20 FORV=1TO30:PRINT:NEXTV 30 PRINT :PRINT:PRINT 40 PRINT"PARABOLSPIEGELGEWINN" 50 PRINT 60 PRINT "EINGABE WIRKUNGSGRAD"; 70 INPUT W 75 W=W/100 80 PRINT CHR$(12) 90 PRINT "WAAGERECHT: DURCHMESSER" 100 PRINT "SENKRECHT: FREQUENZ (MHZ)" 110 PRINT " 0.5M 1M 2M 3M 5M 10M 15M 20M 25M" 111 PRINT 115 READ X 119 FOR C=1TO37 120 L=(300/X) 121 Z=0.5:GOSUB1000:Y1=Y 122 Z=1:GOSUB1000:Y2=Y 123 Z=2:GOSUB1000:Y3=Y 124 Z=3:GOSUB1000:Y4=Y 125 Z=5:GOSUB1000:Y5=Y 126 Z=10:GOSUB1000:Y6=Y 127 Z=15:GOSUB1000:Y7=Y 128 Z=20:GOSUB1000:Y8=Y 129 Z=25:GOSUB1000:Y9=Y 200 PRINT X;TAB(7);Y1;TAB(12);Y2;TAB(17);Y3;TAB(22);Y4; 210 PRINT TAB(27);Y5;TAB(32);Y6;TAB(37);Y7;TAB(42);Y8;TAB(47);Y9 220 READ X 230 NEXT C 240 FOR L=1TO200:NEXTL 250 PRINT CHR$(12) 260 PRINT :PRINT:PRINT 270 PRINT "HABEN SIE NOCH EINEN SPEZIELLEN BERECHNUNGS-" 280 PRINT "WUNSCH" 290 INPUT A$ 300 IF A$="JA"THEN400 310 IF A$="J"THEN400 320 IF A$="NEIN"THEN5000 330 IF A$="N"THEN5000 340 PRINT "EINGABE NICHT ERLAUBT !":GOTO290 400 FORV=1TO30:PRINT:NEXTV 410 PRINT :PRINT:PRINT 420 PRINT "DURCHMESSER";:INPUTZ 430 PRINT "FREQUENZ ";:INPUTL 440 L=(300/L) 450 GOSUB 1000 460 PRINT "DER GEWINN EINES PARABOLSPIEGELS MIT EINEM " 470 PRINT"DURCHMESSER VON ";Z;" METER IST BEI ";((1/L)*300); 480 PRINT " MHZ ";Y;" DB":GOTO270 1000 REM 1010 Y=10*(LOG(W*(((3.1416*Z)/L)^2))) 1020 Y=INT(Y+.5) 1030 RETURN 2000 DATA 100,150,200,250,300,350,400,450,500,600,700,800,900 2010 DATA 1000,1200,1400,1600,1800,2000,2200,2400,2600,2800 2020 DATA 3000,3500,4000,4500,5000,5500,6000,6500,7000,8000 2030 DATA 9000,10000,15000,20000,25000 5000 END OK