Function BinaryToString(Binary)
	Dim cl1, cl2, cl3, pl1, pl2, pl3
	Dim L
	Dim tstChar
	cl1 = 1
	cl2 = 1
	cl3 = 1
	L = LenB(Binary)
	Do While cl1<=L
		tstChar=Chr(AscB(MidB(Binary,cl1,1)))
		pl3 = pl3 & tstChar
		cl1 = cl1 + 1
		cl3 = cl3 + 1
		If cl3>300 Then
			pl2 = pl2 & pl3
			pl3 = ""
			cl3 = 1
			cl2 = cl2 + 1
			If cl2>200 Then
				pl1 = pl1 & pl2
				pl2 = ""
				cl2 = 1
			End If
		End If
	Loop
	BinaryToString = pl1 & pl2 & pl3
End function