define char ff*40 
define integer n1 n2 
pen 1 
let file &1 /new logical 
! 
let n1 max(1,first) 
if last.eq.0 then 
  define header a 'name'.lmv read 
  let n2 a%dim[3] 
  del /var a 
else 
  let n2 last 
endif 
say planes 'n1' to 'n2' 
for i n1 to n2 
  if exist(clean) then 
    show clean 'i' 
  else 
    show dirty 'i' 
  endif 
  if file then 
    support 'supp_name'.'supp_type' 
  else 
    support 
  endif 
  support /plot 
  system "rm "'name'"-"'i'".pol" 
  greg\write polygon 'name'-'i'.pol 
next 
!