visionmercer/qb64-include
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

precompile checks

Browse source
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
Download patch file Download diff file Expand all files Collapse all files

5
btoa.bm
View file

@ -1,3 +1,5 @@
$if btoa = undefined then
$let btoa = defined
Function btoa$ (s As String)
Const B64 = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"
Dim c1 As _Byte
@ -16,4 +18,5 @@ Function btoa$ (s As String)
If c4 > -1 Then Buffer = Buffer + Chr$(((c3 * 64 + c4) And 255))
Next i
btoa$ = Buffer
End Function
End Function
$end if