10 ; CHR$(12)
15 REM L[MNAT AV AMAT\RRADIOSEKT. M.G.
20 ; "DATAPROG. F\R BER[KN. AV "
30 ; : ; 
40 ; "       L C RESONANSFREKVENS "
50 ; "       ======================"
60 ; : ; : ; " progr.lasse- 4FVD efter ide'"
70 ; " av lasse -4FT/790310 "
80 ; : ; : ; : ; 
90 ; 
100 LET P1=PI : LET M=1E+6 : LET U=.000001 : LET P=1E-12
110 ; : ; 
120 ; "OK[ND VARIABEL: F = frekvens"
130 ; "                L = induktans"
140 ; "                C = kapacitans"
150 INPUT A$ : ; : ; 
160 IF A$="F" THEN 200
170 IF A$="L" THEN 290
180 IF A$="C" THEN 380
190 GOTO 120
200 REM BER[KNING AV RESONANSFREKV.
210 GOSUB 500
220 GOSUB 530
230 LET W0=1/SQR(L0*C0)
240 LET F=W0/(2*P1*M)
250 ; " RESONANSFREKVENS  ";F;" MHZ"
260 ; " REAKTANS          ";W0*L0;" OHM"
270 ; " =============================="
280 ; : GOTO 110
290 REM BER[KNING AV INDUKTANS
300 GOSUB 470
310 GOSUB 530
320 LET L0=1/(W0^2%*C0)
330 LET L=L0/U
340 ; " INDUKTANS  ";L;"uH"
350 ; " REAKTANS   ";W0*L0;" OHM"
360 ; " ================================="
370 ; : GOTO 110
380 REM BER[KNING AV KAPACITANS
390 GOSUB 470
400 GOSUB 500
410 LET C0=1/(W0^2%*L0)
420 LET C=C0/P
430 ; " KAPACITANS  ";C;" pF"
440 ; "  REAKTANS   ";1/(W0*C0);" OHM"
450 ; " ==============================="
460 ; : GOTO 110
470 ; " RESONANSFREKVENS, MHZ";
480 INPUT F0 : LET W0=2*P1*F0*M
490 RETURN 
500 ; " INDUKTANS, uH ";
510 INPUT L0 : LET L0=L0*U
520 RETURN 
530 ; " KAPACITANS  pF ";
540 INPUT C0 : LET C0=C0*P
550 RETURN 
560 END