prova3

/* prova7.pro */
/* gestione file su disco */
/* verifica se file esiste su disco */
/* se file non esiste fine */
/* se file esiste prosegue programma */
/* carica file tipo testo o PRO da disco */
/* visualizza in finestra */
/* attiva INCLUDE MENU.PRO */
nowarnings

include "menu.pro"

domains
predicates
cerca
mostra
elabora
risposta
azione
fine
goal azione,elabora,cerca,risposta,mostra,fine.

clauses

 azione:-
 menu(3,20,["..riga 3 colonna 20.....",
             "...usa freccia.........",
             "...per spostarti.......",
             ".......................",
             "..esempio  menu'..... .",
             "..con nove opzioni.....",
             "..premere ENTER su ....",
             "..ultima riga..........",
             "..premi ENTER ........."],
             SCELTA).
 elabora:-
 makewindow(1,7,1,"",1,1,20,70),
 write("attivata finestra..."),
 sound(300,600).
 cerca:-
 existfile("prova1.pro"),!.
 risposta:-
 write("file trovato o non trovato.."),
 sound(100,600).
 mostra:-
 file_str("prova1.pro",TXT),
 display(TXT),
 clearwindow,!.
 fine:-
 write("fine prova").