10 REM         MUTATE!INDEXER
20 REM         COPYRIGHT 1992
30 REM  COMPUTE PUBLICATIONS INTL LTD
40 REM      ALL RIGHTS RESERVED
50 REM
60 REM  ALL MUTATE! PROGRAMS & FONTS
70 REM     WRITTEN BY GARY NOAKES
80 REM
90 POKE53280,0:POKE53281,0:PRINT"[147]":CLR:I1$="   [211]TAND [194]Y..."
100 I2$="     [195]OMPLETED   ":FI$="$:M!*":DIMA$,B$,F,G,I,LM,T,X,FO$(73)
110 PRINT"[147][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]"
120 PRINT"[153]              [205] [213] [212] [193] [212] [197] !            "
130 PRINT"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]":PRINTSPC(14)"[155][198]ONT [201]NDEXER"
140 PRINT"  [146] [155][208]LACE DISK IN DEVICE 8- PRESS [210][197][212][213][210][206]"
150 GETG$:IFG$<>CHR$(13)THEN150
160 POKE214,7:PRINT
170 PRINT"  [146] [155][211]EARCHING DIRECTORY FOR "+CHR$(34)+"[205]!"+CHR$(34)+" FONTS."
180 PRINTI1$:OPEN3,8,0,"$0:M!*":POKE781,3:SYS65478:GETA$,A$
190 GETA$,A$:IFA$=""THEN230
200 GETA$,B$
210 GETA$:IFA$=""THENLM=LM+1:GOTO190
220 FO$(LM)=FO$(LM)+A$:GOTO210
230 CLOSE3:SYS65484
240 POKE214,8:PRINT:PRINTI2$
250 PRINT"  [146] [155][195]ONVERTING FILENAMES INTO ARRAYS.":PRINTI1$
260 LM=LM-2:IFLM>30THENLM=30
270 FORI=1TOLM:FO$(I)=MID$(FO$(I),5,17):NEXT
280 FORI=1TOLM:B$="":FORX=1TO16:A$=MID$(FO$(I),X,1):IFA$=CHR$(34)THENA$="":X=17
290 B$=B$+A$:NEXT:FO$(I)=B$:NEXT
300 POKE214,10:PRINT:PRINTI2$
310 PRINT"  [146] [155][211]ORTING FILENAMES ALPHABETICALLY.":PRINTI1$
320 X=0:T=0:I=0:G=LM:A$=""
330 G=INT(G/2):IFG=0THEN380
340 F=0:FORI=1TO(LM-G):X=X+1:IFFO$(I)<FO$(I+G)THEN360
350 A$=FO$(I):FO$(I)=FO$(I+G):FO$(I+G)=A$:T=T+1:F=1
360 NEXT:IFFTHEN340
370 GOTO330
380 POKE214,12:PRINT:PRINTI2$
390 PRINT"  [146] [155][211]CRATCHING OLD "+CHR$(34)+"[205][213][212][193][212][197]![201][206][196][197][216]"+CHR$(34)+" FILE."
400 PRINTI1$:OPEN15,8,15:PRINT#15,"S0:MUTATE!INDEX":PRINT#15,"UI"
410 CLOSE15:POKE214,14:PRINT:PRINTI2$
420 PRINT"  [146] [155][215]RITING NEW "+CHR$(34)+"[205][213][212][193][212][197]![201][206][196][197][216]"+CHR$(34)+" FILE."
430 PRINTI1$:OPEN2,8,2,"MUTATE!INDEX,S,W":PRINT#2,LM:FORI=1TOLM:PRINT#2,FO$(I)
440 NEXT:CLOSE2:POKE214,16:PRINT:PRINTI2$:FORI=1TO2000:NEXT
450 PRINT"[147][155]"SPC(10)"[201]NDEX ANOTHER DISK?":PRINTSPC(17)"<[217]/[206]>"
460 GETG$:IFG$="N"THENPRINT"[147]	":END
470 IFG$<>"Y"THEN460
480 GOTO90