menu5

/* menu5.pro */
/* uscita da programma con system */
/* attivazione di EDIT */

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:-
clearwindow,
menu(1,65,["edit ","system ","chiama ","fine"],Scelta3),
elabora3(Scelta3),
termine3(Scelta3),!.	
elabora3(0).
elabora3(1):-scelta3(1).
elabora3(2):-scelta3(2).
elabora3(3):-scelta3(3).
elabora3(4):-scelta3(4).
termine3(4).
termine3(0).
scelta3(1):-write("chiama EDIT\n"),
            edit("premi esc per uscire\n\n\n",_),azione3.
scelta3(2):-write("uscita con system\n"),
            sound(100,500),
            write("scrivi EXIT per tornare\n"),
            system(""),!,azione3.
scelta3(3):-write("chiamata programma\n"),
            beep,sound(100,600),azione3.
scelta3(4):-fine.

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