Ї > Palette #Ї Cycle through palette changes : (у mode%=0 ╕ 15 2ў <ы mode% F"я 23,23,2;0;0;0; 23,1,0;0;0;0; Pё':я8:txW%=▒+1 Zї:txH%=╝+1:ё:¤txH%=╝+1:█ d3gfW%=txW%*8:gfH%=txH%*(8-2*(mode%=3 Д mode%=6)) nї:gfW%=gfW%*2:¤ gfW%>=&400 xї:gfH%=gfH%*2:¤ gfH%>=&300 Вwid%=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$ 6Oё К(phyc% А 3)*col%+(col%-1)Б2-1,(phyc% Б 4)*row%+row%Б4+1);" ";~phyc%;" "; @Cё К(phyc% А 3)*col%+(col%-1)Б2-1,(phyc% Б 4)*row%+row%Б4+2);C$; Jэ TёКcol%*2-3,0);"MODE ";mode% ^ч ж(200)>-1:logc%=16 hэ rэ |%▄ BLK,RED,GRN,YEL,BLU,MAG,CYN,WHT Ж%▄ BLK,RED,GRN,YEL,BLU,MAG,CYN,WHT