10 REM MUTATE! AND ALL INCLUDED FILES
20 REM         COPYRIGHT 1994
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]":POKE53265,11:POKE788,52
100 POKE56576,148:POKE648,192:PRINT"[147]":POKE53272,10:POKE56334,0:POKE1,51
110 POKE88,0:POKE89,240:POKE90,0:POKE91,224:POKE781,9:POKE782,0:SYS41964
120 POKE1,55:POKE56334,1
130 A$="[221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221][160][221] [221][160][221][160][221][160][221][160][221][160][221] [221] [221]"
140 B$="[171][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][179]"
150 POKE214,9:PRINT:PRINT"[155][176][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][174]"
160 FORI=1TO6:PRINTA$:PRINTB$:NEXT:PRINTA$
170 PRINT"[173][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][189]"
180 POKE214,10:PRINT:PRINT" [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174] "
190 PRINT" [221][195][207][205][208][213][212][197]'[211] [199]AZETTE [208]RESENTS:[221] [151][192][219]"
200 PRINT" [221]     [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]     [221] [151] [221]"
210 PRINT" [221]     [153][165] [205] [213] [212] [193] [212] [197] ! [167][187]    [221] [151][192][219]"
220 PRINT" [221]     [163][146][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][190]    [221] [151] [221]"
230 PRINT" [221]  [193] [214]IDEO [212]ITLING [208]ROGRAM  [221] [151][192][219]"
240 PRINT" [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189] [151] [221]"
250 PRINT"[151][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219]"
260 PRINT" [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174] "
270 PRINT" [221]                           [221] [151] [221]"
280 PRINT" [221]                           [221] [151][192][219]"
290 PRINT" [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189] [151] [221]"
300 PRINTSPC(6)"[151][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177]":POKE53265,27
310 A$="  [204]OADING [198][207][206][212] [196]ATA":GOSUB490
320 POKE147,0:SYS57812"MUTATE!FONT",8,1:SYS62631
330 A$=" [204]OADING [200][197][204][208] [211]CREENS":GOSUB490
340 POKE147,0:SYS57812"MUTATE!HELP",8,1:SYS62631
350 A$="[204]OADING [205]ORE [198][207][206][212] [196]ATA":GOSUB490
360 SYS57812"M!MUTATE!",8,0:POKE780,0:POKE781,0:POKE782,240:SYS65493
370 OPEN15,9,15:CLOSE15:IFST<>0THENPOKE251,8:GOTO450
380 OPEN15,9,15:PRINT#15,"UI":INPUT#15,E,E$:CLOSE15
390 DR=VAL(RIGHT$(E$,4)):IF(DR<1541ORDR>1571)THEN450
400 POKE214,20:PRINT:PRINTTAB(7)""DR"[157] [196]RIVE #9 DETECTED!"
410 PRINTTAB(7)"[213]SE FOR TEXT FILES? [153][[217]/[206]]"
420 GETG$:IFG$="N"THENPOKE251,8:GOTO450
430 IFG$="Y"THENPOKE251,9:GOTO450
440 GOTO420
450 A$=" [204]OADING [205][193][201][206] [208][210][207][199][210][193][205] ":GOSUB490
460 PRINT"[144]POKE43,53:POKE44,3:POKE820,0:NEW"
470 PRINT"LOAD"CHR$(34)"MUTATE!"CHR$(34)",8"
480 PRINT"RUN":POKE631,19:FORI=632TO634:POKEI,13:NEXT:POKE198,4:END
490 POKE214,20:PRINT:PRINTTAB(7)"  "A$
500 PRINTTAB(7)"     [208]LEASE [211]TAND [194]Y      [144]":RETURN