jali/PC-E220-Tools
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Attept to encode base64 in basic

Browse Source
This commit is contained in:
Alexander Noack
2023-02-22 00:15:17 +01:00
parent f9fe1bc935
commit e4c2ce85d9
1 changed files with 7 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
src/bas/mlloader.bas
View File

@@ -105,3 +105,10 @@
4186IF D>255 THEN D=0:C=C+1 4186IF D>255 THEN D=0:C=C+1
4190NEXT I 4190NEXT I
4999RETURN 4999RETURN
5000REM Encodes a list of bytes to base64
5010REM Takes variable D(189) and returns E(252).
5020FOR I=0 TO 189 BY 3
5030A=D(I)/4
5040B=((D(I) AND 3) * 16) OR (D(I+1)/16)
5050C=((D(I+1) AND 4) * 16) OR (D(I+2)/16)
5060E=(D(I+2) AND 4) * 16