SUBDESIGN test( test : INPUT; number[7..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;