For HPB_For4i_pos = 1 To 100000
		  For HPB_For5i_pos = 1 To 18
		    If HPB_For5i_pos >= 11 And HPB_For5i_pos <= 16
		      EmuleMem.b = 0
		    EndIf
		    If HPB_For5i_pos = 17
		      EmuleMem.b = 1
		    EndIf
			Next
		Next