: ARHIW.PRG
чист
посока fparam(1)
ако посока=1 то подпреход 1000
ако посока=2 то подпреход 2000
стоп(3)
====================================
1000 : на дискета
копи register a:register
копи klienti a:klienti
копи cenorazpsi a:cenorazpis
копи user_options a:user_options
пробратно
====================================
2000 : от дискета
копи a:register register
копи a:klienti klienti
копи a:cenorazpsi cenorazpis
копи a:user_options user_options
пробратно