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