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 |