prolo6

GESTIONE FUNZIONI VARIE

edit(Stringa1,Stringa2)
edit("stringa da stampare",Stringa2)
assegna stringa1 da assegnare a stringa2

editmsg(Stringa1,Stringa2,Headstringa,Headstringa2,Messaggio,
              Posizione,Helpnomefile,Retstatus)
assegna(string,string,string,string,string,integer,string,integer)

display(Stringa)
display("stampa stringa in finestra")
assegna stringa da stampare in finestra attiva

dir(percorso,specificafile,nomefile)
dir(string,string,string)
dir("A:","*.*",A)
dir("C:","*.*",_)
assegna percorso per ricerca file,tipo file,drive

random(variabile numero reale)
random(R)
fornisce numeri casuali entro limiti da assegnare con formule cfr.

storage(stacksize,heapsize,trailsize)
storage(Real,Real,Real)

sound(Durata,Frequenza)
sound(100,600)
assegna durata,frequenza per eseguire nota musicale

beep
esegue breve segnale acustico

date(Anno,Mese,Giorno)
fornisce anno,mese,giorno corrente

time(Ora,Minuto,Secondo,Centesimo)
fornisce ora,minuti,secondi,centesimo secondi tempo corrente

nl
attiva a capo dopo ultimo comando

/* misce1.pro */
/* attivazione EDIT */

domains
 Stringa1,Stringa2,Stringa3 =string
clauses
 goal
 makewindow(1,7,3,"",1,1,20,70),
 attribute(5),
 edit("stringa stampata con EDIT:premi ESC ",Stringa1),
 write(Stringa1),
 sound(200,700),
 Stringa2="stringa come dato variabile:premi ESC",
 edit(Stringa2,Stringa3),
 cursor(7,2),
 write(Stringa2,"....",Stringa3).

/* misce2.pro */
/* attivazione DISPLAY */

domains
 Stringa1 = string
clauses
 goal
 makewindow(1,7,3,"",1,1,20,70),
 attribute(5),
 display(stringa_finestra_premi_ESC),
 sound(200,600),
 Stringa1="stringa come dato variabile:premi ESC",
 display(Stringa1),
 sound(100,300).
  

/* misce3.pro */
/* attivazione DIR */

domains
clauses
 goal
 makewindow(1,7,3,"",1,1,20,70),
 attribute(5),
 cursor(10,2),write("premi ESC per uscire"),
 sound(200,300),
 dir("A:","*.*",A), /* mostra tutti i files */
 sound(200,700),
 cursor(10,2).
 

/* misce4.pro */
/* attivazione DIR */

domains
clauses
 goal
 makewindow(1,7,3,"",1,1,20,70),
 attribute(5),
 cursor(10,2),write("premi ENTER per uscire"),
 sound(200,300),
 dir("C:","*.*",_), /* mostra tutti i files */
 sound(200,700),
 cursor(15,2).
 

/* misce5.pro */
/* attivazione DIR */

domains
S1,S2=string
clauses
 goal
 makewindow(1,7,3,"",1,1,20,70),
 attribute(5),
 cursor(10,2),write("premi ENTER per uscire"),
 sound(200,300),
 S1="C:",
 S2="*.*",
 dir(S1,S2,_), /* mostra tutti i files */
 sound(200,700),
 cursor(15,2).
 

/* misce6.pro */
/* attivazione SOUND DATE TIME */

domains
Durata,Frequenza = integer
Anno,Mese,Giorno = integer
Ora,Minuto,Secondo,Centesimo =integer
clauses
 goal
 makewindow(1,7,3,"",1,1,20,70),
 attribute(5),
 write("attivazione SOUND "),
 sound(100,600),
 Durata=200,
 Frequenza=800,
 sound(Durata,Frequenza),
 cursor(4,2),write("attivazione DATE "),
 date(Anno,Mese,Giorno),
 write("stampa ANNO,MESE,GIORNO corrente"),
 write(Anno,"..",Mese,"..",Giorno),
 sound(100,600),cursor(6,2),
 time(Ora,Minuto,Secondo,Centesimo),
 write("stampa Ora,Minuto,Secondo,Centesimo"),
 cursor(7,2),
 write(Ora,"..",Minuto,"..",Secondo,"..",Centesimo).
 

/* misce7.pro */
/* attivazione BEEP NL nuova linea */

domains
clauses
 goal
 makewindow(1,7,3,"",1,1,20,70),
 attribute(5),
 beep,
 write("riga testo seguita da nuova linea NL"),
 nl,
 write("seconda riga testo con andata a capo"),
 nl,nl,nl,write(" tre interlinee con nl "),
 sound(100,600),nl,nl,nl,beep,beep,beep.