RANDOMIZE TIMER
TOUCHSCREEN
REM WAS8BIT
DIM CX(63),CY(63),A(63),R(63),DA(63),CC(63)
DIM CX2(63),CY2(63),A2(63),R2(63),DA2(63)

RESET:
CLS

FOR I=0 TO 63
    CC(I)=1+RND(9)
    CX(I)=RND(20*8)
    CY(I)=RND(16*8)
    R(I)=2+RND*8
    DA(I)=(RND-RND)/2
    R2(I)=2+RND*8
    DA2(I)=(RND-RND)/3
NEXT I


DO
  FOR I=0 TO 63
      ADD A(I),DA(I)
      X=CX(I)+R(I)*COS(A(I))
      Y=CY(I)+R(I)*SIN(A(I))
      CX2(I)=X
      CY2(I)=Y
      ADD A2(I),DA2(I)
      X2=CX2(I)+R2(I)*COS(A2(I))
      Y2=CY2(I)+R2(I)*SIN(A2(I))
      SPRITE I,X2,Y2,CC(I)
  NEXT I
  
  IF TOUCH THEN GOTO RESET
  
  RR=RND(1)
  FOR I=1 TO 100
  IF RR=0 THEN 
     CELL RND(19),RND(15),0
  ELSE
     PAL RND(1)+1
     CELL RND(19),RND(15),1+RND(9)
  END IF
  NEXT I

WAIT VBL
LOOP
    
#1:MAIN PALETTES
003F2F00002A340000150C00003F3C00
003F2A15003F2A15003F2A15003F2A15

#2:MAIN CHARACTERS
00000000000000000000000000000000
80000000000000000000000000000000
00000000000000800000000000000000
00000000000000010000000000000000
01000000000000000000000000000000
00002000000000000000000000000000
00000000002000000000000000000000
00000000000400000000000000000000
00000400000000000000000000000000
20000000000000000000000000000000
00008000000000000000000000000000