RANDOMIZE TIMER
TOUCHSCREEN
SPRITE 0,,,100
SPRITE 0 SIZE 1
REM WAS8BIT

DIM TOTAL(3),SPEED(3)

AGAIN:
CLS
FOR I=0 TO 3
    TOTAL(I)=0
    SPEED(I)=RND(9)
NEXT I
PLAY 0,90,90
WAIT 90

ISTOP=70*4




DO
    REM TT=TOTAL\10+1
    
    
  
  PAL 0
       NUMBER 0,0,TOTAL(0),3
  PAL 1
       NUMBER 17,0,TOTAL(1),3
  PAL 2
       NUMBER 0,15,TOTAL(2),3
  PAL 3
       NUMBER 17,15,TOTAL(3),3
  
  
IF ISTOP>0 THEN
    FOR I=0 TO 3
    IF RND(SPEED(I))=0 THEN
            X=RND(19)
            Y=RND(13)+1
            C=CELL.C(X,Y)
            IF C=0 THEN 
               PAL I
               CELL X,Y,1
               INC TOTAL(I)
               DEC ISTOP
               PLAY 0,80+I,1
               GOSUB ADDUM
            END IF
    END IF
    NEXT I
END IF
    
IF TOUCH THEN GOTO AGAIN
WAIT VBL
LOOP



ADDUM:
   FOR Y=1 TO 14
   FOR X=0 TO 19
       C=CELL.C(X,Y)
       P=CELL.A(X,Y)
       IF C>0 AND P=I THEN
           CSUM=0
           FOR IY=Y-1 TO Y+1
           FOR IX=X-1 TO X+1
           IF IY>0 AND IY<15 THEN
               IC=CELL.C(IX,IY)
               IP=CELL.A(IX,IY)
               IF IC>0 AND IP=I THEN INC CSUM
           END IF
           NEXT IX
           NEXT IY
           CELL X,Y,CSUM
       END IF
    NEXT X
    NEXT Y
RETURN




#1:MAIN PALETTES
053F3000003F0C00003F3800003F0B00
003F2A15003F2A15003F2A15003F2A15

#2:MAIN CHARACTERS
00000000000000000000000000000000
007F092D2D2D087F0000765252527700
007F082E282B087F0000775157547700
007F082E2C2E087F0000775153517700
007F0A2A282E0E7F0000755557517100
007F082B282E087F0000775457517700
007F082B282A087F0000775457557700
007F082E2E2E0E7F0000775151517100
007F082A282A087F0000775557557700
007F082A282E087F0000775557517700
007F185A5A5A087F0000672525257700
007F195D5D5D087F0000662222227700
007F185E585B087F0000672127247700
007F185E5C5E087F0000672123217700
007F1A5A585E0E7F0000652527217100
007F185B585E087F0000672427217700
007F185B585A087F0000672427257700
007F185E5E5E0E7F0000672121217100
007F185A585A087F0000672527257700
007F185A585E087F0000672527217700
007F086A0A3A087F0000771575457700
007F096D0D3D087F0000761272427700
007F086E083B087F0000771177447700
007F086E0C3E087F0000771173417700
007F0A6A083E0E7F0000751577417100
007F086B083E087F0000771477417700
007F086B083A087F0000771477457700
007F086E0E3E0E7F0000771171417100
007F086A083A087F0000771577457700
007F086A083E087F0000771577417700
007F086A4A6A087F0000771535157700
007F096D4D6D087F0000761232127700
007F086E486B087F0000771137147700
007F086E4C6E087F0000771133117700
007F0A6A486E0E7F0000751537117100
007F086B486E087F0000771437117700
007F086B486A087F0000771437157700
007F086E4E6E0E7F0000771131117100
007F086A486A087F0000771537157700
007F086A486E087F0000771537117700
007F282A0A6A687F0000575575151700
007F292D0D6D687F0000565272121700
007F282E086B687F0000575177141700
007F282E0C6E687F0000575173111700
007F2A2A086E6E7F0000555577111100
007F282B086E687F0000575477111700
007F282B086A687F0000575477151700
007F282E0E6E6E7F0000575171111100
007F282A086A687F0000575577151700
007F282A086E687F0000575577111700
007F083A0A6A087F0000774575157700
007F093D0D6D087F0000764272127700
007F083E086B087F0000774177147700
007F083E0C6E097F0000774173117600
007F0A3A086E0E7F0000754577117100
007F083B086E087F0000774477117700
007F083B086A087F0000774477157700
007F083E0E6E0E7F0000774171117100
007F083A086A087F0000774577157700
007F083A086E087F0000774577117700
007F083A0A2A087F0000774575557700
007F093D0D2D087F0000764272527700
007F083E082B087F0000774177547700
007F083E0C2E087F0000774173517700
007F0A3A082E0E7F0000754577517100
007F083B082E087F0000774477517700
007F083B082A087F0000774477557700
007F082E0E2E0E7F0000775171517100
007F083A082A087F0000774577557700
007F083A082E087F0000774577517700
007F086A6A6A687F0000771515151700
007F096D6D6D687F0000761212121700
007F086E686B687F0000771117141700
007F086E6C6E687F0000771113111700
007F0A6A686E6E7F0000751517111100
007F086B686E687F0000771417111700
007F086B686A687F0000771417151700
007F086E6E6E6E7F0000771111111100
007F086A686A687F0000771517151700
007F086A686E687F0000771517111700
007F082A0A2A087F0000775575557700
007F092D0D2D087F0000765272527700
007F082E082B087F0000775177547700
007F082E0C2E087F0000775173517700
007F0A2A082E0E7F0000755577517100
007F082B082E087F0000775477517700
007F082B082A087F0000775477557700
007F082E0E2E0E7F0000775171517100
007F082A082A087F0000775577557700
007F082A082E087F0000775577517700
007F082A0A6A087F0000775575157700
007F092D0D6D087F0000765272127700
007F082E086B087F0000775177147700
007F082E0C6E087F0000775173117700
007F0A2A086E0E7F0000755577117100
007F082B086E087F0000775477117700
007F082B086A087F0000775477157700
007F082E0E6E0E7F0000775171117100
007F082A086A087F0000775577157700
007F082A086E087F0000775577117700