data1

/* data1.pro */
/* esempio gestione database */
/* aggiungere dati in file dba */
/* modificare dati in file dba */
/* file usato rubrix.dba */
/* modifica di dato in posizione indicata */

nowarnings
domains
file = salvaf
Dato = symbol

predicates
modifica
aggiunge
carica
ricarica
finestra
fine
goal finestra,carica,
aggiunge,modifica,ricarica,fine.

clauses
finestra:-
makewindow(1,5,1,"",6,1,16,40),
makewindow(2,4,3,"",1,42,16,35),
makewindow(3,5,3,"",1,2,4,40),
write("premi ESC per proseguire\n"),
write("usa frecce per spostarti"),
disk("A:").

carica:-
shiftwindow(1),
file_str("rubrix.dba",DATAX),
display(DATAX).

ricarica:-
shiftwindow(1),
clearwindow,
file_str("rubrix.dba",DATAX),
display(DATAX).
aggiunge:-
shiftwindow(2),
write("scrivi termine da aggiungere \n"),
readln(Dato),
openappend(salvaf,"rubrix.dba"),
writedevice(salvaf),
write(Dato,"\n"),
closefile(salvaf).

modifica:-
write("scrivi termine da sostituire \n"),
write("ad altro termine in posizione \n"),
write("da indicare con filepos \n"),
readln(Dato),
disk("A:"),
openmodify(salvaf,"Rubrix.dba"),
writedevice(salvaf),
filepos(salvaf,7,1),
write(Dato,"\n"),
closefile(salvaf).

fine:-
shiftwindow(1),
clearwindow,removewindow,
shiftwindow(2),
clearwindow,removewindow,
shiftwindow(3),
clearwindow,
write("fine prova"),
sound(100,700),
removewindow.