modifdbf.prg

System "somaj" for city Beius

         COLOR w+/r, w/r;                                                 
                    messa 'Are studii postliceale  ?'
    @17,4 say 'Hobby 1                 : '
    @17,30 get hobby_1  pict'@!xxxxxxxxxxxxxxxxxxx';
         COLOR w+/r, w/r;                                
                    messa 'Cu ce se ocupa in timpul liber ?'
    @19,4 say 'Hobby 2                 : '
    @19,30 get hobby_2  pict'@!xxxxxxxxxxxxxxxxxxx';
         COLOR w+/r, w/r;                                
                    messa 'Cu ce se ocupa in timpul liber ?'
read
    set colo to w+/gr
lady=" "
do aproba with lady,"Totul e-n regula ?"
if lady="D" then
	do modif5
else 
	do modif4
endif

procedur modif5
    clea
    @1,4 say 'Alcool                  : '
    @1,30 get alcool   pict'@!xxxxxxxxxxxxxxxxxxx';
         COLOR w+/r, w/r;                                
                    messa 'Consuma ceva alcool preferat   ?'
    @3,4 say 'Ochelari (in dioptrii)  : '
    @3,30 get ochelari pict'@!xxxxxxxxxxxxxxxxxxx';
         COLOR w+/r, w/r;                                            
                    messa 'Ce fel de ochelari are ?'
    @5,4 say 'Dantura                 : '
    @5,30 get dantura  pict'@!xxxxxxxxxxxxxxxxxxx';
         COLOR w+/r, w/r;                                
                    messa 'Are dantura buna ?'
    @7,4 say 'Diabet                  : '
    @7,30 get diabet   pict'@!xxxxxxxxxxxxxxxxxxx';
         COLOR w+/r, w/r;                                                 
                    messa 'Persoana are diabet ?'
    @9,4 say 'Ulcer                   : '
    @9,30 get ulcer    pict'@!xxxxxxxxxxxxxxxxxxx';
         COLOR w+/r, w/r;                                
                    messa 'Persoana are ulcer  ?'
    @11,4 say 'Fumator                 : '
    @11,30 get fumator  pict'@!xxxxxxxxxxxxxxxxxxx';
         COLOR w+/r, w/r;                                
                    messa 'Ii place sa fumeze  ?'
    @13,4 say 'Defecte motrice         : '
    @13,30 get def_motric  pict'@!xxxxxxxxxxxxxxxxxxx';
         COLOR w+/r, w/r;                                
                    messa 'Persoana are defecte motrice ?'
    @15,4 say 'Cafea                   : '
    @15,30 get cafea   pict'@!xxxxxxxxxxxxxxxxxxx';
         COLOR w+/r, w/r;                                
                    messa 'Ii place cafeaua ?'
    @17,4 say 'Ce sport a facut        : '
    @17,30 get ce_sport   pict'@!xxxxxxxxxxxxxxxxxxx';
         COLOR w+/r, w/r;                                
                    messa 'Are un sport preferat ?'
    @19,4 say 'Engleza                 : '
    @19,30 get engleza  pict'@!xxxxxxxxxxxxxxxxxxx';
         COLOR w+/r, w/r;                                
                    messa 'Vorbeste limba engleza ?'
    read
    set colo to w+/gr

lady=" "
do aproba with lady,"Totul e-n regula ?"
if lady="D" then
	do modif6
else 
	do modif5
endif

procedur modif6
    clea
    @1,4 say 'Germana                 : '
    @1,30 get germana  pict'@!xxxxxxxxxxxxxxxxxxx';
         COLOR w+/r, w/r;                                
                    messa 'Vorbeste limba germana ?'
    @3,4 say 'Rusa                    : '
    @3,30 get rusa     pict'@!xxxxxxxxxxxxxxxxxxx';
         COLOR w+/r, w/r;                                
                    messa 'Vorbeste limba rusa   ?'
    @5,4 say 'Maghiara                : '
    @5,30 get maghiara pict'@!xxxxxxxxxxxxxxxxxxx';
         COLOR w+/r, w/r;                                
                    messa 'Vorbeste limba maghiara ?'
    @7,4 say 'Franceza                : '
    @7,30 get franceza pict'@!xxxxxxxxxxxxxxxxxxx';
         COLOR w+/r, w/r;                                
                    messa 'Vorbeste limba franceza ?'
    @9,4 say 'Alte limbi              : '
    @9,30 get alte_limbi pict'@!xxxxxxxxxxxxxxxxxxx';
         COLOR w+/r, w/r;                                
                    messa 'Vorbeste alte limbi   ?'
    @11,4 say 'Cazier                  : '
    @11,30 get cazier   pict'@!xxxxxxxxxxxxxxxxxxx';
         COLOR w+/r, w/r;                                
                    messa 'Are cazier  ?'
    @13,4 say 'Stare civila            : '
    @13,30 get star_civil pict'@!xxxxxxxxxxxxxxxxxxx';
         COLOR w+/r, w/r;                                
                    messa 'Starea civila   ?'
    @15,4 say 'Statut social           : '
    @15,30 get stat_socia pict '@!xxxxxxxxxxxxxxxxxxxxx';
         COLOR w+/r, w/r;                                    			
    		messa 'Ce statut social are (bogat/patura de mijloc/sarac) ?'
    @17,4 say 'Stare sociala           : '
    @17,30 get star_socia pict '@!xxxxxxxxxxxxxxxxxxxxx';
         COLOR w+/r, w/r;                                    			
    		messa 'Ce stare  sociala are ?'
    @19,4 say 'Grupa sanguina          : '
    @19,30 get gr_sanguin pict'@!xxxxxxxxxxxxxxxxxxx';
         COLOR w+/r, w/r;                                
                    messa 'Ce grupa sanguina are ?'
    read
    set colo to w+/gr
lady=" "
do aproba with lady,"Totul e-n regula ?"
if lady="D" then
	do modif7
else 
	do modif6
endif

procedur modif7
    clea
    @1,4 say 'Copii                   : '
    @1,30 get copii    pict'@!xxxxxxxxxxxxxxxxxxx';
         COLOR w+/r, w/r;                                
                    messa 'Persoana are copii ? '
    @3,4 say 'Nume copil 1            : '
    @3,30 get copil_1  pict'@!xxxxxxxxxxxxxxxxxxx';
         COLOR w+/r, w/r;                                
                    messa 'Cum se numeste primul copil ?'
    @5,4 say 'Nume copil 2            : '
    @5,30 get copil_2  pict'@!xxxxxxxxxxxxxxxxxxx';
         COLOR w+/r, w/r;                                
                    messa 'Cum se numeste al 2-lea copil ?'
    @7,4 say 'Nume copil 3            : '
    @7,30 get copil_3  pict'@!xxxxxxxxxxxxxxxxxxx';
         COLOR w+/r, w/r;                                
                    messa 'Cum se numeste al 3-lea copil ?'
    @9,4 say 'Platfus                 : '
    @9,30 get platfus  pict'@!xxxxxxxxxxxxxxxxxxx';    
             COLOR w+/r, w/r;                                
                    messa 'Platfus (talpa picior plat) ?'
    @11,4 say 'Agresivitatea fizica    : '
    @11,30 get agres_fiz pict'@!xxxxxxxxxxxxxxxxxxx';
         COLOR w+/r, w/r;                                
                    messa 'E agrsiva persoana ? Daca da, de ce ?'
    @13,4 say 'Agrsivitatea verbala    : '
    @13,30 get agres_verb pict'@!xxxxxxxxxxxxxxxxxxx';
         COLOR w+/r, w/r;                                                
                    messa 'E agresiv verbal ?'
    @15,4 say 'Durata ultimei angajari : '
    @15,30 get durat_ang pict'@!xxxxxxxxxxxxxxxxxxx';
         COLOR w+/r, w/r;                                
                    messa 'Cit timp a lucrat la ultima angajare ?'
    @17,4 say 'Calificare 1            : '
    @17,30 get calific_1  pict'@!xxxxxxxxxxxxxxxxxxx';
         COLOR w+/r, w/r;                                                
                    messa 'Prima calificare ?'
    @19,4 say 'Calificare 2            : '
    @19,30 get calific_2  pict'@!xxxxxxxxxxxxxxxxxxx';
         COLOR w+/r, w/r;                                                
                    messa 'A 2-a calificare ?'

    read
    set colo to w+/gr
lady=" "
do aproba with lady,"Totul e-n regula ?"
if lady="D" then
	do modif8
else 
	do modif7
endif

procedur modif8
    clea
    @1,4 say 'Calificare 3            : '
    @1,30 get calific_3  pict'@!xxxxxxxxxxxxxxxxxxx';
         COLOR w+/r, w/r;                                
                    messa 'A 3-a calificare ?'
    @3,4 say 'Motiv intrerup. servici : '
    @3,30 get intre_serv pict'@!xxxxxxxxxxxxxxxxxxx';
         COLOR w+/r, w/r;                                
                    messa 'Din ce cauza si-a intrerupt serviciul ?'
    @5,4 say 'Religia                 : '
    @5,30 get religia    pict'@!xxxxxxxxxxxxxxxxxxx';
         COLOR w+/r, w/r;                                
                    messa 'Religia ?'
    @7,4 say 'Antecedente penale      : '
    @7,30 get ante_penal pict'@!xxxxxxxxxxxxxxxxxxx';
         COLOR w+/r, w/r;                                               
                    messa 'Are antecedente penale  ?'
    @9,4 say 'Cursul urmat 1          : '
    @9,30 get curs_urma1 pict'@!xxxxxxxxxxxxxxxxxxx';
               COLOR w+/r, w/r;                                            
                    messa 'Cursuri urmate  ?'
    @11,4 say 'Cursul urmat 2         : '
    @11,30 get curs_urma2 pict'@!xxxxxxxxxxxxxxxxxxx';
               COLOR w+/r, w/r;                                            
                    messa 'Cursuri urmate  ?'
    @13,4 say 'Cursul urmat 3          : '
    @13,30 get curs_urma3 pict'@!xxxxxxxxxxxxxxxxxxx';
               COLOR w+/r, w/r;                                            
                    messa 'Cursuri urmate  ?'
    @15,4 say 'Cursul urmat 4          : '
    @15,30 get curs_urma4 pict'@!xxxxxxxxxxxxxxxxxxx';
               COLOR w+/r, w/r;                                            
                    messa 'Cursuri urmate  ?'
    @17,4 say 'Superspecializare       : '
    @17,30 get sup_specia pict '@!xxxxxxxxxxxxxxxxxxxxx';
                COLOR w+/r, w/r;   
                messa 'Are pregatire postuniversitara ?'
    read
    set colo to w+/gr
lady=" "
do aproba with lady,"Totul e-n regula ?"
if lady="D" then
	do modif9	
else 
	do modif8
endif

procedur modif9
    clea
    @1,4 say 'Antecedente personale   : '
    @1,30 get ant_person  pict'@!xxxxxxxxxxxxxxxxxxxxx';
         COLOR w+/r, w/r;                                
              messa 'Antecedente personale patologice (boli, operatii)?'
    @3,4 say 'Antecedente heredocolaterale: '
    @3,30 get boli_famil pict'@!xxxxxxxxxxxxxxxxxxx';
         COLOR w+/r, w/r;                                
                  messa 'Antecedente heredocolaterale (boli ale familiei) ?'
    @5,4 say 'Categorie carnet sofer      : '
    @5,30 get carne_sofer   pict'@!xxxxxxxxxxxxxxxxxxx';
         COLOR w+/r, w/r;                                
                    messa 'Categorie carnet sofer (ex. A,B,C,E )'
    @7,4 say 'Nr. carnet sofer        : '
    @7,30 get nr_carnet   pict'@!xxxxxxxxxxxxxxxxxxx';
         COLOR w+/r, w/r;                                
                    messa 'Nr. carnet sofer ?'
    @9,4 say 'Cont in banca           : '
    @9,30 get cont_banca pict'@!xxxxxxxxxxxxxxxxxxx';
         COLOR w+/r, w/r;                                               
                    messa 'Are cont in banca  ?'
    @11,4 say 'Imprumuturi bancare     : '
    @11,30 get impr_banca pict'@!xxxxxxxxxxxxxxxxxxx';
               COLOR w+/r, w/r;                                            
                    messa 'Imprumuturi bancare ?'
    @13,4 say 'Satisfacerea stagiului militar : '
    @13,30 get stag_milit pict'@!xxxxxxxxxxxxxxxxxxx';
               COLOR w+/r, w/r;                                            
                    messa 'Cursuri urmate  ?'
    read

lady=" "
do aproba with lady,"Totul e-n regula ?"
if lady="D" then
	do doresti
else 
	do modif9
endif