// IRG 2022 PROCEDURE By Boussaid Mustafa
// APC SALI 2022
PROCEDURE irg2022(i)

cyIrgn	is currency
p		is currency	= IntegerPart((IntegerPart(i))/10)*10

IF (i <= 30000 ) THEN
	cyIrgn = 0
ELSE
	
	SWITCH i
		CASE 20000 TO 40000 : cyIrgn = (p - 20000) * 0.23
		CASE 40000 TO 80000: cyIrgn = 4600 + (p - 40000) * 0.27
		CASE 80000 TO 160000: cyIrgn = 15400 + (p - 80000) * 0.3
		CASE 160000 TO 320000: cyIrgn = 39400 + (p - 160000) * 0.33		
		OTHER CASE: cyIrgn = 92200 + (p - 320000) * 0.35
	END

	Abat is real = (0.4 * cyIrgn)
	IF Abat < 1000 THEN Abat = 1000
	IF Abat > 1500 THEN Abat = 1500
	cyIrgn	= cyIrgn - Abat
	
	IF i <= 35000 THEN
		cyIrgn = Round(cyIrgn * (137/51)-(27925/8),1)
	END
END
RESULT cyIrgn