Программный ШИМ на ПЛК73

Господа, не посоветуете алгоритм программного ШИМа..... На чем его реализовать?

out : real; (*0.0..1.0*)
tmPeriod : time;
q:bool;

q:=(time_to_dword(time()) mod time_to_dword(tmPeriod))< time_to_real(tmPeriod)*out;

У ПЛК73 выходы не bool типа. А Real от 0,00 до 1,00
Задавая значение Вы и будете получать ШИМ.
Учим мат. часть, господа :)

Спасибо, Господа.....