
1 MEMORY &7FFF:LOAD"AMSP#1.BIN":LOAD"AMSP#2.BIN"
9000 RESTORE 9100
9010 tbl=&4000
9020 spt=4
9030 POKE &8001,ABS(tbl MOD 256)
9040 POKE &8002,ABS(tbl\256)
9050 POKE &8004,spt
9060 POKE &80E9,ABS(tbl MOD 256)
9070 POKE &80EA,ABS(tbl\256)
9080 POKE &80EC,spt
9090 FOR f=tbl TO tbl+22*spt-1:READ byte:POKE f,byte:next f
9095 ' STRITE 1 & 2 (hypocampe no1): 2x 4 pixels * 8 lignes.
9100 DATA 0,10,40,10,40,0,0,0,0,0,0,0,0
9110 DATA 1,&50,&70,&50,&10,&30,&30,&60,&30
9120 DATA 2,9,41,9,41,0,0,0,0,0,0,0,0
9130 DATA 1,&80,&48,&E2,&E6,&C4,&00,&40,&80
9135 ' STRITE 3 & 4 (hypocampe no2): 2x 4 pixels * 8 lignes.
9140 DATA 0,10,20,10,20,0,0,0,0,0,0,0,0
9150 DATA 1,&50,&70,&50,&10,&30,&30,&60,&30
9160 DATA 2,9,21,9,21,0,0,0,0,0,0,0,0
9170 DATA 1,&80,&48,&E2,&E6,&C4,&00,&40,&80
9180 '
9190 CALL &80E8
9210 CALL &8000
9260 s1=INT(RND*16):s2=INT(RND*16)
9270 POKE tbl,s1:POKE tbl+22,s1:POKE tbl+44,s2:POKE tbl+66,s2
9280 if inkey$="" AND cnt<1000 then GOTO 9210
9290 RUN"!DEMO1"
9300 ' Quatres lutins (Sprites) sont utilises ici.
9310 ' Martrice: 8*8
9320 '           !0!1!0!1!+!1!0!0!0!
9330 '           !0!1!1!1!+!2!1!0!0!
9340 '           !0!1!0!1!+!1!1!3!0! 
9350 '           !0!0!0!1!+!1!3!3!0!
9360 '           !0!0!1!1!+!1!3!0!0!
9370 '           !0!0!1!1!+!0!0!0!0!
9380 '           !0!1!1!0!+!0!1!0!0!
9390 '           !0!0!1!1!+!1!0!0!0!
9400 ' 0:PEN 0, 1:PEN 1, 2:PEN 2, 3:PEN 3
9410 ' 
9420 '       !0!1!0!1! : 0101!0000 = &50
9430 '       !0!1!1!1! : 0111!0000 = &70
9440 '       !0!1!0!1! : 0101!0000 = &50
9450 '       !0!0!0!1! : 0001!0000 = &10
9460 '       !0!0!1!1! : 0011!0000 = &30
9470 '       !0!0!1!1! : 0011!0000 = &30
9480 '       !0!1!1!0! : 0110!0000 = &60
9490 '       !0!0!1!1! : 0011!0000 = &30
9500 ' &50,&70,&50,&10,&30,&30,&60,&30
9510 '
9520 '       !1!0!0!0! : 1000!0000 = &80
9530 '       !2!1!0!0! : 0100!1000 = &48
9540 '       !1!1!3!0! : 1110!0010 = &E2
9550 '       !1!3!3!0! : 1110!0110 = &E6
9560 '       !1!3!0!0! : 1100!0100 = &C4
9570 '       !0!0!0!0! : 0000!0000 = &00
9580 '       !0!1!0!0! : 0100!0000 = &40
9590 '       !1!0!0!0! : 1000!0000 = &80
9600 ' &80,&48,&E2,&E6,&C4,&00,&40,&80
9610 '
9620 '    
9630 'ou 1xxx!0xxx=&80 :pixel 1 en pen 1
9640 'ou 0xxx!1xxx=&08 :pixel 1 en pen 2
9650 'ou 1xxx!1xxx=&88 :pixel 1 en pen 3

