;Temps d’exécution du programmes environ 3mn 1 'Kukulcan 2015 2 'Conversion 64 sprites hard v0.1a 10 OPENOUT "D":MEMORY &3FFF:CLOSEOUT 20 MODE 1:INK 0,0:INK 1,26:PEN 1:GOSUB 340 30 INPUT "Fichier (.SCR)",file$ 40 IF file$="" THEN ùDIR,"*.SCR":GOTO 30 50 CALL &BC02:MODE 0:INK 15,0 60 LOAD file$+".SCR",&C000 70 adr=&4000 80 FOR ligne=0 TO 7 90 FOR colonne=0 TO 7 100 FOR y=399-(ligne*16*2) TO 399-(15*2)-(ligne*16*2) STEP -2 110 FOR x=(0+colonne*64) TO 60+(colonne*64) STEP 4 120 a=TEST(x,y):PLOT x,y,15 130 POKE adr,a 140 adr=adr+1 150 NEXT x 160 NEXT y 170 NEXT colonne 180 NEXT ligne 190 '*** SAVE - 64 sprites hard *** 200 SAVE file$+".64S",b,&4000,&4000 210 '*** SAVE - Palette *** 220 LOAD file$+".PAL",&8809 230 FOR i=1 TO 15 240 rouge=couleur(PEEK(&880C+(i*12))) 250 bleu=couleur(PEEK(&880D+(i*12))) 260 vert=couleur(PEEK(&880E+(i*12))) 270 RB=bleu+(rouge*16) 280 V=vert 290 POKE &6420+(i*2),RB 300 POKE &6421+(i*2),V 310 NEXT i 320 SAVE file$+".64P",b,&6422,30 330 END 340 '*** ConvImgCpc - DECODAGE DES ENCRES DU PAL POUR CPC+ *** 350 DIM couleur(128) 360 couleur(&4B)=0 370 couleur(&43)=1 380 couleur(&4A)=2 390 couleur(&5B)=3 400 couleur(&59)=4 410 couleur(&5A)=5 420 couleur(&53)=6 430 couleur(&42)=7 440 couleur(&52)=8 450 couleur(&4F)=9 460 couleur(&47)=10 470 couleur(&4E)=11 480 couleur(&5F)=12 490 couleur(&40)=13 500 couleur(&5E)=14 510 couleur(&57)=15 520 RETURN

;Amélioration de T&J du GPA ;Par défaut, les variables en basic sont des réels. ;En faisant un DEFINT, tu définis des variables de type integer ;C'est plus rapide à manipuler pour le Basic ;Temps d’exécution du programmes environ 2mn 30s 1 'Kukulcan 2015 / T&J GPA 2 'Conversion 64 sprites hard v0.1b 5 DEFINT b-z 10 OPENOUT "D":MEMORY &3FFF:CLOSEOUT 20 MODE 1:INK 0,0:INK 1,26:PEN 1:GOSUB 340 30 INPUT "Fichier (.SCR)",file$ 40 IF file$="" THEN ùDIR,"*.SCR":GOTO 30 50 CALL &BC02:MODE 0:INK 15,0 60 LOAD file$+".SCR",&C000 70 adr=&4000 80 FOR li=0 TO 7:FOR co=0 TO 7 100 FOR y=399-li*32 TO 369-li*32 STEP -2 110 FOR x=co*64 TO 60+co*64 STEP 4 120 b=TEST(x,y):PLOT x,y,15 130 POKE adr,b:adr=adr+1 140 NEXT:NEXT:NEXT:NEXT 190 '*** SAVE - 64 sprites hard *** 200 SAVE file$+".64S",b,&4000,&4000 210 '*** SAVE - Palette *** 220 LOAD file$+".PAL",&8809 230 FOR i=1 TO 15 240 rouge=couleur(PEEK(&880C+(i*12))) 250 bleu=couleur(PEEK(&880D+(i*12))) 260 vert=couleur(PEEK(&880E+(i*12))) 270 RB=bleu+(rouge*16) 280 V=vert 290 POKE &6420+(i*2),RB 300 POKE &6421+(i*2),V 310 NEXT i 320 SAVE file$+".64P",b,&6422,30 330 END 340 '*** ConvImgCpc - DECODAGE DES ENCRES DU PAL POUR CPC+ *** 350 DIM couleur(128) 360 couleur(&4B)=0 370 couleur(&43)=1 380 couleur(&4A)=2 390 couleur(&5B)=3 400 couleur(&59)=4 410 couleur(&5A)=5 420 couleur(&53)=6 430 couleur(&42)=7 440 couleur(&52)=8 450 couleur(&4F)=9 460 couleur(&47)=10 470 couleur(&4E)=11 480 couleur(&5F)=12 490 couleur(&40)=13 500 couleur(&5E)=14 510 couleur(&57)=15 520 RETURN