RANDOMIZE TIMER
REM WAS8BIT



II=63
DIM R(II),A(II)
IADD=1

R(1)=63
A(1)=0

XC=80
YC=60



SPRITE 0,9*8,7*8,2
SPRITE 0 PAL 1 SIZE 1

DO
  FOR I=1 TO IADD
      IF IADD<63 AND RND(500)=0 THEN
         INC IADD
         R(IADD)=63
         A(IADD)=0
      END IF
  
  
      SPRITE I,XC+R(I)*COS(A(I)),YC+R(I)*SIN(A(I)),1
      AA=1/(R(I))
      IF I=0 THEN TRACE AA
      A(I)=A(I)+0.025+AA
      ADD R(I),-0.033
      IF R(I)<0 THEN 
         R(I)=63-RND
         A(I)=RND
      END IF
      
  
  NEXT I
  
  WAIT VBL
  
LOOP



#1:MAIN PALETTES
003F2A1500000000003C0C00003F3C00
003F2A15003F2A15003F2A15003F2A15

#2:MAIN CHARACTERS
00000000000000000000000000000000
00102854281000000010386C38100000
00000000010303030000000000000000
000000F0F8FCFCFC0000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
03010000000000000000000000000000
FCF8F000000000000000000000000000