10 ' routine 364 couleurs sur amstrad en mode 2
20 ' (c) 1990 Croco Computer Club pour Amstar&CPC
30 MODE 2:AD=&A000:NL=90
40 FOR A=1 TO 14:B=0:FOR C=1 TO 15:READ A$
50 POKE AD,VAL("&"+A$):B=B+PEEK(AD):AD=AD+1
60 NEXT:READ E$:IF VAL("&"+E$)<>B THEN 80
70 NL=NL+10:NEXT:GOTO 230
80 CLS:PRINT"LIGNE"NL;" INCORRECTE":END
90 DATA 01,00,00,CD,38,BC,3E,02,CD,0E,BC,21,00,C0,11,48B
100 DATA 01,C0,01,FF,3F,36,AA,ED,B0,F3,2A,39,00,22,98,68D
110 DATA A0,21,36,A0,22,39,00,FB,FB,76,CD,1B,BB,30,F9,72A
120 DATA F3,2A,98,A0,22,39,00,FB,C9,F3,06,F5,ED,78,1F,7E6
130 DATA D0,21,35,01,2B,7C,B5,20,FB,00,00,DD,21,9C,A0,5D8
140 DATA 2A,9A,A0,06,00,7C,32,5E,A0,7D,32,65,A0,C5,01,590
150 DATA 00,7F,DD,7E,00,ED,49,ED,79,DD,7E,00,0C,ED,49,713
160 DATA ED,79,2C,CB,6D,CB,AD,CA,7E,A0,24,CB,AC,C1,00,886
170 DATA 00,10,D5,C3,86,A0,3C,CB,AC,C1,00,00,10,CA,2A,646
180 DATA 9A,A0,2C,CB,6D,CB,AD,28,03,24,CB,AC,22,9A,A0,738
190 DATA FB,C3,41,B9,00,00,44,55,57,53,57,55,44,5C,4C,593
200 DATA 4E,4B,4E,4C,5C,58,45,4D,4F,4D,45,58,4C,4E,4A,496
210 DATA 4B,4A,4E,4C,44,44,44,44,44,44,44,44,44,44,00,3D7
220 DATA 42,00,00,00,00,00,00,00,00,00,00,00,00,00,00,42
230 MODE 2:INK 0,0:BORDER 0:CALL &A000:CLS