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
6130 GOSUB 8000
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
8000 '    A M S P R I T E
8010 ' 
8020 RESTORE 8200
8030 FOR f=&8000 TO &80CE
8040 READ b$
8050 POKE f,VAL("&"+b$)
8060 NEXT f
##8065 SAVE"AMSP#1.BIN",B,&8000,&CF
8070 RESTORE 8490
8080 FOR f=&80E8 TO &8108
8090 READ b$
8100 POKE f,VAL("&"+b$)
8110 NEXT f
##8115 SAVE"AMSP#2.BIN",B,&80E8,&21
8120 RETURN
8130 '
8140 ' DATAS de la routine AMSPRITE
8150 '
8200 DATA 21,00,40,06,02,e5,c5
8210 DATA c5,23,23,23,56,23,5e,cd,b9,80
8220 DATA 06,08,23,7e,12,7a,c6,08,57
8230 DATA 10,f7,0e,0a,09,c1,10,e5,c1,e1,e5,c5
8240 DATA c5,7e,23,56,23,5e
8250 DATA cb,47,28,01,15
8260 DATA cb,4f,28,01,14
8270 DATA cb,57,28,01,1d
8280 DATA cb,5f,28,01,1c
8290 DATA cb,67,28,02,14,1c
8300 DATA cb,6f,28,02,15,1d
8310 DATA cb,77,28,02,15,1c
8320 DATA cb,7f,28,02,14,1d
8330 DATA 7a,fe,19,38,0a,fe,82,38,04
8340 DATA 16,18,18,02,16,00,7b
8350 DATA fe,50,38,0a,fe,82,38,04,1e,4f
8360 DATA 18,02,1e,00,2b
8370 DATA 72,23,73,23,72,23,73,cd,b9,80
8380 DATA 06,08,23,1a,77,7a,c6,08,57,10,f7
8390 DATA 0e,0a,09,c1,10,94,c1,e1
8400 DATA c5,23,56,23,5e,01,0b,00
8410 DATA 09,7e, b7,28,11,cd,b9,80
8420 DATA 06,08,23,7e,12,7a,c6,08,57,10,f7
8430 DATA 23,18,03,0e,09,09,c1,10,dc,c9
8440 ' 
8450 DATA e5,26,00,6a,29,7b,54,5d
8460 DATA 29,29,19,29,29,29,85,5f,7c
8470 DATA ce,c0,57,e1,c9
8480 '      A M S I N I T
8490 DATA 21,00,40,06,02,c5,23,56,23,5e
8500 DATA cd,b9,80,23,23,06,08,23,1a,77,7a,c6,08,57
8510 DATA 10,f7,0e,0a,09,c1,10,e5,c9
8520 '
8530 '



