RANDOMIZE TIMER REM WAS8BIT PLAY 3,50,60 SOUND 3 RESET: CLS COPY $8000+16*48,16 TO $8000+4*16 WAIT 60*6 PLAY 3,50,255 SOUND 3 BG 1 FOR Y=0 TO 15 BG FILL 0,Y TO 19,Y CHAR 4 PLAY 2,30,1 SOUND 2 WAIT 5 NEXT Y FOR Y=16 TO 8 STEP -1 BG FILL 0,Y TO 19,Y CHAR 1 PLAY 2,40,1 SOUND 2 WAIT 15 NEXT Y DO IF RND(33)=0 THEN AIM=33 WHILE AIM>0 X=RND(19) BG 1 XX=CELL.C(X,15) BG 0 IF CELL.C(X,1)=0 AND CELL.C(X,0)=0 AND XX>0 AND XX<4 THEN CELL X,0,8 CELL X,1,24 STOP 0 PLAY 0,80,1 SOUND 0 AIM=0 ELSE DEC AIM END IF WEND END IF DIRT=0 FOR Y=16 TO 0 STEP -1 FOR X=0 TO 19 BG 1 CD=CELL.C(X,Y) IF CD=4 THEN CD=0 IF Y<16 AND CD>0 THEN INC DIRT BG 0 C=CELL.C(X,Y) IF C=0 THEN COPY $8000+16*(RND(16)+32),16 TO $8000+4*16 ELSE IF C>=16 AND C<=23 THEN IF C=23 THEN CELL X,Y,0 ELSE CELL X,Y,C+1 END IF END IF IF C>=24 AND C<31 THEN CELL X,Y,C+1 CELL X,Y-1,C-15 ELSE IF C=31 THEN CELL X,Y-1,0 IF CD=0 THEN CELL X,Y,8 CELL X,Y+1,24 ELSE CELL X,Y,16 STOP 1 PLAY 1,30+RND(20),1 SOUND 1 BG 1 CELL X,Y,4 CL=CELL.C(X-1,Y) CR=CELL.C(X+1,Y) IF CL=1 THEN CELL X-1,Y,2 ELSE IF CL>0 AND CL<4 THEN CELL X-1,Y,4 IF CR=1 THEN CELL X+1,Y,3 ELSE IF CR>0 AND CR<4 THEN CELL X+1,Y,4 END IF END IF END IF NEXT X NEXT Y WAIT VBL IF DIRT=0 THEN STOP GOTO RESET END IF LOOP #1:MAIN PALETTES 1B3C302400383400003C0C00003F3C00 003F2A15003F2A15003F2A15003F2A15 #2:MAIN CHARACTERS 00000000000000000000000000000000 FEBFFBFFDFFDFFEFFFFFFFFFFFFFFFFF 8080E0F0D8F8FCEC80C0E0F0F8F8FCFC 0003030F1F1D3F3F0103070F1F1F3F3F 00001824241800000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00181800000000001824241800000000 00001818000000000018242418000000 00000018180000000000182424180000 00000000181800000000001824241800 00000000001818000000000018242418 00000000000018180000000000182424 00000000000000180000000000001824 00000000000000000000000000000018 0000183C3C1800000018244242241800 00182442422418000000182424180000 245A814242815A2400245A24245A2000 5A8100818100815A245A814242815A24 580100818100801A2018014242801804 81000000000000816699814242819966 0000000000000000104A008241005208 00000000000000009900008181000099 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000001800000000000000 18000000000000002418000000000000 18180000000000002424180000000000 80000000000000000000000000000000 20000000000000000000000000000000 08000000000000000000000000000000 02000000000000000000000000000000 00008000000000000000000000000000 00002000000000000000000000000000 00000800000000000000000000000000 00000200000000000000000000000000 00000000800000000000000000000000 00000000200000000000000000000000 00000000080000000000000000000000 00000000020000000000000000000000 00000000000080000000000000000000 00000000000020000000000000000000 00000000000008000000000000000000 00000000000002000000000000000000 00001824241800000000000000000000 #15:MAIN SOUND 2A00F2EE14F05000380000DD00FF0000 0800606000FF000028003CFF05FE0000 38002020000000003800505000000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000