added LSL2 stored procedures
This commit is contained in:
17
LSL2/STPROC/TEST_JARED.txt
Normal file
17
LSL2/STPROC/TEST_JARED.txt
Normal file
@ -0,0 +1,17 @@
|
||||
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
|
||||
|
Reference in New Issue
Block a user