10 OPEN "R",1,"KAYKER.B64",4
20 OPEN "R",2,"KAYKER.COM",3
30 FIELD 1,4 AS I$
40 FIELD 2,3 AS O$
50 FOR I=1 TO 1E+06
60 GET 1,I
70 IF (ASC(MID$(I$,1,1))=10) THEN GOTO 200
80 BB$=""
90 B=(ASC(MID$(I$,1,1))):GOSUB 210:BB$=BB$+B$
100 B=(ASC(MID$(I$,2,1))):GOSUB 210:BB$=BB$+B$
110 IF (MID$(I$,3,1)<>"=") THEN B=(ASC(MID$(I$,3,1))):GOSUB 210:BB$=BB$+B$
120 IF (MID$(I$,4,1)<>"=") THEN B=(ASC(MID$(I$,4,1))):GOSUB 210:BB$=BB$+B$
130 OX$=MID$(BB$,1,8):GOSUB 350:OF$=CHR$(OX)
140 IF (LEN(BB$)<16) THEN OF$=OF$+CHR$(26)
150 IF (LEN(BB$)>15) THEN OX$=MID$(BB$,9,8):GOSUB 350:OF$=OF$+CHR$(OX)
160 IF (LEN(BB$)<24) THEN OF$=OF$+CHR$(26)
170 IF (LEN(BB$)=24) THEN OX$=MID$(BB$,17,8):GOSUB 350:OF$=OF$+CHR$(OX)
180 LSET O$=OF$:PUT 2,I
190 NEXT
200 CLOSE:END
210 IX=0
220 IF ((B>=65) AND (B<=90)) THEN IX=B-65
230 IF ((B>=97) AND (B<=122)) THEN IX=B-71
240 IF ((B>=48) AND (B<=57)) THEN IX=B+4
250 IF B=43 THEN IX=62
260 IF B=47 THEN IX=63
270 B$=""
280 IF (IX AND 32) THEN B$=B$+"1" ELSE B$=B$+"0"
290 IF (IX AND 16) THEN B$=B$+"1" ELSE B$=B$+"0"
300 IF (IX AND 8) THEN B$=B$+"1" ELSE B$=B$+"0"
310 IF (IX AND 4) THEN B$=B$+"1" ELSE B$=B$+"0"
320 IF (IX AND 2) THEN B$=B$+"1" ELSE B$=B$+"0"
330 IF (IX AND 1) THEN B$=B$+"1" ELSE B$=B$+"0"
340 RETURN
350 OX=0
360 IF (MID$(OX$,1,1)="1") THEN OX=OX+128
370 IF (MID$(OX$,2,1)="1") THEN OX=OX+64
380 IF (MID$(OX$,3,1)="1") THEN OX=OX+32
390 IF (MID$(OX$,4,1)="1") THEN OX=OX+16
400 IF (MID$(OX$,5,1)="1") THEN OX=OX+8
410 IF (MID$(OX$,6,1)="1") THEN OX=OX+4
420 IF (MID$(OX$,7,1)="1") THEN OX=OX+2
430 IF (MID$(OX$,8,1)="1") THEN OX=OX+1
440 RETURN