Программа 8.4.

100 ' Разворачивание фазы

110 '

120 DIM PHASE[256] 'Массив PHASE[ ] содержит исходные значения фазы

130 DIM UWPHASE[256] 'Массив UWPHASE[ ] содержит значения фазы после разворачивания

140 '

150 PI = 3.14159265

160 '

170 GOSUB XXXX 'Предполагаемая подпрограмма загрузки данных в массив PHASE[]

180 '

190 UWPHASE[0] = 0 '0-й элемент массива фазы всегда равен нулю

200 '

210 ' 'Цикл непосредственной реализации разворачивания

220 FOR K% = 1 TO 256

230 C% = CINT( (UWPHASE[K%-1] - PHASE[K%]) / (2 * PI) )

240 UWPHASE[K%] = PHASE[K%] + C%*2*PI

250 NEXT K%

260 '

270 END