RANDOMIZE TIMER REM WAS8BIT P=0 IP=0 DO ADD IP,1,0 TO 30 IF IP=0 THEN ADD P,1,0 TO 63 PALETTE 0,P,,, END IF I=0 FOR Y=0 TO 7 FOR X=0 TO 7 C=RND(13)+1 SPRITE I,16+X*16,Y*16,C SPRITE I SIZE 1 PAL RND(7) INC I NEXT X NEXT Y FOR Y=0 TO 15 FOR X=0 TO 15 PAL RND(7) CELL 2+X,Y,RND(15)+1 NEXT X NEXT Y FOR Y=0 TO 15 PAL RND(7) CELL 0,Y,32+RND(2) CELL 1,Y,32+RND(2) CELL 18,Y,32+RND(2) CELL 19,Y,32+RND(2) NEXT Y WAIT VBL LOOP #1:MAIN PALETTES 0030201030382410003C2814000C0804 000F0A05000B06020033221100231201 #2:MAIN CHARACTERS 00000000000000000000000000000000 84002100480012001400050041005000 20028008022008802800A00082000A00 00840021004800120014000500410050 10014004011004401400500041000500 12008400210048005000140005004100 08802002800802200A002800A0008200 00120084002100480050001400050041 04401001400401100500140050004100 48001200840021004100500014000500 022008802002800882000A002800A000 00480012008400210041005000140005 01100440100140044100050014005000 21004800120084000500410050001400 8008022008802002A00082000A002800 00210048001200840005004100500014 40040110044010015000410005001400 00210048001200840005004100500014 8008022008802002A00082000A002800 21004800120084000500410050001400 00480012008400210041005000140005 022008802002800882000A002800A000 04401001400401100500140050004100 08802002800802200A002800A0008200 12008400210048005000140005004100 00840021004800120014000500410050 20028008022008802800A00082000A00 84002100480012001400050041005000 00120084002100480050001400050041 48001200840021004100500014000500 00480012008400210041005000140005 10014004011004401400500041000500 55AA55AA55AA55AA0000000000000000 000000000000000055AA55AA55AA55AA 55AA55AA55AA55AA55AA55AA55AA55AA