filex1

/* filex1.pro */
/* gestione file su disco */
/* visualizza in finestra */

domains

predicates
elabora
fine
goal elabora,fine.

clauses
 elabora:-
 makewindow(1,7,1,"",1,1,20,70),
 write("attivata finestra..."),
 sound(300,600),
 deletefile("A:/file/pro1.pro"),
 renamefile("A:/file/pro2.pro","A:/file/proq.pro"),
 existfile("A:/file/proq.pro"),
 existfile("A:/file/pro3.pro"),
 clearwindow,!.

 fine:-
 write("fine prova").
  

/* filex2.pro */
/* gestione file su disco */
/* visualizza in finestra */

nowarnings
domains

predicates
elabora
fine
goal elabora,fine.

clauses
 elabora:-
 makewindow(1,7,1,"",1,1,20,70),
 write("attivata finestra..."),
 sound(300,600),
 renamefile("A:/file/pro3.pro","A:/file/prou.pro"),
 dir("A:/file","*.*",NOMI),
 clearwindow.

 fine:-
 write("fine prova").
  

/* filex3.pro */
/* gestione file su disco */
/* visualizza in finestra */
/* funziona con programmi di prova che */
/* devono essere caricati in FILEX.... */

nowarnings
domains

predicates
elabora1
elabora
azione
fine
goal elabora,elabora1,azione,fine.

clauses
 elabora:-
 makewindow(1,7,1,"",1,1,20,70),
 write("attivata finestra..."),
 sound(300,600),
 dir("A:/filex","*.*",INDICE),
 sound(100,500).
 

 elabora1:-
 renamefile("A:/filex/pro6.dba","A:/filex/pro5.mar"),
 dir("A:/filex","*.*",NOMI),
 clearwindow.

 azione:-
 write(" fine prova con DIR "),
 sound(20,800).
 fine:-
 write("fine prova").