Контрольная работа: Автоматизований облік надходження, зберігання і збуту продукції на товарній базі

save (1,1,40,25,0,'import');

window (1,1,40,25);

textbackground(0);

clrscr;

menu_1 (s1, s2, s3, s4);

menu_2 (i, s1);

end;

2:begin

If h=#13 then

save (1,1,40,25,0,'eksport');

window (1,1,40,25);

textbackground(0);

clrscr;

menu_1 (s1, s2, s3, s4);

menu_2 (i, s2);

end;

3:begin

If h=#13 then

save (1,1,40,25,0,'Sohran');

window (1,1,40,25);

textbackground(0);

clrscr;

menu_1 (s1, s2, s3, s4);

menu_2 (i, s3);

end;

4:begin

If h=#13 then

halt;

window (1,1,40,25);