1 'Kukulcan 2014 2 'Incrustation Couleur CPC+ 10 MODE 1:BORDER 0:INK 0,0:INK 1,26:PEN 1 20 INPUT "Nom du fichier (.SCR)",file$ 30 IF file$="" THEN CAT:GOTO 20 40 MODE 0 50 LOAD file$+".SCR" 60 RESTORE 130:FOR i=&F7D0 TO &F7FD:READ a$:POKE i,VAL("&"+a$):NEXT 70 RESTORE 150:FOR i=&FFD0 TO &FFDE:READ a$:POKE i,VAL("&"+a$):NEXT 80 RESTORE 170:FOR i=0 TO 15:READ a$:b=VAL("&"+LEFT$(a$,2)):a=VAL("&"+RIGHT$(a$,2)):POKE &FFE0+(i*2),a:POKE &FFE0+(i*2)+1,b:NEXT 90 RESTORE 180:FOR i=&EFD0 TO &EFD6:READ a$:POKE i,VAL("&"+a$):NEXT 100 SAVE file$+".+++",B,&C000,&4000 110 END 120 'delock asic 130 DATA F3,3E,11,21,ED,F7,06,BD,ED,A3,3D,20,F9,01,B8,7F,ED,49,21,F9,B7,CD,DD,BC,CD,D0,FF,FB,C9,FF,00,FF,77,B3,51,A8,D4,62,39,9C,46,2B,15,8A,CD,EE 140 'ROUTINE ASM TRANSFERT COULEUR 150 DATA 21,E0,FF,11,00,64,01,20,00,ED,B0,CD,D0,EF,C9 160 'COULEUR CPC+ A AJOUTER DANS L'IMAGE 170 DATA 0888,0AAA,0999,0777,0CCC,0BBB,0555,0666,0444,0EEE,0DDD,0333,0FFF,0222,0111,0000 180 'couleur BORDER (penser au poids fort et faible) 190 DATA 21 200 DATA AA:'couleur BORDER ROUGE-BLEU 210 DATA 0A:'couleur BORDER VERT 220 DATA 22,20,64,C9