sirio1

/* sirio1.pro */
/* gestione file su disco */
/* carica file tipo DBA PRO TXT da disco */
/* visualizza in finestra */
/* attivazione di DISK */

domains
predicates
elabora
elabora1
elabora2
fine
goal elabora,elabora1,elabora2,fine.

clauses
 elabora:-
 makewindow(1,7,1,"",1,1,20,70),
 write("attivata finestra..."),
 write("premere sempre ESC per proseguire"),
 sound(300,600),
 disk("A:/prove"),
 file_str("fauna.dba",TXT),
 display(TXT),
 clearwindow.
 

 elabora1:-
 write("premi ESC per uscire "),
 sound(100,700),
 file_str("filex1.pro",TXT),
 display(TXT),
 clearwindow.
 

 elabora2:-
 write("premi ESC per uscire "),
 sound(100,800),
 file_str("testo1.txt",TXT),
 display(TXT),
 clearwindow.

 fine:-
 write("fine prova").
  

/* sirio3.pro */
/* gestione file su disco */
/* carica file tipo DBA PRO TXT da disco */
/* visualizza in finestra */
/* attivazione di DISK */
/* se file non trovato appare messaggio */
/* grazie a punto ! e stesso predicato */
/* attivazione finestre varie */

domains
predicates
elabora
elabora1
elabora2
elabora3
fine
goal elabora,elabora1,elabora2,elabora3,fine.

clauses
 elabora:-
 makewindow(1,7,1,"",1,1,20,70),
 write("attivata finestra..."),
 write("premere sempre ESC per proseguire"),
 sound(300,600),
 disk("A:/prove"),
 existfile("fauna.dba"), /* se esiste prosegue*/
 file_str("fauna.dba",TXT),
 display(TXT),
 clearwindow,!.
 

 elabora1:-
 makewindow(2,5,4,"",5,5,10,50),
 write("premi ESC per uscire\n "),
 sound(100,700),
 existfile("filea.pro"), /* se non esiste avvisa*/
 file_str("filex1.pro",TXT),
 display(TXT),
 clearwindow,!.
 elabora1:-
 write("file non trovato ").
 

 elabora2:-
 makewindow(1,5,1,"",5,2,10,40),
 write("premi ESC per uscire "),
 sound(100,800),
 file_str("testo1.txt",TXT),
 display(TXT),
 clearwindow,
 removewindow.

 elabora3:-
 makewindow(1,6,1,"",10,10,10,50),
 write("fine ricerca\n"),
 sound(100,600),
 removewindow.
 

 fine:-
 write("fine prova").
  

/* sirio4.pro */
/* gestione file su disco */
/* carica file tipo DBA PRO TXT da disco */
/* visualizza in finestra */
/* attivazione di DISK con varie DIR */
/* se file non trovato appare messaggio */
/* grazie a punto ! e stesso predicato */
/* attivazione finestre varie */

nowarnings
domains
predicates
elabora
elabora1
elabora2
elabora3
fine
goal elabora,elabora1,elabora2,elabora3,
elabora,fine.

clauses
 elabora:-
 makewindow(1,7,1,"",1,1,20,70),
 write("attivata finestra..."),
 write("premere sempre ESC per proseguire"),
 sound(300,600),
 disk("A:/prolox"),
 file_str("schermo.pro",TXT), /* se esiste prosegue*/
 display(TXT),
 clearwindow,!.
 

 elabora1:-
 makewindow(2,5,4,"",5,5,10,50),
 write("premi ESC per uscire\n "),
 sound(100,700),
 disk("A:/prove"),
 existfile("filea.pro"), /* se non esiste avvisa*/
 file_str("filex1.pro",TXT),
 display(TXT),
 clearwindow,!.
 elabora1:-
 write("file non trovato ").
 

 elabora2:-
 makewindow(1,5,1,"",5,2,10,40),
 write("premi ESC per uscire "),
 sound(100,800),
 file_str("testo1.txt",TXT),
 display(TXT),
 clearwindow,
 removewindow.

 elabora3:-
 makewindow(1,6,1,"",10,10,10,50),
 write("fine ricerca\n"),
 sound(100,600),
 removewindow.
 

 fine:-
 write("fine prova").