REM WAS8BIT GLOBAL I,HILO BG 0 PAL 1 BG FILL 0,0 TO 19,15 CHAR 0 BG 1 PAL 0 BG FILL 0,0 TO 19,15 CHAR 1 DO CALL BANDS CALL RANDOM WAIT VBL LOOP SUB BANDS ADD I,1,0 TO 255 ADD HILO,1,0 TO 1 II=HILO*8 FOR A=II TO II+7 POKE $8000+A,I NEXT A END SUB SUB RANDOM FOR A=0 TO 7 POKE $8010+A,RND(255) NEXT A FOR A=8 TO 15 POKE $8010+A,RND(255) NEXT A END SUB #1:MAIN PALETTES 003B3020002F0C08003C0C00003F3C00 003F2A15003F2A15003F2A15003F2A15