
* Ouvertures des fichiers

OPEN "","CIVILAIDE" TO F.CIVILAIDE ELSE PRINT "OUVERTURE CIVILAIDE" 
OPEN "","BESOINSAIDE" TO F.BESOINSAIDE ELSE PRINT "OUVERTURE BESOINSAIDE" 
*********************************************************

* initialisation des variables

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

* PROGRAMME PRINCIPAL

	EXECUTE 'SELECT CIVILAIDE AVEC 43 = ""'

    W_Fin="FAUX"

    LOOP
        READNEXT W_CleAide ELSE W_Fin = "VRAI"
    WHILE W_Fin = "FAUX" DO
		READ ENR_CIVILAIDE FROM F.CIVILAIDE,W_CleAide ELSE ENR_CIVILAIDE=""
		READ ENR_BESOINSAIDE FROM F.BESOINSAIDE,W_CleAide ELSE ENR_BESOINSAIDE=""
		IF W_CleAide[5,1]="0" OR W_CleAide[5,1]="2" OR W_CleAide[5,1]="4" OR W_CleAide[5,1]="6" OR W_CleAide[5,1]="8" THEN
			GOSUB 10
		END ELSE
			GOSUB 20
		END

		WRITE ENR_BESOINSAIDE ON F.BESOINSAIDE,W_CleAide
    REPEAT

STOP

********************************
10

	ENR_BESOINSAIDE<18,1>="0"
	ENR_BESOINSAIDE<18,2>="2"	
	ENR_BESOINSAIDE<18,3>="4"	
	
	ENR_BESOINSAIDE<19,1>="800"
	ENR_BESOINSAIDE<19,2>="1400"	
	ENR_BESOINSAIDE<19,3>="1700"	

	ENR_BESOINSAIDE<20,1>="1000"
	ENR_BESOINSAIDE<20,2>="1700"	
	ENR_BESOINSAIDE<20,3>="2000"	

	ENR_BESOINSAIDE<21,1>="100"
	ENR_BESOINSAIDE<21,2>="200"	
	ENR_BESOINSAIDE<21,3>="100"		
	
RETURN

********************************
20

	ENR_BESOINSAIDE<18,1>="1"
	ENR_BESOINSAIDE<18,2>="3"	
	ENR_BESOINSAIDE<18,3>="4"	
	
	ENR_BESOINSAIDE<19,1>="900"
	ENR_BESOINSAIDE<19,2>="1500"	
	ENR_BESOINSAIDE<19,3>="1000"	

	ENR_BESOINSAIDE<20,1>="1200"
	ENR_BESOINSAIDE<20,2>="1800"	
	ENR_BESOINSAIDE<20,3>="1500"	

	ENR_BESOINSAIDE<21,1>="200"
	ENR_BESOINSAIDE<21,2>="200"	
	ENR_BESOINSAIDE<21,3>="100"	

RETURN