Наряду с аппаратными средствами получения инверсно кодированных отсчетов существуют программные средства выполнения тех же самых операций.

10 DIM A(N)

20 FOR I = 1 TO N

30 INPUT A(I)

40 PRINT “A(I) =”, A(I)

50 NEXT I

60 LET j = 0

70 LET

80 LET I = 0

85 IF I > N-1 THEN GO TO 210

90 IF j < 1 THEN GO TO 140

100 LET A = A(I)

110 LET B = A(J)

120 LET M(I) = B

130 LET M(J) = A

140 LET k = m

150 IF J ≥ k THEN GO TO

160 LET J = J + k

170 GO TO 85

180 LET J = J – k

190 LET

200 GO TO 90

210 END

10 – объявление массива входной последовательности, который подлежит преобразованию;

20 50 – ввод входной последовательности;

60 70 – начальное присвоение переменной J и переменной m;

80 – начало цикла расчета I = 0;

85 – проверка значения переменной I, если I > N-1, то цикл расчета продолжается;

90 – проверка условий;

100 – переприсвоение значений массива;

140 – присвоение переменной kзначений m;

150 170 – организация цикла расчета, присвоение переменной J и k.