10
20
30 :
40 DEFPROCvdu_palrd(store%)
50 LOCAL X%,Y%,A%,col%:A%=11
60 A%=INKEY-256:IFA%<>ASC"W":A%=11
70 FOR col%=0 TO 15
80 X%=store%+col%*6+1:Y%=X%DIV256:X%?-1=19:X%?0=col%
100 IF A%=11:CALL &FFF1
110 IF A%=ASC"W":X%?1=16:SYS "GetPaletteEntries",@hpal%,col%,1,X%+2
IF A%=ASC"S":
120 NEXT col%
130 ENDPROC
140 :
150 DEFPROCvdu_palwr(store%)
170 LOCAL A%:FOR A%=store% TO store%+16*6-1:VDU ?A%:NEXT
180 ENDPROC
190