DESGN5: CALL CLEAR ;Sub Routine for pattern5