DIM GLOBAL HMAP(21,17) DIM GLOBAL THMAP(21,17) RANDOMIZE TIMER TOUCHSCREEN BLURGENS=2 RESET: FOR J = 0 TO 17 FOR I = 0 TO 21 HMAP(I,J)=RND(100)/100 NEXT I NEXT J IF BLURGENS>0 THEN FOR K = 0 TO BLURGENS FOR J = 0 TO 17 FOR I = 0 TO 21 THMAP(I,J)=HMAP(I,J) NEXT I NEXT J FOR J = 1 TO 16 FOR I = 1 TO 20 THMAP(I,J)=(HMAP((I-1),J-1)+HMAP(I-1,J)+HMAP(I-1,J+1)+HMAP(I,J-1)+HMAP(I,J)+HMAP(I,J+1)+HMAP(I+1,J-1)+HMAP(I+1,J)+HMAP(I+1,J+1))*0.2-0.39 'THMAP(I,J)=(HMAP((I-1),J-1)+HMAP(I-1,J+1)+HMAP(I,J)+HMAP(I+1,J-1)+HMAP(I+1,J+1))*(1/5) NEXT I NEXT J FOR J = 0 TO 17 FOR I = 0 TO 21 HMAP(I,J)=THMAP(I,J) NEXT I NEXT J NEXT K END IF FOR J = 1 TO 16 FOR I = 1 TO 20 IF HMAP(I,J)<0 THEN HMAP(I,J)=0 IF HMAP(I,J)>1 THEN HMAP(I,J)=1 CELL I-1,J-1,INT(HMAP(I,J)*8+1) NEXT I NEXT J DO IF TAP THEN GOTO RESET WAIT VBL LOOP #1:MAIN PALETTES 003F2A0000383400003C0C00003F3C00 003F2A15003F2A15003F2A15003F2A15 #2:MAIN CHARACTERS 00000000000000000000000000000000 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFAAFFAAFFAAFFAAFFFFFFFFFFFFFFFF 55AA55AA55AA55AAFFBBFFFFDDFFFFEE 0000000000000000AA55AA55AA55AA55 0000000000000000FFFFFFFFFFFFFFFF 0055005500550055FFAAFFAAFFAAFFAA AA11AA558855AA4455EE55AA77AA55BB AA55AA55AA55AA5555AA55AA55AA55AA FFFFFFFFFFFFFFFF0000000000000000