10 REM АНАЛИЗ КАЧЕСТВА ВВОДА С МАГНИТНОЙ ЛЕНТЫ
20 REM ПРОГРАММА ДЛЯ "РАДИО-86РК" (ОЗУ 16 КБАЙТ)
30 I0=12288:REM АДРЕС П/П ИЗМЕРЕНИЯ ИНТЕРВАЛОВ
40 FOR I=I0 TO I0+107:READ A:POKE I,A:NEXT
50 AI=13871:REM АДРЕС КОНСТ. ВОСПР.(ДЛЯ 32 КБАЙТ 30255)
60 DIM P(127):M=1:Z=1
70 L=PEEK(I0+106)+PEEK(I0+107)*256:REM ЧИСЛО ОТСЧЕТОВ
80 CLS
90 CUR 0,24:PRINT"ГОТОВ"
100 A=USR(-2045):REM ВВОД КОМАНДЫ
110 IF A=3 THEN 2000
120 IF A=24 THEN D=1:GOSUB 1000:GOTO 100
130 IF A=8 THEN D=-1:GOSUB 1000:GOTO 100
140 IF A>48 AND A<53 THEN M=A-48:GOTO 170
150 IF A<>2 THEN PRINT "?":GOTO 100
160 A=USR(I0):Z=0:REM ИЗМЕРЕНО L ИНТЕРВАЛОВ
170 FOR J=0 TO 127:P(J)=0:NEXT
180 CLS:M1=25*M:D=0:GOSUB 1000
190 I=I0-3*(L+1)
200 C0=PEEK(I):D0=PEEK(I+1)+256*PEEK(I+2)
210 FOR J=1 TO L:I=I+3:REM ЦИКЛ ПОСТРОЕНИЯ ГИСТОГРАММЫ
220 C=PEEK(I):D=PEEK(I+1)+256*PEEK(I+2)
230 H=123+14*(C-C0)+3599*(D-D0):REM ИНТЕРВАЛ В МАШ. ТАКТАХ
240 C0=C:D0=D
250 X=INT(N/M1+0.5):IF X>127 THEN X=127
260 P(X)=P(X)+1:Y=P(X)+4:IF Y>49 THEN Y=49
270 PLOT X,Y,1
280 NEXT
290 GOTO 90
1000 REM ПОДПРОГРАММА ИЗМЕРЕНИЯ КОНСТАНТЫ ВОСПРОИЗВЕДЕНИЯ
1010 REM И ЕЕ ВЫВОДА НА ЭКРАН ДИСПЛЕЯ
1020 IF Z THEN RETURN
1030 KI=(PEEK(AI)+D) AND 255:POKE AI,KI
1040 X1=INT((KI+3.72)/M+0.5) AND 127
1050 X2=(INT((KI+6.56)/M+1.5) AND 127)-1
1060 PLOT 0,4,1:LINE X1-1,4
1070 PLOT X1,4,0:LINE X2,4
1080 PLOT X2+1,4,1:LINE 127,4
1090 CUR 0,1:PRINT"КОНСТАНТА ВОСПРОИЗВЕДЕНИЯ - ";
1100 GOSUB 1200:PRINT
1110 RETURN
1200 REM ПЕЧАТЬ ШЕСТНАДЦАТЕРИЧНОГО ЧИСЛА
1210 K1=INT(KI/16):GOSUB 1230
1220 K1=KI AND 15
1230 IF K1>9 THEN K1=K1+7
1240 PRINT CHR$(K1+48);
1250 RETURN
2000 DATA 229,213,197,245,33,0,0,57,34,108,48,49,112,49,33,63
2010 DATA 48,229,33,67,48,14,127,229,13,194,23,48,42,106,48
2020 DATA 124,47,87,125,47,95,33,0,48,25,25,25,17,0,0,58,2,128
2030 DATA 71,230,16,194,46,48,62,128,50,8,224,195,67,48,49,112
2040 DATA 48,19,58,2,128,184,200,71,34,110,48,33,144,207,57,77
2050 DATA 42,110,48,113,35,115,35,114,35,124,254,48,192,42,108
2060 DATA 48,249,205,45,248,241,193,209,225,201,255,0
