Додаток А
Програма працює з періодом в 1 місяць. Потім результат зберігається в файли. При процедурі відновлення файлів, із резервного файлу SL1 в файли pr1, ras1 копіюється інформація.
copy.prg
if !used('spr_gr')
use spr_gr in 0
endif
if !used('spr_mat')
use spr_mat in 0
endif
if !used('spr_ras')
use spr_ras in 0
endif
if !used('spr_post')
use spr_post in 0
endif
if !used('pr1')
use pr1 in 0
endif
if !used('prt1')
use prt1 in 0
endif
if !used('ras1')
use ras1 in 0
endif
if !used('rast1')
use rast1 in 0
endif
if !used('nal1')
use nal1 in 0
endif
if !used('sl1')
use sl1 in 0
endif
select sl1