EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","HISTORCUMUL" TO F.HISTOR ELSE STOP

EXECUTE 'SELECT HISTORCUMUL AVEC 0 = "[2001001"'

PRINT "RUB 1 (TOTAL)"
INPUT W_RUB1
PRINT "RUB 2 (PLAF)"
INPUT W_RUB2

W_FIN=0
W_TOTAL=0
W_TOTAL2=0
LOOP
	READNEXT CLE ELSE W_FIN=1
	UNTIL W_FIN=1 DO

	W_T1=0
	W_T2=0
	W_T3=0

	READ ENR_HISTORCUMUL FROM F.HISTOR,CLE ELSE ENR_HISTORCUMUL=""
	I=1
	LOOP
		UNTIL ENR_HISTORCUMUL<15,I>="" DO
	
		IF ENR_HISTORCUMUL<15,I>=W_RUB1 THEN 
			W_TOTAL=W_TOTAL+ENR_HISTORCUMUL<17,I>
			W_T1=ENR_HISTORCUMUL<17,I>
		END
		IF ENR_HISTORCUMUL<15,I>=W_RUB2 THEN
			W_TOTAL2=W_TOTAL2+ENR_HISTORCUMUL<17,I>	
			W_T2=ENR_HISTORCUMUL<17,I>
		END
 
		I=I+1
	REPEAT

	IF INT(W_T1)#INT(W_T2) THEN PRINT CLE[1,5]:" TOTAL = ":W_T1:" PLAF = ":W_T2:" DIFF = ":W_T1-W_T2

REPEAT

PRINT W_TOTAL-W_TOTAL2
