* read image in 
readf A:\PRAK2.IM,A 
* set color display in color mode 
don,3 
* set timer on 
ton
* clear all bitplanes of image B
clear,B  
* threshold image
thresh A,B,1,230 
* invert image to get white objects on black background. 
invert 1,B 
* make some copies. 
bcopy 1,2,B,B 
bcopy 1,3,B,B 
bcopy 1,4,B,B 
* erode and propagate to remove small objects 
erosion 5,1,6,0,B 
propag 500,1,2,8,0,B 
* exor to remove them, what remains are the big objects; the capacitors. 
exor 1,4,4,B 
* make a copy 
bcopy 4,2,B,B 
* take the skeleton with endpixel condition. 
skelet 100,2,0,B 
* select the branchpoints in the skeletons 
vertices 2,0,B 
* Propagate to obtain components with branchpoints; the transistors. 
propag 500,2,4,8,0,B 
* exor to remove them 
exor 2,4,4,B