18 lines
378 B
Plaintext
18 lines
378 B
Plaintext
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
|
|
|