RANDOMIZE TIMER ON RASTER CALL BUMP GAMEPAD 1 REM WAS8BIT GLOBAL ICLEAR ILEVEL=0 LEVELUP: INC ILEVEL RESET: BG 1 FOR Y=0 TO 15 FOR X=0 TO 18 CELL X,Y,1 NEXT X NEXT Y CX=0 CY=0 SPRITE 0,,,102 CALL CUR(CX,CY,0,0) FOR I=1 TO ILEVEL*3 CALL POP(RND(18),RND(15),RND(1)*2-1) NEXT I ICLEAR=0 DO IF BUTTON TAP(0,0) THEN CALL POP(CX,CY,1) IF BUTTON TAP(0,1) THEN CALL POP(CX,CY,-1) IF DOWN(0) THEN CALL CUR(CX,CY,0,1) IF UP(0) THEN CALL CUR(CX,CY,0,-1) IF RIGHT(0) THEN CALL CUR(CX,CY,1,0) IF LEFT(0) THEN CALL CUR(CX,CY,-1,0) IF ICLEAR=1 THEN GOTO LEVELUP WAIT VBL LOOP SUB POP(X,Y,CD) CALL ADJ(X,Y,CD) X1=X X2=X CALL XADD(X1,-1) CALL XADD(X2,1) CALL ADJ(X1,Y,CD) CALL ADJ(X2,Y,CD) Y1=Y Y2=Y CALL YADD(Y1,-1) CALL YADD(Y2,1) CALL ADJ(X,Y1,CD) CALL ADJ(X,Y2,CD) IF Y\2=Y/2 THEN XX=X2 ELSE XX=X1 CALL ADJ(XX,Y1,CD) CALL ADJ(XX,Y2,CD) CALL CLEARCHECK END SUB SUB ADJ(X,Y,D) C=CELL.C(X,Y) ADD C,D,1 TO 100 CELL X,Y,C END SUB SUB CUR(X,Y,DX,DY) CALL XADD(X,DX) CALL YADD(Y,DY) IF Y\2=Y/2 THEN XX=5 ELSE XX=1 SPRITE 0,X*8+XX,Y*8, PLAY 0,90,1 SOUND 0 WAIT 6 END SUB SUB XADD(X,D) ADD X,D,0 TO 18 END SUB SUB YADD(Y,D) ADD Y,D,0 TO 15 END SUB SUB BUMP R=RASTER\8 IF R/2 = R\2 THEN SCROLL 1,-6,0 ELSE SCROLL 1,-2,0 END SUB SUB CLEARCHECK ICLEAR=0 FOR Y=0 TO 15 FOR X=0 TO 18 IF CELL.C(X,Y)>1 THEN EXIT SUB NEXT X NEXT Y ICLEAR=1 END SUB #1:MAIN PALETTES 003F2A1500382410003C2814002E0804 002F0A05001F0B07003B3322002B2312 #2:MAIN CHARACTERS 00000000000000000000000000000000 00FEFEFEFEFEFEFE00FEFEFEFEFEFEFE 00FEFEFEFEFEFEFE00FECEEEEEEEC6FE 00FEFEFEFEFEFEFE00FEC6F6C6DEC6FE 00FEFEFEFEFEFEFE00FEC6F6E6F6C6FE 00FEFEFEFEFEFEFE00FED6D6C6F6F6FE 00FEFEFEFEFEFEFE00FEC6DEC6F6C6FE 00FEFEFEFEFEFEFE00FEC6DEC6D6C6FE 00FEFEFEFEFEFEFE00FEC6F6F6F6F6FE 00FEFEFEFEFEFEFE00FEC6D6C6D6C6FE 00FEFEFEFEFEFEFE00FEC6D6C6F6C6FE 00FEFEFEFEFEFEFE00FE30B4B4B410FE 00FEFEFEFEFEFEFE00FE32BABABA10FE 00FEFEFEFEFEFEFE00FE30BCB0B610FE 00FEFEFEFEFEFEFE00FE30BCB8BC10FE 00FEFEFEFEFEFEFE00FE34B4B0BC1CFE 00FEFEFEFEFEFEFE00FE30B6B0BC10FE 00FEFEFEFEFEFEFE00FE30B6B0B410FE 00FEFEFEFEFEFEFE00FE30BCBCBC1CFE 00FEFEFEFEFEFEFE00FE30B4B0B410FE 00FEFEFEFEFEFEFE00FE30B4B0BC10FE 00FEFEFEFEFEFEFE00FE10D4147410FE 00FEFEFEFEFEFEFE00FE12DA1A7A10FE 00FEFEFEFEFEFEFE00FE10DC107610FE 00FEFEFEFEFEFEFE00FE10DC187C10FE 00FEFEFEFEFEFEFE00FE14D4107C1CFE 00FEFEFEFEFEFEFE00FE10D6107C10FE 00FEFEFEFEFEFEFE00FE10D6107410FE 00FEFEFEFEFEFEFE00FE10DC1C7C1CFE 00FEFEFEFEFEFEFE00FE10D4107410FE 00FEFEFEFEFEFEFE00FE10D4107C10FE 00FEFEFEFEFEFEFE00FE10D414D410FE 00FEFEFEFEFEFEFE00FE12DA1ADA10FE 00FEFEFEFEFEFEFE00FE10DC10D610FE 00FEFEFEFEFEFEFE00FE10DC18DC10FE 00FEFEFEFEFEFEFE00FE14D410DC1CFE 00FEFEFEFEFEFEFE00FE10D610DC10FE 00FEFEFEFEFEFEFE00FE10D610D410FE 00FEFEFEFEFEFEFE00FE10DC1CDC1CFE 00FEFEFEFEFEFEFE00FE10D410D410FE 00FEFEFEFEFEFEFE00FE10D410DC10FE 00FEFEFEFEFEFEFE00FE505414D4D0FE 00FEFEFEFEFEFEFE00FE525A1ADAD0FE 00FEFEFEFEFEFEFE00FE505C10D6D0FE 00FEFEFEFEFEFEFE00FE505C18DCD0FE 00FEFEFEFEFEFEFE00FE545410DCDCFE 00FEFEFEFEFEFEFE00FE505610DCD0FE 00FEFEFEFEFEFEFE00FE505610D4D0FE 00FEFEFEFEFEFEFE00FE505C1CDCDCFE 00FEFEFEFEFEFEFE00FE505410D4D0FE 00FEFEFEFEFEFEFE00FE505410DCD0FE 00FEFEFEFEFEFEFE00FE107414D410FE 00FEFEFEFEFEFEFE00FE127A1ADA10FE 00FEFEFEFEFEFEFE00FE107C10D610FE 00FEFEFEFEFEFEFE00FE107C18DC10FE 00FEFEFEFEFEFEFE00FE147410DC1CFE 00FEFEFEFEFEFEFE00FE107610DC10FE 00FEFEFEFEFEFEFE00FE107610D410FE 00FEFEFEFEFEFEFE00FE107C1CDC1CFE 00FEFEFEFEFEFEFE00FE107410D410FE 00FEFEFEFEFEFEFE00FE107410DC10FE 00FEFEFEFEFEFEFE00FE1074145410FE 00FEFEFEFEFEFEFE00FE127A1A5A10FE 00FEFEFEFEFEFEFE00FE107C105610FE 00FEFEFEFEFEFEFE00FE107C185C10FE 00FEFEFEFEFEFEFE00FE1474105C1CFE 00FEFEFEFEFEFEFE00FE1076105C10FE 00FEFEFEFEFEFEFE00FE1076105410FE 00FEFEFEFEFEFEFE00FE107C1C5C1CFE 00FEFEFEFEFEFEFE00FE1074105410FE 00FEFEFEFEFEFEFE00FE1074105C10FE 00FEFEFEFEFEFEFE00FE10D4D4D4D0FE 00FEFEFEFEFEFEFE00FE12DADADAD0FE 00FEFEFEFEFEFEFE00FE10DCD0D6D0FE 00FEFEFEFEFEFEFE00FE10DCD8DCD0FE 00FEFEFEFEFEFEFE00FE14D4D0DCDCFE 00FEFEFEFEFEFEFE00FE10D6D0DCD0FE 00FEFEFEFEFEFEFE00FE10D6D0D4D0FE 00FEFEFEFEFEFEFE00FE10DCDCDCDCFE 00FEFEFEFEFEFEFE00FE10D4D0D4D0FE 00FEFEFEFEFEFEFE00FE10D4D0DCD0FE 00FEFEFEFEFEFEFE00FE1054145410FE 00FEFEFEFEFEFEFE00FE125A1A5A10FE 00FEFEFEFEFEFEFE00FE105C105610FE 00FEFEFEFEFEFEFE00FE105C185C10FE 00FEFEFEFEFEFEFE00FE1454105C1CFE 00FEFEFEFEFEFEFE00FE1056105C10FE 00FEFEFEFEFEFEFE00FE1056105410FE 00FEFEFEFEFEFEFE00FE105C1C5C1CFE 00FEFEFEFEFEFEFE00FE1054105410FE 00FEFEFEFEFEFEFE00FE1054105C10FE 00FEFEFEFEFEFEFE00FE105414D410FE 00FEFEFEFEFEFEFE00FE125A1ADA10FE 00FEFEFEFEFEFEFE00FE105C10D610FE 00FEFEFEFEFEFEFE00FE105C18DC10FE 00FEFEFEFEFEFEFE00FE145410DC1CFE 00FEFEFEFEFEFEFE00FE105610DC10FE 00FEFEFEFEFEFEFE00FE105610D410FE 00FEFEFEFEFEFEFE00FE105C1CDC1CFE 00FEFEFEFEFEFEFE00FE105410D410FE 00FEFEFEFEFEFEFE00FE105410DC10FE 0000000000000000FFFFFFFFFFFFFFFF 0000000000000000FF818181818181FF #15:MAIN SOUND 2400305510F830002400305514F83000 08002000000000002800303019FE0000 38002020000000003800505000000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000