Автоматизація господарської діяльності ВАТ "Коломийський сирзавод"

@ 0,0 SAY 'Вийти з програми ?'

@ 1,3 prompt ' ТАК ' SHADOW

@ 1,9 prompt ' НІ ' SHADOW

MENU TO X

do case

case X=1

USE ZAH

replace zax with .t.

close database

quit



case X=2

clear windows

do dtop

return

otherwise

return

endcase

deactivate popup vp01

case bar=3

clear windows

deactivate popup vp01

case bar=4

DEFINE WINDOW DTOP FROM 0,0 TO 24,79 COLOR SCHEME 1

ACTIVATE WINDOW DTOP

deactivate popup vp01

otherwise

return

endcase

return