SUDESIGN decode1
      (
      test : INPUT;
      number[8..0][4..0] : OUTPUT;
      )
BEGIN
      IF test == 1
		THEN
			number[0] = 1;
			number[1] = 2;
			number[2] = 3;
			number[3] = 4;
			number[4] = 5;
			number[5] = 6;
			number[6] = 7;
			number[7] = 8;
		ELSE
			number[0] = 0;
			number[1] = 0;
			number[2] = 0;
			number[3] = 0;
			number[4] = 0;
			number[5] = 0;
			number[6] = 0;
			number[7] = 0;
		
		END IF;
END;