Если разберетесь, то логика примитивная примерно такая:
/* Скрипт для вывода событий текущего месяца
/* Карауш А.С.
if &uf('7KZD,!MM=',&unifor('31'),'!,@briefweb0_kzd_m')<>'' then
'<b>События ',&unifor('37',&unifor('31')), ' в календаре знаменательных дат МИБС Томска:</b> <br> ',
&uf('7KZD,!M=',&unifor('31'),'01','!,@briefweb0_kzd_m'),
&uf('7KZD,!M=',&unifor('31'),'02','!,@briefweb0_kzd_m'),
&uf('7KZD,!M=',&unifor('31'),'03','!,@briefweb0_kzd_m'),
&uf('7KZD,!M=',&unifor('31'),'04','!,@briefweb0_kzd_m'),
&uf('7KZD,!M=',&unifor('31'),'05','!,@briefweb0_kzd_m'),
&uf('7KZD,!M=',&unifor('31'),'06','!,@briefweb0_kzd_m'),
&uf('7KZD,!M=',&unifor('31'),'07','!,@briefweb0_kzd_m'),
&uf('7KZD,!M=',&unifor('31'),'08','!,@briefweb0_kzd_m'),
&uf('7KZD,!M=',&unifor('31'),'09','!,@briefweb0_kzd_m'),
&uf('7KZD,!M=',&unifor('31'),'10','!,@briefweb0_kzd_m'),
&uf('7KZD,!M=',&unifor('31'),'11','!,@briefweb0_kzd_m'),
&uf('7KZD,!M=',&unifor('31'),'12','!,@briefweb0_kzd_m'),
&uf('7KZD,!M=',&unifor('31'),'13','!,@briefweb0_kzd_m'),
&uf('7KZD,!M=',&unifor('31'),'14','!,@briefweb0_kzd_m'),
&uf('7KZD,!M=',&unifor('31'),'15','!,@briefweb0_kzd_m'),
&uf('7KZD,!M=',&unifor('31'),'16','!,@briefweb0_kzd_m'),
&uf('7KZD,!M=',&unifor('31'),'17','!,@briefweb0_kzd_m'),
&uf('7KZD,!M=',&unifor('31'),'18','!,@briefweb0_kzd_m'),
&uf('7KZD,!M=',&unifor('31'),'19','!,@briefweb0_kzd_m'),
&uf('7KZD,!M=',&unifor('31'),'20','!,@briefweb0_kzd_m'),
&uf('7KZD,!M=',&unifor('31'),'21','!,@briefweb0_kzd_m'),
&uf('7KZD,!M=',&unifor('31'),'22','!,@briefweb0_kzd_m'),
&uf('7KZD,!M=',&unifor('31'),'23','!,@briefweb0_kzd_m'),
&uf('7KZD,!M=',&unifor('31'),'24','!,@briefweb0_kzd_m'),
&uf('7KZD,!M=',&unifor('31'),'25','!,@briefweb0_kzd_m'),
&uf('7KZD,!M=',&unifor('31'),'26','!,@briefweb0_kzd_m'),
&uf('7KZD,!M=',&unifor('31'),'27','!,@briefweb0_kzd_m'),
&uf('7KZD,!M=',&unifor('31'),'28','!,@briefweb0_kzd_m'),
&uf('7KZD,!M=',&unifor('31'),'29','!,@briefweb0_kzd_m'),
&uf('7KZD,!M=',&unifor('31'),'30','!,@briefweb0_kzd_m'),
&uf('7KZD,!M=',&unifor('31'),'31','!,@briefweb0_kzd_m'),
/* &uf('7KZD,!MM=',&unifor('31'),'!,@briefweb0_kzd_m'),
fi,
Получается то, что по ссылке: [
www.library.tomsk.ru]
Здесь идет перечисление дат последовательно специально для сортировки, т.к. поле повторяемое было. Если поле неповторяемое, то можно сделать проще. Но так - красивее на выводе.
briefweb0_kzd_m - просто pft файл с алгоритмом вывода строки: