I count two whiles but one wend

Code:
WHILE 1
A:		' CHECK IF MODEM IS WORKING OK AND SET ECHO OFF
			HSEROUT2 ["SENDING AT",13,10]
			HSEROUT ["AT",13,10]
			GoSub GetResponse			

			HSEROUT ["ATE0",13,10]
			GoSub GetResponse	
			HSEROUT2 ["ATE0 RESULT=OK",STR MESS\500,13,10]

WHILE 1
			HSEROUT2 ["SEND COMMAND",13,10]
			HSERIN2 [STR MESS\500\13]
			HSEROUT2 ["SENDING-",STR MESS,13,10]
			HSEROUT [STR MESS,13,10]
			GoSub GetResponse
WEND