BASE64E.BAS

0 U=1:D=2:T=3:Q=4:H=16:G=15:S=64:R=63:E$="="
1 B$="ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"
2 GOTO 1000
100 Z=U:ZZ=LEN(Z$):ZZ$="":IFZZ<TTHEN125
105 A=ASC(MID$(Z$,Z,U)):B=ASC(MID$(Z$,Z+U,U)):C=ASC(MID$(Z$,Z+D,U))
110 ZZ$=ZZ$+MID$(B$,A/Q+U,U)+MID$(B$,H*(AANDT)+B/H+U,U)
115 ZZ$=ZZ$+MID$(B$,Q*(BANDG)+C/S+U,U)+MID$(B$,(CANDR)+U,U)
120 Z=Z+T:IFZ<ZZ-UTHEN105
125 IFZ<=ZZTHENA=ASC(MID$(Z$,Z,U)):ZZ$=ZZ$+MID$(B$,A/Q+U,U)
130 IFZ=ZZTHENZZ$=ZZ$+MID$(B$,H*(AANDT)+U,U)+E$+E$
140 IFZ+U=ZZTHENB=ASC(MID$(Z$,Z+U,U))
145 IFZ+U=ZZTHENZZ$=ZZ$+MID$(B$,H*(AANDT)+B/H+U,U)+MID$(B$,Q*(BANDG)+U,U)+E$
150 RETURN
1000 REM BEGIN
1001 REM INPUT Z$:GOSUB100
1002 Z$="HELLO BEAUTIFUL WORLD!":GOSUB 100:?ZZ$
1003 Z$="DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD":GOSUB 100:?ZZ$
1004 Z$="DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD":GOSUB 100:?ZZ$
1005 Z$="DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD":GOSUB 100:?ZZ$
1006 Z$="DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD":GOSUB 100:?ZZ$
1008 Z$="D":GOSUB 100:?ZZ$
1009 Z$="DD":GOSUB 100:?ZZ$
1010 Z$="DDD":GOSUB 100:?ZZ$
1011 Z$="DDDD":GOSUB 100:?ZZ$
1012 Z$="DDDDD":GOSUB 100:?ZZ$
1013 Z$="DDDDDD":GOSUB 100:?ZZ$