> AddRGB + Add 12-bit nULA palette to LDPIC file : () fn$:in%=(fn$): in%=0:"Not found" 2ext%=#in%:#in%:in%=0 <* mem% ext%+24:"LOAD "+fn$+" "+~mem% F+dw%=rev(mem%?0):mode%=rev(mem%?1) 7 P(stp%=rev(mem%?10):cw%=rev(mem%?11) Z4num%=256*("&"+"5050504028282004",mode%*2+1,2)) dMdw%=0 dw%>8 cw%=0 cw%>8 stp%>8:"Doesn't look like LDPIC file": n+"MODE ";mode%;" dw=";dw%;" cw%=";cw% x"Scanning"; bits%=0:data%=0:ptr%=12: " bit:cnt%=get(cw%) cnt%=1 *dat%=get(dw%):num%=num%-cnt%: num%<1 13;"End at ";~ptr% ?ptr%ext%:"Doesn't look like LDPIC file": :  col%=1 8 ) R,G,B:R=rev(R):G=rev(G):B=rev(B) (mem%?(ptr%+0)=R+G/16:mem%?(ptr%+1)=B ) R,G,B:R=rev(R):G=rev(G):B=rev(B) 9mem%?(ptr%+1)=mem%?(ptr%+1)+R/16:mem%?(ptr%+2)=G+B/16 !ptr%=ptr%+3::"Saving ";fn$; 5 "SAVE "+fn$+" "+~mem%+"+"+~ptr%+" 0 FFFFFD00" : : >ݤb0(A%,N%): A$,B$,L%:B$="0":A%<0:B$="1":A%=A%&7FFFFFFF "5A$=(A%1)+A$:A%=A%2:L%=L%+1:L%>30:=B$+A$,N%) ,%ݤrev(A%):=r(A%16)+16*r(A%15) 6;ݤr(A%):="00080412021006140109051303110715",A%*2+1,2) @6ݤbit:bits%=0:data%=mem%?ptr%:ptr%=ptr%+1:bits%=8 J*data%=data%*2:bits%=bits%-1:=data%256 T.ݤget(N%):A%,B%:B%=1N%:A%=(A%2)bit: ^A%=A%2:N%=N%+1:N%>8:=A% h: r Filename: | JARRE :  RGB colour 15 to 0:  15,15,15 , 15,15, 0  15, 0,15 , 0, 5,15  15,10, 0 , 0,15, 0  15, 5, 5 , 0, 0, 0  15,15,15 , 15,15, 0  15, 0,15 , 0, 5,15  15,10, 0 , 0,15, 0  15, 5, 5 , 0, 0, 0