Subroutine TEST_JARED(void)
Declare Function SRP_Decode
DstFilePath = "c:\temp\temp.zip"
SrcFilePath = "C:\temp\file.b64.txt"
OSRead SrcFile From SrcFilePath Else Debug
Err = ''
Data = SRP_Decode(SrcFile, 'BASE64')
DstFile = ""

OSWrite "" To DstFilePath
OSOpen DstFilePath To DstFile Then
	OSBWrite Data To DstFile At 0
	OSClose DstFile
End Else 
	debug 
End