Use PARAMET1
	cora:= cor1 + "/" + cor2
	corb:= "+" + cor1 + "/" + cor2
	corc:= cor2 + "/" + cor2
	cord:= cor3 + "/" + cor1
	Close
	vz:= 0
	Set Color To (cora)
	@ 0,0 Clear To 24,79
	@ 0,0 To 24,79 Double
	Set Color To (cora)
	@ 5,1 Say Replicate("=",78)
	@ 21,1 Say Replicate("=",78)
	Set Intensity Off
	setcursor(0)
	do while .t.
		cs1:= Space(4)
		@ 22,3 Say "DIGITE SUA SENHA..."
		@ 23,3 Say "ou <Esc> para encerrar"
		Set Color To (corc)
		@ 22,30 Get CS1 Picture "@!"
		Read
		If LastKey() = 27
			s:= "1"
			Exit
		ElseIf (!Empty(cs1))
			if (cs1 $ "xxxx#yyyy")
				Exit
			Else
				vz:= vz + 1
				@ 22,1 Clear To 23,78
				@ 22,3 Say "SENHA NAO CONFERE, VERIFIQUE !!!"
				InKey(2)
				@ 22,1 Clear To 23,78
				If (vz == 3)
					s:= "1"
					Exit
				EndIf
			EndIf
		EndIf			
	enddo