10 POKE53371,0
100 HT=0:PS=16384:PE=PS+260
102 DIMHS(50),HD(50)
110 IFPEEK(16383)=234THEN130
120 K=0:FORI=0TO9:FORJ=1TO26
122 POKEPS+K,64+J
124 K=K+1
126 NEXT:NEXT
128 POKE16383,234
130 WD$="ACEG":LE=4
140 FORI=1TOLE
150 WD(I)=ASC(MID$(WD$,I,1))
160 NEXT
168 TI$="000000"
170 GOSUB1000
180 FORI=1TOHT
182 PRINT"";:IFI>SPTHENPRINT"[158]";
184 PRINTITAB(5)HS(I)TAB(13)HD(I)
186 NEXT
188 PRINT:PRINTTI"JIFFIES"
190 STOP
1000 B=PS-1
1060 B=B+1
1062 IFB>PETHEN1170
1070 IFPEEK(B)<>WD(1)THEN1060
1080 BE=B
1082 MX=(PE-BE)/(LE-1)+1
1084 B=B+1
1086 IF(B-BE)>MXTHENB=BE:GOTO1060
1090 IFPEEK(B)<>WD(2)THEN1084
1100 DI=B-BE
1110 M=2
1120 IFPEEK(BE+DI*M)<>WD(M+1)THEN1084
1130 M=M+1
1140 IFM<LE THEN1120
1150 HT=HT+1
1152 HS(HT)=BE:HD(HT)=DI
1160 GOTO1084
1170 B=PE+1:SPLIT=HT
1180 B=B-1
1190 IFB<PSTHEN RETURN
1200 IFPEEK(B)<>WD(1)THEN1180
1210 BE=B
1212 MX=INT((B-PS)/(LE-1))+1
1220 B=B-1
1230 IF(BE-B)>MXTHENB=BE:GOTO1180
1240 IFPEEK(B)<>WD(2)THEN1220
1250 DI=BE-B
1260 M=2
1270 IFPEEK(BE-DI*M)<>WD(M+1)THEN1180
1280 M=M+1
1290 IFM<LE THEN1270
1300 HT=HT+1
1310 HS(HT)=BE:HD(HT)=DI
1320 GOTO1220
10000 D=PEEK(186):N$="0:ALGORITHM":OPEN15,D,15,"S"+N$:CLOSE15:SAVEN$,D:END