From e4c2ce85d9e792300bcea22cb23ba2752ab1ad1f Mon Sep 17 00:00:00 2001
From: Jali <jali@orca-central.de>
Date: Wed, 22 Feb 2023 00:15:17 +0100
Subject: [PATCH] Attept to encode base64 in basic

---
 src/bas/mlloader.bas | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/src/bas/mlloader.bas b/src/bas/mlloader.bas
index 299810d..0bd2a77 100644
--- a/src/bas/mlloader.bas
+++ b/src/bas/mlloader.bas
@@ -105,3 +105,10 @@
 4186IF D>255 THEN D=0:C=C+1
 4190NEXT I
 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