engleza.prg

System "somaj" for city Beius

procedure engleza
use someri
set orde to numele
name=" "
do enge with name,"Ce nivel de vorbire cautati ?"
locate for left(upper(engleza),len(name))=trim(name)
if found()
              DEFINE WINDOW carti FROM 4,2 TO 22,77 title 'Engleza';
              COLOR w/rb
              ACTIVATE WINDOW carti
     set color to w+/rb,g+/rb
	browse for left(upper(engleza),len(name))=trim(name) ;
	title 'Date despre ...'nomenu nomodify
              DEACT WIND carti
 else
	do atentie with "Nu cunosc aceasta conditie !"
	go top
endif
show gets


lady=" "
do iesire with lady,"Doresti sa mai cauti dupa engleza ?"
if lady="D" then
        close data
		do engleza
else
   close databases
    return
endif


***************************************************

procedure german
use someri
set orde to numele

name=" "
do enge with name,"Ce nivel de vorbire cautati ?"
locate for left(upper(germana),len(name))=trim(name)
if found()
              DEFINE WINDOW carti FROM 4,2 TO 22,77 title 'Germana';
              COLOR w/rb
              ACTIVATE WINDOW carti
     set color to w+/rb,g+/rb
	browse for left(upper(germana),len(name))=trim(name) ;
	title 'Date despre ...'nomenu nomodify
              DEACT WIND carti
 else
	do atentie with "Nu cunosc aceasta conditie !"
	go top
endif
show gets


lady=" "
do iesire with lady,"Doresti sa mai cauti dupa germana ?"
if lady="D" then
        close data
		do germana
else
   close databases
    return
endif


***************************************************

procedure rusa
use someri
set orde to numele

name=" "
do enge with name,"Ce nivel de vorbire cautati ?"
locate for left(upper(rusa),len(name))=trim(name)
if found()
              DEFINE WINDOW carti FROM 4,2 TO 22,77 title 'Rusa';
              COLOR w/rb
              ACTIVATE WINDOW carti
     set color to w+/rb,g+/rb
	browse for left(upper(rusa),len(name))=trim(name) ;
	title 'Date despre ...'nomenu nomodify
              DEACT WIND carti
 else
	do atentie with "Nu cunosc aceasta conditie !"
	go top
endif
show gets


lady=" "
do iesire with lady,"Doresti sa mai cauti dupa rusa ?"
if lady="D" then
        close data
		do rusa
else
   close databases
    return
endif


***************************************************

procedure maghiar
use someri
set orde to numele

name=" "
do enge with name,"Ce nivel de vorbire cautati ?"
locate for left(upper(maghiara),len(name))=trim(name)
if found()
              DEFINE WINDOW carti FROM 4,2 TO 22,77 title 'Maghiara';
              COLOR w/rb
              ACTIVATE WINDOW carti
     set color to w+/rb,g+/rb
	browse for left(upper(maghiara),len(name))=trim(name) ;
	title 'Date despre ...'nomenu nomodify
              DEACT WIND carti
 else
	do atentie with "Nu cunosc aceasta conditie !"
	go top
endif
show gets


lady=" "
do iesire with lady,"Doresti sa mai cauti dupa conditie ?"
if lady="D" then
        close data
		do maghiar
else
   close databases
    return
endif


***************************************************

procedure alte
use someri
set orde to numele

name=" "
do limb with name,"Ce limba vorbita va intereseaza ?"
locate for left(upper(alte_limbi),len(name))=trim(name)
if found()
              DEFINE WINDOW carti FROM 4,2 TO 22,77 title 'Alte limbi vorbite';
              COLOR w/rb
              ACTIVATE WINDOW carti
     set color to w+/rb,g+/rb
	browse for left(upper(alte_limbi),len(name))=trim(name) ;
	title 'Date despre ...'nomenu nomodify
              DEACT WIND carti
 else
	do atentie with "Nu cunosc aceasta limba vorbita !"
	go top
endif
show gets


lady=" "
do iesire with lady,"Doresti sa mai cauti dupa limba vorbita ?"
if lady="D" then
        close data
		do alte
else
   close databases
    return
endif


***************************************************



PROCEDURE enge

PARAMETER answer,mess1
DEFINE WINDOW culeg FROM 13,4 TO 19,73 ;
COLOR w+/gr SHADOw

ACTIVATE WINDOW culeg

@1,0 SAY PADC(mess1,WCOLS())
@3,17 GET answer;
    PICTURE "@!xxxxxxxxxxxxxxxxxxxxxxx";
    COLOR w+/b+;                                                
    message'Conditia cautata: RAU,ACCEPTABIL,BINE !';
    SIZE 1,8
READ
DEACTIVATE WINDOW culeg
RETURN

***************************************************

PROCEDURE limb

PARAMETER answer,mess1
DEFINE WINDOW culeg FROM 13,4 TO 19,73 ;
COLOR w+/gr SHADOw

ACTIVATE WINDOW culeg

@1,0 SAY PADC(mess1,WCOLS())
@3,17 GET answer;
    PICTURE "@!xxxxxxxxxxxxxxxxxxxxxxx";
    COLOR w+/b+;                                                
    message'Limbi vorbite: ITALIANA,SPANIOLA,...etc !';
    SIZE 1,8
READ
DEACTIVATE WINDOW culeg
RETURN