loop1:
	mov dx, [index]
	call CHECK_DIV_BY_7
	mov  [var1], ax
	call CHECK_IF_DIGIT_7
	mov bx,ax
	cmp bx,1
	je end2
	cmp [var1], 1
	je end2
	mov ax,[index]
	call PRINT_NUM_DEC
	call NEW_LINE
	end2:
	inc [index]
	cmp [index], 30
	jbe loop1