setprotect('','clear',16384)
exists('newparams','parameter'):$e
if ($e < 0.5) then 
   create('newparams','string')
endif 
newparams=''  
setprotect('','list',16384):newparams 
display('newparams')
destroy('newparams')
write('alpha','All Parameters Cleared')

