***************************************************
* macro opt_push
* 
* Peter Niessen, 24.8.00, niessen@ifh.de
*
* a macro to save the opt environment
* 
* write the current opt to a file. Filename is
* .pawopt.[n], where n is
* an index representing the stack depth
***************************************************
   
 macro opt_push
   
* in case you have aliased your rm to rm -i, uncomment the next line
* and substitute unaliased_rm_shell with a shell where you do not alias
*  kuip/set/host_shell unaliased_rm_shell
   
* find out, how many .pawopt files are already present in the current dir
   
   n = $SHELL ('ls .pawopt* | wc -l') 
   n = $WORD ([n],1,1,' ')	| get rid of leading spaces
   n = [n] + 1			| start counting at one
   
   newname = '.pawopt.'//[n]
   
   output_lp 66 [newname]
   gr/opt show
   close 66
   
   exitm
   
 return