> RdPalette " Read and write whole palette : (vdu_palrd(store%) 2 X%,Y%,A%,col%:A%=11 <A%=-256:A%<>"W":A%=11 F col%=0 15 P3X%=store%+col%*6+1:Y%=X%256:X%?-1=19:X%?0=col% d A%=11: &FFF1 n? A%="W":X%?1=16:ș "GetPaletteEntries",@hpal%,col%,1,X%+2  A%="S":.... x col%  : vdu_palwr(store%) , A%: A%=store% store%+16*6-1: ?A%: