1 S=&H9000:E=&H9100
2 READ A$
3 FOR I=1 TO LEN(A$)
4 A=ASC(MID$(A$,I,1))
5 IF A>96 THEN B=A-71:GOTO 10
6 IF A>64 THEN B=A-65:GOTO 10
7 IF A>47 THEN B=A+4:GOTO 10
8 IF A=43 THEN B=62:GOTO 10
9 IF A=47 THEN B=63
10 C=C+6
11 IF C=6 THEN D=B:GOTO 16
12 IF C=12 THEN POKE S,D*4+(B AND 48)/16:D=B AND 15:C=4:GOTO 15
13 IF C=10 THEN POKE S,D*16+(B AND 60)/4:D=B AND 3:C=2:GOTO 15
14 IF C=8 THEN POKE S,D*64+B:C=0
15 S=S+1:IF S=E THEN END
16 NEXT:GOTO 2
500 DATA AAECAwQFBgcICQoLDA0OD
510 DATA xAREhMUFRYXGBkaGxwdHh
520 DATA 8gISIjJCUmJygpKissLS4
530 DATA vMDEyMzQ1Njc4OTo7PD0+
540 DATA P0BBQkNERUZHSElKS0xNT
550 DATA k9QUVJTVFVWV1hZWltcXV
560 DATA 5fYGFiY2RlZmdoaWprbG1
570 DATA ub3BxcnN0dXZ3eHl6e3x9
580 DATA fn+AgYKDhIWGh4iJiouMj
590 DATA Y6PkJGSk5SVlpeYmZqbnJ
600 DATA 2en6ChoqOkpaanqKmqq6y
610 DATA trq+wsbKztLW2t7i5uru8
620 DATA vb6/wMHCw8TFxsfIycrLz
630 DATA M3Oz9DR0tPU1dbX2Nna29
640 DATA zd3t/g4eLj5OXm5+jp6uv
650 DATA s7e7v8PHy8/T19vf4+fr7
660 DATA /P3+/w==