RANDOMIZE TIMER
REM WAS8BIT
DIM X(16),Y(16),DX(16),DY(16),N(16),C(16),H(16)

SS=0


FOR I=1 TO 16
    X(I)=RND(150)
    Y(I)=RND(120)
    DX(I)=RND-RND
    DY(I)=RND-RND
    N(I)=I
    H(I)=250+RND(250)
    SPRITE I,X(I),Y(I),N(I)
    SPRITE I PAL 1
NEXT I

DO
FOR I=1 TO 16
    ADD X(I),DX(I)
    ADD Y(I),DY(I)
    SPRITE I,X(I),Y(I),
    IF H(I)>0 THEN 
       DEC H(I)
       IF H(I)=0 THEN SPRITE I PAL 0
    END IF
    IF X(I)<0 THEN DX(I)=ABS(DX(I))
    IF X(I)>152 THEN DX(I)=-ABS(DX(I))
    IF Y(I)<0 THEN DY(I)=ABS(DX(I))
    IF Y(I)>122 THEN DY(I)=-ABS(DY(I))
    IF SPRITE HIT(I) THEN
       HI=HIT
       A1=SPRITE.A(I)
       A2=SPRITE.A(HI)
       C1=SPRITE.C(I)
       C2=SPRITE.C(HI)
       IF A1=A2 AND A1=0 THEN
          NN=C1+C2
          IF NN>16 THEN ADD NN,-16
          ADD SS,1,0 TO 3
          PLAY SS,35+NN,0 SOUND RND(3)
         
          SPRITE I PAL 1
          SPRITE I,,,NN
          SPRITE HI PAL 1
          SPRITE HI,,,NN
          H(I)=250+RND(250)
          H(HI)=250+RND(250)
       END IF
    END IF
    
NEXT I

WAIT 1
LOOP



#1:MAIN PALETTES
003F2A08003F2A2000300C00003F3C00
003F2A15003F2A15003F2A15003F2A15

#2:MAIN CHARACTERS
00000000000000000000000000000000
78FC7C3C3C7EFF7E788464242466817E
7EFF7FFFFFFEFF7E7E817D8181BE817E
7EFF7FFFFF7FFF7E7E817D81817D817E
42E7FFFFFF7F070242A5BD81817D0502
7EFFFEFFFF7FFF7E7E81BE81817D817E
7EFFFEFFFFFFFF7E7E81BE8181BD817E
7EFF7F07070707027E817D0505050502
7EFFFFFFFFFFFF7E7E81A58181A5817E
7EFFFFFFFF7FFF7E7E81BD81817D817E
5EFFFFFFFFFFFF4E5EA1A5A5A5A5A14E
48FCFCFCFCFCFC4848B4B4B4B4B4B448
5EFFFFFFFFFEFF5E5EA1BDA1A1AEA15E
5EFFFFFFFFFFFF5E5EA1BDA1A1BDA15E
52FFFFFFFFFFFF4252ADADA1A1BDBD42
5EFFFEFFFFFFFF5E5EA1A6A1A1BDA15E
5EFFFEFFFFFFFF5E5EA1A6A1A1A5A15E

#15:MAIN SOUND
080030BB00FA0000180030BB00FA0000
280030BB00FA0000380030BB00FA0000
38002020000000003800505000000000
0800000F000000000800000F00000000
0800000F000000000800000F00000000
0800000F000000000800000F00000000
0800000F000000000800000F00000000
0800000F000000000800000F00000000