menu4

/* menu4.pro */
/* uscita da programma con system */

nowarnings

include "menu.pro"

predicates
elabora3(integer)
azione3
termine3(integer)
scelta3(integer)
finestra
fine
goal finestra,azione3.

clauses
finestra:-
makewindow(1,5,1,"finestra 1",1,1,20,60).
azione3:-
menu(1,65,["azione1","system ","fine"],Scelta3),
elabora3(Scelta3),
termine3(Scelta3),!.	
elabora3(0).
elabora3(1):-scelta3(1).
elabora3(2):-scelta3(2).
elabora3(3):-scelta3(3).
termine3(3).
termine3(0).
scelta3(1):-write("chiama programma\n"),azione3.
scelta3(2):-write("uscita con system\n"),
            sound(100,500),
            write("scrivi EXIT per tornare\n"),
            system(""),!,azione3.
scelta3(3):-fine.

fine:-
write("fine prova "),sound(100,660).