Додаток А

Програма працює з періодом в 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