Try this:
code:
Color b+/n
Box (0,0,24,79,GRID) ; FONDO CUADRADO
Color b/n
Box (8,21,18,61,Ć) ; SOMBRA CAJA
Color g+/n
Box (7,20,17,60,FULL) ; CAJA VERDE
Color w+/n
At (10,22) "Código Sucursal Anterior: " Color r+ $SucAnt ; Mostrar mensajes solicitud codigos sucursales
While Not $SucAct
	Color w+/n
	At (12,22) "Digite Código Sucursal Actual:       " At(12,53)
	Gets $SucAct
	If Cstr(Val($SucAct))<>$SucAct OR Len(Val($SucAct))<>3
		At(14,22) Color r+/n "Must be a 3 digit number!"
		$SucAct=""
	EndIf
Loop
Color w+/n
At (14,22) "Código Asesor, ej, 50,51,52: "
Gets $CodAse