precompile checks

This commit is contained in:
visionmercer 2022-09-19 01:27:48 +02:00
commit 3edb188921
22 changed files with 458 additions and 9 deletions

View file

@ -1,3 +1,5 @@
$if urldecode = undefined then
$let urldecode = defined
Function urldecode$ (strng As String)
Dim Tmpstr As String
Do Until count >= Len(strng)
@ -14,3 +16,4 @@ Function urldecode$ (strng As String)
Loop
urldecode = Tmpstr
End Function
$end if