xfile1

/* file2.pro */
/* gestione file e DIR */
/* carica directory da disco A */

nowarnings

domains
Programmi = string
Tasto     = char

predicates
azione
goal azione.

clauses
 azione:-
 makewindow(1,7,1,"",1,1,20,70),
 cursor(6,6),
 write("caricamento indice files "),nl,
 sound(100,600),
 dir("A:/grafix","*.pro",Programmi),
 cursor(10,10),
 write("premi ENTER "),
 clearwindow().
 

/* file3.pro */
/* gestione file e DIR */
/* carica directory da disco A */

nowarnings

domains
Programmi = string
Tasto     = char

predicates
azione
goal azione.

clauses
 azione:-
 makewindow(1,7,1,"",1,1,20,70),
 cursor(6,6),
 write("caricamento indice files "),nl,
 sound(100,600),
 dir("A:/grafix","*.*",Programmi),
 cursor(10,10),
 write("premi ENTER "),
 clearwindow().
 

/* file4.pro */
/* gestione file e DIR */
/* carica directory da disco C */

nowarnings

domains
Programmi = string
Tasto     = char

predicates
azione
goal azione.

clauses
 azione:-
 makewindow(1,7,1,"",1,1,20,70),
 cursor(6,6),
 write("caricamento indice files "),nl,
 sound(100,600),
 dir("//","*.*",Programmi),
 cursor(10,10),
 write("premi ENTER "),
 clearwindow().