6000 ' DEMO ET CODES AMSPRITE DE 
6001 '   RAPHAEL SEBAN.(1985)
6010 '  Voici un exemple tres simple
6020 '    d'utilisation des lutins
6030 '   avec un helico se deplacant
6040 '   sans affecter le decor pour
6050 '   autant.
6060 ' 
6070 ' NB: Si vous voulez essayer
6080 ' il suffit de faire :
6090 '         RUN 6000
6100 '
6110 ' mouvements avec fleches
6115 '
6120 INK 0,0:INK 1,24:BORDER 1:MODE 2:MEMORY &7FFF
6122 '    A M S P R I T E
6124 ' 
6126 LOAD"AMSP#1.BIN"
6128 LOAD"AMSP#2.BIN"
6140 GOSUB 7000
6150 FOR f=0 TO 300
6160 PLOT RND*638,RND*398,1
6170 NEXT f: GOSUB 6500
6180 CALL &80E8
6190 mvt1=tbl:mvt2=mvt1+22:mvt3=Mvt2+22:mvt4=mvt3+22
6200 s=0
6210 CALL &8000
6220 IF INKEY(0)<>-1 THEN s=1:GOTO 6270
6230 IF INKEY(2)<>-1 THEN s=2:GOTO 6270
6240 IF INKEY(1)<>-1 THEN s=8:GOTO 6270
6250 IF INKEY(8)<>-1 THEN s=4:GOTO 6270
6260 s=INT(RND*16)
6270 POKE mvt1,s:POKE mvt2,s:POKE mvt3,s:POKE mvt4,s
6280 GOTO 6210
6290 END
6500 ' mini-decor
6510 FOR f=0 TO 100 STEP 2
6520 PLOT 9,f-50,1
6530 DRAWR 20,30:DRAWR 50,-10
6540 DRAWR 10,30:DRAWR 50,-20
6550 DRAWR 100,10:DRAWR 30,-50
6560 DRAWR 80,30:DRAWR 100,20
6570 DRAWR 90,-30:DRAWR 40,10
6580 DRAWR 100,-20
6590 NEXT f
6600 RETURN
7000 '
7010 '         init. SPRITES
7020 RESTORE 7230
7030 tbl=&4000
7040 spt=4
7050 POKE &8001,ABS(tbl MOD 256)
7060 POKE &8002,ABS(tbl\256)
7070 POKE &8004,spt
7080 POKE &80E9,ABS(tbl MOD 256)
7090 POKE &80EA,ABS(tbl\256)
7100 POKE &80EC,spt
7110 FOR f=tbl TO tbl+22*spt-1
7120 READ b:POKE f,b
7130 NEXT f
7140 RETURN
7200 '
7210 '   Sprite no.1
7220 '
7230 DATA 0,10,40,10,40,0,0,0,0,0,0,0,0,1
7240 DATA 0,254,1,3,13,&16,20,20
7250 '   Sprite no.2
7260 DATA 0,10,41,10,41,0,0,0,0,0,0,0,0,1
7270 DATA 0,127,128,192,176,&68,&28,&28
7280 '   Sprite no.3
7290 DATA 0,11,40,11,40,0,0,0,0,0,0,0,0,1
7300 DATA 20,24,31,10,23,16,16,48
7310 '   Sprite no.4
7320 DATA 0,11,41,11,41,0,0,0,0,0,0,0,0,1
7330 DATA 40,24,248,80,&E8,8,8,12
7340 END

