BG 0
BG FILL 0,0 TO 19,15 CHAR 1
BG FILL 0,0 TO 0,15 CHAR 4
BG FILL 19,0 TO 19,15 CHAR 4
BG FILL 1,0 TO 1,15 CHAR 3
BG FILL 18,0 TO 18,15 CHAR 3
BG FILL 2,0 TO 2,15 CHAR 2
BG FILL 17,0 TO 17,15 CHAR 2
BG FILL 0,0 TO 19,0 CHAR 4
BG FILL 1,1 TO 18,1 CHAR 3
BG FILL 2,2 TO 17,2 CHAR 2
BG FILL 0,15 TO 19,15 CHAR 4
BG FILL 1,14 TO 18,14 CHAR 3
BG FILL 2,13 TO 17,13 CHAR 2
REM WAS8BIT
IMAX=10
DIM CX(IMAX),CY(IMAX),MX(IMAX),MY(IMAX)
RANDOMIZE TIMER
TOUCHSCREEN

FOR I=1 TO IMAX
    GOSUB RANDMOVE
    CX(I)=INT(RND*20)
    CY(I)=INT(RND*16)
NEXT I

BG 1
DO
   CLS 1
   FOR I=1 TO IMAX
   IF INT(RND*10)=0 THEN GOSUB RANDMOVE
   CX(I)=CX(I)+MX(I)
   IF CX(I)<0 THEN CX(I)=19 ELSE IF CX(I)>19 THEN CX(I)=0
   CY(I)=CY(I)+MY(I)
   IF CY(I)<0 THEN CY(I)=15 ELSE IF CY(I)>15 THEN CY(I)=0
   GOSUB DODOT
   NEXT I
   WAIT 3
   IF TOUCH THEN
      R=RND(3)
      G=RND(3)
      B=RND(3)
      R1=0
      R2=0
      G1=0
      G2=0
      B1=0
      B2=0
      IF R>0 THEN R1=R-1
      IF G>0 THEN G1=G-1
      IF B>0 THEN B1=B-1
      IF R1>0 THEN R2=R1-1
      IF G1>0 THEN G2=G1-1
      IF B1>0 THEN B2=B1-1
      PALETTE 0,R2*16+G2*4+B2,0,R1*16+G1*4+B1,R*16+G*4+B
   END IF
LOOP

DODOT:
   CALL PUTDOT(CX(I),CY(I),6)
   CALL PUTDOT(CX(I)-1,CY(I),5)
   CALL PUTDOT(CX(I)+1,CY(I),5)
   CALL PUTDOT(CX(I),CY(I)-1,5)
   CALL PUTDOT(CX(I),CY(I)+1,5)
RETURN

RANDMOVE:
  MX(I)=INT(RND*3)-1
  MY(I)=INT(RND*3)-1
RETURN

SUB PUTDOT(X,Y,C)
    IF X>=0 AND X<=19 AND Y>=0 AND Y<=15 THEN CELL X,Y,C
END SUB

#1:MAIN PALETTES
100020300000040C003C0C00003F3C00
003F2A15003F2A15003F2A15003F2A15

#2:MAIN CHARACTERS
00000000000000000000000000000000
FFC381818181C3FF0000000000000000
FFE7C38181C3E7FF0000000000000000
FFFFE7C3C3E7FFFF0000000000000000
FFFFFFE7E7FFFFFF0000000000000000
0000000000000000FFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF