10 REM ******** ×ÀÑÒÎÒÎÌÅÐ/ÌÓËÜÒÈÌÅÒÐ ********** 
20 REM ************ ÄËß "ÐÀÄÈÎ-86ÐÊ" *********** 
30 REM *ASD* 08. 12. 87 
40 GOTO 2010
100 REM +++ ÏÎÄÏÐÎÃÐÀÌÌÀ ÎÒÑ×ÅÒÀ +++
110 A=USR(I0)
120 N=K1+PEEK(N2)*K2+PEEK(N1)*K3+PEEK(N1+1)*K4 
130 PRINT" ***************":E=0: RETURN 
200 REM +++ ÌÀÑØÒÀÁÈÐÎ0ÀÍÈÅ È ÏÅ×ÀÒÜ ÐÅÇÓËÜÒÀÒÀ ++++ 
210 IF ABS(X)<1E-9.THEN PRINT X*1E12;"Ï;U$:RETURN 
220 IF ABS(X)<.000001 THEN PRINT Õ*1Å9;"Í": U$: RETURN 
230 IF ABS(X)<.001 THEN PRINT X*1E6;"MKÔ":U$: RETURN 
240 IF ABS(X)<1 THEN PRINT X*1000;"M":U$:RETURN 
250 IF ABS(X)<1000 THEN PRINT X; U$: RETURN 
260 IF ABS(X)<1E6 THEN PRINT X*.001;"K":U$: RETURN 
270 PRINT X*.000001;"MÃ";U$:RETURN 
300 REM +++++ ÈÇÌÅÐÅÍÈÅ ÏÅÐÈÎÄÀ ÑÈÃÍÀËÀ +++ 
310 GOSUB 100: X=N*T0 
320 U$="Ñ": PRINT "ÏÅÐÈÎÄ " ;: GOTO 250 
400 REM +++++ ÈÇÌÅÐÅÍÈÅ ×ÀÑÒÎÒÛ ÑÈÃÍÀËÀ +++++ 
410 GOSUB 100:X=1/(N*T0) 
420 U$="ÃÖ ": PRINT"×ÀÑÒÎÒÀ ";: GOTO 250 
500 REM +++ ÈÇÌÅÐÅÍÈÅ ÑÎÏÐÎÒÈBËÅÍÈß +++++ 
510 IF NOT KR THEN GOSUB 900:GOTO 940 
520 GOSUB 100:X=R0*N/NR
530 U$=" OM " : PRINT " ÑÎÏÐÎÒÈ0ËÅÍÈÅ " ; : GOTO 250 
600 REM +++++ ÈÇÌÅÐÅÍÈÅ ÅÌÊÎÑÒÈ +++++ 
610 IF NOT ÊÑ THEN GOSUB 900: GOTO 940 
620 GOSUB 100: X=C0*N/NC 
630 U$= "ô": PRINT "ÅÌÊÎÑÒÜ ": GOTO 210 
700 REM +++++++ ÈÇÌÅÐÅÍÈÅ ÒÅÌÏÅÐÀÒÓÐÛ +++ 
710 GOSUB 100:X=(T1+273)/M*LOG(F1*N*T0)+T1 
720 U$="ÃÐÀÄ. ÖÅËÜÑÈß ": PRINT" ÒÅÌÏÅÐÀÒÓÐÀ " ;: GOTO 250 
800 REM +++ ÈÇÌÅÐÅÍÈÅ ÍÀÏÐßÆÅÍÈß +++ 
810 IF NOT KU OR NOT ZS THEN GOSUB 900 : GOTO 930 
820 GOSUB 100:X=(N-N0)*SU 
830 U$= "B": PRINT "ÍÀÏÐßÆÅÍÈÅ ";:GOTO 240 
900 PRINT 
910 ÐRIÒ"ÏÅÐÅÄ ÏÅÐÂÛÌ ÈÇÌÅÐÅÍÈÅÌ "Z$" ÍÅÎÁÕÎÄÈÌÀ ÊÀËÈÁÐÎ0ÊÀ";
920 RETURN
930 PRINT : PRINT "È ÓÑÒÀÍÎ0ÊÀ ÍÓËß"; 
940 PRINT".": RETURN 
1000 REM +++++ ÊÀËÈÁÐÎÂÊÀ +++++
1010 PRINT"     ÏÎÄÊËÞ×ÈÒÅ ÝÒÀËÎÍ Ê ÏÐÅÎÁÐÀÇÎ0ÀÒÅËÞ." 
1020 PRINT''BBEÄÈTE ÂÈÄ È ÒÎ×ÍÎÅ ÇÍÀ×ÅÍÈÅ ÝÒÀËÎÍÍÎÉ ÂÅËÈ×ÈÍÛ." 
1030 PRINT
1040 PRINT"     R - ÑÎÏÐÎÒÈ0ËÅÍÈÅ (ÊÎÌ)" 
1050 PRINT"     Ñ - ÅÌÊÎÑÒÜ (Íô)"
1060 PRINT"     U - ÍÀÏÐßÆÅÍÈÅ (Â)" 
1070 PRINT
1080 PRINT"ÏPÈMEP: U=8.952" 
1090 INPUT K$:L=LEN(K$):IF L<3 GOTO 1080 
1100 K=VAL(RIGHT$(K$,L-2)):K1$=LEFT$(K$,1) 
1110 IF K=0 THEN PRINT"HYËEBOE ÇÍÀ×ÅÍÈÅ ÍÅÄÎÏÓÑÒÈÌÎ" :GOTO 1090 
1120 IF K1$="R" THEN R0=K*1000:GOSUB 100:NR=N:KR=-1:RETURN 
1130 IF Ê1$="Ñ" THEN C0=K*1E-9:GOSUB 100:NC=N:KC=-1:RETURN 
1140 IF K1$="U" THEN PRINT"KAËÈÁPOBKA ":Ê1$;" ?":RETURN 
1150 GOSUB 100:NX=N:GOSUB 1210 
1160 SU=K/(NX-N0):KU=-1:RETURN 
1200 REM +++ ÓÑÒÀÍÎ0ÊÀ ÍÓËß ÂÎËÜÒÌÅÒÐÀ +++ 
1210 PRINT:PRINT"     ÇÀÌÊÍÈÒÅ ÂÕÎÄ ÏÐÅÎÁÐÀÇÎ0ÀÒÅËß " 
1220 PRINT" 'ÍÀÏÐßÆÅÍÈÅ-×ÀÑÒÎÒÀ È ÍÀÆÌÈÒÅ ËÞÁÓÞ ÊËÀÂÈØÓ." 
1230 Z=USR(-2045):GOSUB 100:N0=N:ZS=-1:RETURN 
2000 REM +++ ÃËÀÂÍÀß ÏÐÎÃÐÀÌÌÀ +++ 
2010 PRINT
2020 PRINT ÒÀB(15);"×ÀÑÒÎÒÎÌÅÐ/ÌÓËÜÒÈÌÅÒÐ" 
2030 PRINT
2040 PRINT"     ÑÈÃÍÀË, ×ÀÑÒÎÒÓ ÈËÈ ÏÅÐÈÎÄ ÊÎÒÎÐÎÃÎ ÍÅÎÁÕÎÄÈÌÎ" 
2050 PRINT"È3MEPÈTb, ÏÎÄÀÉÒÅ ÍÀ ÂÕÎÄ ÊÎÌÏÜÞÒÅÐÀ, ÏÐÅÄÍÀÇÍÀ×ÅÍ-" 
2060 PRINT"HÛÉ ÄËß ÏÎÄÊËÞ×ÅÍÈß ÌÀÃÍÈÒÎÔÎÍÀ. ÏÐÈ ÈÇÌÅÐÅÍÈÈ ÄÐÓ-" 
2070 PRINT"ÃÈX ÂÅËÈ×ÈÍ ÍÀ ÝÒÎÒ ÆÅ ÂÕÎÄ ÏÎÄÀÉÒÅ ÑÈÃÍÀË ÎÒ ÏÐÅ-" 
2080 ÐRIÒ"ÎÁÐÀÇÎÂÀÒÅËß ÈÇÌÅÐßÅÌÀß ÂÅËÈ×ÈÍÀ - ×ÀÑÒÎÒÀ ." 
2090 I0=12800:REM ÍÀ×. ÀÄÐÅÑ Ï/Ï ÎÒÑ×ÅÒÀ ÏÅÐÈÎÄÀ 
2100 REM ÂÂÎÄ ÊÎÄÎÂ ÏÎÄÏÐÎÃÐÀÌÌÛ 
2110 FOR I=10 TO I0+79:READ Ñ$:Õ=0 
2120 FOR J=1 TO 2;X=X*16
2130 D=ASC(MID$(C$,J,1))-48:IF D>9 THEN D=D-7 
2140 X=X+D:NEXT:POKE I,X:NEXT
2150 N1=I:N2=N1+2:REM ÀÄÐÅÑÀ ÐÅÇÓËÜÒÀÒÎÂ ÐÀÁÎÒÛ ÏÎÄÏÐÎÃÐÀÌÌÛ 
2160 KR=0:KC=0:KU=0:ZS=0:REM ÔËÀÃÈ ÊÀËÈÁÐÎ0ÊÈ 
2170 REM ÊÎÍÑÒÀÍÒÛ ÄËß ÂÛ×ÈÑËÅÍÈß ÏÅÐÈÎÄÀ 
2180 FQ=16E6:REM ×ÀÑÒÎÒÀ ÊÂÀÐÖÅÂÎÃÎ ÐÅÇÎÍÀÒÎÐÀ ÐÊ (ÃÖ) 
2190 T0=9/FQ:K1=30.4:K2=11/128:K3=11.142:K4=K3*256 
2200 REM ÊÎÍÑÒÀÍÒÛ ÄËß ÈÇÌÅÐÅÍÈß ÒÅÌÏÅÐÀÒÓÐÛ 
2210 T1=0:F1=157.97:T2=100:F2=351.76 
2220 M=(T1+273)/(T2-T1)*LOG(F1/F2) 
2230 PRINT
2240 PRINT"È3MEPEHÈE ÂÛÏÎËÍßÅÒÑß ÏÐÈ ÍÀÆÀÒÈÈ ÑËÅÄÓÞÙÈÕ ÊËÀÂÈØ:" 
2250 PRINT
2260 PRINT"     'F' - ×ÀÑÒÎÒÀ:" 
2270 PRINT"     'T' - ÏÅÐÈÎÄ:" 
2280 PRINT"     'R' - ÑÎÏÐÎÒÈ0ËÅÍÈÅ:" 
2290 PRINT"     'Ñ' - ÅÌÊÎÑÒÜ:" 
2300 PRINT"     'G- - ÒÅÌÏÅÐÀÒÓÐÀ:" 
2310 PRINT"     'U' - ÍÀÏÐßÆÅÍÈÅ:" 
2320 PRINT"     '0' - ÓÑÒÀÍÎ0ÊÀ ÍÓËß ÂÎËÜÒÌÅÒÐÀ:" 
2330 PRINT"     'Ê'- ÊÀËÈÁÐÎ0ÊÀ." 
2340 PRINT
2350 PRINT"     ÄËß ÂÛÕÎÄÀ ÈÇ ÏÐÎÃÐÀÌÌÛ ÍÀÆÌÈÒÅ 'Q'" 
2360 Z$=CHR$(USR(-2045)): Å=-1 
2370 IF Z$="T" THEN GOSUB 310 
2380 IF Z$="F" THEN GOSUB 410 
2390 IF Z$="R" THEN GOSUB 510 
2400 IF Z$="C" THEN GOSUB 610 
2410 IF Z$="G" THEN GOSUB 710 
2420 IF Z$="U" THEN GOSUB 810 
2450 IF Z$="K" THEN GOBUB 1000 
2440 IF Z$="B" THEN GOSUB 1210 
2450 IF NOT E GOTO 2360 
2460 IF Z$="Q" GOTO 2230 
3000 REM +++ ÊÎÄÛ ÏÎÄÏÐÎÃÐÀÌÌÛ ÎÒÑ×ÅÒÀ +++ 
3010 DATA E5,D5,C5,F5,21,00,00,39,22,54,32,31,D6,32,21,30 
3020 DATA 32,E5,0E,3F,21,34,32,E5,0D,C2,17,32,11,00,00,21 
3030 DATA 02,80,7Å,46,B8,ÑÀ,23,32,ÇÅ,80,32,08,Å0,ÑÇ,34,32 
3040 DATA 31,56,32,13,7E,B8,C8,47,0D,C0,EB,22,50,32,21,AA 
3050 DATA D7,39,22,52,32,2A,54,32,F9,F1,C1,D1,E1,C3,2D,F8