Ї > Palette #Ї Cycle through palette changes : (у mode%=0 ╕ 15 2ў <ы mode% F"я 23,23,2;0;0;0; 23,1,0;0;0;0; P*ї:txH%=╝+1:ё:¤txH%=╝+1:ё╜8;:txW%=▒+1:█ Z3gfW%=txW%*8:gfH%=txH%*(8-2*(mode%=3 Д mode%=6)) dї:gfW%=gfW%*2:¤ gfW%>=&400 nї:gfH%=gfH%*2:¤ gfH%>=&300 xwid%=gfW%Б4:hgh%=gfH%Б4 Вcol%=txW%Б4:row%=txH%Б4 Му gcol%=0 ╕ 15 Ц ц 0,gcol% ау pix%=hgh%-4 ╕ 0 И -4 к<ь ((gcol% А 3)+0)*wid%+0,((gcol% В 12) Б 4)*hgh%+pix% ┤<▀ ((gcol% А 3)+1)*wid%-1,((gcol% В 12) Б 4)*hgh%+pix% ╛>Ё 69,((gcol% А 3)+0)*wid%+0,((gcol% В 12) Б 4)*hgh%+pix%+2 ╚э ╥э ▄у logc%=0 ╕ 15 цў Ёу num%=0 ╕ 15 ·phyc%=(logc%-num%)А15 я 19,num%,phyc% А 7,0,0,0 √ 128+phyc% √ 15-phyc% "є C$ ,Oё К(phyc% А 3)*col%+(col%-1)Б2-1,(phyc% Б 4)*row%+row%Б4+1);" ";~phyc%;" "; 6Cё К(phyc% А 3)*col%+(col%-1)Б2-1,(phyc% Б 4)*row%+row%Б4+2);C$; @э JёКcol%*2-3,0);"MODE ";mode% Tч ж(200)>-1:logc%=16 ^э hэ r%▄ BLK,RED,GRN,YEL,BLU,MAG,CYN,WHT |%▄ BLK,RED,GRN,YEL,BLU,MAG,CYN,WHT