10 OPEN"0:ab.dic"FORINPUTAS1 20 OPEN"0:ab.pac"FOROUTPUTAS2 30 LINEINPUT#1,A$ 35 PRINTA$ 40 IFLEN(O$)>LEN(A$)THENMX=LEN(A$)ELSEMX=LEN(O$) 50 IFMX=0THEN90 60 FORC=1TOMX 70 IFMID$(O$,C,1)=MID$(A$,C,1)THENI=I+1ELSEC=MX+1 80 NEXTC 90 P$=CHR$(128+I)+MID$(A$,I+1) 95 PRINTP$ 100 PRINT#2,P$; 110 O$=A$:I=0 120 GOTO30