% pico -n
1: r star
2: x { star(); }
3: x {
	for (y = 2; y < 300; y++)
	for (x = 0; x < 512; x++)
	{	if (old[x,y] == 0 && old[x,y-1] == 255 && old[x,y+1] == 255)
			new[x,y] = 255
	}
}
4: x new=(y>256)?old[x,y-256]:old[x,256-y]
5: a "/usr/gerard/pico/pjw"
6: x new=(old==255)?(($pjw<255)?$pjw:128):255
7: w - example
8: q
% 
