100 ' <<< FADE / MIX >>> 105 ' 110 ' Pour Amstrad 464-664-6128 115 ' 120 ' Auteur : Brian CADGE 125 ' Revue  : Popular Computing Weekly 130 '          no 11 du 13/19-3-86 135 ' 140 ' --------------------------------- 145 ' 150 ' Explications et demonstration 155 ' 160 INK 0,0:INK 1,16:INK 3,7,24:BORDER 0:MODE 1 165 SPEED INK 50,2 170 GOSUB 275:' Appel de la routine 175 RESTORE 180:FOR t=40300 TO 40318:READ a$:POKE t,VAL("&"+a$):NEXT 180 DATA 21,FF,FF,11,3F,9C,01,00,40,7E,12,2B,1B,0B,78,B1,20,F7,C9 185 CALL 40300:' Ecran mis en RAM 190 PEN 1:LOCATE 6,1:PRINT"G E S T I O N    D ' E C R A N":PRINT:PRINT 195 PAPER 0:PEN 2:PRINT"   Effacement et affichage par pixels":PRINT:PRINT STRING$(40,"_") 200 PEN 1:LOCATE 6,9:PRINT "Deux commandes RSX nouvelles :" 205 PEN 3:LOCATE 11,11:PRINT"ùFADEOUT";:PEN 1:PRINT" et ";:PEN 3:PRINT"ùMIXSCN":PRINT 210 PEN 1:PRINT"ùFADEOUT,v : efface l'ecran.  La valeur":PRINT"             v donne la duree. Elle est":PRINT"             facultative." 215 PRINT:PRINT"ùMIXSCN,a,v : affiche un ecran mis en":PRINT"              RAM a partir de l'adresse":PRINT"              a. La vitesse v peut etre":PRINT"              omise." 220 PRINT:PRINT" La valeur v omise est zero par defaut." 225 PEN 2:LOCATE 6,25:PRINT"Exemple ==>> pressez une touche"; 230 MEMORY 23615:CALL 40300 235 WHILE INKEY$="":WEND 240 ùFADEOUT:FOR t=1 TO 3000:NEXT 245 MODE 1:ùMIXSCN,23616:FOR t=1 TO 3000:NEXT 250 GOTO 235 255 END 260 ' 265 ' Routine FADEMIX 270 ' 275 MEMORY 33999:RESTORE 310 280 FOR i=40000 TO 40202 285 READ a$:v=VAL("&"+a$) 290 cs=cs+v:POKE i,v 295 NEXT i 300 IF cs<>21606 THEN PRINT "Erreur de donnees - Liste a verifier";CHR$(7):STOP 305 CALL 40000:RETURN 310 DATA 01,4A,9C,21,11,9D,CD,D1,BC,C9,52,9C,C3,98,9C,C3,60,9C,4D,49,58,53 315 DATA 43,CE,46,41,44,45,4F,55,D4,00,FE,01,28,05,21,00,00,18,06,DD,6E,00 320 DATA DD,66,01,22,0D,9D,11,00,40,CD,DA,9C,7C,E6,3F,67,01,00,C0,09,36,00 325 DATA CD,8B,9C,1B,7A,B3,20,EB,C9,E5,2A,0D,9D,7C,B5,28,03,2B,18,F9,E1,C9 330 DATA FE,02,28,0C,FE,01,C0,21,00,00,DD,2B,DD,2B,18,06,DD,6E,00,DD,66,01 335 DATA 22,0D,9D,DD,6E,02,DD,66,03,22,0F,9D,11,00,40,CD,DA,9C,7C,E6,3F,67 340 DATA E5,ED,4B,0F,9D,09,7E,E1,01,00,C0,09,77,CD,8B,9C,1B,7A,B3,20,E4,C9 345 DATA F5,C5,D5,ED,4B,0B,9D,2A,0B,9D,CB,25,CB,14,09,44,4D,CB,25,CB,14,55 350 DATA CB,25,CB,14,CB,25,CB,14,09,44,4D,62,2E,29,B7,ED,42,22,0B,9D,D1,C1 355 DATA F1,2A,0B,9D,C9