//csw

#level 1u

iorig = 0

top:

sorig = $inpc(#strn,'wall type to change',6,'w1','w2','w3','w4','w5','EXIT')

call trimit
iold = iorig

sorig = $inpc(#strn,'new wall type ',6,'w1','w2','w3','w4','w5','EXIT')

call trimit
inew = iorig

:_win;1;?u;?u
$setvar(#uwuse,#walin)

$crit(#_type,#_const,#oline,#_eq,#flnfnt,#_const,5,#_eq,#_and,&
      #flin,#_const,iold,#_eq,#_and)

$sel(#start,0,#emask)

loop iskip = #false while $srch(#emask,iskip,#true)
	$erase1
        $data
	pend1 = $getvar(#vep1)
	pend2 = $getvar(#vep2)
	$c1flg(#flin,inew)
	$wlfxpt(pend1)
	$wlfxpt(pend2)
end iskip = #true loop

$crit(#_end)
:woff
goto top

trimit::
	if $cpstr(sorig,'EXIT')
		exit
	endif
	
	iposw = sorig.pos.'w'
      	
	if iposw >=1 
		iorig = $val(sorig.from.(iposw+1))
	else
		iorig = $val(sorig)
	endif
return